/PDP-8/E INSTRUCTION TEST 2 MAINDEC-8E-D0BB /COPYRIGHT 1970, 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 / This is reconstructed from the binary and a comparison with 8E-D0BB. / Much of the APT support code has made up labels. vrs July 2020 SKON=6000 /SKIP IF INTERRUPT ON AND TURN INTERRUPT OFF SRQ=6003 /SKIP IF INTERRUPT REQUEST GTF=6004 /GET INTERRUPT FLAGS RTF=6005 /RESTORE INTERRUPT FLAGS AND TURN INTERRUPT ON CAF=6007 /CLEAR ALL FLAGS, AC, LINK, AND ENABLE TTY INTERRUPT F.F. SPF=6040 /SET PRINTER FLAG KIE=6035 /ENABLE TTY INTERRUPT F.F., WHEN AC EQUALS A 1 BSW=7002 /SWAP BYTES IN AC *0 0 /LOC 0 JMP 1 /LOC 1 2 /LOC 2 3 /LOC 3 /CONSTANTS AAND VARIABLES K7777, 7777 K3777, 3777 K5777, 5777 0 /LOC 7 *20 SWR, 0000 /Software switch register OP1, 4000 /4000 - Use HW Switches OP2, 0000 /0400 - Console package active /4000 - APT active? K6777, 6777 K7377, 7377 K7577, 7577 K7677, 7677 K7737, 7737 0000 K7757, 7757 K7767, 7767 K7773, 7773 K7775, 7775 K7776, 7776 K0, 0000 K1777, 1777 K0777, 0777 K0377, 0377 K0177, 0177 K0077, 0077 K0037, 0037 K0017, 0017 K0007, 0007 K0003, 0003 0 K0001, 0001 K4400, 4400 K4577, 4577 K2525, 2525 K6666, 6666 K4444, 4444 K7070, 7070 K0707, 0707 K5252, 5252 K1111, 1111 K5555, 5555 K5200, 5200 K4, 4 APTERR, WAERRO *110 0 *172 K176, 176 /LOC 172 K172, 172 /173 K173, 173 /174 K174, 174 /175 K175, 175 /176 K1234, 1234 /177 *200 JMP I .+1 /GO CHECK FOR APT APTCHK /DCA TEST 1 TP0, 0000 TAD K4400 DCA TP177 SZA HLT /DCA DID NOT CLEAR AC SKP 0 TAD K4400 CIA /AC=-(4400) TAD TP177 SZA HLT /DCA FAILED /AC SHOULD EQUAL ZERO /DCA TEST 2 CLA TAD K4577 DCA TP0 SZA HLT /DCA DID NOT CLEAR AC TAD K4577 CIA TAD TP0 SZA HLT /DCA FAILED /AC SHOULD EQUAL ZERO /DCA TEST 3 CLA TAD K7777 DCA TP0 SZA HLT /DCA DID NOT CLEAR AC TAD TP0 CMA SZA HLT /DCA FAILED /AC SHOULD EQUAL ZERO /DCA TEST 4 CLA TAD K0 DCA TP0 SZA HLT /DCA DID NOT CLEAR AC TAD TP0 SZA /DCA FAILED HLT /AC SHOULD BE ZERO /DCA TEST 5 CLA TAD K2525 DCA TP0 SZA HLT /DCA DID NOT CLEAR AC TAD K2525 CIA TAD TP0 SZA /DCA FAILED HLT /AC SHOULD BE ZERO /DCA TEST 6 CLA TAD K6666 DCA TP0 SZA HLT /DCA DID NOT CLEAR AC TAD K6666 CIA TAD TP0 SZA /DCA FAILED HLT /AC SHOULD BE ZERO /DCA TEST 7 CLA TAD K4444 DCA TP177 SZA HLT /DCA DID NOT CLEAR AC TAD K4444 CIA TAD TP177 SZA /DCA FAILED HLT /AC SHOULD BE ZERO /DCA TEST 8 CLA TAD K7070 DCA TP177 SZA HLT /DCA DID NOT CLEAR AC TAD K7070 CIA TAD TP177 SZA /DCA FAILED HLT /AC SHOULD BE ZERO /DCA TEST 9 CLA TAD K0707 DCA 0 SZA HLT /DCA DID NOT CLEAR AC TAD K0707 CIA TAD 0 SZA /DCA FAILED HLT /AC SHOULD BE ZERO /DCA TEST 10 CLA TAD K5252 DCA 0 SZA HLT /DCA DID NOT CLEAR AC TAD K5252 CIA TAD 0 SZA /DCA FAILED HLT /AC SHOULD BE ZERO /DCA TEST 11 CLA TAD K1111 DCA 0 SZA HLT /DCA DID NOT CLEAR AC TAD K1111 CIA TAD 0 SZA /DCA FAILED HLT /AC SHOULD BE ZERO /DCA TEST 12 CLA TAD K5555 DCA 0 SZA HLT /DCA DID NOT CLEAR AC TAD K5555 CIA TAD 0 SZA /DCA FAILED HLT /AC SHOULD BE ZERO NOP NOP NOP NOP NOP *.+1 TP177, 0 *400 / INDIRECT ADDRESSING TEST 1 CLA TAD I K0177 /OPERAND=1234 CIA TAD K1234 SZA HLT /TAD INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 2 CLA SKP 0 TAD K7777 AND I K0177 /OPERAND=1234 CIA TAD K1234 SZA HLT /AND INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 3 CLA TAD K7777 DCA 0 ISZ I K0 HLT /ISZ FAILED. NO SKIP TAD 0 SZA HLT /ISZ INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 4 CLA TAD I K176 /OPERAND=175 CIA TAD K175 SZA HLT /TAD INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 5 CLA TAD K7777 AND I K176 /OPERAND=175 CIA TAD K175 SZA HLT /AND INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 6 CLA TAD K176 DCA 0 ISZ I K0 SKP HLT /ISZ SKIPPED ILLEGALLY TAD 0 CIA TAD K176 CMA SZA HLT /DCA INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 7 CLA TAD I K172 /OPERAND=176 CIA TAD K176 SZA HLT /TAD INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 8 CLA TAD K7777 AND I K172 /OPERAND=176 CIA TAD K176 SZA HLT /AND INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 9 CLA TAD K172 DCA 0 ISZ I K0 SKP HLT /ISZ SKIPPED ILLEGALLY TAD 0 CIA TAD K172 CMA SZA HLT /ISZ INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 10 CLA TAD I K173 /OPERAND=172 CIA TAD K172 SZA HLT /TAD INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 11 CLA TAD K7777 AND I K173 /OPERAND=172 CIA TAD K172 SZA HLT /AND INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 12 CLA TAD K173 DCA 0 ISZ I K0 SKP HLT /ISZ SKIPPED ILLEGALLY TAD 0 CIA TAD K173 CMA SZA HLT /ISZ INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 13 CLA TAD I K174 /OPERAND=173 CIA TAD K173 SZA HLT /TAD INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 14 CLA TAD K7777 AND I K174 /OPERAND=173 CIA TAD K173 SZA HLT /AND INDIRECT FAILED /AC SHOULD BE ZERO / INDIRECT ADDRESSING TEST 15 CLA TAD K174 DCA 0 ISZ I K0 SKP HLT /ISZ SKIPPED ILLEGALLY TAD 0 CIA TAD K174 CMA SZA HLT /ISZ INDIRECT FAILED /AC SHOULD BE ZERO JMP .+4 NOP NOP NOP NOP *600 /INDIRECT ADDRESSING TEST 16 CLA TAD I K175 /OPERAND=174 CIA TAD K174 SZA HLT /TAD INDIRECT FAILED /AC SHOULD BE ZERO /AUTO INDEX TEST 1 CLA TAD K0 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K7776 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 2 CLA TAD K7776 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K0 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 3 CLA TAD K7775 /CONSTANT TO BE INDEXED DCA 10 DCA I 10 /DO AUTO INDEX TAD 10 TAD K0001 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 4 CLA TAD K7773 /CONSTANT TO BE INDEXED DCA 10 TAD I 10 /DO AUTO INDEX CLA TAD 10 TAD K0003 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 5 CLA TAD K7767 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K0007 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 6 CLA TAD K7757 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K0017 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 7 CLA TAD K7737 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K0037 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 8 CLA TAD K7677 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K0077 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 9 CLA TAD K7577 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K0177 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 10 CLA TAD K7377 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K0377 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 11 CLA TAD K6777 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K0777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 12 CLA TAD K5777 /CONSTANT TO BE INDEXED DCA 10 ISZ I 10 /DO AUTO INDEX NOP TAD 10 TAD K1777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 13 CLA TAD K3777 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K3777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR NOP NOP NOP *1000 /AUTO INDEX TEST 14 CLA TAD K7777 /CONSTANT TO BE INDEXED DCA 10 AND I 10 /DO AUTO INDEX TAD 10 TAD K7777 /AC SHOULD EQUAL 7777 CMA SKP 0 SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 15 CLA TAD K0 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K7776 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 16 CLA TAD K7776 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K0 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 17 CLA TAD K7775 /CONSTANT TO BE INDEXED DCA 11 DCA I 11 /DO AUTO INDEX TAD 11 TAD K0001 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 18 CLA TAD K7773 /CONSTANT TO BE INDEXED DCA 11 TAD I 11 /DO AUTO INDEX CLA TAD 11 TAD K0003 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 19 CLA TAD K7767 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K0007 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 20 CLA TAD K7757 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K0017 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 21 CLA TAD K7737 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K0037 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 22 CLA TAD K7677 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K0077 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 23 CLA TAD K7577 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K0177 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 24 CLA TAD K7377 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K0377 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 25 CLA TAD K6777 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K0777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 26 CLA TAD K5777 /CONSTANT TO BE INDEXED DCA 11 ISZ I 11 /DO AUTO INDEX NOP TAD 11 TAD K1777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR NOP JMP .+4 NOP NOP NOP /PAUSE /TEST 2 - TAPE 2 *1200 /AUTO INDEX TEST 27 CLA TAD K3777 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K3777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 28 CLA TAD K7777 /CONSTANT TO BE INDEXED DCA 11 AND I 11 /DO AUTO INDEX TAD 11 TAD K7777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 29 CLA TAD K0 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K7776 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 30 CLA TAD K7776 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K0 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 31 CLA TAD K7775 /CONSTANT TO BE INDEXED DCA 12 DCA I 12 /DO AUTO INDEX TAD 12 TAD K0001 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 32 CLA TAD K7773 /CONSTANT TO BE INDEXED DCA 12 TAD I 12 /DO AUTO INDEX CLA TAD 12 TAD K0003 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 33 CLA TAD K7767 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K0007 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 34 CLA TAD K7757 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K0017 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 35 CLA TAD K7737 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K0037 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 36 CLA TAD K7677 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K0077 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 37 CLA TAD K7577 DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K0177 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 38 CLA TAD K7377 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX 1012 TAD K0377 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 39 CLA TAD K6777 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K0777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 40 CLA TAD K5777 /CONSTANT TO BE INDEXED DCA 12 ISZ I 12 /DO AUTO INDEX NOP TAD 12 TAD K1777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR *1400 /AUTO INDEX TEST 41 CLA TAD K3777 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K3777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 42 CLA TAD K7777 /CONSTANT TO BE INDEXED DCA 12 AND I 12 /DO AUTO INDEX TAD 12 TAD K7777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 43 CLA TAD K0 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K7776 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 44 CLA TAD K7776 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K0 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 45 CLA TAD K7775 /CONSTANT TO BE INDEXED DCA 13 DCA I 13 /DO AUTO INDEX TAD 13 TAD K0001 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 46 CLA TAD K7773 /CONSTANT TO BE INDEXED DCA 13 TAD I 13 /DO AUTO INDEX CLA TAD 13 TAD K0003 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 47 CLA TAD K7767 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K0007 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 48 CLA TAD K7757 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K0017 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 49 CLA TAD K7737 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K0037 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 50 CLA TAD K7677 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K0077 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 51 CLA TAD K7577 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K0177 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 52 CLA TAD K7377 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K0377 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 53 CLA TAD K6777 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K0777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 54 CLA TAD K5777 /CONSTANT TO BE INDEXED DCA 13 ISZ I 13 /DO AUTO INDEX NOP TAD 13 TAD K1777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR *1600 /AUTO INDEX TEST 55 CLA TAD K3777 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K3777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 56 CLA TAD K7777 /CONSTANT TO BE INDEXED DCA 13 AND I 13 /DO AUTO INDEX TAD 13 TAD K7777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 57 CLA TAD K0 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K7776 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 58 CLA TAD K7776 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K0 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 59 CLA TAD K7775 /CONSTANT TO BE INDEXED DCA 14 DCA I 14 /DO AUTO INDEX TAD 14 TAD K0001 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 60 CLA TAD K7773 /CONSTANT TO BE INDEXED DCA 14 TAD I 14 /DO AUTO INDEX CLA TAD 14 TAD K0003 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 61 CLA TAD K7767 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K0007 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 62 CLA TAD K7757 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K0017 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 63 CLA TAD K7737 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K0037 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 64 CLA TAD K7677 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K0077 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 65 CLA TAD K7577 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K0177 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 66 CLA TAD K7377 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K0377 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 67 CLA TAD K6777 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K0777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 68 CLA TAD K5777 /CONSTANT TO BE INDEXED DCA 14 ISZ I 14 /DO AUTO INDEX NOP TAD 14 TAD K1777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR *2000 /AUTO INDEX TEST 69 CLA TAD K3777 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K3777 /AC SHOULD EQUAL 7777 CMA SKP 0 SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 70 CLA TAD K7777 /CONSTANT TO BE INDEXED DCA 14 AND I 14 /DO AUTO INDEX TAD 14 TAD K7777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 71 CLA TAD K0 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K7776 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 72 CLA TAD K7776 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K0 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 73 CLA TAD K7775 /CONSTANT TO BE INDEXED DCA 15 DCA I 15 /DO AUTO INDEX TAD 15 TAD K0001 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 74 CLA TAD K7773 /CONSTANT TO BE INDEXED DCA 15 TAD I 15 /DO AUTO INDEX CLA TAD 15 TAD K0003 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 75 CLA TAD K7767 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K0007 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 76 CLA TAD K7757 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K0017 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 77 CLA TAD K7737 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K0037 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 78 CLA TAD K7677 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K0077 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 79 CLA TAD K7577 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K0177 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 80 CLA TAD K7377 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K0377 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 81 CLA TAD K6777 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K0777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR NOP NOP *.+1 NOP NOP NOP *2200 /AUTO INDEX TEST 82 CLA TAD K5777 /CONSTANT TO BE INDEXED DCA 15 ISZ I 15 /DO AUTO INDEX NOP TAD 15 TAD K1777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 83 CLA TAD K3777 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K3777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 84 CLA TAD K7777 /CONSTANT TO BE INDEXED DCA 15 AND I 15 /DO AUTO INDEX TAD 15 TAD K7777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 85 CLA TAD K0 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K7776 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 86 CLA TAD K7776 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K0 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 87 CLA TAD K7775 /CONSTANT TO BE INDEXED DCA 16 DCA I 16 /DO AUTO INDEX TAD 16 TAD K0001 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 88 CLA TAD K7773 /CONSTANT TO BE INDEXED DCA 16 TAD I 16 /DO AUTO INDEX CLA TAD 16 TAD K0003 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 89 CLA TAD K7767 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K0007 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 90 CLA TAD K7757 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K0017 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 91 CLA TAD K7737 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K0037 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 92 CLA TAD K7677 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K0077 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 93 CLA TAD K7577 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K0177 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 94 CLA TAD K7377 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K0377 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 95 CLA TAD K6777 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K0777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /PAUSE /TEST 2 - TAPE 3 *2400 /AUTO INDEX TEST 96 CLA TAD K5777 /CONSTANT TO BE INDEXED DCA 16 ISZ I 16 /DO AUTO INDEX NOP TAD 16 TAD K1777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 97 CLA TAD K3777 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K3777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 98 CLA TAD K7777 /CONSTANT TO BE INDEXED DCA 16 AND I 16 /DO AUTO INDEX TAD 16 TAD K7777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 99 CLA TAD K0 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K7776 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 100 CLA TAD K7776 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K0 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 101 CLA TAD K7775 /CONSTANT TO BE INDEXED DCA 17 DCA I 17 /DO AUTO INDEX TAD 17 TAD K0001 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 102 CLA TAD K7773 /CONSTANT TO BE INDEXED DCA 17 TAD I 17 /DO AUTO INDEX CLA TAD 17 TAD K0003 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 103 CLA TAD K7767 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K0007 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 104 CLA TAD K7757 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K0017 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 105 CLA TAD K7737 /CONSTANT TO BE INDEXED 3017 AND I 17 /DO AUTO INDEX TAD 17 TAD K0037 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 106 CLA TAD K7677 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K0077 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 107 CLA TAD K7577 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K0177 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 108 CLA TAD K7377 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K0377 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 109 CLA TAD K6777 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K0777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR *2600 /AUTO INDEX TEST 110 CLA TAD K5777 /CONSTANT TO BE INDEXED DCA 17 ISZ I 17 /DO AUTO INDEX NOP TAD 17 TAD K1777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 111 CLA TAD K3777 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K3777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 112 CLA TAD K7777 /CONSTANT TO BE INDEXED DCA 17 AND I 17 /DO AUTO INDEX TAD 17 TAD K7777 /AC SHOULD EQUAL 7777 CMA SZA /AC SHOULD BE ZERO HLT /AUTO INDEX ERROR /AUTO INDEX TEST 113 JMP .+2 HLT /JMP FAILED SKP /JMP WORKED (A LITTLE) 2644 TAD .-1 DCA 10 JMP I 10 /TEST INSTRUCTION HLT /JMP INDIRECT FAILED HLT /LOCATION 2610. NO INDEX /IN DEFER STATE. /AUTO INDEX TEST 114 JMS .+2 HLT /JMS FAILED HLT /JMS FAILED TAD .-1 SKP .-4 CIA TAD .-2 SZA HLT /WRONG ADDRESS STORED /DURING JMS SKP /JMS WORKS (I GUESS) .+4 TAD .-1 DCA 10 JMS I 10 /TEST INSTRUCTION HLT /JMS FAILED HLT /JMS FAILED TAD .-1 SKP .-4 CIA TAD .-2 SZA HLT /WRONG ADDRESS STORED DURING JMS JMS I (BELLCK /POSSIBLY RING THE BELL JMP I .+1 PIOTST /INTERRUPT TEST 1 INTEST, JMS I .+1 STR SPF /SET PRINTER FLAG TSF HLT /SPF OR TSF FAILED CLA TAD BACK1 /FLAG IS ON DCA 2 ION NOP /GO TO LOC 0000 HLT /NO INTERRUPT OUT1, .-1 BACK1, .+1 SZA /RETURN FROM LOC 1 HLT /AC SHOULD BE 0 TAD 0 CIA TAD OUT1 SZA CLA HLT /INTERRUPT ERRROR /WRONG ADDRESS STORED /INTERRUPT TEST 2 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK3 DCA 2 ION TAD K7777 HLT /NO INTERRUPT OUT3, .-1 BACK3, .+1 CMA /RETURN FROM LOC1 SZA HLT /CONFIDENCE CHECK /AC SHOULD BE 0 TAD 0 CIA TAD OUT3 SZA CLA /INTERRUPT ERROR HLT /WRONG ADDRESS STORED /INTERRUPT TEST 3 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK2 DCA 2 TAD K7777 ION AND K7777 HLT /NO INTERRUPT OUT2, .-1 BACK2, .+1 CMA /RETURN FROM LOC1 SZA HLT /CONFIDENCE CHECK /AC SHOULD BE 0 TAD 0 CIA TAD OUT2 SZA CLA HLT /INTERRUPT ERROR /WRONG ADDRESS STORED JMP I .+1 3000 *3000 /INTERRUPT TEST 4 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK4 DCA 2 TAD K7777 ION DCA 3 HLT /NO INTERRUPT OUT4, .-1 BACK4, .+1 SZA /RETURN FROM LOC1 HLT /CONFIDENCE CHECK /AC SHOULD BE ZERO TAD 3 CMA SZA HLT /DCA PRIOR TO INTERRUPT /FAILED DCA 3 TAD 0 CIA TAD OUT4 SZA CLA HLT /INTERRUPT ERROR /WRONG ADDRESS STORED /INTERRUPT TEST 5 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK5 DCA 2 TAD K7776 DCA 3 ION ISZ 3 HLT /NO INTERRUPT OUT5, .-1 BACK5, .+1 SZA /RETURN FROM LOC1 HLT /CONFIDENCE CHECK /AC SHOULD BE ZERO TAD 3 CMA SZA HLT /ISZ PRIOR TO /INTERRUPT FAILED DCA 3 TAD 0 CIA TAD OUT5 SZA CLA HLT /INTERRUPT ERROR /INTERRUPT TEST 6 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK6 DCA 2 TAD K7777 DCA 3 ION ISZ 3 HLT /NO INTERRUPT HLT OUT6, .-1 BACK6, .+1 SZA /RETURN FROM LOC1 HLT /CONFIDENCE CHECK /AC SHOULD BE ZERO TAD 3 SZA HLT /ISZ PRIOR TO /INTERRUPT FAILED DCA 3 TAD 0 CIA TAD OUT6 SZA CLA HLT /INTERRUPT ERROR /WRONG ADDRESS STORED /INTERRUPT TEST 7 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK7 DCA 2 ION JMP . HLT /NO INTERRUPT OUT7, 3121 BACK7, 3125 SZA /RETURN FROM LOC1 HLT /CONFIDENCE CHECK /AC SHOULD BE ZERO TAD 0 CIA TAD OUT7 SZA CLA HLT /INTERRUPT ERROR /WRONG ADDRESS STORED /INTERRUPT TEST 8 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK8 DCA 2 ION JMS 3 HLT /NO INTERRUPT OUT8, .-1 BACK8, .+1 SZA /RETURN FROM LOC1 HLT /CONFIDENCE CHECK /AC SHOULD BE ZERO TAD 3 CIA TAD OUT8 SZA HLT /JMS ERROR PRIOR /TO INTERRUPT WRONG /ADDRESS STORED TAD 0 CIA TAD K4 SZA CLA HLT /INTERRUPT ERROR /WRONG ADDRESS STORED JMP I .+1 3200 *3200 /INTERRUPT TEST 9 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK9 DCA 2 TAD K7777 ION CLA HLT /NO INTERRUPT OUT9, .-1 BACK9, .+1 SZA /RETURN FROM LOC 1 HLT /CLA PRIOR TO INTERRUPT /FAILED TAD 0 CIA TAD OUT9 SZA CLA HLT /INTERRUPT FAILED /WRONG ADDRESS STORED /INTERRUPT TEST 10 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK10 DCA 2 ION TSF HLT /SPF FAILED TO SET PRINTER FLAG HLT OUT10, .-1 BACK10, .+1 SZA /RETURN FROM LOC 1 HLT /CONFIDENCE CHECK /AC SHOULD BE ZERO TAD 0 CIA TAD OUT10 SZA CLA HLT /INTERRUPT ERROR /WRONG ADDRESS STORED /INTERRUPT TEST 11 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA /FLAG IS ON TAD BACK11 DCA 2 ION IOF ION IOF ION IOF ION IOF ION IOF ION IOF ION IOF ION IOF ION IOF ION IOF ION IOF ION IOF ION IOF TSF HLT /WHAT HAPPENED TO MY FLAG SKP BACK11, .+2 SKP HLT /INTERRUPT OCCURRED DURING /ION-IOF SEQUENCE /SEE LOCATION 0000 /INTERRUPT TEST 12 TCF /CLEAR FLAG CLA TAD BACK12 DCA 2 ION NOP NOP NOP NOP SKP BACK12, .+2 SKP HLT /INTERRUPT WITH NO /FLAG IOF /INTERRUPT TEST 13 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA TAD BAC13 DCA 2 ION SKP HLT HLT /NO INTERRUPT OUTT13, .-1 BAC13, .+1 SZA HLT TAD 0 CIA TAD OUTT13 SZA CLA HLT /INTERRUPT ERROR /WRONG ADDRESS STORED /INTERRUPT TEST 14 SPF /SET PRINTER FLAG TSF HLT /SPF FAILED TO SET PRINTER FLAG CLA TAD BAC14 DCA 2 ION JMP I .+1 .+1 HLT /NO INTERRUPT OUTT14, .-1 BAC14, .+1 SZA HLT TAD 0 CIA TAD OUTT14 SZA CLA HLT /INTERRUPT ERROR /WRONG ADDRESS STORED *3400 /INTERRUPT TEST 15 CAF /CLEAR THE WORLD TAD BAC15 /GET RETURN INTERRUPT ADDRESS DCA 2 /STORE IT IN ADDRESS 2 ION /INTERRUPT ON NOP / CAF /CLEAR THE WORLD SPF /SET PRINTER FLAG SKON JMP .+3 HLT /CAF FAILED TO CLEAR ION BAC15, .-1 CAF JMP I .+1 IAIT1 PAGE /ILLEGAL AUTO INDEX TEST1 IAIT1, CLA JMP I .+1 AND1 K4010, 4010 *4000 AND1, AND I 4010 /TEST INSTRUCTION JMP I .+1 RET1 *K4010+1 RET1, TAD I K4010 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 4010 ALTERED (4010) CLA DCA I K4010 /ILLEGAL AUTO INDEX TEST 2 CLA JMP I .+1 AND2 K2010, 2010 *2170 JMP I .+1 2200 *.+1 AND2, AND I 2010 /TEST INSTRUCTION JMP I .+1 RET2 *K2010+1 RET2, TAD I K2010 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 2010 ALTERED (2010) JMP I .+1 AITST3 /ILLEGAL AUTO INDEX TEST 3 AITST3, CLA JMP I .+1 AND3 K1010, 1010 *1171 JMP I .+1 1200 AND3, AND I 1010 /TEST INSTRUCTION JMP I .+1 RET3 *K1010+1 RET3, TAD I K1010 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 1010 ALTERED (1010) CLA DCA I K1010 /ILLEGAL AUTO INDEX TEST 4 AITST4, CLA JMP I .+1 AND4 K410, 410 *573 JMP I .+1 600 AND4, AND I 410 /TEST INSTRUCTION JMP I .+1 RET4 *K410+1 RET4, TAD I K410 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 410 ALTERED (410) CLA DCA I K410 /ILLEGAL AUTO INDEX TEST 5 CLA JMP I .+1 AND5 K210, 0210 *371 JMP I .+1 400 AND5, AND I 210 /TEST INSTRUCTION JMP I .+1 RET5 *K210+1 RET5, TAD I K210 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 210 ALTERED (210) CLA DCA I K210 /ILLEGAL AUTO INDEX TEST 6 CLA JMP I .+1 AND6 K110, 0110 *130 AND6, AND I 110 /TEST INSTRUCTION JMP I .+1 RET6 *K110+1 RET6, TAD I K110 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 110 ALTERED (110) CLA DCA 110 /ILLEGAL AUTO INDEX TEST 7 CLA JMP I .+1 AND7 K50, 50 *124 AND7, AND I 50 /TEST INSTRUCTION JMP I .+1 RET7 *K50+1 RET7, TAD I K50 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 50 ALTERED (50) CLA DCA 50 /ILLEGAL AUTO INDEX TEST 8 CLA JMP I .+1 AND8 K30, 0030 *120 AND8, AND I 30 /TEST INSTRUCTION JMP I .+1 RET8 *K30+1 RET8, TAD I K30 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 30 ALTERED (30) CLA DCA 30 /ILLEGAL AUTO INDEX TEST 9 CLA DCA 0 JMP I .+1 IAITS9, AND9 *74 AND9, AND I 0 /TEST INSTRUCTION JMP I .+1 RET9 *IAITS9+1 RET9, TAD I K0 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 0 ALTERED (0) CLA DCA 0 /ILLEGAL AUTO INDEX TEST 10 CLA JMP I .+1 IAIT10, AND10 *70 AND10, AND I 7 /TEST INSTRUCTION JMP I .+1 RET10 *IAIT10+1 RET10, TAD I K0007 SZA HLT /ERROR, AC SHOULD BE ZERO /AND I 7 ALTERED (7) CLA DCA 7 /CHECK FOR TTY BELL CKAPT, CLA TAD OP2 SMA CLA /APT?? JMP CKBELL /NO, CHECK FOR BELL ISZ APTCNT /YES, TIME UP? JMP I (TP0+1 /NO, RESUME JMS I (APTTMR /YES, SET UP CRASH TIMEOUT CLA TAD APTICT /RESET COUNTER DCA APTCNT JMP I (TP0+1 /RESUME APTICT, -775 APTCNT, -775 CKBELL, TAD BLCNT IAC DCA BLCNT TAD BLCNT TAD RNGCNT SZA CLA JMP I (TP0+1 /RESUME DCA BLCNT TAD BELCOD TLS TSF JMP .-1 JMP I .+1 K200, 200 BLCNT, 0000 RNGCNT, -3016 BELCOD, 207 *4010 0 STR, 0 TAD JMPIX DCA 1 DCA 2 DCA 3 ISZ STR JMP I STR JMPIX, 5402 /PROCESSOR IOT TESTS PAGE PIOTST, CLA CLL JMS I .+1 STR /PROCESSOR IOT TEST 1 CLA CMA CLL CML CAF /CLEAR ALL FLAGS, AC, AND LINK SKP HLT /CAF SHOULD NOT SKIP SNL SZA HLT /CAF FAILED, AC AND LINK SHOULD BE ZERO /PROCESSOR IOT TEST 2 SPF /SET PRINTER FLAG SKP HLT /SPF SHOULD NOT SKIP TSF HLT /SPF OR TSF FAILED CAF /CLEAR ALL FLAGS, AC, AND LINK TSF SKP HLT /CAF FAILED, TTY FLAG SHOULD BE CLEAR SRQ /SKIP IF INTERRUP REQUEST SKP HLT /SRQ FAILED OR SPURIOUS INTERRUPT OCCURRED /PROCESSOR IOT TEST 3 CAF /CLEAR ALL FLAGS, AC, LINK, AND ENABLE TTY INTERRUPT SPF /SET PRINTER FLAG SRQ /SKIP IF INTERRUPT REQUEST HLT /SRQ FAILED OR CAF FAILED TO ENABLE TTY INTERRUPT /PROCESSOR IOT TEST 4 CAF /CLEAR ALL FLAGS, AC, AND LINK KIE /DISABLE TTY INTERRUPT. (AC EQUALS ZERO) SKP HLT /KIE SHOULD NOT SKIP SPF /SET PRINTER FLAG TSF HLT /SPF OR TSF FAILED SRQ /SKIP IF INTERRUPT REQUEST SKP HLT /KIE FAILED TO DISABLE TTY INTERRUPT OR SRQ FAILED /PROCESSOR IOT TEST 5 CLA IAC KIE /ENABLE TTY INTERRUPT (AC11 IS SET) SPF /SET PRINTER FLAG TSF HLT /SPF OR TSF FAILED SRQ /SKIP IF INTERRUPT REQUEST HLT /KIE FAILED TO ENABLE TTY INTERRUPT OR SRQ FAILED /PROCESSOR IOT TEST 6 CAF /CLEAR ALL FLAGS, AC, AND LINK TAD BACK13 DCA 2 ION /TURN INTERRUPT ON SKP HLT /ION SHOULD NOT SKIP SKON /SKIP IF INTERRUPT ON AND TURN INTERRUPT OFF HLT /SKON FAILED TO SKIP OR ION FAILED SKON /SKIP IF INTERRUPT ON AND TURN INTERRUPT OFF SKP HLT /SKON FAILED JMP .+3 BACK13, .+1 HLT /ILLEGAL INTERRUPT OCCURRED /PROCESSOR IOT TEST 7 CAF /CLEAR ALL FLAGS, AC, AND LINK TAD BACK14 DCA 2 ION /TURN INTERRUPTS ON IOF /TURN INTERRUPTS OFF SKP HLT /IOF SHOULD NOT SKIP SKON /SKIP IF INTERRUPT ON AND TURN INTERRUPT OFF SKP HLT /IOF FAILED JMP .+3 BACK14, .+1 HLT /ILLEGAL INTERRUPT OCCURRED /PROCESSOR IOT TEST 8 CAF /CLEAR ALL FLAGS, AC, AND LINK CMA GTF /GET INTERRUPT FLAG SKP HLT /GTF SHOULD NOT SKIP AND K5200 /MASK SZA HLT /GTF FAILED. (AC SHOULD EQUAL 0000) /PROCESSOR IOT TEST 9 CLA CMA CLL CML /SET LINK AND AC GTF /GET INTERRUPT FLAGS (AC SHOULD EQUAL 4000) SNL HLT /LINK SHOULD BE 1 AND K5200 /MASK CLL RAL /AC SHOULD EQUAL ZERO SZL SZA HLT /GTF FAILED /PROCESSOR IOT TEST 10 CAF /CLEAR ALL FLAGS. (AC, LINK, AND ENABLE TTY INTERRUPT) SPF /SET PRINTER FLAG GTF /GET INTERRUPT FLAGS. (AC SHOULD EQUAL 1000) AND K5200 /MASK RTL /PUT INTERRUPT BUS- (AC SHOULD EQUAL 4000) RAL /FLAG INTO LINK. (AC SHOULD EQUAL ZERO) SZL SZA HLT /GTF FAILED TO GET INTERRUPT BUS FLAG /PROCESSOR IOT TEST 11 CAF /CLEAR ALL FLAGS TAD BACK15 DCA 2 ION /TURN INTERRUPT ON GTF /GET INTERRUPT FLAGS. (AC SHOULD EQUAL 0200) AND K5200 /MASK SKON /SKIP IF INTERRUPT ON AND TURN INTERRUPT OFF HLT /GTF CLEARED INTERRUPT (ION) CLL BSW /PUT INTERRUPT BUS- (AC SHOULD EQUAL 0002) RTR /FLAG INTO LINK. (AC SHOULD EQUAL ZERO) SZL SZA HLT /GTF FAILED TO GET INTERRUPT FLAG JMP .+3 BACK15, .+1 HLT /ILLEGAL INTERRUPT OCCURRED /PROCESSOR IOT TEST 12 CLA CLL CML TAD BACK16 DCA 2 RTF /RESTORE ALL FLAGS SKP HLT /RTF SHOULD NOT SKIP SNL /LINK SHOULD BE ZERO SZA /AC EQUALS ZERO HLT /RTF FAILED, LINK AND AC SHOULD BE ZERO SKON /SKIP IF INTERRUPT ON AND TURN INTERRUPT OFF HLT /RTF FAILED TO TURN INTERRUPT ON JMP I .+1 PTST14 BACK16, .+1 HLT PAGE /PROCESSOR IOT TEST 13 PTST14, CAF TAD BACK17 DCA 2 CLA CLL CML RAR /AC EQUALS 4000 RTF /RESTORE ALL FLAGS SNL HLT /RTF FAILED TO RESTORE LINK SKON /SKIP IF INTERRUPT ON AND TURN INTERRUPT OFF HLT /RTF FAILED TO TURN INTERRUPT ON CAF /CLEAR ALL FLAGS. AC, LINK, AND ENABLE TTY INTERRUPT CLA CLL JMP I .+1 /GO TO INTERRUPT TESTS INTEST BACK17, .+1 HLT /ILLEGAL INTERRUPT OCCURRED / / The following disassembly by vrs, July 2020. / / This routine walks the tests, replacing all the "HLT" with / "JMS I APTERR". Location APTERR points to WAERRO. / *4600 APTCHK, CLA TAD APTDNE /SET NON-ZERO TO DISABLE REPEAT SZA CLA JMP APTRET /APT DISABLED CMA /SET NO-REPEAT FLAG DCA APTDNE TAD OP2 /TEST FOR APT SMA CLA /WANT APT RUN? JMP APTRET /NO, NORMAL RUN TAD APTBEG /YES, START LOOKING AT 0203 DCA 10 APTNXT, TAD I 10 /LOOK AT A WORD CIA TAD KHLT /IS IT A HLT? SNA CLA JMP APTFIX /YES, FIX IT APTETS, TAD 10 /REACHED THE END? CIA TAD APTEND SZA CLA JMP APTNXT /NO, KEEP GOING JMS APTTMR /YES, SET CRASH TIMEOUT JMP APTRET APTFIX, CMA /BACK UP AUTO INDEX TAD 10 DCA 10 TAD APTJMS /GET OUR JMS, AND DCA I 10 /CLOBBER THE HLT JMP APTETS /KEEP LOOKING APTBEG, 0203 APTEND, 4417 KHLT, HLT APTJMS, JMS I APTERR /CALL ERROR REPORT ROUNTE APTDNE, 0000 APTRET, CLA JMP I (TP0+1 / / This routine sets up the APT crash timer. / I have no idea what the delay loop is for. / APTTMR, 0 IOF CLA TAD OUTERI /INITIALIZE OUTER DELAY DCA OUTERD APTDLY, TAD INNERI /INITIALIZE INNER DELAY DCA INNERD ISZ INNERD /INNER DELAY LOOP JMP .-1 ISZ OUTERD /OUTER DELAY LOOP JMP APTDLY RIF /GET CURRENT INSTRUCTION FIELD TAD (CDF DCA .+1 CDF 00 /CDF TO CURRENT INSTRUCTION FIELD CIF 70 /FIELD 7, LOCATION OF UV PROM JMS I (6500 /76500, SETS UP HALT TIMEOUT JMP I APTTMR OUTERI, 7771 INNERI, 0 OUTERD, 0 INNERD, 0 / /THIS ROUTINE WILL NOTIFY APT OF AN ERROR AND SEND THE ERROR /PC TO THE APT SYSTEM / WAERRO, 0 CLA RIF /GET CURRENT INSTRUCTION FIELD TAD (CDF DCA .+3 CMA TAD WAERRO /GET PC CDF 00 /REPLACED WITH CURRENT INSTRUCTION FIELD CIF 70 /FIELD OF UVPROM JMP I (6520 /NOTIFY APT OF ERROR / / THIS DECIDES WHETHER THE USER WANTS TO HEAR THE BELL OR NOT. / BELLCK, 0 CLA TAD OP2 /USING APT? SMA CLA JMP I BELLCK /NOPE, RETURN TAD OP1 /YES, CHECK FOR HW SWITCHES SPA CLA JMP .+3 /HW SWITCHES, GO READ THEM TAD SWR /GET SW SWITCHES SKP CLA OSR /GET HW SWITCHES CLL RAR /CHECK SW11 SNL CLA JMP I BELLCK /NO SET, NEVER MIND JMP I (CKAPT /SET, GO POSSIBLY RING THE BELL $