000001 C491 GAWOLF CODEDIT SOURCE 04/65 -C B T3834394-495@ 000164 00000 T490 BEGIN 0164 GAWOLF00000 *LOAD 0700,TAPAPE,R,PRELD E * 000164 3007010660 * JD 070106 * * 000171 3000016400 * J $-5 * SEGMENT-ID T491 3000016400 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T492 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2000111611 * FT 0700+021216,9,0 * 000457 2000070060 * FT 0700,48,8,0 * 000464 2000024261 * FT 162,49 * * 000471 3000053000 * J 0530 * 000477 0000 * +2 0 * * 000500 3000000020 * JC 0,16 * 000507 000440 * +3 0440 * * 000510 3000000020 * JC 0,16 * 000517 000510 * +3 0510 * * 000520 3000052020 * JHJ $ * 000527 000440 * +3 0440 * 000530 5600052710 * BA1 $-1,8 * 000535 5200044710 * SA1 0447,8 * 000542 4100610100 * XF 061,010000,0,4 * 000547 2000111660 * FT 0700+021216,48,0 * 000554 2000024261 * FT 162,49 * 000561 4100610100 * XF 061,010000,0,4 * * 000566 3200056102 * JL $-5,2 * 000573 2000000103 * FT 1,3 * * 000600 3000074000 * J 0700+04040,0 * 000740 * ORIG 0700+04040 * 000740 4100610100 * XF 061,010000,0,4 * 000745 6000001701 * AC 15,1 * 000752 3420022211 * CC 146,9,1 1 * * 000757 3000106542 * JE $+70 * 000764 2600004104 * PD 041,4 * 000771 3620021700 * CS 143,0,1 1 * 000776 3620011700 * CS 79,0,1 * 001003 3620001712 * CS 15,10,1 1 * 001010 1600004166 * BC2 041,6 * 001015 3620022102 * CS 145,2,1 1 * 001022 7000004162 * CB2 041,2 * * 001027 3000104142 * JE $+10 * * 001034 3007010460 * JD 070104 * 001041 4620003520 * BT 29,16,1 1 * 001046 4620003722 * BT 31,18,1 1 * 001053 2420004001 * TFR 32,,1 * * 001060 3000074000 * J $-80 * 001065 4100640000 * XF 064,0,0,0,4 * 001072 7020004642 * CB1 38,2,1 * * 001077 3020004042 * JE 32,1 * * 001104 3007010560 * JD 070105 * * 001111 3020004000 * J 32,1 * 001116 245 * AREA 165 * SEGMENT-ID T493 3000136300 * SEGJP $ * 001366 00037530 00010 IR1 +4 037530 GAWOLF00010 001372 00032600 00020 IR2 +4 032600 GAWOLF00020 001376 00032700 00030 IR3 +4 032700 GAWOLF00030 000260 00040 ORIG 0260 GAWOLF00040 000263 00000231 00050 EFW +4 0231 GAWOLF00050 000267 00000231 00060 EFWRS +4 0231 GAWOLF00060 000273 00030000 00070 BUFF +4 030000 GAWOLF00070 000277 00037400 00080 BCW +4 037400 GAWOLF00080 000430 00090 ORIG 0430 GAWOLF00090 * 000430 3000043031 00100 INRET JC $,031 SET I-O ENTRY GAWOLF00100 000437 000430 00110 INT +3 INRET GAWOLF00110 010000 00120 ORIG 010000 GAWOLF00120 * 010000 3001000060 00150 START JD $ GAWOLF00150 010005 4600026355 00230 BT 0263,45 5 EFW TO T45 COMFT 00230 * 010012 1001030300 00240 JR CBUF CLEAR BUFFERS COMFT 00240 * 010017 1001024000 00250 JR CBCW CLEAR BCW_S COMFT 00250 * 010024 1001036000 00300 JR TINT PRPRELIM I-O TEST,BCW_S AND BUFFERS COMFT 00300 - * 010031 1001124300 00310 JR TWO7 TETEST ALL 2-7 CODES COMFT 00310 * 010036 1001173132 00320 JR TAB,26 TEST 6-7 CODES OMITTING CLT IN USE COMFT 00320 - * 010043 1002555600 00321 JR TIME CHCHECK AND PRINT DIGIT TO DIGIT TIMING GAWOLF00321 D * 010050 1001257500 00330 JR CEOT TETEST EACH,NONE,AND ALL EOT BITS COMFT 00330 H * 010055 1001402600 00340 JR NZC TESEST Z AND C IN EOT_S FOR VARIOUS CODES COMFT 00340 D * 010062 1001542600 00350 JR COUNT T TEST COUNTER,WRAPAROUND COMFT 00350 U * 010067 1001676500 00360 JR PTY TESEST PARITY BIT INSERTION,DELETION-ODD,EVEN COMFT 00360 T * 010074 1002047000 00370 JR BFFL TETEST BUFFER FULL,VARIOUS I,P,E,L,H COMFT 00370 F * 010101 1002206000 00380 JR CNTRL T TEST INSERT AND USE OF ASCII CONTROL,FIGS,LTRS COMFT 00380 S * 010106 1002307500 00390 JR TDC TESEST ONE SECOND TIME DELAY CLOCK COMFT 00390 S * 010113 1002343100 00400 JR BF2C TETEST BUFFER FULL WITH 2 CHAR WRAPAROUND GAWOLF00400 F * 010120 1002425100 00410 JR LO TESEST LOCKOUT OF CA GAWOLF00410 O * 010125 1002466700 00420 JR FBITS T TEST ACTIONS WITH VARIOUS ILLEGAL FUNCTIONS GAWOLF00420 T * 010132 3007777760 00480 JD 077777 COMFT 00480 * 010137 3001000000 00490 J START COMFT 00490 010144 5600137614 00491 BEGIN BA1 IR3,12 SET IR1,2,3 GAWOLF00491 010151 5200005714 00492 SA1 057,12 GAWOLF00492 * 010156 3001000000 00493 J START 00493 * 010163 3000000000 00500 DELAY J 0 GAWOLF00500 010170 2601023402 00510 PD CRCT,2 GAWOLF00510 010175 3401023342 00520 CRCTC CC CRCT-1,3,34 TOTAL DELAY , 499.85 MILI-SECONDS 00520 A * 010202 3001016342 00530 JE DELAY GAWOLF00530 010207 6001023401 00540 AC CRCT,1 GAWOLF00540 010214 4401022000 00550 SC $+4,0 GAWOLF00550 010221 4401022500 00555 SC $+4,0 00555 * 010226 3001017500 00560 J CRCTC GAWOLF00560 010234 0000 00570 CRCT +2 0 GAWOLF00570 * 010235 3001023500 00600 CBCW J $ COMFT 00600 010242 4600027717 00610 BT BCW,15 CLEAR ALL BCW_S GAWOLF00610 010247 4401027220 00620 SC LCBW+4,1,16 COMFT 00620 010254 2760001700 00630 PD 15,16,7 7 COMFT 00630 010261 6000007720 00640 AC 63,16 COMFT 00640 * 010266 3201025420 00650 LCBW JL $-10,16 6 COMFT 00650 * 010273 3001023500 00660 J CBCW COMFT 00660 * 010300 3001030000 00700 CBUF J $ COMFT 00700 010305 4600027317 00710 BT BUFF,15 5 CLEAR ALL BUFFERS GAWOLF00710 010312 4401034720 00720 SC LCBF+4,1,16 COMFT 00720 010317 4401034220 00730 SC LCBF-1,1,16 COMFT 00730 010324 2760001700 00740 PD 15,16,7 7 COMFT 00740 010331 6000007720 00750 AC 63,16 COMFT 00750 * 010336 3201032420 00760 JL $-10,16 6 COMFT 00760 * 010343 3201031720 00770 LCBF JL $-20,16 6 COMFT 00770 * 010350 3001030000 00780 J CBUF COMFT 00780 * 010355 3001035500 01000 TINT J $ TEST INTERRUPT GAWOLF01000 010362 5600310405 01010 BA1 TE1,5 SET NAME GAWOLF01010 010367 5200162005 01020 SA1 TTN+1,5 5 GAWOLF01020 010374 5602617605 01030 BA1 ZA1,5 DATA GAWOLF01030 010401 5240000405 01040 SA1 4,5,2 GAWOLF01040 010406 2001060303 01050 FT I1,3 INTERRUPT ADDRESS GAWOLF01050 010413 5200043703 01060 SA1 INT,3 GAWOLF01060 010420 5602630610 01070 BA1 C1,8 OUTPUT EOT ONLY GAWOLF01070 010425 5602631630 01080 BA2 C1A,8 GAWOLF01080 010432 5220000710 01090 SBW1 SA1 7,8,1 BCW GAWOLF01090 010437 5200322510 01100 SA1 SBBT,8 GAWOLF01100 010444 4060020000 01110 XF 2,0,0,3 3 GAWOLF01110 * 010451 1001016600 01120 JR DELAY WAIT FOR INTERRUPT GAWOLF01120 010456 5620000710 01130 BA1 7,8,1 NO INTERRUPT GAWOLF01130 010463 4420000076 01140 SC 0,076,1 1 GAWOLF01140 010470 5200321510 01150 SA1 SVBW,8 GAWOLF01150 * 010475 1001053100 01160 JR TINER GAWOLF01160 010502 4440000010 01200 TIN2 SC 0,010,2 2 SET FOR XMIT'RECEIVE GAWOLF01200 010507 5602632630 01210 BA2 C1B,8 GAWOLF01210 010514 6000043712 01220 AC INT,10 GAWOLF01220 * 010521 3001043200 01230 J SBW1 GAWOLF01230 * 010526 3001052660 01240 TINER JD $ TINT ERRORS GAWOLF01240 010533 4601053117 01250 BT TINER+3,3,15 SET DISPLAY GAWOLF01250 010540 4201055517 01260 ST $+13,15 5 GAWOLF01260 * 010545 1000237600 01270 JR ERDMP DUMP GAWOLF01270 * 010552 3001055260 01280 JD $ GAWOLF01280 * 010557 3001000531 01290 JC START+5,5,25 START OVER GAWOLF01290 * 010564 1000237600 01300 OL JR ERDMP OFF LINE GAWOLF01300 * 010571 3001057160 01310 JD $ GAWOLF01310 * 010576 3001000031 01320 JC START,2525 GAWOLF01320 * 010603 1000224100 01330 I1 JR SAFT 1ST INTERRUPT GAWOLF01330 010610 4060004000 01340 XF 0,04000,0,0,3 GAWOLF01340 * 010615 3001056453 01350 JC OL,43 ON LINE TEST GAWOLF01350 010622 7020000770 01360 CB2 7,8,1 GAWOLF01360 * 010627 3001064142 01370 JE $+10 CHECK BCW_S GAWOLF01370 * 010634 1001053100 01380 JR TINER GAWOLF01380 010641 6000043755 01390 AC INT,45 SET I1A GAWOLF01390 * 010646 1001016631 01400 JR DELAY,2525 CHECK NO MORE INTERRUPTS GAWOLF01400 * 010653 3001050200 01410 J TIN2 GAWOLF01410 * 010660 1000224100 01420 I1A JR SAFT ERROR INTERRUPT GAWOLF01420 * 010665 1001053100 01430 JR TINER GAWOLF01430 * 010672 1000224100 01440 I1B JR SAFT 2ND INTERRUPT GAWOLF01440 010677 6000043724 01450 AC INT,20 SET I1C GAWOLF01450 * 010704 1001016631 01460 JR DELAY,2525 WAIT FOR 3RD INTERRUPT GAWOLF01460 * 010711 1001053100 01470 JR TINER GAWOLF01470 * 010716 1000224100 01500 I1C JR SAFT GAWOLF01500 010723 7020000770 01510 CB2 7,8,1 CHECK BCW_S GAWOLF01510 * 010730 3001075442 01520 JE I1CC GAWOLF01520 * 010735 1001053100 01530 JR TINER GAWOLF01530 * 010742 1000224100 01540 I1D JR SAFT GAWOLF01540 * 010747 1001053100 01550 JR TINER GAWOLF01550 010754 6000043724 01560 I1CC AC INT,20 SET ERROR INTERRUPT GAWOLF01560 010761 3460000010 01570 CC 0,010,3 3 CHECK INPUT GAWOLF01570 * 010766 3001100042 01580 JE $+10 GAWOLF01580 * 010773 1001053100 01590 JR TINER GAWOLF01590 011000 3460000100 01600 CC 1,0,3 CHECK NO INPUT GAWOLF01600 * 011005 3001101742 01610 JE $+10 GAWOLF01610 * 011012 1001053100 01620 JR TINER GAWOLF01620 011017 2620000710 01630 PD 7,8,1 GAWOLF01630 * 011024 1001107731 01640 JR TBW0,25 5 CHECK OTHER BCW_S GAWOLF01640 * 011031 3001104345 01650 JC $+10,37 7 GAWOLF01650 * 011036 1001053100 01660 JR TINER GAWOLF01660 011043 2640000405 01670 PD 4,5,2 GAWOLF01670 011050 2660000001 01680 PD 0,1,3 GAWOLF01680 * 011055 1001115400 01690 JR TBF0 CHECK OTHER BUFFERS GAWOLF01690 * 011062 3001035545 01700 JC TINT,37 7 GAWOLF01700 * 011067 1001053100 01710 JR TINER GAWOLF01710 * 011074 3001107400 01750 TBW0 J $ BCW T TEST COMFT 01750 011101 4600027717 01760 BT BCW,15 ALL BCW_S SHOULD BE GAWOLF01760 011106 4401114317 01770 SC L1+4,15 5 BLANK. BINARY ADD ALL COMFT 01770 011113 5760001700 01780 BA1 15,16,7 7 BCW_S. RESULT SHOULD COMFT 01780 011120 6000007720 01790 AC 63,16 I INC.IR7 BE ZERO COMFT 01790 011125 5760001720 01800 BA2 15,16,7 7 COMFT 01800 011132 7200001720 01810 AB2 15,16 A ADD A1 COMFT 01810 * 011137 3201112017 01820 L1 JL $-15,15 5 COMFT 01820 * 011144 3001107400 01830 J TBW0 COMFT 01830 * 011151 3001115100 01850 TBF0 J $ BUFFEFER TEST COMFT 01850 011156 4600027317 01860 BT BUFF,15 5 ALL BUFFERS SHOULD BE GAWOLF01860 011163 2600001700 01870 PD 15,16 BLANK. A BINARY ADD COMFT 01870 011170 4401123220 01880 SC LB+4,16 6 OF ALL BUFFERS SHOULD COMFT 01880 011175 4401122520 01890 SC LB-1,16 6 PRODUCE A ZERO RESULT. COMFT 01890 011202 5760001720 01900 BA2 15,16,7 7 THE ZERO TEST IS LEFT COMFT 01900 011207 6000007720 01910 AC 63,16 TO THE USER SO THE COMFT 01910 011214 7200001720 01920 AB2 15,16 SPECIFIC TEST MAY BE COMFT 01920 * 011221 3201120220 01930 JL $-15,16 6 ISOLATED. COMFT 01930 * 011226 3201117520 01940 LB JL $-25,16 6 COMFT 01940 * 011233 3001115100 01950 J TBF0 COMFT 01950 * 011240 3001124000 02000 TWO7 J $ TEST T ALL 2-7 CODES COMFT 02000 7 011245 5600311105 02002 BA1 TE2,5 GAWOLF02002 011252 5200162005 02004 SA1 TTN+1,5 5 GAWOLF02004 011257 4401131440 02010 SC LB1+4,3232 COMFT 02010 011264 4600027317 02020 BT 0273,15 5 COMFT 02020 011271 5602617605 02030 BA1 ZA1,5 FIVE EOT_S TO ALL COMFT 02030 011276 5360000405 02040 SA1 4,5,7 OUTPUT BUFFERS COMFT 02040 011303 6000007602 02050 AC 62,2 COMFT 02050 * 011310 3201127640 02060 LB1 JL $-10,32 2 COMFT 02060 011315 5602631600 02070 BA1 C1A,16 GAWOLF02070 011322 5602630610 02080 BA1 C1,8 COMFT 02080 011327 5600001720 02100 BA2 15,16 COMFT 02100 011334 4600027717 02110 BT 0277,15 5 COMFT 02110 011341 4401136410 02120 SC LB2+4,8 8 COMFT 02120 011346 5360003761 02130 SAR 31,,7 EOT TO ALL BCW_S COMFT 02130 011353 6000007740 02140 AC 63,32 COMFT 02140 * 011360 3201134610 02150 LB2 JL $-10,8 COMFT 02150 011365 5200322510 02151 SA1 SBBT,8 GAWOLF02151 011372 2001170203 02160 FT IE27,3 SET ERROR INTERRUPT COMFT 02160 011377 5200043703 02170 SA1 INT,3 COMFT 02170 011404 2600026201 02200 PD 178,1 ISSUE XMIT WITH COMFT 02200 011411 4400026361 02210 SC 179,061 1 ALL 2-7 CODES COMFT 02210 011416 4060020000 02220 XF 2,0,0,3 3 COMFT 02220 011423 4400026351 02230 SC 179,051 1 COMFT 02230 011430 4060020000 02240 XF 2,0,0,3 3 COMFT 02240 011435 4400026331 02250 SC 179,031 1 ANY INTERRUPT IS AN COMFT 02250 011442 4060020000 02260 XF 2,0,0,3 3 ERROR. COMFT 02260 011447 4400026311 02270 SC 179,011 1 COMFT 02270 * 011454 1001162300 02280 JR XF4 HALF SECOND DELAY AFTER COMFT 02280 011461 4400026321 02290 SC 179,021 1 ISSUING ALL 2-7 CODES. COMFT 02290 * 011466 1001162300 02300 JR XF4 COMFT 02300 011473 4400026341 02310 SC 179,041 1 THEN GO TEST ALL BITS COMFT 02310 * 011500 1001162300 02320 JR XF4 BUT THOSE IN USE COMFT 02320 011505 4400026301 02330 SC 179,01 COMFT 02330 011512 4400026203 02340 SC 178,03 COMFT 02340 011517 4060020000 02350 XF 2,0,0,3 3 COMFT 02350 011524 4400026205 02360 SC 178,05 COMFT 02360 011531 4060020000 02370 XF 2,0,0,3 3 COMFT 02370 011536 4400026206 02380 SC 178,06 COMFT 02380 011543 4060020000 02390 XF 2,0,0,3 3 COMFT 02390 011550 4400026211 02400 SC 178,011 1 COMFT 02400 011555 4060020000 02410 XF 2,0,0,3 3 COMFT 02410 011562 4400026212 02420 SC 178,012 2 COMFT 02420 011567 4060020000 02430 XF 2,0,0,3 3 COMFT 02430 011574 4400026214 02440 SC 178,014 4 COMFT 02440 011601 4060020000 02450 XF 2,0,0,3 3 COMFT 02450 * 011606 1001016600 02460 JR DELAY COMFT 02460 * 011613 3001124000 02470 J TWO7 COMFT 02470 * 011620 3001162000 02500 XF4 J $ COMFT 02500 011625 4400026201 02510 SC 178,01 HOLD 179 AND VARY BIT COMFT 02510 011632 4060020000 02520 XF 2,0,0,3 3 IN 178 OVER 4 POSITIONS. COMFT 02520 011637 4400026202 02530 SC 178,02 COMFT 02530 011644 4060020000 02540 XF 2,0,0,3 3 COMFT 02540 011651 4400026204 02550 SC 178,04 COMFT 02550 011656 4060020000 02560 XF 2,0,0,3 3 COMFT 02560 011663 4400026210 02570 SC 178,010 0 COMFT 02570 011670 4060020000 02580 XF 2,0,0,3 3 COMFT 02580 * 011675 3001162000 02590 J XF4 COMFT 02590 * 011702 1000224100 02600 IE27 JR SAFT GAWOLF02600 * 011707 1000237600 02602 JR ERDMP GAWOLF02602 * 011714 3001171460 02604 JD $ GAWOLF02604 * 011721 3001124531 02610 JC TWO7+5,2,25 GAWOLF02610 * 011726 3001172600 03000 TAB J $ COMFT 03000 011733 5600311605 03005 BA1 TE3,5 GAWOLF03005 011740 5200162005 03006 SA1 TTN+1,5 5 GAWOLF03006 011745 2001247103 03010 FT I3,3 COMFT 03010 011752 5200043703 03020 SA1 INT,3 COMFT 03020 011757 5602630610 03030 BA1 C1,8 COMFT 03030 011764 5220000710 03040 SA1 7,8,1 COMFT 03040 011771 4400026217 03100 SC 178,017 7 COMFT 03100 011776 5600026701 03110 BA1 183,1 FIND COMBINATIONS OF COMFT 03110 012003 6400001761 03120 LS 15,061 6 OUT OF 7 BITS WHICH COMFT 03120 012010 3400001761 03130 CC 15,061 EXCLUDE ONE BIT OF COMFT 03130 * 012015 3001204142 03140 JE $+20 GAWOLF03140 012022 4400026361 03150 SC 179,061 1 CHECK THAT TEST CLT COMFT 03150 * 012027 1000220300 03155 JR SAVE GAWOLF03155 012034 4060020000 03160 XF 2,0,0,3 3 IS NOT ACTIVATED. COMFT 03160 012041 5600026701 03170 BA1 183,1 COMFT 03170 012046 6400001751 03180 LS 15,051 COMFT 03180 012053 3400001751 03190 CC 15,051 COMFT 03190 * 012060 3001210442 03200 JE $+20 GAWOLF03200 012065 4400026351 03210 SC 179,051 1 COMFT 03210 * 012072 1000220300 03215 JR SAVE GAWOLF03215 012077 4060020000 03220 XF 2,0,0,3 3 COMFT 03220 012104 5600026701 03230 BA1 183,1 COMFT 03230 012111 6400001731 03240 LS 15,031 COMFT 03240 012116 3400001731 03250 CC 15,031 COMFT 03250 * 012123 3001214742 03260 JE $+20 GAWOLF03260 012130 4400026331 03270 SC 179,031 1 COMFT 03270 * 012135 1000220300 03275 JR SAVE GAWOLF03275 012142 4060020000 03280 XF 2,0,0,3 3 COMFT 03280 012147 4400026371 03290 SC 179,071 1 COMFT 03290 012154 5600026601 03300 BA1 182,1 COMFT 03300 012161 6400001716 03310 LS 15,016 COMFT 03310 012166 3400001716 03320 CC 15,016 COMFT 03320 * 012173 3001221742 03330 JE $+20 GAWOLF03330 012200 4400026216 03340 SC 178,016 6 COMFT 03340 * 012205 1000220300 03345 JR SAVE GAWOLF03345 012212 4060020000 03350 XF 2,0,0,3 3 COMFT 03350 012217 5600026601 03360 BA1 182,1 COMFT 03360 012224 6400001715 03370 LS 15,015 COMFT 03370 012231 3400001715 03380 CC 15,015 COMFT 03380 * 012236 3001226242 03390 JE $+20 GAWOLF03390 012243 4400026215 03400 SC 178,015 5 COMFT 03400 * 012250 1000220300 03405 JR SAVE GAWOLF03405 012255 4060020000 03410 XF 2,0,0,3 3 COMFT 03410 012262 5600026601 03420 BA1 182,1 COMFT 03420 012267 6400001713 03430 LS 15,013 COMFT 03430 012274 3400001713 03440 CC 15,013 COMFT 03440 * 012301 3001232542 03450 JE $+20 GAWOLF03450 012306 4400026213 03460 SC 178,013 3 COMFT 03460 * 012313 1000220300 03465 JR SAVE GAWOLF03465 012320 4060020000 03470 XF 2,0,0,3 3 COMFT 03470 012325 5600026601 03480 BA1 182,1 COMFT 03480 012332 6400001707 03490 LS 15,07 COMFT 03490 012337 3400001707 03500 CC 15,07 COMFT 03500 * 012344 3001237042 03510 JE $+20 GAWOLF03510 012351 4400026207 03520 SC 178,07 COMFT 03520 * 012356 1000220300 03525 JR SAVE GAWOLF03525 012363 4060020000 03530 XF 2,0,0,3 3 COMFT 03530 * 012370 1001016633 03540 JR DELAY,2727 WAIT FOR ANY INTERRUPTS COMFT 03540 012375 5620000710 03550 BA1 7,8,1 GAWOLF03550 012402 5200321510 03560 SA1 SVBW,8 GAWOLF03560 012407 7002630650 03570 CB1 C1,8 GAWOLF03570 * 012414 3001244042 03580 JE $+20 GAWOLF03580 * 012421 1000237600 03590 JR ERDMP GAWOLF03590 * 012426 3001242660 03600 JD $ GAWOLF03600 * 012433 3001173300 03610 J TAB+5 GAWOLF03610 012440 3460000000 03620 CC 0,0,3 GAWOLF03620 * 012445 3001172642 03630 JE TAB GAWOLF03630 * 012452 1000237600 03640 JR ERDMP GAWOLF03640 * 012457 3001245760 03650 JD $ GAWOLF03650 * 012464 3001173300 03660 J TAB+5 GAWOLF03660 012471 5620000710 03670 I3 BA1 7,8,1 GAWOLF03670 012476 5200321510 03680 SA1 SVBW,8 GAWOLF03680 012503 7002630650 03690 CB1 C1,8 GAWOLF03690 * 012510 3001253442 03700 JE $+20 GAWOLF03700 * 012515 1000237600 03710 JR ERDMP GAWOLF03710 * 012522 3001252260 03720 JD $ GAWOLF03720 * 012527 3001173331 03730 JC TAB+5,2525 GAWOLF03730 012534 3460000000 03740 CC 0,0,3 GAWOLF03740 * 012541 3001256542 03750 JE $+20 GAWOLF03750 * 012546 1000237600 03760 JR ERDMP GAWOLF03760 * 012553 3001255360 03770 JD $ GAWOLF03770 * 012560 3001173331 03780 JC TAB+5,2525 GAWOLF03780 * 012565 3001017031 03790 JC DELAY+5,5,25 GAWOLF03790 * 012572 3001257200 04000 CEOT J $ CHECKCK EACH EOT BIT WITH X AND Y BITS ONLY COMFT 04000 E 012577 5600313005 04005 BA1 TE5,5 GAWOLF04005 012604 5200162005 04006 SA1 TTN+1,5 5 GAWOLF04006 * 012611 1001030300 04010 JR CBUF COMFT 04010 * 012616 1001024000 04020 JR CBCW CLEAR EVERYTHING COMFT 04020 012623 4600026754 04030 BT 183,44 COMFT 04030 012630 2001321003 04040 FT I4,3 COMFT 04040 012635 5200043703 04050 SA1 INT,3 SET INTERRUPT COMFT 04050 012642 5602617100 04060 BA1 LIST1,1616 COMFT 04060 012647 5240005700 04070 SA1 47,16,2 2 LIST1 TO OUTPUT BUFF COMFT 04070 012654 4440006011 04080 SC 48,011,2,2 STOP CHAR AT END OF LIST GAWOLF04080 012661 5602633610 04090 BA1 C2,8 SET BCW_S COMFT 04090 012666 5220000710 04100 SA1 7,8,1 COMFT 04100 012673 4401277306 04200 SC LBS+4,6 6 COMFT 04200 * 012700 1000220300 04205 JR SAVE GAWOLF04205 012705 4060020000 04210 XF 2,0,0,3 3 START OUTPUT COMFT 04210 * 012712 3001274300 04220 J $+25 COMFT 04220 012717 3420000502 04230 CC 5,2,1 LOOK FOR _A_ INCREMENT ON COMFT 04230 * 012724 3001271741 04240 JG $-5 INPUT GAWOLF04240 012731 1620000711 04250 BS1 7,1,1 SHIFT _C_ COMFT 04250 012736 4420000500 04260 SC 5,0,1 RESET _A_ GAWOLF04260 012743 3420000102 04270 CC 1,2,1 LOOK FOR _A_ INCR.ON OUTPUT COMFT 04270 * 012750 3001274341 04280 JG $-5 GAWOLF04280 012755 1620000311 04290 BS1 3,1,1 SHIFT _C_ COMFT 04290 012762 4420000100 04300 SC 1,0,1 RESET _A_ GAWOLF04300 * 012767 3201271706 04310 LBS JL $-40,6 6O,5I COMFT 04310 012774 6020000201 04320 AC 2,1,1 SET 7O COMFT 04320 013001 3420000502 04330 CC 5,2,1 COMFT 04330 * 013006 3001300141 04340 JG $-5 GAWOLF04340 013013 4420000700 04350 SC 7,0,1 6I,SET 7I GAWOLF04350 013020 6020000601 04360 AC 6,1,1 COMFT 04360 013025 3420000102 04380 CC 1,2,1 COMFT 04380 * 013032 3001302541 04390 JG $-5 GAWOLF04390 013037 6020000201 04400 AC 2,1,1 7O,SET 8O COMFT 04400 013044 3420000504 04410 CC 5,4,1 COMFT 04410 * 013051 3001304441 04420 JG $-5 GAWOLF04420 013056 6020000601 04430 AC 6,1,1 7I SET 8I COMFT 04430 013063 3420000104 04440 CC 1,4,1 LOOK FOR 8O COMFT 04440 * 013070 3001306341 04450 JG $-5 GAWOLF04450 013075 4420000260 04460 SC 2,060,1 1 SET LIST OUT COMFT 04460 013102 4420000140 04470 SC 1,32,1 COMFT 04470 013107 3420000506 04480 CC 5,6,1 LOOK FOR 8I COMFT 04480 * 013114 3001310741 04500 JG $-5 GAWOLF04500 013121 4420000660 04510 SC 6,060,1 1 SET LIST IN COMFT 04510 013126 4420000540 04520 SC 5,32,1 COMFT 04520 013133 2001324603 04530 FT I5,3 COMFT 04530 013140 3420000560 04540 CC 5,48,1 COMFT 04540 * 013145 3001314041 04550 JG $-5 GAWOLF04550 013152 5200043703 04560 SA1 INT,3 SET FOR BIT 10 STOP COMFT 04560 * 013157 1001016600 04570 JR DELAY COMFT 04570 * 013164 1000224100 04575 JR SAFT GAWOLF04575 * 013171 1000237600 04576 JR ERDMP GAWOLF04576 * 013176 3001317660 04580 JD $ COMFT 04580 * 013203 3001257700 04590 J CEOT+5 COMFT 04590 * 013210 1000224100 04600 I4 JR SAFT GAWOLF04600 013215 5620000710 04605 BA1 7,8,1 GAWOLF04605 013222 4420000076 04610 SC 0,076,1 1 SET IEPFT GAWOLF04610 * 013227 1000237600 04615 JR ERDMP GAWOLF04615 * 013234 3001323460 04620 JD $ COMFT 04620 * 013241 3001257731 04630 JC CEOT+5,2,25 TRY AGAIN COMFT 04630 * 013246 1000224100 04700 I5 JR SAFT GAWOLF04700 013253 3420000010 04710 CC 0,010,1 1 GAWOLF04710 * 013260 3001330442 04720 JE $+20 GAWOLF04720 * 013265 1000237600 04730 JR ERDMP GAWOLF04730 * 013272 3001327260 04740 JD $ GAWOLF04740 * 013277 3001257731 04750 JC CEOT+5,2,25 GAWOLF04750 013304 2001336603 04760 FT I5A,3 GAWOLF04760 013311 5200043703 04770 SA1 INT,3 GAWOLF04770 013316 3420000300 04780 CC 3,0,1 GAWOLF04780 * 013323 3001334742 04790 JE $+20 GAWOLF04790 * 013330 1000237600 04800 JR ERDMP GAWOLF04800 * 013335 3001333560 04810 JD $ GAWOLF04810 * 013342 3001257731 04820 JC CEOT+5,2,25 GAWOLF04820 * 013347 1001016631 04830 JR DELAY,2525 GAWOLF04830 * 013354 1001342200 04840 JR ALNN GAWOLF04840 * 013361 3001257200 04850 J CEOT GAWOLF04850 013366 5620000710 04860 I5A BA1 7,8,1 GAWOLF04860 013373 5200321510 04870 SA1 SVBW,8 GAWOLF04870 * 013400 1000237600 04880 JR ERDMP GAWOLF04880 * 013405 3001340560 04890 JD $ GAWOLF04890 * 013412 3001257731 04891 JC CEOT+5,2,25 GAWOLF04891 * 013417 3001341731 04900 ALNN JC $,25 TEST NO BITS COMFT 04900 013424 2001353203 04910 FT I6,3 COMFT 04910 013431 5200043703 04920 SA1 INT,3 SET INTERRUPT COMFT 04920 013436 5602634610 04930 BA1 C3,8 COMFT 04930 013443 5220000710 04940 SA1 7,8,1 SET BCW COMFT 04940 013450 5200322510 04945 SA1 SBBT,8 GAWOLF04945 013455 2640000506 04950 PD 5,6,2 GAWOLF04950 013462 4440000203 04951 SC 2,03,2 GAWOLF04951 013467 4440000377 04952 SC 3,077,2 2 GAWOLF04952 013474 4060020000 04960 XF 2,0,0,3 3 COMFT 04960 * 013501 1001016600 04970 JR DELAY WAIT FOR INTERRUPT COMFT 04970 * 013506 1000224100 04972 JR SAFT GAWOLF04972 * 013513 1000237600 04974 JR ERDMP GAWOLF04974 * 013520 3001352060 04980 JD $ COMFT 04980 * 013525 3001257731 04990 JC CEOT+5,2,25 COMFT 04990 013532 6000043743 05000 I6 AC INT,35 SET INPUT INTRPT GAWOLF05000 P * 013537 1001016631 05010 JR DELAY,2525 WAIT FOR INPUT COMFT 05010 * 013544 1000224100 05015 JR SAFT GAWOLF05015 * 013551 1000237600 05016 JR ERDMP GAWOLF05016 * 013556 3001355660 05020 JD $ 05020 * 013563 3001342400 05030 J ALNN+5 COMFT 05030 * 013570 1000224100 05040 I6A JR SAFT ININPUT INTRPT GAWOLF05040 T 013575 5602635610 05045 BA1 C4,8 GAWOLF05045 013602 7020000750 05050 CB1 7,8,1 CHECK BCW_S COMFT 05050 * 013607 3001363342 05060 JE $+20 GAWOLF05060 * 013614 1000237600 05065 JR ERDMP GAWOLF05065 * 013621 3001362160 05070 JD $ COMFT 05070 * 013626 3001342431 05080 JC ALNN+5,2,25 GAWOLF05080 013633 5602636610 05090 A1B BA1 C5,8 TEST 8 BITS COMFT 05090 013640 5220000710 05100 SA1 7,8,1 SET BCW_S COMFT 05100 013645 5200322510 05110 SA1 SBBT,8 GAWOLF05110 013652 2001372203 05120 FT I7,3 SET INTRPT COMFT 05120 013657 5200043703 05130 SA1 INT,3 COMFT 05130 013664 4060020000 05140 XF 2,0,0,3 3 COMFT 05140 * 013671 1001016631 05150 JR DELAY,2525 WAIT FOR INTRPT COMFT 05150 * 013676 1000224100 05155 JR SAFT GAWOLF05155 * 013703 1000237600 05156 JR ERDMP GAWOLF05156 * 013710 3001371060 05160 JD $ COMFT 05160 * 013715 3001363300 05170 J A1B COMFT 05170 013722 6000043736 05200 I7 AC INT,30 SET INPUT INTRPT GAWOLF05200 * 013727 1001016631 05210 JR DELAY,2525 WAIT FOR INPUT COMFT 05210 * 013734 1000224100 05212 JR SAFT GAWOLF05212 * 013741 1000237600 05214 JR ERDMP GAWOLF05214 * 013746 3001374660 05220 JD $ COMFT 05220 * 013753 3001363300 05230 J A1B COMFT 05230 * 013760 1000224100 05240 I7A JR SAFT GAWOLF05240 013765 5602637610 05245 BA1 C6,8 GAWOLF05245 013772 7020000750 05250 CB1 7,8,1 COMFT 05250 * 013777 3001341742 05260 JE ALNN COMFT 05260 * 014004 1000237600 05265 JR ERDMP GAWOLF05265 * 014011 3001401160 05270 JD $ COMFT 05270 * 014016 3001342431 05280 JC ALNN+5,2,25 GAWOLF05280 * 014023 3001402300 06000 NZC J $ CHECK Z WITH P,X,Y COMFT 06000 014030 5600313505 06005 BA1 TE6,5 GAWOLF06005 014035 5200162005 06006 SA1 TTN+1,5 5 GAWOLF06006 014042 5602640610 06010 BA1 C7,8 COMFT 06010 014047 5220000710 06020 SA1 7,8,1 COMFT 06020 014054 5200322510 06021 SA1 SBBT,8 GAWOLF06021 014061 2001414303 06030 FT I8,3 1 IN Z COMFT 06030 014066 5200043703 06040 SA1 INT,3 0 XMIT COMFT 06040 014073 2640000203 06050 PD 2,3,2 GAWOLF06050 014100 4440000324 06055 SC 3,024,2 2 GAWOLF06055 014105 4060020000 06060 XF 2,0,0,3 3 COMFT 06060 * 014112 1001016631 06070 JR DELAY,2525 WAIT FOR INTRPT COMFT 06070 * 014117 1000224100 06075 JR SAFT GAWOLF06075 * 014124 1000237600 06076 JR ERDMP GAWOLF06076 * 014131 3001413160 06080 JD $ COMFT 06080 * 014136 3001403000 06090 J NZC+5 COMFT 06090 014143 6000043724 06100 I8 AC INT,20 SET INPUT INTRPT COMFT 06100 * 014150 1001016631 06110 JR DELAY,2525 COMFT 06110 * 014155 3001415560 06120 JD $ COMFT 06120 * 014162 3001403000 06130 J NZC+5 COMFT 06130 * 014167 1000224100 06140 I8A JR SAFT GAWOLF06140 014174 5602641610 06145 BA1 C8,8 CHECK BCWS GAWOLF06145 014201 7020000750 06150 CB1 7,8,1 COMFT 06150 * 014206 3001423242 06160 JE $+20 GAWOLF06160 * 014213 1000237600 06165 JR ERDMP GAWOLF06165 * 014220 3001422060 06170 JD $ COMFT 06170 * 014225 3001403031 06180 JC NZC+5,2525 GAWOLF06180 014232 5602642610 06200 NZCB BA1 C9,8 0 IN Z COMFT 06200 014237 5220000710 06210 SA1 7,8,1 1 XMIT COMFT 06210 014244 2001432103 06220 FT I9,3 COMFT 06220 014251 5200043703 06230 SA1 INT,3 COMFT 06230 * 014256 1000220300 06235 JR SAVE GAWOLF06235 014263 4060020000 06240 XF 2,0,0,3 3 COMFT 06240 * 014270 1001016631 06250 JR DELAY,2525 COMFT 06250 * 014275 1000224100 06255 JR SAFT GAWOLF06255 * 014302 1000237600 06256 JR ERDMP GAWOLF06256 * 014307 3001430760 06260 JD $ COMFT 06260 * 014314 3001423200 06270 J NZCB COMFT 06270 014321 6000043736 06300 I9 AC INT,30 GAWOLF06300 * 014326 1001016631 06310 JR DELAY,2525 COMFT 06310 * 014333 1000224100 06315 JR SAFT GAWOLF06315 * 014340 1000237600 06316 JR ERDMP GAWOLF06316 * 014345 3001434560 06320 JD $ COMFT 06320 * 014352 3001423200 06330 J NZCB COMFT 06330 * 014357 1000224100 06340 I9A JR SAFT GAWOLF06340 014364 5602643610 06345 BA1 C10,8 GAWOLF06345 014371 7020000750 06350 CB1 7,8,1 COMFT 06350 * 014376 3001441542 06360 JE $+15 GAWOLF06360 * 014403 1000237600 06365 JR ERDMP GAWOLF06365 * 014410 3001441060 06370 JD $ COMFT 06370 * 014415 3001442231 06380 JC $+5,25 COMFT 06380 014422 5602644610 06400 C7Z BA1 C11,8 ZERO IN P,X,Y COMFT 06400 014427 5220000710 06410 SA1 7,8,1 CHECK C7,Z COMFT 06410 014434 2001460003 06420 FT I10,3 COMFT 06420 014441 5200043703 06430 SA1 INT,3 COMFT 06430 014446 2640000304 06440 PD 3,4,2 COMFT 06440 * 014453 1000220300 06445 JR SAVE GAWOLF06445 014460 4060020000 06450 XF 2,0,0,3 3 COMFT 06450 014465 3420000101 06460 CC 1,1,1 C7 OUT COMFT 06460 * 014472 3001446541 06470 JG $-5 GAWOLF06470 014477 6020000201 06480 AC 2,1,1 SET Z OUT COMFT 06480 014504 3420000501 06490 CC 5,1,1 C7 IN COMFT 06490 * 014511 3001450441 06500 JG $-5 GAWOLF06500 014516 6020000601 06510 AC 6,1,1 SET Z IN COMFT 06510 014523 3420000102 06520 CC 1,2,1 Z OUT COMFT 06520 * 014530 3001452341 06530 JG $-5 GAWOLF06530 014535 6020000201 06540 AC 2,1,1 SET C7,Z OUT COMFT 06540 014542 3420000502 06550 CC 5,2,1 Z IN COMFT 06550 * 014547 3001454241 06560 JG $-5 GAWOLF06560 014554 6000043724 06570 AC INT,20 RESET I10 TO I10A GAWOLF06570 * 014561 1001016600 06580 JR DELAY LEAVE C7 IN COMFT 06580 * 014566 3001456660 06600 JD $ NO INTRPT COMFT 06600 * 014573 3001442200 06610 J C7Z COMFT 06610 * 014600 1000224100 06620 I10 JR SAFT GAWOLF06620 * 014605 1000237600 06625 JR ERDMP GAWOLF06625 * 014612 3001461260 06626 JD $ UNWANTED INTRPT GAWOLF06626 * 014617 3001442231 06630 JC C7Z,25 COMFT 06630 014624 6000043755 06640 I10A AC INT,45 EXPECTED INTRPT GAWOLF06640 * 014631 1001016631 06650 JR DELAY,2525 SEE IF ANOTHER COMES COMFT 06650 014636 5602645610 06660 BA1 C12,8 COMFT 06660 014643 7020000750 06670 CB1 7,8,1 CHECK BCW_S COMFT 06670 * 014650 3001472542 06680 JE O2I2 COMFT 06680 * 014655 1000224100 06685 JR SAFT GAWOLF06685 * 014662 1000237600 06686 JR ERDMP GAWOLF06686 * 014667 3001466760 06690 JD $ COMFT 06690 * 014674 3001442200 06700 J C7Z COMFT 06700 * 014701 1000224100 06710 I10B JR SAFT GAWOLF06710 * 014706 1000237600 06715 JR ERDMP INTRPT IS AN ERROR GAWOLF06715 * 014713 3001471360 06716 JD $ GAWOLF06716 * 014720 3001442231 06720 JC C7Z,25 WANTED COMFT 06720 014725 5602646610 06800 O2I2 BA1 C13,8 X,Y OUT AND Z IN COMFT 06800 014732 5220000710 06810 SA1 7,8,1 COMFT 06810 014737 4440000324 06811 SC 3,024,2 2 GAWOLF06811 014744 2001502103 06820 FT I11,3 COMFT 06820 014751 5200043703 06830 SA1 INT,3 COMFT 06830 * 014756 1000220300 06835 JR SAVE GAWOLF06835 014763 4060020000 06840 XF 2,0,0,3 3 COMFT 06840 * 014770 1001016631 06850 JR DELAY,2525 COMFT 06850 * 014775 1000224100 06855 JR SAFT GAWOLF06855 * 015002 1000237600 06856 JR ERDMP GAWOLF06856 * 015007 3001500760 06860 JD $ COMFT 06860 * 015014 3001472500 06870 J O2I2 COMFT 06870 015021 6000043736 06900 I11 AC INT,30 GAWOLF06900 * 015026 1001016631 06910 JR DELAY,2525 COMFT 06910 * 015033 1000224100 06915 JR SAFT GAWOLF06915 * 015040 1000237600 06916 JR ERDMP GAWOLF06916 * 015045 3001504560 06920 JD $ COMFT 06920 * 015052 3001472500 06930 J O2I2 COMFT 06930 015057 5602647610 06940 I11A BA1 C14,8 COMFT 06940 015064 7020000750 06950 CB1 7,8,1 COMFT 06950 * 015071 3001512242 06960 JE BAUD COMFT 06960 * 015076 1000224100 06965 JR SAFT GAWOLF06965 * 015103 1000237600 06966 JR ERDMP GAWOLF06966 * 015110 3001511060 06970 JD $ COMFT 06970 * 015115 3001472531 06980 JC O2I2,25 5 COMFT 06980 015122 4440000024 07000 BAUD SC 0,024,2 2 GAWOLF07000 015127 5602651620 07010 BA2 C16,16 GAWOLF07010 * 015134 1001520700 07020 JR DOT COMFT 07020 015141 5602653620 07040 BA2 C18,16 GAWOLF07040 * 015146 1001520700 07050 JR DOT COMFT 07050 015153 5602655620 07070 BA2 C20,16 GAWOLF07070 * 015160 1001520700 07080 JR DOT COMFT 07080 015165 5602657620 07100 BA2 C22,16 GAWOLF07100 * 015172 1001520700 07110 JR DOT COMFT 07110 * 015177 3001402331 07120 JC NZC,25 COMFT 07120 * 015204 3001520431 07200 DOT JC $,25 GAWOLF07200 015211 5201532130 07210 SA2 COMP,8 COMFT 07210 015216 5220001720 07220 SA2 15,16,1 1 GAWOLF07220 015223 2001532203 07230 FT I12,3 COMFT 07230 015230 5200043703 07240 SA1 INT,3 COMFT 07240 * 015235 1000220300 07245 JR SAVE GAWOLF07245 015242 4060020000 07250 XF 2,0,0,3 3 COMFT 07250 * 015247 1001016631 07260 JR DELAY,2525 COMFT 07260 015254 5601520703 07270 BA1 DOT+3,3 3 GAWOLF07270 015261 5201530303 07280 SA1 JD+3,3 GAWOLF07280 * 015266 1000224100 07285 JR SAFT GAWOLF07285 * 015273 1000237600 07286 JR ERDMP GAWOLF07286 * 015300 3001520460 07300 JD JD DOT COMFT 07300 * 015305 3001521600 07310 J DOT+10 GAWOLF07310 015321 0000000000000000 07320 COMP +8 0 COMFT 07320 015322 6000043736 07400 I12 AC INT,30 GAWOLF07400 * 015327 1001016631 07410 JR DELAY,2525 COMFT 07410 * 015334 1000224100 07415 JR SAFT GAWOLF07415 * 015341 1000237600 07416 JR ERDMP GAWOLF07416 * 015346 3001534660 07420 JD $ GAWOLF07420 * 015353 3001521600 07430 J DOT+10 GAWOLF07430 015360 5620000710 07440 I12A BA1 7,8,1 GAWOLF07440 015365 7001532150 07450 CB1 COMP,8 GAWOLF07450 * 015372 3001520442 07460 JE DOT GAWOLF07460 015377 5200321510 07470 SA1 SVBW,8 GAWOLF07470 * 015404 1000237600 07480 JR ERDMP GAWOLF07480 * 015411 3001541160 07490 JD $ GAWOLF07490 * 015416 3001521631 07500 JC DOT+10,2,25 GAWOLF07500 * 015423 3001542331 08000 COUNT JC $,031 GAWOLF08000 015430 5600314205 08005 BA1 TE7,5 GAWOLF08005 015435 5200162005 08006 SA1 TTN+1,5 5 GAWOLF08006 015442 2002617721 08010 FT LIST2,1717 COMFT 08010 015447 2000010022 08020 FT 64,18 LIST2 TO OUTPUT COMFT 08020 015454 2440000040 08030 TTR 0,0,2 GAWOLF08030 015461 2001663503 08040 FT I13,3 COMFT 08040 015466 5200043703 08050 SA1 INT,3 SET INT COMFT 08050 015473 4401554200 08060 SC CC1+4,0 0 SET COMPARES GAWOLF08060 015500 4401555401 08070 SC CC2+4,1 1 COMFT 08070 * 015505 3001551232 08080 JC $+5,26 PIO COMFT 08080 015512 5602644610 08090 BA1 C11,8 SET BCW_S COMFT 08090 015517 5220000710 08100 SA1 7,8,1 COMFT 08100 * 015524 1000220300 08105 JR SAVE GAWOLF08105 015531 4060020000 08110 XF 2,0,0,3 3 COMFT 08110 015536 3420000100 08200 CC1 CC 1,0,1 WAIT FOR CHANGE GAWOLF08200 * 015543 3001553642 08210 JE $-5 COMFT 08210 015550 3420000101 08220 CC2 CC 1,1,1 COMFT 08220 * 015555 3001562042 08230 JE $+35 GAWOLF08230 015562 5620000710 08240 BA1 7,8,1 BAD CHANGE COMFT 08240 * 015567 1000224100 08245 JR SAFT GAWOLF08245 015574 4420000076 08250 SC 0,076,1 1 GAWOLF08250 * 015601 1000237600 08255 JR ERDMP GAWOLF08255 * 015606 3001560660 08260 JD $ COMFT 08260 * 015613 3001543000 08270 J COUNT+5 5 COMFT 08270 015620 3401555477 08280 CC CC2+4,6363 LOOK FOR LIMIT COMFT 08280 * 015625 3001604642 08290 JE LI COMFT 08290 015632 6001554201 08300 AC CC1+4,1 1 COMFT 08300 015637 6001555401 08310 AC CC2+4,1 1 COMFT 08310 015644 3420000140 08320 CC 1,32,1 LOOK FOR BUFF FULL COMFT 08320 * 015651 3001572642 08330 JE BFL 08330 015656 3420000000 08340 CC 0,0,1 CHECK I AND F GAWOLF08340 * 015663 3001553642 08350 JE CC1 COMFT 08350 015670 5620000710 08360 BA1 7,8,1 COMFT 08360 * 015675 1000224100 08365 JR SAFT GAWOLF08365 015702 4420000076 08370 SC 0,076,1 1 GAWOLF08370 * 015707 1000237600 08375 JR ERDMP GAWOLF08375 * 015714 3001571460 08380 JD $ COMFT 08380 * 015721 3001543000 08390 J COUNT+5 5 COMFT 08390 015726 5620000710 08400 BFL BA1 7,8,1 COMFT 08400 015733 3420000040 08410 CC 0,040,1 1 LOOK FOR I GAWOLF08410 015740 4420000000 08420 SC 0,0,1 RESET I GAWOLF08420 * 015745 3001600342 08430 JE $+30 GAWOLF08430 * 015752 1000224100 08435 JR SAFT GAWOLF08435 015757 4420000076 08440 SC 0,076,1 1 GAWOLF08440 * 015764 1000237600 08445 JR ERDMP GAWOLF08445 * 015771 3001577160 08450 JD $ COMFT 08450 * 015776 3001543000 08460 J COUNT+5 5 COMFT 08460 016003 3420000540 08470 CC 5,32,1 WAIT FOR INPUT COMFT 08470 * 016010 3001600341 08480 JG $-5 GAWOLF08480 016015 5620000710 08490 BA1 7,8,1 COMFT 08490 016022 3420000441 08500 CC 4,041,1 1 LOOK FOR I COMFT 08500 016027 4420000401 08510 SC 4,1,1 RESET I COMFT 08510 * 016034 3001553642 08520 JE CC1 COMFT 08520 * 016041 3001575200 08530 J BFL+20 GAWOLF08530 016046 3420000177 08600 LI CC 1,63,1 LOOK FOR LAST INCREMENT COMFT 08600 * 016053 3001604642 08610 JE $-5 COMFT 08610 016060 3420000100 08620 CC 1,0,1 _A_ RETURN TO ZERO GAWOLF08620 * 016065 3001614243 08630 JU BTRN COMFT 08630 016072 3420000040 08640 CC 0,040,1 1 I BIT GAWOLF08640 * 016077 3001614243 08650 JU BTRN COMFT 08650 016104 3420000577 08660 CC 5,63,1 WAIT FOR INPUT COMFT 08660 * 016111 3001610442 08670 JE $-5 COMFT 08670 016116 3420000500 08680 CC 5,0,1 _A_ RETURN TO ZERO GAWOLF08680 * 016123 3001614243 08690 JU BTRN COMFT 08690 016130 3420000441 08700 CC 4,041,1 1 I BIT COMFT 08700 * 016135 3001620042 08710 JE $+35 GAWOLF08710 016142 5620000710 08720 BTRN BA1 7,8,1 COMFT 08720 016147 5200321510 08725 SA1 SVBW,8 GAWOLF08725 016154 4420000076 08730 SC 0,076,1 1 GAWOLF08730 * 016161 1000237600 08735 JR ERDMP GAWOLF08735 * 016166 3001616660 08740 JD $ COMFT 08740 * 016173 3001543000 08750 J COUNT+5 5 COMFT 08750 016200 4420000137 08760 SC 1,31,1 SET DOUBLE I COMFT 08760 016205 4420000537 08770 SC 5,31,1 COMFT 08770 * 016212 1000220300 08775 JR SAVE GAWOLF08775 016217 3420000537 08800 CC 5,31,1 WAIT FOR INPUT COMFT 08800 * 016224 3001621742 08810 JE $-5 COMFT 08810 016231 5620000710 08820 BA1 7,8,1 COMFT 08820 016236 7002660650 08830 CB1 C23,8 COMPARE BCW_S COMFT 08830 * 016243 3001632542 08840 JE DATA COMFT 08840 * 016250 1000224100 08845 JR SAFT GAWOLF08845 * 016255 1000237600 08846 JR ERDMP GAWOLF08846 * 016262 3001626260 08850 JD $ COMFT 08850 * 016267 3001543000 08860 J COUNT+5 5 COMFT 08860 016274 5620000730 08870 DATB BA2 7,8,1 COMFT 08870 * 016301 1000224100 08875 JR SAFT GAWOLF08875 * 016306 1000237600 08876 JR ERDMP GAWOLF08876 * 016313 3001631360 08880 JD $ COMFT 08880 * 016320 3001543031 08890 JC COUNT+5,5,25 COMFT 08890 016325 5660001700 08900 DATA BA1 15,16,3 3 COMPARE ALL INPUT DATA COMFT 08900 016332 7040001740 08910 CB1 15,16,2 2 TO OUTPUT DATA COMFT 08910 * 016337 3001627443 08920 JU DATB COMFT 08920 016344 5660003700 08930 BA1 31,16,3 3 COMFT 08930 016351 7040003740 08940 CB1 31,16,2 2 COMFT 08940 * 016356 3001627443 08950 JU DATB COMFT 08950 016363 5660005700 08960 BA1 47,16,3 3 COMFT 08960 016370 7040005740 08970 CB1 47,16,2 2 COMFT 08970 * 016375 3001627443 08980 JU DATB COMFT 08980 016402 5660007700 08990 BA1 63,16,3 3 COMFT 08990 016407 7040007740 09000 CB1 63,16,2 2 COMFT 09000 * 016414 3001627443 09010 JU DATB COMFT 09010 016421 5602661610 09020 LBIT BA1 C24,8 TEST 128 TURNAROUND COMFT 09020 016426 5220000710 09030 SA1 7,8,1 COMFT 09030 016433 5200322510 09035 SA1 SBBT,8 GAWOLF09035 016440 4060020000 09040 XF 2,0,0,3 3 COMFT 09040 016445 3420000577 09050 CC 5,077,1 1 COMFT 09050 * 016452 3001644542 09060 JE $-5 COMFT 09060 016457 5620000710 09070 BA1 7,8,1 COMFT 09070 016464 7002662650 09080 CB1 C25,8 COMFT 09080 * 016471 3001652742 09090 JE $+30 GAWOLF09090 016476 5200321510 09095 SA1 SVBW,8 GAWOLF09095 016503 4420000076 09100 SC 0,076,1 1 GAWOLF09100 * 016510 1000237600 09105 JR ERDMP GAWOLF09105 * 016515 3001651560 09110 JD $ COMFT 09110 * 016522 3001642100 09120 J LBIT COMFT 09120 016527 5602663610 09130 BA1 C26,8 COMFT 09130 016534 5220000710 09140 SA1 7,8,1 COMFT 09140 016541 5200322510 09145 SA1 SBBT,8 GAWOLF09145 016546 3420000577 09150 CC 5,077,1 1 COMFT 09150 * 016553 3001654642 09160 JE $-5 COMFT 09160 016560 5620000710 09170 BA1 7,8,1 COMFT 09170 016565 7002664650 09180 CB1 C27,8 COMFT 09180 * 016572 3001662342 09190 JE $+25 GAWOLF09190 016577 5200321510 09195 SA1 SVBW,8 GAWOLF09195 * 016604 1000237600 09200 JR ERDMP GAWOLF09200 * 016611 3001661160 09210 JD $ COMFT 09210 * 016616 3001642100 09220 J LBIT COMFT 09220 016623 6000043736 09225 AC INT,30 GAWOLF09225 * 016630 3001542333 09230 JC COUNT,03033 GAWOLF09230 016635 5620000710 09300 I13 BA1 7,8,1 COMFT 09300 016642 5200321510 09305 SA1 SVBW,8 GAWOLF09305 016647 4420000076 09310 SC 0,076,1 1 GAWOLF09310 * 016654 1000237600 09315 JR ERDMP GAWOLF09315 * 016661 3001666160 09320 JD $ COMFT 09320 * 016666 3001543031 09330 JC COUNT+5,5,25 COMFT 09330 016673 6000043712 09340 I13A AC INT,10 GAWOLF09340 * 016700 1001016631 09350 JR DELAY,2525 GAWOLF09350 * 016705 3001542331 09360 JC COUNT,2525 GAWOLF09360 * 016712 3001671200 09900 PTYER J $ COMFT 09900 016717 5620000730 09901 BA2 7,8,1 GAWOLF09901 016724 5601671503 09910 BA1 PTYER+3,3,3 COMFT 09910 016731 5201676003 09920 SA1 $+23,3 GAWOLF09920 016736 5200321530 09924 SA2 SVBW,8 GAWOLF09924 * 016743 1000237600 09926 JR ERDMP GAWOLF09926 * 016750 3001675060 09930 JD $ COMFT 09930 * 016755 3001676731 09940 JC PTY+5,2525 GAWOLF09940 * 016762 3001676200 10000 PTY J $ PARITITY BIT)ODD,EVEN,IN,OUT,E BIT,INTERRUPT COMFT 10000 O 016767 5600314705 10005 BA1 TE8,5 GAWOLF10005 016774 5200162005 10006 SA1 TTN+1,5 5 GAWOLF10006 017001 2640001712 10010 PD 15,10,2 2 COMFT 10010 017006 5602742600 10020 BA1 C81,16 COMFT 10020 017013 5220001700 10030 SA1 15,16,1 1 BCW)P OUT XY IN COMFT 10030 017020 5240000710 10040 SA1 7,8,2 DATA COMFT 10040 * 017025 3001703225 10050 JC $+5,21 RSI,1 COMFT 10050 017032 2001771503 10060 FT I17,3 COMFT 10060 017037 5200043703 10070 SA1 INT,3 SET INT COMFT 10070 * 017044 1000220300 10075 JR SAVE GAWOLF10075 017051 4060020000 10080 XF 2,0,0,3 3 COMFT 10080 * 017056 1001775100 10090 JR PYT1 1ST 3 CHARACTERS OUT COMFT 10090 017063 5660000526 10100 BA2 5,6,3 COMFT 10100 017070 7002743666 10110 CB2 C82,6 CHECK DATA COMFT 10110 * 017075 3001710742 10120 JE $+10 COMFT 10120 * 017102 1001671500 10130 JR PTYER COMFT 10130 017107 4220000701 10140 ST 7,1,1 RESET INPUT BCW COMFT 10140 * 017114 1001775100 10150 JR PYT1 NEXT 3 CHAR. OUT COMFT 10150 017121 5660000526 10160 BA2 5,6,3 COMFT 10160 017126 7002744466 10170 CB2 C83-2,6 6 CHECK DATA COMFT 10170 * 017133 3001714542 10180 JE $+10 COMFT 10180 * 017140 1001671500 10190 JR PTYER COMFT 10190 017145 4400000006 10200 SC 0,06 GAWOLF10200 017152 4220000300 10210 ST 3,0,1 GAWOLF10210 017157 4220000701 10220 ST 7,1,1 RESET BCW_S)PF OUT XY IN COMFT 10220 * 017164 1002014100 10230 JR PYT2 1ST 3 CHARACTERS OUT COMFT 10230 017171 5660000526 10240 BA2 5,6,3 COMFT 10240 017176 7002743466 10250 CB2 C82-2,6 6 CHECK DATA COMFT 10250 * 017203 3001721542 10260 JE $+10 COMFT 10260 * 017210 1001671500 10270 JR PTYER COMFT 10270 017215 4220000701 10280 ST 7,1,1 COMFT 10280 * 017222 1002014100 10290 JR PYT2 NEXT 3 OUT COMFT 10290 017227 5660000526 10300 BA2 5,6,3 COMFT 10300 017234 7002744666 10310 CB2 C83,6 CHECK DATA COMFT 10310 * 017241 3001725342 10320 JE $+10 COMFT 10320 * 017246 1001671500 10330 JR PTYER COMFT 10330 * 017253 3001726565 10340 JC $+10,53 3 GAWOLF10340 * 017260 3001725300 10350 J $-5 GAWOLF10350 * 017265 3001727225 10370 JC PTYIN,2121 COMFT 10370 017272 5602746600 10400 PTYIN BA1 C84+4,1616 COMFT 10400 017277 5602747634 10410 BA2 C85,12 COMFT 10410 017304 5220001700 10420 SA1 15,16,1 1 COMFT 10420 017311 5240001334 10430 SA2 11,12,2 2 COMFT 10430 017316 4402037503 10431 SC G1+19,0303 GAWOLF10431 017323 4402041403 10432 SC B1-11,0303 GAWOLF10432 017330 4402045223 10433 SC B1+19,02023 GAWOLF10433 * 017335 1000220300 10434 JR SAVE GAWOLF10434 017342 4060020000 10440 XF 2,0,0,3 3 XY OUT, P IN GAWOLF10440 017347 4402036301 10450 SC G1+9,1 COMFT 10450 * 017354 1002035500 10460 JR G1 COMFT 10460 017361 4402044002 10470 SC B1+9,2 COMFT 10470 * 017366 1002043200 10480 JR B1 COMFT 10480 017373 4402044003 10490 SC B1+9,3 COMFT 10490 * 017400 1002043200 10500 JR B1 COMFT 10500 017405 4402036304 10510 SC G1+9,4 COMFT 10510 * 017412 1002035500 10520 JR G1 COMFT 10520 017417 4402036305 10530 SC G1+9,5 COMFT 10530 * 017424 1002035500 10540 JR G1 COMFT 10540 017431 4402044006 10550 SC B1+9,6 COMFT 10550 * 017436 1002043200 10560 JR B1 COMFT 10560 017443 4220000300 10570 ST 3,0,1 GAWOLF10570 017450 5660000526 10580 BA2 5,6,3 COMFT 10580 017455 7002750466 10590 CB2 C86 COMFT 10590 * 017462 3001747442 10600 JE $+10 COMFT 10600 * 017467 1001671500 10610 JR PTYER COMFT 10610 017474 4220000702 10620 ST 7,2,1 XY OUT PF IN COMFT 10620 017501 4402037507 10621 SC G1+19,0707 GAWOLF10621 017506 4402041407 10622 SC B1-11,0707 GAWOLF10622 017513 4402045227 10623 SC B1+19,02027 GAWOLF10623 017520 4402044001 10630 SC B1+9,1 COMFT 10630 * 017525 1002043200 10640 JR B1 COMFT 10640 017532 4402036302 10650 SC G1+9,2 COMFT 10650 * 017537 1002035500 10660 JR G1 COMFT 10660 017544 4402036303 10670 SC G1+9,3 COMFT 10670 * 017551 1002035500 10680 JR G1 COMFT 10680 017556 4402044004 10690 SC B1+9,4 COMFT 10690 * 017563 1002043200 10700 JR B1 COMFT 10700 017570 4402044005 10710 SC B1+9,5 COMFT 10710 * 017575 1002043200 10720 JR B1 COMFT 10720 017602 4402036306 10730 SC G1+9,6 COMFT 10730 * 017607 1002035500 10740 JR G1 COMFT 10740 017614 7060000566 10770 CB2 5,6,3 COMFT 10770 * 017621 3001763342 10780 JE $+10 COMFT 10780 * 017626 1001671500 10790 JR PTYER COMFT 10790 017633 4420000076 11170 SC 0,076,1 1 STOP GAWOLF11170 017640 6000043705 11180 AC INT,5 COMFT 11180 017645 5620000304 11181 BA1 3,4,1 GAWOLF11181 * 017652 1001016600 11190 JR DELAY COMFT 11190 017657 7020000344 11191 CB1 3,4,1 GAWOLF11191 * 017664 3001676242 11192 JE PTY GAWOLF11192 * 017671 1000224100 11195 JR SAFT GAWOLF11195 * 017676 1000237600 11196 JR ERDMP GAWOLF11196 * 017703 3001770360 11200 JD $ COMFT 11200 * 017710 3001676700 11210 J PTY+5 COMFT 11210 * 017715 3000043022 11220 I17 JC 0430,02222 GAWOLF11220 * 017722 1000224100 11262 JR SAFT GAWOLF11262 * 017727 1000237600 11263 JR ERDMP GAWOLF11263 * 017734 3001773460 11270 JD $ COMFT 11270 * 017741 3001676700 11280 J PTY+5 COMFT 11280 * 017746 3001774600 11300 PYT1 J $ COMFT 11300 * 017753 1000220300 11305 JR SAVE GAWOLF11305 017760 3420000502 11310 CC 5,2,1 WAIT FOR INPUT COMFT 11310 * 017765 3001776041 11320 JG $-5 GAWOLF11320 017772 3420000401 11330 CC 4,1,1 CHK IPEFT COMFT 11330 * 017777 3002001142 11340 JE $+10 COMFT 11340 * 020004 1001671500 11350 JR PTYER COMFT 11350 * 020011 1001671565 11360 JR PTYER,5353 TSI1 (INTERRUPT COMFT 11360 020016 4420000403 11370 SC 4,03,1 SET PXY IN GAWOLF11370 020023 3420000504 11380 CC 5,4,1 WAIT FOR INPUT COMFT 11380 * 020030 3002002341 11390 JG $-5 GAWOLF11390 020035 3420000403 11400 CC 4,03,1 CHECK IETFP GAWOLF11400 * 020042 3002005442 11410 JE $+10 COMFT 11410 * 020047 1001671500 11420 JR PTYER COMFT 11420 * 020054 1001671565 11430 JR PTYER,5353 TSI1 COMFT 11430 020061 4420000407 11440 SC 4,07,1 SET FPXY IN GAWOLF11440 020066 3420000506 11450 CC 5,6,1 WAIT COMFT 11450 * 020073 3002006641 11460 JG $-5 GAWOLF11460 020100 3420000427 11470 CC 4,027,1 1 LOOK FOR E BIT GAWOLF11470 * 020105 3002011742 11480 JE $+10 COMFT 11480 * 020112 1001671500 11490 JR PTYER COMFT 11490 * 020117 3002013165 11500 JC $+10,53 3 LOOK FOR INTERRUPT COMFT 11500 * 020124 1001671500 11510 JR PTYER COMFT 11510 * 020131 3001774625 11520 JC PYT1,21 1 RSI1,RETURN COMFT 11520 * 020136 3002013600 11600 PYT2 J $ COMFT 11600 * 020143 1000220300 11605 JR SAVE GAWOLF11605 020150 3420000502 11610 CC 5,2,1 SAME AS PYT1 EXCEPT COMFT 11610 * 020155 3002015041 11620 JG $-5 INTERRUPT ON 2ND GAWOLF11620 020162 3420000401 11630 CC 4,1,1 CHAR. INSTEAD OF 3RD COMFT 11630 * 020167 3002020142 11640 JE $+10 GAWOLF11640 * 020174 1001671500 11650 JR PTYER COMFT 11650 * 020201 1001671565 11660 JR PTYER,5353 COMFT 11660 020206 4420000403 11670 SC 4,03,1 SET P IN GAWOLF11670 * 020213 1000220300 11675 JR SAVE GAWOLF11675 020220 3420000504 11680 CC 5,4,1 COMFT 11680 * 020225 3002022041 11690 JG $-5 GAWOLF11690 020232 3420000423 11700 CC 4,023,1 1 LOOK FOR E BIT GAWOLF11700 * 020237 3002025142 11710 JE $+10 COMFT 11710 * 020244 1001671500 11720 JR PTYER COMFT 11720 * 020251 3002026365 11730 JC $+10,53 3 COMFT 11730 * 020256 1001671500 11740 JR PTYER COMFT 11740 * 020263 3002027025 11745 JC $+5,025 5 GAWOLF11745 020270 4420000407 11750 SC 4,07,1 SET PF IN GAWOLF11750 * 020275 1000220300 11755 JR SAVE GAWOLF11755 020302 3420000506 11760 CC 5,6,1 COMFT 11760 * 020307 3002030241 11770 JG $-5 GAWOLF11770 020314 3420000407 11780 CC 4,07,1 GAWOLF11780 * 020321 3002033342 11790 JE $+10 COMFT 11790 * 020326 1001671500 11800 JR PTYER COMFT 11800 * 020333 1001671565 11810 JR PTYER,5353 COMFT 11810 * 020340 3002013600 11820 J PYT2 COMFT 11820 * 020345 1001671565 11830 JR PTYER,5353 E BAR,NO INT COMFT 11830 * 020352 3002035200 11840 G1 J $ COMFT 11840 020357 3420000501 11850 CC 5,1,1 COMFT 11850 * 020364 3002035741 11860 JG $-5 GAWOLF11860 020371 3420000403 11870 CC 4,03,1 GAWOLF11870 * 020376 3002034542 11880 JE G1-5 COMFT 11880 * 020403 1001671500 11890 JR PTYER COMFT 11890 020410 4420000403 11895 SC 4,03,1 GAWOLF11895 * 020415 3002042765 11900 JC $+10,53 3 E,INTERRUPT COMFT 11900 * 020422 1001671500 11910 JR PTYER COMFT 11910 * 020427 3002042725 11920 B1 JC $,21 COMFT 11920 020434 3420000501 11930 CC 5,1,1 COMFT 11930 * 020441 3002043441 11940 JG $-5 GAWOL+11940 020446 3420000423 11950 CC 4,023,1 1 GAWOLF11950 * 020453 3002041042 11960 JE B1-15 GAWOLF11960 * 020460 1001671500 11970 JR PTYER COMFT 11970 * 020465 3002046500 12000 BFFL J $ CHECKCK BUFFER FULL WITH VARIOUS I,P,E,L,H COMFT 12000 R 020472 5600315405 12005 BA1 TE9,5 GAWOLF12005 020477 5200162005 12006 SA1 TTN+1,5 5 GAWOLF12006 020504 2640000304 12010 PD 3,4,2 COMFT 12010 020511 2640004310 12020 PD 35,8,2 CLEAR I-O AREAS COMFT 12020 020516 2660000411 12030 PD 4,9,3 GAWOLF12030 020523 2660007704 12040 PD 63,4,3 COMFT 12040 020530 2002167703 12050 FT I14,3 SET INT TO I14,THEN I14A COMFT 12050 020535 5200043703 12060 SA1 INT,3 COMFT 12060 020542 5602665610 12070 E BA1 C30,8 BCW_S COMFT 12070 020547 5220000710 12080 SA1 7,8,1 COMFT 12080 * 020554 1000220300 12085 JR SAVE GAWOLF12085 * 020561 3002056632 12090 JC $+5,26 COMFT 12090 020566 4060020000 12100 XF 2,0,0,3 3 COMFT 12100 020573 3420000137 12110 CC 1,31,1 COMFT 12110 * 020600 3002057342 12120 JE $-5 COMFT 12120 020605 5620000730 12130 BA2 7,8,1 COMFT 12130 * 020612 3002061733 12140 JC $+5,27 COMFT 12140 020617 5200003761 12150 SAR 31 324 MICROSECONDS COMFT 12150 * 020624 1002162000 12160 JR NWSB NO INTERRUPT COMFT 12160 020631 5602667610 12200 EH BA1 C32,8 SHOULD NOT INTERRUPT. COMFT 12200 020636 5220000710 12210 SA1 7,8,1 INTERRUPT WILL GO THRU COMFT 12210 * 020643 1000220300 12215 JR SAVE GAWOLF12215 020650 3420000577 12220 CC 5,63,1 I14A TO NWSB COMFT 12220 * 020655 3002065042 12230 JE $-5 COMFT 12230 020662 5620000730 12240 BA2 7,8,1 COMFT 12240 020667 7002670670 12250 CB2 C33,8 COMFT 12250 * 020674 3002070642 12260 JE IH COMFT 12260 * 020701 1002162000 12270 JR NWSB COMFT 12270 020706 5602671610 12280 IH BA1 C34,8 I14A STILL SET GAWOLF12280 020713 5220000710 12290 SA1 7,8,1 GAWOLF12290 020720 3420000540 12300 CC 5,040,1 1 SHOULD NOT INTERRUPT GAWOLF12300 * 020725 3002072043 12310 JU $-5 GAWOLF12310 020732 5620000730 12320 BA2 7,8,1 GAWOLF12320 020737 7002672670 12330 CB2 C35,8 GAWOLF12330 * 020744 3002075642 12340 JE $+10 GAWOLF12340 * 020751 1002162000 12350 JR NWSB BAD BCW_S GAWOLF12350 * 020756 1001016600 12360 JR DELAY GAWOLF12360 020763 7020000770 12370 CB2 7,8,1 GAWOLF12370 * 020770 3002100242 12380 JE IPH GAWOLF12380 * 020775 1002162000 12390 JR NWSB DID NOT STOP GAWOLF12390 021002 5602673610 12400 IPH BA1 C36,8 I14A STILL SET GAWOLF12400 021007 5220000710 12410 SA1 7,8,1 GAWOLF12410 * 021014 1000220300 12415 JR SAVE GAWOLF12415 021021 4060020000 12420 XF 2,0,0,3 3 SHOULD NOT INTERRUPT GAWOLF12420 021026 3420000540 12430 CC 5,040,1 1 GAWOLF12430 * 021033 3002102643 12440 JU $-5 GAWOLF12440 021040 5620000730 12450 BA2 7,8,1 GAWOLF12450 021045 7002674670 12460 CB2 C37,8 GAWOLF12460 * 021052 3002106442 12470 JE $+10 GAWOLF12470 * 021057 1002162000 12480 JR NWSB WRONG BCW_S GAWOLF12480 * 021064 1001016600 12490 JR DELAY GAWOLF12490 021071 7020000770 12491 CB2 7,8,1 GAWOLF12491 * 021076 3002111042 12492 JE EL GAWOLF12492 * 021103 1002162000 12493 JR NWSB DID NOT STOP GAWOLF12493 021110 5602675610 12500 EL BA1 C38,8 I14E STILL SET. COMFT 12500 021115 5220000710 12510 SA1 7,8,1 INTERRUPT IS ERROR COMFT 12510 * 021122 1000220300 12515 JR SAVE GAWOLF12515 021127 4060020000 12520 XF 2,0,0,3 3 COMFT 12520 021134 3420000537 12530 CC 5,31,1 WAIT FOR INPUT INCREMENT COMFT 12530 * 021141 3002113442 12540 JE $-5 COMFT 12540 021146 5620000730 12550 BA2 7,8,1 COMFT 12550 021153 7002676670 12560 CB2 C39,8 COMFT 12560 * 021160 3002117242 12570 JE $+10 COMFT 12570 * 021165 1002162000 12580 JR NWSB COMFT 12580 021172 6000043731 12590 AC INT,25 SET I14F GAWOLF12590 021177 4420000177 12600 SC 1,63,1 SET FOR BUFF FULL INTERRUPT COMFT 12600 021204 4420000577 12610 SC 5,63,1 COMFT 12610 * 021211 1000220300 12615 JR SAVE GAWOLF12615 * 021216 1001016600 12620 JR DELAY WAIT FOR INTERRUPT COMFT 12620 * 021223 1002162000 12630 JR NWSB COMFT 12630 021230 5602700610 12700 IHL BA1 C41,8 I14G STILL SET COMFT 12700 021235 5620000521 12701 BA2 5,1,1 WAIT FOR TIME BETWEEN NEXT GAWOLF12701 021242 7020000561 12702 CB2 5,1,1 INPUT AND FOLLOWING OUTPUT GAWOLF12702 * 021247 3002124242 12703 JE $-5 GAWOLF12703 021254 6000043750 12704 AC INT,40 GAWOLF12704 021261 5220000710 12710 SA1 7,8,1 INTERRUPT IS ERROR COMFT 12710 021266 5200322510 12711 SA1 SBBT,8 12711 021273 3420000537 12720 CC 5,31,1 COMFT 12720 * 021300 3002127342 12730 JE $-5 COMFT 12730 021305 5620000730 12740 BA2 7,8,1 LOOK FOR 32 BYPASS COMFT 12740 021312 7002701670 12750 CB2 C42,8 COMFT 12750 * 021317 3002133142 12760 JE $+10 COMFT 12760 * 021324 1002162000 12770 JR NWSB COMFT 12770 021331 4420000177 12780 SC 1,63,1 SET FOR 64 INTERRUPT COMFT 12780 021336 4420000577 12790 SC 5,63,1 AND STOP AT I14H COMFT 12790 * 021343 1000220300 12795 JR SAVE GAWOLF12795 021350 3420000577 12800 CC 5,63,1 GAWOLF12800 * 021355 3002135042 12810 JE $-5 GAWOLF12810 021362 5620000730 12820 BA2 7,8,1 GAWOLF12820 021367 7002702670 12830 CB2 C43,8 GAWOLF12830 * 021374 3002140642 12840 JE $+10 GAWOLF12840 * 021401 1002162000 12850 JR NWSB GAWOLF12850 * 021406 1001016600 12860 JR DELAY GAWOLF12860 021413 7020000770 12870 CB2 7,8,1 GAWOLF12870 * 021420 3002143242 12880 JE IPHL GAWOLF12880 * 021425 1002162000 12890 JR NWSB GAWOLF12890 021432 5602703610 12900 IPHL BA1 C44,8 I14J STILL SET COMFT 12900 021437 5220000710 12910 SA1 7,8,1 INTERRUPT IS ERROR COMFT 12910 * 021444 1000220300 12915 JR SAVE GAWOLF12915 021451 4060020000 12920 XF 2,0,0,3 3 COMFT 12920 021456 3420000537 12930 CC 5,31,1 COMFT 12930 * 021463 3002145642 12940 JE $-5 LOOK FOR 32 BYPASS COMFT 12940 021470 5620000730 12950 BA2 7,8,1 COMFT 12950 021475 7002704670 12960 CB2 C45,8 COMFT 12960 * 021502 3002151442 12970 JE $+10 COMFT 12970 * 021507 1002162000 12980 JR NWSB COMFT 12980 021514 4420000177 12990 SC 1,63,1 SET FOR 64 INTERRUPT COMFT 12990 021521 4420000577 13000 SC 5,63,1 AND STOP AT I14K COMFT 13000 * 021526 1000220300 13005 JR SAVE GAWOLF13005 021533 3420000577 13010 CC 5,63,1 GAWOLF13010 * 021540 3002153342 13020 JE $-5 GAWOLF13020 021545 5620000730 13030 BA2 7,8,1 GAWOLF13030 021552 7002705670 13040 CB2 C46,8 GAWOLF13040 * 021557 3002157142 13050 JE $+10 GAWOLF13050 * 021564 1002162000 13060 JR NWSB GAWOLF13060 * 021571 1001016600 13070 JR DELAY GAWOLF13070 021576 7020000770 13080 CB2 7,8,1 GAWOLF13080 * 021603 3002046542 13090 JE BFFL GAWOLF13090 * 021610 1002162000 13091 JR NWSB GAWOLF13091 * 021615 3002161540 13100 NWSB JC $,32 NOT WHAT SHOULD BE COMFT 13100 021622 5200017703 13110 SA1 127,3 COMFT 13110 021627 5602162003 13120 BA1 NWSB+3,3,3 START BCW_S IN AR1 COMFT 13120 021634 5202167003 13130 SA1 $+28,3 END BCW_S IN AR2 GAWOLF13130 021641 5600017703 13140 BA1 127,3 COMFT 13140 * 021646 1000224100 13145 JR SAFT GAWOLF13145 021653 4420000076 13150 SC 0,076,1 1 GAWOLF13150 * 021660 1000237600 13155 JR ERDMP GAWOLF13155 * 021665 3002166560 13160 JD $ COMFT 13160 * 021672 3002047231 13170 JC BFFL+5,2,25 COMFT 13170 021677 6000043724 13200 I14 AC INT,20 SET I14A GAWOLF13200 021704 5620001720 13201 BA2 15,16,1 1 GAWOLF13201 * 021711 1001016631 13210 JR DELAY,2525 E OUT COMFT 13210 * 021716 1002162000 13220 JR NWSB COMFT 13220 021723 5620000730 13240 I14A BA2 7,8,1 E IN COMFT 13240 021730 7002666670 13250 CB2 C31,8 EH OUT,IN ERROR COMFT 13250 * 021735 3002174742 13260 JE $+10 COMFT 13260 * 021742 1002162000 13270 JR NWSB COMFT 13270 * 021747 3002063131 13280 JC EH,25 COMFT 13280 021754 6000043717 13510 I14F AC INT,15 EL BUFFER FULL OUTPUT COMFT 13510 * 021761 1001016631 13520 JR DELAY,2525 COMFT 13520 * 021766 1002162000 13530 JR NWSB COMFT 13530 021773 5620000730 13540 I14G BA2 7,8,1 EL BUFFER FULL INPUT COMFT 13540 022000 7002677670 13550 CB2 C40,8 COMFT 13550 * 022005 3002201742 13560 JE $+10 COMFT 13560 * 022012 1002162000 13570 JR NWSB COMFT 13570 * 022017 1001016631 13580 JR DELAY,2525 COMFT 13580 022024 7020000770 13590 CB2 7,8,1 CHECK FOR NO STOP GAWOLF13590 * 022031 3002123043 13600 JU IHL COMFT 13600 * 022036 1002162000 13610 JR NWSB COMFT 13610 022043 5620000730 13650 I14J BA2 7,8,1 IHL IN COMFT 13650 * 022050 1002162000 13680 JR NWSB COMFT 13680 * 022055 3002205500 14000 CNTRL J $ TEST T FOR ASCII AND BAUDOT CONTROL CHARACTERS COMFT 14000 C 022062 5600316105 14005 BA1 TE10,5 GAWOLF14005 022067 5200162005 14006 SA1 TTN+1,5 5 GAWOLF14006 022074 2002261303 14010 FT I15,3 COMFT 14010 022101 5200043703 14020 SA1 INT,3 COMFT 14020 022106 4600043717 14030 BT INT,15 COMFT 14030 022113 4402261717 14031 SC I15+4,1515 14031 022120 5602707600 14040 BA1 C50,16 COMFT 14040 022125 5240001700 14050 SA1 15,16,2 2 COMFT 14050 022132 5602722600 14060 BA1 C61,16 COMFT 14060 022137 5602711620 14070 BA2 C51,16 COMFT 14070 * 022144 1002245200 14090 JR XF COMFT 14090 022151 5602724600 14100 BA1 C63,16 COMFT 14100 022156 5602713620 14110 BA2 C52,16 COMFT 14110 * 022163 1002245200 14120 JR XF COMFT 14120 022170 5602726600 14130 BA1 C65,16 COMFT 14130 022175 5602715620 14140 BA2 C53,16 COMFT 14140 * 022202 1002245200 14150 JR XF COMFT 14150 022207 2660002004 14151 PD 16,4,3 GAWOLF14151 022214 5602707620 14160 BA2 C50,16 COMFT 14160 022221 2600003501 14161 PD 035,1 GAWOLF14161 022226 5602711600 14170 BA1 C51,16 COMFT 14170 022233 5240001700 14180 SA1 15,16,2 2 COMFT 14180 022240 5602764304 14181 BA1 C101,4 GAWOLF14181 022245 5240002304 14182 SA1 19,4,2 GAWOLF14182 022252 5602730600 14190 BA1 C67,16 COMFT 14190 * 022257 1002245200 14200 JR XF COMFT 14200 022264 5602713600 14210 BA1 C52,16 COMFT 14210 022271 5240001700 14220 SA1 15,16,2 2 COMFT 14220 022276 5602732600 14230 BA1 C69,16 COMFT 14230 * 022303 1002245200 14240 JR XF COMFT 14240 022310 5602715600 14250 BA1 C53,16 COMFT 14250 022315 5240001700 14260 SA1 15,16,2 2 COMFT 14260 022322 4440002201 14261 SC 18,1,2 GAWOLF14261 022327 4440002001 14262 SC 16,1,2 GAWOLF14262 022334 5602734600 14270 BA1 C71,16 COMFT 14270 * 022341 1002245200 14280 JR XF COMFT 14280 022346 6002261743 14290 AC I15+4,3535 GAWOLF14290 022353 5602717614 14300 BA1 C54,12 GAWOLF14300 022360 5240001314 14310 SA1 11,12,2 2 GAWOLF14310 022365 5602720426 14320 BA2 C55-2,6 6 GAWOLF14320 022372 5602740600 14330 BA1 C75,16 GAWOLF14330 022377 4402270140 14340 SC I15B+4,3,32 COMFT 14340 * 022404 1002245200 14350 JR XF COMFT 14350 022411 5602720630 14360 BA2 C55,8 GAWOLF14360 022416 5240000730 14361 SA2 7,8,2 GAWOLF14361 022423 5602736600 14370 BA1 C73,16 GAWOLF14370 022430 5602763632 14380 BA2 C100-1,1,10 GAWOLF14380 * 022435 1002245200 14390 JR XF COMFT 14390 * 022442 3002205500 14391 J CNTRL GAWOLF14391 * 022447 3002244700 14400 XF J $ COMFT 14400 022454 4200043717 14410 ST INT,15 COMFT 14410 022461 4220000300 14420 ST 3,0,1 GAWOLF14420 022466 4220000701 14430 ST 7,1,1 COMFT 14430 * 022473 1000220300 14435 JR SAVE GAWOLF14435 022500 4060020000 14440 XF 2,0,0,3 3 COMFT 14440 022505 4402252304 14450 SC $+14,4 GAWOLF14450 * 022512 1001016600 14460 JR DELAY COMFT 14460 * 022517 3202251204 14470 JL $-5,4 COMFT 14470 022524 5620000710 14480 BA1 7,8,1 COMFT 14480 * 022531 1000224100 14485 JR SAFT GAWOLF14485 022536 4420000076 14490 SC 0,076,1 1 GAWOLF14490 * 022543 1000237600 14495 JR ERDMP GAWOLF14495 * 022550 3002255060 14500 JD $ COMFT 14500 * 022555 3002206231 14510 JC CNTRL+5,5,25 COMFT 14510 022562 5620000710 14520 BI15 BA1 7,8,1 GAWOLF14520 * 022567 1000224100 14530 JR SAFT GAWOLF14530 * 022574 1000237600 14540 JR ERDMP GAWOLF14540 * 022601 3002260160 14550 JD $ GAWOLF14550 * 022606 3002206231 14560 JC CNTRL+5,5,25 GAWOLF14560 022613 6000043717 14600 I15 AC INT,15 GAWOLF14600 * 022620 1001016631 14610 JR DELAY,2525 GAWOLF14610 * 022625 3002256200 14620 J BI15 14620 022632 7020000750 14650 I15A CB1 7,8,1 COMFT 14650 * 022637 3002265142 14660 JE $+10 GAWOLF14660 * 022644 1002302000 14661 JR I15ER GAWOLF14661 022651 7060001760 14670 CB2 15,16,3 3 COMFT 14670 * 022656 3002267042 14680 JE $+10 GAWOLF14680 * 022663 1002302000 14681 JR I15ER GAWOLF14681 * 022670 3002244731 14690 JC XF,25 COMFT 14690 * 022675 3002275240 14700 I15B JC I15C,32 2 COMFT 14700 022702 7020000750 14710 CB1 7,8,1 COMFT 14710 * 022707 3002272142 14720 JE $+10 GAWOLF14720 * 022714 1002302000 14721 JR I15ER GAWOLF14721 022721 7060000566 14730 CB2 5,6,3 GAWOLF14730 * 022726 3002274042 14740 JE $+10 GAWOLF14740 * 022733 1002302000 14741 JR I15ER GAWOLF14741 022740 4402270100 14750 SC I15B+4,0,0 SET I15C GAWOLF14750 * 022745 3002244731 14760 JC XF,25 COMFT 14760 022752 7020000750 14800 I15C CB1 7,8,1 COMFT 14800 * 022757 3002277142 14810 JE $+10 GAWOLF14810 * 022764 1002302000 14811 JR I15ER GAWOLF14811 022771 7060001172 14820 CB2 9,10,3 GAWOLF14820 * 022776 3002301042 14830 JE $+10 GAWOLF14830 * 023003 1002302000 14831 JR I15ER GAWOLF14831 * 023010 3002205531 14840 JC CNTRL,2525 COMFT 14840 * 023015 3002301500 14900 I15ER J $ GAWOLF14900 023022 5602302003 14910 BA1 I15ER+3,3,3 GAWOLF14910 023027 5202306303 14920 SA1 $+28,3 GAWOLF14920 023034 5620000710 14930 BA1 7,8,1 GAWOLF14930 * 023041 1000224100 14935 JR SAFT GAWOLF14935 023046 4420000076 14940 SC 0,076,1 1 GAWOLF14940 * 023053 1000237600 14945 JR ERDMP GAWOLF14945 * 023060 3002306060 14950 JD $ GAWOLF14950 * 023065 3002206231 14960 JC CNTRL+5,5,25 GAWOLF14960 * 023072 3002307200 15000 TDC J $ TEST T 1 SECOND TIME DELAY CLOCK COMFT 15000 N 023077 2620000710 15001 PD 7,8,1 GAWOLF15001 023104 5600316605 15005 BA1 TE11,5 GAWOLF15005 023111 5200162005 15006 SA1 TTN+1,5 5 GAWOLF15006 023116 2002331303 15010 FT I16,3 COMFT 15010 023123 5200043703 15020 SA1 INT,3 COMFT 15020 023130 4060002000 15021 XF 0,02000,0,0,3 GAWOLF15021 * 023135 3002314753 15022 JC $+10,43 3 GAWOLF15022 * 023142 1002336600 15023 JR ERC GAWOLF15023 * 023147 1000220300 15025 JR SAVE GAWOLF15025 023154 4060402000 15030 XF 040,0200000,0,3 COMFT 15030 * 023161 1001016600 15040 JR DELAY COMFT 15040 023166 4060002000 15050 XF 0,02000,0,0,3 COMFT 15050 * 023173 3002320553 15060 JC $+10,43 3 COMFT 15060 * 023200 3002321200 15061 J $+10 GAWOLF15061 * 023205 1002336600 15070 JR ERC COMFT 15070 023212 6000043705 15080 AC INT,5 COMFT 15080 * 023217 1001016600 15090 JR DELAY COMFT 15090 023224 4060002000 15100 XF 0,02000,0,0,3 COMFT 15100 * 023231 3002324353 15110 JC $+10,43 3 COMFT 15110 * 023236 3002325000 15111 J $+10 GAWOLF15111 * 023243 1002336600 15120 JR ERC COMFT 15120 023250 6000043717 15130 AC INT,15 15130 * 023255 1001016600 15140 JR DELAY COMFT 15140 023262 4060002000 15150 XF 0,02000,0,0,3 COMFT 15150 * 023267 3002330153 15160 JC $+10,43 3 COMFT 15160 * 023274 3002330600 15161 J $+10 15161 * 023301 1002336600 15170 JR ERC COMFT 15170 * 023306 1002336600 15180 JR ERC COMFT 15180 * 023313 1002336600 15200 I16 JR ERC COMFT 15200 023320 3401023340 15210 I16A CC CRCT-1,3,32 15210 * 023325 3002333744 15220 JS $+10 GAWOLF15220 * 023332 1002336600 15230 JR ERC COMFT 15230 023337 4060002000 15270 I16B XF 0,02000,0,0,3 COMFT 15270 * 023344 3002335653 15280 JC $+10,43 3 COMFT 15280 * 023351 1002336600 15281 JR ERC GAWOLF15281 * 023356 3002307231 15290 JC TDC,25 COMFT 15290 * 023363 3002336300 15400 ERC J $ COMFT 15400 * 023370 1000224100 15405 JR SAFT GAWOLF15405 023375 5602336603 15410 BA1 ERC+3,3 3 COMFT 15410 023402 5202341703 15420 SA1 $+13,3 GAWOLF15420 * 023407 1000237600 15425 JR ERDMP GAWOLF15425 * 023414 3002341460 15430 JD $ COMFT 15430 * 023421 3002307731 15440 JC TDC+5,2525 COMFT 15440 * 023426 3002342600 15500 BF2C J $ GAWOLF15500 023433 5600317305 15505 BA1 TE12,5 GAWOLF15505 023440 5200162005 15506 SA1 TTN+1,5 5 GAWOLF15506 023445 2640000203 15510 PD 2,3,2 GAWOLF15510 023452 2640004204 15520 PD 34,4,2 GAWOLF15520 023457 2640010204 15530 PD 66,4,2 GAWOLF15530 023464 2640020002 15540 PD 128,2,2 2 GAWOLF15540 023471 2002411403 15550 FT I18,3 GAWOLF15550 023476 5200043703 15560 SA1 INT,3 GAWOLF15560 023503 4600043717 15570 BT INT,017 7 GAWOLF15570 023510 5602752400 15580 BA1 C91,16 GAWOLF15580 * 023515 1002374600 15600 JR DCOI GAWOLF15600 023522 5602754400 15610 BA1 C93,16 GAWOLF15610 023527 6000043743 15620 AC INT,35 GAWOLF15620 * 023534 1002402300 15630 JR DCC GAWOLF15630 023541 5602756400 15640 BA1 C95,16 GAWOLF15640 * 023546 1002402300 15660 JR DCC GAWOLF15660 * 023553 1001016600 15670 JR DELAY GAWOLF15670 023560 7020000750 15680 CB1 7,8,1 GAWOLF15680 * 023565 3002362342 15690 JE ASC GAWOLF15690 * 023572 1000224100 15695 JR SAFT GAWOLF15695 023577 4420000076 15700 SC 0,076,1 1 GAWOLF15700 * 023604 1000237600 15705 JR ERDMP GAWOLF15705 * 023611 3002361160 15710 JD $ GAWOLF15710 * 023616 3002343331 15720 JC BF2C+5,2,25 GAWOLF15720 023623 4440007777 15730 ASC SC 077,077,7,2 GAWOLF15730 023630 5602760400 15750 BA1 C97,16 GAWOLF15750 023635 4200043717 15751 ST INT,017 7 GAWOLF15751 * 023642 1002374600 15760 JR DCOI GAWOLF15760 023647 6000043743 15770 AC INT,35 GAWOLF15770 023654 5602762400 15780 BA1 C99,16 GAWOLF15780 * 023661 1002402300 15790 JR DCC GAWOLF15790 * 023666 1001016600 15800 JR DELAY GAWOLF15800 023673 7020000750 15810 CB1 7,8,1 GAWOLF15810 * 023700 3002342642 15820 JE BF2C GAWOLF15820 023705 5620000730 15830 BA2 7,8,1 GAWOLF15830 * 023712 1000224100 15835 JR SAFT GAWOLF15835 023717 4420000076 15840 SC 0,076,1 1 GAWOLF15840 * 023724 1000237600 15845 JR ERDMP GAWOLF15845 * 023731 3002373160 15850 JD $ GAWOLF15850 * 023736 3002343331 15860 JC BF2C+5,2,25 GAWOLF15860 * 023743 3002374331 15900 DCOI JC $,25 GAWOLF15900 023750 5220001700 15910 SA1 15,16,1 1 GAWOLF15910 * 023755 1000220300 15915 JR SAVE GAWOLF15915 023762 4060020000 15920 XF 2,0,0,3 3 GAWOLF15920 * 023767 1001016631 15930 JR DELAY,2525 GAWOLF15930 * 023774 1000224100 15935 JR SAFT GAWOLF15935 * 024001 1000237600 15936 JR ERDMP GAWOLF15936 * 024006 3002400660 15940 JD $ GAWOLF15940 * 024013 3002343300 15950 J BF2C+5 GAWOLF15950 * 024020 3002402000 16000 DCC J $ GAWOLF16000 024025 5220001700 16010 SA1 15,16,1 1 GAWOLF16010 * 024032 1000220300 16015 JR SAVE GAWOLF16015 024037 3420000501 16020 CC 5,01,1 GAWOLF16020 * 024044 3002403743 16025 JU $-5 GAWOLF16025 024051 7020000750 16030 CB1 7,8,1 GAWOLF16030 * 024056 3002402042 16035 JE DCC GAWOLF16035 024063 5620000730 16040 BA2 7,8,1 GAWOLF16040 * 024070 1000224100 16045 JR SAFT GAWOLF16045 * 024075 1000237600 16046 JR ERDMP GAWOLF16046 * 024102 3002410260 16050 JD $ GAWOLF16050 * 024107 3002343300 16060 J BF2C+5 GAWOLF16060 024114 6000043736 16100 I18 AC INT,30 GAWOLF16100 * 024121 1001016631 16110 JR DELAY,2525 GAWOLF16110 * 024126 1000224100 16115 JR SAFT GAWOLF16115 * 024133 1000237600 16116 JR ERDMP GAWOLF16116 * 024140 3002414060 16120 JD $ GAWOLF16120 * 024145 3002343300 16130 J BF2C+5 GAWOLF16130 024152 7020000750 16140 I18A CB1 7,8,1 GAWOLF16140 * 024157 3002374342 16150 JE DCOI GAWOLF16150 024164 5620000730 16151 BA2 7,8,1 GAWOLF16151 * 024171 1000224100 16152 JR SAFT GAWOLF16152 * 024176 1000237600 16153 JR ERDMP GAWOLF16153 * 024203 3002420360 16160 JD $ GAWOLF16160 * 024210 3002343331 16170 JC BF2C+5,2,25 GAWOLF16170 024215 5620000730 16200 I18B BA2 7,8,1 GAWOLF16200 * 024222 1000224100 16205 JR SAFT GAWOLF16205 * 024227 1000237600 16206 JR ERDMP GAWOLF16206 * 024234 3002423460 16210 JD $ GAWOLF16210 * 024241 3002343331 16220 JC BF2C+5,2,25 GAWOLF16220 * 024246 3002424600 16500 LO J $ LOCKOUT TEST GAWOLF16500 024253 5600320005 16505 BA1 TE13,5 GAWOLF16505 024260 5200162005 16506 SA1 TTN+1,5 5 GAWOLF16506 024265 5602630610 16510 BA1 C1,8 GAWOLF16510 024272 4400001723 16511 SC 017,023 3 GAWOLF16511 024277 5220000710 16520 SA1 7,8,1 GAWOLF16520 024304 5602622323 16530 BA2 LIST2+02024,3 GAWOLF16530 024311 5240000223 16540 SA2 2,3,2 GAWOLF16540 024316 2002453207 16550 FT I19,7 GAWOLF16550 024323 5200043723 16560 SA2 INT,3 GAWOLF16560 * 024330 1000220300 16565 JR SAVE GAWOLF16565 024335 4060400400 16570 XF 040,040000,0,3 LOCKOUT OUTPUT GAWOLF16570 024342 4060020000 16580 XF 2,0,0,3 3 XMIT GAWOLF16580 * 024347 1001016600 16590 JR DELAY GAWOLF16590 024354 7020000750 16600 CB1 7,8,1 GAWOLF16600 * 024361 3002437342 16610 JE $+10 GAWOLF16610 * 024366 1002461200 16620 JR LOER GAWOLF16620 024373 4060401000 16630 XF 040,0100000,0,3 RELEASE GAWOLF16630 024400 5200003761 16640 SAR 31 .3 MILLISECOND GAWOLF16640 024405 7020000750 16650 CB1 7,8,1 GAWOLF16650 * 024412 3002442443 16660 JU $+10 GAWOLF16660 * 024417 1002461200 16670 JR LOER GAWOLF16670 024424 4060400400 16680 XF 040,040000,0,3 LOCKOUT INPUT GAWOLF16680 024431 5620000710 16690 BA1 7,8,1 GAWOLF16690 * 024436 1001016600 16700 JR DELAY GAWOLF16700 024443 7020000750 16710 CB1 7,8,1 GAWOLF16710 * 024450 3002446242 16720 JE $+10 GAWOLF16720 * 024455 1002461200 16730 JR LOER GAWOLF16730 024462 4060401000 16740 XF 040,0100000,0,3 RELEASE INPUT GAWOLF16740 024467 5200003761 16750 SAR 31 .3 MS GAWOLF16750 024474 7020000744 16760 CB1 7,4,1 INPUT BCW GAWOLF16760 * 024501 3002451343 16770 JU $+10 GAWOLF16770 * 024506 1002461200 16780 JR LOER GAWOLF16780 024513 6000043705 16790 AC INT,5 GAWOLF16790 * 024520 1001016600 16800 JR DELAY GAWOLF16800 * 024525 1002461200 16810 JR LOER GAWOLF16810 * 024532 1002461231 16820 I19 JR LOER,25 5 GAWOLF16820 024537 6000043717 16830 I19A AC INT,15 GAWOLF16830 * 024544 1001016631 16840 JR DELAY,2525 GAWOLF16840 * 024551 1002461200 16850 JR LOER GAWOLF16850 024556 5620000710 16860 I19B BA1 7,8,1 GAWOLF16860 * 024563 1001016631 16870 JR DELAY,2525 GAWOLF16870 024570 7020000750 16880 CB1 7,8,1 GAWOLF16880 * 024575 3002424642 16890 JE LO GAWOLF16890 * 024602 1002461200 16900 JR LOER GAWOLF16900 * 024607 3002460700 16910 LOER J $ GAWOLF16910 * 024614 1000224100 16915 JR SAFT GAWOLF16915 024621 4420000076 16920 SC 0,076,1 1 GAWOLF16920 024626 5602461223 16930 BA2 LOER+3,3,3 GAWOLF16930 024633 5202465023 16940 SA2 $+13,3 GAWOLF16940 * 024640 1000237600 16945 JR ERDMP GAWOLF16945 * 024645 3002464560 16950 JD $ GAWOLF16950 024652 4060401000 16951 XF 040,0100000,0,3 GAWOLF16951 * 024657 3002425331 16960 JC LO+5,25 5 GAWOLF16960 * 024664 3002466400 17000 FBITS J $ VARIOUS FUNCTION BITS GAWOLF17000 024671 5600320505 17005 BA1 TE14,5 GAWOLF17005 024676 5200162005 17006 SA1 TTN+1,5 5 GAWOLF17006 024703 5602622322 17010 BA2 LIST2+02024,2 GAWOLF17010 024710 5240000122 17020 SA2 1,2,2 DATA TO OUTPUT GAWOLF17020 024715 2002545303 17030 FT I20,3 GAWOLF17030 024722 5200043703 17040 SA1 INT,3 SET I20 GAWOLF17040 024727 5602630610 17050 BA1 C1,8 GAWOLF17050 024734 5220000710 17060 SA1 7,8,1 BCW GAWOLF17060 024741 4402505600 17070 SC VXF+2,0 0 TEST ALL COMBINATIONS GAWOLF17070 * 024746 1002503300 17080 JR IVXF OF FUNCTION CODES GAWOLF17080 024753 4402505601 17090 SC VXF+2,1 1 EXCEPT THOSE WITH GAWOLF17090 * 024760 1002503300 17100 JR IVXF BIT2. NONE SHOULD GAWOLF17100 * 024765 1001016600 17110 JR DELAY CAUSE ANY ACTIVITY GAWOLF17110 024772 7020000750 17120 CB1 7,8,1 GAWOLF17120 * 024777 3002510042 17130 JE FBGO GAWOLF17130 * 025004 1000224100 17135 JR SAFT GAWOLF17135 * 025011 1000237600 17136 JR ERDMP 17136 * 025016 3002501660 17140 JD $ GAWOLF17140 * 025023 3002467131 17150 JC FBITS+5,5,25 GAWOLF17150 * 025030 3002503000 17200 IVXF J $ GAWOLF17200 025035 4402505560 17210 SC VXF+1,06060 GAWOLF17210 025042 4402507220 17220 SC VXF+14,1,16 ISSUE ALL POSSIBILITIES GAWOLF17220 * 025047 1000220300 17225 JR SAVE GAWOLF17225 025054 4060000000 17230 VXF XF 0,0,0,3 3 OF BITS 15 THRU 18 GAWOLF17230 025061 6002505640 17240 AC VXF+2,04040 GAWOLF17240 * 025066 3202505420 17250 JL $-10,16 6 GAWOLF17250 * 025073 3002503000 17260 J IVXF GAWOLF17260 025100 6000043731 17300 FBGO AC INT,25 SET I20A GAWOLF17300 025105 5602545205 17320 BA1 SFBXF+4,4,5 GAWOLF17320 025112 5202540205 17330 SA1 FBXF+4,5,5 SET XF WITH BITS 14,17 GAWOLF17330 * 025117 1002535000 17340 JR FBI GAWOLF17340 025124 4402540042 17350 SC FBXF+2,0,042 GAWOLF17350 * 025131 1002535000 17370 JR FBI BITS 14,18 GAWOLF17370 025136 4402540104 17380 SC FBXF+3,0,04 DETAIL BIT 9 IS LOCKOUT GAWOLF17380 * 025143 1002535000 17400 JR FBI BECAUSE OF BIT 14 GAWOLF17400 025150 4402540120 17410 SC FBXF+3,0,020 GAWOLF17410 * 025155 1002535000 17430 JR FBI GAWOLF17430 025162 4060002000 17440 XF 0,02000,0,0,3 TEST CLOCK AFTER 200 MS GAWOLF17440 * 025167 3002522053 17450 JC $+25,43 3 GAWOLF17450 * 025174 1000224100 17455 JR SAFT GAWOLF17455 * 025201 1000237600 17456 JR ERDMP GAWOLF17456 * 025206 3002520660 17460 JD $ CLOCK WAS SET GAWOLF17460 * 025213 3002511200 17470 J FBGO+10 0 GAWOLF17470 * 025220 3002522500 17480 J $+5 PLACE TO TRACE GAWOLF17480 025225 4060005777 17500 XF 0,05777,7,0,3 TEST ALL BUT CLOCK GAWOLF17500 * 025232 3002524453 17510 JC $+10,43 3 GAWOLF17510 * 025237 3002527000 17520 J $+25 GAWOLF17520 * 025244 1000224100 17525 JR SAFT GAWOLF17525 * 025251 1000237600 17526 JR ERDMP GAWOLF17526 * 025256 3002525660 17530 JD $ SOMETHING WAS SET GAWOLF17530 * 025263 3002511200 17540 J FBGO+10 0 GAWOLF17540 025270 4402540077 17550 SC FBXF+2,0,077 GAWOLF17550 * 025275 1002535000 17570 JR FBI GAWOLF17570 025302 4060005777 17580 XF 0,05777,7,0,3 ANYTHING SET GAWOLF17580 * 025307 3002532153 17590 JC $+10,43 3 GAWOLF17590 * 025314 3002466400 17600 J FBITS NO GAWOLF17600 * 025321 1000224100 17605 JR SAFT GAWOLF17605 * 025326 1000237600 17606 JR ERDMP GAWOLF17606 * 025333 3002533360 17610 JD $ YES GAWOLF17610 * 025340 3002511200 17620 J FBGO+10 0 GAWOLF17620 * 025345 3002534531 17700 FBI JC $,25 GAWOLF17700 025352 5602630610 17710 BA1 C1,8 GAWOLF17710 025357 5220000710 17720 SA1 7,8,1 GAWOLF17720 025364 4400007000 17730 SC 070,0 GAWOLF17730 * 025371 1000220300 17735 JR SAVE GAWOLF17735 025376 4060220000 17740 FBXF XF 022,0,0,0,3 GAWOLF17740 025403 5200003761 17750 SAR 31 2ND CHAR CAUSES INTERRUPT GAWOLF17750 025410 4400007077 17760 SC 070,077 7 GAWOLF17760 * 025415 1001016600 17770 JR DELAY GAWOLF17770 * 025422 1000224100 17775 JR SAFT GAWOLF17775 * 025427 1000237600 17776 JR ERDMP GAWOLF17776 * 025434 3002543460 17780 JD $ GAWOLF17780 * 025441 3002511200 17790 J FBGO+10 0 GAWOLF17790 025446 4060220000 17800 SFBXF XF 022,0,0,0,3 GAWOLF17800 025453 5602506025 17810 I20 BA2 VXF+4,5 5 GAWOLF17810 * 025460 1000224100 17815 JR SAFT GAWOLF17815 * 025465 1000237600 17816 JR ERDMP GAWOLF17816 * 025472 3002547260 17820 JD $ GAWOLF17820 * 025477 3002467131 17830 JC FBITS+5,5,25 GAWOLF17830 025504 3400007077 17880 I20B CC 070,077 7 GAWOLF17880 * 025511 3002534542 17890 JE FBI GAWOLF17890 * 025516 1000224100 17895 JR SAFT GAWOLF17895 * 025523 1000237600 17896 JR ERDMP GAWOLF17896 * 025530 3002553060 17900 JD $ GAWOLF17900 * 025535 3002511231 17910 JC FBGO+10,0,25 GAWOLF17910 025544 000 17940 +3 _000_ GAWOLF17940 025547 103 17950 D103 +3 _103_ GAWOLF17950 025552 162 17960 D162 +3 _162_ GAWOLF17960 * 025553 3002555300 18000 TIME J $ GAWOLF18000 025560 4600026754 180005 BT 0267,05454 GAWOLF180005 025565 2640000405 18001 PD 4,5,2 GAWOLF18001 025572 4440000524 18002 SC 5,024,2 2 GAWOLF18002 025577 5602630610 18003 BA1 C1,8 GAWOLF18003 025604 5220000710 18004 SA1 7,8,1 GAWOLF18004 025611 2002577403 18005 FT IX,3 GAWOLF18005 025616 5200043703 18006 SA1 INT,3 GAWOLF18006 025623 4060020000 18007 XF 2,0,0,3 3 GAWOLF18007 025630 5602554745 18008 BD1 D103,5 GAWOLF18008 025635 5602554766 18009 BD2 D103,6 GAWOLF18009 025642 3420000501 18010 CC 5,1,1 GAWOLF18010 * 025647 3002566642 18011 JE $+15 GAWOLF18011 * 025654 3002564200 18012 J $-10 GAWOLF18012 025661 6602555203 18013 AD1 D162,3 GAWOLF18013 025666 3420000101 18014 CC 1,1,1 GAWOLF18014 * 025673 3002566142 18015 JE $-10 GAWOLF18015 * 025700 3002571200 18016 J $+10 GAWOLF18016 025705 6602555223 18017 AD2 D162,3 GAWOLF18017 025712 3420000102 18018 CC 1,2,1 GAWOLF18018 * 025717 3002570542 18019 JE $-10 GAWOLF18019 025724 5200145605 18020 SA1 TAG1-1,5,5 GAWOLF18020 025731 5200152626 18021 SA2 TAG2+7,6,6 GAWOLF18021 025736 4420000204 18022 SC 2,04,1 GAWOLF18022 025743 4420000076 18023 SC 0,076,1 1 GAWOLF18023 025750 2000140040 18024 FT TAG,32 GAWOLF18024 * 025755 1002601100 18025 JR PRTL GAWOLF18025 * 025762 1001016600 180255 JR DELAY GAWOLF180255 * 025767 3002555300 18026 J TIME GAWOLF18026 * 025774 3002577460 18027 IX JD $ GAWOLF18027 * 026001 3002556031 18028 JC TIME+5,2,25 GAWOLF18028 * 026006 3000000000 18029 PRTL J 0 GAWOLF18029 026013 5200326500 18030 SA1 SVAR,16 6 GAWOLF18030 * 026020 1002604700 18031 JR FI0 GAWOLF18031 026025 4400020702 18032 SC 0207,2 GAWOLF18032 026032 4000620000 18033 XF 062,0,0,0,0 GAWOLF18033 * 026037 3002600600 18034 J PRTL GAWOLF18034 * 026044 3000000000 18035 FI0 J 0 GAWOLF18035 026051 2002607003 18036 FT INPT0,3 3 GAWOLF18036 026056 5200040703 18037 SA1 0407,3 GAWOLF18037 * 026063 3002604400 18038 J FI0 GAWOLF18038 026070 4000001004 18039 INPT0 XF 0,01004,4,0,0 TEST IF PRINTER NON-READY,PAPER LOW GAWOLF18039 E * 026075 1002613653 18040 JR RDY0,43 3 GAWOLF18040 026102 4000407777 18041 RRS0 XF 040,0777777,0,0 RESET ALL INDS. GAWOLF18041 026107 2600001703 18042 PD 017,3 GAWOLF18042 026114 4400001705 18043 SC 017,5 GAWOLF18043 026121 7200040343 18044 SB1 0403,3 GAWOLF18044 * 026126 3000040031 18045 JC 0400,25 5 GAWOLF18045 * 026133 3000000000 18046 RDY0 J 0 GAWOLF18046 * 026140 3000000060 18047 JD 0 PRINTNTER NON-READY OR PAPER LOW GAWOLF18047 - * 026145 3002613300 18048 J RDY0 GAWOLF18048 026161 0001000200040010 50000 +8 000100020200040010 COMFT 50000 1 026171 0020004001000200 50010 LIST1 +8 002000404001000200 COMFT 50010 0 026176 2424242424 50030 ZA1 +5 0242424242424 COMFT 50030 026177 50100 LIST2 ORIG $ COMFT 50100 026206 0001020304050607 50110 +8 00102030304050607 COMFT 50110 7 026216 1011121314151617 50120 +8 0101112121314151617 COMFT 50120 6 026226 2021222324252627 50130 +8 0202122222324252627 COMFT 50130 6 026236 3031323334353637 50140 +8 0303132323334353637 COMFT 50140 6 026246 4041424344454647 50150 +8 0404142424344454647 COMFT 50150 6 026256 5051525354555657 50160 +8 0505152525354555657 COMFT 50160 6 026266 6061626364656667 50170 +8 0606162626364656667 COMFT 50170 6 026276 7071727374757677 50180 +8 0707172727374757677 COMFT 50180 6 026306 0000002401000010 50200 C1 +8 0000000202401000010 GAWOLF50200 0 026316 1001000101000010 50201 C1A +8 0100100000101000010 GAWOLF50201 0 026326 1002000211010101 50202 C1B +8 0100200000211010101 50202 1 026336 0000600101006001 50210 C2 +8 0000060000101006001 GAWOLF50210 0 026346 0002600001006377 50220 C3 +8 0000260000001006377 GAWOLF50220 3 026356 1006600611026302 50230 C4 +8 0100660000611026302 GAWOLF50230 3 026366 0000637701006000 50240 C5 +8 0000063737701006000 GAWOLF50240 0 026376 1004620411026102 50250 C6 +8 0100462020411026102 GAWOLF50250 1 026406 0200622403006200 50260 C7 +8 0020062222403006200 GAWOLF50260 2 026416 1204620413026302 50270 C8 +8 0120462020413026302 GAWOLF50270 3 026426 0200602403006000 50280 C9 +8 0020060202403006000 GAWOLF50280 0 026436 1204600413026102 50290 C10 +8 0120460000413026102 GAWOLF50290 1 026446 0000010001000100 50300 C11 +8 01000100000100 COMFT 50300 026456 1003020301020200 50310 C12 +8 0100302020301020200 GAWOLF50310 2 026466 0000602401000200 50320 C13 +8 0000060202401000200 GAWOLF50320 2 026476 1004600411020302 50330 C14 +8 0100460000411020302 GAWOLF50330 3 026506 0000200001002024 50340 C15 +8 0000020000001002024 GAWOLF50340 0 026516 1002200211012101 50350 C16 +8 0100220000211012101 GAWOLF50350 1 026526 0000210001002124 50360 C17 +8 0000021010001002124 GAWOLF50360 1 026536 1002200211012101 50370 C18 +8 0100220000211012101 GAWOLF50370 1 026546 0000220001002224 50380 C19 +8 0000022020001002224 GAWOLF50380 2 026556 1002200211012101 50390 C20 +8 0100220000211012101 GAWOLF50390 1 026566 0000230001002324 50400 C21 +8 0000023030001002324 GAWOLF50400 3 026576 1002200211012101 50410 C22 +8 0100220000211012101 GAWOLF50410 1 026606 6440010065400100 50420 C23 +8 0644001010065400100 GAWOLF50420 1 026616 0077110001771100 50430 C24 +8 0007711010001771100 COMFT 50430 1 026626 4100110040001100 50440 C25 +8 0410011010040001100 COMFT 50440 1 026636 4177110040771100 50450 C26 +8 0417711010040771100 COMFT 50450 1 026646 6400110065001100 50460 C27 +8 0640011010065001100 GAWOLF50460 1 026656 2037002421370024 50500 C30 +8 0203700202421370024 GAWOLF50500 0 026666 2040002421400024 50510 C31 +8 0204000202421400024 GAWOLF50510 0 026676 2077042421770424 50520 C32 +8 0207704242421770424 GAWOLF50520 4 026706 2000042421000424 50530 C33 +8 0200004242421000424 GAWOLF50530 4 026716 4037042441370424 50540 C34 +8 0403704242441370424 IH COMFT 50540 4 026726 6440042465400424 50550 C35 +8 0644004242465400424 GAWOLF50550 4 026736 4237042443370424 50560 C36 +8 0423704242443370424 GAWOLF50560 4 026746 6440042465400424 50570 C37 +8 0644004242465400424 GAWOLF50570 4 026756 2037102421371024 50580 C38 +8 0203710202421371024 GAWOLF50580 0 026766 2040102421401024 50600 C39 +8 0204010202421401024 GAWOLF50600 0 026776 2100102420001024 50610 C40 +8 0210010202420001024 GAWOLF50610 0 027006 4037142441371424 50620 C41 +8 0403714242441371424 IHL COMFT 50620 4 027016 4040142441401424 50630 C42 +8 0404014242441401424 NOTHING,JAM 63 COMFT 50630 4 027026 6500142464001424 50640 C43 +8 0650014242464001424 GAWOLF50640 4 027036 4337142442371424 50650 C44 +8 0433714242442371424 GAWOLF50650 4 027046 4340142442401424 50660 C45 +8 0434014242442401424 GAWOLF50660 4 027056 6400142465001424 50670 C46 +8 0640014242465001424 GAWOLF50670 4 027066 2442255277247742 50700 +8 0244225555277247742 COMFT 50700 7 027076 7725775200010000 50701 C50 +8 0772577575200010000 GAWOLF50701 0 027106 0324024203250252 50710 +8 032402424203250252 COMFT 50710 5 027116 0224034202250352 50711 C51 +8 022403424202250352 COMFT 50711 5 027126 0324004201250252 50720 +8 032400424201250252 COMFT 50720 5 027136 0024034202250152 50721 C52 +8 002403424202250152 COMFT 50721 5 027146 0124024203250052 50730 +8 012402424203250052 COMFT 50730 5 027156 0224014200250352 50731 C53 +8 022401424200250352 COMFT 50731 5 027166 0000000037243324 50740 +8 0000000000037243324 GAWOLF50740 3 027176 3724243324240001 50741 C54 +8 0372424343324240001 GAWOLF50741 0 027206 6424646424240001 50750 C55 +8 0642464646424240001 GAWOLF50750 0 027216 0000030101006300 50800 C60 +8 0000003030101006300 GAWOLF50800 3 027226 1016021611226322 50810 C61 +8 0101602121611226322 GAWOLF50810 3 027236 0200030101006300 50820 C62 +8 0020003030101006300 GAWOLF50820 3 027246 1216021611226322 50830 C63 +8 0121602121611226322 GAWOLF50830 3 027256 0600030101006100 50840 C64 +8 0060003030101006100 GAWOLF50840 1 027266 1616021611226122 50850 C65 +8 0161602121611226122 GAWOLF50850 1 027276 0000630101000300 50860 C66 +8 0000063030101000300 GAWOLF50860 3 027306 1024622411150315 50870 C67 +8 0102462222411150315 GAWOLF50870 3 027316 0000630103000300 50880 C68 +8 0000063030103000300 GAWOLF50880 3 027326 1024622413150315 50890 C69 +8 0102462222413150315 GAWOLF50890 3 027336 0000610107000300 50900 C70 +8 0000061010107000300 GAWOLF50900 3 027346 1024602417150315 50910 C71 +8 0102460202417150315 GAWOLF50910 3 027356 0000200101000000 50920 C72 +8 0000020000101000000 GAWOLF50920 0 027366 1010201011130113 50930 C73 +8 0101020101011130113 GAWOLF50930 1 027376 0000000101002000 50940 C74 +8 0000000000101002000 GAWOLF50940 0 027406 1014001411072107 50950 C75 +8 0101400101411072107 GAWOLF50950 1 027416 0200000001006000 51000 C80 +8 0020000000001006000 GAWOLF51000 0 027426 2424242525250000 51010 C81 +8 0242424242525250000 COMFT 51010 0 027436 0224002400240024 51020 C82 +8 022400242400240024 COMFT 51020 2 027446 0225002500250025 51030 C83 +8 022500252500250025 COMFT 51030 2 027456 0000600003000000 51040 +8 0000060000003000000 GAWOLF51040 0 027462 07000000 51041 C84 +4 00700000000 GAWOLF51041 027470 002400250224 51050 +6 00240025250224 COMFT 51050 027476 022503240325 51051 C85 +6 02250324240325 COMFT 51051 027504 242524252425 51060 C86 +6 024252424252425 COMFT 51060 027514 0037602401376024 51100 C90 +8 0003760202401376024 XY OUT,IN 32 GAWOLF51100 0 027524 4041602441416024 51110 C91 +8 0404160202441416024 GO GAWOLF51110 0 027534 0077642401776424 51120 C92 +8 0007764242401776424 XYH OUT,IN 64 GAWOLF51120 4 027544 4001642441016424 51130 C93 +8 0400164242441016424 GO GAWOLF51130 4 027554 4177742440777424 51140 C94 +8 0417774242440777424 IXYHL OUT,IN 128 GAWOLF51140 4 027564 6401742465017424 51150 C95 +8 0640174242465017424 STOP GAWOLF51150 4 027574 0077022401770224 51160 C96 +8 0007702222401770224 ASCII W/CONTROL OUT,IN 64 GAWOLF51160 2 027604 4001022441010224 51170 C97 +8 0400102222441010224 GO GAWOLF51170 2 027614 4077162441771624 51180 C98 +8 0407716262441771624 GAWOLF51180 6 027624 6501162464011624 51190 C99 +8 0650116262464011624 GAWOLF51190 6 027627 376433 51200 +3 0376433 3 GAWOLF51200 027637 2437646433242400 51210 C100 +8 0243764646433242400 GAWOLF51210 4 027643 03000301 51220 C101 +4 00300030301 GAWOLF51220 * 027644 3002765654 23890 INPT2 JC $+10,44 4 TEST AND RESET OPERATOR REQUEST ACT1 23890 A * 027651 3000051000 23900 J CLS2 GOGOT CLASS 2 IPT, NOT OPERATOR REQUEST 23900 S * 027656 3002766332 23910 JC $+5,26 INHIBIT CLASS 3 IPTS ACT1 23910 T 027663 5200326561 23911 SAR SVAR 23911 027670 5600005714 23913 BA1 057,12 GAWOLF23913 027675 5200330114 23914 SA1 SVIR,12 2 GAWOLF23914 027702 5600717710 23950 BA1 MPAR,8 SET DUMP LIMIT FOR 20K DUMP ACT1 23950 M 027707 5200716710 23960 SA1 PAR,8 ACT1 23960 027714 5600324500 23965 BA1 SVAR-16,6,16 GAWOLF23965 027721 5600326520 23966 BA2 SVAR,16 6 GAWOLF23966 * 027726 1000551500 23970 JR DUMP GAWOLF23970 * 027733 1000232300 23971 JR RSIR RESTORE IRS GAWOLF23971 027740 5600324500 23972 BA1 SVAR-16,6,16 GAWOLF23972 027745 5600326520 23973 BA2 SVAR,16 6 23973 * 027752 3001000020 23974 JC START,02020 GAWOLF23974 001400 19000 TAG ORIG 01400 GAWOLF19000 001417 GAWOLF TIMING CH 19001 +16 _GAWOLF F TIMING CH_ GAWOLF19001 001437 ECK -- INPUT T 19002 +16 _ECK ---- INPUT T_ GAWOLF19002 T 001457 O OUTPUT XXXXX 19003 TAG1 +16 _O OUTPUPUT XXXXX _ GAWOLF19003 X 001477 MICROSECONDS 19004 +16 _MICROSESECONDS _ GAWOLF19004 001517 OUTPUT TO OUTPUT 19005 TAG2 +16 _OUTPUT T TO OUTPUT_ GAWOLF19005 P 001537 XXXXXX MICROSEC 19006 +16 _ XXXXXXXX MICROSEC_ GAWOLF19006 S 001544 ONDS. 19007 +5 _ONDS._ _ GAWOLF19007 001600 19008 EP1 ORIG 01600 19008 001607 GAWOLF 19009 +8 _GAWOLF F _ GAWOLF19009 001617 TEST 19010 TTN +8 _TEST _ GAWOLF19010 001627 STOP 19011 STN +8 _ STOP P _ GAWOLF19011 001637 OUT 19012 +8 _ OUOUT_ GAWOLF19012 001647 PUT BCW 19013 +8 _PUT BCWCW _ GAWOLF19013 001657 ADDRS 19014 BCAD +8 _ADDRS _ GAWOLF19014 001667 OUTP 19015 +8 _ OUTUTP_ GAWOLF19015 001677 UT BUFF 19016 OBAD +8 _UT BUFFFF _ GAWOLF19016 001707 IN 19017 +8 _ I IN_ GAWOLF19017 001717 PUT BUFF 19018 IPBA +8 _PUT BUFUFF_ GAWOLF19018 001727 S 19019 +8 _ S_ GAWOLF19019 001737 A 19020 +8 _A _ GAWOLF19020 001747 DC 19021 DCT +8 _DC _ GAWOLF19021 001750 30 19022 AREA 24,B,0 GAWOLF19022 002000 00 19023 EP2 +1 0 GAWOLF19023 002020 BCWS BEFORE TEST 19024 BCBT +16 _BCWS BEBEFORE TEST_ GAWOLF19024 E 002040 , OUTPUT XXXXXXX 19025 BTOC +16 _, OUTPUPUT XXXXXXX_ GAWOLF19025 X 002060 X INPUT XXXXXXXX 19026 +16 _X INPUTUT XXXXXXXX_ GAWOLF19026 X 002100 AFTER TEST, OUT 19027 ATOC +16 _ AFTER R TEST, OUT_ GAWOLF19027 O 002120 PUT XXXXXXXX INP 190275 +16 _PUT XXXXXXXXXX INP_ GAWOLF190275I 002133 UT XXXXXXXX 19028 ITOC +11 _UT XXXXXXXXXX_ GAWOLF19028 002134 44 19029 AREA 36,B,0 GAWOLF19029 * 002200 3000000000 20000 SAVE J 0 SAVE BCWS BEFORE TEST GAWOLF20000 002205 5200326520 20001 SA2 SVAR,16 6 GAWOLF20001 002212 5620000730 20002 BA2 7,8,1 GAWOLF20002 002217 5200322530 20003 SA2 SBBT,8 GAWOLF20003 002224 5600326520 20004 BA2 SVAR,16 6 GAWOLF20004 * 002231 3000220000 20005 J SAVE GAWOLF20005 * 002236 3000000000 20006 SAFT J 0 SAVE BCWS AFTER ERROR GAWOLF20006 002243 5200324510 20007 SA1 SVAR-16,6,8 GAWOLF20007 002250 5620000710 20008 BA1 7,8,1 GAWOLF20008 002255 5200321510 20009 SA1 SVBW,8 GAWOLF20009 002262 5600324510 20010 BA1 SVAR-16,6,8 GAWOLF20010 * 002267 3000223600 20011 J SAFT GAWOLF20011 * 002274 3000000000 20012 SVI J 0 GAWOLF20012 002301 5600005714 20013 BA1 057,12 GAWOLF20013 002306 5200330114 20014 SA1 SVIR,12 2 GAWOLF20014 * 002313 3000227400 20015 J SVI GAWOLF20015 * 002320 3000000000 20016 RSIR J 0 GAWOLF20016 002325 5600330114 20017 BA1 SVIR,12 2 GAWOLF20017 002332 5200005714 20018 SA1 057,12 GAWOLF20018 * 002337 3000232000 20019 J RSIR GAWOLF20019 002344 6000237605 200195IGNOR AC ERDMP+3,3,5 GAWOLF200195 * 002351 3000237300 200196 J ERDMP GAWOLF200196 002356 4400043431 200197FIPT4 SC 0434,25 5 200197 * 002363 3000043000 200198 J 0430 200198 002372 000000 200199IP3S +3 0 200199 * 002373 3000000033 20020 ERDMP JC 0,27 ERERROR DUMP GAWOLF20020 M * 002400 3000237363 20021 JC ERDMP,5151 IF SENSE SW.2,NO PRINT,JUST STOP. GAWOLF20021 E * 002405 3000234464 20022 JC IGNOR,5252 20022 * 002412 3000241732 20023 JC $+5,26 GAWOLF20023 002417 5200326561 20024 SAR SVAR GAWOLF20024 002424 5600043710 200242 BA1 0437,8 GAWOLF200242 002431 5200013710 200244 SA1 0137,8 GAWOLF200244 002436 2000235603 200246 FT FIPT4,3 3 200246 002443 5200043703 200248 SA1 0437,3 200248 002450 5600005714 20025 BA1 057,12 GAWOLF20025 002455 5200330114 20026 SA1 SVIR GAWOLF20026 002462 5600004703 20027 BA1 047,3 GAWOLF20027 * 002467 1000704700 20028 JR TBO GAWOLF20028 002474 5200166225 20029 SA2 BCAD+3,5,5 GAWOLF20029 002501 5600005303 20030 BA1 053,3 GAWOLF20030 * 002506 1000704700 20031 JR TBO GAWOLF20031 002513 5200170425 20032 SA2 OBAD+5,5,5 GAWOLF20032 002520 5600005703 20033 BA1 057,3 GAWOLF20033 * 002525 1000704700 20034 JR TBO GAWOLF20034 002532 5200172525 20035 SA2 IPBA+6,5,5 GAWOLF20035 002537 5601023402 20036 BA1 CRCT,2 GAWOLF20036 * 002544 1000704700 20037 JR TBO GAWOLF20037 002551 5200174624 20038 SA2 DCT-1,4 4 GAWOLF20038 002556 5600237603 20039 BA1 ERDMP+3,3,3 GAWOLF20039 002563 5200006303 20040 SA1 063,3 GAWOLF20040 002570 5700000303 20041 BA1 3,3,4 GAWOLF20041 * 002575 1000704700 20042 JR TBO GAWOLF20042 002602 5200163325 20043 SA2 STN+4,5 5 GAWOLF20043 002607 5600237603 20044 BA1 ERDMP+3,3,3 GAWOLF20044 * 002614 1000704700 20045 JR TBO GAWOLF20045 002621 5200173625 20046 SA2 DCT-9,5 5 GAWOL+20046 002626 5600322504 20047 BA1 SBBT,4 GAWOLF20047 * 002633 1000704700 20048 JR TBO GAW-L+20048 002640 5200206030 20049 SA2 BTOC+16,6,8 GAWOLF20049 002645 5600322104 20050 BA1 SBBT-4,4,4 GAWOLF20050 * 002652 1000704700 20051 JR TBO GAWOLF20051 002657 5200204130 20052 SA2 BTOC+1,8,8 GAWOLF20052 002664 5600321504 20053 BA1 SVBW,4 GAWOLF20053 * 002671 1000704700 20054 JR TBO GAWOLF20054 002676 5200213330 20055 SA2 ITOC,8 GAWOLF20055 002703 5600321104 20056 BA1 SVBW-4,4,4 GAWOLF20056 * 002710 1000704700 20057 JR TBO GAWOLF20057 002715 5200211430 20058 SA2 ATOC+12,2,8 GAWOLF20058 002722 4400020702 20059 SC 0207,2 GAWOLF20059 * 002727 1002604700 20060 JR FI0 GAWOLF20060 002734 2000160040 20061 FT EP1,32 GAWOLF20061 002741 4000620000 20062 XF 062,0,0,0,0 GAWOLF20062 002746 2000200040 20063 FT EP2,32 GAWOLF20063 002753 4000620000 20064 XF 062,0,0,0,0 GAWOLF20064 002760 5600027304 200641 BA1 BUFF,4 200641 002765 5200720304 200642 SA1 EPAR-4,4,4 200642 002772 6000001677 200643 AC 016,077 7 200643 002777 6000001770 200644 AC 017,070 0 200644 003004 5200720704 200645 SA1 EPAR,4 200645 003011 5600720710 20065 BA1 EPAR,8 GAWOLF20065 003016 5200716710 20066 SA1 PAR,8 GAWOLF20066 003023 5600324500 20067 BA1 SVAR-16,6,16 GAWOLF20067 003030 5600326520 20068 BA2 SVAR,16 6 GAWOLF20068 * 003035 1000551500 20069 JR DUMP GAWOLF20069 * 003042 1000232300 20070 JR RSIR GAWOLF20070 003047 5600013710 200701 BA1 0137,8 200701 003054 5200043710 200702 SA1 0437,8 200702 003061 5600324500 20071 BA1 SVAR-16,6,16 GAWOLF20071 003066 5600326520 20072 BA2 SVAR,16 6 GAWOLF20072 * 003073 3000237300 20073 J ERDMP GAWOLF20073 003104 TINT 20074 TE1 +5 _ TINT_ _ GAWOLF20074 003111 TWO7 20075 TE2 +5 _ TWO7_ _ GAWOLF20075 003116 TAB 20076 TE3 +5 _ TAB_ _ GAWOLF20076 003123 TIME 20077 TE4 +5 _ TIME_ _ GAWOLF20077 003130 CEOT 20078 TE5 +5 _ CEOT_ _ GAWOLF20078 003135 NZC 20079 TE6 +5 _ NZC_ _ GAWOLF20079 003142 COUNT 20080 TE7 +5 _COUNT_ _ GAWOLF20080 003147 PTY 20081 TE8 +5 _ PTY_ _ GAWOLF20081 003154 BFFL 20082 TE9 +5 _ BFFL_ _ GAWOLF20082 003161 CNTRL 20083 TE10 +5 _CNTRL_ _ GAWOLF20083 003166 TDC 20084 TE11 +5 _ TDC_ _ GAWOLF20084 003173 BF2C 20085 TE12 +5 _ BF2C_ _ GAWOLF20085 003200 LO 20086 TE13 +5 _ LO _ _ GAWOLF20086 003205 FBITS 20087 TE14 +5 _FBITS_ _ GAWOLF20087 003215 0000000000000000 20088 SVBW +8 0 GAWOLF20088 003225 0000000000000000 20089 SBBT +8 0 GAWOLF20089 003245 0000000000000000 17925 +16 0 GAWOLF17925 003265 0000000000000000 17920 SVAR +16 0 GAWOLF17920 003301 0000000000000000 17930 SVIR +12 0 GAWOLF17930 005300 ORIG 05300 GAWOLF 000047 10420 X1 EQU 39 ACT1 10420 000053 10430 X2 EQU X1+4 ACT1 10430 000057 10440 X3 EQU X2+4 ACT1 10440 000063 10450 X4 EQU X3+4 ACT1 10450 000067 10460 X5 EQU X4+4 ACT1 10460 000073 10470 X6 EQU X5+4 ACT1 10470 000077 10480 X7 EQU X6+4 ACT1 10480 000103 10490 T16 EQU 0103 ACT1 10490 000107 10500 T17 EQU T16+4 ACT1 10500 000113 10510 T18 EQU T17+4 ACT1 10510 000203 10520 T32 EQU 0203 ACT1 10520 000207 10530 LA EQU 0207 ACT1 10530 000177 10540 T31 EQU T32-4 ACT1 10540 000173 10550 T30 EQU T31-4 ACT1 10550 005300 200 10560 TANK AREA 128,,0 ACT1 10560 * 005500 1000551500 10570 JR DUMP ACT1 10570 * 005505 3000550020 10580 JC $-5,020 0 ACT1 10580 * 005512 3000000000 10590 DUMP J 0 ACT1 10590 * 005517 3000774751 10600 JC BWS+052121,41 ACT1 10600 * 005524 3000553133 10610 JC $+5,27 ACT1 10610 005531 4200715321 10620 ST WST17,T1T17 ACT1 10620 005536 4200715722 10630 ST WST18,T1T18 ACT1 10630 005543 4200722423 10640 ST WS,19 ACT1 10640 005550 2000000021 10650 FT 0,T17 ACT1 10650 005555 2000052022 10660 FT 0520,T1818 SET NO. CHAR ACT1 10660 005562 2400722641 10670 TTR BWS ACT1 10670 005567 5600715710 10680 BA1 WST18,8 8 ACT1 10680 005574 5200734110 10690 SA1 BWS+011313,8 ACT1 10690 005601 5600722404 10700 BA1 WS,4 ACT1 10700 005606 5200734504 10710 SA1 BWS+011717,4 ACT1 10710 005613 2000530040 10720 FT TANK,T3232 SET PRINT BASE ACT1 10720 005620 2600007700 10730 PD 077,16 CLEAR INDEX REGS ACT1 10730 005625 2600005700 10740 PD X3,16 ACT1 10740 005632 4400020702 10750 SC LA,2 SET UP LINE ADV ACT1 10750 005637 5600714703 10760 BA1 INTR 10760 005644 5200040710 10770 SA1 0407,8 SET UP PRINT INT ACT1 10770 005651 2000722611 10780 FT BWS,X1 SET BASE STOR IN X1 ACT1 10780 005656 2000722615 10790 FT BWS,X5 ACT1 10790 005663 4400617770 10800 SC CONV0+4,4,56 ACT1 10800 005670 4400636700 10810 SC PR11+4,0,0 ACT1 10810 005675 4400647570 10820 SC PR4+4,5656 ACT1 10820 005702 2000530012 10830 FT TANK,X2 2 ACT1 10830 005707 2000774617 10840 D03 FT BWS+052020,X7 LIMIT OF TET ACT1 10840 005714 7400007711 10850 CT X7,X1 TEST LIMIT ACT1 10850 * 005721 3000574043 10860 JU D04 GAWOLF10860 * 005726 3000577662 10861 JC D05,50 END TETS, DUMP BUFFERS IF GAWOLF10861 * 005733 3000551200 10862 J DUMP SENSE SWITCH 1 IS SET GAWOLF10862 * 005740 1000615200 10870 D04 JR CONV ACT1 10870 * 005745 1000631100 10880 JR PRT ACT1 10880 005752 2120001015 10890 FT 8,X5,X5 5 ACT1 10890 005757 4200004715 10900 ST X1,X5 ACT1 10900 005764 2100001014 10910 FT 8,X4,X4 4 ACT1 10910 * 005771 3000570700 10920 J D03 ACT1 10920 * 005776 1000674600 10930 D05 JR PRTLN CLEAR TANK ACT1 10930 006003 5600716710 10940 BA1 PAR,8 ACT1 10940 006010 5200017710 10950 SA1 T31,8 ACT1 10950 006015 2000530012 10960 FT TANK,X2 2 ACT1 10960 006022 4600017311 10970 BT T30,X1 ACT1 10970 006027 4200006311 10980 ST X4,X1 ACT1 10980 006034 4400722500 10990 SC WS1,0 ACT1 10990 006041 4400617700 11000 SC CONV0+4,4,0 ACT1 11000 006046 4400636770 11010 SC PR11+4,5,56 ACT1 11010 006053 7400017711 11020 D06 CT T31,X1 TEST LIMIT OF DUMP ACT1 11020 * 006060 3000611641 11030 JG D07 ACT1 11030 * 006065 1000615200 11040 JR CONV ACT1 11040 * 006072 1000631100 11050 JR PRT ACT1 11050 006077 4200006311 11060 ST X4,X1 ACT1 11060 006104 4200005711 11070 ST X3,X1 ACT1 11070 * 006111 3000605300 11080 J D06 ACT1 11080 006116 2000530017 11090 D07 FT TANK,X7 7 ACT1 11090 006123 7400007712 11100 CT X7,X2 ACT1 11100 * 006130 3000657742 11110 JE EXIT ACT1 11110 * 006135 1000674600 11120 JR PRTLN ACT1 11120 * 006142 3000657700 11130 J EXIT ACT1 11130 * 006147 3000000000 11140 CONV J 0 ACT1 11140 006154 4200001714 11150 ST 15,X4 ACT1 11150 * 006161 1000704700 11160 JR TBO CONVERT LOCATION ACT1 11160 006166 5240000525 11170 SA2 5,5,X2 ACT1 11170 * 006173 3000624300 11180 CONV0 J CON2 VAR LINE ACT1 11180 006200 5620000304 11190 CON1 BA1 3,4,X1 ACT1 11190 * 006205 1000704700 11200 JR TBO CONVERT CONTENT ACT1 11200 006212 5240002130 11210 SA2 17,8,X2 2 ACT1 11210 006217 5620000704 11220 BA1 7,4,X1 ACT1 11220 * 006224 1000704700 11230 JR TBO ACT1 11230 006231 5240003530 11240 SA2 29,8,X2 2 ACT1 11240 * 006236 3000614700 11250 J CONV ACT1 11250 006243 5620000405 11260 CON2 BA1 4,5,X1 ACT1 11260 * 006250 1000704700 11270 JR TBO ACT1 11270 006255 5240002132 11280 SA2 17,10,X2X2 ACT1 11280 006262 5620001105 11290 BA1 9,5,X1 ACT1 11290 * 006267 1000704700 11300 JR TBO ACT1 11300 006274 5240003532 11310 SA2 29,10,X2X2 ACT1 11310 * 006301 3000614700 11320 J CONV ACT1 11320 * 006306 3000000000 11330 PRT J 0 ACT1 11330 006313 2000544017 11340 FT TANK+96,6,X7 ACT1 11340 006320 7400007712 11350 CT X7,X2 TEST TANK FULL ACT1 11350 * 006325 3000635142 11360 JE PR1 ACT1 11360 006332 2040004012 11370 FT 32,X2,X2X2 ACT1 11370 006337 2020001211 11380 FT 10,X1,X1X1 ACT1 11380 * 006344 3000630600 11390 J PRT ACT1 11390 006351 2000530012 11400 PR1 FT TANK,X2 2 ACT1 11400 * 006356 1000674600 11410 JR PRTLN ACT1 11410 * 006363 3000630600 11420 PR11 J PRT VAR LINE ACT1 11420 006370 2020001211 11430 FT 10,X1,X1X1 ACT1 11430 006375 4400722501 11440 SC WS1,1 ACT1 11440 006402 4200005711 11450 ST X3,X1 ACT1 11450 006407 4400644410 11460 SC PR3+4,8 8 ACT1 11460 006414 5637777705 11470 PR2 BA1 -1,5,X1 1 ACT1 11470 006421 7060000445 11480 CB1 4,5,X3 ACT1 11480 * 006426 3000654143 11490 JU PR5 ACT1 11490 006433 2060000513 11500 FT 5,X3,X3 3 ACT1 11500 * 006440 3200641400 11510 PR3 JL PR2,0 VAR LINE ACT1 11510 006445 7400005737 11520 CT X3,T31 ACT1 11520 * 006452 3000657744 11530 JS EXIT ACT1 11530 006457 2020005011 11540 FT 40,X1,X1X1 ACT1 11540 006464 4200005711 11550 ST X3,X1 ACT1 11550 * 006471 3000640770 11560 PR4 JC PR2-5,5656 VAR LINE ACT1 11560 006476 4400647500 11570 SC PR4+4,0 0 ACT1 11570 006503 4400532141 11580 SC TANK+17,7,_*_ ACT1 11580 006510 4400536141 11590 SC TANK+49,9,_*_ ACT1 11590 006515 4400542141 11600 SC TANK+81,1,_*_ ACT1 11600 006522 4400546141 11610 SC TANK+11313,_*_ ACT1 11610 * 006527 1000674600 11620 JR PRTLN ACT1 11620 * 006534 3000640700 11630 J PR2-5 ACT1 11630 006541 4400647570 11640 PR5 SC PR4+4,5656 ACT1 11640 006546 3400722501 11650 CC WS1,1 ACT1 11650 * 006553 3000656542 11660 JE $+10 ACT1 11660 006560 2020001211 11670 FT 10,X1,X1X1 ACT1 11670 006565 4400722500 11680 SC WS1,0 ACT1 11680 * 006572 3000630600 11690 J PRT ACT1 11690 006577 5600722011 11700 EXIT BA1 END,9 ACT1 11700 006604 5200531011 11710 SA1 TANK+8,9,9 ACT1 11710 006611 5600017303 11720 BA1 T30,3 ACT1 11720 * 006616 1000704700 11730 JR TBO ACT1 11730 006623 5200532126 11740 SA2 TANK+17,7,6 ACT1 11740 006630 5600017703 11750 BA1 T31,3 ACT1 11750 * 006635 1000704700 11760 JR TBO ACT1 11760 006642 5200533226 11770 SA2 TANK+26,6,6 ACT1 11770 * 006647 1000674600 11780 JR PRTLN ACT1 11780 006654 2000722621 11790 FT BWS,T17 7 ACT1 11790 006661 2000010422 11800 FT 0104,T1818 ACT1 11800 006666 2400000041 11810 TTR 0 ACT1 11810 006673 2000734621 11820 FT BWS+012020,T17 ACT1 11820 006700 2000040022 11830 FT 0400,T1818 ACT1 11830 006705 2400012041 11840 TTR 0120 ACT1 11840 006712 4600722423 11850 BT WS,19 ACT1 11850 006717 4600715321 11860 BT WST17,T1T17 ACT1 11860 006724 4600715722 11870 BT WST18,T1T18 ACT1 11870 * 006731 3000774752 11880 JC BWS+052121,42 ACT1 11880 * 006736 3000551200 11890 J DUMP ACT1 11890 * 006743 3000000000 11900 PRTLN J 0 ACT1 11900 * 006750 3000675531 11910 JC $+5,25 ACT1 11910 006755 4000407777 11920 XF 32,0777777,0,0 ACT1 11920 006762 4000620000 11930 XF 50,0000,0,0,0 ACT1 11930 * 006767 3000701300 11940 J CPRN ACT1 11940 006774 4000002000 11950 PRINE XF 0,02000,0,0,0 ACT1 11950 * 007001 3000675053 11960 JC PRTLN+5,5,43 ACT1 11960 * 007006 3002607000 11970 J INPT0 GAWOLF11970 007013 2000530120 11980 CPRN FT TANK+1,T,T16 ACT1 11980 007020 2600530001 11990 PD TANK,1 ACT1 11990 007025 2000017722 12000 FT 127,T18 8 ACT1 12000 007032 2400530001 12010 TFR TANK ACT1 12010 * 007037 3000674300 12020 J PRTLN ACT1 12020 * 007044 3000000000 12030 TBO J 0 ACT1 12030 007051 4400712005 12040 SC TB1+4,5 5 ACT1 12040 007056 5600003530 12050 BA2 29,8 ACT1 12050 007063 5200002701 12060 SA1 23,1 ACT1 12060 007070 5600001604 12070 BA1 14,4 ACT1 12070 007075 2600002601 12080 PD 22,1 ACT1 12080 007102 1600002723 12090 BS2 23,3 ACT1 12090 007107 1600002753 12100 BC1 23,3 ACT1 12100 * 007114 3200705600 12110 TB1 JL $-30,0 ACT1 12110 007121 2600001732 12120 PD0 15,10 ACT1 12120 007126 7200003712 12130 AB1 31,10 ACT1 12130 * 007133 3000704400 12140 J TBO ACT1 12140 * 007140 3000000031 12150 + JC 0,25 ACT1 12150 007147 006774 12160 INTR +3 PRINE 12160 007153 00000000 12170 WST17 +4 0 ACT1 12170 007157 00000000 12180 WST18 +4 0 ACT1 12180 007167 0000052000037700 12190 PAR +8 000005202000037700 ACT1 12190 0 007177 0000052000047700 26220 MPAR +8 000005202000047700 ACT1 26220 0 007207 0001000000017700 EPAR +8 000100000000017700 0 007220 END PRINT 12200 END +9 _END PRIRINT_ ACT1 12200 007224 00000000 12210 WS +4 0 ACT1 12210 007225 00 12220 WS1 +1 0 ACT1 12220 007226 520 12230 BWS AREA 0520 ACT1 12230 007750 000000 12240 +3 0 ACT1 12240 000510 ORIG 0510 GAWOLF * 000510 3000001460 12440 CLS2 JD 12 ACT1 12440 000517 027644 26480 +3 INPT2 ACT1 26480 3001014400 99999 END BEGIN GAWOLF99999 {-- tape mark --} 003989 C501 ACT 1 CODEDIT SOURCE - T3834394-50 001472 00010 T500 BEGIN 01472 A APOLLO COMMUNICATIONS TEST1 C.A. TEST ACT1 00010 C *LOAD 0700,TAPAPE,R,PRELD E * 001472 3007010660 * JD 070106 * * 001477 3000147200 * J $-5 * SEGMENT-ID T501 3000147200 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T502 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2000111611 * FT 0700+021216,9,0 * 000457 2000070060 * FT 0700,48,8,0 * 000464 2000024261 * FT 162,49 * * 000471 3000053000 * J 0530 * 000477 0000 * +2 0 * * 000500 3000000020 * JC 0,16 * 000507 000440 * +3 0440 * * 000510 3000000020 * JC 0,16 * 000517 000510 * +3 0510 * * 000520 3000052020 * JHJ $ * 000527 000440 * +3 0440 * 000530 5600052710 * BA1 $-1,8 * 000535 5200044710 * SA1 0447,8 * 000542 4100610100 * XF 061,010000,0,4 * 000547 2000111660 * FT 0700+021216,48,0 * 000554 2000024261 * FT 162,49 * 000561 4100610100 * XF 061,010000,0,4 * * 000566 3200056102 * JL $-5,2 * 000573 2000000103 * FT 1,3 * * 000600 3000074000 * J 0700+04040,0 * 000740 * ORIG 0700+04040 * 000740 4100610100 * XF 061,010000,0,4 * 000745 6000001701 * AC 15,1 * 000752 3420022211 * CC 146,9,1 1 * * 000757 3000106542 * JE $+70 * 000764 2600004104 * PD 041,4 * 000771 3620021700 * CS 143,0,1 1 * 000776 3620011700 * CS 79,0,1 * 001003 3620001712 * CS 15,10,1 1 * 001010 1600004166 * BC2 041,6 * 001015 3620022102 * CS 145,2,1 1 * 001022 7000004162 * CB2 041,2 * * 001027 3000104142 * JE $+10 * * 001034 3007010460 * JD 070104 * 001041 4620003520 * BT 29,16,1 1 * 001046 4620003722 * BT 31,18,1 1 * 001053 2420004001 * TFR 32,,1 * * 001060 3000074000 * J $-80 * 001065 4100640000 * XF 064,0,0,0,4 * 001072 7020004642 * CB1 38,2,1 * * 001077 3020004042 * JE 32,1 * * 001104 3007010560 * JD 070105 * * 001111 3020004000 * J 32,1 * 001116 245 * AREA 165 * SEGMENT-ID T503 3000136300 * SEGJP $ * 001472 00020 ORIG 01472 ACT1 00020 00030 . ACT1 IS S RUN WITH A JUMPER WIRE,PHYSICALLY ACT1 00030 T 00040 . CONNECTETED,BACK TO BACK,BETWEEN THE ACT1 00040 00050 . OUTPUT C CLTS AND THE INPUT CLTS. THE WIRING POINTS ACT1 00050 D 00060 . FOR THE E CLTS OF EACH UNIT ARE BETWEEN PIN 3'4 ACT1 00060 F 00070 . ON THE F FOLLOWING CARDS) ACT1 00070 N 00080 . UNIT0 S(S(FIXEDF03,UNIT1V(HINGEDB03 ACT1 00080 F 00090 . UNIT2 V(V(HC03,UNIT3 V(HD03,UNIT4 V(HE03 ACT1 00090 U 00100 . UNIT5 V(V(HF03,UNIT6 V(FB03,UNIT7 V(FC03 ACT1 00100 U 00110 . UNIT8 V(V(FD03,UNIT9 V(FE03,UNIT10 V(FF03 ACT1 00110 U 00120 . IT IS DEDESIRABLE TO MAKE ALL THE CONNECTIONS ACT1 00120 E 00130 . NOTED,WHWHETHER THE UNIT IS TO BE TESTED OR NOT. ACT1 00130 T 00140 . SECONDNDLY,IT IS NECESSARY TO LOOSEN OR REMOVE ACT1 00140 I 00150 . THE CABLBLE CARDS ASSOCIATED WITH THE ABOVE UNITS AT, ACT1 00150 S 00160 . V(HB04,4,V(HC04,V(HD04,V(HE04,V(HF04 ACT1 00160 4 00170 . V(FB04,4,V(FC04,V(FD04,V(FE04,V(FF04 ACT1 00170 4 00180 . FINALLLLY,REMOVE POWER FROM ALL REMOTE UNITS ACT1 00180 V 00190 . OR,PUT A ALL REMOTE KSRS ON LCL,AND DEPRESS ACT1 00190 O 00200 . MOTOR-ONON BUTTON(LIGHT ONON CONSOLE KSR33 UNIT. ACT1 00200 N 001474 013600 00210 XOBFA +3 013600 BEGINNING ADDRESS OF BUFFERS ACT1 00210 I 001477 013674 00220 XOBPA +3 013674 BEGINNING ADDRESS OF BCWS ACT1 00220 I 013600 00230 XOBF EQU 013600 BEGINNING ADDRESS OF BUFFER AREAS ACT1 00230 I 013674 00240 XOBP EQU 013674 BEGINNING ADDRESS OF BUFF. CONTROL WORDS. ACT1 00240 I 001500 5603262210 00250 START BA1 SEVNS,8 8 ACT1 00250 001505 5200000710 00260 SA1 7,8 ACT1 00260 00270 . FOR MAMAIN MEMORY DUMP AT ANY TIME,DEPRESS ACT1 00270 O 00280 . OPERATOROR REQUEST AND START (IF STOPPED ACT1 00280 S 00290 . IF THEHE PROGRAM IS STOPPED BY THE OPERATOR ACT1 00290 A 00300 . AND IT I IS DESIRED TO RESTART,DEPRESS CLEAR ACT1 00300 R 00310 . AND JUMPMP TO 01500,THE RESTART POSITION ACT1 00310 5 * 001512 3002366660 00320 SEL JD CLOCK D DEPRESS M AND START TO ENTER CLOCK TEST,OR ACT1 00320 00330 . IF 11 UNUNITS ARE TO BE TESTED(0 TO 10 JUST DEPRESS ACT1 00330 E 00340 . START,MAMAKE NO SELECTIONS. ACT1 00340 S 00350 . OR MAKE E UNIT SELECTIONS FOR FUNCTIONAL TEST BY SETTING ACT1 00350 E 00360 . MEMORY L LOCATIONS 0 TO 17 IN THE FOLLOWING MANNER) ACT1 00360 N 00370 . TO SELECECT UNIT 0,CHANGE MEM LOC. 0 FROM ACT1 00370 00380 . 77 TO 0000,IF IT IS DESIRED TO ALSO TEST UNIT 1 ACT1 00380 00390 . CHANGE M MEM LOC 01 FROM 77 TO 01,LIKEWISE ACT1 00390 00400 . TO TEST T UNIT 2,CHANGED MEM LOC 02 FROM 77 TO 02. ACT1 00400 , 00410 . DO THIS S FOR ALL UNITS TO BE TESTED,FOR ANY UNITS ACT1 00410 L 00420 . NOT TO B BE TESTED,LEAVE ITS ASSOCIATED MEM LOC ACT1 00420 E 00430 . ALONE. ACT1 00430 00440 . AFTER SESELECTIONS ARE MADE,DOUBLE CHECK,ALSO ACT1 00440 N 00450 . CHECK THTHAT THE JUMPER WIRES ARE CONNECTED PROPERLY. ACT1 00450 00460 . DEPRESS S START,IF ANY SELECTION IS WRONG,THE ACT1 00460 I 00470 . PROGRAM M WILL RETURN TO THE ABOVE STOP. ACT1 00470 E 00480 . ACT1 NORORMALLY WILL PRINT-OUT UPON ERROR AND ACT1 00480 W 00490 . CONTINUEUE,HOWEVER,AT ANY TIME THE FOLLOWING ACT1 00490 E 00500 . SELECTIOIONS CAN BE MADE) ACT1 00500 00510 . SET SENSNSE SWITCH 1 TO PRINTOUT AND STOP ON ERROR ACT1 00510 C 00520 . SET SENSNSE SWITCH 2 TO STOP,NO PRINT,JUST STOP ACT1 00520 C 00530 . SET SENSNSE SWITCH 3 TO LOOP ON CURRENT TEST,IGNORE ACT1 00530 C 00540 . ERRORS,N,NO PRINT OUT,NO STOP ACT1 00540 T * 001517 1003063700 00550 JR SETUP ACT1 00550 * 001524 1003362500 00560 JR RSET ACT1 00560 * 001531 1002345300 00570 JR CLB ACT1 00570 * 001536 1003153100 00580 JR CLIRS G GO CLEAR ALL IR REGS ACT1 00580 R 001543 4403061400 00590 SC GNU+9,0 0 ACT1 00590 001550 4403227602 00600 SC FX3+2,2 2 PRESET EF FOR TURN ON OUTPUT ACT1 00600 T 001555 4403235302 00610 SC FX4+2,2 2 PRESET EF FOR TURN ON INPUT ACT1 00610 T * 001562 1003060600 00620 NEXT JR GNU GETET NEXT UNIT ACT1 00620 U * 001567 1003141600 00630 JR SEAD SESET IR REGS 1,2,3,4 TO BUFFER ADDRS. ACT1 00630 E 001574 4403632504 00640 AP1 SC TN-2,4 TEST 1,SEND EOT OUT,INPUT OFF ACT1 00640 , 001601 4403632403 00650 SC TN-3,3 ACT1 00650 * 001606 1002345300 00660 JR CLB ACT1 00660 001613 2000166303 00670 FT IPT10,3 3 SET IPT ENTRY FOR TEST 1 ACT1 00670 P 001620 5200043703 00680 SA1 IPT3,3 ACT1 00680 001625 4460000033 00690 SC 0,033,3 3 SET EOT TO OUTPUT BUFFER ACT1 00690 T * 001632 1003604200 00700 JR SAVE SASAVE CONTROL WORDS BEFORE TEST ACT1 00700 T * 001637 1003253400 00710 JR TOOCI T TURN ON OUTPUT CLT UNDER TEST,WITH INHIBIT ACT1 00710 * 001644 1003237300 00720 JR DLY24 G GO DELAY APPROX 120 MIL SEC ACT1 00720 Y * 001651 1003510700 00730 JR ERDMP ACT1 00730 * 001656 3000010060 00740 JD 0100 NO O IPT FROM TEST 1 ACT1 00740 O 001663 3420000021 00750 IPT10 CC 0,021,1 1 TEST OUT BCW,I AND T BITS SET,TST 1 ACT1 00750 O * 001670 3000170742 00760 JE $+15 ACT1 00760 * 001675 1003510700 00770 JR ERDMP ACT1 00770 * 001702 3000010160 00780 JD 0101 COCONTROL BITS OF OUT BCW NOT 21,TST 1 ACT1 00780 B 001707 3420000101 00790 CC 1,1,1 T TEST IF A BITS ADVANCED 1 ACT1 00790 * 001714 3000173342 00800 JE $+15 ACT1 00800 * 001721 1003510700 00810 JR ERDMP ACT1 00810 * 001726 3000010260 00820 JD 0102 A A BITS NOT ADVANCED 1,TEST 1 ACT1 00820 O 001733 2000175703 00830 FT IPT11,3 3 ACT1 00830 001740 5200043703 00840 SA1 IPT3,3 ACT1 00840 * 001745 1003237300 00850 JR DLY24 ACT1 00850 * 001752 3000177100 00860 J $+15 ACT1 00860 * 001757 1003510700 00870 IPT11 JR ERDMP ACT1 00870 * 001764 3000010360 00880 JD 0103 GOGOT IPT,SUSPECT OUTPUT ACTIVITY,TEST1 ACT1 00880 S 001771 2620000102 00890 PD 1,2,1 C CLEAR OUT BCW ACT1 00890 U 001776 2660000001 00900 PD 0,1,3 C CLEAR FIRST CHAR. OF OUT PUT BUFFER ACT1 00900 I * 002003 1003320600 00910 JR TOBE TETEST ALL OUTPUT BUFFERS ACT1 00910 * 002010 1003510700 00920 JR ERDMP ACT1 00920 * 002015 3000010460 00930 JD 0104 ALALL OUTPUT BUFFERS NOT 0,TEST1 ACT1 00930 U * 002022 1003331400 00940 JR TIBE TETEST ALL INPUT BUFFERS ACT1 00940 * 002027 1003510700 00950 JR ERDMP ACT1 00950 * 002034 3000010560 00960 JD 0105 ALALL INPUT BUFFERS NOT 0,TEST1 ACT1 00960 T * 002041 1003304200 00970 JR TOBW TETEST ALL OUTPUT BCWS ACT1 00970 * 002046 1003510700 00980 JR ERDMP ACT1 00980 * 002053 3000010660 00990 JD 0106 ALALL OUTPUT BCWS NOT 0,TEST1 ACT1 00990 U * 002060 1003312400 01000 JR TIBW TETEST ALL INPUT BCWS ACT1 01000 * 002065 1003510700 01010 JR ERDMP ACT1 01010 * 002072 3000010760 01020 JD 0107 ALALL INPUT BCWS NOT 0,TEST1 ACT1 01020 T * 002077 3000157464 01030 JC AP1,52 REPEAT ABOVE TEST IF SENSE SWITCH 3 IS SET ACT1 01030 002104 4403632505 01040 AP2 SC TN-2,05 5 TEST2,SEND EOT 33 OUT AND IN ACT1 01040 , 002111 4403632403 01050 SC TN-3,03 3 ACT1 01050 002116 2000217303 01060 FT IPT20,3 3 ACT1 01060 002123 5200043703 01070 SA1 IPT3,3 ACT1 01070 * 002130 1002345300 01080 JR CLB CLELEAR ALL BCWS+BUFFERS ACT1 01080 002135 4460000033 01090 SC 0,033,3 3 SET EOT 33,TO 1ST CHAR OF OUTPUT BUFF. ACT1 01090 O * 002142 1003604200 01100 JR SAVE ACT1 01100 * 002147 1003221500 01110 JR TOCT GOGO TURN ON INPUT AND OUTPUT CLT ACT1 01110 O * 002154 1003237300 01120 JR DLY24 ACT1 01120 * 002161 1003510700 01130 JR ERDMP ACT1 01130 * 002166 3000020060 01140 JD 0200 NONO OUTPUT IPT FROM TEST 2 ACT1 01140 T 002173 3420000021 01150 IPT20 CC 0,021,1 1 ACT1 01150 * 002200 3000221742 01160 JE $+15 ACT1 01160 * 002205 1003510700 01170 JR ERDMP ACT1 01170 * 002212 3000020160 01180 JD 0201 COCONTROL BITS OF OUT BCW NOT 21,TST 2 ACT1 01180 B 002217 2000225003 01190 FT IPT21,3 3 ACT1 01190 002224 5200043703 01200 SA1 IPT3,3 ACT1 01200 * 002231 1003237331 01210 JR DLY24,2525 ACT1 01210 * 002236 1003510700 01220 JR ERDMP ACT1 01220 * 002243 3000020260 01230 JD 0202 NONOT INPUT IPT FROM TEST 2 ACT1 01230 T 002250 3440000021 01240 IPT21 CC 0,021,2 2 ACT1 01240 * 002255 3000227442 01250 JE $+15 ACT1 01250 * 002262 1003510700 01260 JR ERDMP ACT1 01260 * 002267 3000020360 01270 JD 0203 COCONTROL BITS OF INPUT BCW NOT 21,TST 2 ACT1 01270 B 002274 3440000101 01280 CC 1,1,2 ACT1 01280 * 002301 3000232042 01290 JE $+15 ACT1 01290 * 002306 1003510700 01300 JR ERDMP ACT1 01300 * 002313 3000020460 01310 JD 0204 A A BITS OF INPUT BCW NOT ADVANCED 1 ACT1 01310 F 002320 3420000101 01320 CC 1,1,1 ACT1 01320 * 002325 3000234442 01330 JE $+15 ACT1 01330 * 002332 1003510700 01340 JR ERDMP ACT1 01340 * 002337 3000020560 01350 JD 0205 A A BITS OF OUTPUT BCW NOT ADVANCED 1 ACT1 01350 F 002344 3460000033 01360 CC 0,033,3 3 ACT1 01360 * 002351 3000237042 01370 JE $+15 ACT1 01370 * 002356 1003510700 01380 JR ERDMP ACT1 01380 * 002363 3000020660 01390 JD 0206 OUOUTPUT BUFFER CHARACTER NOT EOT(33 ACT1 01390 U 002370 3500000033 01400 CC 0,033,4 4 ACT1 01400 * 002375 3000241442 01410 JE $+15 ACT1 01410 * 002402 1003510700 01420 JR ERDMP ACT1 01420 * 002407 3000020760 01430 JD 0207 ININPUT BUFFER FIRST CHAR. NOT EOT(33 ACT1 01430 F 002414 4460000133 01440 SC 1,033,3 3 SET EOT 33,TO 2ND CHAR OF OUTPUT BUFF. ACT1 01440 O 002421 2000250303 01450 FT IPT22,3 3 TEST2,PART2,DETERMINE IF THE ACT1 01450 , 002426 5200043703 01460 SA1 IPT3,3 INPUT CLT REALLY GOT TURNED OFF BY EOT ACT1 01460 C 002433 2620000001 01470 PD 0,1,1 P PD CONTROL BITS OF OUT BCW,A BITS ST,LL 1 ACT1 01470 R 002440 2640000102 01480 PD 1,2,2 C CLEAR INPUT BCW ACT1 01480 N 002445 2700000001 01490 PD 0,1,4 C CLEAR FIRST INPUT BUFFER CHARACTER ACT1 01490 I * 002452 1003604200 01500 JR SAVE ACT1 01500 * 002457 1003224131 01510 JR TOOC,25 5 ACT1 01510 * 002464 1003237300 01520 JR DLY24 ACT1 01520 * 002471 1003510700 01530 JR ERDMP ACT1 01530 * 002476 3000021460 01540 JD 0214 GOGOT NO 2ND OUTPUT IPT,TEST2,PART2 ACT1 01540 N 002503 2000252703 01550 IPT22 FT IPT23,3 3 SET UP FOR INPUT IPT,IF SO,ERROR ACT1 01550 P 002510 5200043703 01560 SA1 IPT3,3 ACT1 01560 * 002515 1003237331 01570 JR DLY24,2525 ALLOW TIME FOR IPT,IF SO,ERROR ACT1 01570 W * 002522 3000254100 01580 J $+15 ACT1 01580 * 002527 1003510700 01590 IPT23 JR ERDMP ACT1 01590 * 002534 3000021560 01600 JD 0215 GOGOT UNEXPECTED IPT,SUSPECT INPUT,TEST2,PART2 ACT1 01600 P 002541 5603205102 01610 BA1 BCT1,2 ACT1 01610 002546 7020000142 01620 CB1 1,2,1 T TEST OUTPUT BCW FOR 2102 ACT1 01620 T * 002553 3000257242 01630 JE $+15 ACT1 01630 * 002560 1003510700 01640 JR ERDMP ACT1 01640 * 002565 3000021660 01650 JD 0216 OUOUTPUT BCW NOT 2102,TST2,PART2 ACT1 01650 C 002572 2600001702 01660 PD 017,2 ACT1 01660 002577 7040000142 01670 CB1 1,2,2 T TEST INPUT BCW FOR 0000 ACT1 01670 P * 002604 3000262342 01680 JE $+15 ACT1 01680 * 002611 1003510700 01690 JR ERDMP ACT1 01690 * 002616 3000021760 01700 JD 0217 ININPUT BCW NOT 0000,TEST2,PART2 ACT1 01700 W 002623 7100000142 01710 CB1 1,2,4 ACT1 01710 * 002630 3000264742 01720 JE $+15 ACT1 01720 * 002635 1003510700 01730 JR ERDMP ACT1 01730 * 002642 3000022060 01740 JD 0220 FIFIRST 2 CHARS OF INPUT BUFFER NOT 0,TST2,PRT2 ACT1 01740 C 002647 2620000204 01750 PD 2,4,1 C CLEAR INPUT AND OUTPUT 13CW ACT1 01750 N 002654 2660000102 01760 PD 1,2,3 C CLEAR FIRST 2 CHARS OF OUTPUT BUFF ACT1 01760 I 002661 2700000001 01770 PD 0,1,4 C CLEAR FIRST CHAR. IN INPUT BUFFER ACT1 01770 I * 002666 1003320600 01780 JR TOBE ACT1 01780 * 002673 1003510700 01790 JR ERDMP ACT1 01790 * 002700 3000021060 01800 JD 0210 ALALL OUTPUT BUFFERS NOT ZEROS,TEST 2 ACT1 01800 U * 002705 1003331400 01810 JR TIBE ACT1 01810 * 002712 1003510700 01820 JR ERDMP ACT1 01820 * 002717 3000021160 01830 JD 0211 ALALL INPUT BUFFERS NOT ZEROS,TEST 2 ACT1 01830 T * 002724 1003304200 01840 JR TOBW ACT1 01840 * 002731 1003510700 01850 JR ERDMP ACT1 01850 * 002736 3000021260 01860 JD 0212 ALALL OUTBCWS NOT ZEROS,TEST 2 ACT1 01860 C * 002743 1003312400 01870 JR TIBW ACT1 01870 * 002750 1003510700 01880 JR ERDMP ACT1 01880 * 002755 3000021360 01890 JD 0213 ALALL INPUT BCWS NOT ZEROS,TEST 2 ACT1 01890 T * 002762 3000210464 01900 JC AP2,52 REPEAT ABOVE TEST IF SENSE SWITCH 3 IS SET ACT1 01900 002767 4403632506 01910 AP3 SC TN-2,6 TEST3,PART1,TEST THAT T BIT TURNS OFF OUTPUT ACT1 01910 P 002774 4403632403 01920 SC TN-3,3 ACT1 01920 003001 2000307003 01930 FT IPT30,3 3 ACT1 01930 003006 5200043703 01940 SA1 IPT3,3 ACT1 01940 * 003013 1002345300 01950 JR CLB ACT1 01950 003020 4420000003 01960 SC 0,3,1 S SET F AND T BITS OF OUT BCW ACT1 01960 N 003025 4440000001 01970 SC 0,1,2 S SET T BIT OF INPUT BCW ACT1 01970 I 003032 5601321601 01980 BA1 CT,1 ACT1 01980 003037 5260000001 01990 SA1 0,1,3 S SET DATA CHAR TO OUTPUT BUFFER ACT1 01990 A * 003044 1003604200 02000 JR SAVE ACT1 02000 * 003051 1003221531 02010 JR TOCT,25 5 ACT1 02010 * 003056 1003237300 02020 JR DLY24 ACT1 02020 * 003063 3000310200 02030 J $+15 ACT1 02030 * 003070 1003510700 02040 IPT30 JR ERDMP ACT1 02040 * 003075 3000030060 02050 JD 0300 GOGOT IPT,SUSPECT OUTPUT IS STILL ON WITH T BIT ACT1 02050 S 003102 3420000003 02060 CC 0,3,1 ACT1 02060 * 003107 3000312642 02070 JE $+15 ACT1 02070 * 003114 1003510700 02080 JR ERDMP ACT1 02080 * 003121 3000030160 02090 JD 0301 OUOUTPUT BCW CONTROL BITS NOT 03, TST3 ACT1 02090 C 003126 3420000101 02100 CC 1,1,1 ACT1 02100 * 003133 3000315242 02110 JE $+15 ACT1 02110 * 003140 1003510700 02120 JR ERDMP ACT1 02120 * 003145 3000030260 02130 JD 0302 OUOUTPUT BCW A BITS NOT ADVANCED 1,TEST3,PART1 ACT1 02130 C 003152 2000317603 02140 FT IPT31,3 3 ACT1 02140 003157 5200043703 02150 SA1 IPT3 ACT1 02150 * 003164 1003237331 02160 JR DLY24,2525 ACT1 02160 * 003171 3000321000 02170 J $+15 ACT1 02170 * 003176 1003510700 02180 IPT31 JR ERDMP ACT1 02180 * 003203 3000030360 02190 JD 0303 GOGOT UNEXPECTED INT,TEST 3,PORT 1 ACT1 02190 P 003210 3440000001 02200 CC 0,1,2 T TEST INPUT BCW CONTROL BITS ACT1 02200 P * 003215 3000323442 02210 JE $+15 ACT1 02210 * 003222 1003510700 02220 JR ERDMP ACT1 02220 * 003227 3000030460 02230 JD 0304 ININPUT BCW CONTROL BITS NOT 01,TST3 ACT1 02230 W 003234 3440000101 02240 CC 1,1,2 ACT1 02240 * 003241 3000326042 02250 JE $+15 ACT1 02250 * 003246 1003510700 02260 JR ERDMP ACT1 02260 * 003253 3000030560 02270 JD 0305 ININPUT BCW A BITS NOT ADVANCED 1,TST 3 ACT1 02270 W 003260 5601321601 02280 BA1 CT,1 ACT1 02280 003265 7100000041 02290 CB1 0,1,4 ACT1 02290 * 003272 3000331142 02300 JE $+15 ACT1 02300 * 003277 1003510700 02310 JR ERDMP ACT1 02310 * 003304 3000030660 02320 JD 0306 ININPUT BUFFER,CHAR. RECEIVED NOT CORRECT,TST 3 ACT1 02320 F * 003311 1003237331 02330 JR DLY24,2525 ALLOW TIME FOR OUTPUT XMIT,IF SO,ERROR ACT1 02330 W 003316 5601331702 02340 BA1 BCS1,2 ACT1 02340 003323 7020000142 02350 CB1 1,2,1 ACT1 02350 * 003330 3000334742 02360 JE $+15 ACT1 02360 * 003335 1003510700 02370 JR ERDMP ACT1 02370 * 003342 3000030760 02380 JD 0307 OUOUTPUT BCW CHANGED,NT 0301,TST3 ACT1 02380 C 003347 5601321601 02390 BA1 CT,1 ACT1 02390 003354 7060000041 02400 CB1 0,1,3 ACT1 02400 * 003361 3000340042 02410 JE $+15 ACT1 02410 * 003366 1003510700 02420 JR ERDMP ACT1 02420 * 003373 3000031060 02430 JD 0310 OUOUTPUT BUFFER CHAR. SENT HAS CHANGED,TST 3 ACT1 02430 U 003400 2620000304 02440 PD 3,4,1 C CLEAR BOTH INPUT AND OUT BCWS ACT1 02440 O 003405 2660000001 02450 PD 0,1,3 C CLEAR OUTPUT BUFFER FIRST CHAR. ACT1 02450 U 003412 2700000001 02460 PD 0,1,4 C CLEAR INPUT BUFFER FIRST CHAR. ACT1 02460 N * 003417 1003320600 02470 JR TOBE ACT1 02470 * 003424 1003510700 02480 JR ERDMP ACT1 02480 * 003431 3000031160 02490 JD 0311 ALALL OUTPUT BUFFERS NOT ZEROS,TST 3 ACT1 02490 U * 003436 1003331400 02500 JR TIBE ACT1 02500 * 003443 1003510700 02510 JR ERDMP ACT1 02510 * 003450 3000031260 02520 JD 0312 ALALL INPUT BUFFERS NOT ZEROS,TST 3 ACT1 02520 T * 003455 1003304200 02530 JR TOBW ACT1 02530 * 003462 1003510700 02540 JR ERDMP ACT1 02540 * 003467 3000031360 02550 JD 0313 ALALL OUT BCWS NOT ZEROS,TST 3 ACT1 02550 B * 003474 1003312400 02560 JR TIBW ACT1 02560 * 003501 1003510700 02570 JR ERDMP ACT1 02570 * 003506 3000031460 02580 JD 0314 ALALL INPUT BCWS NOT ZEROS,TST 3 ACT1 02580 T 003513 2000353203 02590 FT IPT32,3 3 ACT1 02590 003520 5200043703 02600 SA1 IPT3,3 ACT1 02600 * 003525 3000354400 02610 J $+15 ACT1 02610 02620 . WHEN SENENDING IN 6 BIT MODE AND RECEIVING IN 2 CHAR MODE ACT1 02620 N 02630 . NORMALLYLY,THE 2ND CHAR RECEIVED BY THE INPUT WILL MATCH ACT1 02630 N 02640 . THE 6 BIBIT CHAR SENT,THE 1ST CHAR RECEIVED BY THE INPUT ACT1 02640 02650 . WILL NORORMALLY BE ZERO EXCEPT FOR BITS 7AND8. BIT 8 ACT1 02650 B 02660 . WILL ALWLWAYS BE 1,AND BIT 7 WILL BE 1 IF,BIT 6 ACT1 02660 02670 . OF THE C CHAR SENT IS ZERO. THERE ARE 9 SPECIAL ACT1 02670 N 02680 . CONTROL L CHARACTERS WHICH ARE TRANSLATED AND DONT ACT1 02680 T 02690 . CONFORM M TO THE ABOVE RULE. THESE 6 BIT CHARACTERS ACT1 02690 02700 . AND THEIEIR TRANSLATIONS INTO 2 CHARS ARE) ACT1 02700 S 02710 . 47 TO 020205,37 TO 0213,77 TO 0207,42 TO 0212 ACT1 02710 T 02720 . 33 TO 020204,34 TO 0214,41 TO 0221,35 TO 0215 ACT1 02720 T 02730 . AND,36 T TO 0206 ACT1 02730 * 003532 1003510700 02740 IPT32 JR ERDMP ACT1 02740 * 003537 3000031560 02750 JD 0315 GOGOT IPT,STILL HAVE ACTIVITY FROM TST3,PART1 ACT1 02750 S 003544 2000363303 02760 FT IPT33,3 3 TRANSLATION OF OUTPUT,6 BIT MODE,TST3,PART2 ACT1 02760 L 003551 5200043703 02770 SA1 IPT3,3 SEND OUT IN 6 BIT MODE AND SET THE ACT1 02770 U * 003556 1002345300 02780 JR CLB INPNPUT TO RECEIVE IN 2 CHAR MODE. NO ACT1 02780 R 003563 5601321601 02790 BA1 CT,1 IPIPTS SHOULD OCCUR EXCEPT WITH EOT,33,OUT ACT1 02790 U 003570 5260000001 02800 SA1 0,1,3 S SET CT CHARACTER TO OUTPUT BUFFER ACT1 02800 C 003575 4440000040 02810 SC 0,040,2 2 SET C BIT OF INPUT BCW ACT1 02810 003602 4420000001 02820 SC 0,1,1 S SET T BIT OF OUTPUT BCW ACT1 02820 I * 003607 1003604200 02830 JR SAVE ACT1 02830 * 003614 1003221500 02840 JR TOCT ACT1 02840 * 003621 1003237331 02850 JR DLY24,2525 ACT1 02850 * 003626 3000367100 02860 J CK6 ACT1 02860 003633 5620000304 02870 IPT33 BA1 3,4,1 ACT1 02870 003640 5201316704 02880 SA1 BCW33,4 4 ACT1 02880 003645 3401321633 02890 CC CT,033 ACT1 02890 * 003652 3000367142 02900 JE $+15 ACT1 02900 * 003657 1003510700 02910 JR ERDMP ACT1 02910 * 003664 3000031660 02920 JD 0316 GOGOT IPT,CT CHAR NOT EOT,TST3,PART2 ACT1 02920 C 003671 2600001702 02930 CK6 PD 017,2 ACT1 02930 003676 5601321601 02940 BA1 CT,1 ACT1 02940 003703 1400001740 02950 LC 017,040 0 TEST FOR BIT 6 ACT1 02950 F * 003710 3000377742 02960 JE B61 BITIT 6 IS ONE ACT1 02960 O 003715 4400001603 02970 SC 016,03 NO BIT 6,SET BITS 7AND8 ACT1 02970 003722 7100000142 02980 CB1 1,2,4 ACT1 02980 * 003727 3000403542 02990 JE T3P3 GOGO TO TEST3 PART3 ACT1 02990 S * 003734 1002353000 03000 JR SCAN GOGO TEST IF SPECIAL TRANSL. CHARACTER ACT1 03000 I * 003741 1003510700 03010 JR ERDMP ACT1 03010 * 003746 3000031760 03020 JD 0317 2 2 CHARS OF INPUT NOT 03+CT CHAR,TST3,PART2 ACT1 03020 O * 003753 3000403500 03030 J T3P3 ACT1 03030 * 003760 1003510700 03040 TRST JR ERDMP ACT1 03040 * 003765 3000032460 03050 JD 0324 CTCT CHAR IS A SPECIAL CNTL,BUT TRANS IS WRONG ACT1 03050 I * 003772 3000403500 03060 J T3P3 ACT1 03060 003777 4400001602 03070 B61 SC 016,2 S SET BIT 8 ACT1 03070 004004 7100000142 03080 CB1 1,2,4 ACT1 03080 * 004011 3000403542 03090 JE T3P3 ACT1 03090 * 004016 1002353000 03100 JR SCAN GOGO TEST IF SPECIAL TRANSL. CHARACTER ACT1 03100 I * 004023 1003510700 03110 JR ERDMP ACT1 03110 * 004030 3000032060 03120 JD 0320 2 2 CHARS OF INPUT NOT 02+CT CHAR,TST3,PART2 ACT1 03120 O 004035 2000415503 03130 T3P3 FT IPT34,3 3 SEND OUT IN 2 CHAR MODE AND SET INPUT ACT1 03130 O 004042 5200043703 03140 SA1 IPT3,3 TO RECEIVE IN 6 BIT MODE ACT1 03140 E * 004047 1002345300 03150 JR CLB ACT1 03150 004054 4420000041 03160 SC 0,041,1 1 SET C,T BITS OF OUTPUT BCW ACT1 03160 , 004061 2600001702 03170 PD 017,2 ACT1 03170 004066 5601321601 03180 BA1 CT,1 ACT1 03180 004073 1400001740 03190 LC 017,040 0 ACT1 03190 * 004100 3000411742 03200 JE S8 ACT1 03200 004105 4400001603 03210 SC 016,03 SET BITS 7AND8 ACT1 03210 T * 004112 3000412400 03220 J S8+5 ACT1 03220 004117 4400001602 03230 S8 SC 016,2 S SET BIT 8 ACT1 03230 004124 5260000102 03240 SA1 1,2,3 S SET 2 CHAR TO OUTPUT BUFFER ACT1 03240 H * 004131 1003604200 03250 JR SAVE ACT1 03250 * 004136 1003221500 03260 JR TOCT ACT1 03260 * 004143 1003237331 03270 JR DLY24,2525 ACT1 03270 * 004150 3000421300 03280 J CK3 ACT1 03280 004155 5620000304 03290 IPT34 BA1 3,4,1 ACT1 03290 004162 5201317304 03300 SA1 BCW34,4 4 ACT1 03300 004167 3401321633 03310 CC CT,033 ACT1 03310 * 004174 3000421342 03320 JE $+15 ACT1 03320 * 004201 1003510700 03330 JR ERDMP ACT1 03330 * 004206 3000032160 03340 JD 0321 GOGOT IPT,CT NOT 33,TST3,PART3 ACT1 03340 C 004213 5601321602 03350 CK3 BA1 CT ACT1 03350 004220 7100000041 03360 CB1 0,1,4 ACT1 03360 * 004225 3000424442 03370 JE $+15 ACT1 03370 * 004232 1003510700 03380 JR ERDMP ACT1 03380 * 004237 3000032260 03390 JD 0322 ININPUT BUFF 1ST CHAR NOT LIKE CT,TST3,PART3 ACT1 03390 F 004244 2000427003 03400 FT IPT35,3 3 ACT1 03400 004251 5200043703 03410 SA1 IPT3,3 ACT1 03410 * 004256 1003237331 03420 JR DLY24,2525 ACT1 03420 * 004263 3000430200 03430 J $+15 ACT1 03430 * 004270 1003510700 03440 IPT35 JR ERDMP ACT1 03440 * 004275 3000032360 03450 JD 0323 GOGOT IPT,STILL HAVE ACTIVITY FROM TST3,PART3 ACT1 03450 S * 004302 3000276764 03460 JC AP3,52 REPEAT TEST3 IF SS3 IS SET ACT1 03460 004307 4403632507 03470 AP4 SC TN-2,7 TEST4,TEST 10TH LEVEL OF 2 CHAR MODE ACT1 03470 T 004314 4403632403 03480 SC TN-3,3 ACT1 03480 004321 2000442203 03490 FT IPT40,3 3 ACT1 03490 004326 5200043703 03500 SA1 IPT3,3 ACT1 03500 * 004333 1002345300 03510 JR CLB ACT1 03510 004340 4420000040 03520 SC 0,040,1 1 SET C BIT OF OUT BCW ACT1 03520 004345 4440000042 03530 SC 0,042,2 2 SET C AND F BIT OF INPUT BCW ACT1 03530 004352 5601321601 03540 BA1 CT,1 ACT1 03540 004357 5260000101 03550 SA1 1,1,3 S SET DATA CHAR. TO 2ND POSITION OF OUT BUFF. ACT1 03550 A 004364 6460000010 03560 LS 0,010,3 3 SET 10TH LEVEL BIT OF OUT BUFFER. ACT1 03560 0 * 004371 1003604200 03570 JR SAVE ACT1 03570 * 004376 1003221500 03580 JR TOCT ACT1 03580 * 004403 1003237300 03590 JR DLY24 ACT1 03590 * 004410 1003510700 03600 JR ERDMP ACT1 03600 * 004415 3000040060 03610 JD 0400 NONO IPT FROM TST 4 ACT1 03610 R 004422 3420000061 03620 IPT40 CC 0,061,1 1 ACT1 03620 * 004427 3000444642 03630 JE $+15 ACT1 03630 * 004434 1003510700 03640 JR ERDMP ACT1 03640 * 004441 3000040160 03650 JD 0401 OUOUTPUT BCW CONTROL BITS NOT 61,TST 4 ACT1 03650 C 004446 3420000102 03660 CC 1,2,1 ACT1 03660 * 004453 3000447242 03670 JE $+15 ACT1 03670 * 004460 1003510700 03680 JR ERDMP ACT1 03680 * 004465 3000040260 03690 JD 0402 OUOUTPUT BCW A BITS NOT ADVANCED 2,TST 4 ACT1 03690 C 004472 2000461203 03700 FT IPT42,3 3 ACT1 03700 004477 5200043703 03710 SA1 IPT3,3 ACT1 03710 004504 6440000001 03720 LS 0,1,2 T TEST THAT SETTING T BIT DOESNT CAUSE INPUT IPT ACT1 03720 A * 004511 1003237300 03730 JR DLY24 A ALLOW TIME FOR INPUT TO RCVE,IF SO,ERROR ACT1 03730 I 004516 3401321637 03740 T1 CC CT,037 ACT1 03740 * 004523 3000454243 03750 JU $+15 ACT1 03750 * 004530 1003510700 03760 JR ERDMP ACT1 03760 * 004535 3000042160 03770 JD 0421 NONO INPUT IPT,CT IS 37,T4,PART2 ACT1 03770 004542 3401321673 03780 CC CT,073 ACT1 03780 * 004547 3000456643 03790 JU $+15 ACT1 03790 * 004554 1003510700 03800 JR ERDMP ACT1 03800 * 004561 3000042260 03810 JD 0422 NONO INPUT IPT,CT IS 73,T4,PART2 ACT1 03810 004566 3401321677 03820 CC CT,077 ACT1 03820 * 004573 3000470643 03830 JU T3 ACT1 03830 * 004600 1003510700 03840 JR ERDMP ACT1 03840 * 004605 3000042360 03850 JD 0423 NONO INPUT IPT,CT IS 77,TST4,PART2 ACT1 03850 004612 3401321637 03860 IPT42 CC CT,037 GOT INPUT IPT,TEST IF CT CHARACTER ACT1 03860 P * 004617 3000466242 03870 JE T2 IS 3 37,73,OR 77,IF NOT,ERROR ACT1 03870 R 004624 3401321673 03880 CC CT,073 ACT1 03880 * 004631 3000466242 03890 JE T2 ACT1 03890 004636 3401321677 03900 CC CT,077 ACT1 03900 * 004643 3000466242 03910 JE $+15 ACT1 03910 * 004650 1003510700 03920 JR ERDMP ACT1 03920 * 004655 3000041760 03930 JD 0417 GOGOT IPT,CT NOT 37,73 OR 77,TST4 ACT1 03930 C 004662 3440000063 03940 T2 CC 0,063,2 2 ACT1 03940 * 004667 3000473242 03950 JE T8 ACT1 03950 * 004674 1003510700 03960 JR ERDMP ACT1 03960 * 004701 3000042060 03970 JD 0420 ININPUT CONTROL BITS NOT 63,TST4,PART2 ACT1 03970 N 004706 3440000043 03980 T3 CC 0,043,2 2 ACT1 03980 * 004713 3000473242 03990 JE $+15 ACT1 03990 * 004720 1003510700 04000 JR ERDMP ACT1 04000 * 004725 3000040460 04010 JD 0404 ININPUT BCW CONTROL BITS NOT 43,TST4 ACT1 04010 W 004732 3440000102 04020 T8 CC 1,2,2 ACT1 04020 * 004737 3000475642 04030 JE $+15 ACT1 04030 * 004744 1003510700 04040 JR ERDMP ACT1 04040 * 004751 3000040560 04050 JD 0405 ININPUT BCW A BITS NOT ADVANCED 2 ACT1 04050 W 004756 2600001702 04060 PD 017,2 ACT1 04060 004763 5601321601 04070 BA1 CT,1 ACT1 04070 004770 7100000142 04080 CB1 1,2,4 ACT1 04080 * 004775 3000501442 04090 JE $+15 ACT1 04090 * 005002 1003510700 04100 JR ERDMP ACT1 04100 * 005007 3000040660 04110 JD 0406 FIFIRST 2 CHAR. OF INPUT BUFFER NOT COR.,TST 4 ACT1 04110 C 005014 5601332102 04120 BA1 BCT,2 ACT1 04120 005021 7020000142 04130 CB1 1,2,1 ACT1 04130 * 005026 3000504542 04140 JE $+15 ACT1 04140 * 005033 1003510700 04150 JR ERDMP ACT1 04150 * 005040 3000040760 04160 JD 0407 OUOUTPUT BCW HAS CHANGED,NOT 6102,TST 4 ACT1 04160 C 005045 2600001702 04170 PD 017,2 ACT1 04170 005052 5601321601 04180 BA1 CT,1 ACT1 04180 005057 4400001610 04190 SC 016,010 0 ACT1 04190 005064 7060000142 04200 CB1 1,2,3 ACT1 04200 * 005071 3000511042 04210 JE $+15 ACT1 04210 * 005076 1003510700 04220 JR ERDMP ACT1 04220 * 005103 3000041060 04230 JD 0410 OUOUTPUT BUFER DATA CHANGED, TST 4 ACT1 04230 U 005110 2620000304 04240 PD 3,4,1 C CLEAR INPUT AND OUTPUT BCWS ACT1 04240 N 005115 2660000102 04250 PD 1,2,3 C CLEAR FIRST 2 CHAR. OF OUTPUT BUFFER ACT1 04250 I 005122 2700000102 04260 PD 1,2,4 C CLEAR FIRST 2 CHAR. OF INPUT BUFFER ACT1 04260 I * 005127 1003320600 04270 JR TOBE ACT1 04270 * 005134 1003510700 04280 JR ERDMP ACT1 04280 * 005141 3000041260 04290 JD 0412 ALALL OUTPUT BUFFERS NOT ZEROS,TST 4 ACT1 04290 U * 005146 1003331400 04300 JR TIBE ACT1 04300 * 005153 1003510700 04310 JR ERDMP ACT1 04310 * 005160 3000041360 04320 JD 0413 ALALL INPUT BUFFERS NOT ZEROS,TST 4 ACT1 04320 T * 005165 1003304200 04330 JR TOBW ACT1 04330 * 005172 1003510700 04340 JR ERDMP ACT1 04340 * 005177 3000041460 04350 JD 0414 ALALL OUTPUT BCWS NOT ZEROS,TST 4 ACT1 04350 U * 005204 1003312400 04360 JR TIBW ACT1 04360 * 005211 1003510700 04370 JR ERDMP ACT1 04370 * 005216 3000041560 04380 JD 0415 ALALL INPUT BCWS NOT ZEROS,TST 4 ACT1 04380 T 005223 2000532403 04390 FT IPT43,3 3 TEST4,PART3,TEST THE EFFECTS OF BITS ACT1 04390 , 005230 5200043703 04400 SA1 IPT3,3 7 AND 8 UPON INPUT RECOGNITION OF THE ACT1 04400 8 * 005235 1002345300 04410 JR CLB CHAHARACTERS,73,37,77 IN 2 CHAR MODE ACT1 04410 S 005242 4420000041 04420 SC 0,041,1 1 SET C,T,BITS OF OUTPUT BCW ACT1 04420 , 005247 4440000040 04430 SC 0,040,2 2 SET C BIT OF INPUT BCW ACT1 04430 005254 2600001702 04440 PD 017,2 ACT1 04440 005261 5601321601 04450 BA1 CT,1 ACT1 04450 005266 5260000101 04460 SA1 1,1,3 S SET CT. CHAR. TO 2ND POSITION OF OUTPUT BUFF. ACT1 04460 005273 6460000001 04470 LS 0,1,3 S SET BIT 7 OF OUTPUT BUFF. ACT1 04470 * 005300 1003604200 04480 JR SAVE ACT1 04480 * 005305 1003221500 04490 JR TOCT ACT1 04490 * 005312 1003237331 04500 JR DLY24,2525 ACT1 04500 * 005317 3000540100 04510 J T4 ACT1 04510 005324 5620000304 04520 IPT43 BA1 3,4,1 ACT1 04520 005331 5201305304 04530 SA1 BCW43,4 4 ACT1 04530 * 005336 1003105300 04540 JR TSTCT G GO TEST IF CT IS 73,37,77 ACT1 04540 * 005343 1003510700 04550 JR ERDMP ACT1 04550 * 005350 3000042460 04560 JD 0424 GOGOT IPT,BUT CT IS NOT 73,37,77,TST4,PART3 ACT1 04560 B 005355 3440000061 04570 CC 0,061,2 2 ACT1 04570 * 005362 3000547042 04580 JE T5 ACT1 04580 * 005367 1003510700 04590 JR ERDMP ACT1 04590 * 005374 3000042560 04600 JD 0425 ININPUT CONTROL BITS NOT 61,TST4,PART3 ACT1 04600 N 005401 5620000304 04610 T4 BA1 3,4,1 ACT1 04610 005406 5201305304 04620 SA1 BCW43,4 4 ACT1 04620 * 005413 1003105300 04630 JR TSTCT ACT1 04630 * 005420 3000544400 04640 J $+20 ACT1 04640 * 005425 3000543700 04650 J $+10 ACT1 04650 * 005432 1003510700 04660 JR ERDMP ACT1 04660 * 005437 3000041660 04670 JD 0416 NONO INPUT INT. BUT CT IS A SPECIAL. TST4,PART3 ACT1 04670 005444 3440000040 04680 CC 0,040,2 2 ACT1 04680 * 005451 3000547042 04690 JE T5 ACT1 04690 * 005456 1003510700 04700 JR ERDMP ACT1 04700 * 005463 3000043160 04710 JD 0431 ININPUT CONTROL BITS NOT 40,TST4,PART3 ACT1 04710 N 005470 3440000102 04720 T5 CC 1,2,2 ACT1 04720 * 005475 3000551442 04730 JE $+15 ACT1 04730 * 005502 1003510700 04740 JR ERDMP ACT1 04740 * 005507 3000042660 04750 JD 0426 ININPUT A BITS NOT 2,TST4,PART3 ACT1 04750 B 005514 3420000041 04760 CC 0,041,1 1 ACT1 04760 * 005521 3000554042 04770 JE $+15 ACT1 04770 * 005526 1003510700 04780 JR ERDMP ACT1 04780 * 005533 3000042760 04790 JD 0427 OUOUTPUT CONTROL BITS NOT 41,TST4,PART3 ACT1 04790 O 005540 2600001702 04800 PD 017,2 ACT1 04800 005545 5601321601 04810 BA1 CT,1 ACT1 04810 005552 6400001601 04820 LS 016,1 ACT1 04820 005557 7100000142 04830 CB1 1,2,4 ACT1 04830 * 005564 3000560342 04840 JE $+15 ACT1 04840 * 005571 1003510700 04850 JR ERDMP ACT1 04850 * 005576 3000043060 04860 JD 0430 ININPUT BUFF NOT CT CHAR+BIT7,TST4,PART3 ACT1 04860 F 005603 2000571103 04870 FT IPT45,3 3 SET UP TO TEST EFFECT OF BIT8 UPON ACT1 04870 P 005610 5200043703 04880 SA1 IPT3,3 THE INPUT IN 2 CHAR MODE ACT1 04880 P 005615 4420000000 04890 SC 0,0,1 C CLEAR OUTPUT CONTROL BITS,A BITS STILL 2 ACT1 04890 U 005622 4440000000 04900 SC 0,0,2 C CLEAR INPUT CONTROL BITS,A BITS STILL 2 ACT1 04900 N 005627 2600001702 04910 PD 017,2 ACT1 04910 005634 5601321601 04920 BA1 CT,1 ACT1 04920 005641 6400001602 04930 LS 016,2 S SET BIT8,OF 2 CHAR ACT1 04930 8 005646 5260000302 04940 SA1 3,2,3 S SET 2 CHAR TO POSITIONS 3AND4 OF OUT BUFF. ACT1 04940 H 005653 4420000041 04950 SC 0,041,1 1 SET C,T BITS OF OUTPUT ACT1 04950 , 005660 4440000040 04960 SC 0,040,2 2 SET C BIT OF INPUT ACT1 04960 * 005665 1003604200 04970 JR SAVE ACT1 04970 * 005672 1003221500 04980 JR TOCT ACT1 04980 * 005677 1003237331 04990 JR DLY24,2525 ACT1 04990 * 005704 3000600000 05000 J T6 ACT1 05000 005711 5620000304 05010 IPT45 BA1 3,4,1 ACT1 05010 005716 5201305704 05020 SA1 BCW45,4 4 ACT1 05020 005723 3401321604 05030 CC CT,4 ACT1 05030 * 005730 3000574742 05040 JE $+15 ACT1 05040 * 005735 1003510700 05050 JR ERDMP ACT1 05050 * 005742 3000043260 05060 JD 0432 GOGOT IPT WITH BIT8,CHARS NOT 0204,TST4,PRT4 ACT1 05060 W 005747 3440000061 05070 CC 0,061,2 2 ACT1 05070 * 005754 3000602442 05080 JE T7 ACT1 05080 * 005761 1003510700 05090 JR ERDMP ACT1 05090 * 005766 3000044060 05100 JD 0440 ININPUT CONTROL BITS NOT 61,EOT IPT,TST4,PART4 ACT1 05100 N * 005773 3000602400 05110 J T7 ACT1 05110 006000 3440000040 05120 T6 CC 0,040,2 2 ACT1 05120 * 006005 3000602442 05130 JE $+15 ACT1 05130 * 006012 1003510700 05140 JR ERDMP ACT1 05140 * 006017 3000043560 05150 JD 0435 ININPUT CONTROL BITS NOT 40,TST4,PART4 ACT1 05150 N 006024 5620000304 05160 T7 BA1 3,4,1 ACT1 05160 006031 5201305704 05170 SA1 BCW45,4 4 ACT1 05170 006036 3420000041 05180 CC 0,041,1 1 ACT1 05180 * 006043 3000606242 05190 JE $+15 ACT1 05190 * 006050 1003510700 05200 JR ERDMP ACT1 05200 * 006055 3000043360 05210 JD 0433 OUOUTPUT CONTROL BITS NOT 41,TST4,PART4 ACT1 05210 O 006062 3420000104 05220 CC 1,4,1 ACT1 05220 * 006067 3000610642 05230 JE $+15 ACT1 05230 * 006074 1003510700 05240 JR ERDMP ACT1 05240 * 006101 3000043460 05250 JD 0434 OUOUTPUT A BITS NOT 4,TST4,PART4 ACT1 05250 006106 3440000104 05260 CC 1,4,2 ACT1 05260 * 006113 3000613242 05270 JE $+15 ACT1 05270 * 006120 1003510700 05280 JR ERDMP ACT1 05280 * 006125 3000043660 05290 JD 0436 ININPUT A BITS NOT 4,TST4,PART4 ACT1 05290 B 006132 2600001702 05300 PD 017,2 ACT1 05300 006137 5601321601 05310 BA1 CT,1 ACT1 05310 006144 6400001602 05320 LS 016,2 ACT1 05320 006151 7100000342 05330 CB1 3,2,4 ACT1 05330 * 006156 3000617542 05340 JE $+15 ACT1 05340 * 006163 1003510700 05350 JR ERDMP ACT1 05350 * 006170 3000043760 05360 JD 0437 ININPUT BUFF,2ND'3RD CHAR NOT CT+BIT8,TST4,4 ACT1 05360 F 006175 2000622103 05370 FT IPT46,3 3 ACT1 05370 006202 5200043703 05380 SA1 IPT3,3 ACT1 05380 * 006207 1003237331 05390 JR DLY24,2525 ACT1 05390 * 006214 3000623300 05400 J $+15 ACT1 05400 * 006221 1003510700 05410 IPT46 JR ERDMP ACT1 05410 * 006226 3000044160 05420 JD 0441 GOGOT IPT,STILL HAVE ACTIVITY FROM TST4,PART4 ACT1 05420 S * 006233 3000430764 05430 JC AP4,52 REPEAT TEST4 IF SENSE SWITCH 3 IS SET ACT1 05430 006240 4403632510 05440 AP5 SC TN-2,01010 TEST CPT OUT AND CP IN WITH 2 CHAR EOT ACT1 05440 006245 4403632403 05450 SC TN-3,3 ACT1 05450 006252 2000634603 05460 FT IPT50,3 3 ACT1 05460 006257 5200043703 05470 SA1 IPT3,3 ACT1 05470 * 006264 1002345300 05480 JR CLB GO O CLEAR ALL BCWS AND BUFFERS ACT1 05480 A 006271 4420000051 05490 SC 0,051,1 1 SET C,P,T OF OUTPUT BCW ACT1 05490 , 006276 5601332302 05500 BA1 EOT2,2 SET 1204,EOT FOR 2 CHAR + 10TH BIT TO OUTPUT ACT1 05500 0 006303 5260000102 05510 SA1 1,2,3 ACT1 05510 006310 4440000050 05520 SC 0,050,2 2 SET CP BITS OF INPUT BCW ACT1 05520 P * 006315 1003604200 05530 JR SAVE ACT1 05530 * 006322 1003250300 05540 JR TOCTI T TURN ON INPUT'OUTPUT WITH INHIBIT ACT1 05540 * 006327 1003237300 05550 JR DLY24 ACT1 05550 * 006334 1003510700 05560 JR ERDMP ACT1 05560 * 006341 3000050060 05570 JD 0500 NONO OUTPUT IPT,TEST 5 ACT1 05570 T 006346 5620000304 05580 IPT50 BA1 3,4,1 S SAVE INPUT AND OUTPUT BCWS ACT1 05580 P 006353 5201304704 05590 SA1 BCW50,4 4 ACT1 05590 006360 3401304471 05600 CC BCW50-3,3,071 ACT1 05600 * 006365 3000640442 05610 JE $+15 ACT1 05610 * 006372 1003510700 05620 JR ERDMP ACT1 05620 * 006377 3000050160 05630 JD 0501 OUOUTPUT BCW CONTROL CHAR. NOT 71,TST5 ACT1 05630 C 006404 3420000102 05640 CC 1,2,1 ACT1 05640 * 006411 3000643042 05650 JE $+15 ACT1 05650 * 006416 1003510700 05660 JR ERDMP ACT1 05660 * 006423 3000050260 05670 JD 0502 OUOUTPUT BCW A BITS NOT ADVANCED 2,TST 5 ACT1 05670 C 006430 2000646103 05680 FT IPT51,3 3 ACT1 05680 006435 5200043703 05690 SA1 IPT3,3 ACT1 05690 * 006442 1003237331 05700 JR DLY24,2525 WAIT FOR INPUT IPT ACT1 05700 * 006447 1003510700 05710 JR ERDMP ACT1 05710 * 006454 3000050360 05720 JD 0503 DIDID NOT GET INPUT IPT,TST 5 ACT1 05720 G 006461 3440000071 05730 IPT51 CC 0,071,2 2 ACT1 05730 * 006466 3000650542 05740 JE $+15 ACT1 05740 * 006473 1003510700 05750 JR ERDMP ACT1 05750 * 006500 3000050460 05760 JD 0504 COCONTROL CHAR OF INPUT BCW NOT 71,TST5 ACT1 05760 C 006505 3440000102 05770 CC 1,2,2 ACT1 05770 * 006512 3000653142 05780 JE $+15 ACT1 05780 * 006517 1003510700 05790 JR ERDMP ACT1 05790 * 006524 3000050560 05800 JD 0505 ININPUT BCW A BITS NOT ADVANCED 2,TST 5 ACT1 05800 W 006531 5601332502 05810 BA1 EOT2P,2 2 2CHAR EOT,0204 WITH EVEN PARITY ACT1 05810 006536 7100000142 05820 CB1 1,2,4 T TEST IF INPUT BUFF RECEIVED 2 CHAR EOT ACT1 05820 * 006543 3000656242 05830 JE $+15 ACT1 05830 * 006550 1003510700 05840 JR ERDMP ACT1 05840 * 006555 3000050660 05850 JD 0506 ININPUT BUFFER FIRST 2 CHARACTERS NOT EOT,TST 5 ACT1 05850 F 006562 5601332702 05860 BA1 BCOT5,2 2 ACT1 05860 006567 7020000142 05870 CB1 1,2,1 ACT1 05870 * 006574 3000661342 05880 JE $+15 ACT1 05880 * 006601 1003510700 05890 JR ERDMP ACT1 05890 * 006606 3000050760 05900 JD 0507 OUOUTPUT BCW NOT 7102,TST5 ACT1 05900 C 006613 2000663703 05910 FT IPT52,3 3 ACT1 05910 006620 5200043703 05920 SA1 IPT3,3 ACT1 05920 * 006625 1003237331 05930 JR DLY24,2525 ACT1 05930 * 006632 3000665100 05940 J $+15 ACT1 05940 * 006637 1003510700 05950 IPT52 JR ERDMP ACT1 05950 * 006644 3000051460 05960 JD 0514 GOGOT IPT,STILL HAVE ACTIVITY FROM TST5 ACT1 05960 S 006651 2660000102 05970 PD 1,2,3 C CLEAR FIRST 2 CHAR. OF OUTPUT BUFF. ACT1 05970 I 006656 2700000102 05980 PD 1,2,4 C CLEAR FIRST 2 CHAR. OF INPUT BUFF. ACT1 05980 I 006663 2620000304 05990 PD 3,4,1 C CLEAR BOTH INPUT AND OUTPUT BCWS. ACT1 05990 O * 006670 1003320600 06000 JR TOBE ACT1 06000 * 006675 1003510700 06010 JR ERDMP ACT1 06010 * 006702 3000051060 06020 JD 0510 ALALL OUTPUT BUFFERS NOT ZEROES,TST 5 ACT1 06020 U * 006707 1003331400 06030 JR TIBE ACT1 06030 * 006714 1003510700 06040 JR ERDMP ACT1 06040 * 006721 3000051160 06050 JD 0511 ALALL INPUT BUFFERS NOT ZEROES,TST 5 ACT1 06050 T * 006726 1003304200 06060 JR TOBW ACT1 06060 * 006733 1003510700 06070 JR ERDMP ACT1 06070 * 006740 3000051260 06080 JD 0512 ALALL OUTPUT BCWS NOT ZEROES,TST 5 ACT1 06080 U * 006745 1003312400 06090 JR TIBW ACT1 06090 * 006752 1003510700 06100 JR ERDMP ACT1 06100 * 006757 3000051360 06110 JD 0513 ALALL INPUT BCWS NOT ZEROES,TST 5 ACT1 06110 T * 006764 3000624064 06120 JC AP5,52 REPEAT TEST5 IF SENSE SWITCH 3 IS SET ACT1 06120 006771 4403632511 06130 AP6 SC TN-2,01111 TEST IP F BAR OUT,AND PF BAR IN WITH ACT1 06130 006776 4403632403 06140 SC TN-3,3 ACT1 06140 007003 2000707703 06150 FT IPT60,3 3 6 BIT MODE,NO TRANSL. SHOULD OCCUR. ACT1 06150 007010 5200043703 06160 SA1 IPT3,3 SEND 73,37,77,33 OUT,WITH P BIT SET. ACT1 06160 3 * 007015 1002345300 06170 JR CLB C.A.A. WILL SEE ALL 4 INPUTS AS EOTS,ONLY ACT1 06170 06180 . THE 33 W WILL BE SEEN AS EOT FOR OUTPUT,FURTHERMORE, ACT1 06180 06190 . THE INPUPUT'OUTPUT CLT WILL TURN OFF FOR 33 ONLY. ACT1 06190 U 007022 4420000030 06200 SC 0,030,1 1 SET I AND P BITS OF OUTPUT BCW ACT1 06200 007027 4440000010 06210 SC 0,010,2 2 SET P BIT OF INPUT BCW ACT1 06210 007034 5603346704 06220 BA1 EOTS,4 ACT1 06220 007041 5260000304 06230 SA1 3,4,3 S SET 4 CHARS. 73,37,77,33 TO OUTPUT BUFFER ACT1 06230 H * 007046 1003604200 06240 JR SAVE ACT1 06240 * 007053 1003221500 06250 JR TOCT ACT1 06250 * 007060 1003237300 06260 JR DLY24 ACT1 06260 * 007065 1003510700 06270 JR ERDMP ACT1 06270 * 007072 3000060060 06280 JD 0600 NONO INITIAL IPT FROM TST 6 ACT1 06280 A 007077 5640000104 06290 IPT60 BA1 1,4,2 S SAVE INPUT AND OUTPUT BCWS AFTER ACT1 06290 P 007104 5201302304 06300 SA1 SVBCW,4 4 FIRST IPT,TST6,PART 1 ACT1 06300 007111 4420000016 06310 SC 0,016,1 1 SET PEF BITS IN OUTPUT BCW ACT1 06310 E 007116 4440000017 06320 SC 0,017,2 2 SET PEFT, BITS OF INPUT BCW ACT1 06320 E * 007123 1003604200 06330 JR SAVE ACT1 06330 * 007130 1003256500 06340 JR TOICI ACT1 06340 007135 5603244102 06350 BA1 CRCT,2 SAVE DELAY COUNT OF DLY24 ACT1 06350 E 007142 5201333102 06360 SA1 SCRCT,2 2 ACT1 06360 007147 3401302231 06370 CC SVBCW-1,1,031 TEST INPUT CONTROL BITS ACT1 06370 E * 007154 3000717342 06380 JE $+15 ACT1 06380 * 007161 1003510700 06390 JR ERDMP ACT1 06390 * 007166 3000060160 06400 JD 0601 ININPUT BCW NOT 31,TST6,PART 1 ACT1 06400 W 007173 3401302301 06410 CC SVBCW,1 1 TEST INPUT A BITS ACT1 06410 I * 007200 3000721742 06420 JE $+15 ACT1 06420 * 007205 1003510700 06430 JR ERDMP ACT1 06430 * 007212 3000060260 06440 JD 0602 ININPUT BCW A BITS NOT ADVANCED 1,TST 6,PART 1 ACT1 06440 W 007217 3401302030 06450 CC SVBCW-3,3,030 TEST OUTPUT CONTROL BITS,FIRST IPT. ACT1 06450 E * 007224 3000724342 06460 JE $+15 ACT1 06460 * 007231 1003510700 06470 JR ERDMP ACT1 06470 * 007236 3000062560 06480 JD 0625 OUOUTPUT BCW CONTROL BITS NOT 30,TST6,PART1, ACT1 06480 C 007243 3420000101 06490 CC 1,1,1 ACT1 06490 * 007250 3000726742 06500 JE $+15 ACT1 06500 * 007255 1003510700 06510 JR ERDMP ACT1 06510 * 007262 3000062660 06520 JD 0626 OUOUTPUT BCW A BITS NOT 1,TST6,PART1 ACT1 06520 C 007267 2000732003 06530 FT IPT61,3 3 TEST 6,PART2,2ND CHAR IS BEING ACT1 06530 6 06540 . TRANSFERERRED,37,OUTPUT CLT IS STILL ON. ACT1 06540 , 007274 5200043703 06550 SA1 IPT3,3 ACT1 06550 * 007301 1003237331 06560 JR DLY24,2525 ACT1 06560 * 007306 1003510700 06570 JR ERDMP ACT1 06570 * 007313 3000062260 06580 JD 0622 NONO INPUT IPT FROM 37,TST6,PART2 ACT1 06580 007320 5640000104 06590 IPT61 BA1 1,4,2 S SAVE INPUT AND OUTPUT BCWS AFTER 2ND ACT1 06590 P 007325 5201302704 06600 SA1 SVBCW+4,4,4 IPT,TST6,PART2 ACT1 06600 , 007332 4420000033 06610 SC 0,033,1 1 SET I,P,F,T,BITS OF OUTPUT BCW ACT1 06610 , 007337 4440000030 06620 SC 0,030,2 2 SET I,P BITS OF INPUT BCW ACT1 06620 , * 007344 1003604200 06630 JR SAVE ACT1 06630 007351 3401302617 06640 CC SVBCW+3,3,017 ACT1 06640 * 007356 3000737542 06650 JE $+15 ACT1 06650 * 007363 1003510700 06660 JR ERDMP ACT1 06660 * 007370 3000060460 06670 JD 0604 ININPUT BCW CONTROL BITS NOT 17,TST6,PART2 ACT1 06670 W 007375 3401302702 06680 CC SVBCW+4,4,2 ACT1 06680 * 007402 3000742142 06690 JE $+15 ACT1 06690 * 007407 1003510700 06700 JR ERDMP ACT1 06700 * 007414 3000060560 06710 JD 0605 ININPUT BCW A BITS NOT ADVANCED 2,TST6,PART2 ACT1 06710 W 007421 5603346502 06720 BA1 EOTS-2,2,2 ACT1 06720 007426 7100000142 06730 CB1 1,2,4 ACT1 06730 * 007433 3000745242 06740 JE $+15 ACT1 06740 * 007440 1003510700 06750 JR ERDMP ACT1 06750 * 007445 3000060660 06760 JD 0606 FIFIRST 2 CHARS OF INPUT BUFF NOT 7337,TST6,PRT2 ACT1 06760 C 007452 3401302416 06770 CC SVBCW+1,1,016 ACT1 06770 * 007457 3000747642 06780 JE $+15 ACT1 06780 * 007464 1003510700 06790 JR ERDMP ACT1 06790 * 007471 3000062760 06800 JD 0627 OUOUTPUT BCW CONTROL BITS NOT 16,TST6,PART2 ACT1 06800 C 007476 3401302502 06810 CC SVBCW+2,2,2 ACT1 06810 * 007503 3000752242 06820 JE $+15 ACT1 06820 * 007510 1003510700 06830 JR ERDMP ACT1 06830 * 007515 3000063060 06840 JD 0630 OUOUTPUT BCW A BITS NOT 2,TST6,PART2 ACT1 06840 C 007522 2000755303 06850 FT IPT62,3 3 ACT1 06850 007527 5200043703 06860 SA1 IPT3,3 ACT1 06860 06870 . TEST6,PAPART3,3RD CHAR. IS BEING TRANSFERED,77, ACT1 06870 D 06880 . OUTPUT C CLT IS STILL ON,SEND OUT EVEN PARITY,77,CHAR ACT1 06880 S 06890 . SET INPUPUT TO EXPECT ODD PARITY,E BIT SHOULD SET. ACT1 06890 X * 007534 1003237331 06900 JR DLY24,2525 ACT1 06900 * 007541 1003510700 06910 JR ERDMP ACT1 06910 * 007546 3000060760 06920 JD 0607 NONO INPUT IPT FROM 77,TST6,PART3 ACT1 06920 007553 5640000104 06930 IPT62 BA1 1,4,2 S SAVE INPUT AND OUTPUT BCWS AFTER 3RD IPT. ACT1 06930 P 007560 5201303304 06940 SA1 SVBCW+8,8,4 IPT,TST6,PART3 ACT1 06940 , 007565 4420000015 06950 SC 0,015,1 1 SET PET BITS OF OUTPUT BCW ACT1 06950 E 007572 4440000031 06960 SC 0,031,2 2 SET I,P,T BITS OF INPUT BCW ACT1 06960 , * 007577 1003604200 06970 JR SAVE ACT1 06970 007604 3401303303 06980 CC SVBCW+8,8,3 ACT1 06980 * 007611 3000763042 06990 JE $+15 ACT1 06990 * 007616 1003510700 07000 JR ERDMP ACT1 07000 * 007623 3000064360 07010 JD 0643 ININPUT A BITS NOT 3,AT 3RD IPT,TST6,PART3 ACT1 07010 B 007630 3401303215 07020 CC SVBCW+7,7,015 ACT1 07020 * 007635 3000765442 07030 JE $+15 ACT1 07030 * 007642 1003510700 07040 JR ERDMP ACT1 07040 * 007647 3000064460 07050 JD 0644 ININPUT CONTROL BITS NOT 15 AT 3RD IPT,TST6,PART3 ACT1 07050 N 007654 5440000031 07060 LP 0,031,2 2 MASK INPUT BCW FOR I,P,T BITS,SET. ACT1 07060 I 007661 3401303103 07070 CC SVBCW+6,6,3 ACT1 07070 * 007666 3000770542 07080 JE $+15 ACT1 07080 * 007673 1003510700 07090 JR ERDMP ACT1 07090 * 007700 3000064560 07100 JD 0645 OUOUTPUT A BITS NOT 3,AT 3RD IPT,TST6,PART3 ACT1 07100 007705 3401303033 07110 CC SVBCW+5,5,033 ACT1 07110 * 007712 3000773142 07120 JE $+15 ACT1 07120 * 007717 1003510700 07130 JR ERDMP ACT1 07130 * 007724 3000064660 07140 JD 0646 OUOUTPUT CONTROL BITS NOT 33 AT 3RD IPT,TST6,PART3 ACT1 07140 O 007731 2000775503 07150 FT IPT63,3 3 ACT1 07150 007736 5200043703 07160 SA1 IPT3,3 ACT1 07160 * 007743 1003237331 07170 JR DLY24,2525 ACT1 07170 * 007750 3000776700 07180 J $+15 ACT1 07180 * 007755 1003510700 07190 IPT63 JR ERDMP ACT1 07190 * 007762 3000061260 07200 JD 0612 GOGOT IPT,OUTPUT SHOULD BE OFF,TST6,PART4 ACT1 07200 O 007767 5640000104 07210 BA1 1,4,2 ACT1 07210 007774 5201303704 07220 SA1 SVBCW+1212,4 ACT1 07220 010001 4420000014 07230 SC 0,014,1 1 SET P,E BITS OF OUTPUT ACT1 07230 , 010006 4440000032 07240 SC 0,032,2 2 SET I,P,F BITS OF INPUT ACT1 07240 , * 010013 1003604200 07250 JR SAVE ACT1 07250 010020 2001005603 07260 FT IPT64,3 3 33,CHAR.HAS GONE OUT AND TURNED OFF OUTPUT ACT1 07260 A 010025 5200043703 07270 SA1 IPT3,3 ACT1 07270 * 010032 1003253400 07280 JR TOOCI T TURN ON OUTPUT WITH INHIBIT,XMIT,33,CHAR. ACT1 07280 * 010037 1003237331 07290 JR DLY24,2525 ACT1 07290 * 010044 1003510700 07300 JR ERDMP ACT1 07300 * 010051 3000065060 07310 JD 0650 NONO OUTPUT IPT FROM 33,CHAR,TST6,PART4 ACT1 07310 T 010056 5620000304 07320 IPT64 BA1 3,4,1 ACT1 07320 010063 5201307704 07330 SA1 BCW64,4 4 ACT1 07330 010070 3401307415 07340 CC BCW64-3,3,015 ACT1 07340 * 010075 3001011442 07350 JE $+15 ACT1 07350 * 010102 1003510700 07360 JR ERDMP ACT1 07360 * 010107 3000065160 07370 JD 0651 OUOUTPUT CONTROL BITS NOT 15,TST6,PART5 ACT1 07370 O 010114 3401307504 07380 CC BCW64-2,2,4 ACT1 07380 * 010121 3001014042 07390 JE $+15 ACT1 07390 * 010126 1003510700 07400 JR ERDMP ACT1 07400 * 010133 3000064760 07410 JD 0647 OUOUTPUT A BITS NOT 4,TST6,PART5 ACT1 07410 010140 2001017103 07420 FT IPT65,3 3 BOTH INPUT AND OUTPUT CLTS SHOULD ACT1 07420 I 010145 5200043703 07430 SA1 IPT3,3 ACT1 07430 * 010152 1003237331 07440 JR DLY24,2525 ACT1 07440 * 010157 1003510700 07450 JR ERDMP ACT1 07450 * 010164 3000065260 07460 JD 0652 NONO INPUT IPT FROM,33,CHAR,TST6,PART6 ACT1 07460 010171 5640000104 07470 IPT65 BA1 1,4,2 S SAVE BOTH BCWS AFTER INPUT IPT FROM RECVNG ACT1 07470 T 010176 5201304304 07480 SA1 SVBCW+1616,4 33,CHAR. TEST6,PART6 ACT1 07480 , 010203 3401304217 07490 CC SVBCW+1515,017 ACT1 07490 * 010210 3001022742 07500 JE $+15 ACT1 07500 * 010215 1003510700 07510 JR ERDMP ACT1 07510 * 010222 3000063660 07520 JD 0636 ININPUT BCW CONTROL BITS NOT 17,TST6,PART5 ACT1 07520 W 010227 3401304304 07530 CC SVBCW+1616,4 ACT1 07530 * 010234 3001025342 07540 JE $+15 ACT1 07540 * 010241 1003510700 07550 JR ERDMP ACT1 07550 * 010246 3000063760 07560 JD 0637 ININPUT BCW A BITS NOT 4,TST6,PART5 ACT1 07560 W 010253 3401304015 07570 CC SVBCW+1313,015 ACT1 07570 * 010260 3001027742 07580 JE $+15 ACT1 07580 * 010265 1003510700 07590 JR ERDMP ACT1 07590 * 010272 3000064060 07600 JD 0640 OUOUTPUT BCW CONTROL BITS NOT 15,TST6,PART5. ACT1 07600 C 010277 3401304104 07610 CC SVBCW+1414,4 ACT1 07610 * 010304 3001032342 07620 JE $+15 ACT1 07620 * 010311 1003510700 07630 JR ERDMP ACT1 07630 * 010316 3000064160 07640 JD 0641 OUOUTPUT BCW A BITS NOT 4,TST6,PART5 ACT1 07640 C 010323 5603346704 07650 BA1 EOTS,4 ACT1 07650 010330 7100000344 07660 CB1 3,4,4 ACT1 07660 * 010335 3001035442 07670 JE $+15 ACT1 07670 * 010342 1003510700 07680 JR ERDMP ACT1 07680 * 010347 3000064260 07690 JD 0642 ININPUT BUFFER 4 CHARS NOT 73,37,77,33 ACT1 07690 F 010354 2001040003 07700 FT IPT66,3 3 INPUT AND OUTPUT CLTS SHOULD BE OFF ACT1 07700 010361 5200043703 07710 SA1 IPT3,3 ACT1 07710 * 010366 1003237331 07720 JR DLY24,2525 ACT1 07720 * 010373 3001041200 07730 J $+15 ACT1 07730 * 010400 1003510700 07740 IPT66 JR ERDMP ACT1 07740 * 010405 3000062460 07750 JD 0624 UNUNEXPECTED IPT,STILL HAVE ACTIVITY,TST6,PART4 ACT1 07750 E 010412 2620000304 07760 PD 3,4,1 C CLEAR INPUT AND OUTPUT BCWS UNDER TEST ACT1 07760 N 010417 2660000304 07770 PD 3,4,3 C CLEAR 4 CHARS OF OUTPUT BUFF. ACT1 07770 010424 2700000304 07780 PD 3,4,4 C CLEAR 4 CHARS OF INPUT BUFF. ACT1 07780 * 010431 1003320600 07790 JR TOBE ACT1 07790 * 010436 1003510700 07800 JR ERDMP ACT1 07800 * 010443 3000061660 07810 JD 0616 ALALL OUTPUT BUFFS. NOT ZEROS,TST 6,PART 2 ACT1 07810 U * 010450 1003331400 07820 JR TIBE ACT1 07820 * 010455 1003510700 07830 JR ERDMP ACT1 07830 * 010462 3000061760 07840 JD 0617 ALALL INPUT BUFFS. NOT ZEROS,TST 6,PART 2 ACT1 07840 T * 010467 1003304200 07850 JR TOBW ACT1 07850 * 010474 1003510700 07860 JR ERDMP ACT1 07860 * 010501 3000062060 07870 JD 0620 ALALL OUTPUT BCWS NOT ZEROS,TST 6,PART 2 ACT1 07870 U * 010506 1003312400 07880 JR TIBW ACT1 07880 * 010513 1003510700 07890 JR ERDMP ACT1 07890 * 010520 3000062160 07900 JD 0621 ALALL INPUT BCWS NOT ZEROS,TST 6,PART 2 ACT1 07900 T * 010525 3000677164 07910 JC AP6,52 REPEAT TEST6 IF SENSE SWITCH 3 IS SET ACT1 07910 010532 4403632512 07920 AP7 SC TN-2,01212 TEST7,CHECK E BIT UPON PARITY ERROR ACT1 07920 7 010537 4403632403 07930 SC TN-3,3 ACT1 07930 010544 2001064003 07940 FT IPT70,3 3 SEND OUT A 33 CHAR,6 BIT MODE WITH ACT1 07940 O 010551 5200043703 07950 SA1 IPT3,3 I,E BITS OF OUTPUT,CAUSING OUTPUT IPT ACT1 07950 T * 010556 1002345300 07960 JR CLB A Z ZERO CHAR WILL XMIT TO INPUT ACT1 07960 A 010563 4420000024 07970 SC 0,024,1 1 SET I,E BITS OF OUTPUT BCW ACT1 07970 , 010570 4420000137 07980 SC 1,037,1 1 SET A BITS OF OUTPUT BCW TO 37 ACT1 07980 010575 4460003733 07990 SC 037,033,3,3 SET EOT,33,TO OUTPUT BUFF. ACT1 07990 010602 4500000077 08000 SC 0,077,4 4 SET 77 CHAR TO INPUT BUFF. ACT1 08000 7 * 010607 1003604200 08010 JR SAVE ACT1 08010 * 010614 1003221500 08020 JR TOCT ACT1 08020 * 010621 1003237300 08030 JR DLY24 ACT1 08030 * 010626 1003510700 08040 JR ERDMP ACT1 08040 * 010633 3000070060 08050 JD 0700 NONO OUTPUT IPT FROM TST 7,PART 1 ACT1 08050 T 010640 3420000024 08060 IPT70 CC 0,024,1 1 ACT1 08060 * 010645 3001066442 08070 JE $+15 ACT1 08070 * 010652 1003510700 08080 JR ERDMP ACT1 08080 * 010657 3000070160 08090 JD 0701 OUOUTPUT BCW CONTROL BITS NOT 24,TST7,PART1 ACT1 08090 C 010664 3420000137 08100 CC 1,037,1 1 ACT1 08100 * 010671 3001071042 08110 JE $+15 ACT1 08110 * 010676 1003510700 08120 JR ERDMP ACT1 08120 * 010703 3000070260 08130 JD 0702 OUOUTPUT BCW A BITS NOT 37,TST7,PART1 ACT1 08130 C 010710 2001073403 08140 FT IPT71,3 3 ACT1 08140 010715 5200043703 08150 SA1 IPT3,3 ACT1 08150 * 010722 1003237331 08160 JR DLY24,2525 ACT1 08160 * 010727 3001074600 08170 J $+15 ACT1 08170 * 010734 1003510700 08180 IPT71 JR ERDMP ACT1 08180 * 010741 3000070360 08190 JD 0703 GOGOT UNEXPECTED IPT,SUSPECT INPUT,TST7,PART1 ACT1 08190 P 010746 3440000000 08200 CC 0,0,2 ACT1 08200 * 010753 3001077242 08210 JE $+15 ACT1 08210 * 010760 1003510700 08220 JR ERDMP ACT1 08220 * 010765 3000070460 08230 JD 0704 ININPUT BCW CONTROL BITS NOT 0,TST7,PART1 ACT1 08230 W 010772 3440000101 08240 CC 1,1,2 ACT1 08240 * 010777 3001101642 08250 JE $+15 ACT1 08250 * 011004 1003510700 08260 JR ERDMP ACT1 08260 * 011011 3000072460 08270 JD 0724 ININPUT BCW A BITS NOT 1,TST7,PART1 ACT1 08270 W 011016 2620000304 08280 PD 3,4,1 C CLEAR INPUT'OUTPUT BCWS ACT1 08280 N 011023 4460003700 08290 SC 037,0,3 3 CLEAR 37TH CHAR OF OUTPUT BUFF. ACT1 08290 * 011030 1003304200 08300 JR TOBW ACT1 08300 * 011035 1003510700 08310 JR ERDMP ACT1 08310 * 011042 3000070560 08320 JD 0705 ALALL OUTPUT BCWS NOT 0,TST7,PART1 ACT1 08320 U * 011047 1003312400 08330 JR TIBW ACT1 08330 * 011054 1003510700 08340 JR ERDMP ACT1 08340 * 011061 3000070660 08350 JD 0706 ALALL INPUT BCWS NOT 0,TST7,PART1 ACT1 08350 T * 011066 1003320600 08360 JR TOBE ACT1 08360 * 011073 1003510700 08370 JR ERDMP ACT1 08370 * 011100 3000072560 08380 JD 0725 ALALL OUTPUT BUFFR. NOT 0,TST7,PART1 ACT1 08380 U * 011105 1003331400 08390 JR TIBE ACT1 08390 * 011112 1003510700 08400 JR ERDMP ACT1 08400 * 011117 3000072660 08410 JD 0726 ALALL INPUT BUFFERS NOT 0,TST7,PART1 ACT1 08410 T 011124 2001115003 08420 FT IPT72,3 3 ACT1 08420 011131 5200043703 08430 SA1 IPT3,3 ACT1 08430 * 011136 1003237331 08440 JR DLY24,2525 ACT1 08440 * 011143 3001116200 08450 J $+15 ACT1 08450 * 011150 1003510700 08460 IPT72 JR ERDMP ACT1 08460 * 011155 3000070760 08470 JD 0707 GOGOT IPT,STILL HAVE ACTIVITY,TST7,PART1 ACT1 08470 S 011162 2001125103 08480 FT IPT73,3 3 SET UP FOR TST 7,PART 2 ACT1 08480 P 011167 5200043703 08490 SA1 IPT3,3 ACT1 08490 011174 2620000304 08500 PD 3,4,1 C CLEAR CURRENT INPUT AND OUTPUT BCWS ACT1 08500 U 011201 4440000036 08510 SC 0,036,2 2 SET P,I,E,F,OF INPUT BCW ACT1 08510 , 011206 4420000010 08520 SC 0,010,1 1 SET P,BIT OF OUTPUT BCW ACT1 08520 , 011213 4460000033 08530 SC 0,033,3 3 SET EOT,33,TO OUTPUT BUFF. ACT1 08530 O * 011220 1003604200 08540 JR SAVE ACT1 08540 * 011225 1003250300 08550 JR TOCTI ACT1 08550 * 011232 1003237331 08560 JR DLY24,2525 ACT1 08560 * 011237 1003510700 08570 JR ERDMP ACT1 08570 * 011244 3000071060 08580 JD 0710 NONO OUTPUT IPT FROM TST 7,PART 2 ACT1 08580 T 011251 3420000031 08590 IPT73 CC 0,031,1 1 ACT1 08590 * 011256 3001127542 08600 JE $+15 ACT1 08600 * 011263 1003510700 08610 JR ERDMP ACT1 08610 * 011270 3000071160 08620 JD 0711 OUOUTPUT BCW CONTROL BITS NOT 31,TST 7,PART 2 ACT1 08620 C 011275 3420000101 08630 CC 1,1,1 ACT1 08630 * 011302 3001132142 08640 JE $+15 ACT1 08640 * 011307 1003510700 08650 JR ERDMP ACT1 08650 * 011314 3000071260 08660 JD 0712 OUOUTPUT BCW A BITS NOT ADVANCED 1,TST 7,PART 2 ACT1 08660 C 011321 2001135203 08670 FT IPT74,3 3 SET UP FOR INPUT IPT ACT1 08670 P 011326 5200043703 08680 SA1 IPT3,3 ACT1 08680 * 011333 1003237331 08690 JR DLY24,2525 ACT1 08690 * 011340 1003510700 08700 JR ERDMP ACT1 08700 * 011345 3000071360 08710 JD 0713 NONO INPUT IPT FROM TST 7,PART 2 ACT1 08710 011352 5620000304 08720 IPT74 BA1 3,4,1 ACT1 08720 011357 5201310304 08730 SA1 BCW74,4 4 ACT1 08730 011364 3401310236 08740 CC BCW74-1,1,036 ACT1 08740 * 011371 3001141042 08750 JE $+15 ACT1 08750 * 011376 1003510700 08760 JR ERDMP ACT1 08760 * 011403 3000071460 08770 JD 0714 ININPUT BCW CONTROL BITS NOT 36,TST7,PART2 ACT1 08770 W 011410 3401310300 08780 CC BCW74,0 0 ACT1 08780 * 011415 3001143442 08790 JE $+15 ACT1 08790 * 011422 1003510700 08800 JR ERDMP ACT1 08800 * 011427 3000071560 08810 JD 0715 ININPUT BCW A BITS NOT 0,TST7,PART2 ACT1 08810 W 011434 3500000000 08820 CC 0,0,4 ACT1 08820 * 011441 3001146042 08830 JE $+15 ACT1 08830 * 011446 1003510700 08840 JR ERDMP ACT1 08840 * 011453 3000071660 08850 JD 0716 ININPUT BUFF. NOT RECVD 0,TST7,PART2 ACT1 08850 F 011460 2001150403 08860 FT IPT75,3 3 ACT1 08860 011465 5200043703 08870 SA1 IPT3,3 ACT1 08870 * 011472 1003237331 08880 JR DLY24,2525 ACT1 08880 * 011477 3001151600 08890 J $+15 ACT1 08890 * 011504 1003510700 08900 IPT75 JR ERDMP ACT1 08900 * 011511 3000072360 08910 JD 0723 GOGOT IPT,STILL HAVE ACTIVITY,TST7,PART2 ACT1 08910 S 011516 2660000001 08920 PD 0,1,3 C CLEAR FIRST CHAR. OF OUTPUT BUFF. ACT1 08920 I 011523 2620000304 08930 PD 3,4,1 C CLEAR CURRENT INPUT AND OUTPUT BCWS ACT1 08930 U * 011530 1003320600 08940 JR TOBE ACT1 08940 * 011535 1003510700 08950 JR ERDMP ACT1 08950 * 011542 3000071760 08960 JD 0717 ALALL OUTPUT BUFFS. NOT ZEROS,TST 7,PART 2 ACT1 08960 U * 011547 1003331400 08970 JR TIBE ACT1 08970 * 011554 1003510700 08980 JR ERDMP ACT1 08980 * 011561 3000072060 08990 JD 0720 ALALL INPUT BUFFS. NOT ZEROS,TST 7,PART 2 ACT1 08990 T * 011566 1003304200 09000 JR TOBW ACT1 09000 * 011573 1003510700 09010 JR ERDMP ACT1 09010 * 011600 3000072160 09020 JD 0721 ALALL OUTPUT BCWS NOT ZEROS,TST 7,PART 2 ACT1 09020 U * 011605 1003312400 09030 JR TIBW ACT1 09030 * 011612 1003510700 09040 JR ERDMP ACT1 09040 * 011617 3000072260 09050 JD 0722 ALALL INPUT BCWS NOT ZEROS,TST 7,PART 2 ACT1 09050 T 011624 2001172503 09060 FT IPT76,3 3 ACT1 09060 011631 5200043703 09070 SA1 IPT3,3 ACT1 09070 * 011636 1002345300 09080 JR CLB ACT1 09080 011643 4420000025 09090 SC 0,025,1 1 SET I,E,T OF OUTPUT ACT1 09090 , 011650 4500000077 09100 SC 0,077,4 4 SET 77 CHAR TO INPUT BUFFER. ACT1 09100 7 011655 4440000033 09110 SC 0,033,2 2 SET I,P,F,T OF INPUT BCW ACT1 09110 , 011662 5601321601 09120 BA1 CT,1 ACT1 09120 011667 5300000001 09130 SA1 0,1,4 P PLACE CHAR FROM CT LIST TO OUTPUT BUFFER ACT1 09130 H * 011674 1003604200 09140 JR SAVE ACT1 09140 * 011701 1003221500 09150 JR TOCT ACT1 09150 * 011706 1003237331 09160 JR DLY24,2525 ACT1 09160 * 011713 1003510700 09170 JR ERDMP ACT1 09170 * 011720 3000072760 09180 JD 0727 NONO OUTPUT IPT FROM TST7,PART3 ACT1 09180 T 011725 5620000304 09190 IPT76 BA1 3,4,1 ACT1 09190 011732 5201310704 09200 SA1 BCW76,4 4 ACT1 09200 011737 3401310425 09210 CC BCW76-3,3,025 ACT1 09210 * 011744 3001176342 09220 JE $+15 ACT1 09220 * 011751 1003510700 09230 JR ERDMP ACT1 09230 * 011756 3000073060 09240 JD 0730 OUOUTPUT CONTROL BITS NOT 25,TST7,PART3 ACT1 09240 O 011763 3401310500 09250 CC BCW76-2,2,0 ACT1 09250 * 011770 3001200742 09260 JE $+15 ACT1 09260 * 011775 1003510700 09270 JR ERDMP ACT1 09270 * 012002 3000073160 09280 JD 0731 OUOUTPUT A BITS NOT 0,TST7,PART3 ACT1 09280 012007 2002000203 09290 FT IPT77,3 3 ACT1 09290 012014 5200043703 09300 SA1 IPT3,3 ACT1 09300 * 012021 1003237331 09310 JR DLY24,2525 ACT1 09310 * 012026 1003510700 09320 JR ERDMP ACT1 09320 * 012033 3000073260 09330 JD 0732 NONO INPUT PARITY IPT,TST7,PART3 ACT1 09330 * 012040 3002000200 09340 J IPT77 ACT1 09340 013000 09350 ORIG 013000 ACT1 09350 013007 0000000000000000 09360 +8 0 ACT1 09360 013017 0000000000000000 09370 EXCT +8 0 ACT1 09370 013023 00000000 09380 SVBCW +4 0 ACT1 09380 013033 0000000000000000 09390 +8 0 ACT1 09390 013043 0000000000000000 09400 +8 0 ACT1 09400 013047 00000000 09410 BCW50 +4 0 ACT1 09410 013053 00000000 09420 BCW43 +4 0 ACT1 09420 013057 00000000 09430 BCW45 +4 0 ACT1 09430 013063 00000000 09440 BC100 +4 0 ACT1 09440 013067 00000000 09450 BC101 +4 0 ACT1 09450 013073 00000000 09460 BC103 +4 0 ACT1 09460 013077 00000000 09470 BCW64 +4 0 ACT1 09470 013103 00000000 09480 BCW74 +4 0 ACT1 09480 013107 00000000 09490 BCW76 +4 0 ACT1 09490 013113 00000000 09500 BCW77 +4 0 ACT1 09500 013117 00000000 09510 BCW78 +4 0 ACT1 09510 013123 00000000 09520 BCW79 +4 0 ACT1 09520 013127 00000000 09530 BCW81 +4 0 ACT1 09530 013133 00000000 09540 BCW84 +4 0 ACT1 09540 013137 00000000 09550 BCW86 +4 0 ACT1 09550 013143 00000000 09560 BCW87 +4 0 ACT1 09560 013147 00000000 09570 BCW88 +4 0 ACT1 09570 013153 00000000 09580 BCW89 +4 0 ACT1 09580 013157 00000000 09590 BCW91 +4 0 ACT1 09590 013163 00000000 09600 BCW92 +4 0 ACT1 09600 013167 00000000 09610 BCW33 +4 0 ACT1 09610 013173 00000000 09620 BCW34 +4 0 ACT1 09620 013177 00000000 09630 BCWF9 +4 0 ACT1 09630 013201 0000 09640 TEN +2 0 ACT1 09640 013205 00000000 09650 SCBT +4 0 ACT1 09650 013211 00000000 09660 SCAT +4 0 ACT1 09660 013214 000000 09670 SV3 +3 0 ACT1 09670 013216 0000 09680 CT +2 0 ACT1 09680 013226 0102030400060710 09690 +8 0010203030400060710 ACT1 09690 7 013236 1112130015161720 09700 +8 0111213030015161720 ACT1 09700 7 013246 2122002425262730 09710 +8 0212200202425262730 ACT1 09710 7 013256 3100323435363740 09720 +8 0310032323435363740 ACT1 09720 7 013266 0042434445464700 09730 +8 0004243434445464700 ACT1 09730 7 013276 5152535455560060 09740 +8 0515253535455560060 ACT1 09740 0 013306 6162636465006770 09750 +8 0616263636465006770 ACT1 09750 7 013315 71727374007677 09760 +7 07172737374007677 ACT1 09760 7 013317 0301 09770 BCS1 +2 00301 ACT1 09770 013321 6102 09780 BCT +2 06102 ACT1 09780 013323 1204 09790 EOT2 +2 01204 ACT1 09790 013325 0204 09800 EOT2P +2 00204 ACT1 09800 013327 7102 09810 BCOT5 +2 07102 ACT1 09810 013331 0000 09820 SCRCT +2 0 ACT1 09820 013333 0000 09830 C2RCT +2 0 ACT1 09830 013335 0000 09840 C3RCT +2 0 ACT1 09840 013600 09850 STK2 EQU 013600 ACT1 09850 020000 09860 ORIG 020000 ACT1 09860 020001 0000 09870 +2 0 STK 2 2 CLEAR,OVERLAP CHAR. ACT1 09870 , 020002 5620000304 09880 IPT77 BA1 3,4,1 ACT1 09880 020007 5201311304 09890 SA1 BCW77,4 4 ACT1 09890 020014 3401311217 09900 CC BCW77-1,1,017 ACT1 09900 * 020021 3002004042 09910 JE $+15 ACT1 09910 * 020026 1003510700 09920 JR ERDMP ACT1 09920 * 020033 3000073360 09930 JD 0733 ININPUT CONTROL BITS NOT 17,TST7,PART3 ACT1 09930 N 020040 3401311301 09940 CC BCW77,1 1 ACT1 09940 * 020045 3002006442 09950 JE $+15 ACT1 09950 * 020052 1003510700 09960 JR ERDMP ACT1 09960 * 020057 3000073460 09970 JD 0734 ININPUT A BITS NOT 1,TST7,PART3 ACT1 09970 B 020064 3500000000 09980 CC 0,0,4 ACT1 09980 * 020071 3002011042 09990 JE $+15 ACT1 09990 * 020076 1003510700 10000 JR ERDMP ACT1 10000 * 020103 3000073560 10010 JD 0735 ININPUT BUFF 1ST CHAR NOT ZERO,TST7,PART3 ACT1 10010 F 020110 2620000304 10020 PD 3,4,1 C CLEAR INPUT'OUTPUT BCWS ACT1 10020 N 020115 4460000033 10030 SC 0,033,3 3 SET EOT TO OUTPUT BUFFER ACT1 10030 O 020122 4420000006 10040 SC 0,06,1 SET E,F, BITS OF OUTPUT BCW ACT1 10040 F 020127 4440000006 10050 SC 0,06,2 SET E,F, BITS OF INPUT BCW ACT1 10050 F * 020134 1003604200 10060 JR SAVE ACT1 10060 * 020141 1003224100 10070 JR TOOC TUTURN ON OUTPUT ONLY,TEST THAT INPUT IS ON ACT1 10070 O 020146 2002017703 10080 FT IPT78,3 3 ACT1 10080 020153 5200043703 10090 SA1 IPT3,3 ACT1 10090 * 020160 1003237331 10100 JR DLY24,2525 ACT1 10100 * 020165 1003510700 10110 JR ERDMP ACT1 10110 * 020172 3000073760 10120 JD 0737 NONO OUTPUT IPT,TST7,PART4 ACT1 10120 T 020177 5620000304 10130 IPT78 BA1 3,4,1 O OUTPUT IPT FROM EOT,TST7,PART4 ACT1 10130 I 020204 5201311704 10140 SA1 BCW78,4 4 ACT1 10140 020211 3401311407 10150 CC BCW78-3,3,7 ACT1 10150 * 020216 3002023542 10160 JE $+15 ACT1 10160 * 020223 1003510700 10170 JR ERDMP ACT1 10170 * 020230 3000074060 10180 JD 0740 OUOUTPUT CONTROL BITS NOT 7,TST7,PART4 ACT1 10180 O 020235 3401311501 10190 CC BCW78-2,2,1 ACT1 10190 * 020242 3002026142 10200 JE $+15 ACT1 10200 * 020247 1003510700 10210 JR ERDMP ACT1 10210 * 020254 3000074160 10220 JD 0741 OUOUTPUT A BITS NOT 1,TST7,PART4 ACT1 10220 020261 2002031203 10230 FT IPT79,3 3 SET UP IPT ENTRY FOR INPUT IPT. ACT1 10230 P 020266 5200043703 10240 SA1 IPT3,3 ACT1 10240 * 020273 1003237331 10250 JR DLY24,2525 ACT1 10250 * 020300 1003510700 10260 JR ERDMP ACT1 10260 * 020305 3000075060 10270 JD 0750 NONO INPUT IPT FROM EOT,TST7,PART4 ACT1 10270 020312 5620000304 10280 IPT79 BA1 3,4,1 I INPUT IPT FROM EOT ACT1 10280 P 020317 5201312304 10290 SA1 BCW79,4 4 ACT1 10290 020324 3401312207 10300 CC BCW79-1,1,7 ACT1 10300 * 020331 3002035042 10310 JE $+15 ACT1 10310 * 020336 1003510700 10320 JR ERDMP ACT1 10320 * 020343 3000074260 10330 JD 0742 ININPUT CONTROL BITS NOT 7,TST7,PART4 ACT1 10330 N 020350 3401312301 10340 CC BCW79,1 1 ACT1 10340 * 020355 3002037442 10350 JE $+15 ACT1 10350 * 020362 1003510700 10360 JR ERDMP ACT1 10360 * 020367 3000074360 10370 JD 0743 ININPUT A BITS NOT 1,TST7,PART4 ACT1 10370 B 020374 3500000033 10380 CC 0,033,4 4 ACT1 10380 * 020401 3002042042 10390 JE $+15 ACT1 10390 * 020406 1003510700 10400 JR ERDMP ACT1 10400 * 020413 3000075160 10410 JD 0751 ININPUT BUFF,1ST CHAR NOT 33,TST7,PART4 ACT1 10410 F 020420 4500000000 10420 SC 0,0,4 C CLEAR 1ST CHAR OF INPUT BUFFER ACT1 10420 S 020425 2660000001 10430 PD 0,1,3 ACT1 10430 020432 2620000304 10440 PD 3,4,1 ACT1 10440 * 020437 1003320600 10450 JR TOBE ACT1 10450 * 020444 1003510700 10460 JR ERDMP ACT1 10460 * 020451 3000074460 10470 JD 0744 ALALL OUTPUT BUFFS. NOT 0,TST7,PART4 ACT1 10470 U * 020456 1003331400 10480 JR TIBE ACT1 10480 * 020463 1003510700 10490 JR ERDMP ACT1 10490 * 020470 3000074560 10500 JD 0745 ALALL INPUT BUFFS. NOT 0,TST7,PART4 ACT1 10500 T * 020475 1003304200 10510 JR TOBW ACT1 10510 * 020502 1003510700 10520 JR ERDMP ACT1 10520 * 020507 3000074660 10530 JD 0746 ALALL OUTPUT BCWS NOT 0,TST7,PART4 ACT1 10530 U * 020514 1003312400 10540 JR TIBW ACT1 10540 * 020521 1003510700 10550 JR ERDMP ACT1 10550 * 020526 3000074760 10560 JD 0747 ALALL INPUT BCWS NOT 0,TST7,PART4 ACT1 10560 T * 020533 3001053264 10570 JC AP7,52 REPEAT TEST7 IF SENSE SWITCH 3 IS SET ACT1 10570 020540 4403632513 10580 AP8 SC TN-2,01313 TEST8,FORCE BUFFER FULL+WRAP AROUND TEST ACT1 10580 8 020545 4403632403 10590 SC TN-3,3 ACT1 10590 * 020552 1002345300 10600 JR CLB ACT1 10600 * 020557 1003262600 10610 JR CLIB7 ACT1 10610 020564 2002062703 10620 FT IPT80,3 3 ACT1 10620 020571 5200043703 10630 SA1 IPT3,3 ACT1 10630 * 020576 1003604200 10640 JR SAVE ACT1 10640 * 020603 1003224100 10650 JR TOOC TUTURN ON OUTPUT CLT ONLY ACT1 10650 O * 020610 1003244500 10660 JR EXDLY G GO TO EXTENDED DELAY,5 SEC ACT1 10660 X * 020615 1003510700 10670 JR ERDMP ACT1 10670 * 020622 3000100060 10680 JD 01000 N NO IPT FROM 32 CHAR. FULL,TST ACT1 10680 F 020627 3420000020 10690 IPT80 CC 0,020,1 1 ACT1 10690 * 020634 3002065342 10700 JE $+15 ACT1 10700 * 020641 1003510700 10710 JR ERDMP ACT1 10710 * 020646 3000100160 10720 JD 01001 C CONTROL BITS OF OUT BCW NOT 20,TST8,PART1 ACT1 10720 020653 3420000140 10730 CC 1,040,1 1 ACT1 10730 * 020660 3002067742 10740 JE $+15 ACT1 10740 * 020665 1003510700 10750 JR ERDMP ACT1 10750 * 020672 3000100260 10760 JD 01002 O OUTPUT BCW A BITS NOT ADVANCED TO 32,TST8,PART1 ACT1 10760 B 020677 2002073003 10770 FT IPT81,3 3 ACT1 10770 020704 5200043703 10780 SA1 IPT3,3 ACT1 10780 * 020711 1003244531 10790 JR EXDLY,2525 ACT1 10790 * 020716 1003510700 10800 JR ERDMP ACT1 10800 * 020723 3000100360 10810 JD 01003 N NO OUTPUT IPT AT WRAP AROUND COND. TST8,PART1 ACT1 10810 U 020730 5620000304 10820 IPT81 BA1 3,4,1 ACT1 10820 020735 5201312704 10830 SA1 BCW81,4 4 ACT1 10830 020742 3401312420 10840 CC BCW81-3,3,020 ACT1 10840 * 020747 3002076642 10850 JE $+15 ACT1 10850 * 020754 1003510700 10860 JR ERDMP ACT1 10860 * 020761 3000100460 10870 JD 01004 O OUTPUT BCW CONTROL BITS NOT 20 AT 64,TST8,PRT1 ACT1 10870 B * 020766 1003272700 10880 JR TIBE7 ACT1 10880 * 020773 1003510700 10890 JR ERDMP ACT1 10890 * 021000 3000100560 10900 JD 01005 A ALL INPUT BUFFERS NOT FILLED WITH 77,TST8,PART1 ACT1 10900 U * 021005 1003312400 10910 JR TIBW ACT1 10910 * 021012 1003510700 10920 JR ERDMP ACT1 10920 * 021017 3000100660 10930 JD 01006 A ALL INPUT BCWS NOT ZEROES,TST8,PART1 ACT1 10930 U 021024 2620000102 10940 PD 1,2,1 ACT1 10940 * 021031 1003320600 10950 JR TOBE ACT1 10950 * 021036 1003510700 10960 JR ERDMP ACT1 10960 * 021043 3000100760 10970 JD 01007 A ALL OUTPUT BUFFERS NOT ZEROES,TST8,PART1 ACT1 10970 P * 021050 1003304200 10980 JR TOBW ACT1 10980 * 021055 1003510700 10990 JR ERDMP ACT1 10990 * 021062 3000101060 11000 JD 01010 A ALL OUTPUT BCWS NOT ZEROES,TST8,PART1 ACT1 11000 P 021067 4420000024 11010 SC 0,024,1 1 SET I,E BITS OF OUTPUT,TEST IF OUTPUT IS OFF ACT1 11010 , * 021074 1003604200 11020 JR SAVE ACT1 11020 021101 2002112503 11030 FT IPT82,3 3 ACT1 11030 021106 5200043703 11040 SA1 IPT3,3 ACT1 11040 * 021113 1003237331 11050 JR DLY24,2525 ACT1 11050 * 021120 3002113700 11060 J $+15 ACT1 11060 * 021125 1003510700 11070 IPT82 JR ERDMP ACT1 11070 * 021132 3000101160 11080 JD 01011 G GOT IPT,STILL HAVE ACTIVITY,TST8,PART1 ACT1 11080 , 021137 2002122103 11090 FT IPT83,3 3 SET UP FOR TST8,PART2,FORCE WRAP AROUND WITH ACT1 11090 P 021144 5200043703 11100 SA1 IPT3,3 2 CHAR. PER CHAR. MODE,ON OUTPUT ACT1 11100 . * 021151 1002345300 11110 JR CLB ACT1 11110 * 021156 1003262600 11120 JR CLIB7 ACT1 11120 021163 4420000040 11130 SC 0,040,1 1 SET C BIT OF OUTPUT BCW ACT1 11130 * 021170 1003604200 11140 JR SAVE ACT1 11140 * 021175 1003224100 11150 JR TOOC TUTURN ON OUTPUT CLT UNDER TEST. ACT1 11150 O * 021202 1003244531 11160 JR EXDLY,2525 ACT1 11160 * 021207 1003510700 11170 JR ERDMP ACT1 11170 * 021214 3000101260 11180 JD 01012 N NO OUT IPT FROM 32 CHAR. FULL,TST8,PART2 ACT1 11180 I 021221 3420000060 11190 IPT83 CC 0,060,1 1 ACT1 11190 * 021226 3002124542 11200 JE $+15 ACT1 11200 * 021233 1003510700 11210 JR ERDMP ACT1 11210 * 021240 3000101360 11220 JD 01013 O OUTPUT CLT CONTROL BITS NOT 60,TST8,PART2 ACT1 11220 C 021245 3420000140 11230 CC 1,32,1 ACT1 11230 * 021252 3002127142 11240 JE $+15 ACT1 11240 * 021257 1003510700 11250 JR ERDMP ACT1 11250 * 021264 3000101460 11260 JD 01014 O OUTPUT CLT A BITS NOT ADVANCED TO 32,TST8,PART2 ACT1 11260 C 021271 2002132203 11270 FT IPT84,3 3 ACT1 11270 021276 5200043703 11280 SA1 IPT3,3 ACT1 11280 * 021303 1003244531 11290 JR EXDLY,2525 ACT1 11290 * 021310 1003510700 11300 JR ERDMP ACT1 11300 * 021315 3000101560 11310 JD 01015 N NO OUTPUT IPT AT WRAP AROUND,TST8,PART2 ACT1 11310 U 021322 5620000304 11320 IPT84 BA1 3,4,1 T THIS IS OUTPUT IPT AT 64 ACT1 11320 021327 5201313304 11330 SA1 BCW84,4 4 ACT1 11330 021334 3420000060 11340 CC 0,060,1 1 TEST FOR C,I BITS IN OUTPUT BCW ACT1 11340 F * 021341 3002136042 11350 JE $+15 ACT1 11350 * 021346 1003510700 11360 JR ERDMP ACT1 11360 * 021353 3000101660 11370 JD 01016 O OUTPUT BCW CONTROL BITS NOT 60 AT 64,TST8,PRT2 ACT1 11370 B 021360 3420000100 11380 CC 1,0,1 ACT1 11380 * 021365 3002140442 11390 JE $+15 ACT1 11390 * 021372 1003510700 11400 JR ERDMP ACT1 11400 * 021377 3000101760 11410 JD 01017 O OUTPUT BCW A BITS NOT ZERO AT WRAP A,,TST8,PRT2 ACT1 11410 B * 021404 1003272700 11420 JR TIBE7 ACT1 11420 * 021411 1003510700 11430 JR ERDMP ACT1 11430 * 021416 3000102060 11440 JD 01020 A ALL INPUT BUFFERS NOT FILLED WITH 77,TST8,PART2 ACT1 11440 U * 021423 1003312400 11450 JR TIBW ACT1 11450 * 021430 1003510700 11460 JR ERDMP ACT1 11460 * 021435 3000102160 11470 JD 01021 A ALL INPUT BCWS NOT ZEROES,TST8,PART2 ACT1 11470 U 021442 2620000102 11480 PD 1,2,1 C CLEAR CURRENT OUTPUT BCW ACT1 11480 U * 021447 1003320600 11490 JR TOBE ACT1 11490 * 021454 1003510700 11500 JR ERDMP ACT1 11500 * 021461 3000102260 11510 JD 01022 A ALL OUTPUT BUFFERS NOT ZEROES,TST8,PART2 ACT1 11510 P * 021466 1003304200 11520 JR TOBW ACT1 11520 * 021473 1003510700 11530 JR ERDMP ACT1 11530 * 021500 3000102360 11540 JD 01023 A ALL OUTPUT BCWS NOT ZEROES,TST8,PART2 ACT1 11540 P 021505 4420000024 11550 SC 0,024,1 1 SET I,E BITS OF OUTPUT,TEST IF OUTPUT IS OFF ACT1 11550 , * 021512 1003604200 11560 JR SAVE ACT1 11560 021517 2002154303 11570 FT IPT85,3 3 ACT1 11570 021524 5200043703 11580 SA1 IPT3,3 ACT1 11580 * 021531 1003237331 11590 JR DLY24,2525 ACT1 11590 * 021536 3002155500 11600 J $+15 ACT1 11600 * 021543 1003510700 11610 IPT85 JR ERDMP ACT1 11610 * 021550 3000102460 11620 JD 01024 G GOT IPT,STILL HAVE ACTIVITY,TST8,PART2 ACT1 11620 , 021555 2002171403 11630 FT IPT86,3 3 SET UP FOR TST8,PART3,FORCE WRAP ACT1 11630 P 021562 5200043703 11640 SA1 IPT3,3 AROUND ERROR ON INPUT,6 BIT MODE ACT1 11640 11650 . OUTPUT B BUFF FILLED WITH CHARACTER FROM TOP OF CT LIST ACT1 11650 L * 021567 1002345300 11660 JR CLB ACT1 11660 * 021574 1003262600 11670 JR CLIB7 ACT1 11670 021601 5601321601 11680 BA1 CT,1 ACT1 11680 021606 5200001601 11690 SA1 016,1 ACT1 11690 021613 5200001502 11700 SA1 015,2 ACT1 11700 021620 5200001304 11710 SA1 013,4 ACT1 11710 021625 5200000710 11720 SA1 07,8 ACT1 11720 021632 5201301700 11730 SA1 EXCT,16 6 ACT1 11730 021637 5260003700 11740 SA1 037,16,3,3 SET CT CHARACTERS TO FILL OUTPUT BUFF. ACT1 11740 C 021644 5260007700 11750 SA1 077,16,3,3 ACT1 11750 021651 5260001700 11760 SA1 017,16,3,3 ACT1 11760 021656 5260005700 11770 SA1 057,16,3,3 ACT1 11770 * 021663 1003604200 11780 JR SAVE ACT1 11780 * 021670 1003221500 11790 JR TOCT ACT1 11790 * 021675 1003244531 11800 JR EXDLY,2525 ACT1 11800 * 021702 1003510700 11810 JR ERDMP ACT1 11810 * 021707 3000102560 11820 JD 01025 G GOT NO INPUT IPT AT 32,TST8,PART3 ACT1 11820 I 021714 5620000304 11830 IPT86 BA1 3,4,1 T THIS IS OUTPUT IPT AT 32 ACT1 11830 021721 5201313704 11840 SA1 BCW86,4 4 ACT1 11840 021726 2002175703 11850 FT IPT87,3 3 ACT1 11850 021733 5200043703 11860 SA1 IPT3,3 ACT1 11860 * 021740 1003237331 11870 JR DLY24,2525 ACT1 11870 * 021745 1003510700 11880 JR ERDMP ACT1 11880 * 021752 3000102660 11890 JD 01026 N NO INPUT IPT AT 32,TST8,PART3 ACT1 11890 T 021757 5620000304 11900 IPT87 BA1 3,4,1 T THIS IS INPUT IPT AT 32 ACT1 11900 021764 5201314304 11910 SA1 BCW87,4 4 ACT1 11910 021771 3401313420 11920 CC BCW86-3,3,020 ACT1 11920 * 021776 3002201542 11930 JE $+15 ACT1 11930 * 022003 1003510700 11940 JR ERDMP ACT1 11940 * 022010 3000102760 11950 JD 01027 O OUTPUT CONTROL BITS NOT 20 AT 32,TST8,PART3 ACT1 11950 C 022015 3401313540 11960 CC BCW86-2,2,040 ACT1 11960 * 022022 3002204142 11970 JE $+15 ACT1 11970 * 022027 1003510700 11980 JR ERDMP ACT1 11980 * 022034 3000103060 11990 JD 01030 O OUTPUT A BITS NOT 40 AT 32,TST8,PART3 ACT1 11990 A 022041 3401314340 12000 CC BCW87,04040 ACT1 12000 * 022046 3002206542 12010 JE $+15 ACT1 12010 * 022053 1003510700 12020 JR ERDMP ACT1 12020 * 022060 3000103160 12030 JD 01031 I INPUT A BITS NOT 40 AT 32,TST8,PART3 ACT1 12030 022065 3401314220 12040 CC BCW87-1,1,020 ACT1 12040 * 022072 3002211142 12050 JE $+15 ACT1 12050 * 022077 1003510700 12060 JR ERDMP ACT1 12060 * 022104 3000103260 12070 JD 01032 I INPUT CONTROL BITS NOT 20 AT 32,TST8,PART3 ACT1 12070 O 022111 2002214203 12080 FT IPT88,3 3 ACT1 12080 022116 5200043703 12090 SA1 IPT3 ACT1 12090 * 022123 1003244531 12100 JR EXDLY,2525 ACT1 12100 * 022130 1003510700 12110 JR ERDMP ACT1 12110 * 022135 3000103360 12120 JD 01033 N NO OUTPUT IPT AT 64,TST8,PART4 ACT1 12120 U 022142 5620000304 12130 IPT88 BA1 3,4,1 ACT1 12130 022147 5201314704 12140 SA1 BCW88,4 4 ACT1 12140 022154 2002220503 12150 FT IPT89,3 3 ACT1 12150 022161 5200043703 12160 SA1 IPT3,3 ACT1 12160 * 022166 1003237331 12170 JR DLY24,2525 ACT1 12170 * 022173 1003510700 12180 JR ERDMP ACT1 12180 * 022200 3000103460 12190 JD 01034 N NO INPUT IPT AT 64,TST8,PART4 ACT1 12190 T 022205 5620000304 12200 IPT89 BA1 3,4,1 ACT1 12200 022212 5201315304 12210 SA1 BCW89,4 4 ACT1 12210 022217 3420000020 12220 CC 0,020,1 1 ACT1 12220 * 022224 3002224342 12230 JE $+15 ACT1 12230 * 022231 1003510700 12240 JR ERDMP ACT1 12240 * 022236 3000103560 12250 JD 01035 O OUTPUT CONTROL BITS NOT 20 AT 64,TST8,PART4 ACT1 12250 C 022243 3420000100 12260 CC 1,0,1 ACT1 12260 * 022250 3002226742 12270 JE $+15 ACT1 12270 * 022255 1003510700 12280 JR ERDMP ACT1 12280 * 022262 3000103660 12290 JD 01036 O OUTPUT A BITS NOT 0 AT 64,TST8,PART4 ACT1 12290 A 022267 3440000026 12300 CC 0,026,2 2 ACT1 12300 * 022274 3002231342 12310 JE $+15 ACT1 12310 * 022301 1003510700 12320 JR ERDMP ACT1 12320 * 022306 3000103760 12330 JD 01037 I INPUT CONTROLS NOT I,E,P BAR,F AT 64,TST8,PRT4 ACT1 12330 O 022313 3440000100 12340 CC 1,0,2 ACT1 12340 * 022320 3002233742 12350 JE $+15 ACT1 12350 * 022325 1003510700 12360 JR ERDMP ACT1 12360 * 022332 3000104060 12370 JD 01040 I INPUT A BITS NOT 0 AT 64,TST8,PART4 ACT1 12370 022337 4420000024 12380 SC 0,024,1 1 SET I,E BITS OF OUTPUT,TEST IF OUTPUT IS OFF ACT1 12380 , * 022344 1003604200 12390 JR SAVE ACT1 12390 022351 2002237503 12400 FT IPT90,3 3 ACT1 12400 022356 5200043703 12410 SA1 IPT3,3 ACT1 12410 * 022363 1003237331 12420 JR DLY24,2525 ACT1 12420 * 022370 3002240700 12430 J $+15 ACT1 12430 * 022375 1003510700 12440 IPT90 JR ERDMP ACT1 12440 * 022402 3000104160 12450 JD 01041 G GOT IPT,STILL HAVE ACTIVITY,TST8,PART4 ACT1 12450 , 022407 2620000304 12460 PD 3,4,1 ACT1 12460 022414 5601301700 12470 BA1 EXCT,16 6 ACT1 12470 022421 7100001740 12480 CB1 15,16,4 4 ACT1 12480 * 022426 3002244542 12490 JE $+15 ACT1 12490 * 022433 1003510700 12500 JR ERDMP ACT1 12500 * 022440 3000112560 12510 JD 01125 1 1ST 16 CHARS OF INPUT BUFF NOT LIKE CT,TST8,PRT4 ACT1 12510 C 022445 7100003740 12520 CB1 31,16,4 4 ACT1 12520 * 022452 3002247142 12530 JE $+15 ACT1 12530 * 022457 1003510700 12540 JR ERDMP ACT1 12540 * 022464 3000112660 12550 JD 01126 2 2ND 16 CHARS OF INPUT BUFF NOT LIKE CT,TST8,PRT4 ACT1 12550 C 022471 7100005740 12560 CB1 47,16,4 4 ACT1 12560 * 022476 3002251542 12570 JE $+15 ACT1 12570 * 022503 1003510700 12580 JR ERDMP ACT1 12580 * 022510 3000112760 12590 JD 01127 3 3RD 16 CHARS OF INPUT BUFF NOT LIKE CT,TST8,PRT4 ACT1 12590 C 022515 7100007740 12600 CB1 63,16,4 4 ACT1 12600 * 022522 3002254142 12610 JE $+15 ACT1 12610 * 022527 1003510700 12620 JR ERDMP ACT1 12620 * 022534 3000113060 12630 JD 01130 4 4TH 16 CHARS OF INPUT BUFF NOT LIKE CT,TST8,PRT4 ACT1 12630 C 022541 5603262210 12640 BA1 SEVNS ACT1 12640 022546 5200000710 12650 SA1 7,8 ACT1 12650 022553 5200003700 12660 SA1 037,16 ACT1 12660 022560 5300003761 12670 SAR 037,,4 SET 7S TO INPUT BUFF ACT1 12670 022565 5300007761 12680 SAR 077,,4 ACT1 12680 022572 5601301700 12690 BA1 EXCT,16 6 ACT1 12690 022577 7060001740 12700 CB1 15,16,3 3 ACT1 12700 * 022604 3002262342 12710 JE $+15 ACT1 12710 * 022611 1003510700 12720 JR ERDMP ACT1 12720 * 022616 3000114260 12730 JD 01142 1 1ST. 16 CHARS OF OUTPUT BUFF NOT LIKE CT,TST8,PRTACT1 12730 022623 7060003740 12740 CB1 31,16,3 3 ACT1 12740 * 022630 3002264742 12750 JE $+15 ACT1 12750 * 022635 1003510700 12760 JR ERDMP ACT1 12760 * 022642 3000114360 12770 JD 01143 2 2ND 16 CHARS OF OUTPUT BUFF NOT LIKE CT,TST8,4 ACT1 12770 C 022647 7060005740 12780 CB1 47,16,3 3 ACT1 12780 * 022654 3002267342 12790 JE $+15 ACT1 12790 * 022661 1003510700 12800 JR ERDMP ACT1 12800 * 022666 3000114460 12810 JD 01144 3 3RD 16 CHARS OF OUTPUT BUFF NOT LIKE CT,TST8,4 ACT1 12810 C 022673 7060007740 12820 CB1 63,16,3 3 ACT1 12820 * 022700 3002271742 12830 JE $+15 ACT1 12830 * 022705 1003510700 12840 JR ERDMP ACT1 12840 * 022712 3000114560 12850 JD 01145 4 4TH 16 CHARS OF OUTPUT BUFF NOT LIKE CT,TST8,4 ACT1 12850 C 022717 2660001700 12860 PD 15,16,3 3 CLEAR OUTPUT BUFF. ACT1 12860 022724 2660003700 12870 PD 31,16,3 3 ACT1 12870 022731 2660005700 12880 PD 47,16,3 3 ACT1 12880 022736 2660007700 12890 PD 63,16,3 3 ACT1 12890 * 022743 1003304200 12900 JR TOBW ACT1 12900 * 022750 1003510700 12910 JR ERDMP ACT1 12910 * 022755 3000114660 12920 JD 01146 A ALL OUTPUT BCWS NOT 00,TST8,PART4 ACT1 12920 P * 022762 1003312400 12930 JR TIBW ACT1 12930 * 022767 1003510700 12940 JR ERDMP ACT1 12940 * 022774 3000114760 12950 JD 01147 A ALL INPUT BCWS NOT 00,TST8,PART4 ACT1 12950 U * 023001 1003320600 12960 JR TOBE ACT1 12960 * 023006 1003510700 12970 JR ERDMP ACT1 12970 * 023013 3000115060 12980 JD 01150 A ALL OUTPUT BUFFS NOT 00,TST8,PART4 ACT1 12980 P * 023020 1003272700 12990 JR TIBE7 ACT1 12990 * 023025 1003510700 13000 JR ERDMP ACT1 13000 * 023032 3000115160 13010 JD 01151 A ALL INPUT BUFFS NOT 00,TST8,PART4 ACT1 13010 U 023037 2002311403 13020 FT IPT91,3 3 TURN OFF INPUT'OUTPUT CLTS ACT1 13020 O 023044 5200043703 13030 SA1 IPT3,3 ACT1 13030 * 023051 1002345300 13040 JR CLB ACT1 13040 023056 4460000033 13050 SC 0,033,3 3 SET EOT TO OUTPUT BUFF ACT1 13050 O * 023063 1003604200 13060 JR SAVE ACT1 13060 * 023070 1003221500 13070 JR TOCT ACT1 13070 * 023075 1003237331 13080 JR DLY24,2525 ACT1 13080 * 023102 1003510700 13090 JR ERDMP ACT1 13090 * 023107 3000113460 13100 JD 01134 N NO OUTPUT IPT,TST8,5 ACT1 13100 U 023114 5620000304 13110 IPT91 BA1 3,4,1 ACT1 13110 023121 5201315704 13120 SA1 BCW91,4 4 ACT1 13120 023126 5603244102 13130 BA1 CRCT,2 ACT1 13130 023133 5201333302 13140 SA1 C2RCT,2 2 ACT1 13140 023140 2002317103 13150 FT IPT92,3 3 ACT1 13150 023145 5200043703 13160 SA1 IPT3,3 ACT1 13160 * 023152 1003237331 13170 JR DLY24,2525 ACT1 13170 * 023157 1003510700 13180 JR ERDMP ACT1 13180 * 023164 3000113560 13190 JD 01135 N NO INPUT IPT,TST8,5 ACT1 13190 T 023171 5620000304 13200 IPT92 BA1 3,4,1 ACT1 13200 023176 5201316304 13210 SA1 BCW92,4 4 ACT1 13210 023203 5603244102 13220 BA1 CRCT,2 ACT1 13220 023210 5201333502 13230 SA1 C3RCT,2 2 ACT1 13230 * 023215 1002325100 13240 JR DLYFP ACT1 13240 * 023222 1003356700 13250 JR SFCT ACT1 13250 * 023227 3002324100 13260 J $+10 ACT1 13260 * 023234 3000157400 13270 J AP1 ACT1 13270 * 023241 3002750000 13280 J FT3 ACT1 13280 * 023246 3000000000 13290 DLYFP J 0 ACT1 13290 023253 4403632531 13300 SC TN-2,03131 SET DF,FOR DELAY FLOP TEST, ACT1 13300 D 023260 4403632427 13310 SC TN-3,02727 TO PRINT LINE ACT1 13310 R * 023265 1003604200 13320 JR SAVE ACT1 13320 023272 2002336603 13330 FT IPTFP,3 3 ACT1 13330 023277 5200043703 13340 SA1 IPT3,3 ACT1 13340 023304 4060402000 13350 XF 040,0200000,0,3 RESET DELAY FLOP IND. ACT1 13350 023311 4060002000 13360 XF 0,02000,0,0,3 TEST IF DELAY FLOP IND. RECOVERED ACT1 13360 E * 023316 3002335453 13370 JC DLYST,4343 ACT1 13370 023323 4402334117 13380 SC DLX+4,1515 SET TO DELAY APPROX 1.8 SEC ACT1 13380 T * 023330 1003237300 13390 JR DLY24 ACT1 13390 * 023335 3202333017 13400 DLX JL $-5,15 ACT1 13400 * 023342 1003510700 13410 JR ERDMP ACT1 13410 * 023347 3000120060 13420 JD 01200 D DELAY FLOP DID NOT INTERRUPT ACT1 13420 L * 023354 1003510700 13430 DLYST JR ERDMP ACT1 13430 * 023361 3000120160 13440 JD 01201 D DELAY FLOP IND. RECOVERED TOO SOON ACT1 13440 L * 023366 3002337300 13450 IPTFP JC $+5,0 ACT1 13450 023373 4060004000 13460 XF 0,04000,0,0,3 TEST IF NON-READY ACT1 13460 E * 023400 3002343153 13470 JC DLYRY,4343 ACT1 13470 023405 4060002000 13480 XF 0,02000,0,0,3 ACT1 13480 * 023412 3002324653 13490 JC DLYFP,4343 ACT1 13490 * 023417 1003510700 13500 JR ERDMP ACT1 13500 * 023424 3000120260 13510 JD 01202 G GOT IPT,BUT DELAY FLOP IND. NOT RECOVD. ACT1 13510 , * 023431 1003510700 13520 DLYRY JR ERDMP ACT1 13520 * 023436 3000120360 13530 JD 01203 N NON-READY AT TIME OF DELAY FLOP IPT. ACT1 13530 D * 023443 3002324600 13540 J DLYFP ACT1 13540 * 023450 3000000000 13550 CLB J 0 CLEARAR ALL OF STK2,10K TO 17777 ACT1 13550 F 023455 2600011314 13560 PD 0113,12 2 ACT1 13560 023462 2001360021 13570 FT STK2,17 7 ACT1 13570 023467 4401360000 13580 SC STK2,0 ACT1 13580 023474 2401360161 13590 TTI STK2+1 ACT1 13590 023501 2401560161 13600 TTI STK2+102025 ACT1 13600 023506 2000020022 13610 FT 0200,18 8 ACT1 13610 023513 2401760161 13620 TTI STK2+204049 ACT1 13620 * 023520 3002345000 13630 J CLB ACT1 13630 * 023525 3000000000 13640 SCAN J 0 ACT1 13640 023532 2600007710 13650 PD 077,8 ACT1 13650 023537 5601321621 13660 BA2 CT,1 ACT1 13660 023544 7162363361 13670 CP6 CB2 SP6-7,1,1,7 ACT1 13670 * 023551 3002360742 13680 JE TRC ACT1 13680 023556 6000007302 13690 AC 073,2 ACT1 13690 023563 6000007701 13700 AC 077,1 ACT1 13700 023570 3400007711 13710 CC 077,9 ACT1 13710 * 023575 3002352542 13720 JE SCAN ACT1 13720 * 023602 3002354400 13730 J CP6 ACT1 13730 023607 5742364522 13740 TRC BA2 TRS2-6,2,2,6 ACT1 13740 023614 7100000162 13750 CB2 1,2,4 ACT1 13750 * 023621 3000403542 13760 JE T3P3 ACT1 13760 * 023626 3000376000 13770 J TRST ACT1 13770 023642 4737774233344135 13780 SP6 +8 0473777474233344135 SPECIAL 6 BIT CONTROL CHARS. ACT1 13780 1 023643 36 13790 +1 036 ACT1 13790 023653 0205021302070212 13800 TRS2 +8 0020502121302070212 TRANSLATION OF CONTRL CHARS ACT1 13800 2 023663 0204021402210215 13810 +8 0020402121402210215 TO 2 CHAR ACT1 13810 2 023665 0206 13820 +2 00206 ACT1 13820 013674 13830 CLO EQU 013674 CLOCK OUTPUT BCW ACT1 13830 O 013676 13840 CLI EQU 013676 ACT1 13840 * 023666 3002427260 13850 CLOCK JD CLOT DEDEPRESS M AND START TO BYPASS BIT5 TEST ACT1 13850 M 13860 . AND ENTETER LOCKOUT TEST WHILE SETTING CLOCK. ACT1 13860 O 023673 4403632510 13870 SC TN-2,01010 SET B5 TO PRINT LINE FOR ACT1 13870 B 023700 4403632425 13880 SC TN-3,02525 BIT5 TEST OF CLOCK ACT1 13880 * 023705 1002345300 13890 JR CLB CLOLOCK TEST1,TEST THAT BIT5 IS SET ACT1 13890 T 023712 2002376203 13900 FT C100,3 IN INPUT BUFFER,WHEN THE CLOCK IS ACT1 13900 U 023717 5200043703 13910 SA1 IPT3,3 STARTED WITHOUT 1ST SETTING AFTER POWER ACT1 13910 D 023724 4401367770 13920 SC CLI+1,07070 IS FIRST TURNED ON ACT1 13920 F * 023731 1003604200 13930 JR SAVE ACT1 13930 * 023736 1003365100 13940 JR XCLK GOGO START CLOCK WITHOUT 1ST SETTING IT. ACT1 13940 * 023743 1003244531 13950 JR EXDLY,2525 ACT1 13950 * 023750 1003510700 13960 JR ERDMP ACT1 13960 * 023755 3000130060 13970 JD 01300 N NO IPT FROM CLOCK AFTER STARTING IT ACT1 13970 F 023762 5601367704 13980 C100 BA1 CLO+3,4 4 ACT1 13980 023767 5201306304 13990 SA1 BC100,4 4 ACT1 13990 * 023774 1003017700 14000 JR LPB5 ACT1 14000 024001 5603506310 14010 BA1 BIT5,8 ACT1 14010 024006 7001377750 14020 CB1 013777,8,8 ACT1 14020 * 024013 3002403242 14030 JE $+15 ACT1 14030 * 024020 1003510700 14040 JR ERDMP ACT1 14040 * 024025 3000130160 14050 JD 01301 8 8 CHARS OF INPUT BUFF NOT,2020202020203300 ACT1 14050 024032 3401306377 14060 CC BC100,07077 ACT1 14060 * 024037 3002405642 14070 JE $+15 ACT1 14070 * 024044 1003510700 14080 JR ERDMP ACT1 14080 * 024051 3000130260 14090 JD 01302 I INPUT A BITS OF CLOCK NOT 77,CLOCK TEST1 ACT1 14090 024056 3401306221 14100 CC BC100-1,1,021 ACT1 14100 * 024063 3002410242 14110 JE $+15 ACT1 14110 * 024070 1003510700 14120 JR ERDMP ACT1 14120 * 024075 3000130360 14130 JD 01303 C CLOCK INPUT CONTROL BITS NOT 21,CLOCK TEST1 ACT1 14130 N 024102 3401306100 14140 CC BC100-2,2,0 ACT1 14140 * 024107 3002412642 14150 JE $+15 ACT1 14150 * 024114 1003510700 14160 JR ERDMP ACT1 14160 * 024121 3000130460 14170 JD 01304 C CLOCK OUTPUT A BITS NOT 0,CLOCK TEST 1 ACT1 14170 U 024126 3401306000 14180 CC BC100-3,3,0 ACT1 14180 * 024133 3002415242 14190 JE $+15 ACT1 14190 * 024140 1003510700 14200 JR ERDMP ACT1 14200 * 024145 3000130560 14210 JD 01305 C CLOCK OUTPUT CONTROL BITS NOT 0,CLOCK TEST 1 ACT1 14210 U * 024152 1003370200 14220 JR STCLK G GO STOP CLOCK ACT1 14220 024157 2601377710 14230 PD 013777,8,8 ACT1 14230 024164 2601367704 14240 PD CLO+3,4 4 ACT1 14240 * 024171 1003320600 14250 JR TOBE ACT1 14250 * 024176 1003510700 14260 JR ERDMP ACT1 14260 * 024203 3000130660 14270 JD 01306 A ALL OUTPUT BUFFS. NOT 0,CLOCK TEST 1 ACT1 14270 P * 024210 1003331400 14280 JR TIBE ACT1 14280 * 024215 1003510700 14290 JR ERDMP ACT1 14290 * 024222 3000130760 14300 JD 01307 A ALL INPUT BUFFS. NOT 0,CLOCK TEST 1 ACT1 14300 U * 024227 1003304200 14310 JR TOBW ACT1 14310 * 024234 1003510700 14320 JR ERDMP ACT1 14320 * 024241 3000131060 14330 JD 01310 A ALL OUTPUT BCWS NOT 0,CLOCK TEST 1 ACT1 14330 P * 024246 1003312400 14340 JR TIBW ACT1 14340 * 024253 1003510700 14350 JR ERDMP ACT1 14350 * 024260 3000131160 14360 JD 01311 A ALL INPUT BCWS NOT 0,CLOCK TEST 1 ACT1 14360 U * 024265 3000137060 14370 JD 01370 C CLOCK TEST1 FINIS ACT1 14370 E * 024272 1002345300 14380 CLOT JR CLB TESEST THAT SETTING THE CLOCK WITH ACT1 14380 024277 4403632566 14390 SC TN-2,06666 ACT1 14390 024304 4403632446 14400 SC TN-3,04646 ACT1 14400 024311 2002436103 14410 FT C200,3 LOCKOUT,WILL NOT STALL THE PROCESSOR. ACT1 14410 T 024316 5200043703 14420 SA1 IPT3,3 ACT1 14420 024323 5603205302 14430 BA1 FOT,2 ACT1 14430 024330 5200026302 14440 SA1 0263,2 ACT1 14440 024335 4060620000 14450 XF 062,0,0,0,3 SET CLOCK,LOCKOUT AND INHIBIT IPT ACT1 14450 * 024342 1003237331 14460 JR DLY24,2525 ACT1 14460 * 024347 3000157060 14470 JD 01570 L LOCKOUT TEST OK ACT1 14470 * 024354 3002655700 14480 J FT1 GO O TO 4-10 TEST ALL FUNCTIONS ACT1 14480 0 * 024361 1003510700 14490 C200 JR ERDMP ACT1 14490 * 024366 3000150060 14500 JD 01500 G GOT IPT FROM SETTING CLOCK ACT1 14500 * 024373 3002655700 14510 J FT1 ACT1 14510 * 024400 3000000000 14520 JC 0 ACT1 14520 024405 4401367770 14530 SC CLI+1,07070 ACT1 14530 * 024412 1002345300 14540 RUN JR CLB ACT1 14540 024417 2002452003 14550 FT C101,3 CLOCK TEST 2,RUN CLOCK FOR ACT1 14550 T 024424 5200043703 14560 SA1 IPT3,3 60 SECONDS AND TEST CLOCK COUNT ACT1 14560 O 024431 4401367770 14570 SC CLI+1,07070 IN INPUT BUFFER,PRINT CLOCK OPTION ACT1 14570 I 024436 5201360324 14580 SA2 013603,4,4 SET CLOCK TO OUTPUT BUFFER ACT1 14580 C * 024443 1003604200 14590 JR SAVE ACT1 14590 * 024450 1003502600 14600 JR SETCK G GO SET CLOCK ACT1 14600 C * 024455 1003365100 14610 JR XCLK STSTART CLOCK ACT1 14610 O * 024462 3002447400 14620 JC CLKDY-5 5 ACT1 14620 * 024467 3000000000 14630 JC 0 ACT1 14630 024474 4402476474 14640 SC CLKP+4,6,60 ACT1 14640 * 024501 1003244531 14650 CLKDY JR EXDLY,2525 ACT1 14650 * 024506 1003510700 14660 JR ERDMP ACT1 14660 * 024513 3000131260 14670 JD 01312 N NO INPUT IPT,CLOCK TEST 2 ACT1 14670 T 024520 5601367704 14680 C101 BA1 CLO+3,4 4 ACT1 14680 024525 5201306704 14690 SA1 BC101,4 4 ACT1 14690 024532 5601377710 14700 BA1 013777,8,8 ACT1 14700 024537 4600001731 14710 BT 017,25 SAVE CLOCK IN TET 24,25 AT LOC 0120 ACT1 14710 L 024544 4600001330 14720 BT 013,24 ACT1 14720 024551 5203673502 14730 SA1 PEOT-2,2,2 ACT1 14730 024556 5600001506 14740 BA1 015,6 ACT1 14740 024563 5203672502 14750 SA1 PS-2,2 ACT1 14750 024570 5600001504 14760 BA1 015,4 ACT1 14760 024575 5203671502 14770 SA1 PM-2,2 ACT1 14770 024602 5600001502 14780 BA1 015,2 ACT1 14780 024607 5203670502 14790 SA1 CPRT-2,2,2 ACT1 14790 024614 3401306400 14800 CC BC101-3,3,0 TEST OUTPUT CONTROL BITS FOR 0 ACT1 14800 T * 024621 3002464042 14810 JE $+15 ACT1 14810 * 024626 1003510700 14820 JR ERDMP ACT1 14820 * 024633 3000131360 14830 JD 01313 O OUTPUT CONTROL BITS NOT 0,CLOCK TEST 2 ACT1 14830 C 024640 3401306507 14840 CC BC101-2,2,7 ACT1 14840 * 024645 3002466442 14850 JE $+15 ACT1 14850 * 024652 1003510700 14860 JR ERDMP ACT1 14860 * 024657 3000131460 14870 JD 01314 O OUTPUT A BITS NOT 7,CLOCK TEST2 ACT1 14870 A 024664 3401306621 14880 CC BC101-1,1,021 ACT1 14880 * 024671 3002471042 14890 JE $+15 ACT1 14890 * 024676 1003510700 14900 JR ERDMP ACT1 14900 * 024703 3000131560 14910 JD 01315 I INPUT CONTROL BITS NOT 21,CLOCK TEST 2 ACT1 14910 O 024710 3401306777 14920 CC BC101,07077 ACT1 14920 * 024715 3002473442 14930 JE $+15 ACT1 14930 * 024722 1003510700 14940 JR ERDMP ACT1 14940 * 024727 3000131660 14950 JD 01316 I INPUT A BITS NOT 77,CLOCK TEST2 ACT1 14950 024734 2601367702 14960 PD CLI+1,2 2 CLEAR INPUT BCW ACT1 14960 024741 4401367770 14970 SC CLI+1,07070 ACT1 14970 * 024746 1003604200 14980 JR SAVE ACT1 14980 * 024753 1003620100 14990 JR PRINT ACT1 14990 * 024760 3202450175 15000 CLKP JL CLKDY,6161 ACT1 15000 * 024765 1003370200 15010 JR STCLK G GO STOP CLOCK ACT1 15010 * 024772 3002440000 15020 J RUN-10 ACT1 15020 * 024777 3000131760 15030 JD 01317 C CLOCK TEST 2 FINIS ACT1 15030 E 025004 4403632505 15040 CLK2 SC TN-2,5 CLOCK TEST2,TEST SECOND ADVANCE TO MINUTES ACT1 15040 T 025011 4403632426 15050 SC TN-3,02626 SET PRINT LINE WITH C2 ACT1 15050 P 025016 5603024724 15060 BA2 SCHM0,4 4 SET CLOCK WITH 03030303(0HRS,0MIN ACT1 15060 L * 025023 3002503000 15070 MANS JC $+5 TO O MANUALLY SET THE CLOCK TO A DESIRED ACT1 15070 L 15080 . VALUE , , CHANGE THIS JUMP TO A STOP AND ACT1 15080 15090 . CHANGE T THE SKIP JUMP AT LABEL LPCK TO A JUMP ACT1 15090 P * 025030 1002440300 15100 JR RUN-10 ACT1 15100 * 025035 3002500440 15110 LPCK JC CLK2,04040 ACT1 15110 025042 5603034310 15120 BA1 H0M1,8 ACT1 15120 025047 7001377750 15130 CB1 013777,8,8 TEST LAST 8 CHARS OF INPUT BUFF ACT1 15130 * 025054 3002507342 15140 JE $+15 ACT1 15140 * 025061 1003510700 15150 JR ERDMP ACT1 15150 * 025066 3000131660 15160 JD 01316 I INPUT BUFF. NOT 0303030403033300,CLOCK2 ACT1 15160 U * 025073 1003003300 15170 JR CLCK GOGO CLEAR INPUT+OUTPUT BCW,INPUT+OUT BUFF. ACT1 15170 * 025100 1003006400 15180 JR CBUFT G GO TEST ALL BCWS+BUFFERS FOR 0 ACT1 15180 * 025105 1003510700 15190 JR ERDMP ACT1 15190 * 025112 3000131760 15200 JD 01317 A ALL BCWS AND BUFFS NOT 0,CLOCK TEST2 ACT1 15200 S * 025117 3002512400 15210 CLK3 J $+5 ACT1 15210 025124 5603025324 15220 BA2 SCM1,4 SET CLOCK WITH 03030304 ACT1 15220 O * 025131 1002440300 15230 JR RUN-10 ACT1 15230 025136 5603035310 15240 BA1 H0M2,8 ACT1 15240 025143 7001377750 15250 CB1 013777,8,8 ACT1 15250 * 025150 3002516742 15260 JE $+15 ACT1 15260 * 025155 1003510700 15270 JR ERDMP ACT1 15270 * 025162 3000132060 15280 JD 01320 I INPUT BUFF NOT 0303030503033300,CLOCK TST3 ACT1 15280 U * 025167 1003003300 15290 JR CLCK ACT1 15290 * 025174 1003006400 15300 JR CBUFT ACT1 15300 * 025201 1003510700 15310 JR ERDMP ACT1 15310 * 025206 3000132160 15320 JD 01321 A ALL BCWS AND BUFFS NOT 0,CLOCK TST3 ACT1 15320 S * 025213 3002522000 15330 CLK4 J $+5 ACT1 15330 025220 5603025724 15340 BA2 SCM3,4 SET CLOCK WITH 03030306 ACT1 15340 O * 025225 1002440300 15350 JR RUN-10 ACT1 15350 025232 5603036310 15360 BA1 H0M4,8 ACT1 15360 025237 7001377750 15370 CB1 013777,8,8 ACT1 15370 * 025244 3002526342 15380 JE $+15 ACT1 15380 * 025251 1003510700 15390 JR ERDMP ACT1 15390 * 025256 3000132260 15400 JD 01322 I INPUT BUFF NOT 0303030703033300,CLOCK TST4 ACT1 15400 U * 025263 1003003300 15410 JR CLCK ACT1 15410 * 025270 1003006400 15420 JR CBUFT ACT1 15420 * 025275 1003510700 15430 JR ERDMP ACT1 15430 * 025302 3000132360 15440 JD 01323 A ALL BCWS AND BUFFS NOT 0,CLOCK TST4 ACT1 15440 S * 025307 3002531400 15450 CLK5 J $+5 ACT1 15450 025314 5603026324 15460 BA2 SCM7,4 SET CLOCK WITH 03030312 ACT1 15460 O * 025321 1002440300 15470 JR RUN-10 ACT1 15470 025326 5603037310 15480 BA1 H0M8,8 ACT1 15480 025333 7001377750 15490 CB1 013777,8,8 ACT1 15490 * 025340 3002535742 15500 JE $+15 ACT1 15500 * 025345 1003510700 15510 JR ERDMP ACT1 15510 * 025352 3000132460 15520 JD 01324 I INPUT BUFF NOT 0303031303033300,CLOCK TST5 ACT1 15520 U * 025357 1003003300 15530 JR CLCK ACT1 15530 * 025364 1003006400 15540 JR CBUFT ACT1 15540 * 025371 1003510700 15550 JR ERDMP ACT1 15550 * 025376 3000132560 15560 JD 01325 A ALL BCWS AND BUFFS NOT 0,CLOCK TST5 ACT1 15560 S * 025403 3002541000 15570 CLK6 J $+5 ACT1 15570 025410 5603026724 15580 BA2 SCM9,4 SET CLOCK WITH 03030314 ACT1 15580 O * 025415 1002440300 15590 JR RUN-10 ACT1 15590 025422 5603040310 15600 BA1 H0M10,8 8 ACT1 15600 025427 7001377750 15610 CB1 013777,8,8 ACT1 15610 * 025434 3002545342 15620 JE $+15 ACT1 15620 * 025441 1003510700 15630 JR ERDMP ACT1 15630 * 025446 3000132660 15640 JD 01326 I INPUT BUFF NOT 0303040303033300,CLOCK TST6 ACT1 15640 U * 025453 1003003300 15650 JR CLCK ACT1 15650 * 025460 1003006400 15660 JR CBUFT ACT1 15660 * 025465 1003510700 15670 JR ERDMP ACT1 15670 * 025472 3000132760 15680 JD 01327 A ALL BCWS+BUFFS NOT 0,CLOCK TST6 ACT1 15680 S * 025477 3002550400 15690 CLK7 J $+5 ACT1 15690 025504 5603027324 15700 BA2 SCM19,4 4 SET CLOCK WITH 03030414 ACT1 15700 L * 025511 1002440300 15710 JR RUN-10 ACT1 15710 025516 5603041310 15720 BA1 H0M20,8 8 ACT1 15720 025523 7001377750 15730 CB1 013777,8,8 ACT1 15730 * 025530 3002554742 15740 JE $+15 ACT1 15740 * 025535 1003510700 15750 JR ERDMP ACT1 15750 * 025542 3000133060 15760 JD 01330 I INPUT BUFF NOT 0303050303033300,CLOCK TST7 ACT1 15760 U * 025547 1003003300 15770 JR CLCK ACT1 15770 * 025554 1003006400 15780 JR CBUFT ACT1 15780 * 025561 1003510700 15790 JR ERDMP ACT1 15790 * 025566 3000133160 15800 JD 01331 A ALL BCWS+BUFFS NOT 0,CLOCK TST7 ACT1 15800 S * 025573 3002560000 15810 CLK8 J $+5 ACT1 15810 025600 5603027724 15820 BA2 SCM39,4 4 SET CLOCK WITH 03030614 ACT1 15820 L * 025605 1002440300 15830 JR RUN-10 ACT1 15830 025612 5603042310 15840 BA1 H0M40 ACT1 15840 025617 7001377750 15850 CB1 013777,8,8 ACT1 15850 * 025624 3002564342 15860 JE $+15 ACT1 15860 * 025631 1003510700 15870 JR ERDMP ACT1 15870 * 025636 3000133260 15880 JD 01332 I INPUT BUFF NOT 0303070303033300,CLOCK TST8 ACT1 15880 U * 025643 1003003300 15890 JR CLCK ACT1 15890 * 025650 1003006400 15900 JR CBUFT ACT1 15900 * 025655 1003510700 15910 JR ERDMP ACT1 15910 * 025662 3000133360 15920 JD 01333 A ALL BCWS+BUFFS NOT 0,CLOCK TST8 ACT1 15920 S * 025667 3002567400 15930 CLK9 J $+5 ACT1 15930 025674 5603030324 15940 BA2 SCM59,4 4 SET CLOCK WITH 03031014 ACT1 15940 L * 025701 1002440300 15950 JR RUN-10 ACT1 15950 025706 5603043310 15960 BA1 H1M0,8 ACT1 15960 025713 7001377750 15970 CB1 013777,8,8 ACT1 15970 * 025720 3002573742 15980 JE $+15 ACT1 15980 * 025725 1003510700 15990 JR ERDMP ACT1 15990 * 025732 3000133460 16000 JD 01334 I INPUT BUFF NOT 0304030303033300,CLOCK TST9 ACT1 16000 U * 025737 1003003300 16010 JR CLCK ACT1 16010 * 025744 1003006400 16020 JR CBUFT ACT1 16020 * 025751 1003510700 16030 JR ERDMP ACT1 16030 * 025756 3000133560 16040 JD 01335 A ALL BCWS+BUFFS NOT 0,CLOCK TST9 ACT1 16040 S * 025763 3002577000 16050 CLK10 J $+5 ACT1 16050 025770 5603030724 16060 BA2 SCH1,4 SET CLOCK WITH 03041014 ACT1 16060 O * 025775 1002440300 16070 JR RUN-10 ACT1 16070 026002 5603044310 16080 BA1 H2M0,8 ACT1 16080 026007 7001377750 16090 CB1 013777,8,8 ACT1 16090 * 026014 3002603342 16100 JE $+15 ACT1 16100 * 026021 1003510700 16110 JR ERDMP ACT1 16110 * 026026 3000133660 16120 JD 01336 I INPUT BUFF NOT,0305030303033300,CLOCK TST10 ACT1 16120 U * 026033 3002604000 16130 CLK11 J $+5 ACT1 16130 026040 5603031324 16140 BA2 SCH3,4 SET CLOCK WITH 03061014 ACT1 16140 O * 026045 1002440300 16150 JR RUN-10 ACT1 16150 026052 5603045310 16160 BA1 H4M0,8 ACT1 16160 026057 7001377750 16170 CB1 013777,8,8 ACT1 16170 * 026064 3002610342 16180 JE $+15 ACT1 16180 * 026071 1003510700 16190 JR ERDMP ACT1 16190 * 026076 3000134060 16200 JD 01340 I INPUT BUFF NOT,0307030303033300,CLOCK TST11 ACT1 16200 U * 026103 1003003300 16210 JR CLCK ACT1 16210 * 026110 1003006400 16220 JR CBUFT ACT1 16220 * 026115 1003510700 16230 JR ERDMP ACT1 16230 * 026122 3000134160 16240 JD 01341 A ALL BCWS+BUFFS NOT 0,CLOCK TST11 ACT1 16240 S * 026127 3002613400 16250 CLK12 J $+5 ACT1 16250 026134 5603031724 16260 BA2 SCH7,4 SET CLOCK WITH 03121014 ACT1 16260 O * 026141 1002440300 16270 JR RUN-10 ACT1 16270 026146 5603046310 16280 BA1 H8M0,8 ACT1 16280 026153 7001377750 16290 CB1 013777,8,8 ACT1 16290 * 026160 3002617742 16300 JE $+15 ACT1 16300 * 026165 1003510700 16310 JR ERDMP ACT1 16310 * 026172 3000134260 16320 JD 01342 I INPUT BUFF NOT 0313030303033300,CLOCK TST12 ACT1 16320 U * 026177 1003003300 16330 JR CLCK ACT1 16330 * 026204 1003006400 16340 JR CBUFT ACT1 16340 * 026211 1003510700 16350 JR ERDMP ACT1 16350 * 026216 3000134360 16360 JD 01343 A ALL BCWS+BUFFS NOT 0,CLOCK TST12 ACT1 16360 S * 026223 3002623000 16370 CLK13 J $+5 ACT1 16370 026230 5603032324 16380 BA2 SCH9,4 SET CLOCK WITH 03141014 ACT1 16380 O * 026235 1002440300 16390 JR RUN-10 ACT1 16390 026242 5603047310 16400 BA1 H10M0,8 8 ACT1 16400 026247 7001377750 16410 CB1 013777,8,8 ACT1 16410 * 026254 3002627342 16420 JE $+15 ACT1 16420 * 026261 1003510700 16430 JR ERDMP ACT1 16430 * 026266 3000134460 16440 JD 01344 I INPUT BUFF NOT 0403030303033300,CLOCK TST13 ACT1 16440 U * 026273 1003003300 16450 JR CLCK ACT1 16450 * 026300 1003006400 16460 JR CBUFT ACT1 16460 * 026305 1003510700 16470 JR ERDMP ACT1 16470 * 026312 3000134560 16480 JD 01345 A ALL BCWS+BUFFS NOT 0,CLOCK TST13 ACT1 16480 S * 026317 3002632400 16490 CLK14 J $+5 ACT1 16490 026324 5603032724 16500 BA2 SCH19,4 4 SET CLOCK WITH 04141014 ACT1 16500 L * 026331 1002440300 16510 JR RUN-10 ACT1 16510 026336 5603050310 16520 BA1 H20M0,8 8 ACT1 16520 026343 7001377750 16530 CB1 013777,8,8 ACT1 16530 * 026350 3002636742 16540 JE $+15 ACT1 16540 * 026355 1003510700 16550 JR ERDMP ACT1 16550 * 026362 3000134660 16560 JD 01346 I INPUT BUFF NOT 0503030303033300,CLOCK TST14 ACT1 16560 U * 026367 1003003300 16570 JR CLCK ACT1 16570 * 026374 1003006400 16580 JR CBUFT ACT1 16580 * 026401 1003510700 16590 JR ERDMP ACT1 16590 * 026406 3000134760 16600 JD 01347 A ALL BCWS+BUFFS NOT 0,CLOCK TST14 ACT1 16600 S * 026413 3002642000 16610 CLK15 J $+5 ACT1 16610 026420 5603033324 16620 BA2 SCH23,4 4 SET CLOCK WITH 05061014 ACT1 16620 L * 026425 1002440300 16630 JR RUN-10 ACT1 16630 026432 5603051310 16640 BA1 H0MS0,8 8 ACT1 16640 026437 7001377750 16650 CB1 013777,8,8 ACT1 16650 * 026444 3002646342 16660 JE $+15 ACT1 16660 * 026451 1003510700 16670 JR ERDMP ACT1 16670 * 026456 3000135060 16680 JD 01350 I INPUT BUFF NOT 0303030303033300,CLOCK TST15 ACT1 16680 U * 026463 1003003300 16690 JR CLCK ACT1 16690 * 026470 1003006400 16700 JR CBUFT ACT1 16700 * 026475 1003510700 16710 JR ERDMP ACT1 16710 * 026502 3000135160 16720 JD 01351 A ALL BCWS+BUFFS NOT 0,CLOCK TST15 ACT1 16720 S 026507 2002654503 16730 FT C102,3 ACT1 16730 026514 5200043703 16740 SA1 IPT3,3 ACT1 16740 * 026521 1003244531 16750 JR EXDLY,2525 ACT1 16750 * 026526 3000137760 16760 JD 01377 C CLOCK COUNT TEST FINIS ACT1 16760 O * 026533 3002500440 16770 JC CLK2,04040 ACT1 16770 * 026540 3000150000 16780 J START ACT1 16780 * 026545 1003510700 16790 C102 JR ERDMP ACT1 16790 * 026552 3000135260 16800 JD 01352 G GOT IPT,CLOCK IS STILL CAUSING IPTS ACT1 16800 , * 026557 1002345300 16810 FT1 JR CLB TESEST IF ANY OUTPUTS TURN ON WHEN ACT1 16810 N 026564 4403632431 16820 SC TN-3,03131 ACT1 16820 026571 4403632566 16830 SC TN-2,06666 SET PRINT LINE FOR TEST FT ACT1 16830 P 026576 4403431231 16840 SC FX2+9,2525 ACT1 16840 026603 4403431731 16850 SC FX2+14,2,25 ACT1 16850 026610 2601320102 16860 PD TEN,2 ACT1 16860 026615 2002665303 16870 FT FIPT1,3 3 ISSUING ILLEGAL 4-10 CODES,CLOCK RUNNING ACT1 16870 N 026622 5200043703 16880 SA1 IPT3 ACT1 16880 * 026627 1003435400 16890 JR SEOT SESET EOT TO ALL OUTPUT BUFFERS ACT1 16890 T * 026634 1003604200 16900 JR SAVE ACT1 16900 * 026641 1003237331 16910 JR DLY24,2525 ACT1 16910 * 026646 3002666500 16920 J $+15 ACT1 16920 * 026653 1003510700 16930 FIPT1 JR ERDMP ACT1 16930 * 026660 3000140060 16940 JD 01400 G GOT UNEXPECTED IPT FROM SOME CLT,4-10,TEST1 ACT1 16940 X 026665 5603024724 16950 BA2 SCHM0,4 4 SET CLOCK WITH 0 HRS,0 MIN ACT1 16950 L 026672 2601360603 16960 PD 013606,3,3 ACT1 16960 026677 5201360324 16970 SA2 013603,4,4 ACT1 16970 026704 2601367704 16980 PD CLI+1,4 4 ACT1 16980 026711 4401367770 16990 SC CLI+1,07070 ACT1 16990 026716 2002676603 17000 FT FIPT2,3 3 ACT1 17000 026723 5200043703 17010 SA1 IPT3,3 ACT1 17010 * 026730 1003604200 17020 JR SAVE ACT1 17020 * 026735 1003502600 17030 JR SETCK G GO SET CLOCK ACT1 17030 C * 026742 1003365100 17040 JR XCLK GOGO START CLOCK ACT1 17040 * 026747 1003244531 17050 JR EXDLY,2525 ACT1 17050 * 026754 1003510700 17060 JR ERDMP ACT1 17060 * 026761 3000140160 17070 JD 01401 N NO CLOCK IPT ACT1 17070 K 026766 3401367621 17080 FIPT2 CC CLO+2,02021 TEST I+T OF INPUT ACT1 17080 T * 026773 3002701242 17090 JE $+15 ACT1 17090 * 027000 1003510700 17100 JR ERDMP ACT1 17100 * 027005 3000140260 17110 JD 01402 G GOT IPT,BUT CLOCK INPUT,NO I+T BITS ACT1 17110 , 027012 2601367603 17120 PD CLO+2,3 3 ACT1 17120 027017 4401367770 17130 SC CLO+3,07070 ACT1 17130 027024 4401360033 17140 SC 013600,0,033 SET 33 TO CLOCK OUTPUT BUFF. ACT1 17140 T 027031 2002706703 17150 FT FIPT3,3 3 ACT1 17150 027036 5200043703 17160 SA1 IPT3,3 ACT1 17160 * 027043 1003604200 17170 JR SAVE ACT1 17170 * 027050 1003443600 17180 JR TOAI GOGO TURN ON ALL INPUT CLTS ACT1 17180 O * 027055 1003422731 17190 JR GEN4,25 5 ACT1 17190 * 027062 3002712000 17200 J FT2 ACT1 17200 027067 3401367621 17210 FIPT3 CC CLI,021 1 TEST IF IPT IS THE CLOCK INPUT ACT1 17210 I * 027074 3003432542 17220 JE CFT1 ACT1 17220 * 027101 1003370200 17230 JR STCLK G GO STOP CLOCK ACT1 17230 * 027106 1003510700 17240 JR ERDMP ACT1 17240 * 027113 3000140360 17250 JD 01403 G GOT IPT BUT NOT FROM CLOCK,THE ACT1 17250 17260 . 2 CHARARS IN TAG _TEN_ SHOW THE 4-10 ACT1 17260 A 17270 . CODE U USED. ALL INPUT+OUTPUT BCWS ACT1 17270 L 17280 . SHOULDLD BE ZERO EXCEPT THE CLOCK INPUT. ACT1 17280 R * 027120 1003370200 17290 FT2 JR STCLK G GO STOP CLOCK ACT1 17290 * 027125 1003435400 17300 JR SEOT ACT1 17300 * 027132 1003604200 17310 JR SAVE ACT1 17310 027137 2003001603 17320 FT FIPT4,3 3 ACT1 17320 027144 5200043703 17330 SA1 IPT3,3 ACT1 17330 * 027151 1003461700 17340 JR TOAO GOGO TURN ON ALL OUTPUTS,INHIBIT IPT ACT1 17340 O * 027156 1003237300 17350 JR DLY24 ACT1 17350 027163 2002720703 17360 FT FIPT5,3 3 ACT1 17360 027170 5200043703 17370 SA1 IPT3,3 ACT1 17370 027175 4400043460 17380 SC 0434,06060 ACT1 17380 * 027202 1003237331 17390 JR DLY24,2525 ACT1 17390 027207 2002723303 17400 FIPT5 FT FIPT6,3 3 ALL OUTPUTS AND INPUTS SHOULD BE OFF ACT1 17400 U 027214 5200043703 17410 SA1 IPT3,3 ACT1 17410 * 027221 1003237331 17420 JR DLY24,2525 ACT1 17420 * 027226 3002724500 17430 J $+15 ACT1 17430 * 027233 1003510700 17440 FIPT6 JR ERDMP ACT1 17440 * 027240 3000140460 17450 JD 01404 G GOT IPT,STILL HAVE ACTIVITY,4-10,TEST2 ACT1 17450 , * 027245 1002345300 17460 JR CLB PARART II OF 4-10 TEST,TURN OFF ALL ACT1 17460 F 027252 2601320102 17470 PD TEN,2 ACT1 17470 027257 4403431231 17480 SC FX2+9,2525 ACT1 17480 027264 4403431700 17490 SC FX2+14,0,0 ACT1 17490 027271 4403442002 17500 SC SEOB+14,4,2 ACT1 17500 * 027276 1003467400 17510 JR SETCB ACT1 17510 * 027303 1003440500 17520 JR SEOB SESET 0204 TO ALL OUTPUT BUFFERS AND WITH C BIT ACT1 17520 027310 2002734603 17530 FT FIPT7,3 3 SET IN BOTH INPUT AND OUTPUT CONTROL BITS,TURN ACT1 17530 N 027315 5200043703 17540 SA1 IPT3,3 ON ALL OUTPUTS TO RUN CONTINUOUSLY,ISSUE ILLEGALACT1 17540 * 027322 1003604200 17550 JR SAVE ACT1 17550 * 027327 1003461700 17560 JR TOAO 4-4-10 CODES AND SEE IF ANY OUTPUTS TURN OFF OR ACT1 17560 E * 027334 1003422731 17570 JR GEN4,25 5 ANY INPUTS TURN ON AND GIVE IPT. ACT1 17570 N * 027341 3002736000 17580 J CYC ACT1 17580 * 027346 1003510700 17590 FIPT7 JR ERDMP ACT1 17590 * 027353 3000140560 17600 JD 01405 E ERROR STOP,GOT IPT,ALL BCW CONTROL BITS ACT1 17600 T 17610 . SHOULDLD BE 40,ALL OUTPUT BUFFERS SHOULD CONTAIN ACT1 17610 , 17620 . 0204 CHAHARACTERS,ALL INPUT BUFFS,SHOULD BE 0. ACT1 17620 S * 027360 1003370200 17630 CYC JR STCLK ACT1 17630 027365 2003001603 17640 FT FIPT4,3 3 SET IPT ENTRY TO IGNORE IPTS ACT1 17640 P 027372 5200043703 17650 SA1 IPT3,3 UNTIL ALL OUTPUTS CYCLE OFF ACT1 17650 A * 027377 1002345300 17660 JR CLB CLELEAR ALL BUFFERS AND BCWS. ACT1 17660 * 027404 1002345300 17670 JR CLB ACT1 17670 * 027411 1003435432 17680 JR SEOT,26 6 ACT1 17680 * 027416 1003237333 17690 JR DLY24,2727 ACT1 17690 027423 2002745403 17700 FT FIPT8,3 3 ACT1 17700 027430 5200043703 17710 SA1 IPT3,3 ACT1 17710 027435 4400043460 17720 SC 0434,06060 ACT1 17720 * 027442 1003237331 17730 JR DLY24,2525 ACT1 17730 * 027447 3002746600 17740 J $+15 ACT1 17740 * 027454 1003510700 17750 FIPT8 JR ERDMP ACT1 17750 * 027461 3000140660 17760 JD 01406 G GOT IPT,STILL HAVE ACTIVITY,4-10,PART2 ACT1 17760 , * 027466 3002655740 17770 JC FT1,040 0 ACT1 17770 * 027473 3002500400 17780 J CLK2 ACT1 17780 027500 4403632431 17790 FT3 SC TN-3,03131 SET PRINT LINE WITH TEST FT,4-10 ACT1 17790 P 027505 4403632566 17800 SC TN-2,06666 ACT1 17800 * 027512 1002345300 17810 JR CLB 4-1-10 TEST3, FOR CURRENT UNIT UNDER TEST ONLY ACT1 17810 3 * 027517 1003141600 17820 JR SEAD ACT1 17820 17830 . TEST THAHAT ILLEGAL 4-10 CODES DO NOT TURN OFF ACT1 17830 G 17840 . THE INPUPUT. THIS TEST DONE BY XMITTING 77 CHARS ACT1 17840 S 17850 . OUT WITHTH P BIT SET IN BOTH INPUT AND OUTPUT ACT1 17850 17860 . BCWS. THTHE 77 COMING IN WILL CAUSE IPT EACH ACT1 17860 O 17870 . TIME BUTUT THE INPUT WILL NOT TURN OFF. IF ACT1 17870 N 17880 . THE INPUPUT FAILS TO IPT ONCE,THE TEST ASSUMES ACT1 17880 S 17890 . THAT AN N ILLEGAL 4-10 CODE TURNED THE INPUT OFF. ACT1 17890 L 027524 2601320102 17900 PD TEN,2 C CLEAR 4-10 STORAGE ACT1 17900 - 027531 4403451677 17910 SC EOTC,07777 ACT1 17910 027536 4403451577 17920 SC EOTC-1,0,077 ACT1 17920 * 027543 1003473700 17930 JR SEOS FIFILL ALL OUTPUT BUFFERS WITH 77 ACT1 17930 027550 2002767503 17940 FT FIPT9,3 3 ACT1 17940 027555 5200043703 17950 SA1 IPT3,3 ACT1 17950 027562 2620000304 17960 PD 3,4,1 ACT1 17960 027567 4420000010 17970 SC 0,010,1 1 SET P BIT OF OUTPUT ACT1 17970 027574 4440000010 17980 SC 0,010,2 2 SET P BIT OF INPUT ACT1 17980 027601 4403431240 17990 SC FX2+9,3232 ACT1 17990 027606 4403431740 18000 SC FX2+14,3,32 ACT1 18000 * 027613 1003604200 18010 JR SAVE ACT1 18010 * 027620 1003250300 18020 JR TOCTI ACT1 18020 * 027625 1003422731 18030 JR GEN4,25 5 ACT1 18030 027632 2003001603 18040 FT FIPT4,3 3 CYCLE OFF OUTPUT AND INPUT ACT1 18040 027637 5200043703 18050 SA1 IPT3,3 ACT1 18050 027644 2620000304 18060 PD 3,4,1 ACT1 18060 027651 4460000033 18070 SC 0,033,3 3 SET EOT TO OUTPUT BUFF. ACT1 18070 O * 027656 1003237300 18080 JR DLY24 ACT1 18080 * 027663 3002767000 18090 JC $+5 ACT1 18090 * 027670 3000156200 18100 J NEXT ACT1 18100 027675 5620000304 18110 FIPT9 BA1 3,4,1 ACT1 18110 027702 5201317704 18120 SA1 BCWF9,4 4 ACT1 18120 * 027707 1003604200 18130 JR SAVE ACT1 18130 027714 3440000031 18140 CC 0,031,2 2 ACT1 18140 * 027721 3002774042 18150 JE $+15 ACT1 18150 * 027726 1003510700 18160 JR ERDMP ACT1 18160 * 027733 3000141060 18170 JD 01410 I INPUT BCW CONTROL BITS NOT 31,4 TEN TEST3. ACT1 18170 C 027740 2620000304 18180 PD 3,4,1 ACT1 18180 027745 4420000010 18190 SC 0,010,1 1 ACT1 18190 027752 4440000010 18200 SC 0,010,2 2 ACT1 18200 * 027757 3003423600 18210 J INC ACT1 18210 * 027764 3000043000 18220 J 0430 ACT1 18220 027771 C 18230 CIP +1 _C_ ACT1 18230 027776 IPEFT 18240 +5 _IPEFT_ _ ACT1 18240 * 027777 1003237331 18250 T410 JR DLY24,2525 ACT1 18250 * 030004 1003510700 18260 JR ERDMP ACT1 18260 * 030011 3000141160 18270 JD 01411 G GOT NO INPUT IPT,4-10 TEST3 ACT1 18270 I 18280 . EITHER I INPUT OR OUTPUT IS OFF ACT1 18280 R 030016 4400043431 18290 FIPT4 SC 0434,25 5 ACT1 18290 * 030023 3000043000 18300 J 0430 ACT1 18300 * 030030 3000000000 18310 CLCK J 0 ACT1 18310 030035 2601367704 18320 PD CLO+3,4 4 ACT1 18320 030042 2601360304 18330 PD 013603,4,4 ACT1 18330 030047 2601377710 18340 PD 013777,8,8 ACT1 18340 * 030054 3003003000 18350 J CLCK ACT1 18350 * 030061 3000000000 18360 CBUFT J 0 ACT1 18360 * 030066 1003320600 18370 JR TOBE ACT1 18370 * 030073 3003006143 18380 JU CBUFT ACT1 18380 * 030100 3003006143 18390 JU CBUFT ACT1 18390 * 030105 1003331400 18400 JR TIBE ACT1 18400 * 030112 3003006143 18410 JU CBUFT ACT1 18410 * 030117 3003006143 18420 JU CBUFT ACT1 18420 * 030124 1003304200 18430 JR TOBW ACT1 18430 * 030131 3003006143 18440 JU CBUFT ACT1 18440 * 030136 3003006143 18450 JU CBUFT ACT1 18450 * 030143 1003312400 18460 JR TIBW ACT1 18460 * 030150 3003006143 18470 JU CBUFT ACT1 18470 * 030155 3003006143 18480 JU CBUFT ACT1 18480 030162 6003006412 18490 AC CBUFT+3,3,10 ACT1 18490 * 030167 3003006100 18500 J CBUFT ACT1 18500 * 030174 3000000000 18510 LPB5 J 0 ACT1 18510 030201 5401377020 18520 LP 013770,0,020 ACT1 18520 030206 5401377120 18530 LP 013771,0,020 ACT1 18530 030213 5401377220 18540 LP 013772,0,020 ACT1 18540 030220 5401377320 18550 LP 013773,0,020 ACT1 18550 030225 5401377420 18560 LP 013774,0,020 ACT1 18560 030232 5401377520 18570 LP 013775,0,020 ACT1 18570 * 030237 3003017400 18580 J LPB5 ACT1 18580 030247 03030303 18590 SCHM0 +4 00303030303 00HRS,00 MINS(CLOCK SETTINGS ACT1 18590 R 030253 03030304 18600 SCM1 +4 00303030304 00HRS,01 MINS ACT1 18600 R 030257 03030306 18610 SCM3 +4 00303030306 00HRS,03 MINS ACT1 18610 R 030263 03030312 18620 SCM7 +4 00303031312 00HRS,07 MINS ACT1 18620 R 030267 03030314 18630 SCM9 +4 00303031314 00HRS,09 MINS ACT1 18630 R 030273 03030414 18640 SCM19 +4 00303041414 00HRS,19 MINS ACT1 18640 R 030277 03030614 18650 SCM39 +4 00303061614 00HRS,39 MINS ACT1 18650 R 030303 03031014 18660 SCM59 +4 00303101014 00HRS,59 MINS ACT1 18660 R 030307 03041014 18670 SCH1 +4 00304101014 01HRS,59 MINS ACT1 18670 R 030313 03061014 18680 SCH3 +4 00306101014 03HRS,59 MINS ACT1 18680 R 030317 03121014 18690 SCH7 +4 00312101014 07HRS,59 MINS ACT1 18690 R 030323 03141014 18700 SCH9 +4 00314101014 09HRS,59 MINS ACT1 18700 R 030327 04141014 18710 SCH19 +4 00414101014 19HRS,59 MINS ACT1 18710 R 030333 05061014 18720 SCH23 +4 00506101014 23HRS,59 MINS ACT1 18720 R 030343 0303030403033300 18730 H0M1 +8 0030303030403033300 00HRS,01 MINS,00 SEC,EOT,0 ACT1 18730 3 030353 0303030503033300 18740 H0M2 +8 0030303030503033300 00HRS,02 MINS,00 SEC,EOT,0 ACT1 18740 3 030363 0303030703033300 18750 H0M4 +8 0030303030703033300 00HRS,04 MINS,00 SEC,EOT,0 ACT1 18750 3 030373 0303031303033300 18760 H0M8 +8 0030303131303033300 00HRS,08 MINS,00 SEC,EOT,0 ACT1 18760 3 030403 0303040303033300 18770 H0M10 +8 0030304040303033300 00HRS,10 MINS,00 SEC,EOT,0 ACT1 18770 3 030413 0303050303033300 18780 H0M20 +8 0030305050303033300 00HRS,10 MINS,00 SEC,EOT,0 ACT1 18780 3 030423 0303070303033300 18790 H0M40 +8 0030307070303033300 00HRS,40 MINS,00 SEC,EOT,0 ACT1 18790 3 030433 0304030303033300 18800 H1M0 +8 0030403030303033300 01HRS,00 MINS,00 SEC,EOT,0 ACT1 18800 3 030443 0305030303033300 18810 H2M0 +8 0030503030303033300 02HRS,00 MINS,00 SEC,EOT,0 ACT1 18810 3 030453 0307030303033300 18820 H4M0 +8 0030703030303033300 04HRS,00 MINS,00 SEC,EOT,0 ACT1 18820 3 030463 0313030303033300 18830 H8M0 +8 0031303030303033300 08HRS,00 MINS,00 SEC,EOT,0 ACT1 18830 3 030473 0403030303033300 18840 H10M0 +8 0040303030303033300 10HRS,00 MINS,00 SEC,EOT,0 ACT1 18840 3 030503 0503030303033300 18850 H20M0 +8 0050303030303033300 20HRS,00 MINS,00 SEC,EOT,0 ACT1 18850 3 030513 0303030303033300 18860 H0MS0 +8 0030303030303033300 00HRS,00 MINS,00 SEC,EOT,0 ACT1 18860 3 013674 18870 BCWA EQU 013674 BEGINNING ADDRESS OF THE BUFF. CONTRL. WORDS ACT1 18870 I 030514 4403061440 18880 SC GNU+9,3232 ACT1 18880 030521 2603113704 18890 RSET1 PD TST,4 ACT1 18890 * 030526 3003054000 18900 J $+10 ACT1 18900 030533 6003113702 18910 AC1 AC TST,2 ACT1 18910 030540 4603113715 18920 BT TST,13 BRING NEXT UNIT SELECT TO IR5 ACT1 18920 N 030545 5723115502 18930 BA1 UNIT,2,5,5 ACT1 18930 030552 3400001677 18940 CC 016,077 7 ACT1 18940 * 030557 3003062242 18950 JE DONE ACT1 18950 030564 3400001700 18960 CC 017,0 ACT1 18960 * 030571 3003053342 18970 JE AC1 ACT1 18970 030576 5203113302 18980 SA1 USLT,2 ACT1 18980 * 030603 3000000000 18990 GNU J 0 ACT1 18990 * 030610 3003051400 19000 J RSET1-5 5 ACT1 19000 * 030615 3003053300 19010 J AC1 ACT1 19010 * 030622 3000777760 19020 DONE JD 07777 G GOOD STOP,ALL UNITS HAVE BEEN TESTED ACT1 19020 O * 030627 3000150000 19030 J START ACT1 19030 * 030634 3000000000 19040 SETUP J 0 ACT1 19040 030641 5203127700 19050 SA1 SSL,16 SAVE UNIT SELECTION ACT1 19050 N 030646 2603077201 19060 PD CU+4,1 ACT1 19060 030653 5603123500 19070 BA1 PUNIT+1414,16 ACT1 19070 030660 5203117300 19080 SA1 UNIT+14,4,16 ACT1 19080 030665 5603125500 19090 BA1 PUNIT+3030,16 ACT1 19090 030672 5203121300 19100 SA1 UNIT+30,0,16 ACT1 19100 030677 5603125702 19110 BA1 PUNIT+3232,2 ACT1 19110 030704 5203121502 19120 SA1 UNIT+32,2,2 ACT1 19120 030711 2600007714 19130 PD 077,12 ACT1 19130 030716 2600007304 19140 PD TALY,4 ACT1 19140 030723 5603262210 19150 BA1 SEVNS,8 8 ACT1 19150 030730 7003127750 19160 CB1 SSL,8 ACT1 19160 * 030735 3003075443 19170 JU TSEL ACT1 19170 030742 7003126750 19180 CB1 SSL-8,8 8 ACT1 19180 * 030747 3003063442 19190 JE SETUP ACT1 19190 030754 3563126077 19200 TSEL CC SSL-15,0,077,7 ACT1 19200 * 030761 3003103642 19210 JE TAY GO O TALLY ACT1 19210 030766 3563126000 19220 CU CC SSL-15,0,0,7 ACT1 19220 * 030773 3000150043 19230 JU START S SELECTION ERROR ACT1 19230 O 031000 6000007701 19240 AC 077,1 ACT1 19240 031005 6003077201 19250 AC CU+4,1 ACT1 19250 031012 6000007302 19260 AC TALY,2 ACT1 19260 031017 3400007713 19270 CC 077,11 ACT1 19270 * 031024 3003063442 19280 JE SETUP ACT1 19280 * 031031 3003075400 19290 J TSEL ACT1 19290 000073 19300 TALY EQU 073 ACT1 19300 031036 2743115502 19310 TAY PD UNIT,2,6,6 ACT1 19310 * 031043 3003100000 19320 J CU+10 ACT1 19320 * 031050 3000000000 19330 TSTCT J 0 ACT1 19330 031055 3401321637 19340 CC CT,037 ACT1 19340 * 031062 3003112042 19350 JE F1 ACT1 19350 031067 3401321673 19360 CC CT,073 ACT1 19360 * 031074 3003112042 19370 JE F1 ACT1 19370 031101 3401321677 19380 CC CT,077 ACT1 19380 * 031106 3003112042 19390 JE F1 ACT1 19390 * 031113 3003105000 19400 J TSTCT ACT1 19400 031120 6003105312 19410 F1 AC TSTCT+3,3,10 ACT1 19410 * 031125 3003105000 19420 J TSTCT ACT1 19420 031133 0000 19430 USLT +2 0 ACT1 19430 031137 00000000 19440 TST +4 0 ACT1 19440 031143 00000000 19450 BCWY +4 0 ACT1 19450 031147 00000000 19460 BUFIY +4 0 ACT1 19460 031153 00000000 19470 BUFOY +4 0 ACT1 19470 031155 0004 19480 UNIT +2 00004 ACT1 19480 031165 0010001400200024 19490 +8 0001000101400200024 ACT1 19490 0 031175 0030003400400044 19500 +8 0003000303400400044 ACT1 19500 0 031205 0050005477770064 19510 +8 0005000505477770064 ACT1 19510 0 031215 0070007400000000 19520 +8 0007000707400000000 ACT1 19520 0 031217 0004 19530 PUNIT +2 00004 ACT1 19530 031227 0010001400200024 19540 +8 0001000101400200024 ACT1 19540 0 031237 0030003400400044 19550 +8 0003000303400400044 ACT1 19550 0 031247 0050005477770064 19560 +8 0005000505477770064 ACT1 19560 0 031257 0070007477777777 19570 +8 0007000707477777777 ACT1 19570 7 031267 0000000000000000 19580 +8 0 ACT1 19580 031277 0000000000000000 19590 SSL +8 0 ACT1 19590 * 031300 3000000000 19600 FBCW J 0 ACT1 19600 031305 2600001700 19610 PD 017,16 ACT1 19610 031312 2600003700 19620 PD 037,16 ACT1 19620 031317 5600147703 19630 BA1 XOBPA,3 3 BRING FIRST ADDRESS OF BCW LIST ACT1 19630 031324 5743115522 19640 BA2 UNIT,2,6,6 ACT1 19640 031331 7200001723 19650 AB2 017,3 ACT1 19650 031336 5203114303 19660 SA1 BCWY,3 STORE ADDRESS OF BCW UNDER TEST ACT1 19660 A 031343 2600001700 19670 PD 017,16 ACT1 19670 031350 5600147403 19680 BA1 XOBFA,3 3 ACT1 19680 031355 1600003735 19690 BS3 037,5 ACT1 19690 031362 7200003703 19700 AB1 037,3 ACT1 19700 031367 5203115323 19710 SA2 BUFOY,3 3 SAVE OUTPUT BUFF. ADDRS. CURRENTLY UNDER TST. ACT1 19710 O 031374 6000003601 19720 AC 036,1 ACT1 19720 031401 5203114723 19730 SA2 BUFIY,3 3 SAVE INPUT BUFF. ADDRS. CURRENTLY UNDER TST. ACT1 19730 I * 031406 3003130000 19740 J FBCW ACT1 19740 * 031413 3000000000 19750 SEAD J 0 ACT1 19750 031420 5603113702 19760 BA1 TST,2 ACT1 19760 031425 2600007304 19770 PD 073,4 ACT1 19770 031432 5200007302 19780 SA1 073,2 ACT1 19780 * 031437 1003130300 19790 JR FBCW CACALCULATE BCW ADDRS. BY USING UNIT LIST ACT1 19790 E 031444 5603114303 19800 BA1 BCWY,3 ACT1 19800 031451 2600006300 19810 PD 063,16 ACT1 19810 031456 5200004703 19820 SA1 047,3 S SET MSD ADDRS. OF OUTPUT BCW TO IR1 ACT1 19820 031463 6000001702 19830 AC 017,2 ACT1 19830 031470 5200005303 19840 SA1 053,3 S SET MSD ADDRS. OF INPUT BCW TO IR2 ACT1 19840 031475 5603115303 19850 BA1 BUFOY,3 3 ACT1 19850 031502 5200005703 19860 SA1 057,3 S SET MSD ADDRS. OF OUTPUT BUFFER TO IR3 ACT1 19860 031507 5603114703 19870 BA1 BUFIY,3 3 ACT1 19870 031514 5200006303 19880 SA1 063,3 S SET MSD ADDRS. OF INPUT BUFFER TO IR4 ACT1 19880 * 031521 3003141300 19890 J SEAD ACT1 19890 * 031526 3000000000 19900 CLIRS J 0 ACT1 19900 031533 2600007700 19910 PD 077,16 ACT1 19910 031540 2600005714 19920 PD 057,12 ACT1 19920 * 031545 3003152600 19930 J CLIRS ACT1 19930 * 031552 3000000000 19940 EDB J 0 EDIT T BITS FROM SAVED BCWS ACT1 19940 R 031557 2600007704 19950 PD 077,4 C CLEAR IR7 ACT1 19950 R 031564 1541320240 19960 LC SCBT-3,0,040,6 ACT1 19960 * 031571 1120000342 19970 JR 0,34,5 ACT1 19970 031576 6000007701 19980 AC 077,1 ACT1 19980 031603 1541320220 19990 LC SCBT-3,0,020,6 ACT1 19990 * 031610 1120000342 20000 JR 0,34,5 ACT1 20000 031615 6000007701 20010 AC 077,1 ACT1 20010 031622 1541320210 20020 LC SCBT-3,0,010,6 ACT1 20020 * 031627 1120000342 20030 JR 0,34,5 ACT1 20030 031634 6000007701 20040 AC 077,1 ACT1 20040 031641 1541320204 20050 LC SCBT-3,0,04,6 ACT1 20050 * 031646 1120000342 20060 JR 0,34,5 ACT1 20060 031653 6000007701 20070 AC 077,1 ACT1 20070 031660 1541320202 20080 LC SCBT-3,2,2,6 ACT1 20080 * 031665 1120000342 20090 JR 0,34,5 ACT1 20090 031672 6000007701 20100 AC 077,1 ACT1 20100 031677 1541320201 20110 LC SCBT-3,1,1,6 ACT1 20110 * 031704 1120000342 20120 JR 0,34,5 ACT1 20120 031711 6000007702 20130 AC 077,2 ACT1 20130 * 031716 3003155200 20140 J EDB ACT1 20140 * 031723 3000000000 20150 FBX J 0 ACT1 20150 * 031730 3000000000 20160 STE J 0 ACT1 20160 031735 5762777101 20170 BA1 CIP,1,7 7 ACT1 20170 031742 5363655001 20180 SA1 OUTC+1,1,1,7 ACT1 20180 * 031747 3003173000 20190 J STE ACT1 20190 * 031754 3000000000 20200 STAF J 0 ACT1 20200 031761 5762777101 20210 BA1 CIP,1,7 7 ACT1 20210 031766 5363657001 20220 SA1 INPC+1,1,1,7 ACT1 20220 * 031773 3003175400 20230 J STAF ACT1 20230 * 032000 3000000000 20240 STEA J 0 ACT1 20240 032005 5762777101 20250 BA1 CIP,1,7 7 ACT1 20250 032012 5363662401 20260 SA1 OATT-3,1,1,7 ACT1 20260 * 032017 3003200000 20270 J STEA ACT1 20270 * 032024 3000000000 20280 STAB J 0 ACT1 20280 032031 5762777101 20290 BA1 CIP,1,7 7 ACT1 20290 032036 5363664301 20300 SA1 IATT+4,1,1,7 ACT1 20300 * 032043 3003202400 20310 J STAB ACT1 20310 032051 2102 20320 BCT1 +2 02102 ACT1 20320 032053 0164 20330 FOT +2 00164 ACT1 20330 032055 0161 20340 FIT +2 00161 ACT1 20340 032065 0341034207010702 20350 +8 0034103434207010702 ACT1 20350 7 032075 1601160210611062 20360 +8 0160116060210611062 ACT1 20360 0 032105 1141114213011302 20370 +8 0114111414213011302 ACT1 20370 3 032115 1421142214411442 20380 +8 0142114242214411442 ACT1 20380 4 032125 1501150212411242 20390 +8 0150115050212411242 ACT1 20390 2 032131 12211222 20400 +4 01221122222 ACT1 20400 032133 0162 20410 XRREL +2 00162 ACT1 20410 032135 0000 20420 XCR2 +2 0 ACT1 20420 032145 0344035007040710 20430 +8 0034403535007040710 ACT1 20430 7 032155 1604161010641070 20440 +8 0160416161010641070 ACT1 20440 0 032165 1144115013041310 20450 +8 0114411515013041310 ACT1 20450 3 032175 1424143014441450 20460 +8 0142414343014441450 ACT1 20460 4 032205 1504151012441250 20470 +8 0150415151012441250 ACT1 20470 2 032211 12241234 20480 +4 01224123234 ACT1 20480 * 032212 3000000000 20490 TOCT J 0 ACT1 20490 * 032217 1003231600 20500 JR TOIC ACT1 20500 * 032224 1003224100 20510 JR TOOC ACT1 20510 * 032231 3003221200 20520 J TOCT ACT1 20520 * 032236 3000000000 20530 TOOC J 0 ACT1 20530 032243 5603113302 20540 BA1 USLT,2 ACT1 20540 032250 2600007304 20550 PD 073,4 ACT1 20550 032255 5200007302 20560 SA1 073,2 ACT1 20560 032262 5743205322 20570 BA2 FOT,2,6 6 ACT1 20570 032267 5200026322 20580 SA2 0263,2 ACT1 20580 032274 4060020000 20590 FX3 XF 02,0,0,3,3 TURN ON OUTPUT CLT ACT1 20590 032301 4403227602 20600 SC FX3+2,2 2 ACT1 20600 * 032306 3003223600 20610 J TOOC ACT1 20610 * 032313 3000000000 20620 TOIC J 0 ACT1 20620 032320 2600007304 20630 PD 073,4 ACT1 20630 032325 5603113302 20640 BA1 USLT,2 ACT1 20640 032332 5200007302 20650 SA1 073,2 ACT1 20650 032337 5743205522 20660 BA2 FIT,2,6 6 ACT1 20660 032344 5200026322 20670 SA2 0263,2 ACT1 20670 032351 4060020000 20680 FX4 XF 02,0,0,3,3 TURN ON INPUT CLT ACT1 20680 032356 4403235302 20690 SC FX4+2,2 2 ACT1 20690 * 032363 3003231300 20700 J TOIC ACT1 20700 * 032370 3000000000 20710 DLY24 J 0 ACT1 20710 * 032375 3003240231 20720 JC $+5,25 ACT1 20720 032402 2603244102 20730 PD CRCT,2 ACT1 20730 032407 3403244020 20740 CRCTC CC CRCT-1,0,020 ACT1 20740 * 032414 3003237042 20750 JE DLY24 ACT1 20750 032421 6003244101 20760 AC CRCT,1 ACT1 20760 032426 4403243200 20770 SC $+4,0 D DELAY ELEMENT ACT1 20770 L * 032433 3003240700 20780 J CRCTC ACT1 20780 032441 0000 20790 CRCT +2 0 ACT1 20790 * 032442 3000000000 20800 EXDLY J 0 ACT1 20800 032447 4403246062 20810 SC $+9,50 ACT1 20810 * 032454 3203246677 20820 JL LOOP,63 3 ACT1 20820 * 032461 3003244200 20830 J EXDLY ACT1 20830 * 032466 1003237300 20840 LOOP JR DLY24 ACT1 20840 * 032473 3003245400 20850 J $-15 ACT1 20850 * 032500 3000000000 20860 TOCTI J 0 TURN N ON INPUT+OUTPUT CLT,INHIBIT IPT ACT1 20860 U * 032505 1003256500 20870 JR TOICI ACT1 20870 * 032512 1003253400 20880 JR TOOCI ACT1 20880 * 032517 1003221500 20890 JR TOCT ACT1 20890 * 032524 3003250000 20900 J TOCTI ACT1 20900 * 032531 3000000000 20910 TOOCI J 0 TURN N ON OUTPUT CLT ONLY,INHIBIT IPT ACT1 20910 P 032536 4403227622 20920 SC FX3+2,02022 ACT1 20920 * 032543 1003224100 20930 JR TOOC ACT1 20930 032550 4403227602 20940 SC FX3+2,2 2 ACT1 20940 * 032555 3003253100 20950 J TOOCI ACT1 20950 * 032562 3000000000 20960 TOICI J 0 TURN N ON INPUT CLT ONLY,INHIBIT IPT ACT1 20960 U 032567 4403235322 20970 SC FX4+2,02022 ACT1 20970 * 032574 1003231600 20980 JR TOIC ACT1 20980 032601 4403235302 20990 SC FX4+2,2 2 ACT1 20990 * 032606 3003256200 21000 J TOICI ACT1 21000 032622 7777777777777777 21010 SEVNS +8 0777777777777777777 ACT1 21010 7 * 032623 3000000000 21020 CLIB7 J 0 FILL L ALL INPUT BUFFERS WITH 77_S ACT1 21020 P 032630 5603262210 21030 BA1 SEVNS,8 8 ACT1 21030 032635 5200000710 21040 SA1 7,8 ACT1 21040 032642 4403267704 21050 SC JL7+4,4 4 ACT1 21050 032647 4403271617 21060 SC JL8+4,1515 ACT1 21060 032654 2600007704 21070 PD 077,4 ACT1 21070 032661 5361411700 21080 SIBE7 SA1 XOBF+20707,16,7 ACT1 21080 032666 6000007720 21090 AC 077,16 ACT1 21090 * 032673 3203266104 21100 JL7 JL SIBE7,4 4 ACT1 21100 032700 6000007601 21110 AC 076,1 ACT1 21110 032705 4403267704 21120 SC JL7+4,4 4 ACT1 21120 * 032712 3203266117 21130 JL8 JL SIBE7,1515 ACT1 21130 * 032717 3003262300 21140 J CLIB7 ACT1 21140 * 032724 3000000000 21150 TIBE7 J 0 TEST T ALL INPUT BUFFERS FOR 77_S ACT1 21150 P 032731 5603262210 21160 BA1 SEVNS,8 8 ACT1 21160 032736 5200000710 21170 SA1 7,8 ACT1 21170 032743 2600007704 21180 PD 077,4 ACT1 21180 032750 4403300504 21190 SC JL9+4,4 4 ACT1 21190 032755 4403302417 21200 SC JL10+4,1,15 ACT1 21200 032762 7161411740 21210 CIBE7 CB1 XOBF+20707,16,7 ACT1 21210 * 032767 3003272443 21220 JU TIBE7 ACT1 21220 032774 6000007720 21230 AC 077,16 ACT1 21230 * 033001 3203276204 21240 JL9 JL CIBE7,4 4 ACT1 21240 033006 6000007601 21250 AC 076,1 ACT1 21250 033013 4403300504 21260 SC JL9+4,4 4 ACT1 21260 * 033020 3203276217 21270 JL10 JL CIBE7,1515 ACT1 21270 033025 6003272712 21280 AC TIBE7+3,3,10 ACT1 21280 * 033032 3003272400 21290 J TIBE7 ACT1 21290 * 033037 3000000000 21300 TOBW J 0 TEST T ALL OUTPUT BCWS FOR ZEROS ACT1 21300 T 033044 2600007704 21310 PD 077,4 ACT1 21310 033051 2600001700 21320 PD 017,16 ACT1 21320 033056 4403310617 21330 SC JL5+4,1515 ACT1 21330 033063 7161367542 21340 OBW CB1 XOBP+1,2,2,7 ACT1 21340 * 033070 3003303743 21350 JU TOBW ACT1 21350 033075 6000007704 21360 AC 077,4 ACT1 21360 * 033102 3203306317 21370 JL5 JL OBW,15 ACT1 21370 033107 6003304212 21380 AC TOBW+3,1,10 ACT1 21380 * 033114 3003303700 21390 J TOBW ACT1 21390 * 033121 3000000000 21400 TIBW J 0 TEST T ALL INPUT BUFFERS FOR ZEROS ACT1 21400 P 033126 2600007704 21410 PD 077,4 ACT1 21410 033133 2600001700 21420 PD 017,16 ACT1 21420 033140 4403317017 21430 SC JL6+4,1515 ACT1 21430 033145 7161367742 21440 IBW CB1 XOBP+3,2,2,7 ACT1 21440 * 033152 3003312143 21450 JU TIBW ACT1 21450 033157 6000007704 21460 AC 077,4 ACT1 21460 * 033164 3203314517 21470 JL6 JL IBW,15 ACT1 21470 033171 6003312412 21480 AC TIBW+3,1,10 ACT1 21480 * 033176 3003312100 21490 J TIBW ACT1 21490 * 033203 3000000000 21500 TOBE J 0 TEST T ALL OUTPUT BUFFER FOR ZEROS ACT1 21500 T 033210 2600007704 21510 PD 077,4 ACT1 21510 033215 2600001700 21520 PD 017,16 ACT1 21520 033222 4403325704 21530 SC JL1+4,4 4 ACT1 21530 033227 4403327617 21540 SC JL2+4,1515 ACT1 21540 033234 7161361740 21550 OBE CB1 XOBF+15,5,16,7 ACT1 21550 * 033241 3003320343 21560 JU TOBE ACT1 21560 033246 6000007720 21570 AC 077,16 ACT1 21570 * 033253 3203323404 21580 JL1 JL OBE,4 ACT1 21580 033260 6000007601 21590 AC 076,1 ACT1 21590 033265 4403325704 21600 SC JL1+4,4 4 ACT1 21600 * 033272 3203323417 21610 JL2 JL OBE,15 ACT1 21610 033277 6003320612 21620 AC TOBE+3,1,10 ACT1 21620 * 033304 3003320300 21630 J TOBE ACT1 21630 * 033311 3000000000 21640 TIBE J 0 TEST T ALL INPUT BUFFERS FOR ZEROS. ACT1 21640 P 033316 2600001700 21650 PD 017,16 ACT1 21650 033323 2600007704 21660 PD 077,4 ACT1 21660 033330 4403336504 21670 SC JL3+4,4 4 ACT1 21670 033335 4403340417 21680 SC JL4+4,1515 ACT1 21680 033342 7161371740 21690 IBE CB1 XOBF+79,9,16,7 ACT1 21690 * 033347 3003331143 21700 JU TIBE ACT1 21700 033354 6000007720 21710 AC 077,16 ACT1 21710 * 033361 3203334204 21720 JL3 JL IBE,4 ACT1 21720 033366 6000007601 21730 AC 076,1 ACT1 21730 033373 4403336504 21740 SC JL3+4,4 4 ACT1 21740 * 033400 3203334217 21750 JL4 JL IBE,15 ACT1 21750 033405 6003331412 21760 AC TIBE+3,1,10 ACT1 21760 * 033412 3003331100 21770 J TIBE ACT1 21770 * 033417 3000000000 21780 ITC J 0 DELAYAY 82 MIL SEC. ACT1 21780 L 033424 2603346302 21790 PD CTR,2 ACT1 21790 033431 3403346212 21800 CTRC CC CTR-1,01012 ACT1 21800 * 033436 3003341742 21810 JE ITC ACT1 21810 033443 6003346301 21820 AC CTR,1 ACT1 21820 033450 4403345400 21830 SC $+4,0 D DELAY ELEMENT ACT1 21830 L * 033455 3003343100 21840 J CTRC ACT1 21840 033463 0000 21850 CTR +2 0 ACT1 21850 033467 73377733 21860 EOTS +4 07337773733 ACT1 21860 * 033470 3000000000 21870 SHFT J 0 ACT1 21870 033475 5601323500 21880 BA1 CT+15,1616 ACT1 21880 033502 5201323400 21890 SA1 CT+14,1616 ACT1 21890 033507 5601325500 21900 BA1 CT+31,1616 ACT1 21900 033514 5201325400 21910 SA1 CT+30,1616 ACT1 21910 033521 5601327500 21920 BA1 CT+47,1616 ACT1 21920 033526 5201327400 21930 SA1 CT+46,1616 ACT1 21930 033533 5601331500 21940 BA1 CT+63,1616 ACT1 21940 033540 5201331400 21950 SA1 CT+62,1616 ACT1 21950 033545 5601321501 21960 BA1 CT-1,1 ACT1 21960 033552 5201331501 21970 SA1 CT+63,1 1 ACT1 21970 * 033557 3003347000 21980 J SHFT ACT1 21980 * 033564 3000000000 21990 SFCT J 0 ACT1 21990 * 033571 1003347300 22000 JR SHFT ACT1 22000 033576 3401321600 22010 CC CT,0 ACT1 22010 * 033603 3003356442 22020 JE SFCT ACT1 22020 033610 6003356705 22030 AC SFCT+3,5,5 ACT1 22030 * 033615 3003356400 22040 J SFCT ACT1 22040 * 033622 3000000000 22050 RSET J 0 ACT1 22050 * 033627 1003356700 22060 JR SFCT ACT1 22060 * 033634 3003362200 22070 J RSET ACT1 22070 * 033641 3003362700 22080 J $-10 ACT1 22080 * 033646 3000000000 22090 XCLK J 0 STARTRT CLOCK ACT1 22090 033653 5603205502 22100 BA1 FIT,2 ACT1 22100 033660 5200026302 22110 SA1 0263,2 ACT1 22110 033665 4060020000 22120 XF 02,0,0,3,3 ACT1 22120 * 033672 3003364600 22130 J XCLK ACT1 22130 * 033677 3000000000 22140 STCLK J 0 STOP P CLOCK ACT1 22140 033704 5603213302 22150 BA1 XRREL,2 2 ACT1 22150 033711 5200026302 22160 SA1 0263,2 ACT1 22160 033716 4060020000 22170 XF 02,0,0,3,3 ACT1 22170 * 033723 3003367700 22180 J STCLK ACT1 22180 * 033730 3000000000 22190 CHECK J 0 ACT1 22190 033735 2603417201 22200 PD TY,1 ACT1 22200 033742 1401320101 22210 LC TEN,1 ACT1 22210 * 033747 1003417642 22220 JR IY,34 ACT1 22220 033754 1401320102 22230 LC TEN,2 ACT1 22230 * 033761 1003417642 22240 JR IY,34 ACT1 22240 033766 1401320104 22250 LC TEN,4 ACT1 22250 * 033773 1003417642 22260 JR IY,34 ACT1 22260 034000 1401320110 22270 LC TEN,010 0 ACT1 22270 * 034005 1003417642 22280 JR IY,34 ACT1 22280 034012 1401320120 22290 LC TEN,020 0 ACT1 22290 * 034017 1003417642 22300 JR IY,34 ACT1 22300 034024 1401320140 22310 LC TEN,040 0 ACT1 22310 * 034031 1003417642 22320 JR IY,34 ACT1 22320 034036 1401320001 22330 LC TEN-1,1 1 ACT1 22330 * 034043 1003417642 22340 JR IY,34 ACT1 22340 034050 1401320002 22350 LC TEN-1,2 2 ACT1 22350 * 034055 1003417642 22360 JR IY,34 ACT1 22360 034062 1401320004 22370 LC TEN-1,4 4 ACT1 22370 * 034067 1003417642 22380 JR IY,34 ACT1 22380 034074 1401320010 22390 LC TEN-1,01010 ACT1 22390 * 034101 1003417642 22400 JR IY,34 ACT1 22400 034106 2600007704 22410 PD 077,4 ACT1 22410 034113 5601320102 22420 BA1 TEN,2 ACT1 22420 034120 7163205342 22430 CLST CB1 FOT,2,7 7 TEST IF GEN. NUM EQ. TO GOOD 4-10 LIST ACT1 22430 I * 034125 3003373042 22440 JE CHECK ACT1 22440 034132 6000007702 22450 AC 077,2 ACT1 22450 034137 5603417122 22460 BA2 LAST,2 ACT1 22460 034144 7000007762 22470 CB2 077,2 ACT1 22470 * 034151 3003412043 22480 JU CLST ACT1 22480 034156 6003373305 22490 AC CHECK+3,3,5 ACT1 22490 * 034163 3003373000 22500 J CHECK ACT1 22500 034171 0140 22510 LAST +2 00140 ACT1 22510 034172 00 22520 TY +1 0 ACT1 22520 * 034173 3000000000 22530 IY J 0 ACT1 22530 034200 6003417201 22540 AC TY,1 ACT1 22540 034205 3403417205 22550 CC TY,5 ACT1 22550 * 034212 3003373042 22560 JE CHECK ACT1 22560 * 034217 3003417300 22570 J IY ACT1 22570 * 034224 3000000000 22580 GEN4 J 0 GENERERATE AN ILLEGAL 4-10 CODE AND ACT1 22580 * 034231 3003424300 22590 J INC+5 ACT1 22590 034236 6001320101 22600 INC AC TEN,1 I ISSUE AN XF TO SEE IF ANY ACTION OCCURS. ACT1 22600 N 034243 3401320020 22610 CC TEN-1,02020 TEST FOR OVERFLOW TO ELEVENTH BIT ACT1 22610 T * 034250 3003422442 22620 JE GEN4 ACT1 22620 * 034255 1003373300 22630 JR CHECK C COMPARE AGAINST LEGAL LIST ACT1 22630 * 034262 3003423600 22640 J INC ACT1 22640 034267 5601320122 22650 BA2 TEN,2 ACT1 22650 034274 5200026322 22660 SA2 0263,2 ACT1 22660 034301 4060220000 22670 FX2 XF 022,0,0,0,3 EF FOR ILLEGAL 4-10 CODE ACT1 22670 F * 034306 1003237331 22680 JR DLY24,2525 ACT1 22680 * 034313 3003423600 22690 J INC ACT1 22690 * 034320 3002777700 22700 J T410 ACT1 22700 034325 2601367702 22710 CFT1 PD CLI+1,2 2 ACT1 22710 034332 4400043431 22720 SC 0434,25 5 ACT1 22720 034337 4401367770 22730 SC CLI+1,07070 ACT1 22730 * 034344 3000043000 22740 J 0430 ACT1 22740 * 034351 3000000000 22750 SEOT J 0 SET E EOT,33,TO ALL OUTPUT BUFFERS. ACT1 22750 T 034356 4403451633 22760 SC EOTC,03333 ACT1 22760 034363 4403451533 22770 SC EOTC-1,0,033 ACT1 22770 * 034370 1003473700 22780 JR SEOS ACT1 22780 * 034375 3003435100 22790 J SEOT ACT1 22790 * 034402 3000000000 22800 SEOB J 0 ACT1 22800 034407 4403451604 22810 SC EOTC,04 4 ACT1 22810 034414 4403451502 22820 SC EOTC-1,0,02 ACT1 22820 * 034421 1003473700 22830 JR SEOS ACT1 22830 * 034426 3003440200 22840 J SEOB ACT1 22840 * 034433 3000000000 22850 TOAI J 0 TURN N ON ALL INPUTS ACT1 22850 034440 2600007704 22860 PD 077,4 ACT1 22860 034445 5763206102 22870 RFIT BA1 FIT+4,2,2,7 ACT1 22870 034452 5200026302 22880 SA1 0263,2 ACT1 22880 034457 4060020000 22890 XF 02,0,0,3,3 ACT1 22890 034464 6000007704 22900 AC 077,4 ACT1 22900 034471 3400007754 22910 CC 077,44 ACT1 22910 * 034476 3003451042 22920 JE $+10 ACT1 22920 * 034503 3003444500 22930 J RFIT ACT1 22930 * 034510 3003443300 22940 J TOAI ACT1 22940 034516 0000 22950 EOTC +2 0 ACT1 22950 * 034517 3000000000 22960 BDMP J 0 COMMUMUNICATIONS BUFFER DUMP RTNE. ACT1 22960 O 034524 5604716710 22970 BA1 PAR,8 ACT1 22970 034531 5203461310 22980 SA1 SPAR,8 ACT1 22980 034536 5603460310 22990 BA1 BLIM,8 ACT1 22990 034543 5204716710 23000 SA1 PAR,8 ACT1 23000 * 034550 1004551500 23010 JR DUMP ACT1 23010 034555 5603461310 23020 BA1 SPAR,8 ACT1 23020 034562 5204716710 23030 SA1 PAR,8 ACT1 23030 * 034567 3003451700 23040 J BDMP ACT1 23040 034603 0000130000020000 23050 BLIM +8 00013000000020000 ACT1 23050 0 034613 0000000000000000 23060 SPAR +8 0 ACT1 23060 * 034614 3000000000 23070 TOAO J 0 TURN N ON ALL OUTPUTS ACT1 23070 034621 2600007704 23080 PD 077,4 ACT1 23080 034626 5763205702 23090 RFOT BA1 FOT+4,2,2,7 ACT1 23090 034633 5200026302 23100 SA1 0263,2 ACT1 23100 034640 4060220000 23110 XF 022,0,0,0,3 ACT1 23110 034645 6000007704 23120 AC 077,4 ACT1 23120 034652 3400007754 23130 CC 077,44 ACT1 23130 * 034657 3003461442 23140 JE TOAO ACT1 23140 * 034664 3003462600 23150 J RFOT ACT1 23150 * 034671 3000000000 23160 SETCB J 0 SET C C BIT OF ALL BCWS ACT1 23160 F 034676 2600007704 23170 PD 077,4 ACT1 23170 034703 4561367440 23180 INC2 SC XOBP,04040,7 ACT1 23180 034710 6000007702 23190 AC 077,2 ACT1 23190 034715 3400007601 23200 CC 076,1 ACT1 23200 * 034722 3003467142 23210 JE SETCB ACT1 23210 * 034727 3003470300 23220 J INC2 ACT1 23220 * 034734 3000000000 23230 SEOS J 0 ACT1 23230 034741 2600007704 23240 PD 077,4 ACT1 23240 034746 5603451602 23250 BA1 EOTC,2 ACT1 23250 034753 5361360102 23260 INC3 SA1 XOBF+1,2,2,7 ACT1 23260 034760 6000007702 23270 AC 077,2 ACT1 23270 034765 3400007700 23280 CC 077,0 ACT1 23280 * 034772 3003475343 23290 JU INC3 ACT1 23290 034777 6000007601 23300 AC 076,1 ACT1 23300 035004 3400007642 23310 CC 076,042 2 ACT1 23310 * 035011 3003473442 23320 JE SEOS ACT1 23320 * 035016 3003475300 23330 J INC3 ACT1 23330 * 035023 3000000000 23340 SETCK J 0 ACT1 23340 035030 5603205302 23350 BA1 FOT,2 ACT1 23350 035035 5200026302 23360 SA1 0263,2 ACT1 23360 035042 4060020000 23370 XF 02,0,0,3,3 ACT1 23370 * 035047 3003502300 23380 J SETCK ACT1 23380 035063 2020202020203300 23390 BIT5 +8 0202020202020203300 ACT1 23390 3 035067 03031014 23400 M59 +4 00303101014 ACT1 23400 035073 00000000 23410 BC102 +4 0 ACT1 23410 035077 13436437 23420 EXS3 +4 003030303 3 ACT1 23420 035103 05061014 23430 H23 +4 00506101014 ACT1 23430 * 035104 3000000033 23440 ERDMP JC 0,27 ACT1 23440 * 035111 3003510463 23450 JC ERDMP,5151 IF SENSE SW2,NO PRINTOUT,JUST STOP ACT1 23450 E * 035116 3003574365 23460 JC IGNOR,5353 IF SENSE SW3,IGNORE ERRORS,REPEAT TEST ACT1 23460 E * 035123 3003513032 23470 JC $+5,26 ACT1 23470 035130 5600043703 23480 BA1 IPT3,3 ACT1 23480 035135 5201321403 23490 SA1 SV3,3 ACT1 23490 035142 2003001603 23500 FT FIPT4,3 3 ACT1 23500 035147 5200043703 23510 SA1 IPT3,3 ACT1 23510 035154 2600007704 23520 PD 077,4 ACT1 23520 035161 5620000304 23530 BA1 3,4,1 S SAVE CONTROL WORDS AT TIME OF ERROR ACT1 23530 N 035166 5201321104 23540 SA1 SCAT,4 ACT1 23540 035173 4660000332 23550 BT 3,26,3 SAVE THE 1ST 4 CHARS OF OUTPUT BUFF TO T26 ACT1 23550 H 035200 4700000333 23560 BT 3,27,4 SAVE THE 1ST 4 CHARS OF INPUT BUFF TO T27 ACT1 23560 H 035205 5601321601 23570 BA1 CT,1 ACT1 23570 * 035212 1004704700 23580 JR TBO ACT1 23580 035217 5203647422 23590 SA2 PCT,2 ACT1 23590 035224 5603510703 23600 BA1 ERDMP+3,3,3 ACT1 23600 035231 5200007703 23610 SA1 077,3 ACT1 23610 035236 5760000303 23620 BA1 3,3,7 ACT1 23620 * 035243 1004704700 23630 JR TBO ACT1 23630 035250 5203634226 23640 SA2 SAD-5,6 6 ACT1 23640 035255 5600007703 23650 BA1 077,3 ACT1 23650 * 035262 1004704700 23660 JR TBO ACT1 23660 035267 5203644725 23670 SA2 STAD,5 ACT1 23670 035274 5603114303 23680 BA1 BCWY,3 ACT1 23680 * 035301 1004704700 23690 JR TBO ACT1 23690 035306 5203640125 23700 SA2 BCWOA-6,6,5 ACT1 23700 035313 5603115303 23710 BA1 BUFOY,3 3 ACT1 23710 * 035320 1004704700 23720 JR TBO ACT1 23720 035325 5203643525 23730 SA2 OBA,5 ACT1 23730 035332 2603656112 23740 PD OUTC+10,0,10 ACT1 23740 035337 2603660012 23750 PD INPC+9,1,10 ACT1 23750 035344 2603663412 23760 PD IATT-3,1,10 ACT1 23760 035351 2603665312 23770 PD IT+3,10 0 ACT1 23770 035356 5601320402 23780 BA1 SCBT-1,2,2 ACT1 23780 035363 5601320501 23790 BA1 SCBT,1 ACT1 23790 * 035370 1004704700 23800 JR TBO ACT1 23800 035375 5203657722 23810 SA2 INPC+8,2,2 ACT1 23810 035402 2600007304 23820 PD 073,4 ACT1 23820 035407 2003173015 23830 FT STE,13 ACT1 23830 * 035414 1003155500 23840 JR EDB ACT1 23840 035421 5600001502 23850 BA1 015,2 ACT1 23850 035426 5203655702 23860 SA1 OUTC+8,2,2 ACT1 23860 035433 5601321002 23870 BA1 SCAT-1,2,2 ACT1 23870 035440 5601321101 23880 BA1 SCAT,1 ACT1 23880 * 035445 1004704700 23890 JR TBO ACT1 23890 035452 5203665422 23900 SA2 IATT+13,3,2 ACT1 23900 035457 5600001502 23910 BA1 015,2 ACT1 23910 035464 5203663322 23920 SA2 OATT+4,2,2 ACT1 23920 035471 2003175415 23930 FT STAF,13 3 ACT1 23930 035476 2000000216 23940 FT 2,14 ACT1 23940 * 035503 1003155500 23950 JR EDB ACT1 23950 035510 6000007302 23960 AC 073,2 ACT1 23960 035515 2003200015 23970 FT STEA,13 3 ACT1 23970 * 035522 1003155500 23980 JR EDB ACT1 23980 035527 6000007302 23990 AC 073,2 ACT1 23990 035534 2003202415 24000 FT STAB,13 3 ACT1 24000 * 035541 1003155500 24010 JR EDB ACT1 24010 035546 2003630740 24020 FT ERPT1,3232 ACT1 24020 035553 4603113715 24030 BT TST,13 ACT1 24030 035560 5723624702 24040 BA1 UNT,2,5 5 ACT1 24040 035565 5203635202 24050 SA1 SAD+3,2 2 ACT1 24050 035572 2603646204 24060 PD T4C+4,4 4 ACT1 24060 035577 3403632431 24070 CC TN-3,03131 TEST IF PRINT LINE TEST IS FT ACT1 24070 * 035604 3003563043 24080 JU $+20 ACT1 24080 035611 5601320102 24090 BA1 TEN,2 ACT1 24090 * 035616 1004704700 24100 JR TBO ACT1 24100 035623 5203646224 24110 SA2 T4C+4,4 4 ACT1 24110 035630 5603244102 24120 BA1 CRCT,2 ACT1 24120 * 035635 1004704700 24130 JR TBO ACT1 24130 035642 5203666224 24140 SA2 DCT,4 ACT1 24140 * 035647 1003610000 24150 JR FI0 ACT1 24150 035654 4400020702 24160 SC 0207,2 ACT1 24160 035661 4000620000 24170 XF 062,0,0,0,0 PRINT ERROR LINE 1 ACT1 24170 N 035666 2003650740 24180 FT ERPT2,3232 ACT1 24180 035673 4000620000 24190 XF 062,0,0,0,0 PRINT ERROR LINE 2 ACT1 24190 N * 035700 1003452200 24200 JR BDMP ACT1 24200 * 035705 3003571232 24210 JC $+5,26 ACT1 24210 035712 5601321403 24220 BA1 SV3,3 ACT1 24220 035717 5200043703 24230 SA1 IPT3,3 ACT1 24230 * 035724 3003510462 24240 JC ERDMP,5050 IF SENSE SW1,PRINTOUT AND STOP ACT1 24240 E 035731 6003510705 24250 AC ERDMP+3,3,5 ACT1 24250 * 035736 3003510400 24260 J ERDMP ACT1 24260 035743 6003510705 24270 IGNOR AC ERDMP+3,3,5 ACT1 24270 * 035750 3003510400 24280 J ERDMP ACT1 24280 035755 4000001004 24290 INPT0 XF 0,01004,4,0,0 TEST IF PRINTER NON-READY,PAPER LOW ACT1 24290 E * 035762 1003602353 24300 JR RDY0,43 3 ACT1 24300 035767 4000407777 24310 RRS0 XF 040,0777777,0,0 RESET ALL INDS. ACT1 24310 035774 2600001703 24320 PD 017,3 ACT1 24320 036001 4400001705 24330 SC 017,5 ACT1 24330 036006 7200040343 24340 SB1 IPT0+3,3,3 ACT1 24340 * 036013 3000040031 24350 JC IPT0,25 5 ACT1 24350 * 036020 3000000000 24360 RDY0 J 0 ACT1 24360 * 036025 3000000060 24370 JD 0 PRINTNTER EITHER NON-READY OR PAPER LOW ACT1 24370 H * 036032 3003602000 24380 J RDY0 ACT1 24380 * 036037 3000000000 24390 SAVE J 0 ACT1 24390 036044 5620000304 24400 BA1 3,4,1 S SAVE BOTH OUTPUT AND INPUT BCWS ACT1 24400 T 036051 5201320504 24410 SA1 SCBT,4 BEFORE TEST,FOR PRINT OUT PURPOSES ACT1 24410 036056 4660000334 24420 BT 3,28,3 SAVE 1ST 4 CHARS OF OUTPUT BUFF BEFORE TST. ACT1 24420 S 036063 4700000335 24430 BT 3,29,4 SAVE 1ST 4 CHARS OF INPUT BUFF BEFORE TST. ACT1 24430 S * 036070 3003603700 24440 J SAVE ACT1 24440 * 036075 3000000000 24450 FI0 J 0 ACT1 24450 036102 2003575503 24460 FT INPT0,3 3 ACT1 24460 036107 5200040703 24470 SA1 IPT0+7,3,3 ACT1 24470 * 036114 3003607500 24480 J FI0 ACT1 24480 * 036121 3003613354 24490 INPT2 JC $+10,44 4 TEST AND RESET OPERATOR REQUEST ACT1 24490 A * 036126 3000051000 24500 J CLS2 GOGOT CLASS 2 IPT, NOT OPERATOR REQUEST ACT1 24500 S * 036133 3003614032 24510 JC $+5,26 INHIBIT CLASS 3 IPTS ACT1 24510 T 036140 4600043727 24520 BT IPT3,23 3 SAVE IPT3 ENTRY ADDRESS,AT TET 23 ACT1 24520 I 036145 2003001603 24530 FT FIPT4,3 3 SET IPT3 ENTRY TO IGNORE ANY IPTS ACT1 24530 P 036152 5200043703 24540 SA1 IPT3,3 ACT1 24540 036157 5604717710 24550 BA1 MPAR,8 SET DUMP LIMIT FOR 20K DUMP ACT1 24550 M 036164 5204716710 24560 SA1 PAR,8 ACT1 24560 * 036171 3004550000 24570 J DUMP-10 0 ACT1 24570 * 036176 3000000000 24580 PRINT J 0 ACT1 24580 * 036203 3003617663 24590 JC PRINT,5151 ACT1 24590 * 036210 3003617664 24600 JC PRINT,5252 ACT1 24600 * 036215 1003610000 24610 JR FI0 ACT1 24610 036222 2003670040 24620 FT CPRT-7,3,32 ACT1 24620 036227 4400020702 24630 SC 0207,2 ACT1 24630 036234 4000620400 24640 XF 062,0040400,0,0 ACT1 24640 * 036241 3003617600 24650 J PRINT ACT1 24650 036247 0303 24660 UNT +2 00303 ACT1 24660 036257 0304030503060307 24670 +8 0030403030503060307 ACT1 24670 3 036267 0310031103120313 24680 +8 0031003131103120313 ACT1 24680 3 036275 031404030404 24690 +6 003140404030404 ACT1 24690 036300 24700 ORIG $,64 ACT1 24700 036307 ROUTINE 24710 ERPT1 +8 _ROUTINENE _ ACT1 24710 036317 ACT1 T 24720 +8 _ACT1 T_ ACT1 24720 036327 EST 24730 TN +8 _EST _ ACT1 24730 036337 STOP 24740 PN +8 _STOP _ ACT1 24740 036347 UNIT 24750 SAD +8 _ UNINIT_ ACT1 24750 036357 OUTPU 24760 +8 _ OUTPTPU_ ACT1 24760 036367 T BCW AD 24770 +8 _T BCW A AD_ ACT1 24770 036377 DRESS 24780 +8 _DRESS _ ACT1 24780 036407 OUTPU 24790 BCWOA +8 _ OUTPTPU_ ACT1 24790 036417 T BUFFER 24800 +8 _T BUFFEFER_ ACT1 24800 036427 ADDRESS 24810 +8 _ ADDRESESS_ ACT1 24810 036435 000000000000 24820 OBA +6 0 ACT1 24820 036441 SA 24830 +4 _ SA_ STOP ADDRESS ABBREV. ACT1 24830 D 036447 000000000000 24840 STAD +6 0 ACT1 24840 036456 4TEN 24850 T4C +7 _ 4TEN N _ ACT1 24850 036466 0000000000000000 24860 +8 0 ACT1 24860 036474 CT 24870 PCT +6 _CT _ _ ACT1 24870 036477 000000 24880 +3 0 ACT1 24880 036507 BUFFER C 24890 ERPT2 +8 _BUFFER R C_ ACT1 24890 036517 ONTROL W 24900 +8 _ONTROL L W_ ACT1 24900 036527 ORDS BEF 24910 +8 _ORDS BEBEF_ ACT1 24910 036537 ORE TEST 24920 +8 _ORE TESEST_ ACT1 24920 036547 ,OUTPUT 24930 OUTC +8 _,OUTPUTUT _ ACT1 24930 036557 0000000000000000 24940 +8 0 ACT1 24940 036567 INPUT 24950 INPC +8 _ INPUTUT _ ACT1 24950 036577 0000000000000000 24960 +8 0 ACT1 24960 036607 AFTER T 24970 +8 _ AFTER R T_ ACT1 24970 036617 EST,OUTP 24980 +8 _EST,OUTUTP_ ACT1 24980 036627 UT 24990 OATT +8 _UT _ ACT1 24990 036637 INP 25000 IATT +8 _ ININP_ ACT1 25000 036641 UT 25010 +2 _UT_ ACT1 25010 036650 00000000000000 25020 IT +7 0 ACT1 25020 036654 00000000 25030 +4 0 ACT1 25030 036662 DC 25040 DCT +6 _DC _ _ DELAY COUNT,X191 MICRO-SEC ACT1 25040 036663 15 25050 AREA 13,B,0 ACT1 25050 036707 HRS 25060 CPRT +8 _HRS _ ACT1 25060 036717 MIN 25070 PM +8 _MIN _ ACT1 25070 036727 SEC 25080 PS +8 _SEC _ ACT1 25080 036737 EOT 25090 PEOT +8 _EOT _ ACT1 25090 036740 40 25100 AREA 32,B,0 ACT1 25100 045300 25110 ORIG 045300 ACT1 25110 000047 25120 X1 EQU 39 ACT1 25120 000053 25130 X2 EQU X1+4 ACT1 25130 000057 25140 X3 EQU X2+4 ACT1 25140 000063 25150 X4 EQU X3+4 ACT1 25150 000067 25160 X5 EQU X4+4 ACT1 25160 000073 25170 X6 EQU X5+4 ACT1 25170 000077 25180 X7 EQU X6+4 ACT1 25180 000103 25190 T16 EQU 0103 ACT1 25190 000107 25200 T17 EQU T16+4 ACT1 25200 000113 25210 T18 EQU T17+4 ACT1 25210 000203 25220 T32 EQU 0203 ACT1 25220 000207 25230 LA EQU 0207 ACT1 25230 000177 25240 T31 EQU T32-4 ACT1 25240 000173 25250 T30 EQU T31-4 ACT1 25250 045300 200 25260 TANK AREA 128,,0 ACT1 25260 * 045500 1004551500 25270 JR DUMP ACT1 25270 * 045505 3004550020 25280 JC $-5,020 0 ACT1 25280 * 045512 3000000000 25290 DUMP J 0 ACT1 25290 * 045517 3004773751 25300 JC BWS+052121,41 ACT1 25300 * 045524 3004553133 25310 JC $+5,27 ACT1 25310 045531 4204715321 25320 ST WST17,T1T17 ACT1 25320 045536 4204715722 25330 ST WST18,T1T18 ACT1 25330 045543 4204721423 25340 ST WS,19 ACT1 25340 045550 2000000021 25350 FT 0,T17 ACT1 25350 045555 2000052022 25360 FT 0520,T1818 SET NO. CHAR ACT1 25360 045562 2404721641 25370 TTR BWS ACT1 25370 045567 5604715710 25380 BA1 WST18,8 8 ACT1 25380 045574 5204733110 25390 SA1 BWS+011313,8 ACT1 25390 045601 5604721404 25400 BA1 WS,4 ACT1 25400 045606 5204733504 25410 SA1 BWS+011717,4 ACT1 25410 045613 2004530040 25420 FT TANK,T3232 SET PRINT BASE ACT1 25420 045620 2600007700 25430 PD 077,16 CLEAR INDEX REGS ACT1 25430 045625 2600005700 25440 PD X3,16 ACT1 25440 045632 4400020702 25450 SC LA,2 SET UP LINE ADV ACT1 25450 045637 5604714703 25460 BA1 INT ACT1 25460 045644 5200040710 25470 SA1 0407,8 SET UP PRINT INT ACT1 25470 045651 2004721611 25480 FT BWS,X1 SET BASE STOR IN X1 ACT1 25480 045656 2004721615 25490 FT BWS,X5 ACT1 25490 045663 4404616570 25500 SC CONV0+4,4,56 ACT1 25500 045670 4404635500 25510 SC PR11+4,0,0 ACT1 25510 045675 4404646370 25520 SC PR4+4,5656 ACT1 25520 045702 2004530012 25530 FT TANK,X2 2 ACT1 25530 045707 2004773617 25540 D03 FT BWS+052020,X7 LIMIT OF TET ACT1 25540 045714 7400007711 25550 CT X7,X1 TEST LIMIT ACT1 25550 * 045721 3004576442 25560 JE D05 END TETS ACT1 25560 * 045726 1004614000 25570 D04 JR CONV ACT1 25570 * 045733 1004627700 25580 JR PRT ACT1 25580 045740 2120001015 25590 FT 8,X5,X5 5 ACT1 25590 045745 4200004715 25600 ST X1,X5 ACT1 25600 045752 2100001014 25610 FT 8,X4,X4 4 ACT1 25610 * 045757 3004570700 25620 J D03 ACT1 25620 * 045764 1004673400 25630 D05 JR PRTLN CLEAR TANK ACT1 25630 045771 5604716710 25640 BA1 PAR,8 ACT1 25640 045776 5200017710 25650 SA1 T31,8 ACT1 25650 046003 2004530012 25660 FT TANK,X2 2 ACT1 25660 046010 4600017311 25670 BT T30,X1 ACT1 25670 046015 4200006311 25680 ST X4,X1 ACT1 25680 046022 4404721500 25690 SC WS1,0 ACT1 25690 046027 4404616500 25700 SC CONV0+4,4,0 ACT1 25700 046034 4404635570 25710 SC PR11+4,5,56 ACT1 25710 046041 7400017711 25720 D06 CT T31,X1 TEST LIMIT OF DUMP ACT1 25720 * 046046 3004610441 25730 JG D07 ACT1 25730 * 046053 1004614000 25740 JR CONV ACT1 25740 * 046060 1004627700 25750 JR PRT ACT1 25750 046065 4200006311 25760 ST X4,X1 ACT1 25760 046072 4200005711 25770 ST X3,X1 ACT1 25770 * 046077 3004604100 25780 J D06 ACT1 25780 046104 2004530017 25790 D07 FT TANK,X7 7 ACT1 25790 046111 7400007712 25800 CT X7,X2 ACT1 25800 * 046116 3004656542 25810 JE EXIT ACT1 25810 * 046123 1004673400 25820 JR PRTLN ACT1 25820 * 046130 3004656500 25830 J EXIT ACT1 25830 * 046135 3000000000 25840 CONV J 0 ACT1 25840 046142 4200001714 25850 ST 15,X4 ACT1 25850 * 046147 1004704700 25860 JR TBO CONVERT LOCATION ACT1 25860 046154 5240000525 25870 SA2 5,5,X2 ACT1 25870 * 046161 3004623100 25880 CONV0 J CON2 VAR LINE ACT1 25880 046166 5620000304 25890 CON1 BA1 3,4,X1 ACT1 25890 * 046173 1004704700 25900 JR TBO CONVERT CONTENT ACT1 25900 046200 5240002130 25910 SA2 17,8,X2 2 ACT1 25910 046205 5620000704 25920 BA1 7,4,X1 ACT1 25920 * 046212 1004704700 25930 JR TBO ACT1 25930 046217 5240003530 25940 SA2 29,8,X2 2 ACT1 25940 * 046224 3004613500 25950 J CONV ACT1 25950 046231 5620000405 25960 CON2 BA1 4,5,X1 ACT1 25960 * 046236 1004704700 25970 JR TBO ACT1 25970 046243 5240002132 25980 SA2 17,10,X2X2 ACT1 25980 046250 5620001105 25990 BA1 9,5,X1 ACT1 25990 * 046255 1004704700 26000 JR TBO ACT1 26000 046262 5240003532 26010 SA2 29,10,X2X2 ACT1 26010 * 046267 3004613500 26020 J CONV ACT1 26020 * 046274 3000000000 26030 PRT J 0 ACT1 26030 046301 2004544017 26040 FT TANK+96,6,X7 ACT1 26040 046306 7400007712 26050 CT X7,X2 TEST TANK FULL ACT1 26050 * 046313 3004633742 26060 JE PR1 ACT1 26060 046320 2040004012 26070 FT 32,X2,X2X2 ACT1 26070 046325 2020001211 26080 FT 10,X1,X1X1 ACT1 26080 * 046332 3004627400 26090 J PRT ACT1 26090 046337 2004530012 26100 PR1 FT TANK,X2 2 ACT1 26100 * 046344 1004673400 26110 JR PRTLN ACT1 26110 * 046351 3004627400 26120 PR11 J PRT VAR LINE ACT1 26120 046356 2020001211 26130 FT 10,X1,X1X1 ACT1 26130 046363 4404721501 26140 SC WS1,1 ACT1 26140 046370 4200005711 26150 ST X3,X1 ACT1 26150 046375 4404643210 26160 SC PR3+4,8 8 ACT1 26160 046402 5637777705 26170 PR2 BA1 -1,5,X1 1 ACT1 26170 046407 7060000445 26180 CB1 4,5,X3 ACT1 26180 * 046414 3004652743 26190 JU PR5 ACT1 26190 046421 2060000513 26200 FT 5,X3,X3 3 ACT1 26200 * 046426 3204640200 26210 PR3 JL PR2,0 VAR LINE ACT1 26210 046433 7400005737 26220 CT X3,T31 ACT1 26220 * 046440 3004656544 26230 JS EXIT ACT1 26230 046445 2020005011 26240 FT 40,X1,X1X1 ACT1 26240 046452 4200005711 26250 ST X3,X1 ACT1 26250 * 046457 3004637570 26260 PR4 JC PR2-5,5656 VAR LINE ACT1 26260 046464 4404646300 26270 SC PR4+4,0 0 ACT1 26270 046471 4404532141 26280 SC TANK+17,7,_*_ ACT1 26280 046476 4404536141 26290 SC TANK+49,9,_*_ ACT1 26290 046503 4404542141 26300 SC TANK+81,1,_*_ ACT1 26300 046510 4404546141 26310 SC TANK+11313,_*_ ACT1 26310 * 046515 1004673400 26320 JR PRTLN ACT1 26320 * 046522 3004637500 26330 J PR2-5 ACT1 26330 046527 4404646370 26340 PR5 SC PR4+4,5656 ACT1 26340 046534 3404721501 26350 CC WS1,1 ACT1 26350 * 046541 3004655342 26360 JE $+10 ACT1 26360 046546 2020001211 26370 FT 10,X1,X1X1 ACT1 26370 046553 4404721500 26380 SC WS1,0 ACT1 26380 * 046560 3004627400 26390 J PRT ACT1 26390 046565 5604721011 26400 EXIT BA1 END,9 ACT1 26400 046572 5204531011 26410 SA1 TANK+8,9,9 ACT1 26410 046577 5600017303 26420 BA1 T30,3 ACT1 26420 * 046604 1004704700 26430 JR TBO ACT1 26430 046611 5204532126 26440 SA2 TANK+17,7,6 ACT1 26440 046616 5600017703 26450 BA1 T31,3 ACT1 26450 * 046623 1004704700 26460 JR TBO ACT1 26460 046630 5204533226 26470 SA2 TANK+26,6,6 ACT1 26470 * 046635 1004673400 26480 JR PRTLN ACT1 26480 046642 2004721621 26490 FT BWS,T17 7 ACT1 26490 046647 2000010422 26500 FT 0104,T1818 ACT1 26500 046654 2400000041 26510 TTR 0 ACT1 26510 046661 2004733621 26520 FT BWS+012020,T17 ACT1 26520 046666 2000040022 26530 FT 0400,T1818 ACT1 26530 046673 2400012041 26540 TTR 0120 ACT1 26540 046700 4604721423 26550 BT WS,19 ACT1 26550 046705 4604715321 26560 BT WST17,T1T17 ACT1 26560 046712 4604715722 26570 BT WST18,T1T18 ACT1 26570 * 046717 3004773752 26580 JC BWS+052121,42 ACT1 26580 * 046724 3004551200 26590 J DUMP ACT1 26590 * 046731 3000000000 26600 PRTLN J 0 ACT1 26600 * 046736 3004674331 26610 JC $+5,25 ACT1 26610 046743 4000407777 26620 XF 32,0777777,0,0 ACT1 26620 046750 4000620000 26630 XF 50,0000,0,0,0 ACT1 26630 * 046755 3004701300 26640 J CPRN ACT1 26640 046762 4000002000 26650 PRINE XF 0,02000,0,0,0 ACT1 26650 * 046767 3004673653 26660 JC PRTLN+5,5,43 ACT1 26660 046774 4000001004 26670 XF 0,01004,4,0,0 TEST PRINTER FOR NON-READY OR PAPER LOW ACT1 26670 E * 047001 1003602353 26680 JR RDY0,43 3 ACT1 26680 * 047006 3004673600 26690 J PRTLN+5 5 ACT1 26690 047013 2004530120 26700 CPRN FT TANK+1,T,T16 ACT1 26700 047020 2604530001 26710 PD TANK,1 ACT1 26710 047025 2000017722 26720 FT 127,T18 8 ACT1 26720 047032 2404530001 26730 TFR TANK ACT1 26730 * 047037 3004673100 26740 J PRTLN ACT1 26740 * 047044 3000000000 26750 TBO J 0 ACT1 26750 047051 4404712005 26760 SC TB1+4,5 5 ACT1 26760 047056 5600003530 26770 BA2 29,8 ACT1 26770 047063 5200002701 26780 SA1 23,1 ACT1 26780 047070 5600001604 26790 BA1 14,4 ACT1 26790 047075 2600002601 26800 PD 22,1 ACT1 26800 047102 1600002723 26810 BS2 23,3 ACT1 26810 047107 1600002753 26820 BC1 23,3 ACT1 26820 * 047114 3204705600 26830 TB1 JL $-30,0 ACT1 26830 047121 2600001732 26840 PD0 15,10 ACT1 26840 047126 7200003712 26850 AB1 31,10 ACT1 26850 * 047133 3004704400 26860 J TBO ACT1 26860 * 047140 3000000031 26870 + JC 0,25 ACT1 26870 047147 046762 26880 INT +3 PRINE ACT1 26880 047153 00000000 26890 WST17 +4 0 ACT1 26890 047157 00000000 26900 WST18 +4 0 ACT1 26900 047167 0000052000037700 26910 PAR +8 000005202000037700 ACT1 26910 0 047177 0000052000047700 26920 MPAR +8 000005202000047700 ACT1 26920 0 047210 END PRINT 26930 END +9 _END PRIRINT_ ACT1 26930 047214 00000000 26940 WS +4 0 ACT1 26940 047215 00 26950 WS1 +1 0 ACT1 26950 047216 520 26960 BWS AREA 0520 ACT1 26960 047740 000000 26970 +3 0 ACT1 26970 000400 26980 ORIG 0400 ACT1 26980 * 000400 3000000060 26990 IPT0 JD 0 ACT1 26990 000407 000400 27000 +3 IPT0 ACT1 27000 * 000410 3000000160 27010 IPT1 JD 1 ACT1 27010 000417 000410 27020 +3 IPT1 ACT1 27020 * 000420 3000000260 27030 IPT2 JD 2 ACT1 27030 000427 000420 27040 +3 IPT2 ACT1 27040 * 000430 3000000360 27050 JD 3 ACT1 27050 000437 000430 27060 IPT3 +3 IPT3-7 ACT1 27060 * 000440 3000000460 27070 IPT4 JD 4 ACT1 27070 000447 000440 27080 +3 IPT4 ACT1 27080 * 000450 3000000560 27090 IPT5 JD 5 ACT1 27090 000457 000450 27100 +3 IPT5 ACT1 27100 * 000460 3000000660 27110 IPT6 JD 6 ACT1 27110 000467 000460 27120 +3 IPT6 ACT1 27120 * 000470 3000000760 27130 IPT7 JD 7 ACT1 27130 000477 000470 27140 +3 IPT7 ACT1 27140 * 000500 3000001360 27150 CLS1 JD 11 ACT1 27150 000507 000500 27160 +3 CLS1 ACT1 27160 * 000510 3000001460 27170 CLS2 JD 12 ACT1 27170 000517 036121 27180 +3 INPT2 ACT1 27180 3000150000 27190 END START ACT1 27190 {-- tape mark --} 009569 C511 RPUN80 CODEDIT SOURCE - T3834394-51 001363 00010 T510 BEGIN 01363 RPUN8000010 *LOAD 0700,TAPAPE,R,PRELD E * 001363 3007010660 * JD 070106 * * 001370 3000136300 * J $-5 * SEGMENT-ID T511 3000136300 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T512 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2000111611 * FT 0700+021216,9,0 * 000457 2000070060 * FT 0700,48,8,0 * 000464 2000024261 * FT 162,49 * * 000471 3000053000 * J 0530 * 000477 0000 * +2 0 * * 000500 3000000020 * JC 0,16 * 000507 000440 * +3 0440 * * 000510 3000000020 * JC 0,16 * 000517 000510 * +3 0510 * * 000520 3000052020 * JHJ $ * 000527 000440 * +3 0440 * 000530 5600052710 * BA1 $-1,8 * 000535 5200044710 * SA1 0447,8 * 000542 4100610100 * XF 061,010000,0,4 * 000547 2000111660 * FT 0700+021216,48,0 * 000554 2000024261 * FT 162,49 * 000561 4100610100 * XF 061,010000,0,4 * * 000566 3200056102 * JL $-5,2 * 000573 2000000103 * FT 1,3 * * 000600 3000074000 * J 0700+04040,0 * 000740 * ORIG 0700+04040 * 000740 4100610100 * XF 061,010000,0,4 * 000745 6000001701 * AC 15,1 * 000752 3420022211 * CC 146,9,1 1 * * 000757 3000106542 * JE $+70 * 000764 2600004104 * PD 041,4 * 000771 3620021700 * CS 143,0,1 1 * 000776 3620011700 * CS 79,0,1 * 001003 3620001712 * CS 15,10,1 1 * 001010 1600004166 * BC2 041,6 * 001015 3620022102 * CS 145,2,1 1 * 001022 7000004162 * CB2 041,2 * * 001027 3000104142 * JE $+10 * * 001034 3007010460 * JD 070104 * 001041 4620003520 * BT 29,16,1 1 * 001046 4620003722 * BT 31,18,1 1 * 001053 2420004001 * TFR 32,,1 * * 001060 3000074000 * J $-80 * 001065 4100640000 * XF 064,0,0,0,4 * 001072 7020004642 * CB1 38,2,1 * * 001077 3020004042 * JE 32,1 * * 001104 3007010560 * JD 070105 * * 001111 3020004000 * J 32,1 * 001116 245 * AREA 165 * SEGMENT-ID T513 3000136300 * SEGJP $ * 001363 ORIG 01363 001363 5600451400 00020 START BA1 CL12,0 SS 1 - XLATE MODE RPUN8000020 001370 5200051700 00030 SA1 0517,0 SS 2 - TRACE DELAY RPUN8000030 001375 5600461610 00040 BA1 IE2,8 SS 3 - CONTINUOUS RPUN8000040 001402 5200042710 00050 SA1 0427,8 OPER. REQ. - RESTART RPUN8000050 001407 5600455510 00060 BA1 IE0,8 PASS 1 - PUNCH AND POST READ RPUN8000060 001414 5200040710 00070 SA1 0407,8 PASS 2 - PRE-READ AND PUNCH RPUN8000070 001421 4400210177 00080 SC LP0+4,6363 RPUN8000080 * 001426 3000000060 00090 JD 0 TRACE 02 FOR PASS 2 RPUN8000090 001433 5400170376 00100 LP P1+3,07676 INITIALIZE FOR 80 COL. RPUN8000100 001440 5400206176 00110 LP PR1+3,07076 BINARY IMAGE RPUN8000110 001445 5400420776 00120 LP R1+3,07676 RPUN8000120 001452 5400426476 00130 LP R2+3,07676 RPUN8000130 001457 4400235312 00140 SC LOOP1+4,4,10 RPUN8000140 001464 4400236012 00150 SC LOOP1+9,9,10 RPUN8000150 * 001471 1000443062 00160 JR FIX,50 SS 1 - XLATE RPUN8000160 001476 2600151303 00170 PD TRZ+3,3 3 RPUN8000170 * 001503 3000151071 00180 JC $+5,57 RPUN8000180 * 001510 3000000040 00190 TRZ JC 0,32 RPUN8000190 * 001515 3000154671 00200 JC TRZ1,57 7 RPUN8000200 001522 3400151307 00210 CC TRZ+3,7 7 NO TRACE SEL. RPUN8000210 * 001527 3000156042 00220 JE PASS1 RPUN8000220 001534 6000151301 00230 AC TRZ+3,1 1 RPUN8000230 * 001541 3000150300 00240 J TRZ-5 RPUN8000240 001546 3400151302 00250 TRZ1 CC TRZ+3,2 2 RPUN8000250 * 001553 3000411042 00260 JE PASS2 RPUN8000260 * 001560 3000000160 00270 PASS1 JD 1 RPUN8000270 001565 2000720051 00280 FT RDI,41 RPUN8000280 001572 4040640000 00290 XF 064,0,0,0,2 FEED RPUN8000290 * 001577 3200157203 00300 JL $-5,3 RPUN8000300 001604 4400160303 00310 SC $-1,3 RPUN8000310 001611 2600005310 00320 PD X2,8 RPUN8000320 001616 5600716202 00330 BA1 D0,2 RPUN8000330 001623 5200716602 00340 SA1 CDNO,2 RPUN8000340 * 001630 1000302100 00350 JR MAKI RPUN8000350 001635 2000640020 00360 FT PUNI,16 6 RPUN8000360 001642 2000024022 00370 FT 160,18 RPUN8000370 001647 2400610001 00380 TFR IMG RPUN8000380 001654 5600716602 00390 BA1 CDNO,2 RPUN8000390 001661 5200640102 00400 SA1 PUNI+1,2,2 RPUN8000400 001666 2000640050 00410 FT PUNI,40 0 RPUN8000410 001673 4400204340 00420 SC PR1-11,3,32 RPUN8000420 001700 4040660000 00430 P1 XF 066,0,0,0,2 RPUN8000430 001705 6000004702 00440 AC X1,2 RPUN8000440 001712 5600716402 00450 BA1 D1,2 RPUN8000450 001717 6200716602 00460 AM1 CDNO,2 RPUN8000460 001724 5600004702 00470 BA1 X1,2 RPUN8000470 001731 7000717042 00480 CB1 B80,2 RPUN8000480 * 001736 3000175543 00490 JU $+15 RPUN8000490 001743 2600716622 00500 PD0 CDNO,2 RPUN8000500 001750 2600004703 00510 PD X1,3 RPUN8000510 001755 5600004703 00520 BA1 X1,3 RPUN8000520 001762 5200005303 00530 SA1 X2,3 RPUN8000530 * 001767 1000302100 00540 JR MAKI RPUN8000540 * 001774 3000177467 00550 JC $,55 SI 3 RPUN8000550 002001 2000640020 00560 FT PUNI,16 6 RPUN8000560 002006 2000024022 00570 FT 160,18 RPUN8000570 002013 2400610001 00580 TFR IMG RPUN8000580 002020 5600716602 00590 BA1 CDNO,2 RPUN8000590 002025 5200640102 00600 SA1 PUNI+1,2,2 RPUN8000600 * 002032 3000203724 00610 JC $+5,20 SI 3 RPUN8000610 * 002037 1000212400 00620 JR COMP RPUN8000620 002044 5600542412 00630 BA1 POST,10 0 SET ERROR PRNT RPUN8000630 002051 5200545012 00640 SA1 TYPE,10 0 RPUN8000640 002056 4040070000 00650 PR1 XF 7,0,0,2 2 RPUN8000650 002063 4400204300 00660 SC PR1-11,0,0 RPUN8000660 * 002070 1000271363 00670 JR DELY,51 1 SS 2 RPUN8000670 * 002075 3200170577 00680 LP0 JL P1+5,63 3 RPUN8000680 * 002102 3000170564 00690 JC P1+5,52 2 SS 3 RPUN8000690 * 002107 1000350200 00700 JR ENDF RPUN8000700 * 002114 3000411000 00710 J PASS2 RPUN8000710 * 002121 3000212100 00720 COMP J $ RPUN8000720 002126 2600005303 00730 PD X2,3 RPUN8000730 002133 5600720102 00740 BA1 RDI+1,2 2 RPUN8000740 002140 7000716042 00750 CB1 BLNK,2 RPUN8000750 * 002145 3000221043 00760 JU $+35 RPUN8000760 * 002152 1000344400 00770 JR CLRPT RPUN8000770 002157 5600715632 00780 BA2 IDERR,1010 RPUN8000780 002164 5200571132 00790 SA2 PRIM+9,1,10 RPUN8000790 * 002171 1000261700 00800 JR PRNT RPUN8000800 * 002176 3000007060 00810 JD 070 NO I. D. RPUN8000810 * 002203 3000212100 00820 J COMP RPUN8000820 002210 5200547102 00830 SA1 ID,2 RPUN8000830 002215 2600001501 00840 PD 015,1 DEC. TO BINARY RPUN8000840 002222 5600564022 00850 BA2 B3,2 CARD NO. TO X2 RPUN8000850 002227 7200001762 00860 SB2 017,2 -3 RPUN8000860 002234 5200004002 00870 SA1 040,2 RPUN8000870 002241 7200001621 00880 AB2 016,1 RPUN8000880 * 002246 3200224111 00890 JL $-5,9 RPUN8000890 002253 4400225211 00900 SC $-1,9 RPUN8000900 002260 7200001601 00910 AB1 016,1 RPUN8000910 002265 5600001602 00920 BA1 016,2 RPUN8000920 002272 7200001702 00930 AB1 017,2 DOUBLE RPUN8000930 002277 5200005302 00940 SA1 X2,2 RPUN8000940 * 002304 1000302100 00950 JR MAKI RPUN8000950 002311 2600720102 00960 PD RDI+1,2 2 RPUN8000960 002316 2600005703 00970 PD X3,3 RPUN8000970 002323 5660611700 00980 CMP1 BA1 IMG+15,0,0,3 RPUN8000980 002330 7060721740 00990 CB1 RDI+15,0,0,3 RPUN8000990 * 002335 1000237143 01000 JR LOK,043 3 RPUN8001000 002342 6000005720 01010 AC X3,16 RPUN8001010 * 002347 3200232312 01020 LOOP1 JL CMP1,10 0 RPUN8001020 002354 4400235312 01030 SC $-1,10 RPUN8001030 * 002361 3000212100 01040 J COMP RPUN8001040 * 002366 3000236600 01050 LOK J $ RPUN8001050 002373 4400243520 01060 SC LOOP2+4,4,16 RPUN8001060 002400 4600005714 01070 BT X3,X4 RPUN8001070 002405 5700720001 01080 CMP2 BA1 RDI,1,4 4 RPUN8001080 002412 7100610041 01090 CB1 IMG,1,4 4 RPUN8001090 * 002417 3000245043 01100 JU CMPE RPUN8001100 002424 6000006301 01110 AC X4,1 RPUN8001110 * 002431 3200240520 01120 LOOP2 JL CMP2,16 6 RPUN8001120 002436 2600006303 01130 PD X4,3 RPUN8001130 * 002443 3000236625 01140 JC LOK,21 RPUN8001140 * 002450 1000265000 01150 CMPE JR OTOD CHAR. READ RPUN8001150 002455 5200551202 01160 SA1 READ,2 RPUN8001160 002462 5700610001 01170 BA1 IMG,1,4 4 RPUN8001170 * 002467 1000265000 01180 JR OTOD CHAR. EXPECTED RPUN8001180 002474 5200552402 01190 SA1 EXPT,2 RPUN8001190 002501 6000006301 01200 AC X4,1 RPUN8001200 002506 5600716423 01210 BA2 D1,3 RPUN8001210 002513 5600006302 01220 BA1 X4,2 RPUN8001220 002520 2600550123 01230 PD0 COL,3 RPUN8001230 002525 2600017702 01240 PD 0177,2 RPUN8001240 002532 7000017742 01250 BTOD CB1 0177,2 BINARY TO DEC. RPUN8001250 * 002537 3000256342 01260 JE $+20 COL. NO. RPUN8001260 002544 6200550123 01270 AM2 COL,3 RPUN8001270 002551 6000017701 01280 AC 0177,1 RPUN8001280 * 002556 3000253200 01290 J BTOD RPUN8001290 002563 2000570020 01300 FT PRIM,16 6 RPUN8001300 002570 2000006622 01310 FT 54,18 RPUN8001310 002575 2400543701 01320 TFR ERRC RPUN8001320 * 002602 1000261700 01330 JR PRNT RPUN8001330 * 002607 3000243100 01340 J LOOP2 RPUN8001340 * 002614 3000261400 01350 PRNT J $ RPUN8001350 002621 2000570040 01360 FT PRIM,32 2 RPUN8001360 002626 4400020705 01370 SC 0207,5 RPUN8001370 002633 4000620000 01380 XF 062,0,0,0,0 RPUN8001380 * 002640 3000261400 01390 J PRNT RPUN8001390 * 002645 3000264500 01400 OTOD J $ OCTAL TO DECIMAL RPUN8001400 002652 2600001601 01410 PD 016,1 LOC. 017 RPUN8001410 002657 1600001723 01420 BS2 017,3 RPUN8001420 002664 1600001753 01430 BC1 017,3 RPUN8001430 002671 6000001603 01440 AC 016,3 RPUN8001440 002676 6000001703 01450 AC 017,3 RPUN8001450 * 002703 3000264500 01460 J OTOD RPUN8001460 * 002710 3000271000 01470 DELY J $ TRACE DELAY SS 2 RPUN8001470 002715 2007777703 01480 FT 077777,3,3 RPUN8001480 002722 2600273703 01490 PD TRD+3,3 3 RPUN8001490 * 002727 3000273471 01500 JC $+5,57 RPUN8001500 * 002734 3000000040 01510 TRD JC 0,32 RPUN8001510 * 002741 3000277771 01520 JC TRD1,57 7 RPUN8001520 002746 7000273743 01530 CB1 TRD+3,3 3 RPUN8001530 * 002753 3000276543 01540 JU $+10 RPUN8001540 * 002760 3000000760 01550 JD 7 TRACE ERROR RPUN8001550 002765 6000273701 01560 AC TRD+3,1 1 RPUN8001560 * 002772 3000272700 01570 J TRD-5 RPUN8001570 * 002777 3200272210 01580 TRD1 JL TRD-10,8,8 RPUN8001580 003004 4400300310 01590 SC $-1,8 RPUN8001590 * 003011 3000271000 01600 J DELY RPUN8001600 * 003016 3000301600 01610 MAKI J $ MAKE IMAGE FROM RPUN8001610 * 003023 1000340600 01620 JR CLIM CARD NO. IN X2 RPUN8001620 * 003030 3000440162 01630 JC MAKX,50 0 RPUN8001630 003035 5600005302 01640 BA1 X2,2 RPUN8001640 003042 7000564442 01650 CB1 B18,2 RPUN8001650 * 003047 3000311744 01660 JS PT1 RPUN8001660 003054 7000564642 01670 CB1 B38,2 RPUN8001670 * 003061 3000314344 01680 JS PT2 RPUN8001680 003066 7000565042 01690 CB1 B58,2 RPUN8001690 * 003073 3000330244 01700 JS PT3 RPUN8001700 003100 7000717042 01710 CB1 B80,2 RPUN8001710 * 003105 3000334544 01720 JS PT4 RPUN8001720 * 003112 3000136320 01730 JHJ START INVALID ID IN X2 RPUN8001730 003117 4400317202 01740 PT1 SC STORE+3,3,2 RPUN8001740 003124 5600555600 01750 BA1 PAT+25,0,0 RPUN8001750 003131 2600001701 01760 PD 017,1 RPUN8001760 * 003136 3000316700 01770 J STORE RPUN8001770 003143 4400317203 01780 PT2 SC STORE+3,3,3 RPUN8001780 003150 5600555500 01790 BA1 PAT+24,0,0 RPUN8001790 003155 5600564222 01800 BA2 B10,2 RPUN8001800 003162 7200005362 01810 SB2 X2,2 RPUN8001810 003167 2040610220 01820 STORE FT IMG+2,1616,2 RPUN8001820 003174 2000003022 01830 FT 24,18 RPUN8001830 003201 2400552521 01840 MOVE TFI PAT RPUN8001840 003206 6000010302 01850 AC 0103,2 RPUN8001850 * 003213 3200320106 01860 LOOPM JL MOVE,6 RPUN8001860 003220 4400321706 01870 SC $-1,6 RPUN8001870 003225 3400005300 01880 CC X2,0 RPUN8001880 * 003232 3000301642 01890 JE MAKI RPUN8001890 003237 5600005321 01900 BA2 X2,1 RPUN8001900 003244 1400003720 01910 LC 037,16 RPUN8001910 * 003251 3000326343 01920 JU $+10 RPUN8001920 003256 4400003700 01930 SC 037,0 RPUN8001930 003263 5200327421 01940 SA2 $+9,1 RPUN8001940 003270 5240610100 01950 SA1 IMG+1,0,0,2 RPUN8001950 * 003275 3000301600 01960 J MAKI RPUN8001960 003302 2000610220 01970 PT3 FT IMG+2,1616 RPUN8001970 003307 2000005622 01980 FT 46,18 RPUN8001980 003314 2400555521 01990 TFI PAT3 RPUN8001990 003321 6000010310 02000 AC 0103,8 RPUN8002000 003326 2000003022 02010 FT 24,18 RPUN8002010 003333 2400555501 02020 TFR PAT3 RPUN8002020 * 003340 3000301600 02030 J MAKI RPUN8002030 003345 5600563604 02040 PT4 BA1 PAT4+3,4,4 RPUN8002040 003352 5200610504 02050 SA1 IMG+5,4 4 RPUN8002050 003357 2000610620 02060 FT IMG+6,1616 RPUN8002060 003364 2000023622 02070 FT 158,18 RPUN8002070 003371 2400610201 02080 TFR IMG+2 RPUN8002080 * 003376 3000301600 02090 J MAKI RPUN8002090 * 003403 3000340300 02100 CLIM J $ RPUN8002100 003410 2000024722 02110 FT 167,18 RPUN8002110 003415 2000610120 02120 FT IMG+1,1616 RPUN8002120 003422 4400610000 02130 SC IMG,0 RPUN8002130 003427 2400610001 02140 TFR IMG RPUN8002140 * 003434 3000340300 02150 J CLIM RPUN8002150 * 003441 3000344100 02160 CLRPT J $ RPUN8002160 003446 2000020022 02170 FT 128,18 RPUN8002170 003453 2000570120 02180 FT PRIM+1,1,16 RPUN8002180 003460 4400570000 02190 SC PRIM,0 RPUN8002190 003465 2400570001 02200 TFR PRIM RPUN8002200 * 003472 3000344100 02210 J CLRPT RPUN8002210 * 003477 3000347700 02220 ENDF J $ END FILE RPUN8002220 003504 4400352704 02230 SC RO+4,4 RUN OUT RPUN8002230 * 003511 3007000060 02240 JD 070000 DEPRESS _END FILE_ RPUN8002240 003516 4040640000 02250 XF 064,0,0,0,2 RPUN8002250 * 003523 3200351604 02260 RO JL $-5,4 RPUN8002260 * 003530 3000347700 02270 J ENDF RPUN8002270 * 003535 3000353500 02280 SHIFT J $ SHIFT READ TO PUNCH RPUN8002280 003542 2000024022 02290 FT 160,18 RPUN8002290 003547 3400547003 02300 CC ID-1,_0_0_ RPUN8002300 * 003554 3000363142 02310 JE SH1 RPUN8002310 003561 3400547004 02320 CC ID-1,_1_1_ RPUN8002320 * 003566 3000365042 02330 JE SH2 RPUN8002330 003573 3400547005 02340 CC ID-1,_2_2_ RPUN8002340 * 003600 3000372042 02350 JE SH3 RPUN8002350 003605 3400547006 02360 CC ID-1,_3_3_ RPUN8002360 * 003612 3000403342 02370 JE SH4 RPUN8002370 * 003617 3000003360 02380 JD 033 INVALID I.D. RPUN8002380 * 003624 3000353500 02381 J SHIFT RPUN8002381 003631 2000640320 02390 SH1 FT PUNI+3,1,16 RPUN8002390 003636 2400720201 02400 TFR RDI+2 RPUN8002400 * 003643 3000353500 02410 J SHIFT RPUN8002410 003650 2600007303 02420 SH2 PD X6,3 RPUN8002420 * 003655 3000363162 02421 JC SH1,50 RPUN8002421 003662 5740722100 02430 BA1 RDI+17,0,0,6 RPUN8002430 003667 5340642000 02440 SA1 PUNI+16,6,0,6 RPUN8002440 003674 6000007320 02450 AC X6,16 RPUN8002450 * 003701 3200365512 02460 LOOPS JL SH2+5,1010 RPUN8002460 003706 4400370512 02470 SC $-1,10 RPUN8002470 * 003713 3000353500 02480 J SHIFT RPUN8002480 * 003720 3000363162 02490 SH3 JC SH1,50 XLATE RPUN8002490 003725 2000640120 02500 FT PUNI+1,1,16 RPUN8002500 003732 4400640000 02510 SC PUNI,0 RPUN8002510 003737 2400640001 02520 TFR PUNI RPUN8002520 003744 2600007710 02530 PD X7,8 RPUN8002530 003751 2017777615 02540 FT 0177776,6,X5 RPUN8002540 003756 2000731716 02550 FT RDI+79,X,X6 RPUN8002550 003763 2000652117 02560 FT PUNI+81,1,X7 RPUN8002560 003770 5740000002 02570 BRG BA1 0,2,6 RPUN8002570 003775 5360000002 02580 SA1 0,2,7 RPUN8002580 004002 7600006716 02590 AT X5,X6 RPUN8002590 004007 6000007702 02600 AC X7,2 RPUN8002600 * 004014 3200377047 02610 JL BRG,39 RPUN8002610 004021 4400402047 02620 SC $-1,39 RPUN8002620 * 004026 3000353500 02630 J SHIFT RPUN8002630 004033 2600007704 02640 SH4 PD X7,4 RPUN8002640 * 004040 3000363162 02650 JC SH1,50 RPUN8002650 004045 5760720504 02660 BA1 RDI+5,4,4,7 RPUN8002660 004052 1600001741 02670 BC4 017,1 RPUN8002670 004057 5360640704 02680 SA1 PUNI+7,4,4,7 RPUN8002680 004064 6000007704 02690 AC X7,4 RPUN8002690 * 004071 3200404050 02700 JL SH4+5,4040 RPUN8002700 004076 4400407550 02710 SC $-1,40 RPUN8002710 * 004103 3000353500 02720 J SHIFT RPUN8002720 * 004110 3000000260 02730 PASS2 JD 2 RPUN8002730 * 004115 3000412223 02740 JC $+5,19 SI 2 RPUN8002740 004122 4400436177 02750 SC LP2+4,6363 RPUN8002750 004127 2000024022 02760 FT 160,18 RPUN8002760 004134 2000640120 02770 FT PUNI+1,1,16 RPUN8002770 004141 4400640000 02780 SC PUNI,0 RPUN8002780 004146 2400640001 02790 TFR PUNI RPUN8002790 004153 2000640050 02800 FT PUNI,40 0 RPUN8002800 004160 2000670051 02810 FT WTI,41 RPUN8002810 004165 5400426467 02820 LP R2+3,06767 NO SKR RPUN8002820 004172 5400426375 02830 LP R2+2,07575 RPUN8002830 004177 4040640000 02840 XF 064,0,0,0,2 RPUN8002840 004204 4040650000 02850 R1 XF 065,0,0,0,2 RPUN8002850 004211 2000024022 02860 FT 160,18 RPUN8002860 004216 2000720020 02870 FT RDI,16 RPUN8002870 004223 2400670001 02880 TFR WTI RPUN8002880 * 004230 3000423524 02890 RST JC $+5,20 SI 3 RPUN8002890 * 004235 3000424223 02900 JC $+5,19 SI 2 RPUN8002900 004242 5600543612 02910 BA1 PRE,10 RPUN8002910 004247 5200545012 02920 SA1 TYPE,10 0 RPUN8002920 * 004254 1000271363 02930 JR DELY,51 1 RPUN8002930 004261 4040070000 02940 R2 XF 7,0,0,2 2 RPUN8002940 004266 6400426302 02950 LS R2+2,2 RPUN8002950 * 004273 3000431265 02960 JC $+15,53 3 SI 1 RESET-ERROR RPUN8002960 004300 6400426410 02970 LS R2+3,8 SEL. STACKER RPUN8002970 * 004305 3000431700 02980 J $+10 RPUN8002980 004312 5400426467 02990 LP R2+3,06767 NO SKR RPUN8002990 * 004317 1000212422 03000 JR COMP,18 8 SET SI 1 RPUN8003000 * 004324 3000432467 03010 JC $,55 SI 3 RPUN8003010 * 004331 1000354000 03020 JR SHIFT RPUN8003020 004336 2000024022 03030 FT 160,18 RPUN8003030 004343 2000720020 03040 FT RDI,16 RPUN8003040 004350 2400670001 03050 TFR WTI RPUN8003050 * 004355 3200423077 03060 LP2 JL RST,63 RPUN8003060 * 004362 3000423064 03070 JC RST,52 SS 3 RPUN8003070 * 004367 1000350226 03080 JR ENDF,22 2 SI 2 RPUN8003080 * 004374 3000136326 03090 JC START,2222 RESET SI 2 RPUN8003090 004401 2000610220 03100 MAKX FT IMG+2,1616 RPUN8003100 004406 2000011622 03110 FT 78,18 RPUN8003110 004413 2400744501 03120 TFR XPAT RPUN8003120 * 004420 3000301600 03130 J MAKI RPUN8003130 * 004425 3000442500 03140 FIX J $ RPUN8003140 004432 6400170301 03150 LS P1+3,1 RPUN8003150 004437 6400206101 03160 LS PR1+3,1 1 RPUN8003160 004444 6400420701 03170 LS R1+3,1 RPUN8003170 004451 6400426401 03180 LS R2+3,1 RPUN8003180 004456 4400235305 03190 SC LOOP1+4,4,5 RPUN8003190 004463 4400236005 03200 SC LOOP1+9,9,5 RPUN8003200 * 004470 3000442500 03210 J FIX RPUN8003210 * 004475 3000000060 03220 JD 0 RPUN8003220 004504 000500 03230 +3 0500 RPUN8003230 * 004505 3000000025 03240 JC 0,21 RPUN8003240 004514 004515 03250 CL12 +3 IPT2 RPUN8003250 * 004515 3000452754 03260 IPT2 JC $+10,44 4 RPUN8003260 * 004522 3002222260 03270 JD 022222 DOF RPUN8003270 * 004527 3000453450 03280 JC $+5,40 RPUN8003280 * 004534 3000454116 03290 JC $+5,016 6 RPUN8003290 * 004541 3000136335 03300 JC START,03035 RPUN8003300 * 004546 3000000031 03310 JC 0,031 RPUN8003310 004555 004556 03320 IE0 +3 INT0 RPUN8003320 004556 4000003000 03330 INT0 XF 0,03000,0,0,0 RPUN8003330 * 004563 3000457553 03340 JC $+10,05353 RPUN8003340 * 004570 3000002560 03350 JD 025 PRINTER ERROR RPUN8003350 004575 4000407777 03360 XF 32,0777777,0,0 RPUN8003360 * 004602 3000040000 03370 J 0400 RPUN8003370 * 004607 3000000031 03380 JC 0,031 RPUN8003380 004616 004617 03390 IE2 +3 INT2 RPUN8003390 004617 4040007700 03400 INT2 XF 0,07700,0,0,2 RPUN8003400 * 004624 3000470153 03410 JC ABN,053 3 RPUN8003410 004631 4040000040 03420 XF 0,00040,0,0,2 RPUN8003420 * 004636 3000465053 03430 JC $+10,05353 RPUN8003430 * 004643 3000042027 03440 JC 0420,23 3 SI 3 RPUN8003440 004650 5600541212 03450 BA1 HOLCT,1010 RPUN8003450 * 004655 1000523366 03460 JR IND6,54 4 RPUN8003460 004662 5200545012 03470 SA1 TYPE,10 0 RPUN8003470 004667 4040400040 03480 XF 32,0004040,0,2 RPUN8003480 * 004674 3000042027 03490 JC 0420,23 3 RPUN8003490 004701 2600007703 03500 ABN PD X7,3 RPUN8003500 * 004706 1000344400 03510 JR CLRPT RPUN8003510 004713 4040004000 03520 XF 0,04000,0,0,2 RPUN8003520 * 004720 1000503653 03530 JR IND1,05353 RPUN8003530 004725 4040002000 03540 XF 0,02000,0,0,2 RPUN8003540 * 004732 1000506753 03550 JR IND2,05353 RPUN8003550 004737 4040001000 03560 XF 0,01000,0,0,2 RPUN8003560 * 004744 1000512053 03570 JR IND3,05353 RPUN8003570 004751 4040000200 03580 XF 0,00200,0,0,2 RPUN8003580 * 004756 1000515153 03590 JR IND4,05353 RPUN8003590 004763 4040000100 03600 XF 0,00100,0,0,2 RPUN8003600 * 004770 1000520253 03610 JR IND5,05353 RPUN8003610 * 004775 3000007460 03620 JD 074 PUNCH ERROR RPUN8003620 005002 4040407777 03630 XF 32,0777777,0,2 RPUN8003630 * 005007 3000501431 03640 JC $+5,031 1 RPUN8003640 * 005014 3000502666 03650 JC $+10,54 4 SI 2-TEST 2 RPUN8003650 * 005021 3000156527 03660 JC PASS1+5,5,23 RPUN8003660 * 005026 3000420427 03670 JC R1,23 RPUN8003670 * 005033 3000503300 03680 IND1 J $ RPUN8003680 005040 5600530000 03690 BA1 ER1,0 RPUN8003690 005045 5200571700 03700 SA1 PRIM+15,5,0 RPUN8003700 * 005052 1000261700 03710 JR PRNT RPUN8003710 * 005057 3000503300 03720 J IND1 RPUN8003720 * 005064 3000506400 03730 IND2 J $ RPUN8003730 005071 5600532000 03740 BA1 ER2,0 RPUN8003740 005076 5200571700 03750 SA1 PRIM+15,5,0 RPUN8003750 * 005103 1000261700 03760 JR PRNT RPUN8003760 * 005110 3000506400 03770 J IND2 RPUN8003770 * 005115 3000511500 03780 IND3 J $ RPUN8003780 005122 5600534000 03790 BA1 ER3,0 RPUN8003790 005127 5200571700 03800 SA1 PRIM+15,5,0 RPUN8003800 * 005134 1000261700 03810 JR PRNT RPUN8003810 * 005141 3000511500 03820 J IND3 RPUN8003820 * 005146 3000514600 03830 IND4 J $ RPUN8003830 005153 5600536000 03840 BA1 ER4,0 RPUN8003840 005160 5200571700 03850 SA1 PRIM+15,5,0 RPUN8003850 * 005165 1000261700 03860 JR PRNT RPUN8003860 * 005172 3000514600 03870 J IND4 RPUN8003870 * 005177 3000517700 03880 IND5 J $ RPUN8003880 005204 5600540000 03890 BA1 ER5,0 RPUN8003890 005211 5200571700 03900 SA1 PRIM+15,5,0 RPUN8003900 * 005216 1000261700 03910 JR PRNT RPUN8003910 * 005223 3000517700 03920 J IND5 RPUN8003920 * 005230 3000523000 03930 IND6 J $ RPUN8003930 * 005235 1000344400 03940 JR CLRPT RPUN8003940 005242 5200571712 03950 SA1 PRIM+15,5,10 RPUN8003950 * 005247 1000261700 03960 JR PRNT RPUN8003960 * 005254 3000523000 03970 J IND6 RPUN8003970 005300 MEM. OVRLD ANT. 03980 ER1 +16 _MEM. OVOVRLD ANT. _ RPUN8003980 T 005320 UNIT BUSY 03990 ER2 +16 _UNIT BUBUSY _ RPUN8003990 005340 ABNORMAL 04000 ER3 +16 _ABNORMAMAL _ RPUN8004000 005360 CONT. PARITY ERR 04010 ER4 +16 _CONT. P PARITY ERR_ RPUN8004010 E 005400 MEM. PARITY ERR 04020 ER5 +16 _MEM. PAPARITY ERR _ RPUN8004020 R 005412 HOLE COUNT 04030 HOLCT +10 _HOLE COCOUNT_ RPUN8004030 005424 POST READ 04040 POST +10 _POST REREAD _ RPUN8004040 005436 PRE READ 04050 PRE +10 _PRE REAEAD _ RPUN8004050 000047 04060 X1 EQU 047 RPUN8004060 000053 04070 X2 EQU 053 RPUN8004070 000057 04080 X3 EQU 057 RPUN8004080 000063 04090 X4 EQU 063 RPUN8004090 000067 04100 X5 EQU 067 RPUN8004100 000073 04110 X6 EQU 073 RPUN8004110 000077 04120 X7 EQU 077 RPUN8004120 005437 04130 ERRC EQU $ RPUN8004130 005450 0000000000000000 04140 TYPE +10 0 RPUN8004140 005456 ERROR 04150 +6 _ ERROR_R_ RPUN8004150 005471 CARD NO 04160 ID +11 _ CARD N NO _ RPUN8004160 005501 COL 04170 COL +8 _ COL _ RPUN8004170 005504 - 04180 +3 _ - _ RPUN8004180 005512 WAS 04190 READ +6 _WAS _ _ RPUN8004190 005524 SHD BE 04200 EXPT +10 _ SHD BEBE _ RPUN8004200 005525 04210 PAT EQU $ RPUN8004210 005534 7700370017000700 04220 +8 0770037070017000700 RPUN8004220 7 005544 0300010001000300 04230 +8 0030001010001000300 RPUN8004230 3 005554 0700170037007700 04240 +8 0070017070037007700 RPUN8004240 7 005555 04250 PAT3 EQU $ RPUN8004250 005564 0001000300070017 04260 +8 0000100000300070017 RPUN8004260 0 005574 0037007701770377 04270 +8 0003700707701770377 RPUN8004270 3 005604 0777177737777777 04280 +8 0077717777737777777 RPUN8004280 7 005614 3777177707770377 04290 +8 0377717777707770377 RPUN8004290 3 005624 0177007700370017 04300 +8 0017700707700370017 RPUN8004300 0 005632 000700030001 04310 +6 000070000030001 RPUN8004310 005633 04320 PAT4 EQU $ RPUN8004320 005636 25250000 04330 +4 02525000000 RPUN8004330 005640 0303 04340 B3 +2 00303 RPUN8004340 005642 0024 04350 B10 +2 20 RPUN8004350 005644 0024 04360 B18 +2 20 RPUN8004360 005646 0050 04370 B38 +2 40 RPUN8004370 005650 0074 04380 B58 +2 60 RPUN8004380 005700 04390 ORIG $,64 RPUN8004390 005700 04400 PRIM EQU $ RPUN8004400 005700 200 04410 AREA 128,B,0 0 RPUN8004410 006100 04420 IMG EQU $ RPUN8004420 006100 245 04430 AREA 165,B,0 0 RPUN8004430 006400 04440 ORIG $,64 RPUN8004440 006400 04450 PUNI EQU $ RPUN8004450 006400 245 04460 AREA 165,B,0 0 RPUN8004460 006700 04470 ORIG $,64 RPUN8004470 006700 04480 WTI EQU $ RPUN8004480 006700 245 04490 AREA 165,B,0 0 RPUN8004490 007156 INVALID ID 04500 IDERR +10 _INVALIDID ID_ RPUN8004500 007160 0000 04510 BLNK +2 0 RPUN8004510 007162 00 04520 D0 +2 _00_ RPUN8004520 007164 01 04530 D1 +2 _01_ RPUN8004530 007166 00 04540 CDNO +2 _00_ RPUN8004540 007170 0120 04550 B80 +2 80 RPUN8004550 007200 04560 ORIG $,64 RPUN8004560 007200 04570 RDI EQU $ RPUN8004570 007200 245 04580 AREA 165,B,0 0 RPUN8004580 007445 04590 XPAT EQU $ RPUN8004590 007464 A B C D E F G H 04600 +16 _A B C D D E F G H _ RPUN8004600 007504 I J K L M N O P 04610 +16 _I J K L L M N O P _ RPUN8004610 007524 Q R S T U V W X 04620 +16 _Q R S T T U V W X _ RPUN8004620 007544 Y Z 1 2 3 4 5 6 04630 +16 _Y Z 1 2 2 3 4 5 6 _ RPUN8004630 007562 7 8 9 0 + . - 04640 +14 _7 8 9 0 0 + . - _ RPUN8004640 3000136300 04650 END START RPUN8004650 {-- tape mark --} 010647 C521 RPUN90 CODEDIT SOURCE - T3834394-52 001363 00010 T520 BEGIN 01363 RPUN9000010 *LOAD 0700,TAPAPE,R,PRELD E * 001363 3007010660 * JD 070106 * * 001370 3000136300 * J $-5 * SEGMENT-ID T521 3000136300 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T522 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2000111611 * FT 0700+021216,9,0 * 000457 2000070060 * FT 0700,48,8,0 * 000464 2000024261 * FT 162,49 * * 000471 3000053000 * J 0530 * 000477 0000 * +2 0 * * 000500 3000000020 * JC 0,16 * 000507 000440 * +3 0440 * * 000510 3000000020 * JC 0,16 * 000517 000510 * +3 0510 * * 000520 3000052020 * JHJ $ * 000527 000440 * +3 0440 * 000530 5600052710 * BA1 $-1,8 * 000535 5200044710 * SA1 0447,8 * 000542 4100610100 * XF 061,010000,0,4 * 000547 2000111660 * FT 0700+021216,48,0 * 000554 2000024261 * FT 162,49 * 000561 4100610100 * XF 061,010000,0,4 * * 000566 3200056102 * JL $-5,2 * 000573 2000000103 * FT 1,3 * * 000600 3000074000 * J 0700+04040,0 * 000740 * ORIG 0700+04040 * 000740 4100610100 * XF 061,010000,0,4 * 000745 6000001701 * AC 15,1 * 000752 3420022211 * CC 146,9,1 1 * * 000757 3000106542 * JE $+70 * 000764 2600004104 * PD 041,4 * 000771 3620021700 * CS 143,0,1 1 * 000776 3620011700 * CS 79,0,1 * 001003 3620001712 * CS 15,10,1 1 * 001010 1600004166 * BC2 041,6 * 001015 3620022102 * CS 145,2,1 1 * 001022 7000004162 * CB2 041,2 * * 001027 3000104142 * JE $+10 * * 001034 3007010460 * JD 070104 * 001041 4620003520 * BT 29,16,1 1 * 001046 4620003722 * BT 31,18,1 1 * 001053 2420004001 * TFR 32,,1 * * 001060 3000074000 * J $-80 * 001065 4100640000 * XF 064,0,0,0,4 * 001072 7020004642 * CB1 38,2,1 * * 001077 3020004042 * JE 32,1 * * 001104 3007010560 * JD 070105 * * 001111 3020004000 * J 32,1 * 001116 245 * AREA 165 * SEGMENT-ID T523 3000136300 * SEGJP $ * 001363 00020 ORIG 01363 RPUN9000020 001363 5600467700 00030 START BA1 CL12,0 RPUN9000030 001370 5200051700 00040 SA1 0517,0 RPUN9000040 001375 5600500110 00050 BA1 IE2,8 RPUN9000050 001402 5200042710 00060 SA1 0427,8 RPUN9000060 001407 5600474010 00070 BA1 IE0,8 RPUN9000070 001414 5200040710 00080 SA1 0407,8 RPUN9000080 * 001421 3000142627 00090 JC $+5,23 RPUN9000090 001426 4400210677 00100 SC LP0+4,6363 RPUN9000100 001433 2600006703 00110 PD X5,3 RPUN9000110 * 001440 3000000060 00120 JD 0 TRACE 02 FOR PASS 2 RPUN9000120 001445 4400246610 00130 SC LOOP1+4,4,8 RPUN9000130 001452 2600146703 00140 PD TRZ+3,3 3 RPUN9000140 * 001457 3000146471 00150 JC $+5,57 RPUN9000150 * 001464 3000000040 00160 TRZ JC 0,32 RPUN9000160 * 001471 3000152271 00170 JC TRZ1,57 7 RPUN9000170 001476 3400146707 00180 CC TRZ+3,7 7 NO TRACE SEL. RPUN9000180 * 001503 3000153442 00190 JE PASS1 RPUN9000190 001510 6000146701 00200 AC TRZ+3,1 1 RPUN9000200 * 001515 3000145700 00210 J TRZ-5 RPUN9000210 001522 3400146702 00220 TRZ1 CC TRZ+3,2 2 RPUN9000220 * 001527 3000433642 00230 JE PASS2 RPUN9000230 * 001534 3000000160 00240 PASS1 JD 1 RPUN9000240 001541 2000720051 00250 FT RDI,41 RPUN9000250 001546 4040641000 00260 XF 064,0100000,0,2 RPUN9000260 * 001553 3200154602 00270 JL $-5,2 RPUN9000270 001560 4400155702 00280 SC $-1,2 RPUN9000280 * 001565 1000213100 00290 JR CKRD RPUN9000290 001572 2600005310 00300 PD X2,8 RPUN9000300 001577 5600604702 00310 BA1 D0,2 RPUN9000310 001604 5200605302 00320 SA1 CDNO,2 RPUN9000320 * 001611 1000320400 00330 JR MAKI RPUN9000330 001616 2000660020 00340 FT PUNI,16 6 RPUN9000340 001623 2000020022 00350 FT 128,18 RPUN9000350 001630 2400620001 00360 TFR IMG RPUN9000360 001635 5600605302 00370 BA1 CDNO,2 RPUN9000370 001642 5320665501 00380 SA1 PUNI+45,5,1,X5 RPUN9000380 001647 5600001601 00390 BA1 016,1 RPUN9000390 001654 5200660001 00400 SA1 PUNI,1 RPUN9000400 001661 2000660050 00410 FT PUNI,40 0 RPUN9000410 001666 4400205040 00420 SC PR1-11,3,32 RPUN9000420 001673 4040661000 00430 P1 XF 066,0100000,0,2 RPUN9000430 001700 6000004702 00440 AC X1,2 RPUN9000440 001705 5600605102 00450 BA1 D1,2 RPUN9000450 001712 6200605302 00460 AM1 CDNO,2 RPUN9000460 001717 5600004702 00470 BA1 X1,2 RPUN9000470 001724 7000605542 00480 CB1 B80,2 RPUN9000480 * 001731 3000175043 00490 JU $+15 RPUN9000490 001736 2600605322 00500 PD0 CDNO,2 RPUN9000500 001743 2600004703 00510 PD X1,3 RPUN9000510 001750 5600004703 00520 BA1 X1,3 RPUN9000520 001755 5200005303 00530 SA1 X2,3 RPUN9000530 * 001762 1000320400 00540 JR MAKI RPUN9000540 * 001767 3000176767 00550 JC $,55 SI 3 RPUN9000550 001774 2000660020 00560 FT PUNI,16 6 RPUN9000560 002001 2000020022 00570 FT 128,18 RPUN9000570 002006 2400620001 00580 TFR IMG RPUN9000580 002013 5600605302 00590 BA1 CDNO,2 RPUN9000590 002020 5320665501 00600 SA1 PUNI+45,5,1,X5 RPUN9000600 002025 5600001601 00610 BA1 016,1 RPUN9000610 002032 5200660001 00620 SA1 PUNI,1 RPUN9000620 * 002037 3000204424 00630 JC $+5,20 SI 3 RPUN9000630 * 002044 1000221300 00640 JR COMP RPUN9000640 002051 5600560712 00650 BA1 POST,10 0 SET ERROR PRNT RPUN9000650 002056 5200563312 00660 SA1 TYPE,10 0 RPUN9000660 002063 4040070000 00670 PR1 XF 7,0,0,2 2 RPUN9000670 002070 4400205000 00680 SC PR1-11,0,0 RPUN9000680 * 002075 1000307663 00690 JR DELY,51 1 SS 2 RPUN9000690 * 002102 3200170077 00700 LP0 JL P1+5,63 3 RPUN9000700 * 002107 3000170064 00710 JC P1+5,52 2 SS 3 RPUN9000710 * 002114 1000400000 00720 JR ENDF RPUN9000720 * 002121 3000433600 00730 J PASS2 RPUN9000730 * 002126 3000212600 00740 CKRD J $ RPUN9000740 002133 2600001730 00750 PD0 15,8 RPUN9000750 002140 2600727730 00760 PD0 RDI+63,8,8 RPUN9000760 002145 4040651000 00770 XF 065,0100000,0,2 RPUN9000770 002152 7000727750 00780 CB1 RDI+63,8,8 RPUN9000780 * 002157 3000217643 00790 JU $+15 RPUN9000790 002164 2000002315 00800 FT 19,X5 RPUN9000800 002171 4400270240 00810 SC SW2+4,3232 RPUN9000810 002176 2600727710 00820 PD RDI+63,8,8 RPUN9000820 * 002203 3000212600 00830 J CKRD RPUN9000830 * 002210 3000221000 00840 COMP J $ RPUN9000840 002215 2600005303 00850 PD X2,3 RPUN9000850 002222 5600720102 00860 BA1 RDI+1,2 2 RPUN9000860 002227 5720725501 00870 BA1 RDI+45,1,1,X5 RPUN9000870 002234 7000604542 00880 CB1 BLNK,2 RPUN9000880 * 002241 3000230443 00890 JU $+35 RPUN9000890 * 002246 1000374200 00900 JR CLRPT RPUN9000900 002253 5600604332 00910 BA2 IDERR,1010 RPUN9000910 002260 5200741132 00920 SA2 PRIM+9,1,10 RPUN9000920 * 002265 1000300200 00930 JR PRNT RPUN9000930 * 002272 3000007060 00940 JD 070 NO I. D. RPUN9000940 * 002277 3000221000 00950 J COMP RPUN9000950 002304 5200565402 00960 SA1 ID,2 RPUN9000960 002311 2600001501 00970 PD 015,1 DEC. TO BINARY RPUN9000970 002316 5600602122 00980 BA2 B3,2 CARD NO. TO X2 RPUN9000980 002323 7200001762 00990 SB2 017,2 -3 RPUN9000990 002330 5200004002 01000 SA1 040,2 RPUN9001000 002335 7200001621 01010 AB2 016,1 RPUN9001010 * 002342 3200233511 01020 JL $-5,9 RPUN9001020 002347 4400234611 01030 SC $-1,9 RPUN9001030 002354 7200001601 01040 AB1 016,1 RPUN9001040 002361 5600001602 01050 BA1 016,2 RPUN9001050 002366 7200001702 01060 AB1 017,2 DOUBLE RPUN9001060 002373 5200005302 01070 SA1 X2,2 RPUN9001070 * 002400 1000320400 01080 JR MAKI RPUN9001080 002405 2600720001 01090 PD RDI,1 RPUN9001090 002412 2720725501 01100 PD RDI+45,1,1,X5 RPUN9001100 002417 2600625703 01110 PD IMG+47,3,3 RPUN9001110 002424 2720633403 01120 PD IMG+92,3,3,X5 RPUN9001120 002431 2600005703 01130 PD X3,3 RPUN9001130 002436 5660621700 01140 CMP1 BA1 IMG+15,0,0,3 RPUN9001140 002443 7060721740 01150 CB1 RDI+15,0,0,3 RPUN9001150 * 002450 1000250443 01160 JR LOK,043 3 RPUN9001160 002455 6000005720 01170 AC X3,16 RPUN9001170 * 002462 3200243610 01180 LOOP1 JL CMP1,8 RPUN9001180 002467 4400246610 01190 SC LOOP1+4,4,8 RPUN9001190 * 002474 3000221000 01200 J COMP RPUN9001200 * 002501 3000250100 01210 LOK J $ RPUN9001210 002506 4400255020 01220 SC LOOP2+4,4,16 RPUN9001220 002513 4600005714 01230 BT X3,X4 RPUN9001230 002520 5700720001 01240 CMP2 BA1 RDI,1,4 4 RPUN9001240 002525 7100620041 01250 CB1 IMG,1,4 4 RPUN9001250 * 002532 3000256343 01260 JU CMPE RPUN9001260 002537 6000006301 01270 AC X4,1 RPUN9001270 * 002544 3200252020 01280 LOOP2 JL CMP2,16 6 RPUN9001280 002551 2600006303 01290 PD X4,3 RPUN9001290 * 002556 3000250125 01300 JC LOK,21 RPUN9001300 * 002563 1000303300 01310 CMPE JR OTOD CHAR. READ RPUN9001310 002570 5200567502 01320 SA1 READ,2 RPUN9001320 002575 5700620001 01330 BA1 IMG,1,4 4 RPUN9001330 * 002602 1000303300 01340 JR OTOD CHAR. EXPECTED RPUN9001340 002607 5200570702 01350 SA1 EXPT,2 RPUN9001350 002614 6000006301 01360 AC X4,1 RPUN9001360 002621 5600605123 01370 BA2 D1,3 RPUN9001370 002626 5600006302 01380 BA1 X4,2 RPUN9001380 002633 2600566423 01390 PD0 COL,3 RPUN9001390 002640 2600017702 01400 PD 0177,2 RPUN9001400 002645 7000017742 01410 BTOD CB1 0177,2 BINARY TO DEC. RPUN9001410 * 002652 3000267642 01420 JE $+20 COL. NO. RPUN9001420 002657 6200566423 01430 AM2 COL,3 RPUN9001430 002664 6000017701 01440 AC 0177,1 RPUN9001440 * 002671 3000264500 01450 J BTOD RPUN9001450 * 002676 3000274100 01460 SW2 JC PAD,0 RPUN9001460 002703 3400566204 01470 CC COL-2,4 4 RPUN9001470 * 002710 3000272742 01480 JE $+15 RPUN9001480 002715 3400566311 01490 CC COL-1,_6_6_ RPUN9001490 * 002722 3000274141 01500 JG PAD RPUN9001500 002727 5600606003 01510 BA1 D19,3 RPUN9001510 002734 6200566443 01520 SM1 COL,3 RPUN9001520 002741 2600566201 01530 PAD PD COL-2,1 1 RPUN9001530 002746 2000740020 01540 FT PRIM,16 6 RPUN9001540 002753 2000006622 01550 FT 54,18 RPUN9001550 002760 2400562201 01560 TFR ERRC RPUN9001560 * 002765 1000300200 01570 JR PRNT RPUN9001570 * 002772 3000254400 01580 J LOOP2 RPUN9001580 * 002777 3000277700 01590 PRNT J $ RPUN9001590 003004 2000740040 01600 FT PRIM,32 2 RPUN9001600 003011 4400020705 01610 SC 0207,5 RPUN9001610 003016 4000620000 01620 XF 062,0,0,0,0 RPUN9001620 * 003023 3000277700 01630 J PRNT RPUN9001630 * 003030 3000303000 01640 OTOD J $ OCTAL TO DECIMAL RPUN9001640 003035 2600001601 01650 PD 016,1 LOC. 017 RPUN9001650 003042 1600001723 01660 BS2 017,3 RPUN9001660 003047 1600001753 01670 BC1 017,3 RPUN9001670 003054 6000001603 01680 AC 016,3 RPUN9001680 003061 6000001703 01690 AC 017,3 RPUN9001690 * 003066 3000303000 01700 J OTOD RPUN9001700 * 003073 3000307300 01710 DELY J $ TRACE DELAY SS 2 RPUN9001710 003100 2007777703 01720 FT 077777,3,3 RPUN9001720 003105 2600312203 01730 PD TRD+3,3 3 RPUN9001730 * 003112 3000311771 01740 JC $+5,57 RPUN9001740 * 003117 3000000040 01750 TRD JC 0,32 RPUN9001750 * 003124 3000316271 01760 JC TRD1,57 7 RPUN9001760 003131 7000312243 01770 CB1 TRD+3,3 3 RPUN9001770 * 003136 3000315043 01780 JU $+10 RPUN9001780 * 003143 3000000760 01790 JD 7 TRACE ERROR RPUN9001790 003150 6000312201 01800 AC TRD+3,1 1 RPUN9001800 * 003155 3000311200 01810 J TRD-5 RPUN9001810 * 003162 3200310510 01820 TRD1 JL TRD-10,8,8 RPUN9001820 003167 4400316610 01830 SC $-1,8 RPUN9001830 * 003174 3000307300 01840 J DELY RPUN9001840 * 003201 3000320100 01850 MAKI J $ MAKE IMAGE FROM RPUN9001850 * 003206 1000370400 01860 JR CLIM CARD NO. IN X2 RPUN9001860 003213 5600005302 01870 BA1 X2,2 RPUN9001870 003220 7000602542 01880 CB1 B18,2 RPUN9001880 * 003225 3000327544 01890 JS PT1 RPUN9001890 003232 7000602742 01900 CB1 B38,2 RPUN9001900 * 003237 3000335744 01910 JS PT2 RPUN9001910 003244 7000603142 01920 CB1 B58,2 RPUN9001920 * 003251 3000356644 01930 JS PT3 RPUN9001930 003256 7000605542 01940 CB1 B80,2 RPUN9001940 * 003263 3000362444 01950 JS PT4 RPUN9001950 * 003270 3000136320 01960 JHJ START INVALID ID IN X2 RPUN9001960 003275 2000620103 01970 PT1 FT IMG+1,3 3 RPUN9001970 003302 5200345102 01980 SA1 STORE+3,3,2 RPUN9001980 003307 2000620003 01990 FT IMG,3 RPUN9001990 003314 5200355702 02000 SA1 WRAP+3,2,2 RPUN9002000 003321 2000630203 02010 FT IMG+66,3,3 RPUN9002010 003326 5200350202 02020 SA1 PAD1+3,2,2 RPUN9002020 003333 2000626303 02030 FT IMG+51,3,3 RPUN9002030 003340 5200350702 02040 SA1 PAD2+3,2,2 RPUN9002040 003345 5600573700 02050 BA1 PAT+23,0,0 RPUN9002050 * 003352 3000344600 02060 J STORE RPUN9002060 003357 2120625603 02070 PT2 FT IMG+46,3,3,5 RPUN9002070 003364 5200345102 02080 SA1 STORE+3,3,2 RPUN9002080 003371 2120625503 02090 FT IMG+45,3,3,X5 RPUN9002090 003376 5200355702 02100 SA1 WRAP+3,2,2 RPUN9002100 003403 2120635703 02110 FT IMG+45+6+66,3,X5 RPUN9002110 003410 5200350202 02120 SA1 PAD1+3,2,2 RPUN9002120 003415 2120634003 02130 FT IMG+45+5+51,3,X5 RPUN9002130 003422 5200350702 02140 SA1 PAD2+3,2,2 RPUN9002140 003427 5600573700 02150 BA1 PAT+23,0,0 RPUN9002150 003434 5600602322 02160 BA2 B10,2 RPUN9002160 003441 7200005362 02170 SB2 X2,2 RPUN9002170 003446 2040620220 02180 STORE FT IMG+2,1616,2 RPUN9002180 003453 2000003022 02190 FT 24,18 RPUN9002190 003460 2400571021 02200 MOVE TFI PAT RPUN9002200 * 003465 3200346002 02210 LOOPM JL MOVE,2 RPUN9002210 003472 4400347102 02220 SC $-1,2 RPUN9002220 003477 2600000000 02230 PAD1 PD 0,0 RPUN9002230 003504 2600000007 02240 PAD2 PD 0,7 RPUN9002240 003511 3400005300 02250 CC X2,0 RPUN9002250 * 003516 3000320142 02260 JE MAKI RPUN9002260 003523 5600005321 02270 BA2 X2,1 RPUN9002270 003530 1400003720 02280 LC 037,16 RPUN9002280 * 003535 3000354743 02290 JU $+10 RPUN9002290 003542 4400003700 02300 SC 037,0 RPUN9002300 003547 5200356021 02310 SA2 $+9,1 RPUN9002310 003554 5240620000 02320 WRAP SA1 IMG,0,2 2 RPUN9002320 * 003561 3000320100 02330 J MAKI RPUN9002330 003566 2000620120 02340 PT3 FT IMG+1,1616 RPUN9002340 003573 2000002622 02350 FT 22,18 RPUN9002350 003600 2400574001 02360 TFR PAT2 RPUN9002360 003605 2120625620 02370 FT IMG+46,1,16,X5 RPUN9002370 003612 2400576601 02380 TFR PAT3 RPUN9002380 * 003617 3000320100 02390 J MAKI RPUN9002390 003624 5600601704 02400 PT4 BA1 PAT4+3,4,4 RPUN9002400 003631 5200620404 02410 SA1 IMG+4,4 4 RPUN9002410 003636 2000620520 02420 FT IMG+5,1616 RPUN9002420 003643 2000005022 02430 FT 40,18 RPUN9002430 003650 2400620101 02440 TFR IMG+1 RPUN9002440 003655 2000005422 02450 FT 44,18 RPUN9002450 003662 2120625620 02460 FT IMG+46,1,16,X5 RPUN9002460 003667 2400620101 02470 TFR IMG+1 RPUN9002470 * 003674 3000320100 02480 J MAKI RPUN9002480 * 003701 3000370100 02490 CLIM J $ RPUN9002490 003706 2000020022 02500 FT 128,18 RPUN9002500 003713 2000620120 02510 FT IMG+1,1616 RPUN9002510 003720 4400620000 02520 SC IMG,0 RPUN9002520 003725 2400620001 02530 TFR IMG RPUN9002530 * 003732 3000370100 02540 J CLIM RPUN9002540 * 003737 3000373700 02550 CLRPT J $ RPUN9002550 003744 2000020022 02560 FT 128,18 RPUN9002560 003751 2000740120 02570 FT PRIM+1,1,16 RPUN9002570 003756 4400740000 02580 SC PRIM,0 RPUN9002580 003763 2400740001 02590 TFR PRIM RPUN9002590 * 003770 3000373700 02600 J CLRPT RPUN9002600 * 003775 3000377500 02610 ENDF J $ END FILE RPUN9002610 004002 4400402504 02620 SC RO+4,4 RUN OUT RPUN9002620 * 004007 3007000060 02630 JD 070000 DEPRESS _END FILE_ RPUN9002630 004014 4040640000 02640 XF 064,0,0,0,2 RPUN9002640 * 004021 3200401404 02650 RO JL $-5,4 RPUN9002650 * 004026 3000377500 02660 J ENDF RPUN9002660 * 004033 3000403300 02670 SHIFT J $ SHIFT READ TO PUNCH RPUN9002670 004040 2000017722 02680 FT 127,18 RPUN9002680 004045 2000660120 02690 FT PUNI+1,1,16 RPUN9002690 004052 4400660000 02700 SC PUNI,0 RPUN9002700 004057 2400660001 02710 TFR PUNI RPUN9002710 004064 2000005422 02720 FT 44,18 RPUN9002720 004071 3400565303 02730 CC ID-1,_0_0_ RPUN9002730 * 004076 3000415342 02740 JE SH1 RPUN9002740 004103 3400565304 02750 CC ID-1,_1_1_ RPUN9002750 * 004110 3000417242 02760 JE SH2 RPUN9002760 004115 3400565305 02770 CC ID-1,_2_2_ RPUN9002770 * 004122 3000421142 02780 JE SH3 RPUN9002780 004127 3400565306 02790 CC ID-1,_3_3_ RPUN9002790 * 004134 3000424742 02800 JE SH4 RPUN9002800 * 004141 3000003360 02810 JD 033 INVALID I.D. RPUN9002810 * 004146 3000403300 02820 J SHIFT RPUN9002820 004153 2120665620 02830 SH1 FT PUNI+46,6,16,X5 RPUN9002830 004160 2400720101 02840 TFR RDI+1 RPUN9002840 * 004165 3000403300 02850 J SHIFT RPUN9002850 004172 2000660120 02860 SH2 FT PUNI+1,1,16 RPUN9002860 004177 2520725601 02870 TFR RDI+46, , ,X5 RPUN9002870 * 004204 3000403300 02880 J SHIFT RPUN9002880 004211 2000002622 02890 SH3 FT 22,18 RPUN9002890 004216 2000662720 02900 FT PUNI+23,3,16 RPUN9002900 004223 2400720101 02910 TFR RDI+1 RPUN9002910 004230 2120670420 02920 FT PUNI+45+5+23,16,X5 RPUN9002920 X 004235 2520725601 02930 TFR RDI+46, , ,X5 RPUN9002930 * 004242 3000403300 02940 J SHIFT RPUN9002940 004247 2600007704 02950 SH4 PD X7,4 RPUN9002950 004254 5760720404 02960 BA1 RDI+4,4,4,7 RPUN9002960 004261 1600001741 02970 BC4 017,1 RPUN9002970 004266 5360660504 02980 SA1 PUNI+5,4,4,7 RPUN9002980 004273 6000007704 02990 AC X7,4 RPUN9002990 * 004300 3200425413 03000 JL SH4+5,1111 RPUN9003000 004305 4400430413 03010 SC $-1,11 RPUN9003010 004312 2120005517 03020 FT 45,X7,X5X5 RPUN9003020 * 004317 3200425402 03030 JL SH4+5,2 2 RPUN9003030 004324 4400432302 03040 SC $-1,2 RPUN9003040 * 004331 3000403300 03050 J SHIFT RPUN9003050 * 004336 3000000260 03060 PASS2 JD 2 RPUN9003060 * 004343 3000435023 03070 JC $+5,19 SI 2 RPUN9003070 004350 4400462677 03080 SC LP2+4,6363 RPUN9003080 004355 4400464503 03090 SC LP21+4,3,3 RPUN9003090 004362 4400457000 03100 SC SW1+4,0 0 RPUN9003100 004367 2000017722 03110 FT 127,18 RPUN9003110 004374 2000660120 03120 FT PUNI+1,1,16 RPUN9003120 004401 4400660000 03130 SC PUNI,0 RPUN9003130 004406 2400660001 03140 TFR PUNI RPUN9003140 004413 2000660050 03150 FT PUNI,40 0 RPUN9003150 004420 2000700051 03160 FT WTI,41 RPUN9003160 004425 5400452467 03170 LP R2+3,06767 NO SKR RPUN9003170 004432 5400452375 03180 LP R2+2,07575 RPUN9003180 * 004437 1000213100 03190 JR CKRD RPUN9003190 004444 4040650000 03200 R1 XF 065,0,0,0,2 RPUN9003200 004451 2000020022 03210 FT 128,18 RPUN9003210 004456 2000720020 03220 FT RDI,16 RPUN9003220 004463 2400700001 03230 TFR WTI RPUN9003230 * 004470 3000447524 03240 RST JC $+5,20 SI 3 RPUN9003240 * 004475 3000450223 03250 JC $+5,19 SI 2 RPUN9003250 004502 5600562112 03260 BA1 PRE,10 RPUN9003260 004507 5200563312 03270 SA1 TYPE,10 0 RPUN9003270 * 004514 1000307663 03280 JR DELY,51 1 RPUN9003280 004521 4040070000 03290 R2 XF 7,0,0,2 2 RPUN9003290 004526 6400452302 03300 LS R2+2,2 RPUN9003300 * 004533 3000455265 03310 JC $+15,53 3 SI 1 RESET-ERROR RPUN9003310 004540 6400452410 03320 LS R2+3,8 SEL. STACKER RPUN9003320 * 004545 3000455700 03330 J $+10 RPUN9003330 004552 5400452467 03340 LP R2+3,06767 NO SKR RPUN9003340 * 004557 3000456422 03350 JC $+5,18 RPUN9003350 * 004564 1000221300 03360 SW1 JR COMP,0 RPUN9003360 * 004571 3000457167 03370 JC $,55 SI 3 RPUN9003370 * 004576 1000403600 03380 JR SHIFT RPUN9003380 004603 2000020022 03390 FT 128,18 RPUN9003390 004610 2000720020 03400 FT RDI,16 RPUN9003400 004615 2400700001 03410 TFR WTI RPUN9003410 * 004622 3200447077 03420 LP2 JL RST,63 RPUN9003420 * 004627 3000447064 03430 JC RST,52 SS 3 RPUN9003430 004634 4400457040 03440 SC SW1+4,3232 RPUN9003440 * 004641 3200447003 03450 LP21 JL RST,3 RPUN9003450 * 004646 1000400026 03460 JR ENDF,22 2 SI 2 RPUN9003460 * 004653 3000136326 03470 JC START,2222 RESET SI 2 RPUN9003470 * 004660 3000000060 03480 JD 0 RPUN9003480 004667 000500 03490 +3 0500 RPUN9003490 * 004670 3000000025 03500 JC 0,21 RPUN9003500 004677 004700 03510 CL12 +3 IPT2 RPUN9003510 * 004700 3000471254 03520 IPT2 JC $+10,44 4 RPUN9003520 * 004705 3002222260 03530 JD 022222 DOF RPUN9003530 * 004712 3000471750 03540 JC $+5,40 RPUN9003540 * 004717 3000472416 03550 JC $+5,016 6 RPUN9003550 * 004724 3000136335 03560 JC START,03035 RPUN9003560 * 004731 3000000031 03570 JC 0,031 RPUN9003570 004740 004741 03580 IE0 +3 INT0 RPUN9003580 004741 4000003000 03590 INT0 XF 0,03000,0,0,0 RPUN9003590 * 004746 3000476053 03600 JC $+10,05353 RPUN9003600 * 004753 3000002560 03610 JD 025 PRINTER ERROR RPUN9003610 004760 4000407777 03620 XF 32,0777777,0,0 RPUN9003620 * 004765 3000040000 03630 J 0400 RPUN9003630 * 004772 3000000031 03640 JC 0,031 RPUN9003640 005001 005002 03650 IE2 +3 INT2 RPUN9003650 005002 4040007700 03660 INT2 XF 0,07700,0,0,2 RPUN9003660 * 005007 3000506453 03670 JC ABN,053 3 RPUN9003670 005014 4040000040 03680 XF 0,00040,0,0,2 RPUN9003680 * 005021 3000503353 03690 JC $+10,05353 RPUN9003690 * 005026 3000042027 03700 JC 0420,23 3 SI 3 RPUN9003700 005033 5600557512 03710 BA1 HOLCT,1010 RPUN9003710 * 005040 1000541666 03720 JR IND6,54 4 RPUN9003720 005045 5200563312 03730 SA1 TYPE,10 0 RPUN9003730 005052 4040400040 03740 XF 32,0004040,0,2 RPUN9003740 * 005057 3000042027 03750 JC 0420,23 3 RPUN9003750 005064 2600007703 03760 ABN PD X7,3 RPUN9003760 * 005071 1000374200 03770 JR CLRPT RPUN9003770 005076 4040004000 03780 XF 0,04000,0,0,2 RPUN9003780 * 005103 1000522153 03790 JR IND1,05353 RPUN9003790 005110 4040002000 03800 XF 0,02000,0,0,2 RPUN9003800 * 005115 1000525253 03810 JR IND2,05353 RPUN9003810 005122 4040001000 03820 XF 0,01000,0,0,2 RPUN9003820 * 005127 1000530353 03830 JR IND3,05353 RPUN9003830 005134 4040000200 03840 XF 0,00200,0,0,2 RPUN9003840 * 005141 1000533453 03850 JR IND4,05353 RPUN9003850 005146 4040000100 03860 XF 0,00100,0,0,2 RPUN9003860 * 005153 1000536553 03870 JR IND5,05353 RPUN9003870 * 005160 3000007460 03880 JD 074 PUNCH ERROR RPUN9003880 005165 4040407777 03890 XF 32,0777777,0,2 RPUN9003890 * 005172 3000517731 03900 JC $+5,031 1 RPUN9003900 * 005177 3000521166 03910 JC $+10,54 4 SI 2-TEST 2 RPUN9003910 * 005204 3000154127 03920 JC PASS1+5,5,23 RPUN9003920 * 005211 3000444427 03930 JC R1,23 RPUN9003930 * 005216 3000521600 03940 IND1 J $ RPUN9003940 005223 5600546300 03950 BA1 ER1,0 RPUN9003950 005230 5200741700 03960 SA1 PRIM+15,5,0 RPUN9003960 * 005235 1000300200 03970 JR PRNT RPUN9003970 * 005242 3000521600 03980 J IND1 RPUN9003980 * 005247 3000524700 03990 IND2 J $ RPUN9003990 005254 5600550300 04000 BA1 ER2,0 RPUN9004000 005261 5200741700 04010 SA1 PRIM+15,5,0 RPUN9004010 * 005266 1000300200 04020 JR PRNT RPUN9004020 * 005273 3000524700 04030 J IND2 RPUN9004030 * 005300 3000530000 04040 IND3 J $ RPUN9004040 005305 5600552300 04050 BA1 ER3,0 RPUN9004050 005312 5200741700 04060 SA1 PRIM+15,5,0 RPUN9004060 * 005317 1000300200 04070 JR PRNT RPUN9004070 * 005324 3000530000 04080 J IND3 RPUN9004080 * 005331 3000533100 04090 IND4 J $ RPUN9004090 005336 5600554300 04100 BA1 ER4,0 RPUN9004100 005343 5200741700 04110 SA1 PRIM+15,5,0 RPUN9004110 * 005350 1000300200 04120 JR PRNT RPUN9004120 * 005355 3000533100 04130 J IND4 RPUN9004130 * 005362 3000536200 04140 IND5 J $ RPUN9004140 005367 5600556300 04150 BA1 ER5,0 RPUN9004150 005374 5200741700 04160 SA1 PRIM+15,5,0 RPUN9004160 * 005401 1000300200 04170 JR PRNT RPUN9004170 * 005406 3000536200 04180 J IND5 RPUN9004180 * 005413 3000541300 04190 IND6 J $ RPUN9004190 * 005420 1000374200 04200 JR CLRPT RPUN9004200 005425 5200741712 04210 SA1 PRIM+15,5,10 RPUN9004210 * 005432 1000300200 04220 JR PRNT RPUN9004220 * 005437 3000541300 04230 J IND6 RPUN9004230 005463 MEM. OVRLD ANT. 04240 ER1 +16 _MEM. OVOVRLD ANT. _ RPUN9004240 T 005503 UNIT BUSY 04250 ER2 +16 _UNIT BUBUSY _ RPUN9004250 005523 ABNORMAL 04260 ER3 +16 _ABNORMAMAL _ RPUN9004260 005543 CONT. PARITY ERR 04270 ER4 +16 _CONT. P PARITY ERR_ RPUN9004270 E 005563 MEM. PARITY ERR 04280 ER5 +16 _MEM. PAPARITY ERR _ RPUN9004280 R 005575 HOLE COUNT 04290 HOLCT +10 _HOLE COCOUNT_ RPUN9004290 005607 POST READ 04300 POST +10 _POST REREAD _ RPUN9004300 005621 PRE READ 04310 PRE +10 _PRE REAEAD _ RPUN9004310 000047 04320 X1 EQU 047 RPUN9004320 000053 04330 X2 EQU 053 RPUN9004330 000057 04340 X3 EQU 057 RPUN9004340 000063 04350 X4 EQU 063 RPUN9004350 000067 04360 X5 EQU 067 RPUN9004360 000073 04370 X6 EQU 073 RPUN9004370 000077 04380 X7 EQU 077 RPUN9004380 005622 04390 ERRC EQU $ RPUN9004390 005633 0000000000000000 04400 TYPE +10 0 RPUN9004400 005641 ERROR 04410 +6 _ ERROR_R_ RPUN9004410 005654 CARD NO 04420 ID +11 _ CARD N NO _ RPUN9004420 005664 COL 04430 COL +8 _ COL _ RPUN9004430 005667 - 04440 +3 _ - _ RPUN9004440 005675 WAS 04450 READ +6 _WAS _ _ RPUN9004450 005707 SHD BE 04460 EXPT +10 _ SHD BEBE _ RPUN9004460 005710 04470 PAT EQU $ 90 COL. PATTERNS RPUN9004470 005717 7737170703010103 04480 +8 0773717070703010103 RPUN9004480 1 005723 07173777 04490 +4 00717377777 RPUN9004490 005733 7737170703010103 04500 +8 0773717070703010103 RPUN9004500 1 005737 07173777 04510 +4 00717377777 RPUN9004510 005740 04520 PAT2 EQU $ TOP RPUN9004520 005747 0000000000010307 04530 +8 0000000000000010307 RPUN9004530 3 005757 1737773717070301 04540 +8 0173777373717070301 RPUN9004540 3 005765 000000000000 04550 +6 0 RPUN9004550 005766 04560 PAT3 EQU $ BOTTOM RPUN9004560 005775 0307173777777777 04570 +8 0030717373777777777 RPUN9004570 7 006005 7777777777777777 04580 +8 0777777777777777777 RPUN9004580 7 006013 773717070301 04590 +6 077371707070301 RPUN9004590 006014 04600 PAT4 EQU $ RPUN9004600 006017 25002500 04610 +4 02500250500 RPUN9004610 006021 0303 04620 B3 +2 00303 RPUN9004620 006023 0024 04630 B10 +2 20 RPUN9004630 006025 0024 04640 B18 +2 20 RPUN9004640 006027 0050 04650 B38 +2 40 RPUN9004650 006031 0074 04660 B58 +2 60 RPUN9004660 006043 INVALID ID 04670 IDERR +10 _INVALIDID ID_ RPUN9004670 006045 0000 04680 BLNK +2 0 RPUN9004680 006047 00 04690 D0 +2 _00_ RPUN9004690 006051 01 04700 D1 +2 _01_ RPUN9004700 006053 00 04710 CDNO +2 _00_ RPUN9004710 006055 0120 04720 B80 +2 80 RPUN9004720 006060 019 04730 D19 +3 _019_ RPUN9004730 006200 04740 ORIG 06200 RPUN9004740 006200 1400 04750 IMG AREA 768,B,0 0 RPUN9004750 006600 04760 PUNI EQU IMG+256 6 RPUN9004760 007000 04770 WTI EQU PUNI+12828 RPUN9004770 007200 04780 RDI EQU WTI+128 8 RPUN9004780 007400 04790 PRIM EQU RDI+128 8 RPUN9004790 3000136300 04800 END START RPUN9004800 {-- tape mark --} 011749 C531 U3C67 CODEDIT SOURCE - T3834394-53 010600 00010 T530 BEGIN 010600 U3C67 00010 *LOAD 0700,TAPAPE,R,PRELD E * 010600 3007010660 * JD 070106 * * 010605 3001060000 * J $-5 * SEGMENT-ID T531 3001060000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T532 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2000111611 * FT 0700+021216,9,0 * 000457 2000070060 * FT 0700,48,8,0 * 000464 2000024261 * FT 162,49 * * 000471 3000053000 * J 0530 * 000477 0000 * +2 0 * * 000500 3000000020 * JC 0,16 * 000507 000440 * +3 0440 * * 000510 3000000020 * JC 0,16 * 000517 000510 * +3 0510 * * 000520 3000052020 * JHJ $ * 000527 000440 * +3 0440 * 000530 5600052710 * BA1 $-1,8 * 000535 5200044710 * SA1 0447,8 * 000542 4100610100 * XF 061,010000,0,4 * 000547 2000111660 * FT 0700+021216,48,0 * 000554 2000024261 * FT 162,49 * 000561 4100610100 * XF 061,010000,0,4 * * 000566 3200056102 * JL $-5,2 * 000573 2000000103 * FT 1,3 * * 000600 3000074000 * J 0700+04040,0 * 000740 * ORIG 0700+04040 * 000740 4100610100 * XF 061,010000,0,4 * 000745 6000001701 * AC 15,1 * 000752 3420022211 * CC 146,9,1 1 * * 000757 3000106542 * JE $+70 * 000764 2600004104 * PD 041,4 * 000771 3620021700 * CS 143,0,1 1 * 000776 3620011700 * CS 79,0,1 * 001003 3620001712 * CS 15,10,1 1 * 001010 1600004166 * BC2 041,6 * 001015 3620022102 * CS 145,2,1 1 * 001022 7000004162 * CB2 041,2 * * 001027 3000104142 * JE $+10 * * 001034 3007010460 * JD 070104 * 001041 4620003520 * BT 29,16,1 1 * 001046 4620003722 * BT 31,18,1 1 * 001053 2420004001 * TFR 32,,1 * * 001060 3000074000 * J $-80 * 001065 4100640000 * XF 064,0,0,0,4 * 001072 7020004642 * CB1 38,2,1 * * 001077 3020004042 * JE 32,1 * * 001104 3007010560 * JD 070105 * * 001111 3020004000 * J 32,1 * 001116 245 * AREA 165 * SEGMENT-ID T533 3000136300 * SEGJP $ * 010600 00020 ORIG 010600 U3C67 00020 010600 5601413300 00030 BA1 CL12,16 6 U3C67 00030 010605 5200051700 00040 SA1 335,16 U3C67 00040 010612 5601416500 00050 BA1 IE67,16 6 * U3C67 00050 010617 5200047700 00060 SA1 0477,16 6 * U3C67 00060 010624 5601746001 00070 BA1 UNITS,1 1 U3C67 00070 010631 5201176001 00080 SA1 USEL1+4,4,1 U3C67 00080 010636 5201475301 00090 SA1 TMUS1+4,4,1 U3C67 00090 010643 5201567401 00100 SA1 SKUS1+4,4,1 U3C67 00100 010650 5201703301 00110 SA1 RWU1+4,1,1 U3C67 00110 010655 5201763101 00120 SA1 ITLU1+4,4,1 U3C67 00120 * 010662 3000000060 00130 TEST1 JD 000 ENTRANCE TEST1 U3C67 00130 010667 4401343760 00140 SC ISS01+4,4,48 U3C67 00140 010674 4401344400 00150 SC ISS02+4,4,0 U3C67 00150 010701 4401350243 00160 SC ISS04+4,4,35 U3C67 00160 010706 4401352140 00170 SC ISS05+4,4,32 U3C67 00170 010713 4401353343 00180 SC ISS06+4,4,35 U3C67 00180 010720 2001066226 00190 FT TEST1,2222 U3C67 00190 010725 2600013724 00200 PD0 95,4 U3C67 00200 * 010732 1001145400 00210 JR CHSEL U3C67 00210 * 010737 3001075162 00220 JC $+10,50 0 U3C67 00220 * 010744 3000000160 00230 TEST2 JD 001 ENTRANCE TEST2 U3C67 00230 010751 4401343760 00240 SC ISS01+4,4,48 U3C67 00240 010756 4401344421 00250 SC ISS02+4,4,17 U3C67 00250 010763 4401350243 00260 SC ISS04+4,4,35 U3C67 00260 010770 4401352140 00270 SC ISS05+4,4,32 U3C67 00270 010775 4401353343 00280 SC ISS06+4,4,35 U3C67 00280 011002 2001074426 00290 FT TEST2,2222 U3C67 00290 011007 2600013723 00300 PD0 95,3 U3C67 00300 011014 4400013404 00310 SC 92,4 U3C67 00310 * 011021 1001145400 00320 JR CHSEL U3C67 00320 * 011026 3001104062 00330 JC $+10,50 0 U3C67 00330 * 011033 3000000260 00340 TEST3 JD 002 ENTRANCE TEST3 U3C67 00340 011040 4401343700 00350 SC ISS01+4,4,0 U3C67 00350 011045 4401344400 00360 SC ISS02+4,4,0 U3C67 00360 011052 4401350242 00370 SC ISS04+4,4,34 U3C67 00370 011057 4401352100 00380 SC ISS05+4,4,0 U3C67 00380 011064 4401353342 00390 SC ISS06+4,4,34 U3C67 00390 011071 2001103326 00400 FT TEST3,2222 U3C67 00400 011076 2600013723 00410 PD0 95,3 U3C67 00410 011103 4400013405 00420 SC 92,5 U3C67 00420 * 011110 1001145400 00430 JR CHSEL U3C67 00430 * 011115 3001112762 00440 JC $+10,50 0 U3C67 00440 * 011122 3000000360 00450 TEST4 JD 003 ENTRANCE TEST4 U3C67 00450 011127 4401343700 00460 SC ISS01+4,4,0 U3C67 00460 011134 4401344421 00470 SC ISS02+4,4,17 U3C67 00470 011141 4401350242 00480 SC ISS04+4,4,34 U3C67 00480 011146 4401352100 00490 SC ISS05+4,4,0 U3C67 00490 011153 4401353342 00500 SC ISS06+4,4,34 U3C67 00500 011160 2001112226 00510 FT TEST4,2222 U3C67 00510 011165 2600013723 00520 PD0 95,3 U3C67 00520 011172 4400013406 00530 SC 92,6 U3C67 00530 * 011177 1001145400 00540 JR CHSEL U3C67 00540 * 011204 3001121662 00550 JC $+10,50 0 U3C67 00550 * 011211 3000000460 00560 TEST5 JD 004 ENTRANCE TEST5 U3C67 00560 011216 2600013723 00570 PD0 95,3 U3C67 00570 011223 4400013407 00580 SC 92,7 U3C67 00580 011230 2001121126 00590 FT TEST5,2222 U3C67 00590 011235 2000060070 00600 FT IMAGE,5656 * CH6 BASE ADD U3C67 00600 011242 2000777771 00610 FT 4095,57 7 * CH6 CHAR CNT U3C67 00610 011247 2000060074 00620 FT IMAGE,6060 * CH7 BASE ADD U3C67 00620 011254 2000777775 00630 FT 4095,61 1 * CH7 CHAR CNT U3C67 00630 * 011261 1001417100 00640 JR GNP U3C67 00640 * 011266 1001443500 00650 JR TMCH U3C67 00650 * 011273 3001130562 00660 JC $+10,50 0 U3C67 00660 * 011300 3000000560 00670 TEST6 JD 005 ENTRANCE TEST6 U3C67 00670 011305 2001130026 00680 FT TEST6,2222 U3C67 00680 011312 2000400071 00690 FT 2048,57 7 * CH6 CHAR CNT U3C67 00690 011317 2600013723 00700 PD0 95,3 U3C67 00700 011324 4400013410 00710 SC 92,8 U3C67 00710 011331 2000400075 00720 FT 2048,61 1 * CH7 CHAR CNT U3C67 00720 * 011336 1001534400 00730 JR SKCH U3C67 00730 * 011343 3000000660 00740 TEST7 JD 006 ENTRANCE TEST7 U3C67 00740 011350 2001134326 00750 FT TEST7,2222 U3C67 00750 011355 2600013723 00760 PD0 95,3 U3C67 00760 011362 4400013411 00770 SC 92,9 U3C67 00770 * 011367 1001654100 00780 JR RWCH U3C67 00780 * 011374 3001140662 00790 JC $+10,50 0 U3C67 00790 * 011401 3000000760 00800 TEST8 JD 007 ENTRANCE TEST8 U3C67 00800 011406 2001140126 00810 FT TEST8,2222 U3C67 00810 011413 2600013723 00820 PD0 95,3 U3C67 00820 011420 4400013412 00830 SC 92,10 U3C67 00830 * 011425 1001746400 00840 JR ITLCH U3C67 00840 * 011432 3001144462 00850 JC $+10,50 0 U3C67 00850 * 011437 3000777760 00860 JD 4095 U3C67 00860 * 011444 3001060000 00870 J 010600 U3C67 00870 * 011451 3000000000 00880 CHSEL J 0 U3C67 00880 011456 2001370003 00890 FT TPINT,3 3 U3C67 00890 011463 5200046703 00900 SA1 0467,3 * CH6 IE U3C67 00900 011470 2001407003 00910 FT N0INT,3 3 U3C67 00910 011475 5200047703 00920 SA1 0477,3 * CH7 IE U3C67 00920 011502 4401346540 00930 SC ISS03+1,1,040 * CH6 BITS U3C67 00930 011507 4401370140 00940 SC TPINT+1,1,040 * CH6 BITS U3C67 00940 011514 4401375640 00950 SC ERR01+1,1,040 * CH6 BITS U3C67 00950 011521 2000060070 00960 FT IMAGE,5656 * CH6 BASE ADD U3C67 00960 011526 2000777771 00970 FT 4095,57 7 * CH6 CHAR CNT U3C67 00970 011533 2000035303 00980 FT 0353,3 * CH6 SPEC TET U3C67 00980 011540 5201346203 00990 SA1 ISS09+3,3,3 U3C67 00990 011545 4401347572 01000 SC ISS10+4,4,58 * CH6 SPEC TET U3C67 01000 011552 4401356472 01010 SC ISS11+4,4,58 * CH6 SPEC TET U3C67 01010 011557 5601436704 01020 BA1 BAT6,4 * U3C67 01020 011564 5201354504 01030 SA1 ISS13+4,4,4 U3C67 01030 011571 2000046003 01040 FT 0460,3 * CH6 IE U3C67 01040 011576 5201372203 01050 SA1 INTEX+3,3,3 U3C67 01050 * 011603 1001175200 01060 JR USEL U3C67 01060 011610 2001370003 01070 FT TPINT,3 3 U3C67 01070 011615 5200047703 01080 SA1 0477,3 * CH7 IE U3C67 01080 011622 2001407003 01090 FT N0INT,3 3 U3C67 01090 011627 5200046703 01100 SA1 0467,3 * CH6 IE U3C67 01100 011634 4401346560 01110 SC ISS03+1,1,060 * CH7 BITS U3C67 01110 011641 4401370160 01120 SC TPINT+1,1,060 * CH7 BITS U3C67 01120 011646 4401375660 01130 SC ERR01+1,1,060 * CH7 BITS U3C67 01130 011653 2000060074 01140 FT IMAGE,6060 * CH7 BASE ADD U3C67 01140 011660 2000777775 01150 FT 4095,61 1 * CH7 CHAR CNT U3C67 01150 011665 2000037303 01160 FT 0373,3 * CH7 SPEC TET U3C67 01160 011672 5201346203 01170 SA1 ISS09+3,3,3 U3C67 01170 011677 4401347576 01180 SC ISS10+4,4,62 * CH7 SPEC TET U3C67 01180 011704 4401356476 01190 SC ISS11+4,4,62 * CH7 SPEC TET U3C67 01190 011711 5601437304 01200 BA1 BAT7,4 * U3C67 01200 011716 5201354504 01210 SA1 ISS13+4,4,4 U3C67 01210 011723 2000047003 01220 FT 0470,3 * CH7 IE U3C67 01220 011730 5201372203 01230 SA1 INTEX+3,3,3 U3C67 01230 * 011735 1001175200 01240 JR USEL U3C67 01240 * 011742 3001145100 01250 J CHSEL U3C67 01250 * 011747 3000000000 01260 USEL J 0 U3C67 01260 011754 4401177201 01270 USEL1 SC USEL2+4,4,1 U3C67 01270 * 011761 1001201500 01280 JR TST U3C67 01280 * 011766 3201200000 01290 USEL2 JL $+10 U3C67 01290 * 011773 3001174700 01300 J USEL U3C67 01300 012000 6001346501 01310 AC ISS03+1,1,1 U3C67 01310 * 012005 3001176100 01320 J USEL1+5 5 U3C67 01320 * 012012 3000000000 01330 TST J 0 U3C67 01330 * 012017 1001417100 01340 JR GNP GENERATE PATTERN U3C67 01340 012024 4401350740 01350 SC ISS12+4,4,32 U3C67 01350 012031 4401346602 01360 SC ISS03+2,2,2 U3C67 01360 012036 4401346700 01370 SC ISS03+3,3,0 U3C67 01370 012043 4401355243 01380 SC ISS07+4,4,35 U3C67 01380 012050 4401360300 01390 SC ISS08+4,4,0 U3C67 01390 012055 4400060001 01400 SC IMAGE,1 1 U3C67 01400 * 012062 1001341200 01410 JR ISS U3C67 01410 012067 4401346710 01420 SC ISS03+3,3,8 U3C67 01420 012074 4400060002 01430 SC IMAGE,2 2 U3C67 01430 * 012101 1001341200 01440 JR ISS U3C67 01440 012106 4401346702 01450 SC ISS03+3,3,2 U3C67 01450 012113 4401355242 01460 SC ISS07+4,4,34 U3C67 01460 012120 4400060003 01470 SC IMAGE,3 3 U3C67 01470 * 012125 1001341200 01480 JR ISS U3C67 01480 012132 4401346712 01490 SC ISS03+3,3,10 U3C67 01490 012137 4400060004 01500 SC IMAGE,4 4 U3C67 01500 * 012144 1001341200 01510 JR ISS U3C67 01510 012151 4401346601 01520 SC ISS03+2,2,1 U3C67 01520 012156 4401346710 01530 SC ISS03+3,3,8 U3C67 01530 012163 4401355243 01540 SC ISS07+4,4,35 U3C67 01540 012170 2601432604 01550 PD CCC,4 U3C67 01550 012175 4401350700 01560 SC ISS12+4,4,0 U3C67 01560 * 012202 1001341200 01570 JR ISS U3C67 01570 012207 4401346712 01580 SC ISS03+3,3,10 U3C67 01580 * 012214 1001341200 01590 JR ISS U3C67 01590 012221 4401346714 01600 SC ISS03+3,3,12 U3C67 01600 * 012226 1001341200 01610 JR ISS U3C67 01610 012233 4401346716 01620 SC ISS03+3,3,14 U3C67 01620 * 012240 1001341200 01630 JR ISS U3C67 01630 012245 4401346700 01640 SC ISS03+3,3,0 U3C67 01640 * 012252 1001424600 01650 JR CLR U3C67 01650 012257 4401361001 01660 SC SEQ+4,1 1 U3C67 01660 012264 4401360340 01670 SC ISS08+4,4,32 U3C67 01670 012271 2001057703 01680 FT 0010577,7,3 U3C67 01680 012276 5201432603 01690 SA1 CCC,3 U3C67 01690 012303 4401350740 01700 SC ISS12+4,4,32 U3C67 01700 * 012310 1001341200 01710 JR ISS U3C67 01710 012315 4401346704 01720 SC ISS03+3,3,4 U3C67 01720 * 012322 1001424600 01730 JR CLR U3C67 01730 012327 4401361002 01740 SC SEQ+4,2 2 U3C67 01740 * 012334 1001341200 01750 JR ISS U3C67 01750 012341 4401346702 01760 SC ISS03+3,3,2 U3C67 01760 012346 4401355242 01770 SC ISS07+4,4,34 U3C67 01770 * 012353 1001424600 01780 JR CLR U3C67 01780 012360 4401361003 01790 SC SEQ+4,3 3 U3C67 01790 * 012365 1001341200 01800 JR ISS U3C67 01800 012372 4401346706 01810 SC ISS03+3,3,6 U3C67 01810 * 012377 1001424600 01820 JR CLR U3C67 01820 012404 4401361004 01830 SC SEQ+4,4 4 U3C67 01830 * 012411 1001341200 01840 JR ISS U3C67 01840 012416 4401346750 01850 SC ISS03+3,3,40 U3C67 01850 012423 4401355243 01860 SC ISS07+4,4,35 U3C67 01860 012430 4401360300 01870 SC ISS08+4,4,0 U3C67 01870 012435 2601432604 01880 PD CCC,4 U3C67 01880 012442 4401350700 01890 SC ISS12+4,4,0 U3C67 01890 * 012447 1001341200 01900 JR ISS U3C67 01900 012454 4401346752 01910 SC ISS03+3,3,42 U3C67 01910 * 012461 1001341200 01920 JR ISS U3C67 01920 012466 4401346754 01930 SC ISS03+3,3,44 U3C67 01930 * 012473 1001341200 01940 JR ISS U3C67 01940 012500 4401346756 01950 SC ISS03+3,3,46 U3C67 01950 * 012505 1001341200 01960 JR ISS U3C67 01960 012512 4401346700 01970 SC ISS03+3,3,0 U3C67 01970 * 012517 1001424600 01980 JR CLR U3C67 01980 012524 4401361001 01990 SC SEQ+4,1 1 U3C67 01990 012531 4401360340 02000 SC ISS08+4,4,32 U3C67 02000 012536 2001057703 02010 FT 0010577,7,3 U3C67 02010 012543 5201432603 02020 SA1 CCC,3 U3C67 02020 012550 4401350740 02030 SC ISS12+4,4,32 U3C67 02030 * 012555 1001341200 02040 JR ISS U3C67 02040 012562 4401346704 02050 SC ISS03+3,3,4 U3C67 02050 * 012567 1001424600 02060 JR CLR U3C67 02060 012574 4401361002 02070 SC SEQ+4,2 2 U3C67 02070 * 012601 1001341200 02080 JR ISS U3C67 02080 012606 4401346702 02090 SC ISS03+3,3,2 U3C67 02090 012613 4401355242 02100 SC ISS07+4,4,34 U3C67 02100 * 012620 1001424600 02110 JR CLR U3C67 02110 012625 4401361003 02120 SC SEQ+4,3 3 U3C67 02120 * 012632 1001341200 02130 JR ISS U3C67 02130 012637 4401346706 02140 SC ISS03+3,3,6 U3C67 02140 * 012644 1001424600 02150 JR CLR U3C67 02150 012651 4401361004 02160 SC SEQ+4,4 4 U3C67 02160 * 012656 1001341200 02170 JR ISS U3C67 02170 012663 4401346603 02180 SC ISS03+2,2,3 U3C67 02180 012670 4401346710 02190 SC ISS03+3,3,8 U3C67 02190 012675 4401355243 02200 SC ISS07+4,4,35 U3C67 02200 012702 4401360300 02210 SC ISS08+4,4,0 U3C67 02210 012707 2601432603 02220 PD CCC,3 U3C67 02220 012714 4401350700 02230 SC ISS12+4,4,0 U3C67 02230 * 012721 1001341200 02240 JR ISS U3C67 02240 012726 4401346712 02250 SC ISS03+3,3,10 U3C67 02250 * 012733 1001341200 02260 JR ISS U3C67 02260 012740 4401346714 02270 SC ISS03+3,3,12 U3C67 02270 * 012745 1001341200 02280 JR ISS U3C67 02280 012752 4401346716 02290 SC ISS03+3,3,14 U3C67 02290 * 012757 1001341200 02300 JR ISS U3C67 02300 012764 4401346700 02310 SC ISS03+3,3,0 U3C67 02310 * 012771 1001424600 02320 JR CLR U3C67 02320 012776 4401361001 02330 SC SEQ+4,1 1 U3C67 02330 013003 4401360340 02340 SC ISS08+4,4,32 U3C67 02340 013010 2001057703 02350 FT 0010577,7,3 U3C67 02350 013015 5201432603 02360 SA1 CCC,3 U3C67 02360 013022 4401350740 02370 SC ISS12+4,4,32 U3C67 02370 * 013027 1001341200 02380 JR ISS U3C67 02380 013034 4401346704 02390 SC ISS03+3,3,4 U3C67 02390 * 013041 1001424600 02400 JR CLR U3C67 02400 013046 4401361002 02410 SC SEQ+4,2 2 U3C67 02410 * 013053 1001341200 02420 JR ISS U3C67 02420 013060 4401346702 02430 SC ISS03+3,3,2 U3C67 02430 013065 4401355242 02440 SC ISS07+4,4,34 U3C67 02440 * 013072 1001424600 02450 JR CLR U3C67 02450 013077 4401361003 02460 SC SEQ+4,3 3 U3C67 02460 * 013104 1001341200 02470 JR ISS U3C67 02470 013111 4401346706 02480 SC ISS03+3,3,6 U3C67 02480 * 013116 1001424600 02490 JR CLR U3C67 02490 013123 4401361004 02500 SC SEQ+4,4 4 U3C67 02500 * 013130 1001341200 02510 JR ISS U3C67 02510 013135 4401346750 02520 SC ISS03+3,3,40 U3C67 02520 013142 4401355243 02530 SC ISS07+4,4,35 U3C67 02530 013147 2601432604 02540 PD CCC,4 U3C67 02540 013154 4401360300 02550 SC ISS08+4,4,0 U3C67 02550 013161 4401350700 02560 SC ISS12+4,4,0 U3C67 02560 * 013166 1001341200 02570 JR ISS U3C67 02570 013173 4401346752 02580 SC ISS03+3,3,42 U3C67 02580 * 013200 1001341200 02590 JR ISS U3C67 02590 013205 4401346754 02600 SC ISS03+3,3,44 U3C67 02600 * 013212 1001341200 02610 JR ISS U3C67 02610 013217 4401346756 02620 SC ISS03+3,3,46 U3C67 02620 * 013224 1001341200 02630 JR ISS U3C67 02630 013231 4401346700 02640 SC ISS03+3,3,0 U3C67 02640 * 013236 1001424600 02650 JR CLR U3C67 02650 013243 4401361001 02660 SC SEQ+4,1 1 U3C67 02660 013250 4401360340 02670 SC ISS08+4,4,32 U3C67 02670 013255 2001057703 02680 FT 0010577,7,3 U3C67 02680 013262 5201432603 02690 SA1 CCC,3 U3C67 02690 013267 4401350740 02700 SC ISS12+4,4,32 U3C67 02700 * 013274 1001341200 02710 JR ISS U3C67 02710 013301 4401346704 02720 SC ISS03+3,3,4 U3C67 02720 * 013306 1001424600 02730 JR CLR U3C67 02730 013313 4401361002 02740 SC SEQ+4,2 2 U3C67 02740 * 013320 1001341200 02750 JR ISS U3C67 02750 013325 4401346702 02760 SC ISS03+3,3,2 U3C67 02760 013332 4401355242 02770 SC ISS07+4,4,34 U3C67 02770 * 013337 1001424600 02780 JR CLR U3C67 02780 013344 4401361003 02790 SC SEQ+4,3 3 U3C67 02790 * 013351 1001341200 02800 JR ISS U3C67 02800 013356 4401346706 02810 SC ISS03+3,3,6 U3C67 02810 * 013363 1001424600 02820 JR CLR U3C67 02820 013370 4401361004 02830 SC SEQ+4,4 4 U3C67 02830 * 013375 1001341200 02840 JR ISS U3C67 02840 * 013402 3001201200 02850 J TST U3C67 02850 * 013407 3000000000 02860 ISS J 0 U3C67 02860 013414 5601431644 02870 BD1 D0NE,4 U3C67 02870 013421 6200013704 02880 AM1 95,4 U3C67 02880 013426 4401432700 02890 SC K01,0 U3C67 02890 013433 6401346600 02900 ISS01 LS ISS03+2,2,0 U3C67 02900 013440 6401346700 02910 ISS02 LS ISS03+3,3,0 U3C67 02910 013445 2000060070 02920 FT IMAGE,5656 * CH6 BASE ADD U3C67 02920 013452 2000060074 02930 FT IMAGE,6060 * CH7 BASE ADD U3C67 02930 013457 2600035304 02940 ISS09 PD 0353,4 * U3C67 02940 013464 4140000000 02950 ISS03 XF 0,0,0,6 6 * U3C67 02950 013471 7401432272 02960 ISS10 CT BZER0,5858 * CH6 SPEC TET U3C67 02960 * 013476 3001351500 02970 ISS04 J $+15 U3C67 02970 * 013503 3001351500 02980 ISS12 J $+10 U3C67 02980 * 013510 3000001060 02990 JD 010 LOCK OUT ERROR U3C67 02990 * 013515 1001437700 03000 ISS05 JR DELAY U3C67 03000 013522 3401432701 03010 CC K01,1 U3C67 03010 * 013527 3001354100 03020 ISS06 J $+10 U3C67 03020 * 013534 3000001160 03030 JD 011 INH INT ERROR U3C67 03030 013541 7400035370 03040 ISS13 CT 0353,56 6 * U3C67 03040 * 013546 3001356000 03050 ISS07 J $+10 U3C67 03050 * 013553 3000001260 03060 JD 012 ABA ERROR U3C67 03060 013560 7401432672 03070 ISS11 CT CCC,58 * CH6 SPEC TET U3C67 03070 * 013565 3001357742 03080 JE ISS08 U3C67 03080 * 013572 3000001360 03090 JD 013 SPEC BA ERROR U3C67 03090 * 013577 3001340700 03100 ISS08 J ISS U3C67 03100 013604 3400060000 03110 SEQ CC IMAGE,0 0 U3C67 03110 * 013611 3001362342 03120 JE $+10 U3C67 03120 * 013616 3000001460 03130 JD 014 SEQUENCE ERROR U3C67 03130 013623 5600061717 03140 BA1 IMAGE+1515,15 U3C67 03140 013630 7001434757 03150 CB1 TPPAT,1515 U3C67 03150 * 013635 3001364742 03160 JE $+10 U3C67 03160 * 013642 3000001560 03170 JD 015 COMP1 ERROR U3C67 03170 013647 5601057600 03180 BA1 010576,1,16 U3C67 03180 013654 7001434740 03190 CB1 TPPAT,1616 U3C67 03190 * 013661 3001340742 03200 JE ISS U3C67 03200 * 013666 3000001660 03210 JD 016 COMP2 ERROR U3C67 03210 * 013673 3001340700 03220 J ISS U3C67 03220 013700 4140007777 03230 TPINT XF 0,07777,7,0,6 * U3C67 03230 * 013705 3001372453 03240 JC ERRTN,4343 U3C67 03240 013712 4401432701 03250 SC K01,1 U3C67 03250 * 013717 3000000000 03260 INTEX J 0 U3C67 03260 013724 2601376102 03270 ERRTN PD ERR01+4,4,2 U3C67 03270 013731 4401376101 03280 SC ERR01+4,4,1 U3C67 03280 013736 4401400014 03290 SC ERR02+4,4,12 U3C67 03290 013743 2601403002 03300 PD ERR03+3,3,2 U3C67 03300 013750 1601403021 03310 BS2 ERR03+3,3,1 U3C67 03310 013755 4140000000 03320 ERR01 XF 0,0,0,6 6 * U3C67 03320 * 013762 3001400653 03330 JC $+20,43 3 U3C67 03330 013767 1601376121 03340 BS2 ERR01+4,4,1 U3C67 03340 * 013774 3201375000 03350 ERR02 JL $-20 U3C67 03350 * 014001 3001402000 03360 J $+15 U3C67 03360 014006 6401403001 03370 LS ERR03+3,3,1 U3C67 03370 * 014013 3001376700 03380 J $-20 U3C67 03380 * 014020 3000001760 03390 JD 017 ABNORMAL U3C67 03390 * 014025 3000000060 03400 ERR03 JD 0 U3C67 03400 014032 5601370101 03410 BA1 TPINT+1,1,1 U3C67 03410 014037 5201404501 03420 SA1 $+6,1 U3C67 03420 014044 4140407777 03430 XF 040,0777777,0,6 * U3C67 03430 014051 5600013304 03440 BA1 91,4 U3C67 03440 014056 5200046303 03450 SA1 0463,3 * CH6 IE EXIT U3C67 03450 * 014063 3000046000 03460 J 0460 * U3C67 03460 * 014070 3000007060 03470 N0INT JD 070 U3C67 03470 014075 4140407777 03480 XF 040,0777777,0,6 * U3C67 03480 014102 4160407777 03490 XF 040,0777777,0,7 * U3C67 03490 * 014107 3001405100 03500 J $-30 U3C67 03500 * 014114 3000000036 03510 JC 0,30 U3C67 03510 014123 014134 03520 +3 CL1 U3C67 03520 * 014124 3000000035 03530 JC 0,29 U3C67 03530 014133 014141 03540 CL12 +3 CL2 U3C67 03540 * 014134 3000007160 03550 CL1 JD 071 U3C67 03550 * 014141 3000007260 03560 CL2 JD 072 U3C67 03560 * 014146 3000000031 03570 JC 0,25 U3C67 03570 014155 000000 03580 +3 0000000000 U3C67 03580 * 014156 3000000031 03590 JC 0,25 U3C67 03590 014165 000000 03600 IE67 +3 0 * U3C67 03600 * 014166 3000000000 03610 GNP J 0 U3C67 03610 014173 2000177422 03620 FT 1020,18 8 U3C67 03620 014200 2000062020 03630 FT IMAGE+1616,16 U3C67 03630 014205 4401423504 03640 SC GNP01+4,4,4 U3C67 03640 014212 5601434700 03650 BA1 TPPAT,1616 U3C67 03650 014217 5200061700 03660 SA1 IMAGE+1515,16 U3C67 03660 014224 2400060021 03670 TFI IMAGE U3C67 03670 * 014231 3201422404 03680 GNP01 JL $-5,4 U3C67 03680 * 014236 3001416600 03690 J GNP U3C67 03690 * 014243 3000000000 03700 CLR J 0 U3C67 03700 014250 2000177422 03710 FT 1020,18 8 U3C67 03710 014255 2000060120 03720 FT IMAGE+1,1,16 U3C67 03720 014262 4400060000 03730 SC IMAGE,0 0 U3C67 03730 014267 4401430504 03740 SC $+14,4 U3C67 03740 014274 2400060021 03750 TFI IMAGE U3C67 03750 * 014301 3201427400 03760 JL $-5 U3C67 03760 * 014306 3001424300 03770 J CLR U3C67 03770 000600 03780 IMAGE EQU 00600 U3C67 03780 014316 0001 03790 D0NE +4 _0001_ U3C67 03790 014322 00000000 03800 BZER0 +4 000 U3C67 03800 014326 00010577 03810 CCC +4 00001057577 U3C67 03810 014327 00 03820 K01 +1 000 U3C67 03820 014337 7777777777777777 03830 +8 0777777777777777777 U3C67 03830 7 014347 7777777777777777 03840 TPPAT +8 0777777777777777777 U3C67 03840 7 014353 00000020 03850 B16 +4 00000002020 U3C67 03850 014357 00000001 03860 B0NE +4 001 U3C67 03860 014363 00017000 03870 B2048 +4 00001700000 U3C67 03870 014367 00035370 03880 BAT6 +4 00003537370 * U3C67 03880 014373 00037374 03890 BAT7 +4 00003737374 * U3C67 03890 * 014374 3000000000 03900 DELAY J 0 U3C67 03900 014401 2600014304 03910 PD 99,4 U3C67 03910 014406 7601435730 03920 AT B0NE,24 4 U3C67 03920 014413 7401436330 03930 CT B2048,2424 U3C67 03930 * 014420 3001440643 03940 JU $-10 U3C67 03940 * 014425 3001437400 03950 J DELAY U3C67 03950 * 014432 3000000000 03960 TMCH J 0 U3C67 03960 014437 2001524503 03970 FT TMINT,3 3 U3C67 03970 014444 5200046703 03980 SA1 0467,3 * CH6 IE U3C67 03980 014451 2001407003 03990 FT N0INT,3 3 U3C67 03990 014456 5200047703 04000 SA1 0477,3 * CH7 IE U3C67 04000 014463 2000046003 04010 FT 0460,3 * CH6 IE U3C67 04010 014470 5201533703 04020 SA1 TMEX+3,3,3 U3C67 04020 014475 4401512640 04030 SC TM02+1,0,040 * CH6 BITS U3C67 04030 014502 4401513340 04040 SC TM03+1,0,040 * CH6 BITS U3C67 04040 014507 4401514540 04050 SC TM04+1,0,040 * CH6 BITS U3C67 04050 014514 4401521540 04060 SC TM05+1,0,040 * CH6 BITS U3C67 04060 014521 4401524640 04070 SC TMINT+1,1,040 * CH6 BITS U3C67 04070 014526 4401526040 04080 SC TMI01+1,1,040 * CH6 BITS U3C67 04080 014533 4401531140 04090 SC TMI02+6,6,040 * CH6 BITS U3C67 04090 014540 4401533040 04100 SC TMI04+1,1,040 * CH6 BITS U3C67 04100 014545 4401514372 04110 SC TM07+4,5,58 * CH6 SPEC TET U3C67 04110 014552 5601436704 04120 BA1 BAT6,4 * U3C67 04120 014557 5201515504 04130 SA1 TM08+4,4,4 U3C67 04130 014564 4401517472 04140 SC TM09+4,5,58 * CH6 SPEC TET U3C67 04140 * 014571 1001474500 04150 JR TMUS U3C67 04150 014576 2001524503 04160 FT TMINT,3 3 U3C67 04160 014603 5200047703 04170 SA1 0477,3 * CH7 IE U3C67 04170 014610 2001407003 04180 FT N0INT,3 3 U3C67 04180 014615 5200046703 04190 SA1 0467,3 * CH6 IE U3C67 04190 014622 2000047003 04200 FT 0470,3 * CH7 IE U3C67 04200 014627 5201533703 04210 SA1 TMEX+3,3,3 U3C67 04210 014634 4401512660 04220 SC TM02+1,0,060 * CH7 BITS U3C67 04220 014641 4401513360 04230 SC TM03+1,0,060 * CH7 BITS U3C67 04230 014646 4401514560 04240 SC TM04+1,0,060 * CH7 BITS U3C67 04240 014653 4401521560 04250 SC TM05+1,0,060 * CH7 BITS U3C67 04250 014660 4401524660 04260 SC TMINT+1,1,060 * CH7 BITS U3C67 04260 014665 4401526060 04270 SC TMI01+1,1,060 * CH7 BITS U3C67 04270 014672 4401531160 04280 SC TMI02+6,6,060 * CH7 BITS U3C67 04280 014677 4401533060 04290 SC TMI04+1,1,060 * CH7 BITS U3C67 04290 014704 4401514376 04300 SC TM07+4,6,62 * CH7 SPEC TET U3C67 04300 014711 5601437304 04310 BA1 BAT7,4 * U3C67 04310 014716 5201515504 04320 SA1 TM08+4,4,4 U3C67 04320 014723 4401517476 04330 SC TM09+4,6,62 * CH7 SPEC TET U3C67 04330 * 014730 1001474500 04340 JR TMUS U3C67 04340 * 014735 3001443200 04350 J TMCH U3C67 04350 * 014742 3000000000 04360 TMUS J 0 U3C67 04360 014747 4401476501 04370 TMUS1 SC TMUS2+4,4,1 U3C67 04370 * 014754 1001502700 04380 JR TMTST U3C67 04380 * 014761 3201477300 04390 TMUS2 JL $+10 U3C67 04390 * 014766 3001474200 04400 J TMUS U3C67 04400 014773 6001512601 04410 AC TM02+1,1,1 U3C67 04410 015000 6001513301 04420 AC TM03+1,1,1 U3C67 04420 015005 6001514501 04430 AC TM04+1,1,1 U3C67 04430 015012 6001521501 04440 AC TM05+1,1,1 U3C67 04440 * 015017 3001475400 04450 J TMUS1+5 5 U3C67 04450 * 015024 3000000000 04460 TMTST J 0 U3C67 04460 015031 4401513543 04470 SC TM03+3,3,35 U3C67 04470 * 015036 1001511100 04480 JR TMISS U3C67 04480 015043 4401513553 04490 SC TM03+3,4,43 U3C67 04490 * 015050 1001511100 04500 JR TMISS U3C67 04500 015055 4401513563 04510 SC TM03+3,5,51 U3C67 04510 * 015062 1001511100 04520 JR TMISS U3C67 04520 015067 4401513573 04530 SC TM03+3,5,59 U3C67 04530 * 015074 1001511100 04540 JR TMISS U3C67 04540 * 015101 3001502400 04550 J TMTST U3C67 04550 * 015106 3000000000 04560 TMISS J 0 U3C67 04560 015113 5601431644 04570 TM01 BD1 D0NE,4 U3C67 04570 015120 6200013704 04580 AM1 95,4 U3C67 04580 015125 4140620000 04590 TM02 XF 062,0,0,0,6 * U3C67 04590 015132 4140620000 04600 TM03 XF 062,0,0,0,6 * U3C67 04600 015137 4601432272 04610 TM07 BT BZER0,5858 * U3C67 04610 015144 4140611000 04620 TM04 XF 061,0100000,0,6 * U3C67 04620 015151 7400035370 04630 TM08 CT 0353,56 6 * U3C67 04630 * 015156 3001517043 04640 JU $+10 U3C67 04640 * 015163 3000002260 04650 JD 022 ABA ERROR U3C67 04650 015170 7401432272 04660 TM09 CT BZER0,5858 * U3C67 04660 * 015175 3001520742 04670 JE $+10 U3C67 04670 * 015202 3000002360 04680 JD 023 SPEC BA ERROR U3C67 04680 015207 4401432700 04690 SC K01,0 U3C67 04690 015214 4140610000 04700 TM05 XF 061,0,0,0,6 * U3C67 04700 015221 3401432701 04710 CC K01,1 U3C67 04710 * 015226 3001524042 04720 JE $+10 U3C67 04720 * 015233 3000002460 04730 JD 024 TAPE MARK ERROR U3C67 04730 * 015240 3001510600 04740 J TMISS U3C67 04740 015245 4140007342 04750 TMINT XF 0,07342,2,0,6 * U3C67 04750 * 015252 3001530353 04760 JC TMI02,4343 U3C67 04760 015257 4140000001 04770 TMI01 XF 0,01,0,6,6 * U3C67 04770 * 015264 3001532253 04780 JC TMI03,4343 U3C67 04780 * 015271 3000002560 04790 JD 025 INTERRUPT ERROR U3C67 04790 * 015276 3001121100 04800 J TEST5 U3C67 04800 * 015303 3000002760 04810 TMI02 JD 027 ABNORMAL U3C67 04810 015310 4140407777 04820 XF 040,0777777,0,6 * U3C67 04820 * 015315 3001121100 04830 J TEST5 U3C67 04830 015322 4401432701 04840 TMI03 SC K01,1 U3C67 04840 015327 4140407777 04850 TMI04 XF 040,0777777,0,6 * U3C67 04850 * 015334 3000000031 04860 TMEX JC 0,25 U3C67 04860 * 015341 3000000000 04870 SKCH J 0 U3C67 04870 015346 2001635603 04880 FT SKINT,3 3 U3C67 04880 015353 5200046703 04890 SA1 0467,3 * CH6 IE U3C67 04890 015360 2001407003 04900 FT N0INT,3 3 U3C67 04900 015365 5200047703 04910 SA1 0477,3 * CH7 IE U3C67 04910 015372 4401616240 04920 SC SK02+1,0,040 * CH6 BITS U3C67 04920 015377 4401620140 04930 SC SK03+1,0,040 * CH6 BITS U3C67 04930 015404 4401620640 04940 SC SK04+1,0,040 * CH6 BITS U3C67 04940 015411 4401622040 04950 SC SK05+1,0,040 * CH6 BITS U3C67 04950 015416 4401627540 04960 SC SK06+1,0,040 * CH6 BITS U3C67 04960 015423 4401630740 04970 SC SK14+1,0,040 * CH6 BITS U3C67 04970 015430 4401635740 04980 SC SKINT+1,1,040 * CH6 BITS U3C67 04980 015435 4401641040 04990 SC SKI01+1,1,040 * CH6 BITS U3C67 04990 015442 4401616070 05000 SC SK08+4,5,56 * CH6 BASE ADD U3C67 05000 015447 5601436704 05010 BA1 BAT6,4 * U3C67 05010 015454 5201623004 05020 SA1 SK09+4,4,4 U3C67 05020 015461 4401624770 05030 SC SK10+4,5,56 * CH6 BASE ADD U3C67 05030 015466 4401625472 05040 SC SK11+4,5,58 * CH6 SPEC TET U3C67 05040 015473 4401627372 05050 SC SK12+4,5,58 * CH6 SPEC TET U3C67 05050 015500 4401621672 05060 SC SK13+4,5,58 * CH6 SPEC TET U3C67 05060 * 015505 1001566600 05070 JR SKUS U3C67 05070 015512 2001635603 05080 FT SKINT,3 3 U3C67 05080 015517 5200047703 05090 SA1 0477,3 * CH7 IE U3C67 05090 015524 2001407003 05100 FT N0INT,3 3 U3C67 05100 015531 5200046703 05110 SA1 0467,3 * CH6 IE U3C67 05110 015536 4401616260 05120 SC SK02+1,0,060 * CH7 BITS U3C67 05120 015543 4401620160 05130 SC SK03+1,0,060 * CH7 BITS U3C67 05130 015550 4401620660 05140 SC SK04+1,0,060 * CH7 BITS U3C67 05140 015555 4401622060 05150 SC SK05+1,0,060 * CH7 BITS U3C67 05150 015562 4401627560 05160 SC SK06+1,0,060 * CH7 BITS U3C67 05160 015567 4401630760 05170 SC SK14+1,0,060 * CH7 BITS U3C67 05170 015574 4401635760 05180 SC SKINT+1,1,060 * CH7 BITS U3C67 05180 015601 4401641060 05190 SC SKI01+1,1,060 * CH7 BITS U3C67 05190 015606 4401616074 05200 SC SK08+4,6,60 * CH7 BASE ADD U3C67 05200 015613 5601437304 05210 BA1 BAT7,4 * U3C67 05210 015620 5201623004 05220 SA1 SK09+4,4,4 U3C67 05220 015625 4401624774 05230 SC SK10+4,6,60 * CH7 BASE ADD U3C67 05230 015632 4401625476 05240 SC SK11+4,6,62 * CH7 SPEC TET U3C67 05240 015637 4401627376 05250 SC SK12+4,6,62 * CH7 SPEC TET U3C67 05250 015644 4401621676 05260 SC SK13+4,6,62 * CH7 SPEC TET U3C67 05260 * 015651 1001566600 05270 JR SKUS U3C67 05270 * 015656 3001534100 05280 J SKCH U3C67 05280 * 015663 3000000000 05290 SKUS J 0 U3C67 05290 015670 4401570601 05300 SKUS1 SC SKUS2+4,4,1 U3C67 05300 * 015675 1001576200 05310 JR SKTST U3C67 05310 * 015702 3201571400 05320 SKUS2 JL $+10 U3C67 05320 * 015707 3001566300 05330 J SKUS U3C67 05330 015714 6001616201 05340 AC SK02+1,1,1 U3C67 05340 015721 6001620101 05350 AC SK03+1,1,1 U3C67 05350 015726 6001620601 05360 AC SK04+1,1,1 U3C67 05360 015733 6001622001 05370 AC SK05+1,1,1 U3C67 05370 015740 6001627501 05380 AC SK06+1,1,1 U3C67 05380 015745 6001630701 05390 AC SK14+1,1,1 U3C67 05390 * 015752 3001567500 05400 J SKUS1+5 5 U3C67 05400 * 015757 3000000000 05410 SKTST J 0 U3C67 05410 015764 4401622204 05420 SC SK05+3,4,4 U3C67 05420 * 015771 1001611400 05430 JR SKISS U3C67 05430 015776 4401622214 05440 SC SK05+3,1,12 U3C67 05440 * 016003 1001611400 05450 JR SKISS U3C67 05450 016010 4401622224 05460 SC SK05+3,2,20 U3C67 05460 * 016015 1001611400 05470 JR SKISS U3C67 05470 016022 4401622234 05480 SC SK05+3,2,28 U3C67 05480 * 016027 1001611400 05490 JR SKISS U3C67 05490 016034 4401622244 05500 SC SK05+3,3,36 U3C67 05500 * 016041 1001611400 05510 JR SKISS U3C67 05510 016046 4401622254 05520 SC SK05+3,4,44 U3C67 05520 * 016053 1001611400 05530 JR SKISS U3C67 05530 016060 4401622264 05540 SC SK05+3,5,52 U3C67 05540 * 016065 1001611400 05550 JR SKISS U3C67 05550 016072 4401622274 05560 SC SK05+3,6,60 U3C67 05560 * 016077 1001611400 05570 JR SKISS U3C67 05570 * 016104 3001575700 05580 J SKTST U3C67 05580 * 016111 3000000000 05590 SKISS J 0 U3C67 05590 * 016116 1001646400 05600 JR GNSK U3C67 05600 016123 4401635003 05610 SC SK07+4,3,3 U3C67 05610 016130 5601431644 05620 SK01 BD1 D0NE,4 U3C67 05620 016135 6200013704 05630 AM1 95,4 U3C67 05630 016142 5601644000 05640 BA1 SKTP1,1616 U3C67 05640 016147 5200061700 05650 SA1 SWIM+15,5,16 U3C67 05650 016154 2000060070 05660 SK08 FT SWIM,56 6 * CH6 BASE ADD U3C67 05660 016161 4140620000 05670 SK02 XF 062,0,0,0,6 * U3C67 05670 016166 5601646000 05680 BA1 SKTP2,1616 U3C67 05680 016173 5200061700 05690 SA1 SWIM+15,5,16 U3C67 05690 016200 4140620000 05700 SK03 XF 062,0,0,0,6 * U3C67 05700 016205 4140611000 05710 SK04 XF 061,0100000,0,6 * U3C67 05710 016212 4601432272 05720 SK13 BT BZER0,5858 * CH6 SPEC TET U3C67 05720 016217 4140620400 05730 SK05 XF 062,040000,0,6 * U3C67 05730 016224 7400035370 05740 SK09 CT 0353,56 6 * U3C67 05740 * 016231 3001624343 05750 JU $+10 U3C67 05750 * 016236 3000003260 05760 JD 032 ABA ERROR U3C67 05760 016243 2000460070 05770 SK10 FT SRIM,56 6 * U3C67 05770 016250 7401432270 05780 SK11 CT BZER0,5656 * U3C67 05780 * 016255 3001627442 05790 JE $+15 U3C67 05790 * 016262 3000003360 05800 JD 033 SPEC BA ERROR U3C67 05800 016267 4601432272 05810 SK12 BT BZER0,5858 * U3C67 05810 016274 4140611000 05820 SK06 XF 061,0100000,0,6 * U3C67 05820 016301 2600461700 05830 PD SRIM+15,5,16 U3C67 05830 016306 4140610000 05840 SK14 XF 061,0,0,0,6 * U3C67 05840 016313 5600461700 05850 BA1 SRIM+15,5,16 U3C67 05850 016320 7001644040 05860 CB1 SKTP1,1616 U3C67 05860 * 016325 3001633742 05870 JE $+10 U3C67 05870 * 016332 3000003460 05880 JD 034 ERASE ERROR U3C67 05880 016337 6001622201 05890 AC SK05+3,1,1 U3C67 05890 * 016344 3201613004 05900 SK07 JL SK01,4 U3C67 05900 * 016351 3001611100 05910 J SKISS U3C67 05910 016356 4140007777 05920 SKINT XF 0,07777,7,0,6 * U3C67 05920 * 016363 3001640253 05930 JC $+15,43 3 U3C67 05930 * 016370 3000003560 05940 JD 035 INTERRUPT ERROR U3C67 05940 * 016375 3001640700 05950 J $+10 U3C67 05950 * 016402 3000003760 05960 JD 037 U3C67 05960 016407 4140407777 05970 SKI01 XF 040,0777777,0,6 * U3C67 05970 * 016414 3001130031 05980 JC TEST6,2525 U3C67 05980 016430 0707070707070707 05990 +8 0070707070707070707 U3C67 05990 7 016440 0707070707070707 06000 SKTP1 +8 0070707070707070707 U3C67 06000 7 016450 7070707070707070 06010 +8 0707070707070707070 U3C67 06010 0 016460 7070707070707070 06020 SKTP2 +8 0707070707070707070 U3C67 06020 0 000600 06030 SWIM EQU 00600 U3C67 06030 004600 06040 SRIM EQU 0004600 0 U3C67 06040 * 016461 3000000000 06050 GNSK J 0 U3C67 06050 016466 2000200022 06060 FT 1024,18 8 U3C67 06060 016473 2000062020 06070 FT SWIM+16,6,16 U3C67 06070 016500 4401653002 06080 SC GNSK1+4,4,2 U3C67 06080 016505 5601434700 06090 BA1 TPPAT,1616 U3C67 06090 016512 5200061700 06100 SA1 SWIM+15,5,16 U3C67 06100 016517 2400060021 06110 TFI SWIM U3C67 06110 * 016524 3201651702 06120 GNSK1 JL $-5,2 U3C67 06120 * 016531 3001646100 06130 J GNSK U3C67 06130 * 016536 3000000000 06140 RWCH J 0 U3C67 06140 016543 2001731303 06150 FT RWINT,3 3 U3C67 06150 016550 5200046703 06160 SA1 0467,3 * CH6 IE U3C67 06160 016555 2001407003 06170 FT N0INT,3 3 U3C67 06170 016562 5200047703 06180 SA1 0477,3 * CH7 IE U3C67 06180 016567 4401713640 06190 SC RW01+1,0,040 * CH6 BITS U3C67 06190 016574 4401715540 06200 SC RW02+1,0,040 * CH6 BITS U3C67 06200 016601 4401717440 06210 SC RW04+1,0,040 * CH6 BITS U3C67 06210 016606 4401725640 06220 SC RW05+1,0,040 * CH6 BITS U3C67 06220 016613 4401731440 06230 SC RWINT+1,1,040 * CH6 BITS U3C67 06230 016620 4401734540 06240 SC RWI01+1,1,040 * CH6 BITS U3C67 06240 016625 4401711570 06250 SC RW06+4,5,56 * CH6 BASE ADD U3C67 06250 016632 4401717272 06260 SC RW07+4,5,58 * CH6 SPEC TET U3C67 06260 016637 5601436704 06270 BA1 BAT6,4 * U3C67 06270 016644 5201721104 06280 SA1 RW08+4,4,4 U3C67 06280 016651 4401723072 06290 SC RW09+4,5,58 * CH6 SPEC TET U3C67 06290 016656 4401725070 06300 SC RW10,56 6 * CH6 BASE ADD U3C67 06300 * 016663 1001702500 06310 JR RWU U3C67 06310 016670 2001731303 06320 FT RWINT,3 3 U3C67 06320 016675 5200047703 06330 SA1 0477,3 * CH7 IE U3C67 06330 016702 2001407003 06340 FT N0INT,3 3 U3C67 06340 016707 5200046703 06350 SA1 0467,3 * CH6 IE U3C67 06350 016714 4401713660 06360 SC RW01+1,0,060 * CH7 BITS U3C67 06360 016721 4401715560 06370 SC RW02+1,0,060 * CH7 BITS U3C67 06370 016726 4401717460 06380 SC RW04+1,0,060 * CH7 BITS U3C67 06380 016733 4401725660 06390 SC RW05+1,0,060 * CH7 BITS U3C67 06390 016740 4401731460 06400 SC RWINT+1,1,060 * CH7 BITS U3C67 06400 016745 4401734560 06410 SC RWI01+1,1,060 * CH7 BITS U3C67 06410 016752 4401711574 06420 SC RW06+4,6,60 * CH7 BASE ADD U3C67 06420 016757 4401717276 06430 SC RW07+4,6,62 * CH7 SPEC TET U3C67 06430 016764 5601437304 06440 BA1 BAT7,4 * U3C67 06440 016771 5201721104 06450 SA1 RW08+4,4,4 U3C67 06450 016776 4401723076 06460 SC RW09+4,6,62 * CH7 SPEC TET U3C67 06460 017003 4401725474 06470 SC RW10+4,6,60 * CH7 BASE ADD U3C67 06470 * 017010 1001702500 06480 JR RWU U3C67 06480 * 017015 3001653600 06490 J RWCH U3C67 06490 * 017022 3000000000 06500 RWU J 0 U3C67 06500 017027 4401704501 06510 RWU1 SC RWU2+4,1,1 U3C67 06510 * 017034 1001710700 06520 JR RWTST U3C67 06520 * 017041 3201705300 06530 RWU2 JL $+10 U3C67 06530 * 017046 3001702200 06540 J RWU U3C67 06540 017053 6001715501 06550 AC RW02+1,1,1 U3C67 06550 017060 6001717401 06560 AC RW04+1,1,1 U3C67 06560 017065 6001713601 06570 AC RW01+1,1,1 U3C67 06570 017072 6001725601 06580 AC RW05+1,1,1 U3C67 06580 * 017077 3001703400 06590 J RWU1+5 U3C67 06590 * 017104 3000000000 06600 RWTST J 0 U3C67 06600 017111 2001741470 06610 RW06 FT RWPAT-1515,56 * CH6 BASE ADD U3C67 06610 017116 2000002071 06620 FT 16,57 * CH6 CHAR CNT U3C67 06620 017123 2000002075 06630 FT 16,61 * CH7 CHAR CNT U3C67 06630 017130 4401716577 06640 SC RW03+4,6,63 U3C67 06640 017135 4140620000 06650 RW01 XF 062,0,0,0,6 * U3C67 06650 017142 5601435744 06660 BD1 B0NE,4 U3C67 06660 017147 6200013704 06670 AM1 95,4 U3C67 06670 017154 4140620400 06680 RW02 XF 062,040000,0,6 * U3C67 06680 * 017161 3201715400 06690 RW03 JL RW02 U3C67 06690 017166 4601432272 06700 RW07 BT BZER0,5858 * U3C67 06700 017173 4140677777 06710 RW04 XF 067,0777777,0,6 * U3C67 06710 * 017200 1001736100 06720 JR RWDLY U3C67 06720 017205 7400035370 06730 RW08 CT 0353,56 6 * U3C67 06730 * 017212 3001722443 06740 JU $+10 U3C67 06740 * 017217 3000004260 06750 JD 042 ABA ERROR U3C67 06750 017224 7401432272 06760 RW09 CT BZER0,5858 * U3C67 06760 * 017231 3001724342 06770 JE $+10 U3C67 06770 * 017236 3000004360 06780 JD 043 SPEC BA ERROR U3C67 06780 017243 2601745300 06790 PD RWRD+15,5,16 U3C67 06790 017250 2001743470 06800 RW10 FT RWRD,56 6 * CH6 BASE ADD U3C67 06800 017255 4140610000 06810 RW05 XF 061,0,0,0,6 * U3C67 06810 017262 5601745300 06820 BA1 RWRD+15,5,16 U3C67 06820 017267 7001743340 06830 CB1 RWPAT,1616 U3C67 06830 * 017274 3001710442 06840 JE RWTST U3C67 06840 * 017301 3000004460 06850 JD 044 REWIND ERROR U3C67 06850 * 017306 3001710400 06860 J RWTST U3C67 06860 017313 4140007777 06870 RWINT XF 0,07777,7,0,6 * U3C67 06870 * 017320 3001733753 06880 JC $+15,43 3 U3C67 06880 * 017325 3000004560 06890 JD 045 INTERRUPT ERROR U3C67 06890 * 017332 3001734400 06900 J $+10 U3C67 06900 * 017337 3000004760 06910 JD 047 U3C67 06910 017344 4140407777 06920 RWI01 XF 040,0777777,0,6 * U3C67 06920 * 017351 3001134300 06930 J TEST7 U3C67 06930 * 017356 3000000000 06940 RWDLY J 0 U3C67 06940 017363 2600015704 06950 PD 0157,4 U3C67 06950 017370 7601435733 06960 AT B0NE,27 7 U3C67 06960 017375 7401745733 06970 CT RWK,27 U3C67 06970 * 017402 3001737043 06980 JU $-10 U3C67 06980 * 017407 3001735600 06990 J RWDLY U3C67 06990 017423 0000000000000000 07000 +8 000000000000000000 U3C67 07000 0 017433 0000000000000000 07010 RWPAT +8 000000000000000000 U3C67 07010 0 017434 20 07020 RWRD AREA 16 U3C67 07020 017457 00177700 07030 RWK +4 00017770700 U3C67 07030 017460 02 07040 UNITS +1 002 U3C67 07040 * 017461 3000000000 07050 ITLCH J 0 U3C67 07050 017466 2001770203 07060 FT ITLI,3 U3C67 07060 017473 5200046703 07070 SA1 0467,3 * CH6 IE U3C67 07070 017500 2001407003 07080 FT N0INT,3 3 U3C67 07080 017505 5200047703 07090 SA1 0477,3 * CH7 IE U3C67 07090 017512 4401767140 07100 SC ITL01+1,1,040 * CH6 BITS U3C67 07100 017517 4401770340 07110 SC ITLI+1,0,040 * CH6 BITS U3C67 07110 017524 4401773440 07120 SC ITLI1+1,1,040 * CH6 BITS U3C67 07120 * 017531 1001762300 07130 JR ITLU U3C67 07130 * 017536 3000005460 07140 JD 054 DEPRESS CHANGE TAPE U3C67 07140 017543 2001770203 07150 FT ITLI,3 U3C67 07150 017550 5200047703 07160 SA1 0477,3 * CH7 IE U3C67 07160 017555 2001407003 07170 FT N0INT,3 3 U3C67 07170 017562 5200046703 07180 SA1 0467,3 * CH6 IE U3C67 07180 017567 4401767160 07190 SC ITL01+1,1,060 * CH7 CH BITS U3C67 07190 017574 4401770360 07200 SC ITLI+1,0,060 * CH7 BITS U3C67 07200 017601 4401773460 07210 SC ITLI1+1,1,060 * CH7 BITS U3C67 07210 * 017606 1001762300 07220 JR ITLU U3C67 07220 * 017613 3001746100 07230 J ITLCH U3C67 07230 * 017620 3000000000 07240 ITLU J 0 U3C67 07240 017625 4401764301 07250 ITLU1 SC ITLU2+4,4,1 U3C67 07250 * 017632 1001766600 07260 JR ITTST U3C67 07260 * 017637 3201765100 07270 ITLU2 JL $+10 U3C67 07270 * 017644 3001762000 07280 J ITLU U3C67 07280 017651 6001767101 07290 AC ITL01+1,1,1 U3C67 07290 * 017656 3001763200 07300 J ITLU1+5 5 U3C67 07300 * 017663 3000000000 07310 ITTST J 0 U3C67 07310 017670 4140777777 07320 ITL01 XF 077,0777777,0,6 * U3C67 07320 * 017675 3001766300 07330 J ITTST U3C67 07330 017702 4140007777 07340 ITLI XF 0,07777,7,0,6 * U3C67 07340 * 017707 3001772653 07350 JC $+15,43 3 U3C67 07350 * 017714 3000005560 07360 JD 055 INTERRUPT ERROR U3C67 07360 * 017721 3001773300 07370 J $+10 U3C67 07370 * 017726 3000005760 07380 JD 057 U3C67 07380 017733 4140407777 07390 ITLI1 XF 040,0777777,0,6 * U3C67 07390 * 017740 3001140100 07400 J TEST8 U3C67 07400 3001060000 07410 END 0010600 0 U3C67 07410 {-- tape mark --} 013373 C541 CFC67 CODEDIT SOURCE - T3834394-54 002500 00010 T540 BEGIN 02500 CFC67 00010 *LOAD 0700,TAPAPE,R,PRELD E * 002500 3007010660 * JD 070106 * * 002505 3000250000 * J $-5 * SEGMENT-ID T541 3000250000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T542 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2000111611 * FT 0700+021216,9,0 * 000457 2000070060 * FT 0700,48,8,0 * 000464 2000024261 * FT 162,49 * * 000471 3000053000 * J 0530 * 000477 0000 * +2 0 * * 000500 3000000020 * JC 0,16 * 000507 000440 * +3 0440 * * 000510 3000000020 * JC 0,16 * 000517 000510 * +3 0510 * * 000520 3000052020 * JHJ $ * 000527 000440 * +3 0440 * 000530 5600052710 * BA1 $-1,8 * 000535 5200044710 * SA1 0447,8 * 000542 4100610100 * XF 061,010000,0,4 * 000547 2000111660 * FT 0700+021216,48,0 * 000554 2000024261 * FT 162,49 * 000561 4100610100 * XF 061,010000,0,4 * * 000566 3200056102 * JL $-5,2 * 000573 2000000103 * FT 1,3 * * 000600 3000074000 * J 0700+04040,0 * 000740 * ORIG 0700+04040 * 000740 4100610100 * XF 061,010000,0,4 * 000745 6000001701 * AC 15,1 * 000752 3420022211 * CC 146,9,1 1 * * 000757 3000106542 * JE $+70 * 000764 2600004104 * PD 041,4 * 000771 3620021700 * CS 143,0,1 1 * 000776 3620011700 * CS 79,0,1 * 001003 3620001712 * CS 15,10,1 1 * 001010 1600004166 * BC2 041,6 * 001015 3620022102 * CS 145,2,1 1 * 001022 7000004162 * CB2 041,2 * * 001027 3000104142 * JE $+10 * * 001034 3007010460 * JD 070104 * 001041 4620003520 * BT 29,16,1 1 * 001046 4620003722 * BT 31,18,1 1 * 001053 2420004001 * TFR 32,,1 * * 001060 3000074000 * J $-80 * 001065 4100640000 * XF 064,0,0,0,4 * 001072 7020004642 * CB1 38,2,1 * * 001077 3020004042 * JE 32,1 * * 001104 3007010560 * JD 070105 * * 001111 3020004000 * J 32,1 * 001116 245 * AREA 165 * SEGMENT-ID T543 3000136300 * SEGJP $ * 002500 00020 ORIG 02500 CFC67 00020 * 002500 3000250520 00030 START JHJ MAJ0R CFC67 00030 002505 5601150600 00040 MAJ0R BA1 INT12,1616 CFC67 00040 002512 5200051700 00050 SA1 00517,1616 SET CLASS 1+2 IN CFC67 00050 002517 2600007700 00060 PD 077,16 CFC67 00060 002524 2600005700 00070 PD 057,16 CFC67 00070 002531 5601152620 00080 BA2 INT67,1616 * CFC67 00080 002536 5200047720 00090 SA2 0477,16 6 * SET CHANLS 6 AND 7 CFC67 00090 002543 2601146306 00100 PD SPCNT,6 6 CFC67 00100 * 002550 3000772100 00110 J D0NE CFC67 00110 002555 4401074704 00120 RX SC CIRCL+4,4,4 CFC67 00120 002562 4401143000 00130 REPET SC MARK,0 CFC67 00130 002567 4400545777 00140 SC SET+4,07077 CFC67 00140 002574 2601120714 00150 PD IR6,12 CFC67 00150 002601 2601121304 00160 PD TBL,4 CFC67 00160 002606 2600007704 00170 PD 077,4 CFC67 00170 002613 4400362204 00180 SC LW+4,4 CFC67 00180 002620 2601146004 00190 PD SPW,4 CFC67 00190 * 002625 1000545100 00200 JR L0AD CFC67 00200 002632 2601116704 00210 PD LNGTH,4 4 CFC67 00210 * 002637 1001077200 00220 JR RWIND CFC67 00220 002644 2601153604 00230 PD MAXI,4 CFC67 00230 002651 4401153677 00240 SC MAXI,63 3 CFC67 00240 * 002656 1000552122 00250 WRITE JR WTCLR,1818 CFC67 00250 * 002663 1000523500 00260 JR FIXX CFC67 00260 * 002670 1000643500 00270 NXT1 JR FIXBT FIX UNIT BITS TO CFC67 00270 002675 4140020100 00280 WRT1 XF 2,0100,0,0,6 * WRT,NO THT,LOC CFC67 00280 * 002702 1000722400 00290 JR L00P G0 WAIT F0R TPT CFC67 00290 * 002707 3000270760 00300 NC1 JD NC1 N0 C0MPLETI0N IP CFC67 00300 * 002714 3000273300 00310 J NXT2 CFC67 00310 * 002721 3000272160 00320 BSY1 JD BSY1 BUSY ST0P FR0M W CFC67 00320 * 002726 3000250500 00330 Z J MAJ0R CFC67 00330 * 002733 1040526100 00340 NXT2 JR TBA,0,2 2 CFC67 00340 * 002740 3000275700 00350 J NXT3 CFC67 00350 * 002745 3000274560 00360 BA1 JD BA1 B.A.ERR0R FR0M CFC67 00360 * 002752 3000272600 00370 J Z CFC67 00370 * 002757 1000552100 00380 NXT3 JR WTCLR CFC67 00380 * 002764 1000523500 00390 JR FIXX CFC67 00390 * 002771 1000643500 00400 JR FIXBT CFC67 00400 002776 4140222100 00410 WRT2 XF 022,0210100,0,6 * WRT+INBT,LOLO CFC67 00410 * 003003 1000722400 00420 JR L00P CFC67 00420 * 003010 3000303400 00430 J NXT4 CFC67 00430 * 003015 3000301560 00440 GC1 JD GC1 ERR0R G0T C0MPL CFC67 00440 * 003022 3000302260 00450 BSY2 JD BSY2 ERR0R G0T BSY CFC67 00450 * 003027 3000272600 00460 J Z CFC67 00460 * 003034 1040526100 00470 NXT4 JR TBA,0,2 2 CFC67 00470 * 003041 3000305300 00480 J NXT5 CFC67 00480 * 003046 3000304660 00490 BA2 JD BA2 B.A. ERR0R 0N WR CFC67 00490 * 003053 1000552100 00500 NXT5 JR WTCLR CFC67 00500 * 003060 1000523500 00510 JR FIXX CFC67 00510 003065 2000311103 00520 FT NLK3,3 CFC67 00520 003072 5200722403 00530 SA1 L00P+3,3,3 CFC67 00530 * 003077 1000643500 00540 JR FIXBT CFC67 00540 003104 4140420100 00550 WRT3 XF 042,010000,0,6 * NO INBT,LOCK,NO CFC67 00550 * 003111 3000311160 00560 NLK3 JD NLK3 ERR0R-N0L0CK 0R CFC67 00560 * 003116 3000313000 00570 J NXT6 CFC67 00570 * 003123 3000312360 00580 BSY3 JD BSY3 ERR0R-G0T BUSY 0 CFC67 00580 * 003130 1040526100 00590 NXT6 JR TBA,0,2 2 CFC67 00590 * 003135 3000314700 00600 J NXT7 CFC67 00600 * 003142 3000314260 00610 BA3 JD BA3 B.A.ERR0R 0N WR CFC67 00610 * 003147 1000552100 00620 NXT7 JR WTCLR CFC67 00620 * 003154 1000523500 00630 JR FIXX CFC67 00630 003161 2000321203 00640 FT NC4,3 CFC67 00640 003166 5200722403 00650 SA1 L00P+3,3,3 CFC67 00650 * 003173 1000636500 00660 JR DBLFX FIX BITS T0 B0TH CFC67 00660 003200 4140222100 00670 WRT4 XF 022,0210100,0,6 * INH TPT,TO FORCE BUSY CFC67 00670 003205 4140620400 00680 WRT5 XF 062,040000,0,6 * ERASE FORWARD 1 CFC67 00680 * 003212 3000321260 00690 NC4 JD NC4 CFC67 00690 * 003217 3000321760 00700 SC4 JD SC4 CFC67 00700 * 003224 3000323600 00710 BSY4 J NXT8 CFC67 00710 * 003231 3000272600 00720 J Z CFC67 00720 * 003236 1000722400 00730 NXT8 JR L00P CFC67 00730 * 003243 1040526100 00740 JR TBA,0,2 2 CFC67 00740 * 003250 3000326200 00750 J ADV1 CFC67 00750 * 003255 3000325560 00760 BA4 JD BA4 CFC67 00760 * 003262 1000552100 00770 ADV1 JR WTCLR CFC67 00770 * 003267 1000523500 00780 JR FIXX CFC67 00780 * 003274 1000643500 00790 JR FIXBT CFC67 00790 003301 4140020300 00800 WRT6 XF 2,0300,0,0,6 * ADV,BUT NO LOCK CFC67 00800 * 003306 1000722400 00810 JR L00P CFC67 00810 * 003313 3000331360 00820 NC6 JD NC6 ERR0R N0 C0MPL. CFC67 00820 * 003320 3000333200 00830 J NXT10 CFC67 00830 * 003325 3000332560 00840 BSY6 JD BSY6 ERR0R BSY IPT CFC67 00840 * 003332 1001110000 00850 NXT10 JR CKBA G0 CHECK B.A. CFC67 00850 * 003337 3000333760 00860 BA6 JD BA6 ERR0R B.A. FR0M CFC67 00860 * 003344 1000552100 00870 JR WTCLR CFC67 00870 * 003351 1000523500 00880 JR FIXX CFC67 00880 * 003356 1000643500 00890 JR FIXBT CFC67 00890 003363 4140222300 00900 WRT7 XF 022,0230300,0,6 * ADV+INH NO LOCKOUT CFC67 00900 * 003370 1000722400 00910 JR L00P CFC67 00910 * 003375 3000341400 00920 J NXT11 CFC67 00920 * 003402 3000340260 00930 SC7 JD SC7 ERR0R, G0T C0MPL CFC67 00930 * 003407 3000340760 00940 BSY7 JD BSY7 ERR0R, G0T BSY F CFC67 00940 * 003414 1001110000 00950 NXT11 JR CKBA CFC67 00950 * 003421 3000342160 00960 BA7 JD BA7 ERR0R B.A. FR0M CFC67 00960 * 003426 1000552100 00970 JR WTCLR CFC67 00970 * 003433 1000523500 00980 JR FIXX CFC67 00980 003440 2000346403 00990 FT NLK8,3 CFC67 00990 003445 5200722403 01000 SA1 L00P+3,3,3 CFC67 01000 * 003452 1000643500 01010 JR FIXBT CFC67 01010 003457 4140420300 01020 WRT8 XF 042,030000,0,6 * LOCK ADV NO INT CFC67 01020 * 003464 3000346460 01030 NLK8 JD NLK8 ERR0R,N0 L0CK0U CFC67 01030 * 003471 3000350300 01040 J NXT12 CFC67 01040 * 003476 3000347660 01050 BSY8 JD BSY8 ERR0R, BSY FR0M CFC67 01050 * 003503 1001110000 01060 NXT12 JR CKBA CFC67 01060 * 003510 3000351060 01070 BA8 JD BA8 ERR0R, B.A. FR0M CFC67 01070 * 003515 1000552100 01080 JR WTCLR CFC67 01080 * 003522 1000523500 01090 JR FIXX CFC67 01090 003527 2000356003 01100 FT NC9,3 CFC67 01100 003534 5200722403 01110 SA1 L00P+3,3,3 CFC67 01110 * 003541 1000636500 01120 JR DBLFX CFC67 01120 003546 4140222300 01130 WRT9 XF 022,0230300,0,6 * CFC67 01130 003553 4140620700 01140 WRT10 XF 062,070000,0,6 * ERASE CFC67 01140 * 003560 3000356060 01150 NC9 JD NC9 CFC67 01150 * 003565 3000356560 01160 SC9 JD SC9 CFC67 01160 * 003572 1000722400 01170 BSY9 JR L00P CFC67 01170 * 003577 1001110000 01180 NXT13 JR CKBA CFC67 01180 * 003604 3000360460 01190 BA9 JD BA9 CFC67 01190 003611 6001153602 01200 AC MAXI,2 CFC67 01200 * 003616 3200265604 01210 LW JL WRITE,4 4 CFC67 01210 003623 6001143001 01220 AX AC MARK,01 1 CFC67 01220 * 003630 3000363525 01230 JC $+5,21 CFC67 01230 003635 2601117304 01240 PD BKCTR,4 4 CFC67 01240 003642 4400535600 01250 SC FGT+4,0 0 CFC67 01250 003647 4400400040 01260 SC C0UNT+4,4,32 CFC67 01260 003654 4400542600 01270 SC CLR+4,0 0 CFC67 01270 * 003661 1000535000 01280 JR RDCLR CFC67 01280 * 003666 1000523500 01290 JR FIXX CFC67 01290 003673 6001117301 01300 BACK AC BKCTR,0101 CFC67 01300 003700 2000373603 01310 FT D0N,3 CFC67 01310 003705 5200722403 01320 SA1 L00P+3,3,3 CFC67 01320 003712 4401153505 01330 SC MAXI-1,5,5 CFC67 01330 * 003717 1000636500 01340 JR DBLFX CFC67 01340 003724 4140013200 01350 RDBK1 XF 1,03200,0,0,6 * BACKSP NO INHOR CFC67 01350 003731 4140611000 01360 RDBK2 XF 061,0100000,0,6 * INH+LOCK H.D. CFC67 01360 * 003736 3000373660 01370 D0N JD D0N N0 IPT FR0M RDBK2 CFC67 01370 * 003743 3000374360 01380 CIBS JD CIBS G0T N0 BUSY CFC67 01380 * 003750 1000722400 01390 JR L00P CFC67 01390 * 003755 3000375560 01400 N0IPT JD N0IPT N0 C0MPL. IPT. F CFC67 01400 * 003762 3000377400 01410 J C0UNT CFC67 01410 * 003767 3000376760 01420 BSYBS JD BSYBS CFC67 01420 * 003774 3200367340 01430 C0UNT JL BACK,32 2 CFC67 01430 * 004001 3000406300 01440 J TCL CFC67 01440 004006 2601153604 01450 PM PD MAXI,4 CFC67 01450 004013 4401153677 01460 SC MAXI,63 3 CFC67 01460 004020 5601146021 01470 BA2 SPW,1 CFC67 01470 004025 5200404321 01480 SA2 TD+4,1 CFC67 01480 004032 6001153662 01490 IC AC MAXI,50 0 CFC67 01490 * 004037 3200403200 01500 TD JL IC,0 CFC67 01500 * 004044 3000426500 01510 J ML CFC67 01510 004051 4401153640 01520 SC MAXI,04040 CFC67 01520 * 004056 3000426500 01530 J ML CFC67 01530 * 004063 1001104200 01540 TCL JR TSTCL G0 TEST READ IN CFC67 01540 * 004070 3000407060 01550 G0TD JD G0TD G0T DATA IN 0N B CFC67 01550 * 004075 1040526100 01560 JR TBA,0,2 2 CFC67 01560 * 004102 3000411400 01570 J NXTF4 CFC67 01570 * 004107 3000410760 01580 RDBBA JD RDBBA G0T B.A. ERR0R R CFC67 01580 004114 2601116704 01590 NXTF4 PD LNGTH,4 4 CFC67 01590 004121 2601120714 01600 PD IR6,12 CFC67 01600 004126 2601121304 01610 PD TBL,4 CFC67 01610 004133 4400427102 01620 SC ML+4,2 CFC67 01620 004140 4400535640 01630 SC FGT+4,3232 CFC67 01630 004145 2600007704 01640 PD 077,4 CFC67 01640 004152 4400521704 01650 SC LR+4,4 CFC67 01650 004157 4400542600 01660 SC CLR+4,0 0 CFC67 01660 * 004164 1000535025 01670 READ JR RDCLR,2121 CFC67 01670 * 004171 1000523500 01680 JR FIXX CFC67 01680 * 004176 1000643500 01690 JR FIXBT CFC67 01690 004203 4140010100 01700 RD1 XF 1,0100,0,0,6 * READ NO IHB,LOCK CFC67 01700 * 004210 1000722400 01710 JR L00P CFC67 01710 * 004215 3000421560 01720 NCR1 JD NCR1 ERR0R N0 C0MPL. CFC67 01720 * 004222 3000423400 01730 J NXT15 CFC67 01730 * 004227 3000422760 01740 BYR1 JD BYR1 ERR0R G0T BUSY F CFC67 01740 * 004234 1040526100 01750 NXT15 JR TBA,0,2 2 CFC67 01750 * 004241 3000425300 01760 J BAR1+5 CFC67 01760 * 004246 3000424660 01770 BAR1 JD BAR1 ERR0R 0N B.A. CFC67 01770 * 004253 1000677100 01780 JR TEST CFC67 01780 * 004260 3000426060 01790 TST1 JD TST1 CFC67 01790 * 004265 3200400602 01800 ML JL PM,2 CFC67 01800 * 004272 1000535000 01810 JR RDCLR CFC67 01810 * 004277 1000523500 01820 JR FIXX CFC67 01820 * 004304 1000643500 01830 JR FIXBT CFC67 01830 004311 4140212100 01840 RD2 XF 021,0210100,0,6 * THBT,NO LOCK CFC67 01840 * 004316 1000722400 01850 JR L00P CFC67 01850 * 004323 3000434200 01860 J NXT17 CFC67 01860 * 004330 3000433060 01870 RC1 JD RC1 G0T C0MPLETI0N T CFC67 01870 * 004335 3000433560 01880 BYR2 JD BYR2 ERR0R G0T BUSY F CFC67 01880 * 004342 1040526100 01890 NXT17 JR TBA,0,2 2 CFC67 01890 * 004347 3000436100 01900 J NXT18 CFC67 01900 * 004354 3000435460 01910 BAR2 JD BAR2 ERR0R B.A. RD2 CFC67 01910 * 004361 1000677100 01920 NXT18 JR TEST CFC67 01920 * 004366 3000436660 01930 TST2 JD TST2 CFC67 01930 * 004373 1000535000 01940 JR RDCLR CFC67 01940 * 004400 1000523500 01950 JR FIXX CFC67 01950 004405 2000443103 01960 FT RNL3,3 CFC67 01960 004412 5200722403 01970 SA1 L00P+3,3,3 CFC67 01970 * 004417 1000643500 01980 JR FIXBT CFC67 01980 004424 4140410100 01990 RD3 XF 041,010000,0,6 * CFC67 01990 * 004431 3000443160 02000 RNL3 JD RNL3 ERR0R, N0 L0CK0U CFC67 02000 * 004436 3000445000 02010 J NXT19 CFC67 02010 * 004443 3000444360 02020 BYR3 JD BYR3 BUSY ERR0R, RD3 CFC67 02020 * 004450 1040526100 02030 NXT19 JR TBA,0,2 2 CFC67 02030 * 004455 3000446700 02040 J NXT20 CFC67 02040 * 004462 3000446260 02050 BAR3 JD BAR3 B.A. ERR0R, RD3 CFC67 02050 * 004467 1000677100 02060 NXT20 JR TEST CFC67 02060 * 004474 3000447460 02070 TST3 JD TST3 DATA ERR0R FR0M CFC67 02070 * 004501 1000535000 02080 JR RDCLR CFC67 02080 * 004506 1000523500 02090 JR FIXX CFC67 02090 004513 2000453703 02100 FT RNC4,3 CFC67 02100 004520 5200722403 02110 SA1 L00P+3,3,3 CFC67 02110 * 004525 1000643500 02120 JR FIXBT CFC67 02120 004532 4140612100 02130 RD4 XF 061,0210100,0,6 * CFC67 02130 * 004537 3000455600 02140 RNC4 J NXT21 CFC67 02140 * 004544 3000454460 02150 RSC4 JD RSC4 G0T SUCESSFUL C0 CFC67 02150 * 004551 3000455160 02160 RBY4 JD RBY4 BUSY ERR0R FR0M CFC67 02160 * 004556 1000677100 02170 NXT21 JR TEST CFC67 02170 * 004563 3000456360 02180 TST4 JD TST4 DATA ERR0R FR0M CFC67 02180 * 004570 1040526100 02190 JR TBA,0,2 2 CFC67 02190 * 004575 3000460700 02200 J ADVR1 CFC67 02200 * 004602 3000460260 02210 BAR4 JD BAR4 CFC67 02210 * 004607 1000535000 02220 ADVR1 JR RDCLR CFC67 02220 * 004614 1000523500 02230 JR FIXX CFC67 02230 * 004621 1000643500 02240 JR FIXBT CFC67 02240 004626 4140010300 02250 RD6 XF 1,0300,0,0,6 * CFC67 02250 * 004633 1000722400 02260 JR L00P CFC67 02260 * 004640 3000464060 02270 NCR6 JD NCR6 N0C0MPL. IPT CFC67 02270 * 004645 3000465700 02280 J NXT22 CFC67 02280 * 004652 3000465260 02290 RBY6 JD RBY6 BUSY FR0M RD6 CFC67 02290 * 004657 1001110000 02300 NXT22 JR CKBA CFC67 02300 * 004664 3000466460 02310 BAR6 JD BAR6 B.A. ERR0R FR0M CFC67 02310 * 004671 1000677100 02320 JR TEST CFC67 02320 * 004676 3000467660 02330 TST6 JD TST6 DATA ERR0R, RD6 CFC67 02330 * 004703 1000535000 02340 JR RDCLR CFC67 02340 * 004710 1000523500 02350 JR FIXX CFC67 02350 * 004715 1000643500 02360 JR FIXBT CFC67 02360 004722 4140212300 02370 RD7 XF 021,0230300,0,6 * CFC67 02370 * 004727 1000722400 02380 JR L00P CFC67 02380 * 004734 3000475300 02390 J NXT23 CFC67 02390 * 004741 3000474160 02400 RSC7 JD RSC7 G0T C0MPL. IPT F CFC67 02400 * 004746 3000474660 02410 RBY7 JD RBY7 BUSY FR0M RD7 CFC67 02410 * 004753 1001110000 02420 NXT23 JR CKBA CFC67 02420 * 004760 3000476060 02430 BAR7 JD BAR7 B.A. ERR0R FR0M CFC67 02430 * 004765 1000677100 02440 JR TEST CFC67 02440 * 004772 3000477260 02450 TST7 JD TST7 DATA ERR0R FR0M CFC67 02450 * 004777 1000535000 02460 JR RDCLR CFC67 02460 * 005004 1000523500 02470 JR FIXX CFC67 02470 005011 2000503503 02480 FT RNL8,3 CFC67 02480 005016 5200722403 02490 SA1 L00P+3,3,3 CFC67 02490 * 005023 1000643500 02500 JR FIXBT CFC67 02500 005030 4140410300 02510 RD8 XF 041,030000,0,6 * CFC67 02510 * 005035 3000503560 02520 RNL8 JD RNL8 CFC67 02520 * 005042 3000505400 02530 J NXT24 CFC67 02530 * 005047 3000504760 02540 RBY8 JD RBY8 ERR0R, G0T BUSY, CFC67 02540 * 005054 1001110000 02550 NXT24 JR CKBA CFC67 02550 * 005061 3000506160 02560 BAR8 JD BAR8 B.A. ERR0R CFC67 02560 * 005066 1000677100 02570 JR TEST CFC67 02570 * 005073 3000507360 02580 TST8 JD TST8 DATA ERR0R FR0M CFC67 02580 * 005100 1000535000 02590 JR RDCLR CFC67 02590 * 005105 1000523500 02600 JR FIXX CFC67 02600 005112 2000514303 02610 FT RNC9,3 CFC67 02610 005117 5200722403 02620 SA1 L00P+3,3,3 CFC67 02620 * 005124 1000636500 02630 JR DBLFX CFC67 02630 005131 4140212300 02640 RD9 XF 021,0230300,0,6 * CFC67 02640 005136 4140620000 02650 XF 062,0,0,0,6 * CFC67 02650 * 005143 3000514360 02660 RNC9 JD RNC9 G0T N0 BUSY CFC67 02660 * 005150 3000515060 02670 RSC9 JD RSC9 ERR0R G0T C0MPL. CFC67 02670 * 005155 1000722400 02680 JR L00P CFC67 02680 * 005162 1001110000 02690 NXT25 JR CKBA CFC67 02690 * 005167 3000516760 02700 BAR9 JD BAR9 CFC67 02700 * 005174 1000677100 02710 JR TEST CFC67 02710 * 005201 3000520160 02720 TST9 JD TST9 CFC67 02720 005206 6001153602 02730 AC MAXI,2 CFC67 02730 * 005213 3200416404 02740 LR JL READ,4 CFC67 02740 005220 6001143001 02750 AC MARK,01 1 CFC67 02750 * 005225 1001074100 02760 JR RESET CFC67 02760 * 005232 3000000000 02770 FIXX J 0 CFC67 02770 005237 2001156070 02780 FT IMAGE,5656 * CFC67 02780 005244 2001156074 02790 FT IMAGE,6060 * CFC67 02790 * 005251 3000523200 02800 J FIXX CFC67 02800 * 005256 3000000000 02810 TBA J 0 CFC67 02810 005263 7401154270 02820 CT IMG,56 * CFC67 02820 * 005270 3000525642 02830 JE TBA CFC67 02830 * 005275 3000533300 02840 J OOPS CFC67 02840 * 005302 3000000000 02850 TBAX J 0 CFC67 02850 005307 7401154274 02860 CT IMG,60 * CFC67 02860 * 005314 3000530242 02870 JE TBAX CFC67 02870 005321 6000530505 02880 AC TBAX+3,0,05 CFC67 02880 * 005326 3000530200 02890 J TBAX CFC67 02890 005333 6000526105 02900 OOPS AC TBA+3,0505 CFC67 02900 * 005340 3000525600 02910 J TBA CFC67 02910 * 005345 3000000031 02920 RDCLR JC 0,25 CFC67 02920 * 005352 3000541040 02930 FGT JC PDD,32 CFC67 02930 005357 4761122735 02940 BT LT,29,7 7 CFC67 02940 005364 4201116735 02950 ST LNGTH,2929 CFC67 02950 005371 4200034735 02960 ST 0347,29 9 * CFC67 02960 005376 4200036735 02970 ST 0367,29 9 * CFC67 02970 005403 6000007704 02980 AC 077,4 CFC67 02980 005410 2601156001 02990 PDD PD IMAGE,1 1 CFC67 02990 005415 4400545700 03000 SC SET+4,0 0 CFC67 03000 * 005422 1000545100 03010 CLR JR L0AD CFC67 03010 005427 4400542640 03020 SC CLR+4,3232 CFC67 03020 005434 2601556204 03030 PD IMAGE+202050,4 CFC67 03030 * 005441 3000534500 03040 J RDCLR CFC67 03040 * 005446 3000000000 03050 L0AD J 0 CFC67 03050 005453 4401156077 03060 SET SC IMAGE,07077 CFC67 03060 005460 2000000022 03070 FT 0,18 CFC67 03070 005465 4400551002 03080 SC LU+4,2 CFC67 03080 005472 2001156120 03090 FT IMAGE+1,1,16 CFC67 03090 005477 2401156021 03100 TFI IMAGE,1 1 CFC67 03100 * 005504 3200547700 03110 LU JL $-5,0 CFC67 03110 * 005511 3000544600 03120 J L0AD CFC67 03120 * 005516 3000000031 03130 WTCLR JC 0,25 CFC67 03130 005523 4761122734 03140 BT LT,28,7 7 CFC67 03140 005530 4201116734 03150 ST LNGTH,2828 CFC67 03150 005535 4200034734 03160 ST 0347,28 8 * CFC67 03160 005542 4200036734 03170 ST 0367,28 8 * CFC67 03170 005547 6000007704 03180 AC 077,4 CFC67 03180 005554 4601120315 03190 BT IR5,13 CFC67 03190 005561 4601121336 03200 BT TBL,30 CFC67 03200 005566 4201142736 03210 ST TABLE,3030 CFC67 03210 005573 4601116716 03220 BT LNGTH,1414 CFC67 03220 005600 3401142763 03230 TSTZ CC TABLE,06063 CFC67 03230 * 005605 3000570642 03240 JE CHECK CFC67 03240 005612 5601142701 03250 DRAW BA1 TABLE,1 1 CFC67 03250 005617 5321156001 03260 SA1 IMAGE,1,1,5 TEST IR5 EQ. IR6 CFC67 03260 005624 6000006701 03270 AC 067,01 INCR. IR5 CFC67 03270 005631 7400006716 03280 TST56 CT 067,14 FINISHED FILLING CFC67 03280 * 005636 3000565542 03290 JE FILL CFC67 03290 005643 6001142701 03300 AC TABLE,0101 CFC67 03300 * 005650 3000560000 03310 J TSTZ CFC67 03310 005655 6001142701 03320 FILL AC TABLE,0101 CFC67 03320 005662 4601142736 03330 BT TABLE,3030 CFC67 03330 005667 4201121336 03340 ST TBL,30 CFC67 03340 005674 4201120315 03350 ST IR5,13 CFC67 03350 * 005701 3000551600 03360 J WTCLR CFC67 03360 005706 3401143000 03370 CHECK CC MARK,0 CFC67 03370 * 005713 3000561242 03380 JE DRAW CFC67 03380 005720 3401143002 03390 CC MARK,02 2 CFC67 03390 * 005725 3000561242 03400 JE DRAW CFC67 03400 005732 6001142701 03410 AC TABLE,0101 CFC67 03410 * 005737 3000561200 03420 J DRAW CFC67 03420 * 005744 3000000000 03430 CKMRK J 0 CHECK MARK,DETE CFC67 03430 005751 2600007314 03440 PD 073,12 CLEAR IR4,5+6 CFC67 03440 005756 4400576700 03450 SC C0MP+4,0,0 CFC67 03450 005763 3401143000 03460 C0MP CC MARK,0 CFC67 03460 * 005770 3100601442 03470 JE PATH1,4 4 CFC67 03470 005775 6000576701 03480 AC C0MP+4,0,01 CFC67 03480 006002 6000006336 03490 AC 063,036 6 CFC67 03490 * 006007 3000576300 03500 J C0MP CFC67 03500 006014 4400653201 03510 PATH1 SC LS2+4,0101 WRITING,CHAN4, CFC67 03510 006021 4400653740 03520 SC LS3+4,04040 * CHAN BITS LSD CFC67 03520 006026 4400654401 03530 SC LS4+4,0101 CHAN BITS MSD CFC67 03530 006033 2600005310 03540 PD 053,8 CFC67 03540 * 006040 3000574400 03550 J CKMRK CFC67 03550 * 006045 1000250100 03560 JR 02476,0 0 CFC67 03560 006052 4400653201 03570 PATH2 SC LS2+4,0101 READING,CHAN4, CFC67 03570 006057 4400653740 03580 SC LS3+4,04040 * CFC67 03580 006064 4400654401 03590 SC LS4+4,0101 CFC67 03590 * 006071 3000574400 03600 J CKMRK CFC67 03600 * 006076 1000250100 03610 JR 02476,0 0 CFC67 03610 * 006103 1000250100 03620 JR 02476,0 0 CFC67 03620 006110 4400653201 03630 PATH3 SC LS2+4,0101 WRITING,CHAN5, CFC67 03630 006115 4400653760 03640 SC LS3+4,06060 * CFC67 03640 006122 4400654401 03650 SC LS4+4,0101 CFC67 03650 006127 2000002011 03660 FT 020,9 CFC67 03660 006134 2000002412 03670 FT 20,10 CFC67 03670 * 006141 3000574400 03680 J CKMRK CFC67 03680 006146 4400653201 03690 PATH4 SC LS2+4,0101 READING,CHAN5, CFC67 03690 006153 4400653760 03700 SC LS3+4,06060 * CFC67 03700 006160 4400654401 03710 SC LS4+4,0101 CFC67 03710 * 006165 3000574400 03720 J CKMRK CFC67 03720 * 006172 1000250100 03730 JR 02476,0 0 CFC67 03730 * 006177 1000250100 03740 JR 02476,0 0 CFC67 03740 006204 4400653200 03750 PATH5 SC LS2+4,0 0 WRITING,CHAN4, CFC67 03750 006211 4400653740 03760 SC LS3+4,04040 * CFC67 03760 006216 4400654401 03770 SC LS4+4,0101 CFC67 03770 006223 2600005310 03780 PD 053,8 CFC67 03780 * 006230 3000574400 03790 J CKMRK CFC67 03790 * 006235 1000250100 03800 JR 02476,0 0 CFC67 03800 006242 4400653200 03810 PATH6 SC LS2+4,0 0 READING,CHAN,4, CFC67 03810 006247 4400653740 03820 SC LS3+4,04040 * CFC67 03820 006254 4400654401 03830 SC LS4+4,0101 CFC67 03830 * 006261 3000574400 03840 J CKMRK CFC67 03840 * 006266 1000250100 03850 JR 02476,0 0 CFC67 03850 * 006273 1000250100 03860 JR 02476,0 0 CFC67 03860 006300 4400653200 03870 PATH7 SC LS2+4,0 0 WRITING,CHAN5, CFC67 03870 006305 4400653760 03880 SC LS3+4,06060 * CFC67 03880 006312 4400654401 03890 SC LS4+4,0101 CFC67 03890 006317 2000002011 03900 FT 020,9 CFC67 03900 006324 2000002412 03910 FT 20,10 CFC67 03910 * 006331 3000574400 03920 J CKMRK CFC67 03920 006336 4400653200 03930 PATH8 SC LS2+4,0 0 READING,CHAN5,B CFC67 03930 006343 4400653760 03940 SC LS3+4,06060 * CFC67 03940 006350 4400654401 03950 SC LS4+4,0101 CFC67 03950 * 006355 3000574400 03960 J CKMRK CFC67 03960 * 006362 3000000000 03970 DBLFX J 0 CFC67 03970 006367 4400655140 03980 SC JUMP+4,0,040 SET JUMP T0 SKIP CFC67 03980 * 006374 1000574700 03990 JR CKMRK G0 CHECK MARK CFC67 03990 006401 4601155415 04000 BT SVIR5,1313 CFC67 04000 006406 4400656302 04010 SC DBLP+4,0,02 SET D0UBLE L00P CFC67 04010 006413 5600636503 04020 BA1 DBLFX+3,3,3 SET FIRST XF ADR CFC67 04020 006420 5200007303 04030 SA1 073,3 TR6 CFC67 04030 * 006425 3000647000 04040 J SET1 CFC67 04040 * 006432 3000000000 04050 FIXBT J 0 CFC67 04050 006437 4400655100 04060 SC JUMP+4,0,0 SET JUMP T0 JUMP CFC67 04060 * 006444 1000574700 04070 JR CKMRK CFC67 04070 006451 4601155415 04080 BT SVIR5,1313 CFC67 04080 006456 5600643503 04090 BA1 FIXBT+3,3,3 CFC67 04090 006463 5200007303 04100 SA1 073,3 SET XF ADRESS.T CFC67 04100 006470 5721154301 04110 SET1 BA1 IMG+1,1,1,5 CFC67 04110 006475 5200652501 04120 SA1 LS1+4,1 1 CFC67 04120 006502 5540000376 04130 LP 03,076,6,6 ERASEOLDMODERITB CFC67 04130 006507 5540000076 04140 LP 00,076,6,6 ERASE OLD CFC67 04140 006514 5540000100 04150 LP 01,00,6 6 CHAN. BITS + UNI CFC67 04150 006521 6540000100 04160 LS1 LS 01,0,6 INSERT UNIT BITS CFC67 04160 006526 6540000300 04170 LS2 LS 03,0,6 INSERT MODE BITS CFC67 04170 006533 6540000100 04180 LS3 LS 01,0,6 INSERT CHAN. BIT CFC67 04180 006540 6540000000 04190 LS4 LS 0,0,6 INSERT CHAN BITS CFC67 04190 * 006545 3000643200 04200 JUMP J FIXBT,0 0 CFC67 04200 006552 6000007305 04210 AC 073,05 INCR. TR6 BY 5 CFC67 04210 * 006557 3200650202 04220 DBLP JL SET1+10,0,2 CFC67 04220 * 006564 3000636200 04230 J DBLFX CFC67 04230 * 006571 3000657160 04240 D00M JD D00M CFC67 04240 * 006576 3000272600 04250 J Z CFC67 04250 * 006603 3000000000 04260 SP0T J 0 CFC67 04260 006610 5600047700 04270 BA1 0477,16 6 * CFC67 04270 006615 4401153505 04280 SC CNTER+3,3,5 CFC67 04280 006622 5600722505 04290 BA1 L00P+4,5,5 CFC67 04290 006627 5201145505 04300 SA1 SVELP,5 5 CFC67 04300 006634 2000664103 04310 FT DAD,3 CFC67 04310 006641 5200722403 04320 DAD SA1 L00P+3,3,3 CFC67 04320 * 006646 1000643500 04330 JR FIXBT CFC67 04330 006653 4140611000 04340 XF 061,0100000,0,6 * BACKSPCE,LOCKOUT CFC67 04340 * 006660 3000667265 04350 JC AXL,53 CFC67 04350 * 006665 3000672300 04360 J NXT14 CFC67 04360 * 006672 1000643500 04370 AXL JR FIXBT CFC67 04370 006677 4140620400 04380 XF 062,040000,0,6 * CFC67 04380 006704 6001146001 04390 AC SPW,1 CFC67 04390 006711 3401146000 04400 CC SPW,64 CFC67 04400 * 006716 3000657142 04410 JE D00M CFC67 04410 006723 5601145000 04420 NXT14 BA1 IE67,16 6 * CFC67 04420 * 006730 3000000040 04430 JC 0,32 SKIP CFC67 04430 006735 5601145505 04440 BA1 SVELP,5 5 CFC67 04440 006742 5200722505 04450 SA1 L00P+4,5,5 CFC67 04450 006747 6001146301 04460 AC SPCNT,0101 CFC67 04460 * 006754 3000551665 04470 JC WTCLR,5353 CFC67 04470 * 006761 3000534500 04480 J RDCLR CFC67 04480 * 006766 3000000000 04490 TEST J 0 SET LENGTH T0 IR CFC67 04490 006773 2600005704 04500 PD 057,4 CLEAR IR3 CFC67 04500 007000 6000005701 04510 AC 057,1 CFC67 04510 007005 4400701600 04520 SC T+4,0 CFC67 04520 007012 3461155700 04530 T CC ERSCT,0,0,3 CFC67 04530 * 007017 3000713243 04540 JU CHK CFC67 04540 007024 7401116713 04550 LAST CT LNGTH,1111 CFC67 04550 * 007031 3000710142 04560 JE TAT CFC67 04560 007036 6000005701 04570 AC 057,01 INCR, IR3 CFC67 04570 007043 3400701677 04580 CC T+4,077 7 CFC67 04580 * 007050 3000706742 04590 JE RST CFC67 04590 007055 6000701601 04600 LX AC T+4,1 CFC67 04600 * 007062 3000701200 04610 J T CFC67 04610 007067 4400701600 04620 RST SC T+4,0 CFC67 04620 * 007074 3000701200 04630 J T CFC67 04630 007101 3461156000 04640 TAT CC ERSCT+1,1,0,3 CFC67 04640 * 007106 3000712042 04650 JE GX CFC67 04650 * 007113 1000720500 04660 JR BX CFC67 04660 007120 6000677105 04670 GX AC TEST+3,5,5 CFC67 04670 * 007125 3000676600 04680 J TEST RETURN T0 PR0G. CFC67 04680 007132 3400701663 04690 CHK CC T+4,063 3 CFC67 04690 * 007137 3000715142 04700 JE M0DE CFC67 04700 * 007144 3000676600 04710 J TEST ERR0R, IMAGE D0F CFC67 04710 007151 3401143005 04720 M0DE CC MARK,05 5 IF READ M0DE IS CFC67 04720 * 007156 3000705542 04730 JE LX CFC67 04730 007163 3401143007 04740 CC MARK,07 7 CFC67 04740 * 007170 3000705542 04750 JE LX CFC67 04750 * 007175 1000720500 04760 JR BX CFC67 04760 * 007202 3000000000 04770 BX J 0 CFC67 04770 007207 5661156000 04780 BA1 ERSCT+1,1,16,3 CFC67 04780 * 007214 3000676600 04790 J TEST CFC67 04790 * 007221 3000000000 04800 L00P J 0 CFC67 04800 007226 4400752342 04810 SC TIME+4,3,34 CFC67 04810 007233 2601153203 04820 L0P PD CNTER,3 3 CLEAR C0UNTER CFC67 04820 007240 4140000001 04830 XF 0,1,0,6 6 * TEST ALL INDICATORS CFC67 04830 007245 4160000001 04840 XF 0,1,0,7 7 * OR COUNTER REACH CFC67 04840 007252 4140000002 04850 XF 0,2,0,6 6 * FOUND SET. CFC67 04850 * 007257 3000754353 04860 JC E0T4,43 3 CFC67 04860 007264 4160000002 04870 XF 0,2,0,7 7 * CFC67 04870 * 007271 3000755053 04880 JC E0T5,43 3 CFC67 04880 007276 4140000040 04890 XF 0,040,0,0,6 * CFC67 04890 007303 4160000040 04900 XF 0,040,0,0,7 * CFC67 04900 007310 4140000100 04910 XF 0,0100,0,0,6 * CFC67 04910 * 007315 3000756753 04920 JC MDPE4,4343 CFC67 04920 007322 4160000100 04930 XF 0,0100,0,0,7 * CFC67 04930 * 007327 3000757453 04940 JC MDPE5,4343 CFC67 04940 007334 4140000200 04950 XF 0,0200,0,0,6 * CFC67 04950 * 007341 3000760153 04960 JC CPE4,43 3 CFC67 04960 007346 4160000200 04970 XF 0,0200,0,0,7 * CFC67 04970 * 007353 3000760653 04980 JC CPE5,43 3 CFC67 04980 007360 4140000400 04990 XF 0,0400,0,0,6 * CFC67 04990 * 007365 3000761353 05000 JC MAE4,43 3 CFC67 05000 007372 4160000400 05010 XF 0,0400,0,0,7 * CFC67 05010 * 007377 3000762053 05020 JC MAE5,43 3 CFC67 05020 007404 4140001000 05030 XF 0,01000,0,0,6 * CFC67 05030 * 007411 3000762553 05040 JC NR4,43 CFC67 05040 007416 4160001000 05050 XF 0,01000,0,0,7 * CFC67 05050 * 007423 3000763253 05060 JC NR5,43 CFC67 05060 007430 4140002000 05070 XF 0,02000,0,0,6 * CFC67 05070 * 007435 3000763753 05080 JC AUB4,43 3 CFC67 05080 007442 4160002000 05090 XF 0,02000,0,0,7 * CFC67 05090 * 007447 3000764453 05100 JC AUB5,43 3 CFC67 05100 007454 4140004000 05110 XF 0,04000,0,0,6 * CFC67 05110 * 007461 3000765153 05120 JC M0A4,43 3 CFC67 05120 007466 4160004000 05130 XF 0,04000,0,0,7 * CFC67 05130 * 007473 3000767053 05140 JC M0A5,43 3 CFC67 05140 007500 6001153201 05150 AC CNTER,0101 CFC67 05150 007505 5601153604 05160 BA1 MAXI,4 CFC67 05160 007512 7001153244 05170 CB1 CNTER,4 4 CFC67 05170 * 007517 3000722142 05180 TIME JE L00P CFC67 05180 * 007524 3000724000 05190 J L0P+5 CFC67 05190 * 007531 3000753160 05200 TMD4 JD TMD4 DETATL BIT INDIC CFC67 05200 * 007536 3000753660 05210 TMD5 JD TMD5 F0UND SET WHILE CFC67 05210 * 007543 3000754360 05220 E0T4 JD E0T4 INDS. IN L00P SU CFC67 05220 * 007550 3000755060 05230 E0T5 JD E0T5 WILL CAUSE A ST0 CFC67 05230 * 007555 3000755560 05240 TPE4 JD TPE4 THIS TABLE 0F ST CFC67 05240 * 007562 3000756260 05250 TPE5 JD TPE5 THE TAGS ARE ABB CFC67 05250 * 007567 3000756760 05260 MDPE4 JD MDPE4 0F THE ERR0R IND CFC67 05260 * 007574 3000757460 05270 MDPE5 JD MDPE5 N0.S 4 0R 5 INDI CFC67 05270 * 007601 3000760160 05280 CPE4 JD CPE4 CHANNEL. T0 DETE CFC67 05280 * 007606 3000760660 05290 CPE5 JD CPE5 H0W FAR THE PR0G CFC67 05290 * 007613 3000761360 05300 MAE4 JD MAE4 REFER T0 THE ADD CFC67 05300 * 007620 3000762060 05310 MAE5 JD MAE5 JUMP INST. TAGGE CFC67 05310 * 007625 3000762560 05320 NR4 JD NR4 AND L00K AT THE CFC67 05320 * 007632 3000763260 05330 NR5 JD NR5 TAGGED MARK. CFC67 05330 * 007637 3000763760 05340 AUB4 JD AUB4 CFC67 05340 * 007644 3000764460 05350 AUB5 JD AUB5 CFC67 05350 * 007651 3000765160 05360 M0A4 JD M0A4 CFC67 05360 007656 4401153377 05370 SC MAXI-3,0,077 CFC67 05370 * 007663 3000723331 05380 JC L0P,25 CFC67 05380 * 007670 3000767000 05390 M0A5 JC M0A5 CFC67 05390 * 007675 3000723331 05400 JC L0P,25 CFC67 05400 007702 6001155401 05410 PASS AC SVIR5,0101 CFC67 05410 007707 4601155415 05420 BT SVIR5,1313 CFC67 05420 * 007714 3200774006 05430 ALL JL SEC0N,0606 CFC67 05430 007721 4400772006 05440 D0NE SC ALL+4,0606 CFC67 05440 007726 2601155404 05450 PD SVIR5,4 4 CFC67 05450 * 007733 3000255524 05460 JC RX,20 CFC67 05460 007740 5721154301 05470 SEC0N BA1 IMG+1,1,1,5 CFC67 05470 007745 3400001777 05480 CC 017,077 7 TEST F0R ZENT CFC67 05480 * 007752 3000772142 05490 JE D0NE CFC67 05490 * 007757 3000255500 05500 J RX CFC67 05500 007764 4140000001 05510 IPT4 XF 0,1,0,6 6 * CFC67 05510 * 007771 3001031353 05520 JC TM4,43 CFC67 05520 007776 4140000002 05530 XF 0,2,0,6 6 * CFC67 05530 * 010003 3001032553 05540 JC ET4,43 CFC67 05540 010010 4140000040 05550 XF 0,040,0,0,6 * CFC67 05550 * 010015 3001034453 05560 JC TAPE4,4343 CFC67 05560 010022 4140000100 05570 XF 0,0100,0,0,6 * CFC67 05570 * 010027 3001037553 05580 JC MPE4,43 3 CFC67 05580 010034 4140000200 05590 XF 0,0200,0,0,6 * CFC67 05590 * 010041 3001041453 05600 JC CP4,43 CFC67 05600 010046 4140000400 05610 XF 0,0400,0,0,6 * CFC67 05610 * 010053 3001042153 05620 JC MA4,43 CFC67 05620 010060 4140001000 05630 XF 0,01000,0,0,6 * CFC67 05630 * 010065 3001042653 05640 JC N0R4,43 3 CFC67 05640 010072 4140002000 05650 XF 0,02000,0,0,6 * CFC67 05650 * 010077 1001044353 05660 JR UB4,43 CFC67 05660 010104 4140004000 05670 XF 0,04000,0,0,6 * CFC67 05670 * 010111 3001047653 05680 JC MM0A4,4343 CFC67 05680 * 010116 1001012600 05690 JR C0MX CFC67 05690 * 010123 3000000000 05700 C0MX J 0 CFC67 05700 010130 5600722505 05710 BA1 L00P+4,5,5 CFC67 05710 010135 6000001605 05720 AC 016,05 CFC67 05720 010142 5201122305 05730 SA1 K5+4,5 CFC67 05730 * 010147 3001121731 05740 JC K5,25 CFC67 05740 010154 4160000001 05750 IPT5 XF 0,1,0,7 7 * CFC67 05750 * 010161 3001052753 05760 JC TM5,43 CFC67 05760 010166 4160000002 05770 XF 0,2,0,7 7 * CFC67 05770 * 010173 3001054653 05780 JC ET5,43 CFC67 05780 010200 4160000040 05790 XF 0,040,0,0,7 * CFC67 05790 * 010205 3001056053 05800 JC TAPE5,4343 CFC67 05800 010212 4160000100 05810 XF 0,0100,0,0,7 * CFC67 05810 * 010217 3001061153 05820 JC MPE5,43 3 CFC67 05820 010224 4160000200 05830 XF 0,0200,0,0,7 * CFC67 05830 * 010231 3001063053 05840 JC CP5,43 CFC67 05840 010236 4160000400 05850 XF 0,0400,0,0,7 * CFC67 05850 * 010243 3001063553 05860 JC MA5,43 CFC67 05860 010250 4160001000 05870 XF 0,01000,0,0,7 * CFC67 05870 * 010255 3001064253 05880 JC N0R5,43 3 CFC67 05880 010262 4160002000 05890 XF 0,02000,0,0,7 * CFC67 05890 * 010267 1001065753 05900 JR UB5,43 CFC67 05900 010274 4160004000 05910 XF 0,04000,0,0,7 * CFC67 05910 * 010301 3001071753 05920 JC MM0A5,4343 CFC67 05920 * 010306 1001012600 05930 JR C0MX CFC67 05930 * 010313 3001031360 05940 TM4 JD TM4 TAPE MARK DET. C CFC67 05940 * 010320 3000722131 05950 JC L00P,25 5 WHEN EXPECTING T.M. SET TM4 T0 SKI CFC67 05950 X * 010325 3001032560 05960 ET4 JD ET4 FND 0F TAPE CHAN CFC67 05960 010332 6120722400 05970 AC L00P+3,0,0,5 CFC67 05970 * 010337 3000722131 05980 JC L00P,25 5 FT4 IS SKIP, ET4 CFC67 05980 010344 4140400040 05990 TAPE4 XF 040,040,0,0,6 * CFC67 05990 * 010351 1000660600 06000 JR SP0T CFC67 06000 * 010356 3001035660 06010 PAR4 JD PAR4 ERASE BLK. AND C CFC67 06010 010363 6000722415 06020 AC L00P+3,0,015 CFC67 06020 * 010370 3000722131 06030 JC L00P,25 5 CFC67 06030 * 010375 3001037560 06040 MPE4 JD MPE4 MEM0RY DATA PRAI CFC67 06040 010402 6000722415 06050 AC L00P+3,0,015 CFC67 06050 * 010407 3000722131 06060 JC L00P,25 5 CFC67 06060 * 010414 3001041460 06070 CP4 JD CP4 C0NTR0L PARITY C CFC67 06070 * 010421 3001042160 06080 MA4 JD MA4 MEM. ADDRESS. ER CFC67 06080 * 010426 3001042660 06090 N0R4 JD N0R4 N0N-READY CHAN.4 CFC67 06090 * 010433 3000722131 06100 JC L00P,25 5 EXPECTING N0W-RDY,SET N0R4 T0 SKIP CFC67 06100 I * 010440 3000000000 06110 UB4 J 0 CFC67 06110 010445 5600722505 06120 BA1 L00P+4,5,5 CFC67 06120 010452 4140402000 06130 XF 040,0200000,0,6 * CFC67 06130 010457 6000001612 06140 AC 016,012 2 CFC67 06140 * 010464 3000001331 06150 JC 013,25 CFC67 06150 * 010471 3000722131 06160 JC L00P,25 5 VIA L00P INCR. B CFC67 06160 * 010476 3001047660 06170 MM0A4 JD MM0A4 MEM0RY 0VERL0AD CFC67 06170 010503 5600722505 06180 BA1 L00P+4,5,5 CFC67 06180 010510 6000001605 06190 AC 016,05 CFC67 06190 * 010515 3000001331 06200 JC 013,25 CFC67 06200 * 010522 3000722131 06210 JC L00P,25 5 CHAN.4 CFC67 06210 * 010527 3001052760 06220 TM5 JD TM5 AS TM4 AB0VE BUT CFC67 06220 010534 6000722415 06230 AC L00P+3,0,015 CFC67 06230 * 010541 3000722131 06240 JC L00P,25 5 CFC67 06240 * 010546 3001054660 06250 ET5 JD ET5 LIKE ET4 AB0VE CFC67 06250 * 010553 3000722131 06260 JC L00P,25 5 CFC67 06260 010560 4160400040 06270 TAPE5 XF 040,040,0,0,7 * CFC67 06270 * 010565 1000660600 06280 JR SP0T CFC67 06280 * 010572 3001057260 06290 PAR5 JD PAR5 CFC67 06290 010577 6000722415 06300 AC L00P+3,0,015 CFC67 06300 * 010604 3000722131 06310 JC L00P,25 5 CFC67 06310 * 010611 3001061160 06320 MPE5 JD MPE5 LIKE MPE 4 0NLY CFC67 06320 010616 6000722415 06330 AC L00P+3,0,015 CFC67 06330 * 010623 3000722131 06340 JC L00P,25 5 CFC67 06340 * 010630 3001063060 06350 CP5 JD CP5 LIKE CP4 0NLY CH CFC67 06350 * 010635 3001063560 06360 MA5 JD MA5 LIKE MA4 0NLY CH CFC67 06360 * 010642 3001064260 06370 N0R5 JD N0R5 CFC67 06370 * 010647 3000722131 06380 JC L00P,25 5 CFC67 06380 * 010654 3000000000 06390 UB5 J 0 CFC67 06390 010661 3400005324 06400 CC 053,20 CFC67 06400 * 010666 3001070542 06410 JE U4 CFC67 06410 * 010673 3001067360 06420 CHAN JD CHAN BUSY 0CCURED 0N CFC67 06420 * 010700 3001044000 06430 J UB4 AND I.E. T00K US CFC67 06430 010705 4160402000 06440 U4 XF 040,0200000,0,7 * CFC67 06440 * 010712 1001044300 06450 JR UB4 CFC67 06450 * 010717 3001071760 06460 MM0A5 JD MM0A5 LIKE MM0 4 CFC67 06460 010724 6000722405 06470 AC L00P+3,0,05 SUCCESSFUL C0MPL CFC67 06470 * 010731 3000722131 06480 JC L00P,25 5 CHAN.5 CFC67 06480 * 010736 3000000000 06490 RESET J 0 CFC67 06490 * 010743 3200256704 06500 CIRCL JL REPET+5,5,4 CFC67 06500 010750 4401143000 06510 SC MARK,0 CFC67 06510 * 010755 1001077240 06520 JR RWIND,3232 CFC67 06520 * 010762 3000770200 06530 J PASS CFC67 06530 * 010767 3000000000 06540 RWIND J 0 CFC67 06540 010774 2001102003 06550 FT T0UGH,3 3 CFC67 06550 011001 5200722403 06560 SA1 L00P+3,3,3 CFC67 06560 * 011006 1000636500 06570 JR DBLFX CFC67 06570 011013 4140640000 06580 XF 064,0,0,0,6 * RWIND INH'LOCKOUT CFC67 06580 011020 4140640000 06590 T0UGH XF 064,0,0,0,6 * CFC67 06590 * 011025 3001076700 06600 J RWIND CFC67 06600 * 011032 3001102000 06610 J T0UGH CFC67 06610 * 011037 3000000000 06620 TSTCL J 0 CFC67 06620 011044 2600001700 06630 PD 017,16 CFC67 06630 011051 7001157740 06640 CB1 IMAGE+1515,16 CFC67 06640 * 011056 3001103743 06650 JU TSTCL CFC67 06650 011063 6001104205 06660 AC TSTCL+3,3,05 CFC67 06660 * 011070 3001103700 06670 J TSTCL CFC67 06670 * 011075 3000000000 06680 CKBA J 0 CFC67 06680 011102 5601116704 06690 BA1 LNGTH,4 4 CFC67 06690 011107 5601154223 06700 BA2 IMG,3 ADDR 0F IMAGE CFC67 06700 011114 7200001723 06710 AB2 017,3 ADD T0 CURRENT LENGTH CFC67 06710 011121 7020034344 06720 CB1 0343,4,1,1 * CFC67 06720 * 011126 3001107543 06730 JU CKBA CFC67 06730 011133 5620035324 06740 BA2 0353,4,1,1 * CFC67 06740 011140 7000001764 06750 CB2 017,4 ADDR EQ ADV BA CFC67 06750 * 011145 3001107543 06760 JU CKBA CFC67 06760 011152 6001110005 06770 AC CKBA+3,0,05 CFC67 06770 * 011157 3001107500 06780 J CKBA CFC67 06780 011167 00000001 06790 LNGTH +4 00001 1 CHAR. BLK LENG CFC67 06790 011173 00000002 06800 BKCTR +4 00002 2 CFC67 06800 011177 00000000 06810 IR4 +4 000 CFC67 06810 011203 00000000 06820 IR5 +4 000 CFC67 06820 011207 00000000 06830 IR6 +4 000 CFC67 06830 011213 00000000 06840 TBL +4 000 CFC67 06840 011217 00001000 06850 K5 +4 00000100000 512 CFC67 06850 011223 00002000 06860 +4 00000200000 1024 CFC67 06860 011227 00000001 06870 LT +4 1 CFC67 06870 011233 00000002 06880 +4 2 CFC67 06880 011237 00000003 06890 +4 3 CFC67 06890 011243 00000004 06900 +4 4 CFC67 06900 011247 00000007 06910 +4 7 CFC67 06910 011253 00000010 06920 +4 8 CFC67 06920 011257 00000015 06930 +4 13 CFC67 06930 011263 00000017 06940 +4 15 CFC67 06940 011267 00000020 06950 +4 16 CFC67 06950 011273 00000030 06960 +4 24 CFC67 06960 011277 00000037 06970 +4 31 CFC67 06970 011303 00000040 06980 +4 32 CFC67 06980 011307 00000055 06990 +4 45 CFC67 06990 011313 00000077 07000 +4 63 CFC67 07000 011317 00000100 07010 +4 64 CFC67 07010 011323 00000140 07020 +4 96 CFC67 07020 011327 00000177 07030 +4 127 CFC67 07030 011333 00000200 07040 +4 128 CFC67 07040 011337 00000261 07050 +4 177 CFC67 07050 011343 00000377 07060 +4 255 CFC67 07060 011347 00000400 07070 +4 256 CFC67 07070 011353 00000572 07080 +4 378 CFC67 07080 011357 00000620 07090 +4 400 CFC67 07090 011363 00000777 07100 +4 511 CFC67 07100 011367 00001000 07110 +4 512 CFC67 07110 011373 00001367 07120 +4 759 CFC67 07120 011377 00001777 07130 +4 1023 CFC67 07130 011403 00002000 07140 +4 1024 CFC67 07140 011407 00002734 07150 +4 1500 CFC67 07150 011413 00003720 07160 +4 2000 CFC67 07160 011417 00003777 07170 +4 2047 CFC67 07170 011423 00004000 07180 +4 2048 CFC67 07180 011427 00000000 07190 TABLE +4 00000000000 CFC67 07190 011430 00 07200 MARK +1 000 CFC67 07200 011440 0000000000000000 07210 +8 000 CFC67 07210 011450 0000000000000000 07220 IE67 +8 0 * SAVE I E 6+7 CFC67 07220 011455 0000000000 07230 SVELP +5 000 SAVE L00P INST CFC67 07230 011460 000000 07240 SPW +3 000 CFC67 07240 011463 000000 07250 SPCNT +3 000 BAD SP0T CNT. CFC67 07250 011466 000005 07260 FIVE +3 0000005 5 CFC67 07260 011476 3000000160000500 07270 +8 0300000000160000500 CFC67 07270 5 011506 3000000260000510 07280 INT12 +8 0300000000260000510 CFC67 07280 5 * 011507 3000000031 07290 JC 0,25 CFC67 07290 011516 007764 07300 +3 IPT4 CFC67 07300 * 011517 3000000031 07310 JC 0,25 CFC67 07310 011526 010154 07320 INT67 +3 IPT5 * CFC67 07320 011532 00000000 07330 CNTER +4 000 CFC67 07330 011536 00000300 07340 MAXI +4 00300 CFC67 07340 011537 00 07350 +1 000 CFC67 07350 011542 011560 07360 IMG +3 IMAGE CFC67 07360 011550 000177000000 07370 UNIT +6 000017707000000 CFC67 07370 011554 00000000 07380 SVIR5 +4 000 CFC67 07380 011557 000000 07390 ERSCT +3 000 CFC67 07390 011560 00 07400 IMAGE +1 000 CFC67 07400 3000250000 07410 END START CFC67 07410 {-- tape mark --} 014997 C551 SYT67 CODEDIT SOURCE - T3834394-55 000400 00010 T550 BEGIN 0400 SYT67 00010 *LOAD 0700,TAPAPE,R,PRELD E * 000400 3007010660 * JD 070106 * * 000405 3000040000 * J $-5 * SEGMENT-ID T551 3000040000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T552 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2000111611 * FT 0700+021216,9,0 * 000457 2000070060 * FT 0700,48,8,0 * 000464 2000024261 * FT 162,49 * * 000471 3000053000 * J 0530 * 000477 0000 * +2 0 * * 000500 3000000020 * JC 0,16 * 000507 000440 * +3 0440 * * 000510 3000000020 * JC 0,16 * 000517 000510 * +3 0510 * * 000520 3000052020 * JHJ $ * 000527 000440 * +3 0440 * 000530 5600052710 * BA1 $-1,8 * 000535 5200044710 * SA1 0447,8 * 000542 4100610100 * XF 061,010000,0,4 * 000547 2000111660 * FT 0700+021216,48,0 * 000554 2000024261 * FT 162,49 * 000561 4100610100 * XF 061,010000,0,4 * * 000566 3200056102 * JL $-5,2 * 000573 2000000103 * FT 1,3 * * 000600 3000074000 * J 0700+04040,0 * 000740 * ORIG 0700+04040 * 000740 4100610100 * XF 061,010000,0,4 * 000745 6000001701 * AC 15,1 * 000752 3420022211 * CC 146,9,1 1 * * 000757 3000106542 * JE $+70 * 000764 2600004104 * PD 041,4 * 000771 3620021700 * CS 143,0,1 1 * 000776 3620011700 * CS 79,0,1 * 001003 3620001712 * CS 15,10,1 1 * 001010 1600004166 * BC2 041,6 * 001015 3620022102 * CS 145,2,1 1 * 001022 7000004162 * CB2 041,2 * * 001027 3000104142 * JE $+10 * * 001034 3007010460 * JD 070104 * 001041 4620003520 * BT 29,16,1 1 * 001046 4620003722 * BT 31,18,1 1 * 001053 2420004001 * TFR 32,,1 * * 001060 3000074000 * J $-80 * 001065 4100640000 * XF 064,0,0,0,4 * 001072 7020004642 * CB1 38,2,1 * * 001077 3020004042 * JE 32,1 * * 001104 3007010560 * JD 070105 * * 001111 3020004000 * J 32,1 * 001116 245 * AREA 165 * SEGMENT-ID T553 3000136300 * SEGJP $ * 000400 00020 ORIG 0400 SYT67 00020 00030 . U1050 SYSTEM T TEST ROUTINE(SYTR02 SYT67 00030 U 00040 . OPERATINING NOTES SYT67 00040 S 00050 . 1- AT LOAD HALT, , KEY IN TEST SELECTION AS FOLLOWS) SYT67 00050 00060 . FOR ALL DEVICECES,BITS-6,5=SPEED) SYT67 00060 - 00070 . 00 = DO O NOT TEST (ALL BITS ARE ZERO SYT67 00070 S 00080 . 01 = LOWOW SPEED SYT67 00080 00090 . 10 = MEDEDIUM SPEED SYT67 00090 E 00100 . 11 = HIGIGH SPEED SYT67 00100 D 00110 . FOR READER ANDND PUNCH) SYT67 00110 ) 00120 . BIT-4 BIT-T-3 BIT-2 BIT-1 SYT67 00120 T 00130 . 0= 80 COLOL NO SEQ/P-P IMAGE SYT67 00130 E 00140 . 1= 90 ROWOW SEQ/NO P-P XLATE SYT67 00140 N 00150 . FOR TAPES AND D DRUM,BITS-4,3,2,1=UNIT NO(BINARY COUNTER SYT67 00150 I 00160 . TEST SELECTIONON IS KEYED INTO OCTAL LOCATION) SYT67 00160 Y 00170 . 27)PROCESSOR(R(DIVIDE,TRANSLATE,AND EDIT,ONLY SYT67 00170 , 00180 . 30)PRINTER ONON CHANNEL 0 SYT67 00180 E 00190 . 31)READER SYT67 00190 00200 . 32)PUNCH SYT67 00200 00210 . 33)NOT USED SYT67 00210 00220 . 34)TAPE ON CHCHANNEL 4 SYT67 00220 4 00230 . 35)TAPE ON CHCHANNEL 5 SYT67 00230 5 00240 . 36)DRUM SYT67 00240 00250 . 37)PRINTER ONON CHANNEL 7 SYT67 00250 E 00260 . NOTE) KEY IN 0 00 TO OMIT TEST USTR4K01560 01570 . 0 1 0 1 0 0 EQUALS A USTR4K01570 01580 . ETC. USTR4K01580 01590 . XXX----IMAGE SHOULD HAVE BEEN--XXX USTR4K01590 S 01600 . XXX----IMAGE WAS --XXX USTR4K01600 W 01610 . USTR4K01610 01620 . XXX-I-IMAGE SHOULD HAVE BEEN--XXX READER OR PUNCH USTR4K01620 H 01630 . XXX-I-IMAGE WAS --XXX READER OR PUNCH USTR4K01630 01640 . 5.2.2 NOTE 2-2-CORRECT PRINTER ABNORMAL, DEPRESS CHANNEL 0 USTR4K01640 T 01650 . CLEAR ONLY. DEPRESS START TO DISPLAY ERROR USTR4K01650 O 01660 . 5.2.3 NOTE 3-3-DEPRESS PROGRAM START TO DISPLAY ERRORS IN USTR4K01660 S 01670 . FOLLOWING FORMAT-STOP DISPLAYED 3000007360 USTR4K01670 I 01680 . PRINTERER 00-12-00 READER 00-12-00 PUNCH 00-12-00 USTR4K01680 - 01690 . 00-12-0-00 REPRESENT ABNORMAL INDICATORS USTR4K01690 E 01700 . A 1 IN N ANY POSITION INDICATES THE INDICATOR WAS SET USTR4K01700 S 01710 . 5.2.4 NOTE 4-4-IF PRINTER IS NOT OPERATING SO THAT ERRORS USTR4K01710 N 01720 . CANNOT T BE DISPLAYED PROCEED AS FOLLOWS, USTR4K01720 P 01730 . 5.2.4.1 DEPRESSSS OPERATORS REQUEST,START, PROGRAM USTR4K01730 T 01740 . WILL RERETURN TO LOAD STOP 3000777760 USTR4K01740 O 01750 . 5.2.4.2 READER R OR PUNCH COMPARE ERROR USTR4K01750 C 01760 . MANUALLLLY CHECK THE GOOD IMAGE AGAINST THE USTR4K01760 K 01770 . SENSED D IMAGE USTR4K01770 01780 . READER R MTANK 00600 IMAGE SHOULD HAVE BEEN USTR4K01780 A 01790 . READ 01100 IMAGE WAS USTR4K01790 E 01800 . PUNCH PUNCH 01400 IMAGE SHOULD HAVE BEEN USTR4K01800 N 01810 . PSTRD 01700 IMAGE WAS USTR4K01810 T 01820 . 5.2.4.3 INPUT-O-OUTPUT ABNORMAL USTR4K01820 A 01830 . MANUALLLLY CHECK THE FOLLOWING LOCATIONS TO USTR4K01830 K 01840 . DETERMIMINE THE ERROR USTR4K01840 01850 . UNIT T OCTAL LOC FORMAT TAG USTR4K01850 C 01860 . PRINTETER 02410 000000000000 P1 USTR4K01860 01870 . READERER 02434 000000000000 P2 USTR4K01870 01880 . PUNCH H 02460 000000000000 P3 USTR4K01880 01890 . A 4 WT T BIT IN ANY POSITION DENOTES THE INDICATOR USTR4K01890 01900 . WAS SETET. MANUALLY TRANSFER CONTROL TO OCTAL USTR4K01900 A 01910 . LOCATIOION 06026 TO PAD 0 TO P1,P2,P3 STOP DISPLAYED USTR4K01910 6 01920 . WILL BEBE 3000007360 DEPRESS GENERAL CLEAR AND START USTR4K01920 0 01930 . TO CONTNTINUE. USTR4K01930 01940 . USTR4K01940 01950 . USTR4K01950 01960 . USTR4K01960 01970 . USTR4K01970 01980 . USTR4K01980 000600 01990 MTANK EQU $ USTR4K01990 000600 300 02000 AREA 192,B, USTR4K02000 001100 02010 READ EQU $ USTR4K02010 001100 300 02020 AREA 192,B, USTR4K02020 001400 02030 PUNCH EQU $ USTR4K02030 001400 300 02040 AREA 192,B, USTR4K02040 001700 02050 PSTRD EQU $ USTR4K02050 001700 300 02060 AREA 192,B, USTR4K02060 002200 02070 PRINT EQU $ USTR4K02070 002207 0001020304050607 02080 +8 0000102020304050607 USTR4K02080 6 002217 1011121314151617 02090 +8 0101112121314151617 USTR4K02090 6 002227 2021222324252627 02100 +8 0202122222324252627 USTR4K02100 6 002237 3031323334353637 02110 +8 0303132323334353637 USTR4K02110 6 002247 4041424344454647 02120 +8 0404142424344454647 USTR4K02120 6 002257 5051525354555657 02130 +8 0505152525354555657 USTR4K02130 6 002267 6061626364656667 02140 +8 0606162626364656667 USTR4K02140 6 002277 7071727374757677 02150 +8 0707172727374757677 USTR4K02150 6 002317 XXXXXXXXXXXXXXX 02160 +16 _ XXXXXXXXXXXXXXXXX_ USTR4K02160 X 002337 XXXXXXXXXXXXXXXX 02170 +16 _XXXXXXXXXXXXXXXXXX_ USTR4K02170 X 002357 XXXXXXXXXXXXXXXX 02180 +16 _XXXXXXXXXXXXXXXXXX_ USTR4K02180 X 002377 XXXXXXXXXXXXXXXX 02190 +16 _XXXXXXXXXXXXXXXXXX_ USTR4K02190 X 002400 02200 CHDER EQU $ USTR4K02200 002407 PRINTER 02210 +8 _PRINTERER _ USTR4K02210 002423 000000000000 02220 P1 +12 _00000000000000_ USTR4K02220 002433 READER 02230 +8 _ READERER _ USTR4K02230 002447 000000000000 02240 P2 +12 _00000000000000_ USTR4K02240 002457 PUNCH 02250 +8 _ PUNCH H _ USTR4K02250 002473 000000000000 02260 P3 +12 _00000000000000_ USTR4K02260 002477 02270 +4 _ _ USTR4K02270 000047 02280 X1 EQU 047 USTR4K02280 000053 02290 X2 EQU 053 USTR4K02290 000057 02300 X3 EQU 057 USTR4K02300 000063 02310 X4 EQU 063 USTR4K02310 000067 02320 X5 EQU 067 USTR4K02320 000073 02330 X6 EQU 073 USTR4K02330 000077 02340 X7 EQU 077 USTR4K02340 02350 . IR1 COMPARE ROUTITINES USTR4K02350 02360 . IR2 79/159 LAST C CHARACTER IN TANK USTR4K02360 E 02370 . IR3 CHANNEL ERROROR DECODE CHANNEL 0 USTR4K02370 E 02380 . IR4 CHANNEL ERROROR DECODE CHANNEL 1 USTR4K02380 E 02390 . IR5 CHANNEL ERROROR DECODE CHANNEL 2 USTR4K02390 E 02400 . IR6 UNIT POSITIONON USTR4K02400 02410 . IR7 PAD TO TANKS S USTR4K02410 02420 . TETRAD 22 SHIFT C COUNTER USTR4K02420 02430 . TETRAD23 SHIFT COCONSTANT USTR4K02430 02440 . TETRAD 24 LINE COCOUNTER USTR4K02440 02450 . TETRAD 25 CONSTANANT 202 IN COUNTER USTR4K02450 I 02460 . TETRAD 26-30 SPEEEED CONTROL USTR4K02460 R * 002500 3000777760 02470 START JD 07777 USTR4K02470 002505 2000000035 02480 FT 0,29 USTR4K02480 002512 2000000036 02490 FT 0,30 USTR4K02490 002517 2000000037 02500 FT 0,31 USTR4K02500 02510 . READER SPEED CONTNTROL HIGH MED LOW USTR4K02510 I 02520 . MEM LOC 02526 EQUQUALS 00 01 40 USTR4K02520 0 002524 2000000132 02530 FT 1,26 USTR4K02530 02540 . PUNCH SPEED CONTRTROL HIGH MED LOW USTR4K02540 I 02550 . MEM LOC 02533 EQUQUALS 00 01 37 USTR4K02550 0 002531 2000000133 02560 FT 1,27 USTR4K02560 02570 . PRINTER SPEED CONONTROL HIGH MED LOW USTR4K02570 I 02580 . MEM LOC 02540 EQUQUALS 00 01 10 USTR4K02580 0 002536 2000000134 02590 FT 1,28 USTR4K02590 002543 4000407777 02600 XF 040,0777777,0,0 USTR4K02600 002550 4020407777 02610 XF 040,0777777,0,1 USTR4K02610 002555 4040407777 02620 XF 040,0777777,0,2 USTR4K02620 * 002562 3000256733 02630 JC $+5,27 USTR4K02630 * 002567 3000257422 02640 JC $+5,18 SET SI 1 2 3 USTR4K02640 * 002574 3000260123 02650 JC $+5,19 ALL UNITS AVAILABLE USTR4K02650 * 002601 3000260624 02660 JC $+5,20 USTR4K02660 002606 4400333602 02670 SC LP+4,2 USTR4K02670 * 002613 3000302263 02680 JC BINMD,5151 TEST FOR BINARY MODE USTR4K02680 02690 . MODIFY PROGRAM FOFOR TRANSLATE MODE USTR4K02690 S 002620 4400475204 02700 SC MOD1+4,4,4 USTR4K02700 002625 4400475704 02710 SC MOD1+9,4,4 USTR4K02710 002632 4400507704 02720 SC MOD4,4 USTR4K02720 002637 4400510404 02730 SC MOD5,4 USTR4K02730 002644 4400337404 02740 SC MOD6+4,4,4 USTR4K02740 002651 4400340104 02750 SC MOD6+9,4,4 USTR4K02750 002656 4400432705 02760 SC MOD2+4,5,5 USTR4K02760 002663 4400433405 02770 SC MOD2+9,5,5 USTR4K02770 002670 2000000011 02780 FT 0,9 USTR4K02780 002675 2000000026 02790 FT 0,22 USTR4K02790 002702 2000012027 02800 FT 80,23 USTR4K02800 002707 2000011712 02810 FT 79,10 USTR4K02810 002714 4400437205 02820 SC MOD3,5 USTR4K02820 002721 4400374101 02830 SC EXPUN-1,1,01 USTR4K02830 002726 4400402301 02840 SC EXRD-1,0,01 USTR4K02840 002733 2000017716 02850 FT 127,14 USTR4K02850 002740 4400324601 02860 SC IO1-1,0101 USTR4K02860 002745 4400362601 02870 SC IO2-1,0101 USTR4K02870 002752 4400331601 02880 SC IO3-1,0101 USTR4K02880 * 002757 3000316662 02890 A1 JC LDPAT,5050 LOAD TEST PATTERN USTR4K02890 02900 . KEY LOCATION +20 0 TO DELETE PUNCH USTR4K02900 E * 002764 3000277100 02910 J $+5 USTR4K02910 002771 4040641000 02920 XF 064,0100000,0,2 USTR4K02920 * 002776 3200277103 02930 JL $-5,3 USTR4K02930 003003 4400300203 02940 SC $-1,3 USTR4K02940 * 003010 3000326264 02950 JC PUPAT,5252 PUNCH TEST PATTERN USTR4K02950 * 003015 3000351000 02960 J INIT USTR4K02960 003022 4400475211 02970 BINMD SC MOD1+4,9,9 USTR4K02970 02980 . MODIFY PROGRAM FOFOR BINARY MODE USTR4K02980 R 003027 4400475711 02990 SC MOD1+9,9,9 USTR4K02990 003034 4400507711 03000 SC MOD4,9 USTR4K03000 003041 4400510411 03010 SC MOD5,9 USTR4K03010 003046 4400337411 03020 SC MOD6+4,9,9 USTR4K03020 003053 4400340111 03030 SC MOD6+9,9,9 USTR4K03030 003060 4400432712 03040 SC MOD2+4,1,10 USTR4K03040 003065 4400433412 03050 SC MOD2+9,1,10 USTR4K03050 003072 2000000011 03060 FT 0,9 USTR4K03060 003077 2000000026 03070 FT 0,22 USTR4K03070 003104 2000024027 03080 FT 160,23 USTR4K03080 003111 2000023712 03090 FT 159,10 USTR4K03090 003116 4400437212 03100 SC MOD3,10 0 USTR4K03100 003123 4400374100 03110 SC EXPUN-1,1,00 USTR4K03110 003130 4400402300 03120 SC EXRD-1,0,00 USTR4K03120 003135 2000027716 03130 FT 191,14 USTR4K03130 003142 4400324600 03140 SC IO1-1,0000 USTR4K03140 003147 4400362600 03150 SC IO2-1,0000 USTR4K03150 003154 4400331600 03160 SC IO3-1,0000 USTR4K03160 * 003161 3000275700 03170 J A1 USTR4K03170 003166 2000060044 03180 LDPAT FT MTANK,3636 LOAD TEST PATTERN USTR4K03180 03190 . LOAD TEST PATTERNRN TO MTANK USTR4K03190 T 003173 2000000017 03200 FT 0,X7 USTR4K03200 003200 2760061700 03210 PAD PD MTANK+1515,16,X7 USTR4K03210 03220 . SPACES TO ALL DATATA TANKS USTR4K03220 S 003205 2760141700 03230 PD PUNCH+1515,16,X7 USTR4K03230 003212 2760171700 03240 PD PSTRD+1515,16,X7 USTR4K03240 003217 2760111700 03250 PD READ+15,5,16,X7 USTR4K03250 003224 2160002017 03260 FT 16,X7,X7X7 USTR4K03260 * 003231 3200320014 03270 JL PAD,12 USTR4K03270 003236 4400323514 03280 SC $-1,12 USTR4K03280 003247 4020610100 03290 IO1 +5 0402061010100 USTR4K03290 * 003250 3000000160 03300 JD 00001 USTR4K03300 03310 . PATTERN LOADED SSSS1 OFF SS3 ON TO PUNCH DATA DECK USTR4K03310 * 003255 3000250500 03320 J START+5 5 USTR4K03320 003262 4200011327 03330 PUPAT ST 75,23 PUNCH TEST PATTERN USTR4K03330 003267 2000140050 03340 FT PUNCH,4040 USTR4K03340 003274 2000170051 03350 FT PSTRD,4141 USTR4K03350 003301 2000140020 03360 FT PUNCH,1616 USTR4K03360 003306 2400060001 03370 TFR MTANK USTR4K03370 003317 4040670100 03380 IO3 +5 0404067070100 PUNCH PATTERN USTR4K03380 003320 4040007737 03390 XF 00,0773737,0,2 USTR4K03390 * 003325 3000556653 03400 JC ERRS2,4343 USTR4K03400 03410 . SKIP COMPARE ROUTUTINE ON FIRST CARD USTR4K03410 * 003332 3200344002 03420 LP JL $+70,2 USTR4K03420 003337 2000000011 03430 FT 0,X1 USTR4K03430 03440 . PUNCH COMPARE ROUOUTINE USTR4K03440 003344 5620172000 03450 CL2 BA1 PSTRD+1616,16,X1 USTR4K03450 003351 7020141740 03460 CB1 PUNCH+1515,16,X1 USTR4K03460 * 003356 3000506143 03470 JU PESHF USTR4K03470 003363 2020002011 03480 FT 16,X1,X1X1 USTR4K03480 * 003370 3200334404 03490 MOD6 JL CL2,4 USTR4K03490 003375 4400337404 03500 SC $-1,4 USTR4K03500 003402 5640170017 03510 BA1 PSTRD,1515,X2 USTR4K03510 003407 7040137757 03520 CB1 PUNCH-1,1,15,X2 USTR4K03520 * 003414 3000506143 03530 JU PESHF USTR4K03530 003421 5600170001 03540 BA1 PSTRD,1 1 USTR4K03540 003426 7040140041 03550 CB1 PUNCH,1,1,X2 USTR4K03550 * 003433 3000506143 03560 JU PESHF USTR4K03560 003440 2000000011 03570 FT 0,X1 USTR4K03570 03580 . PUNCH PATTERN PRERECESS LEFT USTR4K03580 E 003445 4600005322 03590 BT X2,18 USTR4K03590 003452 2000140020 03600 FT PUNCH,1616 USTR4K03600 003457 5600140001 03610 BA1 PUNCH,1 1 USTR4K03610 003464 2400140101 03620 TFR PUNCH+1 1 USTR4K03620 003471 5240140001 03630 SA1 PUNCH,1,1,X2 USTR4K03630 * 003476 3000331364 03640 JC IO3-4,5252 USTR4K03640 * 003503 3000250000 03650 J START USTR4K03650 003510 2000000017 03660 INIT FT 0,X7 SET UP BASE USTR4K03660 003515 2000000026 03670 FT 0,22 USTR4K03670 003522 2000000030 03680 FT 0,24 USTR4K03680 003527 2000031231 03690 FT 202,25 USTR4K03690 003534 2000140050 03700 FT PUNCH,4040 USTR4K03700 003541 2000170051 03710 FT PSTRD,4141 USTR4K03710 003546 2000110044 03720 FT READ,36 6 USTR4K03720 003553 4400020701 03730 SC 135,1 USTR4K03730 003560 2000220040 03740 FT PRINT,3232 USTR4K03740 03750 . SPACES TO SENSE E TANKS USTR4K03750 003565 2760171700 03760 PD PD PSTRD+1515,16,X7 USTR4K03760 003572 2760111700 03770 PD READ+15,5,16,X7 USTR4K03770 003577 2160002017 03780 FT 16,X7,X7X7 USTR4K03780 * 003604 3200356514 03790 JL PD,12 USTR4K03790 003611 4400361014 03800 SC $-1,12 USTR4K03800 * 003616 3000362300 03810 J $+5 USTR4K03810 03820 . KEY LOCATION +10 0 TO DELETE PUNCH OPERATION USTR4K03820 E 003627 4040670100 03830 IO2 +5 0404067070100 USTR4K03830 03840 . PUNCH PATTERN PRERECESS LEFT USTR4K03840 E 003630 4600005322 03850 BT X2,18 USTR4K03850 003635 2000140020 03860 FT PUNCH,1616 USTR4K03860 003642 5600140001 03870 BA1 PUNCH,1 1 USTR4K03870 003647 2400140101 03880 TFR PUNCH+1 1 USTR4K03880 003654 5240140001 03890 SA1 PUNCH,1,1,X2 USTR4K03890 * 003661 3000607600 03900 J MAINC USTR4K03900 03910 . PUNCH EXECUTE I/O/O CAN USTR4K03910 * 003666 3000366600 03920 PUCAN J $ USTR4K03920 * 003673 3000370032 03930 JC $+5,26 USTR4K03930 03940 . KEY LOCATION -10 0 TO DELETE THIS UNIT USTR4K03940 E * 003700 3000370500 03950 J $+5 USTR4K03950 03960 . SPEED CONTROL USTR4K03960 003705 6000017301 03970 AC 123,1 USTR4K03970 003712 7400017333 03980 CT 123,27 USTR4K03980 * 003717 3000366643 03990 JU PUCAN USTR4K03990 003724 2000000036 04000 FT 0,30 USTR4K04000 * 003731 3000373631 04010 JC $+5,25 USTR4K04010 003742 4040070100 04020 EXPUN +5 0404007070100 USTR4K04020 * 003743 3000366625 04030 JC PUCAN,2121 PUNCH BUSY USTR4K04030 04040 . READER EXECUTE I/I/O CAN USTR4K04040 * 003750 3000375000 04050 RDCAN J $ USTR4K04050 * 003755 3000376232 04060 JC $+5,26 USTR4K04060 04070 . KEY LOCATION -10 0 TO DELETE THIS UNIT USTR4K04070 E * 003762 3000376700 04080 J $+5 USTR4K04080 04090 . SPEED CONTROL USTR4K04090 003767 6000016701 04100 AC 119,1 USTR4K04100 003774 7400016732 04110 CT 119,26 USTR4K04110 * 004001 3000375043 04120 JU RDCAN USTR4K04120 004006 2000000035 04130 FT 0,29 USTR4K04130 * 004013 3000402031 04140 JC $+5,25 USTR4K04140 004024 4020010100 04150 EXRD +5 0402001010100 USTR4K04150 * 004025 3000375026 04160 JC RDCAN,2222 READER BUSY USTR4K04160 04170 . PRINTER EXECUTE I I/O CAN USTR4K04170 * 004032 3000403200 04180 PRCAN J $ USTR4K04180 * 004037 3000404432 04190 JC $+5,26 USTR4K04190 04200 . KEY LOCATION -10 0 TO DELETE THIS UNIT USTR4K04200 E * 004044 3000405100 04210 J $+5 USTR4K04210 04220 . SPEED CONTROL USTR4K04220 004051 6000017701 04230 AC 127,1 USTR4K04230 004056 7400017734 04240 CT 127,28 USTR4K04240 * 004063 3000403243 04250 JU PRCAN USTR4K04250 004070 2000000037 04260 FT 0,31 USTR4K04260 * 004075 3000410231 04270 JC $+5,25 USTR4K04270 004102 4400020701 04280 SPACE SC 135,1 SPACE ROUTINE USTR4K04280 004107 6000014301 04290 AC 99,01 USTR4K04290 004114 7400014331 04300 CT 99,25 USTR4K04300 * 004121 3000414043 04310 JU $+15 USTR4K04310 004126 2000000030 04320 FT 0,24 USTR4K04320 004133 4400020777 04330 SC 135,63 USTR4K04330 004140 2000220040 04340 EPRN FT PRINT,3232 USTR4K04340 004145 4000020000 04350 XF 02,0,0,0,0 USTR4K04350 * 004152 3000403227 04360 JC PRCAN,2323 PRINTER BUSY USTR4K04360 04370 . CHANNEL 0 ABNORMAMAL ERROR ROUTINE USTR4K04370 R 004157 4000007777 04380 PRCHN XF 00,0777777,0,0 USTR4K04380 * 004164 3000536453 04390 JC ERRS0,4343 USTR4K04390 004171 2000017722 04400 FT 127,18 OK BEGIN SHIFT USTR4K04400 004176 2000220020 04410 FT PRINT,1616 USTR4K04410 004203 5600220001 04420 BA1 PRINT,1 1 USTR4K04420 004210 2400220101 04430 TFR PRINT+1 1 USTR4K04430 004215 5200237701 04440 SA1 PRINT+12127,1 USTR4K04440 * 004222 3000040024 04450 JC RCHN0,2020 USTR4K04450 004227 4020007777 04460 RDCHN XF 00,0777777,0,1 USTR4K04460 * 004234 3000546553 04470 JC ERRS1,4343 USTR4K04470 04480 . MAIN DATA TANK SHSHIFT ALSO USED TO COMPARE READER DATA USTR4K04480 S 004241 4600005322 04490 SHIFT BT 43,18 USTR4K04490 004246 5600060001 04500 BA1 MTANK,1 1 USTR4K04500 004253 2000060020 04510 FT MTANK,1616 USTR4K04510 004260 2400060101 04520 TFR MTANK+1 1 USTR4K04520 004265 5240060001 04530 SA1 MTANK,1,1,X2 USTR4K04530 04540 . READER COMPARE ROROUTINE USTR4K04540 004272 2000000011 04550 RDCOM FT 0,X1 USTR4K04550 004277 5620061700 04560 BA1 MTANK+1515,16,X1 USTR4K04560 004304 7020111740 04570 CB1 READ+15,5,16,X1 USTR4K04570 * 004311 3000435443 04580 JU RDERR USTR4K04580 004316 2020002011 04590 FT 16,X1,X1X1 USTR4K04590 * 004323 3200427705 04600 MOD2 JL RDCOM+5,5,5 USTR4K04600 004330 4400432705 04610 SC $-1,5 USTR4K04610 004335 2000000011 04620 FT 0,X1 USTR4K04620 004342 2000000026 04630 FT 0,22 USTR4K04630 * 004347 3000041023 04640 JC RCHN1,1919 RETURN USTR4K04640 004354 5600243310 04650 RDERR BA1 P2-12,8 8 USTR4K04650 004361 5340060010 04660 SA1 MTANK,8,8,X6 USTR4K04660 004366 4400432705 04670 SC MOD2+4,5,5 USTR4K04670 004372 04680 MOD3 EQU $-1 USTR4K04680 04690 . SEQUENCE SELECT R ROUTINE - KEY LOCATION +5 TO DELETE SEQUENCE USTR4K04690 04700 . ERRORS ,ERRORS ARARE PRINTED AS SENSE ERRORS USTR4K04700 T * 004373 3000441700 04710 J $+20 USTR4K04710 004400 6000013301 04720 AC 0133,1 USTR4K04720 004405 7400013726 04730 CT 95,22 USTR4K04730 * 004412 3000424143 04740 JU SHIFT USTR4K04740 004417 2000000026 04750 FT 0,22 USTR4K04750 * 004424 3200442477 04760 JL $,63 DELAY ONLY USTR4K04760 004431 4400443077 04770 SC $-1,63 DELAY RESET USTR4K04770 * 004436 3200442477 04780 JL $-10,63 3 USTR4K04780 004443 4400444277 04790 SC $-1,63 DELAY RESET USTR4K04790 * 004450 3200443612 04800 JL $-10,10 0 USTR4K04800 004455 4400445412 04810 SC $-1,10 USTR4K04810 04820 . READER COMPARE ERERRORS USTR4K04820 * 004462 3000000260 04830 JD 00002 USTR4K04830 04840 . PRINT READER COMPMPARE ERRORS USTR4K04840 R 004467 4400020702 04850 SC 135,2 USTR4K04850 004474 2000060040 04860 FT MTANK,3232 USTR4K04860 004501 4000620000 04870 PMT XF 062,0,0,0,0 USTR4K04870 004506 4400020701 04880 SC 135,1 USTR4K04880 004513 2000110040 04890 FT READ,32 2 USTR4K04890 004520 4000620000 04900 XF 062,0,0,0,0 USTR4K04900 004525 4400020702 04910 SC 135,2 USTR4K04910 004532 2000100040 04920 FT MTANK+12128,32 USTR4K04920 004537 4000620400 04930 XF 062,0040400,0,0 USTR4K04930 004544 4400020701 04940 SC 135,1 USTR4K04940 004551 2000130040 04950 FT READ+12828,32 USTR4K04950 004556 4000620400 04960 XF 062,0040400,0,0 USTR4K04960 04970 . FOR 8 LPI, KEY 05051 INTO LOCATION +4 USTR4K04970 004563 4400020736 04980 SC 135,30 USTR4K04980 004570 4000640000 04990 XF 064,0,0,0,0 USTR4K04990 * 004575 3200457002 05000 JL $-5,2 USTR4K05000 004602 4400460102 05010 SC $-1,2 USTR4K05010 004607 2000000011 05020 FT 0,9 USTR4K05020 004614 2000000026 05030 FT 0,22 USTR4K05030 05040 . CLOSE OUT USTR4K05040 * 004621 1000463100 05050 JR STALL USTR4K05050 * 004626 3000462600 05060 STALL J $ USTR4K05060 * 004633 3000464032 05070 JC $+5,26 USTR4K05070 * 004640 3000464554 05080 JC $+5,44 USTR4K05080 * 004645 3000465216 05090 JC $+5,14 USTR4K05090 * 004652 3000467150 05100 JC $+15,40 0 USTR4K05100 * 004657 3000466435 05110 JC $+5,29 USTR4K05110 * 004664 3000250000 05120 J START USTR4K05120 05130 . DECIMAL OVERFLOW W USTR4K05130 * 004671 3000111160 05140 JD 01111 USTR4K05140 * 004676 3000250500 05150 J START+5 5 USTR4K05150 05160 . CHANNEL 2 ABNORMAMAL CHECK USTR4K05160 K 004703 4040007737 05170 PUCHN XF 00,0773737,0,2 USTR4K05170 * 004710 3000556653 05180 JC ERRS2,4343 USTR4K05180 05190 . PUNCH COMPARE ROUOUTINE USTR4K05190 004715 2000000011 05200 PUCOM FT 0,X1 USTR4K05200 004722 5620172000 05210 CL1 BA1 PSTRD+1616,16,X1 USTR4K05210 004727 7020141740 05220 CB1 PUNCH+1515,16,X1 USTR4K05220 * 004734 3000506143 05230 JU PESHF USTR4K05230 004741 2020002011 05240 FT 16,X1,X1X1 USTR4K05240 * 004746 3200472204 05250 MOD1 JL CL1,4 USTR4K05250 004753 4400475204 05260 SC $-1,4 USTR4K05260 004760 5640170017 05270 BA1 PSTRD,1515,X2 USTR4K05270 004765 7040137757 05280 CB1 PUNCH-1,1,15,X2 USTR4K05280 * 004772 3000506143 05290 JU PESHF USTR4K05290 004777 5600170001 05300 BA1 PSTRD,1 1 USTR4K05300 005004 7040140041 05310 CB1 PUNCH,1,1,X2 USTR4K05310 * 005011 3000506143 05320 JU PESHF USTR4K05320 005016 2000000011 05330 FT 0,X1 USTR4K05330 05340 . PUNCH PRECESS LEFEFT USTR4K05340 005023 4600005322 05350 PUSHF BT X2,18 USTR4K05350 005030 2000140020 05360 FT PUNCH,1616 USTR4K05360 005035 5600140001 05370 BA1 PUNCH,1 1 USTR4K05370 005042 2400140101 05380 TFR PUNCH+1 1 USTR4K05380 005047 5240140001 05390 SA1 PUNCH,1,1,X2 USTR4K05390 * 005054 3000042022 05400 JC RCHN2,1818 USTR4K05400 05410 . REPOSITION TO ERRRROR PATTERN USTR4K05410 T 005061 2000000026 05420 PESHF FT 0,22 USTR4K05420 005066 4600005322 05430 BT X2,18 SHIFT 1 USTR4K05430 005073 4400475204 05440 SC MOD1+4,4,4 USTR4K05440 005077 05450 MOD4 EQU $-1 USTR4K05450 005100 4400337404 05460 SC MOD6+4,4,4 USTR4K05460 005104 05470 MOD5 EQU $-1 USTR4K05470 005105 2000140020 05480 FT PUNCH,1616 USTR4K05480 005112 5600140001 05490 BA1 PUNCH,1 1 USTR4K05490 005117 2400140101 05500 TFR PUNCH+1 1 USTR4K05500 005124 5240140001 05510 SA1 PUNCH,1,1,X2 USTR4K05510 005131 6000013301 05520 AC 0133,1 USTR4K05520 005136 7400005326 05530 CT X2,22 USTR4K05530 * 005143 3000510043 05540 JU PESHF+1515 USTR4K05540 005150 5600245710 05550 BA1 P3-12,8 8 USTR4K05550 005155 5340140010 05560 SA1 PUNCH,8,8,X6 USTR4K05560 * 005162 3200516277 05570 JL $,63 DELAY ONLY USTR4K05570 005167 4400516677 05580 SC $-1,63 DELAY RESET USTR4K05580 * 005174 3200516277 05590 JL $-10,63 3 USTR4K05590 005201 4400520077 05600 SC $-1,63 DELAY RESET USTR4K05600 * 005206 3200517412 05610 JL $-10,10 0 USTR4K05610 005213 4400521212 05620 SC $-1,10 USTR4K05620 05630 . PUNCH COMPARE ERRRROR USTR4K05630 * 005220 3000000360 05640 JD 00003 USTR4K05640 05650 . PRINT OUT PUNCH D DATA ERRORS USTR4K05650 R 005225 4400020702 05660 SC 135,2 USTR4K05660 005232 2000140040 05670 FT PUNCH,3232 USTR4K05670 005237 4000620000 05680 PMT1 XF 062,0,0,0,0 USTR4K05680 005244 4400020701 05690 SC 135,1 USTR4K05690 005251 2000170040 05700 FT PSTRD,3232 USTR4K05700 005256 4000620000 05710 XF 062,0,0,0,0 USTR4K05710 005263 4400020702 05720 SC 135,2 USTR4K05720 005270 2000160040 05730 FT PUNCH+12128,32 USTR4K05730 005275 4000620400 05740 XF 062,0040400,0,0 USTR4K05740 005302 4400020701 05750 SC 135,1 USTR4K05750 005307 2000210040 05760 FT PSTRD+12128,32 USTR4K05760 005314 4000620400 05770 XF 062,0040400,0,0 USTR4K05770 05780 . FOR 8 LPI, KEY 05051 INTO LOCATION +4 USTR4K05780 005321 4400020736 05790 SC 135,30 USTR4K05790 005326 4000640000 05800 XF 064,0,0,0,0 USTR4K05800 * 005333 3200532602 05810 JL $-5,2 USTR4K05810 005340 4400533702 05820 SC $-1,2 USTR4K05820 005345 2000000011 05830 FT 0,X1 USTR4K05830 005352 2000000026 05840 FT 0,22 USTR4K05840 * 005357 1000463100 05850 JR STALL USTR4K05850 05860 . CHANNEL 0 ABNORMAMAL ERROR CHECK USTR4K05860 R 005364 2000000013 05870 ERRS0 FT 0,11 USTR4K05870 005375 4000004000 05880 +5 0400000404000 USTR4K05880 * 005376 3000545353 05890 JC CODE0,4343 USTR4K05890 005403 1600537567 05900 BC2 ERRS0+9,9,7 USTR4K05900 005410 1600537564 05910 BC2 ERRS0+9,9,4 USTR4K05910 005415 2060000113 05920 FT 1,X3,X3 3 USTR4K05920 * 005422 3200537114 05930 JL ERRS0+5,5,12 USTR4K05930 005427 4400542614 05940 SC $-1,12 USTR4K05940 * 005434 3000544131 05950 JC $+5,25 USTR4K05950 05960 . CLEAR CHANNEL 0 O ONLY ,HIT START TO PRINT ERROR ,IF NO USTR4K05960 I 05970 . IF NO ERROR PRINTETER IS AVAIABLE CHECK LOCATION 02413 --P1-- USTR4K05970 V 05980 . P2-02434, P3-0246460. USTR4K05980 * 005441 3000000460 05990 JD 00004 USTR4K05990 * 005446 3000566700 06000 J CEPRN USTR4K06000 005453 4460241004 06010 CODE0 SC P1-11,4,4,X3 USTR4K06010 * 005460 3000540300 06020 J ERRS0+1515 USTR4K06020 06030 . CHANNEL 1 ABNORMAMAL ERROR ROUTINE USTR4K06030 R 005465 2000000014 06040 ERRS1 FT 0,12 READER USTR4K06040 005476 4020004000 06050 +5 0402000404000 USTR4K06050 * 005477 3000555453 06060 JC CODE1,4343 USTR4K06060 005504 1600547667 06070 BC2 ERRS1+9,9,7 USTR4K06070 005511 1600547664 06080 BC2 ERRS1+9,9,4 USTR4K06080 005516 2100000114 06090 FT 1,X4,X4 4 USTR4K06090 * 005523 3200547214 06100 JL ERRS1+5,5,12 USTR4K06100 005530 4400552714 06110 SC $-1,12 USTR4K06110 * 005535 3000554231 06120 JC $+5,25 USTR4K06120 06130 . IF NO ERROR PRINTETER IS AVAIABLE CHECK LOCATION 02413 --P1-- USTR4K06130 V 06140 . P2-02434, P3-0246460. USTR4K06140 * 005542 3000000560 06150 JD 00005 USTR4K06150 * 005547 3000566700 06160 J CEPRN USTR4K06160 005554 4500243404 06170 CODE1 SC P2-11,4,4,X4 USTR4K06170 * 005561 3000550400 06180 J ERRS1+1515 USTR4K06180 06190 . CHANNEL 2 ABNORMAMAL ERROR ROUTINE USTR4K06190 R 005566 2000000015 06200 ERRS2 FT 0,13 PUNCH USTR4K06200 005577 4040004000 06210 +5 0404000404000 USTR4K06210 * 005600 3000565553 06220 JC CODE2,4343 USTR4K06220 005605 1600557767 06230 BC2 ERRS2+9,9,7 USTR4K06230 005612 1600557764 06240 BC2 ERRS2+9,9,4 USTR4K06240 005617 2120000115 06250 FT 1,X5,X5 5 USTR4K06250 * 005624 3200557314 06260 JL ERRS2+5,5,12 USTR4K06260 005631 4400563014 06270 SC $-1,12 USTR4K06270 * 005636 3000564331 06280 JC $+5,25 USTR4K06280 06290 . IF NO ERROR PRINTETER IS AVAIABLE CHECK LOCATION 02413 --P1-- USTR4K06290 V 06300 . P2-02434, P3-0246460. USTR4K06300 * 005643 3000000660 06310 JD 00006 USTR4K06310 * 005650 3000566700 06320 J CEPRN USTR4K06320 005655 4520246004 06330 CODE2 SC P3-11,4,4,X5 USTR4K06330 * 005662 3000560500 06340 J ERRS2+1515 USTR4K06340 005667 4000407777 06350 CEPRN XF 040,0777777,0,0 USTR4K06350 005674 4000007777 06360 XF 0,07777,7,0,0 USTR4K06360 * 005701 3000571353 06370 JC $+10,43 3 USTR4K06370 * 005706 3000572500 06380 J $+15 USTR4K06380 06390 . IF NO ERROR PRINTETER IS AVAIABLE CHECK LOCATION 02413 --P1-- USTR4K06390 V 06400 . P2-02434, P3-0246460. USTR4K06400 * 005713 3000444460 06410 JD 04444 USTR4K06410 * 005720 3000250000 06420 J START USTR4K06420 * 005725 3200572577 06430 JL $,63 USTR4K06430 005732 4400573177 06440 SC $-1,63 DELAY RESET USTR4K06440 * 005737 3200572577 06450 JL $-10,63 3 USTR4K06450 005744 4400574377 06460 SC $-1,63 DELAY RESET USTR4K06460 * 005751 3200573712 06470 JL $-10,10 0 USTR4K06470 005756 4400575512 06480 SC $-1,10 USTR4K06480 06490 . PRINT CHANNEL ERRRRORS USTR4K06490 005763 2000240040 06500 FT CHDER,3232 USTR4K06500 005770 4400020702 06510 SC 135,2 USTR4K06510 005775 4000620400 06520 XF 062,0040400,0,0 USTR4K06520 06530 . SPACE UP USTR4K06530 06540 . FOR 8LPI , KEY 05053 INTO LOCATION +4 USTR4K06540 006002 4400020740 06550 SC 135,32 USTR4K06550 006007 4000640000 06560 XF 064,0,0,0,0 USTR4K06560 * 006014 3200600702 06570 JL $-5,2 USTR4K06570 006021 4400602002 06580 SC $-1,2 USTR4K06580 006026 2600242334 06590 PD0 P1,12 USTR4K06590 006033 2600244734 06600 PD0 P2,12 USTR4K06600 006040 2600247334 06610 PD0 P3,12 USTR4K06610 006045 4000407777 06620 XF 040,0777777,0,0 USTR4K06620 006052 4020407777 06630 XF 040,0777777,0,1 USTR4K06630 006057 4040407777 06640 XF 040,0777777,0,2 USTR4K06640 06650 . CHANNEL ERRORS PRPRINTED OUT ,HIT START TO CONTINUE USTR4K06650 O * 006064 3000007360 06660 JD 00073 USTR4K06660 * 006071 3000250500 06670 J START+5 5 USTR4K06670 * 006076 1000367165 06680 MAINC JR PUCAN,5353 USTR4K06680 * 006103 3000611033 06690 JC $+5,27 USTR4K06690 * 006110 1000375366 06700 JR RDCAN,5454 USTR4K06700 * 006115 1000403567 06710 JR PRCAN,5555 USTR4K06710 06720 . PROCESSOR TEST SUSUB-ROUTINES USTR4K06720 I * 006122 3000612732 06730 JC $+5,26 USTR4K06730 * 006127 3000613400 06740 J $+5 USTR4K06740 006134 2600001720 06750 PR01 PD0 15,16 USTR4K06750 006141 2600003720 06760 PD0 31,16 USTR4K06760 006146 2000000103 06770 FT 001,3 USTR4K06770 006153 2000000107 06780 FT 001,7 USTR4K06780 006160 7200001721 06790 AB2 15,1 USTR4K06790 006165 7200001761 06800 SB2 15,1 USTR4K06800 006172 7000001761 06810 CB2 15,1 USTR4K06810 * 006177 3000621642 06820 JE $+15 USTR4K06820 * 006204 3000001060 06830 JD 00010 USTR4K06830 * 006211 3000613400 06840 J PR01 USTR4K06840 006216 6000001701 06850 AC 15,01 USTR4K06850 006223 7600003703 06860 AT 31,3 USTR4K06860 006230 4600001702 06870 BT 15,2 USTR4K06870 006235 4200000702 06880 ST 7,2 USTR4K06880 006242 7400000703 06890 CT 7,3 USTR4K06890 * 006247 3000626642 06900 JE $+15 USTR4K06900 * 006254 3000002060 06910 JD 00020 USTR4K06910 * 006261 3000613400 06920 J PR01 USTR4K06920 006266 1400000701 06930 LC 7,01 USTR4K06930 * 006273 3000631242 06940 JE $+15 USTR4K06940 * 006300 3000003060 06950 JD 00030 USTR4K06950 * 006305 3000613400 06960 J PR01 USTR4K06960 006312 5400000701 06970 LP 7,01 USTR4K06970 006317 6400000710 06980 LS 7,010 USTR4K06980 006324 4400000677 06990 SC 6,077 USTR4K06990 006331 1600000721 07000 BS2 7,1 USTR4K07000 006336 1600000766 07010 BC2 7,6 USTR4K07010 006343 3400000776 07020 CC 7,076 USTR4K07020 * 006350 3000640742 07030 JE $+31 USTR4K07030 * 006355 3000004060 07040 JD 00040 USTR4K07040 * 006362 3000613400 07050 J PR01 USTR4K07050 006372 7230 07060 D1 +4 _7230_ USTR4K07060 006374 17 07070 D2 +2 _17_ USTR4K07070 006400 0123 07080 D3 +4 _0123_ USTR4K07080 006406 . 07090 D4 +6 _.__ USTR4K07090 006407 4400011000 07100 SC 72,0 USTR4K07100 006414 2003020100 07110 FT 0003020101,0 USTR4K07110 006421 5600640024 07120 BA2 D3,4 USTR4K07120 006426 1200003704 07130 TR 31,4 USTR4K07130 006433 3400003506 07140 CC 29,_3_ USTR4K07140 * 006440 3000645742 07150 JE $+15 USTR4K07150 * 006445 3000005060 07160 JD 00050 USTR4K07160 * 006452 3000613400 07170 J PR01 USTR4K07170 006457 5600640004 07180 BA1 D3,4 USTR4K07180 006464 5600640626 07190 BA2 D4,6 USTR4K07190 006471 5200047744 07200 ED 319,4 USTR4K07200 006476 3400047404 07210 CC 316,_1_ _ USTR4K07210 * 006503 3000652242 07220 JE $+15 USTR4K07220 * 006510 3000006060 07230 JD 00060 USTR4K07230 * 006515 3000613400 07240 J PR01 USTR4K07240 * 006522 3000652717 07250 JC $+5,15 USTR4K07250 006527 5600640064 07260 BD2 D3,4 USTR4K07260 006534 6600640024 07270 AD2 D3,4 USTR4K07270 006541 6600640064 07280 SD2 D3,4 USTR4K07280 006546 6200640024 07290 AM2 D3,4 USTR4K07290 006553 6200640064 07300 SM2 D3,4 USTR4K07300 006560 2600640064 07310 CD2 D3,4 USTR4K07310 * 006565 3000657216 07320 JC $+5,14 USTR4K07320 * 006572 3000661142 07330 JE $+15 USTR4K07330 * 006577 3000007060 07340 JD 00070 USTR4K07340 * 006604 3000613400 07350 J PR01 USTR4K07350 006611 5600637204 07360 BA1 D1,4 USTR4K07360 006616 5600637462 07370 BD2 D2,2 USTR4K07370 006623 5000000044 07380 DV ,4 USTR4K07380 006630 3400012605 07390 CC 0126,5 USTR4K07390 * 006635 3000665442 07400 JE $+15 USTR4K07400 * 006642 3000007160 07410 JD 000071 USTR4K07410 * 006647 3000613400 07420 J PR01 USTR4K07420 006654 2200012462 07430 ZS* 84,2 USTR4K07430 006661 3400012441 07440 CC 84,_*_ USTR4K07440 * 006666 3000670542 07450 JE $+15 USTR4K07450 * 006673 3000007260 07460 JD 00072 USTR4K07460 * 006700 3000613400 07470 J PR01 USTR4K07470 * 006705 3000671233 07480 JC $+5,27 USTR4K07480 * 006712 3000607600 07490 J MAINC USTR4K07490 000400 07500 ORIG 0400 USTR4K07500 * 000400 3000040031 07510 RCHN0 JC $,25 USTR4K07510 000407 004157 07520 +3 PRCHN USTR4K07520 * 000410 3000041031 07530 RCHN1 JC $,25 USTR4K07530 000417 004227 07540 +3 RDCHN USTR4K07540 * 000420 3000042031 07550 RCHN2 JC $,25 USTR4K07550 000427 004703 07560 +3 PUCHN USTR4K07560 000500 07570 ORIG 0500 USTR4K07570 * 000500 3000050037 07580 TAG1 JC $,31 USTR4K07580 000507 000532 07590 +3 TAG2 USTR4K07590 * 000510 3000051035 07600 JC $,29 USTR4K07600 000517 000520 07610 +3 $+3 USTR4K07610 * 000520 1000463100 07620 JR STALL USTR4K07620 * 000525 3000250020 07630 JHJ START USTR4K07630 * 000532 3000050020 07640 TAG2 JHJ TAG1 USTR4K07640 3000250000 07650 END START USTR4K07650 {-- tape mark --}