File ERROR3.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file



/    20.5.71
/    ERROR GENERATOR 2.1
/    INTRODUCE ERROS IN RESIDUAL WITHOUT COD-DECOD



IERSR,  0
        JMS I LISKP
LDSKP,  0
        JMS I IERSR

ERSR,   0
        DCA SAVEY
        DCA FLAG
        JMS I LDSKP
        1             /ERROR FREQUENCY
        JMP NOERR
        JMP I LERGEN
NOERR,  CLA
        TAD SAVEY
END,    JMP I ERSR


LISKP,  1073
SAVEY,  0
FLAG,   0
LERGEN, NULL


NULL,   CLA
        ISZ FLAG
        JMP END


INV,    CLA
        ISZ FLAG
        TAD SAVEY
        JMS I L4000
        CIA
        JMP END
L4000,  2323


$

Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search