File DOSRS.PA (PAL assembler source file)

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






/RESETTING OF COE AND COD DEC STATES


/20.9.71



*PART10


DOTRS,  0

        ISZ I SCNTPT
        NOP

        JMS I LA0TR
        N
        TBAPTR
        A0APTR

        JMS I LA0TR
        NS
        TBSPTR
        LSIZEC

        JMS I LA0TR
        NS
        TBSPTR
        LSIZEA

        JMP I DOTRS



DOTRR,  0

        ISZ I RCNTPT
        NOP

        JMS I LA0TR
        N
        TBAPTR
        A0BPTR

        JMS I LA0TR
        NS
        TBSPTR
        LSIZEB

        JMP I DOTRR



        CLL CML CLA RTR
        TAD I LX
        DCA I LX
        JMP I DOTR



LX,     X
SCNTPT, SCOUNT
RCNTPT, RCOUNT
LA0TR,  A0TR
TBAPTR, TBA
TBSPTR, TBS
NS,     1
LSIZEA, SIZEA
LSIZEB, SIZEB
LSIZEC, SIZEC



*PART11


A0TR,   0
        CLA
        TAD I A0TR/     GET NUMBER OF TAPS
        DCA TEM5
        TAD I TEM5
        CLL RAL
        CIA/            (N) MULT BY 2 AND THEN NEGATIV
        DCA TEM5
        ISZ A0TR
        TAD I A0TR
        DCA TEM6
        TAD I TEM6
        DCA TEM6
        ISZ A0TR
        TAD I A0TR
        DCA TEM7
        TAD I TEM7
        DCA TEM7
        ISZ A0TR
AGAIN,  TAD I TEM6
        DCA I TEM7
        ISZ TEM6
        ISZ TEM7
        ISZ TEM5
        JMP AGAIN
        JMP I A0TR


TEM5,   0
TEM6,   0
TEM7,   0



*PART12


TBA,    0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
        0
TBS,    30
        0

PAUSE

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