/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 $