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(FIXED�F03,UNIT1V(HINGED�B03 ACT1 00080 F
00090 . UNIT2 V(V(H�C03,UNIT3 V(H�D03,UNIT4 V(H�E03 ACT1 00090 U
00100 . UNIT5 V(V(H�F03,UNIT6 V(F�B03,UNIT7 V(F�C03 ACT1 00100 U
00110 . UNIT8 V(V(F�D03,UNIT9 V(F�E03,UNIT10 V(F�F03 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(H�B04,4,V(H�C04,V(H�D04,V(H�E04,V(H�F04 ACT1 00160 4
00170 . V(F�B04,4,V(F�C04,V(F�D04,V(F�E04,V(F�F04 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 ON�ON 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,N�T 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<NO KEY-IN SELECTS 40(41 FOR TAPE�SYT67 00260 M
00270 . LSD OF LOCATATIONS 30-37 CORRESPONDS TO CHANNEL NO. SYT67 00270 0
00280 . 2- SENSE SWITCH O OPTIONS SYT67 00280
00290 . SS1- OMIT ERRRROR PRINTOUTS SYT67 00290 N
00300 . SS2- STOP AFTFTER ERROR PRINT-OUT SYT67 00300 O
00310 . SS3- CONSIDERER MOA AND UNIT BUSY AS ERRORS SYT67 00310 N
00320 . 3- ERROR DISPLAY Y STOP (M-BIT DISPLAY� SYT67 00320 M
00330 . A. FUNCTIONALAL ERRORS SYT67 00330 S
177700 00340 E0 EQU 0177700 0 PRINTER ERROR ON CHANNEL 0 SYT67 00340 E
177701 00350 E1 EQU 0177701 1 READER ERROR SYT67 00350 R
177702 00360 E2 EQU 0177702 2 PUNCH ERROR SYT67 00360
177703 00370 E3 EQU 0177703 3 CHANNEL 3 ERROR SYT67 00370 E
177704 00380 E4 EQU 0177704 4 TAPE ERROR ON CHANNEL 4 SYT67 00380 E
177705 00390 E5 EQU 0177705 5 TAPE ERROR ON CHANNEL 5 SYT67 00390 E
177706 00400 E6 EQU 0177706 6 DRUM ERROR SYT67 00400 E
177707 00410 E7 EQU 0177707 7 PRINTER ERROR ON CHANNEL 7 SYT67 00410 E
177710 00420 E10 EQU 0177710 0 PROCESSOR ERROR SYT67 00420 S
177711 00430 E11 EQU 0177711 1 PARITY ERROR SYT67 00430 Y
177712 00440 E12 EQU 0177712 2 DECIMAL OVERFLOW SYT67 00440 A
177713 00450 E13 EQU 0177713 3 READER SEQUENCE ERROR SYT67 00450 R
177777 00460 E77 EQU 0177777 7 WRONG DATA CARD IN READER SYT67 00460
00470 . B. ERROR INDIDICATORS SET SYT67 00470
00480 . Z-BITS = = CHANNEL NO., YX-BITS = ERROR INDICATORS SYT67 00480 E
00490 . 4- AFTER ERROR STSTOP, DEPRESS START TO CONTINUE. ADDITIONAL SYT67 00490 P
00500 . STOPS)(1� CHARAR NO,(2� CHAR READ)EXPECTED,(3� CARD NO SYT67 00500 �
00510 . 5- FOR RERUN, DEPEPRESS OPERATOR REQUEST, CLEAR, START SYT67 00510 P
* 000400 3000040031 00520 JC $,031 SYT67 00520
000407 014224 00530 +3 PRIR SYT67 00530
000420 00540 ORIG 0420 SYT67 00540
* 000420 3000042031 00550 JC $,031 SYT67 00550
000427 013036 00560 +3 PIR SYT67 00560
* 000430 3000043031 00570 JC $,031 SYT67 00570
000437 005126 00580 +3 CH3IR SYT67 00580
000450 00590 ORIG 0450 SYT67 00590
* 000450 3000045031 00600 JC $,031 SYT67 00600
000457 016335 00610 +3 TIR SYT67 00610
000500 00620 ORIG 0500 SYT67 00620
* 000500 3017771160 00630 JD E11 SYT67 00630
000507 005032 00640 +3 CL1IR SYT67 00640
* 000510 3017771260 00650 JD E12 SYT67 00650
000517 005102 00660 +3 CL2IR SYT67 00660
000520 240 00670 COMP AREA 160 SYT67 00670
000760 207 00680 AREA 135 SYT67 00680
000764 5 00690 SUBTR - 5 SYT67 00690
001041 00700 RDMNO - 45 SYT67 00700
001116 00710 EXIT - 45 SYT67 00710
001167 11 00720 AREA 9 SYT67 00720
001172 4 00730 SEQNO - 4 SEQUENCE NUMBER SYT67 00730
001175 3 00740 OCTAL - 3 SYT67 00740
001177 2 00750 ERIND - 2 SYT67 00750
001200 300 00760 RDIM1 AREA 192 SYT67 00760
001443 4 00770 RL1 - 4,164 SYT67 00770
001447 4 00780 RL2 - 4 SYT67 00780
001453 4 00790 RL3 - 4 SYT67 00790
001457 4 00800 RL4 - 4 SYT67 00800
001463 4 00810 RL5 - 4 SYT67 00810
001467 4 00820 RL6 - 4 SYT67 00820
001473 4 00830 RL7 - 4 SYT67 00830
001474 1 00840 LI - 1 LOGICAL INDICATORS SYT67 00840
001475 1 00850 EBSY1 - 1 READER ERR BUSY INDICATOR SYT67 00850
001476 1 00860 RBSY - 1 READER BUSY INDICATOR SYT67 00860
001500 00870 PERR EQU $ SYT67 00870
001510 PROC ERR, 00880 +9 _PROC ERERR,_ SYT67 00880
001530 RETURN ADDRESS) 00890 +16 _RETURN N ADDRESS) _ SYT67 00890 S
001537 00900 +7 _ _ SYT67 00900
001540 00910 EIND EQU $ SYT67 00910
001557 ERR INDICAT 00920 +16 _ ERERR INDICAT_ SYT67 00920 C
001577 ORS) 00930 +16 _ORS) _ SYT67 00930
001600 300 00940 RDIM2 AREA 192 SYT67 00940
002043 4 00950 CL1 - 4,164 SYT67 00950
002047 4 00960 CL2 - 4 SYT67 00960
002053 4 00970 CL3 - 4 SYT67 00970
002057 4 00980 CL4 - 4 SYT67 00980
002063 4 00990 CL5 - 4 SYT67 00990
002067 4 01000 ID1 - 4 SYT67 01000
002073 4 01010 ID2 - 4 SYT67 01010
002077 4 01020 ID3 - 4 SYT67 01020
002100 01030 RDERR EQU $ SYT67 01030
002117 COMP ERR)CH 01040 +16 _ COCOMP ERR)CH_ SYT67 01040 )
002137 AR NO) ,READ) 01050 +16 _AR NO) ) ,READ) _ SYT67 01050 D
002157 ,EXPECT) ,CD/B 01060 +16 _ ,EXPECECT) ,CD/B_ SYT67 01060 D
002177 L/UTHS) 01070 +16 _L/UTHS)S) _ SYT67 01070
002200 300 01080 RDIM3 AREA 192 SYT67 01080
002477 01090 STAR - 32,192 STORAGE FOR AR1 + AR2 SYT67 01090
002500 240 01100 RDTP AREA 160 READER TEST PATTERN SYT67 01100
002740 01110 DOFLO EQU $ SYT67 01110
002753 DEC OVERFLOW 01120 +12 _DEC OVEVERFLOW_ SYT67 01120
002757 TAP7 01130 TAP7 +4 _TAP7_ * SYT67 01130
002760 00 01140 EBSY6 +1 0 DRUM ERR BUSY INDICATOR SYT67 01140
002761 00 01150 ZBSY +1 0 * TAPE CH6'7 BUSY SYT67 01150
002765 0000 01160 ZLKCT +4 _0000_ * TAPE CH6'7 BLOCK COUNT SYT67 01160
002766 01170 INTER EQU $ SYT67 01170
002777 CHAN 3 INT 01180 +10 _CHAN 3 3 INT_ CHANNEL 3 INTERRUPT ERROR SYT67 01180
003000 300 01190 TPIM AREA 192 TAPE,PUNCH IMAGE AREA SYT67 01190
003240 1 01200 EBSY2 - 1,161 PUNCH ERR BUSY INDICATOR SYT67 01200
003241 1 01210 PUBSY - 1 PUNCH BUSY INDICATOR SYT67 01210
003242 1 01220 EBSY4 - 1 TAPE ERR BUSY INDICATOR SYT67 01220
003243 1 01230 TPBSY - 1 TAPE BUSY INDICATOR SYT67 01230
003263 20 01240 IR4 - 16 SYT67 01240
003273 10 01250 PCDNO - 8 PUNCH CARD NUMBER SYT67 01250
003277 4 01260 BLKCT - 4 TAPE BLOCK COUNTER SYT67 01260
003307 17531246 01270 TS02 +8 _1753124246_ INITIAL RANDOM NO. SYT67 01270
003311 4040 01280 TS01 +2 04040 TEST SELECTION)PROC,PR0 SYT67 01280
003320 40400041414141 01290 +7 04040004041414141 * SYT67 01290 1
003321 01300 SEQM EQU $ SYT67 01300
003340 SEQUENCE ERR)CAR 01310 +16 _SEQUENCNCE ERR)CAR_ SYT67 01310 C
003357 D NO READ) , 01320 +15 _D NO REREAD) ,_ SYT67 01320
003377 EXPECTED) 01330 +16 _ EXPECTCTED) _ SYT67 01330
003400 240 01340 PPRI AREA 160 SYT67 01340
003643 RDR 01350 RDR +4 _RDR _ SYT67 01350
003647 PCH 01360 PCH +4 _PCH _ SYT67 01360
* 003650 3000000031 01370 JC 0,25 SYT67 01370
003657 016335 01380 TPIE +3 TIR SYT67 01380
003663 TAP5 01390 TAP5 +4 _TAP5_ SYT67 01390
003664 01400 PARE EQU $ SYT67 01400
003677 PARITY ERROR 01410 +12 _PARITY Y ERROR_ SYT67 01410
003700 200 01420 PRIM AREA 128 SYT67 01420
004100 2600023704 01430 START PD T39,4 SYT67 01430
004105 2600616101 01440 PD CMPE5+4,4,1 SYT67 01440
004112 5600332031 01450 BA2 TS01+7,9,9 SYT67 01450
* 004117 3000000060 01460 JD 0 CLEAR,KEY IN,START SYT67 01460
* 004124 3000413122 01470 JC $+5,18 SET SI1 FOR ROW RDR/PCH SYT67 01470
004131 1400003104 01480 LC 031,04 SYT67 01480
* 004136 3000416242 01490 JE $+20 JUMP IF ROW READER SYT67 01490
004143 1400003204 01500 LC 032,04 SYT67 01500
* 004150 3000416242 01510 JE $+10 JUMP IF ROW PUNCH SYT67 01510
* 004155 3000416225 01520 JC $+5,21 RESET SI1 IF COLUMN RDR/PCH SYT67 01520
004162 4400076003 01530 SC SUBTR-4,4,3 START IF ROW RDR/PCH SYT67 01530
004167 2000076120 01540 FT SUBTR-3,3,16 SYT67 01540
004174 2000020622 01550 FT 134,18 SYT67 01550
004201 2400076001 01560 TFR SUBTR-4 4 SYT67 01560
004206 3400003000 01570 CC 030,0 SYT67 01570
004213 2601442101 01580 PD PBSY,1 SYT67 01580
* 004220 1001342143 01590 JR HSPI,35 5 PRINTER, CHANNEL 0 SYT67 01590
004225 3400003100 01600 CC 031,0 SYT67 01600
* 004232 1000657043 01610 JR RDRI,35 5 READER SYT67 01610
004237 3400003200 01620 CC 032,0 SYT67 01620
004244 2600324102 01630 PD PUBSY,2 2 SYT67 01630
* 004251 1001227143 01640 JR PCHI,35 5 PUNCH SYT67 01640
004256 3400003400 01650 CC 034,0 SYT67 01650
004263 2600324301 01660 PD TPBSY,1 1 SYT67 01660
* 004270 1001562143 01670 JR TAPI,35 5 TAPE,CHANNEL 4 SYT67 01670
004275 3400003500 01680 CC 035,0 SYT67 01680
* 004302 1001562143 01690 JR TAPI,35 5 TAPE,CHANNEL 5 SYT67 01690
004307 3400003600 01700 CC 036,0 SYT67 01700
004314 2600276102 01710 PD ZBSY,2 * SYT67 01710
* 004321 1001442543 01720 JR ZAPI,35 5 * TAPE,CHAN 6 SYT67 01720
004326 3400003700 01730 CC 037,0 SYT67 01730
* 004333 1001442543 01740 JR ZAPI,35 5 * TAPE,CHAN 7 SYT67 01740
004340 3400002700 01750 CC 027,0 SYT67 01750
* 004345 1001711043 01760 JR PROCI,3535 PROCESSOR SYT67 01760
004352 5200332031 01770 SA2 TS01+7,9,9 SYT67 01770
004357 3400440155 01780 CNTRL CC UNIT+3,0,055 CONTROL LOOP SYT67 01780
* 004364 3000437641 01790 JG UNIT SYT67 01790
004371 2600440101 01800 PD UNIT+3,1,1 SYT67 01800
004376 2000000017 01810 UNIT FT 0,X7 SYT67 01810
004403 6000440105 01820 AC UNIT+3,5,5 SYT67 01820
004410 5760076405 01830 BA1 SUBTR,5,5,X7 SYT67 01830
004415 6360104145 01840 SM1 RDMNO,5,5,X7 SYT67 01840
* 004422 3000443446 01850 JC $+10,38 8 JUMP WHEN NEGATIVE SYT67 01850
* 004427 3000435733 01860 CL01 JC CNTRL,03033 SYT67 01860
004434 2000050625 01870 FT _23_,21 1 SYT67 01870
004441 5600330770 01880 BD2 TS02,8 SYT67 01880
004446 5000000002 01890 MPN ,2 SYT67 01890
004453 5600000730 01900 BA2 7,8 SYT67 01900
004460 6600003750 01910 SD1 31,8 SYT67 01910
004465 5400001717 01920 LP 15,15 SYT67 01920
004472 5200330710 01930 SA1 TS02,8 SYT67 01930
004477 5360104105 01940 SA1 RDMNO,5,5,X7 SYT67 01940
004504 4760111617 01950 BT EXIT,X7,7,X7 SYT67 01950
* 004511 3160000000 01960 J 0,X7 CONTROL LOOP EXIT SYT67 01960
004522 20000 01970 HISPD +5 _20000_ _ SYT67 01970
004527 00100 01980 LOSPD +5 _00100_ _ PERIPHERAL INCREMENTS) SYT67 01980
004534 01000 01990 MESPD +5 _01000_ _ BASE ADDR = PRINTER, CH0 SYT67 01990
004541 01000 02000 +5 _01000_ _ BASE+5 = READER SYT67 02000
004546 00600 02010 +5 _00600_ _ BASE+12 = PUNCH SYT67 02010
004553 00000 02020 +5 _00000_ _ BASE+17 = CHANNEL 3 SYT67 02020
004560 01000 02030 +5 _01000_ _ BASE+24 = TAPE, CH4 SYT67 02030
004565 01000 02040 +5 _01000_ _ BASE+31 = TAPE, CH5 SYT67 02040
004572 01000 02050 +5 _01000_ _ BASE+36 = DRUM SYT67 02050
004577 01000 02060 +5 _01000_ _ BASE+43 = PRINTER, CH7 SYT67 02060
004604 00600 02070 +5 _00600_ _ BASE+50 = PROCESSOR SYT67 02070
004605 02080 WRONG EQU $ SYT67 02080
004624 WRONG CARD AFTER 02090 +16 _WRONG C CARD AFTER_ SYT67 02090 T
004641 CARD NO) 02100 +13 _ CARD N NO) _ SYT67 02100 _
004642 02110 TP1 EQU $ ALPHANUMERIC TEST PATTERN 1 SYT67 02110 H
004651 0001020304050607 02120 +8 0000102020304050607 SYT67 02120 6
004661 1011121314151617 02130 +8 0101112121314151617 SYT67 02130 6
004671 2021222324252627 02140 +8 0202122222324252627 SYT67 02140 6
004701 3031323334353637 02150 +8 0303132323334353637 SYT67 02150 6
004711 4041424344454647 02160 +8 0404142424344454647 SYT67 02160 6
004721 5051525354555657 02170 +8 0505152525354555657 SYT67 02170 6
004731 6061626364656667 02180 +8 0606162626364656667 SYT67 02180 6
004741 7071727374757677 02190 +8 0707172727374757677 SYT67 02190 6
004742 02200 TP2 EQU $ TRIANGLE TEST PATTERN 2 SYT67 02200 A
004750 77773777177707 02210 +7 07777377777177707 SYT67 02210 7
004757 77037701770077 02220 +7 07703770701770077 SYT67 02220 7
004766 00370017000700 02230 +7 00037001017000700 SYT67 02230 0
004775 03000100007777 02240 +7 00300010100007777 SYT67 02240 7
005004 77767774777077 02250 +7 07776777774777077 SYT67 02250 7
005013 60774077007600 02260 +7 06077407077007600 SYT67 02260 0
005022 74007000600040 02270 +7 07400700000600040 SYT67 02270 0
005025 000000 02280 +3 0 SYT67 02280
005031 PPBB 02290 TP3 +4 _PPBB_ CHECKERBOARD TEST PATTERN 3 SYT67 02290 C
02300 .TP4 HALF-CACARD,ALTERNATE ROWS TEST PATTERN 4 SYT67 02300 E
005032 2017771103 02310 CL1IR FT E11,3 CLASS I INTERRUPT ROUTINE SYT67 02310
005037 2000366407 02320 FT PARE,7 SYT67 02320
005044 4401201014 02330 SC CCT+3,1212 SYT67 02330
* 005051 1001166300 02340 JR PRINT SYT67 02340
* 005056 3000506332 02350 OPREQ JC $+5,032 2 INHIBIT CL3 INTERRUPT SYT67 02350
* 005063 3000507016 02360 JC $+5,016 6 RESET OPERATOR INT INH SYT67 02360
* 005070 3000507535 02370 JC $+5,035 5 RESET CL2 INT INH SYT67 02370
* 005075 3000410036 02380 JC START,03036 RESET CL1 INT INH SYT67 02380
* 005102 3000505654 02390 CL2IR JC OPREQ,4444 CLASS 2 INTERRUPT ROUTINE SYT67 02390
005107 2017771203 02400 FT E12,3 SYT67 02400
005114 2000274007 02410 FT DOFLO,7 7 SYT67 02410
* 005121 3000504450 02420 JC CL1IR+1010,050 RESET DOF SYT67 02420
005126 2017770303 02430 CH3IR FT E3,3 SYT67 02430
005133 2000276607 02440 FT INTER,7 7 SYT67 02440
005140 4401201012 02450 SC CCT+3,1010 SYT67 02450
* 005145 1001166300 02460 JR PRINT SYT67 02460
* 005152 3000043000 02470 J 0430 SYT67 02470
* 005157 3000515700 02480 GEN01 J $ SET UP ERROR INDICATORS SYT67 02480
005164 5200154304 02490 SA1 EIND+3,4,4 SYT67 02490
005171 2601167101 02500 PD PRINT+9,9,1 SYT67 02500
005176 2000002011 02510 FT 16,X1 SYT67 02510
005203 4400523700 02520 SC GEN02+3,3,0 SYT67 02520
005210 4400524001 02530 SC GEN02+4,4,1 SYT67 02530
005215 4400527614 02540 SC GEN03+4,4,12 SYT67 02540
005222 5600641502 02550 BA1 B01,2 SYT67 02550
005227 2600117702 02560 PD ERIND,2 2 SYT67 02560
005234 4000000000 02570 GEN02 XF 00,0,0,0,0 SYT67 02570
* 005241 3000534253 02580 JC GEN04,4343 SYT67 02580
005246 4420155703 02590 SC EIND+15,5,3,X1 SYT67 02590
005253 2037777711 02600 FT -1,X1,X1X1 SYT67 02600
005260 1600524021 02610 BS2 GEN02+4,4,1 SYT67 02610
005265 1600001721 02620 BS2 15,1 SYT67 02620
* 005272 3200523414 02630 GEN03 JL GEN02,1212 SYT67 02630
005277 5600117702 02640 BA1 ERIND,2 2 SYT67 02640
005304 4400001500 02650 GEN05 SC 015,0 SYT67 02650
005311 2000154007 02660 FT EIND,7 SYT67 02660
005316 4401201040 02670 SC CCT+3,3232 SYT67 02670
* 005323 1001166300 02680 GEN06 JR PRINT,0 0 SYT67 02680
005330 2600532701 02690 PD $-1,1 SYT67 02690
* 005335 3000515700 02700 J GEN01 SYT67 02700
005342 7200117702 02710 GEN04 AB1 ERIND,2 2 SYT67 02710
005347 4420155704 02720 SC EIND+15,5,4,X1 SYT67 02720
* 005354 3000525300 02730 J GEN02+1515 SYT67 02730
* 005361 3000536100 02740 DTOB J $ DECIMAL TO BINARY CONVERSION SYT67 02740
005366 2600207710 02750 PD ID3,8 SYT67 02750
005373 5600206743 02760 BD1 ID1,3 SYT67 02760
005400 2600644443 02770 DTOB4 CD1 D200,3 SYT67 02770
* 005405 3000543144 02780 JS DTOB1 SYT67 02780
005412 6600644443 02790 SD1 D200,3 SYT67 02790
005417 6000207001 02800 AC ID2-3,1 1 SYT67 02800
* 005424 3000540000 02810 J DTOB4 SYT67 02810
005431 2600645444 02820 DTOB1 CD1 D81 SYT67 02820
* 005436 3000545544 02830 JS $+15 SYT67 02830
005443 6600645444 02840 SD1 D81 SYT67 02840
* 005450 3000543100 02850 J DTOB1 SYT67 02850
005455 2600003722 02860 PD0 31,2 SYT67 02860
005462 7200001762 02870 SB2 15,2 SYT67 02870
005467 5200207302 02880 SA1 ID2,2 SYT67 02880
005474 5200207701 02890 SA1 ID3,1 SYT67 02890
005501 1600207211 02900 BS1 ID2-1,1 1 SYT67 02900
005506 5600207202 02910 BA1 ID2-1,2 2 SYT67 02910
005513 7200207702 02920 AB1 ID3,2 SYT67 02920
005520 1600207212 02930 BS1 ID2-1,2 2 SYT67 02930
005525 5600207202 02940 BA1 ID2-1,2 2 SYT67 02940
005532 7200207702 02950 AB1 ID3,2 SYT67 02950
* 005537 3000536140 02960 DTOB3 JC DTOB,04040 JUMP IF XLATE MODE SYT67 02960
005544 5600207702 02970 BA1 ID3,2 SYT67 02970
005551 7200207702 02980 AB1 ID3,2 SYT67 02980
* 005556 3000536100 02990 J DTOB SYT67 02990
* 005563 3000556300 03000 SETUP J $ SET UP COMPARISON AREA SYT67 03000
005570 5600207704 03010 BA1 ID3,4 SYT67 03010
005575 5200011302 03020 SA1 0113,2 SYT67 03020
005602 7200003742 03030 SB1 31,2 SYT67 03030
005607 5200005322 03040 SA2 X2,2 SYT67 03040
005614 7400207747 03050 CT ID3,39 SYT67 03050
* 005621 3000563342 03060 JE $+10 SYT67 03060
005626 2440052060 03070 TTI COMP,0,X,X2 SYT67 03070
005633 5200011322 03080 SA2 0113,2 SYT67 03080
005640 2400052041 03090 TTR COMP SYT67 03090
* 005645 3000556300 03100 J SETUP SYT67 03100
* 005652 3000565200 03110 CMP J $ COMPARISON ROUTINE SYT67 03110
005657 4600643526 03120 BT D1000-3,3,T22 SYT67 03120
005664 5660001700 03130 BA1 15,16,X3X3 IMAGE SYT67 03130
005671 7100001740 03140 CB1 15,16,X4X4 TEST PATTERN SYT67 03140
* 005676 3000575343 03150 JU CMPE SYT67 03150
005703 7600642513 03160 AT B16,X3 SYT67 03160
005710 7600642514 03170 AT B16,X4 SYT67 03170
005715 5600650344 03180 BD1 D16,4 SYT67 03180
005722 6200013304 03190 AM1 T22,4 SYT67 03190
* 005727 3200566400 03200 LOOP JL CMP+10,0,0 5 FOR RDR,PCH<12 FOR TAPE SYT67 03200
005734 2600607701 03210 PD CMPE3+4,4,1 SYT67 03210
005741 2600616101 03220 PD CMPE5+4,4,1 SYT67 03220
* 005746 3000565200 03230 J CMP SYT67 03230
005753 4400603420 03240 CMPE SC LOOP2+4,4,16 SYT67 03240
005760 5660000001 03250 BA1 0,1,X3 IMAGE SYT67 03250
005765 5660000021 03260 BA2 0,1,X3 SYT67 03260
005772 7100000041 03270 CB1 0,1,X4 TEST PATTERN SYT67 03270
* 005777 3000604243 03280 JU CMPE1 * SYT67 03280
006004 7600641513 03290 CMP01 AT B01,X3 SYT67 03290
006011 7600641514 03300 AT B01,X4 SYT67 03300
006016 5600643544 03310 BD1 D1000-3,3,4 * SYT67 03310
006023 6200013304 03320 AM1 T22,4 SYT67 03320
* 006030 3200576020 03330 LOOP2 JL CMPE+5,1,16 SYT67 03330
* 006035 3000572700 03340 J LOOP SYT67 03340
006042 5201216001 03350 CMPE1 SA1 CHARS+2,2,1 SYT67 03350
006047 4400640201 03360 SC LOOP1+4,4,1 SYT67 03360
* 006054 1000630500 03370 JR OTOD SYT67 03370
006061 5200214002 03380 SA1 RDERR+3232,2 CHARACTER READ SYT67 03380
006066 5700000001 03390 BA1 0,1,X4 TEST PATTERN SYT67 03390
* 006073 3000612400 03400 CMPE3 JC CMPE4,0 0 SKIP ON TAPE CMP SYT67 03400
006100 3400001763 03410 CC 017,063 3 OCTAL 63 IS TAPE SENTINEL SYT67 03410
* 006105 3000612443 03420 JU $+15 SYT67 03420
006112 3400003700 03430 CC 037,0 CORRES. TEST CHAR. MUST BE 0 SYT67 03430
* 006117 3000600442 03440 JE CMP01 SYT67 03440
006124 5201216101 03450 CMPE4 SA1 CHARS+3,3,1 SYT67 03450
006131 4400640201 03460 SC LOOP1+4,4,1 SYT67 03460
* 006136 1000630500 03470 JR OTOD SYT67 03470
006143 5200215202 03480 SA1 RDERR+4242,2 CHARACTER EXPECTED SYT67 03480
006150 5600013344 03490 BD1 T22,4 SYT67 03490
* 006155 3000622040 03500 CMPE5 JC CMPE2-1010,040 JUMP IF NOT 90 COL RDR/PCH SYT67 03500
006162 2600646143 03510 CD1 D46,3 SYT67 03510
* 006167 3000622044 03520 JS CMPE2-1010 SYT67 03520
006174 2600646443 03530 CD1 D65,3 SYT67 03530
006201 2600646743 03540 CD1 D109,3 SYT67 03540
* 006206 3000573441 03550 JG LOOP+5 SYT67 03550
006213 6600644743 03560 SD1 D199-1,3,3 SYT67 03560
006220 5201215403 03570 SA1 CHRNO+3,3,3 SYT67 03570
006225 5200213003 03580 SA1 RDERR+2424,3 CHARACTER NUMBER SYT67 03580
006232 2000000003 03590 CMPE2 FT 0,3 SYT67 03590
006237 2000210007 03600 FT RDERR,7 7 SYT67 03600
006244 4401201077 03610 SC CCT+3,6363 SYT67 03610
006251 4200217627 03620 ST RDERR+6262,T23 SYT67 03620
006256 4401215040 03630 SC STOP+14,4,040 SYT67 03630
* 006263 1001166300 03640 JR PRINT SYT67 03640
006270 2600217607 03650 PD RDERR+6262,7 SYT67 03650
* 006275 3000600400 03660 J CMP01 SYT67 03660
* 006302 3000630200 03670 OTOD J $ OCTAL TO DECIMAL CONVERSION SYT67 03670
006307 2600005307 03680 PD X2,7 SYT67 03680
006314 5200117503 03690 SA1 OCTAL,3 3 SYT67 03690
006321 5620117521 03700 OTOD1 BA2 OCTAL,1,1,X1 SYT67 03700
006326 5240001721 03710 SA2 017,1,X2X2 SYT67 03710
006333 2640001601 03720 PD 016,1,X2X2 SYT67 03720
006340 1640001723 03730 BS2 017,3,X2X2 SYT67 03730
006345 1640001753 03740 BC1 017,3,X2X2 SYT67 03740
006352 6040001703 03750 AC 017,3,X2X2 SYT67 03750
006357 6040001603 03760 AC 016,3,X2X2 SYT67 03760
006364 2037777711 03770 FT -1,X1,X1X1 SYT67 03770
006371 2057777612 03780 FT -2,X2,X2X2 SYT67 03780
* 006376 3200632103 03790 LOOP1 JL OTOD1,3 3 SYT67 03790
* 006403 3000630200 03800 J OTOD SYT67 03800
006411 QQ 03810 QQ +2 _QQ_ SYT67 03810
006415 00000001 03820 B01 +4 1 SYT67 03820
006421 00000004 03830 B04 +4 4 SYT67 03830
006425 00000020 03840 B16 +4 16 SYT67 03840
006431 00000200 03850 B128 +4 128 SYT67 03850
006440 0001000 03860 D1000 +7 _000100000_ SYT67 03860
006444 200 03870 D200 +4 _200_ SYT67 03870
006450 0199 03880 D199 +4 _0199_ SYT67 03880
006454 0081 03890 D81 +4 _0081_ SYT67 03890
006456 4 03900 D04 +2 _4_ SYT67 03900
006461 046 03910 D46 +3 _046_ SYT67 03910
006464 065 03920 D65 +3 _065_ SYT67 03920
006467 109 03930 D109 +3 _109_ SYT67 03930
006473 799 03940 D799 +4 _799_ SYT67 03940
006477 800 03950 D800 +4 _800_ SYT67 03950
006503 16 03960 D16 +4 _16_ SYT67 03960
006507 74747475 03970 K7475 +4 07474747475 SYT67 03970
* 006510 3000651533 03980 RDEL JC $+5,033 3 READER DELAY LOOP SYT67 03980
006515 7600641510 03990 AT B01,8 SYT67 03990
006522 3400004213 04000 CC 042,013 3 SYT67 04000
* 006527 3000715244 04010 JS RDR01+5 5 256 US LOOP,TOTAL 180.6 MS SYT67 04010
006534 4020007777 04020 RDRST XF 0,07777,7,0,1 READER RESTART SYT67 04020
* 006541 3000442753 04030 JC CL01,43 3 SYT67 04030
006546 5600332031 04040 BA2 TS01+7,9,9 SYT67 04040
* 006553 1000657032 04050 JR RDRI,03232 SYT67 04050
* 006560 3000435733 04060 JC CNTRL,03033 SYT67 04060
* 006565 3000656500 04070 RDRI J $ READER INITIALIZE ROUTINE SYT67 04070
006572 5601220410 04080 BA1 RDIE,8 SYT67 04080
006577 5200041710 04090 SA1 0417,8 SYT67 04090
006604 4401064240 04100 SC SEQT+9,0,040 SYT67 04100
006611 2000714503 04110 FT RDR01,3 3 SYT67 04110
006616 5200112303 04120 SA1 EXIT+5,3,3 SYT67 04120
006623 2600145700 04130 PD RL4,16 SYT67 04130
006630 2600147314 04140 PD RL7,12 SYT67 04140
006635 2000120044 04150 FT RDIM1,T3T36 SYT67 04150
006642 4200144744 04160 ST RL2,T36 6 SYT67 04160
006647 2000160045 04170 FT RDIM2,T3T37 SYT67 04170
006654 4200145345 04180 ST RL3,T37 7 SYT67 04180
006661 2000220003 04190 FT RDIM3,3 3 SYT67 04190
006666 5200145703 04200 SA1 RL4,3 SYT67 04200
006673 2000146303 04210 FT RL5,3 SYT67 04210
006700 5200147303 04220 SA1 RL7,3 SYT67 04220
006705 2600205700 04230 PD CL4,16 SYT67 04230
006712 2000204303 04240 FT CL1,3 SYT67 04240
006717 5200206303 04250 SA1 CL5,3 SYT67 04250
006724 2600755501 04260 PD LOOP3+9,9,1 SYT67 04260
006731 1400003102 04270 LC 031,02 SYT67 04270
* 006736 3000675042 04280 JE $+10 JUMP IF SEQUENCE TEST SYT67 04280
006743 4400755540 04290 SC LOOP3+9,9,040 SYT67 04290
006750 6401127101 04300 LS READ1+3,3,01 SET UP 80 COL XLATE READ SYT67 04300
006755 2000645003 04310 FT D199,3 SYT67 04310
* 006762 3000676723 04320 JC $+5,19 SET SI2 FOR XLATE MODE SYT67 04320
006767 1400003101 04330 LC 031,01 SYT67 04330
* 006774 3000702042 04340 JE RDRI2 XLATE MODE SYT67 04340
007001 5401127176 04350 LP READ1+3,3,076 SET UP IMAGE READ SYT67 04350
007006 2000647303 04360 FT D799,3 SYT67 04360
* 007013 3000702026 04370 JC RDRI2,2222 RESET SI2 FOR UNXLATE MODE SYT67 04370
007020 5200746503 04380 RDRI2 SA1 MOD2+3,3,3 SYT67 04380
007025 5201067203 04390 SA1 MOD3+3,3,3 SYT67 04390
007032 2000000517 04400 FT 5,X7 SYT67 04400
007037 2000003111 04410 FT 031,X1 SYT67 04410
* 007044 1000706600 04420 JR SPEED SYT67 04420
* 007051 1001125200 04430 JR READ SYT67 04430
* 007056 3000656500 04440 J RDRI SYT67 04440
* 007063 3000706300 04450 SPEED J $ SET UP SPEED SYT67 04450
007070 5600452205 04460 BA1 HISPD,5 5 SYT67 04460
007075 1420000060 04470 LC 0,060,X1X1 SYT67 04470
* 007102 3000713342 04480 JE $+25 SYT67 04480
007107 5600452705 04490 BA1 LOSPD,5 5 SYT67 04490
007114 1420000020 04500 LC 0,020,X1X1 SYT67 04500
* 007121 3000713342 04510 JE $+10 SYT67 04510
007126 5760453405 04520 BA1 MESPD,5,5,X7 SYT67 04520
007133 5360076405 04530 SA1 SUBTR,5,5,X7 SYT67 04530
* 007140 3000706300 04540 J SPEED SYT67 04540
007145 2600004304 04550 RDR01 PD 043,4 READER ROUTINE ENTRY SYT67 04550
* 007152 3000715732 04560 JC $+5,032 2 SYT67 04560
007157 3400147500 04570 CC EBSY1,0 0 SYT67 04570
* 007164 3000651043 04580 JU RDEL SYT67 04580
* 007171 3000721065 04590 RDR3 JC RDR1,53 3 JUMP IF ROW READER SYT67 04590
007176 3400147600 04600 CC RBSY,0 SYT67 04600
* 007203 3000442743 04610 JU CL01 SYT67 04610
007210 7400204347 04620 RDR1 CT CL1,T39 9 SYT67 04620
* 007215 3000724643 04630 JU RDR2 SYT67 04630
* 007222 3000442765 04640 JC CL01,53 3 JUMP IF ROW READER SYT67 04640
007227 2000442703 04650 FT CL01,3 SYT67 04650
007234 5200041303 04660 SA1 0413,3 SYT67 04660
* 007241 3001117200 04670 J RIR7 SYT67 04670
007246 4600204311 04680 RDR2 BT CL1,X1 SYT67 04680
007253 5600205714 04690 BA1 CL4,12 SYT67 04690
007260 5200205314 04700 SA1 CL3,12 SYT67 04700
007265 4600147312 04710 BT RL7,X2 SYT67 04710
007272 4240000011 04720 ST 0,X1,X2 2 SYT67 04720
007277 5600642104 04730 BA1 B04,4 SYT67 04730
007304 7200206344 04740 SB1 CL5,4 SYT67 04740
007311 7200147304 04750 AB1 RL7,4 SYT67 04750
007316 2600742301 04760 PD RDR02+4,4,1 SYT67 04760
007323 1400331210 04770 LC TS01+1,0,010 SYT67 04770
* 007330 3000734243 04780 JU $+10 JUMP IF 80 READER SYT67 04780
007335 4400742340 04790 SC RDR02+4,4,040 SYT67 04790
007342 5600641102 04800 BA1 QQ,2 SYT67 04800
007347 5620000564 04810 BD2 5,4,X1 SYT67 04810
007354 7020000142 04820 CB1 1,2,X1 SYT67 04820
* 007361 3000746242 04830 JE MOD2 JUMP IF QQ ON LEFT SYT67 04830
007366 5620011764 04840 BD2 79,4,X1 1 SYT67 04840
007373 7020011342 04850 CB1 75,2,X1 1 SYT67 04850
* 007400 3000745566 04860 JC MOD2-5,5,54 JUMP IF XLATE MODE SYT67 04860
007405 5620023764 04870 BD2 159,4,X1X1 SYT67 04870
007412 7020023342 04880 CB1 155,2,X1X1 SYT67 04880
* 007417 3000745540 04890 RDR02 JC MOD2-5,0,040 JUMP IF 80 READER SYT67 04890
007424 5620013164 04900 BD2 89,4,X1 1 SYT67 04900
007431 7020012542 04910 CB1 85,2,X1 1 SYT67 04910
* 007436 3000745565 04920 JC MOD2-5,5,53 JUMP IF ROW READER SYT67 04920
007443 5620015464 04930 BD2 108,4,X1X1 90 _COLUMN_ READER SYT67 04930
007450 7020015042 04940 CB1 104,2,X1X1 SYT67 04940
* 007455 3001056143 04950 JU XCARD JUMP IF QQ NOT ON RIGHT SYT67 04950
007462 2600000064 04960 MOD2 CD2 0,4 D199 OR D799 SYT67 04960
* 007467 3001056141 04970 JG XCARD SYT67 04970
007474 5200013724 04980 SA2 T23,4 SYT67 04980
007501 5600650704 04990 BA1 K7475,4 4 SYT67 04990
007506 7200001724 05000 AB2 017,4 SYT67 05000
* 007513 3001056147 05010 JC XCARD,04047 JUMP IF ID UNDER 03 SYT67 05010
007520 4400755004 05020 SC LOOP3+4,4,4 SYT67 05020
007525 3400003714 05030 CC 037,014 4 SYT67 05030
* 007532 3001056144 05040 JS XCARD JUMP IF DIGIT OVER 14 SYT67 05040
007537 1600003746 05050 BC4 037,6 SYT67 05050
* 007544 3200752504 05060 LOOP3 JL $-15,4 SYT67 05060
* 007551 1001063440 05070 JR SEQT,04040 JUMP IF SEQUENCE TEST SYT67 05070
007556 5201221024 05080 SA2 RCDNO,4 4 SYT67 05080
007563 5201216623 05090 SA2 CRDNO+3,3,3 SYT67 05090
007570 5200206724 05100 SA2 ID1,4 SYT67 05100
007575 2600554301 05110 RDR03 PD DTOB3+4,4,1 SYT67 05110
* 007602 3000761466 05120 JC $+10,54 4 JUMP IF XLATE MODE SYT67 05120
007607 4400554340 05130 SC DTOB3+4,4,040 SYT67 05130
* 007614 1000536400 05140 JR DTOB SYT67 05140
007621 4401052766 05150 SC GETP0-1,1,54 SYT67 05150
007626 2000250014 05160 FT RDTP,X4 4 SYT67 05160
* 007633 1001024700 05170 JR GETP SYT67 05170
007640 2000331214 05180 FT TS01+1,X,X4 SYT67 05180
007645 4401002266 05190 SC RDR5+4,5,54 SYT67 05190
* 007652 1000775100 05200 JR RDR4 SYT67 05200
007657 2000052014 05210 FT COMP,X4 4 TEST PATTERN SYT67 05210
007664 4600004713 05220 BT X1,X3 READER IMAGE SYT67 05220
007671 5600364304 05230 BA1 RDR,4 SYT67 05230
007676 5200210304 05240 SA1 RDERR+3,3,4 SYT67 05240
007703 2017770103 05250 FT E1,3 SYT67 05250
007710 5200623503 05260 SA1 CMPE2+3,3,3 SYT67 05260
007715 2000331212 05270 FT TS01+1,X,X2 SYT67 05270
* 007722 1001011500 05280 JR RDR8 SYT67 05280
* 007727 1000565500 05290 JR CMP SYT67 05290
* 007734 3000442765 05300 JC CL01,53 3 SYT67 05300
* 007741 3000722700 05310 J RDR1+15 5 SYT67 05310
* 007746 3000774600 05320 RDR4 J $ SYT67 05320
007753 5600641102 05330 BA1 QQ,2 SYT67 05330
007760 5600013724 05340 BA2 T23,4 SYT67 05340
007765 1400003501 05350 LC 035,01 SYT67 05350
* 007772 3001001643 05360 JU RDR5 JUMP IF QQ NOT ON LEFT SYT67 05360
007777 5200052102 05370 SA1 COMP+1,2,2 SYT67 05370
010004 5200052524 05380 SA2 COMP+5,4,4 SYT67 05380
* 010011 3000774600 05390 J RDR4 SYT67 05390
* 010016 3001005466 05400 RDR5 JC RDR6,54 4 JUMP IF XLATE MODE SYT67 05400
010023 1500000010 05410 LC 0,010,X4X4 SYT67 05410
* 010030 3001007343 05420 JU RDR6+15 5 JUMP IF 80 RDR/PCH SYT67 05420
010035 5200064502 05430 SA1 COMP+85,5,2 SYT67 05430
010042 5200065124 05440 SA2 COMP+89,9,4 SYT67 05440
* 010047 3000774600 05450 J RDR4 SYT67 05450
010054 5200063302 05460 RDR6 SA1 COMP+75,5,2 SYT67 05460
010061 5200063724 05470 SA2 COMP+79,9,4 SYT67 05470
* 010066 3000774600 05480 J RDR4 SYT67 05480
010073 5200075302 05490 SA1 COMP+15555,2 SYT67 05490
010100 5200075724 05500 SA2 COMP+15959,4 SYT67 05500
* 010105 3000774600 05510 J RDR4 SYT67 05510
* 010112 3001011200 05520 RDR8 J $ SYT67 05520
010117 1440000010 05530 LC 0,010,X2X2 SYT67 05530
* 010124 3001011243 05540 JU RDR8 JUMP IF 80 RDR/PCH SYT67 05540
* 010131 3001022065 05550 JC RDR9,53 3 JUMP IF 90 ROW RDR/PCH SYT67 05550
010136 2100013220 05560 FT 90,16,X4X4 SYT67 05560
010143 2000002322 05570 FT 19,18 SYT67 05570
010150 2500010701 05580 TFR 71,,X4 SYT67 05580
010155 2100010720 05590 FT 71,16,X4X4 SYT67 05590
010162 2500006401 05600 TFR 52,,X4 SYT67 05600
010167 5700006307 05610 BA1 51,7,X4 4 SYT67 05610
010174 5300010607 05620 SA1 70,7,X4 4 SYT67 05620
010201 4400616140 05630 SC CMPE5+4,4,040 SYT67 05630
010206 4400573307 05640 SC LOOP+4,7,7 SYT67 05640
* 010213 3001011200 05650 J RDR8 SYT67 05650
010220 2660013706 05660 RDR9 PD 95,6,X3 3 SYT67 05660
010225 2700013706 05670 PD 95,6,X4 4 SYT67 05670
010232 4400573306 05680 SC LOOP+4,6,6 SYT67 05680
* 010237 3001011200 05690 J RDR8 SYT67 05690
* 010244 3001024400 05700 GETP J $ GENERATE TEST PATTERN SYT67 05700
010251 4400573305 05710 SC LOOP+4,5,5 SYT67 05710
010256 2100000020 05720 FT 0,16,X4 4 SYT67 05720
010263 3400207001 05730 CC ID2-3,1 1 SYT67 05730
* 010270 3001047241 05740 JG GETP1 JUMP IF TP1 SYT67 05740
* 010275 3001043442 05750 JE GETP2 JUMP IF TP2 SYT67 05750
010302 3400207003 05760 CC ID2-3,3 3 SYT67 05760
* 010307 3001037641 05770 JG GETP3 JUMP IF TP3 SYT67 05770
010314 4500000052 05780 GETP4 SC 0,052,X4X4 I.E.,TP4 SYT67 05780
010321 2000005022 05790 FT 40,18 SYT67 05790
010326 2100000120 05800 FT 1,16,X4 4 SYT67 05800
010333 2500000021 05810 TFI 0,,X4 SYT67 05810
010340 4500005025 05820 SC 40,025,X,X4 SYT67 05820
010345 2500005021 05830 TFI 40,,X4 SYT67 05830
010352 2700012001 05840 PD 80,1,X4 4 SYT67 05840
010357 2000011722 05850 FT 79,18 SYT67 05850
010364 2500012001 05860 TFR 80,,X4 SYT67 05860
* 010371 3001053000 05870 J GETP0 SYT67 05870
010376 5600503104 05880 GETP3 BA1 TP3,4 SYT67 05880
010403 5300000304 05890 SA1 3,4,X4 SYT67 05890
010410 2100000420 05900 FT 4,16,X4 4 SYT67 05900
010415 2000023422 05910 FT 156,18 SYT67 05910
010422 2500000001 05920 TFR 0,,X4 SYT67 05920
* 010427 3001053000 05930 J GETP0 SYT67 05930
010434 2000006422 05940 GETP2 FT 52,18 SYT67 05940
010441 2400474221 05950 TFI TP2 SYT67 05950
010446 2400474221 05960 TFI TP2 SYT67 05960
010453 2400474221 05970 TFI TP2 SYT67 05970
010460 2700023704 05980 PD 159,4,X4X4 SYT67 05980
* 010465 3001053000 05990 J GETP0 SYT67 05990
010472 2000010022 06000 GETP1 FT 64,18 SYT67 06000
010477 2400464221 06010 TFI TP1 SYT67 06010
010504 2400464221 06020 TFI TP1 SYT67 06020
010511 2000004022 06030 FT 32,18 SYT67 06030
010516 2400464201 06040 TFR TP1 SYT67 06040
* 010523 3001053566 06050 JC $+10,54 4 JUMP IF XLATE MODE SYT67 06050
010530 4400573312 06060 GETP0 SC LOOP+4,1,10 SYT67 06060
010535 2100000021 06070 FT 0,17,X4 4 SYT67 06070
010542 2000024007 06080 FT 160,7 SYT67 06080
* 010547 1000556600 06090 JR SETUP SYT67 06090
* 010554 3001024400 06100 J GETP SYT67 06100
010561 5601221004 06110 XCARD BA1 RCDNO,4 4 WRONG CARD DETECTED SYT67 06110
010566 5200464104 06120 SA1 WRONG+2828,4 SYT67 06120
010573 4401201035 06130 SC CCT+3,2929 SYT67 06130
010600 2017777703 06140 FT E77,3 SYT67 06140
010605 2000460507 06150 FT WRONG,7 7 SYT67 06150
* 010612 1001166300 06160 JR PRINT SYT67 06160
* 010617 3000435733 06170 JC CNTRL,03033 SYT67 06170
010624 2600117204 06180 PD SEQNO,4 4 SYT67 06180
* 010631 3001063100 06190 SEQT J $ SEQUENCE TEST SYT67 06190
* 010636 3001065540 06200 JC $+15,04040 SYT67 06200
010643 2601064201 06210 PD $-1,1 SYT67 06210
010650 5200117224 06220 SA2 SEQNO,4 4 SYT67 06220
010655 2600117264 06230 CD2 SEQNO,4 4 SYT67 06230
* 010662 3001072043 06240 JU SEQER SYT67 06240
010667 2600000064 06250 MOD3 CD2 0,4 D199 OR D799 SYT67 06250
* 010674 3001062442 06260 JE SEQT-5 SYT67 06260
010701 5600643544 06270 BD1 D1000-3,3,4 SYT67 06270
010706 6200117204 06280 AM1 SEQNO,4 4 SYT67 06280
* 010713 3001063100 06290 J SEQT SYT67 06290
010720 5200335624 06300 SEQER SA2 SEQM+29,9,4 CARD NO READ SYT67 06300
010725 5600117204 06310 BA1 SEQNO,4 4 SYT67 06310
010732 5200337504 06320 SA1 SEQM+44,4,4 CARD NO EXPECTED SYT67 06320
010737 5200117224 06330 SA2 SEQNO,4 4 SYT67 06330
010744 4401201055 06340 SC CCT+3,4545 SYT67 06340
010751 2017771303 06350 FT E13,3 SYT67 06350
010756 2000332107 06360 FT SEQM,7 SYT67 06360
* 010763 1001166300 06370 JR PRINT SYT67 06370
010770 5600643544 06380 BD1 D1000-3,3,4 SYT67 06380
010775 6200117204 06390 AM1 SEQNO,4 4 SYT67 06390
* 011002 3000435733 06400 JC CNTRL,03033 SYT67 06400
* 011007 1001156200 06410 RIR JR STORE READER INTERRUPT ROUTINE SYT67 06410
011014 4020001154 06420 XF 0,01154,4,0,1 SYT67 06420
* 011021 3001145153 06430 JC RIR10,4343 SYT67 06430
* 011026 3001104565 06440 RIR1 JC $+15,53 3 JUMP IF ROW READER SYT67 06440
011033 4020000020 06450 XF 0,020,0,0,1 SYT67 06450
* 011040 3001145153 06460 JC RIR10,4343 SYT67 06460
011045 4020006000 06470 XF 0,06000,0,0,1 SYT67 06470
* 011052 3001137453 06480 JC RIR6,43 3 SYT67 06480
011057 2600147602 06490 PD RBSY,2 SYT67 06490
011064 7400144347 06500 CT RL1,T39 9 SYT67 06500
* 011071 1001130343 06510 JR RIR4,35 5 SYT67 06510
011076 5600144704 06520 BA1 RL2,4 SYT67 06520
011103 5200144304 06530 SA1 RL1,4 SYT67 06530
011110 2600144704 06540 PD RL2,4 SYT67 06540
011115 4020000020 06550 XF 0,020,0,0,1 SYT67 06550
* 011122 3001134353 06560 JC RIR5,43 3 SYT67 06560
011127 7400144347 06570 CT RL1,T39 9 SYT67 06570
* 011134 1001130343 06580 JR RIR4,35 5 SYT67 06580
011141 5600144704 06590 BA1 RL2,4 SYT67 06590
011146 5200144304 06600 SA1 RL1,4 SYT67 06600
011153 2600144704 06610 PD RL2,4 SYT67 06610
011160 7400145347 06620 CT RL3,T39 9 SYT67 06620
* 011165 3001123542 06630 JE RIR8 SYT67 06630
011172 4600145344 06640 RIR7 BT RL3,T36 6 SYT67 06640
011177 4200144744 06650 ST RL2,T36 6 SYT67 06650
011204 5600146714 06660 RIR2 BA1 RL6,12 SYT67 06660
011211 5200146314 06670 SA1 RL5,12 SYT67 06670
011216 5600642104 06680 BA1 B04,4 SYT67 06680
011223 7200147344 06690 SB1 RL7,4 SYT67 06690
* 011230 1001125200 06700 JR READ SYT67 06700
* 011235 1001162000 06710 RIR8 JR REST SYT67 06710
* 011242 3000041000 06720 J 0410 SYT67 06720
* 011247 3001124700 06730 READ J $ SYT67 06730
011254 4020406000 06740 XF 040,0600000,0,1 SYT67 06740
011261 4400147601 06750 SC RBSY,1 SYT67 06750
011266 4020010000 06760 READ1 XF 01,0,0,1,1 SYT67 06760
* 011273 3001124700 06770 J READ SYT67 06770
* 011300 3001130000 06780 RIR4 J $ SYT67 06780
011305 4600206311 06790 BT CL5,X1 SYT67 06790
011312 5600144304 06800 BA1 RL1,4 SYT67 06800
011317 5220000004 06810 SA1 0,4,X1 SYT67 06810
011324 5600642104 06820 BA1 B04,4 SYT67 06820
011331 7200206304 06830 AB1 CL5,4 SYT67 06830
* 011336 3001130000 06840 J RIR4 SYT67 06840
011343 7400145347 06850 RIR5 CT RL3,T39 9 SYT67 06850
* 011350 3001123542 06860 JE RIR8 SYT67 06860
011355 4600145345 06870 BT RL3,T37 7 SYT67 06870
011362 4200144745 06880 ST RL2,T37 7 SYT67 06880
* 011367 3001120400 06890 J RIR2 SYT67 06890
* 011374 3001145164 06900 RIR6 JC RIR10,5252 MOA,UBSY ERRORS IF SS3 SET SYT67 06900
* 011401 3001141365 06910 JC $+10,53 3 JUMP IF ROW READER SYT67 06910
* 011406 3001123000 06920 J RIR8-5 COLUMN READER SYT67 06920
011413 4020000020 06930 XF 0,020,0,0,1 SYT67 06930
* 011420 3001123053 06940 JC RIR8-5,4,43 SYT67 06940
011425 7400022345 06950 CT T36,T37 7 SYT67 06950
* 011432 3001123042 06960 JE RIR8-5 SYT67 06960
011437 4200022345 06970 ST T36,T37 7 SYT67 06970
* 011444 3001123000 06980 J RIR8-5 SYT67 06980
011451 4400147501 06990 RIR10 SC EBSY1,1 1 SYT67 06990
011456 4400523520 07000 SC GEN02+1,1,020 CHECK READER INDICATORS SYT67 07000
011463 4400523440 07010 SC GEN02,3232 SYT67 07010
011470 5600364304 07020 BA1 RDR,4 SYT67 07020
011475 4400531001 07030 SC GEN05+4,4,1 SYT67 07030
* 011502 1000516200 07040 JR GEN01 SYT67 07040
011507 4020407777 07050 RIR3 XF 040,0777777,0,1 SYT67 07050
011514 2000653403 07060 FT RDRST,3 3 SYT67 07060
011521 5200112303 07070 SA1 EXIT+5,3,3 SYT67 07070
011526 2600004304 07080 PD 043,4 SYT67 07080
011533 7600641510 07090 AT B01,8 SYT67 07090
011540 3400004207 07100 CC 042,07 SYT67 07100
* 011545 3001153344 07110 JS $-10 SYT67 07110
* 011552 3001123500 07120 J RIR8 193.5 US LOOP,TOTAL 86.69 MS SYT67 07120
* 011557 3001155700 07130 STORE J $ SYT67 07130
* 011564 3000147451 07140 JC LI,41 SYT67 07140
011571 5200247761 07150 SAR STAR SYT67 07150
011576 5600006300 07160 BA1 X4,16 SYT67 07160
011603 5200326300 07170 SA1 IR4,16 SYT67 07170
* 011610 3001155700 07180 J STORE SYT67 07180
* 011615 3001161500 07190 REST J $ SYT67 07190
* 011622 3000147452 07200 JC LI,42 SYT67 07200
011627 5600326300 07210 BA1 IR4,16 SYT67 07210
011634 5200006300 07220 SA1 X4,16 SYT67 07220
011641 5600245700 07230 BA1 STAR-16,6,16 SYT67 07230
011646 5600247720 07240 BA2 STAR,16 6 SYT67 07240
* 011653 3001161500 07250 J REST SYT67 07250
* 011660 3001166000 07260 PRINT J $ ERROR PRINT-OUT ROUTINE SYT67 07260
011665 6400001510 07270 LS 015,010 0 SYT67 07270
011672 5201213503 07280 SA1 STOP+3,3,3 SYT67 07280
* 011677 3001207462 07290 JC EPR2,50 0 IF SS1 SET, DO NOT PRINT SYT67 07290
011704 2600020701 07300 PD T33,1 SYT67 07300
011711 4000406000 07310 EPR1 XF 040,0600000,0,0 SYT67 07310
011716 4000600000 07320 XF 060,0,0,0,0 SYT67 07320
011723 4000001777 07330 XF 0,01777,7,0,0 SYT67 07330
* 011730 3001211353 07340 JC EPR2+15,5,43 SYT67 07340
011735 4000006000 07350 XF 0,06000,0,0,0 SYT67 07350
* 011742 3001171153 07360 JC EPR1,43 3 SYT67 07360
011747 5201201523 07370 SA2 MSG+3,3 3 SYT67 07370
011754 2600370001 07380 PD PRIM,1 SYT67 07380
011761 2000370120 07390 FT PRIM+1,1,16 SYT67 07390
011766 2000007722 07400 FT 63,18 SYT67 07400
011773 2400370001 07410 TFR PRIM SYT67 07410
012000 2000370020 07420 FT PRIM,16 6 SYT67 07420
012005 2000000022 07430 CCT FT 0,18 SYT67 07430
012012 2400000001 07440 MSG TFR 0 SYT67 07440
012017 4400020702 07450 SC T33,2 SYT67 07450
012024 2000370040 07460 FT PRIM,T3232 SYT67 07460
012031 4000406000 07470 XF 040,0600000,0,0 SYT67 07470
012036 4000620400 07480 EPR XF 062,040000,0,0 SYT67 07480
012043 4000001777 07490 XF 0,01777,7,0,0 SYT67 07490
* 012050 3001211353 07500 JC EPR2+15,5,43 SYT67 07500
012055 4000006000 07510 XF 0,06000,0,0,0 SYT67 07510
* 012062 3001203153 07520 JC EPR-5,4343 SYT67 07520
012067 4000600400 07530 XF 060,040000,0,0 SYT67 07530
* 012074 3001213263 07540 EPR2 JC STOP,51 1 IF SS2 SET, STOP SYT67 07540
012101 2601215001 07550 PD STOP+14,4,1 SYT67 07550
* 012106 3001166000 07560 J PRINT SYT67 07560
* 012113 3001213260 07570 JD STOP JUMP TO IGNORE PRINT-OUT SYT67 07570
012120 4000407777 07580 XF 040,0777777,0,0 SYT67 07580
* 012125 3001170400 07590 J EPR1-5 SYT67 07590
* 012132 3000000060 07600 STOP JD 0 ERROR DISPLAY STOP SYT67 07600
012137 4401167110 07610 SC PRINT+9,9,010 SYT67 07610
* 012144 3001166000 07620 JC PRINT,0 0 SYT67 07620
* 012151 3000000060 07630 CHRNO JD 0 CHARACTER NUMBER SYT67 07630
* 012156 3000000060 07640 CHARS JD 0 CHARACTER READ)EXPECTED SYT67 07640
* 012163 3000000060 07650 CRDNO JD 0 CARD NUMBER SYT67 07650
* 012170 3001210100 07660 J EPR2+5 SYT67 07660
* 012175 3000000031 07670 JC 0,25 SYT67 07670
012204 011007 07680 RDIE +3 RIR SYT67 07680
012210 00000000 07690 RCDNO +4 0 READER CARD NUMBER SYT67 07690
000047 07700 X1 EQU 047 SYT67 07700
000053 07710 X2 EQU X1+4 SYT67 07710
000057 07720 X3 EQU X2+4 SYT67 07720
000063 07730 X4 EQU X3+4 SYT67 07730
000067 07740 X5 EQU X4+4 SYT67 07740
000073 07750 X6 EQU X5+4 SYT67 07750
000077 07760 X7 EQU X6+4 SYT67 07760
000123 07770 T20 EQU 0123 SYT67 07770
000127 07780 T21 EQU T20+4 SYT67 07780
000133 07790 T22 EQU T21+4 SYT67 07790
000137 07800 T23 EQU T22+4 SYT67 07800
000143 07810 T24 EQU T23+4 SYT67 07810
000147 07820 T25 EQU T24+4 SYT67 07820
000153 07830 T26 EQU T25+4 SYT67 07830
000157 07840 T27 EQU T26+4 SYT67 07840
000163 07850 T28 EQU T27+4 SYT67 07850
000167 07860 T29 EQU T28+4 SYT67 07860
000173 07870 T30 EQU T29+4 SYT67 07870
000177 07880 T31 EQU T30+4 SYT67 07880
000203 07890 T32 EQU T31+4 SYT67 07890
000207 07900 T33 EQU T32+4 SYT67 07900
000213 07910 T34 EQU T33+4 SYT67 07910
000217 07920 T35 EQU T34+4 SYT67 07920
000223 07930 T36 EQU 0223 SYT67 07930
000227 07940 T37 EQU T36+4 SYT67 07940
000233 07950 T38 EQU T37+4 SYT67 07950
000237 07960 T39 EQU T38+4 SYT67 07960
000243 07970 T40 EQU T39+4 SYT67 07970
000247 07980 T41 EQU T40+4 SYT67 07980
000253 07990 T42 EQU T41+4 SYT67 07990
000257 08000 T43 EQU T42+4 SYT67 08000
000317 08010 T51 EQU 0317 SYT67 08010
000337 08020 T55 EQU T51+16 SYT67 08020
000343 08030 T56 EQU T55+4 SYT67 08030
000347 08040 T57 EQU T56+4 SYT67 08040
000357 08050 T59 EQU T57+8 SYT67 08050
000373 08060 T62 EQU 0373 SYT67 08060
000377 08070 T63 EQU T62+4 SYT67 08070
* 012211 3001221633 08080 PDEL JC $+5,033 3 PUNCH DELAY LOOP SYT67 08080
012216 7600641531 08090 AT B01,T25 5 SYT67 08090
012223 3400014657 08100 CC T25-1,05057 SYT67 08100
* 012230 3001250241 08110 JG PCH01+5 5 360 US LOOP, TOTAL 1.08 SEC SYT67 08110
012235 4040007777 08120 PURST XF 0,07777,7,0,2 PUNCH RESTART SYT67 08120
* 012242 3000442753 08130 JC CL01,43 3 SYT67 08130
012247 5600332031 08140 BA2 TS01+7,9,9 SYT67 08140
* 012254 1001227132 08150 JR PCHI,03232 SYT67 08150
* 012261 3000435733 08160 JC CNTRL,03033 SYT67 08160
* 012266 3001226600 08170 PCHI J $ PUNCH INITIALIZE ROUTINE SYT67 08170
012273 4401267140 08180 SC PUORD+9,9,040 SYT67 08180
012300 6401266310 08190 LS PUORD+3,3,010 SELECT ERR STACK 1ST TIME SYT67 08190
012305 2601304701 08200 PD PIR+9,1 1 SET UP 1ST CARD IGNORE SYT67 08200
012312 2601310001 08210 PD PIR2+4,1,1 OMIT POST-PUNCH CHECK SYT67 08210
012317 1400003202 08220 LC 032,2 CHECK FOR POST-PUNCH READ SYT67 08220
* 012324 3001233642 08230 JE $+10 NO SYT67 08230
012331 4401310040 08240 SC PIR2+4,0,040 YES SYT67 08240
012336 6401330101 08250 LS PIR6+8,0,01 SET UP XLATE MODE SYT67 08250
012343 6401266301 08260 LS PUORD+3,3,01 SYT67 08260
* 012350 3001235524 08270 JC $+5,20 SET SI3 FOR XLATE MODE SYT67 08270
012355 1400003201 08280 LC 032,01 SYT67 08280
* 012362 3001240642 08290 JE $+20 SYT67 08290
012367 5401330176 08300 LP PIR6+8,0,076 SYT67 08300
012374 5401266376 08310 LP PUORD+3,3,076 SYT67 08310
* 012401 3001240627 08320 JC $+5,23 RESET SI3 FOR IMAGE MODE SYT67 08320
012406 2001247503 08330 FT PCH01,3 3 SYT67 08330
012413 5200113003 08340 SA1 EXIT+10,0,3 SYT67 08340
012420 2000001217 08350 FT 10,X7 SYT67 08350
012425 2000003211 08360 FT 032,X1 SYT67 08360
* 012432 1000706600 08370 JR SPEED SYT67 08370
012437 2600025704 08380 PD T43,4 SYT67 08380
012444 2600324101 08390 PD PUBSY,1 1 SYT67 08390
012451 2600327330 08400 PD0 PCDNO,8 8 SYT67 08400
012456 4400326745 08410 SC PCDNO-4,4,045 SYT67 08410
012463 2000340051 08420 FT PPRI,T4141 SYT67 08420
* 012470 3001226600 08430 J PCHI SYT67 08430
012475 2600014704 08440 PCH01 PD T25,4 PUNCH ROUTINE ENTRY SYT67 08440
* 012502 3001250732 08450 JC $+5,032 2 SYT67 08450
012507 3400324100 08460 CC PUBSY,0 0 SYT67 08460
* 012514 3001253342 08470 JE $+15 SYT67 08470
012521 3400324000 08480 CC EBSY2,0 0 SYT67 08480
* 012526 3001221143 08490 JU PDEL SYT67 08490
* 012533 1001606100 08500 JR TAPR1 SYT67 08500
* 012540 3001255200 08510 J PCH02+5 5 SYT67 08510
012545 2600327324 08520 PCH02 PD0 PCDNO,4 4 SYT67 08520
012552 5600327344 08530 BD1 PCDNO,4 4 SYT67 08530
012557 2600645044 08540 CD1 D199,4 SYT67 08540
* 012564 3001257667 08550 JC $+10,55 5 JUMP IF XLATE MODE SYT67 08550
012571 2600647344 08560 CD1 D799,4 SYT67 08560
* 012576 3001254541 08570 JG PCH02 SYT67 08570
* 012603 1001271400 08580 JR PCH03 SYT67 08580
012610 5600643544 08590 BD1 D1000-3,3,4 SYT67 08590
012615 6200327304 08600 AM1 PCDNO,4 4 INCREMENT CARD NUMBER SYT67 08600
012622 6200326704 08610 AM1 PCDNO-4,4,4 SYT67 08610
012627 2000300050 08620 FT TPIM,T4040 SYT67 08620
012634 2000300014 08630 FT TPIM,X4 4 SYT67 08630
012641 2000331312 08640 FT TS01+2,X,X2 SYT67 08640
* 012646 1001011500 08650 JR RDR8 SYT67 08650
012653 4400324101 08660 SC PUBSY,1 1 SYT67 08660
012660 4040030000 08670 PUORD XF 03,0,0,2,2 SYT67 08670
* 012665 3001270440 08680 JC $+15,04040 SYT67 08680
012672 2601267101 08690 PD $-1,1 SYT67 08690
012677 5401266367 08700 LP PUORD+3,3,067 DELETE ERR STACK SELECTION SYT67 08700
* 012704 3000435733 08710 JC CNTRL,03033 SYT67 08710
* 012711 3001271100 08720 PCH03 J $ GENERATE PUNCH IMAGE SYT67 08720
012716 5200206704 08730 SA1 ID1,4 SYT67 08730
012723 2600554301 08740 PD DTOB3+4,4,1 SYT67 08740
* 012730 3001274267 08750 JC $+10,55 5 JUMP IF XLATE MODE SYT67 08750
012735 4400554340 08760 SC DTOB3+4,4,040 SYT67 08760
* 012742 1000536400 08770 JR DTOB SYT67 08770
012747 4401052767 08780 SC GETP0-1,1,55 SYT67 08780
012754 2000300014 08790 FT TPIM,X4 4 SYT67 08790
* 012761 1001024700 08800 JR GETP SYT67 08800
012766 4600206727 08810 BT ID1,T23 3 SYT67 08810
012773 2000331314 08820 FT TS01+2,X,X4 SYT67 08820
013000 4401002267 08830 SC RDR5+4,5,55 SYT67 08830
* 013005 1000775100 08840 JR RDR4 SYT67 08840
013012 2000052021 08850 FT COMP,17 7 SYT67 08850
013017 2000024022 08860 FT 160,18 SYT67 08860
013024 2400300041 08870 TTR TPIM SYT67 08870
* 013031 3001271100 08880 J PCH03 SYT67 08880
* 013036 1001156200 08890 PIR JR STORE PUNCH INTERRUPT ROUTINE SYT67 08890
* 013043 3001323340 08900 JC PIR5,04040 JUMP IF 1ST CARD SYT67 08900
013050 4040001340 08910 XF 00,0134040,0,2 SYT67 08910
* 013055 3001331553 08920 JC PIR7,43 3 SYT67 08920
013062 4040006000 08930 PIR1 XF 0,06000,0,0,2 SYT67 08930
* 013067 3001327153 08940 JC PIR6,43 3 SYT67 08940
* 013074 3001323340 08950 PIR2 JC PIR5,04040 JUMP IF NO POST-PUNCH CHECK SYT67 08950
013101 5600326744 08960 BD1 PCDNO-4,4,4 SYT67 08960
013106 2600644444 08970 CD1 D200,4 SYT67 08970
* 013113 3001312567 08980 JC $+10,55 5 JUMP IF XLATE MODE SYT67 08980
013120 2600647744 08990 CD1 D800,4 SYT67 08990
* 013125 3001314444 09000 JS $+15 SYT67 09000
013132 2600326724 09010 PD0 PCDNO-4,4,4 SYT67 09010
013137 2600001724 09020 PD0 017,4 SYT67 09020
013144 5201216603 09030 SA1 CRDNO+3,3,3 SYT67 09030
* 013151 1001271400 09040 JR PCH03 SYT67 09040
013156 2000340013 09050 FT PPRI,X3 3 POST-PUNCH IMAGE SYT67 09050
013163 2000300014 09060 FT TPIM,X4 4 TEST PATTERN SYT67 09060
013170 5600364704 09070 BA1 PCH,4 SYT67 09070
013175 5200210304 09080 SA1 RDERR+3,3,4 SYT67 09080
013202 2017770203 09090 FT E2,3 SYT67 09090
013207 5200623503 09100 SA1 CMPE2+3,3,3 SYT67 09100
013214 2000331312 09110 FT TS01+2,X,X2 SYT67 09110
* 013221 1001011500 09120 JR RDR8 SYT67 09120
* 013226 1000565500 09130 JR CMP SYT67 09130
013233 4401304740 09140 PIR5 SC PIR+9,04040 SYT67 09140
013240 2600324001 09150 PD EBSY2,1 1 SYT67 09150
013245 2600324101 09160 PD PUBSY,1 1 SYT67 09160
013252 4040407777 09170 XF 040,0777777,0,2 SYT67 09170
* 013257 1001162000 09180 JR REST SYT67 09180
* 013264 3000042000 09190 J 0420 PUNCH INTERRUPT EXIT SYT67 09190
* 013271 3001331564 09200 PIR6 JC PIR7,52 2 MOA,UBSY ERRORS IF SS3 SET SYT67 09200
013276 4040406000 09210 XF 040,0600000,0,2 SYT67 09210
013303 4040630000 09220 XF 063,0,0,0,2 SYT67 09220
* 013310 3001305000 09230 J PIR+10 SYT67 09230
013315 3400324001 09240 PIR7 CC EBSY2,1 1 SYT67 09240
* 013322 3001324542 09250 JE PIR5+10 0 SYT67 09250
013327 4400324001 09260 SC EBSY2,1 1 SYT67 09260
013334 4400523440 09270 SC GEN02,04040 SYT67 09270
013341 4400523540 09280 SC GEN02+1,1,32 SYT67 09280
013346 5600364704 09290 BA1 PCH,4 SYT67 09290
013353 4400531002 09300 SC GEN05+4,4,2 SYT67 09300
* 013360 1000516200 09310 JR GEN01 SYT67 09310
013365 4040000140 09320 XF 0,0140,0,0,2 HOLE COUNT OR PARITY ERROR SYT67 09320
* 013372 3001307453 09330 JC PIR2,43 3 SYT67 09330
013377 2001223503 09340 FT PURST,3 3 SYT67 09340
013404 5200113003 09350 SA1 EXIT+10,0,3 SYT67 09350
* 013411 3001324500 09360 J PIR5+10 0 SYT67 09360
* 013416 3001341600 09370 HSPI J $ PRINTER 0 INITIALIZE SYT67 09370
013423 2000000017 09380 FT 0,X7 SYT67 09380
013430 2000003011 09390 FT 030,X1 SYT67 09390
* 013435 1000706600 09400 JR SPEED SYT67 09400
013442 2001347303 09410 FT PRT01,3 3 SYT67 09410
013447 5200111603 09420 SA1 EXIT,3 SYT67 09420
013454 2600021710 09430 PD T35,8 SYT67 09430
013461 4401421500 09440 SC PRORD+3,3,0 SYT67 09440
* 013466 3001341600 09450 J HSPI SYT67 09450
* 013473 3001350032 09460 PRT01 JC $+5,032 2 PRINTER ROUTINE ENTRY CH0 SYT67 09460
013500 3401442100 09470 CC PBSY,0 SYT67 09470
* 013505 3000442743 09480 JU CL01 SYT67 09480
013512 3400021703 09490 CC T35,03 SYT67 09490
* 013517 3001373342 09500 JE PRT08+1010 SYT67 09500
013524 2000770103 09510 FT 07701,3 3 SYT67 09510
013531 5200020602 09520 SA1 NLF,2 SYT67 09520
013536 4600021336 09530 BT T34,T30 0 SYT67 09530
013543 4600021737 09540 BT T35,T31 1 SYT67 09540
013550 4401405240 09550 SC GTP3+4,0,040 SYT67 09550
013555 4401372040 09560 SC PRT08-1,1,040 SYT67 09560
* 013562 1001361100 09570 JR GTP SYT67 09570
013567 4200021336 09580 PRT02 ST T34,T30 0 SYT67 09580
013574 4200021737 09590 ST T35,T31 1 SYT67 09590
* 013601 3000435733 09600 JC CNTRL,03033 SYT67 09600
* 013606 3001360600 09610 GTP J $ GENERATE TEST PATTERN SYT67 09610
013613 5600641502 09620 BA1 B01,2 SYT67 09620
013620 7400643136 09630 CT B128,T3030 LINE COUNTER)128 SYT67 09630
* 013625 3001366343 09640 JU GTP1 CONTINUE SAME PATTERN SYT67 09640
013632 2600017304 09650 PD T30,4 CLEAR LINE COUNTER SYT67 09650
013637 3400017700 09660 CC T31,0 SYT67 09660
* 013644 3001365642 09670 JE $+10 SYT67 09670
013651 7200017501 09680 AB1 T31-2,1 1 NEXT VARIABLE CHARACTER SYT67 09680
013656 6000017701 09690 AC T31,1 STEP PATTERN COUNTER SYT67 09690
013663 2600370001 09700 GTP1 PD PRIM,1 SYT67 09700
013670 3400017702 09710 CC T31,2 SYT67 09710
* 013675 3001377141 09720 JG GTP2 JUMP IF XLATE OR BLANK TP SYT67 09720
013702 4400370072 09730 SC PRIM,07272 STORE X SYT67 09730
* 013707 3001400342 09740 JE GTP2+10 0 JUMP IF _X_ TEST PATTERN SYT67 09740
* 013714 3000000040 09750 JC 0,32 * SKIP WAS JUMP TO CHAN 7 SYT67 09750
013721 4401421504 09760 PRT08 SC PRORD+3,3,4 SET UP HALF-LINE PRINT SYT67 09760
013726 4401374406 09770 SC LOOP4+4,4,06 SYT67 09770
013733 1600020661 09780 BC2 NLF,1 SYT67 09780
* 013740 3201405300 09790 LOOP4 JL GTP3+5,0,0 SYT67 09790
013745 2601421501 09800 PD PRORD+3,3,1 SET UP FULL-LINE PRINT SYT67 09800
013752 4400020631 09810 SC NLF,031 1 SYT67 09810
013757 2600017701 09820 PD T31,1 SYT67 09820
* 013764 3001405300 09830 J GTP3+5 SYT67 09830
013771 3400017700 09840 GTP2 CC T31,0 SYT67 09840
* 013776 3001406542 09850 JE GTP4 JUMP IF XLATE TEST PATTERN SYT67 09850
014003 4200004736 09860 ST X1,T30 SET UP BLANK OR _X_ PATTERN SYT67 09860
014010 2000370120 09870 FT PRIM+1,1,16 SYT67 09870
014015 2000017722 09880 FT 127,18 SYT67 09880
014022 2400370001 09890 TFR PRIM SYT67 09890
014027 5600017501 09900 BA1 T31-2,1 1 VARIABLE CHARACTER SYT67 09900
014034 5220370001 09910 SA1 PRIM,1,X,X1 SYT67 09910
014041 7600641536 09920 AT B01,T30 0 STEP LINE COUNTER SYT67 09920
* 014046 3000000040 09930 GTP3 JC 0,32 * SKIP WAS JUMP TO CHAN 7 SYT67 09930
* 014053 1001416400 09940 JR PRT05 SYT67 09940
* 014060 3001356700 09950 J PRT02 SYT67 09950
014065 2000370020 09960 GTP4 FT PRIM,16 6 SYT67 09960
014072 2000010022 09970 FT 64,18 SYT67 09970
014077 2400464221 09980 TFI TP1 SYT67 09980
014104 2400464201 09990 TFR TP1 SYT67 09990
014111 4200207736 10000 ST ID3,T30 0 SYT67 10000
014116 2000370021 10010 FT PRIM,17 7 SYT67 10010
014123 2000020007 10020 FT 128,7 SYT67 10020
* 014130 1000556600 10030 JR SETUP SYT67 10030
014135 2000052021 10040 FT COMP,17 7 SYT67 10040
014142 2000020022 10050 FT 128,18 SYT67 10050
014147 2400370041 10060 TTR PRIM SYT67 10060
* 014154 3001404100 10070 J GTP3-5 SYT67 10070
* 014161 3001416100 10080 PRT05 JC $,0 SYT67 10080
014166 2000370040 10090 FT PRIM,32 2 SYT67 10090
014173 5600020601 10100 BA1 NLF,1 SYT67 10100
014200 5200020701 10110 SA1 135,1 SYT67 10110
014205 4401442101 10120 SC PBSY,1 SYT67 10120
014212 4000020000 10130 PRORD XF 02,0,0,0,0 SYT67 10130
* 014217 3001416100 10140 J PRT05 SYT67 10140
* 014224 1001156200 10150 PRIR JR STORE PRINTER INTERRUPT RTN CH0 SYT67 10150
014231 3401442100 10160 CC PBSY,0 SYT67 10160
* 014236 3001427442 10170 JE PRIR1-1010 SYT67 10170
014243 4000001362 10180 XF 0,01362,2,0,0 SYT67 10180
* 014250 3001430653 10190 JC PRIR1,4343 SYT67 10190
014255 4000006000 10200 XF 0,06000,0,0,0 SYT67 10200
* 014262 3001436353 10210 JC PRIR2,4343 SYT67 10210
014267 2601442101 10220 PD PBSY,1 SYT67 10220
* 014274 1001162000 10230 JR REST SYT67 10230
* 014301 3000040000 10240 J 0400 SYT67 10240
014306 2600523501 10250 PRIR1 PD GEN02+1,1,1 SYT67 10250
014313 4400523440 10260 SC GEN02,3232 SYT67 10260
014320 2600531001 10270 PD GEN05+4,4,1 SYT67 10270
014325 4400532740 10280 SC GEN06+4,4,040 SYT67 10280
* 014332 1000516200 10290 JR GEN01 SYT67 10290
014337 5201434703 10300 SA1 $+8,3 SYT67 10300
* 014344 3000000060 10310 JD 0 PRINTER 0 ERROR STOP SYT67 10310
014351 4000407777 10320 XF 040,0777777,0,0 SYT67 10320
* 014356 3001426700 10330 J PRIR1-1515 SYT67 10330
* 014363 3001430664 10340 PRIR2 JC PRIR1,5252 MOA,UBSY ERRORS IF SS3 SET SYT67 10340
014370 4000406000 10350 XF 040,0600000,0,0 SYT67 10350
014375 5601421605 10360 BA1 PRORD+4,4,5 SYT67 10360
014402 5201441305 10370 SA1 $+9,5 SYT67 10370
014407 4000020000 10380 XF 02,0,0,0,0 SYT67 10380
* 014414 3001427400 10390 J PRIR1-1010 SYT67 10390
000206 10400 NLF EQU 0206 NEXT LINE FEED CH0 SYT67 10400
014421 00 10410 PBSY +1 0 PRINTER 0 BUSY INDICATOR SYT67 10410
* 014422 3001442200 10420 ZAPI J $ * CH 6'7 TAPE INITIALIZE SYT67 10420
014427 5601561500 10430 BA1 ZPIE,16 6 * SYT67 10430
014434 5200047700 10440 SA1 0477,16 6 * SYT67 10440
014441 2000003617 10450 FT 30,X7 * CH 6 SYT67 10450
014446 2000003611 10460 FT 036,X1 * SYT67 10460
* 014453 1000706600 10470 JR SPEED * SYT67 10470
014460 2000004317 10480 FT 35,X7 * CH 7 SYT67 10480
014465 2000003711 10490 FT 037,X1 * SYT67 10490
* 014472 1000706600 10500 JR SPEED * SYT67 10500
014477 2001455403 10510 FT ZAPR,3 * SYT67 10510
014504 5200115403 10520 SA1 EXIT+30,0,3 * CH 6 SYT67 10520
014511 5200116103 10530 SA1 EXIT+35,5,3 * CH 7 SYT67 10530
014516 4401465205 10540 SC ZPORD+2,2,5 * SET UP READ-RWIND SYT67 10540
014523 2000340070 10550 FT PPRI,56 6 * CH 6 SYT67 10550
014530 2000024071 10560 FT 160,57 * SYT67 10560
014535 2000340074 10570 FT PPRI,60 0 * CH 7 SYT67 10570
014542 2000024075 10580 FT 160,61 * SYT67 10580
* 014547 3001442200 10590 J ZAPI * SYT67 10590
* 014554 3001456132 10600 ZAPR JC $+5,032 2 * CH 6-7 TAPE RTNE ENTRY SYT67 10600
014561 3400324101 10610 CC PUBSY,1 1 * PUNCH BUSY USING IMAGE SYT67 10610
* 014566 3000442742 10620 JE CL01 * SYT67 10620
014573 3400276101 10630 CC ZBSY,1 * CH 6'7 TAPE BUSY SYT67 10630
* 014600 3000442742 10640 JE CL01 * USING IMAGE SYT67 10640
014605 3401465205 10650 CC ZPORD+2,2,5 * SYT67 10650
* 014612 3001466242 10660 JE ZAPR2 * JUMP IF READ-REWIND SYT67 10660
014617 3401465202 10670 CC ZPORD+2,2,2 * SYT67 10670
* 014624 3001464343 10680 JU ZPORD-5 5 * JUMP IF NOT WRITE SYT67 10680
014631 2000340011 10690 FT PPRI,X1 1 * SYT67 10690
* 014636 1001672500 10700 JR TIR5 * GENERATE TEST PATTERN SYT67 10700
014643 4400276101 10710 SC ZBSY,1 * SYT67 10710
014650 4161000100 10720 ZPORD XF 0,0100,1,1,7 * SYT67 10720
* 014655 3000435733 10730 JC CNTRL,03033 * SYT67 10730
014662 5601465101 10740 ZAPR2 BA1 ZPORD+1,1,1 * SYT67 10740
014667 5400001760 10750 LP 017,060 0 * SAVE CHAN BITS SYT67 10750
014674 3400001740 10760 CC 017,040 0 * SYT67 10760
* 014701 3001502142 10770 JE ZAPR5-1010 * JUMP TO SET UP CHAN 7 SYT67 10770
014706 3400331700 10780 CC TS01+6,0,0 * SYT67 10780
* 014713 3001503342 10790 JE ZAPR5 * JUMP IF CH6 NOT IN TEST SYT67 10790
014720 4401554440 10800 ZAPR4 SC ZIR8+4,0,040 * SET UP CHAN 6 SYT67 10800
014725 4401524140 10810 SC ZIR9+4,0,040 * SYT67 10810
014732 2000046007 10820 FT 0460,7 * SYT67 10820
014737 5600331701 10830 BA1 TS01+6,1,1 * SYT67 10830
014744 6400001740 10840 LS 017,040 0 * MAKE CHAN 6 SYT67 10840
014751 5400001747 10850 LP 017,047 7 * SAVE CHAN UNIT BITS SYT67 10850
014756 5201465101 10860 ZAPR3 SA1 ZPORD+1,1,1 * SYT67 10860
014763 5201510401 10870 SA1 ZIR+6,1 1 * SYT67 10870
014770 5201511601 10880 SA1 ZIR+16,1,1 * SYT67 10880
014775 5201513001 10890 SA1 ZIR+26,1,1 * SYT67 10890
015002 5201541401 10900 SA1 ZIR2+6,1,1 * SYT67 10900
015007 5201543523 10910 SA2 ZIR3-2,3,3 * SYT67 10910
* 015014 3001464300 10920 J ZPORD-5 5 * SYT67 10920
015021 3400332000 10930 CC TS01+7,0,0 * SYT67 10930
* 015026 3001472042 10940 JE ZAPR4 * JUMP IF CH7 NOT IN TEST SYT67 10940
015033 2601554401 10950 ZAPR5 PD ZIR8+4,1,1 * SET UP CHAN 7 SYT67 10950
015040 2601524101 10960 PD ZIR9+4,1,1 * SYT67 10960
015045 2000047007 10970 FT 0470,7 * SYT67 10970
015052 5600332001 10980 BA1 TS01+7,1,1 * SYT67 10980
015057 6400001760 10990 LS 017,060 0 * MAKE CHAN 7 SYT67 10990
015064 5400001767 11000 LP 017,067 7 * SAVE CHAN UNIT BITS SYT67 11000
* 015071 3001475600 11010 J ZAPR3 * SYT67 11010
* 015076 1001156200 11020 ZIR JR STORE * TAPE INTERRUPT RTNE SYT67 11020
015103 4141001777 11030 XF 0,01777,7,1,6 * SYT67 11030
* 015110 3001547553 11040 JC ZIR7,43 3 * ERROR INDICATORS SET SYT67 11040
015115 4141004000 11050 XF 0,04000,0,1,6 * SYT67 11050
* 015122 3001546353 11060 JC ZIR6,43 3 * MOA SET SYT67 11060
015127 4141002000 11070 XF 0,02000,0,1,6 * SYT67 11070
* 015134 3001546353 11080 JC ZIR6,43 3 * UBSY SET SYT67 11080
015141 3401465205 11090 CC ZPORD+2,2,5 * SYT67 11090
* 015146 3001543744 11100 JS ZIR3 * JUMP IF WRITE REWIND SYT67 11100
* 015153 3001545142 11110 JE ZIR4 * JUMP IF READ-REWIND SYT67 11110
015160 3401465202 11120 CC ZPORD+2,2,2 * SYT67 11120
* 015165 3001534342 11130 JE ZIR1 * JUMP IF WRITE SYT67 11130
015172 2000052011 11140 FT COMP,X1 1 * SYT67 11140
* 015177 1001672500 11150 JR TIR5 * GENERATE COMP TEST PATT. SYT67 11150
015204 4400573312 11160 SC LOOP+4,1,10 * COMP 160 CHAR SYT67 11160
015211 2000340013 11170 FT PPRI,X3 3 * TAPE IMAGE SYT67 11170
015216 2000052014 11180 FT COMP,X4 4 * TEST PATTERN SYT67 11180
015223 2017770707 11190 FT E7,7 * SYT67 11190
015230 5600275704 11200 BA1 TAP7,4 * SYT67 11200
* 015235 3001525440 11210 ZIR9 JC $+15,04040 * JUMP FOR CHAN 7 SYT67 11210
015242 2017770607 11220 FT E6,7 * SYT67 11220
015247 4400001711 11230 SC 017,_6_ _ * MAKE TAP7 TO TAP6 SYT67 11230
015254 5200210304 11240 SA1 RDERR+3,3,4 * SYT67 11240
015261 5200623523 11250 SA2 CMPE2+3,3,3 * SYT67 11250
015266 4400607740 11260 SC CMPE3+4,4,040 * SYT67 11260
015273 4600276527 11270 BT ZLKCT,T2T23 * SYT67 11270
015300 5600013703 11280 BA1 T23,3 * SYT67 11280
015305 5201216603 11290 SA1 CRDNO+3,3,3 * SYT67 11290
* 015312 1000565500 11300 JR CMP * SYT67 11300
015317 2600340001 11310 PD PPRI,1 * TAPE IMAGE SYT67 11310
015324 2000340120 11320 FT PPRI+1,1,16 * SYT67 11320
015331 2000023722 11330 FT 159,18 * SYT67 11330
015336 2400340001 11340 TFR PPRI * SYT67 11340
015343 5600643544 11350 ZIR1 BD1 D1000-3,3,4 * SYT67 11350
015350 6200276504 11360 AM1 ZLKCT,4 4 * SYT67 11360
015355 5600644444 11370 BD1 D200,4 * SYT67 11370
015362 2600276544 11380 CD1 ZLKCT,4 4 * SYT67 11380
* 015367 3001540641 11390 JG ZIR2 * JUMP IF NOT FINISHED SYT67 11390
015374 6401465204 11400 LS ZPORD+2,2,4 * SET UP REWIND SYT67 11400
015401 2600276524 11410 PD0 ZLKCT,4 4 * SYT67 11410
015406 2600276001 11420 ZIR2 PD EBSY6,1 1 * SYT67 11420
015413 4141407777 11430 XF 040,0777777,1,6 * SYT67 11430
015420 2600276101 11440 PD ZBSY,1 * SYT67 11440
* 015425 1001162000 11450 JR REST * SYT67 11450
* 015432 3000046000 11460 J 0460 * OR 0470 FOR CHAN 7 SYT67 11460
015437 4401465201 11470 ZIR3 SC ZPORD+2,2,1 * SET UP READ SYT67 11470
* 015444 3001540100 11480 J ZIR2-5 * SYT67 11480
015451 4401465202 11490 ZIR4 SC ZPORD+2,2,2 * SET UP WRITE SYT67 11490
* 015456 3001540100 11500 J ZIR2-5 * SYT67 11500
* 015463 3001547564 11510 ZIR6 JC ZIR7,52 2 * MDA,UBSY ERR IF SS3 SET SYT67 11510
* 015470 3001540600 11520 J ZIR2 * SYT67 11520
015475 3400276001 11530 ZIR7 CC EBSY6,1 1 * SYT67 11530
* 015502 3001541342 11540 JE ZIR2+5 * SYT67 11540
015507 4400276001 11550 SC EBSY6,1 1 * SYT67 11550
015514 4400523441 11560 SC GEN02,04041 * CHAN BITS'I/O CODE SYT67 11560
015521 4400523560 11570 SC GEN02+1,1,060 * CHAN 7 BITS SYT67 11570
015526 5600275704 11580 BA1 TAP7,4 * SYT67 11580
015533 4400531007 11590 SC GEN05+4,4,7 * SYT67 11590
* 015540 3001556440 11600 ZIR8 JC $+20,04040 * JUMP FOR CHAN 5 SYT67 11600
015545 4400523540 11610 SC GEN02+1,1,040 * CHAN 6 BITS SYT67 11610
015552 4400001711 11620 SC 017,_6_ _ SYT67 11620
015557 4400531006 11630 SC GEN05+4,4,6 SYT67 11630
* 015564 1000516200 11640 JR GEN01 SYT67 11640
* 015571 3001541300 11650 J ZIR2+5 SYT67 11650
* 015576 3001557631 11660 JC $,031 SYT67 11660
015605 015076 11670 +3 ZIR * SYT67 11670
* 015606 3001560631 11680 JC $,031 SYT67 11680
015615 015076 11690 ZPIE +3 ZIR * SYT67 11690
* 015616 3001561600 11700 TAPI J $ TAPE INITIALIZE ROUTINE SYT67 11700
015623 5600365710 11710 BA1 TPIE,8 SYT67 11710
015630 5200044710 11720 SA1 0447,8 SYT67 11720
015635 2000002417 11730 FT 20,X7 SYT67 11730
015642 2000003411 11740 FT 034,X1 SYT67 11740
* 015647 1000706600 11750 JR SPEED SYT67 11750
015654 2000003117 11760 FT 25,X7 SYT67 11760
015661 2000003511 11770 FT 035,X1 SYT67 11770
* 015666 1000706600 11780 JR SPEED SYT67 11780
015673 2001575003 11790 FT TAPR,3 SYT67 11790
015700 5200114203 11800 SA1 EXIT+20,0,3 SYT67 11800
015705 5200114703 11810 SA1 EXIT+25,5,3 SYT67 11810
015712 4401604605 11820 SC TPORD+2,2,5 SET UP READ-REWIND SYT67 11820
015717 2000300060 11830 FT TPIM,48 8 SYT67 11830
015724 2000024061 11840 FT 160,49 SYT67 11840
015731 2000300064 11850 FT TPIM,52 2 SYT67 11850
015736 2000024065 11860 FT 160,53 SYT67 11860
* 015743 3001561600 11870 J TAPI SYT67 11870
* 015750 3001575532 11880 TAPR JC $+5,032 2 TAPE ROUTINE ENTRY SYT67 11880
015755 3400324101 11890 CC PUBSY,1 1 * SYT67 11890
* 015762 3000442742 11900 JE CL01 * SYT67 11900
015767 3400324301 11910 CC TPBSY,1 1 * SYT67 11910
* 015774 3000442742 11920 JE CL01 * SYT67 11920
016001 3401604605 11930 CC TPORD+2,2,05 SYT67 11930
* 016006 3001612642 11940 JE TAPR2 JUMP IF READ-REWIND SYT67 11940
016013 3401604602 11950 CC TPORD+2,2,02 SYT67 11950
* 016020 3001603743 11960 JU TPORD-5 5 JUMP IF NOT WRITE SYT67 11960
016025 2000300011 11970 FT TPIM,X1 1 SYT67 11970
* 016032 1001672500 11980 JR TIR5 SYT67 11980
016037 4400324301 11990 SC TPBSY,1 1 SYT67 11990
016044 4121000000 12000 TPORD XF 0,0,1,5 5 SYT67 12000
* 016051 3000435733 12010 JC CNTRL,03033 SYT67 12010
* 016056 3001605600 12020 TAPR1 J $ SYT67 12020
016063 3400324101 12030 CC PUBSY,1 1 * SYT67 12030
* 016070 3000442742 12040 JE CL01 * SYT67 12040
016075 3400324301 12050 CC TPBSY,1 1 SYT67 12050
* 016102 3000442742 12060 JE CL01 SYT67 12060
016107 3400276101 12070 CC ZBSY,1 * SYT67 12070
* 016114 3000442742 12080 JE CL01 SYT67 12080
* 016121 3001605600 12090 J TAPR1 SYT67 12090
016126 5601604501 12100 TAPR2 BA1 TPORD+1,1,1 SYT67 12100
016133 5400001720 12110 LP 017,020 0 SYT67 12110
016140 3400001700 12120 CC 017,0 SYT67 12120
* 016145 3001626042 12130 JE TAPR5-1010 JUMP TO SET UP CHANNEL 5 SYT67 12130
016152 3400331500 12140 CC TS01+4,0,0 SYT67 12140
* 016157 3001627242 12150 JE TAPR5 JUMP IF CH4 NOT IN TEST SYT67 12150
016164 4401705340 12160 TAPR4 SC TIR8+4,0,040 SET UP CHANNEL 4 SYT67 12160
016171 4401650040 12170 SC TIR9+4,0,040 SYT67 12170
016176 2000044007 12180 FT 0440,7 SYT67 12180
016203 5600331501 12190 BA1 TS01+4,1,1 SYT67 12190
016210 5400001707 12200 LP 017,07 SYT67 12200
016215 5201604501 12210 TAPR3 SA1 TPORD+1,1,1 SYT67 12210
016222 5201634301 12220 SA1 TIR+6,1 1 SYT67 12220
016227 5201635501 12230 SA1 TIR+16,1,1 SYT67 12230
016234 5201636701 12240 SA1 TIR+26,1,1 SYT67 12240
016241 5201665301 12250 SA1 TIR2+6,1,1 SYT67 12250
016246 5201667423 12260 SA2 TIR3-2,3,3 SYT67 12260
* 016253 3001603700 12270 J TPORD-5 5 SYT67 12270
016260 3400331600 12280 CC TS01+5,0,0 SYT67 12280
* 016265 3001616442 12290 JE TAPR4 JUMP IF CH5 NOT IN TEST SYT67 12290
016272 2601705301 12300 TAPR5 PD TIR8+4,1,1 SET UP CHANNEL 5 SYT67 12300
016277 2601650001 12310 PD TIR9+4,1,1 SYT67 12310
016304 2000045007 12320 FT 0450,7 SYT67 12320
016311 5600331601 12330 BA1 TS01+5,1,1 SYT67 12330
016316 6400001720 12340 LS 017,020 0 SYT67 12340
016323 5400001737 12350 LP 017,037 7 SYT67 12350
* 016330 3001621500 12360 J TAPR3 SYT67 12360
* 016335 1001156200 12370 TIR JR STORE TAPE INTERRUPT ROUTINE SYT67 12370
016342 4101001777 12380 XF 0,01777,7,1,4 SYT67 12380
* 016347 3001700453 12390 JC TIR7,43 3 ERROR INDICATORS SET SYT67 12390
016354 4101004000 12400 XF 0,04000,0,1,4 SYT67 12400
* 016361 3001677253 12410 JC TIR6,43 3 MOA SET SYT67 12410
016366 4101002000 12420 XF 0,02000,0,1,4 SYT67 12420
* 016373 3001677253 12430 JC TIR6,43 3 UBSY SET SYT67 12430
016400 3401604605 12440 CC TPORD+2,2,05 SYT67 12440
* 016405 3001667644 12450 JS TIR3 JUMP IF WRITE-REWIND SYT67 12450
* 016412 3001671042 12460 JE TIR4 JUMP IF READ-REWIND SYT67 12460
016417 3401604602 12470 CC TPORD+2,2,02 SYT67 12470
* 016424 3001660242 12480 JE TIR1 JUMP IF WRITE SYT67 12480
016431 2000052011 12490 FT COMP,X1 1 SYT67 12490
* 016436 1001672500 12500 JR TIR5 SYT67 12500
016443 4400573312 12510 SC LOOP+4,1,10 SYT67 12510
016450 2000300013 12520 FT TPIM,X3 3 TAPE IMAGE SYT67 12520
016455 2000052014 12530 FT COMP,X4 4 TEST PATTERN SYT67 12530
016462 2017770507 12540 FT E5,7 SYT67 12540
016467 5600366304 12550 BA1 TAP5,4 SYT67 12550
* 016474 3001651340 12560 TIR9 JC $+15,04040 JUMP FOR CHANNEL 5 SYT67 12560
016501 2017770407 12570 FT E4,7 SYT67 12570
016506 4400001707 12580 SC 017,07 SYT67 12580
016513 5200210304 12590 SA1 RDERR+3,3,4 SYT67 12590
016520 5200623523 12600 SA2 CMPE2+3,3,3 SYT67 12600
016525 4400607740 12610 SC CMPE3+4,4,040 SYT67 12610
016532 4600327727 12620 BT BLKCT,T2T23 SYT67 12620
016537 5600013703 12630 BA1 T23,3 SYT67 12630
016544 5201216603 12640 SA1 CRDNO+3,3,3 SYT67 12640
* 016551 1000565500 12650 JR CMP SYT67 12650
016556 2600300001 12660 PD TPIM,1 SYT67 12660
016563 2000300120 12670 FT TPIM+1,1,16 SYT67 12670
016570 2000023722 12680 FT 159,18 SYT67 12680
016575 2400300001 12690 TFR TPIM SYT67 12690
016602 5600643544 12700 TIR1 BD1 D1000-3,3,4 SYT67 12700
016607 6200327704 12710 AM1 BLKCT,4 4 SYT67 12710
016614 5600644444 12720 BD1 D200,4 SYT67 12720
016621 2600327744 12730 CD1 BLKCT,4 4 SYT67 12730
* 016626 3001664541 12740 JG TIR2 JUMP IF NOT FINISHED SYT67 12740
016633 6401604604 12750 LS TPORD+2,2,04 SET UP REWIND SYT67 12750
016640 2600327724 12760 PD0 BLKCT,4 4 SYT67 12760
016645 2600324201 12770 TIR2 PD EBSY4,1 1 SYT67 12770
016652 4101407777 12780 XF 040,0777777,1,4 SYT67 12780
016657 2600324301 12790 PD TPBSY,1 1 SYT67 12790
* 016664 1001162000 12800 JR REST SYT67 12800
* 016671 3000044000 12810 J 0440 OR 0450 FOR CHANNEL 5 SYT67 12810
016676 4401604601 12820 TIR3 SC TPORD+2,2,01 SET UP READ SYT67 12820
* 016703 3001664000 12830 J TIR2-5 SYT67 12830
016710 4401604602 12840 TIR4 SC TPORD+2,2,02 SET UP WRITE SYT67 12840
* 016715 3001664000 12850 J TIR2-5 SYT67 12850
* 016722 3001672200 12860 TIR5 J $ GENERATE TEST PATTERN SYT67 12860
016727 2020000020 12870 FT 0,16,X1 1 SYT67 12870
016734 2000010022 12880 FT 64,18 SYT67 12880
016741 2400464221 12890 TFI TP1 SYT67 12890
016746 2400464221 12900 TFI TP1 SYT67 12900
016753 2000004022 12910 FT 32,18 SYT67 12910
016760 2400464201 12920 TFR TP1 SYT67 12920
* 016765 3001672200 12930 J TIR5 SYT67 12930
* 016772 3001700464 12940 TIR6 JC TIR7,52 2 MOA,UBSY ERRORS IF SS3 SET SYT67 12940
* 016777 3001664500 12950 J TIR2 SYT67 12950
017004 3400324201 12960 TIR7 CC EBSY4,1 1 SYT67 12960
* 017011 3001665242 12970 JE TIR2+5 SYT67 12970
017016 4400324201 12980 SC EBSY4,1 1 SYT67 12980
017023 4400523441 12990 SC GEN02,04041 SYT67 12990
017030 4400523520 13000 SC GEN02+1,1,020 SYT67 13000
017035 5600366304 13010 BA1 TAP5,4 SYT67 13010
017042 4400531005 13020 SC GEN05+4,4,5 SYT67 13020
* 017047 3001707340 13030 TIR8 JC $+20,04040 JUMP FOR CHANNEL 5 SYT67 13030
017054 4400523500 13040 SC GEN02+1,1,0 SYT67 13040
017061 4400001707 13050 SC 017,07 SYT67 13050
017066 4400531004 13060 SC GEN05+4,4,4 SYT67 13060
* 017073 1000516200 13070 JR GEN01 SYT67 13070
* 017100 3001665200 13080 J TIR2+5 SYT67 13080
* 017105 3001710500 13090 PROCI J $ PROCESSOR INITIALIZE SYT67 13090
017112 2001715003 13100 FT PROC,3 SYT67 13100
017117 5200116603 13110 SA1 EXIT+40,0,3 SYT67 13110
017124 2000005017 13120 FT 40,X7 SYT67 13120
017131 2000002711 13130 FT 027,X1 SYT67 13130
* 017136 1000706600 13140 JR SPEED SYT67 13140
* 017143 3001710500 13150 J PROCI SYT67 13150
017150 2600012730 13160 PROC PD0 T21,8 PROCESSOR ROUTINE ENTRY SYT67 13160
017155 5601717241 13170 BD1 OP1+3,1 1 DIVIDE TEST SYT67 13170
017162 5601717161 13180 BD2 OP1+2,1 1 SYT67 13180
017167 5007071341 13190 OP1 DV _448_,1 1 SYT67 13190
017174 3400012705 13200 CC T21,5 SYT67 13200
* 017201 3001721342 13210 JE $+10 SYT67 13210
* 017206 1001735000 13220 JR ER,0 SYT67 13220
017213 4600503030 13230 BT TP3-1,T2T24 TRANSLATE TEST SYT67 13230
017220 4400012501 13240 SC 0125,01 1 SYT67 13240
017225 2600015201 13250 PD 0152,1 SYT67 13250
017232 4400011001 13260 SC 0110,01 1 SET TRANSLATE TABLE ROW1 SYT67 13260
017237 1200014302 13270 TR T24,2 SYT67 13270
017244 5600014302 13280 BA1 T24,2 SYT67 13280
017251 7000464342 13290 CB1 TP1+1,2 2 SYT67 13290
* 017256 3001727042 13300 JE $+10 SYT67 13300
* 017263 1001735000 13310 JR ER,0 SYT67 13310
017270 5601743224 13320 BA2 EDPT,4 EDIT TEST SYT67 13320
017275 5601717203 13330 BA1 OP1+3,3 3 SYT67 13330
017302 5201743642 13340 ED EAREA,2 2 SYT67 13340
017307 5601744204 13350 BA1 ERES,4 SYT67 13350
017314 7001743644 13360 CB1 EAREA,4 4 SYT67 13360
* 017321 3001733342 13370 JE $+10 SYT67 13370
* 017326 1001735000 13380 JR ER,0 SYT67 13380
017333 2601743624 13390 PD0 EAREA,4 4 SYT67 13390
* 017340 3000435733 13400 JC CNTRL,03033 SYT67 13400
* 017345 3001734500 13410 ER J $ PROCESSOR ERROR SYT67 13410
017352 5601735003 13420 BA1 ER+3,3 SYT67 13420
017357 4400640203 13430 SC LOOP1+4,4,3 SYT67 13430
* 017364 1000630500 13440 JR OTOD SYT67 13440
017371 5200153606 13450 SA1 PERR+30,0,6 SYT67 13450
017376 4401201037 13460 SC CCT+3,3131 SYT67 13460
017403 2017771003 13470 FT E10,3 SYT67 13470
017410 2000150007 13480 FT PERR,7 SYT67 13480
* 017415 1001166300 13490 JR PRINT SYT67 13490
* 017422 3001734500 13500 J ER SYT67 13500
017432 40114002 13510 EDPT +4 04011400002 EDIT PATTERN SYT67 13510
017436 0000 13520 EAREA +4 _0000_ EDIT AREA SYT67 13520
017442 07111300 13530 ERES +4 0711130000 EDIT RESULT SYT67 13530
3000410000 13540 END START SYT67 13540
{-- tape mark --}
017847 C561 CTT67 CODEDIT SOURCE A T3834394-56
000600 00010 T560 BEGIN 0600 CTT67 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 000600 3007010660 * JD 070106 *
* 000605 3000060000 * J $-5 *
SEGMENT-ID T561 3000060000 * 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 T562 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 T563 3000136300 * SEGJP $ *
000600 00020 ORIG 384 CTT67 00020
000600 00030 IMAGE EQU $ CTT67 00030
007600 00040 ORIG 3968 CTT67 00040
007600 00050 SRV0S EQU $ CTT67 00050
007605 000177000000 00060 +6 000017707000000 CTT67 00060
007612 01024 00070 BLKCT +5 _01024_ _ BL0CKS PFR TAPE CTT67 00070
007616 00000025 00080 LNGT1 +4 00000002025 LENGTH LIST CTT67 00080
007622 0021 00090 +4 _0021_ CTT67 00090
007626 00000045 00100 LNGT2 +4 00000004045 CTT67 00100
007632 0037 00110 +4 _0037_ CTT67 00110
007636 00000105 00120 LNGT3 +4 00000010105 CTT67 00120
007642 0069 00130 +4 _0069_ CTT67 00130
007646 00000205 00140 LNGT4 +4 00000020205 CTT67 00140
007652 0133 00150 +4 _0133_ CTT67 00150
007656 00000405 00160 LNGT5 +4 00000040405 CTT67 00160
007662 0261 00170 +4 _0261_ CTT67 00170
007666 00001005 00180 LNGT6 +4 00000100005 CTT67 00180
007672 0517 00190 +4 _0517_ CTT67 00190
007676 00002005 00200 LNGT7 +4 00000200005 CTT67 00200
007702 1029 00210 +4 _1029_ CTT67 00210
007706 00004005 00220 LNGT8 +4 00000400005 CTT67 00220
007712 2053 00230 +4 _2053_ CTT67 00230
007716 00006765 00240 LNGT9 +4 00000676765 CTT67 00240
007722 3765 00250 +4 _3765_ CTT67 00250
007726 00000110 00260 LL +4 00000011110 CTT67 00260
007731 000012 00270 FIVE +3 0000012 2 CTT67 00270
010000 00280 ORIG $,64 CTT67 00280
010000 00290 PRI EQU $ CTT67 00290
010002 T 00300 ST +3 _T _ CTT67 00300
010014 SERV0 00310 SRV +10 _ SERV0 0 _ CTT67 00310
010034 0PER 00320 SP +16 _ 0PER _ BCD,BINY,READ,WRITE CTT67 00320
010054 ERR0R 00330 ERR +16 _ ERR0R R _ SPACE CTT67 00330
010067 DEN 00340 DEN +11 _ DEN _ CTT67 00340
010106 BL0CK N0 00350 CNUM +15 _ BL0CK K N0 _ CTT67 00350
010122 LENGTH 00360 BLGT +12 _ LENGTHTH _ CTT67 00360
010140 TAPE PARITY 00370 TP +14 _ TAPE P PARITY _ CTT67 00370
P +14 _ TAPE PARITY _ CTT67 N0N RCV 00380 +8 _ N0N RCV_
+8 _ N0N RCV_ CTT67 00390 NRC0V +2 _ _
RC0V +2 _ _ CTT67 CH 00400 CHL +5 _ CH _
HL +5 _ CH _ CTT67 BCT 00410 BSLE +11 _ BCT _
SLE +11 _ BCT _ CTT67 5 00420 TPBLK AREA 5,B,0
PBLK AREA 5,B,0 CTT67 SEQUENCE 00430 SEQ +8 _SEQUENCE_
EQ +8 _SEQUENCE_ CTT67 C0MPARE 00440 C0MX +7 _C0MPARE_
0MX +7 _C0MPARE_ CTT67 200PPI 00450 A2PPI +6 _200PPI_
2PPI +6 _200PPI_ CTT67 77777777 00460 MIN1 +4 077777777
IN1 +4 077777777 CTT67 SPACE 00470 SPACE +5 _SPACE_
PACE +5 _SPACE_ CTT67 500PPI 00480 A5PPI +6 _500PPI_
5PPI +6 _500PPI_ CTT67 3000000031 00490 JC 0,25
JC 0,25 CTT67 010332 00500 +3 IPT6
+3 IPT6 * CH 6 IE CTT67 3000000031 00510 JC 0,25
JC 0,25 CTT67 010712 00520 IE67 +3 IPT7
E67 +3 IPT7 * CH 7 IE CTT67 3000000031 00530 JC 0,25
JC 0,25 CTT67 010274 00540 IE0 +3 IPTPR
E0 +3 IPTPR CTT67 4000407777 00550 IPTPR XF 32,07777,0,0
PTPR XF 32,07777,0,0 CTT67 3000040000 00560 JC 0400
JC 0400 CTT67 1 00570 INC +1 _1_
NC +1 _1_ CTT67 00 00580 M0DE +1 00
0DE +1 00 CTT67 BINY 00590 BINY +4 _BINY_
INY +4 _BINY_ CTT67 BCD 00600 BCD +4 _ BCD_
CD +4 _ BCD_ CTT67 WRITE 00610 WR +5 _WRITE_
R +5 _WRITE_ CTT67 READ 00620 RD +5 _READ_
D +5 _READ_ CTT67 4140007777 00630 IPT6 XF 0,07777,0,6
PT6 XF 0,07777,0,6 CH 6 INTERUPT ROUT. CTT67 3001037053 00640 JC $+25,43
JC $+25,43 CTT67 5601017267 00650 BD2 BSLE,7
BD2 BSLE,7 CTT67 6601030621 00660 AD2 INC,1
AD2 INC,1 CTT67 5201017227 00670 SA2 BSLE,7
SA2 BSLE,7 CTT67 3000046026 00680 JC 0460,22
JC 0460,22 * EXIT, RESET ST2 CTT67 4401014004 00690 SC TP,04
SC TP,04 ASSUME TAPE PARITY ERR0R CTT67 4401015203 00700 SC NRC0V,03
SC NRC0V,03 CTT67 4140000040 00710 XF 0,00040,0,6
XF 0,00040,0,6 * TEST TAPE PARITY CTT67 3001044553 00720 JC RC0V6,43
JC RC0V6,43 * RECOVER IF TAPE PE CTT67 4401014003 00730 SC TP,03
SC TP,03 CTT67 4401015204 00740 SC NRC0V,04
SC NRC0V,04 CTT67 1001060700 00750 JR PRINT
JR PRINT CTT67 3000000460 00760 ER6 JD 04
R6 JD 04 * CTT67 3001115200 00770 JC RERUN
JC RERUN ST0P,CHANNEL4 CTT67 4140407777 00780 RC0V6 XF 32,07777,0,6
C0V6 XF 32,07777,0,6 * RECOVERABLE ERROR CTT67 1001060700 00790 JR PRINT
JR PRINT CTT67 3001046426 00800 JC $+5,22
JC $+5,22 CTT67 3001047667 00810 JC $+10,55
JC $+10,55 CTT67 3001054664 00820 JC RDER,52
JC RDER,52 CTT67 3401617477 00830 CC COP,077
CC COP,077 CTT67 3001107542 00840 JE XX
JE XX CTT67 3001051531 00850 JC $+5,25
JC $+5,25 CTT67 1001244400 00860 JR RV0
JR RV0 INSERT SERV0 NUMBER CTT67 4140611000 00870 XF 061,01000,0,6
XF 061,01000,0,6 * BACKSPACE CTT67 3001056067 00880 JC T3,55
JC T3,55 CTT67 1001365100 00890 JR D11
JR D11 CTT67 3001153231 00900 JC READD-5,25
JC READD-5,25 CTT67 3001055322 00910 RDER JC $+5,18
DER JC $+5,18 CTT67 3001153231 00920 JC READD-5,25
JC READD-5,25 CTT67 5600773103 00930 T3 BA1 FIVE,3
3 BA1 FIVE,3 CTT67 5600046425 00940 BA2 0464,5
BA2 0464,5 * CH 6 IE CTT67 7200003643 00950 SB1 036,3
SB1 036,3 CTT67 3000003331 00960 JC 033,25
JC 033,25 CTT67 3000000000 00970 PRINT JC 0
RINT JC 0 CTT67 2001000040 00980 FT PRI,32
FT PRI,32 CTT67 4400020701 00990 SC 0207,1
SC 0207,1 CTT67 4000620000 01000 XF 062,0,0,0
XF 062,0,0,0 PRINT 0UT CTT67 4400020766 01010 SC 0207,066
SC 0207,066 CTT67 4000640000 01020 XF 064,0,0,0
XF 064,0,0,0 SPACE CTT67 2601005410 01030 PD ERR,8
PD ERR,8 CTT67 4401014000 01040 SC TP,0
SC TP,0 CTT67 2601017227 01050 PD0 BSLE,7
PD0 BSLE,7 CTT67 2601020005 01060 PD TPBLK+5,5
PD TPBLK+5,5 CTT67 3001070063 01070 JC $+10,51
JC $+10,51 CTT67 3001060400 01080 JC PRINT
JC PRINT CTT67 3000000760 01090 ERSTP JC 07,48
RSTP JC 07,48 CTT67 3001060400 01100 JC PRINT
JC PRINT CTT67 4160002000 01110 IPT7 XF 0,02000,0,7
PT7 XF 0,02000,0,7 * CTT67 3001103753 01120 JC A7BSY,43
JC A7BSY,43 CH 7 CTT67 4160005777 01130 XF 0,05777,0,7
XF 0,05777,0,7 * CTT67 3001076253 01140 JC $+25,43
JC $+25,43 CTT67 5601017267 01150 BD2 BSLE,7
BD2 BSLE,7 CTT67 6601030621 01160 AD2 INC,1
AD2 INC,1 CTT67 5201017227 01170 SA2 BSLE,7
SA2 BSLE,7 CTT67 3000047026 01180 JC 0470,22
JC 0470,22 * CTT67 4401014004 01190 SC TP,04
SC TP,04 CTT67 4401015203 01200 SC NRC0V,03
SC NRC0V,03 CTT67 4160000040 01210 XF 0,00040,0,7
XF 0,00040,0,7 * CTT67 3001105653 01220 JC RC0V7,43
JC RC0V7,43 * CTT67 4401014003 01230 SC TP,03
SC TP,03 CTT67 4401015204 01240 SC NRC0V,04
SC NRC0V,04 CTT67 1001060700 01250 JR PRINT
JR PRINT CTT67 3000000560 01260 ER7 JD 05
R7 JD 05 * CTT67 3001115231 01270 JC RERUN,25
JC RERUN,25 CTT67 4160402000 01280 A7BSY XF 32,02000,0,7
7BSY XF 32,02000,0,7 * CTT67 4600047312 01290 BT 0473,10
BT 0473,10 * CH 7 IE CTT67 3057777331 01300 JC 0777773,25,2
JC 0777773,25,2 EXIT T0 CC-5 CTT67 4160407777 01310 RC0V7 XF 32,07777,0,7
C0V7 XF 32,07777,0,7 * CTT67 1001060700 01320 JR PRINT
JR PRINT CTT67 3001107526 01330 JC $+5,22
JC $+5,22 CTT67 1001244431 01340 XX JR RV0,25
X JR RV0,25 CTT67 4160611000 01350 XF 061,01000,0,7
XF 061,01000,0,7 * ERASE CTT67 3001112664 01360 JC $+15,52
JC $+15,52 NO ERASE IF SS 3 CTT67 1001244400 01370 JR RV0
JR RV0 CTT67 4160620400 01380 XF 062,00400,0,7
XF 062,00400,0,7 * ERASE CTT67 3001056067 01390 JC T3,55
JC T3,55 CTT67 1001365100 01400 JR D11
JR D11 CTT67 3001141731 01410 JC WRIT-5,25
JC WRIT-5,25 CTT67 2600007710 01420 START PD 077,8
TART PD 077,8 CLEAR TR6 AND 7 CTT67 1001164300 01430 RERUN JR ITIZE
ERUN JR ITIZE CTT67 4740761671 01440 BT LNGT1,57,6
BT LNGT1,57,6 * FIX READ LENGHT CTT67 4740761675 01450 BT LNGT1,61,6
BT LNGT1,61,6 * FIX WRITE LENGHT CTT67 5740762204 01460 BA1 LNGT1+4,4,6
BA1 LNGT1+4,4,6 CTT67 5201012204 01470 SA1 BLGT,4
SA1 BLGT,4 ST0RE LENGTH PRINT0UT CTT67 1001324500 01480 JR TEST1
JR TEST1 CTT67 3001122262 01490 JC $+10,50
JC $+10,50 CTT67 1001331000 01500 JR TEST2
JR TEST2 CTT67 1001334600 01510 JR TEST3
JR TEST3 CTT67 3001124162 01520 JC $+10,50
JC $+10,50 CTT67 1001341100 01530 JR TEST4
JR TEST4 CTT67 1001344700 01540 JR TEST5
JR TEST5 CTT67 3001126062 01550 JC $+10,50
JC $+10,50 CTT67 1001351200 01560 JR TEST6
JR TEST6 CTT67 1001355000 01570 JR TEST7
JR TEST7 CTT67 3001127762 01580 JC $+10,50
JC $+10,50 CTT67 1001361300 01590 JR TEST8
JR TEST8 R0UTINE C0MPLETED CTT67 6000007310 01600 AC 073,8
AC 073,8 R0UTINE C0MPLETED CTT67 7400772616 01610 CT LL,14
CT LL,14 CTT67 3001115743 01620 JC RERUN+5,35
JC RERUN+5,35 LENGTHS,D0NE CTT67 3001114500 01630 JC START
JC START CTT67 3000000000 01640 WRITE JC 0
RITE JC 0 CTT67 1001515600 01650 JR GSRV0
JR GSRV0 CTT67 5601032405 01660 BA1 WR,5
BA1 WR,5 SET OPERATI0N PRINT 0UT CTT67 2601010625 01670 PD0 CNUM,5
PD0 CNUM,5 CTT67 2600060425 01680 PD0 IMAGE+4,5
PD0 IMAGE+4,5 CTT67 5201003405 01690 SA1 SP,5
SA1 SP,5 CTT67 4401015712 01700 SC CHL,012
SC CHL,012 * CH 7 SET CH PRINT CTT67 1001250700 01710 JR RWIND
JR RWIND CTT67 1001370200 01720 C JR GENDT
JR GENDT CTT67 5600060445 01730 BD1 IMAGE+4,5
BD1 IMAGE+4,5 CTT67 6601030601 01740 AD1 INC,1
AD1 INC,1 CTT67 5200060405 01750 SA1 IMAGE+4,5
SA1 IMAGE+4,5 CTT67 1001236723 01760 JR DENSV,19
JR DENSV,19 CTT67 4160020000 01770 WRIT XF 02,0,0,7
RIT XF 02,0,0,7 * WRITE CTT67 5601010645 01780 BD1 CNUM,5
BD1 CNUM,5 CTT67 6601030601 01790 AD1 INC,1
AD1 INC,1 C0MPUTE CURRENT CTT67 5201010605 01800 SA1 CNUM,5
SA1 CNUM,5 BL0CK NUM CTT67 3001145066 01810 JC $,54
JC $,54 L00P TILL IPT CTT67 7000761245 01820 CB1 BLKCT,5
CB1 BLKCT,5 CTT67 3001132342 01830 JE WRITE
JE WRITE CTT67 3001137300 01840 JC C
JC C CTT67 3000000000 01850 READ JC 0
EAD JC 0 1 TAPE CTT67 2601010625 01860 PD0 CNUM,5
PD0 CNUM,5 CTT67 1001534100 01870 JR CSRV0
JR CSRV0 CTT67 4401015711 01880 SC CHL,011
SC CHL,011 * CTT67 5601033105 01890 BA1 RD,5
BA1 RD,5 SET �READ� TO PRINT CTT67 5201003405 01900 SA1 SP,5
SA1 SP,5 0UT 0PERATION CTT67 1001236723 01910 JR DENSV,19
JR DENSV,19 CTT67 4140010000 01920 READD XF 01,0,0,6
EADD XF 01,0,0,6 * READ CTT67 5601010645 01930 BD1 CNUM,5
BD1 CNUM,5 C0MPUTE CURRENT CTT67 6601030601 01940 AD1 INC,1
AD1 INC,1 BL0CK NUM. CTT67 5201010605 01950 SA1 CNUM,5
SA1 CNUM,5 CTT67 3001156366 01960 JC $,54
JC $,54 L00P TILL IPT CTT67 2600060445 01970 CD1 IMAGE+4,5
CD1 IMAGE+4,5 CTT67 3001177243 01980 JC SEQER,35
JC SEQER,35 SEQUENCE ER IF N0T EQU CTT67 3001161465 01990 JC $+10,53
JC $+10,53 CTT67 1001531500 02000 JR C0MP
JR C0MP CTT67 5601010645 02010 BD1 CNUM,5
BD1 CNUM,5 CTT67 7000761245 02020 CB1 BLKCT,5
CB1 BLKCT,5 CTT67 3001147442 02030 JE READ
JE READ CTT67 3001153200 02040 JC READD-5
JC READD-5 CTT67 3000000000 02050 ITIZE JC 0
TIZE JC 0 CTT67 5601026300 02060 BA1 IE67,16
BA1 IE67,16 * CTT67 5200047700 02070 SA1 0477,16
SA1 0477,16 * CH 6 AND 7 IPT ENTRY CTT67 5601027310 02080 BA1 IE0,8
BA1 IE0,8 CTT67 5200040710 02090 SA1 0407,8
SA1 0407,8 CH0 IPT ENTRY CTT67 4401617400 02100 SC COP,0
SC COP,0 CTT67 4000407777 02110 XF 32,07777,0,0
XF 32,07777,0,0 CTT67 4160407777 02120 XF 32,07777,0,7
XF 32,07777,0,7 * CTT67 4140407777 02130 XF 32,07777,0,6
XF 32,07777,0,6 * CTT67 1001575300 02140 JR INGEN
JR INGEN INITIALIZE DATA GEN CTT67 2000060074 02150 FT IMAGE,60
FT IMAGE,60 * FIX BASE ADDRESS CTT67 2000060070 02160 FT IMAGE,56
FT IMAGE,56 * CTT67 3001174125 02170 JC $+5,21
JC $+5,21 CTT67 3001174626 02180 JC $+5,22
JC $+5,22 CTT67 3001175327 02190 JC $+5,23
JC $+5,23 CTT67 2001000040 02200 FT PRI,32
FT PRI,32 CTT67 2601017227 02210 PD0 BSLE,7
PD0 BSLE,7 CTT67 3001164000 02220 JC ITIZE
JC ITIZE CTT67 5601020710 02230 SEQER BA1 SEQ,8
EQER BA1 SEQ,8 CTT67 5201005410 02240 SA1 ERR,8
SA1 ERR,8 CTT67 5600060405 02250 BA1 IMAGE+4,5
BA1 IMAGE+4,5 CTT67 5201017705 02260 SA1 TPBLK+4,5
SA1 TPBLK+4,5 CTT67 1001060722 02270 JR PRINT,18
JR PRINT,18 CTT67 5600060445 02280 BD1 IMAGE+4,5
BD1 IMAGE+4,5 CTT67 5201010605 02290 SA1 CNUM,5
SA1 CNUM,5 CTT67 3001153200 02300 JC READD-5
JC READD-5 CTT67 3000000000 02310 C0NTL JC 0
0NTL JC 0 CTT67 2000000017 02320 FT 0,15
FT 0,15 CTT67 1001224200 02330 JR ADVSR
JR ADVSR CTT67 1001132627 02340 JR WRITE,027
JR WRITE,027 RESET IND 3 CTT67 1001250700 02350 JR RWIND
JR RWIND CTT67 1001227300 02360 JR ENDCK
JR ENDCK CTT67 3001205400 02370 JC C0NTL+10
JC C0NTL+10 SWITCH CTT67 1001212200 02380 JR SNTL
JR SNTL CTT67 3001204200 02390 JC C0NTL
JC C0NTL CTT67 3000000000 02400 SNTL JC 0
NTL JC 0 CTT67 2000000017 02410 FT 0,15
FT 0,15 CTT67 1001224200 02420 JR ADVSR
JR ADVSR CTT67 1001147727 02430 JR READ,027
JR READ,027 RESET IND 3 CTT67 1001250700 02440 JR RWIND
JR RWIND CTT67 1001227300 02450 JR ENDCK
JR ENDCK CTT67 3001213100 02460 JC $-20
JC $-20 CTT67 1001312024 02470 JR C0PY,024
JR C0PY,024 SET IND 3 CTT67 2000000017 02480 FT 0,15
FT 0,15 SERV0 CTT67 1001224200 02490 JR ADVSR
JR ADVSR CTT67 1001147727 02500 JR READ,027
JR READ,027 RESET IND 3 CTT67 1001254500 02510 JR SPCBK
JR SPCBK CTT67 1001250700 02520 JR RWIND
JR RWIND CTT67 1001227300 02530 JR ENDCK
JR ENDCK CTT67 3001217400 02540 JC $-25
JC $-25 CTT67 3001211700 02550 JC SNTL
JC SNTL CTT67 3000000000 02560 ADVSR JC 0
DVSR JC 0 CTT67 4760760003 02570 BT SRV0S,3,7
BT SRV0S,3,7 CTT67 6000001703 02580 AC 15,3
AC 15,3 CTT67 5201001401 02590 SA1 SRV,1
SA1 SRV,1 CTT67 3001223700 02600 JC ADVSR
JC ADVSR CTT67 3000000000 02610 ENDCK JC 0
NDCK JC 0 INCREMENT T0 NEXT CTT67 6000007701 02620 AC 077,1
AC 077,1 SERV0 NUMBER CTT67 3400007706 02630 CC 077,6
CC 077,6 CTT67 4601227311 02640 BT ENDCK+3,9
BT ENDCK+3,9 CTT67 4420000400 02650 SC 4,0,1
SC 4,0,1 ASSUME N0T D0NE CTT67 3001234543 02660 JC $+20,35
JC $+20,35 CTT67 4420000440 02670 SC 4,040,1
SC 4,040,1 D0NE,SWITCH T0 SKIP CTT67 4400007700 02680 SC 077,0
SC 077,0 CTT67 3001227000 02690 JC ENDCK
JC ENDCK CTT67 3560760077 02700 CC SRV0S,077,7
CC SRV0S,077,7 CTT67 3001227043 02710 JC ENDCK,35
JC ENDCK,35 CTT67 3001232600 02720 JC $-25
JC $-25 CTT67 3000000000 02730 DENSV JC 0
ENSV JC 0 CTT67 1001224200 02740 JR ADVSR
JR ADVSR CTT67 4601236715 02750 BT DENSV+3,13
BT DENSV+3,13 CTT67 4520000300 02760 M0DEE SC 3,0,5
0DEE SC 3,0,5 CTT67 5520000160 02770 LP 1,060,5
LP 1,060,5 CTT67 4760760003 02780 BT SRV0S,3,7
BT SRV0S,3,7 CTT67 5201243301 02790 SA1 SURV0+4,1
SA1 SURV0+4,1 CTT67 6520000100 02800 SURV0 LS 1,0,5
URV0 LS 1,0,5 CTT67 3001236400 02810 JC DENSV
JC DENSV SERV0 NUM T0 TETRAD3 CTT67 3000000000 02820 RV0 JC 0
V0 JC 0 CTT67 4601244415 02830 BT RV0+3,13
BT RV0+3,13 CTT67 5520000160 02840 LP 1,060,5
LP 1,060,5 CTT67 4760760003 02850 BT SRV0S,3,7
BT SRV0S,3,7 CTT67 5201247601 02860 SA1 SWRV0+4,1
SA1 SWRV0+4,1 CTT67 6520000100 02870 SWRV0 LS 1,0,5
WRV0 LS 1,0,5 CTT67 3001244100 02880 JC RV0
JC RV0 CTT67 3000000000 02890 RWIND JC 0
WIND JC 0 REWIND CTT67 1001244400 02900 JR RV0
JR RV0 CTT67 4160640000 02910 XF 064,0,0,7
XF 064,0,0,7 * CTT67 1001244400 02920 JR RV0
JR RV0 CTT67 4160640000 02930 XF 064,0,0,7
XF 064,0,0,7 * CTT67 3001250400 02940 JC RWIND
JC RWIND CTT67 3000000000 02950 SPCBK JC 0
PCBK JC 0 CTT67 2601010625 02960 PD0 CNUM,5
PD0 CNUM,5 CTT67 1001244400 02970 JR RV0
JR RV0 CTT67 4160611000 02980 XF 061,01000,0,7
XF 061,01000,0,7 * CTT67 5601010645 02990 BD1 CNUM,5
BD1 CNUM,5 CTT67 6601030601 03000 AD1 INC,1
AD1 INC,1 CTT67 5201010605 03010 SA1 CNUM,5
SA1 CNUM,5 CTT67 2600761245 03020 CD1 BLKCT,5
CD1 BLKCT,5 CTT67 3001256143 03030 JC SPCBK+15,35
JC SPCBK+15,35 CTT67 1001236700 03040 JR DENSV
JR DENSV SH0ULD BE AT FIRST CTT67 4140610000 03050 XF 061,0,0,6
XF 061,0,0,6 * CTT67 5601030641 03060 BD1 INC,1
BD1 INC,1 CTT67 2600060445 03070 CD1 IMAGE+4,5
CD1 IMAGE+4,5 CTT67 3001254242 03080 JC SPCBK,34
JC SPCBK,34 BACKWARD SPACING ERR0R CTT67 5601023505 03090 BA1 SPACE,5
BA1 SPACE,5 CTT67 5201003405 03100 SA1 SP,5
SA1 SP,5 CTT67 5600060405 03110 BA1 IMAGE+4,5
BA1 IMAGE+4,5 CTT67 5201002605 03120 SA1 SP-6,5
SA1 SP-6,5 CTT67 1001060700 03130 JR PRINT
JR PRINT CTT67 3001254200 03140 JC SPCBK
JC SPCBK CTT67 3000000000 03150 C0PI JC 0
0PI JC 0 0 CTT67 2601010625 03160 PD0 CNUM,5
PD0 CNUM,5 CTT67 5601033105 03170 BA1 RD,5
BA1 RD,5 CTT67 5201003405 03180 SA1 SP,5
SA1 SP,5 CTT67 4401015711 03190 SC CHL,011
SC CHL,011 * CH 6 SETUP PRINTOUT CTT67 4401617400 03200 SC COP,0
SC COP,0 CTT67 1001236723 03210 JR DENSV,19
JR DENSV,19 CTT67 4140010000 03220 XF 01,0,0,6
XF 01,0,0,6 * READ CTT67 3001275666 03230 JC $,54
JC $,54 CTT67 6000007701 03240 AC 077,1
AC 077,1 CTT67 CTT67 03240
012770 5601032405 03250 BA1 WR,5 CTT67 03250
012775 5201003405 03260 SA1 SP,5 CTT67 03260
013002 4401015711 03270 SC CHL,011 1 * CH 6 PRINTOUT CTT67 03270
013007 4401617477 03280 SC COP,077 7 CTT67 03280
* 013014 1001236723 03290 JR DENSV,1919 CTT67 03290
013021 4140020000 03300 XF 02,0,0,6,6 * WRITE CTT67 03300
* 013026 3001302666 03310 JC $,54 CTT67 03310
013033 5601010645 03320 BD1 CNUM,5 CTT67 03320
013040 6601030601 03330 AD1 INC,1 CTT67 03330
013045 5201010605 03340 SA1 CNUM,5 CTT67 03340
013052 7601023017 03350 AT MIN1,15 5 D0NE CTT67 03350
013057 2600761245 03360 CD1 BLKCT,5 5 CTT67 03360
* 013064 3001272043 03370 JC C0PI+10,0,35 CTT67 03370
* 013071 1001250700 03380 JR RWIND CTT67 03380
013076 6000007701 03390 AC 077,1 CTT67 03390
* 013103 1001250700 03400 JR RWIND CTT67 03400
* 013110 3001270600 03410 JC C0PI EXIT CTT67 03410
* 013115 3000000000 03420 C0PY JC 0 CTT67 03420
013122 3400760177 03430 CC SRV0S+1,1,077 1 T0 2 CTT67 03430
* 013127 3001311542 03440 JC C0PY,34 4 CTT67 03440
* 013134 1001271100 03450 JR C0PI CTT67 03450
013141 3560760177 03460 CC SRV0S+1,1,077,7 CTT67 03460
* 013146 3001311542 03470 JC C0PY,34 4 CTT67 03470
* 013153 1001271100 03480 JR C0PI 2 T0 3 CTT67 03480
013160 3560760177 03490 CC SRV0S+1,1,077,7 CTT67 03490
* 013165 3001311542 03500 JC C0PY,34 4 CTT67 03500
* 013172 1001271100 03510 JR C0PI 3 T0 4 CTT67 03510
013177 3560760177 03520 CC SRV0S+1,1,077,7 CTT67 03520
* 013204 3001311542 03530 JC C0PY,34 4 CTT67 03530
* 013211 1001271100 03540 JR C0PI 4 T0 5 CTT67 03540
013216 3560760177 03550 CC SRV0S+1,1,077,7 5 T0 6 CTT67 03550
* 013223 3001311542 03560 JC C0PY,34 4 CTT67 03560
* 013230 1001271100 03570 JR C0PI CTT67 03570
* 013235 3001311500 03580 JC C0PY CTT67 03580
* 013242 3000000000 03590 TEST1 JC 0 TEST 1 CTT67 03590
* 013247 1002000300 03600 JR SX2P CTT67 03600
013254 4401000104 03610 SC ST-1,04 4 CTT67 03610
* 013261 1002002700 03620 JR SXBI CTT67 03620
013266 4401240721 03630 SC M0DEE+4,4,021 M0DE AND DENSITY CTT67 03630
* 013273 1001204522 03640 JR C0NTL,1818 N0 C0M CTT67 03640
* 013300 3001324200 03650 JC TEST1 CTT67 03650
* 013305 3000000000 03660 TEST2 JC 0 CTT67 03660
013312 4401000105 03670 SC ST-1,05 5 CTT67 03670
* 013317 1002000300 03680 JR SX2P CTT67 03680
* 013324 1002002700 03690 JR SXBI CTT67 03690
* 013331 1001212225 03700 JR SNTL,21 1 CTT67 03700
* 013336 3001330500 03710 JC TEST2 CTT67 03710
* 013343 3000000000 03720 TEST3 JC 0 CTT67 03720
013350 4401000106 03730 SC ST-1,06 6 CTT67 03730
* 013355 1002005300 03740 JR SXBCD CTT67 03740
* 013362 1002000300 03750 JR SX2P CTT67 03750
013367 4401240720 03760 SC M0DEE+4,4,020 CTT67 03760
* 013374 1001204522 03770 JR C0NTL,1818 CTT67 03770
* 013401 3001334300 03780 JC TEST3 CTT67 03780
* 013406 3000000000 03790 TEST4 JC 0 CTT67 03790
013413 4401000107 03800 SC ST-1,07 7 CTT67 03800
* 013420 1002005300 03810 JR SXBCD CTT67 03810
* 013425 1002000300 03820 JR SX2P CTT67 03820
* 013432 1001212225 03830 JR SNTL,21 1 CTT67 03830
* 013437 3001340600 03840 JC TEST4 CTT67 03840
* 013444 3000000000 03850 TEST5 JC 0 CTT67 03850
* 013451 1002007700 03860 JR SX5P CTT67 03860
013456 4401000110 03870 SC ST-1,01010 CTT67 03870
* 013463 1002002700 03880 JR SXBI CTT67 03880
013470 4401240701 03890 SC M0DEE+4,4,01 CTT67 03890
* 013475 1001204522 03900 JR C0NTL,1818 CTT67 03900
* 013502 3001344400 03910 JC TEST5 CTT67 03910
* 013507 3000000000 03920 TEST6 JC 0 CTT67 03920
013514 4401000111 03930 SC ST-1,01111 CTT67 03930
* 013521 1002007700 03940 JR SX5P CTT67 03940
* 013526 1002002700 03950 JR SXBI CTT67 03950
* 013533 1001212225 03960 JR SNTL,21 1 CTT67 03960
* 013540 3001350700 03970 JC TEST6 CTT67 03970
* 013545 3000000000 03980 TEST7 JC 0 CTT67 03980
* 013552 1002005300 03990 JR SXBCD CTT67 03990
013557 4401000112 04000 SC ST-1,01212 CTT67 04000
* 013564 1002007700 04010 JR SX5P CTT67 04010
013571 4401240700 04020 SC M0DEE+4,4,0 CTT67 04020
* 013576 1001204522 04030 JR C0NTL,1818 CTT67 04030
* 013603 3001354500 04040 JC TEST7 CTT67 04040
* 013610 3000000000 04050 TEST8 JC 0 CTT67 04050
013615 4401000113 04060 SC ST-1,01313 CTT67 04060
* 013622 1002005300 04070 JR SXBCD CTT67 04070
* 013627 1002007700 04080 JR SX5P CTT67 04080
* 013634 1001212225 04090 JR SNTL,21 1 CTT67 04090
* 013641 3001361000 04100 JC TEST8 CTT67 04100
* 013646 3000000000 04110 D11 JC 0 CTT67 04110
013653 5601010645 04120 BD1 CNUM,5 CTT67 04120
013660 6601030641 04130 SD1 INC,1 CTT67 04130
013665 5201010605 04140 SA1 CNUM,5 CTT67 04140
* 013672 3001364600 04150 JC D11 CTT67 04150
* 013677 3000000000 04160 GENDT J 0 CTT67 04160
013704 5600007700 04170 SAVY BA1 077,16 SAVE CTT67 04170
013711 5201632000 04180 SA1 SAVEX,1616 ALL CTT67 04180
013716 5600005700 04190 BA1 057,16 IR CTT67 04190
013723 5201634000 04200 SA1 SAVX,16 6 CTT67 04200
013730 2600007700 04210 PD 077,16 CTT67 04210
013735 2600005700 04220 PD 057,16 CTT67 04220
013742 4400005305 04230 SC 053,5 CTT67 04230
* 013747 3001375400 04240 DUTYX J TM0DX CTT67 04240
013754 5601240701 04250 TM0DX BA1 M0DEE+4,4,1 TEST IF M0DEE+4 IS CTT67 04250
013761 5400001701 04260 LP 017,01 0DD F0R ANY 0R EVEN CTT67 04260
* 013766 3001401200 04270 J WBCDX G0 GEN BCD DATA CTT67 04270
* 013773 3001417500 04280 WBNYX J WBP1X BNY DATA PART 1 CTT67 04280
* 014000 3001433400 04290 WBNY2 J WBP2X BNY DATA PART 2 CTT67 04290
* 014005 3001450000 04300 WBNY3 J WBP3X BNY DATA PART3 CTT67 04300
014012 4601620011 04310 WBCDX BT SAV1,9 BRING 0LD IR1 CTT67 04310
014017 4401751507 04320 SC PHSEX,0707 CTT67 04320
014024 5621622000 04330 STRD BA1 DTBL,16,6,1 BRING 16 CHAR FR0M CTT67 04330
014031 5240061700 04340 DECX1 SA1 IMAGE+1515,16,2 CTT67 04340
014036 6000005320 04350 AC 053,16 IR2 EQ T49 CTT67 04350
014043 7400005371 04360 CT 053,57 * CTT67 04360
* 014050 3001411342 04370 JE EXBCD INCR IR2 BY 16 CTT67 04370
014055 3400004760 04380 CC 047,48 IR1 EQ 48 CTT67 04380
* 014062 3001410142 04390 JE RT1 CTT67 04390
014067 6000004701 04400 AC 047,1 INCR IR1 BY 1 CTT67 04400
* 014074 3001402400 04410 J STRD CTT67 04410
014101 2600004704 04420 RT1 PD 047,4 CTT67 04420
* 014106 3001402400 04430 J STRD CTT67 04430
014113 4201620011 04440 EXBCD ST SAV1,9 CTT67 04440
014120 3401620060 04450 CC SAV1,48 8 CTT67 04450
* 014125 3001414442 04460 JE RESTR CTT67 04460
014132 6001620001 04470 AC SAV1,1 CTT67 04470
* 014137 3001414400 04480 J RESTR CTT67 04480
014144 5601632000 04490 RESTR BA1 SAVEX,1616 REST0RE ALL CTT67 04490
014151 5200007700 04500 SA1 077,16 INDEX CTT67 04500
014156 5601634000 04510 BA1 SAVX,16 6 REGISTERS AND CTT67 04510
014163 5200005700 04520 SA1 057,16 RETURN T0 MAIN CTT67 04520
* 014170 3001367700 04530 J GENDT C0NTR0L CTT67 04530
014175 5601635000 04540 WBP1X BA1 PATSY,1616 16 CHAR NEXT PAT CTT67 04540
014202 4401751504 04550 SC PHSEX,0404 CTT67 04550
014207 5601637020 04560 BA2 SWES,16 6 16 CHAR 01 CTT67 04560
* 014214 3201424502 04570 SHX JL CHUCK,0202 CTT67 04570
014221 7200001720 04580 AB2 017,16 ADD AR2 T0 AR1 CTT67 04580
* 014226 3001424500 04590 J CHUCK CTT67 04590
014233 7400005371 04600 MTCH CT 053,57 * CTT67 04600
* 014240 3001426442 04610 JE EXBNY CTT67 04610
014245 5240061700 04620 CHUCK SA1 IMAGE+1515,16,2 CTT67 04620
014252 6000005320 04630 AC 053,16 INCR IR2 CTT67 04630
* 014257 3001423300 04640 J MTCH CTT67 04640
014264 3400001777 04650 EXBNY CC 017,077 7 CTT67 04650
* 014271 3001431042 04660 JE RSET0 CTT67 04660
014276 5201635000 04670 SA1 PATSY,1616 CTT67 04670
* 014303 3001414400 04680 J RESTR CTT67 04680
014310 4401377740 04690 RSET0 SC WBNYX+4,4,32 RESET PATSY T0 ZER0 CTT67 04690
014315 2600001700 04700 PD 017,16 CTT67 04700
014322 5201635000 04710 SA1 PATSY,1616 CTT67 04710
* 014327 3001414400 04720 J RESTR CTT67 04720
014334 5601642000 04730 WBP2X BA1 PATT2,1616 CTT67 04730
014341 4401751505 04740 SC PHSEX,0505 CTT67 04740
014346 5601646020 04750 BA2 TENS,16 6 16 CHAR 10S CTT67 04750
014353 3400001677 04760 CC 016,077 7 CTT67 04760
* 014360 3001444242 04770 JE ENDX CTT67 04770
* 014365 3201437702 04780 FSTX JL SLIP,02 2 CTT67 04780
014372 7200001720 04790 BANG AB2 017,16 CTT67 04790
014377 5240061700 04800 SLIP SA1 IMAGE+1515,16,2 CTT67 04800
014404 6000005320 04810 AC 053,16 CTT67 04810
014411 7400005371 04820 CT 053,57 * CTT67 04820
* 014416 3001443042 04830 JE FIN2 CTT67 04830
* 014423 3001437700 04840 J SLIP CTT67 04840
014430 5201642000 04850 FIN2 SA1 PATT2,1616 CTT67 04850
* 014435 3001414400 04860 J RESTR CTT67 04860
014442 3400001777 04870 ENDX CC 017,077 7 CTT67 04870
* 014447 3001437243 04880 JU BANG CTT67 04880
014454 5601644000 04890 BA1 SRIG,16 6 0RIG 000000010002 ETC CTT67 04890
014461 5201642000 04900 SA1 PATT2,1616 CTT67 04900
014466 4401400440 04910 SC WBNY2+4,4,32 CTT67 04910
* 014473 3001400500 04920 J WBNY3 CTT67 04920
014500 5601650010 04930 WBP3X BA1 TS02,8 CTT67 04930
014505 4401751506 04940 SC PHSEX,0606 CTT67 04940
014512 5201707510 04950 SA1 NEWX-8,8,8 CTT67 04950
014517 5240060710 04960 R1X SA1 IMAGE+7,7,8,2 CTT67 04960
* 014524 1001567100 04970 JR GENRX CTT67 04970
014531 5240061710 04980 SA1 IMAGE+1515,8,2 CTT67 04980
014536 4401463103 04990 SC CCX+4,0303 CTT67 04990
014543 6000005320 05000 AC 053,16 INCR IR2 CTT67 05000
014550 7400005371 05010 CT 053,57 * CTT67 05010
* 014555 3001414442 05020 JE RESTR CTT67 05020
* 014562 3001462500 05030 J CCX CTT67 05030
014567 6000005320 05040 TX AC 053,16 CTT67 05040
014574 7400005371 05050 CT 053,57 * CTT67 05050
* 014601 3001414442 05060 JE RESTR CTT67 05060
014606 3400004707 05070 CC 047,07 CTT67 05070
* 014613 3001514142 05080 JE PADX CTT67 05080
014620 6000004701 05090 AC 047,01 CTT67 05090
014625 3420061503 05100 CCX CC IMAGE+1313,03,1 CTT67 05100
* 014632 3061477542 05110 JE SUTX,3 CTT67 05110
014637 3401463114 05120 CC CCX+4,01014 CTT67 05120
* 014644 3001467042 05130 JE DUB CTT67 05130
014651 6001463101 05140 AC CCX+4,0101 CTT67 05140
014656 6000005712 05150 AC 057,10 CTT67 05150
* 014663 3001462500 05160 J CCX CTT67 05160
014670 3420061503 05170 DUB CC IMAGE+1313,03,1 CTT67 05170
* 014675 3001473341 05180 JC LESSX,3333 CTT67 05180
014702 3420061516 05190 CC IMAGE+1313,14,1 CTT67 05190
* 014707 3001474044 05200 JC M0REX,3636 CTT67 05200
014714 2600005704 05210 PD 057,4 CTT67 05210
014721 4401463103 05220 SC CCX+4,0303 CTT67 05220
* 014726 3001462500 05230 J CCX CTT67 05230
* 014733 3001473360 05240 LESSX JD LESSX CTT67 05240
* 014740 3001474060 05250 M0REX JD M0REX CTT67 05250
014750 00000000 05260 F0URX +4 000 CTT67 05260
014751 5701577100 05270 SUTXX BA1 RNDX1,1616,4 CTT67 05270
014756 4201475014 05280 ST F0URX,1212 CTT67 05280
014763 5240061700 05290 RXL SA1 IMAGE+1515,16,2 CTT67 05290
* 014770 3001456700 05300 J TX CTT67 05300
014775 2000000014 05310 SUTX FT 0,12 CTT67 05310
* 015002 3001475100 05320 J SUTXX CTT67 05320
015007 2000002014 05330 FT 16,12 CTT67 05330
* 015014 3001475100 05340 J SUTXX CTT67 05340
015021 2000004014 05350 FT 32,12 CTT67 05350
* 015026 3001475100 05360 J SUTXX CTT67 05360
015033 2000006014 05370 FT 48,12 CTT67 05370
* 015040 3001475100 05380 J SUTXX CTT67 05380
015045 2000010014 05390 FT 64,12 CTT67 05390
* 015052 3001475100 05400 J SUTXX CTT67 05400
015057 2000012014 05410 FT 80,12 CTT67 05410
* 015064 3001475100 05420 J SUTXX CTT67 05420
015071 2000014014 05430 FT 96,12 CTT67 05430
* 015076 3001475100 05440 J SUTXX CTT67 05440
015103 2000016014 05450 FT 112,12 CTT67 05450
* 015110 3001475100 05460 J SUTXX CTT67 05460
015115 2000020414 05470 FT 132,12 CTT67 05470
* 015122 3001475100 05480 J SUTXX CTT67 05480
015127 2000025414 05490 FT 172,12 CTT67 05490
* 015134 3001475100 05500 J SUTXX CTT67 05500
015141 4400004700 05510 PADX SC 047,0 CTT67 05510
* 015146 3001462500 05520 J CCX CTT67 05520
* 015153 3000000000 05530 GSRV0 J 0 CTT67 05530
015160 4401437102 05540 SC FSTX+4,0,02 CTT67 05540
015165 4401422002 05550 SC SHX+4,0202 CTT67 05550
015172 4401377700 05560 SC WBNYX+4,4,0 CTT67 05560
015177 4401400400 05570 SC WBNY2+4,4,0 CTT67 05570
015204 2601620004 05580 PD SAV1,4 CTT67 05580
015211 2601635000 05590 PD PATSY,1616 CTT67 05590
015216 5601644000 05600 BA1 SRIG,16 6 CTT67 05600
015223 5201642000 05610 SA1 PATT2,1616 CTT67 05610
015230 5601647010 05620 BA1 RANDY,8 8 0RIG RAND0M N0 CTT67 05620
015235 5201650010 05630 SA1 TS02 CTT67 05630
015242 5601650505 05640 BA1 RDX1+4,5,5 RESET DECX1 CTT67 05640
015247 5201403505 05650 SA1 DECX1+4,4,5 CTT67 05650
015254 5201425105 05660 SA1 CHUCK+4,4,5 CTT67 05660
015261 5201440305 05670 SA1 SLIP+4,5,5 CTT67 05670
015266 5201476705 05680 SA1 RXL+4,5 5 CTT67 05680
015273 5601652417 05690 BA1 RR1X+4,1,15 CTT67 05690
015300 5201453517 05700 SA1 R1X+14,1,15 CTT67 05700
* 015305 3001515300 05710 J GSRV0 CTT67 05710
* 015312 3000000000 05720 C0MP J 0 CTT67 05720
015317 5601531605 05730 BA1 C0MP+4,5,5 CTT67 05730
015324 5201370305 05740 SA1 GENDT+4,4,5 CTT67 05740
* 015331 3001370400 05750 J SAVY JRD1 CTT67 05750
* 015336 3000000000 05760 CSRV0 J 0 CTT67 05760
015343 5601647010 05770 BA1 RANDY,8 8 CTT67 05770
015350 5201650010 05780 SA1 TS02,8 CTT67 05780
015355 5601644000 05790 BA1 SRIG,16 6 CTT67 05790
015362 5201642000 05800 SA1 PATT2,1616 CTT67 05800
015367 4401437102 05810 SC FSTX+4,0,02 CTT67 05810
015374 4401422002 05820 SC SHX+4,0202 CTT67 05820
015401 2601620005 05830 PD SAV1,5 CTT67 05830
015406 2601635000 05840 PD PATSY,1616 CTT67 05840
015413 5601653105 05850 BA1 JRD1+4,5,5 CTT67 05850
015420 5201403505 05860 SA1 DECX1+4,4,5 CTT67 05860
015425 5201425105 05870 SA1 CHUCK+4,4,5 CTT67 05870
015432 5201440305 05880 SA1 SLIP+4,5,5 CTT67 05880
015437 5601655437 05890 BA2 JRD3+4,1,15 CTT67 05890
015444 5201453537 05900 SA2 R1X+14,1,15 CTT67 05900
015451 4401377700 05910 SC WBNYX+4,4,0 CTT67 05910
015456 4401400400 05920 SC WBNY2+4,4,0 CTT67 05920
015463 5201476705 05930 SA1 RXL+4,5 5 CTT67 05930
* 015470 3001533600 05940 J CSRV0 CTT67 05940
015504 0000000000000000 05950 +8 000 CTT67 05950
015514 0000000000000000 05960 SAV3X +8 000 CTT67 05960
* 015515 3000000000 05970 D1 J 0 CTT67 05970
015522 7040061740 05980 CB1 IMAGE+1515,16,2 CTT67 05980
* 015527 1001561443 05990 JR P0P,35 CTT67 05990
* 015534 3001551500 06000 J D1 CTT67 06000
* 015541 3000000000 06010 D2 J 0 CTT67 06010
015546 7040060750 06020 CB1 IMAGE+7,7,8,2 CTT67 06020
* 015553 1001664743 06030 JR P0P2,35 5 CTT67 06030
* 015560 3001554100 06040 J D2 CTT67 06040
* 015565 3000000000 06050 D3 J 0 CTT67 06050
015572 7040061750 06060 CB1 IMAGE+1515,8,2 CTT67 06060
* 015577 1001670043 06070 JR P0P3,35 5 CTT67 06070
* 015604 3001556500 06080 J D3 CTT67 06080
* 015611 3000000000 06090 P0P J 0 CTT67 06090
015616 5201551420 06100 SA2 SAV3X,1616 CTT67 06100
015623 5601021627 06110 BA2 C0MX,7 CTT67 06110
015630 5201005427 06120 SA2 ERR,7 CTT67 06120
015635 5201712500 06130 SA1 DUDX,16 6 CTT67 06130
* 015642 1001715100 06140 JR PRTX1 CTT67 06140
* 015647 1001060700 06150 JR PRINT CTT67 06150
015654 5601712500 06160 BA1 DUDX,16 6 * CTT67 06160
* 015661 3001561100 06170 J P0P CTT67 06170
* 015666 3000000000 06180 GENRX J 0 CTT67 06180
015673 2600012730 06190 PD0 87,8 CTT67 06190
015700 2000050625 06200 FT 326,21 CTT67 06200
015705 5601650070 06210 BD2 TS02,8 CTT67 06210
015712 5000000002 06220 MPN ,2 CTT67 06220
015717 5600000730 06230 BA2 7,8 CTT67 06230
015724 6600003750 06240 SD1 31,8 CTT67 06240
015731 5400001717 06250 LP 15,15 CTT67 06250
015736 5201650010 06260 SA1 TS02,8 CTT67 06260
* 015743 3001566600 06270 J GENRX CTT67 06270
* 015750 3000000000 06280 INGEN J 0 CTT67 06280
* 015755 3001575000 06290 J INGEN CTT67 06290
015771 0000400100002002 06300 RNDX1 +8 0000040000100002002 CTT67 06300 0
016001 0010040004100002 06310 +8 0001004040004100002 CTT67 06310 0
016011 2000014001400002 06320 +8 0200001414001400002 CTT67 06320 0
016021 2004101004200240 06330 +8 0200410101004200240 CTT67 06330 2
016031 4101201204122001 06340 +8 0410120101204122001 CTT67 06340 0
016041 4224102442412116 06350 +8 0422410202442412116 CTT67 06350 1
016051 1621414630462116 06360 +8 0162141414630462116 CTT67 06360 1
016061 1621463046777777 06370 +8 0162146363046777777 CTT67 06370 7
016071 7777377677775775 06380 +8 0777737777677775775 CTT67 06380 7
016101 7737737773377775 06390 +8 0773773737773377775 CTT67 06390 7
016111 5777763776377775 06400 +8 0577776363776377775 CTT67 06400 7
016121 5773676763577537 06410 +8 0577367676763577537 CTT67 06410 5
+8 05773676763577537 CTT67 3676576573655776 06420 +8 036765765736557
+8 03676576573655776 CTT67 3400001701 06430 CC 017,01
CC 017,01 F0R BCD CTT67 3001377342 06440 JE WBNYX
JE WBNYX G0 GEN BNY DATA CTT67 3553675335365661 06450 +8 035536753353656
+8 03553675335365661 CTT67 6156363147315661 06460 +8 061563631473156
+8 06156363147315661 CTT67 6156314731000000 06470 +8 061563147310000
+8 06156314731000000 CTT67 00 06480 COP +1 00
OP +1 00 CTT67 00000000 06490 SAV1 +4 000
AV1 +4 000 CTT67 0102030405060710 06500 +8 001020304050607
+8 00102030405060710 CTT67 1112131415161720 06510 DTBL +8 011121314151617
TBL +8 01112131415161720 CTT67 2122232425262730 06520 +8 021222324252627
+8 02122232425262730 CTT67 3132333435363740 06530 +8 031323334353637
+8 03132333435363740 CTT67 4142434445464750 06540 +8 041424344454647
+8 04142434445464750 CTT67 5152535455565760 06550 +8 051525354555657
+8 05152535455565760 CTT67 6162006465666770 06560 +8 061620064656667
+8 06162006465666770 CTT67 7172737475767700 06570 +8 071727374757677
+8 07172737475767700 CTT67 0000000000000000 06580 +8 000
+8 000 CTT67 0000000000000000 06590 SAVEX +8 000
AVEX +8 000 CTT67 0000000000000000 06600 +8 000
+8 000 CTT67 0000000000000000 06610 SAVX +8 000
AVX +8 000 CTT67 0000000000000000 06620 PATSY +8 000
ATSY +8 000 CTT67 0101010101010101 06630 +8 001010101010101
+8 00101010101010101 CTT67 0101010101010101 06640 SWES +8 001010101010101
WES +8 00101010101010101 CTT67 0000000000000000 06650 +8 000
+8 000 CTT67 0000000000000000 06660 +8 000
+8 000 CTT67 0000000000000000 06670 PATT2 +8 000
ATT2 +8 000 CTT67 0000000100020003 06680 +8 000000001000200
+8 00000000100020003 CTT67 0004000500060007 06690 SRIG +8 000040005000600
RIG +8 00004000500060007 CTT67 0010001000100010 06700 +8 000100010001000
+8 00010001000100010 CTT67 0010001000100010 06710 TENS +8 000100010001000
ENS +8 00010001000100010 CTT67 76540213 06720 RANDY +8 _76540213_
ANDY +8 _76540213_ CTT67 0000000000000000 06730 TS02 +8 000
S02 +8 000 CTT67 5240061700 06740 RDX1 SA1 IMAGE+15,16,2
DX1 SA1 IMAGE+15,16,2 CTT67 5240060710 06750 SA1 IMAGE+7,8,2
SA1 IMAGE+7,8,2 CTT67 1001567100 06760 JR GENRX
JR GENRX CTT67 5240061710 06770 RR1X SA1 IMAGE+15,8,2
R1X SA1 IMAGE+15,8,2 CTT67 1001552000 06780 JRD1 JR D1
RD1 JR D1 CTT67 C0MP 06790 PRCP +4 _C0MP_
RCP +4 _C0MP_ CTT67 1001554400 06800 JR D2
JR D2 CTT67 1001567100 06810 JR GENRX
JR GENRX CTT67 1001557000 06820 JRD3 JR D3
RD3 JR D3 CTT67 2600007710 06830 PD 077,8
PD 077,8 CTT67 2000003016 06840 FT 24,14
FT 24,14 SET IR6 LENGTH 128 CTT67 2001662303 06850 FT PRRT+3,3
FT PRRT+3,3 CTT67 5201142203 06860 SA1 WRIT-2,3
SA1 WRIT-2,3 CTT67 4401145440 06870 SC WRIT+24,32
SC WRIT+24,32 CTT67 3001115200 06880 J RERUN
J RERUN CTT67 2000060040 06890 FT IMAGE,32
FT IMAGE,32 CTT67 3000000000 06900 PRRT J 0
RRT J 0 CTT67 4400020701 06910 SC 0207,1
SC 0207,1 CTT67 4000620000 06920 XF 062,00000,00,00
XF 062,00000,00,00 CTT67 3001143100 06930 J WRIT+5
J WRIT+5 CTT67 3000000000 06940 P0P2 J 0
0P2 J 0 CTT67 5201713510 06950 SA1 SLDX-8,8
SA1 SLDX-8,8 CTT67 5601714500 06960 BA1 SLDX,16
BA1 SLDX,16 CTT67 1001561400 06970 JR P0P
JR P0P CTT67 3001664400 06980 J P0P2
J P0P2 CTT67 3000000000 06990 P0P3 J 0
0P3 J 0 CTT67 5201710510 07000 SA1 NEWX,8
SA1 NEWX,8 CTT67 5601710500 07010 BA1 NEWX,16
BA1 NEWX,16 CTT67 1001561400 07020 JR P0P
JR P0P CTT67 3001667500 07030 J P0P3
J P0P3 CTT67 0000000000000000 07040 +8 000
+8 000 CTT67 0000000000000000 07050 SAVX4 +8 000
AVX4 +8 000 CTT67 3000000000 07060 ETX J 0
TX J 0 CTT67 5201746300 07070 STREX SA1 MEMX,16
TREX SA1 MEMX,16 CTT67 2600006304 07080 CLR4X PD 51,4
LR4X PD 51,4 CTT67 5701744401 07090 IMTX BA1 MEMX-15,1,4
MTX BA1 MEMX-15,1,4 CTT67 5400001707 07100 LP 15,7
LP 15,7 CTT67 6000001703 07110 AC 15,3
AC 15,3 CTT67 5360000101 07120 SA1 1,1,7
SA1 1,1,7 CTT67 5701744401 07130 BA1 MEMX-15,1,4
BA1 MEMX-15,1,4 CTT67 5400001770 07140 LP 15,56
LP 15,56 CTT67 1600001753 07150 BC1 15,3
BC1 15,3 CTT67 6000001703 07160 AC 15,3
AC 15,3 CTT67 5360000001 07170 SA1 0,1,7
SA1 0,1,7 CTT67 6000006301 07180 AC 063,1
AC 063,1 CTT67 6000007703 07190 A7X AC 077,3
7X AC 077,3 CTT67 3201676520 07200 LP3X JL IMTX,16
P3X JL IMTX,16 CTT67 3001674600 07210 FINSX J ETX
INSX J ETX CTT67 0000000000000000 07220 +8 000
+8 000 CTT67 0000000000000000 07230 NEWX +8 000
EWX +8 000 CTT67 0000000000000000 07240 +8 000
+8 000 CTT67 0000000000000000 07250 DUDX +8 000
UDX +8 000 CTT67 0000000000000000 07260 +8 000
+8 000 CTT67 0000000000000000 07270 SLDX +8 000
LDX +8 000 CTT67 3000000000 07280 PRTX1 J 0
RTX1 J 0 CTT67 4401724140 07290 SC FLUB+4,32
SC FLUB+4,32 CTT67 1001734600 07300 JR STAPX
JR STAPX SET_TAPE_ AND _TR2_ CTT67 5640061700 07310 BA1 IMAGE+15,16,2
BA1 IMAGE+15,16,2 CTT67 1001720700 07320 JR SNIP
JR SNIP CTT67 3001731200 07330 J TWX
J TWX CTT67 3000000000 07340 SNIP J 0
NIP J 0 CTT67 5201762500 07350 SA1 ERM0I+21,16
SA1 ERM0I+21,16 ST0RE AS IS CTT67 2001763617 07360 FT ERM0I+30,15
017216 2001763617 07360 FT ERM0I+3030,15 CTT67 07360
017223 4401706020 07370 SC LP3X+4,1,16 CTT67 07370
* 017230 1001675100 07380 JR ETX CTT67 07380
* 017235 3001746400 07390 FLUB J SETG CTT67 07390
017242 5600006700 07400 BA1 053+12,1,16 CTT67 07400
017247 2001772517 07410 FT ERM0I+8585,15 CTT67 07410
017254 4401706004 07420 SC LP3X+4,4,4 CTT67 07420
* 017261 1001675100 07430 JR ETX CTT67 07430
017266 2001760040 07440 CRAK FT ERM0I,3232 CTT67 07440
017273 4400020702 07450 SC 0207,2 CTT67 07450
017300 4000620000 07460 XF 062,0000000,00,00 CTT67 07460 0
* 017305 3001720400 07470 J SNIP CTT67 07470
017312 2601774015 07480 TWX PD ERM0I+9696,13 CTT67 07480
017317 5601674500 07490 BA1 SAVX4,1616 CTT67 07490
017324 4401724100 07500 SC FLUB+4,0,0 CTT67 07500
* 017331 1001720700 07510 JR SNIP CTT67 07510
* 017336 3001714600 07520 J PRTX1 CTT67 07520
* 017343 3000000000 07530 STAPX J 0 CTT67 07530
017350 5201674500 07540 SA1 SAVX4,1616 CTT67 07540
017355 5601750124 07550 BA2 TPX,4 CTT67 07550
017362 5201760424 07560 SA2 ERM0I+4,4,4 CTT67 07560
017367 5601750423 07570 BA2 IRX,3 CTT67 07570
017374 5201772323 07580 SA2 ERM0I+8383,3 CTT67 07580
* 017401 3001734300 07590 J STAPX CTT67 07590
* 017406 3000000000 07600 STMGX J 0 CTT67 07600
017413 5601751024 07610 BA2 MX,4 CTT67 07610
017420 5201760424 07620 SA2 ERM0I+4,4,4 CTT67 07620
017425 5601751626 07630 BA2 GX,6 CTT67 07630
017432 5201772626 07640 SA2 ERM0I+8686,6 CTT67 07640
* 017437 3001740600 07650 J STMGX CTT67 07650
017453 0000000000000000 07660 +8 000 CTT67 07660
017463 0000000000000000 07670 MEMX +8 000 CTT67 07670
* 017464 1001741100 07680 SETG JR STMGX CTT67 07680
* 017471 3001726600 07690 J CRAK CTT67 07690
017501 TAPE 07700 TPX +4 _TAPE_ CTT67 07700
017504 IR2 07710 IRX +3 _IR2_ CTT67 07710
017510 MEM 07720 MX +4 _MEM _ CTT67 07720
017513 GEN 07730 +3 _GEN_ CTT67 07730
017515 0000 07740 PHSEX +2 000 CTT67 07740
017516 00 07750 GX +1 000 CTT67 07750
017600 07760 ORIG $,64 CTT67 07760
017600 27 07770 ERM0I AREA 23,B,0 CTT67 07770
017634 EDITED 07780 +6 _EDITED_D_ CTT67 07780
017635 143 07790 AREA 99,B,0 CTT67 07790
* 020000 3000000000 07800 SX2P J 0 CTT67 07800
020005 5601022406 07810 BA1 A2PPI,6 6 CTT67 07810
020012 5201006706 07820 SA1 DEN,6 CTT67 07820
* 020017 3002000000 07830 J SX2P CTT67 07830
* 020024 3000000000 07840 SXBI J 0 CTT67 07840
020031 5601031304 07850 BA1 BINY,4 CTT67 07850
020036 5201002604 07860 SA1 SP-6,4 CTT67 07860
* 020043 3002002400 07870 J SXBI CTT67 07870
* 020050 3000000000 07880 SXBCD J 0 CTT67 07880
020055 5601031704 07890 BA1 BCD,4 CTT67 07890
020062 5201002604 07900 SA1 SP-6,4 CTT67 07900
* 020067 3002005000 07910 J SXBCD CTT67 07910
* 020074 3000000000 07920 SX5P J 0 CTT67 07920
020101 5601024306 07930 BA1 A5PPI,6 6 CTT67 07930
020106 5201006706 07940 SA1 DEN,6 CTT67 07940
* 020113 3002007400 07950 J SX5P CTT67 07950
* 020120 3001114520 07960 B JC START,1616 CTT67 07960
3002012000 07970 END B CTT67 07970
{-- tape mark --}
019587 C571 USTR4K CODEDIT SOURCE - T3834394-57
000600 00010 T570 BEGIN 0600 USTR4K00010
*LOAD 0700,TAPAPE,R,PRELD E
* 000600 3007010660 * JD 070106 *
* 000605 3000060000 * J $-5 *
SEGMENT-ID T571 3000060000 * 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 T572 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 T573 3000136300 * SEGJP $ *
000600 ORIG 0600
00020 . 1, USTR4K 1050 TETEST ROUTINE 4K 80 COLUMN USTR4K00020 T
00030 . 1.1 DESCRIPTPTION USTR4K00030
00040 . THIS ROROUTINE CHECKS THE OPERATION OF THE PROCESSOR USTR4K00040 C
00050 . 400 CPMPM COLUMN SERIAL READER, 200CPM PUNCH AND THE USTR4K00050 N
00060 . UNBUFFEFERED PRINTER. USTR4K00060 I
00070 . USTR4K00070
00080 . 2. OPERATINING INSTRUCTIONS USTR4K00080 R
00090 . 2.1 LOAD PRPROGRAM FOLLOWING NORMAL LOAD PROCEDURES USTR4K00090 F
00100 . PROGRAMAM HALTS WITH 3000777760 DISPLAYED USTR4K00100
00110 . 2.2 SELECT T THE DESIRED MODE USTR4K00110 S
00120 . SENSE S SWITCH 2 OFF-- TRANSLATE ON-- BINARY USTR4K00120 2
00130 . LOAD THTHE DATA PATTERN TO BE USED BY THE READER USTR4K00130
00140 . AND PUNUNCH. SENSE SWITCH 1 ON USTR4K00140 S
00150 . SENSE SWITCH 2 PROPER MODE USTR4K00150 S
00160 . SENSE SWITCH 3 OFF USTR4K00160 S
00170 . 2.3.1 PLACE T THE PATTERN TO BE USED IN THE READER USTR4K00170 T
00180 . FOLLOWEWED BY TWO BLANK CARDS. DEPRESS CLEAR, CONT., USTR4K00180 W
00190 . AND PROROGRAM START. PROGRAM WILL HALT AND DISPLAY USTR4K00190 T
00200 . 300000000160 THE PATTERN MAY BE CHANGED AT LOAD USTR4K00200 T
00210 . STOP ATAT ANY TIME. USTR4K00210 I
00220 . 2.4 PUNCH T THE SEQUENCED DATA DECK TO BE USED BY THE USTR4K00220 U
00230 . READER R AND PUNCH. USTR4K00230 N
00240 . 2.4.1 PLACE T THE POST PUNCH MEMORY SWITCH AT UP POSITION USTR4K00240 T
00250 . SENSE S SWITCHES SS1 OFF SS2 PROPER MODE SS3 ON USTR4K00250 S
00260 . 2.4.2 DEPRESSSS CLEAR AND PROGRAM START. DECK WILL BE USTR4K00260
00270 . PUNCHEDED UNTIL OPERATOR INTERVENES BY DEPRESSING USTR4K00270
00280 . OPERATOTOR REQUEST OR SS3. THE PROGRAM WILL HALT USTR4K00280 E
00290 . WITH 303000777760 DISPLAYED. USTR4K00290 6
00300 . 2.4.3 REMOVE E FIRST PUNCHED CARD, CLEAR OUT READER AND USTR4K00300 P
00310 . PLACE D DECK IN READER. USTR4K00310
00320 . 2.5 SELECT P PROGRAM OPTIONS AS FOLLOWS USTR4K00320
00330 . UNIT SPSPEED OPTIONS USTR4K00330 T
00340 . UNINIT OCTAL LOC HIGH MED LOW USTR4K00340 C
00350 . 2.5.1 PROCESSSSOR NONE USTR4K00350
00360 . 2.5.2 READER R 02526 00 01 40 USTR4K00360 0
00370 . 2.5.3 PUNCH 02533 00 01 37 USTR4K00370 0
00380 . 2.5.4 PRINTERER 02540 00 01 10 USTR4K00380 0
00390 . 2.6 DELETE R READER SEQUENCE CHECK. SEQUENCE ERRORS ARE USTR4K00390 S
00400 . PROCESSSSED AS COMPARE ERRORS. SEQ NON-SEQ USTR4K00400 C
00410 . OCTAL L LOCATION 04376 017 00 USTR4K00410 N
00420 . 2.7 UNIT DELELETIONS KEY IN AS FOLLOWS USTR4K00420
00430 . UNINIT OCTAL LOCATION TEST DELETE TEST USTR4K00430 C
00440 . 2.7.1 PROCESSSSOR 06131 061 060 USTR4K00440
00450 . 06132 034 076 USTR4K00450
00460 . 2.7.2 READER R 03765 067 050 USTR4K00460
00470 . 2.7.3 PUNCH 03702 037 036 USTR4K00470
00480 . 03703 005 066 USTR4K00480
00490 . 02766 027 030 USTR4K00490
00500 . 02767 071 010 USTR4K00500
00510 . 03621 023 030 USTR4K00510
00520 . 2.7.4 PRINTERER 04047 051 032 USTR4K00520
00530 . NOTE-- - DOES NOT DELETE ERROR PRINTOUTS USTR4K00530 O
00540 . 2.8 PRINTERER SPACE ROUTINE PAGE ORIENTED USTR4K00540
00550 . OCTALAL LOCATION 6 LINES PER 8 LINES PER USTR4K00550 I
00560 . 0456567 036 051 USTR4K00560
00570 . 0532325 036 051 USTR4K00570
00580 . 0600006 040 053 USTR4K00580
00590 . 2.9 ALL SELELECTIONS COMPLETE SS1 OFF SS3 OFF SS2 MODE USTR4K00590 S
00600 . DEPRESSSS CLEAR AND PROGRAM START USTR4K00600
00610 . USTR4K00610
00620 . 3. TEST DEDESCRIPTION. USTR4K00620 I
00630 . 3.1 PROCESSSSOR- THE PROCESSOR TEST IS A BREIF TEST OF USTR4K00630 E
00640 . EACH PRPROCESSOR INSTRUCTION EXCEPT MULTIPLY. THE USTR4K00640 R
00650 . MULTIPLPLY INSTRUCTION IS TESTED EXTENSIVELY WHILE USTR4K00650 R
00660 . RUNNINGNG PROCT. USTR4K00660 .
00670 . 3.2 READER-R- THE READER ROUTINE ACCEPTS ANY PRECESSED USTR4K00670 E
00680 . LEFT PAPATTERN PUNCHED WITH THE SENSE SW. OPTION USTR4K00680 P
00690 . OR THE E NORMAL PUNCH TEST. WHEN CHECKING SEQUENCE USTR4K00690
00700 . CARDS, , OUT OF SEQUENCE WILL BE PRINTED AS COMPARE USTR4K00700
00710 . ERRORS.S. WHEN THE SEQUENCE CHECK IS DELETED THE USTR4K00710 T
00720 . PATTERNRN IS SHIFTED LEFT AND COMPARED A MAXIMUM OF USTR4K00720 I
00730 . 80 OR 1 160 TIMES -DEPENDING ON MODE- BEFORE THE USTR4K00730 E
00740 . CARD ISIS CONSIDERED IN ERROR. WHEN PRINTED IT IS USTR4K00740 D
00750 . PRINTEDED EXACTLY AS PUNCHED USTR4K00750 L
00760 . 3.3 PUNCH- - THE PUNCH ROUTINE PUNCHES A PRECESS LEFT USTR4K00760 N
00770 . PATTERNRN -BINARY OR TRANSLATE-. THE PATTERN PUNCHED USTR4K00770 R
00780 . IS VERIRIFIED BY BOTH HOLE COUNT AND A COMPARE OF THE USTR4K00780 Y
00790 . SENSED D IMAGE. USTR4K00790
00800 . 3.4 PRINTERER- THE PRINTER ROUTINE PRINTS ALL CHARACTERS USTR4K00800 P
00810 . ALL COLOLUMNS, PRECESSED LEFT. THE ROUTINE IS PAGE USTR4K00810 P
00820 . ORIENTETED, 1 LINE UP FROM THE START POSITION FOR USTR4K00820 I
00830 . BOTH 6 6 AND 8 LINES PER INCH SPACING. USTR4K00830 L
00840 . USTR4K00840
00850 . 4. SPECIALAL OPERATING NOTES. USTR4K00850 T
00860 . 4.1 USING O OUT OF SEQUENCE CARDS IN THE READER MAY USTR4K00860 S
00870 . CAUSE A A PROGRAM HESITATION. THIS IS NORMAL AND IS USTR4K00870 A
00880 . CAUSED D BY THE READER PATTERN BEING SHIFTED AND USTR4K00880
00890 . COMPARERED. REFERENCE TEST DESCRIPTION. USTR4K00890 E
00900 . 4.2 THE PROROGRAM MAY GO INTO A LOOP IF GENERAL CLEAR IS USTR4K00900 A
00910 . NOT DEPEPRESSED BEFORE A RESTART FROM OPERATOR USTR4K00910
00920 . REQUESTST OR ERROR STOP. SEE STOP DESCRIPTIONS FOR USTR4K00920 R
00930 . EXCEPTITIONS. USTR4K00930
00940 . 4.3 THE PUNUNCH SEQUENCE DECK IS MAINTAINED ON ALL STOPS. USTR4K00940 U
00950 . THERE I IS A BLANK CARD INSERTED IN THE SEQUENCE USTR4K00950 A
00960 . DECK ATAT ANY POINT THAT SEQUENCE SHOULD BE VERIFIED USTR4K00960 O
00970 . MANUALLLLY. TO RESTART SEQUENCE RETURN TO LOAD USTR4K00970 R
00980 . PATTERNRN PROCEDURE. USTR4K00980 D
00990 . 4.4 AT LEASAST ONE CARD MUST BE PUNCHED USING PUNCH USTR4K00990 C
01000 . SEQUENCNCE DATA DECK OPTION -SS3- BEFORE THE MAIN USTR4K01000
01010 . PROGRAMAM IS RUN. USTR4K01010 N
01020 . 4.5 THE TESEST PATTERN IN USE BY THE READER AND PUNCH USTR4K01020 E
01030 . MAY BE E CHANGED AT ANY TIME BY RETURNING TO THE USTR4K01030 D
01040 . LOAD STSTOP. USTR4K01040
01050 . 4.6 OPERATOTOR REQUEST WILL RETURN SYSTEM TO AN ORDERLY USTR4K01050 E
01060 . HALT ATAT ANYTIME. USTR4K01060 M
01070 . 4.7 PUNCH F FALSE HOLE COUNT ERRORS WILL BE DETECTED USTR4K01070 O
01080 . ALONG W WITH A NON READY INDICATION USTR4K01080 N
01090 . USTR4K01090
01100 . 5. STOP TABABLE AND ERROR DISPLAYED USTR4K01100
01110 . 5.1 DISPLAYAY EXPLANATION USTR4K01110
01120 . 300077777760 LOAD HALT, DATA ERROR PRINTED HALT USTR4K01120
01130 . 300000000160 READER, PUNCH TEST PATTERN LOADED USTR4K01130
01140 . 300000000260 READER COMPARE ERROR SEE NOTE 1,4 USTR4K01140
01150 . 300000000360 PUNCH COMPARE ERROR SEE NOTE 1,4 USTR4K01150
01160 . 300000000460 PRINTER ABNORMAL SEE NOTES 2,4 USTR4K01160
01170 . 300000000560 READER ABNORMAL SEE NOTES 3,4 USTR4K01170
01180 . 300000000660 PUNCH ABNORMAL SEE NOTES 3,4 USTR4K01180
01190 . 300000101060 PROCESSOR TEST ERR. PLACE SYSTEM USTR4K01190
01200 . 300000202060 PROCESSOR TEST ERR. ON SINGLE INST USTR4K01200
01210 . 300000303060 PROCESSOR TEST ERR. STEP THROUGH USTR4K01210
01220 . 300000404060 PROCESSOR TEST ERR. TEST UNTIL THE USTR4K01220
01230 . 300000505060 PROCESSOR TEST ERR. ERROR IS DET-- USTR4K01230
01240 . 300000606060 PROCESSOR TEST ERR. ECTED.ALL STOP USTR4K01240
01250 . 300000707060 PROCESSOR TEST ERR. RETURN TO BEG- USTR4K01250
01260 . 300000707160 PROCESSOR TEST ERR. INNING OF PROC USTR4K01260
01270 . 300000707260 PROCESSOR TEST ERR. TEST SEE CODE USTR4K01270
01280 . EDIT USTR4K01280
01290 . 300011111160 DECIMAL OVERFLOW. CHECK LOCATION USTR4K01290
01300 . 0511,0512,0513 TO DETERMINE WHERE USTR4K01300
01310 . OVERFLOW OCCURRED, CONSTANT DATA MAY USTR4K01310
01320 . HAVE TO BE RESTORED-SEE CODE EDIT. USTR4K01320
01330 . D1-D2-D3-D4 USTR4K01330
01340 . 300044444460 PRINTER CANNOT DISPLAY ERRORS NOTE 4 USTR4K01340
01350 . 300000707360 INPUT-OUTPUT ABNORMAL DISPLAYED USTR4K01350
01360 . ON PRINTER TAKE NECESSARY ACTION AND USTR4K01360
01370 . DEPRESS CLEAR AND PROGRAM START USTR4K01370
01380 . 5.2 STOP NONOTES USTR4K01380
01390 . 5.2.1 NOTE 1 1 DEPRESS PROGRAM START TO DISPLAY COMPARE USTR4K01390 S
01400 . E ERRORS IN THE FOLLOWING FORMAT USTR4K01400 I
01410 . SEQUENCNCE ERRORS ON READER ARE PRINTED AS THE CARD USTR4K01410 R
01420 . IS PUNCNCHED. BLANK CARDS ARE DISPLAYED AS SPACES USTR4K01420 L
01430 . 5.2.1.1 TRANSLALATE MODE USTR4K01430 E
01440 . PRINTERER COLUMN CORRESPONDS TO CARD COLUMN USTR4K01440 N
01450 . XXX-X--IMAGE SHOULD HAVE BEEN--XXX READER OR PUNCH USTR4K01450
01460 . XXX-X--IMAGE WAS---------------XXX USTR4K01460
01470 . 5.2.1.2 BINARY Y MODE USTR4K01470
01480 . PRINTERER COLUMN CORRESPONDS TO CARD COLUMN FOR FIRST USTR4K01480 N
01490 . 128 COLOLUMNS THEN PRINTER COLUMN PLUS 128 EQUALS USTR4K01490 T
01500 . CARD COCOLUMN. USTR4K01500
01510 . BINARY Y DATA IS DISPLAYED IN MACHINE CODE FORMAT IE. USTR4K01510 S
01520 . CARD ROROW 12 11 0 1 2 3 USTR4K01520 1
01530 . CARD ROROW 4 5 6 7 8 9 USTR4K01530
01540 . 0 0 0 0 0 1 EQUALS & USTR4K01540
01550 . 0 0 0 1 0 0 EQUALS 1 USTR4K01550
01560 . 0 0 1 1 1 1 EQUALS > 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 --}