/FIXED POINT TRACE #2
/STARTING ADDRESS IS 6000, CAN BE PUT ON ANY
/4 CONSECUTIVE PAGES BY CHANGING THE ONE ORIGIN
/SETTING INSTRUCTION WHICH FOLLOWS
/
/
/
/
/
          *6000
/
/
/
/
/
START,    TAD        NOP1
          DCA I      PR11P
          DCA        NUMENT
          DCA        FLAG
          JMS        SETUP
          JMS I      TYPCRP
          JMS I      IN4P
          SNA
          JMP        ABS1
          CIA
          DCA I      INDEX1
          JMS I      IN4P
          CIA
          DCA I      INDEX2
          JMS I      IN4P
          CIA
          DCA I      INDEX3
          TAD I      INDEX3
          DCA I      INDEX4
          JMS I      IN4P
          DCA I      INDEX5
          ISZ        NUMENT
          JMS I      TYPCRP
          JMS I      INDEXP
          JMP        START+6
ABS1,     JMS I      TYPCRP
          JMS I      IN4P
          DCA I      PROCNP
          DCA I      LINKP
          DCA I      ACCUMP
          JMP I      BACKP
PR11P,    PRINT1+1
TYPCRP,   TYPCR
IN4P,     INPUT4
INDEX1,0
INDEX2,0
INDEX3,0
INDEX4,0
INDEX5,0
NUMENT,0
INDEXP,   INDEX
PROCNP,   PROCNT
LINKP,    LINK
ACCUMP,   ACCUM
BACKP,    BACK
FLAG,0
TEST,     0
          CLA
          JMS        SETUP
          TAD        NUMENT
          CIA
          DCA        COUNT0
          TAD        FLAG
          SZA CLA
          JMP        ABS6
          TAD I      INDEX1
          SZA
          JMP        ABS2
ABS3,     JMS I      INDEXP
          JMP        .-4
          TAD        PROFF
          DCA I      PR11P
          DCA        FLAG
          JMP I      TEST
ABS2,     TAD I      PROCNP
          SZA CLA
          JMP        ABS3
          TAD I      INDEX4
          SNA CLA
          JMP        ABS5
          ISZ I      INDEX4
          JMP        ABS3
          TAD I      INDEX3
          DCA I      INDEX4
          SKP
ABS5,     DCA I      INDEX1
          TAD        NOP1
          DCA I      PR11P
          TAD I      INDEX5
          SZA CLA
          JMP        .+3
          TAD        NOP1
          SKP
          TAD        SKPP
          DCA I      B64P
          IAC
          DCA        FLAG
          JMP I      TEST
ABS6,     TAD I      INDEX2
          TAD I      PROCNP
          SNA CLA
          JMP        ABS7
          JMS I      INDEXP
          JMP        ABS6
          JMP I      TEST
ABS7,     TAD        PROFF
          DCA I      PR11P
          DCA        FLAG
          JMP        TEST+1
COUNT0,0
PROFF,    JMP I      START
B64P,     B6+4
SETUP,0
          TAD        TABLE1
          DCA        INDEX1
          TAD        TABLE2
          DCA        INDEX2
          TAD        TABLE3
          DCA        INDEX3
          TAD        TABLE4
          DCA        INDEX4
          TAD        TABLE5
          DCA        INDEX5
          TAD        NUMTBL
          DCA        COUNT0
          JMP I      SETUP
NUMTBL,   0-17
TABLE1,   T1
TABLE2,   T1+17
TABLE3,   T1+36
TABLE4,   T1+55
TABLE5,   T1+74
NOP1,     NOP
SKPP,     SKP
0
0
0
0
INDEX,0
          ISZ I      INDX1P
          ISZ I      INDX2P
          ISZ I      INDX3P
          ISZ I      INDX4P
          ISZ I      INDX5P
          ISZ I      CONT0P
          SKP
          ISZ        INDEX
          JMP I      INDEX
INDX1P,INDEX1
INDX2P,INDEX2
INDX3P,INDEX3
INDX4P,INDEX4
INDX5P,INDEX5
CONT0P,COUNT0
COUNT1,0
M4,       0-4
HOLD,0
TEMP,0
PRINTP,   PRINT1
MRBOUT,   0-377
STR7P,    START+7
MSK17,    0017
SPTBLP,   SPCTBL-1
OUTP,     OUT
INPUT4,    0
          TAD        M4
          DCA        COUNT1
          DCA        HOLD
          KSF
          JMP        .-1
          KRB
          JMS I      PRINTP
          DCA        TEMP
          TAD        TEMP
          TAD        MRBOUT
          SNA CLA
          JMP I      STR7P
          TAD        TEMP
          AND        MSK17
          TAD        HOLD
          ISZ        COUNT1
          JMP        .+6
          DCA        HOLD
          TAD I      SPTBLP
          JMS I      OUTP
          TAD        HOLD
          JMP I      INPUT4
          CLL RAL
          RTL
          DCA        HOLD
          JMP        INPUT4+4
T1,0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
T2,0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
T3,0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
T4,0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
T5,0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
PRINT1,   0
          NOP
          TLS
          TSF
          JMP        .-1
          JMP I      PRINT1
PRINT0,   0
          JMS        PRINT1
          CLA
          JMP I      PRINT0
OUT,      0
          DCA        INDEXC
          TAD I      INDEXC
          SNA
          JMP        OUT+10
          JMS        PRINT0
          ISZ        INDEXC
          JMP        OUT+2
          CLA CLL
          TAD        INST1A
          DCA        OUT+4
          TAD        SPCTBL-1
          JMP        OUT+1
          TAD        INST2A
          DCA        OUT+4
          CLL
          JMP I      OUT
INST1A,   JMP        OUT+15
INST2A,    JMP        OUT+10
INDEXC,    0
OUT1B,    0
          TAD        CONST5
          JMS        PRINT0
          TAD        SPCTBL-1
          JMS       OUT
          JMP I      OUT1B
CONST5,   0260
OUT4,     0
          DCA        PTEM
          TAD        CONST4
          DCA        DCN
          TAD        PTEM
          CLL RAL
PNU2,     RAL
          RTL
          DCA        PTEM
          TAD        PTEM
          AND        PCON
          TAD        CONST5
          JMS        PRINT0
          TAD        PTEM
          ISZ        DCN
          JMP        PNU2
          CLA
          TAD        SPCTBL-1
          JMS        OUT
          JMP I      OUT4
DCN,      0
PTEM,     0
CONST4,   7774
PCON,     0007
TYPCR,    0
          TAD        CARRTN
          JMS        PRINT0
          TAD        LINFED
          JMS        PRINT0
           CLL
          JMP I      TYPCR
CARRTN,   0215
LINFED,   0212
          .+1
JMPTBL,   0312
          0315
          0320
          0000
          .+1
IOTTBL,   0311
          0317
          0324
          0000
          .+1
OPRTBL,   0317
          0320
          0322
          0000
          .+1
JMSTBL,   0312
          0315
          0323
          0000
          .+1
SPCTBL,   0240
          0240
          0000
B2,       TAD I      INSTP
          AND        MSK416
          SZA CLA
          JMP I      B22P
          TAD I      INSTP
          AND        MSK10
          SNA CLA
         JMP I      B22P
          TAD I      INSTP
          DCA I      I2P
          TAD I      INSTP
          AND        MSK17P
          DCA        TRCTMP
          TAD I      INSTP
          AND        MSK400
          SZA CLA
          JMP        .+4
          TAD        TRCTMP
          DCA I      ADDRP
          JMP I      B22P
          TAD I      TRCTMP
          IAC
          JMP        .-4
MSK416,4160
MSK10,0010
MSK17P,0017
MSK400,0400
TRCTMP,0
B1P,      B1
ADDRP,    ADDR
I2P,      I2
B22P,     BACK+22
INSTP,    INST
NOP
BACK,     JMS I      TESTP
          JMS I      TYPCPP
          TAD I      PROCNT
          DCA        INST
          TAD        PROCNT
          JMS I      OUT4P
          TAD        INST
          JMS I      OUT4P
          TAD        INST
          AND        MASK1
          DCA        OPCODE
          TAD        SKIP
          DCA        B7
          TAD        INST
          AND        PAGENO
          SNA CLA
          JMP I      B2PP
          TAD        MASK5
          AND        PROCNT
          DCA        ADDR
          TAD        MASK7
          AND        INST
          TAD        ADDR
          DCA        ADDR
          TAD        INDRCT
          AND I      PROCNT
          SNA CLA
          JMP        .+3
          TAD I      ADDR
          DCA        ADDR
          TAD        OPCODE
          TAD        P4000
          SNA CLA
          JMP        B6
          SZL
          JMP        B5
B4,       TAD        OPCODE
          TAD        BASIC
          DCA        I2
B1,       TAD        L

          RAR
          TAD        ACCUM
I2,        0
          SKP
          ISZ        PROCNT
          ISZ        PROCNT
          DCA        ACCUM
          RAL
          DCA        LINK
          TAD        LINK
          JMS I      OUT1P
          TAD        ACCUM
          JMS I      OUT4P
B7,       0
          JMP        BACK
          TAD        ADDR
          JMS I      OUT4P
          TAD I      ADDR
          JMS I      OUT4P
          JMP        BACK
B5,       TAD        OPCODE
          TAD        P2000
          SNA CLA
          JMP        B8
          SNL
          JMP        B9
          TAD        ADDR
          DCA        PROCNT
          TAD I      JMPP
          JMS I      OUTPP
          TAD        ADDR
          JMS I      OUT4P
          JMP        BACK
B8,       TAD I      IOTP
          JMS I      OUTPP
          TAD        INST
          DCA        I2
          TAD        NOPE
          DCA        B7
          JMP        B1
B9,       TAD I      OPRP
          JMS I      OUTPP
          JMP        .-7
B6,       TAD I      JMSP
          JMS I      OUTPP
          TAD        ADDR
          JMS I      OUT4P
          0
          JMP        .+4
          TAD        NOPE
          DCA        B7
          JMP        B4
          ISZ        PROCNT
          TAD        PROCNT
          DCA I      ADDR
          TAD        ADDR
          IAC
          DCA        PROCNT
          JMP        BACK
PROCNT,0
LINK,0
ACCUM,0
INST,0
MASK1,    7000
OPCODE,0
SKIP,     SKP
PAGENO,   0200
MASK5,    7600
ADDR,0
MASK7,    0177
INDRCT,   0400
P4000,    4000
BASIC,    AND I      ADDR
P2000,    2000
NOPE,     NOP
TESTP,    TEST
JMSP,     JMSTBL-1
OPRP,     OPRTBL-1
IOTP,     IOTTBL-1
OUTPP,    OUT
JMPP,     JMPTBL-1
OUT1P,    OUT1B
B2PP,     B2
OUT4P,   OUT4
TYPCPP,   TYPCR
$
