/8A CPU TEST 08-DJKKA-B /PROGRAMMER: MIKE WARE /COPYRIGHT C 1974,1975 DIGITAL EQUIPMENT CORP. /******************************************************************************* /ASSEMBLY INSTRUCTIONS: /1. IF ASSEMBLING 2K VERSION, INSERT THE FOLLOWING: TWOK=0 /2. IF ASSEMBLING THE FIRST 1K SEGMENT, INSERT THE FOLLOWING: ONEKP1=0 /3. IF ASSEMBLING THE SECOND 1K SEGMENT, INSERT THE FOLLOWING: ONEKP2=0 / ONE AND ONLY ONE OF THE ABOVE THREE DEFINIYIONS MUST 8E INSERTED IN / THIS SOURCE BEFORE ANY OTHER ASSEMBLY CODE. /4. IF ASSEMBLING ANY OF THE ABOVE 3 VERSIONS FOR USE ON THE ACT-8/A LINE, / INSERT ONE OF THE ABOVE DEFINITIONS ANO THE FOLLOWING: ACT8A=0 /5. IF ASSEMBLING THE ACT-8/E VERSION, DEFINE ACT8E=0 ANO ACT8A=0, / THE ACT-8/E VERSION MUST BE A 2K VERSION, 1K VERSIONS AHE NOT / SUPPORTED ON THE ACT-8/E LINE. /******************************************************************************* TWOK=0 /INSTRUCTION EQUALITIES HLT=7402 /HALT BSW=7002 /BYTE SWAP MUL=7421 /AC TO MQ, 0 TO AC MQA=750l /MQ + AC TO AC CAM=7621 /CLEAR AC ANO MQ SWP=7521 /SWAP AC AND MQ AOL=7701 /MQ TO AC RDF=6214 /READ DATA FIELD RIF=6224 /READ INSTRUCTION FIELD SKON=6000 /SKIP IF INTERRUPT ON, TURN INTERRUPT OFF ION=6001 /TURN INTERRUPT ON I0F=6002 /TURN INTERRUPT OFF SRQ=6003 /SKIP ON INTERRUPT REQUEST GTF=6004 /GET FLAGS RTF=6005 /RESTORE FLAGS SGT=6006 /SKIP ON "GREATER THAN" FLAG.NOTE: THE "GT" FLAG /IS NOT IMPLEMENTED IN THE PDP-8/A CAF=6007 /CLEAR ALL FLAGS, AND CLEAR AC AND LINK SPL=6102 /SKIP ON POWER LOW /******************************************************************************* /XOR INSTRUCTIONS XRON=6170 /TURN XOR ON SKXR=6171 /SKIP ON XOR ERROR 1 XRC1=6172 /TURN OFF XOR INTERRUPT STIP=6173 /SKIP IF MUT ON AND FIRST XMON DONE XRS1=6174 /SET XOR INTERRUPT ENABLE SXRC=6175 /SKIP ON XOR ERROR 2 XRTO=6176 /SET TIME OUT FLOP /******************************************************************************* /8-A I/O SIMULATOR INSTRUCTIONS CNTENA=6140 /START TP1 COUNTER, ENABLE STATUS READINC VIA 6141 IF BIT 11=1 READA=6i41 /READ REGISTER A, OR DATA BREAK DATA, OR STATUS. STROB=6142 /GATE C LINES AS DEFINED BT REGISTER B TO CPU SETBK=6143 /SET BREAK REIJUtST, (DELAY MUST ALSO TIME OUT BEFORE BREAK OCCURSl SKPOFV=6144 /SKIP IF OVERFLOW F/E SET IN SIMULATOR, CLEARS SIMULATOR INCERRUPT CLRAL=6145 /CLEAR SIHUIATOR LOGIC, LOADA=6146 /LOAD REGISTER A WITH AC, LOADB=6147 /LOAD REGISTER B WITH AC, /******************************************************************************* FIELD 0 *0000 S00000, 7402 D00001, 6244 D00002, 5023 D00003, 7777 S00004, 0000 D00005, 0000 D00006, 0000 P00007, S00000 S00010, 0000 AND S00000 D00012=0012 *0013 P00013, S00000 P00014, S00000 P00015, S00000 AND S00000 D00017, 0000 D00020, 0000 D00021, 0000 D00022, 0000 P00023, D03074 CDF 0 L00025, TAD I P00040 P00026, D03000 6102 P00030, D07410 JMP P00125 6244 6144 D00034, 7000 P00035, D06175 D00036, 7402 D00037, 5166 P00040, S00000 D00041, 0001 P00042, D00002 P00043, S00004 P00044, S00010 D00045, 0020 P00046, P00040 P00047, D00077 D00050, 0100 P00051, L00200 L00052, AND I S00000 L00053, TAD D00111 P00054, D01777 D00055, 2000 P00056, D02525 ISZ I P00152 D00060, 3333 P00061, P04000 D00062, 4444 5225 D00064, 5252 D00065, 5253 D00066, 6666 D00067, 7700 P00070, D07721 D00071, 7770 D00072, 7777 D00073, 5142 D00074, 0000 D00075, 0000 P00076, S00000 D00077, 0000 D00100, 0000 D00101, 0000 P00102, S00000 P00103, S00000 D00104, 0000 D00105, 0000 D00106, 0000 D00107, 0000 D00110, 0000 D00111, 0000 P00112, S00000 P00113, D00114 D00114, 2526 P00115, P00116 P00116, S00000 D00117, 0000 D00120, 1310 D00121, 1324 P00122, L01372 P00123, L01577 P00124, L01745 P00125, D06004 P00126, D03536 P00127, D07521 P00130, D03537 D00131, 1000 DCA I P00140 D00133, 1073 DCA I P00040 D00135, 7402 P00136, D00075 P00137, P00076 P00140, D00077 JMP I P00124 1076 7421 1075 P00145, 6005 7200 1154 7640 5141 P00152, 1074 5477 0100 *0156 S00156, 0000 CLA CLL 6171 SKP JMP L00166 TAD S00156 DCA P00173 JMP I S00156 L00166, 6007 D00167, 7621 6145 ION D00172, 5573 P00173, L00174 L00174, HLT *0177 P00177, D07770 *0200 L00200, CLA SNA SZL HLT CMA ION SNA HLT SZA SKP HLT SMA HLT SPA SKP HLT CML HLT L00222, CLA CLL SNA SZL HLT CMA CMA SZA HLT SPA HLT SMA SKP HLT CLL CMA IAC SZA HLT SNL HLT SZL SKP HLT CLL SNL SKP HLT SZL HLT CML SNL HLT CMA IAC SZL HLT CLA CML CML SZL HLT SZA HLT CML CMA CLA SNL HLT SZA HLT NOP SNL HLT SZA HLT CMA CML NOP SZL HLT SNA HLT D00320, 7000 CLA RAL SNA SZL HLT RTL SNA SZL HLT RAR SNA SZL HLT RTR SNA SZL HLT BSW SNA SZL HLT NOP TAD D00072 SNA HLT SZL HLT TAD D00041 SZA HLT SNL HLT TAD D00041 TAD D00072 SNA SZL HLT TAD P00040 SNA SZL HLT TAD D00072 TAD D00072 SNL HLT IAC CMA *0400 SZA HLT TAD P00056 TAD P00056 TAD P00056 CMA SZA HLT SNL HLT TAD D00064 TAD D00064 TAD D00064 IAC CMA SZA HLT SZL HLT NOP AND D00072 SNA SZL HLT TAD D00072 AND P00040 SNA SZL HLT TAD D00072 AND D00072 CMA SNA SZL HLT TAD P00056 AND D00064 SZA HLT NOP TAD D00041 SNA HLT CLA TAD P00042 SNA HLT CLA TAD P00043 SNA HLT CLA TAD P00044 SNA HLT CLA TAD D00045 SNA HLT CLA TAD P00046 SNA HLT CLA TAD D00050 SNA HLT NOP CLA TAD P00051 SNA HLT CLA TAD L00052 SNA HLT CLA TAD D00131 SNA HLT CLA TAD D00055 SNA HLT CLA TAD P00061 SNA HLT NOP CLA TAD P00056 CLL CML RAR SNL HLT CMA AND D00064 SZA HLT TAD P00056 RAR AND P00056 SNA SNL HLT TAD D00064 RAL SNL HLT CMA AND P00056 SZA HLT TAD D00064 RAL AND D00064 SZA HLT CLL TAD D00062 RTR SZL HLT CMA AND L00053 SZA HLT *0600 D00600, 7000 TAD D00062 RTR AND D00066 SZA HLT TAD L00053 RTL SZL HLT CMA AND D00062 SZA HLT TAD L00053 RTL AND D00060 SZA HLT CLL TAD P00047 BSW SZL HLT TAD D00050 SZA HLT TAD D00067 BSW SNL HLT CMA TAD D00050 SZA HLT D00643, 7000 TAD D00072 7421 SZA HLT 7521 CMA SZA HLT CMA 7521 SZA HLT TAD P00056 7421 7521 CMA AND P00056 SZA HLT NOP TAD P00056 7421 7521 AND D00064 SZA HLT CLL CMA 7421 7501 SZL HLT CMA SZA HLT 7521 SNA HLT 7521 CMA CML 7621 SZA HLT SNL HLT 7521 SZA HLT CMA 7701 SZA HLT SNL HLT CMA 7521 SZA HLT CML TAD D00072 DCA P00112 SZA HLT SZL HLT TAD P00112 CMA SZA HLT NOP DCA P00112 TAD P00112 SZA HLT ISZ P00112 SZA HLT SZL HLT TAD P00112 TAD D00072 SZA HLT TAD D00072 DCA P00112 ISZ P00112 HLT SNL HLT TAD P00112 SZA *1000 HLT TAD D01003 SKP D01003, 2526 TAD D00064 SZA HLT TAD D00072 P01010, D03212 SKP D01012, 0000 TAD D01012 CMA SZA HLT DCA D01012 NOP TAD D00072 DCA D01024 SKP D01024, 0000 ISZ D01024 HLT ISZ D01024 SKP HLT TAD D00064 AND D01035 SKP D01035, 2525 SZA HLT TAD I P00113 TAD D00064 SZA HLT TAD D00072 DCA I P00115 TAD P00116 CMA SZA HLT ISZ I P00115 HLT TAD P00056 DCA P00116 NOP TAD D00072 AND I P00115 TAD D00065 SZA HLT TAD I P01066 SKP P01066, D00114 TAD D00064 SZA HLT TAD D00072 DCA I P01075 D01074, 7410 P01075, P00116 TAD P00116 CMA SZA HLT ISZ I P01105 HLT SKP P01105, P00116 TAD P00056 DCA P00116 TAD D00072 AND I P01113 SKP P01113, P00116 TAD D00065 SZA HLT NOP TAD P00056 DCA S00010 TAD S00010 TAD D00065 SZA HLT DCA P00116 TAD P00056 DCA D00117 TAD P00115 DCA S00010 TAD I S00010 TAD D00065 SZA HLT NOP TAD P01010 DCA P00112 AND I P01010 TAD P01010 CIA TAD P00112 SZA HLT DCA P00007 TAD I P00007 CLA TAD P00007 SZA HLT TAD P00030 DCA P00112 AND I P00030 TAD P00030 CMA IAC TAD P00112 SZA HLT NOP CLL CML 6004 SMA HLT RAL SPA HLT *1200 CLA CLL 6214 RTR RAR 6224 DCA D00106 NOP TAD P00061 TAD D00106 6005 JMP L01213 L01213, SNL HLT IOF CLA CLL 6004 AND D01366 SZA HLT 6006 SKP HLT ION CMA CML 6007 SNA SZL HLT IOT SKP HLT ION NOP IOT HLT IOT SKP HLT ION NOP IOF IOT SKP HLT ION 6004 AND P00051 SNA HLT IOF CLA CLL CML TAD D00106 6005 JMP L01270 L01270, SZL HLT IOT HLT ION CLA CLL 6003 SKP HLT NOP D01302, 7300 TAD D00135 DCA S00000 JMP L01307 HLT L01307, JMS D01311 HLT D01311, 0000 TAD D01311 CMA IAC TAD D00120 SZA HLT JMP I P01322 HLT P01322, L01323 L01323, JMS I P01325 HLT P01325, D01326 D01326, 0000 TAD D01326 CMA IAC TAD D00121 SZA HLT NOP DCA P00116 SKP L01340, CLA CLL ISZ P00116 CML NOP TAD P00116 TAD D00067 SMA JMP I P00124 CLA CLL TAD P00116 RTL RAL TAD D00034 DCA L01372 L01356, TAD D00071 DCA P00177 L01360, 7621 NOP DCA D00104 DCA D00105 TAD D00111 RAR D01366, 7600 TAD D00110 7521 TAD D00107 L01372, AND S00000 ISZ D00104 DCA D00101 CMA SNL D01377, 7200 *1400 DCA P00103 7521 DCA P00102 CMA DCA P00112 CMA DCA D00006 CMA DCA P00007 CMA DCA D00117 CMA DCA D00005 CMA DCA S00004 CMA DCA D00003 TAD I P00122 RTL RTL SZL ISZ D00003 NOP RAL SZL ISZ S00004 NOP RAL SZL ISZ D00005 NOP RAL SZL ISZ D00117 NOP RAL SZL ISZ P00007 NOP RAL SZL ISZ D00006 NOP RTL RAL SZL ISZ P00112 NOP CLA TAD D00111 RAR CLA TAD D00110 7521 TAD D00107 ISZ D00003 JMP L01507 ISZ S00004 CLA ISZ D00005 CLL ISZ D00117 CMA ISZ P00007 CML ISZ P00112 TAD D00041 ISZ D00006 RAR ISZ D00104 JMP I P00123 L01507, ISZ P00112 JMP L01554 ISZ D00006 JMP L01540 ISZ D00005 SMA SKP ISZ D00105 ISZ D00117 SZA SKP ISZ D00105 ISZ P00007 SNL SKP L01526, ISZ D00105 L01527, DCA P00007 TAD D00105 SNA ISZ D00104 CLA TAD P00007 ISZ S00004 CLA JMP I P00123 L01540, ISZ D00005 SMA SKP JMP L01527 ISZ D00117 SZA SKP JMP L01527 ISZ P00007 SNL JMP L01526 JMP L01527 L01554, ISZ D00104 ISZ S00004 CLA ISZ D00005 JMP L01564 ISZ P00007 7421 JMP I P00123 L01564, ISZ P00007 JMP L01570 7501 JMP I P00123 L01570, DCA D00003 7501 DCA S00004 TAD D00003 7421 TAD S00004 JMP I P00123 L01577, DCA P00112 *1600 D01600, 7004 DCA P00007 TAD P00007 TAD P00103 DCA D00003 TAD P00112 CMA IAC TAD D00101 SZA DCA D00003 7521 DCA D00006 TAD D00006 CMA IAC TAD P00102 SZA D01622, 3003 TAD D00104 RAR CLA SNL JMP L01643 TAD I P00122 HLT 7621 TAD D00110 7521 TAD D00111 RAR CLA TAD D00107 HLT JMP I P00122 L01643, TAD D00003 SNA JMP L01671 CLA TAD I P00122 HLT CLA CLL TAD P00007 RAR TAD D00006 7421 TAD P00112 HLT CLA CLL TAD P00103 RAR CLA TAD P00102 7421 TAD D00101 HLT JMP I P01742 L01671, ISZ P00177 JMP L01714 DCA D00107 NOP DCA D00110 DCA D00111 TAD I P00122 RAR SZL JMP I P01743 ISZ I P00122 AND P00051 SNA JMP I P01744 CLA TAD I P00122 AND P00070 DCA I P00122 JMP I P01744 L01714, NOP TAD P00177 RAR CLA TAD P00056 SNL CLA DCA D00107 TAD P00177 RTR CLA TAD I P00122 SNL CLA DCA D00110 TAD P00177 RTR RAR SNL CLA D01740, 3111 JMP I P01742 P01742, L01360 P01743, L01340 P01744, L01356 L01745, NOP TAD D00021 AND L00052 SZA JMP I P01772 TAD D00021 SMA CLA JMP L01757 OSR D01756, 7410 L01757, TAD D00020 D01760, 0052 SZA CLA HLT TAD D00021 AND D00050 SZA JMP I P01773 D01767, 7000 JMP I P01771 P01771, L00222 P01772, L02200 P01773, P04000 *1777 D01777, 0000 *2200 L02200, NOP CLA ION TAD D00021 AND P00046 SNA CLA TAD D02353 TAD D00034 DCA I P02377 TAD D00021 AND P00046 SZA CLA TAD D00034 DCA I P02376 CLA CMA DCA D00100 TAD D00022 RAL SMA CLA JMP L02236 TAD D02375 DCA D00001 TAD D02374 DCA D00002 TAD D02354 DCA D00005 CLL CML JMS S00004 SZA HLT L02236, NOP 6145 CLA CLL CMA 6142 SNA CLA HLT 6141 CMA SZA HLT NOP 6145 CLA CMA 6146 SZA HLT 6141 CMA SZA HLT NOP 6145 TAD D00055 6147 TAD P00056 6146 TAD D00064 6142 CMA SZA HLT NOP 6145 TAD P00056 6146 TAD D02355 6147 TAD D00064 6142 TAD D00065 SNA JMP L02312 HLT D02311, 7402 L02312, NOP 6145 TAD D02373 DCA P00007 TAD D02372 IOF DCA D00036 TAD P00051 6146 6140 6003 HLT 6004 AND D00131 SNA CLA HLT NOP 6145 ION TAD D02371 DCA P00007 TAD P00051 6146 6140 TAD I P00113 D02343, 7402 D02344, 1343 DCA D00036 TAD D00074 TAD D00064 D02350, 7440 HLT JMP I P02370 D02353, 0410 D02354, 5404 D02355, 6000 *2370 P02370, P02400 D02371, 2344 D02372, 5407 D02373, 2311 D02374, 5023 D02375, 6244 P02376, D02451 P02377, D03350 *2400 P02400, D07000 TAD D02577 DCA P00007 TAD D02576 DCA D00036 TAD P00051 6146 6140 ION IOF SKP HLT NOP 6145 ION TAD D02575 DCA P00007 TAD P00051 6146 6140 D02424, 0101 D02425, 7402 TAD D02425 DCA D00036 ION TAD D02574 TAD S00000 SZA HLT NOP 6145 TAD D00050 6146 6140 CLA HLT D02443, 7000 6145 TAD D00050 IAC 6146 6140 D02451, 0000 NOP 6141 SZA CLA HLT NOP CLA CLL CML CMA DCA P00112 6145 ISZ P00112 HLT 6144 HLT SZL HLT NOP CLA CLL TAD D02424 6146 6140 CLA CMA 6770 HLT SNA CLA HLT NOP CLA CLL CMA DCA S00010 TAD D02576 DCA D00036 TAD D02573 DCA P00007 TAD P00051 6146 6140 JMP I S00010 HLT TAD S00000 SZA HLT TAD D02572 DCA D00036 DCA D00003 ION D02525, 1051 6146 6140 ISZ D00003 SKP D02532, 7402 TAD D02532 DCA D00036 ION NOP 6145 TAD P00056 7421 TAD D02570 6147 6140 TAD D00065 6141 TAD P00056 SZA HLT NOP L02553, 6145 TAD P00056 7421 TAD D02567 6147 TAD D00064 6140 6141 TAD D00065 SZA HLT JMP I P02571 D02567, 0444 D02570, 0446 P02571, P02600 D02572, 5400 D02573, 2516 D02574, 5353 D02575, 2426 D02576, 5407 D02577, 2413 *2600 P02600, D03112 TAD D00071 DCA D00003 L02603, NOP 6145 CLL CML TAD D02704 6147 6140 TAD P00112 6141 AND D00067 TAD D02705 SZA HLT NOP ISZ P00112 ISZ D00003 JMP L02603 NOP TAD D02702 6147 TAD P00056 7421 CLA CMA 6140 6141 SZA HLT NOP 6172 6145 TAD D02777 DCA P00007 TAD D02776 DCA D00036 TAD D00131 6147 TAD P00051 6146 6140 6142 HLT P02653, D01074 SZA D02655, 7402 TAD D02655 DCA D00036 TAD S00000 ION TAD D02775 SZA HLT NOP 6145 TAD D02774 DCA P00007 TAD D02703 6147 TAD D02776 DCA D00036 TAD P00051 6146 P02677, D06140 6142 HLT D02702, 0442 D02703, 5000 D02704, 0440 D02705, 3600 P02706, D01074 SZA D02710, 7402 TAD D02710 DCA D00036 TAD S00000 ION TAD D02773 SZA HLT NOP 6174 6145 TAD D02772 DCA P00007 TAD D02736 P02726, D06147 TAD D02776 DCA D00036 TAD P00051 6146 6140 6142 HLT D02736, 3000 P02737, D01074 SZA D02741, 7402 TAD D02741 DCA D00036 TAD S00000 ION TAD D02766 SZA HLT D02751, 7000 6145 TAD D02771 DCA P00007 TAD D00034 6147 TAD D02776 DCA D00036 TAD P00051 6146 6140 6142 HLT D02766, 7600 *2771 D02771, 3000 D02772, 2737 D02773, 4677 D02774, 2706 D02775, 4726 D02776, 5407 D02777, 2653 *3000 D03000, 1074 D03001, 7440 D03002, 7402 TAD D03002 DCA D00036 TAD S00000 ION TAD I P03177 SZA HLT NOP 6145 TAD D03176 DCA P00007 TAD D03175 DCA D00036 TAD D03027 D03021, 6146 6140 CLA CLL JMP I P03174 L03025, HLT D03026, 7402 D03027, 0201 TAD D03026 DCA D00036 TAD S00000 ION TAD D03173 SZA HLT D03037, 7000 6145 TAD D03172 DCA P00007 TAD D03175 DCA D00036 TAD L03025 DCA D03054 TAD D03157 6146 6140 NOP JMS D03054 D03054, 7402 HLT TAD L03025 DCA D00036 TAD S00000 ION TAD D03171 SZA HLT NOP 6145 TAD D00050 6147 CLA CMA CDF 0 DCA I P00054 D03074, 6143 6140 NOP 6141 CMA SZA HLT DCA I P00054 6147 6143 6140 NOP TAD I P00054 CMA D03112, 7440 HLT TAD P00051 6147 TAD D00064 DCA I P00054 6143 6140 NOP TAD I P00054 P03124, L01360 SZA HLT NOP 6145 TAD P00056 DCA I P03161 CLA CLL RTL IAC 6146 TAD D00050 6147 6143 6140 NOP 6141 TAD D00065 SZA HLT 6147 DCA I P03161 6143 6140 CLA CMA P03153, D07040 SZA HLT JMP I P03170 D03157, 0221 D03160, 2527 P03161, D00017 P03166=3166 *3170 P03170, L03200 D03171, 4724 D03172, 3056 D03173, 4753 P03174, L03025 D03175, 5407 D03176, 3030 P03177, D02766 *3200 L03200, TAD I P03373 TAD D00065 SZA HLT NOP 6145 TAD L00052 6146 CLA CMA DCA I P00054 D03212, 6143 6140 CLA CLL CMA RTL DCA P00112 L03216, ISZ P00112 JMP L03216 D03220, 1454 SZA HLT D03223, 7000 6145 TAD D00050 6147 TAD P00056 DCA I P00054 6143 6140 NOP TAD P00043 6146 TAD D00041 6147 TAD D03371 DCA P00112 TAD D03271 DCA S00010 L03244, DCA I S00010 ISZ P00112 JMP L03244 6143 6140 NOP TAD D03271 DCA S00010 TAD D03371 DCA P00112 L03256, TAD I S00010 TAD D00065 SZA HLT ISZ P00112 JMP L03256 NOP 6145 CLA CMA DCA P00112 ISZ P00112 D03271, 0012 6144 HLT 6007 6144 SKP HLT NOP 6145 ION TAD P00056 DCA I P00054 TAD D00050 6147 IAC 6146 6143 6140 NOP DCA I P00054 6141 TAD D00065 SZA HLT TAD P00051 IAC 6146 6147 TAD D03377 DCA P00007 TAD D03376 DCA D00036 6143 6140 NOP TAD I P00054 HLT D03336, 1074 SNA HLT TAD D00065 SZA D03343, 7402 TAD D03343 DCA D00036 ION NOP D03350, 7410 JMP I P03375 6145 CLA CMA DCA I P00054 TAD D03374 DCA P00007 TAD D03376 DCA D00036 TAD D03372 6147 TAD P00051 6146 6143 6140 TAD I P00054 HLT D03371, 7773 D03372, 0220 P03373, D00017 D03374, 3400 P03375, L03415 D03376, 5407 D03377, 3336 *3400 P03400, D01074 SZA D03402, 7402 TAD D03402 DCA D00036 TAD D00106 6005 CLA CLL TAD S00000 JMP L03412 L03412, TAD D03577 SZA HLT L03415, NOP 6145 TAD D00055 6146 6140 IAC TAD I P03576 SZA HLT D03426, 7000 6145 RAL IAC 6146 IAC 6140 CLA NOP AND I P00061 6141 SMA HLT RTL SNL HLT SMA HLT RTL SZL HLT SPA HLT RTL SNL HLT SPA HLT RTL SNL HLT SPA HLT RTL SZL HLT SPA HLT RAL SPA CLA HLT NOP 6145 CML IAC 6140 CLA 6141 SPA HLT RTL RTL SNL HLT RTL SMA HLT RTL SZL HLT RTL SNL HLT JMP I P03575 D03536=3536 D03537=3537 P03541=3541 *3575 P03575, L03600 P03576, D03741 D03577, 6000 *3600 L03600, SMA HLT RAL SMA CLA HLT NOP 6145 CLA CLL RAL IAC 6146 IAC 6140 RTR TAD D00106 NOP 6005 CLA 6141 AND P00051 D03622, 7650 HLT NOP 6145 IAC 6146 IAC 6140 CLA AND I P00051 6141 AND P00044 SNA CLA HLT 6141 AND D00050 SZA HLT NOP 6145 TAD P00051 IAC 6146 TAD D03734 DCA D00036 IAC 6140 CLA NOP TAD D03665 DCA D00036 ION 6141 AND D00131 SNA CLA D03665, 7402 NOP 6145 TAD D03736 DCA P00007 TAD D03742 6146 TAD D03735 DCA D00036 6140 NOP JMS D03701 D03701, 0000 D03702, 7402 P03703, D01302 DCA D00036 TAD S00000 ION TAD D03733 SZA HLT NOP DCA D00100 TAD D00021 SMA CLA JMP L03721 OSR SKP L03721, TAD D00020 AND L00052 SZA CLA HLT NOP TAD D00021 AND D00050 SZA CLA JMP I P03740 JMP I P03737 D03733, 4077 D03734, 5400 D03735, 5407 D03736, 3703 P03737, L00222 P03740, P04000 D03741, 7776 D03742, 4201 7773 *4000 P04000, S00000 6173 SKP P04003, D05217 D04004, 6170 P04005, D01377 D04006, 3112 L04007, TAD I P00112 SNA JMP I P00051 DCA P00116 TAD D04176 DCA I P00116 ISZ P00112 JMP L04007 P04017, D06007 7621 D04021, 6171 6170 P04023, D06007 P04024, D07621 TAD D04175 DCA P00173 JMS S00156 6174 JMP I P00051 AND D04021 AND P04000 AND P04066 P04035, D00320 D04036, 0346 AND I P00023 AND I P00047 D04041, 0503 AND I P00130 P04043, D00600 P04044, D00643 TAD D04143 AND I P04067 TAD I P04074 AND I P04152 TAD D00020 TAD P00056 TAD D00117 TAD D00167 TAD D04006 TAD D04041 TAD D04135 TAD D04161 TAD I P04114 D04062, 2200 ISZ D04036 D04064, 1137 P04065, L01745 P04066, D01767 P04067, L02312 ISZ D04132 ISZ I S00000 ISZ I P00014 ISZ I P00035 P04074, D02443 D04075, 2456 ISZ I P00102 ISZ I P00136 D04100, 2552 ISZ I P04003 ISZ I P04017 ISZ I P04023 ISZ I P04035 ISZ D04062 ISZ D04075 ISZ I P00070 ISZ I P04065 ISZ I P04120 P04112, D02751 DCA D00012 P04114, D03037 DCA D00065 DCA P00127 DCA D04004 P04120, D03223 DCA D04064 DCA D04100 DCA D04147 DCA I P00015 P04125, D03426 DCA I P00076 DCA I P04005 DCA I P04024 DCA I P04044 D04132, 3666 DCA I P04112 DCA I P04125 D04135, 0000 D04143=4143 P04145=4145 D04146=4146 D04147=4147 P04151=4151 P04152=4152 D04161=4161 P04167=4167 *4175 D04175, 4023 D04176, 4156 D04177, 4032 D05217=5217 D06004=6004 D06007=6007 D06140=6140 D06147=6147 D06175=6175 D07000=7000 D07040=7040 L07402=7402 D07410=7410 D07521=7521 D07621=7621 D07721=7721 D07770=7770 $