000001 C401 U6CRT CODEDIT SOURCE 04/65 AC B T3834394-404@
002000 00010 T400 BEGIN 02000 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 002000 3007010660 * JD 070106 *
* 002005 3000200000 * J $-5 *
SEGMENT-ID T401 3000200000 * 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 T402 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 T403 3000136300 * SEGJP $ *
002000 ORIG 02000
* 002000 1000204600 00020 JR XDS U6CRT 00020
* 002005 1000266000 00030 JR XDUMP U6CRT 00030
* 002012 3000200020 00040 JHJ $-10 U6CRT 00040
* 002017 3000201700 00050 XCTAD J $ U6CRT 00050
* 002024 1000211600 00060 JR XDCLR U6CRT 00060
* 002031 1000222400 00070 JR XDPR U6CRT 00070
* 002036 3000201700 00080 J XCTAD U6CRT 00080
000207 00090 XADVC EQU 0207 U6CRT 00090
* 002043 3000204300 00100 XDS J $ U6CRT 00100
* 002050 3000223351 00110 JC XD2-10,4,41 U6CRT 00110
002055 5200353761 00120 SAR XDR0+31 1 U6CRT 00120
002062 2600003714 00130 PD 31,12 U6CRT 00130
002067 2000052005 00140 FT 0520,5 U6CRT 00140
002074 2007777706 00150 FT 077777,6,6 U6CRT 00150
002101 4400266102 00160 SC XDUMP+4,4,2 U6CRT 00160
* 002106 3000204300 00170 J XDS U6CRT 00170
* 002113 3000211300 00180 XDCLR J $ U6CRT 00180
002120 4400215010 00190 SC $+24,8 U6CRT 00190
002125 2000030315 00200 FT 0303,13 3 U6CRT 00200
002132 2720301400 00210 PD XDAR+15-5-0303,16,5 U6CRT 00210 6
002137 6000006720 00220 AC 067,16 U6CRT 00220
* 002144 3200213200 00230 JL $-10,0 U6CRT 00230
002151 2000330015 00240 FT XDAR,13 3 U6CRT 00240
* 002156 3000211300 00250 J XDCLR U6CRT 00250
002163 4400020702 00260 SC XADVC,2 2 U6CRT 00260
002170 2000330040 00270 FT XDAR,32 2 U6CRT 00270
* 002175 3000220231 00280 JC $+5,25 U6CRT 00280
002202 4000407777 00290 XF 32,0777777,0,0 U6CRT 00290
002207 4000620000 00300 XF 062,0,0,0,0 U6CRT 00300
* 002214 1000211600 00310 JR XDCLR U6CRT 00310
* 002221 3000222100 00320 XDPR J $ U6CRT 00320
* 002226 3000216300 00330 J XDPR-30 0 U6CRT 00330
002237 0000000073 00340 +5 59 U6CRT 00340
* 002240 1000222442 00350 JR XDPR,34 4 U6CRT 00350
* 002245 3000224500 00360 XD2 J $ U6CRT 00360
002252 4400244600 00370 SC $+124,0 0 U6CRT 00370
002257 4400244104 00380 SC $+114,4 4 U6CRT 00380
002264 4400261203 00390 SC XD1+64,3,3 U6CRT 00390
002271 4400253070 00400 SC XD1+14,5,56 U6CRT 00400
002276 2000006116 00410 FT 061,14 U6CRT 00410
* 002303 1000251500 00420 JR XD1 U6CRT 00420
002310 2337777041 00430 ZS -8,1,5 U6CRT 00430
002315 4400243402 00440 SC $+79,2 U6CRT 00440
002322 4400261200 00450 SC XD1+64,0,0 U6CRT 00450
002327 4400253000 00460 SC XD1+14,0,0 U6CRT 00460
002334 4600006316 00470 BT 063,14 U6CRT 00470
002341 7400223716 00480 CT XD2-6,1414 U6CRT 00480
* 002346 1000251541 00490 JR XD1,33 U6CRT 00490
002353 2140350016 00500 FT XDR0,14,4,6 U6CRT 00500
* 002360 1000251544 00510 JR XD1,36 U6CRT 00510
002365 2157430016 00520 FT -XDR0,1414,6 U6CRT 00520
002372 4600007314 00530 BT 073,12 U6CRT 00530
002377 5737777512 00540 BA1 -3,10,5 5 U6CRT 00540
002404 7000361152 00550 CB1 XDR0+73,3,10 U6CRT 00550
* 002411 3000243042 00560 JE $+15 U6CRT 00560
002416 4400244670 00570 SC $+24,56 6 U6CRT 00570
002423 5200361112 00580 SA1 XDR0+73,3,10 U6CRT 00580
* 002430 3200232200 00590 JL $-70,0 U6CRT 00590
* 002435 3200226400 00600 JL XD2+15,0,0 U6CRT 00600
* 002442 3000246600 00610 JC $+20,0 U6CRT 00610
* 002447 1000222400 00620 JR XDPR U6CRT 00620
002454 4400247200 00630 SC $+14,0 U6CRT 00630
* 002461 3000225200 00640 J XD2+5 U6CRT 00640
* 002466 1000202200 00650 JR XCTAD,0 0 U6CRT 00650
002473 4400247270 00660 SC $-1,56 U6CRT 00660
* 002500 1000211600 00670 JR XDCLR U6CRT 00670
* 002505 3000225200 00680 J XD2+5 U6CRT 00680
* 002512 3000251200 00690 XD1 J $ U6CRT 00690
002517 5740000001 00700 BA1 0,1,6 U6CRT 00700
* 002524 3000262500 00710 JC $+65,0 U6CRT 00710
002531 2600001601 00720 PD 14,1 U6CRT 00720
002536 1600001723 00730 BS2 15,3 U6CRT 00730
002543 1600001753 00740 BC1 15,3 U6CRT 00740
002550 2720000122 00750 PD0 1,2,5 U6CRT 00750
002555 7320000102 00760 AB1 1,2,5 U6CRT 00760
002562 6000006702 00770 AC 067,2 U6CRT 00770
002567 7400007313 00780 CT 073,11 U6CRT 00780
* 002574 3000224042 00790 JE XD2-5 U6CRT 00790
002601 6000007301 00800 AC 073,1 U6CRT 00800
* 002606 3200251700 00810 JL $-55,0 U6CRT 00810
002613 6000006702 00820 AC 067,2 U6CRT 00820
* 002620 3000251200 00830 J XD1 U6CRT 00830
002625 5320000001 00840 SA1 0,1,5 U6CRT 00840
002632 6000006701 00850 AC 067,1 U6CRT 00850
* 002637 3000256700 00860 J $-40 U6CRT 00860
002654 END PRINT 00870 +9 _END PRIRINT_ U6CRT 00870
* 002655 3000265502 00880 XDUMP JC $,2 U6CRT 00880
* 002662 3000322340 00890 JC XDUEX,3232 U6CRT 00890
002667 5600005700 00900 BA1 057,16 U6CRT 00900
002674 5200005734 00910 SA2 057,12 U6CRT 00910
002701 5600007720 00920 BA2 077,16 U6CRT 00920
002706 5200357761 00930 SAR XDR0+63 3 U6CRT 00930
002713 2600007314 00940 PD 073,12 U6CRT 00940
* 002720 1000211600 00950 JR XDCLR U6CRT 00950
002725 5600040730 00960 BA2 0407,8 U6CRT 00960
002732 4600020705 00970 BT 0207,5 U6CRT 00970
002737 4600020304 00980 BT 0203,4 U6CRT 00980
002744 2000216303 00990 FT XDPR-30,0,3 U6CRT 00990
002751 5200040703 01000 SA1 0407,3 U6CRT 01000
002756 4400233370 01010 SC XD2+54,5,56 U6CRT 01010
002763 1400266104 01020 LC XDUMP+4,4,4 U6CRT 01020
* 002770 3000301442 01030 JE $+20 U6CRT 01030
002775 1400266102 01040 LC XDUMP+4,4,2 U6CRT 01040
* 003002 3000303343 01050 JU $+25 U6CRT 01050
003007 2000042013 01060 FT 0420,11 1 U6CRT 01060
003014 2060007713 01070 FT 077,11,3,3 U6CRT 01070
003021 4400232604 01080 SC XD2+49,4,4 U6CRT 01080
* 003026 1000225000 01090 JR XD2 U6CRT 01090
003033 4600004714 01100 BT 047,12 U6CRT 01100
003040 4600005313 01110 BT 053,11 U6CRT 01110
003045 4400232605 01120 SC XD2+49,5,5 U6CRT 01120
003052 1400266101 01130 LC XDUMP+4,4,1 U6CRT 01130
* 003057 3000307643 01140 JU $+15 U6CRT 01140
003064 4400232612 01150 SC XD2+49,1,10 U6CRT 01150
003071 4400233300 01160 SC XD2+54,0,0 U6CRT 01160
* 003076 1000225000 01170 JR XD2 U6CRT 01170
003103 2000004516 01180 FT 045,14 U6CRT 01180
003110 4400253070 01190 SC XD1+14,5,56 U6CRT 01190
003115 4400261207 01200 SC XD1+64,7,7 U6CRT 01200
* 003122 1000251500 01210 JR XD1 U6CRT 01210
003127 2737776702 01220 PD -9,2,5 U6CRT 01220
003134 5600265411 01230 BA1 XDUMP-1,1,9 U6CRT 01230
003141 5320001011 01240 SA1 8,9,5 U6CRT 01240
* 003146 1000222400 01250 JR XDPR U6CRT 01250
* 003153 1000202200 01260 JR XCTAD U6CRT 01260
* 003160 3000223352 01270 JC XD2-10,4,42 U6CRT 01270
003165 5200040730 01280 SA2 0407,8 U6CRT 01280
003172 4200020705 01290 ST 0207,5 U6CRT 01290
003177 4200020306 01300 ST 0203,6 U6CRT 01300
003204 5600355700 01310 BA1 XDR0+05757,16 U6CRT 01310
003211 5600357720 01320 BA2 XDR0+07777,16 U6CRT 01320
003216 5200007761 01330 SAR 077 U6CRT 01330
003223 5600351700 01340 XDUEX BA1 XDR0+01717,16 U6CRT 01340
003230 5600353720 01350 BA2 XDR0+03737,16 U6CRT 01350
* 003235 3000265500 01360 J XDUMP U6CRT 01360
003300 01370 ORIG $,64 U6CRT 01370
003300 200 01380 XDAR AREA 0200 U6CRT 01380
003500 112 01390 XDR0 AREA 74 U6CRT 01390
* 003612 3000000060 01400 START JD 0 UNISERVO 6C CUSTOMER RELIABILITY TEST U6CRT 01400 S
003617 2001116003 01410 FT C0INT,3 3 U6CRT 01410
003624 5200040703 01420 SA1 263,3 U6CRT 01420
003631 4400040030 01430 SC 256,030 0 U6CRT 01430
003636 4400040431 01440 SC 260,25 U6CRT 01440
003643 2001360503 01450 FT C1INT,3 3 SET UNUSED CHANNEL U6CRT 01450
003650 2000041711 01460 FT 271,X1 INTERRUPT LOCATIONS U6CRT 01460
003655 5220000003 01470 SA1 0,3,X1 U6CRT 01470
003662 2020001011 01480 FT 8,X1,X1 1 U6CRT 01480
003667 6000001705 01490 AC AR1,5 U6CRT 01490
003674 7001511043 01500 CB1 CHLIM,3 3 U6CRT 01500
* 003701 3000365544 01510 JS $-20 U6CRT 01510
003706 2001517211 01520 FT SVTBL,X1X1 U6CRT 01520
003713 4401517000 01530 SC SVOLM,0 0 SET LIMIT EQUAL TOTAL U6CRT 01530
003720 3420000077 01540 CC 0,077,X1X1 NUMBER OF SERVOS U6CRT 01540
* 003725 3000375142 01550 JE $+20 U6CRT 01550
003732 2020000111 01560 FT 1,X1,X1 1 U6CRT 01560
003737 6001517001 01570 AC SVOLM,1 1 U6CRT 01570
* 003744 3000372000 01580 J $-20 U6CRT 01580
003751 3401517001 01590 CC SVOLM,1 1 U6CRT 01590
* 003756 3000377543 01600 JU $+15 U6CRT 01600
003763 2000734203 01610 FT ALPH2,3 3 U6CRT 01610
003770 5200731403 01620 SA1 ALPH+3,3,3 SET ALPH2 FOR 1 SVO U6CRT 01620
003775 5601515210 01630 BA1 CTST-1,8,8 U6CRT 01630
004002 5200003710 01640 SA1 AR2,8 U6CRT 01640
004007 2001130107 01650 FT C5INT,7 7 U6CRT 01650
004014 2001243103 01660 FT C4INT,3 3 U6CRT 01660
004021 4401366277 01670 SC C4TS1-3,3,63 U6CRT 01670
004026 4401370077 01680 SC C5TS1-3,3,63 U6CRT 01680
004033 2601374204 01690 PD S0CC,4 U6CRT 01690
004040 2601405004 01700 PD S1CC,4 U6CRT 01700
004045 4400000430 01710 SC 4,030 U6CRT 01710
004052 2000734201 01720 FT ALPH2,1 1 IF ALPH=ALPH1 CH 4 AND CH 5 ARE USED U6CRT 01720
004057 7400731401 01730 CT ALPH+3,1,1 =ALPH2 CH 5 IS USED U6CRT 01730
* 004064 3000410342 01740 JE $+15 U6CRT 01740
* 004071 3000411544 01750 JS $+20 U6CRT 01750
004076 5200044710 01760 SA1 295,8 SET CHANNEL 4 INTERRUPT U6CRT 01760
004103 5200045730 01770 SA2 303,8 SET CHANNEL 5 INTERRUPT U6CRT 01770
* 004110 3000412200 01780 J $+10 U6CRT 01780
004115 5200044710 01790 SA1 295,8 U6CRT 01790
004122 4400675400 01800 SC ABAM+4,0,0 SET NO ABA MODE U6CRT 01800
004127 4601511417 01810 BT STST,X7 7 U6CRT 01810
004134 4201515317 01820 ST CTST,X7 7 U6CRT 01820
004141 4601515317 01830 CRT1 BT CTST,X7 7 U6CRT 01830
004146 1401516701 01840 LC TIND,1 SET TEST ADDRESS IN IR7 AND CTST U6CRT 01840 E
004153 1601516755 01850 BC1 TIND,5 IR7 U6CRT 01850
* 004160 3000423542 01860 JE CRT2-5 U6CRT 01860
004165 2160000717 01870 CRT1A FT 7,X7,X7 7 U6CRT 01870
004172 7401512017 01880 CT TSTLM,X7X7 U6CRT 01880
* 004177 3000421141 01890 JG $+10 U6CRT 01890
* 004204 3000414600 01900 J CRT1+5 U6CRT 01900
004211 3400675402 01910 CC ABAM+4,0,02 U6CRT 01910
* 004216 3000412242 01920 JE CRT1-15 5 U6CRT 01920
004223 4400675402 01930 SC ABAM+4,0,02 SET ABA MODE U6CRT 01930
* 004230 3000412700 01940 J CRT1-10 0 U6CRT 01940
004235 4201515317 01950 ST CTST,X7 7 U6CRT 01950
004242 4400427206 01960 CRT2 SC $+24,6 U6CRT 01960
004247 2001543311 01970 FT EAREA,X1X1 U6CRT 01970
004254 2620001700 01980 PD 15,16,X1X1 CLEAR ERROR COUNTS U6CRT 01980
004261 2020002011 01990 FT 16,X1,X1X1 U6CRT 01990
* 004266 3200425400 02000 JL $-10,0 U6CRT 02000
004273 4601513016 02010 BT SSTST,X6X6 SET SUB-TEST NUMBER U6CRT 02010
004300 4201373616 02020 ST S0CST,X6X6 IN SERVO TABLES U6CRT 02020
004305 4201404416 02030 ST S1CST,X6X6 U6CRT 02030
004312 2001566103 02040 FT DAREA,3 3 SET DATA AREA BASE IN U6CRT 02040
004317 5201372603 02050 SA1 S0DAT,3 3 SERVO TABLES U6CRT 02050
004324 5601516323 02060 BA2 BLKMX,3 3 U6CRT 02060
004331 7200001723 02070 AB2 AR1,3 U6CRT 02070
004336 5201403403 02080 SA1 S1DAT,3 3 U6CRT 02080
004343 4400470340 02090 SC C4S1+4,3,32 SET C4S1A U6CRT 02090
004350 4400453240 02100 SC C5S1+4,3,32 SET C5S1A U6CRT 02100
004355 5601513505 02110 BA1 SETJ1+4,4,5 U6CRT 02110
004362 5201377705 02120 SA1 S0IXF+4,4,5 INITIAL ENTRANCE FOR U6CRT 02120
004367 5201410505 02130 SA1 S1IXF+4,4,5 SERVO INDICATORS U6CRT 02130
004374 2001517203 02140 FT S0ADD,3 3 U6CRT 02140
004401 5201373203 02150 SA1 S0SNA,3 3 SET SERVO NUMBER U6CRT 02150
004406 6000001701 02160 AC AR1,1 ADDRESSES IN SERVO TABLES U6CRT 02160
004413 5201404003 02170 SA1 S1SNA,3 3 U6CRT 02170
004420 2000000013 02180 FT S0TBL,X3X3 U6CRT 02180
004425 4661373215 02190 BT S0SNA,X5X5,X3 U6CRT 02190
* 004432 1000660700 02200 JR SETEB SET ERROR COUNT BASE U6CRT 02200
004437 2000010613 02210 FT S1TBL,X3X3 ADDRESSES U6CRT 02210
004444 4661373215 02220 BT S0SNA,X5X5,X3 U6CRT 02220
* 004451 1000660700 02230 JR SETEB U6CRT 02230
004456 4401517100 02240 SC SVOCT,0 0 SVOCT EQUAL ZERO U6CRT 02240
004463 2601367605 02250 PD IND4,5 CLEAR CH 4 INDICATORS U6CRT 02250
004470 2601371405 02260 PD IND5,5 CLEAR CH 5 INDICATORS U6CRT 02260
004475 4401366677 02270 SC C4TS2-3,3,63 U6CRT 02270
004502 4401370477 02280 SC C5TS2-3,3,63 U6CRT 02280
* 004507 3000731100 02290 J ALPH U6CRT 02290
* 004514 3000451400 02300 ISXF5 J $ ISSUE XF ON CHANNEL 5 U6CRT 02300 U
004521 4400464540 02310 SC C5S2+4,3,32 SET C5S2A U6CRT 02310
* 004526 3000465340 02320 C5S1 JC C5S1B,3232 U6CRT 02320
004533 4201370313 02330 C5S1A ST C5TS1,X3X3 STORE CURRENT VALUE OF X3 U6CRT 02330
004540 4400453200 02340 ISF5A SC $-6,0 SET C5S1B U6CRT 02340
004545 5661375645 02350 BD1 S0BCD,5,5,X3 U6CRT 02350
004552 6601516005 02360 AD1 DCML1,5 5 INCREMENT BLOCK COUNT U6CRT 02360
004557 5261375605 02370 SA1 S0BCD,5,5,X3 U6CRT 02370
004564 4661372614 02380 BT S0DAT,X4X4,X3 U6CRT 02380
004571 5300000405 02390 SA1 4,5,X4 STORE IN DATA AREA U6CRT 02390
004576 5661372205 02400 REIS5 BA1 S0XF,5,X,X3 BRING XF FROM SERVO TABLE U6CRT 02400
004603 6400001420 02410 LS 12,020 SET CHANNEL 5 IN XF U6CRT 02410
004610 4661372664 02420 BT S0DAT,5252,X3 SET BASE ADDRESS U6CRT 02420
004615 4661374265 02430 BT S0CC,53,3,X3 SET CHARACTER COUNT U6CRT 02430
004622 4661372666 02440 BT S0DAT,5454,X3 SET SPECIAL TETRAD U6CRT 02440
004627 5200464005 02450 SA1 $+9,5 STORE XF TO BE EXECUTED U6CRT 02450
* 004634 3000463400 02460 J $ U6CRT 02460
* 004641 3001145240 02470 C5S2 JC C5I2,32 2 U6CRT 02470
* 004646 3000750633 02480 JC INDLA,2727 RELEASE I/O INHIBIT AND EXIT U6CRT 02480
004653 4201370713 02490 C5S1B ST C5TS2,X3X3 U6CRT 02490
* 004660 3000750633 02500 JC INDLA,2727 U6CRT 02500
* 004665 3000466500 02510 ISXF4 J $ ISSUE XF ON CHANNEL 4 U6CRT 02510 U
004672 4400501140 02520 SC C4S2+4,3,32 SET C4S2A U6CRT 02520
* 004677 3000501740 02530 C4S1 JC C4S1B,3232 U6CRT 02530
004704 4201366513 02540 C4S1A ST C4TS1,X3X3 STORE CURRENT VALUE OF X3 U6CRT 02540
004711 4400470300 02550 ISF4A SC $-6,0 SET C4S1B U6CRT 02550
004716 5661375645 02560 BD1 S0BCD,5,5,X3 U6CRT 02560
004723 6601516005 02570 AD1 DCML1,5 5 INCREMENT BLOCK COUNT U6CRT 02570
004730 5261375605 02580 SA1 S0BCD,5,5,X3 U6CRT 02580
004735 4661372614 02590 BT S0DAT,X4X4,X3 U6CRT 02590
004742 5300000405 02600 SA1 4,5,X4 STORE BLOCK NUMBER IN DATA AREA U6CRT 02600
004747 5661372205 02610 REIS4 BA1 S0XF,5,X,X3 BRING XF FROM SERVO TABLE U6CRT 02610
004754 4661372660 02620 BT S0DAT,4848,X3 SET BASE ADDRESS U6CRT 02620
004761 4661374261 02630 BT S0CC,49,9,X3 SET CHARACTER COUNT U6CRT 02630
004766 4661372662 02640 BT S0DAT,5050,X3 SET SPECIAL TETRAD U6CRT 02640
004773 5200500405 02650 SA1 $+9,5 STORE XF TO BE ISSUED U6CRT 02650
* 005000 3000500000 02660 J $ U6CRT 02660
* 005005 3001260240 02670 C4S2 JC C4I2,32 2 U6CRT 02670
* 005012 3000741733 02680 JC INDLP,2727 RELEASE I/O INHIBIT AND EXIT U6CRT 02680
005017 4201367113 02690 C4S1B ST C4TS2,X3X3 U6CRT 02690
* 005024 3000741733 02700 JC INDLP,2727 U6CRT 02700
005031 5601127223 02710 RWND1 BA2 C0OUT+4,4,3 REWIND WITH NO LOCKOUT U6CRT 02710
* 005036 1000667100 02720 JR SUB1 U6CRT 02720
* 005043 1061377632 02730 JR ISSXF,2626,X3 ISSUE REWIND SET I/O INH. U6CRT 02730
* 005050 1001016500 02740 JR CTTS COMPARE TETRADS U6CRT 02740
005055 2000000103 02750 FT 1,3 INTERRUPT U6CRT 02750
005062 7061375143 02760 CB1 S0BCB,3,3,X3 CHECK FOR 1 INTERRUPT U6CRT 02760
* 005067 1000715542 02770 JR SUB3,34 4 NEXT SERVO U6CRT 02770
005074 5641367721 02780 BA2 ALPHC,1,1,X2 U6CRT 02780
005101 6000003775 02790 AC AR2,075 5 U6CRT 02790
005106 1600003713 02800 BS1 AR2,3 U6CRT 02800
005113 5200512221 02810 SA2 RWND2+2,2,1 U6CRT 02810
* 005120 3000401060 02820 RWND2 JD 04010 REWIND COUNT NOT EQUAL 1 U6CRT 02820 N
* 005125 1000715500 02830 JR SUB3 GO TO NEXT SERVO U6CRT 02830
005132 2002000007 02840 WRIT1 FT 020000,7,7 WRITE W/NO LOCKOUT U6CRT 02840
* 005137 1000667100 02850 JR SUB1 U6CRT 02850
005144 4401162740 02860 SC C5S4+4,3,32 SET C5S4A U6CRT 02860
* 005151 1001103600 02870 WRS1 JR DGEN GENERATE DATA U6CRT 02870
005156 2000520203 02880 FT WRITB,3 3 U6CRT 02880
005163 5261377603 02890 SA1 S0IXF+3,3,3,X3 SET WRITE REENTRY U6CRT 02890
* 005170 1000451732 02900 JR ISXF5,2626 ISSUE WRITE INHIBIT INTERRUPT U6CRT 02900 S
* 005175 1001036700 02910 JR CTTN COMPARE TETRADS U6CRT 02910
005202 3461375100 02920 WRITB CC S0BCB,0,0,X3 CHANGE CHARACTER COUNT IF LSC U6CRT 02920
* 005207 1000704742 02930 JR SUB2,34 4 OF BLK COUNT IS 0 U6CRT 02930
005214 5661375103 02940 BA1 S0BCB,3,3,X3 U6CRT 02940
005221 7001516643 02950 CB1 BLKLM,3 3 U6CRT 02950
* 005226 3000515143 02960 JU WRS1 U6CRT 02960
* 005233 1000715500 02970 JR SUB3 U6CRT 02970
005240 2001000007 02980 READ1 FT 010000,7,7 READ W/NO LOCKOUT U6CRT 02980
* 005245 1000667100 02990 JR SUB1 U6CRT 02990
* 005252 1061377632 03000 READA JR ISSXF,2626,X3 ISSUE READ U6CRT 03000
* 005257 1001036700 03010 JR CTTN COMPARE TETRADS U6CRT 03010
* 005264 1061401000 03020 JR CMP1,,X3X3 U6CRT 03020
005271 3461375100 03030 CC S0BCB,0,0,X3 U6CRT 03030
* 005276 1000704742 03040 JR SUB2,34 4 CHANGE CHARACTER COUNT U6CRT 03040
005303 5661375103 03050 BA1 S0BCB,3,3,X3 EVERY 64 BLOCKS U6CRT 03050
005310 7001516643 03060 CB1 BLKLM,3 3 BLOCK LIMIT CHECK U6CRT 03060
* 005315 3000525243 03070 JU READA U6CRT 03070
* 005322 1000715500 03080 JR SUB3 U6CRT 03080
005327 2001100007 03090 BSP1 FT 011000,7,7 BACKSPACE W/NO LOCKOUT U6CRT 03090
* 005334 1000667100 03100 JR SUB1 U6CRT 03100
* 005341 1061377632 03110 BSPA JR ISSXF,2626,X3 ISSUE BACKSPACE U6CRT 03110
* 005346 1001016500 03120 JR CTTS COMPARE TETRADS U6CRT 03120
005353 5661375103 03130 BA1 S0BCB,3,3,X3 U6CRT 03130
005360 7001516643 03140 CB1 BLKLM,3 3 CHECK BLOCK LIMIT U6CRT 03140
* 005365 3000534143 03150 JU BSPA U6CRT 03150
* 005372 1000715500 03160 JR SUB3 U6CRT 03160
005377 2001000007 03170 READ2 FT 010000,7,7 READ ONE BLOCK NO LOCKOUT U6CRT 03170
* 005404 1000667100 03180 JR SUB1 U6CRT 03180
* 005411 1061377632 03190 JR ISSXF,2626,X3 ISSUE READ U6CRT 03190
* 005416 1001036700 03200 JR CTTN COMPARE TETRADS U6CRT 03200
* 005423 1061401000 03210 JR CMP1,,X3X3 U6CRT 03210
* 005430 1000715500 03220 JR SUB3 NEXT SERVO U6CRT 03220
* 005435 3000000140 03230 END JC 01,32 END OF TEST U6CRT 03230
005442 4601515317 03240 BT CTST,X7 7 U6CRT 03240
* 005447 3000424262 03250 JC CRT2,50 0 REPEAT CURRENT TEST IF SSW 1 IS SET U6CRT 03250 P
* 005454 3000416500 03260 J CRT1A U6CRT 03260
005461 2001430011 03270 PRINT FT PA1-15,X,X1 PRINT TOTALS AT END OF U6CRT 03270
005466 2000000007 03271 FT 0,7 U6CRT 03271
* 005473 1000667100 03272 JR SUB1 U6CRT 03272
005500 5601470203 03280 BA1 ATOT,3 TEST U6CRT 03280
* 005505 1000567300 03290 JR EDIT1 U6CRT 03290
005512 5601516603 03300 BA1 BLKLM,3 3 BLOCK LIMIT U6CRT 03300
* 005517 1001061000 03310 JR BINDC CONVERT TO DECIMAL U6CRT 03310
005524 5220010405 03320 SA1 WBLKS,5,5,X1 NUMBER OF BLOCKS WRITTEN U6CRT 03320
005531 5220014405 03330 SA1 RBLKS,5,5,X1 U6CRT 03330
005536 6220014405 03340 AM1 RBLKS,5,5,X1 U6CRT 03340
005543 5601516045 03350 BD1 DCML1,5 5 U6CRT 03350
005550 6220014405 03360 AM1 RBLKS,5,5,X1 NUMBER OF BLOCKS READ U6CRT 03360
005555 2600001710 03370 PD AR1,8 U6CRT 03370
005562 1461372102 03380 LC S0XF-1,0,02,X3 U6CRT 03380
* 005567 3000560143 03390 JU $+10 U6CRT 03390
005574 5601474510 03400 BA1 AMDE,8 U6CRT 03400
005601 5220007410 03410 SA1 AMOD,8,X,X1 U6CRT 03410
005606 4661376217 03420 BT S0ECT,X7X7,X3 U6CRT 03420
005613 5760000203 03430 BA1 2,3,X7 WRITE TPE CT U6CRT 03430
* 005620 1001061000 03440 JR BINDC U6CRT 03440
005625 5220012205 03450 SA1 WTPEC,5,5,X1 U6CRT 03450
005632 5760000503 03460 BA1 5,3,X7 READ TPE CT U6CRT 03460
* 005637 1001061000 03470 JR BINDC U6CRT 03470
005644 5220016205 03480 SA1 RTPEC,5,5,X1 U6CRT 03480
005651 2001430003 03490 FT PA1-15,3,3 BASE ADDRESS IN AR1 U6CRT 03490
* 005656 1001074200 03500 JR ISXFP PRINT U6CRT 03500
* 005663 1000715500 03510 JR SUB3 NEXT SERVO U6CRT 03510
* 005670 3000567000 03520 EDIT1 J $ U6CRT 03520
005675 5220001203 03530 SA1 PECDE,3,3,X1 STORE ERROR CODE U6CRT 03530
005702 5641367701 03540 BA1 ALPHC,1,1,X2 CHANNEL NUMBER U6CRT 03540
005707 5220002201 03550 SA1 PECH,1,X,X1 U6CRT 03550
005714 4661373217 03560 BT S0SNA,X7X7,X3 U6CRT 03560
005721 5760000001 03561 BA1 0,1,X7 U6CRT 03561
005726 2600001602 03570 PD 14,2 U6CRT 03570
005733 5400001717 03580 LP AR1,017 7 U6CRT 03580
* 005740 1001061000 03590 JR BINDC CONVERT TO DECIMAL U6CRT 03590
005745 5220003502 03600 SA1 PESVO,2,2,X1 U6CRT 03600
005752 4601515317 03610 BT CTST,X7 7 U6CRT 03610
005757 5760000603 03620 BA1 6,3,X7 U6CRT 03620
005764 5220005503 03630 SA1 PEMDE,3,3,X1 MEDE U6CRT 03630
005771 5760000303 03640 BA1 3,3,X7 U6CRT 03640
005776 5220004303 03650 SA1 PEDEN,3,3,X1 DENSITY U6CRT 03650
* 006003 3000567000 03660 J EDIT1 U6CRT 03660
* 006010 3000601000 03670 ERP J $ PRINT ERROR MESSAGES U6CRT 03670
006015 3401426540 03680 CC STST4+4,4,32 U6CRT 03680
* 006022 3000601042 03690 JE ERP DO NOT PRINT ERROR MESSSAGES U6CRT 03690 O
006027 5200613323 03700 SA2 PRS1+3,3,3 SET PRS1 U6CRT 03700
006034 2001450011 03710 FT PA2-15,X,X1 U6CRT 03710
* 006041 1000567300 03720 JR EDIT1 U6CRT 03720
006046 5661372203 03730 BA1 S0XF,3,X,X3 DECODE AND PRINT U6CRT 03730
* 006053 1000650600 03740 JR OCTAL FUNCTION AND DETAIL BITS U6CRT 03740
006060 5220013124 03750 SA2 XFDTL,4,4,X1 U6CRT 03750
006065 5600003322 03760 BA2 27,2 U6CRT 03760
006072 5220012422 03770 SA2 XFFNC,2,2,X1 U6CRT 03770
006077 5661375605 03780 BA1 S0BCD,5,5,X3 DECIMAL BLOCK COUNT FROM U6CRT 03780
006104 5220010405 03790 SA1 MBLK,5,X,X1 MEMORY U6CRT 03790
006111 4661372617 03800 BT S0DAT,X7X7,X3 U6CRT 03800
006116 5760000405 03810 BA1 4,5,X7 DECIMAL BLOCK COUNT U6CRT 03810
006123 5220011405 03820 SA1 TBLK,5,X,X1 TAPE U6CRT 03820
* 006130 3000613000 03830 PRS1 J $ PRINT SWITCH U6CRT 03830
006135 5641367701 03840 PRS1A BA1 ALPHC,1,1,X2 U6CRT 03840
006142 5400001710 03850 LP AR1,010 0 U6CRT 03850
006147 1600001711 03860 BS1 AR1,1 U6CRT 03860
006154 5200634501 03870 SA1 XFTST+1,1,1 SET CHANNEL NUMBER U6CRT 03870
* 006161 1000631600 03880 JR ERBDC DECODE ERROR BITS U6CRT 03880
* 006166 1000641700 03890 JR BALPH CONVERT TO ALPHA U6CRT 03890
006173 5201477034 03900 SA2 IND,12 U6CRT 03900
006200 2001474621 03910 FT INDPR,1717 TRANSFER U6CRT 03910
006205 2000004022 03920 ERP1 FT 32,18 32 CHARACTERS U6CRT 03920
006212 2401464041 03930 TTR PA2A+1 TO PRINT AREA U6CRT 03930
006217 2001450003 03940 FT PA2-15,3,3 BASE ADDRESS IN AR1 U6CRT 03940
* 006224 1001074200 03950 JR ISXFP ISSUE PRINT U6CRT 03950
* 006231 3000601000 03960 J ERP U6CRT 03960
006236 5601504002 03970 PRS1B BA1 DATS,2 DATA FROM TS U6CRT 03970
* 006243 1000641700 03980 JR BALPH CONVERT TO ALPHA U6CRT 03980
006250 5201502626 03990 SA2 MDAT,6 MEMORY DATA U6CRT 03990
006255 5600003106 04000 BA1 25,6 U6CRT 04000
006262 5201504006 04010 SA1 TDAT,6 TAPE DATA U6CRT 04010
006267 2001500621 04020 FT DATPR,1717 U6CRT 04020
* 006274 3000620500 04030 J ERP1 U6CRT 04030
006301 2001504621 04040 PRS1C FT PA2D-15,5,17 U6CRT 04040
* 006306 3000620500 04050 J ERP1 U6CRT 04050
* 006313 3000631300 04060 ERBDC J $ DECODE ERROR INDICATORS INTO LSC OF AR1 U6CRT 04060 O
006320 2600001702 04070 PD AR1,2 CLEAR AR1 U6CRT 04070
006325 4400634700 04080 SC XFTST+3,3,0 SET TEST BIT 1 U6CRT 04080
006332 4400635001 04090 SC XFTST+4,4,1 U6CRT 04090
006337 4400636714 04100 SC XFTST+1919,12 SET JL FOR 12 BITS U6CRT 04100
006344 4100000000 04110 XFTST XF 0,0,0,4 4 VARIABLE TEST INSTRUCTION U6CRT 04110
* 006351 3000637553 04120 JC ERDCD,4343 U6CRT 04120
006356 1600635021 04130 BS2 XFTST+4,4,1 SHIFT TEST BIT LEFT ONCE U6CRT 04130
* 006363 3200634400 04140 JL XFTST,0 0 U6CRT 04140
* 006370 3000631300 04150 J ERBDC EXIT WITH ERROR BITS U6CRT 04150
006375 5600635022 04160 ERDCD BA2 XFTST+4,4,2 DECODED INTO AR1 2 LSC U6CRT 04160
006402 7200001722 04170 AB2 AR1,2 U6CRT 04170
* 006407 3000635600 04180 J $-25 U6CRT 04180
* 006414 3000641400 04190 BALPH J $ CONVERT BINARY PATTERN IN AR1 TO ALPHA 1U6CRT 04190
006421 4400647514 04200 SC BALP2+4,4,12 U6CRT 04200
006426 2600003734 04210 PD0 31,12 U6CRT 04210
006433 4400646224 04220 SC BALP1+1313,20 U6CRT 04220
006440 5200002102 04230 SA1 17,2 U6CRT 04230
006445 2600001701 04240 BALP1 PD AR1,1 CLEAR LSC OF AR1 U6CRT 04240
006452 1600002131 04250 BS3 17,1 SHIFT IN NEXT BIT U6CRT 04250
006457 7200000001 04260 AB1 0,1 U6CRT 04260
006464 6000646201 04270 AC $-2,1 U6CRT 04270
* 006471 3200644500 04280 BALP2 JL BALP1,0 0 CONVERTED NUMBER IN AR2 12 LSC U6CRT 04280
* 006476 3000641400 04290 J BALPH U6CRT 04290
* 006503 3000650300 04300 OCTAL J $ CONVERT 18 BIT OCTAL NUMBER IN AR1 U6CRT 04300 V
006510 2600003726 04310 PD0 AR2,6 TO 6 CHARACTER ALPHA U6CRT 04310
006515 5200002203 04320 SA1 18,3 IN AR2 U6CRT 04320
006522 4400656333 04330 SC OCTA1+3,3,27 U6CRT 04330
006527 4400657603 04340 SC OCTA2+4,4,3 U6CRT 04340
006534 1600002206 04350 BS4 18,6 U6CRT 04350
006541 2600001601 04360 PD 14,1 U6CRT 04360
006546 1600001723 04370 BS2 AR1,3 U6CRT 04370
006553 1600001753 04380 BC1 AR1,3 U6CRT 04380
006560 7200003302 04390 OCTA1 AB1 27,2 U6CRT 04390
006565 6000656302 04400 AC OCTA1+3,3,2 U6CRT 04400
* 006572 3200653403 04410 OCTA2 JL $-30,3 U6CRT 04410
* 006577 3000650300 04420 J OCTAL U6CRT 04420
* 006604 3000660400 04430 SETEB J $ SESET ERROR COUNT BASE ADDRESS EQUAL U6CRT 04430 R
006611 2001543307 04440 FT EAREA,7 7 TO 6X(SVO NO� + EAREA U6CRT 04440
006616 5261376223 04450 SA2 S0ECT,3,3,X3 U6CRT 04450
006623 2600001704 04460 PD AR1,4 U6CRT 04460
006630 5720000001 04470 BA1 0,1,X5 SERVO NUMBER U6CRT 04470
006635 1600001711 04480 BS1 AR1,1 2X SERVO NO. U6CRT 04480
006642 7261376203 04490 AB1 S0ECT,3,3,X3 U6CRT 04490
006647 1600001721 04500 BS2 AR1,1 U6CRT 04500
006654 7261376203 04510 AB1 S0ECT,3,3,X3 4X SERVO NO. U6CRT 04510
* 006661 3000660400 04520 J SETEB U6CRT 04520
* 006666 3000666600 04530 SUB1 J $ U6CRT 04530
04540 . SETET XF IN SERVO TABLE W/DENSITY,MODE AND U6CRT 04540
04550 . SERERVO NUMBER,SET COMPARE LIMIT U6CRT 04550 B
006673 2000534103 04560 FT BSPA,3 U6CRT 04560
006700 7000667143 04570 CB1 SUB1+3,3,3 U6CRT 04570
* 006705 3000673142 04580 JE $+20 BACKSPACE IF EQUAL U6CRT 04580
006712 4601515317 04590 BT CTST,X7 7 U6CRT 04590
006717 5760000001 04600 BA1 0,1,X7 MODE AND DENSITY U6CRT 04600
006724 7200003601 04610 AB1 30,1 U6CRT 04610
006731 4400003341 04620 SC 27,041 U6CRT 04620
006736 5720000001 04630 BA1 0,1,X5 SERVO NUMBER U6CRT 04630
006743 5200003401 04640 SA1 28,1 U6CRT 04640
006750 6400003600 04650 ABAM LS 30,0 SET ADVANCE BASE ADDRESS MODE BIT IN AR1 U6CRT 04650 D
006755 5261372225 04660 SA2 S0XF,5,X,X3 STORE XF U6CRT 04660
006762 5601514205 04670 BA1 SETJ2+4,4,5 U6CRT 04670
006767 5261377705 04680 SA1 ISSXF+4,4,5,X3 U6CRT 04680
006774 2661375103 04690 PD S0BCB,3,3,X3 CLEAR BLOCK COUNTS U6CRT 04690
007001 2661375625 04700 PD0 S0BCD,5,5,X3 U6CRT 04700
007006 4461401600 04710 SC CMS1+4,0,0,X3 SET CMS1A U6CRT 04710
007013 2661375701 04720 PD S0TPC,1,1,X3 CLEAR ERROR COUNT TPE U6CRT 04720
007020 4461374140 04730 SC S0CC-1,0,040,X3 U6CRT 04730
* 007025 1000704700 04740 JR SUB2 INITIAL SETTING OF COMPARE U6CRT 04740
* 007032 1000660700 04741 JR SETEB U6CRT 04741
* 007037 3000666600 04750 J SUB1 LIMIT U6CRT 04750
* 007044 3000704400 04760 SUB2 J $ SET CHARACTER COUNT AND COMPARE LIMIT U6CRT 04760
007051 4400515500 04770 SC WRS1+4,0,0 SET WRS1B U6CRT 04770
007056 1661374231 04780 BS3 S0CC,1,X,X3 U6CRT 04780
007063 5661374204 04790 BA1 S0CC,4,X,X3 U6CRT 04790
007070 7001516343 04800 CB1 BLKMX,3 3 U6CRT 04800
* 007075 3000712144 04810 JS SUB2A U6CRT 04810
* 007102 3000712142 04820 JE SUB2A U6CRT 04820
007107 4461374210 04830 SC S0CC,8,X,X3 SET INITIAL CHAR. COUNT U6CRT 04830
007114 2661374103 04840 PD S0CC-1,3,3,X3 U6CRT 04840
007121 5661372624 04850 SUB2A BA2 S0DAT,4,4,X3 U6CRT 04850
007126 5261374624 04860 SA2 S0CLM,4,4,X3 U6CRT 04860
007133 5661374204 04870 BA1 S0CC,4,X,X3 U6CRT 04870
007140 7261374604 04880 AB1 S0CLM,4,4,X3 U6CRT 04880
* 007145 3000704400 04890 J SUB2 U6CRT 04890
* 007152 3000715200 04900 SUB3 J $ U6CRT 04900
007157 6000006702 04910 AC X5,2 INCREMENT SERVO NUMBER ADDR U6CRT 04910
007164 4261373215 04920 ST S0SNA,X5X5,X3 STORE NEW SERVO NO. ADDR U6CRT 04920
007171 6001517101 04930 AC SVOCT,1 1 U6CRT 04930
007176 3520000077 04940 CC 0,63,X5 5 U6CRT 04940
* 007203 3000721542 04950 JE SUB3A SERVO LIMIT REACHED FOR THIS U6CRT 04950
* 007210 3140000000 04970 J 0,X6 U6CRT 04970
007215 6061373605 04980 SUB3A AC S0CST,5,5,X3 INCREMENT CURRENT SUB-TEST U6CRT 04980
007222 5601517101 04990 BA1 SVOCT,1 1 U6CRT 04990
007227 7001517041 05000 CB1 SVOLM,1 1 U6CRT 05000
* 007234 3000741743 05010 JU INDLP U6CRT 05010
007241 4401517100 05020 SC SVOCT,0 0 U6CRT 05020
007246 2001517203 05030 FT S0ADD,3 3 U6CRT 05030
007253 2001517307 05040 FT S1ADD,7 7 SET SERVO NUMBER U6CRT 05040
007260 5201373203 05050 SA1 S0SNA,3 3 ADDRESSES U6CRT 05050
007265 5201404023 05060 SA2 S1SNA,3 3 U6CRT 05060
007272 5601513505 05070 BA1 SETJ1+4,4,5 U6CRT 05070
007277 5201377705 05080 SA1 S0IXF+4,4,5 U6CRT 05080
007304 5201410505 05090 SA1 S1IXF+4,4,5 U6CRT 05090
* 007311 3000731600 05100 ALPH J ALPH1 U6CRT 05100
007316 4401367640 05110 ALPH1 SC IND4,04040 U6CRT 05110
007323 4400000000 05120 SC 0,0 U6CRT 05120
007330 2000010600 05130 FT S1TBL,0 0 U6CRT 05130
007335 4201366500 05140 ST C4TS1,0 0 U6CRT 05140
007342 4400002000 05150 ALPH2 SC 16,0 U6CRT 05150
007347 2000000004 05160 FT S0TBL,4 4 U6CRT 05160
007354 4201370304 05170 ST C5TS1,4 4 U6CRT 05170
007361 4401371440 05180 SC IND5,04040 U6CRT 05180
* 007366 3000741700 05190 J INDLP U6CRT 05190
007373 4401367640 05200 ALPH3 SC IND4,04040 U6CRT 05200
007400 4400000000 05210 SC 0,0 U6CRT 05210
007405 2000010600 05220 FT S1TBL,0 0 U6CRT 05220
007412 4201366500 05230 ST C4TS1,0 0 U6CRT 05230
007417 2000001612 05240 INDLP FT C5TBL,X2X2 U6CRT 05240
007424 1401371440 05250 LC IND5,04040 CHANNEL 5 INDICATOR U6CRT 05250
* 007431 3000750643 05260 JU INDLA U6CRT 05260
007436 4641366513 05270 BT C4TS1,X3X3,X2 SET IR3 TO SERVO TABLE ADDRESS U6CRT 05270
007443 5661373614 05280 BA1 S0CST,1212,X3 U6CRT 05280
007450 5200007314 05290 SA1 X6,12 SET IR4,IR5,IR6 U6CRT 05290
007455 5641367104 05300 BA1 C4TS2,4,4,X2 MOVE NEXT XF UP U6CRT 05300
007462 5241366504 05310 SA1 C4TS1,4,4,X2 U6CRT 05310
007467 1641367611 05320 BS1 IND4,1,X,X2 RESET INTERRUPT INDICATOR U6CRT 05320
007474 4441366677 05330 SC C4TS2-3,3,63,X2 SET C4TS2 EMPTY U6CRT 05330
* 007501 3061377333 05340 JC ISSXF,2727,X3 EXIT TO ROUTINE U6CRT 05340
007506 2000000012 05350 INDLA FT C4TBL,X2X2 U6CRT 05350
007513 1401367640 05360 LC IND4,04040 CHANNEL 4 INDICATOR U6CRT 05360
* 007520 3000741743 05370 JU INDLP U6CRT 05370
* 007525 3000743600 05380 J INDLP+1515 U6CRT 05380
* 007532 3000753200 05390 CMP J $ COCOMPARE DATA U6CRT 05390 D
007537 5700000405 05400 BA1 4,5,X4 BLOCK COUNT FROM TAPE U6CRT 05400 C
007544 7061375645 05410 CB1 S0BCD,5,5,X3 BLOCK COUNT FROM MEMORY U6CRT 05410
* 007551 3000762142 05420 JE CMP01 U6CRT 05420
007556 2601504002 05430 PD DATS,2 CLEAR DATA TS U6CRT 05430
007563 5601470503 05440 BA1 ASEQ,3 U6CRT 05440
007570 2000623607 05450 CMP06 FT PRS1B,7 7 SET PRS1B U6CRT 05450
* 007575 1000601300 05460 JR ERP U6CRT 05460
* 007602 3000753263 05470 JC CMP,51 DO NOT STOP IF SSW 2 SET U6CRT 05470 N
* 007607 3000700160 05480 CMPD1 JD 07001 BLOCK SEQUENCE ERROR U6CRT 05480
* 007614 3000753200 05490 J CMP OR DATA COMPARE FAILURE U6CRT 05490 O
007621 6000006324 05500 CMP01 AC X4,20 INCREMENT IR4 U6CRT 05500
007626 2001523217 05510 FT DPAT+8,X,X7 U6CRT 05510
007633 1461374210 05520 LC S0CC,01010,X3 U6CRT 05520
* 007640 3000777242 05530 JE CMP04 U6CRT 05530
007645 1461374220 05540 LC S0CC,02020,X3 U6CRT 05540
* 007652 3000774642 05550 JE CMP03 U6CRT 05550
007657 5700000000 05560 CMP02 BA1 0,16,X4 4 DATA FROM TAPE U6CRT 05560
007664 7160000040 05570 CB1 0,16,X7 7 DATA FROM MEMORY U6CRT 05570
* 007671 3001001143 05580 JU CMPFL DATA COMPARE ERROR U6CRT 05580
007676 2160002017 05590 FT 16,X7,X7X7 INCREMENT IR7 U6CRT 05590
007703 7401512417 05600 CT DPLIM,X7X7 CHECK FOR LIMIT U6CRT 05600
* 007710 3000772244 05610 JS $+10 U6CRT 05610
007715 2177756017 05620 FT -144,X7,7,X7 U6CRT 05620
007722 2100002014 05630 FT 16,X4,X4X4 INCREMENT IR4 U6CRT 05630
007727 7461374614 05640 CT S0CLM,X4X4,X3 U6CRT 05640
* 007734 3000774641 05650 JG CMP03 U6CRT 05650
* 007741 3000765700 05660 J CMP02 U6CRT 05660
007746 5717777313 05670 CMP03 BA1 -5,11,X4X4 U6CRT 05670
007753 7177777353 05680 CB1 -5,11,X7X7 U6CRT 05680
* 007760 3001001143 05690 JU CMPFL DATA COMPARE FAILURE U6CRT 05690
* 007765 3000753200 05700 J CMP U6CRT 05700
007772 5717776303 05710 CMP04 BA1 -13,3,X4X4 U6CRT 05710
007777 7177776343 05720 CB1 -13,3,X7X7 U6CRT 05720
* 010004 3000753242 05730 JE CMP U6CRT 05730
010011 2117776114 05740 CMPFL FT -15,X4,X,X4 U6CRT 05740
010016 2177776117 05750 FT -15,X7,X,X7 U6CRT 05750
010023 5700000001 05760 BA1 0,1,X4 U6CRT 05760
010030 7160000041 05770 CB1 0,1,X7 U6CRT 05770
* 010035 3001007342 05780 JE CMP05 U6CRT 05780
010042 5201503701 05790 SA1 DATS-1,1,1 DATA FROM TAPE U6CRT 05790
010047 5760000001 05800 BA1 0,1,X7 U6CRT 05800
010054 5201504001 05810 SA1 DATS,1 U6CRT 05810
010061 5601471303 05820 BA1 ACMP,3 U6CRT 05820
* 010066 3000757000 05830 J CMP06 U6CRT 05830
010073 2100000114 05840 CMP05 FT 1,X4,X4 4 U6CRT 05840
010100 2160000117 05850 FT 1,X7,X7 7 U6CRT 05850
010105 7401512417 05860 CT DPLIM,X7X7 U6CRT 05860
* 010112 3001013144 05870 JS $+15 U6CRT 05870
* 010117 3001013142 05880 JE $+10 U6CRT 05880
010124 2177756017 05890 FT -144,X7,7,X7 U6CRT 05890
010131 7461374614 05900 CT S0CLM,X4X4,X3 U6CRT 05900
* 010136 3001002344 05910 JS CMPFL+1010 U6CRT 05910
* 010143 3001002342 05920 JE CMPFL+1010 U6CRT 05920
* 010150 3000700260 05930 CMPD2 JD 07002 CANNOT FIND WORD THAT FAILED TO COMPARE U6CRT 05930 O
* 010155 3000753200 05940 J CMP U6CRT 05940
* 010162 3001016200 05950 CTTS J $ COCOMPARE TETRADS FOR REWIND AND BACKSPACE U6CRT 05950 T
010167 5661372604 05960 BA1 S0DAT,4,4,X3 U6CRT 05960
010174 7061376644 05970 CB1 S0BA,4,X,X3 CHECK BASE ADDRESS U6CRT 05970
* 010201 3001032143 05980 JU CTTS2 U6CRT 05980
010206 7061377244 05990 CB1 S0SBA,4,4,X3 CHECK SPECIAL BASE ADDRESS U6CRT 05990
* 010213 3001016242 06000 JE CTTS U6CRT 06000
* 010220 1000650600 06010 JR OCTAL SPECIAL BASE ADDRESS ERR U6CRT 06010
010225 5201507026 06020 SA2 MEMTT,6 6 CORRECT CONTENTS OF TETRAD U6CRT 06020 R
010232 5661377204 06030 BA1 S0SBA,4,4,X3 U6CRT 06030
* 010237 1000650600 06040 JR OCTAL U6CRT 06040
010244 5201510226 06050 SA2 TAPTT,6 6 INCORRECT CONTENTS OF TETRAD U6CRT 06050 C
010251 5601472403 06060 BA1 ASBA,3 U6CRT 06060
010256 5201505003 06070 CTTS1 SA1 TTERR,3 3 U6CRT 06070
010263 2000630107 06080 FT PRS1C,7 7 U6CRT 06080
010270 5601473503 06090 BA1 ATTE,3 U6CRT 06090
* 010275 1000601300 06100 JR ERP PRINT ERROR INFO U6CRT 06100
* 010302 3001016263 06110 JC CTTS,51 1 DO NOT STOP IF SSW 2 SET U6CRT 06110
* 010307 3000700360 06120 CTTD3 JD 07003 REWIND BACKSPACE TETRAD COMPARE ERROR U6CRT 06120 N
* 010314 3001016200 06130 J CTTS U6CRT 06130
* 010321 1000650600 06140 CTTS2 JR OCTAL BASE ADDRESS ERROR U6CRT 06140
010326 5201507026 06150 SA2 MEMTT,6 6 CORRECT CONTENTS OF TETRAD U6CRT 06150 R
010333 5661376604 06160 BA1 S0BA,4,X,X3 U6CRT 06160
* 010340 1000650600 06170 JR OCTAL U6CRT 06170
010345 5201510226 06180 SA2 TAPTT,6 6 INCORRECT CONTENTS OF TETRAD U6CRT 06180 C
010352 5601472103 06190 BA1 ABA,3 U6CRT 06190
* 010357 3001025600 06200 J CTTS1 U6CRT 06200
* 010364 3001036400 06210 CTTN J $ COCOMPARE TETRAD FOR WRITE AND READ U6CRT 06210 T
010371 5661374604 06220 BA1 S0CLM,4,4,X3 U6CRT 06220
010376 7061377244 06230 CB1 S0SBA,4,4,X3 CHECK SPECIAL BASE ADDR. U6CRT 06230
* 010403 3001054243 06240 JU CTTN2 U6CRT 06240
010410 1461372102 06250 LC S0XF-1,0,02,X3 CHECK FOR ADVANCE BASE ADD. U6CRT 06250
* 010415 3001042742 06260 JE $+10 U6CRT 06260
010422 5661372604 06270 BA1 S0DAT,4,4,X3 U6CRT 06270
010427 7061376644 06280 CB1 S0BA,4,X,X3 CHECK BASE ADDRESS U6CRT 06280
* 010434 3001036442 06290 JE CTTN U6CRT 06290
* 010441 1000650600 06300 JR OCTAL BASE ADDRESS ERROR U6CRT 06300
010446 5201507026 06310 SA2 MEMTT,6 6 CORRECT CONTENTS OF TETRAD U6CRT 06310 R
010453 5661376604 06320 BA1 S0BA,4,X,X3 U6CRT 06320
* 010460 1000650600 06330 JR OCTAL U6CRT 06330
010465 5201510226 06340 SA2 TAPTT,6 6 INCORRECT CONTENTS OF TETRAD U6CRT 06340 C
010472 5601472103 06350 BA1 ABA,3 U6CRT 06350
010477 5201505003 06360 CTTN1 SA1 TTERR,3 3 U6CRT 06360
010504 2000630107 06370 FT PRS1C,7 7 U6CRT 06370
010511 5601473503 06380 BA1 ATTE,3 U6CRT 06380
* 010516 1000601300 06390 JR ERP PRINT ERROR INFO U6CRT 06390
* 010523 3001036463 06400 JC CTTN,51 1 DO NOT STOP IF SSW 2 SET U6CRT 06400
* 010530 3000700460 06410 CTTD4 JD 07004 WRITE READ TETRAD COMPARE ERROR U6CRT 06410 E
* 010535 3001036400 06420 J CTTN U6CRT 06420
* 010542 1000650600 06430 CTTN2 JR OCTAL U6CRT 06430
010547 5201507026 06440 SA2 MEMTT,6 6 CORRECT CONTENTS OF TETRAD U6CRT 06440 R
010554 5661377204 06450 BA1 S0SBA,4,4,X3 U6CRT 06450
* 010561 1000650600 06460 JR OCTAL U6CRT 06460
010566 5201510226 06470 SA2 TAPTT,6 6 INCORRECT CONTENT OF TETRAD U6CRT 06470 C
010573 5601472403 06480 BA1 ASBA,3 U6CRT 06480
* 010600 3001047700 06490 J CTTN1 U6CRT 06490
* 010605 3001060500 06500 BINDC J $ BINARY TO DECIMAL U6CRT 06500 A
010612 4200000311 06510 ST 3,X1 SAVE IR1 U6CRT 06510
010617 2600003633 06520 PD0 30,11 U6CRT 06520
010624 4401071703 06530 SC BIND1+1414,3 U6CRT 06530
010631 2600004703 06540 PD X1,3 U6CRT 06540
010636 4400003704 06550 SC 31,_1_ U6CRT 06550
010643 4401070506 06560 SC BIND1+4,4,6 U6CRT 06560
010650 1420001701 06570 LC 15,1,X1 1 U6CRT 06570
* 010655 3001066743 06580 JU $+10 U6CRT 06580
010662 6200003126 06590 AM2 25,6 U6CRT 06590
010667 6600003726 06600 AD2 31,6 U6CRT 06600
010674 1601065451 06610 BC1 $-16,1 U6CRT 06610
* 010701 3201065006 06620 BIND1 JL $-25,6 U6CRT 06620
010706 2037777711 06630 FT -1,X1,X1X1 U6CRT 06630
* 010713 3201064303 06640 JL $-40,3 U6CRT 06640
010720 5600003106 06650 BA1 25,6 U6CRT 06650
010725 4600000311 06660 BT 3,X1 RESTORE IR1 U6CRT 06660
* 010732 3001060500 06670 J BINDC U6CRT 06670
* 010737 3001073700 06680 ISXFP J $ PRPRINT ERROR OR TOTAL INFORMATION U6CRT 06680 R
010744 5200020303 06690 SA1 131,3 BASE ADDRESS U6CRT 06690
010751 2000000441 06700 FT 4,33 LINE ADVANCE COUNT U6CRT 06700
010756 4000407777 06710 XF 32,0777777,0,0 RESET ERRORS U6CRT 06710
010763 4000660000 06720 XF 066,0,0,0,0 ISSUE PRINT U6CRT 06720
010770 4000007777 06730 XF 0,07777,7,0,0 CHECK FOR ERRORS U6CRT 06730
* 010775 3001100753 06740 JC $+10,43 3 U6CRT 06740
* 011002 3001073700 06750 J ISXFP U6CRT 06750
011007 4000004000 06760 XF 0,04000,0,0,0 CHECK FOR MEMORY OVLD. U6CRT 06760
* 011014 3001075653 06770 JC $-30,43 3 U6CRT 06770
* 011021 3000700560 06780 JD 07005 PRINTER ABNORMAL U6CRT 06780
* 011026 3001075600 06790 J $-40 U6CRT 06790
* 011033 3001103300 06800 DGEN J $ FILL DATA AREA WITH DPAT MAX. BLKLM CHAR. U6CRT 06800 L
011040 4401115240 06810 SC DGS1+4,3,32 SET DGS1A U6CRT 06810
011045 4661372620 06820 BT S0DAT,1616,X3 SET DESTINATION ADDRESS U6CRT 06820
011052 6000010305 06830 AC 67,5 INCREMENT DESTINATION ADDRESS TO SKIP BLK CT U6CRT 06830 M
011057 2000022022 06840 FT 144,18 SET CHARACTER COUNT U6CRT 06840
011064 2017777307 06850 FT -5,7 U6CRT 06850
011071 5661374203 06860 BA1 S0CC,3,X,X3 U6CRT 06860
011076 7200001722 06870 AB2 AR1,2 CHARACTER COUNT -5 U6CRT 06870
011103 2000022007 06880 FT 144,7 U6CRT 06880
011110 7200001762 06890 DGS1A SB2 AR1,2 U6CRT 06890
* 011115 3001114147 06900 JC $+20,39 9 JUMP IF CARRY BEYOND MSB OF AR1 U6CRT 06900 M
011122 7200011302 06910 AB1 75,2 U6CRT 06910
011127 4401115200 06920 SC DGS1+4,0,0 SET DGS1B U6CRT 06920
011134 4400515540 06930 SC WRS1+4,3,32 SET WRS1A U6CRT 06930
011141 2401521321 06940 TFI DPAT-7 U6CRT 06940
* 011146 3001103340 06950 DGS1 JC DGEN,32 2 U6CRT 06950
* 011153 3001111000 06960 J DGS1A U6CRT 06960
011160 4000007777 06970 C0INT XF 0,07777,7,0,0 U6CRT 06970
* 011165 3001117753 06980 JC $+10,43 3 U6CRT 06980
* 011172 3000040000 06990 J 256 U6CRT 06990
011177 4000004000 07000 XF 0,04000,0,0,0 U6CRT 07000
* 011204 3001121653 07010 JC $+10,43 3 MEMORY OVERLOAD AND BUSY U6CRT 07010
* 011211 3000700560 07020 COERR JD 07005 PRINTER ABNORMAL U6CRT 07020 T
011216 5201127503 07030 SA1 C0TS1+2,2,3 U6CRT 07030
011223 5601074203 07040 BA1 ISXFP+3,3,3 U6CRT 07040
011230 5201130003 07050 SA1 C0TS1+5,5,3 U6CRT 07050
011235 5600020303 07060 BA1 131,3 U6CRT 07060
* 011242 1001074200 07070 JR ISXFP REISSUE PRINT U6CRT 07070 S
011247 5601130003 07080 BA1 C0TS1+5,5,3 U6CRT 07080
011254 5201074203 07090 SA1 ISXFP+3,3,3 U6CRT 07090
011261 5601127503 07100 BA1 C0TS1+2,2,3 U6CRT 07100
* 011266 3000040000 07110 C0OUT J 256 U6CRT 07110
011273 6 07120 C0TS1 AREA 6 U6CRT 07120
* 011301 1001332400 07130 C5INT JR STOR5 STORE AR_S AND IR_S U6CRT 07130
011306 4120007777 07140 XF 0,07777,7,0,5 U6CRT 07140
* 011313 3001147153 07150 JC C5IER,4343 U6CRT 07150
011320 2661375701 07160 C5I7 PD S0TPC,1,1,X3 CLEAR CURRENT TAPE PARITY COUNT U6CRT 07160
011325 6061375101 07170 AC S0BCB,1,1,X3 INCREMENT BINARY BLOCK COUNT U6CRT 07170
011332 4261376664 07180 ST S0BA,52,2,X3 SAVE BASE ADDRESS U6CRT 07180
011337 4261377266 07190 ST S0SBA,5454,X3 SAVE SPECIAL BASE ADDR. U6CRT 07190
011344 1401371440 07200 LC IND5,04040 U6CRT 07200
* 011351 3001136343 07210 JU $+10 U6CRT 07210
011356 6401371420 07220 LS IND5,02020 SET INTERRUPT INDICATOR U6CRT 07220
011363 6401371440 07230 LS IND5,04040 U6CRT 07230
011370 4120407777 07240 XF 32,0777777,0,5 RESET ERRORS U6CRT 07240
011375 3401370477 07250 CC C5TS2-3,3,63 U6CRT 07250
* 011402 3001144542 07260 JE C5I2-5 NO MORE XF TO BE ISSUED U6CRT 07260
011407 4601370713 07270 BT C5TS2,X3X3 U6CRT 07270
011414 4400464500 07280 SC C5S2+4,0,0 SET C5S2B U6CRT 07280
* 011421 3000454032 07290 JC ISF5A,2626 ISSUE NEXT XF U6CRT 07290
011426 4400464500 07300 C5I3 SC C5S2+4,0,0 SET C5S2B U6CRT 07300
011433 4120407777 07310 XF 32,0777777,0,5 RESET ERRORS U6CRT 07310
* 011440 3000457600 07320 J REIS5 REISSUE PREVIOUS XF U6CRT 07320
011445 4400453240 07330 SC C5S1+4,3,32 SET C5S1A U6CRT 07330
* 011452 1001345600 07340 C5I2 JR RSTOR RESTORE AR_S AND IR_S U6CRT 07340
* 011457 1001355265 07350 JR ERRST,5353 RESTORE AR_S AND IR_S ON ERR INT. U6CRT 07350 E
* 011464 3000045025 07360 JC 296,21 EXIT U6CRT 07360
* 011471 1001352122 07370 C5IER JR ERSTR,1818 U6CRT 07370
011476 4120002000 07380 XF 0,02000,0,0,5 TEST FOR BUSY U6CRT 07380
* 011503 3001156053 07390 JC C5BSY,4343 U6CRT 07390
011510 4120000002 07400 XF 0,02,0,5,5 END OF TAPE TEST U6CRT 07400
* 011515 3001162353 07410 JC C5S4,43 3 U6CRT 07410
011522 4120000040 07420 C5I4 XF 0,040,0,0,5 TEST TAPE PARITY ERROR U6CRT 07420
* 011527 3001170053 07430 JC C5TPE,4343 U6CRT 07430
* 011534 1001327300 07440 JR CHERP DECODE AND PRINT ERROR INFORMATION U6CRT 07440 D
* 011541 3001142663 07450 JC C5I3,51 1 DO NOT STOP IF SSW 2 SET U6CRT 07450
* 011546 3000500160 07460 C5ER1 JD 05001 ERROR BESIDES TPE,BUSY OR EOT U6CRT 07460 R
* 011553 3001142600 07470 J C5I3 REISSUE U6CRT 07470
011560 4120005777 07480 C5BSY XF 0,05777,7,0,5 TEST FOR ALL BUT BUSY U6CRT 07480
* 011565 3001157753 07490 JC $+10,43 3 U6CRT 07490
* 011572 3001142600 07500 J C5I3 U6CRT 07500
* 011577 1001327300 07510 JR CHERP DECODE AND PRINT ERROR INFORMATION U6CRT 07510 D
* 011604 3001142663 07520 JC C5I3,51 1 DO NOT STOP IF SSW 2 SET U6CRT 07520
* 011611 3000500260 07530 C5ER2 JD 05002 ERROR SET WITH BUSY U6CRT 07530
* 011616 3001142600 07540 J C5I3 U6CRT 07540
* 011623 3001165440 07550 C5S4 JC C5S4B,3232 END OF TAPE ROUTINE U6CRT 07550
011630 4401162700 07560 C5S4A SC $-1,0 SET C5S4B U6CRT 07560
011635 5661375103 07570 BA1 S0BCB,3,3,X3 SET NEW BLK LIMIT U6CRT 07570
011642 6000001701 07580 AC AR1,1 U6CRT 07580
011647 5201516603 07590 SA1 BLKLM,3 3 U6CRT 07590
011654 4120007775 07600 C5S4B XF 0,07775,5,0,5 CHECK FOR OTHER ERRORS U6CRT 07600
* 011661 3001152253 07610 JC C5I4,43 3 U6CRT 07610
* 011666 1001327300 07620 JR CHERP DECODE AND PRINT ERROR INFORMATION U6CRT 07620 D
* 011673 3001132000 07630 J C5I7 U6CRT 07630
011700 4120007735 07640 C5TPE XF 0,07735,5,0,5 CHECK FOR OTHER ERRORS U6CRT 07640
* 011705 3001153453 07650 JC C5I4+10,0,43 U6CRT 07650
011712 4661376211 07660 BT S0ECT,X1X1,X3 ERROR TABLE BASE ADDRESS U6CRT 07660
011717 1461372002 07670 LC S0XF-2,2,2,X3 CHECK FOR WRITE U6CRT 07670
* 011724 3001210243 07680 JU C5RD READ U6CRT 07680
011731 4401201106 07690 SC C5FLT+8,8,6 SET WRITE FAULT DISPLAY U6CRT 07690
011736 6020000201 07700 AC 2,1,X1 INCREMENT TAPE PARITY ERROR COUNT U6CRT 07700
011743 6061375701 07710 AC S0TPC,1,1,X3 U6CRT 07710
011750 3461375703 07720 CC S0TPC,0303,X3 U6CRT 07720
* 011755 3001202541 07730 JG C5I6 U6CRT 07730
011762 2000613507 07740 FT PRS1A,7 7 SET PRS1A U6CRT 07740
011767 5601471603 07750 BA1 AFLT,3 U6CRT 07750
* 011774 1000601300 07760 JR ERP PRINT FAULT INFO U6CRT 07760
* 012001 3001201363 07770 C5FLT JC $+10,51 1 DO NOT STOP AFTER PRINTOUT U6CRT 07770
* 012006 3000500660 07780 C5ER6 JD 05006 FAULT 3 RE-WRITES OR REREADS U6CRT 07780
012013 2661375701 07790 PD S0TPC,1,1,X3 CLEAR PARITY ERROR COUNT U6CRT 07790
* 012020 3001203200 07800 J $+10 U6CRT 07800
* 012025 1001327340 07810 C5I6 JR CHERP,3232 IF DETAIL EQUAL ZERO PRINT AFTER U6CRT 07810
012032 4120407777 07820 XF 32,0777777,0,5 EACH ERROR U6CRT 07820
012037 2001220303 07830 FT C5IN1,3 3 U6CRT 07830
012044 5200045703 07840 SA1 303,3 U6CRT 07840
012051 5661371701 07850 BA1 S0XF-3,1,1,X3 SERVO NUMBER U6CRT 07850
012056 6400001720 07860 LS AR1,020 0 SET CH 5 U6CRT 07860
012063 5201207101 07870 SA1 C5BSP+1,1,1 U6CRT 07870
012070 4120011000 07880 C5BSP XF 01,0100000,0,5 BACKSPACE 1 BLOCK U6CRT 07880
* 012075 3001145200 07890 J C5I2 U6CRT 07890
012102 5661372101 07900 C5RD BA1 S0XF-1,1,1,X3 U6CRT 07900
012107 5400001730 07910 LP AR1,030 0 U6CRT 07910
012114 3400001710 07920 CC AR1,010 0 U6CRT 07920
* 012121 3001214543 07930 JU $+20 U6CRT 07930
* 012126 1001327300 07940 JR CHERP U6CRT 07940
* 012133 3000500760 07950 C5ER7 JD 05007 ERROR ON BSPCE NORMAL U6CRT 07950 R
012140 4661376211 07960 BT S0ECT,X1X1,X3 U6CRT 07960
012145 6020000501 07970 AC 5,1,X1 U6CRT 07970
* 012152 3001217164 07980 JC C5I8,52 2 SKIP ERROR BLOCK IF SSW 3 SET U6CRT 07980 I
012157 4401201105 07990 SC C5FLT+8,8,5 U6CRT 07990
* 012164 3001174300 08000 J C5TPE+3535 U6CRT 08000
012171 4461401640 08010 C5I8 SC CMS1+4,3,32,X3 SET CMS1B U6CRT 08010
* 012176 3001132000 08020 J C5I7 U6CRT 08020
08030 . INTERRUPUPT FROM BACKSPACE U6CRT 08030
* 012203 1001332400 08040 C5IN1 JR STOR5 STORE IND. IR AR U6CRT 08040
012210 4120007777 08050 XF 0,07777,7,0,5 U6CRT 08050
* 012215 3001222753 08060 JC $+10,43 3 U6CRT 08060
* 012222 3001226000 08070 J C5ER3+1010 U6CRT 08070
012227 5601472703 08080 BA1 ABSE,3 U6CRT 08080
012234 2000613507 08090 FT PRS1A,7 7 U6CRT 08090
* 012241 1000601300 08100 JR ERP U6CRT 08100
* 012246 3000500360 08110 C5ER3 JD 05003 ERROR ON BSPCE FOR REPOSITION U6CRT 08110 R
012253 4120407777 08120 XF 32,0777777,0,5 U6CRT 08120
012260 1461372002 08130 LC S0XF-2,2,2,X3 CHECK FOR WRITE U6CRT 08130
* 012265 3001233543 08140 JU C5I5 U6CRT 08140
012272 2001235403 08150 FT C5IN2,3 3 U6CRT 08150
012277 5200045703 08160 SA1 303,3 U6CRT 08160
012304 5661371701 08170 BA1 S0XF-3,1,1,X3 SERVO NUMBER U6CRT 08170
012311 6400001720 08180 LS AR1,020 0 U6CRT 08180
012316 5201232401 08190 SA1 C5SKE+1,1,1 U6CRT 08190
012323 4120020400 08200 C5SKE XF 02,0400,0,0,5 SKIP ERASE U6CRT 08200
* 012330 3001145200 08210 J C5I2 U6CRT 08210
012335 2001130103 08220 C5I5 FT C5INT,3 3 U6CRT 08220
012342 5200045703 08230 SA1 303,3 U6CRT 08230
* 012347 3001142600 08240 J C5I3 U6CRT 08240
08250 . INTERRUPUPT FROM SKIP ERASE U6CRT 08250
* 012354 1001332400 08260 C5IN2 JR STOR5 STORE IND. AR IR U6CRT 08260
012361 4120007777 08270 XF 0,07777,7,0,5 U6CRT 08270
* 012366 3001240053 08280 JC $+10,43 3 U6CRT 08280
* 012373 3001233500 08290 J C5I5 U6CRT 08290
012400 5601473203 08300 BA1 ASKE,3 U6CRT 08300
012405 2000613507 08310 FT PRS1A,7 7 U6CRT 08310
* 012412 1000601300 08320 JR ERP U6CRT 08320
* 012417 3000500460 08330 C5ER4 JD 05004 ERROR ON SKIP-ERASE U6CRT 08330 R
* 012424 3001233500 08340 J C5I5 U6CRT 08340
* 012431 1001335500 08350 C4INT JR STOR4 U6CRT 08350
012436 4100007777 08360 XF 0,07777,7,0,4 U6CRT 08360
* 012443 3001262153 08370 JC C4IER,4343 U6CRT 08370
012450 2661375701 08380 C4I7 PD S0TPC,1,1,X3 CLEAR CURRENT TAPE PARITY COUNT U6CRT 08380
012455 6061375101 08390 AC S0BCB,1,1,X3 INCREMENT BINARY BLOCK COUNT U6CRT 08390
012462 1401367640 08400 LC IND4,04040 U6CRT 08400
* 012467 3001250143 08410 JU $+10 U6CRT 08410
012474 6401367620 08420 LS IND4,02020 SET INTERRUPT INDICATOR U6CRT 08420
012501 6401367640 08430 LS IND4,04040 U6CRT 08430
012506 4261376660 08440 ST S0BA,48,8,X3 SAVE BASE ADDRESS U6CRT 08440
012513 4261377262 08450 ST S0SBA,5050,X3 SAVE SPECIAL BASE ADDR. U6CRT 08450
012520 4100407777 08460 XF 32,0777777,0,4 RESET ERRORS U6CRT 08460
012525 3401366677 08470 CC C4TS2-3,3,63 U6CRT 08470
* 012532 3001257542 08480 JE C4I2-5 U6CRT 08480
012537 4601367113 08490 BT C4TS2,X3X3 U6CRT 08490
012544 4400501100 08500 SC C4S2+4,0,0 SET C4S2B U6CRT 08500
* 012551 3000471132 08510 JC ISF4A,2626 ISSUE NEXT XF U6CRT 08510
012556 4400501100 08520 C4I3 SC C4S2+4,0,0 SET C4S2B U6CRT 08520
012563 4100407777 08530 XF 32,0777777,0,4 RESET ERRORS U6CRT 08530
* 012570 3000474700 08540 J REIS4 REISSUE PREVIOUS XF U6CRT 08540
012575 4400470340 08550 SC C4S1+4,3,32 SET C4S1A U6CRT 08550
* 012602 1001345600 08560 C4I2 JR RSTOR U6CRT 08560
* 012607 1001355265 08570 JR ERRST,5353 RESTORE AR_S AND IR_S ON ERR INT. U6CRT 08570 E
* 012614 3000044025 08580 JC 288,21 U6CRT 08580
* 012621 1001352122 08590 C4IER JR ERSTR,1818 U6CRT 08590
012626 4100002000 08600 XF 0,02000,0,0,4 TEST FOR BUSY U6CRT 08600
* 012633 3001267653 08610 JC C4BSY,4343 U6CRT 08610
012640 4100000040 08620 XF 0,040,0,0,4 TAPE PARITY ERROR U6CRT 08620
* 012645 3001274153 08630 JC C4TPE,4343 U6CRT 08630
* 012652 1001327300 08640 JR CHERP DECODE AND PRINT ERROR INFORMATION U6CRT 08640 D
* 012657 3001255663 08650 JC C4I3,51 1 DO NOT STOP IF SSW 2 SET U6CRT 08650
* 012664 3000400160 08660 C4ER1 JD 04001 ERROR BESIDES TPE OR BUSY U6CRT 08660 R
* 012671 3001255600 08670 J C4I3 REISSUE U6CRT 08670
012676 4100005777 08680 C4BSY XF 0,05777,7,0,4 TEST FOR ALL BUT BUSY U6CRT 08680
* 012703 3001271553 08690 JC $+10,43 3 U6CRT 08690
* 012710 3001255600 08700 J C4I3 U6CRT 08700
* 012715 1001327300 08710 JR CHERP DECODE AND PRINT ERROR INFORMATION U6CRT 08710 D
* 012722 3001255663 08720 JC C4I3,51 1 DO NOT STOP IF SSW 2 SET U6CRT 08720
* 012727 3000400260 08730 C4ER2 JD 04002 ERROR SET WITH BUSY U6CRT 08730
* 012734 3001255600 08740 J C4I3 U6CRT 08740
012741 4100007735 08750 C4TPE XF 0,07735,5,0,4 CHECK FOR OTHER ERRORS U6CRT 08750
* 012746 3001265253 08760 JC C4IER+2525,43 U6CRT 08760
012753 5661372101 08770 BA1 S0XF-1,1,1,X3 U6CRT 08770
012760 5400001730 08780 LP AR1,030 0 U6CRT 08780
012765 3400001710 08790 CC AR1,010 0 U6CRT 08790
* 012772 3001301143 08800 JU $+15 U6CRT 08800
* 012777 1001327300 08810 JR CHERP U6CRT 08810
* 013004 3000400760 08820 C4ER7 JD 04007 ERROR ON BACKSPACE NORMAL U6CRT 08820 R
013011 4661376211 08830 BT S0ECT,X1X1,X3 U6CRT 08830
013016 6020000501 08840 AC 5,1,X1 INCREMENT PARITY ERROR COUNT U6CRT 08840
* 013023 3001316264 08850 JC C4I8,52 2 SKIP ERROR BLOCK IF SSW 3 SET U6CRT 08850 I
013030 6061375701 08860 AC S0TPC,1,1,X3 U6CRT 08860
013035 3461375703 08870 CC S0TPC,3,3,X3 U6CRT 08870
* 013042 3001311241 08880 JG C4I6 U6CRT 08880
013047 2000613507 08890 FT PRS1A,7 7 SET PRS1A U6CRT 08890
013054 5601471603 08900 BA1 AFLT,3 FAULT PRINTOUT U6CRT 08900
* 013061 1000601300 08910 JR ERP U6CRT 08910
* 013066 3001310063 08920 C4FLT JC $+10,51 1 DO NOT STOP AFTER PRINTOUT IF SSW 2 SET U6CRT 08920
* 013073 3000400560 08930 C4ER5 JD 04005 FAULT 3 REREADS U6CRT 08930 T
013100 2661375701 08940 PD S0TPC,1,1,X3 CLEAR TAPE PARITY COUNT U6CRT 08940
* 013105 3001311700 08950 J $+10 U6CRT 08950
* 013112 1001327340 08960 C4I6 JR CHERP,3232 IF DETAIL = 0 PRINT AFTER EACH U6CRT 08960
013117 4100407777 08970 XF 32,0777777,0,4 ERROR U6CRT 08970
013124 2001317403 08980 FT C4IN1,3 3 U6CRT 08980
013131 5200044703 08990 SA1 295,3 U6CRT 08990
013136 5661371701 09000 BA1 S0XF-3,1,1,X3 SERVO NUMBER U6CRT 09000
013143 5201315101 09010 SA1 C4BSP+1,1,1 U6CRT 09010
013150 4100011000 09020 C4BSP XF 01,0100000,0,4 BACKSPACE 1 BLOCK U6CRT 09020
* 013155 3001260200 09030 J C4I2 U6CRT 09030
013162 4461401640 09040 C4I8 SC CMS1+4,3,32,X3 SET CMS1B U6CRT 09040
* 013167 3001245000 09050 J C4I7 U6CRT 09050
09060 . INTERRUPUPT FROM BACKSPACE U6CRT 09060
* 013174 1001335500 09070 C4IN1 JR STOR4 STOR AR1,X1,X2,X3, AND IND. U6CRT 09070
013201 4100007777 09080 XF 0,07777,7,0,4 U6CRT 09080
* 013206 3001322053 09090 JC $+10,43 3 U6CRT 09090
* 013213 3001325100 09100 J C4I5 U6CRT 09100
013220 5601472703 09110 BA1 ABSE,3 U6CRT 09110
013225 2000613507 09120 FT PRS1A,7 7 U6CRT 09120
* 013232 1000601300 09130 JR ERP U6CRT 09130
* 013237 3000400360 09140 C4ER3 JD 04003 ERROR ON BACKSPACE FOR REPOS. U6CRT 09140 R
013244 4100407777 09150 XF 32,0777777,0,4 RESET ERRORS U6CRT 09150
013251 2001243103 09160 C4I5 FT C4INT,3 3 U6CRT 09160
013256 5200044703 09170 SA1 295,3 U6CRT 09170
* 013263 3001255600 09180 J C4I3 REISSUE U6CRT 09180
* 013270 3001327000 09190 CHERP J $ PRINT ERROR INFORMATION FROM INTERRUPT U6CRT 09190 N
013275 5601471003 09200 BA1 AINT,3 U6CRT 09200
013302 2000613507 09210 FT PRS1A,7 7 SET PRS1A U6CRT 09210
* 013307 1000601300 09220 JR ERP U6CRT 09220
* 013314 3001327000 09230 J CHERP U6CRT 09230
* 013321 3001332100 09240 STOR5 J $ STORE AR IR AND INDICATOR U6CRT 09240 R
013326 4201371312 09250 ST C5IR2,X2X2 U6CRT 09250
013333 2000001612 09260 FT C5TBL,X2X2 U6CRT 09260
* 013340 1001340600 09270 JR STOR U6CRT 09270
* 013345 3001332100 09280 J STOR5 U6CRT 09280
* 013352 3001335200 09290 STOR4 J $ U6CRT 09290
013357 4201367512 09300 ST C4IR2,X2X2 U6CRT 09300
013364 2000000012 09310 FT C4TBL,X2X2 U6CRT 09310
* 013371 1001340600 09320 JR STOR U6CRT 09320
* 013376 3001335200 09330 J STOR4 U6CRT 09330
* 013403 3001340300 09340 STOR J $ U6CRT 09340
013410 5201557705 09350 SA1 CHTS1+4,4,5 U6CRT 09350
* 013415 3001561051 09360 JC CHTS1+1313,41 STORE INDICATORS U6CRT 09360
013422 4201560713 09370 ST CHTS1+1212,X3 U6CRT 09370
013427 4641366513 09380 BT C4TS1,X3X3,X2 U6CRT 09380
013434 4201561414 09390 ST CHTS1+1717,X4 U6CRT 09390
013441 4661372614 09400 BT S0DAT,X4X4,X3 U6CRT 09400
* 013446 3001340300 09410 J STOR U6CRT 09410
* 013453 3001345300 09420 RSTOR J $ RESTORE AR IR IND. U6CRT 09420 T
013460 4601560713 09430 BT CHTS1+1212,X3 U6CRT 09430
013465 5601557705 09440 BA1 CHTS1+4,4,5 U6CRT 09440
* 013472 3001561052 09450 JC CHTS1+1313,42 U6CRT 09450
013477 4601561414 09460 BT CHTS1+1717,X4 U6CRT 09460
013504 4641367512 09470 BT C4IR2,X2X2,X2 U6CRT 09470
* 013511 3001345300 09480 J RSTOR U6CRT 09480
* 013516 3001351600 09490 ERSTR J $ U6CRT 09490
013523 4201560311 09500 ST CHTS1+8,8,X1 U6CRT 09500
013530 4201562017 09510 ST CHTS1+2121,X7 U6CRT 09510
013535 5201566061 09520 SAR CHTS1+5353 U6CRT 09520
* 013542 3001351600 09530 J ERSTR U6CRT 09530
* 013547 3001354700 09540 ERRST J $ U6CRT 09540
013554 4601560311 09550 BT CHTS1+8,8,X1 U6CRT 09550
013561 4601562017 09560 BT CHTS1+2121,X7 U6CRT 09560
013566 5601564000 09570 BA1 CHTS1+3737,16 U6CRT 09570
013573 5601566020 09580 BA2 CHTS1+5353,16 U6CRT 09580
* 013600 3001354700 09590 J ERRST U6CRT 09590
000047 09600 X1 EQU 39 U6CRT 09600
000053 09610 X2 EQU 43 U6CRT 09610
000057 09620 X3 EQU 47 U6CRT 09620
000063 09630 X4 EQU 51 U6CRT 09630
000067 09640 X5 EQU 55 U6CRT 09640
000073 09650 X6 EQU 59 U6CRT 09650
000077 09660 X7 EQU 63 U6CRT 09660
000017 09670 AR1 EQU 15 U6CRT 09670
000037 09680 AR2 EQU 31 U6CRT 09680
* 013605 3001360520 09690 C1INT JHJ $ STOP INDICATES NO INT EXPECTED U6CRT 09690
* 013612 3001361220 09700 C2INT JHJ $ U6CRT 09700
* 013617 3001361720 09710 C3INT JHJ $ U6CRT 09710
* 013624 3001362420 09720 JHJ $ CH 4 ILLEGAL INTERRUPT U6CRT 09720
* 013631 3001363120 09730 JHJ $ CH 5 ILLEGAL INTERRUPT U6CRT 09730
* 013636 3001363620 09740 C6INT JHJ $ U6CRT 09740
* 013643 3001364320 09750 C7INT JHJ $ U6CRT 09750
* 013650 3001365020 09760 CLAS1 JHJ $ U6CRT 09760
* 013655 3001365520 09770 CLAS2 JHJ $ U6CRT 09770
000000 09780 C4TBL EQU 0 U6CRT 09780
013665 77777777 09790 C4TS1 +4 07777777777 CHANNEL 4 TABLE U6CRT 09790
013671 77777777 09800 C4TS2 +4 07777777777 U6CRT 09800
013675 00000000 09810 C4IR2 +4 0 TS S FOR IR2 ON INTERRUPT U6CRT 09810 2
013676 00 09820 IND4 +1 0 INTERRUPT INDICATOR U6CRT 09820
013677 4 09830 ALPHC +1 _4_ U6CRT 09830
000016 09840 C5TBL EQU 14 U6CRT 09840
013703 77777777 09850 C5TS1 +4 07777777777 CHANNEL 5 TABLE U6CRT 09850
013707 77777777 09860 C5TS2 +4 07777777777 U6CRT 09860
013713 00000000 09870 C5IR2 +4 0 U6CRT 09870
013714 00 09880 IND5 +1 0 INTERRUPT INDICATOR U6CRT 09880
013715 5 09890 +1 _5_ U6CRT 09890
000000 09900 S0TBL EQU 0 SERVOVO 0 TABLE CHANNEL 5 U6CRT 09900 L
013722 0000000000 09910 S0XF +5 0 CURRRRENT XF BEING USED U6CRT 09910
013726 00000000 09920 S0DAT +4 0 X4 DATA AREA BASE ADDRESS U6CRT 09920
013732 00000000 09930 S0SNA +4 0 X5 CURRENT SERVO NO. ADDRESS U6CRT 09930
013736 00000000 09940 S0CST +4 0 X6 CURRENT SUB-TEST ADDRESS U6CRT 09940
013742 00000000 09950 S0CC +4 0 CHARACTER COUNT U6CRT 09950
013746 00000000 09960 S0CLM +4 0 DATA COMPARE LIMIT U6CRT 09960
013751 000000 09970 S0BCB +3 0 CURRENT BLOCK COUNT BINARY U6CRT 09970
013756 0 09980 S0BCD +5 _0_ CURRENT BLOCK COUNT DECIMAL U6CRT 09980
013757 00 09990 S0TPC +1 0 CURRENT TAPE PARITY ERR CT U6CRT 09990
013762 000000 10000 S0ECT +3 0 CURRENT ERROR COUNT ADDRESS U6CRT 10000
013766 00000000 10010 S0BA +4 0 COCONTENTS OF BASE ADDRESS TETRAD ON INT. U6CRT 10010
013772 00000000 10020 S0SBA +4 0 COCONTENTS OF SPECIAL BASE ADDRESS TETRAD ON INT. U6CRT 10020
* 013773 3140000000 10030 S0IXF J 0,X6 U6CRT 10030
* 014000 1000451700 10040 JR ISXF5 ISSUE XF U6CRT 10040
* 014005 3001400500 10050 CMP1 J $ EXIT FROM COMPARE U6CRT 10050
* 014012 1000753500 10060 CMS1 JR CMP GO O COMPARE ROUTINE U6CRT 10060 C
* 014017 3061400500 10070 J CMP1,X3 3 U6CRT 10070
013773 10080 ISSXF EQU S0IXF U6CRT 10080
000106 10090 S1TBL EQU 70 SERVO 1 TABLE CHANNEL 4 U6CRT 10090 R
014030 0000000000 10100 S1XF +5 0 CURRRRENT XF BEING ISSUED U6CRT 10100
014034 00000000 10110 S1DAT +4 0 X4 DATA AREA BASE ADDRESS U6CRT 10110
014040 00000000 10120 S1SNA +4 0 X5 CURRENT SERVO NUMBER ADDRESS U6CRT 10120
014044 00000000 10130 S1CST +4 0 X6 CURRENT SUB-TEST ADDRESS U6CRT 10130
014050 00000000 10140 S1CC +4 0 CHARACTER COUNT U6CRT 10140
014054 00000000 10150 S1CLM +4 0 DATA COMPARE LIMIT U6CRT 10150
014057 000000 10160 S1BCB +3 0 CURRENT BLOCK COUNT BINARY U6CRT 10160
014064 0 10170 S1BCD +5 _0_ CURRENT BLOCK COUNT DECIMAL U6CRT 10170
014065 00 10180 S1TPC +1 0 CURRENT TAPE PARITY ERR CT U6CRT 10180
014070 000000 10190 S1ECT +3 0 CURRENT ERROR COUNT ADDR U6CRT 10190
014074 00000000 10200 S1BA +4 0 COCONTENTS OF BASE ADDRESS TETRAD ON INT. U6CRT 10200
014100 00000000 10210 S1SBA +4 0 COCONTENTS OF SPECIAL BASE ADDRESS TETRAD ON INT. U6CRT 10210
* 014101 3140000000 10220 S1IXF J 0,X6 EXIT FROM XF ISSUE U6CRT 10220
* 014106 1000467000 10230 JR ISXF4 ISSUE XF U6CRT 10230
* 014113 3001411300 10240 J $ EXIT FROM COMPARE U6CRT 10240
* 014120 1000753500 10250 JR CMP U6CRT 10250
* 014125 3061400500 10260 J CMP1,X3 3 U6CRT 10260
014132 21 10270 TST1 +1 021 200 PPI BINARY MODE U6CRT 10270
014135 200 10280 +3 _200_ U6CRT 10280
014140 BNY 10290 +3 _BNY_ U6CRT 10290
014141 20 10300 TST2 +1 020 200 PPI BCD MODE U6CRT 10300
014144 200 10310 +3 _200_ U6CRT 10310
014147 BCD 10320 +3 _BCD_ U6CRT 10320
014150 01 10330 TST3 +1 01 556 PPI BINARY MODE U6CRT 10330
014153 556 10340 +3 _556_ U6CRT 10340
014156 BNY 10350 +3 _BNY_ U6CRT 10350
014157 00 10360 TST4 +1 00 556 PPI BCD MODE U6CRT 10360
014162 556 10370 +3 _556_ U6CRT 10370
014165 BCD 10380 +3 _BCD_ U6CRT 10380
014166 31 10390 TST5 +1 031 800 PPI BINARY MODE U6CRT 10390
014171 800 10400 +3 _800_ U6CRT 10400
014174 BNY 10410 +3 _BNY_ U6CRT 10410
014175 30 10420 TST6 +1 030 800 PPI BCD MODE U6CRT 10420
014200 800 10430 +3 _800_ U6CRT 10430
014203 BCD 10440 +3 _BCD_ U6CRT 10440
* 014204 3000503100 10450 STST1 J RWND1 SUB TEST TABLE REWIND U6CRT 10450
* 014211 3000513200 10460 J WRIT1 WRITE U6CRT 10460
* 014216 3000503100 10470 STST2 J RWND1 REWIND U6CRT 10470
* 014223 3000524000 10480 J READ1 READ U6CRT 10480
* 014230 3000503100 10490 STST3 J RWND1 REWIND U6CRT 10490
* 014235 3000524000 10500 J READ1 READ U6CRT 10500
* 014242 3000532700 10510 J BSP1 BACKSPACE U6CRT 10510
* 014247 3000537700 10520 J READ2 READ U6CRT 10520
* 014254 3000503100 10530 J RWND1 REWIND U6CRT 10530
* 014261 3000546100 10540 STST4 J PRINT PRINT TALLIES AT END OF TST1,TST2,ETC. U6CRT 10540
* 014266 3000543500 10550 J END END U6CRT 10550
014300 10560 ORIG $,64 U6CRT 10560
014317 U6CRT CCC CH 10570 PA1 +16 _U6CRT CCC CH_ PRINT TOTALS U6CRT 10570
014337 C SERVO NN 10580 +16 _ C S SERVO NN _ U6CRT 10580 N
014357 DDD PPI MMM M 10590 +16 _ DDD PPPPI MMM M_ U6CRT 10590 M
014377 ODE 10600 +16 _ODE _ U6CRT 10600
014417 BBBBB BLOCKS WW 10610 +16 _BBBBB B BLOCKS WW_ U6CRT 10610
014437 WWW RE-WRITES 10620 +16 _WWW RE-E-WRITES _ U6CRT 10620
014457 BBBBB BLOCKS RR 10630 +16 _BBBBB B BLOCKS RR_ U6CRT 10630
014477 RRR RE READS 10640 +16 _RRR RE E READS _ U6CRT 10640
000012 10650 PECDE EQU 10 U6CRT 10650
000022 10660 PECH EQU 18 U6CRT 10660
000035 10670 PESVO EQU 29 U6CRT 10670
000043 10680 PEDEN EQU 35 U6CRT 10680
000055 10690 PEMDE EQU 45 U6CRT 10690
000104 10700 WBLKS EQU 68 U6CRT 10700
000074 10710 AMOD EQU 60 U6CRT 10710
000122 10720 WTPEC EQU 82 U6CRT 10720
000144 10730 RBLKS EQU 100 U6CRT 10730
000162 10740 RTPEC EQU 114 U6CRT 10740
014500 10750 ORIG $,64 U6CRT 10750
014517 U6CRT CCC CH 10760 PA2 +16 _U6CRT CCC CH_ PRINT ERRORS U6CRT 10760
014537 C SERVO NN 10770 +16 _ C S SERVO NN _ U6CRT 10770 N
014557 DDD PPI MMM M 10780 +16 _ DDD PPPPI MMM M_ U6CRT 10780 M
014577 ODE BLK NO M 10790 +16 _ODE BLK NO M _ U6CRT 10790
014617 BBBBB T BBBBB 10800 +16 _BBBBB T T BBBBB _ U6CRT 10800
014637 XF FF DDDD 10810 PA2A +16 _XF FF D DDDD _ U6CRT 10810
014657 10820 +16 _ _ U6CRT 10820
014677 10830 +16 _ _ U6CRT 10830
000104 10840 MBLK EQU 68 U6CRT 10840
000114 10850 TBLK EQU 76 U6CRT 10850
000124 10860 XFFNC EQU 84 U6CRT 10860
000131 10870 XFDTL EQU 89 U6CRT 10870
014702 TOT 10880 ATOT +3 _TOT_ U6CRT 10880
014705 SEQ 10890 ASEQ +3 _SEQ_ U6CRT 10890
014710 INT 10900 AINT +3 _INT_ U6CRT 10900
014713 CMP 10910 ACMP +3 _CMP_ U6CRT 10910
014716 FLT 10920 AFLT +3 _FLT_ U6CRT 10920
014721 BA 10930 ABA +3 _BA _ U6CRT 10930
014724 SBA 10940 ASBA +3 _SBA_ U6CRT 10940
014727 BSE 10950 ABSE +3 _BSE_ U6CRT 10950
014732 SKE 10960 ASKE +3 _SKE_ U6CRT 10960
014735 TTE 10970 ATTE +3 _TTE_ U6CRT 10970
014745 ABA MODE 10980 AMDE +8 _ABA MODODE_ U6CRT 10980
014765 IND IIIIIIIII 10990 PA2B +16 _ IND D IIIIIIIII_ U6CRT 10990 I
015005 III 11000 +16 _III _ U6CRT 11000
014746 11010 INDPR EQU PA2B-15 5 U6CRT 11010
015025 DATA M DDDDD 11020 PA2C +16 _ DATATA M DDDDD_ U6CRT 11020 D
015045 D T DDDDDD 11030 +16 _D T DDDDDDDD _ U6CRT 11030
015065 TTT ERROR M MMM 11040 PA2D +16 _TTT ERRRROR M MMM_ U6CRT 11040 M
015105 MMM T TTTTTT 11050 +16 _MMM T T TTTTTT _ U6CRT 11050
014770 11060 IND EQU PA2B+3 U6CRT 11060
015026 11070 MDAT EQU PA2C+1 U6CRT 11070
015040 11080 TDAT EQU PA2C+11 1 U6CRT 11080
015006 11090 DATPR EQU PA2C-15 5 U6CRT 11090
015040 11100 DATS EQU TDAT TEMPORARY STORAGE FOR DATA U6CRT 11100 T
015070 11110 MEMTT EQU PA2D+3 U6CRT 11110
015102 11120 TAPTT EQU PA2D+13 3 U6CRT 11120
015050 11130 TTERR EQU PA2D-13 3 U6CRT 11130
015110 013662 11140 CHLIM +3 CLAS2+5 5 U6CRT 11140
015114 00014132 11150 STST +4 TST1 INITIAL TEST SETTING U6CRT 11150
015120 00014175 11160 TSTLM +4 TST6 TEST LIMIT U6CRT 11160
015124 00015433 11170 DPLIM +4 DPAT+13737 U6CRT 11170
015130 00014204 11180 SSTST +4 STST1 INITIAL SUB-TEST SETTING U6CRT 11180
* 015131 3140000000 11190 SETJ1 J 0,X6 U6CRT 11190
* 015136 3000000000 11200 SETJ2 J 0 U6CRT 11200
* 015143 3001514331 11210 JC $,25 U6CRT 11210
015153 00000000 11220 CTST +4 0 ADDRESS OF CURRENT TEST U6CRT 11220
015160 00001 11230 DCML1 +5 _00001_ _ DECIMAL 1 U6CRT 11230
015163 001000 11240 BLKMX +3 512 MAXIMUM BLOCK SIZE U6CRT 11240 A
015166 001750 11250 BLKLM +3 1000 NUMBER OF BLOCKS U6CRT 11250
015167 77 11260 TIND +1 077 TEST TO BE EXECUTED U6CRT 11260
11270 . BIT1 EQUQUALS TEST1,BIT2 EQUALS TEST2,ETC. U6CRT 11270 S
015170 00 11280 SVOLM +1 0 NUMBER OF SERVOS U6CRT 11280
015171 00 11290 SVOCT +1 0 U6CRT 11290
015172 00 11300 SVTBL +1 0 SERVO TABLE U6CRT 11300
015173 01 11310 SA1 +1 1 U6CRT 11310
015174 17 11320 SA2 AREA 15,,077 7 U6CRT 11320
015222 5252252552524646 11330 DPAT +8 0525225252552524646 DATA PATTERN FOR TAPE U6CRT 11330 6
015232 3131464670700707 11340 +8 0313146464670700707 U6CRT 11340 7
015242 7070676714146767 11350 +8 0707067676714146767 U6CRT 11350 7
015252 3434636334345252 11360 +8 0343463636334345252 U6CRT 11360 2
015262 5225252552525246 11370 +8 0522525252552525246 SPECIAL SKEW PATTERN U6CRT 11370 2
015272 4646313131464646 11380 +8 0464631313131464646 FOR BCD OR BINY MODE U6CRT 11380 6
015302 7070700707077070 11390 +8 0707070000707077070 U6CRT 11390 0
015312 7067676714141467 11400 +8 0706767676714141467 U6CRT 11400 4
015322 6767343434636363 11410 +8 0676734343434636363 U6CRT 11410 3
015332 3434345252525225 11420 +8 0343434545252525225 U6CRT 11420 2
015342 2525255252525246 11430 +8 0252525555252525246 U6CRT 11430 2
015352 4646463131313146 11440 +8 0464646363131313146 U6CRT 11440 1
015362 4646467070707007 11450 +8 0464646767070707007 U6CRT 11450 0
015372 0707077070707067 11460 +8 0070707777070707067 U6CRT 11460 0
015402 6767671414141467 11470 +8 0676767171414141467 U6CRT 11470 4
015412 6767673434343463 11480 +8 0676767373434343463 U6CRT 11480 4
015421 63636334343434 11490 +7 06363633334343434 U6CRT 11490 4
015431 5252252552524646 11500 +8 0525225252552524646 U6CRT 11500 6
015432 31 11510 +1 031 U6CRT 11510
015433 140 11520 EAREA AREA 96 ERROR COUNT AREA U6CRT 11520
015573 66 11530 CHTS1 AREA 54 TS FOR AR_S AND IR_S DURING INTERRUPT U6CRT 11530
015661 00 11540 DAREA +1 0 BEGINNING OF DATA AREA U6CRT 11540
015172 11550 S0ADD EQU SVTBL U6CRT 11550
015173 11560 S1ADD EQU SVTBL+1 1 U6CRT 11560
3000361200 11570 END START U6CRT 11570
{-- tape mark --}
002465 C411 U6CSET CODEDIT SOURCE - T3834394-41
002000 00010 T410 BEGIN 02000 SPECIAL ENG TEST U6CSET00010
*LOAD 0700,TAPAPE,R,PRELD E
* 002000 3007010660 * JD 070106 *
* 002005 3000200000 * J $-5 *
SEGMENT-ID T411 3000200000 * 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 T412 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 T413 3000136300 * SEGJP $ *
001400 00020 ORIG $,64 U6CSET00020
001400 2000545403 00030 INIT FT C2INT,3 3 SET CLASS 2 I. E. U6CSET00030
001405 5200051703 00040 SA1 335,3 UNISERVO 6C SPECIAL U6CSET00040
* 001412 3000000060 00050 START JD 0 ENGINEERING TEST U6CSET00050 I
001417 2000000011 00060 INIT1 FT 0,X1 U6CSET00060
001424 4400146111 00070 SC INIT2+4,4,9 SET UNUSED I. E. LOCATIONS U6CSET00070
001431 5600544210 00080 BA1 INTER,8 8 U6CSET00080
001436 5220040710 00090 SA1 0407,8,X,X1 U6CSET00090
001443 6000001710 00100 AC AR1,8 U6CSET00100
001450 2020001011 00110 FT 8,X1,X1 1 U6CSET00110
* 001455 3200143600 00120 INIT2 JL $-15,0 U6CSET00120
001462 5600543204 00130 BA1 DBASE,4 4 U6CSET00130
001467 5600412724 00140 BA2 C5CCS,4 4 U6CSET00140
001474 5200412304 00150 SA1 C5TT,4 SET CHANNEL 5 TETRAD 52 CONSTANT U6CSET00150
001501 7200001724 00160 AB2 AR1,4 U6CSET00160
001506 5200533304 00170 SA1 C4TT,4 SET CHANNEL 4 TETRAD 48 CONSTANT U6CSET00170
001513 4400176440 00180 SC C5CK2+4,4,32 SET SKIP FOR INITIALIZE U6CSET00180
001520 3400413577 00190 C5CK CC C5XF+2,6,63 U6CSET00190
* 001525 3000176542 00200 JE C4CK JUMP IF CH 5 NOT USED U6CSET00200
001532 2000263103 00210 FT C5INT,3 3 SET I. E. CHANNEL 5 U6CSET00210
001537 5200045703 00220 SA1 303,3 U6CSET00220
001544 4400045431 00230 SC 300,25 RESET CLASS 3 INHIBIT U6CSET00230
001551 4400273640 00240 SC C5RWI+4,4,32 SET REWIND INDICATOR SKIP U6CSET00240
001556 4600412311 00250 BT C5TT,X1 1 U6CSET00250
001563 5600412304 00260 BA1 C5TT,4 U6CSET00260
001570 5600412724 00270 BA2 C5CCS,4 4 U6CSET00270
001575 7200001724 00280 AB2 AR1,4 U6CSET00280
001602 5600414021 00290 BA2 C5DAT,1 1 U6CSET00290
001607 1400413502 00300 LC C5XF+2,0,02 U6CSET00300
* 001614 3000162642 00310 JE $+10 U6CSET00310
001621 2600003701 00320 PD AR2,1 CLEAR AREA IF NOT WRITE U6CSET00320 R
001626 5220000021 00330 SA2 0,1,X1 FILL CH 5 DATA AREA U6CSET00330
001633 2020000111 00340 FT 1,X1,X1 1 U6CSET00340
001640 7400001711 00350 CT AR1,X1 U6CSET00350
* 001645 3000162644 00360 JS $-15 U6CSET00360
001652 2600033700 00370 C5CK1 PD 223,16 CLEAR CH 5 TETRADS U6CSET00370
001657 2600415612 00380 PD C5EC1,1010 CLEAR CH 5 ERROR COUNTS U6CSET00380
001664 2600417600 00390 PD C5EC2,1616 U6CSET00390
001671 2600421600 00400 PD C5EC3,1616 U6CSET00400
* 001676 3000170325 00410 JC $+5,21 RESET CHANNEL 5 BUSY IND. U6CSET00410
001703 5600413705 00420 BA1 C5XF+4,5,5 U6CSET00420
001710 5200230105 00430 SA1 C5EXF+4,4,5 SET XF INSTRUCTION CH 5 U6CSET00430
001715 5200331105 00440 SA1 C5XF2+4,4,5 SET XF FOR DELAY ROUTINE U6CSET00440
* 001722 3000172771 00450 JC $+5,57 RESET TRACE U6CSET00450
* 001727 3000000540 00460 JC 5,32 GO TO CHANNEL 5 DELAY U6CSET00460
* 001734 3000307671 00470 JC C5DEL,5757 ROUTINE ON TRACE 1 U6CSET00470
001741 4400223100 00480 SC C5IND,0 0 SET CH 5 INDICATOR TO JUMP U6CSET00480
001746 2000230703 00490 FT C5RT,3 U6CSET00490
001753 5200225403 00500 SA1 C5IO+3,3,3 U6CSET00500
* 001760 3000222560 00510 C5CK2 JC INDLP,4848 U6CSET00510
001765 3400534577 00520 C4CK CC C4XF+2,6,63 U6CSET00520
* 001772 3000222542 00530 JE INDLP CH 4 NOT USED U6CSET00530
001777 2000457703 00540 FT C4INT,3 3 SET I. E. CHANNEL 4 U6CSET00540
002004 5200044703 00550 SA1 295,3 U6CSET00550
002011 4400044431 00560 SC 292,25 U6CSET00560
002016 4400470440 00570 SC C4RWI+4,4,32 SET REWIND INDICATOR SKIP U6CSET00570
002023 4600533311 00580 BT C4TT,X1 1 U6CSET00580
002030 5600533304 00590 BA1 C4TT,4 U6CSET00590
002035 5600533724 00600 BA2 C4CCS,4 4 U6CSET00600
002042 7200001724 00610 AB2 AR1,4 U6CSET00610
002047 5600535021 00620 BA2 C4DAT,1 1 U6CSET00620
002054 1400534502 00630 LC C4XF+2,0,02 U6CSET00630
* 002061 3000207342 00640 JE $+10 U6CSET00640
002066 2600003701 00650 PD AR2,1 CLEAR AREA IF NOT WRITE U6CSET00650 R
002073 5220000021 00660 SA2 0,1,X1 FILL CHANNEL 4 DATA AREA U6CSET00660
002100 2020000111 00670 FT 1,X1,X1 1 U6CSET00670
002105 7400001711 00680 CT AR1,X1 U6CSET00680
* 002112 3000207344 00690 JS $-15 U6CSET00690
002117 2600031700 00700 C4CK1 PD 207,16 CLEAR CH 4 TETRADS U6CSET00700
002124 2600536612 00710 PD C4EC1,1010 CLEAR CH 4 ERROR COUNTS U6CSET00710
002131 2600540600 00720 PD C4EC2,1616 U6CSET00720
002136 2600542600 00730 PD C4EC3,1616 U6CSET00730
* 002143 3000215026 00740 JC $+5,22 RESET CH 4 BUSY INDICATOR U6CSET00740
002150 5600534705 00750 BA1 C4XF+4,5,5 U6CSET00750
002155 5200425405 00760 SA1 C4EXF+4,4,5 U6CSET00760
002162 5200520205 00770 SA1 C4XF2+4,4,5 U6CSET00770
* 002167 3000217471 00780 JC $+5,57 U6CSET00780
* 002174 3000000440 00790 JC 4,32 U6CSET00790
* 002201 3000504471 00800 JC C4DEL,5757 JUMP TO CH 4 DELAY ROUTINE U6CSET00800
002206 4400223600 00810 SC C4IND,0 0 SET CH 4 INDICATOR TO JUMP U6CSET00810
002213 2000426203 00820 FT C4RT,3 U6CSET00820
002220 5200422703 00830 SA1 C4IO+3,3,3 U6CSET00830
* 002225 3000224470 00840 INDLP JC C5IO-5,5,56 INDICATOR LOOP U6CSET00840
* 002232 3000421770 00850 JC C4IO-5,5,56 U6CSET00850
* 002237 3000222500 00860 J INDLP U6CSET00860
00870 . CHANNEL 5 ROUTINES U6CSET00870 N
002244 4400223140 00880 SC C5IND,3232 RESET CH 5 INDICATOR U6CSET00880
* 002251 3000225100 00890 C5IO J $ U6CSET00890
002256 5600412710 00900 BA1 C5CCS,8 8 SET CHANNEL 5 TETRADS U6CSET00900
002263 5200032710 00910 SA1 C5WCC,8 8 U6CSET00910
002270 6000415201 00920 AC C5XCT,1 1 INCREMENT XF COUNT U6CSET00920
* 002275 3000227520 00930 C5EXF JHJ $ ISSUE CH 5 XF U6CSET00930
* 002302 3000223200 00940 J INDLP+5 5 U6CSET00940
* 002307 1000225400 00950 C5RT JR C5IO U6CSET00950
* 002314 3000227565 00960 JC C5EXF,5353 REISSUE ON BUSY FROM REWIND U6CSET00960
* 002321 1000244440 00970 JR C5CMP,3232 COMPARE DATA IF DETAIL = 00 U6CSET00970
002326 6000414701 00980 AC C5BCT,1 1 INCREMENT BLOCK COUNT U6CSET00980
002333 5600414703 00990 BA1 C5BCT,3 3 U6CSET00990
002340 7000415243 01000 CB1 C5XCT,3 3 U6CSET01000
* 002345 3000235742 01010 JE C5BCE C5BCT EQUAL TO C5XCT U6CSET01010
* 002352 3005000260 01020 JD 050002 ERROR 2 U6CSET01020
002357 7000413243 01030 C5BCE CB1 C5BLM,3 3 U6CSET01030
* 002364 3000237642 01040 JE C5END C5BCT EQUAL TO C5BLM U6CSET01040
* 002371 3000230700 01050 J C5RT U6CSET01050
002376 4400176400 01060 C5END SC C5CK2+4,4,0 U6CSET01060
* 002403 3005000340 01070 JC 050003,3,32 U6CSET01070
* 002410 3000165240 01080 JC C5CK1,3232 U6CSET01080
002415 4400227704 01090 SC C5EXF+2,2,4 U6CSET01090
* 002422 1000225400 01100 JR C5IO REWIND SERVO U6CSET01100
002427 4400273622 01110 SC C5RWI+4,4,18 SET REWIND INDICATOR U6CSET01110
* 002434 3000165200 01120 J C5CK1 RESTART U6CSET01120
* 002441 3000244100 01130 C5CMP J $ COMPARE ROUTINE U6CSET01130
002446 5600412304 01140 BA1 C5TT,4 U6CSET01140
002453 5200004704 01150 SA1 X1,4 U6CSET01150
002460 5600412724 01160 BA2 C5CCS,4 4 U6CSET01160
002465 7200003704 01170 AB1 AR2,4 U6CSET01170
002472 5600414001 01180 BA1 C5DAT,1 1 U6CSET01180
002477 5200251001 01190 SA1 C5C1+4,1,1 U6CSET01190
002504 3420000000 01200 C5C1 CC 0,0,X1 U6CSET01200
* 002511 3000260543 01210 JU C5CER U6CSET01210
002516 2020000111 01220 C5C2 FT 1,X1,X1 1 U6CSET01220
002523 7400003711 01230 CT AR2,X1 U6CSET01230
* 002530 3000250444 01240 JS C5C1 U6CSET01240
002535 1400413502 01250 LC C5XF+2,0,02 U6CSET01250
* 002542 3000244142 01260 JE C5CMP DO NOT CLEAR IF WRITE U6CSET01260 O
002547 4600412311 01270 BT C5TT,X1 1 U6CSET01270
002554 2620000001 01280 PD 0,1,X1 U6CSET01280
002561 2020000111 01290 FT 1,X1,X1 1 U6CSET01290
002566 7400003711 01300 CT AR2,X1 U6CSET01300
* 002573 3000255444 01310 JS $-15 U6CSET01310
* 002600 3000244100 01320 J C5CMP U6CSET01320
* 002605 3005000760 01330 C5CER JD 050007 COMPARE ERROR U6CSET01330
* 002612 3020000060 01340 JC 0,48,X1 1 ADDRESS OF CHARACTER IN ERROR IN IR1 U6CSET01340
* 002617 3000244140 01350 JC C5CMP,3232 U6CSET01350
* 002624 3000251600 01360 J C5C2 U6CSET01360
002631 4120007777 01370 C5INT XF 0,07777,7,0,5 CHANNEL 5 INTERRUPT ROUTINE U6CSET01370
* 002636 3000267453 01380 JC C5ERR,4343 U6CSET01380
* 002643 3000265025 01390 C5OUT JC $+5,21 RESET BUSY INDICATOR SI 1 U6CSET01390
002650 4400273640 01400 SC C5RWI+4,4,32 U6CSET01400
002655 4400223100 01410 SC C5IND,0 0 SET CH 5 INDICATOR U6CSET01410
002662 4120407777 01420 XF 040,0777777,0,5 RESET ERRORS U6CSET01420
* 002667 3000045000 01430 J 296 EXIT FROM INTERRUPT U6CSET01430
002674 4120005777 01440 C5ERR XF 0,05777,7,0,5 U6CSET01440
* 002701 3000273753 01450 JC C5ER1,4343 U6CSET01450
002706 4120002000 01460 XF 0,02000,0,0,5 U6CSET01460
* 002713 3000273253 01470 JC C5RWI,4343 U6CSET01470
* 002720 3005001060 01480 JD 050010 CH 5 INT. NO IND SET U6CSET01480
* 002725 3000273700 01490 J C5ER1 U6CSET01490
* 002732 3000265560 01500 C5RWI JC C5OUT+1010,48 SET SENSE INDICATOR 1 IF LAST XF WAS RW U6CSET01500 S
002737 5200545303 01510 C5ER1 SA1 TSAR1,3 3 SAVE AR1 U6CSET01510
* 002744 3000545051 01520 JC INDTS,4141 SAVE INDICATORS U6CSET01520
002751 4120000002 01530 XF 0,02,0,5,5 TEST END OF TAPE U6CSET01530
* 002756 3000301453 01540 JC C5EOT,4343 EOT ENCOUNTERED CH 5 U6CSET01540
* 002763 3000264364 01550 C5ER2 JC C5OUT,5252 IGNORE ERRORS IF SENSE SWITCH 3 SET U6CSET01550
* 002770 1000304300 01560 JR C5ERD DISPLAY ERROR BITS U6CSET01560
002775 5600545303 01570 C5ER3 BA1 TSAR1,3 3 U6CSET01570
* 003002 3000545052 01580 JC INDTS,4242 U6CSET01580
* 003007 3000264300 01590 J C5OUT U6CSET01590
* 003014 3005000660 01600 C5EOT JD 050006 U6CSET01600
003021 2000237603 01610 FT C5END,3 3 U6CSET01610
003026 5200225403 01620 SA1 C5IO+3,3,3 SET RW FOR EOT U6CSET01620
* 003033 3000276300 01630 J C5ER2 U6CSET01630
* 003040 3000304000 01640 C5ERD J $ U6CSET01640
003045 2000415312 01650 FT C5ECT,X2X2 U6CSET01650
003052 6400347120 01660 LS TST+1,02020 U6CSET01660
003057 4400352205 01670 SC ERR2+1,5,5 U6CSET01670
* 003064 1000344200 01680 JR ERRBD U6CSET01680
* 003071 3000304000 01690 J C5ERD U6CSET01690
003076 4400335440 01700 C5DEL SC C5D4+4,3,32 CHANNEL 5 DELAY ROUTINE U6CSET01700
003103 4400400440 01710 SC BDS1+4,3,32 U6CSET01710
003110 4400360240 01720 SC XFS1+4,3,32 U6CSET01720
003115 2000000203 01730 FT 2,3 U6CSET01730
003122 5200414202 01740 SA1 C5CC,2 U6CSET01740
003127 2000414213 01750 FT C5CC,X3 3 U6CSET01750
003134 2000335403 01760 FT C5D4+4,3,3 U6CSET01760
003141 5200363203 01770 SA1 XFDL5+3,3,3 U6CSET01770
003146 2000045007 01780 FT 296,7 U6CSET01780
003153 5200045723 01790 SA2 303,3 U6CSET01790
003160 4400045424 01800 SC 300,20 U6CSET01800
003165 4400352205 01810 SC ERR2+1,5,5 SET 5 FOR ERROR DISPLAY U6CSET01810
003172 5600412304 01820 BA1 C5TT,4 U6CSET01820
003177 4600412311 01830 BT C5TT,X1 1 U6CSET01830
003204 5600543622 01840 BA2 DBASE+4,4,2 U6CSET01840
003211 7200001723 01850 AB2 AR1,3 U6CSET01850
003216 5600414021 01860 BA2 C5DAT,1 1 U6CSET01860
003223 5220000021 01870 SA2 0,1,X1 FILL 4095 WORDS WITH U6CSET01870
003230 2020000111 01880 FT 1,X1,X1 1 DATA U6CSET01880
003235 7400001711 01890 CT AR1,X1 U6CSET01890
* 003242 3000322344 01900 JS $-15 U6CSET01900
003247 2000415312 01910 FT C5ECT,X2X2 ERROR COUNT BASE ADDRESS U6CSET01910
003254 6400347120 01920 LS TST+1,02020 U6CSET01920
003261 5660000002 01930 C5D1 BA1 0,2,X3 U6CSET01930
003266 5200032702 01940 SA1 C5WCC,2 2 SET CHARACTER COUNT IN TETRAD U6CSET01940
003273 5600412304 01950 BA1 C5TT,4 U6CSET01950
003300 5200032304 01960 SA1 C5WBA,4 4 SET BASE ADDRESS TETRAD U6CSET01960
* 003305 3000330520 01970 C5XF2 JHJ $ ISSUE XF INSTRUCTION U6CSET01970
* 003312 1000357462 01980 C5D2 JR XFD,50 XF DELAY IF SENSE SWITCH 1 SET U6CSET01980
* 003317 1000377663 01990 C5D3 JR BLKDL,5151 BLOCK LENGTH DELAY IF SENSE SWITCH 2 SETU6CSET01990
* 003324 3000333667 02000 JC $+10,55 5 SENSE INDICATOR 3 SET IF INT. OCCURRED U6CSET02000
* 003331 3000332400 02010 J $-5 U6CSET02010
003336 4120007777 02020 XF 0,07777,7,0,5 U6CSET02020
* 003343 3000336753 02030 JC C5IER,4343 ERROR ON CH 5 U6CSET02030
* 003350 1000372140 02040 C5D4 JR XFDRT,3232 U6CSET02040
* 003355 3000336227 02050 C5D5 JC $+5,23 RESET INTERRUPT INDICATOR SENSE IND. 3 U6CSET02050
* 003362 3000326131 02060 JC C5D1,25 5 RESET CLASS 3 U6CSET02060
003367 4120000002 02070 C5IER XF 0,02,0,5,5 U6CSET02070
* 003374 3000342553 02080 JC C5I2,43 3 END OF TAPE U6CSET02080
* 003401 3000341364 02090 C5I1 JC $+10,52 2 IGNORE ERROR IF SENSE SWITCH 3 SET U6CSET02090
* 003406 1000344200 02100 JR ERRBD U6CSET02100
003413 4120407777 02110 XF 040,0777777,0,5 RESET ERRORS U6CSET02110
* 003420 3000335000 02120 J C5D4 U6CSET02120
* 003425 3005000660 02130 C5I2 JD 050006 END OF TAPE STOP U6CSET02130
* 003432 3000340100 02140 J C5I1 U6CSET02140
* 003437 3000343700 02150 ERRBD J $ U6CSET02150
003444 2000000014 02160 FT 0,X4 CLEAR IR4 U6CSET02160
003451 4400347300 02170 SC TST+3,0 0 U6CSET02170
003456 4400347401 02180 SC TST+4,1 1 U6CSET02180
003463 4400352014 02190 SC ERR1+4,1,12 U6CSET02190
003470 4100000000 02200 TST XF 0,0,0,4 4 TEST INDICATORS U6CSET02200
* 003475 1000354353 02210 JR ECI,43 U6CSET02210
003502 1600347461 02220 BC2 TST+4,1 1 U6CSET02220
003507 2040000312 02230 FT 3,X2,X2 2 U6CSET02230
* 003514 3200347000 02240 ERR1 JL TST,0 U6CSET02240
* 003521 3000000460 02250 ERR2 JD 4 ERROR STOP U6CSET02250
* 003526 3100000060 02260 JC 0,48,X4 4 U6CSET02260
* 003533 3000343700 02270 J ERRBD U6CSET02270
* 003540 3000354000 02280 ECI J $ U6CSET02280
003545 5600347402 02290 BA1 TST+4,2 2 U6CSET02290
003552 7200006302 02300 AB1 X4,2 BUFF IN DETAIL BITS OF TEST INSTR. TO IR4 U6CSET02300 B
003557 6040000201 02310 AC 2,1,X2 INCREMENT ERROR COUNT U6CSET02310
* 003564 3000354000 02320 J ECI U6CSET02320
* 003571 3000357100 02330 XFD J $ INCR/DECR DELAY U6CSET02330
* 003576 3000364140 02340 XFS1 JC XFS1B,3232 U6CSET02340
003603 4400360200 02350 XFS1A SC $-1,0 SET XFS1B U6CSET02350
003610 4400365242 02360 SC XFDL1+4,4,34 SET SUBTRACT U6CSET02360
003615 2000777707 02370 FT 4095,7 U6CSET02370
003622 5200003323 02380 SA2 033,3 U6CSET02380
003627 4400000000 02390 XFDL5 SC 0,0 SET JUMP IN C5D4 OR C4D4 U6CSET02390
* 003634 3000357100 02400 J XFD U6CSET02400
003641 5600544702 02410 XFS1B BA1 BONE,2 U6CSET02410
003646 7200003742 02420 XFDL1 SB1 AR2,2 U6CSET02420
003653 5200003322 02430 SA2 033,2 U6CSET02430
003660 7000544462 02440 CB2 XFLM1,2 2 U6CSET02440
* 003665 3000370442 02450 JE XFDL2 LIMIT ON SUBTRACT U6CSET02450
* 003672 3000360345 02460 JC XFS1A,3737 ZERO RESULT ON ADD U6CSET02460 Z
* 003677 3000357100 02470 J XFD U6CSET02470
003704 4400365202 02480 XFDL2 SC XFDL1+4,4,2 SET ADD U6CSET02480
* 003711 3000357100 02490 J XFD U6CSET02490
* 003716 3000371600 02500 XFDRT J $ XF DELAY ROUTINE U6CSET02500
* 003723 3200372300 02510 JL $,0 U6CSET02510
003730 5600544702 02520 BA1 BONE,2 U6CSET02520
003735 7200003302 02530 AB1 033,2 U6CSET02530
* 003742 3000375445 02540 JC XFDL4,3737 ZERO RESULT U6CSET02540
* 003747 3000373000 02550 J $-15 U6CSET02550
003754 5200003322 02560 XFDL4 SA2 033,2 U6CSET02560
003761 4400372700 02570 XFDL6 SC XFDRT+9,9,0 U6CSET02570
* 003766 3000371600 02580 J XFDRT U6CSET02580
* 003773 3000377300 02590 BLKDL J $ BLOCK LENGTH DELAY U6CSET02590
* 004000 3000403640 02600 BDS1 JC BDS1B,3232 U6CSET02600
004005 4400400400 02610 BDS1A SC $-1,0 SET SWITCH TO B U6CSET02610
004012 4400404702 02620 SC BDS2+4,2,2 U6CSET02620
004017 2000000203 02630 BLKD1 FT 2,3 U6CSET02630
004024 5260000002 02640 SA1 0,2,X3 SET CHARACTER COUNT EQUAL 2 U6CSET02640
* 004031 3000377300 02650 J BLKDL U6CSET02650
004036 5660000202 02660 BDS1B BA1 2,2,X3 INCREMENT CHARACTER COUNT U6CSET02660
004043 7260000002 02670 BDS2 AB1 0,2,X3 BY FRAME COUNT U6CSET02670
* 004050 3000406245 02680 JC BDSR1,3737 ZERO RESULT U6CSET02680
* 004055 3000377300 02690 J BLKDL U6CSET02690
004062 3400404702 02700 BDSR1 CC BDS2+4,2,2 U6CSET02700
* 004067 3000400543 02710 JU BDS1A U6CSET02710
004074 6400404740 02720 LS BDS2+4,0,040 CHANGE TO SUBTRACT U6CSET02720
004101 2000777603 02730 FT 4094,3 U6CSET02730
004106 5260000002 02740 SA1 0,2,X3 U6CSET02740
* 004113 3000377300 02750 J BLKDL U6CSET02750
02760 . CHANNEL 5 CONSTANTS U6CSET02760 N
004123 00005637 02770 C5TT +4 DAREA CH 5 SET ADDRESS TETRAD U6CSET02770
004127 00000100 02780 C5CCS +4 64 CH 5 CHARACTER COUNT SET U6CSET02780
004132 001750 02790 C5BLM +3 1000 CH 5 BLOCK COUNT LIMIT U6CSET02790
004133 4120020000 02800 C5XF XF 02,00,0,0,5 CH 5 WRITE XF U6CSET02800
004140 77 02810 C5DAT +1 077 CH 5 DATA PATTERN U6CSET02810
004142 0002 02820 C5CC +2 2 CH 5 CHARACTER COUNT FOR DLYU6CSET02820
004144 0002 02830 C5FCT +2 2 CH 5 FRAME COUNT INCR. U6CSET02830
004147 000000 02840 C5BCT +3 0 CH 5 BLOCK COUNT U6CSET02840
004152 000000 02850 C5XCT +3 0 CH 5 XF COUNT U6CSET02850
004153 44 02860 C5ECT AREA 36 AREA FOR ERROR COUNTS U6CSET02860
004156 4 02870 C5EC1 - 4 ERROR COUNTS ARE IN ORDER U6CSET02870
004176 20 02880 C5EC2 - 16 BITS 1 THRU 12 U6CSET02880
004216 20 02890 C5EC3 - 16 THREE CHARACTER COUNT FOR EACH U6CSET02890
000323 02900 C5WBA EQU 211 CH 5 TAPE WRITE BASE ADDR. U6CSET02900
000327 02910 C5WCC EQU 215 CH 5 WRITE CHARACTER COUNT U6CSET02910
002231 02920 C5IND EQU INDLP+4 4 CH 5 INTERRUPT INDICATOR U6CSET02920
02930 . CHANNEL 4 ROUTINES U6CSET02930 N
004217 4400223640 02940 SC C4IND,3232 RESET CH 4 INDICATOR U6CSET02940
* 004224 3000422400 02950 C4IO J $ U6CSET02950
004231 5600533710 02960 BA1 C4CCS,8 8 SET CH 4 TETRADS U6CSET02960
004236 5200030710 02970 SA1 C4RCC,8 8 U6CSET02970
004243 6000536201 02980 AC C4XCT,1 1 INCREMENT XF COUNT U6CSET02980
* 004250 3000425020 02990 C4EXF JHJ $ ISSUE XF U6CSET02990
* 004255 3000222500 03000 J INDLP U6CSET03000
* 004262 1000422700 03010 C4RT JR C4IO U6CSET03010
* 004267 3000425066 03020 JC C4EXF,5454 REISSUE ON BUSY FROM REWIND U6CSET03020
* 004274 1000441240 03030 JR C4CMP,3232 COMPARE DATA IF DETAIL = 00 U6CSET03030
004301 6000535701 03040 AC C4BCT,1 1 INCREMENT BLOCK COUNT U6CSET03040
004306 5600535703 03050 BA1 C4BCT,3 3 U6CSET03050
004313 7000536243 03060 CB1 C4XCT,3 3 U6CSET03060
* 004320 3000433242 03070 JE C4BCE C4BCT EQUAL TO C4XCT U6CSET03070
* 004325 3004000260 03080 JD 040002 ERROR 2 U6CSET03080
004332 7000534243 03090 C4BCE CB1 C4BLM,3 3 U6CSET03090
* 004337 3000435142 03100 JE C4END C4BCT EQUAL TO C4BLM U6CSET03100
* 004344 3000426200 03110 J C4RT U6CSET03110
* 004351 3004000340 03120 C4END JC 040003,3,32 U6CSET03120
* 004356 3000211740 03130 JC C4CK1,3232 U6CSET03130
004363 4400425204 03140 SC C4EXF+2,2,4 U6CSET03140
* 004370 1000422700 03150 JR C4IO REWIND SERVO U6CSET03150
004375 4400470423 03160 SC C4RWI+4,4,19 SET REWIND INDICATOR U6CSET03160
* 004402 3000211700 03170 J C4CK1 RESTART U6CSET03170
* 004407 3000440700 03180 C4CMP J $ U6CSET03180
004414 5600533304 03190 BA1 C4TT,4 U6CSET03190
004421 5200004704 03200 SA1 X1,4 U6CSET03200
004426 5600533724 03210 BA2 C4CCS,4 4 U6CSET03210
004433 7200003704 03220 AB1 AR2,4 U6CSET03220
004440 5600535001 03230 BA1 C4DAT,1 1 U6CSET03230
004445 5200445601 03240 SA1 C4C1+4,1,1 U6CSET03240
004452 3420000001 03250 C4C1 CC 0,1,X1 U6CSET03250
* 004457 3000455343 03260 JU C4CER U6CSET03260
004464 2020000111 03270 C4C2 FT 1,X1,X1 1 U6CSET03270
004471 7400003711 03280 CT AR2,X1 U6CSET03280
* 004476 3000445244 03290 JS C4C1 U6CSET03290
004503 1400534502 03300 LC C4XF+2,0,02 U6CSET03300
* 004510 3000440742 03310 JE C4CMP U6CSET03310
004515 4600533311 03320 BT C4TT,X1 1 U6CSET03320
004522 2620000001 03330 PD 0,1,X1 U6CSET03330
004527 2020000111 03340 FT 1,X1,X1 1 U6CSET03340
004534 7400003711 03350 CT AR2,X1 U6CSET03350
* 004541 3000452244 03360 JS $-15 U6CSET03360
* 004546 3000440700 03370 J C4CMP U6CSET03370
* 004553 3004000760 03380 C4CER JD 040007 COMPARE ERROR U6CSET03380
* 004560 3020000060 03390 JC 0,48,X1 1 ADDRESS OF CHARACTER IN ERRORU6CSET03390
* 004565 3000440740 03400 JC C4CMP,3232 U6CSET03400
* 004572 3000446400 03410 J C4C2 U6CSET03410
004577 4100007777 03420 C4INT XF 0,07777,7,0,4 CHANNEL 4 INTERRUPT ROUTINE U6CSET03420
* 004604 3000464253 03430 JC C4ERR,4343 U6CSET03430
* 004611 3000461626 03440 C4OUT JC $+5,22 RESET BUSY INDICATOR SI 2 U6CSET03440
004616 4400470440 03450 SC C4RWI+4,4,32 U6CSET03450
004623 4400223600 03460 SC C4IND,0 0 SET CH 4 INDICATOR U6CSET03460
004630 4100407777 03470 XF 32,0777777,0,4 RESET ERRORS U6CSET03470
* 004635 3000044000 03480 J 288 EXIT FROM INTERRUPT U6CSET03480
004642 4100005777 03490 C4ERR XF 0,05777,7,0,4 U6CSET03490
* 004647 3000470553 03500 JC C4ER1,4343 U6CSET03500
004654 4100002000 03510 XF 0,02000,0,0,4 U6CSET03510
* 004661 3000470053 03520 JC C4RWI,4343 U6CSET03520
* 004666 3004001060 03530 JD 040010 CH 4 INT. NO IND. SET U6CSET03530
* 004673 3000470500 03540 J C4ER1 U6CSET03540
* 004700 3000462360 03550 C4RWI JC C4OUT+1010,48 SET SENSE INDICATOR 2 IF LAST XF WAS REWINU6CSET03550 S
004705 5200545303 03560 C4ER1 SA1 TSAR1,3 3 U6CSET03560
* 004712 3000545051 03570 JC INDTS,4141 U6CSET03570
004717 4100000002 03580 XF 0,02,0,4,4 U6CSET03580
* 004724 3000476253 03590 JC C4EOT,4343 U6CSET03590
* 004731 3000461164 03600 C4ER2 JC C4OUT,5252 IGNORE ERRORS IF SENSE SWITCH 3 SET U6CSET03600
* 004736 1000501100 03610 JR C4ERD DISPLAY ERROR BITS U6CSET03610
004743 5600545303 03620 C4ER3 BA1 TSAR1,3 3 U6CSET03620
* 004750 3000545052 03630 JC INDTS,4242 U6CSET03630
* 004755 3000461100 03640 J C4OUT U6CSET03640
* 004762 3004000660 03650 C4EOT JD 040006 U6CSET03650
004767 2000435103 03660 FT C4END,3 3 U6CSET03660
004774 5200422703 03670 SA1 C4IO+3,3,3 SET END FOR EOT U6CSET03670
* 005001 3000473100 03680 J C4ER2 U6CSET03680
* 005006 3000500600 03690 C4ERD J $ DECODE AND DISPLAY ERROR BITS U6CSET03690
005013 2000536312 03700 FT C4ECT,X2X2 U6CSET03700
005020 5400347117 03710 LP TST+1,01017 SET CHANNEL U6CSET03710
005025 4400352204 03720 SC ERR2+1,4,4 U6CSET03720
* 005032 1000344200 03730 JR ERRBD U6CSET03730
* 005037 3000500600 03740 J C4ERD U6CSET03740
005044 4400524540 03750 C4DEL SC C4D4+4,3,32 CHANNEL 4 DELAY ROUTINE U6CSET03750
005051 4400400440 03760 SC BDS1+4,3,32 U6CSET03760
005056 4400360240 03770 SC XFS1+4,3,32 U6CSET03770
005063 2000000203 03780 FT 2,3 U6CSET03780
005070 5200535202 03790 SA1 C4CC,2 U6CSET03790
005075 2000535213 03800 FT C4CC,X3 3 U6CSET03800
005102 2000524503 03810 FT C4D4+4,3,3 U6CSET03810
005107 5200363203 03820 SA1 XFDL5+3,3,3 U6CSET03820
005114 2000044003 03830 FT 288,3 U6CSET03830
005121 5200044703 03840 SA1 295,3 U6CSET03840
005126 4400044424 03850 SC 292,20 U6CSET03850
005133 2000536312 03860 FT C4ECT,X2X2 U6CSET03860
005140 5400347117 03870 LP TST+1,01017 SET CHANNEL 4 FOR TEST U6CSET03870
005145 4400352204 03880 SC ERR2+1,4,4 SET 4 FOR ERROR DISPLAY U6CSET03880
005152 5660000002 03890 C4D1 BA1 0,2,X3 SET CHARACTER COUNT IN U6CSET03890
005157 5200030702 03900 SA1 C4RCC,2 2 TETRAD U6CSET03900
005164 5600533304 03910 BA1 C4TT,4 U6CSET03910
005171 5200030304 03920 SA1 C4RBA,4 4 SET BASE ADDRESS TETRAD U6CSET03920
* 005176 3000517620 03930 C4XF2 JHJ $ ISSUE XF INSTRUCTION U6CSET03930
* 005203 1000357462 03940 C4D2 JR XFD,50 XF DELAY IF SENSE SWITCH 1 SET U6CSET03940
* 005210 1000377663 03950 C4D3 JR BLKDL,5151 BLOCK LENGTH DELAY IF SENSE SWITCH 2 SETU6CSET03950
* 005215 3000522767 03960 JC $+10,55 5 SENSE INDICATOR 3 SET WHEN U6CSET03960
* 005222 3000521500 03970 J $-5 INTERRUPT RECEIVED ON CH 4 U6CSET03970
005227 4100007777 03980 XF 0,07777,7,0,4 U6CSET03980
* 005234 3000526053 03990 JC C4IER,4343 ERROR ON CH 4 U6CSET03990
* 005241 1000372140 04000 C4D4 JR XFDRT,3232 U6CSET04000
* 005246 3000525327 04010 C4D5 JC $+5,23 RESET INTERRUPT INDICATOR SENSE IND. 3 U6CSET04010
* 005253 3000515231 04020 JC C4D1,25 5 RESET CLASS 3 U6CSET04020
005260 4100000002 04030 C4IER XF 0,02,0,4,4 U6CSET04030
* 005265 3000531653 04040 JC C4I2,43 3 EOT U6CSET04040
* 005272 3000530464 04050 C4I1 JC $+10,52 2 IGNORE ERRORS IF SENSE SWITCH 3 SET U6CSET04050
* 005277 1000344200 04060 JR ERRBD U6CSET04060
005304 4100407777 04070 XF 040,0777777,0,4 RESET ERRORS U6CSET04070
* 005311 3000524100 04080 J C4D4 U6CSET04080
* 005316 3004000660 04090 C4I2 JD 040006 END OF TAPE STOP U6CSET04090
* 005323 3000527200 04100 J C4I1 U6CSET04100
04110 . CHANNEL 4 CONSTANTS U6CSET04110 N
005333 00005637 04120 C4TT +4 DAREA CH 4 SET ADDRESS TETRAD U6CSET04120
005337 00000100 04130 C4CCS +4 64 CH 4 CHARACTER COUNT SET U6CSET04130
005342 001750 04140 C4BLM +3 1000 CH 4 BLOCK COUNT LIMIT U6CSET04140
005343 4101770000 04150 C4XF XF 077,0,1,1,4 XF NOT USED SERVO 1 U6CSET04150
005350 77 04160 C4DAT +1 077 CH 4 DATA PATTERN U6CSET04160
005352 0002 04170 C4CC +2 2 CH 4 CHAR. CT. FOR DELAY U6CSET04170
005354 0002 04180 C4FCT +2 2 CH 4 FRAME COUNT INCREMENT U6CSET04180
005357 000000 04190 C4BCT +3 0 CH 4 BLOCK COUNT U6CSET04190
005362 000000 04200 C4XCT +3 0 CH 4 XF COUNT U6CSET04200
005363 44 04210 C4ECT AREA 36 AREA FOR ERROR COUNTS U6CSET04210
005366 4 04220 C4EC1 - 4 ERROR COUNTS ARE IN ORDER U6CSET04220
005406 20 04230 C4EC2 - 16 BITS 1 THRU 12 U6CSET04230
005426 20 04240 C4EC3 - 16 THREE CHARACTER COUNT FOR EACH U6CSET04240
000303 04250 C4RBA EQU 195 CH 4 TAPE READ BASE ADDR. U6CSET04250
000307 04260 C4RCC EQU 199 CH 4 READ CHARACTER COUNT U6CSET04260
002236 04270 C4IND EQU INDLP+9 9 CH 4 INTERRUPT INDICATOR U6CSET04270
04280 . CONSTANTS U6CSET04280 T
005432 00005637 04290 DBASE +4 DAREA DATA AREA BASE ADDRESS U6CSET04290
005437 3077777760 04300 +5 0307777777760 U6CSET04300
005442 000400 04310 INTER +3 0400 U6CSET04310
005444 6500 04320 XFLM1 +2 06500 DELAY BLOCK LIMIT U6CSET04320
005447 000001 04330 BONE +3 01 U6CSET04330
000017 04340 AR1 EQU 15 U6CSET04340
000037 04350 AR2 EQU 31 U6CSET04350
000047 04360 X1 EQU 39 U6CSET04360
000053 04370 X2 EQU 43 U6CSET04370
000057 04380 X3 EQU 47 U6CSET04380
000063 04390 X4 EQU 51 U6CSET04390
000067 04400 X5 EQU 55 U6CSET04400
005450 4 04410 INDTS AREA 4 TS FOR AR1 AND IND. ON U6CSET04410
005453 4 04420 TSAR1 - 4 INTERRUPT U6CSET04420
04430 . ****REWIWIND SERVOS**** U6CSET04430 V
* 005454 3000546654 04440 C2INT JC $+10,44 4 OPERATOR REQUEST SET U6CSET04440
* 005461 3007700060 04450 JD 077000 CLASS 2 ERROR U6CSET04450
* 005466 3000547335 04460 JC $+5,29 RESET CLASS 2 U6CSET04460
005473 5600413402 04470 RW45 BA1 C5XF+1,2,2 REWIND SERVOS ON CH 5 U6CSET04470
005500 5600534422 04480 BA2 C4XF+1,2,2 AND CH 4 U6CSET04480
005505 5200555102 04490 SA1 RWXF5+1,1,2 U6CSET04490
005512 5200560722 04500 SA2 RWXF4+1,1,2 U6CSET04500
005517 4100407777 04510 XF 040,0777777,0,4 RESET CH 4 U6CSET04510
005524 4120407777 04520 XF 040,0777777,0,5 RESET CH 5 U6CSET04520
* 005531 3000553631 04530 JC $+5,25 RESET CLASS 3 U6CSET04530
005536 2000556203 04540 FT RWIN5,3 3 SET I. E. CH 5 U6CSET04540
005543 5200045703 04550 SA1 303,3 U6CSET04550
005550 4120440000 04560 RWXF5 XF 044,0,0,0,5 REWIND WITH LOCKOUT U6CSET04560
* 005555 3000555500 04570 J $ U6CSET04570
005562 4120407777 04580 RWIN5 XF 040,0777777,0,5 RESET ERRORS U6CSET04580
* 005567 3000557431 04590 JC $+5,25 RESET CLASS 3 U6CSET04590
005574 2000562003 04600 FT RWIN4,3 3 SET I.E. CH 4 U6CSET04600
005601 5200044703 04610 SA1 295,3 U6CSET04610
005606 4100440000 04620 RWXF4 XF 044,0,0,0,4 REWIND WITH LOCKOUT U6CSET04620
* 005613 3000561300 04630 J $ U6CSET04630
005620 4100407777 04640 RWIN4 XF 040,0777777,0,4 RESET ERRORS U6CSET04640
* 005625 3000563231 04650 JC $+5,25 RESET CLASS 3 U6CSET04650
* 005632 3000141216 04660 JC START,1414 RESET OPERATOR REQUEST U6CSET04660
005637 200 04670 DAREA AREA 128 DATA AREA U6CSET04670
3000140000 04680 END INIT JUMP TO PGM BEGINNING U6CSET04680
{-- tape mark --}
003543 C421 PPT01 CODEDIT SOURCE A T3834394-42
000400 00010 T420 BEGIN 0400 PPT01 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 000400 3007010660 * JD 070106 *
* 000405 3000040000 * J $-5 *
SEGMENT-ID T421 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 T422 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 T423 3000136300 * SEGJP $ *
000400 00020 ORIG 0400 PPT01 00020
00030 . PERFORATED PAPAPER TAPE FUNCTIONAL TEST ROUTINE PPT01 00030 E
00040 . OPERATINING NOTES PPT01 00040 S
00050 . 1- WHEN PROGRAM H HALTS AFTER LOADING,KEY INTO OCTAL LOCATIONS) PPT01 00050 F
00060 . 011,012)SPECIFICIC TEST NO(DECIMAL�DESIRED,IF ANY PPT01 00060 N
00070 . 013)CODE LEVEL(D(DATA BITS,ONLY� PPT01 00070 T
00080 . 00)5-LEVEVEL TELETYPE CODE(DOUBLE FRAME PUNCHING� PPT01 00080 E
00090 . 01)5-LEVEVEL BINARY CODE(SINGLE FRAME PUNCHING� PPT01 00090 A
00100 . 02)6-LEVEVEL CODE PPT01 00100 E
00110 . 03)7-LEVEVEL CODE PPT01 00110 E
00120 . 04)8-LEVEVEL CODE PPT01 00120 E
00130 . 014)STOP CHARACTCTER PPT01 00130
00140 . BIT 6 MUST BE E ZERO FOR 5-LEVEL CODE PPT01 00140 O
00150 . 015)PLUGBOARD OPOPTIONS PPT01 00150
00160 . BIT 6)STOP CHAHARACTER BIT FOR 7-LEVEL CODE PPT01 00160
00170 . 5)STOP CHAHARACTER BIT FOR 8-LEVEL CODE PPT01 00170
00180 . 4)INHIBIT T STOP CHARACTER DETECTION PPT01 00180 H
00190 . 3)INHIBIT T TWO CHARACTER MODE PPT01 00190 A
00200 . 2)INHIBIT(T(STRIP�PARITY TO MEMORY PPT01 00200 P
00210 . 1)ODD PARIRITY(NO BIT FOR EVEN PARITY� PPT01 00210 B
00220 . 016)PLUGBOARD OPOPTIONS,CONTINUED PPT01 00220 C
00230 . BIT 6)PERMIT D DOUBLE FRAME PUNCHING ON SPACE PPT01 00230 F
00240 . 5)PERMIT S SHIFT CODE TO MEMORY PPT01 00240 O
00250 . 4)INHIBIT T SPACE TO LETTERS SHIFT PPT01 00250 T
00260 . 3)INHIBIT T SPACE TO FIGURES SHIFT PPT01 00260 T
00270 . 2)UNUSED PPT01 00270
00280 . 1)UNUSED PPT01 00280
00290 . 017)CHANNEL SELELECTION PPT01 00290
00300 . BITS 6,5,4 FOROR CHANNEL SELECTION (100 TO 111� PPT01 00300 E
00310 . NOTE)00000 TO 011 WILL SELECT CHANNEL 6 PPT01 00310 1
00320 . BIT 3)NON-STSTOP MODE PPT01 00320 E
00330 . 2- SENSE SWITCH O OPTIONS) PPT01 00330 )
00340 . RESET SET PPT01 00340
00350 . SS1--PUNCH TETEST.................OMIT PUNCH TEST PPT01 00350 .
00360 . SS2--READ TESEST..................OMIT READ TEST PPT01 00360 .
00370 . SS3--PROCEED D TO NEXT TEST.......REPEAT CURRENT TEST PPT01 00370 T
00380 . 3- TRACE SWITCH O OPTIONS) PPT01 00380 )
00390 . ADDRESS S FUNCTION PPT01 00390 T
00400 . 000001......DO NOT PRINT PPT01 00400 O
00410 . 000002......STOP AFTER ERROR PRINTOUT PPT01 00410
00420 . 000003......DO NOT PRINT AND STOP ON ERROR PPT01 00420 O
00430 . 4- RERUN)DEPRESS S OPERATOR REQUEST, GENERAL CLEAR, START PPT01 00430 O
077701 00440 E01 EQU 077701 INTERRUPT DID NOT OCCUR PPT01 00440
077702 00450 E02 EQU 077702 INTERRUPT WAS NOT INHIBITED PPT01 00450
077703 00460 E03 EQU 077703 LOW OR FULL TAPE PPT01 00460
077704 00470 E04 EQU 077704 PROCESSOR PARITY ERROR PPT01 00470
077705 00480 E05 EQU 077705 DECIMAL OVERFLOW PPT01 00480
077706 00490 E06 EQU 077706 READER COMPARISON ERROR PPT01 00490
077707 00500 E07 EQU 077707 NO ID ON TAPE PPT01 00500
077710 00510 E10 EQU 077710 PRINTER ERROR STOP PPT01 00510
077711 00520 E11 EQU 077711 SPECIAL BASE ADDRESS ERROR PPT01 00520
077712 00530 E12 EQU 077712 PROCESSOR NOT LOCKED OUT PPT01 00530
077713 00540 E13 EQU 077713 EXTRANEOUS PAPER TAPE INT PPT01 00540
077714 00550 E14 EQU 077714 EOM NOT DETECTED PPT01 00550
077715 00560 E15 EQU 077715 BACKSPACE PUNCH SBA ERROR PPT01 00560
077716 00570 E16 EQU 077716 ID NUMBER NOT VALID PPT01 00570
077777 00580 E77 EQU 077777 OPERATOR REQUEST RERUN PPT01 00580
000400 00590 ORIG 0400 PPT01 00590
* 000400 3000040031 00600 JC $,031 PPT01 00600
000407 004566 00610 +3 PRIR PPT01 00610
001300 00620 ORIG 01300 PPT01 00620
001300 100 00630 PRIM AREA 64 PRINTER IMAGE AREA PPT01 00630
001400 100 00640 SAVE AREA 64 STORAGE FOR ROW 00 PPT01 00640
001500 5601342400 00650 START BA1 CL2IE,1616 PPT01 00650
001505 5200051700 00660 SA1 0517,16 6 PPT01 00660
001512 4400533040 00670 SC PTIR2+4,4,040 PPT01 00670
001517 2600320201 00680 PD LDR-1,1 1 PPT01 00680
001524 4400545040 00690 SC NOID+9,0,040 PPT01 00690
001531 5601344507 00710 BA1 CHAN,7 PPT01 00710
* 001536 3000000060 00720 JD 0 SELECT OPTIONS PPT01 00720
001543 5201344507 00730 SA1 CHAN,7 PPT01 00730
001550 4400001620 00740 SC 016,020 0 PPT01 00740
001555 3400001737 00750 CC 017,037 7 CHECK CHANNEL SELECTION PPT01 00750
* 001562 3000157444 00760 JS $+10 JUMP IF CHANNEL 4 TO 7 PPT01 00760
001567 6401344560 00770 LS CHAN,06060 PPT01 00770
001574 1600001721 00780 BS2 017,1 PPT01 00780
001601 6400001640 00790 LS 016,040 0 SET UP XF OP CODE PPT01 00790
001606 5400001760 00800 LP 017,060 0 PPT01 00800
001613 5200363402 00810 SA1 XF1-4,2 2 PPT01 00810
001620 5200364102 00820 SA1 XF1+1,2 2 SET UP CHANNEL PPT01 00820
001625 5200475702 00830 SA1 XF2+1,2 2 PPT01 00830
001632 5200521202 00840 SA1 XF3+1,2 2 PPT01 00840
001637 5200507202 00850 SA1 XF4+1,2 2 PPT01 00850
001644 5200513002 00860 SA1 XF5+1,2 2 PPT01 00860
001651 5200554602 00870 SA1 XF6+1,2 2 PPT01 00870
001656 5200527402 00880 SA1 XF7+1,2 2 PPT01 00880
001663 5601344501 00890 BA1 CHAN,1 PPT01 00890
001670 5400001770 00900 LP 017,070 0 PPT01 00900
001675 6000001750 00910 AC 017,050 0 CHANNEL NO. MINUS 3 PPT01 00910
001702 2000026011 00920 FT 0260,X1 1 SET UP TETRAD ADDRESS PPT01 00920
001707 2000043712 00930 FT 0437,X2 2 SET UP INT ENTRY ADDRESS PPT01 00930
001714 2600200602 00940 PD IE+3,2 PPT01 00940
001721 2000043007 00950 FT 0430,7 PPT01 00950
001726 5200510123 00960 SA2 EXIT+3,3,3 PPT01 00960
001733 3400001700 00970 TET CC 017,0 PPT01 00970
* 001740 3000177642 00980 JE IE-5 PPT01 00980
001745 6000004720 00990 AC X1,020 INCREMENT TETRAD ADDRESS PPT01 00990
001752 6000510110 01000 AC EXIT+3,0,010 INCREMENT EXIT TO INT ENTRY PPT01 01000
001757 6000200610 01010 AC IE+3,01010 INCREMENT INT ENTRY ADDRESS PPT01 01010
001764 6000001770 01020 AC 017,070 0 INT ENTRY ADDRESS MINUS 8 PPT01 01020
* 001771 3000173300 01030 J TET PPT01 01030
001776 5601343410 01040 BA1 PTIE,8 PPT01 01040
002003 5240000010 01050 IE SA1 0,8,X2 PPT01 01050
002010 2620001700 01060 PD 017,16,X,X1 PPT01 01060
002015 2600006700 01070 MSIZE PD X5,16 DETERMINE MEMORY SIZE PPT01 01070
002022 4400557540 01080 SC CL1IR+4,4,040 PPT01 01080
002027 4400206407 01090 SC LP1+4,7 7 PPT01 01090
002034 2600355001 01100 PD MAXM+4,1,1 PPT01 01100
002041 5661000001 01110 BA1 010000,1,1,X3 PPT01 01110
002046 6000005501 01120 AC X3-2,1 PPT01 01120
002053 6000355001 01130 AC MAXM+4,1,1 PPT01 01130
* 002060 3200204107 01140 LP1 JL $-15,7 PPT01 01140
002065 4601344033 01150 BT ID,27 PPT01 01150
002072 4601344027 01160 BT ID,23 PPT01 01160
* 002077 3000754162 01170 PT00 JC R00,50 IF SS1 SET,OMIT PUNCH TESTS PPT01 01170
002104 4600015727 01180 BT T27,23 PPT01 01180
002111 2000551414 01190 FT IDE,X4 PPT01 01190
* 002116 1001077000 01200 JR CID4 PPT01 01200
002123 4401301752 01210 SC INSTR,05052 STORE P FOR PUNCH PPT01 01210
002130 4400445107 01220 SC PR2+3,7 7 PPT01 01220
002135 4400450217 01230 SC PR4+3,01017 PPT01 01230
002142 4400364202 01240 SC XF1+2,2 2 SET UP PUNCH INSTRUCTION PPT01 01240
002147 4400476277 01250 SC XF2+4,07077 PPT01 01250
002154 4400404017 01260 SC IO5+3,01017 PPT01 01260
002161 4400374040 01270 SC IO4+4,04040 RESET STOP CHAR JUMP PPT01 01270
002166 4400367540 01280 SC IO3+4,04040 RESET IO EXIT SWITCH PPT01 01280
002173 2601345712 01290 PD FCT,10 PPT01 01290
002200 1401344504 01300 LC CHAN,04 4 PPT01 01300
* 002205 3000744042 01310 JE PT05 PUNCH NON-STOP MODE PPT01 01310
* 002212 1000342200 01320 JR PID PPT01 01320
002217 2601345712 01330 PD FCT,10 PPT01 01330
002224 2001355116 01340 FT PTN,X6 PPT01 01340
* 002231 1001104000 01350 JR FTN FIND TEST NUMBER PPT01 01350
* 002236 3100000000 01360 J 0,X4 JUMP TO PUNCH TEST PPT01 01360
002243 4401345720 01370 PT01 SC FCT,020 0 PUNCH TEST 1)ALL CHAR,FC BITSPPT01 01370
002250 2601345601 01380 PD FCT-1,1 1 PPT01 01380
002255 4601352231 01390 PT04 BT B512,25 5 PUNCH TEST 4) DATA FOR RT04 PPT01 01390
* 002262 1000237300 01400 JR GTP PPT01 01400
* 002267 1000327500 01410 P01 JR PBA PPT01 01410
* 002274 1000361200 01420 JR IO PPT01 01420
002301 5601345702 01430 BA1 FCT,2 PPT01 01430
002306 7001350542 01440 CB1 B01-1,2 2 PPT01 01440
* 002313 3000311442 01450 JE PEND PPT01 01450
002320 2041600003 01460 FT BA,3,X2 2 PPT01 01460
002325 5200236103 01470 SA1 P010+3,3,3 PPT01 01470
* 002332 1000353500 01480 JR ABA PPT01 01480
002337 1601345721 01490 BS2 FCT,1 PPT01 01490
002344 2041600020 01500 FT BA,16,X2X2 PPT01 01500
002351 2000100022 01510 FT 512,18 PPT01 01510
002356 2400000001 01520 P010 TFR 0 TRANSFER TP TO NEW BA PPT01 01520
* 002363 3000226700 01530 J P01 PPT01 01530
* 002370 3000237000 01540 GTP J $ GENERATE ALL CHAR TEST PAT PPT01 01540
002375 2600007310 01550 PD X6,8 PPT01 01550
002402 2041600016 01560 FT BA,X6,X2X2 PPT01 01560
002407 4400273001 01570 SC GTP8+4,1,1 PPT01 01570
002414 2600261001 01580 PD GTP3+4,1,1 PPT01 01580
002421 1401344304 01590 LC PLUG-1,0,04 PPT01 01590
* 002426 3000247642 01600 JE GTP7 1-CHARACTER MODE PPT01 01600
002433 4400273002 01610 SC GTP8+4,2,2 PPT01 01610
002440 3401344103 01620 CC LEVEL,0303 PPT01 01620
* 002445 3000247641 01630 JG GTP7 5 OR 6-LEVEL CODE PPT01 01630
002452 4400261040 01640 SC GTP3+4,0,040 PPT01 01640
002457 3401344103 01650 CC LEVEL,0303 PPT01 01650
* 002464 3000247642 01660 JE GTP7 7-LEVEL CODE PPT01 01660
002471 4400261060 01670 SC GTP3+4,0,060 PPT01 01670
002476 2600001704 01680 GTP7 PD 017,4 PPT01 01680
002503 4400254037 01690 SC GTP1+9,0,037 PPT01 01690
002510 3401344102 01700 CC LEVEL,0202 PPT01 01700
* 002515 3000252741 01710 JG GTP1 5-LEVEL OR TELETYPE CODE PPT01 01710
002522 4400254077 01720 SC GTP1+9,0,077 PPT01 01720
002527 6000001601 01730 GTP1 AC 016,1 PPT01 01730
002534 5400001637 01740 LP 016,037 7 077 IF NOT 5-LEVEL CODE PPT01 01740
002541 5600001522 01750 BA2 015,2 PPT01 01750
002546 1600003755 01760 BC1 037,5 PPT01 01760
002553 1600003721 01770 BS2 037,1 PPT01 01770
002560 1600003714 01780 BS1 037,4 PPT01 01780
002565 1600003721 01790 BS2 037,1 PPT01 01790
002572 5600003601 01800 BA1 036,1 PPT01 01800
002577 1600001714 01810 BS1 017,4 4 FOR 7,5 FOR 8-LEVEL CODE PPT01 01810
002604 5400001700 01820 GTP3 LP 017,0 40 FOR 7,60 FOR 8-LEVEL CODE PPT01 01820
002611 7001350542 01830 CB1 B01-1,2 2 PPT01 01830
* 002616 3000252742 01840 JE GTP1 ELIMINATE ZERO PPT01 01840
002623 5601344322 01850 BA2 STP+1,2 2 PPT01 01850
002630 5400003760 01860 LP 037,060 0 PPT01 01860
002635 7000003742 01870 CB1 037,2 PPT01 01870
* 002642 3000252742 01880 JE GTP1 ELIMINATE STOP CHARACTER PPT01 01880
002647 3401344100 01890 CC LEVEL,0 0 PPT01 01890
* 002654 3000267343 01900 JU GTP2 NOT TELETYPE CODE PPT01 01900
002661 1400001633 01910 LC 016,033 3 PPT01 01910
* 002666 3000252742 01920 JE GTP1 ELIMINATE SHIFT CODE PPT01 01920
* 002673 1000274100 01930 GTP2 JR GPAR PPT01 01930
002700 5340000102 01940 SA1 1,2,X6 STORE TEST CHARACTER PPT01 01940
002705 6000006701 01950 AC X5,1 PPT01 01950
002712 7400014715 01960 CT T25,X5 PPT01 01960
* 002717 3000237042 01970 JE GTP PPT01 01970
002724 6000007300 01980 GTP8 AC X6,0 ADD 1 OR 2 PPT01 01980
* 002731 3000252700 01990 J GTP1 PPT01 01990
* 002736 3000273600 02000 GPAR J $ GENERATE PARITY BIT PPT01 02000
002743 3401301752 02010 CC INSTR,05052 PPT01 02010
* 002750 3000273642 02020 JE GPAR ON PUNCH TEST PPT01 02020
002755 1401344302 02030 LC PLUG-1,0,02 PPT01 02030
* 002762 3000273642 02040 JE GPAR INHIBIT PARITY TO MEMORY PPT01 02040
002767 4400003720 02050 SC 037,020 0 SET BIT 8 FOR PARITY PPT01 02050
002774 1401344301 02060 LC PLUG-1,0,01 PPT01 02060
* 003001 3000301342 02070 JE GTP4 GENERATE ODD PARITY PPT01 02070
003006 2600003701 02080 PD 037,1 GENERATE EVEN PARITY PPT01 02080
003013 4400304301 02090 GTP4 SC GTP5+4,1,1 PPT01 02090
003020 1400001740 02100 LC 017,040 0 PPT01 02100
* 003025 3000303743 02110 JU $+10 NO BIT PPT01 02110
003032 6000003720 02120 AC 037,020 0 SWITCH PARITY BIT PPT01 02120
003037 1400001601 02130 GTP5 LC 016,01 PPT01 02130
* 003044 3000305643 02140 JU $+10 NO BIT PPT01 02140
003051 6000003720 02150 AC 037,020 0 SWITCH PARITY BIT PPT01 02150
003056 1600304311 02160 BS1 GTP5+4,1,1 PPT01 02160
003063 3400304300 02170 CC GTP5+4,0,0 PPT01 02170
* 003070 3000303743 02180 JU GTP5 CHECK NEXT BIT PPT01 02180
003075 5400003720 02190 LP 037,020 0 MASK PARITY BIT PPT01 02190
003102 7200001721 02200 AB2 017,1 INSERT PARITY BIT PPT01 02200
* 003107 3000273600 02210 J GPAR PPT01 02210
003114 2601345701 02220 PEND PD FCT,1 PPT01 02220
003121 4401345640 02230 SC FCT-1,04040 PPT01 02230
* 003126 1000327500 02240 JR PBA PPT01 02240
003133 2641600001 02250 PD BA,1,X2 2 PPT01 02250
003140 2041600120 02260 FT BA+1,16,6,X2 PPT01 02260
003145 2000037722 02270 FT 255,18 PPT01 02270
003152 2441600001 02280 TFR BA,,X2 PPT01 02280
003157 4400374040 02290 SC IO4+4,04040 PPT01 02290
003164 4400320705 02300 SC LDR+4,5 5 PPT01 02300
* 003171 1000361200 02310 JR IO ADVANCE TAPE BETWEEN TESTS PPT01 02310
* 003176 3000321500 02320 JC $+15,0 PPT01 02320
* 003203 3200317105 02330 LDR JL $-10,5 GENERATE 5-FOOT LEADER PPT01 02330
* 003210 3000150000 02340 J START PPT01 02340
003215 5601353751 02350 BD1 D01,9 PPT01 02350
003222 6201313111 02360 AM1 RECAP+1313,9 PPT01 02360
* 003227 3000325364 02370 JC $+20,52 2 IF SS3 SET,REPEAT SAME TEST PPT01 02370
003234 5601353742 02380 PEND1 BD1 D01,2 PPT01 02380
003241 6200013702 02390 AM1 T23,2 INCREMENT ID PPT01 02390
003246 4200015727 02400 ST T27,23 PPT01 02400
003253 7401323427 02410 CT LID,23 ID)LAST ID PPT01 02410
* 003260 3000756541 02420 JG RT00-10 0 PPT01 02420
* 003265 3000757700 02430 J RT00 PPT01 02430
* 003272 3000327200 02440 PBA J $ SET UP PUNCH BASE ADDRESS PPT01 02440
003277 2041600003 02450 FT BA,3,X2 2 PPT01 02450
003304 5220000703 02460 SA1 7,3,X1 PPT01 02460
003311 5420000517 02470 LP 5,017,X1X1 PPT01 02470
003316 2620000401 02480 PD 4,1,X1 PPT01 02480
003323 5601345702 02490 BA1 FCT,2 PPT01 02490
003330 7220000502 02500 AB1 5,2,X1 PPT01 02500
* 003335 3000327200 02510 J PBA PPT01 02510
003342 3401344100 02520 PID1 CC LEVEL,0 0 PPT01 02520
* 003347 3000336143 02530 JU $+10 NOT TELETYPE CODE PPT01 02530
003354 4400013704 02540 SC T23,04 PPT01 02540
003361 1401344310 02550 LC STP+1,01010 PPT01 02550
* 003366 3000340543 02560 JU $+15 PERMIT STOP CHAR DETECTION PPT01 02560
003373 3400013705 02570 CC T23,05 PPT01 02570
* 003400 3000323442 02580 JE PEND1 PPT01 02580
003405 4241600327 02590 ST BA+3,23,3,X2 STORE ID PPT01 02590
* 003412 1000361200 02600 JR IO PPT01 02600
* 003417 3000341700 02610 PID J $ PUNCH ID NO. PPT01 02610
003424 2601345701 02620 PD FCT,1 PPT01 02620
003431 4401345601 02630 SC FCT-1,1 1 SET FRAME COUNT TO 4 PPT01 02630
* 003436 1000327500 02640 JR PBA PPT01 02640
003443 1401344304 02650 LC PLUG-1,0,04 PPT01 02650
* 003450 3000334242 02660 JE PID1 1-CHARACTER MODE PPT01 02660
003455 2600001710 02670 PD 017,8 PPT01 02670
003462 4400001053 02680 SC 010,053 3 PPT01 02680
003467 4400001253 02690 SC 012,053 3 PPT01 02690
003474 5600013621 02700 BA2 T23-1,1 1 PPT01 02700
003501 5200001421 02710 SA2 014,1 PPT01 02710
003506 5600013721 02720 BA2 T23,1 PPT01 02720
003513 5200001621 02730 SA2 016,1 PPT01 02730
003520 5241600710 02740 SA1 BA+7,8,X,X2 PPT01 02740
* 003525 3000341200 02750 J PID-5 PPT01 02750
* 003532 3000353200 02760 ABA J $ ADVANCE BASE ADDRESS PPT01 02760
003537 6000005101 02770 AC X2-2,1 INCREMENT MEMORY STACK PPT01 02770
003544 3400005107 02780 MAXM CC X2-2,7 CHECK FOR MAXIMUM PPT01 02780
* 003551 3000353241 02790 JG ABA PPT01 02790
003556 2600005101 02800 PD X2-2,1 PPT01 02800
* 003563 3000353200 02810 J ABA PPT01 02810
* 003570 3000360700 02820 REPET JC IO,0 SKIP TO REPEAT IO ORDER PPT01 02820
003575 5601352603 02830 BA1 B05,3 PPT01 02830
003602 7200361243 02840 SB1 IO+3,3 PPT01 02840
* 003607 3000360700 02850 IO J $ PAPER TAPE IO ROUTINE PPT01 02850
003614 2600357401 02860 PD REPET+4,4,1 RESET REPEAT SWITCH PPT01 02860
003621 4400406040 02870 SC II+4,04040 RESET INTERRUPT INDICATOR PPT01 02870
003626 2620001710 02880 PD 017,8,X1X1 CLEAR SPECIAL BASE ADDRESS PPT01 02880
003633 4000407777 02890 XF 040,0777777,0,0 PPT01 02890
003640 4000000000 02900 XF1 XF 0,0,0,0 0 VARIABLE XF ORDER PPT01 02900
003645 2600004304 02910 PD 043,4 PPT01 02910
003652 6000004301 02920 AC 043,1 PPT01 02920
003657 3400004115 02930 CC 041,015 5 PPT01 02930
* 003664 3000365241 02940 JG $-10 6.23 SECONDS MAX DELAY PPT01 02940
* 003671 3000360740 02950 IO3 JC IO,040 IO EXIT SWITCH PPT01 02950
003676 2600001710 02960 PD 017,8 PPT01 02960
003703 1400364240 02970 LC XF1+2,04040 PPT01 02970
* 003710 3000372743 02980 JU $+15 JUMP IF NO LOCKOUT BIT PPT01 02980
003715 7020001750 02990 CB1 017,8,X1X1 PPT01 02990
* 003722 3001137142 03000 JE NOLO PROCESSOR NOT LOCKED OUT PPT01 03000
003727 5601345205 03010 BA1 STCT,5 STOP COUNTER PPT01 03010
* 003734 3000374640 03020 IO4 JC $+10,04040 JUMP IF USING STOP CHAR PPT01 03020
003741 5601345705 03030 BA1 FCT,5 PPT01 03030
003746 7001350542 03040 CB1 B01-1,2 2 PPT01 03040
* 003753 3000376543 03050 JU $+10 PPT01 03050
003760 4400001501 03060 SC 015,01 PPT01 03060
003765 1600001732 03070 BS3 017,2 PPT01 03070
003772 4600001616 03080 BT 016,X6 PPT01 03080
003777 1401344304 03090 LC PLUG-1,0,04 PPT01 03090
* 004004 3000401642 03100 JE $+10 1-CHARACTER MODE PPT01 03100
004011 1600007301 03110 BS4 X6,1 PPT01 03110
004016 5600005303 03120 BA1 X2,3 PPT01 03120
004023 7200007303 03130 AB1 X6,3 PPT01 03130
004030 2141600007 03140 FT BA,7,X6 6 PPT01 03140
004035 5620001703 03150 IO5 BA1 017,3,X1X1 017 FOR PUNCH,013 FOR READ PPT01 03150
004042 7000003743 03160 CB1 037,3 PPT01 03160
* 004047 3001164343 03170 JU SBAE PPT01 03170
* 004054 3000413100 03180 II JC IO1,0 INTERRUPT INDICATOR PPT01 03180
004061 1400364220 03190 LC XF1+2,02020 PPT01 03190
* 004066 3000357042 03200 JE REPET JUMP IF INHIBIT INTERRUPT PPT01 03200
004073 4400357440 03210 SC REPET+4,4,040 SET REPEAT SWITCH PPT01 03210
004100 2007770113 03220 FT E01,X3 INTERRUPT DID NOT OCCUR PPT01 03220
004105 2001265307 03230 FT NOINT,7 7 PPT01 03230
004112 4400431727 03240 IO2 SC CCT+3,2323 PPT01 03240
* 004117 1000417700 03250 JR ERRCT PPT01 03250
* 004124 3000357000 03260 J REPET PPT01 03260
004131 3400406030 03270 IO1 CC II+4,03030 PPT01 03270
* 004136 3000357042 03280 JE REPET JUMP IF ERROR INTERRUPT PPT01 03280
004143 1400364220 03290 LC XF1+2,02020 PPT01 03290
* 004150 3000357043 03300 JU REPET JUMP IF NOT INH INT PPT01 03300
004155 2007770213 03310 FT E02,X3 INTERRUPT WAS NOT INHIBITED PPT01 03310
004162 2001270207 03320 FT NOINH,7 7 PPT01 03320
* 004167 3000411200 03330 J IO2 PPT01 03330
* 004174 3000417400 03340 ERRCT J $ COUNT ERRORS PPT01 03340
004201 5601353751 03350 BD1 D01,9 PPT01 03350
004206 6201315011 03360 AM1 RECAP+2828,9 PPT01 03360
* 004213 1000423000 03370 JR PRINT PPT01 03370
* 004220 3000417400 03380 J ERRCT PPT01 03380
* 004225 3000422500 03390 PRINT J $ PRINT ROUTINE PPT01 03390
* 004232 3000423771 03400 JC $+5,57 RESET TRACE FF PPT01 03400
* 004237 3000000140 03410 JC 1,040 PPT01 03410
* 004244 3000461771 03420 JC PR3,57 IF SET,DO NOT PRINT PPT01 03420
* 004251 3000000340 03430 JC 3,040 TEST OPTION 3 PPT01 03430
* 004256 3000461771 03440 JC PR3,57 PPT01 03440
004263 2600127701 03450 PD PRIM-1,1,1 PPT01 03450
004270 2000130020 03460 FT PRIM,16 6 PPT01 03460
004275 2000010022 03470 FT 64,18 PPT01 03470
004302 2400127701 03480 TFR PRIM-1 CLEAR PRINTER IMAGE PPT01 03480
004307 5200432423 03490 SA2 MSG+3,3 3 PPT01 03490
004314 2000000022 03500 CCT FT 0,18 MESSAGE LENGTH PPT01 03500
004321 2400000001 03510 MSG TFR 0 PPT01 03510
* 004326 3000454240 03520 JC PR1,040 0 JUMP IF RECAP PPT01 03520
004333 5600013702 03530 BA1 T23,2 PPT01 03530
004340 5201302302 03540 SA1 INSTR+4,4,2 TEST NUMBER PPT01 03540
004345 5600364201 03550 BA1 XF1+2,1 1 PPT01 03550
004352 4400604702 03560 SC OTOD2+4,4,2 PPT01 03560
* 004357 1000574000 03570 JR OTOD PPT01 03570
004364 5201303002 03580 SA1 INSTR+9,9,2 FUNCTION PPT01 03580
004371 5601345723 03590 BA2 FCT,3 PPT01 03590
004376 3400374040 03600 CC IO4+4,04040 PPT01 03600
* 004403 3000441542 03610 JE $+10 JUMP IF NOT USING STOP CHAR PPT01 03610
004410 5601345223 03620 BA2 STCT,3 PPT01 03620
004415 1600003732 03630 BS3 037,2 PPT01 03630
004422 5600003602 03640 BA1 036,2 PPT01 03640
004427 4400620602 03650 SC BIDE3+4,4,2 PPT01 03650
* 004434 1000607200 03660 JR BIDE PPT01 03660
004441 5201303723 03670 SA2 INSTR+1616,3 FRAME COUNT PPT01 03670
004446 5620000703 03680 PR2 BA1 7,3,X1 7 FOR PUNCH,3 FOR READ PPT01 03680
004453 5400001507 03690 LP 015,07 PPT01 03690
004460 4400604703 03700 SC OTOD2+4,4,3 PPT01 03700
* 004465 1000574000 03710 JR OTOD PPT01 03710
004472 5201305106 03720 SA1 INSTR+2626,6 BASE ADDRESS PPT01 03720
004477 5620001703 03730 PR4 BA1 017,3,X1X1 017 FOR PUNCH,013 FOR READ PPT01 03730
004504 4400604703 03740 SC OTOD2+4,4,3 PPT01 03740
* 004511 1000574000 03750 JR OTOD PPT01 03750
004516 5201306406 03760 SA1 INSTR+3737,6 SPECIAL BASE ADDRESS PPT01 03760
004523 2000133220 03770 FT PRIM+26,6,16 PPT01 03770
004530 2000004622 03780 FT 38,18 PPT01 03780
004535 2401301701 03790 TFR INSTR PPT01 03790
004542 2000130040 03800 PR1 FT PRIM,32 2 PPT01 03800
004547 2000000241 03810 FT 2,33 PPT01 03810
004554 4000407777 03820 XF 040,0777777,0,0 PPT01 03820
004561 4000620400 03830 XF 062,040000,0,0 PPT01 03830
004566 4000001777 03840 PRIR XF 0,01777,7,0,0 PPT01 03840
* 004573 3000467453 03850 JC PRERR,4343 PPT01 03850
004600 4000006000 03870 XF 0,06000,0,0,0 PPT01 03870
* 004605 3000455453 03880 JC PR1+10,4,43 PPT01 03880
004612 4000600000 03890 XF 060,0,0,0,0 PPT01 03890
* 004617 3000462471 03900 PR3 JC $+5,57 PPT01 03900
* 004624 3000000240 03910 JC 2,040 PPT01 03910
* 004631 3000466271 03920 JC STOP,57 7 IF SET, STOP PPT01 03920
* 004636 3000000340 03930 JC 3,040 PPT01 03930
* 004643 3000466271 03940 JC STOP,57 7 PPT01 03940
004650 4000407777 03950 XF 040,0777777,0,0 PPT01 03950
* 004655 3000422531 03960 JC PRINT,03031 PPT01 03960
* 004662 3060000060 03970 STOP JD 0,X3 ERROR STOP OPTION PPT01 03970
* 004667 3000465000 03980 J $-15 PPT01 03980
* 004674 3017771060 03990 PRERR JD 0777710 0 PRINTER ERROR STOP PPT01 03990
04000 . DEPRERESS START ONCE PPT01 04000 R
* 004701 3000465060 04010 JD STOP-10 0 REPRINT OPTION PPT01 04010
04020 . DEPRESS S START TO REPRINT PPT01 04020 T
04030 . JUMP TO O M TO IGNORE PRINTOUT PPT01 04030 G
* 004706 3000455400 04040 J PR1+10 PPT01 04040
* 004713 3001350151 04050 PTIR JC LI,41 PAPER TAPE INTERRUPT ROUTINE PPT01 04050
004720 2000140020 04060 FT SAVE,16 6 PPT01 04060
004725 2000010022 04070 FT 64,18 PPT01 04070
004732 2400000001 04080 TFR 0 PPT01 04080
004737 3400406040 04090 CC II+4,04040 PPT01 04090
* 004744 3000510343 04100 JU INTE JUMP IF UNEXPECTED INT PPT01 04100
004751 2600406001 04110 PD II+4,1 PPT01 04110
004756 4000007777 04120 XF2 XF 0,07777,7,0,0 PPT01 04120
* 004763 3000512253 04130 JC ISET,43 3 PPT01 04130
004770 3400374000 04140 CC IO4+4,0 0 PPT01 04140
* 004775 3000501442 04150 JE $+15 EOM ERROR PPT01 04150
005002 4400545040 04160 PTIR4 SC NOID+9,0,040 PPT01 04160
* 005007 3000504000 04170 J PTIR1 PPT01 04170
005014 2007771403 04180 FT E14,3 PPT01 04180
005021 2001321107 04190 FT EOMER,7 7 PPT01 04190
005026 4400431720 04200 SC CCT+3,1616 PPT01 04200
* 005033 1000417700 04210 JR ERRCT PPT01 04210
* 005040 3001350152 04220 PTIR1 JC LI,42 PPT01 04220
005045 2000000020 04230 FT 0,16 PPT01 04230
005052 2000010022 04240 FT 64,18 PPT01 04240
005057 2400140001 04250 TFR SAVE PPT01 04250
005064 4400004177 04260 SC 041,077 7 PPT01 04260
005071 4000407777 04270 XF4 XF 040,0777777,0,0 PPT01 04270
* 005076 3000043000 04280 EXIT J 0430 VARIABLE CHANNEL EXIT PPT01 04280
005103 2007771303 04290 INTE FT E13,3 EXTRA INTERRUPT PPT01 04290
005110 2001273107 04300 FT INTER,7 7 PPT01 04300
* 005115 3000502600 04310 J PTIR1-1010 PPT01 04310
005122 4400406030 04320 ISET SC II+4,03030 SET ERROR INTERRUPT IND PPT01 04320
005127 4000007776 04330 XF5 XF 0,07776,6,0,0 TEST ALL BUT EOM PPT01 04330
* 005134 3000515353 04340 JC ERR,43 PPT01 04340
005141 3400374000 04350 CC IO4+4,0 0 PPT01 04350
* 005146 3000500242 04360 JE PTIR4 USING STOP CHARACTER PPT01 04360
005153 2000002617 04370 ERR FT 22,X7 ERROR INDICATORS SET PPT01 04370
005160 4400525314 04380 SC LP2+4,1212 PPT01 04380
005165 2600005703 04390 PD X3,3 PPT01 04390
005172 2600521401 04400 PD XF3+3,1 1 PPT01 04400
005177 4400521501 04410 SC XF3+4,1 1 PPT01 04410
005204 5601350602 04420 BA1 B01,2 PPT01 04420
005211 4000000000 04430 XF3 XF 0,0,0,0 0 TEST EACH INDICATOR PPT01 04430
* 005216 3000547553 04440 JC ERR1,43 3 PPT01 04440
005223 4561306503 04450 SC EIND,3,X,X7 PPT01 04450
005230 2177777717 04460 FT -1,X7,X7X7 PPT01 04460
005235 1600521561 04470 BC2 XF3+4,1 1 PPT01 04470
005242 1600001761 04480 BC2 017,1 PPT01 04480
* 005247 3200521114 04490 LP2 JL XF3,12 PPT01 04490
005254 2001306507 04500 FT EIND,7 PPT01 04500
005261 4400431727 04510 SC CCT+3,2323 PPT01 04510
005266 4400357440 04520 SC REPET+4,4,040 SET REPEAT SWITCH PPT01 04520
005273 4000007732 04530 XF7 XF 0,07732,2,0,0 TEST ALL BUT TPE,L/F,EOM PPT01 04530
* 005300 3000537453 04540 JC PTIR3,4343 PPT01 04540
005305 2600357401 04550 PD REPET+4,4,1 RESET REPEAT SWITCH PPT01 04550
005312 1400005704 04560 LC X3,04 PPT01 04560
* 005317 3000503343 04570 JU PTIR1-5 5 NOT LOW / FULL TAPE PPT01 04570
* 005324 3000504040 04580 PTIR2 JC PTIR1,04040 PRINT 1ST TIME ONLY PPT01 04580
005331 2600533001 04590 PD $-1,1 PPT01 04590
005336 2007770303 04600 FT E03,3 PPT01 04600
005343 2001330307 04610 FT LOFT,7 PPT01 04610
005350 4400431720 04620 SC CCT+3,1616 PPT01 04620
* 005355 1000423000 04630 JR PRINT PPT01 04630
005362 4400320240 04640 SC LDR-1,04040 PPT01 04640
* 005367 3000504000 04650 J PTIR1 PPT01 04650
005374 1400005610 04660 PTIR3 LC X3-1,01010 PPT01 04660
* 005401 3000542542 04670 JE ABN ABNORMAL SET PPT01 04670
005406 5601352603 04680 BA1 B05,3 PPT01 04680
005413 7200361243 04690 SB1 IO+3,3 PPT01 04690
* 005420 3000503300 04700 J PTIR1-5 5 PPT01 04700
005425 3401301754 04710 ABN CC INSTR,05054 PPT01 04710
* 005432 3000554043 04720 JU XF6-5 NOT ON READ TEST PPT01 04720
* 005437 3000554040 04730 NOID JC XF6-5,04040 ID FOUND PPT01 04730
* 005444 3000554540 04740 JC XF6,040 0 NOID/ABN ERROR PPT01 04740
005451 2600545001 04750 PD $-1,1 PPT01 04750
005456 2007770713 04760 FT E07,X3 PPT01 04760
005463 2001315107 04770 FT NOIDN,7 7 PPT01 04770
* 005470 3000553331 04780 JC XF6-10,2,25 PPT01 04780
005475 4561306504 04790 ERR1 SC EIND,4,X,X7 PPT01 04790
005502 7200005702 04800 AB1 X3,2 PPT01 04800
* 005507 3000523000 04810 J XF3+15 PPT01 04810
005514 4201317427 04820 IDE ST IDER+3,2,23 PPT01 04820
005521 2007771603 04830 FT E16,3 PPT01 04830
005526 2001317107 04840 FT IDER,7 PPT01 04840
005533 4400431720 04850 SC CCT+3,1616 PPT01 04850
* 005540 1000417700 04860 JR ERRCT PPT01 04860
005545 4000407777 04870 XF6 XF 040,0777777,0,0 PPT01 04870
005552 3401301754 04880 CC INSTR,05054 PPT01 04880
* 005557 3000207742 04890 JE PT00 READ TEST ERROR PPT01 04890
* 005564 3000311400 04900 J PEND PUNCH TEST ERROR PPT01 04900
* 005571 3000561040 04910 CL1IR JC $+15,04040 PPT01 04910
005576 2600557501 04920 PD $-1,1 PPT01 04920
* 005603 3000206536 04930 JC LP1+5,03036 PPT01 04930
005610 2007770413 04940 FT E04,X3 PROCESSOR PARITY ERROR PPT01 04940
005615 2001275107 04950 FT PARE,7 PPT01 04950
005622 4400431726 04960 SC CCT+3,2222 PPT01 04960
* 005627 3000554036 04970 JC XF6-5,3030 PPT01 04970
* 005634 3000566054 04980 CL2IR JC OPREQ,4444 PPT01 04980
005641 2007770513 04990 FT E05,X3 DECIMAL OVERFLOW PPT01 04990
005646 2001277707 05000 FT DOFLO,7 7 PPT01 05000
* 005653 3000553350 05010 JC XF6-10,4,40 PPT01 05010
005660 4400431735 05020 OPREQ SC CCT+3,2929 PPT01 05020
005665 2007777713 05030 FT E77,X3 OPERATOR REQUEST RERUN PPT01 05030
005672 2001311407 05040 FT RECAP,7 7 PPT01 05040
005677 2600433201 05050 PD MSG+9,1 1 PPT01 05050
* 005704 1000423016 05070 JR PRINT,1414 RESET OPREQ INT INH PPT01 05070
005711 2601313131 05080 PD0 RECAP+1313,9 CLEAR RUN COUNTER PPT01 05080
005716 2601315031 05090 PD0 RECAP+2828,9 CLEAR ERROR COUNTER PPT01 05090
005723 4400433240 05100 OPR SC MSG+9,04040 PPT01 05100
* 005730 3000150035 05110 JC START,2929 PPT01 05110
* 005735 3000573500 05120 OTOD J $ OCTAL TO DECIMAL CONVERSION PPT01 05120
005742 4600007332 05130 BT X6,26 PPT01 05130
005747 4600007733 05140 BT X7,27 PPT01 05140
005754 2600007707 05150 PD X7,7 PPT01 05150
005761 5201346703 05160 SA1 OCTAL,3 3 PPT01 05160
005766 5741346721 05170 OTOD1 BA2 OCTAL,1,1,X6 PPT01 05170
005773 5360001721 05180 SA2 017,1,X7X7 PPT01 05180
006000 2760001601 05190 PD 016,1,X7X7 PPT01 05190
006005 1760001723 05200 BS2 017,3,X7X7 PPT01 05200
006012 1760001753 05210 BC1 017,3,X7X7 PPT01 05210
006017 6160001703 05220 AC 017,3,X7X7 PPT01 05220
006024 6160001603 05230 AC 016,3,X7X7 PPT01 05230
006031 2157777716 05240 FT -1,X6,X6X6 PPT01 05240
006036 2177777617 05250 FT -2,X7,X7X7 PPT01 05250
* 006043 3200576600 05260 OTOD2 JL OTOD1,0 0 PPT01 05260
006050 4200007332 05270 ST X6,26 PPT01 05270
006055 4200007733 05280 ST X7,27 PPT01 05280
* 006062 3000573500 05290 J OTOD PPT01 05290
* 006067 3000606700 05300 BIDE J $ BINARY TO DECIMAL CONVERSION PPT01 05300
006074 4600007332 05310 BT X6,26 PPT01 05310
006101 2601347324 05320 PD0 DEC,4 PPT01 05320
006106 2600003623 05330 PD0 036,3 PPT01 05330
006113 4400003704 05340 SC 037,4 PPT01 05340
006120 2600007303 05350 PD X6,3 PPT01 05350
006125 4400614301 05360 SC BIDE1+4,4,1 PPT01 05360
006132 4400617406 05370 SC BIDE2+4,4,6 PPT01 05370
006137 1540001701 05380 BIDE1 LC 017,1,X6X6 PPT01 05380
* 006144 3000615643 05390 JU $+10 PPT01 05390
006151 6201347324 05400 AM2 DEC,4 PPT01 05400
006156 6600003724 05410 AD2 037,4 PPT01 05410
006163 1600614351 05420 BC1 BIDE1+4,4,1 PPT01 05420
* 006170 3200613706 05430 BIDE2 JL BIDE1,6 6 PPT01 05430
006175 2157777716 05440 FT -1,X6,X6X6 PPT01 05440
* 006202 3200612500 05450 BIDE3 JL BIDE1-1010,0 PPT01 05450
006207 5601347364 05460 BD2 DEC,4 PPT01 05460
006214 4200007332 05470 ST X6,26 PPT01 05470
* 006221 3000606700 05480 J BIDE PPT01 05480
006226 1401344310 05490 PT02 LC STP+1,01010 PUNCH TEST 2)STOP CHARACTER PPT01 05490
* 006233 3000323442 05500 JE PEND1 JUMP IF INH STOP DETECTION PPT01 05500
006240 2600374001 05510 PD IO4+4,1 1 PPT01 05510
006245 2620001700 05520 PD 017,16,X,X1 PPT01 05520
006252 2601345712 05530 PD FCT,10 CLEAR STCT AND FCT PPT01 05530
006257 4401345220 05540 SC STCT,02020 PPT01 05540
* 006264 1000327500 05550 P020 JR PBA PPT01 05550
006271 4601350631 05560 BT B01,25 PPT01 05560
* 006276 1000237300 05570 JR GTP PPT01 05570
006303 5601344302 05580 BA1 STP+1,2 2 PPT01 05580
006310 5400001760 05590 LP 017,060 0 PPT01 05590
006315 5340000102 05600 SA1 1,2,X6 PPT01 05600
* 006322 1000361200 05610 JR IO PPT01 05610
006327 7401351631 05620 CT B256,25 5 PPT01 05620
* 006334 3000311442 05630 JE PEND PPT01 05630
006341 1601345221 05640 BS2 STCT,1 PPT01 05640
006346 1600014721 05650 BS2 T25,1 PPT01 05650
* 006353 3000627600 05660 J P020+10 0 PPT01 05660
006360 4400643404 05670 PT03 SC LP8+4,4 4 PUNCH TEST 3)TEST PATTERNS PPT01 05670
006365 4400740140 05680 SC P036+4,0,040 PPT01 05680
006372 2600006704 05690 PD X5,4 PPT01 05690
006377 2600735001 05700 PD P035+4,1,1 RESET COMPARISON SWITCH PPT01 05700
* 006404 1000644500 05710 P037 JR P03 PPT01 05710
006411 5241601700 05720 SA1 BA+15,1616,X2 PPT01 05720
* 006416 1000327500 05730 JR PBA PPT01 05730
* 006423 1000733000 05740 JR P034 PPT01 05740
* 006430 3200640404 05750 LP8 JL P037,4 PPT01 05750
* 006435 3000311400 05760 J PEND PPT01 05760
* 006442 3000644200 05770 P03 J $ PPT01 05770
006447 4401345720 05780 SC FCT,020 0 PPT01 05780
006454 4401345601 05790 SC FCT-1,1 1 PPT01 05790
006461 4400374040 05800 SC IO4+4,04040 SET STOP CHARACTER SWITCH PPT01 05800
006466 5721361600 05810 BA1 TP6+15,1,16,X5 PPT01 05810
006473 4400672506 05820 SC LP6+9,6 6 PPT01 05820
006500 5601344221 05830 BA2 STP,1 PPT01 05830
006505 2000000526 05840 FT 5,22 PPT01 05840
006512 3401344102 05850 CC LEVEL,0202 PPT01 05850
* 006517 3000725041 05860 JG P033 5-LEVEL OR TELETYPE PPT01 05860
006524 6001345720 05870 AC FCT,020 0 PPT01 05870
006531 2000000626 05880 FT 6,22 PPT01 05880
006536 3401344102 05890 CC LEVEL,0202 PPT01 05890
* 006543 3000711142 05900 JE P032 6-LEVEL CODE PPT01 05900
006550 1401344304 05910 LC PLUG-1,0,04 PPT01 05910
* 006555 3000711142 05920 JE P032 1-CHARACTER MODE PPT01 05920
006562 4400672520 05930 SC LP6+9,1616 PPT01 05930
006567 6001345720 05940 AC FCT,020 0 PPT01 05940
006574 2000001626 05950 FT 14,22 PPT01 05950
006601 3401344103 05960 CC LEVEL,0303 PPT01 05960
* 006606 3000702242 05970 JE P031 7-LEVEL CODE PPT01 05970
006613 6001345720 05980 AC FCT,020 0 HANDLE 8-LEVEL PPT01 05980
006620 2000002026 05990 FT 16,22 PPT01 05990
006625 4400672010 06000 P030 SC LP6+4,8 8 PPT01 06000
006632 5721364600 06010 BA1 TP8+15,1,16,X5 PPT01 06010
006637 5601344322 06020 BA2 STP+1,2 2 PPT01 06020
006644 5400003760 06030 LP 037,060 0 PPT01 06030
006651 7000003742 06040 CB1 037,2 PPT01 06040
* 006656 3000667543 06050 JU $+15 NOT STOP CHARACTER PPT01 06050
006663 2600374001 06060 PD IO4+4,1 1 PPT01 06060
* 006670 3000672100 06070 J LP6+5 PPT01 06070
006675 5200003702 06080 SA1 037,2 PPT01 06080
006702 5200002100 06090 SA1 021,16 PPT01 06090
006707 5200000122 06100 SA2 1,2 PPT01 06100
* 006714 3200663710 06110 LP6 JL P030+10,0,8 PPT01 06110
006721 6000006700 06120 AC X5,0 ADD 6 OR 16 PPT01 06120
006726 5601345722 06130 BA2 FCT,2 PPT01 06130
006733 5201345222 06140 SA2 STCT,2 PPT01 06140
* 006740 3000644200 06150 J P03 PPT01 06150
006745 2600374001 06160 P039 PD IO4+4,1 1 PPT01 06160
006752 4400701407 06170 SC P031-6,7,7 PPT01 06170
006757 2600007704 06180 PD X7,4 PPT01 06180
006764 5760000102 06190 P0310 BA1 1,2,X7 PPT01 06190
* 006771 1000274100 06200 JR GPAR PPT01 06200
006776 5360000102 06210 SA1 1,2,X7 PPT01 06210
007003 6000007702 06220 AC X7,2 PPT01 06220
* 007010 3200676407 06230 JL P0310,7 7 PPT01 06230
* 007015 3000672100 06240 J LP6+5 PPT01 06240
007022 4400710307 06250 P031 SC LP6A+4,7,7 HANDLE 7-LEVEL PPT01 06250
007027 5721364600 06260 BA1 TP8+15,1,16,X5 PPT01 06260
007034 5400001540 06270 LP 015,040 0 ERASE BIT 8 PPT01 06270
007041 5601344322 06280 BA2 STP+1,2 2 PPT01 06280
007046 5400003740 06290 LP 037,040 0 PPT01 06290
007053 7000001562 06300 CB2 015,2 PPT01 06300
* 007060 3000674542 06310 JE P039 STOP CHARACTER PPT01 06310
007065 5200002100 06320 SA1 021,16 PPT01 06320
007072 5200000102 06330 SA1 1,2 PPT01 06330
* 007077 3200703407 06340 LP6A JL P031+10,0,7 PPT01 06340
* 007104 3000675200 06350 J P039+5 PPT01 06350
007111 4400716506 06360 P032 SC LP6B+4,6,6 HANDLE 6-LEVEL PPT01 06360
007116 7000000561 06370 CB2 05,1 PPT01 06370
* 007123 3000714243 06380 JU $+15 NOT STOP CHARACTER PPT01 06380
007130 2600374001 06390 PD IO4+4,1 1 PPT01 06390
* 007135 3000716600 06400 J LP6B+5 PPT01 06400
007142 5200002000 06410 SA1 020,16 PPT01 06410
007147 5600000601 06420 BA1 06,1 PPT01 06420
007154 5200000001 06430 SA1 0,1 PPT01 06430
* 007161 3200711606 06440 LP6B JL P032+5,6,6 PPT01 06440
007166 4400724206 06450 SC P033-6,6,6 PPT01 06450
007173 5600000526 06460 BA2 5,6 PPT01 06460
007200 2600001700 06470 PD 017,16 PPT01 06470
007205 2600007710 06480 PD X7,8 PPT01 06480
007212 5760003201 06490 P038 BA1 032,1,X7X7 PPT01 06490
007217 5340000001 06500 SA1 0,1,X6 PPT01 06500
007224 6000007701 06510 AC X7,1 PPT01 06510
007231 6000007302 06520 AC X6,2 PPT01 06520
* 007236 3200721206 06530 JL P038,6 PPT01 06530
* 007243 3000675200 06540 J P039+5 PPT01 06540
007250 4400731705 06550 P033 SC LP6C+4,5,5 HANDLE 5-LEVEL CODE PPT01 06550
007255 5400000437 06560 LP 04,037 ELIMINATE BIT 6 PPT01 06560
007262 7000000461 06570 CB2 04,1 PPT01 06570
* 007267 3000713042 06580 JE P032+15 5 STOP CHARACTER PPT01 06580
007274 5200002000 06590 SA1 020,16 PPT01 06590
007301 5600000501 06600 BA1 05,1 PPT01 06600
007306 5200000001 06610 SA1 0,1 PPT01 06610
* 007313 3200725505 06620 LP6C JL P033+5,5,5 PPT01 06620
* 007320 3000716600 06630 J LP6B+5 PPT01 06630
* 007325 3000732500 06640 P034 J $ PPT01 06640
007332 4400743277 06650 SC LP7+4,6363 PPT01 06650
* 007337 1000361200 06660 JR IO PPT01 06660
* 007344 3000737500 06670 P035 JC P036,0 COMPARISON SWITCH PPT01 06670
007351 2041600016 06680 FT BA,X6,X2X2 PPT01 06680
007356 2001700017 06690 FT BA2,X7 PPT01 06690
* 007363 1001111000 06700 JR COMP PPT01 06700
007370 2641601700 06710 PD BA+15,1616,X2 PPT01 06710
* 007375 3000742640 06720 P036 JC LP7,040 0 JUMP AFTER 4 TIMES PPT01 06720
007402 4400001720 06730 SC 017,020 0 PPT01 06730
007407 7200364201 06740 AB1 XF1+2,1 1 PPT01 06740
* 007414 3000742647 06750 JC $+10,39 9 NO BOF PPT01 06750
007421 2600740101 06760 PD P036+4,1,1 PPT01 06760
* 007426 3200733777 06770 LP7 JL P035-5,6,63 PPT01 06770
* 007433 3000732500 06780 J P034 PPT01 06780
007440 4400013710 06790 PT05 SC T23,010 0 PUNCH TEST 5)NON-STOP MODE PPT01 06790
007445 4601352231 06800 BT B512,25 5 PPT01 06800
* 007452 1000237300 06810 JR GTP PPT01 06810
* 007457 1000327500 06820 JR PBA PPT01 06820
* 007464 1000361200 06830 P05 JR IO PPT01 06830
007471 5641600102 06840 BA1 BA+1,2,X,X2 PPT01 06840
007476 2041600020 06850 FT BA,16,X2X2 PPT01 06850
007503 2000077622 06860 FT 510,18 PPT01 06860
007510 2441600201 06870 TFR BA+2,,X2X2 PPT01 06870
007515 5241677702 06880 SA1 BA+511,2,2,X2 PPT01 06880
* 007522 3000746400 06890 P050 JC P05,0 040 ON RERUN PPT01 06890
007527 2600752601 06900 PD $-1,1 PPT01 06900
* 007534 3000311400 06910 J PEND PPT01 06910
007541 4400364202 06920 R00 SC XF1+2,2 2 PPT01 06920
007546 4400320240 06930 SC LDR-1,04040 PPT01 06930
* 007553 3000311463 06940 JC PEND,51 1 IF SS2 SET,OMIT READ TESTS PPT01 06940
* 007560 3000757700 06950 J RT00 PPT01 06950
007565 4601344033 06960 BT ID,27 PPT01 06960
007572 4601344027 06970 BT ID,23 PPT01 06970
* 007577 3000207763 06980 RT00 JC PT00,51 1 IF SS2 SET,OMIT READ TESTS PPT01 06980
007604 4401301754 06990 SC INSTR,05054 STORE R FOR READ PPT01 06990
007611 4400476273 07000 SC XF2+4,07073 ELIMINATE LOW/FULL TEST PPT01 07000
007616 4400404013 07010 SC IO5+3,01013 PPT01 07010
007623 4400374040 07020 SC IO4+4,04040 PPT01 07020
007630 4400364201 07030 SC XF1+2,1 1 PPT01 07030
007635 4400445103 07040 SC PR2+3,3 3 PPT01 07040
007642 4400450213 07050 SC PR4+3,01013 PPT01 07050
007647 1401344504 07060 LC CHAN,04 4 PPT01 07060
* 007654 3001226642 07070 JE RT05 READ NON-STOP MODE PPT01 07070
* 007661 1001050400 07080 JR RID PPT01 07080
007666 2001356516 07090 FT RTN,X6 PPT01 07090
* 007673 1001104000 07100 JR FTN FIND TEST NUMBER PPT01 07100
007700 4601350626 07110 BT B01,22 PPT01 07110
* 007705 3100000000 07120 J 0,X4 JUMP TO READ TEST PPT01 07120
* 007712 3000771200 07130 R016 J $ PPT01 07130
007717 4601352231 07140 BT B512,25 5 PPT01 07140
* 007724 1000237300 07150 JR GTP PPT01 07150
* 007731 1001011700 07160 JR R015 PPT01 07160
007736 4601351634 07170 BT B256,28 8 PPT01 07170
007743 1401344304 07180 LC PLUG-1,0,04 PPT01 07180
* 007750 3000771242 07190 JE R016 1-CHARACTER MODE PPT01 07190
007755 1600013311 07200 BS1 T22,1 PPT01 07200
007762 1600016211 07210 BS1 T28-1,1 1 PPT01 07210
* 007767 3000771200 07220 J R016 PPT01 07220
* 007774 1000771500 07230 RT01 JR R016 READ TEST 1)ALL CHAR,FC BITS PPT01 07230
010001 4401345720 07240 SC FCT,020 0 SET FRAME COUNT TO 1 PPT01 07240
010006 2601345604 07250 PD FCT-1,4 4 PPT01 07250
* 010013 1001041000 07260 R010 JR RBA SET UP READ BASE ADDRESS PPT01 07260
* 010020 1000361200 07270 JR IO PPT01 07270
010025 2041600016 07280 FT BA,X6,X2X2 PPT01 07280
010032 2001700017 07290 FT BA2,X7 PPT01 07290
* 010037 1001111000 07300 JR COMP PPT01 07300
* 010044 1000353500 07310 JR ABA PPT01 07310
010051 1601345721 07320 BS2 FCT,1 PPT01 07320
010056 7400016326 07330 CT T28,22 PPT01 07330
010063 1600013301 07340 BS4 T22,1 PPT01 07340
* 010070 3001001343 07350 JU R010 PPT01 07350
010075 5601353751 07360 REND BD1 D01,9 PPT01 07360
010102 6201313111 07370 AM1 RECAP+1313,9 PPT01 07370
* 010107 3000207700 07380 J PT00 PPT01 07380
* 010114 3001011400 07390 R015 J $ PPT01 07390
010121 3401344100 07400 CC LEVEL,0 0 PPT01 07400
* 010126 3001014543 07410 JU R01 NOT 5-LEVEL TELETYPE PPT01 07410
010133 1401344420 07420 LC PLUG,02020 PPT01 07420
* 010140 3001017142 07430 JE R011 PERMIT SHIFT CODE TO MEMORY PPT01 07430
010145 2001700020 07440 R01 FT BA2,16 PPT01 07440
010152 2000100022 07450 FT 512,18 PPT01 07450
010157 2441600001 07460 TFR BA,,X2 PPT01 07460
* 010164 3001011400 07470 J R015 PPT01 07470
* 010171 3001017625 07480 R011 JC $+5,21 RESET SI1 FOR FIGS STATUS PPT01 07480
010176 2600007310 07490 PD X6,8 PPT01 07490
010203 2041600016 07500 FT BA,X6,X2X2 PPT01 07500
010210 5740000001 07510 BA1 0,1,X6 PPT01 07510
010215 3400001704 07520 CC 017,04 PPT01 07520
* 010222 3001024143 07530 JU $+15 NOT SPACE CHARACTER PPT01 07530
010227 1401344440 07540 LC PLUG,04040 PPT01 07540
* 010234 3001031643 07550 JU R013 INHIBIT SPACE DOUBLE PUNCH PPT01 07550
010241 1400001740 07560 LC 017,040 0 PPT01 07560
* 010246 3001035442 07570 JE R014 BIT 6 PPT01 07570
* 010253 3001037365 07580 JC R014+15,5,53 LETTERS STATUS SET PPT01 07580
010260 5321700001 07590 R012 SA1 BA2,1,X5X5 PPT01 07590
010265 6000007301 07600 AC X6,1 PPT01 07600
010272 6000006701 07610 AC X5,1 PPT01 07610
010277 7401351615 07620 CT B256,X5 5 PPT01 07620
* 010304 3001021043 07630 JU R011+15 5 NOT FINISHED PPT01 07630
* 010311 3001001300 07640 J R010 PPT01 07640
010316 1401344410 07650 R013 LC PLUG,01010 PPT01 07650
* 010323 3001033542 07660 JE $+10 INHIBIT SHIFT TO LETTERS PPT01 07660
* 010330 3001026022 07670 JC R012,18 8 SET SI1 FOR LTRS STATUS PPT01 07670
010335 1401344404 07680 LC PLUG,04 4 PPT01 07680
* 010342 3001026042 07690 JE R012 INHIBIT SHIFT TO FIGURES PPT01 07690
* 010347 3001026025 07700 JC R012,21 1 RESET SI1 FOR FIGS STATUS PPT01 07700
* 010354 3001026065 07710 R014 JC R012,53 3 LETTERS STATUS SET PPT01 07710
010361 4521700077 07720 SC BA2,077,7,X5 STORE LETTERS CODE PPT01 07720
* 010366 3001027222 07730 JC R012+10,0,18 SET SI1 FOR LTRS STATUS PPT01 07730
010373 4521700033 07740 SC BA2,033,3,X5 STORE FIGURES CODE PPT01 07740
* 010400 3001027225 07750 JC R012+10,0,21 RESET SI1 FOR FIGS STATUS PPT01 07750
* 010405 3001040500 07760 RBA J $ SET UP READ BASE ADDRESS PPT01 07760
010412 2041600003 07770 FT BA,3,X2 2 PPT01 07770
010417 5220000303 07780 SA1 3,3,X1 PPT01 07780
010424 5420000117 07790 LP 1,017,X1X1 PPT01 07790
010431 2620000001 07800 PD 0,1,X1 PPT01 07800
010436 5601345702 07810 BA1 FCT,2 PPT01 07810
010443 7220000102 07820 AB1 1,2,X1 PPT01 07820
010450 2641600001 07830 PD BA,1,X2 2 CLEAR BASE ADDRESS AREA PPT01 07830
010455 2041600120 07840 FT BA+1,16,6,X2 PPT01 07840
010462 2000077722 07850 FT 511,18 PPT01 07850
010467 2441600001 07860 TFR BA,,X2 PPT01 07860
* 010474 3001040500 07870 J RBA PPT01 07870
* 010501 3001050100 07880 RID J $ READ ID NO. PPT01 07880
010506 4400544340 07890 SC NOID+4,0,040 PPT01 07890
010513 4401345720 07900 SC FCT,020 0 PPT01 07900
010520 2601345601 07910 PD FCT-1,1 1 SET FRAME COUNT TO 1 PPT01 07910
* 010525 1001041000 07920 JR RBA PPT01 07920
010532 2600367501 07930 PD IO3+4,1 1 PPT01 07930
010537 2600515201 07940 PD ERR-1,1 1 PPT01 07940
* 010544 1000361200 07950 RID1 JR IO PPT01 07950
010551 5641600001 07960 BA1 BA,1,X2 2 PPT01 07960
010556 1401344304 07970 LC PLUG-1,0,04 PPT01 07970
* 010563 3001057542 07980 JE $+10 1-CHARACTER MODE PPT01 07980
010570 5641600102 07990 BA1 BA+1,2,X,X2 PPT01 07990
010575 2001054414 08000 FT RID1,X4 4 PPT01 08000
* 010602 1001063100 08010 JR CID PPT01 08010
010607 2600544301 08020 PD NOID+4,1,1 RESET NO ID SWITCH PPT01 08020
010614 4400515242 08030 SC ERR-1,04042 RESTORE STOP CHAR CHECK PPT01 08030
* 010621 3001050100 08040 J RID PPT01 08040
* 010626 3001062600 08050 CID J $ CHECK ID PPT01 08050
010633 3401344100 08060 CC LEVEL,0 0 PPT01 08060
* 010640 3001065743 08070 JU $+15 NOT TELETYPE CODE PPT01 08070
010645 1400001733 08080 LC 017,033 3 PPT01 08080
* 010652 3100000042 08090 JE 0,X4 IGNORE SHIFT CHARACTER PPT01 08090
010657 1600013706 08100 BS4 T23,6 PPT01 08100
010664 1401344304 08110 LC PLUG-1,0,04 PPT01 08110
* 010671 3001070342 08120 JE CID2 1-CHARACTER MODE PPT01 08120
010676 1600001766 08130 BC2 017,6 PPT01 08130
010703 5200013701 08140 CID2 SA1 T23,1 PPT01 08140
010710 5601343622 08150 BA2 ID-2,2 PPT01 08150
010715 3401344101 08160 CC LEVEL,0101 PPT01 08160
* 010722 3001074143 08170 JU $+15 NOT 5-LEVEL BINARY CODE PPT01 08170
010727 6400013540 08180 LS T23-2,04040 PPT01 08180
010734 6400013440 08190 LS T23-3,04040 PPT01 08190
010741 7000013562 08200 CB2 T23-2,2 2 PPT01 08200
* 010746 3100000043 08210 JU 0,X4 NOT QQ PPT01 08210
* 010753 1001077000 08220 JR CID4 PPT01 08220
* 010760 3001062600 08230 J CID PPT01 08230
* 010765 3001076500 08240 CID4 J $ CHECK ID NUMBER PPT01 08240
010772 3400013603 08250 CC T23-1,0303 PPT01 08250
* 010777 3100000043 08260 JU 0,X4 MSD NOT DECIMAL ZERO PPT01 08260
011004 3400013703 08270 CC T23,03 PPT01 08270
* 011011 3100000041 08280 JG 0,X4 LSD TOO SMALL PPT01 08280
011016 3400013707 08290 CC T23,07 PPT01 08290
* 011023 3100000044 08300 JS 0,X4 LSD TOO LARGE PPT01 08300
* 011030 3001076500 08310 J CID4 PPT01 08310
* 011035 3001103500 08320 FTN J $ FIND TEST NUMBER PPT01 08320
011042 5600013742 08330 BD1 T23,2 PPT01 08330
011047 6601353742 08340 SD1 D01,2 PPT01 08340
011054 2601353642 08350 CD1 D01-1,2 2 PPT01 08350
011061 4740000014 08360 BT 0,X4,X6 6 PPT01 08360
* 011066 3001103542 08370 JE FTN PPT01 08370
011073 6000007303 08380 AC X6,3 PPT01 08380
* 011100 3001104700 08390 J FTN+10 PPT01 08390
* 011105 3001110500 08400 COMP J $ COMPARISON ROUTINE PPT01 08400
011112 4601353730 08410 BT D01,24 PPT01 08410
011117 2600017304 08420 PD T30,4 PPT01 08420
011124 5740000001 08430 BA1 0,1,X6 PPT01 08430
011131 7160000041 08440 CMP CB1 0,1,X7 PPT01 08440
* 011136 3001121343 08450 JU CMPE JUMP IF INCORRECT PPT01 08450
011143 6000007301 08460 AC X6,1 INCREMENT IMAGE ADDRESS PPT01 08460
011150 6000007701 08470 AC X7,1 PPT01 08470
011155 6000017301 08480 AC T30,1 PPT01 08480
011162 5601353743 08490 BD1 D01,3 PPT01 08490
011167 6200014303 08500 AM1 T24,3 PPT01 08500
011174 7400017326 08510 CT T30,22 PPT01 08510
* 011201 3001112443 08520 JU CMP-5 PPT01 08520
* 011206 3001110500 08530 J COMP PPT01 08530
011213 2001125114 08540 CMPE FT CMPE1,X4X4 PPT01 08540
011220 5600016724 08550 BA2 T29,4 PPT01 08550
011225 4200016727 08560 ST T29,23 PPT01 08560
011232 5200013724 08570 SA2 T23,4 PPT01 08570
* 011237 1001063100 08580 JR CID PPT01 08580
* 011244 3000757700 08590 J RT00 PPT01 08590
011251 4400604701 08600 CMPE1 SC OTOD2+4,4,1 PPT01 08600
* 011256 1000574000 08610 JR OTOD PPT01 08610
011263 5201325502 08620 SA1 CMPER+1616,2 CHARACTER READ PPT01 08620
011270 5600014303 08630 BA1 T24,3 PPT01 08630
011275 5201325003 08640 SA1 CMPER+1111,3 CHARACTER NUMBER PPT01 08640
011302 5760000001 08650 BA1 0,1,X7 PPT01 08650
* 011307 1000574000 08660 JR OTOD PPT01 08660
011314 5201326202 08670 SA1 CMPER+2121,2 CHARACTER EXPECTED PPT01 08670
011321 5600016724 08680 BA2 T29,4 PPT01 08680
011326 4200016727 08690 ST T29,23 PPT01 08690
011333 5200013724 08700 SA2 T23,4 PPT01 08700
011340 2007770613 08710 FT E06,X3 PPT01 08710
011345 2001323507 08720 FT CMPER,7 7 PPT01 08720
011352 4400431727 08730 SC CCT+3,2323 PPT01 08730
* 011357 1000417700 08740 JR ERRCT PPT01 08740
* 011364 3001114300 08750 J CMP+10 PPT01 08750
011371 2007771213 08760 NOLO FT E12,X3 PPT01 08760
011376 2001335407 08770 FT NOLOE,7 7 PPT01 08770
011403 4400431731 08780 SC CCT+3,2525 PPT01 08780
* 011410 1000417700 08790 JR ERRCT PPT01 08790
* 011415 3000372700 08800 J IO4-5 PPT01 08800
011422 1401344310 08810 RT02 LC STP+1,01010 READ TEST 2 ) STOP CHARACTER PPT01 08810
* 011427 3000757742 08820 JE RT00 JUMP IF INH STOP DETECTION PPT01 08820
011434 1401344304 08830 LC PLUG-1,0,04 PPT01 08830
* 011441 3001145342 08840 JE $+10 1-CHARACTER MODE PPT01 08840
011446 1600013311 08850 BS1 T22,1 PPT01 08850
011453 2600374001 08860 PD IO4+4,1 1 PPT01 08860
011460 2601345712 08870 PD FCT,10 CLEAR STCT,FCT PPT01 08870
011465 4401345220 08880 SC STCT,02020 SET STOP COUNT TO 1 PPT01 08880
* 011472 1001041000 08890 JR RBA PPT01 08890
011477 4601350631 08900 BT B01,25 PPT01 08900
* 011504 1000237300 08910 R02 JR GTP PPT01 08910
011511 5601344302 08920 BA1 STP+1,2 2 PPT01 08920
011516 5400001760 08930 LP 017,060 0 PPT01 08930
* 011523 1000274100 08940 JR GPAR PPT01 08940
011530 5340000102 08950 SA1 1,2,X6 PPT01 08950
011535 2001700020 08960 FT BA2,16 PPT01 08960
011542 2000100022 08970 FT 512,18 PPT01 08970
011547 2441600001 08980 TFR BA,,X2 PPT01 08980
* 011554 1000361200 08990 JR IO PPT01 08990
011561 2041600016 09000 FT BA,X6,X2X2 PPT01 09000
011566 2001700017 09010 FT BA2,X7 PPT01 09010
* 011573 1001111000 09020 JR COMP PPT01 09020
011600 5601345202 09030 BA1 STCT,2 PPT01 09030
011605 7001350542 09040 CB1 B01-1,2 2 PPT01 09040
* 011612 3001007542 09050 JE REND PPT01 09050
011617 1601345221 09060 BS2 STCT,1 PPT01 09060
011624 1600014721 09070 BS2 T25,1 PPT01 09070
011631 1600013301 09080 BS4 T22,1 PPT01 09080
* 011636 3001150400 09090 J R02 PPT01 09090
011643 2007771113 09100 SBAE FT E11,X3 SPECIAL BASE ADDRESS ERROR PPT01 09100
011650 2001332307 09110 FT SBAER,7 7 PPT01 09110
011655 4400431731 09120 SC CCT+3,2525 PPT01 09120
* 011662 1000417700 09130 JR ERRCT PPT01 09130
* 011667 3000405400 09140 J II PPT01 09140
011674 4401175004 09150 RT03 SC LP9+4,4 4 READ TEST 3)TEST PATTERNS PPT01 09150
011701 2600006704 09160 PD X5,4 PPT01 09160
011706 4400740140 09170 SC P036+4,0,040 PPT01 09170
* 011713 1000644500 09180 R03 JR P03 PPT01 09180
011720 5201701700 09190 SA1 BA2+15,1,16 PPT01 09190
* 011725 1001041000 09200 JR RBA PPT01 09200
011732 4400735040 09210 SC P035+4,0,040 RESET COMPARISON SWITCH PPT01 09210
* 011737 1000733000 09220 JR P034 PPT01 09220
* 011744 3201171304 09230 LP9 JL R03,4 PPT01 09230
* 011751 3001007500 09240 J REND PPT01 09240
011756 4601352231 09250 RT04 BT B512,25 5 READ TEST 4)SPOOL REVERSAL PPT01 09250
011763 4601351234 09260 BT B02,28 PPT01 09260
* 011770 1000237300 09270 JR GTP PPT01 09270
* 011775 1001011700 09280 JR R015 PPT01 09280
012002 4401345740 09290 SC FCT,040 0 PPT01 09290
012007 2601345601 09300 PD FCT-1,1 1 SET FRAME COUNT TO 2 PPT01 09300
012014 2600367501 09310 PD IO3+4,1 1 SET IO EXIT SWITCH PPT01 09310
* 012021 1001041000 09320 JR RBA PPT01 09320
* 012026 1000361200 09330 JR IO READ PPT01 09330
012033 4641600331 09340 BT BA+3,25,5,X2 PPT01 09340
012040 4400364206 09350 R04 SC XF1+2,6 6 PPT01 09350
* 012045 1000361200 09360 JR IO BACKSPACE/PUNCH PPT01 09360
012052 4400364205 09370 SC XF1+2,5 5 PPT01 09370
* 012057 1000361200 09380 JR IO BACKSPACE/READ PPT01 09380
* 012064 1001213200 09390 JR R040 PPT01 09390
012071 4400364204 09400 SC XF1+2,4 4 PPT01 09400
* 012076 1000361200 09410 JR IO BACKSPACE PPT01 09410
012103 4400364203 09420 SC XF1+2,3 3 PPT01 09420
* 012110 1000361200 09430 JR IO PUNCH/READ PPT01 09430
* 012115 1001213200 09440 JR R040 PPT01 09440
* 012122 3001204000 09450 J R04 PPT01 09450
* 012127 3001212700 09460 R040 J $ PPT01 09460
012134 5600014521 09470 BA2 T25-2,1 1 PPT01 09470
012141 5201700021 09480 SA2 BA2,1 PPT01 09480
012146 1401344304 09490 LC PLUG-1,0,04 PPT01 09490
* 012153 3001217742 09500 JE R042 1-CHARACTER MODE PPT01 09500
012160 4400013302 09510 SC T22,02 2 CHARACTER MODE PPT01 09510
012165 5600014722 09520 BA2 T25,2 PPT01 09520
012172 5201700122 09530 SA2 BA2+1,2 2 PPT01 09530
012177 2041600016 09540 R042 FT BA,X6,X2X2 PPT01 09540
012204 2001700017 09550 FT BA2,X7 PPT01 09550
* 012211 1001111000 09560 JR COMP PPT01 09560
012216 5620001704 09570 BA1 017,4,X1X1 PPT01 09570
012223 7001350544 09580 CB1 B01-1,4 4 PPT01 09580
* 012230 3001262243 09590 JU BSPE PPT01 09590
012235 6000016301 09600 R041 AC T28,1 PPT01 09600
012242 7401351634 09610 CT B256,28 8 PPT01 09610
* 012247 3001007542 09620 JE REND PPT01 09620
012254 4641600331 09630 BT BA+3,25,5,X2 PPT01 09630
* 012261 3001212700 09640 J R040 PPT01 09640
012266 4400013710 09650 RT05 SC T23,010 0 READ TEST 5)NON-STOP MODE PPT01 09650
* 012273 1000771500 09660 JR R016 PPT01 09660
012300 2601345712 09670 PD FCT,10 PPT01 09670
* 012305 1001041000 09680 JR RBA PPT01 09680
012312 2600367501 09690 PD IO3+4,1 1 PPT01 09690
012317 2001700017 09700 FT BA2,X7 PPT01 09700
012324 4601351626 09710 BT B256,22 2 PPT01 09710
012331 2041600016 09720 FT BA,X6,X2X2 PPT01 09720
012336 4401243120 09730 SC R05+4,1616 PPT01 09730
012343 1401344304 09740 LC PLUG-1,0,04 PPT01 09740
* 012350 3001237442 09750 JE R050 1-CHARACTER MODE PPT01 09750
012355 4401243140 09760 SC R05+4,3232 PPT01 09760
012362 4601352226 09770 BT B512,22 2 PPT01 09770
012367 2041500016 09780 FT BA3,X6,X,X2 PPT01 09780
012374 4600007337 09790 R050 BT X6,T31 PPT01 09790
* 012401 1000361200 09800 JR IO PPT01 09800
012406 3400406040 09810 CC II+4,04040 PPT01 09810
* 012413 3000410042 09820 JE IO2-10 INTERRUPT DID NOT OCCUR PPT01 09820
012420 4400406040 09830 SC II+4,04040 PPT01 09830
012425 4401247420 09840 R05 SC R053+4,1,16 32 FOR 2-CHARACTER MODE PPT01 09840
012432 5740001700 09850 BA1 15,16,X6X6 IMAGE PPT01 09850
012437 7160001740 09860 CB1 15,16,X7X7 TEST PATTERN PPT01 09860
* 012444 3001255243 09870 JU R054 COMPARISON ERROR PPT01 09870
012451 6000007320 09880 AC X6,16 PPT01 09880
012456 5400007267 09890 LP X6-1,06767 PPT01 09890
012463 6000007720 09900 AC X7,16 PPT01 09900
* 012470 3201243220 09910 R053 JL R05+5,1616 32 FOR 2-CHARACTER MODE PPT01 09910
012475 5601353751 09920 BD1 D01,9 PPT01 09920
012502 6201313111 09930 AM1 RECAP+1313,9 PPT01 09930
012507 5641700102 09940 BA1 BA2+1,2,2,X2 PPT01 09940
012514 2041700020 09950 FT BA2,16,X,X2 PPT01 09950
012521 2000077622 09960 FT 510,18 PPT01 09960
012526 2441700201 09970 TFR BA2+2,,X,X2 PPT01 09970
012533 5241777702 09980 SA1 BA2+511,1,2,X2 PPT01 09980
012540 2001700017 09990 FT BA2,X7 PPT01 09990
* 012545 3000364500 10000 J XF1+5 PPT01 10000
012552 4200007337 10010 R054 ST X6,T31 IMAGE ADDRESS PPT01 10010
012557 2001700017 10020 FT BA2,X7 TEST PATTERN ADDRESS PPT01 10020
012564 2140000021 10030 FT 0,17,X6 6 PPT01 10030
012571 2000100022 10040 FT 512,18 PPT01 10040
012576 2401400041 10050 TTR BA4 PPT01 10050
012603 2001400016 10060 FT BA4,X6 PPT01 10060
* 012610 1001111000 10070 JR COMP PPT01 10070
* 012615 3000566000 10080 J OPREQ PPT01 10080
012622 2007771503 10090 BSPE FT E15,3 PPT01 10090
012627 2001326407 10100 FT BSPER,7 7 PPT01 10100
012634 4400431717 10110 SC CCT+3,1515 PPT01 10110
* 012641 1000417700 10120 JR ERRCT PPT01 10120
* 012646 3001223500 10130 J R041 PPT01 10130
012653 10140 NOINT EQU $ PPT01 10140
012672 INTERRUPT DID NO 10150 +16 _INTERRURUPT DID NO_ PPT01 10150
012701 T OCCUR 10160 +7 _T OCCURUR_ PPT01 10160
012702 10170 NOINH EQU $ _INTERRUPT WAS NO_ PPT01 10170
012716 INTERRUPT NOT 10180 +13 _INTERRURUPT NOT_ PPT01 10180 _
012730 INHIBITED 10190 +10 _ INHIBIBITED_ PPT01 10190
012731 10200 INTER EQU $ PPT01 10200
012750 EXTRA INTERRUPT 10210 +16 _EXTRA I INTERRUPT _ PPT01 10210 P
012751 10220 PARE EQU $ PPT01 10220
012762 PROCESSOR 10230 +10 _PROCESSSSOR _ PPT01 10230
012776 PARITY ERROR 10240 +12 _PARITY Y ERROR_ PPT01 10240
012777 10250 DOFLO EQU $ PPT01 10250
013016 DECIMAL OVERFLOW 10260 +16 _DECIMALAL OVERFLOW_ PPT01 10260 L
013017 10270 INSTR EQU $ PPT01 10270
013031 OT)00,F)00, 10280 +11 _OT)00,F,F)00,_ TEST NO.,FUNCTION PPT01 10280
013040 FC)000, 10290 +7 _FC)000,0,_ FRAME COUNT PPT01 10290
013052 BA) , 10300 +10 _BA) ,_ BASE ADDRESS PPT01 10300
013064 SBA) 10310 +10 _SBA) _ SPECIAL BASE ADDRESS PPT01 10310
013065 10320 EIND EQU $ PPT01 10320
013077 INDICATORS) 10330 +11 _INDICATATORS)_ PPT01 10330
013113 10340 +12 _ _ PPT01 10340
013114 10350 RECAP EQU $ PPT01 10350
013132 RUNS)000000000, 10360 +15 _RUNS)00000000000,_ TOTAL RUN COUNTER PPT01 10360 0
013150 ERRS)000000000 10370 +14 _ERRS)00000000000_ TOTAL ERROR COUNTER PPT01 10370 0
013151 10380 NOIDN EQU $ PPT01 10380
013170 NO ID LOCATED 10390 +16 _NO ID L LOCATED _ PPT01 10390
013171 10400 IDER EQU $ PPT01 10400
013210 INVALID ID 10410 +16 _ ININVALID ID _ PPT01 10410 I
013211 10420 EOMER EQU $ PPT01 10420
013230 EOM NOT DETECTED 10430 +16 _EOM NOTOT DETECTED_ PPT01 10430 T
013234 QQ04 10440 LID +4 _QQ04_ PPT01 10440
013235 10450 CMPER EQU $ READER COMPARISON ERROR PPT01 10450
013250 CMPE< CH)000 10460 +12 _CMPE< C CH)000_ CHARACTER NUMBER PPT01 10460
013263 ,R)00,E)00< 10470 +11 _,R)00,E,E)00<_ CHARACTER READ,EXPECTED PPT01 10470
013264 10480 BSPER EQU $ PPT01 10480
013302 PUNCH SBA ERROR 10490 +15 _PUNCH S SBA ERROR_ PPT01 10490 O
013303 10500 LOFT EQU $ PPT01 10500
013322 LOW OR FULL TAPE 10510 +16 _LOW OR R FULL TAPE_ PPT01 10510 A
013323 10520 SBAER EQU $ PPT01 10520
013342 SPECIAL BASE ADD 10530 +16 _SPECIALAL BASE ADD_ PPT01 10530 A
013353 RESS ERR< 10540 +9 _RESS ERERR<_ PPT01 10540
013354 10550 NOLOE EQU $ PPT01 10550
013372 PROCESSOR NOT 10560 +15 _PROCESSSSOR NOT _ PPT01 10560
013404 LOCKED OUT 10570 +10 _LOCKED D OUT_ PPT01 10570
* 013405 3000000036 10580 JC 0,036 PPT01 10580
013414 005571 10590 +3 CL1IR PPT01 10590
* 013415 3000000035 10600 JC 0,035 PPT01 10600
013424 005634 10610 CL2IE +3 CL2IR PPT01 10610
* 013425 3000000031 10620 JC 0,25 PPT01 10620
013434 004713 10630 PTIE +3 PTIR PPT01 10630
013440 QQ01 10640 ID +4 _QQ01_ LOC 07-12)TEST ID NO. PPT01 10640
013441 02 10650 LEVEL +1 02 LOC 13) CODE LEVEL PPT01 10650
013442 77 10660 STP +1 077 LOC 14)STOP CHARACTER PPT01 10660
013443 06 10670 +1 06 LOC 15)STOP CHAR,DETECTION PPT01 10670
013444 00 10680 PLUG +1 0 LOC 16)PLUGBOARD OPTIONS PPT01 10680
013445 60 10690 CHAN +1 060 LOC 17) CHANNEL PPT01 10690
013452 0000000000 10700 STCT +5 0 STOP COUNT PPT01 10700
013457 0000000000 10710 FCT +5 0 FRAME COUNT PPT01 10710
013467 0000000000000000 10720 OCTAL +8 0 PPT01 10720
013473 0000 10730 DEC +4 _0000_ PPT01 10730
013500 01234 10740 DN +5 _01234_ _ DECIMAL NUMBERS PPT01 10740
013501 00 10750 LI +1 0 PPT01 10750
013506 0000000001 10760 B01 +5 01 PPT01 10760
013512 00000002 10770 B02 +4 02 PPT01 10770
013516 00000400 10780 B256 +4 256 PPT01 10780
013522 00001000 10790 B512 +4 512 PPT01 10790
013526 00000005 10800 B05 +4 05 PPT01 10800
013537 000000001 10810 D01 +9 _00000000001_ PPT01 10810
013542 016 10820 D16 +3 _016_ PPT01 10820
013546 0256 10830 D256 +4 _0256_ PPT01 10830
013551 002243 10840 PTN +3 PT01 PUNCH TEST 1)ALL CHAR,FC PPT01 10840
013554 006226 10850 +3 PT02 PUNCH TEST 2)STOP CHAR PPT01 10850
013557 006360 10860 +3 PT03 PUNCH TEST 3)PATTERNS PPT01 10860
013562 002255 10870 +3 PT04 PUNCH TEST 4)REVERSAL PPT01 10870
013565 007774 10880 RTN +3 RT01 READ TEST 1)ALL CHAR,FC PPT01 10880
013570 011422 10890 +3 RT02 READ TEST 2)STOP CHAR PPT01 10890
013573 011674 10900 +3 RT03 READ TEST 3)PATTERNS PPT01 10900
013576 011756 10910 +3 RT04 READ TEST 4)REVERSAL PPT01 10910
013577 10920 TP6 EQU $ PPT01 10920
013604 010307173777 10930 +6 01030717173777 TRIANGLE PPT01 10930
013612 767573675737 10940 +6 076757363675737 PRECESSING BLANK PPT01 10940
013620 010204102040 10950 +6 01020410102040 PRECESSING BIT PPT01 10950
013626 255225522552 10960 +6 025522555522552 CHECKERBOARD PPT01 10960
013627 10970 TP8 EQU $ PPT01 10970
013636 0100030007001700 10980 +8 0010003030007001700 TRIANGLE PPT01 10980 7
013646 3700770077407760 10990 +8 0370077070077407760 PPT01 10990 7
013656 7660756073606760 11000 +8 0766075656073606760 PRECESSING BLANK PPT01 11000 7
013666 5760376077207740 11010 +8 0576037676077207740 PPT01 11010 7
013676 0100020004001000 11020 +8 0010002020004001000 PRECESSING BIT PPT01 11020 0
013706 2000400000400020 11030 +8 0200040000000400020 PPT01 11030 0
013716 2540522025405220 11040 +8 0254052222025405220 CHECKERBOARD PPT01 11040 2
013726 2540522025405220 11050 +8 0254052222025405220 PPT01 11050 2
000047 11060 X1 EQU 047 TETRAD ADDRESS PPT01 11060
000053 11070 X2 EQU X1+4 MEMORY STACK PPT01 11070
000057 11080 X3 EQU X2+4 ERROR NO. DISPLAY PPT01 11080
000063 11090 X4 EQU X3+4 TEST ROUTINE ADDRESS PPT01 11090
000067 11100 X5 EQU X4+4 PPT01 11100
000073 11110 X6 EQU X5+4 PPT01 11110
000077 11120 X7 EQU X6+4 PPT01 11120
000133 11130 T22 EQU 0133 DELAY COUNTER PPT01 11130
000137 11140 T23 EQU T22+4 ID STORAGE PPT01 11140
000143 11150 T24 EQU T23+4 CHARACTER COUNT PPT01 11150
000147 11160 T25 EQU T24+4 PPT01 11160
000153 11170 T26 EQU T25+4 PPT01 11170
000157 11180 T27 EQU T26+4 PPT01 11180
000163 11190 T28 EQU T27+4 PPT01 11190
000167 11200 T29 EQU T28+4 PPT01 11200
000173 11210 T30 EQU T29+4 PPT01 11210
000177 11220 T31 EQU T30+4 PPT01 11220
014000 11230 ORIG 014000 PPT01 11230
014000 1000 11240 BA4 AREA 512 BA ALTERNATE AREA 4 PPT01 11240
015000 1000 11250 BA3 AREA 512 BA ALTERNATE AREA 3 PPT01 11250
016000 400 11260 BA AREA 256 BASE ADDRESS AREA PPT01 11260
016400 400 11270 BA1 AREA 256 BA ALTERNATE AREA 1 PPT01 11270
017000 1000 11280 BA2 AREA 512 BA ALTERNATE AREA 2 PPT01 11280
3000150000 11290 END START PPT01 11290
{-- tape mark --}
005937 C431 INQT CODEDIT SOURCE - T3834394-43
001400 00000 T430 BEGIN 01400 INQUIRY TYPEWRITER FUNCTIONAL TEST ROUTINE INQT 00000 I
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T431 3000140000 * 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 T432 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 T433 3000136300 * SEGJP $ *
001400 ORIG 01400
001400 100 00001 PRIM AREA 64 PRINTER IMAGE AREA INQT 00001
* 001500 3000150534 00010 START JC $+5,28 INHIBIT CL2 INTERRUPT INQT 00010
001505 5600310100 00020 BA1 CL2IE,1616 INQT 00020
001512 5200051700 00030 SA1 0517,16 6 INQT 00030
001517 5600311110 00040 BA1 PRIE,8 INQT 00040
001524 5200040710 00050 SA1 0407,8 INQT 00050
* 001531 3000000060 00060 JD 0 INQT 00060
00061 . SS1 SET)T)USE INPUT FOR OUTPUT INQT 00061 P
00062 . SS1 RESESET)USE TEST PATTERN FOR OUTPUT INQT 00062 T
00063 . SS2 SET)T)WAIT FOR EOT INQT 00063 O
00064 . SS2 RESESET)GO ON TO OUTPUT INQT 00064 N
001536 2600006304 00070 IN PD X4,4 INQT 00070
001543 2600173701 00090 IN1 PD ITREQ+4,4,1 SET INPUT SEQUENCE INQT 00090
* 001550 3000155516 00091 JC $+5,14 RESET OPER REQ INT INH INQT 00091
* 001555 3000156235 00100 JC $+5,29 INQT 00100
* 001562 3000156737 00110 JC $+5,31 RESET CL2 PROG INT INH INQT 00110
* 001567 3000154363 00120 JC IN1,51 IF SS2 SET,WAIT FOR EOT INQT 00120
001574 4400173740 00220 OUT SC ITREQ+4,4,040 SET OUTPUT SEQUENCE INQT 00220
001601 2600006300 00230 PD X4,16 INQT 00230
* 001606 3000165162 00240 JC OUT2,50 0 IF SS1 SET,INPUT IS OUTPUT INQT 00240
001613 2000331020 00250 FT IM+4,16 6 IF RESET,TEST PAT IS OUTPUT INQT 00250
001620 2000022622 00260 FT 150,18 INQT 00260
001625 2400263401 00270 TFR TP INQT 00270
001632 2000000412 00271 FT 4,X2 INQT 00271
001637 2000011311 00280 FT 75,X1 INQT 00280
001644 4200006311 00281 ST X4,X1 INQT 00281
001651 4400200740 00282 OUT2 SC OUT3+4,0,040 INQT 00282
* 001656 3000166316 00283 JC $+5,14 INQT 00283
001663 71 00290 ITP +1 071 INQUIRY TYPEWRITER PRINT INQT 00290
001666 003304 00300 +3 IM INQT 00300
001667 01 00310 +1 01 INQT 00310
* 001670 3000167537 00320 JC $+5,31 INQT 00320
001675 2600004304 00330 PD 043,4 INQT 00330
001702 5600262204 00340 BA1 B01,4 INQT 00340
001707 7200004304 00350 AB1 043,4 INQT 00350
001714 3400004220 00360 CC 042,020 0 INQT 00360
* 001721 3000170741 00370 JG $-10 150 MILLISECONDS DELAY INQT 00370
* 001726 3000214700 00380 J IERR INQT 00380
* 001733 3000206540 00390 ITREQ JC IN3,040 0 INQT 00390
001740 5600306102 00410 BA1 EOM,2 INQT 00410
001745 7100330442 00411 CB1 IM,2,X4 4 INQT 00411
001752 6000006301 00420 AC X4,1 INQT 00420
* 001757 3000204143 00430 JU OUT1-5 INQT 00430
001764 5600263351 00431 BD1 D01,9 INQT 00431
001771 6200324211 00432 AM1 OUTS+13,3,9 INQT 00432
* 001776 3000153662 00440 JC IN,50 IF SS1 SET,INPUT IS OUTPUT INQT 00440
* 002003 3000153640 00441 OUT3 JC IN,040 JUMP IF NON-PRINT FINISHED INQT 00441
002010 7400005311 00450 CT X2,X1 INQT 00450
* 002015 3000204642 00460 JE OUT1 INQT 00460
002022 5600262203 00470 BA1 B01,3 INQT 00470
002027 7200004743 00480 SB1 X1,3 INQT 00480
002034 4200006311 00490 ST X4,X1 INQT 00490
* 002041 3000165635 00500 JC ITP-5,2929 INQT 00500
002046 2600200701 00520 OUT1 PD OUT3+4,1,1 INQT 00520
002053 2000012414 00530 FT 84,X4 INQT 00530
* 002060 3000165635 00540 JC ITP-5,2929 INQT 00540
002065 2700331001 00602 IN3 PD IM+4,1,X,X4 INQT 00602
002072 71 00610 ITR +1 071 INQUIRY TYPEWRITER READ INQT 00610
002075 003310 00620 +3 IM+4 INQT 00620
002076 21 00630 +1 021 INQT 00630
002077 5600306107 00640 BA1 EOM,7 INQT 00640
002104 7100331042 00641 CB1 IM+4,2,X,X4 INQT 00641
002111 6000006301 00650 AC X4,1 INQT 00650
* 002116 3000154343 00660 JU IN1 INQT 00660
002123 5300331507 00661 SA1 IM+9,7,X,X4 INQT 00661
002130 5600263351 00670 BD1 D01,9 INQT 00670
002135 6200326111 00680 AM1 INS+12,9,9 INQT 00680
* 002142 3000157435 00690 JC OUT,29 INQT 00690
002147 2017770213 00780 IERR FT E02,X3 INQT 00780
002154 2000311207 00790 FT NOINT,7 7 INQT 00790
002161 4400231136 00800 SC CCT+3,3030 INQT 00800
* 002166 1000220300 00810 JR ERRCT INQT 00810
* 002173 3000166335 00820 JC ITP,29 INQT 00820
* 002200 3000220000 00830 ERRCT J $ INQT 00830
002205 5600263351 00840 BD1 D01,9 INQT 00840
002212 6200330311 00850 AM1 ERRS+15,5,9 INQT 00850
* 002217 1000223400 00860 JR PRINT INQT 00860
* 002224 3000220000 00870 J ERRCT INQT 00870
* 002231 3000223100 00880 PRINT J $ ERROR PRINT ROUTINE INQT 00880
* 002236 3000224371 00890 JC $+5,57 INQT 00890
* 002243 3000000140 00900 JC 1,040 INQT 00900
* 002250 3000240271 00910 JC PR1,57 IF SET,DO NOT PRINT INQT 00910
002255 2600140001 00920 PD PRIM,1 INQT 00920
002262 2000140120 00930 FT PRIM+1,1,16 INQT 00930
002267 2000010022 00940 FT 64,18 INQT 00940
002274 2400140001 00950 TFR PRIM INQT 00950
002301 5200232323 00960 SA2 MSG+3,3 3 INQT 00960
002306 2000000022 00970 CCT FT 0,18 ERROR MESSAGE LENGTH INQT 00970
002313 2000140020 00980 FT PRIM,16 6 INQT 00980
002320 2400000001 00990 MSG TFR 0 INQT 00990
002325 2000140040 01000 FT PRIM,32 2 INQT 01000
002332 2000000241 01010 FT 2,33 INQT 01010
002337 4000407777 01020 XF 040,0777777,0,0 INQT 01020
002344 4000620400 01030 XF 062,040000,0,0 INQT 01030
002351 4000001777 01040 PRIR XF 0,01777,7,0,0 INQT 01040
* 002356 3000244053 01050 JC PRERR,4343 INQT 01050
002363 4000006000 01060 XF 0,06000,0,0,0 INQT 01060
* 002370 3000233753 01070 JC PRIR-10,0,43 INQT 01070
002375 4000600400 01080 XF 060,040000,0,0 INQT 01080
* 002402 3000240771 01090 PR1 JC $+5,57 INQT 01090
* 002407 3000000240 01100 JC 2,040 INQT 01100
* 002414 3000242671 01110 JC STOP,57 7 IF SET,STOP INQT 01110
* 002421 3000223131 01120 JC PRINT,2525 INQT 01120
* 002426 3060000060 01130 STOP JD 0,X3 INQT 01130
* 002433 3000223131 01140 JC PRINT,2525 INQT 01140
* 002440 3000242160 01150 PRERR JD STOP-5 PRINTER ERROR STOP INQT 01150
01151 . DEPRESS S START TO REPRINT INQT 01151 T
01152 . JUMP TO O M TO IGNORE PRINTOUT INQT 01152 G
* 002445 3000233700 01160 J PRIR-10 0 INQT 01160
002452 2017770313 02000 CL1IR FT E03,X3 INQT 02000
002457 2000315007 02010 FT PARE,7 INQT 02010
002464 4400231126 02020 SC CCT+3,2222 INQT 02020
* 002471 1000220300 02030 JR ERRCT INQT 02030
* 002476 3000050000 02040 J 0500 INQT 02040
* 002503 3000254654 02060 CL2IR JC OPREQ,4444 OPERATOR REQUEST INQT 02060
* 002510 3000173356 02070 JC ITREQ,4646 INQUIRY TYPEWRITER REQUEST INQT 02070
002515 2017770413 02080 FT E04,X3 INQT 02080
002522 2000317607 02090 FT DOFLO,7 7 INQT 02090
002527 4400231120 02100 SC CCT+3,1616 INQT 02100
* 002534 1000220350 02110 JR ERRCT,4040 INQT 02110
* 002541 3000051016 02120 JC 0510,14 4 INQT 02120
002546 4400231166 02130 OPREQ SC CCT+3,5454 INQT 02130
002553 2017777713 02140 FT E77,X3 INQT 02140
002560 2000321607 02150 FT RECAP,7 7 INQT 02150
* 002565 1000223416 02160 JR PRINT,1414 INQT 02160
002572 2600324231 02161 PD0 OUTS+13,3,9 INQT 02161
002577 2600326131 02162 PD0 INS+12,9,9 INQT 02162
002604 2600330331 02170 PD0 ERRS+15,5,9 INQT 02170
* 002611 3000150035 02180 JC START,2929 INQT 02180
002622 0000000001 03000 B01 +5 00001 INQT 03000
002633 000000001 03010 D01 +9 _00000000001_ INQT 03010
002634 03200 TP EQU $ TEST PATTERN INQT 03200
002643 0001020304050607 03210 +8 0000102020304050607 INQT 03210 6
002653 1011121314151617 03220 +8 0101112121314151617 INQT 03220 6
002663 2021222324252627 03230 +8 0202122222324252627 INQT 03230 6
002673 3031323334353637 03240 +8 0303132323334353637 INQT 03240 6
002703 4041424344454647 03250 +8 0404142424344454647 INQT 03250 6
002713 5051525354555657 03260 +8 0505152525354555657 INQT 03260 6
002723 6061626364656667 03270 +8 0606162626364656667 INQT 03270 6
002733 7071727374757700 03280 +8 0707172727374757700 INQT 03280 7
002743 0102030405060710 03281 +8 0010203030405060710 INQT 03281 7
002753 7615761276157604 03282 +8 0761576161276157604 INQT 03282 6
002763 7600760176027603 03283 +8 0760076060176027603 INQT 03283 6
002773 7605760676077610 03284 +8 0760576060676077610 INQT 03284 6
003003 7611761276137614 03285 +8 0761176161276137614 INQT 03285 6
003013 7615761676177620 03286 +8 0761576161676177620 INQT 03286 6
003023 7621762276237624 03287 +8 0762176262276237624 INQT 03287 6
003033 7625762676277630 03288 +8 0762576262676277630 INQT 03288 6
003043 7631763276337634 03289 +8 0763176363276337634 INQT 03289 6
003051 763576367637 03290 +6 076357636367637 INQT 03290
003061 7615761276157604 03291 EOM +8 0761576161276157604 INQT 03291 6
* 003062 3000000036 03300 JC 0,30 INQT 03300
003071 002452 03310 +3 CL1IR INQT 03310
* 003072 3000000035 03320 JC 0,29 INQT 03320
003101 002503 03330 CL2IE +3 CL2IR INQT 03330
* 003102 3000000031 03340 JC 0,25 INQT 03340
003111 002351 03350 PRIE +3 PRIR INQT 03350
003112 03440 NOINT EQU $ INQT 03440
003131 OUTPUT INTERRUPT 03450 +16 _OUTPUT T INTERRUPT_ INQT 03450 U
003147 DID NOT OCCUR 03460 +14 _ DID NONOT OCCUR_ INQT 03460 R
003150 03470 PARE EQU $ INQT 03470
003161 PROCESSOR 03480 +10 _PROCESSSSOR _ INQT 03480
003175 PARITY ERROR 03490 +12 _PARITY Y ERROR_ INQT 03490
003176 03500 DOFLO EQU $ INQT 03500
003215 DECIMAL OVERFLOW 03510 +16 _DECIMALAL OVERFLOW_ INQT 03510 L
003216 03514 RECAP EQU $ INQT 03514
003224 RECAP) 03515 +7 _RECAP) ) _ INQT 03515
003225 03516 OUTS EQU $ OUTPUT MESSAGES INQT 03516
003244 OUTS)000000000, 03517 +16 _OUTS)00000000000, _ INQT 03517 0
003245 03518 INS EQU $ INPUT MESSAGES INQT 03518
003263 INS)000000000, 03519 +15 _INS)00000000000, _ INQT 03519 ,
003264 03520 ERRS EQU $ INQT 03520
003303 ERRORS)000000000 03530 +16 _ERRORS)S)000000000_ INQT 03530 0
003304 76 09000 IM +1 076 INQT 09000
003307 157612 09001 +3 0157612 2 INQT 09001
000004 09010 EOT EQU 04 INQT 09010
177702 09030 E02 EQU 0177702 2 NO INTERRUPT INQT 09030
177703 09040 E03 EQU 0177703 3 PROCESSOR PARITY ERROR INQT 09040
177704 09050 E04 EQU 0177704 4 DECIMAL OVERFLOW INQT 09050
177777 09060 E77 EQU 0177777 7 OPERATOR REQUEST INQT 09060
000047 09070 X1 EQU 047 INQT 09070
000053 09080 X2 EQU X1+4 INQT 09080
000057 09090 X3 EQU X2+4 INQT 09090
000063 09100 X4 EQU X3+4 INQT 09100
3000150000 99999 END START INQT 99999
{-- tape mark --}
006453 C441 STRAP CODEDIT SOURCE - T3834394-44
001500 00010 T440 BEGIN 01500 STRAP 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001500 3007010660 * JD 070106 *
* 001505 3000150000 * J $-5 *
SEGMENT-ID T441 3000150000 * 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 T442 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 T443 3000136300 * SEGJP $ *
001500 000101 ORIG 01500 000101
001500 5601000600 00020 START BA1 ONES,16 6 STRAP 00020
001505 2600002304 00030 PD 023,4 STRAP 00030
* 001512 3000007760 00040 JD 63 PLACE KEYINS IN AR1 STRAP 00040
001517 5201010600 00050 SA1 KEYIN+1515 PLACE UTHS OF TRACK STRAP 00050
001524 5201011426 00060 SA2 TCOUN,6 6 OF TRACK TO BE PREPPED STRAP 00060
00070 . DUMPED OR RESTORED IN LOC. STRAP 00070
001531 5601006600 00080 BA1 IP2,16 STARTING AT OCTAL 32 STRAP 00080
001536 4401024500 00090 SC EXPEC,0 0 STRAP 00090
001543 5200051700 00100 SA1 0517,16 6 STRAP 00100
001550 5601002600 00110 BA1 IE1,16 STRAP 00110
001555 5200041700 00120 SA1 0417,16 6 STRAP 00120
001562 5601004610 00130 BA1 IE6,8 STRAP 00130
001567 5200046710 00140 SA1 0467,8 STRAP 00140
001574 5601003610 00150 BA1 IE2,8 STRAP 00150
001601 5200042710 00160 SA1 0427,8 STRAP 00160
001606 4401500404 00170 SC IDCD+4,0,04 MINOR SEQ. NUMBERS STRAP 00170
001613 4401520405 00180 SC DCD1+4,0,05 TO CARD AREAS. STRAP 00180
001620 4401540406 00190 SC DCD2+4,6,6 STRAP 00190
001625 4400172503 00200 HISIN SC HLOOP+4,4,3 STRAP 00200
001632 2600035700 00210 PD 0357,16 6 STRAP 00210
001637 5601011204 00220 BA1 TRACK,4 4 UTHS OF TRK TO BE STRAP 00220
001644 3400001640 00230 CC 14,040 PREPPED STRAP 00230
* 001651 3000166341 00240 JG $+10 STRAP 00240
001656 4400034640 00250 SC 0346,04040 DRUM B STRAP 00250
001663 4400034020 00260 SC 0340,02020 STRAP 00260
001670 2001030070 00270 FT HAREA,5656 STRAP 00270
001675 4400034020 00280 SC 0340,02020 STRAP 00280
001702 4140656000 00290 OREAD XF 065,0600000,0,6 STRAP 00290
001707 6000034210 00300 AC 0342,01010 +1000 TO BASE ADDR. STRAP 00300
001714 6000034610 00310 AC 0346,01010 NEXT TRACK STRAP 00310
* 001721 3200170203 00320 HLOOP JL OREAD,3 3 STRAP 00320
001726 2001330070 00330 FT HAREA+151536,56 STRAP 00330
001733 4400034020 00340 SC 0340,02020 STRAP 00340
001740 5601011204 00350 BA1 TRACK,4 4 STRAP 00350
001745 5200034704 00360 SA1 0347,4 STRAP 00360
001752 4140652000 00370 XF 065,0200000,0,6 STRAP 00370
* 001757 3000353762 00380 JC DOUT,50 0 SENSE SW. 1 STRAP 00380
* 001764 3000472063 00390 JC RSTOR,5151 SENSE SW. 2 STRAP 00390
* 001771 3000224364 00400 JC NOMOR,5252 SENSE SW. 3 STRAP 00400
001776 2600007700 00410 CHEK PD 077,16 STRAP 00410
002003 2600005700 00420 PD 057,16 STRAP 00420
002010 4400212702 00430 SC MOVON+9,9,2 STRAP 00430
002015 5601011103 00440 BA1 TRACK-1,1,3 UTH STRAP 00440
002022 5761007325 00450 KEYCK BA2 KEYIN+4,4,5,7 STRAP 00450
002027 7001000665 00460 CB2 ONES,5 STRAP 00460
* 002034 3000216142 00470 JE LINK NO KEYIN IF ONES STRAP 00470
002041 7000003643 00480 CB1 30,3 DOES KEYIN MATCH UTH. STRAP 00480
* 002046 3000214743 00490 JU KEYER NO STRAP 00490
002053 2600007304 00500 PD 073,4 STRAP 00500
002060 7141030465 00510 COMP CB2 HAREA+4,4,5,6 MAKE SURE KEYIN STRAP 00510
* 002065 3000213542 00520 JE DUPE NOT ALREADY BADSPOT. STRAP 00520
002072 6000007310 00530 AC 073,010 0 STRAP 00530
002077 7401016216 00540 CT LIM1,X6 6 STRAP 00540
* 002104 3000211642 00550 JE MOVON STRAP 00550
* 002111 3000206000 00560 J COMP STRAP 00560
002116 6000007710 00570 MOVON AC 077,010 0 STRAP 00570
* 002123 3200202202 00580 JL KEYCK,2 2 STRAP 00580
* 002130 3000216100 00590 J LINK STRAP 00590
* 002135 3000000160 00600 DUPE JD 01 KEYIN ALREADY BADSPOT STRAP 00600
* 002142 3000150000 00610 J START STRAP 00610
* 002147 3000000260 00620 KEYER JD 02 KEYIN DOES NOT MATCH STRAP 00620
* 002154 3000150000 00630 J START SPECIFIED TRACK STRAP 00630
002161 2600006704 00640 LINK PD X5,4 STRAP 00640
002166 5721007610 00650 BA1 KEYIN+7,7,8,X5 STRAP 00650
002173 7001000650 00660 CB1 ONES,8 STRAP 00660
* 002200 3000224342 00670 JE NOMOR STRAP 00670
* 002205 1001670400 00680 JR RECOV TO DATA RECOV. ROUTINE STRAP 00680
002212 4400705740 00690 SC SWICH+4,4,040 STRAP 00690
002217 6000006710 00700 AC X5,010 STRAP 00700
002224 3400006720 00710 CC X5,020 STRAP 00710
* 002231 3000224342 00720 JE NOMOR STRAP 00720
* 002236 3000216600 00730 J LINK+5 STRAP 00730
002243 2600007700 00740 NOMOR PD X7,16 STRAP 00740
002250 2600007304 00750 PD X6,4 STRAP 00750
002255 5761007610 00760 BA1 KEYIN+7,7,8,X7 STRAP 00760
002262 7001000650 00770 CB1 ONES,8 STRAP 00770
* 002267 3000241442 00780 JE ERASE STRAP 00780
002274 5741030526 00790 SERCH BA2 HAREA+5,5,6,X6 SEARCH OVFLO HISTORY STRAP 00790
002301 7001000666 00800 CB2 ONES,6 FOR FIRST UNUSED SPOT STRAP 00800
* 002306 3000235142 00810 JE INSRT STRAP 00810
002313 6000007310 00820 AC X6,010 STRAP 00820
002320 7401016216 00830 CT LIM1,X6 6 STRAP 00830
* 002325 3000233742 00840 JE FULL STRAP 00840
* 002332 3000227400 00850 J SERCH STRAP 00850
* 002337 3000000360 00860 FULL JD 03 OVFLO TRACKS FULL STRAP 00860
* 002344 3000150000 00870 J START STRAP 00870
002351 5341030710 00880 INSRT SA1 HAREA+7,7,8,X6 INSERT KEYIN IN OVFLO STRAP 00880
* 002356 3000237064 00890 JC $+10,52 2 SRRAP 00890
002363 4541030063 00900 SC HAREA,06063,X6 HISTORY. STRAP 00900
002370 6000007710 00910 AC X7,010 STRAP 00910
002375 3400007720 00920 CC X7,020 STRAP 00920
* 002402 3000241442 00930 JE ERASE STRAP 00930
* 002407 3000225000 00940 J NOMOR+5 5 STRAP 00940
002414 4400251402 00950 ERASE SC ELOOP+4,4,2 STRAP 00950
002421 2600006310 00960 PD X4,8 STRAP 00960
002426 5701007305 00970 BA1 KEYIN+4,4,5,X4 STRAP 00970
002433 7001000645 00980 CB1 ONES,5 STRAP 00980
* 002440 3000251542 00990 JE OFOUT STRAP 00990
002445 2600003704 01000 PD 31,4 STRAP 01000
002452 5600001721 01010 BA2 15,1 PICK UP S OF KEYIN STRAP 01010
002457 1600003723 01020 BS2 31,3 MULT. BY 10 STRAP 01020
002464 6400003707 01030 LS 31,7 ADD 7 STRAP 01030
002471 4200005707 01040 ST X3,7 PLACE IN IR3 STRAP 01040
002476 2661330010 01050 PD DAREA,8,8,X3 BADSPOT AREA CORRESPOND STRAP 01050
002503 6000006310 01060 AC X4,010 ING TO KEYIN. STRAP 01060
* 002510 3200242602 01070 ELOOP JL ERASE+1010,2 STRAP 01070
002515 4400307451 01080 OFOUT SC MODE+4,0,051 OVFLO TRKS OUT TO CARDS STRAP 01080
* 002522 3000407364 01090 JC PREP,52 2 SENSE SW. 3 STRAP 01090
* 002527 1000305400 01100 JR INIT STRAP 01100
002534 5661030425 01110 NEXT BA2 HAREA+4,4,5,X3 X3 CLEARED IN INIT. STRAP 01110
002541 7001000665 01120 CB2 ONES,5 STRAP 01120
* 002546 3000262342 01130 JE UPCNT STRAP 01130
002553 7001012465 01140 CB2 ZEROS,5 5 BADSPOT STRAP 01140
* 002560 3000262342 01150 JE UPCNT STRAP 01150
002565 3400003363 01160 CC 27,063 STRAP 01160
* 002572 3000273142 01170 JE SUBS SECT. RECOVERED BY STRAP 01170
01180 . DATA RECOV. ROUTINE. STRAP 01180
002577 3400003314 01190 CC 27,014 STRAP 01190
* 002604 3000266642 01200 JE GOSEC STRAP 01200
* 002611 3000000460 01210 JD 04 SECTOR NEITHER GOOD STRAP 01210
* 002616 3000261100 01220 J $-5 OR BAD STRAP 01220
002623 6000005710 01230 UPCNT AC X3,010 STRAP 01230
002630 7401016213 01240 CT LIM1,X3 3 STRAP 01240
* 002635 3000264742 01250 JE $+10 STRAP 01250
* 002642 3000253400 01260 J NEXT STRAP 01260
002647 5601012703 01270 BA1 SEQTS,3 3 STORE SEQ. COUNT TO BE STRAP 01270
002654 5201013203 01280 SA1 OSEQS,3 3 USED AS A CHECK DURING STRAP 01280
* 002661 3000353700 01290 J DOUT RETRIEVAL OF INFO FROM CARDS STRAP 01290
* 002666 1000313100 01300 GOSEC JR SEQ STRAP 01300
* 002673 1000320100 01310 JR TAG STRAP 01310
* 002700 1000325100 01320 JR READ STRAP 01320
* 002705 1000332100 01330 JR XFER STRAP 01330
* 002712 1000614700 01340 JR PRNT STRAP 01340
* 002717 1000337600 01350 JR PUNCH STRAP 01350
* 002724 3000262300 01360 J UPCNT STRAP 01360
002731 4461030014 01370 SUBS SC HAREA,01014,X3 STRAP 01370
002736 4400003314 01380 SC 27,014 STRAP 01380
002743 4400300002 01390 SC SLOOP+4,4,2 STRAP 01390
002750 2600005304 01400 PD X2,4 STRAP 01400
002755 7041560465 01410 FIND CB2 TANKA+4,4,5,X2 STRAP 01410
* 002762 3000301342 01420 JE FOUND STRAP 01420
002767 6000005203 01430 AC 052,3 +300 TO IR2 STRAP 01430
* 002774 3200275502 01440 SLOOP JL FIND,2 STRAP 01440
* 003001 3000000560 01450 JD 05 KEYIN AND TANK ID DO STRAP 01450
* 003006 3000300100 01460 J $-5 NOT CORRESPOND STRAP 01460
003013 2000025022 01470 FOUND FT 0250,18 8 STRAP 01470
003020 2001430020 01480 FT INPUT,1616 STRAP 01480
003025 2441561001 01490 TFR TANKA+8,8,,X2 XFER FROM TANK TO STRAP 01490
* 003032 1000313100 01500 JR SEQ READ INPUT AREA. STRAP 01500
* 003037 1000320100 01510 JR TAG STRAP 01510
* 003044 3000270500 01520 J GOSEC+1515 SKIPS DRUM READ. STRAP 01520
* 003051 3000000000 01530 INIT J 0 STRAP 01530
003056 2600007300 01540 PD X6,16 STRAP 01540
003063 4400310603 01550 SC JLOOP+4,4,3 STORES O FOR OVFLO STRAP 01550
003070 4541500600 01560 MODE SC IDCD+6,0,0,X6 OR D FOR DATA IN STRAP 01560
003075 6000007202 01570 AC 072,2 COL. 7 STRAP 01570
* 003102 3200307004 01580 JLOOP JL MODE,4 STRAP 01580
003107 5601013503 01590 BA1 DZERO,3 3 STRAP 01590
003114 5201012703 01600 SA1 SEQTS,3 3 STRAP 01600
* 003121 3000305100 01610 J INIT STRAP 01610
* 003126 3000000000 01620 SEQ J 0 STRAP 01620
003133 5601012743 01630 BD1 SEQTS,3 3 PLUS ONE TO MAJOR STRAP 01630
003140 6601013601 01640 AD1 DCONE,1 1 SEQUENCE COUNT STRAP 01640
003145 5201012703 01650 SA1 SEQTS,3 3 STRAP 01650
003152 5201500203 01660 SA1 IDCD+2,3,3 STRAP 01660
003157 5201520203 01670 SA1 DCD1+2,3,3 STRAP 01670
003164 5201540203 01680 SA1 DCD2+2,3,3 STRAP 01680
* 003171 3000312600 01690 J SEQ STRAP 01690
* 003176 3000000000 01700 TAG J 0 STRAP 01700
003203 5661030424 01710 BA2 HAREA+4,4,4,X3 STRAP 01710
003210 5201014224 01720 SA2 TAGTS,4 4 STRAP 01720
* 003215 1000577600 01730 JR EDIT STRAP 01730
003222 5601015634 01740 BA2 PATRN,1212 STRAP 01740
003227 5201502351 01750 ED IDCD+19,9,9 STRAP 01750
* 003234 3000374165 01760 JC FIRST-1010,065 TEST SI 1 STRAP 01760
* 003241 3000317600 01770 J TAG STRAP 01770
* 003246 3000000000 01780 READ J 0 STRAP 01780
003253 5601014224 01790 BA2 TAGTS,4 4 STRAP 01790
003260 2600035700 01800 PD 0357,16 6 STRAP 01800
003265 5200034724 01810 SA2 0347,4 STRAP 01810
003272 2001430070 01820 FT INPUT,5656 STRAP 01820
003277 6400034120 01830 LS 0341,02020 STRAP 01830
003304 4140650000 01840 XF 065,000,0,0,6 STRAP 01840
* 003311 3000324600 01850 J READ STRAP 01850
* 003316 3000000000 01860 XFER J 0 STRAP 01860
003323 2600007304 01870 PD X6,4 STRAP 01870
003330 4400336503 01880 SC XLOOP+4,4,3 STRAP 01880
003335 2001430021 01890 FT INPUT,1717 STRAP 01890
003342 2000007022 01900 FT 070,18 STRAP 01900
003347 2541502461 01910 MOVE TTI IDCD+20,0,,X6 STRAP 01910
003354 6000007202 01920 AC 072,2 STRAP 01920
* 003361 3200334703 01930 XLOOP JL MOVE,3 STRAP 01930
* 003366 3000331600 01940 J XFER STRAP 01940
* 003373 3000000000 01950 PUNCH J 0 STRAP 01950
003400 2600006704 01960 PD X5,4 STRAP 01960
003405 4400344203 01970 SC LOOPY+4,4,3 STRAP 01970
003412 2121500050 01980 ISSUE FT IDCD,40,0,X5 STRAP 01980
003417 4040660100 01990 XF 066,0010100,0,2 STRAP 01990
003424 6000006602 02000 AC 066,2 PLUS 200 TO IR5 STRAP 02000
003431 4401024577 02010 SC EXPEC,07077 STRAP 02010
* 003436 3200341203 02020 LOOPY JL ISSUE,3 3 STRAP 02020
003443 2001540021 02030 FT DCD2,17 7 MOVE LAST CARD IMAGE TO STRAP 02030
003450 2000012022 02040 FT 80,18 RESERVE AREA IN CASE OF STRAP 02040
003455 2401460041 02050 TTR RAREA A HOLE CNT ERR. STRAP 02050
003462 2600007304 02060 PD X6,4 STRAP 02060
003467 4400353103 02070 SC CLOOP+4,4,3 STRAP 02070
003474 2141500721 02080 CLEAR FT IDCD+7,1,17,X6 STRAP 02080
003501 2000011022 02090 FT 72,18 STRAP 02090
003506 4541500700 02100 SC IDCD+7,0,0,X6 STRAP 02100
003513 2541501041 02110 TTR IDCD+8,,,,X6 STRAP 02110
003520 6000007202 02120 AC 072,2 PLUS 200 TO IR6. STRAP 02120
* 003525 3200347403 02130 CLOOP JL CLEAR,3 3 STRAP 02130
* 003532 3000337300 02140 J PUNCH STRAP 02140
003537 4400307427 02150 DOUT SC MODE+4,0,027 D FOR DATA STRAP 02150
* 003544 1000305400 02160 JR INIT STRAP 02160
003551 6000005630 02170 AC 056,030 0 3000 TO IR3 STRAP 02170
003556 5661030425 02180 BA2 HAREA+4,4,5,X3 STRAP 02180
003563 7001012465 02190 CB2 ZEROS,5 5 STRAP 02190
* 003570 3000367142 02200 JE BADSP STRAP 02200
003575 3400003314 02210 CC 27,014 STRAP 02210
* 003602 3000376543 02220 JU NGOOD STRAP 02220
* 003607 1000313100 02230 AGAIN JR SEQ STRAP 02230
* 003614 1000320100 02240 JR TAG STRAP 02240
* 003621 1000325100 02250 JR READ STRAP 02250
* 003626 1000332100 02260 JR XFER STRAP 02260
* 003633 1000614700 02270 JR PRNT STRAP 02270
* 003640 1000337600 02280 JR PUNCH STRAP 02280
003645 6000005710 02290 AC X3,010 STRAP 02290
003652 7401016613 02300 CT LIM3,X3 3 STRAP 02300
* 003657 3000377742 02310 JE ALOUT STRAP 02310
* 003664 3000355600 02320 J DOUT+15 5 STRAP 02320
003671 5601650607 02330 BADSP BA1 BSPOT,7 7 STRAP 02330
003676 5201506207 02340 SA1 IDCD+50,0,7 STRAP 02340
003703 5601012703 02350 BA1 SEQTS,3 3 STRAP 02350
003710 7001013543 02360 CB1 DZERO,3 3 STRAP 02360
* 003715 3000375342 02370 JE FIRST STRAP 02370
003722 5601014224 02380 BA2 TAGTS,4 4 LAST TAG USED. STRAP 02380
003727 6000003701 02390 AC 31,1 STRAP 02390
* 003734 3000321022 02400 JC TAG+10,0,022 SET SI 1 STRAP 02400
* 003741 1000313125 02410 JR SEQ,025 5 RESET SI 1 STRAP 02410
* 003746 3000363300 02420 J AGAIN+2020 STRAP 02420
003753 5601011224 02430 FIRST BA2 TRACK,4 4 STRAP 02430
* 003760 3000373400 02440 J BADSP+3535 STRAP 02440
* 003765 3000000660 02450 NGOOD JD 06 BAD SENTINEL STRAP 02450
* 003772 3000355600 02460 J DOUT+15 5 STRAP 02460
003777 5601012703 02470 ALOUT BA1 SEQTS,3 3 STRAP 02470
004004 7001017143 02480 CB1 DATEN,3 3 STRAP 02480
* 004011 3000403042 02490 JE $+15 STRAP 02490
* 004016 3000000760 02500 JD 07 SEQ. DOES NOT END RIGHT STRAP 02500
* 004023 3000150000 02510 J START STRAP 02510
* 004030 3000764262 02520 JC PUMP,50 0 SENSE SW. 1 STRAP 02520
004035 4040640000 02530 XF 064,000,0,0,2 FEED CARD STRAP 02530
004042 5601654512 02540 BA1 MESS1,1010 STRAP 02540
004047 5201641112 02550 SA1 ERPRT+9,9,10 STRAP 02550
004054 4400720400 02560 SC SKIP+4,0,0 STRAP 02560
* 004061 1000712100 02570 JR PRTER STRAP 02570
* 004066 3000407300 02580 J PREP STRAP 02580
004073 4400416603 02590 PREP SC PLOOP+4,4,3 STRAP 02590
004100 2600035700 02600 PD 0357,16 6 STRAP 02600
004105 5601011204 02610 BA1 TRACK,4 4 STRAP 02610
004112 3400001640 02620 CC 14,040 STRAP 02620
* 004117 3000413141 02630 JG $+10 STRAP 02630
004124 4400034640 02640 SC 0346,04040 STRAP 02640
004131 4400034020 02650 SC 0340,02020 STRAP 02650
004136 2001030070 02660 FT HAREA,5656 STRAP 02660
004143 4140666000 02670 PWRIT XF 066,0600000,0,6 STRAP 02670
004150 6000034210 02680 AC 0342,01010 STRAP 02680
004155 6000034610 02690 AC 0346,01010 STRAP 02690
* 004162 3200414303 02700 PLOOP JL PWRIT,3 3 STRAP 02700
004167 2601025003 02710 PD PAT,3 STRAP 02710
004174 2600004704 02720 GEN PD X1,4 STRAP 02720
004201 5601025303 02730 BA1 WUNS,3 STRAP 02730
004206 7201025003 02740 AB1 PAT,3 STRAP 02740
004213 5601025003 02750 BA1 PAT,3 STRAP 02750
004220 5221330703 02760 STOW SA1 DAREA+7,7,3,X1 STRAP 02760
004225 6000004710 02770 AC X1,010 STRAP 02770
004232 3400004610 02780 CC X1-1,01010 DOES X1 EQUAL 1000 STRAP 02780
* 004237 3000425142 02790 JE PREPD STRAP 02790
* 004244 3000422000 02800 J STOW STRAP 02800
004251 5601011204 02810 PREPD BA1 TRACK,4 4 STRAP 02810
004256 5200034704 02820 SA1 0347,4 STRAP 02820
004263 2001330070 02830 FT DAREA,5656 STRAP 02830
004270 4400034020 02840 SC 0340,02020 64 SECTORS STRAP 02840
004275 4140662000 02850 XF 066,0200000,0,6 PREP WRITE STRAP 02850
004302 4140612000 02860 XF 061,0200000,0,6 PREP READ STRAP 02860
004307 5601011204 02870 BA1 TRACK,4 4 STRAP 02870
004314 5201025704 02880 SA1 TRKTS,4 4 STRAP 02880
004321 2600004704 02890 PD X1,4 STRAP 02890
004326 5601025704 02900 PCHEK BA1 TRKTS,4 4 STRAP 02900
004333 7021330444 02910 CB1 DAREA+4,4,4,X1 STRAP 02910
* 004340 3000442243 02920 JU TAGER STRAP 02920
004345 3421330700 02930 CC DAREA+7,7,0,X1 STRAP 02930
* 004352 3000442243 02940 JU TAGER 02940
004357 6001025701 02950 PASON AC TRKTS,1 1 +1 TO SECTOR COUNT STRAP 02950
004364 6000004710 02960 AC X1,010 STRAP 02960
004371 3400004610 02970 CC X1-1,01010 STRAP 02970
* 004376 3000432643 02980 JU PCHEK STRAP 02980
004403 3401025077 02990 CC PAT,63 STRAP 02990
* 004410 3000462442 03000 JE PEND STRAP 03000
* 004415 3000417400 03010 J GEN STRAP 03010
004422 5621330425 03020 TAGER BA2 DAREA+4,4,5,X1 STRAP 03020
004427 7001012465 03030 CB2 ZEROS,5 5 IS THIS ALREADY A BAD STRAP 03030
* 004434 3000435742 03040 JE PASON SPOT STRAP 03040
004441 5601025724 03050 BA2 TRKTS,4 4 STRAP 03050
004446 5221330424 03051 SA2 DAREA+4,4,4,X1 RESTORE AREA AFTER ERROR STRAP 03051
004453 4200013311 03060 ST 0133,X1 1 STRAP 03060
* 004460 1000577600 03070 JR EDIT STRAP 03070
004465 4600013311 03080 BT 0133,X1 1 STRAP 03080
004472 5601015634 03090 BA2 PATRN,1212 STRAP 03090
004477 5201641351 03100 ED ERPRT+1111,9 03100
004504 3421330700 03110 CC DAREA+7,7,0,X1 STRAP 03110
* 004511 3000453543 03120 JU $+20 STRAP 03120
004516 5601663515 03130 BA1 MESS4,1313 TAG ERROR MESSAGE STRAP 03130
004523 5201643115 03140 SA1 ERPRT+2525,13 03140
* 004530 3000461200 03150 J GOPRT STRAP 03150
004535 2600001702 03160 PD 15,2 STRAP 03160
004542 5601025001 03170 BA1 PAT,1 CONVERT PATTERN TO DCML STRAP 03170
004547 1600001723 03180 BS2 15,3 FOR PRINTOUT STRAP 03180
004554 1600001753 03190 BC1 15,3 STRAP 03190
004561 5601023722 03200 BA2 H33,2 EXESS 3 ZEROES STRAP 03200
004566 7200001722 03210 AB2 15,2 STRAP 03210
004573 5201662002 03220 SA1 MESS3,2 2 STRAP 03220
004600 5601662012 03230 BA1 MESS3,1010 STRAP 03230
004605 5201642612 03240 SA1 ERPRT+2222,10 03240
* 004612 1000712100 03250 GOPRT JR PRTER STRAP 03250
* 004617 3000435700 03260 J PASON STRAP 03260
004624 4400020762 03270 PEND SC 0207,50 0 STRAP 03270
* 004631 3001663664 03280 JC CLOSE,5252 SRRAP 03280
004636 4000640000 03290 XF 064,000,0,0,0 SPACE PAPER STRAP 03290
004643 5601657200 03300 BA1 MESS2,1616 STRAP 03300
004650 5201642400 03310 SA1 ERPRT+2020,16 STRAP 03310
004655 5601655205 03320 BA1 MESS2-1616,5 STRAP 03320
004662 5201640405 03330 SA1 ERPRT+4,4,5 STRAP 03330
004667 4400720440 03340 SC SKIP+4,0,040 STRAP 03340
* 004674 1000712100 03350 JR PRTER STRAP 03350
004701 4400720400 03360 SC SKIP+4,0,0 STRAP 03360
* 004706 3000777760 03370 JD 07777 PUNCHED CARDS TO READER STRAP 03370
* 004713 3000472000 03380 J RSTOR STRAP 03380
* 004720 3001663664 03390 RSTOR JC CLOSE,5252 SENSE SW. 3 STRAP 03390
004725 2600005714 03400 PD X3,12 STRAP 03400
004732 2600023700 03410 PD 0237,16 6 STRAP 03410
004737 5601013503 03420 BA1 DZERO,3 3 CLEAR MAJOR SEQ. STRAP 03420
004744 5201012703 03430 SA1 SEQTS,3 3 STRAP 03430
004751 2600007704 03440 REMOR PD X7,4 STRAP 03440
004756 4401017204 03450 SC MSEQ,4 SET MINOR SEQ TO 1 STRAP 03450
004763 5601012743 03460 BD1 SEQTS,3 3 STRAP 03460
004770 6601013601 03470 AD1 DCONE,1 1 STRAP 03470
004775 3401500651 03480 CC IDCD+6,0,051 OVERFLO OR DATA TRACK STRAP 03480
* 005002 3000502143 03490 JU $+15 JUMP IF DATA STRAP 03490
005007 7001013243 03500 CB1 OSEQS,3 3 OSEQ CONTAINS NUMBER STRAP 03500
* 005014 3000472041 03510 JG RSTOR OF CARDS PUNCHED STRAP 03510
005021 5201012703 03520 SA1 SEQTS,3 3 STRAP 03520
005026 2161500044 03530 CREAD FT IDCD,36,6,X7 STRAP 03530
005033 4020650100 03540 XF 065,0010100,0,1 STRAP 03540
005040 5761500203 03550 BA1 IDCD+2,3,3,X7 STRAP 03550
005045 7001012743 03560 CB1 SEQTS,3 3 STRAP 03560
* 005052 3000512743 03570 JU SEQER STRAP 03570
005057 5601017201 03580 BA1 MSEQ,1 STRAP 03580
005064 7161500441 03590 CB1 IDCD+4,1,1,X7 STRAP 03590
* 005071 3000514143 03600 JU MSERR STRAP 03600
005076 3401017206 03610 CC MSEQ,6 IS THIS LAST CARD OF SEQ STRAP 03610
* 005103 3000515342 03620 JE STEP2 STRAP 03620
005110 6000007602 03630 AC 076,2 +200 TO IR7 STRAP 03630
005115 6001017201 03640 AC MSEQ,1 STRAP 03640
* 005122 3000502600 03650 J CREAD STRAP 03650
* 005127 3000001160 03660 SEQER JD 011 MAJOR SEQ ERROR STRAP 03660
* 005134 3000502600 03670 J CREAD STRAP 03670
* 005141 3000001260 03680 MSERR JD 012 MINOR SEQ ERROR STRAP 03680
* 005146 3000502600 03690 J CREAD STRAP 03690
005153 5601502314 03700 STEP2 BA1 IDCD+19,9,12 UTHS FROM ID CARD STRAP 03700
005160 5201021214 03710 SA1 TAGS+11,1,12 STRAP 03710
* 005165 1000551200 03720 JR RECON STRAP 03720
005172 3401500627 03730 CC IDCD+6,0,027 IS CARD FROM DATA TRACK STRAP 03730
* 005177 3000524743 03740 JU MATE STRAP 03740
005204 5601017523 03750 BA2 UTHS-1,3,3 NO. CHECK RECONSTRUCTED STRAP 03750
005211 7001011163 03760 CB2 TRACK-1,1,3 UTHS AGAINST TRACK. STRAP 03760
* 005216 3000532442 03770 JE GROUP STRAP 03770
* 005223 3000001360 03780 JD 013 RECONSTRUCTED UTHS NOT STRAP 03780
005230 4401017204 03790 SC MSEQ,4 CORRECT STRAP 03790
005235 2600007704 03800 PD X7,4 STRAP 03800
* 005242 3000502600 03810 J CREAD STRAP 03810
005247 2600005704 03820 MATE PD X3,4 STRAP 03820
005254 7061030444 03830 CB1 HAREA+4,4,4,X3 AR1 HAS UTHS FROM ID CARD STRAP 03830
* 005261 3000532442 03840 JE GROUP STRAP 03840
005266 6000005710 03850 AC X3,010 STRAP 03850
005273 7401016213 03860 CT LIM1,X3 3 STRAP 03860
* 005300 3000531242 03870 JE ERR STRAP 03870
* 005305 3000525400 03880 J MATE+5 STRAP 03880
* 005312 3000001460 03890 ERR JD 014 RECONSTRUCTED UTHS FROM STRAP 03890
* 005317 3000475100 03900 J REMOR ID CARD DOES NOT MATCH STRAP 03900
03910 . ANYTHING IN OVFLO HIST. STRAP 03910
005324 2600011304 03920 GROUP PD 0113,4 STRAP 03920
005331 2600005704 03930 PD X3,4 STRAP 03930
005336 5601506207 03940 BA1 IDCD+50,0,7 STRAP 03940
005343 7001650647 03950 CB1 BSPOT,7 7 STRAP 03950
* 005350 3000546342 03960 JE RECON-2020 STRAP 03960
005355 4400541203 03970 SC GLOOP+4,4,3 STRAP 03970
005362 2000007022 03980 FT 56,18 STRAP 03980
005367 2001430020 03990 FT INPUT,1616 STRAP 03990
005374 2461502421 04000 TFI IDCD+20,0,,X3 STRAP 04000
005401 6000005602 04010 AC 056,2 +200 TO IR3 STRAP 04010
* 005406 3200537403 04020 GLOOP JL $-10,3 STRAP 04020
005413 2600035700 04030 PD 0357,16 6 STRAP 04030
005420 2001430070 04040 FT INPUT,5656 STRAP 04040
005425 6400034120 04050 LS 0341,02020 STRAP 04050
005432 5601017604 04060 BA1 UTHS,4 STRAP 04060
005437 5200034704 04070 SA1 0347,4 STRAP 04070
005444 4140660000 04080 XF 066,000,0,0,6 STRAP 04080
005451 3401500627 04090 CC IDCD+6,0,027 STRAP 04090
* 005456 3000475143 04100 JU REMOR STRAP 04100
005463 5601012703 04110 BA1 SEQTS,3 3 STRAP 04110
005470 7001017143 04120 CB1 DATEN,3 3 DCML 64 STRAP 04120
* 005475 3001663642 04130 JE CLOSE STRAP 04130
* 005502 3000475100 04140 J REMOR STRAP 04140
* 005507 3000000000 04150 RECON J 0 STRAP 04150
005514 5601020002 04160 BA1 TAGS+1,2,2 RECONSTRUCTION OF UTHS STRAP 04160
005521 5200003002 04170 SA1 24,2 STRAP 04170
005526 5601020403 04180 BA1 TAGS+5,3,3 STRAP 04180
005533 5200003303 04190 SA1 27,3 STRAP 04190
005540 1601021236 04200 BS3 TAGS+11,1,6 STRAP 04200
005545 5601021104 04210 BA1 TAGS+10,0,4 STRAP 04210
005552 5200003704 04220 SA1 31,4 STRAP 04220
005557 5601023711 04230 BA1 H33,9 STRAP 04230
005564 7200003751 04240 SB1 31,9 REMOVE ESESS THREE STRAP 04240
005571 2600005714 04250 PD X3,12 STRAP 04250
005576 4400562603 04260 SC JOIN-6,3,3 STRAP 04260
005603 2000003212 04270 FT 26,X2 STRAP 04270
005610 1640000013 04280 SHIFT BS1 0,3,X2 STRAP 04280
005615 6000005302 04290 AC X2,2 STRAP 04290
* 005622 3200561003 04300 JL SHIFT,3 3 STRAP 04300
005627 4400565703 04310 SC LOOP+4,3,3 STRAP 04310
005634 5620003201 04320 JOIN BA1 26,1,X1 1 STRAP 04320
005641 7220003301 04330 AB1 27,1,X1 1 STRAP 04330
005646 6000004702 04340 AC X1,2 STRAP 04340
* 005653 3200563403 04350 LOOP JL JOIN,3 STRAP 04350
005660 1600002713 04360 BS1 23,3 STRAP 04360
005665 5600002701 04370 BA1 23,1 STRAP 04370
005672 7200003001 04380 AB1 24,1 STRAP 04380
005677 1600003012 04390 BS1 24,2 STRAP 04390
005704 5600003001 04400 BA1 24,1 STRAP 04400
005711 7200003101 04410 AB1 25,1 STRAP 04410
005716 4400576004 04420 SC TLOOP+4,4,4 STRAP 04420
005723 2600005310 04430 PD X2,8 STRAP 04430
005730 5620003101 04440 COLEC BA1 25,1,X1 1 STRAP 04440
005735 5241017301 04450 SA1 UTHS-3,1,1,X2 STRAP 04450
005742 6000004702 04460 AC X1,2 STRAP 04460
005747 6000005301 04470 AC X2,1 STRAP 04470
* 005754 3200573004 04480 TLOOP JL COLEC,4 4 STRAP 04480
005761 5601017604 04490 BA1 UTHS,4 STRAP 04490
* 005766 3000550700 04500 J RECON STRAP 04500
* 005773 3000000000 04510 EDIT J 0 STRAP 04510
006000 4400613111 04520 SC LOOPE+4,4,9 STRAP 04520
006005 2600004704 04530 PD X1,4 STRAP 04530
006012 2600003302 04540 PD 27,2 STRAP 04540
006017 1600003424 04550 BS2 28,4 STRAP 04550
006024 1600003452 04560 BC1 28,2 STRAP 04560
006031 1600003703 04570 BS4 31,3 STRAP 04570
006036 1600003433 04580 NEXT1 BS3 28,3 STRAP 04580
006043 1600003773 04590 BC3 31,3 STRAP 04590
006050 5600003701 04600 BA1 31,1 STRAP 04600
006055 5200606601 04610 SA1 $+9,1 STRAP 04610
006062 6400003400 04620 LS 28,0 STRAP 04620
006067 2600003701 04630 PD 31,1 STRAP 04630
006074 5400003207 04640 LP 26,7 STRAP 04640
006101 6000003203 04650 AC 26,3 STRAP 04650
006106 5600003201 04660 BA1 26,1 STRAP 04660
006113 5221021301 04670 SA1 EDITS,1,1,X1 STRAP 04670
006120 6000004701 04680 AC X1,1 STRAP 04680
* 006125 3200603611 04690 LOOPE JL NEXT1,9 9 STRAP 04690
006132 5601022311 04700 BA1 EDITS+8,8,9 STRAP 04700
* 006137 3000577300 04710 J EDIT STRAP 04710
* 006144 3000000000 04720 PRNT J 0 STRAP 04720
006151 2600020304 04730 PD 0203,4 STRAP 04730
006156 2600004704 04740 PD X1,4 STRAP 04740
006163 4400020702 04750 SC 0207,2 STRAP 04750
006170 4400622003 04760 SC PRINT+1414,3 STRAP 04760
006175 2021500040 04770 FT IDCD,32,2,X1 STRAP 04770
006202 4000620000 04780 PRINT XF 062,000,0,0,0 STRAP 04780
006207 6000004602 04790 AC X1-1,2 +200 TO X1 STRAP 04790
* 006214 3200617503 04800 JL PRINT-5,5,3 STRAP 04800
006221 4400020707 04810 SC 0207,7 STRAP 04810
006226 4000640000 04820 XF 064,000,0,0,0 SPACE PAPER STRAP 04820
* 006233 3000614400 04830 J PRNT STRAP 04830
* 006240 3000001560 04840 IPT0 JD 015 STRAP 04840
006245 5601024403 04850 BA1 BFIVE,3 3 STRAP 04850
006252 7200040343 04860 SB1 0403,3 STRAP 04860
006257 4000407777 04870 XF 040,0777777,0,0 STRAP 04870
* 006264 3000040000 04880 J 0400 STRAP 04880
006271 5601651507 04890 IPT1 BA1 RHEAD,7 7 STRAP 04890
006276 5201640607 04900 SA1 ERPRT+6,6,7 STRAP 04900
006303 5601023714 04910 BA1 H33,12 STRAP 04910
006310 5201642314 04920 SA1 ERPRT+1919,12 STRAP 04920
006315 4020000004 04930 XF 00,0000404,0,1 STRAP 04930
* 006322 1000730453 04940 JR D3,43 STRAP 04940
006327 4020000040 04950 XF 00,0004040,0,1 STRAP 04950
* 006334 1000736153 04960 JR D6,43 STRAP 04960
006341 4020000100 04970 XF 00,0010000,0,1 STRAP 04970
* 006346 1000740053 04980 JR D7,43 STRAP 04980
006353 4020001000 04990 XF 00,0100000,0,1 STRAP 04990
* 006360 1000745553 05000 JR D10,43 STRAP 05000
006365 4020002000 05010 XF 00,0200000,0,1 STRAP 05010
* 006372 1000747453 05020 JR D11,43 STRAP 05020
006377 4020004000 05030 XF 00,0400000,0,1 STRAP 05030
* 006404 1000751353 05040 JR D12,43 STRAP 05040
006411 4020407777 05050 XF 040,0777777,0,1 STRAP 05050
* 006416 1000712131 05060 JR PRTER,2525 STRAP 05060
006423 5601024403 05070 BA1 BFIVE,3 3 STRAP 05070
006430 7200041343 05080 SB1 0413,3 STRAP 05080
* 006435 3000001660 05090 JD 016 READER STOP STRAP 05090
* 006442 3000041000 05100 J 0410 STRAP 05100
006447 5601652407 05110 IPT2 BA1 PHEAD,7 7 STRAP 05110
006454 5201640607 05120 SA1 ERPRT+6,6,7 STRAP 05120
006461 5601023714 05130 BA1 H33,12 STRAP 05130
006466 5201642314 05140 SA1 ERPRT+1919,12 STRAP 05140
006473 4040000040 05150 XF 00,0004040,0,2 STRAP 05150
* 006500 1000736153 05160 JR D6,43 STRAP 05160
006505 4040000100 05170 XF 00,0010000,0,2 STRAP 05170
* 006512 1000740053 05180 JR D7,43 STRAP 05180
006517 4040000200 05190 XF 00,0020000,0,2 STRAP 05190
* 006524 1000741753 05200 JR D8,43 STRAP 05200
006531 4040001000 05210 XF 00,0100000,0,2 STRAP 05210
* 006536 1000745553 05220 JR D10,43 STRAP 05220
006543 4040002000 05230 XF 00,0200000,0,2 STRAP 05230
* 006550 1000747453 05240 JR D11,43 STRAP 05240
006555 4040004000 05250 XF 00,0400000,0,2 STRAP 05250
* 006562 1000751353 05260 JR D12,43 STRAP 05260
006567 4040000040 05270 XF 00,0004040,0,2 TEST HOLE CNT ERR. STRAP 05270
* 006574 3000752753 05280 JC ERROT,4343 STRAP 05280
* 006601 1000712100 05290 JR PRTER STRAP 05290
006606 4040407777 05300 XF 040,0777777,0,2 STRAP 05300
* 006613 3000001760 05310 JD 017 STRAP 05310
006620 5601024403 05320 BA1 BFIVE,3 3 STRAP 05320
006625 7200042343 05330 SB1 0423,3 STRAP 05330
* 006632 3000042000 05340 J 0420 STRAP 05340
006637 5601023714 05350 IPT6 BA1 H33,12 STRAP 05350
006644 5201642314 05360 SA1 ERPRT+1919,12 STRAP 05360
006651 5601653307 05370 BA1 DHEAD,7 7 STRAP 05370
006656 5201640607 05380 SA1 ERPRT+6,6,7 STRAP 05380
006663 4140000001 05390 XF 00,0000101,0,6 STRAP 05390
* 006670 1000724653 05400 JR D1,43 STRAP 05400
006675 4140000002 05410 XF 00,0000202,0,6 STRAP 05410
* 006702 1000726553 05420 JR D2,43 STRAP 05420
006707 4140000004 05430 XF 00,0000404,0,6 STRAP 05430
* 006714 1000730453 05440 JR D3,43 STRAP 05440
006721 4140000010 05450 XF 00,0001010,0,6 STRAP 05450
* 006726 1000732353 05460 JR D4,43 STRAP 05460
006733 4140000020 05470 XF 00,0002020,0,6 STRAP 05470
* 006740 1000734253 05480 JR D5,43 STRAP 05480
006745 4140000040 05490 XF 00,0004040,0,6 STRAP 05490
* 006752 1000736153 05500 JR D6,43 STRAP 05500
006757 4140000100 05510 XF 00,0010000,0,6 STRAP 05510
* 006764 1000740053 05520 JR D7,43 STRAP 05520
006771 4140000200 05530 XF 00,0020000,0,6 STRAP 05530
* 006776 1000741753 05540 JR D8,43 STRAP 05540
007003 4140000400 05550 XF 00,0040000,0,6 STRAP 05550
* 007010 1000743653 05560 JR D9,43 STRAP 05560
007015 4140001000 05570 XF 00,0100000,0,6 STRAP 05570
* 007022 1000745553 05580 JR D10,43 STRAP 05580
007027 4140002000 05590 XF 00,0200000,0,6 STRAP 05590
* 007034 1000747453 05600 JR D11,43 STRAP 05600
007041 4140004000 05610 XF 00,0400000,0,6 STRAP 05610
* 007046 1000751353 05620 JR D12,43 STRAP 05620
* 007053 3001707640 05630 SWICH JC DRINT,04040 STRAP 05630
007060 4140407777 05640 XF 040,0777777,0,6 STRAP 05640
* 007065 1000712100 05650 JR PRTER STRAP 05650
* 007072 3000002060 05660 JD 020 DRUM ERROR STRAP 05660
007077 5601024403 05670 BA1 BFIVE,3 3 STRAP 05670
007104 7200046343 05680 SB1 0463,3 STRAP 05680
* 007111 3000046000 05690 J 0460 STRAP 05690
* 007116 3000000000 05700 PRTER J 0 STRAP 05700
007123 4400020712 05710 SC 0207,10 0 STRAP 05710
007130 2600020304 05720 PD 0203,4 STRAP 05720
007135 2001640040 05730 FT ERPRT,3232 STRAP 05730
007142 4000620400 05740 XF 062,0040400,0,0 STRAP 05740
007147 2600007304 05750 PD X6,4 STRAP 05750
007154 4400717704 05760 SC CLEER+1414,4 STRAP 05760
007161 2741641700 05770 CLEER PD ERPRT+1515,16,X6 STRAP 05770
007166 6000007320 05780 AC X6,020 STRAP 05780
* 007173 3200716104 05790 JL CLEER,4 4 STRAP 05790
* 007200 3000721700 05800 SKIP JC $+15,0 STRAP 05800
007205 4400020777 05810 SC 0207,63 3 STRAP 05810
007212 4000640000 05820 XF 064,000,0,0,0 STRAP 05820
* 007217 3000711600 05830 J PRTER STRAP 05830
007224 5601024401 05840 BA1 BFIVE,1 1 STRAP 05840
007231 7200046341 05850 SB1 0463,1 STRAP 05850
* 007236 3000046000 05860 J 0460 STRAP 05860
* 007243 3000000000 05870 D1 J 0 STRAP 05870
007250 4401642304 05880 SC ERPRT+1919,04 STRAP 05880
* 007255 3000724300 05890 J D1 STRAP 05890
* 007262 3000000000 05900 D2 J 0 STRAP 05900
007267 4401642204 05910 SC ERPRT+1818,04 STRAP 05910
* 007274 3000726200 05920 J D2 STRAP 05920
* 007301 3000000000 05930 D3 J 0 STRAP 05930
007306 4401642104 05940 SC ERPRT+1717,04 STRAP 05940
* 007313 3000730100 05950 J D3 STRAP 05950
* 007320 3000000000 05960 D4 J 0 STRAP 05960
007325 4401642004 05970 SC ERPRT+1616,04 STRAP 05970
* 007332 3000732000 05980 J D4 STRAP 05980
* 007337 3000000000 05990 D5 J 0 STRAP 05990
007344 4401641704 06000 SC ERPRT+1515,04 STRAP 06000
* 007351 3000733700 06010 J D5 STRAP 06010
* 007356 3000000000 06020 D6 J 0 STRAP 06020
007363 4401641604 06030 SC ERPRT+1414,04 STRAP 06030
* 007370 3000735600 06040 J D6 STRAP 06040
* 007375 3000000000 06050 D7 J 0 STRAP 06050
007402 4401641504 06060 SC ERPRT+1313,04 STRAP 06060
* 007407 3000737500 06070 J D7 STRAP 06070
* 007414 3000000000 06080 D8 J 0 STRAP 06080
007421 4401641404 06090 SC ERPRT+1212,04 STRAP 06090
* 007426 3000741400 06100 J D8 STRAP 06100
* 007433 3000000000 06110 D9 J 0 STRAP 06110
007440 4401641304 06120 SC ERPRT+1111,04 STRAP 06120
* 007445 3000743300 06130 J D9 STRAP 06130
* 007452 3000000000 06140 D10 J 0 STRAP 06140
007457 4401641204 06150 SC ERPRT+1010,04 STRAP 06150
* 007464 3000745200 06160 J D10 STRAP 06160
* 007471 3000000000 06170 D11 J 0 STRAP 06170
007476 4401641104 06180 SC ERPRT+9,9,04 STRAP 06180
* 007503 3000747100 06190 J D11 STRAP 06190
* 007510 3000000000 06200 D12 J 0 STRAP 06200
007515 4401641004 06210 SC ERPRT+8,8,04 STRAP 06210
* 007522 3000751000 06220 J D12 STRAP 06220
007527 3401024500 06230 ERROT CC EXPEC,0 0 STRAP 06230
007534 4040407777 06240 XF 040,0777777,0,2 06240
* 007541 3000662042 06250 JE IPT6-15 5 06250
* 007546 3000763040 06260 JC ER2,040 0 STRAP 06260
007553 4400755200 06270 SC $-1,0 STRAP 06270
* 007560 3000756531 06280 JC $+5,031 1 CLEAR CLASS 3 STRAP 06280
007565 5601024102 06290 BA1 BACUP,2 2 STRAP 06290
007572 7200024342 06300 SB1 0243,2 BASE MINUS 200 STRAP 06300
007577 4040661100 06310 XF 066,0110100,0,2 STRAP 06310
007604 6000024202 06320 AC 0242,2 PLUS 200 TO BASE STRAP 06320
007611 4040660100 06330 XF 066,0010100,0,2 STRAP 06330
007616 4400754540 06340 SC ERROT+1414,040 STRAP 06340
* 007623 3000342400 06350 J ISSUE+1010 STRAP 06350
* 007630 3000002160 06360 ER2 JD 021 DOUBLE HOLE COUNT ERR. STRAP 06360
* 007635 3000150000 06370 J START STRAP 06370
007642 5602203402 06380 PUMP BA1 BONE,2 STRAP 06380
007647 7201011442 06390 SB1 TCOUN,2 2 STRAP 06390
007654 2600001702 06400 PD 15,2 STRAP 06400
007661 7001011442 06410 CB1 TCOUN,2 2 STRAP 06410
* 007666 3000150042 06420 JE START STRAP 06420
007673 5601011002 06430 BA1 TRACK-2,2,2 STRAP 06430
007700 6000001701 06440 AC 15,1 STRAP 06440
007705 5201011002 06450 SA1 TRACK-2,2,2 STRAP 06450
007712 1400001740 06460 LC 15,040 STRAP 06460
* 007717 3000172643 06470 JU HLOOP+5 5 STRAP 06470
007724 1400001601 06480 LC 14,1 STRAP 06480
* 007731 3000172643 06490 JU HLOOP+5 5 STRAP 06490
007736 2601011002 06500 PD TRACK-2,2,2 STRAP 06500
007743 3401011177 06510 CC TRACK-1,1,63 STRAP 06510
* 007750 3000150042 06520 JE START STRAP 06520
007755 6001011101 06530 AC TRACK-1,1,1 STRAP 06530
* 007762 3000172600 06540 J HLOOP+5 5 STRAP 06540
007776 7777777777777777 06550 +8 0777777777777777777 STRAP 06550 7
010006 7777777777777777 06560 ONES +8 0777777777777777777 STRAP 06560 7
* 010007 3000000031 06570 JC 0,25 STRAP 06570
010016 006240 06580 IE0 +3 IPT0 STRAP 06580
* 010017 3000000031 06590 JC 0,25 STRAP 06590
010026 006271 06600 IE1 +3 IPT1 STRAP 06600
* 010027 3000000031 06610 JC 0,25 STRAP 06610
010036 006447 06620 IE2 +3 IPT2 STRAP 06620
* 010037 3000000031 06630 JC 0,25 STRAP 06630
010046 006637 06640 IE6 +3 IPT6 STRAP 06640
* 010047 3000000160 06650 JD 01 STRAP 06650
010056 000500 06660 IP1 +3 0500 STRAP 06660
* 010057 3000000260 06670 JD 02 STRAP 06670
010066 000510 06680 IP2 +3 0510 STRAP 06680
010067 20 06690 KEYIN AREA 16 STRAP 06690
010112 00000000 06700 TRACK +4 0 STRAP 06700
010114 0000 06710 TCOUN +2 0 STRAP 06710
010124 0000000000000000 06720 ZEROS +8 0 STRAP 06720
010127 000000 06730 SEQTS +3 0 STRAP 06730
010132 000000 06740 OSEQS +3 0 STRAP 06740
010135 000 06750 DZERO +3 _000_ STRAP 06750
010136 1 06760 DCONE +1 _1_ STRAP 06760
010142 00000000 06770 TAGTS +4 0 STRAP 06770
010156 �� ��� �� �� 06780 PATRN +12 _�� ��� � �� ��_ STRAP 06780
010162 00003000 06790 LIM1 +4 03000 STRAP 06790
010166 00004000 06800 LIM3 +4 04000 STRAP 06800
010171 064 06810 DATEN +3 _064_ STRAP 06810
010172 00 06820 MSEQ +1 0 STRAP 06820
010176 00000000 06830 UTHS +4 0 STRAP 06830
010177 14 06840 TAGS AREA 12 STRAP 06840
010213 11 06850 EDITS AREA 9 STRAP 06850
010233 0303030303030303 06860 +8 0030303030303030303 STRAP 06860 3
010237 03030303 06870 H33 +4 00303030303 STRAP 06870
010241 0200 06880 BACUP +2 00200 STRAP 06880
010244 000005 06890 BFIVE +3 5 STRAP 06890
010245 00 06900 EXPEC +1 0 STRAP 06900
010250 000000 06910 PAT +3 0 STRAP 06910
010253 010101 06920 WUNS +3 0010101 1 STRAP 06920
010257 00000000 06930 TRKTS +4 0 STRAP 06930
010300 06940 ORIG $,64 STRAP 06940
010300 3000 06950 HAREA AREA 1536 STRAP 06950
013300 1000 06960 DAREA AREA 512 STRAP 06960
014300 300 06970 INPUT AREA 192 STRAP 06970
014600 200 06980 RAREA AREA 128 STRAP 06980
015000 200 06990 IDCD AREA 128 STRAP 06990
015200 200 07000 DCD1 AREA 128 STRAP 07000
015400 200 07010 DCD2 AREA 128 STRAP 07010
015600 300 07020 TANKA AREA 192 STRAP 07020
016100 300 07030 TANKB AREA 192 STRAP 07030
016400 100 07040 ERPRT AREA 64 STRAP 07040
016506 BADSPOT 07050 BSPOT +7 _BADSPOTOT_ STRAP 07050
016515 IPT1 07060 RHEAD +7 _ IPT1 _ STRAP 07060
016524 IPT2 07070 PHEAD +7 _ IPT2 _ STRAP 07070
016533 IPT6 07080 DHEAD +7 _ IPT6 _ STRAP 07080
016545 END OUTPUT 07090 MESS1 +10 _END OUTUTPUT_ STRAP 07090
016552 PLACE 07100 +5 _PLACE_ _ STRAP 07100
016572 CARDS IN READER 07110 MESS2 +16 _CARDS I IN READER_ STRAP 07110 E
016606 RUN COMPLETE 07120 FINI +12 _RUN COMOMPLETE_ STRAP 07120
016620 PATTERN 07130 MESS3 +10 _PATTERNRN _ STRAP 07130
016635 TAG INCORRECT 07140 MESS4 +13 _TAG INCNCORRECT_ STRAP 07140 _
000047 07150 X1 EQU 39 STRAP 07150
000053 07160 X2 EQU X1+4 STRAP 07160
000057 07170 X3 EQU X2+4 STRAP 07170
000063 07180 X4 EQU X3+4 STRAP 07180
000067 07190 X5 EQU X4+4 STRAP 07190
000073 07200 X6 EQU X5+4 STRAP 07200
000077 07210 X7 EQU X6+4 STRAP 07210
* 016636 3000764263 07220 CLOSE JC PUMP,51 1 SENSE SW. 2 STRAP 07220
016643 5601660614 07230 BA1 FINI,12 2 STRAP 07230
016650 5201641314 07240 SA1 ERPRT+1111,12 STRAP 07240
016655 4400720440 07250 SC SKIP+4,0,040 SRRAP 07250
* 016662 1000712100 07260 JR PRTER STRAP 07260
016667 4400720400 07270 SC SKIP+4,0,0 SRRAP 07270
* 016674 3000150000 07280 J START STRAP 07280
* 016701 3000000000 07290 RECOV J 0 STRAP 07290
016706 2602155300 07300 PD CNUM+7,1,16 STRAP 07300
016713 2602153600 07310 PD ERONE+2,2,16 STRAP 07310
016720 2602151602 07320 PD TWOS,2 STRAP 07320
016725 4400705700 07330 SC SWICH+4,4,0 STRAP 07330
016732 4401714540 07340 SC PHAS1+4,4,040 STRAP 07340
016737 4401720340 07350 SC PHAS2+4,4,040 STRAP 07350
016744 2600006304 07360 PD X4,4 STRAP 07360
016751 3400006700 07370 CC X5,0 STRAP 07370
* 016756 3001677042 07380 JE $+10 STRAP 07380
016763 4400006203 07390 SC X4-1,3 +300 TO X4 USING TANKB STRAP 07390
016770 5301560710 07400 SA1 TANKA+7,7,8,X4 STRAP 07400
016775 2600035700 07410 PD 0357,16 6 STRAP 07410
OE 017002 0000000000
017007 5701560404 07420 RETRY BA1 TANKA+4,4,4,X4 STRAP 07420
017014 5200034704 07430 SA1 0347,4 STRAP 07430
017021 2101561070 07440 FT TANKA+8,8,56,X4 STRAP 07440
017026 6400034120 07450 LS 0341,02020 STRAP 07450
017033 4140407777 07460 XF 040,0777777,0,6 STRAP 07460
017040 4140650000 07470 XF 065,000,0,0,6 STRAP 07470
017045 2602161402 07480 MADIT PD M1+4,2 STRAP 07480
* 017052 1002143600 07490 JR RMESS STRAP 07490
017057 5602155702 07500 BA1 UN,2 STRAP 07500
017064 5202161402 07510 SA1 M1+4,2 STRAP 07510
* 017071 3001670100 07520 J RECOV STRAP 07520
017076 4140000001 07530 DRINT XF 00,0000101,0,6 STRAP 07530
* 017103 3001714153 07540 JC PHAS1,4343 STRAP 07540
017110 4140000002 07550 XF 00,0000202,0,6 STRAP 07550
* 017115 3001717753 07560 JC PHAS2,4343 STRAP 07560
017122 4140000010 07570 XF 00,0001010,0,6 STRAP 07570
* 017127 3002204053 07580 JC LPE,43 STRAP 07580
* 017134 3000706000 07590 J SWICH+5 5 STRAP 07590
* 017141 3002121740 07600 PHAS1 JC FINAL,04040 STRAP 07600
017146 6002151701 07610 AC COUNT,1 1 STRAP 07610
* 017153 1001725200 07620 JR EXAM STRAP 07620
017160 3402151777 07630 CC COUNT,6363 STRAP 07630
* 017165 3001723542 07640 JE ERPRO STRAP 07640
* 017172 3001700731 07650 JC RETRY,03031 STRAP 07650
* 017177 3002121740 07660 PHAS2 JC FINAL,04040 STRAP 07660
017204 6002151601 07670 AC TWOS,1 STRAP 07670
017211 6002151701 07680 AC COUNT,1 1 STRAP 07680
017216 3402151777 07690 CC COUNT,6363 STRAP 07690
* 017223 3001723542 07700 JE ERPRO STRAP 07700
* 017230 3001700731 07710 JC RETRY,03031 STRAP 07710
* 017235 1002143600 07720 ERPRO JR RMESS STRAP 07720
* 017242 3001755200 07730 J TALLY STRAP 07730
* 017247 3000000000 07740 EXAM J 0 STRAP 07740
017254 2600007710 07750 PD X7,8 STRAP 07750
017261 5602157023 07760 BA2 SECNT,3 3 DCML 169 STRAP 07760
017266 5202154323 07770 SA2 CNTS,3 STRAP 07770
017273 2101605717 07780 FT TANKA+020257,X7,X4 STRAP 07780 X
017300 5602154323 07790 SEEK BA2 CNTS,3 STRAP 07790
017305 6602156263 07800 SD2 DONE,3 STRAP 07800
017312 5202154323 07810 SA2 CNTS,3 STRAP 07810
017317 5760000001 07820 BA1 0,1,X7 STRAP 07820
017324 3400001700 07830 CC 15,0 STRAP 07830
* 017331 3001747542 07840 JE LESS1 STRAP 07840
017336 3402154400 07850 CC CNUM,0 STRAP 07850
* 017343 3001745142 07860 JE SLOT1 STRAP 07860
017350 5602154303 07870 BA1 CNTS,3 STRAP 07870
017355 7002154743 07880 CB1 CNUM+3,3,3 CHAR. NUMBER STRAP 07880
* 017362 3001740643 07890 JU TRY2 STRAP 07890
017367 6002154401 07900 INC1 AC CNUM,1 STRAP 07900
017374 4202153417 07910 ST ERONE,X7X7 STRAP 07910
* 017401 3001724700 07920 J EXAM STRAP 07920
017406 3402155000 07930 TRY2 CC CNUM+4,0,0 STRAP 07930
* 017413 3001746342 07940 JE SLOT2 STRAP 07940
017420 7002155363 07950 CB2 CNUM+7,3,3 STRAP 07950
* 017425 3001752643 07960 JU NUGUY STRAP 07960
017432 6002155001 07970 INC2 AC CNUM+4,1,1 STRAP 07970
017437 4202154017 07980 ST ERTWO,X7X7 STRAP 07980
* 017444 3001724700 07990 J EXAM STRAP 07990
017451 5202154723 08000 SLOT1 SA2 CNUM+3,3,3 STRAP 08000
* 017456 3001736700 08010 J INC1 STRAP 08010
017463 5202155323 08020 SLOT2 SA2 CNUM+7,3,3 STRAP 08020
* 017470 3001743200 08030 J INC2 STRAP 08030
017475 5602203403 08040 LESS1 BA1 BONE,3 STRAP 08040
017502 7200007743 08050 SB1 X7,3 STRAP 08050
017507 7501560717 08060 CT TANKA+7,7,X7,X4 STRAP 08060
* 017514 3001754042 08070 JE ALLZS STRAP 08070
* 017521 3001730000 08080 J SEEK STRAP 08080
017526 6002152001 08090 NUGUY AC THIRD,1 1 STRAP 08090
* 017533 3001724700 08100 J EXAM STRAP 08100
017540 6002152101 08110 ALLZS AC ZEES,1 STRAP 08110
* 017545 3001724700 08120 J EXAM STRAP 08120
017552 3402154477 08130 TALLY CC CNUM,63 3 STRAP 08130
* 017557 3002001742 08140 JE GO CHAR. NO. STRAP 08140
017564 5602154401 08150 BA1 CNUM,1 ALL 01_S+OCCURRING WITHIN STRAP 08150
017571 5602155030 08160 BA2 CNUM+4 A TWO CHAR. LOCALE STRAP 08160
017576 7200003701 08170 AB1 31,1 STRAP 08170
017603 3400003777 08180 CC 31,63 STRAP 08180
* 017610 3002001742 08190 JE GO STRAP 08190
017615 5602152001 08200 BA1 THIRD,1 1 ALL 01_S+NOT OCCURRING WITHINSTRAP 08200
017622 7200003701 08210 AB1 31,1 A TWO CHAR. LOCALE STRAP 08210
017627 3400003777 08220 CC 31,63 STRAP 08220
* 017634 3002125042 08230 JE NOGO STRAP 08230
017641 5602151621 08240 BA2 TWOS,1 ALL 02_S STRAP 08240
017646 3400003777 08250 CC 31,63 STRAP 08250
* 017653 3002125042 08260 JE NOGO STRAP 08260
017660 5602154401 08270 BA1 CNUM,1 ALL 01+02(S WITH 01_S OCCURR STRAP 08270
017665 7200003701 08280 AB1 31,1 SAME CHAR. STRAP 08280
017672 3400003777 08290 CC 31,63 STRAP 08290
* 017677 3002001742 08300 JE GO STRAP 08300
017704 5602155010 08310 BA1 CNUM+4 ALL 01+02_S WITH 01_S OCCURRISTRAP 08310
017711 7200003701 08320 AB1 31,1 WITHIN A TWO CHAR. LOCALE STRAP 08320
017716 3400003777 08330 CC 31,63 STRAP 08330
* 017723 3002001742 08340 JE GO STRAP 08340
017730 5602152001 08350 BA1 THIRD,1 1 ALL 02+01 WITH 01_S NOT STRAP 08350
017735 7200003701 08360 AB1 31,1 OCCURRING WITHIN TWO CHAR STRAP 08360
017742 3400003701 08370 CC 31,1 LOCALE. STRAP 08370
* 017747 3002125042 08380 JE NOGO STRAP 08380
017754 5602152101 08390 BA1 ZEES,1 STRAP 08390
017761 3400001777 08400 CC 15,63 STRAP 08400
* 017766 3002000542 08410 JE COND8 STRAP 08410
* 017773 3000002260 08420 JD 022 TALLY DOES NOT ADD UP STRAP 08420
* 020000 3001670600 08430 J RECOV+5 5 STRAP 08430
* 020005 3000002360 08440 COND8 JD 023 SECTOR CONTINUALLY GETS STRAP 08440
* 020012 3001670100 08450 J RECOV PHASE 1 ERR BUT DATAIS ALL STRAP 08450
08460 . ZEROES STRAP 08460
020017 2602175202 08470 GO PD M9-8,2 STRAP 08470
020024 4402171204 08480 SC M7-14,4 4 NOTE 1 STRAP 08480
* 020031 1002136100 08490 JR SEND STRAP 08490
020036 5602155502 08500 BA1 IM,2 STRAP 08500
020043 5202175202 08510 SA1 M9-8,2 STRAP 08510
* 020050 1002110700 08520 JR RECRD STRAP 08520
* 020055 1002045700 08530 JR FAZCK STRAP 08530
020062 3402152277 08540 CC NONE,63 3 STRAP 08540
* 020067 3002013242 08550 JE NOSHF STRAP 08550
* 020074 1002062300 08560 JR SETUP STRAP 08560
020101 3402152377 08570 CC LEFTY,6363 STRAP 08570
* 020106 3002012543 08580 JU $+15 STRAP 08580
* 020113 1002101300 08590 JR RIGHT STRAP 08590
* 020120 3002013200 08600 J $+10 STRAP 08600
* 020125 1002071700 08610 JR LEFT STRAP 08610
020132 4602153017 08620 NOSHF BT TEMPS,X7X7 STRAP 08620
020137 2760000003 08630 PD 0,3,X7 STRAP 08630
* 020144 1002016100 08640 JR DUMP STRAP 08640
* 020151 3002026400 08650 J GOMES STRAP 08650
* 020156 3000000000 08660 DUMP J 0 STRAP 08660
020163 5701560424 08670 BA2 TANKA+4,4,4,X4 STRAP 08670
* 020170 1000577600 08680 JR EDIT STRAP 08680
020175 5601015634 08690 BA2 PATRN,1212 STRAP 08690
020202 5201502351 08700 ED IDCD+19,9,9 STRAP 08700
020207 2600007304 08710 PD X6,4 STRAP 08710
020214 4402025103 08720 SC LOOPO+4,4,3 STRAP 08720
020221 2101561021 08730 FT TANKA+8,8,17,X4 STRAP 08730
020226 2000007022 08740 FT 070,18 STRAP 08740
020233 2541502461 08750 FERRY TTI IDCD+20,0,,X6 STRAP 08750
020240 6000007202 08760 AC X6-1,2 STRAP 08760
* 020245 3202023303 08770 LOOPO JL FERRY,3 3 STRAP 08770
* 020252 1000614700 08780 JR PRNT STRAP 08780
* 020257 3002015600 08790 J DUMP STRAP 08790
020264 2000006022 08800 GOMES FT 48,18 STRAP 08800
020271 2001640020 08810 FT ERPRT,1616 STRAP 08810
020276 2402165101 08820 TFR M4+1 STRAP 08820
020303 5602154703 08830 BA1 CNUM+3,3,3 STRAP 08830
020310 3402154477 08840 CC CNUM,63 3 STRAP 08840
* 020315 3002032742 08850 JE $+10 STRAP 08850
020322 5602155303 08860 BA1 CNUM+7,3,3 STRAP 08860
020327 5201641603 08870 SA1 ERPRT+1414,3 STRAP 08870
020334 6602156543 08880 SD1 DTWO,3 STRAP 08880
020341 5201640703 08890 SA1 ERPRT+7,7,3 STRAP 08890
020346 4401644105 08900 SC ERPRT+3333,5 NOTE 2 STRAP 08900
020353 4400720440 08910 SC SKIP+4,0,040 STRAP 08910
* 020360 1000712100 08920 JR PRTER STRAP 08920
020365 4400720400 08930 SC SKIP+4,0,0 STRAP 08930
* 020372 3001670160 08940 JD RECOV STRAP 08940
020377 5600000203 08950 BA1 2,3 PICK UP CHARS. TO BE STRAP 08950
020404 4602153017 08960 BT TEMPS,X7X7 INSERTED STRAP 08960
020411 5360000003 08970 SA1 0,3,X7 STRAP 08970
* 020416 3001670100 08980 J RECOV STRAP 08980
020423 4501561000 08990 JUNK SC TANKA+8,8,0,X4 STRAP 08990
020430 2000025222 09000 FT 0252,18 8 STRAP 09000
020435 2101561120 09010 FT TANKA+9,9,16,X4 STRAP 09010
020442 2501561001 09020 TFR TANKA+8,8,,X4 STRAP 09020
* 020447 3001670100 09030 J RECOV STRAP 09030
* 020454 3000000000 09040 FAZCK J 0 STRAP 09040
020461 5701606001 09050 BA1 TANKA+020260,1,X4 STRAP 09050 4
020466 3400001714 09060 CC 15,014 STRAP 09060
* 020473 3002051243 09070 JU $+15 STRAP 09070
020500 4402152277 09080 SC NONE,63 3 STRAP 09080
* 020505 3002045400 09090 J FAZCK STRAP 09090
020512 5600001721 09100 BA2 15,1 STRAP 09100
020517 5400001776 09110 LP 15,076 STRAP 09110
020524 3400001730 09120 CC 15,030 STRAP 09120
* 020531 3002055043 09130 JU $+15 STRAP 09130
020536 4402152377 09140 SC LEFTY,6363 STRAP 09140
* 020543 3002045400 09150 J FAZCK STRAP 09150
020550 5400003737 09160 LP 31,037 STRAP 09160
020555 3400003706 09170 CC 31,6 STRAP 09170
* 020562 3002060143 09180 JU LOST SHIFTED TOO FAR. STRAP 09180
020567 4402152477 09190 SC RITE,63 3 STRAP 09190
* 020574 3002045400 09200 J FAZCK STRAP 09200
020601 5602200200 09210 LOST BA1 M10,16 STRAP 09210
020606 5201645100 09220 SA1 ERPRT+4141,16 STRAP 09220
* 020613 3002125000 09230 J NOGO STRAP 09230
* 020620 3000000000 09240 SETUP J 0 SETUP FOR SHIFTING STRAP 09240
020625 5602154703 09250 BA1 CNUM+3,3,3 DATA LEFT OR RIGHT STRAP 09250
020632 7002155343 09260 CB1 CNUM+7,3,3 STRAP 09260
* 020637 3002067041 09270 JG USE1 STRAP 09270
020644 5602155323 09280 BA2 CNUM+7,3,3 STRAP 09280
020651 5202203723 09290 SA2 POINT,3 3 STRAP 09290
020656 4602154017 09300 BT ERTWO,X7X7 STRAP 09300
* 020663 3002070200 09310 J STORE STRAP 09310
020670 5202203703 09320 USE1 SA1 POINT,3 3 STRAP 09320
020675 4602153417 09330 BT ERONE,X7X7 STRAP 09330
020702 4202153017 09340 STORE ST TEMPS,X7X7 STRAP 09340
* 020707 3002062000 09350 J SETUP STRAP 09350
* 020714 3000000000 09360 LEFT J 0 STRAP 09360
020721 2101606216 09370 FT TANKA+020262,X6,X4 STRAP 09370 X
020726 6560000001 09380 LS 0,1,X7 STRAP 09380
020733 1560000140 09390 LC 1,040,X7X7 STRAP 09390
* 020740 3002075242 09400 JE $+10 STRAP 09400
020745 5560000076 09410 LP 0,076,X7X7 STRAP 09410
020752 1760000111 09420 BS1 1,1,X7 STRAP 09420
020757 5602203403 09430 BA1 BONE,3 STRAP 09430
020764 7200007703 09440 AB1 X7,3 STRAP 09440
020771 7400007317 09450 CT X6,X7 STRAP 09450
* 020776 3002071442 09460 JE LEFT STRAP 09460
* 021003 3002072600 09470 J LEFT+10 0 STRAP 09470
* 021010 3000000000 09480 RIGHT J 0 STRAP 09480
021015 2101606116 09490 FT TANKA+020261,X6,X4 STRAP 09490 X
021022 1740000055 09500 BC1 0,5,X6 STRAP 09500
021027 6540000040 09510 LS 0,040,X6X6 STRAP 09510
021034 1547777701 09520 LC 077777,1,1,X6 MINUS ONE STRAP 09520
* 021041 3002105342 09530 JE $+10 STRAP 09530
021046 5540000037 09540 LP 0,037,X6X6 STRAP 09540
021053 5602203403 09550 BA1 BONE,3 STRAP 09550
021060 7200007343 09560 SB1 X6,3 STRAP 09560
021065 7400007716 09570 CT X7,X6 STRAP 09570
* 021072 3002101042 09580 JE RIGHT STRAP 09580
* 021077 3002102200 09590 J RIGHT+1010 STRAP 09590
* 021104 3000000000 09600 RECRD J 0 STRAP 09600
021111 4401714500 09610 SC PHAS1+4,4,0 STRAP 09610
021116 4401720300 09620 SC PHAS2+4,4,0 STRAP 09620
021123 4402123577 09630 SC LIMP+4,6,63 STRAP 09630
021130 5701560404 09640 NUTRY BA1 TANKA+4,4,4,X4 STRAP 09640
021135 5200034704 09650 SA1 0347,4 STRAP 09650
021142 2600034304 09660 PD 0343,4 STRAP 09660
021147 2101561070 09670 FT TANKA+8,8,56,X4 STRAP 09670
021154 6400034120 09680 LS 0341,02020 STRAP 09680
021161 4140407777 09690 XF 040,0777777,0,6 STRAP 09690
021166 4140670000 09700 XF 067,000,0,0,6 STRAP 09700
021173 5602171205 09710 BA1 M7-14,5 5 STRAP 09710
021200 4400001707 09720 SC 15,7 NOTE 4 STRAP 09720
021205 5201647712 09730 SA1 ERPRT+6363,10 STRAP 09730
* 021212 3001704500 09740 J MADIT STRAP 09740
021217 4140000001 09750 FINAL XF 00,0000101,0,6 STRAP 09750
* 021224 3002110453 09760 JC RECRD,4343 STRAP 09760
* 021231 3202113077 09770 LIMP JL NUTRY,6363 STRAP 09770
* 021236 3002123660 09780 JD $ CAN_T GET A PHASE STRAP 09780
* 021243 3002111100 09790 J RECRD+5 5 1 REC. READ STRAP 09790
021250 4402171205 09800 NOGO SC M7-14,5 5 NOTE 2 STRAP 09800
* 021255 1002136100 09810 JR SEND STRAP 09810
021262 4402201104 09820 SC M11-1,4 4 STRAP 09820
021267 4140000001 09830 XF 00,0000101,0,6 STRAP 09830
* 021274 3002130653 09840 JC $+10,43 3 STRAP 09840
021301 4402201105 09850 SC M11-1,5 5 STRAP 09850
021306 5602201210 09860 BA1 M11,8 STRAP 09860
021313 5201505010 09870 SA1 IDCD+40,0,8 STRAP 09870
* 021320 1002016100 09880 SHOW JR DUMP STRAP 09880
021325 2601505010 09890 PD IDCD+40,0,8 STRAP 09890
021332 4400020777 09900 SC 0207,63 3 STRAP 09900
021337 4000640000 09910 XF 064,000,0,0,0 SPACE PAPER STRAP 09910
* 021344 3002042360 09920 JD JUNK STRAP 09920
* 021351 3001670100 09930 J RECOV STRAP 09930
* 021356 3000000000 09940 SEND J 0 STRAP 09940
021363 5602171212 09950 BA1 M7-14,1010 STRAP 09950
021370 5201644412 09960 SA1 ERPRT+3636,10 STRAP 09960
021375 5602175000 09970 BA1 M8,16 STRAP 09970
021402 5201641700 09980 SA1 ERPRT+1515,16 STRAP 09980
021407 5602176212 09990 BA1 M9,10 STRAP 09990
021414 5201643112 10000 SA1 ERPRT+2525,10 STRAP 10000
* 021421 1000712100 10010 JR PRTER STRAP 10010
* 021426 3002135600 10020 J SEND STRAP 10020
* 021433 3000000000 10030 RMESS J 0 STRAP 10030
021440 2000006022 10040 FT 48,18 STRAP 10040
021445 2001640020 10050 FT ERPRT,1616 STRAP 10050
021452 2402157101 10060 TFR M1-15 STRAP 10060
021457 4401642004 10070 SC ERPRT+1616,4 STRAP 10070
021464 3400006700 10080 CC X5,0 STRAP 10080
* 021471 3002150342 10090 JE $+10 STRAP 10090
021476 4401642005 10100 SC ERPRT+1616,5 STRAP 10100
* 021503 1000712100 10110 JR PRTER STRAP 10110
* 021510 3002143300 10120 J RMESS STRAP 10120
021515 00 10130 LPARI +1 0 STRAP 10130
021516 00 10140 TWOS +1 0 STRAP 10140
021517 00 10150 COUNT +1 0 STRAP 10150
021520 00 10160 THIRD +1 0 STRAP 10160
021521 00 10170 ZEES +1 0 STRAP 10170
021522 00 10180 NONE +1 0 STRAP 10180
021523 00 10190 LEFTY +1 0 STRAP 10190
021524 00 10200 RITE +1 0 STRAP 10200
021530 00000000 10210 TEMPS +4 0 STRAP 10210
021534 00000000 10220 ERONE +4 0 STRAP 10220
021540 00000000 10230 ERTWO +4 0 STRAP 10230
021543 000000 10240 CNTS +3 0 STRAP 10240
021544 10 10250 CNUM AREA 8 STRAP 10250
021555 IM 10260 IM +2 _IM_ STRAP 10260
021557 UN 10270 UN +2 _UN_ STRAP 10270
021562 001 10280 DONE +3 _001_ STRAP 10280
021565 002 10290 DTWO +3 _002_ STRAP 10290
021570 169 10300 SECNT +3 _169_ STRAP 10300
021610 DATA FROM KEYIN 10310 M1 +16 _DATA FRFROM KEYIN _ STRAP 10310 I
021630 UNRECOVERABLE 10320 M2 +16 _ UNRECECOVERABLE _ STRAP 10320 L
021650 VIA NORMAL READ 10330 M4 +16 _VIA NORORMAL READ _ STRAP 10330 A
021670 CHAR NNN TO NNN 10340 M5 +16 _CHAR NNNNN TO NNN _ STRAP 10340 N
021710 UNKNOWN.SEE NOTE 10350 M6 +16 _UNKNOWNWN.SEE NOTE_ STRAP 10350 O
021730 1 STRAP OP INST 10360 M7 +16 _ 1 STRARAP OP INST_ STRAP 10360 N
021750 RECONSTRUCTION 10370 M8 +16 _ RECONSNSTRUCTION _ STRAP 10370 O
021762 IMPOSSIBLE 10380 M9 +10 _IMPOSSISIBLE_ STRAP 10380
022002 SHIFTED TOO FAR 10390 M10 +16 _ SHIFTETED TOO FAR_ STRAP 10390 F
022012 PHASE 10400 M11 +8 _PHASE _ STRAP 10400
022031 CONSTANT LPE 10410 M12 +15 _CONSTANANT LPE _ STRAP 10410
022034 000001 10420 BONE +3 1 STRAP 10420
022037 000000 10430 POINT +3 0 STRAP 10430
022040 6002151501 10440 LPE AC LPARI,1 1 STRAP 10440
022045 3402151577 10450 CC LPARI,6363 STRAP 10450
* 022052 3002206442 10460 JE $+10 STRAP 10460
* 022057 3001700731 10470 JC RETRY,03031 STRAP 10470
022064 3402151700 10480 CC COUNT,0 0 STRAP 10480
* 022071 3002212742 10490 JE LPMES STRAP 10490
022076 3402151740 10500 CC COUNT,3232 STRAP 10500
* 022103 3002212744 10510 JS LPMES STRAP 10510
022110 2602151501 10520 PD LPARI,1 1 STRAP 10520
* 022115 3202205703 10530 JL LPE+15,3,3 STRAP 10530
022122 4402212103 10540 SC $-1,3 STRAP 10540
* 022127 1002143600 10550 LPMES JR RMESS STRAP 10550
* 022134 1002136100 10560 JR SEND STRAP 10560
022141 5602203117 10570 BA1 M12,15 STRAP 10570
022146 5201641617 10580 SA1 ERPRT+1414,15 STRAP 10580
022153 5602171010 10590 BA1 M6,8 STRAP 10590
022160 5201642610 10600 SA1 ERPRT+2222,8 STRAP 10600
022165 4402171206 10610 SC M7-14,6 6 NOTE 3 STRAP 10610
022172 5602173000 10620 BA1 M7,16 STRAP 10620
022177 5201644600 10630 SA1 ERPRT+3838,16 STRAP 10630
* 022204 1000712100 10640 JR PRTER STRAP 10640
* 022211 3002132000 10650 J SHOW STRAP 10650
3000150000 10660 END START STRAP 10660
{-- tape mark --}
008733 C451 DFCF CODEDIT SOURCE - T3834394-45
001400 00010 T450 BEGIN 01400 DFC 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T451 3000140000 * 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 T452 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 T453 3000136300 * SEGJP $ *
001400 ORIG 01400
001403 00000000 00020 UTHS +4 00000000000 DFCF 00020
001413 7070707070707070 00030 +8 0707070707070707070 DFCF 00030 0
001423 7070707070707070 00040 SVO +8 0707070707070707070 DFCF 00040 0
001427 00000707 00050 OSV +4 00707 DFCF 00050
001433 00000250 00060 B168 +4 0000250 0 DFCF 00060
001437 00003000 00070 UTH +4 00000300000 MAKE UTH-1 EQUAL 70 FOR DRUM B DFCF 00070 E
001443 00000000 00080 ZERO +4 0 DFCF 00080
* 001444 3000000000 00090 IZE JC 0 DFCF 00090
001451 2600035700 00100 PD 0357,16 6 DFCF 00100
001456 5600764010 00110 NN BA1 IE6,8 DFCF 00110
001463 5200046710 00120 SA1 0467,8 DFCF 00120
001470 5600763010 00130 BA1 IE0,8 DFCF 00130
001475 5200040710 00140 SA1 0407,8 DFCF 00140
001502 2600007700 00150 N PD 077,16 DFCF 00150
001507 2600005700 00160 PD 057,16 DFCF 00160
001514 5600762000 00170 BA1 IE2,16 DFCF 00170
001521 5200051700 00180 SA1 0517,16 6 DFCF 00180
001526 5600143704 00190 BA1 UTH,4 DFCF 00190
001533 5200140304 00200 SA1 UTHS,4 DFCF 00200
* 001540 3000144426 00210 JC IZE,22 DFCF 00210
001545 2600001700 00220 STRT PD 017,16 ZERO AR1 DFCF 00220
001552 5600747202 00230 BA1 UTH0N,2 2 0 IS LOWER UNIT N IS UPPER DFCF 00230
* 001557 3000156420 00240 JHJ STORE UNIT DFCF 00240
001564 5200747202 00250 STORE SA1 UTH0N,2 2 DFCF 00250
001571 1600747222 00260 BS2 UTH0N,2 2 DFCF 00260
001576 5600747202 00270 BA1 UTH0N,2 2 DFCF 00270
001603 5200746402 00280 SA1 UNITU,2 2 DFCF 00280
001610 5600747101 00290 RETN BA1 UTH0N-1,1,1 DFCF 00290
001615 5200143401 00300 SA1 UTH-3,1 1 DFCF 00300
001622 3400143630 00310 CC UTH-1,03030 CHECK IF IN TEST TRACKS DFCF 00310
* 001627 3000165342 00320 JE START IF NOT STOP DFCF 00320
001634 3400143670 00330 CC UTH-1,07070 OPERATOR MUST KNOW DFCF 00330
* 001641 3000165342 00340 JE START IF WANT SOMETHING ELSE DFCF 00340
* 001646 3000164620 00350 JHJ $ IS IT OTHR OPTION CHECK DFCF 00350
* 001653 1000144700 00360 START JR IZE DFCF 00360
* 001660 3000166522 00370 JC $+5,18 DFCF 00370
001665 2000764470 00380 FT WRIM,56 6 LOCKOUT TEST DFCF 00380
001672 4400035160 00390 SC 0351,06060 3 SECTOR COUNT, T58 DFCF 00390
001677 6400034120 00400 LS 0341,02020 DFCF 00400
001704 5600140304 00410 BA1 UTHS,4 DFCF 00410
001711 5200034704 00420 SA1 0347,4 DFCF 00420
001716 4140464000 00430 W1 XF 046,0400000,0,6 WRITE 1 SECTOR DFCF 00430
* 001723 3000173565 00440 JC ER1,53 DFCF 00440
* 001730 3000174722 00450 JC $+15,18 8 DFCF 00450
* 001735 3000000160 00460 ER1 JD 01 LOCKOUT ERROR DFCF 00460
* 001742 3000165300 00470 JC START DFCF 00470
001747 5600035101 00480 BA1 0351,1 DFCF 00480
001754 5400001760 00490 LP 15,060 DFCF 00490
001761 3400001700 00500 CC 15,0 DFCF 00500
* 001766 3000200542 00510 JC $+15,34 4 DFCF 00510
* 001773 3000000260 00520 ER2 JD 02 SECTOR COUNT IN TETRAP 58 DFCF 00520
* 002000 3000165300 00530 JC START NOT CLEARED TO ZERO DFCF 00530
002005 6000034353 00540 AC 0343,05353 DFCF 00540
002012 6000034202 00550 AC 0342,02 2 DFCF 00550
002017 5400034107 00560 LP 0341,07 7 DFCF 00560
002024 7400035370 00570 CT 0353,56 6 DFCF 00570
* 002031 3000205042 00580 JC $+15,34 4 DFCF 00580
* 002036 3000000360 00590 ER3 JD 03 CORE MEMORY ADDRESS OF DFCF 00590
* 002043 3000165300 00600 JC START TETRAP 58 NOT CORRECT DFCF 00600
002050 2001024470 00610 FT RDIM,56 6 INHIBIT INTERRUPT DFCF 00610
002055 6400034120 00620 LS 0341,02020 DFCF 00620
* 002062 1000644700 00630 JR CLEAR NO HEAD BAR POSITION DFCF 00630
002067 4140614000 00640 R1 XF 061,0400000,0,6 DFCF 00640
* 002074 3000211365 00650 JC $+15,53 3 INH,READ,NO POSITION DFCF 00650
* 002101 3000000460 00660 ER4 JD 04 INTERRUPT WAS NOT DFCF 00660
* 002106 3000165300 00670 JC START INHIBITED DFCF 00670
* 002113 1000650500 00680 JR COMP DFCF 00680
002120 2600035710 00690 PD 0357,8 DFCF 00690
002125 4140007777 00700 XF 0,07777,7,0,6 DFCF 00700
* 002132 3000214453 00710 JC $+10,43 3 DFCF 00710
* 002137 3000215600 00720 JC $+15 DFCF 00720
* 002144 3000000660 00730 ER6 JD 06 TEST INDICATION ERROR DFCF 00730
* 002151 3000165300 00740 JC START ON RESET DFCF 00740
* 002156 1000644722 00750 JR CLEAR,1818 CLEAR READ IN AREA DFCF 00750
002163 4140014000 00760 R2 XF 01,0400000,0,6 DFCF 00760
* 002170 3000217065 00770 JC $,53 LOOP TILL IPT DFCF 00770
* 002175 1000650522 00780 JR COMP,18 8 DFCF 00780
002202 6000034202 00790 AC 0342,02 2 DFCF 00790
002207 6000034350 00800 AC 0343,05050 DFCF 00800
002214 5400034107 00810 LP 0341,07 7 DFCF 00810
002221 7400035370 00820 CT 0353,56 6 DFCF 00820
* 002226 3000224542 00830 JC $+15,34 4 DFCF 00830
* 002233 3000000760 00840 ER7 JD 07 SINGLE SECTOR DFCF 00840
* 002240 3000165300 00850 JC START WRITE AND READ DFCF 00850
002245 3400140377 00860 END CC UTHS,07777 64 SECTORS OF 70 DFCF 00860
* 002252 3000227142 00870 JC $+15,34 4 DFCF 00870
002257 6000140301 00880 AC UTHS,01 1 DFCF 00880
* 002264 3000166000 00890 JC START+5 5 DFCF 00890
002271 4400140300 00900 SC UTHS,0 DFCF 00900
002276 6000140201 00910 AC UTHS-1,1,1 INC HEAD DFCF 00910
002303 5600143601 00920 BA1 UTH-1,1 1 DFCF 00920
002310 6000001701 00930 AC 017,1 INC HEAD IN AR1 DFCF 00930
002315 7000140241 00940 CB1 UTHS-1,1,1 DFCF 00940
* 002322 3000166043 00950 JC START+5,5,043 SHOULD BE EQUAL ALWAYS DFCF 00950 O
002327 5600143704 00960 BA1 UTH,4 DFCF 00960
002334 5200140304 00970 SA1 UTHS,4 DFCF 00970
002341 2600035704 00980 PD 0357,4 STORE DRUM ADD TEST DFCF 00980
002346 4140100000 00990 RDA XF 010,0,0,0,6 REQUEST DRUM ADDRESS DFCF 00990 U
002353 6000034701 01000 AC 0347,1 DFCF 01000
002360 4400034700 01010 SC 0347,0 DFCF 01010
002365 7400034773 01020 CT 0347,59 9 DFCF 01020
* 002372 3000241142 01030 JC $+15,34 4 DFCF 01030
* 002377 3000001060 01040 ER10 JD 010 STORE DRUM ADDRESS DFCF 01040
* 002404 3000165300 01050 JC START ERROR DFCF 01050
002411 4600140371 01060 POSIT BT UTHS,57 7 WAS SC 0345,077 DFCF 01060 S
* 002416 1000644722 01070 JR CLEAR,1818 DFCF 01070
002423 4140040000 01080 POS1 XF 04,0,0,6,6 DFCF 01080
* 002430 3000243065 01090 JC $,53 LOOP TILL IPT DFCF 01090
002435 2001024470 01100 FT RDIM,56 6 DFCF 01100
002442 6400034120 01110 LS 0341,02020 DFCF 01110
002447 4140610000 01120 TPOSR XF 061,0,0,0,6 LOCKOUT,INHBIT, READ OFF-TRACK DFCF 01120 K
002454 4600143771 01130 BT UTH,57 DFCF 01130
* 002461 1000644722 01140 JR CLEAR,1818 DFCF 01140
002466 4140040000 01150 POS2 XF 04,0,0,6,6 POSITION DFCF 01150
* 002473 3000247365 01160 JC $,53 LOOP TILL IPT DFCF 01160
002500 2001024470 01170 FT RDIM,56 6 DFCF 01170
002505 6400034120 01180 LS 0341,02020 DFCF 01180
* 002512 3000251722 01190 JC $+5,18 DFCF 01190
002517 4140014000 01200 R3 XF 01,0400000,0,6 DFCF 01200
* 002524 3000252465 01210 JC $,53 DFCF 01210
* 002531 1000650523 01220 JR COMP,19 9 DFCF 01220
002536 4400034500 01230 SC 0345,0 DFCF 01230
* 002543 3000255022 01240 JC $+5,18 DFCF 01240
002550 4140264000 01250 W2 XF 026,0400000,0,6 DFCF 01250
002555 4140624000 01260 FBW1 XF 062,0400000,0,6 DFCF 01260
* 002562 3000257465 01270 JC $+10,53 3 DFCF 01270
* 002567 3000260600 01280 JC $+15 DFCF 01280
* 002574 3000002060 01290 ER20 JD 020 DFCF 01290
* 002601 3000165300 01300 JC START DFCF 01300
002606 4140000400 01310 XF 0,00400,0,0,6 DFCF 01310
* 002613 3000263253 01320 JC $+15,43 3 DFCF 01320
* 002620 3000002160 01330 ER21 JD 021 BUSY NOT SET DFCF 01330
* 002625 3000165300 01340 JC START DFCF 01340
002632 4140400400 01350 RBUSY XF 32,0400,0,0,6 DFCF 01350
002637 4140000400 01360 XF 0,00400,0,0,6 DFCF 01360
* 002644 3000267553 01370 JC ER22,43 3 DFCF 01370
002651 4140614000 01380 XF 061,0400000,0,6 DFCF 01380
002656 4140000400 01390 XF 0,0400,0,0,6 DFCF 01390
* 002663 3000263253 01400 JC RBUSY,05053 DFCF 01400
* 002670 3000270700 01410 JC $+15 DFCF 01410
* 002675 3000002260 01420 ER22 JD 022 CANT RESET BUSY DFCF 01420
* 002702 3000165300 01430 JC START DFCF 01430
* 002707 1000644722 01440 JR CLEAR,1818 CHARACTER TEST07 DFCF 01440
002714 4600143771 01450 BT UTH,57 DFCF 01450
002721 2001024470 01460 FT RDIM,56 6 DFCF 01460
002726 6400034120 01470 LS 0341,02020 1 CHAR READ DFCF 01470
002733 4140615000 01480 R4 XF 061,0500000,0,6 DFCF 01480
002740 4140000400 01490 XF 0,00400,0,0,6 DFCF 01490
* 002745 3000275753 01500 JC $+10,43 3 DFCF 01500
* 002752 3000277126 01510 JC $+15,22 2 RESET IND 2 DFCF 01510
002757 4140400400 01520 XF 32,0040000,0,6 RESET BUSY DFCF 01520 R
* 002764 3000273300 01530 JC R4 DFCF 01530
* 002771 3000277622 01540 JC $+5,18 DFCF 01540
002776 3401024470 01550 CC RDIM,07070 DFCF 01550
* 003003 3000302242 01560 JC $+15,34 4 DFCF 01560
* 003010 3000003060 01570 ER30 JD 030 FIRST CH. ON 1CH READ DFCF 01570
* 003015 3000165300 01580 JC START INCORRECT DFCF 01580
003022 3401024507 01590 CC RDIM+1,0,07 DFCF 01590
* 003027 3000304642 01600 JC $+15,34 4 DFCF 01600
* 003034 3000003160 01610 ER31 JD 031 FIRIRST CHAR. ON 1 CHAR. READ DFCF 01610 R
* 003041 3000165300 01620 JC START ALTEREP ON 1CH. READ DFCF 01620
* 003046 3000306565 01630 JC $+15,53 3 DFCF 01630
* 003053 3000003260 01640 ER32 JD 032 DFCF 01640
* 003060 3000165300 01650 JC START INH.,NOT WORKING DFCF 01650
* 003065 1000644700 01660 JR CLEAR DFCF 01660
003072 2001024470 01670 FT RDIM,56 6 DFCF 01670
003077 6400034140 01680 LS 0341,04040 DFCF 01680
003104 4140015000 01690 R5 XF 01,0500000,0,6 READ ONLY,CHARACTER COUNT DFCF 01690
* 003111 3000311165 01700 JC $,53 LOOP TILL 1PT DFCF 01700
003116 5601024502 01710 BA1 RDIM+1,2,2 DFCF 01710
003123 7000142342 01720 CB1 SVO,2 DFCF 01720
* 003130 3000314742 01730 JC $+15,34 4 DFCF 01730
* 003135 3000003360 01740 ERR33 JD 033 DATA ERROR ON 2 CHAR. DFCF 01740
* 003142 3000165300 01750 JC START READ DFCF 01750
003147 5601024702 01760 BA1 RDIM+3,2,2 DFCF 01760
003154 5601051301 01770 BA1 RDIM+16767,1 0707 DFCF 01770
003161 7000142742 01780 CB1 OSV,2 DFCF 01780
* 003166 3000320542 01790 JC $+15,34 4 DFCF 01790
* 003173 3000003460 01800 ER34 JD 034 BUFFER CH. ON2 CHAR DFCF 01800
* 003200 3000165300 01810 JC START READ DFCF 01810
003205 6000034701 01820 AC 0347,01 1 DFCF 01820
003212 7400034773 01830 CT 0347,59 9 DFCF 01830
* 003217 3000323642 01840 JC $+15,34 4 DFCF 01840
* 003224 3000003560 01850 ER35 JD 035 T59 NOT EQU S+1 DFCF 01850
* 003231 3000165300 01860 JC START S SHOULD INCREMT. BY 1 FULL SECTOR COUNT DFCF 01860 I
003236 5400034107 01870 LP 0341,07 7 DFCF 01870
003243 6000034302 01880 AC 0343,02 2 DFCF 01880
003250 7400035370 01890 CT 0353,56 6 DFCF 01890
* 003255 3000327442 01900 JC $+15,34 4 DFCF 01900
* 003262 3000003660 01910 ER36 JD 036 T 57 INCORRECT DFCF 01910
* 003267 3000165300 01920 JC START DFCF 01920
003274 2001024470 01930 FT RDIM,56 6 4 CHAR READ DFCF 01930
003301 4600143771 01940 BT UTH,57 DFCF 01940
003306 6400034001 01950 LS 0340,01 1 DFCF 01950
003313 4140415000 01960 R6 XF 041,0500000,0,6 DFCF 01960
003320 5601024704 01970 BA1 RDIM+3,4,4 DFCF 01970
003325 7000142344 01980 CB1 SVO,4 DFCF 01980
* 003332 3000335142 01990 JC $+15,34 4 DFCF 01990
* 003337 3000003760 02000 ER37 JD 037 4CH READ DATA ERROR DFCF 02000
* 003344 3000165300 02010 JC START DFCF 02010
003351 5601025102 02020 BA1 RDIM+5,2,2 DFCF 02020
003356 5601051301 02030 BA1 RDIM+16767,1 DFCF 02030
003363 7000142742 02040 CB1 OSV,2 DFCF 02040
* 003370 3000340742 02050 JC $+15,34 4 DFCF 02050
* 003375 3000004060 02060 ER40 JD 040 4 CH. READ BUFFER ER. DFCF 02060
* 003402 3000165300 02070 JC START DFCF 02070
003407 5400034000 02080 LP 0340,0 8 CHAR. READ DFCF 02080
003414 6400034002 02090 LS 0340,2 DFCF 02090
* 003421 1000644700 02100 JR CLEAR DFCF 02100
003426 4140615000 02110 R10 XF 061,0500000,0,6 DFCF 02110
003433 5601025310 02120 BA1 RDIM+7,8,8 DFCF 02120
003440 7000142350 02130 CB1 SVO,8 DFCF 02130
* 003445 3000346442 02140 JC $+15,34 4 DFCF 02140
* 003452 3000040060 02150 ERR04 JD 0400 DFCF 02150
* 003457 3000165300 02160 JC START DFCF 02160
003464 5601025502 02170 BA1 RDIM+9,2,2 DFCF 02170
003471 5601051301 02180 BA1 RDIM+16767,1 DFCF 02180
003476 7000142742 02190 CB1 OSV,2 DFCF 02190
* 003503 3000352242 02200 JC $+15,34 4 DFCF 02200
* 003510 3000004160 02210 ER41 JD 041 DFCF 02210
* 003515 3000165300 02220 JC START DFCF 02220
003522 5400034000 02230 LP 0340,0 16 CHAR READ DFCF 02230
003527 6400034004 02240 LS 0340,04 4 DFCF 02240
* 003534 1000644700 02250 JR CLEAR DFCF 02250
003541 4140615000 02260 R11 XF 061,0500000,0,6 DFCF 02260
003546 5601026300 02270 BA1 RDIM+15,5,16 DFCF 02270
003553 7000142340 02280 CB1 SVO,16 DFCF 02280
* 003560 3000357742 02290 JC $+15,34 4 DFCF 02290
* 003565 3000004260 02300 ER42 JD 042 DATA ERROR DFCF 02300
* 003572 3000165300 02310 JC START DFCF 02310
003577 5601026502 02320 BA1 RDIM+17,7,2 DFCF 02320
003604 5601051301 02330 BA1 RDIM+16767,1 DFCF 02330
003611 7000142742 02340 CB1 OSV,2 DFCF 02340
* 003616 3000363542 02350 JC $+15,34 4 DFCF 02350
* 003623 3000004360 02360 ER43 JD 043 MEM ERROR DFCF 02360
* 003630 3000165300 02370 JC START DFCF 02370
003635 5400034000 02380 LP 0340,0 32 CHAR READ DFCF 02380
003642 6400034010 02390 LS 0340,8 DFCF 02390
* 003647 1000644700 02400 JR CLEAR DFCF 02400
003654 4140615000 02410 R122 XF 061,0500000,0,6 DFCF 02410
003661 5601030300 02420 BA1 RDIM+31,1,16 DFCF 02420
003666 7000142340 02430 CB1 SVO,16 DFCF 02430
* 003673 3000371242 02440 JC $+15,34 4 DFCF 02440
* 003700 3000004460 02450 ER44 JD 044 DFCF 02450
* 003705 3000165300 02460 JC START DFCF 02460
003712 5601030502 02470 BA1 RDIM+33,3,2 DFCF 02470
003717 5601051301 02480 BA1 RDIM+16767,1 DFCF 02480
003724 7000142742 02490 CB1 OSV,2 DFCF 02490
* 003731 3000375042 02500 JC $+15,34 4 DFCF 02500
* 003736 3000004560 02510 ER45 JD 045 DFCF 02510
* 003743 3000165300 02520 JC START DFCF 02520
003750 5400034000 02530 LP 0340,0 64 DFCF 02530
003755 6400034020 02540 LS 0340,02020 DFCF 02540
* 003762 1000644700 02550 JR CLEAR DFCF 02550
003767 4140615000 02560 R12 XF 061,0500000,0,6 DFCF 02560
003774 5601034300 02570 BA1 RDIM+63,3,16 DFCF 02570
004001 7000142340 02580 CB1 SVO,16 DFCF 02580
* 004006 3000402542 02590 JC $+15,34 4 DFCF 02590
* 004013 3000004660 02600 ER46 JD 046 DFCF 02600
* 004020 3000165300 02610 JC START DFCF 02610
004025 5601034502 02620 BA1 RDIM+65,5,2 DFCF 02620
004032 5601051301 02630 BA1 RDIM+16767,1 DFCF 02630
004037 7000142742 02640 CB1 OSV,2 DFCF 02640
* 004044 3000406342 02650 JC $+15,34 4 DFCF 02650
* 004051 3000004760 02660 ER47 JD 047 DFCF 02660
* 004056 3000165300 02670 JC START DFCF 02670
004063 5400034000 02680 LP 0340,0 128 CHAR READ DFCF 02680
004070 6400034040 02690 LS 0340,04040 DFCF 02690
* 004075 1000644700 02700 JR CLEAR DFCF 02700
004102 4140615000 02710 RE XF 061,0500000,0,6 DFCF 02710
004107 5601044300 02720 BA1 RDIM+12727,16 DFCF 02720
004114 7000142340 02730 CB1 SVO,16 DFCF 02730
* 004121 3000414042 02740 JC $+15,34 4 DFCF 02740
* 004126 3000005060 02750 ER50 JD 050 DFCF 02750
* 004133 3000165300 02760 JC START DFCF 02760
004140 5601044502 02770 BA1 RDIM+12929,2 DFCF 02770
004145 5601051301 02780 BA1 RDIM+16767,1 DFCF 02780
004152 7000142742 02790 CB1 OSV,2 DFCF 02790
* 004157 3000417642 02800 JC $+15,34 4 DFCF 02800
* 004164 3000005160 02810 ER51 JD 051 DFCF 02810
* 004171 3000165300 02820 JC START DFCF 02820
004176 5400034000 02830 LP 0340,0 256 CHAR. DFCF 02830
* 004203 1000644700 02840 JR CLEAR DFCF 02840
004210 4140615000 02850 READD XF 061,0500000,0,6 DFCF 02850
004215 5601064300 02860 BA1 RDIM+25555,16 DFCF 02860
004222 7000142340 02870 CB1 SVO,16 DFCF 02870
* 004227 3000424642 02880 JC $+15,34 4 DFCF 02880
* 004234 3000005260 02890 ER52 JD 052 DFCF 02890
* 004241 3000165300 02900 JC START DFCF 02900
004246 5601064502 02910 BA1 RDIM+25757,2 DFCF 02910
004253 7000142742 02920 CB1 OSV,2 DFCF 02920
* 004260 3000427742 02930 JC $+15,34 4 DFCF 02930
* 004265 3000005360 02940 ER53 JD 053 DFCF 02940
* 004272 3000165300 02950 JC START DFCF 02950
* 004277 1000644700 02960 JR CLEAR WRITE CHAR TEST DFCF 02960
004304 2000764470 02970 FT WRIM,56 6 DFCF 02970
004311 4600143771 02980 BT UTH,57 DFCF 02980
004316 6400034120 02990 LS 0341,02020 DFCF 02990
004323 4400034000 03000 SC 0340,0 DFCF 03000
004330 4140625000 03010 WR XF 062,0500000,0,6 WRITE 1 CHAR DFCF 03010
004335 2001024470 03020 FT RDIM,56 6 DFCF 03020
004342 6400034120 03030 LS 0341,02020 DFCF 03030
004347 4140614000 03040 RR XF 061,0400000,0,6 READ 1 SECTOR DFCF 03040
004354 3401024470 03050 CC RDIM,07070 DFCF 03050
* 004361 3000440042 03060 JC $+15,34 4 DFCF 03060
* 004366 3000006060 03070 ER60 JD 060 DIDID NOT CORRECTLY READ CHAR. JUST WRITTEN. DFCF 03070 O
* 004373 3000165300 03080 JC START DFCF 03080
004400 5601024602 03090 BA1 RDIM+2,2,2 DFCF 03090
004405 5601051301 03100 BA1 RDIM+16767,1 DFCF 03100
004412 7000144342 03110 CB1 ZERO,2 DFCF 03110
* 004417 3000443642 03120 JC $+15,34 4 DFCF 03120
* 004424 3000006160 03130 ER61 JD 061 DFCF 03130
* 004431 3000165300 03140 JC START DFCF 03140
* 004436 1000644700 03150 JR CLEAR WRITE 16 CHAR. DFCF 03150
004443 2000764470 03160 FT WRIM,56 6 DFCF 03160
004450 6400034004 03170 LS 0340,04 4 DFCF 03170
004455 4140625000 03180 WRS XF 062,0500000,0,6 DFCF 03180
004462 2001024470 03190 FT RDIM,56 6 DFCF 03190
004467 4400034000 03200 SC 0340,0 DFCF 03200
004474 6400034120 03210 LS 0341,02020 DFCF 03210
004501 4140614000 03220 RR1 XF 061,0400000,0,6 DFCF 03220
004506 5601026300 03230 BA1 RDIM+15,5,16 DFCF 03230
004513 7000142340 03240 CB1 SVO,16 DFCF 03240
* 004520 3000453742 03250 JC $+15,34 4 DFCF 03250
* 004525 3000006260 03260 ER62 JD 062 DATATA ERROR ON 16 CHAR. WRITE-READ DFCF 03260 R
* 004532 3000165300 03270 JC START DFCF 03270
004537 5601026502 03280 BA1 RDIM+17,7,2 DFCF 03280
004544 5601051301 03290 BA1 RDIM+16767,1 DFCF 03290
004551 7000144342 03300 CB1 ZERO,2 DFCF 03300
* 004556 3000457542 03310 JC $+15,34 4 DFCF 03310
* 004563 3000006360 03320 ER63 JD 063 CHAHAR. 17 NOT ZERO. DFCF 03320 N
* 004570 3000165300 03330 JC START DFCF 03330
* 004575 1000644723 03340 JR CLEAR,1919 SET IND 2 DFCF 03340 I
* 004602 3000460722 03350 JC $+5,18 DFCF 03350
004607 2001024470 03360 FT RDIM,56 6 DFCF 03360
004614 6400034120 03370 LS 0341,02020 DFCF 03370
004621 6000034601 03380 AC 0346,1 INC HEAD FOR NO SECTOR DFCF 03380 H
004626 4140614000 03390 RR2 XF 061,0400000,0,6 READ EXPECT NO SECTOR DFCF 03390
* 004633 3000464565 03400 JC $+10,53 3 DFCF 03400
* 004640 3000465700 03410 JC $+15 DFCF 03410
* 004645 3000006460 03420 ER64 JD 064 NONO IPT ON NO SECTOR DFCF 03420 N
* 004652 3000165300 03430 JC START DFCF 03430
004657 4140000040 03440 XF 0,040,0,0,6 DFCF 03440
* 004664 3000470353 03450 JC $+15,43 3 DFCF 03450
* 004671 3000006560 03460 ER65 JD 065 M MISSING SECTOR NOT SET DFCF 03460
* 004676 3000165300 03470 JC START DFCF 03470
004703 4140400040 03480 XF 32,040,0,0,6 DFCF 03480
004710 4140000040 03490 XF 0,040,0,0,6 DFCF 03490
* 004715 3000472753 03500 JC $+10,43 3 DFCF 03500
* 004722 3000474100 03510 JC $+15 DFCF 03510
* 004727 3000066660 03520 ER666 JD 0666 M MISSING SECTOR DID NIT RESET DFCF 03520
* 004734 3000165300 03530 JC START RESETTABLE DFCF 03530
004741 4600143771 03540 BT UTH,57 DFCF 03540
004746 2001024470 03550 FT RDIM,56 6 DFCF 03550
004753 6400034140 03560 LS 0341,04040 READ 2 SECTORS DFCF 03560
004760 4140614000 03570 RR3 XF 061,0400000,0,6 DFCF 03570
* 004765 3000477765 03580 JC $+10,53 3 DFCF 03580
* 004772 3000507322 03590 JC ER72+10,0,18 WAS JC $+15,18 DFCF 03590
* 004777 3000007060 03600 ER70 JD 070 NO ERROR IPT DFCF 03600
* 005004 3000165300 03610 JC START OVERFLOW DFCF 03610
005011 4140000020 03620 XF 0,020,0,0,6 DFCF 03620
* 005016 3000503553 03630 JC $+15,43 3 DFCF 03630
* 005023 3000007160 03640 ER71 JD 071 DFCF 03640
* 005030 3000165300 03650 JC START DFCF 03650
005035 4140400020 03660 XF 32,020,0,0,6 RESET HEAD CNT. OVF. DFCF 03660 S
005042 4140000020 03670 XF 0,020,0,0,6 DFCF 03670
* 005047 3000506153 03680 JC $+10,43 3 DFCF 03680
* 005054 3000507300 03690 JC $+15 DFCF 03690
* 005061 3000007260 03700 ER72 JD 072 DFCF 03700
* 005066 3000165300 03710 JC START DFCF 03710
005073 4400034474 03720 SC 0344,07474 DFCF 03720
005100 4140614000 03730 RLEG XF 061,0400000,0,6 DFCF 03730
* 005105 3000511765 03740 JC $+10,53 3 DFCF 03740
* 005112 3000513122 03750 JC $+15,18 8 DFCF 03750
* 005117 3000007360 03760 ER73 JD 073 NON READY DID NOT IPT DFCF 03760
* 005124 3000165300 03770 JC START DFCF 03770
005131 4140001000 03780 XF 0,01000,0,0,6 TEST NON READY DFCF 03780 E
* 005136 3000515553 03790 JC $+15,43 3 DFCF 03790
* 005143 3000007460 03800 ER74 JD 074 DFCF 03800
* 005150 3000165300 03810 JC START DFCF 03810
005155 4140401000 03820 XF 32,0100000,0,6 DFCF 03820
005162 4140001000 03830 XF 0,01000,0,0,6 DFCF 03830
* 005167 3000520153 03840 JC $+10,43 3 DFCF 03840
* 005174 3000521322 03850 JC $+15,18 8 DFCF 03850
* 005201 3000007560 03860 ER75 JD 075 DFCF 03860
* 005206 3000165300 03870 JC START DFCF 03870
* 005213 3000522026 03880 JC $+5,22 DFCF 03880
005220 2000764470 03890 FT WRIM,56 6 SET UP TO WRITE 255 CHAR. DFCF 03890 P
005225 4600143771 03900 BT UTH,57 DFCF 03900
005232 6400034160 03910 LS 0341,06060 DFCF 03910
005237 4400034077 03920 SC 0340,07777 DFCF 03920
* 005244 1000644726 03930 JR CLEAR,2222 DFCF 03930
005251 4140625000 03940 W256 XF 062,0500000,0,6 DFCF 03940
005256 2001024470 03950 FT RDIM,56 6 DFCF 03950
005263 4400034000 03960 SC 0340,0 DFCF 03960
005270 6400034140 03970 LS 0341,04040 DFCF 03970
005275 4140614000 03980 R2SE XF 061,0400000,0,6 DFCF 03980
005302 5601024704 03990 BA1 RDIM+3,4,4 DFCF 03990
005307 5601051503 04000 BA1 RDIM+16969,3 DFCF 04000
005314 5601064201 04010 BA1 RDIM+25454,1 DFCF 04010
005321 7000142344 04020 CB1 SVO,4 DFCF 04020
* 005326 3000534542 04030 JC $+15,34 4 DFCF 04030
* 005333 3000010060 04040 ER100 JD 0100 WRITE 255 CHAR OR DFCF 04040
* 005340 3000165300 04050 JC START READ 2 SECTORS INCORR. DFCF 04050
005345 3401064300 04060 CC RDIM+25555,0 DFCF 04060
* 005352 3000537142 04070 JC $+15,34 4 DFCF 04070
* 005357 3000010160 04080 ER101 JD 0101 CHCHAR 256 NOT ZERO DFCF 04080
* 005364 3000165300 04090 JC START DFCF 04090
005371 2000764470 04100 FT WRIM,56 6 WRITE 2 CHAR DFCF 04100
005376 4600143771 04110 BT UTH,57 DFCF 04110
* 005403 1000644700 04120 JR CLEAR DFCF 04120
005410 6400034140 04130 LS 0341,04040 DFCF 04130
005415 4400034000 04140 SC 0340,0 DFCF 04140
005422 4140625000 04150 W2CH XF 062,0500000,0,6 DFCF 04150
005427 6400034120 04160 LS 0341,02020 WRITE 3 CHAR DFCF 04160
005434 6000034701 04170 AC 0347,01 1 DFCF 04170
* 005441 3000544622 04180 JC $+5,18 DFCF 04180
005446 4140025000 04190 W3CH XF 02,0500000,0,6 DFCF 04190
* 005453 3000545365 04200 JC $,53 DFCF 04200
005460 2001024470 04210 FT RDIM,56 6 READ 3 CHAR DFCF 04210
005465 6400034160 04220 LS 0341,06060 DFCF 04220
005472 4140615000 04230 R3CH XF 061,0500000,0,6 DFCF 04230
005477 5601024603 04240 BA1 RDIM+2,3,3 DFCF 04240
005504 7000142343 04250 CB1 SVO,3 DFCF 04250
* 005511 3000553042 04260 JC $+15,34 4 DFCF 04260
* 005516 3000012060 04270 ER120 JD 0120 DFCF 04270
* 005523 3000165300 04280 JC START DFCF 04280
005530 5601025002 04290 BA1 RDIM+4,2,2 DFCF 04290
005535 5601051301 04300 BA1 RDIM+16767,1 DFCF 04300
005542 7000142742 04310 CB1 OSV,2 DFCF 04310
* 005547 1000644700 04320 JR CLEAR DFCF 04320
* 005554 3000557342 04330 JC $+15,34 4 DFCF 04330
* 005561 3000012160 04340 ER121 JD 0121 DFCF 04340
* 005566 3000165300 04350 JC START DFCF 04350
005573 5400034147 04360 LP 0341,04747 DFCF 04360
005600 4600143771 04370 BT UTH,57 DFCF 04370
005605 4140614000 04380 R2SEC XF 061,0400000,0,6 DFCF 04380
005612 5601024502 04390 BA1 RDIM+1,2,2 DFCF 04390
005617 7000142342 04400 CB1 SVO,2 DFCF 04400
* 005624 3000564342 04410 JC $+15,34 4 DFCF 04410
* 005631 3000012260 04420 ER122 JD 0122 2 CH WRITE OR 2 SECTOR DFCF 04420
* 005636 3000165300 04430 JC START READ ERROR DFCF 04430
005643 5601024702 04440 BA1 RDIM+3,2,2 DFCF 04440
005650 5601051301 04450 BA1 RDIM+16767,1 DFCF 04450
005655 7000144342 04460 CB1 ZERO,2 DFCF 04460
* 005662 3000570142 04470 JC $+15,34 4 NON DFCF 04470
* 005667 3000012360 04480 ER123 JD 0123 ZERO ON 2 CH WRITE DFCF 04480
* 005674 3000165300 04490 JC START DFCF 04490
005701 5601052002 04500 BA1 RDIM+17272,2 DFCF 04500
005706 5601064301 04510 BA1 RDIM+25555,1 DFCF 04510
005713 7000144342 04520 CB1 ZERO,2 DFCF 04520
* 005720 3000610342 04530 JC ER125+1010,34 ZERO FILL ER ON DFCF 04530
* 005725 3000012460 04540 ER124 JD 0124 3 CHAR WRITE DFCF 04540
* 005732 3000165300 04550 JC START DFCF 04550
005737 4400034100 04560 SC 0341,0 DFCF 04560
005744 2000764470 04570 FT WRIM,56 6 DFCF 04570
005751 4600143771 04580 BT UTH,57 DFCF 04580
005756 6000034601 04590 AC 0346,1 DFCF 04590
005763 6400034120 04600 LS 0341,02020 DFCF 04600
005770 4140660000 04610 WH1 XF 066,0,0,0,6 WRITE 1 SECTOR ON HEAD 1,SECTOR ZERO DFCF 04610 T
005775 5400034117 04620 LP 0341,01717 ERASE LOW ORDER COUNT BITS DFCF 04620 E
006002 2001024470 04630 FT RDIM,56 6 DFCF 04630
006007 4600143771 04640 BT UTH,57 DFCF 04640
006014 6400034140 04650 LS 0341,04040 SET COUNT TO 1 DFCF 04650 C
* 006021 1000644722 04660 JR CLEAR,1818 DFCF 04660
006026 4140050000 04670 RS77 XF 05,0,0,6,6 POSIT. AND READ SECTOR 64 OF UTHS DFCF 04670 T
* 006033 3000603365 04680 JC $,53 DFCF 04680
006040 5601024704 04690 BA1 RDIM+3,4,4 DFCF 04690
006045 5601051503 04700 BA1 RDIM+16969,3 DFCF 04700
006052 5601064301 04710 BA1 RDIM+25555,1 DFCF 04710
006057 7000142344 04720 CB1 SVO,4 DFCF 04720
* 006064 3000610342 04730 JC $+15,34 4 DFCF 04730
* 006071 3000012560 04740 ER125 JD 0125 HEHEAD 0, SECT. 77 GOT CHANGED DFCF 04740 S
* 006076 3000165300 04750 JC START DFCF 04750
006103 2001024470 04760 FT RDIM,56 6 DFCF 04760
006110 4400034000 04770 SC 0340,0 DFCF 04770
006115 6400034120 04780 LS 0341,02020 DFCF 04780
* 006122 1000644700 04790 JR CLEAR DFCF 04790
006127 4140624000 04800 FE125 XF 062,0400000,0,6 DFCF 04800
006134 4140634000 04810 FX125 XF 063,0400000,0,6 DFCF 04810
006141 3401051414 04820 CC RDIM+16868,014 DFCF 04820
* 006146 3000640643 04830 JU ER126 DFCF 04830
006153 3401051563 04840 CC RDIM+16969,063 DFCF 04840
* 006160 3000642043 04850 JU ER127 DFCF 04850
006165 4400034777 04860 SC 0347,63 3 SET 77 TO SECTOR ADDRESS DFCF 04860 7
006172 6000034352 04870 AC 0343,05252 DFCF 04870
006177 6000034202 04880 AC 0342,02 2 DFCF 04880
006204 5400034107 04890 LP 0341,07 7 DFCF 04890
006211 7400035370 04900 CT 0353,56 6 DFCF 04900
* 006216 3000643243 04910 JU ER131 DFCF 04910
* 006223 1000644722 04920 JR CLEAR,1818 CLEAR RDIM TO 07 DFCF 04920
006230 4401024470 04930 SC RDIM,07070 CHANGE FIRST CH. TO WRITE DFCF 04930
006235 2001024470 04940 FT RDIM,56 6 LONG OF 00 DFCF 04940
006242 6400034120 04950 LS 0341,02020 DFCF 04950
006247 4140624000 04960 FE132 XF 062,0400000,0,6 WRT 1 SECTOR DFCF 04960
006254 4401024400 04970 SC RDIM,0 CLEAR RDIM DFCF 04970
006261 4140034000 04980 FX132 XF 03,0400000,0,6 DFCF 04980
* 006266 3000626665 04990 JC $,53 LOOP TILL IPT DFCF 04990
006273 3401024470 05000 CC RDIM,07070 DFCF 05000
* 006300 3000631742 05010 JC $+15,34 4 DFCF 05010
* 006305 3000013260 05020 ER132 JD 0132 DATA ERROR ON DFCF 05020
* 006312 3000165300 05030 JC START READ RECOVERY DFCF 05030
006317 3401051414 05040 CC RDIM+16868,014 DFCF 05040
* 006324 3000634342 05050 JC $+15,34 4 DFCF 05050
* 006331 3000013360 05060 ER133 JD 0133 SENTINEL ERROR DFCF 05060
* 006336 3000165300 05070 JC START DFCF 05070
006343 3401051514 05080 CC RDIM+16969,014 DFCF 05080
* 006350 3000636742 05090 JC $+15,34 4 DFCF 05090
* 006355 3000013460 05100 ER134 JD 0134 LONG. PARIT CHAK ER DFCF 05100
* 006362 3000165300 05110 JC START SHOULD BE 00 DFCF 05110
* 006367 3000165362 05120 JC START,5050 DFCF 05120
* 006374 3000077760 05130 JD 0777 E END RUN FOR CURRENT UNIT DFCF 05130
* 006401 3000742000 05140 J UNOTN DFCF 05140
* 006406 3000012660 05150 ER126 JD 0126 PHASE 1 DFCF 05150
* 006413 3000165300 05160 JC START DFCF 05160
* 006420 3000012760 05170 ER127 JD 0127 LONG. PARITY DFCF 05170
* 006425 3000165300 05180 JC START DFCF 05180
* 006432 3000013160 05190 ER131 JD 0131 T 58 DFCF 05190
* 006437 3000165300 05200 JC START NOT INCR. DFCF 05200
* 006444 3000000000 05210 CLEAR JC 0 DFCF 05210
006451 4401024407 05220 SC RDIM,07 7 CLEAR READ AREA DFCF 05220
006456 2000040422 05230 FT 260,18 DFCF 05230
006463 2001024520 05240 FT RDIM+1,1,16 DFCF 05240
006470 2401024401 05250 TFR RDIM DFCF 05250
* 006475 3000644400 05260 JC CLEAR DFCF 05260
* 006502 3000000000 05270 COMP JC 0 DFCF 05270
006507 5601024502 05280 BA1 RDIM+1,2,2 DFCF 05280
006514 5601051301 05290 BA1 RDIM+16767,1 DFCF 05290
006521 7000142342 05300 CB1 SVO,2 DFCF 05300
* 006526 3000650242 05310 JC COMP,34 4 DFCF 05310
* 006533 3000000560 05320 ER5 JD 05 DFCF 05320
* 006540 3000165300 05330 JC START DFCF 05330
* 006545 3000655200 05340 IPT0 J RST0 DFCF 05340
006552 4000001000 05350 RST0 XF 0,01000,0,0,0 DFCF 05350
* 006557 3000040053 05360 JC 0400,43 3 DFCF 05360
006564 4000407777 05370 XF 040,0777777,0,0 DFCF 05370
006571 5600764303 05380 BA1 FIVE,3 DFCF 05380
006576 7200040343 05390 SB1 0403,3 DFCF 05390
* 006603 3000040000 05400 J 0400 DFCF 05400
006610 5600741714 05410 IPT6 BA1 H33,12 DFCF 05410
006615 5200752314 05420 SA1 I6+19,1212 DFCF 05420
006622 4140000001 05430 XF 00,0000101,0,6 DFCF 05430
* 006627 1000712353 05440 JR D1,43 DFCF 05440
006634 4140000002 05450 XF 00,0000202,0,6 DFCF 05450
* 006641 1000714253 05460 JR D2,43 DFCF 05460
006646 4140000004 05470 XF 00,0000404,0,6 DFCF 05470
* 006653 1000716153 05480 JR D3,43 DFCF 05480
006660 4140000010 05490 XF 00,0001010,0,6 DFCF 05490
* 006665 1000720053 05500 JR D4,43 DFCF 05500
006672 4140000020 05510 XF 00,0002020,0,6 DFCF 05510
* 006677 1000721753 05520 JR D5,43 DFCF 05520
006704 4140000040 05530 XF 00,0004040,0,6 DFCF 05530
* 006711 1000723653 05540 JR D6,43 DFCF 05540
006716 4140000100 05550 XF 00,0010000,0,6 DFCF 05550
* 006723 1000725553 05560 JR D7,43 DFCF 05560
006730 4140000200 05570 XF 00,0020000,0,6 DFCF 05570
* 006735 1000727453 05580 JR D8,43 DFCF 05580
006742 4140000400 05590 XF 00,0040000,0,6 DFCF 05590
* 006747 1000731353 05600 JR D9,43 DFCF 05600
006754 4140001000 05610 XF 00,0100000,0,6 DFCF 05610
* 006761 1000733253 05620 JR D10,43 DFCF 05620
006766 4140002000 05630 XF 00,0200000,0,6 DFCF 05630
* 006773 1000735153 05640 JR D11,43 DFCF 05640
007000 4140004000 05650 XF 00,0400000,0,6 DFCF 05650
* 007005 1000737053 05660 JR D12,43 DFCF 05660
007012 2000750040 05670 FT I6,32 DFCF 05670
007017 4400020702 05680 SC 0207,2 DFCF 05680
* 007024 3000711366 05690 JC OUT,54 IGNORE IPT ON IND2 DFCF 05690 G
007031 4140007777 05700 XF 0,07777,7,0,6 DFCF 05700
* 007036 3000705053 05710 JC $+10,43 3 DFCF 05710
* 007043 3000711300 05720 J OUT DFCF 05720
007050 4000620400 05730 XF 062,0040400,0,0 DFCF 05730
007055 4140407777 05740 RSI XF 040,0777777,0,6 DFCF 05740
* 007062 3000710164 05750 JC CY,52 DFCF 05750
* 007067 3000006660 05760 ER66 JD 066 DFCF 05760
* 007074 3000165331 05770 JC START,03031 DFCF 05770
007101 5600764303 05780 CY BA1 FIVE,3 DFCF 05780
007106 7200046343 05790 SB1 0463,3 DFCF 05790
* 007113 3000046025 05800 OUT JC 0460,21 1 DFCF 05800
* 007120 3000000000 05810 D1 J 0 DFCF 05810
007125 4400751004 05820 SC I6+8,04 4 DFCF 05820
* 007132 3000712000 05830 J D1 DFCF 05830
* 007137 3000000000 05840 D2 J 0 DFCF 05840
007144 4400751104 05850 SC I6+9,04 4 DFCF 05850
* 007151 3000713700 05860 J D2 DFCF 05860
* 007156 3000000000 05870 D3 J 0 DFCF 05870
007163 4400751204 05880 SC I6+10,0404 DFCF 05880
* 007170 3000715600 05890 J D3 DFCF 05890
* 007175 3000000000 05900 D4 J 0 DFCF 05900
007202 4400751304 05910 SC I6+11,0404 DFCF 05910
* 007207 3000717500 05920 J D4 DFCF 05920
* 007214 3000000000 05930 D5 J 0 DFCF 05930
007221 4400751404 05940 SC I6+12,0404 DFCF 05940
* 007226 3000721400 05950 J D5 DFCF 05950
* 007233 3000000000 05960 D6 J 0 DFCF 05960
007240 4400751504 05970 SC I6+13,0404 DFCF 05970
* 007245 3000723300 05980 J D6 DFCF 05980
* 007252 3000000000 05990 D7 J 0 DFCF 05990
007257 4400751604 06000 SC I6+14,0404 DFCF 06000
* 007264 3000725200 06010 J D7 DFCF 06010
* 007271 3000000000 06020 D8 J 0 DFCF 06020
007276 4400751704 06030 SC I6+15,0404 DFCF 06030
* 007303 3000727100 06040 J D8 DFCF 06040
* 007310 3000000000 06050 D9 J 0 DFCF 06050
007315 4400752004 06060 SC I6+16,0404 DFCF 06060
* 007322 3000731000 06070 J D9 DFCF 06070
* 007327 3000000000 06080 D10 J 0 DFCF 06080
007334 4400752104 06090 SC I6+17,0404 DFCF 06090
* 007341 3000732700 06100 J D10 DFCF 06100
* 007346 3000000000 06110 D11 J 0 DFCF 06110
007353 4400752204 06120 SC I6+18,0404 DFCF 06120
* 007360 3000734600 06130 J D11 DFCF 06130
* 007365 3000000000 06140 D12 J 0 DFCF 06140
007372 4400752304 06150 SC I6+19,0404 DFCF 06150
* 007377 3000736500 06160 J D12 DFCF 06160
007413 0303030303030303 06170 +8 0030303030303030303 DFCF 06170 3
007417 03030303 06180 H33 +4 00303030303 DFCF 06180
007420 5600747101 06190 UNOTN BA1 UTH0N-1,1,1 DFCF 06190
007425 7000747241 06200 CB1 UTH0N,1 1 DFCF 06200
* 007432 3000744443 06210 JU INCU DFCF 06210
* 007437 3000154500 06220 J STRT REINITALIZE DFCF 06220 A
007444 6000001704 06230 INCU AC 017,4 DFCF 06230
007451 5200747101 06240 SA1 UTH0N-1,1,1 DFCF 06240
* 007456 3000161000 06250 J RETN DFCF 06250
007463 00 06260 UNITL +1 00 LOWER UNIT DFCF 06260
007464 00 06270 UNITU +1 00 UPPER UNIT DFCF 06270
007472 000000000000 06280 UTH0N +6 00 FOR DFC DFCF 06280
007500 06290 ORIG $,64 DFCF 06290
007500 00 06300 I6 +1 0 DFCF 06300
007507 IPT6 06310 +7 _ IPT6 6 _ DFCF 06310
007510 70 06320 AREA 56,B,0 DFCF 06320
007600 00 06330 KY +1 0 DFCF 06330
* 007601 3000760160 06340 IPT1 JD IPT1 DFCF 06340
007610 007601 06350 +3 IPT1 DFCF 06350
* 007611 3000000260 06360 I2 JD 2 DFCF 06360
007620 007611 06370 IE2 +3 I2 DFCF 06370
* 007621 3000000031 06380 JC 0,25 DFCF 06380
007630 006545 06390 IE0 +3 IPT0 DFCF 06390
* 007631 3000000031 06400 JC 0,25 DFCF 06400
007640 006610 06410 IE6 +3 IPT6 DFCF 06410
007643 000005 06420 FIVE +3 0000005 5 DFCF 06420
007644 400 06430 WRIM AREA 256,B,07070 DFCF 06430
010244 400 06440 RDIM AREA 256 DFCF 06440
3000154500 06450 END STRT DFCF 06450
{-- tape mark --}
010167 C461 PR4K CODEDIT SOURCE A T3834394-46
001500 00010 T460 BEGIN 01500 J J5 PROCESSOR FUNCT. 6 LOADS FROM CARDS PR4K 00010 E
*LOAD 0700,TAPAPE,,PRELD L
* 001500 3007010660 * JD 070106 *
* 001505 3000150000 * J $-5 *
SEGMENT-ID T461 3000150000 * 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 T462 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 7020004642 * CB1 38,2,1 *
* 001072 3020004042 * JE 32,1 *
* 001077 3007010560 * JD 070105 *
* 001104 3020004000 * J 32,1 *
001111 245 * AREA 165 *
SEGMENT-ID T463 3000135600 * SEGJP $ *
001500 000101 ORIG 01500 000101
* 001500 3000150020 00020 PIE JC $,16 PR4K 00020
001507 000400 00030 +3 256 PR4K 00030
* 001510 3000151031 00040 RIE JC $,25 PR4K 00040
001517 000410 00050 +3 264 PR4K 00050
* 001520 3000152022 00060 PARIE JC $,18 PR4K 00060
001527 000500 00070 +3 320 PR4K 00070
* 001530 3000153023 00080 DOFIE JC $,19 PR4K 00080
001537 000510 00090 +3 328 PR4K 00090
001540 00 00100 K02 +1 000 PR4K 00100
001542 0042 00110 K03 +2 00042 PR4K 00110
001546 47245345 00120 K04 +4 04724534345 PR4K 00120
001551 407754 00130 K05 +3 0407754 4 PR4K 00130
001553 7240 00140 K06 +2 07240 PR4K 00140
001555 1317 00150 K07 +2 01317 PR4K 00150
001565 4041424450603740 00160 K08 +8 0404142424450603740 PR4K 00160 7
001575 0262414244506037 00170 K09 +8 0026241414244506037 PR4K 00170 0
001603 030200036263 00180 K11 +6 003020000036263 PR4K 00180
001605 5225 00190 K12 +2 05225 PR4K 00190
001615 0500171412001317 00200 +8 0050017171412001317 PR4K 00200 3
001625 0001020410001740 00210 K13 +8 0000102020410001740 PR4K 00210 7
001631 07775264 00220 K14 +4 00777526264 PR4K 00220
001635 60021740 00230 K15 +4 06002174740 PR4K 00230
001636 40 00240 K16 +1 040 PR4K 00240
001640 6203 00250 K17 +2 06203 PR4K 00250
001642 4042 00260 K18 +2 04042 PR4K 00260
001644 4022 00270 K19 +2 04022 PR4K 00270
001646 4012 00280 K21 +2 04012 PR4K 00280
001650 4006 00290 K22 +2 04006 PR4K 00290
001652 4000 00300 K23 +2 04000 PR4K 00300
001654 4003 00310 K24 +2 04003 PR4K 00310
001656 4037 00320 K25 +2 04037 PR4K 00320
001660 4057 00330 K26 +2 04057 PR4K 00330
001662 4067 00340 K27 +2 04067 PR4K 00340
001664 4073 00350 K28 +2 04073 PR4K 00350
001666 4075 00360 K29 +2 04075 PR4K 00360
001670 4076 00370 K31 +2 04076 PR4K 00370
001674 00004263 00380 K32 +4 00000426263 PR4K 00380
001700 00000063 00390 K33 +4 00000006063 PR4K 00390
001705 0000626300 00400 AC1 +5 0000062626300 PR4K 00400
001706 00 00410 AC2 +1 000 PR4K 00410
001711 010001 00420 PAT +3 0010001 1 PR4K 00420
001714 010100 00430 CON +3 0010100 0 PR4K 00430
001717 020101 00440 ANS +3 0020101 1 PR4K 00440
001727 0200010302010003 00450 NEED +8 0020001010302010003 PR4K 00450 0
001736 02030201030001 00460 PAT2 +7 00203020201030001 PR4K 00460 1
001745 01030200000102 00470 MORE +7 00103020200000102 PR4K 00470 2
001755 0303020203010100 00480 CON2 +8 0030302020203010100 PR4K 00480 1
001765 0303030302020206 00490 SPCE +8 0030303030302020206 PR4K 00490 2
001774 05050404040101 00500 ANS2 +7 00505040404040101 PR4K 00500 1
002003 00040406060202 00510 PAT3 +7 00004040406060202 PR4K 00510 2
002012 04000406020602 00520 CON3 +7 00400040406020602 PR4K 00520 2
002021 04041014101004 00530 ANS3 +7 00404101014101004 PR4K 00530 4
002030 00101014041404 00540 PAT4 +7 00010101014041404 PR4K 00540 4
002037 10001014140404 00550 CON4 +7 01000101014140404 PR4K 00550 4
002046 10102030202010 00560 ANS4 +7 01010203030202010 PR4K 00560 0
002055 00202030103010 00570 PAT5 +7 00020203030103010 PR4K 00570 0
002064 20002030301010 00580 CON5 +7 02000203030301010 PR4K 00580 0
002073 20204060404020 00590 ANS5 +7 02020406060404020 PR4K 00590 0
002102 00404060206020 00600 PAT6 +7 00040406060206020 PR4K 00600 0
002111 40004060602020 00610 CON6 +7 04000406060602020 PR4K 00610 0
002120 40410141010040 00620 ANS6 +7 04041014141010040 PR4K 00620 0
002124 75317000 00630 AB1 +4 07531700000 PR4K 00630
002130 72636000 00640 AB2 +4 07263600000 PR4K 00640
002134 31100500 00650 AB3 +4 03110050500 PR4K 00650
002140 62201200 00660 AB4 +4 06220120200 PR4K 00660
002141 0 00670 WORK +1 _0_ PR4K 00670
002151 01234567 00680 DEC2 +8 _0123456567_ PR4K 00680
002161 89134574 00690 DEC1 +8 _8913457574_ PR4K 00690
002162 63 00700 K34 +1 063 PR4K 00700
002163 13 00710 K35 +1 013 PR4K 00710
002166 630507 00720 K36 +3 0630507 7 PR4K 00720
002170 6303 00730 K37 +2 06303 PR4K 00730
002172 0403 00740 K38 +2 00403 PR4K 00740
002173 1 00750 K39 +1 _1_ PR4K 00750
002174 K 00760 K41 -1 _2_ PR4K 00760
002176 2L 00770 K42 -2 _23_ PR4K 00770
002201 276 00780 K43 +3 _276_ PR4K 00780
002205 345O 00790 K44 -4 _3456_ PR4K 00790
002211 6789 00800 K45 +4 _6789_ PR4K 00800
002221 2346278M 00810 K46 -8 _2346278784_ PR4K 00810
002231 97531024 00820 K47 +8 _9753102024_ PR4K 00820
002241 6896745K 00830 K48 -8 _6896745452_ PR4K 00830
002251 67264662 00840 K49 +8 _6726466662_ PR4K 00840
002261 1623084Q 00850 K51 -8 _1623084848_ PR4K 00850
002271 56127842 00860 +8 _5612784842_ PR4K 00860
002301 73573785 00870 K52 +8 _7357378785_ PR4K 00870
002311 22947722 00880 +8 _2294772722_ PR4K 00880
002321 3139922� 00890 K53 -8 _3139922220_ PR4K 00890
002323 2P 00900 K54 -2 _27_ PR4K 00900
002325 09 00910 K55 +2 _09_ PR4K 00910
002331 105P 00920 K56 -4 _1057_ PR4K 00920
002335 005K 00930 K57 -4 _0052_ PR4K 00930
002344 1234565 00940 K58 +7 _123456565_ PR4K 00940
002353 032358M 00950 K59 -7 _032358484_ PR4K 00950
002363 0000000000000000 00960 +8 0000000000000000000 PR4K 00960 0
002373 0000000000000000 00970 ZERO +8 0000000000000000000 PR4K 00970 0
002403 0100000000000000 00980 +8 0010000000000000000 PR4K 00980 0
002413 0000000000000000 00990 FAILS +8 0000000000000000000 PR4K 00990 0
002423 2020000000200000 01000 +8 0202000000000200000 PR4K 01000 0
002433 0000000000000000 01010 OKAYS +8 0000000000000000000 PR4K 01010 0
002443 0000000000000000 01020 IND +8 0000000000000000000 PR4K 01020 0
002453 0000000000000000 01030 PROD +8 0000000000000000000 PR4K 01030 0
002463 6605036305040000 01040 +8 0660503636305040000 PR4K 01040 0
002467 00000000 01050 +4 00000000000 PR4K 01050
002477 0000002454040000 01060 +8 0000000202454040000 PR4K 01060 0
002507 0000000000000000 01070 +8 0000000000000000000 PR4K 01070 0
002517 0000002454030000 01080 +8 0000000202454030000 PR4K 01080 0
002520 3 01090 K61 +1 _3_ PR4K 01090
002530 48812944 01100 K62 +8 _4881294944_ PR4K 01100
002537 6498396 01110 +7 _649839696_ PR4K 01110
002540 40 01120 K01 +1 040 PR4K 01120
002547 63124441414163 01130 +7 06312444441414163 PR4K 01130 3
002557 7377200777777756 01140 K63 +8 0737720000777777756 PR4K 01140 7
002561 0000 01150 +2 00000 PR4K 01150
002564 099 01160 +3 _099_ PR4K 01160
002574 99999999 01170 K64 +8 _9999999999_ PR4K 01170
002577 112 01180 +3 _112_ PR4K 01180
002607 34567890 01190 K65 +8 _3456789890_ PR4K 01190
002612 000000 01191 LDSWT +3 0 PR4K 01191
* 002613 3000263260 01192 CARD JD NINTY 90 COL, _M_ AND _START_ IF 90 CARD PR4K 01192 C
002620 4400261230 01193 SC LDSWT,03030 80 COL, _START_ IF 80 CARD PR4K 01193 C
* 002625 3000265600 01194 J CL27+5 IF 80 COL. CARD,LOAD SWITCH IS PR4K 01194 C
002632 4400261277 01195 NINTY SC LDSWT,07077 SET TO 030, IF 90,077 PR4K 01195
002637 4400773324 01196 SC LOAD2+2828,024 PR4K 01196
* 002644 3000265600 01197 J CL27+5 PR4K 01197
002651 4400771500 01198 CL27 SC LOAD2+1414,0 PR4K 01198
002656 2600272406 011985 PD 02724,6 6 PR4K 011985
002663 2600271700 01199 PD 02717,1616 PR4K 01199
* 002670 3000300000 011991 J MANST PR4K 011991
002675 2600001703 011992SEL1 PD 017,3 PR4K 011992
002702 7000030343 011993 CB1 0303,3 PR4K 011993
* 002707 3000261342 011994 JE CARD PR4K 011994
002714 4400261200 011995 SC LDSWT,0 0 IF TAPE LOAD SWITCH IS SET TO 0 PR4K 011995T
* 002721 3000265100 011996 J CL27 PR4K 011996
002700 01200 PTMP EQU 02700 PR4K 01200
002726 52 01210 AREA 42,B,0 PR4K 01210
003000 01220 ORIG 03000 PR4K 01220
003000 5600151700 01230 MANST BA1 PIE+15,1,16 PR4K 01230
003005 5200041700 01240 SA1 271,16 PR4K 01240
003012 5600153700 01250 BA1 PARIE+1515,16 PR4K 01250
003017 5200051700 01260 SA1 335,16 PR4K 01260
* 003024 3000767760 01270 JD LOAD2 PR4K 01270
* 003031 3000330300 01280 JC RERUN,0 0 PR4K 01280
* 003036 3000303600 01290 EXIT J EXIT PR4K 01290
003043 6000304105 01300 AC EXIT+3,5,5 PR4K 01300
003050 4600304130 01310 BT EXIT+3,2,24 PR4K 01310
003055 4200307230 01320 ST NEXT+3,2,24 PR4K 01320
* 003062 3000307400 01330 JC $+10,0 PR4K 01330
* 003067 3000306700 01340 NEXT J NEXT PR4K 01340
* 003074 3000320265 01350 JC FAIL,53 3 PR4K 01350
* 003101 3000320266 01360 JC FAIL,54 4 PR4K 01360
* 003106 3000320267 01370 JC FAIL,55 5 PR4K 01370
* 003113 3000237352 01380 JC ZERO,42 2 PR4K 01380
* 003120 3000312062 01390 REP JC REP,50 PR4K 01390
003125 4600307230 01400 BT NEXT+3,2,24 PR4K 01400
003132 4200312330 01410 ST REP+3,2424 PR4K 01410
* 003137 3000306700 01420 J NEXT PR4K 01420
* 003144 3000314400 01430 ER1 J $ PR4K 01430
* 003151 3000314424 01440 JC ER1,20 PR4K 01440
* 003156 3000315600 01450 ER2 J $ PR4K 01450
* 003163 3000317024 01460 JC $+5,20 PR4K 01460
003170 4600316130 01470 BT ER2+3,2424 PR4K 01470
003175 4200307230 01480 ST NEXT+3,2,24 PR4K 01480
003202 6000241201 01490 FAIL AC FAILS-1,1,1 PR4K 01490
003207 4600312330 01500 BT REP+3,2424 PR4K 01500
003214 4200323130 01510 ST STOP+3,2,24 PR4K 01510
* 003221 3000323362 01520 JC $+10,50 0 PR4K 01520
* 003226 3000322660 01530 STOP JC $,48 PR4K 01530
* 003233 3000324025 01540 JC $+5,21 PR4K 01540
* 003240 3000324526 01550 JC $+5,22 PR4K 01550
* 003245 3000325227 01560 JC $+5,23 PR4K 01560
* 003252 3000325736 01570 JC $+5,30 PR4K 01570
* 003257 3000326450 01580 JC $+5,40 PR4K 01580
* 003264 3000327154 01590 JC $+5,44 PR4K 01590
* 003271 3000311335 01600 JC REP-5,2929 PR4K 01600
003276 6000243301 01610 OKAY AC OKAYS,1 1 PR4K 01610
* 003303 1000307200 01620 RERUN JR NEXT,0 PR4K 01620
* 003310 1000304100 01630 JR EXIT,0 0 005114J1 PR4K 01630 1
* 003315 1000316100 01640 JR ER2,0 PR4K 01640
* 003322 1000304130 01650 JR EXIT,24 4 005114LU0 PR4K 01650 L
* 003327 1000316100 01660 JR ER2,0 PR4K 01660
* 003334 1000304121 01670 JR EXIT,17 7 005114LD0 PR4K 01670 L
* 003341 1000316100 01680 JR ER2,0 PR4K 01680
* 003346 3000335325 01690 JC $+5,21 0 013049J01 PR4K 01690 0
* 003353 3000336002 01700 JC $+5,2 PR4K 01700
* 003360 1000314765 01710 JR ER1,53 PR4K 01710
* 003365 1000307200 01720 JR NEXT,0 PR4K 01720
* 003372 3000337725 01730 JC $+5,21 0 013049LU0 PR4K 01730 U
* 003377 3000340426 01740 JC $+5,22 PR4K 01740
* 003404 1000314765 01750 JR ER1,53 PR4K 01750
* 003411 1000307200 01760 JR NEXT,0 PR4K 01760
* 003416 3000342325 01770 JC $+5,21 0 013049LD2 PR4K 01770 D
* 003423 3000343021 01780 JC $+5,17 PR4K 01780
* 003430 1000314765 01790 JR ER1,53 PR4K 01790
* 003435 1000307200 01800 JR NEXT,0 PR4K 01800
* 003442 3000344722 01810 JC $+5,18 0 013050J01 PR4K 01810 0
* 003447 3000345465 01820 JC $+5,53 PR4K 01820
* 003454 3000346665 01830 JC $+10,53 3 PR4K 01830
* 003461 1000314700 01840 JR ER1,0 PR4K 01840
* 003466 1000307225 01850 JR NEXT,21 1 PR4K 01850
* 003473 3000350022 01860 JC $+5,18 0 013050LU1 PR4K 01860 U
* 003500 3000350531 01870 JC $+5,25 PR4K 01870
* 003505 3000351765 01880 JC $+10,53 3 PR4K 01880
* 003512 1000314700 01890 JR ER1,0 PR4K 01890
* 003517 1000307225 01900 JR NEXT,21 1 PR4K 01900
* 003524 3000353122 01910 JC $+5,18 0 013050LD1 PR4K 01910 D
* 003531 3000353626 01920 JC $+5,22 PR4K 01920
* 003536 3000355065 01930 JC $+10,53 3 PR4K 01930
* 003543 1000314700 01940 JR ER1,0 PR4K 01940
* 003550 1000307225 01950 JR NEXT,21 1 PR4K 01950
* 003555 3000356226 01960 JC $+5,22 0 013053J01 PR4K 01960 0
* 003562 3000356703 01970 JC $+5,3 PR4K 01970
* 003567 1000314766 01980 JR ER1,54 PR4K 01980
* 003574 1000307200 01990 JR NEXT,0 PR4K 01990
* 003601 3000360626 02000 JC $+5,22 0 013053LU0 PR4K 02000 U
* 003606 3000361337 02010 JC $+5,31 PR4K 02010
* 003613 1000314766 02020 JR ER1,54 PR4K 02020
* 003620 1000307200 02030 JR NEXT,0 PR4K 02030
* 003625 3000363226 02040 JC $+5,22 0 013053LD3 PR4K 02040 D
* 003632 3000363721 02050 JC $+5,17 PR4K 02050
* 003637 1000314766 02060 JR ER1,54 PR4K 02060
* 003644 1000307200 02070 JR NEXT,0 PR4K 02070
* 003651 3000365623 02080 JC $+5,19 0 013054J01 PR4K 02080 0
* 003656 3000366306 02090 JC $+5,6 PR4K 02090
* 003663 3000367566 02100 JC $+10,54 4 PR4K 02100
* 003670 1000314700 02110 JR ER1,0 PR4K 02110
* 003675 1000307226 02120 JR NEXT,22 2 PR4K 02120
* 003702 3000370723 02130 JC $+5,19 0 013054LU1 PR4K 02130 U
* 003707 3000371436 02140 JC $+5,30 PR4K 02140
* 003714 3000372666 02150 JC $+10,54 4 PR4K 02150
* 003721 1000314700 02160 JR ER1,0 PR4K 02160
* 003726 1000307226 02170 JR NEXT,22 2 PR4K 02170
* 003733 3000374023 02180 JC $+5,19 0 013054LD2 PR4K 02180 D
* 003740 3000374525 02190 JC $+5,21 PR4K 02190
* 003745 3000375766 02200 JC $+10,54 4 PR4K 02200
* 003752 1000314700 02210 JR ER1,0 PR4K 02210
* 003757 1000307226 02220 JR NEXT,22 2 PR4K 02220
* 003764 3000377127 02230 JC $+5,23 0 013057J01 PR4K 02230 0
* 003771 3000377604 02240 JC $+5,4 PR4K 02240
* 003776 1000314767 02250 JR ER1,55 PR4K 02250
* 004003 1000307200 02260 JR NEXT,0 PR4K 02260
* 004010 3000401527 02270 JC $+5,23 0 013057LU1 PR4K 02270 U
* 004015 3000402230 02280 JC $+5,24 PR4K 02280
* 004022 1000314767 02290 JR ER1,55 PR4K 02290
* 004027 1000307200 02300 JR NEXT,0 PR4K 02300
* 004034 3000404127 02310 JC $+5,23 0 013057LD0 PR4K 02310 D
* 004041 3000404625 02320 JC $+5,21 PR4K 02320
* 004046 1000314767 02330 JR ER1,55 PR4K 02330
* 004053 1000307200 02340 JR NEXT,0 PR4K 02340
* 004060 3000406524 02350 JC $+5,20 0 013058J01 PR4K 02350 0
* 004065 3000407207 02360 JC $+5,7 PR4K 02360
* 004072 3000410467 02370 JC $+10,55 5 PR4K 02370
* 004077 1000314700 02380 JR ER1,0 PR4K 02380
* 004104 1000307227 02390 JR NEXT,23 3 PR4K 02390
* 004111 3000411624 02400 JC $+5,20 0 013058LU1 PR4K 02400 U
* 004116 3000412337 02410 JC $+5,31 PR4K 02410
* 004123 3000413567 02420 JC $+10,55 5 PR4K 02420
* 004130 1000314700 02430 JR ER1,0 PR4K 02430
* 004135 1000307227 02440 JR NEXT,23 3 PR4K 02440
* 004142 3000414724 02450 JC $+5,20 0 013058LD3 PR4K 02450 D
* 004147 3000415425 02460 JC $+5,21 PR4K 02460
* 004154 3000416667 02470 JC $+10,55 5 PR4K 02470
* 004161 1000314700 02480 JR ER1,0 PR4K 02480
* 004166 1000307227 02490 JR NEXT,23 3 PR4K 02490
* 004173 3000420016 02500 JC $+5,14 0 013064 PR4K 02500
* 004200 3000420517 02510 JC $+5,15 PR4K 02510
* 004205 1000304172 02520 JR EXIT,58 8 PR4K 02520
* 004212 1000316100 02530 JR ER2,0 PR4K 02530
* 004217 3000422417 02540 JC $+5,15 0 013063 PR4K 02540
* 004224 3000423116 02550 JC $+5,14 PR4K 02550
* 004231 1000314772 02560 JR ER1,58 PR4K 02560
* 004236 1000307200 02570 JR NEXT,0 PR4K 02570
* 004243 3000425016 02580 JC $+5,14 0 013064J00 PR4K 02580 0
* 004250 3000425537 02590 JC $+5,31 PR4K 02590
* 004255 1000314772 02600 JR ER1,58 PR4K 02600
* 004262 1000307200 02610 JR NEXT,0 PR4K 02610
* 004267 3000427416 02620 JC $+5,14 0 013064LU3 PR4K 02620 U
* 004274 3000430103 02630 JC $+5,3 PR4K 02630
* 004301 1000314772 02640 JR ER1,58 PR4K 02640
* 004306 1000307200 02650 JR NEXT,0 PR4K 02650
* 004313 3000432016 02660 JC $+5,14 0 013064LD3 PR4K 02660 D
* 004320 3000432515 02670 JC $+5,13 PR4K 02670
* 004325 1000314772 02680 JR ER1,58 PR4K 02680
* 004332 1000307200 02690 JR NEXT,0 PR4K 02690
* 004337 3000434417 02700 JC $+5,15 0 013063J00 PR4K 02700 0
* 004344 3000435140 02710 JC $+5,32 PR4K 02710
* 004351 1000304172 02720 JR EXIT,58 8 PR4K 02720
* 004356 1000316100 02730 JR ER2,0 PR4K 02730
* 004363 3000437017 02740 JC $+5,15 0 013063LU3 PR4K 02740 U
* 004370 3000437512 02750 JC $+5,10 PR4K 02750
* 004375 1000304172 02760 JR EXIT,58 8 PR4K 02760
* 004402 1000316100 02770 JR ER2,0 PR4K 02770
* 004407 3000441417 02780 JC $+5,15 0 013063LD2 PR4K 02780 D
* 004414 3000442114 02790 JC $+5,12 PR4K 02790
* 004421 1000304172 02800 JR EXIT,58 8 PR4K 02800
* 004426 1000316100 02810 JR ER2,0 PR4K 02810
004433 3400314400 02820 CC ER1,0 01013028JT PR4K 02820
* 004440 1000307200 02830 JR NEXT,0 PR4K 02830
* 004445 1000314740 02840 JR ER1,32 0 013028J2- PR4K 02840 2
* 004452 1000307200 02850 JR NEXT,0 PR4K 02850
* 004457 3000446424 02860 JC $+5,20 0 013046J1 PR4K 02860 1
* 004464 1000314747 02870 JR ER1,39 PR4K 02870
* 004471 1000307227 02880 JR NEXT,23 3 PR4K 02880
* 004476 3000450324 02890 JC $+5,20 0 013046LU1 PR4K 02890 U
* 004503 1000314773 02900 JR ER1,59 PR4K 02900
* 004510 1000307227 02910 JR NEXT,23 3 PR4K 02910
* 004515 3000452224 02920 JC $+5,20 0 013046LD3 PR4K 02920 D
* 004522 1000314764 02930 JR ER1,52 PR4K 02930
* 004527 1000307227 02940 JR NEXT,23 3 PR4K 02940
* 004534 3000454123 02950 JC $+5,19 0 013045J1 PR4K 02950 1
* 004541 1000314746 02960 JR ER1,38 PR4K 02960
* 004546 1000307226 02970 JR NEXT,22 2 PR4K 02970
* 004553 3000456023 02980 JC $+5,19 0 013045LU1 PR4K 02980 U
* 004560 1000314776 02990 JR ER1,62 PR4K 02990
* 004565 1000307226 03000 JR NEXT,22 2 PR4K 03000
* 004572 3000457723 03010 JC $+5,19 0 013045LD2 PR4K 03010 D
* 004577 1000314764 03020 JR ER1,52 PR4K 03020
* 004604 1000307226 03030 JR NEXT,22 2 PR4K 03030
* 004611 3000461622 03040 JC $+5,18 0 013044J1 PR4K 03040 1
* 004616 1000314745 03050 JR ER1,37 PR4K 03050
* 004623 1000307225 03060 JR NEXT,21 1 PR4K 03060
* 004630 3000463522 03070 JC $+5,18 0 013045LU1 PR4K 03070 U
* 004635 1000314775 03080 JR ER1,61 PR4K 03080
* 004642 1000307225 03090 JR NEXT,21 1 PR4K 03090
* 004647 3000465422 03100 JC $+5,18 0 013045LD1 PR4K 03100 D
* 004654 1000314764 03110 JR ER1,52 PR4K 03110
* 004661 1000307225 03120 JR NEXT,21 1 PR4K 03120
* 004666 3000161752 03130 JC HEREI,4242 013029 PR4K 03130 9
* 004673 1000304141 03140 JR EXIT,33 3 PR4K 03140
001557 03150 DH EQU K07+2 PR4K 03150
* 004700 1000316100 03160 JR ER2,0 PR4K 03160
* 004705 3000161752 03170 JC HEREI,4242 013029J1- PR4K 03170 9
* 004712 1000314761 03180 JR ER1,49 PR4K 03180
* 004717 1000307200 03190 JR NEXT,0 PR4K 03190
* 004724 3000161752 03200 JC HEREI,4242 013029LU0 PR4K 03200 9
* 004731 1000314755 03210 JR ER1,45 PR4K 03210
* 004736 1000307200 03220 JR NEXT,0 PR4K 03220
* 004743 3000161752 03230 JC HEREI,4242 013029LD1 PR4K 03230 9
* 004750 1000314742 03240 JR ER1,34 PR4K 03240
* 004755 1000307200 03250 JR NEXT,0 PR4K 03250
* 004762 3000161752 03260 JC HEREI,4242 013029EQ- PR4K 03260 9
* 004767 3000171552 03270 JC EQ,42 PR4K 03270
* 004774 1000314741 03280 JR ER1,33 PR4K 03280
* 005001 1000307200 03290 JR NEXT,0 PR4K 03290
* 005006 3000161752 03300 JC HEREI,4242 013029HI PR4K 03300 9
* 005013 3000201352 03310 JC AZ,42 PR4K 03310
* 005020 1000314741 03320 JR ER1,33 PR4K 03320
* 005025 1000307200 03330 JR NEXT,0 PR4K 03330
* 005032 3000171552 03340 JC EQ,42 01013030 PR4K 03340
* 005037 1000304142 03350 JR EXIT,34 4 PR4K 03350
* 005044 1000316100 03360 JR ER2,0 PR4K 03360
* 005051 3000507562 03370 JC $+20,50 0 013030J1- PR4K 03370 J
* 005056 3000171552 03380 JC EQ,42 PR4K 03380
* 005063 1000314762 03390 JR ER1,50 PR4K 03390
* 005070 1000307200 03400 JR NEXT,0 PR4K 03400
* 005075 3000171552 03410 JC EQ,42 01013030LU0 PR4K 03410 0
* 005102 1000314756 03420 JR ER1,46 PR4K 03420
* 005107 1000307200 03430 JR NEXT,0 PR4K 03430
* 005114 3000171552 03440 JC EQ,42 01013030LD2 PR4K 03440 2
* 005121 1000314743 03450 JR ER1,35 PR4K 03450
* 005126 1000307200 03460 JR NEXT,0 PR4K 03460
* 005133 3000171552 03470 JC EQ,42 01013030EQ PR4K 03470
* 005140 3000237352 03480 JC ZERO,42 2 PR4K 03480
* 005145 1000314742 03490 JR ER1,34 PR4K 03490
* 005152 1000307200 03500 JR NEXT,0 PR4K 03500
* 005157 3000237352 03510 JC ZERO,42 2 013031 PR4K 03510
* 005164 1000304143 03520 JR EXIT,35 5 PR4K 03520
* 005171 1000316100 03530 JR ER2,0 PR4K 03530
* 005176 3000237352 03540 JC ZERO,42 2 013031J1- PR4K 03540 J
* 005203 1000314763 03550 JR ER1,51 PR4K 03550
* 005210 1000307200 03560 JR NEXT,0 PR4K 03560
* 005215 3000237352 03570 JC ZERO,42 2 013031LU0 PR4K 03570 L
* 005222 1000314756 03580 JR ER1,46 PR4K 03580
* 005227 1000307200 03590 JR NEXT,0 PR4K 03590
* 005234 3000237352 03600 JC ZERO,42 2 013031LD3 PR4K 03600 L
* 005241 1000314742 03610 JR ER1,34 PR4K 03610
* 005246 1000307200 03620 JR NEXT,0 PR4K 03620
* 005253 3000237352 03630 JC ZERO,42 2 013031EQ- PR4K 03630 E
* 005260 3000171552 03640 JC EQ,42 PR4K 03640
* 005265 1000314743 03650 JR ER1,35 PR4K 03650
* 005272 1000307200 03660 JR NEXT,0 PR4K 03660
* 005277 3000237352 03670 JC ZERO,42 2 013032 PR4K 03670
* 005304 1000304144 03680 JR EXIT,36 6 PR4K 03680
* 005311 1000316100 03690 JR ER2,0 PR4K 03690
* 005316 3000237352 03700 JC ZERO,42 2 013032J1- PR4K 03700 J
* 005323 1000314764 03710 JR ER1,52 PR4K 03710
* 005330 1000307200 03720 JR NEXT,0 PR4K 03720
* 005335 3000237352 03730 JC ZERO,42 2 013032LU1 PR4K 03730 L
* 005342 1000314754 03740 JR ER1,44 PR4K 03740
* 005347 1000307200 03750 JR NEXT,0 PR4K 03750
* 005354 3000237352 03760 JC ZERO,42 2 013032LD0 PR4K 03760 L
* 005361 1000314745 03770 JR ER1,37 PR4K 03770
* 005366 1000307200 03780 JR NEXT,0 PR4K 03780
* 005373 3000237352 03790 JC ZERO,42 2 013032EQ- PR4K 03790 E
* 005400 3000171552 03800 JC EQ,42 PR4K 03800
* 005405 1000314744 03810 JR ER1,36 PR4K 03810
* 005412 1000307200 03820 JR NEXT,0 PR4K 03820
* 005417 3000171552 03830 JC EQ,42 01013032HI- PR4K 03830 -
* 005424 3000161752 03840 JC HEREI,4242 PR4K 03840
* 005431 1000314744 03850 JR ER1,36 PR4K 03850
* 005436 1000307200 03860 JR NEXT,0 PR4K 03860
* 005443 3000201352 03870 JC AZ,42 01013033 PR4K 03870
* 005450 1000304145 03880 JR EXIT,37 7 PR4K 03880
* 005455 1000316100 03890 JR ER2,0 PR4K 03890
* 005462 3000201352 03900 JC AZ,42 01013033J1- PR4K 03900 -
* 005467 1000314765 03910 JR ER1,53 PR4K 03910
* 005474 1000307200 03920 JR NEXT,0 PR4K 03920
* 005501 3000201352 03930 JC AZ,42 01013033LU1 PR4K 03930 1
* 005506 1000314741 03940 JR ER1,33 PR4K 03940
* 005513 1000307200 03950 JR NEXT,0 PR4K 03950
* 005520 3000201352 03960 JC AZ,42 01013033LD1 PR4K 03960 1
* 005525 1000314746 03970 JR ER1,38 PR4K 03970
* 005532 1000307200 03980 JR NEXT,0 PR4K 03980
* 005537 3000201352 03990 JC AZ,42 01013033AZ PR4K 03990
* 005544 3000171552 04000 JC EQ,42 PR4K 04000
* 005551 1000314745 04010 JR ER1,37 PR4K 04010
* 005556 1000307200 04020 JR NEXT,0 PR4K 04020
* 005563 3000203152 04030 JC AN,42 01013034 PR4K 04030
* 005570 1000304146 04040 JR EXIT,38 8 PR4K 04040
* 005575 1000316100 04050 JR ER2,0 PR4K 04050
* 005602 3000203152 04060 JC AN,42 01013034J1- PR4K 04060 -
* 005607 1000314766 04070 JR ER1,54 PR4K 04070
* 005614 1000307200 04080 JR NEXT,0 PR4K 04080
* 005621 3000203152 04090 JC AN,42 01013034LU1 PR4K 04090 1
* 005626 3000314442 04100 JC ER1,34 PR4K 04100
* 005633 1000307200 04110 JR NEXT,0 PR4K 04110
* 005640 3000203152 04120 JC AN,42 01013034LD2 PR4K 04120 2
* 005645 1000314745 04130 JR ER1,37 PR4K 04130
* 005652 1000307200 04140 JR NEXT,0 PR4K 04140
* 005657 3000203152 04150 JC AN,42 01013034AN PR4K 04150
* 005664 3000171552 04160 JC EQ,42 PR4K 04160
* 005671 1000314746 04170 JR ER1,38 PR4K 04170
* 005676 1000307200 04180 JR NEXT,0 PR4K 04180
* 005703 3000205652 04190 JC BOF,42 0 013035 PR4K 04190
* 005710 1000304147 04200 JR EXIT,39 9 PR4K 04200
* 005715 1000316100 04210 JR ER2,0 PR4K 04210
* 005722 3000205652 04220 JC BOF,42 0 013035J1- PR4K 04220 1
* 005727 1000314767 04230 JR ER1,55 PR4K 04230
* 005734 1000307200 04240 JR NEXT,0 PR4K 04240
* 005741 3000205652 04250 JC BOF,42 0 013035LU1 PR4K 04250 U
* 005746 1000314753 04260 JR ER1,43 PR4K 04260
* 005753 1000307200 04270 JR NEXT,0 PR4K 04270
* 005760 3000205652 04280 JC BOF,42 0 013035LD3 PR4K 04280 D
* 005765 1000314745 04290 JR ER1,37 PR4K 04290
* 005772 1000307200 04300 JR NEXT,0 PR4K 04300
* 005777 3000205652 04310 JC BOF,42 0 013035BOF- PR4K 04310 O
* 006004 3000171552 04320 JC EQ,42 PR4K 04320
* 006011 1000314747 04330 JR ER1,39 PR4K 04330
* 006016 1000307200 04340 JR NEXT,0 PR4K 04340
* 006023 3000163552 04350 JC DOF,42 1 125095 PR4K 04350
* 006030 3000604266 04360 JC $+10,54 4 PR4K 04360
* 006035 1000314700 04370 JR ER1,0 PR4K 04370
* 006042 1000307226 04380 JR NEXT,22 2 PR4K 04380
* 006047 3000163552 04390 JC DOF,42 0 013036 PR4K 04390
* 006054 3000606650 04400 JC $+10,40 0 PR4K 04400
* 006061 1000314700 04410 JR ER1,0 PR4K 04410
* 006066 1000307226 04420 JR NEXT,22 2 PR4K 04420
* 006073 3000163552 04430 JC DOF,42 0 013036J1- PR4K 04430 1
* 006100 1000314770 04440 JR ER1,56 PR4K 04440
* 006105 1000307226 04450 JR NEXT,22 2 PR4K 04450
* 006112 3000155752 04460 JC DH,42 01013036LU2 PR4K 04460 2
* 006117 1000314744 04470 JR ER1,36 PR4K 04470
* 006124 1000307226 04480 JR NEXT,22 2 PR4K 04480
* 006131 3000163552 04490 JC DOF,42 0 013036LD0 PR4K 04490 D
* 006136 1000314753 04500 JR ER1,43 PR4K 04500
* 006143 1000307226 04510 JR NEXT,22 2 PR4K 04510
* 006150 3000163552 04520 JC DOF,42 0 013036DOF,010151 PR4K 04520 O
* 006155 3000616250 04530 JC $+5,40 PR4K 04530
* 006162 1000314750 04540 JR ER1,40 PR4K 04540
* 006167 1000307226 04550 JR NEXT,22 2 PR4K 04550
* 006174 3000163552 04560 JC DOF,42 0 010151J2 PR4K 04560 2
* 006201 3000620626 04570 JC $+5,22 PR4K 04570
* 006206 3000621310 04580 JC $+5,8 PR4K 04580
* 006213 1000304150 04590 JR EXIT,40 0 PR4K 04590
* 006220 1000316100 04600 JR ER2,0 PR4K 04600
* 006225 3000163552 04610 JC DOF,42 0 010151J1- PR4K 04610 1
* 006232 3000623726 04620 JC $+5,22 PR4K 04620
* 006237 3000624470 04630 JC $+5,56 PR4K 04630
* 006244 1000304150 04640 JR EXIT,40 0 PR4K 04640
* 006251 1000316100 04650 JR ER2,0 PR4K 04650
* 006256 3000163552 04660 JC DOF,42 0 010151LU2 PR4K 04660 U
* 006263 3000627026 04670 JC $+5,22 PR4K 04670
* 006270 3000627544 04680 JC $+5,36 PR4K 04680
* 006275 1000304150 04690 JR EXIT,40 0 PR4K 04690
* 006302 1000316100 04700 JR ER2,0 PR4K 04700
* 006307 3000163552 04710 JC DOF,42 0 010151LD0 PR4K 04710 D
* 006314 3000632126 04720 JC $+5,22 PR4K 04720
* 006321 3000632653 04730 JC $+5,43 PR4K 04730
* 006326 3000634050 04740 JC $+10,40 0 PR4K 04740
* 006333 1000314700 04750 JR ER1,0 PR4K 04750
* 006340 1000307235 04760 JR NEXT,29 9 PR4K 04760
006345 4400244300 04770 SC IND,0 03037032 PR4K 04770
* 006352 3000161752 04780 JC HEREI,4242 PR4K 04780
* 006357 3000244351 04790 JC IND,41 PR4K 04790
006364 3400244301 04800 CC IND,1 PR4K 04800
001617 04810 HEREI EQU K13-6 PR4K 04810
* 006371 1000304142 04820 JR EXIT,34 4 PR4K 04820
* 006376 1000316100 04830 JR ER2,0 PR4K 04830
006403 4400244301 04840 SC IND,1 03037032HI PR4K 04840
* 006410 3000237352 04850 JC ZERO,42 2 PR4K 04850
* 006415 3000244351 04860 JC IND,41 PR4K 04860
006422 3400244300 04870 CC IND,0 PR4K 04870
* 006427 1000304142 04880 JR EXIT,34 4 PR4K 04880
* 006434 1000316100 04890 JR ER2,0 PR4K 04890
006441 4400244300 04900 SC IND,0 03037032JT PR4K 04900
* 006446 3000161752 04910 JC HEREI,4242 PR4K 04910
006453 3400244351 04920 CC IND,41 PR4K 04920
006460 3400244300 04930 CC IND,0 PR4K 04930
* 006465 1000304142 04940 JR EXIT,34 4 PR4K 04940
* 006472 1000316100 04950 JR ER2,0 PR4K 04950
006477 4400244300 04960 SC IND,0 03037031 PR4K 04960
* 006504 3000171552 04970 JC EQ,42 PR4K 04970
* 006511 3000244351 04980 JC IND,41 PR4K 04980
006516 3400244302 04990 CC IND,2 PR4K 04990
001715 05000 EQ EQU CON+1 PR4K 05000
* 006523 1000304142 05010 JR EXIT,34 4 PR4K 05010
* 006530 1000316100 05020 JR ER2,0 PR4K 05020
006535 4400244302 05030 SC IND,2 03037031EQ PR4K 05030
* 006542 3000237352 05040 JC ZERO,42 2 PR4K 05040
* 006547 3000244351 05050 JC IND,41 PR4K 05050
006554 3400244300 05060 CC IND,0 PR4K 05060
* 006561 1000304142 05070 JR EXIT,34 4 PR4K 05070
* 006566 1000316100 05080 JR ER2,0 PR4K 05080
006573 4400244300 05090 SC IND,0 03037031JT PR4K 05090
* 006600 3000171552 05100 JC EQ,42 PR4K 05100
006605 3400244351 05110 CC IND,41 PR4K 05110
006612 3400244300 05120 CC IND,0 PR4K 05120
* 006617 1000304142 05130 JR EXIT,34 4 PR4K 05130
* 006624 1000316100 05140 JR ER2,0 PR4K 05140
006631 4400244300 05150 SC IND,0 03037030 PR4K 05150
* 006636 3000201352 05160 JC AZ,42 PR4K 05160
* 006643 3000244351 05170 JC IND,41 PR4K 05170
006650 3400244304 05180 CC IND,4 PR4K 05180
002013 05190 AZ EQU CON3+1 PR4K 05190
* 006655 1000304142 05200 JR EXIT,34 4 PR4K 05200
* 006662 1000316100 05210 JR ER2,0 PR4K 05210
006667 4400244304 05220 SC IND,4 03037030AZ PR4K 05220
* 006674 3000237352 05230 JC ZERO,42 2 PR4K 05230
* 006701 3000244351 05240 JC IND,41 PR4K 05240
006706 3400244300 05250 CC IND,0 PR4K 05250
* 006713 1000304142 05260 JR EXIT,34 4 PR4K 05260
* 006720 1000316100 05270 JR ER2,0 PR4K 05270
006725 4400244300 05280 SC IND,0 03037030JT PR4K 05280
* 006732 3000201352 05290 JC AZ,42 PR4K 05290
006737 3400244351 05300 CC IND,41 PR4K 05300
006744 3400244300 05310 CC IND,0 PR4K 05310
* 006751 1000304142 05320 JR EXIT,34 4 PR4K 05320
* 006756 1000316100 05330 JR ER2,0 PR4K 05330
006763 4400244300 05340 SC IND,0 03036004 PR4K 05340
* 006770 3000203152 05350 JC AN,42 PR4K 05350
* 006775 3000244351 05360 JC IND,41 PR4K 05360
007002 3400244310 05370 CC IND,8 PR4K 05370
002031 05380 AN EQU PAT4+1 PR4K 05380
* 007007 1000304142 05390 JR EXIT,34 4 PR4K 05390
* 007014 1000316100 05400 JR ER2,0 PR4K 05400
007021 4400244310 05410 SC IND,8 03036004AN PR4K 05410
* 007026 3000237352 05420 JC ZERO,42 2 PR4K 05420
* 007033 3000244351 05430 JC IND,41 PR4K 05430
007040 3400244300 05440 CC IND,0 PR4K 05440
* 007045 1000304142 05450 JR EXIT,34 4 PR4K 05450
* 007052 1000316100 05460 JR ER2,0 PR4K 05460
007057 4400244300 05470 SC IND,0 03036004JT PR4K 05470
* 007064 3000203152 05480 JC AN,42 PR4K 05480
007071 3400244351 05490 CC IND,41 PR4K 05490
007076 3400244300 05500 CC IND,0 PR4K 05500
* 007103 1000304142 05510 JR EXIT,34 4 PR4K 05510
* 007110 1000316100 05520 JR ER2,0 PR4K 05520
007115 4400244300 05530 SC IND,0 03036003 PR4K 05530
* 007122 3000205652 05540 JC BOF,42 PR4K 05540
* 007127 3000244351 05550 JC IND,41 PR4K 05550
007134 3400244320 05560 CC IND,16 PR4K 05560
002056 05570 BOF EQU PAT5+1 PR4K 05570
* 007141 1000304142 05580 JR EXIT,34 4 PR4K 05580
* 007146 1000316100 05590 JR ER2,0 PR4K 05590
007153 4400244320 05600 SC IND,16 0 036003BOF PR4K 05600 O
* 007160 3000237352 05610 JC ZERO,42 2 PR4K 05610
* 007165 3000244351 05620 JC IND,41 PR4K 05620
007172 3400244300 05630 CC IND,0 PR4K 05630
* 007177 1000304142 05640 JR EXIT,34 4 PR4K 05640
* 007204 1000316100 05650 JR ER2,0 PR4K 05650
007211 4400244300 05660 SC IND,0 03036003JT PR4K 05660
* 007216 3000205652 05670 JC BOF,42 PR4K 05670
007223 3400244351 05680 CC IND,41 PR4K 05680
* 007230 3000171552 05690 JC EQ,42 PR4K 05690
007235 3400244300 05700 CC IND,0 PR4K 05700
* 007242 1000304142 05710 JR EXIT,34 4 PR4K 05710
* 007247 1000316100 05720 JR ER2,0 PR4K 05720
* 007254 3000163552 05730 JC DOF,42 036002 PR4K 05730
* 007261 3000727366 05740 JC $+10,54 4 PR4K 05740
* 007266 3000731200 05750 JC $+20,0 PR4K 05750
* 007273 3000244351 05760 JC IND,41 PR4K 05760
007300 3400244340 05770 CC IND,32 PR4K 05770
001635 05780 DOF EQU K15 PR4K 05780
* 007305 3000731742 05790 JC $+10,34 4 PR4K 05790
* 007312 1000314700 05800 JR ER1,0 PR4K 05800
* 007317 1000307226 05810 JR NEXT,22 2 PR4K 05810
* 007324 3000237352 05820 JC ZERO,42 2 036002DOF PR4K 05820 2
* 007331 3000244351 05830 JC IND,41 PR4K 05830
007336 3400244300 05840 CC IND,0 PR4K 05840
* 007343 1000304142 05850 JR EXIT,34 4 PR4K 05850
* 007350 1000316100 05860 JR ER2,0 PR4K 05860
007355 4400244300 05870 SC IND,0 03036002JT PR4K 05870
* 007362 3000163552 05880 JC DOF,42 PR4K 05880
* 007367 3000737426 05890 JC $+5,22 PR4K 05890
007374 3400244351 05900 CC IND,41 PR4K 05900
007401 3400244300 05910 CC IND,0 PR4K 05910
* 007406 3000742042 05920 JC $+10,34 4 PR4K 05920
* 007413 1000314700 05930 JR ER1,0 PR4K 05930
* 007420 3000742550 05940 JC $+5,40 PR4K 05940
* 007425 1000307235 05950 JR NEXT,29 9 PR4K 05950
* 007432 3000237352 05960 JC ZERO,42 2 011007FT105 PR4K 05960 F
007437 2000161752 05970 FT HEREI,4242 PR4K 05970
* 007444 1000314741 05980 JR ER1,33 PR4K 05980
* 007451 1000307200 05990 JR NEXT,0 PR4K 05990
* 007456 3000161752 06000 JC HEREI,4242 011016FT105 PR4K 06000 6
007463 2000237352 06010 FT ZERO,42 2 PR4K 06010
* 007470 1000304141 06020 JR EXIT,33 3 PR4K 06020
* 007475 1000316100 06030 JR ER2,0 PR4K 06030
* 007502 3000237352 06040 JC ZERO,42 2 011100FT105 PR4K 06040 F
007507 2000171552 06050 FT EQ,42 PR4K 06050
* 007514 1000314742 06060 JR ER1,34 PR4K 06060
* 007521 1000307200 06070 JR NEXT,0 PR4K 06070
* 007526 3000171552 06080 JC EQ,42 01011115FT105 PR4K 06080 1
007533 2000237352 06090 FT ZERO,42 2 PR4K 06090
* 007540 1000304142 06100 JR EXIT,34 4 PR4K 06100
* 007545 1000316100 06110 JR ER2,0 PR4K 06110
* 007552 3000237352 06120 JC ZERO,42 2 011032FT105 PR4K 06120 F
007557 2000201352 06130 FT AZ,42 PR4K 06130
* 007564 1000314745 06140 JR ER1,37 PR4K 06140
* 007571 1000307200 06150 JR NEXT,0 PR4K 06150
* 007576 3000201352 06160 JC AZ,42 01011045FT105 PR4K 06160 1
007603 2000237352 06170 FT ZERO,42 2 PR4K 06170
* 007610 1000304145 06180 JR EXIT,37 7 PR4K 06180
* 007615 1000316100 06190 JR ER2,0 PR4K 06190
* 007622 3000237352 06200 JC ZERO,42 2 011070FT105 PR4K 06200 F
007627 2000203152 06210 FT AN,42 PR4K 06210
* 007634 1000314746 06220 JR ER1,38 PR4K 06220
* 007641 1000307200 06230 JR NEXT,0 PR4K 06230
* 007646 3000203152 06240 JC AN,42 01011085FT105 PR4K 06240 1
007653 2000237352 06250 FT ZERO,42 2 PR4K 06250
* 007660 1000304146 06260 JR EXIT,38 8 PR4K 06260
* 007665 1000316100 06270 JR ER2,0 PR4K 06270
* 007672 3000237352 06280 JC ZERO,42 2 010133FT105 PR4K 06280 F
* 007677 3200327677 06290 LOAD2 JL OKAY,63 3 PR4K 06290
007704 4400303040 062901 SC EXIT-6,0,040 PR4K 062901
* 007711 3000773540 06300 JC $+20,32 2 SKIP PR4K 06300
007716 2000040044 06310 FT 0400,36 6 PR4K 06310
007723 4020610000 06320 XF 061,0,0,0,1 READ LOAD CARD OF PASS 2 PR4K 06320 D
* 007730 3000044000 06330 J 0440 PR4K 06330
007735 2000040060 06340 FT 0400,48 8 PR4K 06340
007742 2000777761 06350 FT 07777,4949 PR4K 06350
007747 4100610100 06360 XF 061,010000,0,4 READ LOAD BLOCK OF PASS 2 PR4K 06360 R
* 007754 3000044000 06370 J 0440 PR4K 06370
SEGMENT-ID T464 3000267500 SEGJP SEL1 PR4K
*LOAD 0700,TAPAPE
000440 * ORIG 0440 *
* 000440 3000044536 * JC $+5,036 6 *
000445 6000050740 * AC 0507,04040 *
000452 2000111111 * FT 0700+021211,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 2000111160 * FT 0700+021211,48,0 *
000554 2000024261 * FT 162,49 *
000561 4100610100 * XF 061,010000,0,4 *
000566 2000000103 * FT 1,3 *
* 000573 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 7020004642 * CB1 38,2,1 *
* 001072 3020004042 * JE 32,1 *
* 001077 3007010560 * JD 070105 *
* 001104 3020004000 * J 32,1 *
001111 245 * AREA 165 *
SEGMENT-ID T465 3000300000 06380 SEGJP MANST PR4K 06380
003310 06390 ORIG 03310 PR4K 06390
003310 2000205652 06400 FT BOF,42 PR4K 06400
* 003315 1000314747 06410 JR ER1,39 PR4K 06410
* 003322 1000307200 06420 JR NEXT,0 PR4K 06420
* 003327 3000205652 06430 JC BOF,42 0 010124FT105 PR4K 06430 T
003334 2000237352 06440 FT ZERO,42 2 PR4K 06440
* 003341 1000304147 06450 JR EXIT,39 9 PR4K 06450
* 003346 1000316100 06460 JR ER2,0 PR4K 06460
* 003353 3000237352 06470 JC ZERO,42 2 010156FT105 PR4K 06470 F
003360 2000163552 06480 FT DOF,42 PR4K 06480
* 003365 1000314750 06490 JR ER1,40 PR4K 06490
* 003372 1000307200 06500 JR NEXT,0 PR4K 06500
* 003377 3000163552 06510 JC DOF,42 0 010152FT105 PR4K 06510 T
* 003404 3000341126 06520 JC $+5,22 PR4K 06520
003411 2000237352 06530 FT ZERO,42 2 PR4K 06530
* 003416 3000343050 06540 JC $+10,40 0 PR4K 06540
* 003423 1000314700 06550 JR ER1,0 PR4K 06550
* 003430 1000307235 06560 JR NEXT,29 9 PR4K 06560
* 003435 3000344233 06570 JC $+5,27 1 125058,013038 PR4K 06570 0
* 003442 3000344732 06580 JC $+5,26 PR4K 06580
* 003447 1000304155 06590 JR EXIT,45 5 PR4K 06590
* 003454 1000316100 06600 JR ER2,0 PR4K 06600
* 003461 3000346633 06610 JC $+5,27 1 125058J01 PR4K 06610 0
* 003466 3000347372 06620 JC $+5,58 PR4K 06620
* 003473 1000314755 06630 JR ER1,45 PR4K 06630
* 003500 1000307200 06640 JR NEXT,0 PR4K 06640
* 003505 3000351233 06650 JC $+5,27 1 125058LU2 PR4K 06650 U
* 003512 3000351740 06660 JC $+5,32 PR4K 06660
* 003517 1000314755 06670 JR ER1,45 PR4K 06670
* 003524 1000307200 06680 JR NEXT,0 PR4K 06680
* 003531 3000353633 06690 JC $+5,27 1 125058LD2 PR4K 06690 D
* 003536 3000354330 06700 JC $+5,24 PR4K 06700
* 003543 1000314755 06710 JR ER1,45 PR4K 06710
* 003550 1000307200 06720 JR NEXT,0 PR4K 06720
* 003555 3000356232 06730 JC $+5,26 1 125059,013038IOS3 PR4K 06730 0
* 003562 3000356733 06740 JC $+5,27 PR4K 06740
* 003567 1000314755 06750 JR ER1,45 PR4K 06750
* 003574 1000307200 06760 JR NEXT,0 PR4K 06760
* 003601 3000360632 06770 JC $+5,26 1 125059J01 PR4K 06770 0
* 003606 3000361313 06780 JC $+5,11 PR4K 06780
* 003613 1000304155 06790 JR EXIT,45 5 PR4K 06790
* 003620 1000316100 06800 JR ER2,0 PR4K 06800
* 003625 3000363232 06810 JC $+5,26 1 125059LU2 PR4K 06810 U
* 003632 3000363737 06820 JC $+5,31 PR4K 06820
* 003637 1000304155 06830 JR EXIT,45 5 PR4K 06830
* 003644 1000316100 06840 JR ER2,0 PR4K 06840
* 003651 3000365632 06850 JC $+5,26 1 125059LD3 PR4K 06850 D
* 003656 3000366331 06860 JC $+5,25 PR4K 06860
* 003663 1000304155 06870 JR EXIT,45 5 PR4K 06870
* 003670 1000316100 06880 JR ER2,0 PR4K 06880
* 003675 3000370232 06890 JC $+5,26 0 013038J1- PR4K 06890 1
* 003702 1000314775 06900 JR ER1,61 PR4K 06900
* 003707 1000307233 06910 JR NEXT,27 7 PR4K 06910
* 003714 3000372132 06920 JC $+5,26 0 013038LU3 PR4K 06920 U
* 003721 1000314745 06930 JR ER1,37 PR4K 06930
* 003726 1000307233 06940 JR NEXT,27 7 PR4K 06940
* 003733 3000374032 06950 JC $+5,26 0 013038LD1 PR4K 06950 D
* 003740 1000314756 06960 JR ER1,46 PR4K 06960
* 003745 1000307233 06970 JR NEXT,27 7 PR4K 06970
* 003752 3000375737 06980 JC $+5,31 1 125022,013039 PR4K 06980 0
* 003757 3000376434 06990 JC $+5,28 PR4K 06990
* 003764 1000304157 07000 JR EXIT,47 7 PR4K 07000
* 003771 1000316100 07010 JR ER2,0 PR4K 07010
* 003776 3000400337 07020 JC $+5,31 1 125022J01 PR4K 07020 0
* 004003 3000401014 07030 JC $+5,12 PR4K 07030
* 004010 1000314757 07040 JR ER1,47 PR4K 07040
* 004015 1000307200 07050 JR NEXT,0 PR4K 07050
* 004022 3000402737 07060 JC $+5,31 1 125022LU3 PR4K 07060 U
* 004027 3000403430 07070 JC $+5,24 PR4K 07070
* 004034 1000314757 07080 JR ER1,47 PR4K 07080
* 004041 1000307200 07090 JR NEXT,0 PR4K 07090
* 004046 3000405337 07100 JC $+5,31 1 125022LD0 PR4K 07100 D
* 004053 3000406040 07110 JC $+5,32 PR4K 07110
* 004060 1000314757 07120 JR ER1,47 PR4K 07120
* 004065 1000307200 07130 JR NEXT,0 PR4K 07130
* 004072 3000407734 07140 JC $+5,28 1 125023,013039IOS2 PR4K 07140 0
* 004077 3000410437 07150 JC $+5,31 PR4K 07150
* 004104 1000314757 07160 JR ER1,47 PR4K 07160
* 004111 1000307200 07170 JR NEXT,0 PR4K 07170
* 004116 3000412334 07180 JC $+5,28 1 125023J01 PR4K 07180 0
* 004123 3000413077 07190 JC $+5,63 PR4K 07190
* 004130 1000304157 07200 JR EXIT,47 7 PR4K 07200
* 004135 1000316100 07210 JR ER2,0 PR4K 07210
* 004142 3000414734 07220 JC $+5,28 125023LU3 PR4K 07220 0
* 004147 3000415427 07230 JC $+5,23 PR4K 07230
* 004154 1000304157 07240 JR EXIT,47 7 PR4K 07240
* 004161 1000316100 07250 JR ER2,0 PR4K 07250
* 004166 3000417334 07260 JC $+5,28 1 125023LD3 PR4K 07260 D
* 004173 3000420035 07270 JC $+5,29 PR4K 07270
* 004200 1000304157 07280 JR EXIT,47 7 PR4K 07280
* 004205 1000316100 07290 JR ER2,0 PR4K 07290
* 004212 3000421734 07300 JC $+5,28 0 013039J1- PR4K 07300 1
* 004217 1000314777 07310 JR ER1,63 PR4K 07310
* 004224 1000307237 07320 JR NEXT,31 1 PR4K 07320
* 004231 3000423634 07330 JC $+5,28 0 013039LU3 PR4K 07330 U
* 004236 1000314753 07340 JR ER1,43 PR4K 07340
* 004243 1000307237 07350 JR NEXT,31 1 PR4K 07350
* 004250 3000425534 07360 JC $+5,28 0 013039LD3 PR4K 07360 D
* 004255 1000314756 07370 JR ER1,46 PR4K 07370
* 004262 1000307237 07380 JR NEXT,31 1 PR4K 07380
* 004267 3000427434 07390 JC $+5,28 T TEST CLASS 2 INHIBIT PR4K 07390 A
* 004274 3000163552 07400 JC DOF,42 PR4K 07400
* 004301 3000431350 07410 JC $+10,40 0 PR4K 07410
* 004306 3000432500 07420 JC $+15,0 PR4K 07420
* 004313 3000432566 07430 JC $+10,54 4 PR4K 07430
* 004320 1000304137 07440 JR EXIT,31 1 PR4K 07440
* 004325 1000316100 07450 JR ER2,0 PR4K 07450
* 004332 3000433716 07460 JC $+5,14 0 013068NW PR4K 07460 W
* 004337 1000314772 07470 JR ER1,58 PR4K 07470
* 004344 1000307200 07480 JR NEXT,0 PR4K 07480
* 004351 3000435617 07490 JC $+5,15 0 013068J1 PR4K 07490 1
* 004356 3000437052 07500 JC $+10,42 2 PR4K 07500
* 004363 1000304116 07510 JR EXIT,14 4 PR4K 07510
* 004370 1000316100 07520 JR ER2,0 PR4K 07520
* 004375 3000440217 07530 JC $+5,15 0 013068LU2 PR4K 07530 U
* 004402 1000314776 07540 JR ER1,62 PR4K 07540
* 004407 1000307216 07550 JR NEXT,14 4 PR4K 07550
* 004414 3000442117 07560 JC $+5,15 0 013068LD2 PR4K 07560 D
* 004421 1000314773 07570 JR ER1,59 PR4K 07570
* 004426 1000307216 07580 JR NEXT,14 4 PR4K 07580
* 004433 3000444054 07590 JC $+5,44 0 013077NW2 PR4K 07590 W
* 004440 1000314754 07600 JR ER1,44 PR4K 07600
* 004445 1000307200 07610 JR NEXT,0 PR4K 07610
004452 4020406777 07620 XF 32,0677777,0,1 013037 IOS1 PR4K 07620
004457 4020006777 07630 XF 0,06777,7,0,1 PR4K 07630
* 004464 1000314753 07640 JR ER1,43 PR4K 07640
* 004471 1000307200 07650 JR NEXT,0 PR4K 07650
* 004476 3000450336 07660 JC $+5,30 0 013040IR1 PR4K 07660 R
* 004503 1000314761 07670 JR ER1,49 PR4K 07670
* 004510 1000307200 07680 JR NEXT,0 PR4K 07680
* 004515 3000452271 07690 JC $+5,57 0 013072TI PR4K 07690 I
* 004522 1000314771 07700 JR ER1,57 PR4K 07700
* 004527 1000307200 07710 JR NEXT,0 PR4K 07710
* 004534 3200455300 07720 JL $+15,0 0 013157,012215, CHECK JL PR4K 07720 0
004541 3400454000 07730 CC $-1,0 PR4K 07730
* 004546 1000304142 07740 JR EXIT,34 4 PR4K 07740
* 004553 1000316100 07750 JR ER2,0 PR4K 07750
004560 4400457177 07760 SC $+9,63 0 009058,003106+084,012211 PR4K 07760 0
* 004565 3200457777 07770 JL $+10,63 3 PR4K 07770
* 004572 3000461100 07780 JC $+15,0 PR4K 07780
004577 3400457176 07790 CC $-6,62 PR4K 07790
* 004604 1000304142 07800 JR EXIT,34 4 PR4K 07800
* 004611 1000316100 07810 JR ER2,0 PR4K 07810
004616 4400462776 07820 SC $+9,62 0 009056+054,003104+102 PR4K 07820 0
* 004623 3200463076 07830 JL $+5,62 PR4K 07830
004630 3400462775 07840 CC $-1,61 PR4K 07840
* 004635 1000304142 07850 JR EXIT,34 4 PR4K 07850
* 004642 1000316100 07860 JR ER2,0 PR4K 07860
004647 4400466074 07870 SC $+9,60 0 009052+050,003100+098 PR4K 07870 0
* 004654 3200466174 07880 JL $+5,60 PR4K 07880
004661 3400466073 07890 CC $-1,59 PR4K 07890
* 004666 1000304142 07900 JR EXIT,34 4 PR4K 07900
* 004673 1000316100 07910 JR ER2,0 PR4K 07910
004700 4400471170 07920 SC $+9,56 0 009048+046,003096+094 PR4K 07920 0
* 004705 3200471270 07930 JL $+5,56 PR4K 07930
004712 3400471167 07940 CC $-1,55 PR4K 07940
* 004717 1000304142 07950 JR EXIT,34 4 PR4K 07950
* 004724 1000316100 07960 JR ER2,0 PR4K 07960
004731 4400474260 07970 SC $+9,48 0 009044+042,003092+090 PR4K 07970 0
* 004736 3200474360 07980 JL $+5,48 PR4K 07980
004743 3400474257 07990 CC $-1,47 PR4K 07990
* 004750 1000304142 08000 JR EXIT,34 4 PR4K 08000
* 004755 1000316100 08010 JR ER2,0 PR4K 08010
004762 4400477340 08020 SC $+9,32 0 009040+038,003088+086 PR4K 08020 0
* 004767 3200477440 08030 JL $+5,32 PR4K 08030
004774 3400477337 08040 CC $-1,31 PR4K 08040
* 005001 1000304142 08050 JR EXIT,34 4 PR4K 08050
* 005006 1000316100 08060 JR ER2,0 PR4K 08060
005013 4400244300 08070 SC IND,0 CHCHECK SC PR4K 08070
005020 4400244352 08080 SC IND,42 PR4K 08080
005025 3400244352 08090 CC IND,42 PR4K 08090
* 005032 1000304142 08100 JR EXIT,34 4 PR4K 08100
* 005037 1000316100 08110 JR ER2,0 PR4K 08110
005044 4400244300 08120 SC IND,0 PR4K 08120
005051 4400244325 08130 SC IND,21 PR4K 08130
005056 3400244325 08140 CC IND,21 PR4K 08140
* 005063 1000304142 08150 JR EXIT,34 4 PR4K 08150
* 005070 1000316100 08160 JR ER2,0 PR4K 08160
005075 3400237302 08170 CC ZERO,2 CHECK CC2,0 PR4K 08170 C
* 005102 1000304141 08180 JR EXIT,33 3 PR4K 08180
* 005107 1000316100 08190 JR ER2,0 PR4K 08190
005114 3400164003 08200 CC K17,3 CHCHECK CC3,3 PR4K 08200 3
* 005121 1000304142 08210 JR EXIT,34 4 PR4K 08210
* 005126 1000316100 08220 JR ER2,0 PR4K 08220
* 005133 3000171552 08230 JC EQ,42 CHCHECK 21,42 PR4K 08230 ,
005140 3400513725 08240 CC $-1,21 PR4K 08240
* 005145 1000304144 08250 JR EXIT,36 6 PR4K 08250
* 005152 1000316100 08260 JR ER2,0 PR4K 08260
* 005157 3000171552 08270 JC EQ,42 C CHECK 42,21 PR4K 08270 2
005164 3400514452 08280 CC $-16,42 2 PR4K 08280
* 005171 1000304141 08290 JR EXIT,33 3 PR4K 08290
* 005176 1000316100 08300 JR ER2,0 PR4K 08300
* 005203 3000237352 08310 JC ZERO,42 2 CHECK LS, 011101 F5- PR4K 08310
005210 4400244300 08320 SC IND,0 PR4K 08320
005215 6400244300 08330 LS IND,0 PR4K 08330
* 005222 3000524142 08340 JC $+15,34 4 PR4K 08340
005227 3400244300 08350 CC IND,0 PR4K 08350
* 005234 1000304142 08360 JR EXIT,34 4 PR4K 08360
* 005241 1000316100 08370 JR ER2,0 PR4K 08370
* 005246 3000161752 08380 JC HEREI,4242 CHECK LS, 1S MEM. PR4K 08380 K
005253 4400244377 08390 SC IND,077 7 PR4K 08390
005260 6400244300 08400 LS IND,0 PR4K 08400
* 005265 3000530444 08410 JC $+15,36 6 PR4K 08410
005272 3400244377 08420 CC IND,077 7 PR4K 08420
* 005277 1000304142 08430 JR EXIT,34 4 PR4K 08430
* 005304 1000316100 08440 JR ER2,0 PR4K 08440
* 005311 3000161752 08450 JC HEREI,4242 CHECK LS, OS MEM. PR4K 08450 K
005316 4400244300 08460 SC IND,0 PR4K 08460
005323 6400244377 08470 LS IND,077 7 PR4K 08470
* 005330 3000534744 08480 JC $+15,36 6 PR4K 08480
005335 3400244377 08490 CC IND,077 7 PR4K 08490
* 005342 1000304142 08500 JR EXIT,34 4 PR4K 08500
* 005347 1000316100 08510 JR ER2,0 PR4K 08510
005354 4400244352 08520 SC IND,42 C CHECK LP 42,25 PR4K 08520 P
005361 5400244331 08530 LP IND,25 PR4K 08530
005366 3400244310 08540 CC IND,8 PR4K 08540
* 005373 1000304142 08550 JR EXIT,34 4 PR4K 08550
* 005400 1000316100 08560 JR ER2,0 PR4K 08560
005405 4400244352 08570 SC IND,42 C CHECK LT 42,0 PR4K 08570 T
005412 1400244300 08580 LC IND,0 PR4K 08580
* 005417 1000304142 08590 JR EXIT,34 4 PR4K 08590
* 005424 1000316100 08600 JR ER2,0 PR4K 08600
005431 4400244343 08610 SC IND,35 C CHECK LT 35,54 PR4K 08610 T
005436 1400244366 08620 LC IND,54 PR4K 08620
* 005443 1000304141 08630 JR EXIT,33 3 PR4K 08630
* 005450 1000316100 08640 JR ER2,0 PR4K 08640
005455 4400244353 08650 SC IND,43 C CHECK LT 43,42 PR4K 08650 T
005462 1400244352 08660 LC IND,42 PR4K 08660
* 005467 1000304142 08670 JR EXIT,34 4 PR4K 08670
* 005474 1000316100 08680 JR ER2,0 PR4K 08680
005501 5600163102 08690 BA1 K14,2 C CHECK CB,008044 PR4K 08690 B
005506 5600163122 08700 BA2 K14,2 PR4K 08700
005513 7000001762 08710 CB2 15,2 PR4K 08710
005520 7000001762 08720 CB2 15,2 PR4K 08720
* 005525 1000304142 08730 JR EXIT,34 4 PR4K 08730
* 005532 1000316100 08740 JR ER2,0 PR4K 08740
005537 5600237303 08750 BA1 ZERO,3 C CHECK BA,NO SENT,2 PR4K 08750 A
005544 5600162502 08760 BA1 K13,2 OCT 1740 PR4K 08760
005551 7000162543 08770 CB1 K13,3 OCT 00 17 40 PR4K 08770
* 005556 1000304142 08780 JR EXIT,34 4 PR4K 08780
* 005563 1000316100 08790 JR ER2,0 PR4K 08790
005570 5600237303 08800 BA1 ZERO,3 C CHECK BA,SENT,2 PR4K 08800 A
005575 5600163142 08810 BD1 K14,2 OCOCT5264 PR4K 08810
005602 7000254343 08820 CB1 K01+3,3 3 OCT 631244 PR4K 08820
* 005607 1000304142 08830 JR EXIT,34 4 PR4K 08830
* 005614 1000316100 08840 JR ER2,0 PR4K 08840
005621 5600237300 08850 BA1 ZERO,16 6 CHECK BA,SENT,AR0,16 PR4K 08850 B
005626 5600156540 08860 BD1 K08,16 PR4K 08860
005633 7000162540 08870 CB1 K13,16 PR4K 08870
* 005640 1000304142 08880 JR EXIT,34 4 PR4K 08880
* 005645 1000316100 08890 JR ER2,0 PR4K 08890
005652 5600237320 08900 BA2 ZERO,16 6 CHECK BA,NO SENT,AR1,16 PR4K 08900 B
005657 5600156520 08910 BA2 K08,16 PR4K 08910
005664 7000156560 08920 CB2 K08,16 PR4K 08920
* 005671 1000304142 08930 JR EXIT,34 4 PR4K 08930
* 005676 1000316100 08940 JR ER2,0 PR4K 08940
005703 5600237302 08950 BA1 ZERO,2 C CHECK SA,AR0 PR4K 08950 A
005710 5200003702 08960 SA1 31,2 PR4K 08960
005715 5600163102 08970 BA1 K14,2 OCOCT5264 PR4K 08970
005722 5200003702 08980 SA1 31,2 PR4K 08980
005727 7000163142 08990 CB1 K14,2 OCOCT5264 PR4K 08990
* 005734 1000304142 09000 JR EXIT,34 4 PR4K 09000
* 005741 1000316100 09010 JR ER2,0 PR4K 09010
005746 5600237322 09020 BA2 ZERO,2 C CHECK SA,AR1 PR4K 09020 A
005753 5200001722 09030 SA2 15,2 PR4K 09030
005760 5600163122 09040 BA2 K14,2 OCOCT5264 PR4K 09040
005765 5200001722 09050 SA2 15,2 PR4K 09050
005772 7000163162 09060 CB2 K14,2 OCOCT5264 PR4K 09060
* 005777 1000304142 09070 JR EXIT,34 4 PR4K 09070
* 006004 1000316100 09080 JR ER2,0 PR4K 09080
006011 4600237304 09090 BT ZERO,4 C CHECK BT,ROW 0 PR4K 09090 T
006016 4600163104 09100 BT K14,4 O OCT07775264 PR4K 09100 5
006023 7400163104 09110 CT K14,4 O OCT 07775264 PR4K 09110 7
* 006030 1000304142 09120 JR EXIT,34 4 PR4K 09120
* 006035 1000316100 09130 JR ER2,0 PR4K 09130
006042 4600237326 09140 BT ZERO,22 2 CHECK BT,ROW 1 PR4K 09140 B
006047 4600163126 09150 BT K14,22 OCT 07775264 PR4K 09150 7
006054 7400163126 09160 CT K14,22 OCT 07775264 PR4K 09160 7
* 006061 1000304142 09170 JR EXIT,34 4 PR4K 09170
* 006066 1000316100 09180 JR ER2,0 PR4K 09180
006073 4600237350 09190 BT ZERO,40 0 CHECK BT,ROW 2 PR4K 09190 B
006100 4600163150 09200 BT K14,40 O OCT 07775264 PR4K 09200 7
006105 7400163150 09210 CT K14,40 OCT 07775264 PR4K 09210 7
* 006112 1000304142 09220 JR EXIT,34 4 PR4K 09220
* 006117 1000316100 09230 JR ER2,0 PR4K 09230
006124 4600237373 09240 BT ZERO,59 9 CHECK BT, ROW3+042007 PR4K 09240
006131 4600163173 09250 BT K14,59 PR4K 09250
006136 7400163173 09260 CT K14,59 PR4K 09260
* 006143 1000304142 09270 JR EXIT,34 4 PR4K 09270
* 006150 1000316100 09280 JR ER2,0 PR4K 09280
006155 5600237304 09290 BA1 ZERO,4 C CHECK ST PR4K 09290 T
006162 4600163126 09300 BT K14,22 O OCT07005264 PR4K 09300 5
006167 4200001726 09310 ST 15,22 PR4K 09310
006174 7400163103 09320 CT K14,3 OCOCT07005264 PR4K 09320 2
* 006201 1000304142 09330 JR EXIT,34 4 PR4K 09330
* 006206 1000316100 09340 JR ER2,0 PR4K 09340
006213 4600237377 09350 BT ZERO,63 3 CHECK FT WITH ONES PR4K 09350 F
006220 2007777777 09360 FT 32767,6363 PR4K 09360
006225 5600037703 09370 BA1 255,3 PR4K 09370
006232 7000622343 09380 CB1 $-7,3 PR4K 09380
* 006237 1000304142 09390 JR EXIT,34 4 PR4K 09390
* 006244 1000316100 09400 JR ER2,0 PR4K 09400
006251 4600622477 09410 BT $-21,63 3 CHECK FT WITH ZEROS PR4K 09410 F
006256 2000000077 09420 FT 0,63 PR4K 09420
006263 5600037703 09430 BA1 255,3 PR4K 09430
006270 7000237343 09440 CB1 ZERO,3 PR4K 09440
* 006275 1000304142 09450 JR EXIT,34 4 PR4K 09450
* 006302 1000316100 09460 JR ER2,0 PR4K 09460
006307 5600156500 09470 BA1 K08,16 C CHECK BSD1C,1B PR4K 09470 S
006314 1600000011 09480 BS1 0,1 PR4K 09480
006321 3400000012 09490 CC 0,10 PR4K 09490
* 006326 1000304142 09500 JR EXIT,34 4 PR4K 09500
* 006333 1000316100 09510 JR ER2,0 PR4K 09510
006340 5600160302 09520 BA1 K11,2 CHCHECK BSC 2C,2B,OCT6263 PR4K 09520 C
006345 1600001762 09530 BC2 15,2 PR4K 09530
006352 7000155542 09540 CB1 K07,2 OCOCT1317 PR4K 09540
* 006357 1000304142 09550 JR EXIT,34 4 PR4K 09550
* 006364 1000316100 09560 JR ER2,0 PR4K 09560
006371 5600160403 09570 BA1 K12-1,3 3 CHECK BSD 3C,4B,OCT626352 PR4K 09570 B
006376 1600001734 09580 BS3 15,4 PR4K 09580
006403 7000155343 09590 CB1 K06,3 OCOCT547240 PR4K 09590 0
* 006410 1000304142 09600 JR EXIT,34 4 PR4K 09600
* 006415 1000316100 09610 JR ER2,0 PR4K 09610
006422 5600160504 09620 BA1 K12,4 CHCHECK BSC 4C,7B,OCT62635225 PR4K 09620 C
006427 1600001747 09630 BC4 15,7 PR4K 09630
006434 7000154644 09640 CB1 K04,4 OCOCT47245345 PR4K 09640 3
* 006441 1000304142 09650 JR EXIT,34 4 PR4K 09650
* 006446 1000316100 09660 JR ER2,0 PR4K 09660
006453 5600163102 09670 BA1 K14,2 OCOCT5264,CHECK ZP BLANK PR4K 09670 C
006460 2600001702 09680 PD 15,2 PR4K 09680
006465 7000237342 09690 CB1 ZERO,2 PR4K 09690
* 006472 1000304142 09700 JR EXIT,34 4 PR4K 09700
* 006477 1000316100 09710 JR ER2,0 PR4K 09710
006504 5600163101 09720 BA1 K14,1 OCOCT64,CHECK ZP DEC ZERO PR4K 09720 E
006511 2600001721 09730 PD0 15,1 PR4K 09730
006516 3400001703 09740 CC 15,3 PR4K 09740
* 006523 1000304142 09750 JR EXIT,34 4 PR4K 09750
* 006530 1000316100 09760 JR ER2,0 PR4K 09760
006535 2600001720 09770 PD0 15,0 PR4K 09770
006542 5600160304 09780 BA1 K11,4 ZSZS BLANK+FLTG $,OCT00036263 PR4K 09780 +
006547 2200000000 09790 ZS$ 0,16 PR4K 09790
006554 7000167444 09800 CB1 K32,4 OCOCT 00004263 PR4K 09800 4
* 006561 3000657342 09810 JC $+10,34 4 PR4K 09810
* 006566 3000660500 09820 JC $+15,0 PR4K 09820
006573 3400011117 09830 CC 73,15 PR4K 09830
* 006600 1000304142 09840 JR EXIT,34 4 PR4K 09840
* 006605 1000316100 09850 JR ER2,0 PR4K 09850
006612 5600160304 09860 BA1 K11,4 ZSZS BLANK,OCT 00036263 PR4K 09860 ,
006617 2200001444 09870 ZS 12,4 PR4K 09870
006624 7000170044 09880 CB1 K33,4 OCOCT 00000063 PR4K 09880 0
* 006631 1000304142 09890 JR EXIT,34 4 PR4K 09890
* 006636 1000316100 09900 JR ER2,0 PR4K 09900
006643 5600160304 09910 BA1 K11,4 ZSZS ASTERISK, OCT 00036263 PR4K 09910 I
006650 2200001464 09920 ZS* 12, 4, PR4K 09920
006655 7000254744 09930 CB1 K01+7,4 4 OCT J1414163 PR4K 09930
* 006662 1000304142 09940 JR EXIT,34 4 PR4K 09940
* 006667 1000316100 09950 JR ER2,0 PR4K 09950
006674 5600160304 09960 BA1 K11,4 ZSZS,TEST FOR LAC LOW PR4K 09960 F
006701 2200001442 09970 ZS 12,2 PR4K 09970
006706 7000170444 09980 CB1 K33+4,4 4 OCT 00006263 PR4K 09980 0
* 006713 1000304142 09990 JR EXIT,34 4 PR4K 09990
* 006720 1000316100 10000 JR ER2,0 PR4K 10000
006725 5600237300 10010 BA1 ZERO,16 6 ZS,TEST FOR FAC LOW PR4K 10010 T
006732 2200000060 10020 ZS* 0, 16, PR4K 10020
006737 3400001742 10030 CC 15,34 PR4K 10030
* 006744 3000676342 10040 JC $+15,34 4 PR4K 10040
006751 3400011120 10050 CC 73,16 PR4K 10050
* 006756 1000304142 10060 JR EXIT,34 4 PR4K 10060
* 006763 1000316100 10070 JR ER2,0 PR4K 10070
006770 5600156502 10080 BA1 K08,2 CHCHECK TR, OCT 3740 PR4K 10080 ,
006775 4400011015 10090 SC 72,015 PR4K 10090
007002 1200001702 10100 TR 15,2 PR4K 10100
007007 7000154042 10110 CB1 K02,2 OCOCT 1000 PR4K 10110
* 007014 1000304142 10120 JR EXIT,34 4 PR4K 10120
* 007021 1000316100 10130 JR ER2,0 PR4K 10130
007026 2600704404 10140 PD $+14,4 CHECK 64 COUNT TR, 027 078 PR4K 10140 6
007033 4400706377 10150 SC $+24,63 3 PR4K 10150
007040 4400000000 10160 SC 0,0 PR4K 10160
007045 6000704301 10170 AC $-2,1 PR4K 10170
007052 6000704401 10180 AC $-6,1 PR4K 10180
* 007057 3200704077 10190 JL $-15,63 3 PR4K 10190
007064 4400007777 10200 SC 077,077 7 PR4K 10200
007071 4400011024 10210 SC 72,20 PR4K 10210
007076 1200007700 10220 TR 077,64 PR4K 10220
007103 7000241740 10230 CB1 02417,1616 PR4K 10230
* 007110 1000304142 10240 JR EXIT,34 4 PR4K 10240
* 007115 1000316100 10250 JR ER2,0 PR4K 10250
007122 5600215110 10260 BA1 DEC2,8 CHECK TR 0304050607101112 PR4K 10260 T
007127 4400011060 10270 SC 72,48 T TR TABLE IN ROW 60 PR4K 10270 E
007134 1200001710 10280 TR 15,8 PR4K 10280
007141 7000601250 10290 CB1 06012,8 8 OCT 7154521000344741 PR4K 10290
* 007146 1000304142 10300 JR EXIT,34 4 PR4K 10300
* 007153 1000316100 10310 JR ER2,0 PR4K 10310
007160 5600717605 10320 BA1 $+14,5 F S 67 Z TO MA PR4K 10320
007165 2000000522 10330 FT 05,18 PR4K 10330
007172 2000717220 10340 FT $,16 PR4K 10340
007177 2400717201 10350 TFR $-5 PR4K 10350
007204 7000717645 10360 CB1 $-6,5 PR4K 10360
* 007211 1000304142 10370 JR EXIT,3434 PR4K 10370
* 007216 1000316100 10380 JR ER2,0 PR4K 10380
007223 5600240100 10390 BA1 ZERO+6,1,16 CHECK TB COUNT 64 PR4K 10390 C
007230 5200011700 10400 SA1 79,16 D DESTINATION IN )-16 PR4K 10400 T
007235 2400154201 10410 TFR K03,1 NONO ADVANCE PR4K 10410 C
007242 7000156140 10420 CB1 K03+15,1,16 PR4K 10420
* 007247 3000726142 10430 JC $+10,34 4 PR4K 10430
* 007254 3000736200 10440 JC $+70,0 PR4K 10440
007261 7000160160 10450 CB2 K03+31,1,16 PR4K 10450
* 007266 3000730042 10460 JC $+10,34 4 PR4K 10460
* 007273 3000736200 10470 JC $+55,0 PR4K 10470
007300 5600005700 10480 BA1 47,16 PR4K 10480
007305 7000162140 10490 CB1 K03+47,1,16 PR4K 10490
* 007312 3000732442 10500 JC $+10,34 4 PR4K 10500
* 007317 3000736200 10510 JC $+35,0 PR4K 10510
007324 5600007700 10520 BA1 63,16 PR4K 10520
007331 7000164140 10530 CB1 K03+63,1,16 PR4K 10530
* 007336 3000735042 10540 JC $+10,34 4 PR4K 10540
* 007343 3000736200 10550 JC $+15,0 PR4K 10550
007350 7400237320 10560 CT ZERO,16 6 PR4K 10560
* 007355 1000304142 10570 JR EXIT,34 4 PR4K 10570
* 007362 1000316100 10580 JR ER2,0 PR4K 10580
007367 5600242500 10590 BA1 OKAYS-6,6,16 CHECK TB. COUNT 16 PR4K 10590
007374 5200011700 10600 SA1 79,16 O ORIGIN IN T-17 PR4K 10600 I
007401 2400000061 10610 TTI 0 ADVANCE PR4K 10610
007406 7000203740 10620 CB1 CON4,16 6 PR4K 10620
* 007413 3000742542 10630 JC $+10,34 4 PR4K 10630
* 007420 3000743700 10640 JC $+15,0 PR4K 10640
007425 2000204003 10650 FT CON4+1,3,3 PR4K 10650
007432 7000010742 10660 CB1 71,2 PR4K 10660
* 007437 1000304142 10670 JR EXIT,34 4 PR4K 10670
* 007444 1000316100 10680 JR ER2,0 PR4K 10680
* 007451 3200327677 10690 LOAD3 JL OKAY,63 3 PR4K 10690
* 007456 1000753600 10700 JR TST2 PR4K 10700
* 007463 3000750740 10730 JC $+20,32 2 SKIP PR4K 10730
007470 2000040044 10740 FT 0400,36 6 PR4K 10740
007475 4020610000 10750 XF 061,0,0,0,1 READ LOAD CARD OF PASS 3 PR4K 10750 D
* 007502 3000044000 10760 JC 0440 PR4K 10760
007507 2000040060 10770 FT 0400,48 8 PR4K 10770
007514 2000777761 10780 FT 07777,4949 PR4K 10780
007521 4100610100 10790 XF 061,010000,0,4 READ LOAD BLK OF PASS 3 PR4K 10790 R
* 007526 3000044000 10800 JC 0440 PR4K 10800
* 007533 3000000000 10801 TST2 J 0 PR4K 10801
007540 3400261200 10802 CC LDSWT,0 0 0 EQUALS TAPE PR4K 10802
* 007545 3000761042 10803 JE $+35 TAPE PR4K 10803
007552 3400261230 10804 CC LDSWT,03030 PR4K 10804
* 007557 3000753342 10805 JE TST2 80 PR4K 10805
007564 3400261277 10806 CC LDSWT,07077 PR4K 10806
* 007571 3000762243 10807 JU DEST2 PR4K 10807
007576 4400750524 10808 SC LOAD3+2828,024 90 PR4K 10808
* 007603 3000753300 10809 J TST2 PR4K 10809
007610 4400746700 108091 SC LOAD3+1414,0 PR4K 108091
* 007615 3000753300 108092 J TST2 PR4K 108092
* 007622 3000762260 108093DEST2 JD DEST2 LOAD SWITCH AT 02612 NOT 0,30,OR,77 PR4K 108093D
SEGMENT-ID T466 3000300000 SEGJP MANST
*LOAD 0700,TAPAPE
000440 * ORIG 0440 *
* 000440 3000044536 * JC $+5,036 6 *
000445 6000050740 * AC 0507,04040 *
000452 2000111111 * FT 0700+021211,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 2000111160 * FT 0700+021211,48,0 *
000554 2000024261 * FT 162,49 *
000561 4100610100 * XF 061,010000,0,4 *
000566 2000000103 * FT 1,3 *
* 000573 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 7020004642 * CB1 38,2,1 *
* 001072 3020004042 * JE 32,1 *
* 001077 3007010560 * JD 070105 *
* 001104 3020004000 * J 32,1 *
001111 245 * AREA 165 *
SEGMENT-ID T467 3000300000 10810 SEGJP MANST PR4K 10810
003310 10820 ORIG 03310 PR4K 10820
003310 5600156631 10830 BA2 K08+1,9 9 CHECKED,007063,007061 PR4K 10830 D
003315 5600160302 10840 BA1 K11,2 OCOCT6263 PR4K 10840
003322 5200007742 10850 ED 63, 2 PR4K 10850
003327 5600157711 10860 BA1 K09+2,9 9 PR4K 10860
003334 7000007751 10870 CB1 63,9 PR4K 10870
* 003341 1000304142 10880 JR EXIT,34 4 PR4K 10880
* 003346 1000316100 10890 JR ER2,0 PR4K 10890
003353 5600157520 10900 BA2 K09,16 0 007063J1- PR4K 10900 1
003360 5600160300 10910 BA1 K11,16 PR4K 10910
003365 5200007761 10920 SAR 077 PR4K 10920
003372 7000005740 10930 CB1 47,16 PR4K 10930
* 003377 3000341142 10940 JC $+10,34 4 PR4K 10940
* 003404 3000342300 10950 J $+15 PR4K 10950
003411 7000007760 10960 CB2 63,16 PR4K 10960
* 003416 1000304142 10970 JR EXIT,34 4 PR4K 10970
* 003423 1000316100 10980 JR ER2,0 PR4K 10980
003430 5600156622 10990 BA2 K08+1,2 2 007061, OCT 4002 PR4K 10990 ,
003435 5600157502 11000 BA1 K09,2 OCOCT6037 PR4K 11000
003442 5200007741 11010 ED 63, 1 PR4K 11010
003447 5600161602 11020 BA1 K13-7,2 2 OCT 1700 PR4K 11020 0
003454 7000007742 11030 CB1 63,2 PR4K 11030
* 003461 1000304142 11040 JR EXIT,34 4 PR4K 11040
* 003466 1000316100 11050 JR ER2,0 PR4K 11050
003473 5600163622 11060 BA2 K16,2 OCOCT4040 PR4K 11060
003500 5600160302 11070 BA1 K11,2 OCOCT6263 PR4K 11070
003505 5200007742 11080 ED 63, 2 PR4K 11080
003512 7000007742 11090 CB1 63,2 PR4K 11090
* 003517 1000304142 11100 JR EXIT,34 4 PR4K 11100
* 003524 1000316100 11110 JR ER2,0 PR4K 11110
003531 5600155022 11120 BA2 K04+2,2 2 OCT4077,007059 PR4K 11120 7
003536 5600160302 11130 BA1 K11,2 OCOCT6263 PR4K 11130
003543 5200007742 11140 ED 63, 2 PR4K 11140
003550 5600164002 11150 BA1 K17,2 OCOCT6203 PR4K 11150
003555 7000007742 11160 CB1 63,2 PR4K 11160
* 003562 1000304142 11170 JR EXIT,34 4 PR4K 11170
* 003567 1000316100 11180 JR ER2,0 PR4K 11180
003574 5600164222 11190 BA2 K18,2 OCOCT4042,007061D6- PR4K 11190 0
003601 5600155301 11200 BA1 K06,1 OCOCT40 PR4K 11200
003606 5200007741 11210 ED 63, 1 PR4K 11210
003613 7000007762 11220 CB2 63,2 PR4K 11220
* 003620 1000304142 11230 JR EXIT,34 4 PR4K 11230
* 003625 1000316100 11240 JR ER2,0 PR4K 11240
003632 5600164422 11250 BA2 K19,2 OCOCT4022,007061D5- PR4K 11250 0
003637 5600155301 11260 BA1 K06,1 OCOCT40 PR4K 11260
003644 5200007741 11270 ED 63, 1 PR4K 11270
003651 7000007762 11280 CB2 63,2 PR4K 11280
* 003656 1000304142 11290 JR EXIT,34 4 PR4K 11290
* 003663 1000316100 11300 JR ER2,0 PR4K 11300
003670 5600164622 11310 BA2 K21,2 OCOCT4012,007061D4- PR4K 11310 0
003675 5600155301 11320 BA1 K06,1 OCOCT40 PR4K 11320
003702 5200007741 11330 ED 63, 1 PR4K 11330
003707 7000007762 11340 CB2 63,2 PR4K 11340
* 003714 1000304142 11350 JR EXIT,34 4 PR4K 11350
* 003721 1000316100 11360 JR ER2,0 PR4K 11360
003726 5600165022 11370 BA2 K22,2 OCOCT4006,007061D3- PR4K 11370 0
003733 5600155301 11380 BA1 K06,1 OCOCT40 PR4K 11380
003740 5200007741 11390 ED 63, 1 PR4K 11390
003745 7000007762 11400 CB2 63,2 PR4K 11400
* 003752 1000304142 11410 JR EXIT,34 4 PR4K 11410
* 003757 1000316100 11420 JR ER2,0 PR4K 11420
003764 5600165222 11430 BA2 K23,2 OCOCT4000,007061D2 PR4K 11430 0
003771 5600155301 11440 BA1 K06,1 OCOCT40 PR4K 11440
003776 5200007741 11450 ED 63, 1 PR4K 11450
004003 7000007762 11460 CB2 63,2 PR4K 11460
* 004010 1000304142 11470 JR EXIT,34 4 PR4K 11470
* 004015 1000316100 11480 JR ER2,0 PR4K 11480
004022 5600165422 11490 BA2 K24,2 OCOCT4003,007061D1- PR4K 11490 0
004027 5600155301 11500 BA1 K06,1 OCOCT40 PR4K 11500
004034 5200007741 11510 ED 63, 1 PR4K 11510
004041 7000007762 11520 CB2 63,2 PR4K 11520
* 004046 1000304142 11530 JR EXIT,34 4 PR4K 11530
* 004053 1000316100 11540 JR ER2,0 PR4K 11540
004060 5600163620 11550 BA2 K16,16 0 007061J1- PR4K 11550 1
004065 5600157500 11560 BA1 K09,16 PR4K 11560
004072 5200007761 11570 SAR 077 PR4K 11570
004077 7000005740 11580 CB1 47,16 PR4K 11580
* 004104 3000411642 11590 JC $+10,34 4 PR4K 11590
* 004111 3000413000 11600 J $+15 PR4K 11600
004116 7000007760 11610 CB2 63,16 PR4K 11610
* 004123 1000304142 11620 JR EXIT,34 4 PR4K 11620
* 004130 1000316100 11630 JR ER2,0 PR4K 11630
004135 5600156723 11640 BA2 K08+2,3 3 007061BM,OCT400262 PR4K 11640 B
004142 5600155301 11650 BA1 K06,1 OCOCT40 PR4K 11650
004147 5200007741 11660 ED 63, 1 PR4K 11660
004154 7000007763 11670 CB2 63,3 OCTCT400262 PR4K 11670
* 004161 1000304142 11680 JR EXIT,34 4 PR4K 11680
* 004166 1000316100 11690 JR ER2,0 PR4K 11690
004173 5600165622 11700 BA2 K25,2 00007059D6,OCT4037 PR4K 11700 ,
004200 5600155301 11710 BA1 K06,1 OCOCT 40 PR4K 11710
004205 5200007741 11720 ED 63, 1 PR4K 11720
004212 7000007762 11730 CB2 63,2 PR4K 11730
* 004217 1000304142 11740 JR EXIT,34 4 PR4K 11740
* 004224 1000316100 11750 JR ER2,0 PR4K 11750
004231 5600166022 11760 BA2 K26,2 00007059D5,OCT4057 PR4K 11760 ,
004236 5600155301 11770 BA1 K06,1 OCOCT40 PR4K 11770
004243 5200007741 11780 ED 63, 1 PR4K 11780
004250 7000007762 11790 CB2 63,2 PR4K 11790
* 004255 1000304142 11800 JR EXIT,34 4 PR4K 11800
* 004262 1000316100 11810 JR ER2,0 PR4K 11810
004267 5600166222 11820 BA2 K27,2 00007059D4,OCT4067 PR4K 11820 ,
004274 5600155301 11830 BA1 K06,1 OCOCT40 PR4K 11830
004301 5200007741 11840 ED 63, 1 PR4K 11840
004306 7000007762 11850 CB2 63,2 PR4K 11850
* 004313 1000304142 11860 JR EXIT,34 4 PR4K 11860
* 004320 1000316100 11870 JR ER2,0 PR4K 11870
004325 5600166422 11880 BA2 K28,2 00007059D3,OCT4073 PR4K 11880 ,
004332 5600155301 11890 BA1 K06,1 OCOCT40 PR4K 11890
004337 5200007741 11900 ED 63, 1 PR4K 11900
004344 7000007762 11910 CB2 63,2 PR4K 11910
* 004351 1000304142 11920 JR EXIT,34 4 PR4K 11920
* 004356 1000316100 11930 JR ER2,0 PR4K 11930
004363 5600166622 11940 BA2 K29,2 00007059D2,OCT4075 PR4K 11940 ,
004370 5600155301 11950 BA1 K06,1 OCOCT40 PR4K 11950
004375 5200007741 11960 ED 63, 1 PR4K 11960
004402 7000007762 11970 CB2 63,2 PR4K 11970
* 004407 1000304142 11980 JR EXIT,34 4 PR4K 11980
* 004414 1000316100 11990 JR ER2,0 PR4K 11990
004421 5600167022 12000 BA2 K31,2 00007059D1,OCT4076 PR4K 12000 ,
004426 5600155301 12010 BA1 K06,1 OCOCT40 PR4K 12010
004433 5200007741 12020 ED 63, 1 PR4K 12020
004440 7000007762 12030 CB2 63,2 PR4K 12030
* 004445 1000304142 12040 JR EXIT,34 4 PR4K 12040
* 004452 1000316100 12050 JR ER2,0 PR4K 12050
004457 5600155123 12060 BA2 K05,3 00007059BM,OCT407754 PR4K 12060 ,
004464 5600155301 12070 BA1 K06,1 PR4K 12070
004471 5200007741 12080 ED 63, 1 PR4K 12080
004476 7000007763 12090 CB2 63,3 PR4K 12090
* 004503 1000304142 12100 JR EXIT,34 4 PR4K 12100
* 004510 1000316100 12110 JR ER2,0 PR4K 12110
004515 5600156520 12120 BA2 K08,16 0 007059J1- PR4K 12120 1
004522 5600157500 12130 BA1 K09,16 PR4K 12130
004527 5200007761 12140 SAR 63 PR4K 12140
004534 7000005740 12150 CB1 47,16 PR4K 12150
* 004541 3000455342 12160 JC $+10,34 4 PR4K 12160
* 004546 3000456500 12170 JC $+15,0 PR4K 12170
004553 7000007760 12180 CB2 63,16 PR4K 12180
* 004560 1000304142 12190 JR EXIT,34 4 PR4K 12190
* 004565 1000316100 12200 JR ER2,0 PR4K 12200
004572 4400170500 12210 SC AC1,0 PR4K 12210
004577 6000170500 12220 AC AC1,0 PR4K 12220
004604 3400170500 12230 CC AC1,0 PR4K 12230
* 004611 1000304142 12240 JR EXIT,34 4 ADD ZERO PR4K 12240 R
* 004616 1000316100 12250 JR ER2,0 PR4K 12250
004623 5600171103 12260 BA1 PAT,3 PR4K 12260
004630 5600171423 12270 BA2 CON,3 PR4K 12270
004635 7200003703 12280 AB1 31,3 PR4K 12280
004642 7000171763 12290 CB2 ANS,3 PR4K 12290
* 004647 1000304142 12300 JR EXIT,34 4 STRING 1 PR4K 12300
* 004654 1000316100 12310 JR ER2,0 PR4K 12310
004661 5600173617 12320 BA1 PAT2,15 5 PR4K 12320
004666 5600175537 12330 BA2 CON2,15 5 PR4K 12330
004673 7200003717 12340 AB1 31,15 PR4K 12340
004700 7000177477 12350 CB2 ANS2,15 5 PR4K 12350
* 004705 1000304142 12360 JR EXIT,34 4 STRING 2 PR4K 12360
* 004712 1000316100 12370 JR ER2,0 PR4K 12370
004717 5600200307 12380 BA1 PAT3,7 PR4K 12380
004724 5600201227 12390 BA2 CON3,7 PR4K 12390
004731 7200003707 12400 AB1 31,7 PR4K 12400
004736 7000202167 12410 CB2 ANS3,7 PR4K 12410
* 004743 1000304142 12420 JR EXIT,34 4 STRING 3 PR4K 12420
* 004750 1000316100 12430 JR ER2,0 PR4K 12430
004755 5600203007 12440 BA1 PAT4,7 PR4K 12440
004762 5600203727 12450 BA2 CON4,7 PR4K 12450
004767 7200003707 12460 AB1 31,7 PR4K 12460
004774 7000204667 12470 CB2 ANS4,7 PR4K 12470
* 005001 1000304142 12480 JR EXIT,34 4 STRING 4 PR4K 12480
* 005006 1000316100 12490 JR ER2,0 PR4K 12490
005013 5600205507 12500 BA1 PAT5,7 PR4K 12500
005020 5600206427 12510 BA2 CON5,7 PR4K 12510
005025 7200003707 12520 AB1 31,7 PR4K 12520
005032 7000207367 12530 CB2 ANS5,7 PR4K 12530
* 005037 1000304142 12540 JR EXIT,34 4 STRING 5 PR4K 12540
* 005044 1000316100 12550 JR ER2,0 PR4K 12550
005051 5600210207 12560 BA1 PAT6,7 PR4K 12560
005056 5600211127 12570 BA2 CON6,7 PR4K 12570
005063 7200003707 12580 AB1 31,7 PR4K 12580
005070 7000212067 12590 CB2 ANS6,7 PR4K 12590
* 005075 1000304142 12600 JR EXIT,34 4 STRIMG 6 PR4K 12600
* 005102 1000316100 12610 JR ER2,0 PR4K 12610
005107 4400170600 12620 SC AC2,0 PR4K 12620
005114 4400170536 12630 SC AC1,30 PR4K 12630
005121 6000170541 12640 AC AC1,33 PR4K 12640
005126 3400170577 12650 CC AC1,63 PR4K 12650
* 005133 3000514542 12660 JC $+10,34 4 AC E.P.07005 PR4K 12660 .
* 005140 3000515200 12670 JC $+10,0 PR4K 12670
* 005145 1000304147 12680 JR EXIT,39 9 10123 PR4K 12680
* 005152 1000316100 12690 JR ER2,0 PR4K 12690
005157 4400003603 12700 SC 036,3 PR4K 12700
005164 4400003717 12710 SC 037,15 PR4K 12710
005171 6000003762 12720 AC 037,50 PR4K 12720
005176 3400003701 12730 CC 037,1 PR4K 12730
* 005203 3000521542 12740 JC $+10,34 4 F.S.75 15072 PR4K 12740
* 005210 3000523400 12750 JC $+20,0 PR4K 12750
005215 3400003604 12760 CC 036,4 PR4K 12760
* 005222 3000523447 12770 JC $+10,39 9 PR4K 12770
* 005227 1000304142 12780 JR EXIT,34 4 AC EP, 14025 PR4K 12780
* 005234 1000316100 12790 JR ER2,0 PR4K 12790
005241 2600001700 12800 PD 15,0 PR4K 12800
005246 7200001703 12810 AB1 15,3 PR4K 12810
005253 7000000743 12820 CB1 7,3 PR4K 12820
* 005260 3000527242 12830 JC $+10,34 4 ABEP 07004 PR4K 12830 7
* 005265 3000531100 12840 JC $+20,0 PR4K 12840
* 005272 3000530445 12850 JC $+10,37 7 11034 PR4K 12850
* 005277 3000531100 12860 JC $+10,0 PR4K 12860
* 005304 1000304147 12870 JR EXIT,39 9 10130 PR4K 12870
* 005311 1000316100 12880 JR ER2,0 PR4K 12880
005316 5600212404 12890 BA1 AB1,4 PR4K 12890
005323 7200001704 12900 AB1 15,4 PR4K 12900
* 005330 3000534747 12910 JC $+15,39 9 PR4K 12910
* 005335 3000534742 12920 JC $+10,34 4 PR4K 12920
* 005342 1000304100 12930 JR EXIT,0 PR4K 12930
* 005347 1000316100 12940 JR ER2,0 PR4K 12940
005354 5600212424 12950 BA2 AB1,4 PR4K 12950
005361 7200003724 12960 AB2 31,4 PR4K 12960
* 005366 3000540541 12970 JC $+15,33 3 PR4K 12970
005373 7000213064 12980 CB2 AB2,4 PR4K 12980
* 005400 1000304142 12990 JR EXIT,34 4 IC 07074 PR4K 12990 7
* 005405 1000316100 13000 JR ER2,0 PR4K 13000
005412 5600214024 13010 BA2 AB4,4 PR4K 13010
005417 5600213404 13020 BA1 AB3,4 PR4K 13020
005424 7200003744 13030 SB1 31,4 PR4K 13030
005431 7000213464 13040 CB2 AB3,4 PR4K 13040
* 005436 3000545042 13050 JC $+10,34 4 IC 07074 PR4K 13050 7
* 005443 3000546200 13060 JC $+15,0 PR4K 13060
* 005450 3000546245 13070 JC $+10,37 7 PR4K 13070
* 005455 1000304100 13080 JR EXIT,0 PR4K 13080
* 005462 1000316100 13090 JR ER2,0 PR4K 13090
005467 5600214024 13100 BA2 AB4,4 PR4K 13100
005474 5600213404 13110 BA1 AB3,4 PR4K 13110
005501 7200001764 13120 SB2 15,4 PR4K 13120
* 005506 1000314747 13130 JR ER1,39 C COMP. ANS. 10121 PR4K 13130 N
* 005513 1000307200 13140 JR NEXT,0 PR4K 13140
* 005520 3000150452 13150 JC PIE+4,4242 PR4K 13150
005525 5600213010 13160 BA1 AB2,8 PR4K 13160
005532 7000213050 13170 CB1 AB2,8 PR4K 13170
* 005537 3000555142 13180 JC $+10,34 4 11112 PR4K 13180
* 005544 3000555600 13190 JC $+10,0 PR4K 13190
* 005551 1000304147 13200 JR EXIT,39 9 10122 PR4K 13200
* 005556 1000316100 13210 JR ER2,0 PR4K 13210
005563 5600212004 13220 BA1 ANS6,4 PR4K 13220
005570 7000212044 13230 CB1 ANS6,4 PR4K 13230
* 005575 3000560742 13240 JC $+10,34 4 IC 11102 PR4K 13240 0
* 005602 3000562100 13250 JC $+15,0 PR4K 13250
* 005607 3000562145 13260 JC $+10,37 7 PR4K 13260
* 005614 1000304100 13270 JR EXIT,0 PR4K 13270
* 005621 1000316100 13280 JR ER2,0 PR4K 13280
005626 5600213404 13290 BA1 AB3,4 PR4K 13290
005633 7000214044 13300 CB1 AB4,4 PR4K 13300
* 005640 3000565244 13310 JC $+10,36 6 11112 PR4K 13310
* 005645 3000566400 13320 JC $+15,0 PR4K 13320
* 005652 3000566441 13330 JC $+10,33 3 PR4K 13330
* 005657 1000304100 13340 JR EXIT,0 PR4K 13340
* 005664 1000316100 13350 JR ER2,0 PR4K 13350
005671 5600214004 13360 BA1 AB4,4 PR4K 13360
005676 7000213444 13370 CB1 AB3,4 PR4K 13370
* 005703 3000571541 13380 JC $+10,33 3 11011 PR4K 13380
* 005710 3000572700 13390 JC $+15,0 PR4K 13390
005715 3400213400 13400 CC AB3,0 PR4K 13400
* 005722 1000304142 13410 JR EXIT,34 4 PR4K 13410
* 005727 1000316100 13420 JR ER2,0 PR4K 13420
005734 4400004307 13430 SC 35,7 PR4K 13430
005741 4600237311 13440 BT ZERO,9 PR4K 13440
005746 7600004711 13450 AT 39,9 PR4K 13450
005753 3400004307 13460 CC 35,7 PR4K 13460
* 005760 3000577242 13470 JC $+10,34 4 EP 07003 PR4K 13470 0
* 005765 3000600400 13480 JC $+15,0 PR4K 13480
* 005772 3000600445 13490 JC $+10,37 7 PR4K 13490
* 005777 1000304100 13500 JR EXIT,0 PR4K 13500
* 006004 1000316100 13510 JR ER2,0 PR4K 13510
006011 4600212407 13520 BT AB1,7 PR4K 13520
006016 7600212407 13530 AT AB1,7 PR4K 13530
006023 7000213064 13540 CB2 AB2,4 PR4K 13540
* 006030 3000604242 13550 JC $+10,34 4 07003 PR4K 13550
* 006035 3000605400 13560 JC $+15,0 PR4K 13560
* 006042 3000605447 13570 JC $+10,39 9 PR4K 13570
* 006047 1000304100 13580 JR EXIT,0 PR4K 13580
* 006054 1000316100 13590 JR ER2,0 PR4K 13590
006061 4600237311 13600 BT ZERO,9 PR4K 13600
006066 7600004711 13610 AT 39,9 PR4K 13610
* 006073 3000610547 13620 JC $+10,39 9 11120 PR4K 13620
* 006100 3000611700 13630 JC $+15,0 PR4K 13630
* 006105 3000611741 13640 JC $+10,33 3 PR4K 13640
* 006112 1000304100 13650 JR EXIT,0 PR4K 13650
* 006117 1000316100 13660 JR ER2,0 PR4K 13660
* 006124 3000150452 13670 JC PIE+4,4242 PR4K 13670
006131 5600214004 13680 BA1 AB4,4 PR4K 13680
006136 7400213403 13690 CT AB3,3 PR4K 13690
* 006143 3000615541 13700 JC $+10,33 3 HI 11003 PR4K 13700 0
* 006150 3000616200 13710 JC $+10,0 PR4K 13710
* 006155 1000304147 13720 JR EXIT,39 9 BOF 10120 PR4K 13720 1
* 006162 1000316100 13730 JR ER2,0 PR4K 13730
006167 5600213404 13740 BA1 AB3,4 PR4K 13740
006174 7400214003 13750 CT AB4,3 PR4K 13750
* 006201 3000621344 13760 JC $+10,36 6 LOW 11003 PR4K 13760 0
* 006206 3000622500 13770 JC $+15,0 PR4K 13770
* 006213 3000622542 13780 JC $+10,34 4 PR4K 13780
* 006220 1000304100 13790 JR EXIT,0 PR4K 13790
* 006225 1000316100 13800 JR ER2,0 PR4K 13800
006232 2600001700 13810 PD 15,0 PR4K 13810
006237 2600003720 13820 PD0 31,0 PR4K 13820
006244 6600001700 13830 AD1 15,0 PR4K 13830
006251 7000001760 13840 CB2 15,0 PR4K 13840
* 006256 3000627042 13850 JC $+10,34 4 BLANKS. 08049. 10050 PR4K 13850 .
* 006263 3000627500 13860 JC $+10,0 PR4K 13860
* 006270 1000304145 13870 JR EXIT,37 7 AZ 11035 PR4K 13870 3
* 006275 1000316100 13880 JR ER2,0 PR4K 13880
006302 2600001700 13890 PD 15,0 PR4K 13890
006307 2600003726 13900 PD0 31,6 PR4K 13900
006314 6600001702 13910 AD1 15,2 PR4K 13910
006321 7000001563 13920 CB2 13,3 PR4K 13920
* 006326 3000634042 13930 JC $+10,34 4 E.P. 07014 PR4K 13930 7
* 006333 3000635200 13940 JC $+15,0 PR4K 13940
* 006340 3000635246 13950 JC $+10,38 8 SIGN+ 11076 PR4K 13950 1
* 006345 1000304100 13960 JR EXIT,0 PR4K 13960
* 006352 1000316100 13970 JR ER2,0 PR4K 13970
006357 5600215163 13980 BD2 DEC2,3 PR4K 13980
006364 6600215123 13990 AD2 DEC2,3 PR4K 13990
006371 7000215663 14000 CB2 DEC1-3,3,3 PR4K 14000
* 006376 3000641042 14010 JC $+10,34 4 BLK IC 07078PAN.07077 D6 PR4K 14010
* 006403 3000643400 14020 JC $+25,0 PR4K 14020
* 006410 3000642250 14030 JC $+10,40 0 D.O.F. 10158 PR4K 14030
* 006415 3000643400 14040 JC $+15,0 PR4K 14040
006422 3400003463 14050 CC 28,51 PR4K 14050
* 006427 3000644142 14060 JC $+10,34 4 SENT. 10026 PR4K 14060 1
* 006434 1000314700 14070 JR ER1,0 PR4K 14070
* 006441 3000644635 14080 JC $+5,29 R RESET CL�2 PR4K 14080 L
* 006446 1000307226 14090 JR NEXT,22 2 RESET SI�2 PR4K 14090 S
006453 5600215165 14100 BD2 DEC2,5 PR4K 14100
006460 4400003414 14110 SC 28,12 PR4K 14110
006465 6600215123 14120 AD2 DEC2,3 PR4K 14120
006472 7000215663 14130 CB2 DEC1-3,3,3 PR4K 14130
* 006477 3000651142 14140 JC $+10,34 4 EP 07017 CY+CY- PR4K 14140 1
* 006504 3000653000 14150 JC $+20,0 PR4K 14150
* 006511 3000653050 14160 JC $+15,40 0 DOF 10158CY- PR4K 14160 1
006516 3400003307 14170 CC 27,7 PR4K 14170
* 006523 1000304142 14180 JR EXIT,34 4 BLK.MEM LOC 08078.08046 PR4K 14180 M
* 006530 1000316100 14190 JR ER2,0 PR4K 14190
006535 2600001732 14200 PD0 15,10 XSXS-3 CORR. GATES CY - PR4K 14200 R
006542 6600215312 14210 AD1 DEC1-6,1,10 PR4K 14210
006547 2600215352 14220 CD1 DEC1-6,1,10 PR4K 14220
* 006554 1000304142 14230 JR EXIT,34 4 PR4K 14230
* 006561 1000316100 14240 JR ER2,0 PR4K 14240
006566 5600215453 14250 BD1 DEC1-5,1,11 XS-3 CORR. GATES CY PR4K 14250
006573 6600257413 14260 AD1 K64,11 PR4K 14260
006600 2600260753 14270 CD1 K65,11 PR4K 14270
* 006605 1000304142 14280 JR EXIT,34 4 PR4K 14280
* 006612 1000316100 14290 JR ER2,0 PR4K 14290
006617 5600215141 14300 BD1 DEC2,1 PR4K 14300
006624 6600215104 14310 AD1 DEC2,4 PR4K 14310
006631 7000216144 14320 CB1 DEC1,4 PR4K 14320
* 006636 3000665042 14330 JC $+10,34 4 BLK.M.SF 08052.10026 PR4K 14330 S
* 006643 3000670100 14340 JC $+30,0 PR4K 14340
006650 3400001363 14350 CC 11,51 PR4K 14350
* 006655 3000666742 14360 JC $+10,34 4 SENT 16015 PR4K 14360 6
* 006662 3000670100 14370 JC $+15,0 PR4K 14370
* 006667 3000670145 14380 JC $+10,37 7 AZ-11042.11043 PR4K 14380 4
* 006674 1000304100 14390 JR EXIT,0 PR4K 14390
* 006701 1000316100 14400 JR ER2,0 PR4K 14400
006706 5600215644 14410 BD1 DEC1-3,4,4 PR4K 14410
006713 6400001740 14420 LS 15,32 PR4K 14420
006720 5600215166 14430 BD2 DEC2,6 PR4K 14430
006725 6600003704 14440 AD1 31,4 PR4K 14440
006732 6400003740 14450 LS 31,32 PR4K 14450
006737 7000003744 14460 CB1 31,4 PR4K 14460
* 006744 3000675642 14470 JC $+10,34 4 I.C.+C.P. 07077. PR4K 14470 .
* 006751 3000700200 14480 JC $+25,0 PR4K 14480
* 006756 3000677046 14490 JC $+10,38 8 -SIGN 11076M6-011084 PR4K 14490 1
* 006763 3000700200 14500 JC $+15,0 PR4K 14500
* 006770 3000700250 14510 JC $+10,40 0 DOF- 10158 CP PR4K 14510 0
* 006775 1000304100 14520 JR EXIT,0 PR4K 14520
* 007002 1000316100 14530 JR ER2,0 PR4K 14530
007007 5600215644 14540 BD1 DEC1-3,4,4 PR4K 14540
007014 5600215164 14550 BD2 DEC2,4 PR4K 14550
007021 6400003740 14560 LS 31,32 PR4K 14560
007026 6600001724 14570 AD2 15,4 PR4K 14570
007033 7000215164 14580 CB2 DEC2,4 PR4K 14580
* 007040 3000705242 14590 JC $+10,34 4 RECOMP 09063.07016 RDL PR4K 14590
* 007045 3000706400 14600 JC $+15,0 PR4K 14600
* 007052 3000706446 14610 JC $+10,38 8 STEP AN 11061.08099 PR4K 14610 N
* 007057 1000304100 14620 JR EXIT,0 E EP BMFMCP 07015 PR4K 14620 C
* 007064 1000316100 14630 JR ER2,0 PR4K 14630
007071 4400003663 14640 SC 30,51 PR4K 14640
007076 4400001710 14650 SC 15,8 PR4K 14650
007103 4400003750 14660 SC 31,40 PR4K 14660
007110 6600001721 14670 AD2 15,1 PR4K 14670
007115 3400003703 14680 CC 31,3 PR4K 14680
* 007122 3000713442 14690 JC $+10,34 4 EP EPI 07013.07016 AZ- PR4K 14690
* 007127 3000715300 14700 JC $+20,0 PR4K 14700
* 007134 3000715350 14710 JC $+15,40 0 DOF- 09091.08096 CY PR4K 14710 9
* 007141 3000715346 14720 JC $+10,38 8 + AN 11061.11084 PR4K 14720 1
* 007146 1000304100 14730 JR EXIT,0 PR4K 14730
* 007153 1000316100 14740 JR ER2,0 PR4K 14740
007160 5600215144 14750 BD1 DEC2,4 PR4K 14750
007165 6400001740 14760 LS 15,32 PR4K 14760
007172 6600001704 14770 AD1 15,4 PR4K 14770
* 007177 3000721146 14780 JC $+10,38 8 SIGN- 11084.08095 CP PR4K 14780 1
* 007204 3000723000 14790 JC $+20,0 PR4K 14790
007211 5400001737 14800 LP 15,31 PR4K 14800
007216 7000215644 14810 CB1 DEC1-3,4,4 PR4K 14810
* 007223 1000304142 14820 JR EXIT,34 4 BLOCK IC 07078 D6-. 07077 PAN- PR4K 14820 I
* 007230 1000316100 14830 JR ER2,0 PR4K 14830
007235 5600214241 14840 BD1 DEC2-7,1,1 PR4K 14840
007242 6400001740 14850 LS 15,32 PR4K 14850
007247 6600001701 14860 AD1 15,1 PR4K 14860
007254 3400001743 14870 CC 15,35 PR4K 14870
* 007261 1000304142 14880 JR EXIT,34 4 -SIGN 11075 CP-. 07014 PR4K 14880 1
* 007266 1000316100 14890 JR ER2,0 PR4K 14890
007273 5600215141 14900 BD1 DEC2,1 PR4K 14900
007300 6600001741 14910 SD1 15,1 PR4K 14910
007305 3400001703 14920 CC 15,3 PR4K 14920
* 007312 1000304142 14930 JR EXIT,34 4 ICT S PR4K 14930
* 007317 1000316100 14940 JR ER2,0 PR4K 14940
007324 5600215141 14950 BD1 DEC2,1 PR4K 14950
007331 6400001740 14960 LS 15,32 PR4K 14960
007336 6600001741 14970 SD1 15,1 PR4K 14970
007343 3400001703 14980 CC 15,3 PR4K 14980
* 007350 1000304142 14990 JR EXIT,34 4 IC- S PR4K 14990
* 007355 1000316100 15000 JR ER2,0 PR4K 15000
007362 5600216141 15010 BD1 DEC1,1 PR4K 15010
007367 6400001740 15020 LS 15,32 PR4K 15020
007374 5600216161 15030 BD2 DEC1,1 PR4K 15030
007401 6600003741 15040 SD1 31,1 PR4K 15040
007406 3400001753 15050 CC 15,43 PR4K 15050
* 007413 1000304142 15060 JR EXIT,34 4 BLK. I.C. PR4K 15060 .
* 007420 1000316100 15070 JR ER2,0 PR4K 15070
007425 5600216141 15080 BD1 DEC1,1 PR4K 15080
007432 6400001740 15090 LS 15,32 PR4K 15090
007437 5600216161 15100 BD2 DEC1,1 PR4K 15100
007444 6600001761 15110 SD2 15,1 PR4K 15110
007451 3400003713 15120 CC 31,11 PR4K 15120
* 007456 1000304142 15130 JR EXIT,34 4 BLKIC PR4K 15130
* 007463 1000316100 15140 JR ER2,0 PR4K 15140
* 007470 3200327677 15150 LOAD4 JL OKAY,63 3 PR4K 15150
* 007475 1000755500 15152 JR TST3 PR4K 15152
* 007502 3000752640 15160 JC $+20,32 2 SKIP PR4K 15160
007507 2000040044 15170 FT 0400,36 6 PR4K 15170
007514 4020610000 15180 XF 061,0,0,0,1 READ LOAD CARD OF PASS 4 PR4K 15180 D
* 007521 3000044000 15190 J 0440 PR4K 15190
007526 2000040060 15200 FT 0400,48 8 PR4K 15200
007533 2000777761 15210 FT 07777,4949 PR4K 15210
007540 4100610100 15220 XF 061,010000,0,4 READ LOAD BLK OF PASS 4 PR4K 15220 R
* 007545 3000044000 15230 J 0440 PR4K 15230
* 007552 3000000000 15231 TST3 J 0 PR4K 15231
007557 3400261200 15232 CC LDSWT,0 0 PR4K 15232
* 007564 3000762742 15233 JE $+35 PR4K 15233
007571 3400261230 15234 CC LDSWT,03030 PR4K 15234
* 007576 3000755242 15235 JE TST3 PR4K 15235
007603 3400261277 15236 CC LDSWT,07077 PR4K 15236
* 007610 3000764143 15237 JU DEST3 PR4K 15237
007615 4400752424 15238 SC LOAD4+2828,024 PR4K 15238
* 007622 3000755200 15239 J TST3 PR4K 15239
007627 4400750600 152391 SC LOAD4+1414,0 PR4K 152391
* 007634 3000755200 152392 J TST3 PR4K 152392
* 007641 3000764160 152393DEST3 JD DEST3 LOAD SWITCH AT 02612 NOT 0,30,OR 77 PR4K 152393D
* 007646 3000747500 152394 J LOAD4+5 5 FOR TAPE,80 OR90 CARD LDRS PR4K 152394
SEGMENT-ID T468 3000300000 SEGJP MANST
*LOAD 0700,TAPAPE
000440 * ORIG 0440 *
* 000440 3000044536 * JC $+5,036 6 *
000445 6000050740 * AC 0507,04040 *
000452 2000111111 * FT 0700+021211,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 2000111160 * FT 0700+021211,48,0 *
000554 2000024261 * FT 162,49 *
000561 4100610100 * XF 061,010000,0,4 *
000566 2000000103 * FT 1,3 *
* 000573 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 7020004642 * CB1 38,2,1 *
* 001072 3020004042 * JE 32,1 *
* 001077 3007010560 * JD 070105 *
* 001104 3020004000 * J 32,1 *
001111 245 * AREA 165 *
SEGMENT-ID T469 3000300000 15240 SEGJP MANST PR4K 15240
003310 15250 ORIG 03310 PR4K 15250
003310 5600215104 15260 BA1 DEC2,4 PR4K 15260
003315 5600215164 15270 BD2 DEC2,4 PR4K 15270
003322 6200001724 15280 AM2 15,4 PR4K 15280
003327 7000215644 15290 CB1 DEC1-3,4,4 PR4K 15290
* 003334 1000304142 15300 JR EXIT,34 4 EP BHCP CY A2 PR4K 15300 P
* 003341 1000316100 15310 JR ER2,0 PR4K 15310
003346 5600215103 15320 BA1 DEC2,3 PR4K 15320
003353 5600215164 15330 BD2 DEC2,4 PR4K 15330
003360 4400001400 15340 SC 12,0 PR4K 15340
003365 6200001723 15350 AM2 15,3 PR4K 15350
003372 7000215643 15360 CB1 DEC1-3,3,3 PR4K 15360
* 003377 3000341150 15370 JC $+10,40 0 LAC FAC PR4K 15370 C
* 003404 3000344200 15380 JC $+30,0 PR4K 15380
003411 3400001400 15390 CC 12,0 PR4K 15390
* 003416 3000343042 15400 JC $+10,34 4 EP BM 1 AC CP PC4 PR4K 15400 1
* 003423 3000344200 15410 JC $+15,0 PR4K 15410
* 003430 3000343535 15420 JC $+5,29 R RESET CL�2 PR4K 15420 L
* 003435 1000304126 15430 JR EXIT,22 2 RESET SI�2 PR4K 15430 S
* 003442 1000316100 15440 JR ER2,0 PR4K 15440
003447 5600215104 15450 BA1 DEC2,4 PR4K 15450
003454 5600215163 15460 BD2 DEC2,3 PR4K 15460
003461 6200001724 15470 AM2 15,4 PR4K 15470
003466 7000215643 15480 CB1 DEC1-3,3,3 PR4K 15480
* 003473 3000350542 15490 JC $+10,34 4 M A PR4K 15490
* 003500 3000351700 15500 JC $+15,0 PR4K 15500
003505 3400001410 15510 CC 12,8 PR4K 15510
* 003512 1000304142 15520 JR EXIT,34 4 SEN BM PR4K 15520
* 003517 1000316100 15530 JR ER2,0 PR4K 15530
003524 5600215104 15540 BA1 DEC2,4 A A M PR4K 15540
003531 5600215064 15550 BD2 DEC2-1,4,4 PR4K 15550
003536 6400003740 15560 LS 31,32 PR4K 15560
003543 6200001723 15570 AM2 15,3 PR4K 15570
003550 3400001504 15580 CC 13,4 PR4K 15580
* 003555 3000356742 15590 JC $+10,34 4 I.C. PR4K 15590
* 003562 3000360100 15600 JC $+15,0 PR4K 15600
* 003567 3000360146 15610 JC $+10,38 8 EP PC4 PR4K 15610
* 003574 1000304100 15620 JR EXIT,0 PR4K 15620
* 003601 1000316100 15630 JR ER2,0 PR4K 15630
003606 4400001750 15640 SC 15,40 T1T19 PR4K 15640
003613 4400003710 15650 SC 31,8 PR4K 15650
003620 6200001721 15660 AM2 15,1 PR4K 15660
* 003625 3000364446 15670 JC $+15,38 8 SET EPF PR4K 15670 F
003632 3400001703 15680 CC 15,3 PR4K 15680
* 003637 1000304142 15690 JR EXIT,34 4 BLOCK EPPC4 A2 PR4K 15690 E
* 003644 1000316100 15700 JR ER2,0 PR4K 15700
003651 5600216103 15710 BA1 DEC1,3 T T20 PR4K 15710
003656 5600215463 15720 BD2 DEC1-5,3,3 PR4K 15720
003663 6400003740 15730 LS 31,32 PR4K 15730
003670 6200001723 15740 AM2 15,3 PR4K 15740
* 003675 3000370746 15750 JC $+10,38 8 BLOCK EP PC4 RDL PR4K 15750 E
* 003702 3000372100 15760 JC $+15,0 PR4K 15760
003707 3400001752 15770 CC 15,42 PR4K 15770
* 003714 1000304142 15780 JR EXIT,34 4 RECOMP EP PC4 CP PR4K 15780
* 003721 1000316100 15790 JR ER2,0 PR4K 15790
003726 5600215604 15800 BA1 DEC1-3,4,4 PR4K 15800
003733 5600215164 15810 BD2 DEC2,4 PR4K 15810
003740 6200001764 15820 SM2 15,4 PR4K 15820
003745 7000215144 15830 CB1 DEC2,4 PR4K 15830
* 003752 1000304142 15840 JR EXIT,34 4 IC PR4K 15840
* 003757 1000316100 15850 JR ER2,0 PR4K 15850
003764 5600215104 15860 BA1 DEC2,4 PR4K 15860
003771 5600215164 15870 BD2 DEC2,4 PR4K 15870
003776 6400003740 15880 LS 31,32 PR4K 15880
004003 6200001764 15890 SM2 15,4 PR4K 15890
004010 7000215644 15900 CB1 DEC1-3,4,4 PR4K 15900
* 004015 1000304142 15910 JR EXIT,34 4 BLK IC PR4K 15910
* 004022 1000316100 15920 JR ER2,0 PR4K 15920
004027 5600215146 15930 BD1 DEC2,6 PR4K 15930
004034 2600215146 15940 CD1 DEC2,6 PR4K 15940
* 004041 3000405342 15950 JC $+10,34 4 IC+CP+ PR4K 15950
* 004046 3000406500 15960 JC $+15,0 PR4K 15960
004053 3400001712 15970 CC 15,10 PR4K 15970
* 004060 1000304142 15980 JR EXIT,34 4 BLK. MEM PR4K 15980 E
* 004065 1000316100 15990 JR ER2,0 PR4K 15990
004072 5600216144 16000 BD1 DEC1,4 PR4K 16000
004077 6400001740 16010 LS 15,32 PR4K 16010
004104 2600001744 16020 CD1 15,4 PR4K 16020
* 004111 3000412342 16030 JC $+10,34 4 IC+CP- PR4K 16030
* 004116 3000413500 16040 JC $+15,0 PR4K 16040
* 004123 3000413544 16050 JC $+10,36 6 EP FAL PR4K 16050
* 004130 1000304100 16060 JR EXIT,0 PR4K 16060
* 004135 1000316100 16070 JR ER2,0 PR4K 16070
004142 5600215142 16080 BD1 DEC2,2 PR4K 16080
004147 6400001740 16090 LS 15,32 PR4K 16090
004154 2600215142 16100 CD1 DEC2,2 PR4K 16100
* 004161 3000417344 16110 JC $+10,36 6 M6 HI PR4K 16110
* 004166 3000420500 16120 JC $+15,0 PR4K 16120
* 004173 3000420542 16130 JC $+10,34 4 RESET EQ PR4K 16130 E
* 004200 1000304100 16140 JR EXIT,0 PR4K 16140
* 004205 1000316100 16150 JR ER2,0 PR4K 16150
004212 5600216143 16160 BD1 DEC1,3 PR4K 16160
004217 5600216163 16170 BD2 DEC1,3 PR4K 16170
004224 6400001740 16180 LS 15,32 PR4K 16180
004231 2600001763 16190 CD2 15,3 PR4K 16190
* 004236 3000425041 16200 JC $+10,33 3 M6 HI PR4K 16200
* 004243 3000426200 16210 JC $+15,0 PR4K 16210
* 004250 3000426244 16220 JC $+10,36 6 EP SIGN PR4K 16220 N
* 004255 1000304100 16230 JR EXIT,0 PR4K 16230
* 004262 1000316100 16240 JR ER2,0 PR4K 16240
004267 5600215144 16250 BD1 DEC2,4 PR4K 16250
004274 2600215044 16260 CD1 DEC2-1,4,4 PR4K 16260
* 004301 1000304141 16270 JR EXIT,33 3 CY BLOCK FAC+SF PR4K 16270 C
* 004306 1000316100 16280 JR ER2,0 PR4K 16280
004313 5600215145 16290 BD1 DEC2,5 PR4K 16290
004320 2600215143 16300 CD1 DEC2,3 PR4K 16300
* 004325 1000304141 16310 JR EXIT,33 3 HI PR4K 16310
* 004332 1000316100 16320 JR ER2,0 EPEP BM CY EQ PR4K 16320
004337 5600215142 16330 BD1 DEC2,2 PR4K 16330
004344 2600215144 16340 CD1 DEC2,4 PR4K 16340
* 004351 1000304144 16350 JR EXIT,36 6 SF CY PR4K 16350
* 004356 1000316100 16360 JR ER2,0 EPEP SF CY PR4K 16360
004363 5600216160 16370 BD2 DEC1,0 PR4K 16370
004370 2600216160 16380 CD2 DEC1,0 PR4K 16380
* 004375 1000304142 16390 JR EXIT,34 4 EP FAC - CY PR4K 16390
* 004402 1000316100 16400 JR ER2,0 PR4K 16400
004407 5600217201 16410 BA1 K38,1 01011042 PR4K 16410
004414 5600217321 16420 BA2 K39,1 PR4K 16420
004421 7200001721 16430 AB2 15,1 PR4K 16430
* 004426 1000314745 16440 JR ER1,37 PR4K 16440
* 004433 1000307200 16450 JR NEXT,0 PR4K 16450
004440 5600225101 16460 BA1 K49,1 01011043 PR4K 16460
004445 5600225521 16470 BA2 K49+4,1 1 PR4K 16470
004452 7200001721 16480 AB2 15,1 PR4K 16480
* 004457 1000314745 16490 JR ER1,37 PR4K 16490
* 004464 1000307200 16500 JR NEXT,0 PR4K 16500
004471 4400012705 16510 SC 87,5 CHEHECK MP,009035, IER 2 PR4K 16510 0
004476 5600216161 16520 BD2 DEC1,1 I ICAND 4 PR4K 16520
004503 5000250001 16530 MPN 02500,1 1 402 NON-CUMULATIVE PR4K 16530
004510 7000216341 16540 CB1 K35,1 DEDEC 8,OCT 13 PR4K 16540 T
* 004515 3000452742 16550 JC $+10,34 4 PR4K 16550
* 004522 3000454100 16560 JC $+15,0 PR4K 16560
* 004527 3000454145 16570 JC $+10,37 7 011041, AZ RESET BY S4 PR4K 16570 ,
* 004534 1000304100 16580 JR EXIT,0 PR4K 16580
* 004541 1000316100 16590 JR ER2,0 PR4K 16590
004546 4400012706 16600 SC 87,6 00909035D2-+,036D3-,IER3 PR4K 16600 +
004553 5600215261 16610 BD2 DEC2+1,1,1 ICAND 8, OCT 13 PR4K 16610
004560 5000000001 16620 MPN ,1 8X3 N-C PR4K 16620
004565 7000216642 16630 CB1 K36,2 DEDEC 24,OCT 0507 PR4K 16630 C
* 004572 3000460442 16640 JC $+10,34 4 PR4K 16640
* 004577 3000461600 16650 JC $+15,0 PR4K 16650
* 004604 3000461645 16660 JC $+10,37 7 011040, AZ RESET BY S3 PR4K 16660 ,
* 004611 1000304100 16670 JR EXIT,0 PR4K 16670
* 004616 1000316100 16680 JR ER2,0 PR4K 16680
004623 4400012714 16690 SC 87,12 00009035D4-,IER9 PR4K 16690 -
004630 5600214161 16700 BD2 WORK,1 I ICAND 0 PR4K 16700
004635 5000000001 16710 MPN ,1 0X9 N-C PR4K 16710
004642 7000217041 16720 CB1 K37,1 DEDEC 0,OCT 03 PR4K 16720 T
* 004647 3000466142 16730 JC $+10,34 4 PR4K 16730
* 004654 3000466600 16740 JC $+10,0 PR4K 16740
* 004661 1000304145 16750 JR EXIT,37 7 011033 PR4K 16750
* 004666 1000316100 16760 JR ER2,0 PR4K 16760
004673 4400012710 16770 SC 87,8 00909036D4-,IER5 PR4K 16770 ,
004700 5600160661 16780 BD2 K12+1,1 1 ICAND 2,OCT05 PR4K 16780 2
004705 5000000001 16790 MPN ,1 2X5 N-C PR4K 16790
004712 2600217242 16800 CD1 K38,2 OCOCT 0403 PR4K 16800
* 004717 3000473142 16810 JC $+10,34 4 PR4K 16810
* 004724 3000474300 16820 JC $+15,0 PR4K 16820
* 004731 3000474345 16830 JC $+10,37 7 PR4K 16830
* 004736 1000304100 16840 JR EXIT,0 PR4K 16840
* 004743 1000316100 16850 JR ER2,0 PR4K 16850
004750 4400012703 16860 SC 87,3 00909036,IER0 PR4K 16860 R
004755 5600161161 16870 BD2 K12+4,1 1 ICAND 9,OCT14 PR4K 16870 9
004762 5000000001 16880 MPN ,1 9X0 N-C PR4K 16880
004767 2600217241 16890 CD1 K38,1 OCOCT03 PR4K 16890
* 004774 1000304142 16900 JR EXIT,34 4 PR4K 16900
* 005001 1000316100 16910 JR ER2,0 PR4K 16910
005006 5600217462 16920 BD2 K41,2 MIMINUS X MINUS, OCT 0445 PR4K 16920 M
005013 5600217602 16930 BA1 K42,2 OCOCT 0546 PR4K 16930
005020 5200012702 16940 SA1 87,2 PR4K 16940
005025 5000000002 16950 MPN ,2 -12X-23 N-C PR4K 16950
005032 2600220143 16960 CD1 K43,3 OCOCT 051211 PR4K 16960 1
* 005037 3000505142 16970 JC $+10,34 4 PR4K 16970
* 005044 3000506300 16980 JC $+15,0 PR4K 16980
* 005051 3000506346 16990 JC $+10,38 8 PR4K 16990
* 005056 1000304100 17000 JR EXIT,0 PR4K 17000
* 005063 1000316100 17010 JR ER2,0 PR4K 17010
005070 5600220564 17020 BD2 K44,4 MIMINUS X PLUS, OCT 06071051 PR4K 17020 P
005075 5600221104 17030 BA1 K45,4 OCOCT 11121314 PR4K 17030 1
005102 5200012704 17040 SA1 87,4 PR4K 17040
005107 5000000004 17050 MPN ,4 -3456X6789 N-C PR4K 17050
005114 2600222150 17060 CD1 K46,8 OCOCT 0506071105121347 PR4K 17060 0
* 005121 3000513342 17070 JC $+10,34 4 PR4K 17070
* 005126 3000514000 17080 JC $+10,0 PR4K 17080
* 005133 1000304146 17090 JR EXIT,38 8 PR4K 17090
* 005140 1000316100 17100 JR ER2,0 PR4K 17100
005145 5600223170 17110 BD2 K47,8 PLPLUSXMINUS, OCT 141210 PR4K 17110 U
005152 5600224110 17120 BA1 K48,8 060604030507 PR4K 17120 0
005157 5200012710 17130 SA1 87,8 111113141112071045 PR4K 17130 2
005164 5000000000 17140 MPN ,0 PR4K 17140
005171 2600226140 17150 CD1 K51,16 O OCT 1112051107111105 PR4K 17150 2
* 005176 3000521042 17160 JC $+10,34 4 0411050603130753 PR4K 17160 0
* 005203 3000521500 17170 JC $+10,0 PR4K 17170
* 005210 1000304146 17180 JR EXIT,38 8 PR4K 17180
* 005215 1000316100 17190 JR ER2,0 PR4K 17190
* 005222 1000556164 17200 RANDM JR PRINT,5252 RANDOM MULTIPLY PR4K 17200
005227 4400545477 17210 SC CTR+4,6363 PR4K 17210
005234 4400546677 17220 SC CTR+14,6,63 PR4K 17220
005241 4400534620 17230 3 SC NXT+29,1,16 PR4K 17230
005246 5600223140 17240 BD1 K47,16 PR4K 17240
005253 5200013710 17250 SA1 95,8 PR4K 17250
005260 5600000730 17260 BA2 7,8 PR4K 17260
* 005265 1000307200 17270 JR NEXT,0 PR4K 17270
005272 4400541102 17280 AGAIN SC $+79,2 PR4K 17280
005277 5600013710 17290 BA1 95,8 PR4K 17290
005304 5200000730 17300 SA2 7,8 PR4K 17300
005311 2000000011 17310 NXT FT 0,9 PR4K 17310
005316 3420000003 17320 CC 0,3,1 PR4K 17320
* 005323 3000533544 17330 JC $+10,36 6 PR4K 17330
005330 4420000012 17340 SC 0,10,1 PR4K 17340
005335 6000004701 17350 AC 39,1 PR4K 17350
* 005342 3200531620 17360 JL NXT+5,1616 PR4K 17360
005347 4400534620 17370 SC $-1,16 PR4K 17370
005354 5200012710 17380 SA1 87,8 PR4K 17380
005361 5200013710 17390 SA1 95,8 PR4K 17390
005366 5600000770 17400 BD2 7,8 PR4K 17400
005373 5000000010 17410 MPN ,8 PR4K 17410
* 005400 1000556164 17420 JR PRINT,5252 PR4K 17420
* 005405 3200552502 17430 JL SWAP,2 PR4K 17430
005412 4400541102 17440 SC $-1,2 PR4K 17440
005417 2600245340 17450 CD1 PROD,16 6 PR4K 17450
* 005424 1000304142 17460 JR EXIT,34 4 PR4K 17460
* 005431 1000316100 17470 JR ER2,0 PR4K 17470
005436 2000527207 17480 FT AGAIN,7 7 PR4K 17480
005443 5200312323 17490 SA2 REP+3,3 3 PR4K 17490
* 005450 3200531177 17500 CTR JL NXT,63 PR4K 17500
005455 4400545477 17510 SC $-1,63 PR4K 17510
* 005462 3200531177 17520 JL NXT,63 PR4K 17520
005467 4400546677 17530 SC $-1,63 PR4K 17530
005474 2600230140 17540 CD1 K52,16 PR4K 17540
* 005501 1000304142 17550 JR EXIT,34 4 PR4K 17550
* 005506 1000316100 17560 JR ER2,0 PR4K 17560
005513 4400556702 17570 SC PRINT+9,9,2 PR4K 17570
* 005520 3000570300 17580 JC CUMT,0 PR4K 17580
005525 5200245300 17590 SWAP SA1 PROD,16 6 PR4K 17590
005532 5600003710 17600 BA1 31,8 PR4K 17600
005537 5600013730 17610 BA2 95,8 PR4K 17610
005544 5200000730 17620 SA2 7,8 PR4K 17620
* 005551 3000531100 17630 JC NXT,0 PR4K 17630
* 005556 3000555600 17640 PRINT JC $,0 PR4K 17640
* 005563 3200563302 17650 JL TITLE,2 2 PR4K 17650
005570 4200272026 17660 ST PTMP+16,6,22 PR4K 17660
005575 4200272427 17670 ST PTMP+20,0,23 PR4K 17670
005602 5200274230 17680 SA2 PTMP+34,4,8 PR4K 17680
005607 5200276600 17690 SA1 PTMP+54,4,16 PR4K 17690
005614 4000620400 17700 XF 50,0040000,00,0 PR4K 17700
* 005621 3000555600 17710 JC PRINT,0 0 PR4K 17710
* 005626 3000555600 17720 JC PRINT,0 0 PR4K 17720
005633 2000270040 17730 TITLE FT PTMP,32 2 PR4K 17730
005640 4400020701 17740 SC 0207,1 PR4K 17740
005645 2000004422 17750 FT 36,18 PR4K 17750
005652 2000271620 17760 FT PTMP+14,4,16 PR4K 17760
005657 2400245401 17770 TFR PROD+1,1,1 PR4K 17770
005664 2600271504 17780 PD PTMP+13,3,4 PR4K 17780
005671 2600277706 17790 PD PTMP+63,3,6 PR4K 17790
* 005676 3000561400 17800 JC PRINT+3030,0 PR4K 17800
005703 5600221240 17810 CUMT BD1 K45+1,1616 CUMULATIVE MULTIPLY TEST PR4K 17810 A
005710 5200012710 17820 SA1 87,8 PR4K 17820
005715 5600222170 17830 BD2 K46,8 PR4K 17830
005722 5000000030 17840 MPC ,8 PR4K 17840
005727 2600232140 17850 CD1 K53,16 PR4K 17850
* 005734 1000304142 17860 JR EXIT,34 4 PR4K 17860
* 005741 1000316100 17870 JR ER2,0 PR4K 17870
* 005746 3000237352 17880 JC ZERO,42 2 011 033 BAZ- PR4K 17880
005753 2600001720 17890 PD0 15,16 PR4K 17890
005760 2600012730 17900 PD0 87,8 PR4K 17900
005765 5600214261 17910 BD2 WORK+1,1,1 PR4K 17910
005772 5000000021 17920 MPC ,1 PR4K 17920
* 005777 1000314745 17930 JR ER1,37 PR4K 17930
* 006004 1000307200 17940 JR NEXT,0 PR4K 17940
* 006011 3000150652 17950 JC PIE+6,4242 PR4K 17950
006016 5600214461 17960 BD2 WORK+3,1,1 PR4K 17960
006023 2600001720 17970 PD0 15,16 PR4K 17970
006030 4400012705 17980 SC 87,5 PR4K 17980
006035 5000000021 17990 MPC ,1 2X2- PR4K 17990
* 006042 1000304145 18000 JR EXIT,37 7 PR4K 18000
* 006047 1000316100 18010 JR ER2,0 PR4K 18010
* 006054 3000150652 18020 JC PIE+6,4242 PR4K 18020
006061 5600214461 18030 BD2 WORK+3,1,1 PR4K 18030
006066 2600001720 18040 PD0 15,16 PR4K 18040
006073 4400012713 18050 SC 87,11 PR4K 18050
006100 5000000021 18060 MPC ,1 2X4 PR4K 18060
* 006105 1000304145 18070 JR EXIT,37 7 PR4K 18070
* 006112 1000316100 18080 JR ER2,0 PR4K 18080
* 006117 3000612434 18090 JC $+5,28 010 159 TEST DOF WITH PR4K 18090
006124 5600223777 18100 BD2 K48-2,1515 CY, CM - PR4K 18100
006131 5600217502 18110 BA1 K42-1,2 2 PR4K 18110
006136 5200012702 18120 SA1 0127,2 PR4K 18120
006143 5000000002 18130 MPN ,2 PR4K 18130
* 006150 3000616250 18140 JC $+10,40 0 PR4K 18140
* 006155 1000314700 18150 JR ER1,0 PR4K 18150
* 006162 1000307237 18160 JR NEXT,31 1 PR4K 18160
* 006167 3000617434 18170 JC $+5,28 T TEST DOF WITH CM, CY- PR4K 18170 F
006174 5600222077 18180 BD2 K46-1,1515 PR4K 18180
006201 5600225102 18190 BA1 K49,2 PR4K 18190
006206 5200012702 18200 SA1 0127,2 PR4K 18200
006213 5000000002 18210 MPN ,2 PR4K 18210
* 006220 3000623250 18220 JC $+10,40 0 PR4K 18220
* 006225 1000314700 18230 JR ER1,0 PR4K 18230
* 006232 1000307237 18240 JR NEXT,31 1 PR4K 18240
006237 4600221125 18250 BT K45,21 C CHECK DIVIDE, PLUS PLUS PR4K 18250 I
006244 5600217301 18260 BA1 K39,1 PR4K 18260
006251 2600001621 18270 PD0 14,1 PR4K 18270
006256 5600220261 18280 BD2 K43+1,1 1 PR4K 18280
006263 5000000041 18290 DV 0, 1 1 3 3 PR4K 18290
006270 5600012721 18300 BA2 87,1 PR4K 18300
006275 7000217261 18310 CB2 K38,1 Q QUOTIENT OCT 03 PR4K 18310 T
* 006302 3000631442 18320 JC $+10,34 4 PR4K 18320
* 006307 3000635700 18330 JC $+40,0 PR4K 18330
006314 4400001663 18340 SC 14,51 PR4K 18340
006321 2600217341 18350 CD1 K39,1 REREMAINDER OCT 04 PR4K 18350 R
* 006326 3000634042 18360 JC $+10,34 4 PR4K 18360
* 006333 3000635700 18370 JC $+20,0 PR4K 18370
* 006340 3000635745 18380 JC $+15,37 7 AZ RESET PR4K 18380 E
* 006345 3000635746 18390 JC $+10,38 8 AN RESET PR4K 18390 E
* 006352 1000304100 18400 JR EXIT,0 PR4K 18400
* 006357 1000316100 18410 JR ER2,0 PR4K 18410
006364 4600230325 18420 BT K52+2,2121 PLUS MINUS PR4K 18420
006371 5600220303 18430 BA1 K43+2,3 3 OCT 110607 PR4K 18430 1
006376 2600001422 18440 PD0 12,2 PR4K 18440
006403 5600232362 18450 BD2 K54,2 OCOCT 0552 PR4K 18450
006410 5000000042 18460 DV 0, 2 63634 -27 PR4K 18460
006415 5600012722 18470 BA2 87,2 PR4K 18470
006422 2600217662 18480 CD2 K42,2 QUQUOTIENT OCT 0546 PR4K 18480
* 006427 3000644142 18490 JC $+10,34 4 PR4K 18490
* 006434 3000647200 18500 JC $+30,0 PR4K 18500
006441 4400001563 18510 SC 13,51 PR4K 18510
006446 2600231442 18520 CD1 K53-5,2 2 REMAINDER OCT 0406 PR4K 18520 N
* 006453 3000646542 18530 JC $+10,34 4 PR4K 18530
* 006460 3000647200 18540 JC $+10,0 PR4K 18540
* 006465 1000304146 18550 JR EXIT,38 8 PR4K 18550
* 006472 1000316100 18560 JR ER2,0 PR4K 18560
006477 4600221125 18570 BT K45,21 MINUS PLUS PR4K 18570 P
006504 5600222107 18580 BA1 K46,7 O OCT 06071105121347 PR4K 18580 7
006511 2600001021 18590 PD0 8,1 PR4K 18590
006516 5600220164 18600 BD2 K43,4 O OCT 06051211 PR4K 18600 5
006523 5000000044 18610 DV 0, 4 343462784- 3276 PR4K 18610
006530 5600012724 18620 BA2 87,4 PR4K 18620
006535 7000233164 18630 CB2 K56,4 Q QUOTIENT OCT 04031052 PR4K 18630 T
* 006542 3000655442 18640 JC $+10,34 4 PR4K 18640
* 006547 3000660500 18650 JC $+30,0 PR4K 18650
006554 4400001363 18660 SC 11,51 PR4K 18660
006561 2600233544 18670 CD1 K57,4 R REMAINDER OCT 03031045 PR4K 18670 E
* 006566 3000660042 18680 JC $+10,34 4 PR4K 18680
* 006573 3000660500 18690 JC $+10,0 PR4K 18690
* 006600 1000304146 18700 JR EXIT,38 8 PR4K 18700
* 006605 1000316100 18710 JR ER2,0 PR4K 18710
006612 5600215210 18720 BA1 DEC2+1,8,8 MINUS MINUS PR4K 18720 S
006617 5200012710 18730 SA1 87,8 PR4K 18730
006624 5600222110 18740 BA1 K46,8 O OCT 0506071105121347 PR4K 18740 6
006631 5600222166 18750 BD2 K46,6 O OCT 071105121347 PR4K 18750 1
006636 5000000042 18760 DV 0, 2 -2-23462784 -462784 PR4K 18760 4
006643 5600012730 18770 BA2 87,8 PR4K 18770
006650 7000234570 18780 CB2 K58+1,8 8 OCT 0405060710111003 PR4K 18780 0
* 006655 3000666742 18790 JC $+10,34 4 PR4K 18790
* 006662 3000672500 18800 JC $+35,0 PR4K 18800
006667 4400001063 18810 SC 8,51 PR4K 18810
006674 2600235346 18820 CD1 K59,6 O OCT 060506101347 PR4K 18820 5
* 006701 3000671342 18830 JC $+10,34 4 PR4K 18830
* 006706 3000672500 18840 JC $+15,0 PR4K 18840
* 006713 3000672546 18850 JC $+10,38 8 PR4K 18850
* 006720 1000304100 18860 JR EXIT,0 PR4K 18860
* 006725 1000316100 18870 JR ER2,0 PR4K 18870
* 006732 3000673734 18880 JC $+5,28 0 010157, TEST DOF PR4K 18880
006737 5600220102 18890 BA1 K43,2 O OCT 1211 PR4K 18890 1
006744 5600225161 18900 BD2 K49,1 O OCT 05 PR4K 18900
006751 5000000041 18910 DV 0, 1 7676 2 PR4K 18910
* 006756 3000677050 18920 JC $+10,40 0 PR4K 18920
* 006763 1000314700 18930 JR ER1,0 PR4K 18930
* 006770 1000307237 18940 JR NEXT,31 1 PR4K 18940
006775 4600230325 18950 BT K52+2,2121 CHECK ZERO REMAINDER PR4K 18950
007002 5600223303 18960 BA1 K47+2,3 3 OCT 071113 PR4K 18960 7
007007 2600001421 18970 PD0 12,1 PR4K 18970
007014 5600221463 18980 BD2 K45+3,3 3 OCT 050607 PR4K 18980 0
007021 5000000041 18990 DV 0, 1 46468-234 PR4K 18990
007026 5600012721 19000 BA2 87,1 PR4K 19000
007033 7000225161 19010 CB2 K49,1 QUQUOTIENT OCT 05 PR4K 19010
* 007040 3000705242 19020 JC $+10,34 4 PR4K 19020
* 007045 3000710300 19030 JC $+30,0 PR4K 19030
007052 4400001463 19040 SC 12,51 PR4K 19040
007057 2600176043 19050 CD1 CON2+3,3,3 REMAINDER OCT 030303 PR4K 19050 I
* 007064 3000707642 19060 JC $+10,34 4 PR4K 19060
* 007071 3000710300 19070 JC $+10,0 PR4K 19070
* 007076 1000304145 19080 JR EXIT,37 7 PR4K 19080
* 007103 1000316100 19090 JR ER2,0 PR4K 19090
007110 4600225125 19100 BT K49,21 C CHECK FAC PR4K 19100 A
007115 5600223140 19110 BD1 K47,16 2 2346278497531024 PR4K 19110 4
007122 5600225170 19120 BD2 K49,8 DEDEC 67264662 PR4K 19120 4
007127 5000000050 19130 DV 0, 8 PR4K 19130
007134 5600012730 19140 BA2 87,8 PR4K 19140
007141 7000252770 19150 CB2 K61+7,8 8 QUOTIENT 34881294 PR4K 19150 N
* 007146 3000716042 19160 JC $+10,34 4 PR4K 19160
* 007153 3000717700 19170 JC $+20,0 PR4K 19170
007160 4400000763 19180 SC 7,51 PR4K 19180
007165 2600253750 19190 CD1 K62+7,8 8 REMAINDER 46498396 PR4K 19190 D
* 007172 1000304142 19200 JR EXIT,34 4 PR4K 19200
* 007177 1000316100 19210 JR ER2,0 PR4K 19210
007204 2600004102 19220 PD 041,2 CHCHECK CS,77+00 PR4K 19220 ,
007211 3600255602 19230 CS K63-1,2 2 PR4K 19230
007216 5600004102 19240 BA1 041,2 PR4K 19240
007223 7000255642 19250 CB1 K63-1,2 2 7777 PR4K 19250
* 007230 1000304142 19260 JR EXIT,34 4 PR4K 19260
* 007235 1000316100 19270 JR ER2,0 PR4K 19270
007242 2600004102 19280 PD 041,2 0000+00 PR4K 19280
007247 3600256102 19290 CS K63+2,2 2 PR4K 19290
007254 5600004102 19300 BA1 041,2 PR4K 19300
007261 7000237342 19310 CB1 ZERO,2 0 0000 PR4K 19310
* 007266 1000304142 19320 JR EXIT,34 4 PR4K 19320
* 007273 1000316100 19330 JR ER2,0 PR4K 19330
007300 4600255710 19340 BT K63,8 77+77,00+00 PR4K 19340
007305 3600255602 19350 CS K63-1,2 2 PR4K 19350
007312 5600004102 19360 BA1 041,2 PR4K 19360
007317 7000237342 19370 CB1 ZERO,2 PR4K 19370
* 007324 1000304142 19380 JR EXIT,34 4 PR4K 19380
* 007331 1000316100 19390 JR ER2,0 PR4K 19390
007336 4600255710 19400 BT K63,8 00+77 PR4K 19400
007343 3600237310 19410 CS ZERO,8 PR4K 19410
007350 5600004102 19420 BA1 041,2 PR4K 19420
007355 7000255642 19430 CB1 K63-1,2 2 7777 PR4K 19430
* 007362 1000304142 19440 JR EXIT,34 4 PR4K 19440
* 007367 1000316100 19450 JR ER2,0 PR4K 19450
007374 2600004102 19460 PD 041,2 STSTART EVEN,COUNT 64 PR4K 19460 E
007401 3600231000 19470 CS K52+7,0 0 PR4K 19470
007406 2000420103 19480 FT 04201,3 3 PR4K 19480
007413 7000004142 19490 CB1 041,2 OCOCT 3576 PR4K 19490
* 007420 1000304142 19500 JR EXIT,34 4 PR4K 19500
* 007425 1000316100 19510 JR ER2,0 PR4K 19510
007432 2600004102 19520 PD 041,2 STSTART ODD,COUNT 64 PR4K 19520 D
007437 3600230700 19530 CS K52+6,0 0 PR4K 19530
007444 2000421703 19540 FT 04217,3 3 PR4K 19540
007451 7000004142 19550 CB1 041,2 OCOCT 3560 PR4K 19550
* 007456 1000304142 19560 JR EXIT,34 4 PR4K 19560
* 007463 1000316100 19570 JR ER2,0 PR4K 19570
* 007470 3200327601 19580 LOAD5 JL OKAY,1 PR4K 19580
* 007475 1000755500 19582 JR TST4 PR4K 19582
* 007502 3000752640 19590 JC $+20,32 2 SKIP PR4K 19590
007507 2000040044 19600 FT 0400,36 6 PR4K 19600
007514 4020610000 19610 XF 061,0,0,0,1 READ LOAD CARD OF PASS 5 PR4K 19610 D
* 007521 3000044000 19620 J 0440 PR4K 19620
007526 2000040060 19630 FT 0400,48 8 PR4K 19630
007533 2000777761 19640 FT 07777,4949 PR4K 19640
007540 4100610100 19650 XF 061,010000,0,4 READ LOAD BLK OF PASS 5 PR4K 19650 R
* 007545 3000044000 19660 J 0440 PR4K 19660
* 007552 3000000000 19661 TST4 J 0 PR4K 19661
007557 3400261200 19662 CC LDSWT,0 0 PR4K 19662
* 007564 3000762742 19663 JE $+35 PR4K 19663
007571 3400261230 19664 CC LDSWT,03030 PR4K 19664
* 007576 3000755242 19665 JE TST4 PR4K 19665
007603 3400261277 19666 CC LDSWT,07077 PR4K 19666
* 007610 3000764143 19667 JU DEST4 PR4K 19667
007615 4400752424 19668 SC LOAD5+2828,024 PR4K 19668
* 007622 3000755200 19669 J TST4 PR4K 19669
007627 4400750600 196691 SC LOAD5+1414,0 PR4K 196691
* 007634 3000755200 196692 J TST4 PR4K 196692
* 007641 3000764160 196693DEST4 JD DEST4 LOAD SWITCH AT 2612 NOT 0,30,OR 77 PR4K 196693D
* 007646 3000747500 196694 J LOAD5+5 5 FOR TAPE,80,OR 90 CARD LDRS PR4K 196694
SEGMENT-ID T470 3000300000 SEGJP MANST
*LOAD 0700,TAPAPE
000440 * ORIG 0440 *
* 000440 3000044536 * JC $+5,036 6 *
000445 6000050740 * AC 0507,04040 *
000452 2000111111 * FT 0700+021211,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 2000111160 * FT 0700+021211,48,0 *
000554 2000024261 * FT 162,49 *
000561 4100610100 * XF 061,010000,0,4 *
000566 2000000103 * FT 1,3 *
* 000573 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 7020004642 * CB1 38,2,1 *
* 001072 3020004042 * JE 32,1 *
* 001077 3007010560 * JD 070105 *
* 001104 3020004000 * J 32,1 *
001111 245 * AREA 165 *
SEGMENT-ID T471 3000300000 19670 SEGJP MANST PR4K 19670
003310 19680 ORIG 03310 PR4K 19680
003310 2600007700 19690 PD 077,16 CK. NO INDEX 009 080 PR4K 19690
003315 2600005700 19700 PD 057,16 PR4K 19700
003322 4400004705 19710 SC 047,5 IR=1 PR4K 19710
003327 4400005305 19720 SC 053,5 IR=2 PR4K 19720
003334 4400006305 19730 SC 063,5 IR=4 PR4K 19730
* 003341 3000334600 19740 J $+5 PR4K 19740
* 003346 1000304100 19750 JR EXIT,0 PR4K 19750
* 003353 1000316100 19760 JR ER2,0 PR4K 19760
003360 2000255711 19770 FT K63,9 IR=1 009 080 M5- PR4K 19770
003365 5620000001 19780 BA1 0,1,1 PR4K 19780
003372 7000255741 19790 CB1 K63,1 PR4K 19790
* 003377 1000304142 19800 JR EXIT,34 4 PR4K 19800
* 003404 1000316100 19810 JR ER2,0 PR4K 19810
003411 2000154212 19820 FT K03,10 IR=2 009 080 M6- PR4K 19820
003416 5640000001 19830 BA1 0,1,2 PR4K 19830
003423 7000154241 19840 CB1 K03,1 PR4K 19840
* 003430 1000304142 19850 JR EXIT,34 4 PR4K 19850
* 003435 1000316100 19860 JR ER2,0 PR4K 19860
003442 2000167014 19870 FT K31,12 IR=4 009 080 J1- PR4K 19870
003447 5700000001 19880 BA1 0,1,4 PR4K 19880
003454 7000167041 19890 CB1 K31,1 PR4K 19890
* 003461 1000304142 19900 JR EXIT,34 4 PR4K 19900
* 003466 1000316100 19910 JR ER2,0 PR4K 19910
003473 2000007717 19970 FT 63,15 IR=7 009 082 F4- PR4K 19970
003500 6160000001 19980 AC 0,1,7 PR4K 19980
003505 3400007700 19990 CC 63,0 PR4K 19990
* 003512 1000304142 20000 JR EXIT,34 4 PR4K 20000
* 003517 1000316100 20010 JR ER2,0 PR4K 20010
003524 2600001721 20020 PD0 15,1 PR4K 20020
003531 2000001713 20030 FT 15,11 IR=3 009 082 F2- PR4K 20030
003536 5460000000 20040 LP 0,0,3 PR4K 20040
003543 3400001700 20050 CC 15,0 PR4K 20050
* 003550 1000304142 20060 JR EXIT,34 4 PR4K 20060
* 003555 1000316100 20070 JR ER2,0 PR4K 20070
003562 2000004716 20080 FT 047,14 IR=6 009 082 F1- PR4K 20080
003567 4340000016 20090 ST 0,14,6 PR4K 20090
003574 7400004716 20100 CT 047,14 PR4K 20100
* 003601 1000304142 20110 JR EXIT,34 4 PR4K 20110
* 003606 1000316100 20120 JR ER2,0 PR4K 20120
003613 2005000015 20130 FT 050000,1,13 IR=5 015 085 EPF- PR4K 20130
003620 2120000003 20140 FT 0,3,5 PR4K 20140
003625 7000006743 20150 CB1 067,3 PR4K 20150
* 003632 1000304142 20160 JR EXIT,34 4 PR4K 20160
* 003637 1000316100 20170 JR ER2,0 PR4K 20170
003644 2000770015 20180 FT 07700,1313 IR=5 041 022 1 TO M6 PR4K 20180
003651 2120000003 20190 FT 0,3,5 PR4K 20190
003656 7000006743 20200 CB1 067,3 PR4K 20200
* 003663 1000304142 20210 JR EXIT,34 4 PR4K 20210
* 003670 1000316100 20220 JR ER2,0 PR4K 20220
003675 2000007715 20230 FT 077,13 IR=5 Z-1 024 002 PR4K 20230
003702 2120000003 20240 FT 0,3,5 PR4K 20240
003707 7000006743 20250 CB1 067,3 PR4K 20250
* 003714 1000304142 20260 JR EXIT,34 4 PR4K 20260
* 003721 1000316100 20270 JR ER2,0 PR4K 20270
003726 2007777711 20280 FT 077777,9,9 IR=1 035 060 PR4K 20280
003733 2020000103 20290 FT 1,3,1 PR4K 20290
003740 7000237343 20300 CB1 ZERO,3 PR4K 20300
* 003745 1000304142 20310 JR EXIT,34 4 PR4K 20310
* 003752 1000316100 20320 JR ER2,0 PR4K 20320
003757 2600004704 20330 PD 047,4 _O_ TO CY 035 072 PR4K 20330
003764 2000000011 20340 FT 0,9 PR4K 20340
003771 7400237311 20350 CT ZERO,9 PR4K 20350
* 003776 1000304142 20360 JR EXIT,34 4 PR4K 20360
* 004003 1000316100 20370 JR ER2,0 PR4K 20370
004010 2000000011 20380 FT 0,9 Y-1 025 051 PR4K 20380
004015 2020000011 20390 FT 0,9,1 PR4K 20390
004022 7400237311 20400 CT ZERO,9 PR4K 20400
* 004027 1000304142 20410 JR EXIT,34 4 PR4K 20410
* 004034 1000316100 20420 JR ER2,0 PR4K 20420
* 004041 3000510200 20430 JC LOAD6,0 0 PR4K 20430
004046 5604000001 20440 BA1 040000,1,1 125340 TEST INTERRUPTS PR4K 20440 0
* 004053 3000406565 20450 JC $+10,53 3 PUT BAD PARITY IN PR4K 20450
* 004060 3000407700 20460 J $+15 OCT 40000 + 77777 AND PR4K 20460
* 004065 3000407225 20470 JC $+5,21 PUT READER OFF LINE PR4K 20470 P
* 004072 1000304136 20480 JR EXIT,30 0 PR4K 20480
* 004077 1000316100 20490 JR ER2,0 PR4K 20490
* 004104 3000163552 20500 JC DOF,42 1 125046 PR4K 20500
* 004111 3000412366 20510 JC $+10,54 4 PR4K 20510
* 004116 3000414200 20520 J $+20 PR4K 20520
* 004123 3000413050 20530 JC $+5,40 PR4K 20530
* 004130 3000413535 20540 JC $+5,29 PR4K 20540
* 004135 1000304126 20550 JR EXIT,22 2 PR4K 20550
* 004142 1000316100 20560 JR ER2,0 PR4K 20560
* 004147 3000163552 20570 JC DOF,42 1 125046 IR2- PR4K 20570 I
* 004154 3000416126 20580 JC $+5,22 PR4K 20580
* 004161 3000420066 20590 JC $+15,54 4 PR4K 20590
* 004166 1000505400 20600 JR CL2,0 PR4K 20600
* 004173 1000304100 20610 JR EXIT,0 PR4K 20610
* 004200 1000316100 20620 JR ER2,0 PR4K 20620
004205 5604000001 20630 BA1 040000,1,1 125046 IR1- PR4K 20630 6
* 004212 3000163552 20640 JC DOF,42 PR4K 20640
* 004217 3000423666 20650 JC $+15,54 4 PR4K 20650
* 004224 1000505400 20660 JR CL2,0 PR4K 20660
* 004231 1000304100 20670 JR EXIT,0 PR4K 20670
* 004236 1000316100 20680 JR ER2,0 PR4K 20680
004243 5604000001 20690 BA1 040000,1,1 125 047 IR1- PR4K 20690
* 004250 3000163552 20700 JC DOF,42 PR4K 20700
* 004255 3000426236 20710 JC $+5,30 PR4K 20710
* 004262 1000505466 20720 JR CL2,54 PR4K 20720
* 004267 1000307200 20730 JR NEXT,0 PR4K 20730
004274 4400041424 20740 SC 0414,20 0 125052 PR4K 20740 1
004301 4020410000 20750 XF 041,00,0,00,1 PR4K 20750
* 004306 3000432067 20760 JC $+10,55 5 PR4K 20760
* 004313 3000432524 20770 JC $+10,20 0 PR4K 20770
* 004320 3000432527 20780 JC $+5,23 PR4K 20780
* 004325 1000307231 20790 JR NEXT,25 5 PR4K 20790
* 004332 3000163552 20800 JC DOF,42 1 125052 IR2- PR4K 20800 I
* 004337 3000434450 20810 JC $+5,40 PR4K 20810
004344 4020410000 20820 XF 041,00,0,00,1 PR4K 20820
* 004351 3000437567 20830 JC $+20,55 5 PR4K 20830
* 004356 1000505400 20840 JR CL2,0 PR4K 20840
* 004363 3000437027 20850 JC $+5,23 PR4K 20850
* 004370 1000304131 20860 JR EXIT,25 5 PR4K 20860
* 004375 1000316100 20870 JR ER2,0 PR4K 20870
004402 5604000001 20880 BA1 040000,1,1 125052 IR1- PR4K 20880 2
004407 4020410000 20890 XF 041,00,0,00,1 PR4K 20890
* 004414 3000444067 20900 JC $+20,55 5 PR4K 20900
* 004421 1000505400 20910 JR CL2,0 PR4K 20910
* 004426 3000443327 20920 JC $+5,23 PR4K 20920
* 004433 1000304131 20930 JR EXIT,25 5 PR4K 20930
* 004440 1000316100 20940 JR ER2,0 PR4K 20940
004445 4020410000 20950 XF 041,00,0,00,1 125052 IR3- PR4K 20950 5
* 004452 3000445727 20960 JC $+5,23 PR4K 20960
004457 4020410000 20970 XF 041,00,0,00,1 PR4K 20970
* 004464 3000450367 20980 JC $+15,55 5 PR4K 20980
* 004471 3000447631 20990 JC $+5,25 PR4K 20990
* 004476 3000450327 21000 JC $+5,23 PR4K 21000
* 004503 1000307231 21010 JR NEXT,25 5 PR4K 21010
* 004510 3000451532 21020 JC $+5,26 1 125052 IOS3- PR4K 21020 I
004515 4020410000 21030 XF 041,00,0,00,1 PR4K 21030
* 004522 3000314467 21040 JC ER1,55 PR4K 21040
* 004527 3000453433 21050 JC $+5,27 PR4K 21050
* 004534 3000454127 21060 JC $+5,23 PR4K 21060
* 004541 1000307231 21070 JR NEXT,25 5 PR4K 21070
004546 5604000001 21080 BA1 040000,1,1 125 053 IR1- PR4K 21080
004553 4020410000 21090 XF 041,00,0,00,1 PR4K 21090
* 004560 3000456536 21100 JC $+5,30 PR4K 21100
* 004565 1000505467 21110 JR CL2,55 PR4K 21110
* 004572 3000457727 21120 JC $+5,23 PR4K 21120
* 004577 1000307231 21130 JR NEXT,25 5 PR4K 21130
* 004604 3000163552 21140 JC DOF,42 125 053 IR2- PR4K 21140 0
004611 4020410000 21150 XF 041,00,0,00,1 125 053 IRQ- PR4K 21150
* 004616 3000462350 21160 JC $+5,40 PR4K 21160
* 004623 3000463035 21170 JC $+5,29 PR4K 21170
* 004630 1000505467 21180 JR CL2,55 PR4K 21180
* 004635 3000464227 21190 JC $+5,23 PR4K 21190
004642 4400041431 21200 SC 0414,25 5 PR4K 21200
* 004647 1000307231 21210 JR NEXT,25 5 PR4K 21210
004654 2000000522 21220 FT 5,18 061616101 LAO- PR4K 21220 A
004661 2003777320 21230 FT 037773,1,16 PR4K 21230
004666 2403777301 21240 TFR 037773 PR4K 21240
* 004673 1000307200 21250 JR NEXT,0 PR4K 21250
004700 2603777723 21260 PD0 037777,3,3 008060EFBL PR4K 21260 0
004705 2203777543 21270 ZS 037775,3,3 PR4K 21270
* 004712 1000307200 21280 JR NEXT,0 PR4K 21280
004717 4400000430 21290 SC 04,030 013 085 AC21- PR4K 21290 0
004724 5600474204 21300 BA1 $+14,4 PR4K 21300
004731 5200001004 21310 SA1 010,4 PR4K 21310
004736 3400475000 21320 CC $+10,0 PR4K 21320
004747 1000000200 21330 +5 0100000000200 PR4K 21330
* 004750 1000307200 21340 JR NEXT,0 PR4K 21340
* 004755 3004000040 21350 JC 040000,3,32 151079 BEEP PR4K 21350 7
* 004762 1000307200 21360 JR NEXT,0 PR4K 21360
* 004767 3000327600 21370 J OKAY CHANGE TO A SKIP IF PR4K 21370 A
004774 4400001330 21380 SC 11,030 MEM. IS LARGER THAN 16K. PR4K 21380
005001 4600501203 21390 BT $+9,3 PR4K 21390
005006 3400502523 21400 CC $+15,19 9 PR4K 21400
005013 5204000705 21410 SA1 040007,5,5 PR4K 21410
* 005020 3004000300 21420 JC 040003,0,0 PR4K 21420
* 005025 3000503766 21430 JC $+10,54 4 PR4K 21430
* 005032 1000314700 21440 JR ER1,0 PR4K 21440
* 005037 1000307226 21450 JR NEXT,22 2 PR4K 21450
* 005044 3000327600 21460 J OKAY,0 PR4K 21460
* 005051 3000505125 21470 CL2 JC $,21 PR4K 21470
* 005056 3000506350 21480 JC $+5,40 PR4K 21480
* 005063 3000507035 21490 JC $+5,29 PR4K 21490
* 005070 3000507526 21500 JC $+5,22 PR4K 21500
* 005075 3000505136 21510 JC CL2,30 PR4K 21510
* 005102 3200327677 21520 LOAD6 JL OKAY,63 3 PR4K 21520
005107 4400303060 215201 SC EXIT-6,0,060 PR4K 215201
005114 2000331007 215202 FT CONSL,7 7 PR4K 215202
005121 5200302723 215203 SA2 EXIT-7,3,3 PR4K 215203
* 005126 1000520600 21529 JR TST5 PR4K 21529
* 005133 3000515740 21530 JC $+20,32 2 SKIP PR4K 21530
005140 2000040044 21540 FT 0400,36 6 PR4K 21540
005145 4020610000 21550 XF 061,0,0,0,1 READ LOAD CARD OF PASS 6 PR4K 21550 D
* 005152 3000044000 21560 J 0440 PR4K 21560
005157 2000040060 21570 FT 0400,48 8 PR4K 21570
005164 2000777761 21580 FT 07777,4949 PR4K 21580
005171 4100610100 21590 XF 061,010000,0,4 READ LOAD BLK OF PASS 6 PR4K 21590 R
* 005176 3000044000 21600 J 0440 PR4K 21600
* 005203 3000000000 21601 TST5 J 0 PR4K 21601
005210 3400261200 21602 CC LDSWT,0 0 PR4K 21602
* 005215 3000526042 21603 JE $+35 PR4K 21603
005222 3400261230 21604 CC LDSWT,03030 PR4K 21604
* 005227 3000520342 21605 JE TST5 PR4K 21605
005234 3400261277 21606 CC LDSWT,07077 PR4K 21606
* 005241 3000527243 21607 JU DEST5 PR4K 21607
005246 4400515524 21608 SC LOAD6+4343,024 PR4K 21608
* 005253 3000520300 21609 J TST5 PR4K 21609
005260 4400513700 216091 SC LOAD6+2929,0 PR4K 216091
* 005265 3000520300 216092 J TST5 PR4K 216092
* 005272 3000527260 216093DEST5 JD DEST5 LOAD SWITCH AT 2612 NOT 0,30,OR 77 PR4K 216093D
* 005277 3000510700 216094 J LOAD6+5 5 FOR TAPE,80, OR 90 CARD LDRS. PR4K 216094
SEGMENT-ID T472 3000300000 SEGJP MANST
*LOAD 0700,TAPAPE,R
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 2000000103 * FT 1,3 *
* 000573 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 T473 3000300000 21610 SEGJP MANST PR4K 21610
003310 21620 ORIG 03310 PR4K 21620
* 003310 1000332000 21630 CONSL JR $+5,0 CHECK BASIC JUMP RETURN PR4K 21630
* 003315 3000003060 21640 JC 24,48 PR4K 21640
* 003322 3000250040 21650 JC 02500,3232 PR4K 21650
003327 2000331503 21660 FT CONSL+5,5,3 PR4K 21660
003334 7000332043 21670 CB1 $-12,3 PR4K 21670
* 003341 3000335342 21680 JC $+10,34 4 PR4K 21680
* 003346 3000334660 21690 JC $,48 PR4K 21690
003353 3400335300 21700 CC $,0 PR4K 21700
* 003360 3000336525 21710 JC $+5,21 C CHECK SI1, RESET PR4K 21710 I
* 003365 3000337222 21720 JC $+5,18 S SET PR4K 21720
* 003372 3000340465 21730 JC $+10,53 3 TEST PR4K 21730
* 003377 3000337760 21740 STP04 JC $,48 PR4K 21740
* 003404 3000341125 21750 JC $+5,21 R RESET PR4K 21750
* 003411 3000341165 21760 JC $,53 SI1I1 RESET ERROR PR4K 21760
* 003416 3000342326 21770 JC $+5,22 C CHECK SI2 PR4K 21770 I
* 003423 3000343023 21780 JC $+5,19 PR4K 21780
* 003430 3000344266 21790 JC $+10,54 4 PR4K 21790
* 003435 3000343560 21800 STP05 JC $,48 PR4K 21800
* 003442 3000344726 21810 JC $+5,22 PR4K 21810
* 003447 3000344766 21820 JC $,54 SI2I2 RESET ERROR PR4K 21820
* 003454 3000346127 21830 JC $+5,23 C CHECK SI3 PR4K 21830 I
* 003461 3000346624 21840 JC $+5,20 PR4K 21840
* 003466 3000350067 21850 JC $+10,55 5 PR4K 21850
* 003473 3000347360 21860 STP06 JC $,48 PR4K 21860
* 003500 3000350527 21870 JC $+5,23 PR4K 21870
* 003505 3000350567 21880 JC $,55 SI3I3 RESET ERROR PR4K 21880
* 003512 3000351260 21890 STP07 JC $,48 SETET SS1,2,3,TI,OP REQ, PR4K 21890 ,
* 003517 3000352426 21900 JC $+5,22 PR4K 21900
* 003524 3000353662 21910 JC $+10,50 0 CHECK SS1 PR4K 21910 S
* 003531 3000353160 21920 STP08 JC $,48 PR4K 21920
* 003536 3000353642 21930 JC $,34 01313041J1 PR4K 21930
* 003543 3000354376 21940 JC $,62 01313041LU0 PR4K 21940
* 003550 3000355061 21950 JC $,49 01313041LD2 PR4K 21950
* 003555 3000356763 21960 JC $+10,51 1 CHECK SS2 PR4K 21960 S
* 003562 3000356260 21970 STP09 JC $,48 PR4K 21970
* 003567 3000156652 21980 JC K08+1,4242 PR4K 21980
* 003574 3000357443 21990 JC $,35 01313042J1 PR4K 21990
* 003601 3000360177 22000 JC $,63 01313042LU0 PR4K 22000
* 003606 3000360661 22010 JC $,49 01313042LD3 PR4K 22010
* 003613 3000362564 22020 JC $+10,52 2 CHECK SS3 PR4K 22020 S
* 003620 3000362060 22030 STP11 JC $,48 PR4K 22030
* 003625 3000362544 22040 JC $,36 01313043J1 PR4K 22040
* 003632 3000363274 22050 JC $,60 01313043LU1 PR4K 22050
* 003637 3000363767 22060 JC $,55 01313043LD0 PR4K 22060
* 003644 3000365120 22070 STP12 JC $+5,16 N NORMAL,RESETSS1,2,3,T-MODE PR4K 22070 R
* 003651 3000365162 22080 JC $,50 01313041SS1 PR4K 22080
* 003656 3000365663 22090 JC $,51 01313042SS2 PR4K 22090
* 003663 3000366364 22100 JC $,52 01313043SS3 PR4K 22100
* 003670 3000370272 22110 JC $+10,58 8 CHECK NW PR4K 22110 N
* 003675 3000367560 22120 STP13 JC $,48 PR4K 22120
* 003702 3000370274 22130 JC $,60 01313077J1 PR4K 22130
* 003707 3000156652 22140 JC K08+1,4242 PR4K 22140
* 003714 3000371444 22150 JC $,36 01313077LU3 PR4K 22150
* 003721 3000372156 22160 JC $,46 01313077LD0 PR4K 22160
* 003726 3000373314 22170 JC $+5,12 PR4K 22170
* 003733 3000374554 22180 JC $+10,44 4 PR4K 22180
* 003740 3000374060 22190 STP14 JC $,48 PR4K 22190
* 003745 3000374554 22200 JC $,44 01313077NW2 PR4K 22200
* 003752 3000375731 22210 JC $+5,25 1 107061J2 PR4K 22210 2
* 003757 3000376452 22220 JC $+5,42 PR4K 22220
* 003764 3000376451 22230 JC $,41 10707061J1,013072J1 PR4K 22230 0
* 003771 3000377175 22240 JC $,61 10707061LU2 PR4K 22240
* 003776 3000377673 22250 JC $,59 10707061LD1 PR4K 22250
* 004003 3000401571 22260 JC $+10,57 7 PR4K 22260
* 004010 3000401060 22270 STP15 JC $,48 PR4K 22270
* 004015 3000401571 22280 JC $,57 10707061TI,RESET ERROR PR4K 22280 R
* 004022 1000433000 22290 JR CLEAR,0 0 PUT BAD PARITY IN LOC. PR4K 22290
* 004027 3000402760 22291 JD $ PUT B BAD PARITY IN LOC 40K'77777 AND PR4K 22291 I
004034 2600051303 22292 PD 0513,3 DEPRESS OP REQ. AND START PR4K 22292 S
004041 5604000001 22300 BA1 040000,1,1 40000 + 77777 IF MEMORY IS PR4K 22300
* 004046 3000406065 22310 JC $+10,53 3 LARGER THAN 16K. PR4K 22310
* 004053 3000405360 22320 STP16 JD $ NO CL.= 1 ER. 125040 PR4K 22320
004060 2600003703 22322 PD 037,3 T THIS TESTS CLASS 1 IPT AFTER A PR4K 22322 S
004065 7000051363 22324 CB2 0513,3 CLASS 2 THAT M BITS GO TO CLASS1 PR4K 22324 2
* 004072 3000410442 22326 JE $+10 PR4K 22326
* 004077 3000407760 22328 JD $ _M_ B BITS WENT TO CL2 ENTRY ON CL1 IPT. PR4K 22328 N
* 004104 3000411135 223285 JC $+5,29 PR4K 223285
* 004111 3000411654 22329 JC $+5,44 R RESET CL2 PR4K 22329 L
004116 5604000001 22330 BA1 040000,1,1 SHOULD STOP 2ND PARITY ER. PR4K 22330
* 004123 3000412300 22340 ER17 J $ TO CONTINUE HIT GEN. CLEAR PR4K 22340
* 004130 1000433000 22350 REC JR CLEAR,0 0 + JUMP TO _REC_ PR4K 22350
* 004135 3000007760 22360 JD 077 PUT CL.= 1-2+3 TO IGNORE PR4K 22360
004142 4400041424 22370 SC 0414,20 0 PR4K 22370
004147 4020410000 22380 XF 041,00,0,00,1 READER SHOULD BE OFF LINE PR4K 22380
* 004154 3000155352 22390 JC K06,42 PR4K 22390
004161 5604000001 22400 BA1 040000,1,1 PR4K 22400
* 004166 3000416667 22410 ER18 JC $,55 CL.=3 NOT IGNORED 125052DEL- PR4K 22410
* 004173 3000417366 22420 ER19 JC $,54 CL=2 NOTIGNORED125095DEL PR4K 22420
* 004200 3000420065 22430 ER21 JC $,53 CL=1NOTIGNORED125070DEL PR4K 22430
* 004205 1000433000 22440 JR CLEAR,0 0 PR4K 22440
* 004212 3000017760 22450 JD 0177 PUT CL.=1-2+3 TO STALL PR4K 22450
004217 4020410000 22460 XF 041,00,0,00,1 PROGRAM SHOULD STALL ON PR4K 22460
* 004224 3000155352 22470 JC K06,42 PR4K 22470
004231 5604000001 22480 BA1 040000,1,1 HIT GEN. CLEAR AND JUMP PR4K 22480
* 004236 3000423600 22490 ER22 J $ TO THE NEXT INSTRUCTION PR4K 22490
* 004243 1000433000 22500 JR CLEAR,0 0 PR4K 22500
004250 4400041431 22510 SC 0414,25 5 PR4K 22510
* 004255 3000426700 22511 J ISTP+5 PR4K 22511
* 004262 3000426260 22512 ISTP JD ISTP XFXF SHOULD BLOCK INDEXING TEST BELOW PR4K 22512 D
004267 2000007711 22513 FT 63,9 TEST INDEXING WITH IO PR4K 22513
004274 4020410000 22514 XF 041,00,0,00,1 PR4K 22514
004301 4020000000 22515 XF 0,0,0,1 1 PR4K 22515
* 004306 3000426253 22516 JC ISTP,43 3 PR4K 22516
* 004313 3000330360 22520 JD RERUN _M_ +RUN FOR MAIN TEST PR4K 22520
* 004320 3000331000 22530 JC CONSL,0 0 _C_+RUN TO REPEAT CONSOLE PR4K 22530
* 004325 3000000000 22540 CLEAR J 0 PR4K 22540
* 004332 3000433736 22550 JC $+5,30 RESET CL=1 PR4K 22550
* 004337 3000434450 22560 JC $+5,40 RESET DOF PR4K 22560
* 004344 3000435135 22570 JC $+5,29 RESET CL=2 PR4K 22570
* 004351 3000435633 22580 JC $+5,27 RESET CL=3 PR4K 22580
* 004356 3000436325 22590 JC $+5,21 RESET SI=1 PR4K 22590
* 004363 3000437026 22600 JC $+5,22 RESET SI=2 PR4K 22600
* 004370 3000437527 22610 JC $+5,23 RESET SI=3 PR4K 22610
004375 4400332024 22620 SC CONSL+8,8,024 PR4K 22620
* 004402 3000432500 22630 J CLEAR PR4K 22630
3000300000 22640 END MANST PR4K 22640
{-- tape mark --}
015471 C581 FLINT CODEDIT SOURCE A T3834394-47
001400 00010 T580 BEGIN 01400 FLINT 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T581 3000140000 * 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 T582 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 T583 3000136300 * SEGJP $ *
001400 ORIG 01400
010000 000101IM EQU 010000 000101
001400 2600001700 00020 STR PD 017,0 FLINT 00020
001405 2600003700 00030 PD 037,0 FLINT 00030
001412 2600005700 00040 PD 057,0 FLINT 00040
001417 2620007700 00050 PD 077,0,1 1 FLINT 00050
001424 6000004720 00060 AC 047,16 FLINT 00060
* 001431 3200141721 00070 JL $-10,17 7 FLINT 00070
001436 4400143521 00080 SC $-1,17 FLINT 00080
001443 5601740500 00090 BA1 CL2,16 FLINT 00090
001450 5200051700 00100 SA1 0517,16 6 FLINT 00100
001455 5601752310 00110 BA1 CH0,8 FLINT 00110
001462 5200041710 00120 SA1 0417,8 FLINT 00120
* 001467 3000147426 00130 JC $+5,22 FLINT 00130
* 001474 3000150127 00140 JC $+5,23 FLINT 00140
001501 4401667000 00150 SC REC1+4,0,0 FLINT 00150
001506 4401672643 00160 SC REC+14,0,043 FLINT 00160
001513 5401606201 00170 LP EXR1+2,1,1 FLINT 00170
* 001520 3000000360 00180 JD 03 FLINT 00180
001525 2600154703 00190 PD TRZ+3,3 3 FLINT 00190
001532 6000154701 00200 TRZ1 AC TRZ+3,1 1 FLINT 00200
* 001537 3000154471 00210 JC $+5,57 FLINT 00210
* 001544 3000000040 00220 TRZ JC 0,040 FLINT 00220
* 001551 3000160271 00230 JC TRZ2,57 7 FLINT 00230
001556 3400154610 00240 CC TRZ+2,8 8 FLINT 00240
* 001563 3000153243 00250 JU TRZ1 FLINT 00250
* 001570 3007007760 00260 JD 070077 NOT IN PROC TRACE OR FLINT 00260
* 001575 3000152500 00270 J TRZ1-5 FLINT 00270
001602 5600154703 00280 TRZ2 BA1 TRZ+3,3 3 FLINT 00280
001607 5202055203 00290 SA1 SEL,3 FLINT 00290
001614 4400172105 00300 SC SL2+4,5 5 FLINT 00300
001621 4400165601 00310 SC SL1+4,1 1 FLINT 00310
001626 2000173417 00320 FT TSS1,15 5 FLINT 00320
001633 3402055200 00330 CC SEL,0 FLINT 00330
* 001640 3000165243 00340 JU $+10 FLINT 00340
001645 4402055277 00350 SC SEL,63 FLINT 00350
001652 1402055201 00360 SL1 LC SEL,1 FLINT 00360
* 001657 3000167643 00370 JU $+15 FLINT 00370
001664 4560000400 00380 SC 4,0,7 FLINT 00380
* 001671 3000170300 00390 J $+10 FLINT 00390
001676 4560000440 00400 SC 4,040,7 7 FLINT 00400
001703 1600165651 00410 BC1 SL1+4,1 1 FLINT 00410
001710 6000007705 00420 AC 077,5 FLINT 00420
* 001715 3200165204 00430 SL2 JL SL1,4 FLINT 00430
* 001722 1000207600 00440 JR CHS,0 FLINT 00440
* 001727 1002050324 00450 JR REW,20 FLINT 00450
* 001734 1000242000 00460 TSS1 JR TST1 WRITE TEST-ZERO IND+BUSY FLINT 00460
* 001741 1000344700 00470 JR TST2 READ AND IND TEST FLINT 00470
* 001746 1002176200 00480 JR TST3 FLINT 00480
* 001753 1002075200 00490 JR TST4 CLUTCH-EOT-NON-READY FLINT 00490
* 001760 1000177500 00500 JR TST5 FLINT 00500
* 001765 3000140000 00510 J STR FLINT 00510
* 001772 3000000000 00520 TST5 J 0 FLINT 00520
* 001777 3000201160 00530 JD $+10 WRITE RING TEST BRING SERVO TO LOAD POINT FLINT 00530 E
* 002004 3000177200 00540 J $-10 DEPRESS M AND START FLINT 00540
002011 2000300037 00550 FT 03000,3131 FLINT 00550
002016 2000410117 00560 FT 04101,1515 FLINT 00560
* 002023 1000763424 00570 JR EXW,20 FLINT 00570
* 002030 1001615200 00580 JR EXT FLINT 00580
* 002035 3000050160 00590 JD 0501 FLINT 00590
* 002042 3000204700 00600 J $+5 FLINT 00600
002047 2000000037 00610 FT 0,31 FLINT 00610
* 002054 1001631600 00620 JR EXRC FLINT 00620
* 002061 1002050324 00630 JR REW,20 FLINT 00630
* 002066 3000177200 00640 J TST5 FLINT 00640
* 002073 3000000000 00650 CHS J 0 FLINT 00650
002100 4402055107 00660 SC SEL-1,7 7 FLINT 00660
002105 5602055121 00670 BA2 SEL-1,1 1 FLINT 00670
002112 1600003753 00680 BC1 037,3 FLINT 00680
002117 6400003707 00690 LS 037,7 FLINT 00690
002124 5601654310 00700 BA1 IE,8 FLINT 00700
002131 5200214121 00710 SA2 $+8,1 FLINT 00710
002136 5200040710 00720 SA1 0407,8 FLINT 00720
002143 2600001702 00730 PD 017,2 FLINT 00730
002150 5602055104 00740 BA1 SEL-1,4 4 FLINT 00740
002155 1600001724 00750 BS2 017,4 FLINT 00750
002162 6400001640 00760 LS 016,040 0 FLINT 00760
002167 2001616617 00770 FT EXT1,15 5 TEST ORDER FLINT 00770
002174 5360000102 00780 SA1 1,2,7 FLINT 00780
002201 2000770117 00790 FT EXW1,15 5 WRITE ORDER FLINT 00790
002206 5360000102 00800 SA1 1,2,7 FLINT 00800
002213 2001636317 00810 FT EXRC1,1515 RESET COMPLIMENT FLINT 00810
002220 5360000102 00820 SA1 1,2,7 FLINT 00820
002225 2001652217 00830 FT EXTC1,1515 TEST COMPLIMENT FLINT 00830
002232 5360000102 00840 SA1 1,2,7 FLINT 00840
002237 2001721317 00850 FT I02,15 IO REISSUE FLINT 00850
002244 5360000102 00860 SA1 1,2,7 FLINT 00860
002251 2001630117 00870 FT EXRO1,1515 RESET ORDER FLINT 00870
002256 5360000102 00880 SA1 1,2,7 FLINT 00880
002263 2001623617 00890 FT EXTT1,1515 NOT RESET TEST FLINT 00890
002270 5360000102 00900 SA1 1,2,7 FLINT 00900
002275 2001606017 00910 FT EXR1,15 5 READ ORDER FLINT 00910
002302 5360000102 00920 SA1 1,2,7 FLINT 00920
002307 2002050517 00930 FT REW1,15 5 REWIND ORDER FLINT 00930
002314 5360000102 00940 SA1 1,2,7 FLINT 00940
002321 2002053117 00950 FT RW1,15 REWIND INT. FLINT 00950
002326 5360000102 00960 SA1 1,2,7 FLINT 00960
002333 2001613517 00970 FT EXTX1,1515 FLINT 00970
002340 5360000102 00980 SA1 1,2,7 FLINT 00980
002345 2001716217 00990 FT I03,15 FLINT 00990
002352 5360000102 01000 SA1 1,2,7 FLINT 01000
002357 2001727017 01010 FT I04,15 FLINT 01010
002364 5360000102 01020 SA1 1,2,7 FLINT 01020
002371 5602055101 01030 BA1 SEL-1,1 1 FLINT 01030
002376 1600001713 01040 BS1 017,3 FLINT 01040
002403 5201670601 01050 SA1 REC4+3,1,1 IE EXIT FLINT 01050
* 002410 3000207300 01060 J CHS FLINT 01060
* 002415 3000000000 01070 TST1 J 0 FLINT 01070
002422 2602056026 01080 PD0 BCNT,6 FLINT 01080
002427 4401641300 01090 SC IMM1+4,0,0 FLINT 01090
* 002434 1001640000 01100 JR IMM FILL TO 0 FLINT 01100
002441 2000000037 01110 FT 0,31 ERROR MASK FLINT 01110
002446 2000410117 01120 FT 04101,1515 256 BIN. 0 FLINT 01120
* 002453 1000763424 01130 JR EXW,20 FLINT 01130
002460 2000010117 01140 FT 0101,15 5 FLINT 01140
* 002465 1000763424 01150 JR EXW,20 3072 BIN. 0 FLINT 01150
002472 4401641377 01160 SC IMM1+4,6,63 FLINT 01160
* 002477 1001640000 01170 JR IMM FILL TO 77 FLINT 01170
002504 2000410117 01180 FT 04101,1515 FLINT 01180
* 002511 1000763424 01190 JR EXW,20 256 BIN. 77 FLINT 01190
002516 2000010117 01200 FT 0101,15 5 FLINT 01200
* 002523 1000763424 01210 JR EXW,20 3072 BIN. 0 FLINT 01210
002530 2000400117 01220 FT 04001,1515 256 BCD 77 FLINT 01220
* 002535 1000763424 01230 JR EXW,20 FLINT 01230
002542 2000000117 01240 FT 001,15 FLINT 01240
* 002547 1000763424 01250 JR EXW,20 3072 BCD 77 FLINT 01250
002554 2000040037 01260 FT 0400,31 1 FLINT 01260
002561 4401000600 01270 SC IM+6,0 FLINT 01270
002566 2000400117 01280 FT 04001,1515 256 BCD ZERO IND FLINT 01280
* 002573 1000763424 01290 JR EXW,20 SHOULD GET SET FLINT 01290
* 002600 1001615200 01300 JR EXT FLINT 01300
* 002605 3000010160 01310 JD 0101 ZERO IND NOT SET FLINT 01310
* 002612 3000341300 01320 J STR1 FLINT 01320
* 002617 1001631600 01330 JR EXRC FLINT 01330
* 002624 1001615200 01340 JR EXT FLINT 01340
* 002631 3000010260 01350 JD 0102 ZERO IND RESET BY FLINT 01350
* 002636 3000341300 01360 J STR1 WRONG BITS FLINT 01360
* 002643 1001626500 01370 JR EXRO FLINT 01370
* 002650 1001622200 01380 JR EXTT FLINT 01380
* 002655 3000010360 01390 JD 0103 ZERO IND. NOT RESET FLINT 01390
* 002662 3000341300 01400 J STR1 FLINT 01400
002667 4401000677 01410 SC IM+6,63 3 FLINT 01410
002674 4401037700 01420 SC IM+255,0,0 FLINT 01420
* 002701 1000763424 01430 JR EXW,20 FLINT 01430
* 002706 1001615200 01440 JR EXT FLINT 01440
* 002713 3000010460 01450 JD 0104 ZERO IND NOT SET BY FLINT 01450
* 002720 3000341300 01460 J STR1 256 CHAR. FLINT 01460
002725 2000240037 01470 FT 02400,3131 FLINT 01470
002732 2000000117 01480 FT 01,15 FLINT 01480
002737 4401037777 01490 SC IM+255,6,63 FLINT 01490
002744 4401577700 01500 SC IM+3071,1,0 FLINT 01500
* 002751 1000763424 01510 JR EXW,20 FLINT 01510
002756 2000200037 01520 FT 02000,3131 FLINT 01520
* 002763 1001615200 01530 JR EXT FLINT 01530
* 002770 3000010560 01540 JD 0105 BUSY NOT SET WHEN FLINT 01540
* 002775 3000341300 01550 J STR1 IO ORDER GIVEN WITH IND FLINT 01550
* 003002 1001631600 01560 JR EXRC ZERO SET FLINT 01560
* 003007 1001615200 01570 JR EXT FLINT 01570
* 003014 3000010660 01580 JD 0106 BUSY RESET BY WRONG FLINT 01580
* 003021 3000341300 01590 J STR1 BITS. FLINT 01590
* 003026 1001626500 01600 JR EXRO FLINT 01600
* 003033 1001622200 01610 JR EXTT FLINT 01610
* 003040 3000010760 01620 JD 0107 CANNOT RESET BUSY FLINT 01620
* 003045 3000341300 01630 J STR1 FLINT 01630
003052 5602057042 01640 BD1 D8,2 FLINT 01640
003057 5202056002 01650 SA1 BCNT,2 FLINT 01650
003064 2000040037 01660 FT 0400,31 1 FLINT 01660
* 003071 1000763424 01670 JR EXW,20 FLINT 01670
* 003076 1001615200 01680 JR EXT FLINT 01680
* 003103 3000011060 01690 JD 0110 ZERO IND NOT SET ON FLINT 01690
* 003110 3000341300 01700 J STR1 3072 CHAR. FLINT 01700
* 003115 1001626500 01710 JR EXRO FLINT 01710
003122 4401641300 01720 SC IMM1+4,0,0 WRITE BLOCK OF ALL FLINT 01720
* 003127 1001640000 01730 JR IMM ZERO_S IN BCD 10 FLINT 01730
* 003134 1000763424 01740 JR EXW,20 FLINT 01740
* 003141 1001626500 01750 JR EXRO FLINT 01750
003146 4400323406 01760 SC WT2+4,6 6 FLINT 01760
003153 4400316401 01770 SC $+9,1 THIS LOOP WILL WRITE FLINT 01770
003160 4401641301 01780 WT1 SC IMM1+4,1,1 6 BLKS. IN BCD. THEY FLINT 01780
* 003165 1001640000 01790 JR IMM ARE 01-02-04-10-20-40 FLINT 01790
003172 2000400117 01800 FT 04001,1515 IF ANY OF THESE SETS FLINT 01800
* 003177 1000763424 01810 JR EXW,20 ZERO IN A 77XX STOP FLINT 01810
* 003204 1001622200 01820 JR EXTT WILL OCCUR. XX WILL FLINT 01820
* 003211 3000324200 01830 J WT2+10 BE COMB. THAT SET FLINT 01830
* 003216 3000341300 01840 J STR1 ZERO IND. FLINT 01840
003223 1600316411 01850 BS1 WT1+4,1 1 FLINT 01850
* 003230 3200316006 01860 WT2 JL WT1,6 FLINT 01860
* 003235 3000326600 01870 J $+25 FLINT 01870
003242 5601000701 01880 BA1 IM+7,1 FLINT 01880
003247 5200325701 01890 SA1 $+8,1 FLINT 01890
* 003254 3000770060 01900 JD 07700 FLINT 01900
* 003261 3000341300 01910 J STR1 FLINT 01910
003266 4401641377 01920 SC IMM1+4,0,077 FLINT 01920
* 003273 1001640000 01930 JR IMM FLINT 01930
003300 2000040037 01940 FT 0400,31 1 FLINT 01940
003305 2000400117 01950 FT 04001,1515 FLINT 01950
003312 4401000600 01960 SC IM+6,0 FLINT 01960
* 003317 1000763400 01970 JR EXW FLINT 01970
* 003324 1001622200 01980 JR EXTT FLINT 01980
* 003331 3000335000 01990 J $+15 FLINT 01990
* 003336 3000341300 02000 J STR1 FLINT 02000
* 003343 3000332400 020001 J $-15 FLINT 020001
* 003350 1001626500 02010 JR EXRO FLINT 02010
* 003355 1001615200 02020 JR EXT FLINT 02020
* 003362 3000011160 02030 JD 0111 RESET ERROR WHEN NOT IN PC 00 FLINT 02030 E
* 003367 3000341300 02040 J STR1 FLINT 02040
* 003374 3000340124 02050 JC $+5,20 FLINT 02050
* 003401 3000340167 02060 JC $,55 FLINT 02060
* 003406 1001626500 02070 JR EXRO FLINT 02070
003413 2000777737 02080 STR1 FT 07777,3131 FLINT 02080
* 003420 1001626500 02090 JR EXRO FLINT 02090
* 003425 1002050324 02100 JR REW,20 FLINT 02100
* 003432 3000242262 02110 JC TST1+5,5,50 FLINT 02110
* 003437 3000241500 02120 J TST1 FLINT 02120
* 003444 3000000000 02130 TST2 J 0 FLINT 02130
003451 2602056026 02140 PD0 BCNT,6 FLINT 02140
003456 4401641377 02150 SC IMM1+4,6,63 CLEAR TO 77 FLINT 02150
* 003463 1001640000 02160 JR IMM FLINT 02160
003470 2000000037 02170 RD1 FT 0,31 FLINT 02170
003475 2000410117 02180 FT 04101,1515 FLINT 02180
* 003502 1001603724 02190 JR EXR,20 FLINT 02190
003507 2601000546 02200 CD1 IM+5,6 FLINT 02200
* 003514 3000353342 02210 JE $+15 FLINT 02210
* 003521 3000020160 02220 JD 0201 1ST BLK NOT READ FLINT 02220
* 003526 3000716700 02230 J STR2 FLINT 02230
003533 3401040077 02240 CC IM+256,6,63 FLINT 02240
* 003540 3000355742 02250 JE $+15 FLINT 02250
* 003545 3000020260 02260 JD 0202 READ TO MANY CHAR FLINT 02260
* 003552 3000716700 02270 J STR2 WROTE 256 FLINT 02270
003557 5602063000 02280 BA1 BZ,0 FLINT 02280
003564 2001037716 02290 FT IM+255,1,14 IR6 FLINT 02290
* 003571 1001757200 02300 JR COMP FLINT 02300
* 003576 3000020360 02310 JD 0203 COMP ERR IR2 HAS FLINT 02310
* 003603 3000716700 02320 J STR2 LOC OF CHAR FROM TAPE FLINT 02320
003610 4401641377 02330 RD2 SC IMM1+4,6,63 AR1 HAS SHOULD BE CHAR FLINT 02330
* 003615 1001640000 02340 JR IMM FLINT 02340
003622 2000010117 02350 FT 0101,15 5 FLINT 02350
* 003627 1001603724 02360 JR EXR,20 FLINT 02360
003634 2601000546 02370 CD1 IM+5,6 FLINT 02370
* 003641 3000366042 02380 JE $+15 FLINT 02380
* 003646 3000020460 02390 JD 0204 BLK ERR. BLK2 FLINT 02390
* 003653 3000716700 02400 J STR2 FLINT 02400
003660 3401600077 02410 CC IM+3072,2,63 FLINT 02410
* 003665 3000370442 02420 JE $+15 FLINT 02420
* 003672 3000020560 02430 JD 0205 TOO MANY CHAR WROTE FLINT 02430
* 003677 3000716700 02440 J STR2 + READ 3072 FLINT 02440
003704 5602063000 02450 BA1 BZ,0 FLINT 02450
003711 2001577716 02460 FT IM+3071,1,14 FLINT 02460
* 003716 1001757200 02470 JR COMP FLINT 02470
* 003723 3000020660 02480 JD 0206 COMP ERR. FLINT 02480
* 003730 3000716700 02490 J STR2 FLINT 02490
003735 4401641300 02500 RD3 SC IMM1+4,0,0 FLINT 02500
* 003742 1001640000 02510 JR IMM FLINT 02510
003747 2000010117 02520 FT 0101,15 5 FLINT 02520
003754 2000001037 02530 FT 010,31 FLINT 02530
* 003761 1001603724 02540 JR EXR,20 FLINT 02540
* 003766 1001615200 02550 JR EXT FLINT 02550
* 003773 3000020760 02560 JD 0207 LESS THAN NOT SET FLINT 02560
* 004000 3000716700 02570 J STR2 FLINT 02570
* 004005 1001631600 02580 JR EXRC FLINT 02580
* 004012 1001615200 02590 JR EXT FLINT 02590
* 004017 3000021060 02600 JD 0210 LESS THAN RESET BY FLINT 02600
* 004024 3000716700 02610 J STR2 WRONG BITS. FLINT 02610
004031 5602056066 02620 BD2 BCNT,6 FLINT 02620
004036 2601000566 02630 CD2 IM+5,6 FLINT 02630
* 004043 3000406242 02640 JE $+15 FLINT 02640
* 004050 3000021160 02650 JD 0211 BLK CNT. ERR. BLK 3 FLINT 02650
* 004055 3000716700 02660 J STR2 FLINT 02660
004062 2000201037 02670 FT 02010,3131 FLINT 02670
* 004067 1001603724 02680 JR EXR,20 FLINT 02680
004074 2000200037 02690 FT 02000,3131 FLINT 02690
* 004101 1001615200 02700 JR EXT FLINT 02700
* 004106 3000021260 02710 JD 0212 SYNC NOT INT. BY FLINT 02710
* 004113 3000716700 02720 J STR2 LESS IND. FLINT 02720
004120 2601000566 02730 CD2 IM+5,6 FLINT 02730
* 004125 3000414442 02740 JE $+15 FLINT 02740
* 004132 3000021360 02750 JD 0213 READ EVEN THOUGH BUSY FLINT 02750
* 004137 3000716700 02760 J STR2 AND LESS WERE SET FLINT 02760
004144 2000201037 02770 FT 02010,3131 FLINT 02770
* 004151 1001626500 02780 JR EXRO FLINT 02780
* 004156 1001622200 02790 JR EXTT FLINT 02790
* 004163 3000021460 02800 JD 0214 LESS THAN NOT RESET FLINT 02800
* 004170 3000716700 02810 J STR2 FLINT 02810
004175 5202056026 02820 SA2 BCNT,6 FLINT 02820
004202 5602061000 02830 BA1 B77,0 FLINT 02830
004207 3401040000 02840 CC IM+256,0,0 FLINT 02840
* 004214 3000423342 02850 JE $+15 FLINT 02850
* 004221 3000021560 02860 JD 0215 TO MANY CHAR WROTE FLINT 02860
* 004226 3000716700 02870 J STR2 256 READ 3076 FLINT 02870
004233 2001037716 02880 FT IM+255,1,14 FLINT 02880
* 004240 1001757200 02890 JR COMP COMP. ERROR SHOULD FLINT 02890
* 004245 3000021660 02900 JD 0216 BE 77 FLINT 02900
* 004252 3000716700 02910 J STR2 FLINT 02910
004257 2000000437 02920 RD4 FT 04,31 FLINT 02920
004264 2000410117 02930 FT 04101,1515 FLINT 02930
* 004271 1001603724 02940 JR EXR,20 FLINT 02940
* 004276 1001615200 02950 JR EXT FLINT 02950
* 004303 3000021760 02960 JD 0217 GREATER NOT SET FLINT 02960
* 004310 3000716700 02970 J STR2 FLINT 02970
* 004315 1001631600 02980 JR EXRC FLINT 02980
* 004322 1001615200 02990 JR EXT FLINT 02990
* 004327 3000022060 03000 JD 0220 GREATER RESET BY WRONG FLINT 03000
* 004334 3000716700 03010 J STR2 BITS FLINT 03010
004341 2001577716 03020 FT IM+3071,1,14 FLINT 03020
004346 5602061000 03030 BA1 B77,0 FLINT 03030
* 004353 1001757200 03040 JR COMP FLINT 03040
* 004360 3000022160 03050 JD 0221 DID NOT READ IN FLINT 03050
* 004365 3000716700 03060 J STR2 3072 CHAR. ASKED FLINT 03060
004372 5602056066 03070 BD2 BCNT,6 FOR 256 WROTE 3072 FLINT 03070
004377 2000200437 03080 FT 02004,3131 FLINT 03080
* 004404 1001603724 03090 JR EXR,20 FLINT 03090
004411 2000200037 03100 FT 02000,3131 FLINT 03100
* 004416 1001615200 03110 JR EXT BUSY NOT SET GAVE FLINT 03110
* 004423 3000022260 03120 JD 0222 IO ORDER WITH GREAT. SET FLINT 03120
* 004430 3000716700 03130 J STR2 FLINT 03130
004435 2000200437 03140 FT 02004,3131 FLINT 03140
* 004442 1001626500 03150 JR EXRO FLINT 03150
* 004447 1001622200 03160 JR EXTT GREATER NOT RESET FLINT 03160
* 004454 3000022360 03170 JD 0223 FLINT 03170
* 004461 3000716700 03180 J STR2 FLINT 03180
004466 4400451604 03190 BK1 SC BK2+4,4 4 FLINT 03190
004473 2000000037 03200 FT 0,31 FLINT 03200
004500 2000100017 03210 FT 01000,1515 FLINT 03210
* 004505 1001603724 03220 JR EXR,20 FLINT 03220
* 004512 3200450504 03230 BK2 JL $-5,4 FLINT 03230
004517 2602056026 03240 PD0 BCNT,6 FLINT 03240
004524 2000410117 03250 RD1X FT 04101,1515 FLINT 03250
* 004531 1001603724 03260 JR EXR,20 FLINT 03260
004536 2601000546 03270 CD1 IM+5,6 FLINT 03270
* 004543 3000456242 03280 JE $+15 FLINT 03280
* 004550 3000022460 03290 JD 0224 DID NOT DO 4 BACK FLINT 03290
* 004555 3000716700 03300 J STR2 SPACES FLINT 03300
004562 2000010117 03310 FT 0101,15 5 FLINT 03310
* 004567 1001603700 03320 RD2X JR EXR FLINT 03320
004574 2000200037 03330 FT 02000,3131 FLINT 03330
* 004601 1001603724 03340 JR EXR,20 FLINT 03340
004606 5602063766 03350 BD2 D1,6 FLINT 03350
004613 2601000566 03360 CD2 IM+5,6 FLINT 03360
* 004620 3000463742 03370 JE $+15 FLINT 03370
* 004625 3000022560 03380 JD 0225 DID NOT GET IMMEDIATE FLINT 03380
* 004632 3000716700 03390 J STR2 INTERRUPT FROM BUSY FLINT 03390
* 004637 1001615200 03400 JR EXT FLINT 03400
* 004644 3000022660 03410 JD 0226 BUSY NOT SET BY FLINT 03410 Y
* 004651 3000716700 03420 J STR2 TWO I.O. FLINT 03420
* 004656 3000466324 03430 JC $+5,20 FLINT 03430
* 004663 3000466367 03440 JC $,55 FLINT 03440
004670 5602064566 03450 BD2 D2,6 FLINT 03450
004675 2601000566 03460 CD2 IM+5,6 FLINT 03460
* 004702 3000472142 03470 JE $+15 FLINT 03470
* 004707 3000022760 03480 JD 0227 DID NOT READ BLK 2 FLINT 03480
* 004714 3000716700 03490 J STR2 FLINT 03490
004721 2000410117 03500 FT 04101,1515 FLINT 03500
* 004726 1001603724 03510 JR EXR,20 FLINT 03510
004733 2601000566 03520 CD2 IM+5,6 FLINT 03520
* 004740 3000475742 03530 JE $+15 FLINT 03530
* 004745 3000023060 03540 JD 0230 SHOULD NOT HAVE READ FLINT 03540
* 004752 3000716700 03550 J STR2 BUSY STILL SET FLINT 03550
* 004757 1001626500 03560 JR EXRO FLINT 03560
004764 2000004037 03570 RDX3 FT 040,31 FLINT 03570
004771 2000400117 03580 FT 04001,1515 FLINT 03580
* 004776 1001603724 03590 JR EXR,20 FLINT 03590
* 005003 1001615200 03600 JR EXT FLINT 03600
* 005010 3000023160 03610 JD 0231 NO TAPE PARITY WROTE FLINT 03610
* 005015 3000716700 03620 J STR2 BIN READ BCD FLINT 03620
* 005022 3000502726 03630 JC $+5,22 FLINT 03630
005027 5602065366 03640 BD2 D3,6 FLINT 03640
005034 2601000566 03650 CD2 IM+5,6 FLINT 03650
* 005041 3000506066 03660 JC $+15,54 4 FLINT 03660
* 005046 3000027760 03670 JD 0277 FLINT 03670
* 005053 3000716700 03680 J STR2 WHEN COMP. IS MADE FLINT 03680
005060 5602061000 03690 BA1 B77,0 FLINT 03690
005065 2001037716 03700 FT IM+255,1,14 FLINT 03700
* 005072 1001757200 03710 JR COMP DID NOT COMPLETE FLINT 03710
* 005077 3000023260 03720 JD 0232 TRANSFER AFTER FLINT 03720
* 005104 3000716700 03730 J STR2 TPE ERROR FLINT 03730
* 005111 1001631600 03740 JR EXRC FLINT 03740
* 005116 1001615200 03750 JR EXT FLINT 03750
* 005123 3000023360 03760 JD 0233 TPERESET BY WRONG BITS FLINT 03760
* 005130 3000716700 03770 J STR2 FLINT 03770
005135 2000204037 03780 FT 02040,3131 FLINT 03780
* 005142 1001603724 03790 JR EXR,20 FLINT 03790
005147 2000200037 03800 FT 02000,3131 FLINT 03800
* 005154 1001615200 03810 JR EXT SHOULD NOT HAVE READ FLINT 03810
* 005161 3000023460 03820 JD 0234 IO GIVEN WITH TPE SET FLINT 03820
* 005166 3000716700 03830 J STR2 FLINT 03830
005173 2000204037 03840 FT 02040,3131 FLINT 03840
* 005200 1001626500 03850 JR EXRO FLINT 03850
* 005205 1001622200 03860 JR EXTT FLINT 03860
* 005212 3000023560 03870 JD 0235 TPE NOT RESET FLINT 03870
* 005217 3000716700 03880 J STR2 FLINT 03880
005224 2000000037 03890 RD4X FT 0,31 FLINT 03890
005231 2000010117 03900 FT 0101,15 5 FLINT 03900
* 005236 1001603724 03910 JR EXR,20 FLINT 03910
005243 5602066142 03920 RD5 BD1 D4,2 FLINT 03920
005250 5202056002 03930 SA1 BCNT,2 FLINT 03930
005255 4401641300 03940 SC IMM1+4,0,0 FLINT 03940
* 005262 1001640000 03950 JR IMM FLINT 03950
005267 2000400117 03960 FT 04001,1515 FLINT 03960
* 005274 1001603724 03970 JR EXR,20 FLINT 03970
005301 2601000546 03980 CD1 IM+5,6 FLINT 03980
* 005306 3000532542 03990 JE $+15 FLINT 03990
* 005313 3000023660 04000 JD 0236 BLK. ERR BLK5 FLINT 04000
* 005320 3000716700 04010 J STR2 THIS IS FIRST TIME FLINT 04010
005325 3401040000 04020 CC IM+256,0,0 BCD IS READ FLINT 04020
* 005332 3000535142 04030 JE $+15 FLINT 04030
* 005337 3000023760 04040 JD 0237 TOO MANY CHAR. FLINT 04040
* 005344 3000716700 04050 J STR2 FLINT 04050
005351 2001037716 04060 FT IM+255,1,14 FLINT 04060
005356 5602061000 04070 BA1 B77,0 FLINT 04070
* 005363 1001757200 04080 JR COMP FLINT 04080
* 005370 3000024060 04090 JD 0240 COMP ERR. ON BCD FLINT 04090
* 005375 3000716700 04100 J STR2 READ FLINT 04100
005402 2000000117 04110 RD6 FT 01,15 FLINT 04110
* 005407 1001603724 04120 JR EXR,20 FLINT 04120
005414 2601000546 04130 CD1 IM+5,6 FLINT 04130
* 005421 3000544042 04140 JE $+15 FLINT 04140
* 005426 3000024160 04150 JD 0241 BLK ERR ON BLK6 FLINT 04150
* 005433 3000716700 04160 J STR2 FLINT 04160
005440 3401600000 04170 CC IM+3072,2,0 FLINT 04170
* 005445 3000546442 04180 JE $+15 FLINT 04180
* 005452 3000024260 04190 JD 0242 TO MANY CHAR. FLINT 04190
* 005457 3000716700 04200 J STR2 FLINT 04200
005464 2001577716 04210 FT IM+3071,1,14 FLINT 04210
005471 5602061000 04220 BA1 B77,0 FLINT 04220
* 005476 1001757200 04230 JR COMP FLINT 04230
* 005503 3000024360 04240 JD 0243 COMP ERR ON LARGE BLK FLINT 04240
* 005510 3000716700 04250 J STR2 BCD. FLINT 04250
005515 2000400117 04260 RD7 FT 04001,1515 FLINT 04260
* 005522 1001603724 04270 JR EXR,20 FLINT 04270
005527 3401000620 04280 CC IM+6,02020 FLINT 04280
* 005534 3000555342 04290 JE $+15 FLINT 04290
* 005541 3000024460 04300 JD 0244 DID NOT TRANSLATE FLINT 04300
* 005546 3000716700 04310 J STR2 0 TO 20 FLINT 04310
* 005553 1001603724 04320 RD8 JR EXR,20 FLINT 04320
005560 3401037720 04330 CC IM+255,0,020 FLINT 04330
* 005565 3000560442 04340 JE $+15 FLINT 04340
* 005572 3000024560 04350 JD 0245 DID NOT TRANSLATE LAST FLINT 04350
* 005577 3000716700 04360 J STR2 CHAR. FLINT 04360
005604 5602061000 04370 BA1 B77,0 FLINT 04370
005611 2001037616 04380 FT IM+254,1,14 FLINT 04380
* 005616 1001757200 04390 JR COMP FLINT 04390
* 005623 3000024660 04400 JD 0246 TRANSLATED MORE THAN FLINT 04400
* 005630 3000716700 04410 J STR2 ONE CHAR. FLINT 04410
005635 2000000117 04420 RD9 FT 01,15 FLINT 04420
* 005642 1001603724 04430 JR EXR,20 FLINT 04430
005647 3401577720 04440 CC IM+3071,1,020 FLINT 04440
* 005654 3000567342 04450 JE $+15 FLINT 04450
* 005661 3000024760 04460 JD 0247 DID NOT TRANSLATE FLINT 04460
* 005666 3000716700 04470 J STR2 3072 CHAR. FLINT 04470
* 005673 1001603724 04480 RD10 JR EXR,20 FLINT 04480
005700 2601000546 04490 CD1 IM+5,6 FLINT 04490
* 005705 3000572442 04500 JE $+15 FLINT 04500
* 005712 3000025060 04510 JD 0250 BLK. ERR. BLK10 FLINT 04510
* 005717 3000716700 04520 J STR2 FLINT 04520
005724 5601735700 04530 BA1 B20,0 FLINT 04530
005731 2001577716 04540 FT IM+3071,1,14 FLINT 04540
* 005736 1001757200 04550 JR COMP FLINT 04550
* 005743 3000025160 04560 JD 0251 DID NOT TRANSLATE FLINT 04560
* 005750 3000716700 04570 J STR2 ENTIRE BLK. FLINT 04570
* 005755 3000576226 04580 RD11 JC $+5,22 FLINT 04580
005762 4402000000 04590 SC 020000,0,0 FLINT 04590
005767 2000400217 04600 FT 04002,1515 8K. FLINT 04600
* 005774 1001603724 04610 JR EXR,20 FLINT 04610
006001 7002000546 04620 CB1 020005,6,6 FLINT 04620
* 006006 3000603242 04630 JE $+20 FLINT 04630
* 006013 3000603266 04640 JC $+15,54 4 FLINT 04640
* 006020 3000025260 04650 JD 0252 DID NOT READ INTO FLINT 04650
* 006025 3000716700 04660 J STR2 STK.�2 CHECK Z2 TO SYNC FLINT 04660
* 006032 3000603726 04670 RD12 JC $+5,22 FLINT 04670
006037 4404000000 04680 SC 040000,0,0 FLINT 04680
006044 2000400417 04690 FT 04004,1515 FLINT 04690
* 006051 1001603724 04700 JR EXR,20 FLINT 04700
006056 7004000546 04710 CB1 040005,6,6 FLINT 04710
* 006063 3000610742 04720 JE $+20 FLINT 04720
* 006070 3000610766 04730 JC $+15,54 4 FLINT 04730
* 006075 3000025360 04740 JD 0253 DID NOT READ INTO FLINT 04740
* 006102 3000716700 04750 J STR2 STK�4 FLINT 04750
006107 4400615603 04760 RD13 SC RD13A+4,4,3 FLINT 04760
006114 2000400117 04770 FT 04001,1515 FLINT 04770
* 006121 1001603724 04780 JR EXR,20 FLINT 04780
006126 2601000546 04790 CD1 IM+5,6 FLINT 04790
* 006133 3000615242 04800 JE $+15 FLINT 04800
* 006140 3000025460 04810 JD 0254 BLK ERROR ON BLK FLINT 04810
* 006145 3000716700 04820 J STR2 FLINT 04820
* 006152 3200611403 04830 RD13A JL RD13+5,3,3 13-14-15-16. FLINT 04830
006157 2000004037 04840 FT 040,31 FLINT 04840
006164 2000410117 04850 FT 04101,1515 FLINT 04850
* 006171 1001603724 04860 JR EXR,20 FLINT 04860
* 006176 1001615200 04870 JR EXT FLINT 04870
* 006203 3000027360 04880 JD 0273 DID NOT SET T.P.E. FLINT 04880 I
* 006210 3000716700 04890 J STR2 FLINT 04890
* 006215 1001626500 04900 JR EXRO FLINT 04900
* 006222 3000622726 04910 JC $+5,22 FLINT 04910
006227 3401000000 04920 CC IM,0 FLINT 04920
* 006234 3000625366 04930 JC $+15,54 4 FLINT 04930
* 006241 3000025560 04940 JD 0255 DID NOT PUT BAD PARITY FLINT 04940
* 006246 3000716700 04950 J STR2 IN MEM. ON BIN. READ OF FLINT 04950
006253 2000014037 04960 FT 0140,31 1 FLINT 04960
* 006260 1000763424 04970 JR EXW,20 FLINT 04970
006265 2000004037 04980 FT 040,31 FLINT 04980
* 006272 1001615200 04990 JR EXT FLINT 04990
* 006277 3000027660 05000 JD 0276 FLINT 05000
* 006304 3000716700 05010 J STR2 FLINT 05010
* 006311 1001626500 05020 JR EXRO FLINT 05020
006316 2000010037 05030 FT 0100,31 1 FLINT 05030
* 006323 1001615200 05040 JR EXT FLINT 05040
* 006330 3000025660 05050 JD 0256 MEM. PARITY NOT SET FLINT 05050
* 006335 3000716700 05060 J STR2 FLINT 05060
* 006342 1001631600 05070 JR EXRC FLINT 05070
* 006347 1001615200 05080 JR EXT FLINT 05080
* 006354 3000025760 05090 JD 0257 MEM. PARITY RESET BY FLINT 05090
* 006361 3000716700 05100 J STR2 WRONG BITS. FLINT 05100
006366 2000210037 05110 FT 02100,3131 FLINT 05110
* 006373 1000763424 05120 JR EXW,20 FLINT 05120
006400 2000200037 05130 FT 02000,3131 FLINT 05130
* 006405 1001615200 05140 JR EXT FLINT 05140
* 006412 3000026060 05150 JD 0260 SHOULD GET BUSY-ORDER FLINT 05150
* 006417 3000716700 05160 J STR2 GIVEN WITH MPE SET FLINT 05160
006424 2000000037 05170 FT 0,31 FLINT 05170
* 006431 1001631600 05180 JR EXRC FLINT 05180
* 006436 1001622200 05190 JR EXTT FLINT 05190
* 006443 3000026160 05200 JD 0261 MPE NOT RESET FLINT 05200
* 006450 3000716700 05210 J STR2 FLINT 05210
006455 4401641300 05220 SC IMM1+4,0,0 FLINT 05220
* 006462 1001640000 05230 JR IMM FLINT 05230
006467 4400654305 05240 SC BSP1+4,5,5 FLINT 05240
006474 2000100017 05250 BSP FT 01000,1515 FLINT 05250
* 006501 1001603724 05260 JR EXR,20 FLINT 05260
* 006506 1001603724 05270 JR EXR,20 FLINT 05270
* 006513 1001603724 05280 JR EXR,20 FLINT 05280
006520 2000400117 05290 FT 04001,1515 FLINT 05290
* 006525 1001603724 05300 JR EXR,20 FLINT 05300
* 006532 1001603724 05310 JR EXR,20 FLINT 05310
* 006537 3200647405 05320 BSP1 JL BSP,5 FLINT 05320
006544 5601736546 05330 BD1 D12,6 FLINT 05330
006551 2601000546 05340 CD1 IM+5,6 FLINT 05340
* 006556 3000657542 05350 JE $+15 FLINT 05350
* 006563 3000026260 05360 JD 0262 DID NOT BACK SPACE FLINT 05360
* 006570 3000716700 05370 J STR2 PROPERLY. FLINT 05370
006575 4400662005 05380 SC $+19,5 FLINT 05380
006602 2000100017 05390 FT 01000,1515 FLINT 05390
* 006607 1001603724 05400 JR EXR,20 FLINT 05400
* 006614 3200660706 05410 JL $-5,6 FLINT 05410
006621 2000400117 05420 ER1 FT 04001,1515 FLINT 05420
* 006626 1001603724 05430 JR EXR,20 FROM 12 TO 8 FLINT 05430
006633 5602057046 05440 BD1 D8,6 FLINT 05440
006640 2601000546 05450 CD1 IM+5,6 FLINT 05450
* 006645 3000666442 05460 JE $+15 FLINT 05460
* 006652 3000026360 05470 JD 0263 FLINT 05470
* 006657 3000716700 05480 J STR2 FLINT 05480
006664 5202056006 05490 SA1 BCNT,6 FLINT 05490
006671 2000000117 05500 FT 1,15 FLINT 05500
006676 2000000037 05510 FT 0,31 FLINT 05510
* 006703 1001603724 05520 JR EXR,20 FLINT 05520
* 006710 1001603724 05530 JR EXR,20 READ 9 FLINT 05530 R
006715 2000400117 05540 FT 04001,1515 FLINT 05540
006722 4400674006 05550 SC $+14,6 FLINT 05550
* 006727 1001603724 05560 JR EXR,20 FLINT 05560
* 006734 3200672706 05570 JL $-5,6 FLINT 05570
006741 2601000546 05580 CD1 IM+5,6 FLINT 05580
* 006746 3000676542 05590 JE $+15 FLINT 05590
* 006753 3000027560 05600 JD 0275 NOT BLK 16 FLINT 05600
* 006760 3000716700 05610 J STR2 FLINT 05610
006765 2000040117 05620 FT 0401,15 5 FLINT 05620
* 006772 1000763424 05630 JR EXW,20 ERASE FLINT 05630
* 006777 1000763424 05640 JR EXW,20 ERASE FLINT 05640
* 007004 1000763424 05650 JR EXW,20 ERASE FLINT 05650
007011 2602056026 05660 PD0 BCNT,6 FLINT 05660
007016 2000400117 05670 FT 04001,1515 FLINT 05670
* 007023 1000763424 05680 JR EXW,20 FLINT 05680
007030 2000100017 05690 RK1 FT 01000,1515 FLINT 05690
* 007035 1001603724 05700 JR EXR,20 FLINT 05700
* 007042 1001603724 05710 JR EXR,20 FLINT 05710
007047 2000400117 05720 FT 04001,1515 FLINT 05720
* 007054 1001603724 05730 JR EXR,20 FLINT 05730
007061 5602067546 05740 BD1 D16,6 FLINT 05740
007066 2601000546 05750 CD1 IM+5,6 LOST BLK WHILE ROCK FLINT 05750
* 007073 3000711242 05760 JE $+15 FLINT 05760
* 007100 3000026460 05770 JD 0264 FLINT 05770
* 007105 3000716700 05780 J STR2 FLINT 05780
* 007112 1001603724 05790 JR EXR,20 FLINT 05790
* 007117 3200703006 05800 JL RK1,6 FLINT 05800
007124 4400712306 05810 SC $-1,6 FLINT 05810
007131 5602063746 05820 BD1 D1,6 FLINT 05820
007136 2601000546 05830 CD1 IM+5,6 FLINT 05830
* 007143 3000716242 05840 JE $+15 FLINT 05840
* 007150 3000026560 05850 JD 0265 DID NOT ERASE FLINT 05850
* 007155 3000716700 05860 J STR2 FLINT 05860
* 007162 1000722363 05870 JR MOA,51 SS2 SET FLINT 05870
007167 2000777737 05880 STR2 FT 07777,3131 MEMORY OVERLOAD TEST FLINT 05880
* 007174 1001626500 05890 JR EXRO FLINT 05890
* 007201 1002050324 05900 JR REW,20 FLINT 05900
* 007206 3000345162 05910 JC TST2+5,5,50 FLINT 05910
* 007213 3000344400 05920 J TST2 FLINT 05920
* 007220 3000000000 05930 MOA J 0 FLINT 05930
007225 4020407777 05940 XF 040,0777777,0,1 FLINT 05940
007232 4402063112 05950 SC PSW,10 FLINT 05950
* 007237 1002050324 05960 JR REW,20 FLINT 05960
* 007244 1002050324 05970 JR REW,20 FLINT 05970
007251 2000070044 05980 FT 0700,36 6 FLINT 05980
007256 2000070045 05990 FT 0700,37 7 FLINT 05990
007263 2000410117 06000 FT 04101,1515 FLINT 06000
007270 2000600037 06010 FT 06000,3131 FLINT 06010
007275 4020010100 06020 XF 01,0100,0,0,1 FLINT 06020
* 007302 1001603724 06030 JR EXR,20 FLINT 06030
007307 2000200037 06040 FT 02000,3131 FLINT 06040
* 007314 1001615200 06050 JR EXT FLINT 06050
* 007321 3000027460 06060 JD 0274 BUSY NOT SET WITH M.O.A. FLINT 06060 U
* 007326 3000716700 06070 J STR2 FLINT 06070
007333 2000400037 06080 FT 04000,3131 FLINT 06080
* 007340 1001615200 06090 JR EXT FLINT 06090
* 007345 3000026660 06100 JD 0266 MOA NOT SET FLINT 06100
* 007352 3000716700 06110 J STR2 FLINT 06110
* 007357 1001631600 06120 JR EXRC FLINT 06120
* 007364 1001615200 06130 JR EXT FLINT 06130
* 007371 3000026760 06140 JD 0267 MOA RESET BY WRONG BITS FLINT 06140
* 007376 3000716700 06150 J STR2 FLINT 06150
007403 2000200037 06160 FT 02000,3131 FLINT 06160
* 007410 1001626500 06170 JR EXRO FLINT 06170
007415 3402063100 06180 CC PSW,0 FLINT 06180
* 007422 3000741543 06190 JU $-5 FLINT 06190
007427 2000600037 06200 FT 06000,3131 FLINT 06200
* 007434 1001603724 06210 JR EXR,20 FLINT 06210
007441 2000200037 06220 FT 02000,3131 FLINT 06220
* 007446 1001615200 06230 JR EXT FLINT 06230
* 007453 3000027060 06240 JD 0270 BUSY NOT SET WHEN FLINT 06240
* 007460 3000716700 06250 J STR2 ORDER GIVEN WITH MOA FLINT 06250
007465 2000600037 06260 FT 06000,3131 SET. FLINT 06260
* 007472 1001626500 06270 JR EXRO FLINT 06270
* 007477 1001622200 06280 JR EXTT FLINT 06280
* 007504 3000027160 06290 JD 0271 MOA NOT RESET FLINT 06290
* 007511 3000716700 06300 J STR2 FLINT 06300
007516 2000000037 06310 FT 0,31 FLINT 06310
007523 4402063112 06320 SC PSW,10 FLINT 06320
* 007530 1001603700 06330 JR EXR FLINT 06330
007535 4020210300 06340 XF 021,030000,0,1 FLINT 06340
* 007542 3000754724 06350 JC $+5,20 FLINT 06350
007547 3402063100 06360 CC PSW,0 FLINT 06360
* 007554 3000754743 06370 JU $-5 FLINT 06370
* 007561 3000756167 06380 JC $,55 FLINT 06380
007566 2000110003 06390 FT 01100,3 3 FLINT 06390
007573 7000022343 06400 CB1 0223,3 FLINT 06400
* 007600 3000761741 06410 JG $+15 FLINT 06410
* 007605 3000027260 06420 JD 0272 B.A. ADVANCED-NO FLINT 06420
* 007612 3000716700 06430 J STR2 MOA ON PRINTER FLINT 06430
007617 4020610100 06440 XF 061,010000,0,1 FLINT 06440
* 007624 3000722000 06450 J MOA FLINT 06450
* 007631 3000000000 06460 EXW J 0 WRITE SUBROUTINE FLINT 06460
007636 5600007702 06470 BA1 077,2 FLINT 06470
007643 5200770502 06480 SA1 EXW1+4,2,2 TO WRITE INSTRUCTION FLINT 06480
007650 5602056046 06490 BD1 BCNT,6 AND ADD 1 TO CNT. FLINT 06490
007655 6602063706 06500 AD1 D1,6 FLINT 06500
007662 5201000506 06510 SA1 IM+5,6 FLINT 06510
007667 5202056006 06520 SA1 BCNT,6 FLINT 06520
007674 4600770535 06530 BT $+9,29 FLINT 06530
007701 4100020000 06540 EXW1 XF 2,0,0,CHCH FLINT 06540
* 007706 3000770667 06550 JC $,55 WAIT TILL INT. FLINT 06550
* 007713 3000763100 06560 J EXW FLINT 06560
016034 065601 ORIG IM+3100 0 FLINT 065601
* 016034 3000000000 06570 EXR J 0 READ SUBROUTINE FLINT 06570
016041 5600007702 06580 BA1 077,2 FLINT 06580
016046 5201606402 06590 SA1 $+14,2 BRING FUNCTION BITS FLINT 06590
016053 4601606435 06600 BT $+9,29 TO READ ORDER FLINT 06600
016060 4100010000 06610 EXR1 XF 1,0,0,CHCH FLINT 06610
016065 5602056046 06620 BD1 BCNT,6 FLINT 06620
016072 6602063706 06630 AD1 D1,6 ADD 1 FOR COUNT FLINT 06630
016077 5202056006 06640 SA1 BCNT,6 FLINT 06640
* 016104 3001610467 06650 JC $,55 WAIT TILL INT. FLINT 06650
* 016111 3001603400 06660 J EXR FLINT 06660
* 016116 3000000000 06690 EXTX J 0 FLINT 06690
016123 5600017702 06700 BA1 0177,2 TEST ONLY LEAVE FLINT 06700
016130 5201614102 06710 SA1 $+9,2 IOS 3 SET FLINT 06710
016135 4100000000 06720 EXTX1 XF 0,0,0,CHCH FLINT 06720
* 016142 3001611600 06730 J EXTX FLINT 06730
* 016147 3000000000 06740 EXT J 0 TEST IND. TEST FLINT 06740
016154 5600017702 06750 BA1 0177,2 +10 TO JR. ENTRY FLINT 06750
016161 5201617202 06760 SA1 $+9,2 IF RIGHT IND. IS FLINT 06760
016166 4100000000 06770 EXT1 XF 0,0,0,CHCH SET. BRING FUNCT. FLINT 06770
* 016173 3001620553 06780 JC $+10,43 3 BIT TO ORDER FROM FLINT 06780
* 016200 3001614700 06790 J EXT T31 FLINT 06790
016205 6001615212 06800 AC EXT+3,1010 FLINT 06800
* 016212 3001614700 06810 J EXT FLINT 06810
* 016217 3000000000 06820 EXTT J 0 TEST IND RESET TEST FLINT 06820
016224 5600017702 06830 BA1 0177,2 +10 TO JR. ENTRY FLINT 06830
016231 5201624202 06840 SA1 $+9,2 IF STILL SET. FLINT 06840
016236 4100000000 06850 EXTT1 XF 0,0,0,CHCH FLINT 06850
* 016243 3001621753 06860 JC EXTT,43 3 FLINT 06860
016250 6001622212 06870 AC EXTT+3,1,10 FLINT 06870
* 016255 3001621700 06880 J EXTT FLINT 06880
* 016262 3000000000 06890 EXRO J 0 RESET IND. FLINT 06890
016267 5600017702 06900 BA1 0177,2 BRING FUNCTIONS FLINT 06900
016274 5201630502 06910 SA1 $+9,2 FROM T31 FLINT 06910
016301 4100400000 06920 EXRO1 XF 040,0,0,0,CH FLINT 06920
* 016306 3001626200 06930 J EXRO FLINT 06930
* 016313 3000000000 06940 EXRC J 0 RESET IND. COMPLIMENT FLINT 06940
016320 5600017702 06950 BA1 0177,2 OF ONE BEING TESTED FLINT 06950
016325 4400004077 06960 SC 040,63 FLINT 06960
016332 4400004177 06970 SC 041,63 FLINT 06970
016337 3600001702 06980 CS 017,2 FLINT 06980
016344 5600004102 06990 BA1 041,2 FLINT 06990
016351 1600001766 07000 BC2 017,6 FLINT 07000
016356 5201636702 07010 SA1 $+9,2 FLINT 07010
016363 4100400000 07020 EXRC1 XF 040,0,0,0,CH FLINT 07020
* 016370 3001631300 07030 J EXRC FLINT 07030
* 016375 3000000000 07040 IMM J 0 FLINT 07040
016402 2701000001 07050 PD IM,1,4 IR4 FOR STACK FLINT 07050
016407 4501000000 07060 IMM1 SC IM,0,4 1-2-3 FLINT 07060
016414 4401644403 07070 SC IMM2+4,3,3 FLINT 07070
016421 2000000022 07080 FT 0,18 FLINT 07080
016426 2001000120 07090 FT IM+1,16 6 FLINT 07090
016433 2501000021 07100 TFI IM,,4 FLINT 07100
* 016440 3201643303 07110 IMM2 JL $-5,3 FLINT 07110
* 016445 3001637500 07120 J IMM FLINT 07120
* 016452 3000000000 07130 EXTC J 0 FLINT 07130
016457 5600017702 07140 BA1 0177,2 TEST COMPLIMENT FLINT 07140
016464 4400004077 07150 SC 040,63 OF IND. BEING FLINT 07150
016471 4400004177 07160 SC 041,63 TESTED LEAVE IOS1 FLINT 07160
016476 3600001702 07170 CS 017,2 SET. FLINT 07170
016503 5600004102 07180 BA1 041,2 FLINT 07180
016510 1600001766 07190 BC2 017,6 FLINT 07190
016515 5201652602 07200 SA1 $+9,2 FLINT 07200
016522 4100000000 07210 EXTC1 XF 0,0,0,CHCH FLINT 07210
* 016527 3001645200 07220 J EXTC FLINT 07220
* 016534 3000000031 07230 JC 0,25 FLINT 07230
016543 016544 07240 IE +3 IE1 FLINT 07240
* 016544 3002067651 07250 IE1 JC SI,41 FLINT 07250
016551 5202070610 07260 SA1 STAR,8 FLINT 07260
016556 5600007710 07270 BA1 077,8 FLINT 07270
016563 5202071610 07280 SA1 STAR1,8 8 FLINT 07280
016570 4202072310 07290 ST MSK-3,8 8 FLINT 07290
016575 4202072637 07300 ST MSK,31 FLINT 07300
016602 4202073235 07310 ST MSK1,29 9 FLINT 07310
* 016607 1001645500 07320 REC3 JR EXTC FLINT 07320
* 016614 3001671053 07330 JC REC,43 FLINT 07330
016621 5602071610 07340 RSTR BA1 STAR1,8 8 FLINT 07340
016626 5200007710 07350 SA1 077,8 FLINT 07350
016633 5602070610 07360 BA1 STAR,8 FLINT 07360
016640 4602072310 07370 BT MSK-3,8 8 FLINT 07370
016645 4602072637 07380 BT MSK,31 FLINT 07380
016652 4602073235 07390 BT MSK1,29 9 FLINT 07390
* 016657 3002067652 07400 JC SI,42 FLINT 07400
* 016664 3201670300 07410 REC1 JL $+15,0 FLINT 07410
016671 2602056202 07420 PD CNT,2 FLINT 07420
* 016676 3001670327 07430 JC $+5,23 FLINT 07430
* 016703 3000040000 07440 REC4 J 0400 FLINT 07440
016710 4401667003 07450 REC SC REC1+4,3,3 FLINT 07450
016715 7400017736 07460 CT 0177,30 0 FLINT 07460
* 016722 3001712443 07470 JU REC2 FLINT 07470
016727 2000004037 07480 FT 040,31 FLINT 07480
* 016734 1001612100 07490 JR EXTX FLINT 07490
* 016741 3001713653 07500 JC TPE,43 FLINT 07500
* 016746 3007000760 07510 JD 070007 UNEXPECTED ERROR OTHER FLINT 07510
016753 4401667000 07520 SC REC1+4,0,0 FLINT 07520
016760 2000000137 07530 DISP FT 1,31 FLINT 07530
016765 4401707202 07540 SC DP1+4,2 2 FLINT 07540
016772 2000000011 07550 FT 0,9 FLINT 07550
016777 2600003702 07560 PD 037,2 FLINT 07560
017004 4401704101 07570 SC DP2+4,1 1 FLINT 07570
017011 4401706006 07580 SC DP3+4,6 6 FLINT 07580
* 017016 1001612100 07590 JR EXTX FLINT 07590
* 017023 3001703553 07600 JC $+10,43 3 FLINT 07600
* 017030 3001704200 07610 JC $+10 FLINT 07610
017035 6420003701 07620 DP2 LS 037,1,1 1 FLINT 07620
017042 1620017761 07630 BC2 0177,1,1,1 FLINT 07630
017047 1601704151 07640 BC1 DP2+4,1 1 FLINT 07640
* 017054 3201701606 07650 DP3 JL DP2-15,6,6 FLINT 07650
017061 2037777711 07660 FT -1,9,1 FLINT 07660
* 017066 3201701102 07670 DP1 JL DP2-20,2,2 FLINT 07670
017073 5201710322 07680 SA2 $+8,2 FLINT 07680
* 017100 3000000060 07690 JD 0 FLINT 07690
017105 2000000037 07700 FT 0,31 FLINT 07700
* 017112 1001631600 07710 JR EXRC FLINT 07710
* 017117 3000140031 07720 JC STR,25 FLINT 07720
* 017124 3007001060 07730 REC2 JD 070010 GOT UNEXPECTED ERROR FLINT 07730
* 017131 3001675300 07740 J DISP-5 FLINT 07740
017136 3402056203 07750 TPE CC CNT,3 FLINT 07750
* 017143 3001732642 07760 JE TST FLINT 07760
* 017150 1001626500 07770 JR EXRO RESET TPE FLINT 07770
017155 4201721735 07780 ST I02+4,2929 FLINT 07780
017162 4100011000 07790 I03 XF 01,0100000,0,CH FLINT 07790
017167 2000200037 07800 FT 02000,3131 BUSY FLINT 07800
017174 1401721502 07810 LC I02+2,2 2 FLINT 07810
* 017201 3001726342 07820 JE ERSE FLINT 07820
* 017206 1001626500 07830 JR EXRO RESET BUSY FLINT 07830
017213 4100000000 07840 I02 XF 0,0,0,CHCH FLINT 07840
* 017220 1001645500 07850 JR EXTC ALL EXCEPT BUSY FLINT 07850
* 017225 3001724453 07860 JC $+15,43 3 FLINT 07860
* 017232 1001612100 07870 JR EXTX FLINT 07870
* 017237 3001720653 07880 JC I02-5,4343 TEST BUSY IF SET REISSUE FLINT 07880
017244 4602072637 07890 BT MSK,31 FLINT 07890
017251 6002056201 07900 AC CNT,1 FLINT 07900
* 017256 3001660700 07910 J REC3 FLINT 07910
* 017263 1001626500 07920 ERSE JR EXRO RESET BUSY FLINT 07920
017270 4100020400 07930 I04 XF 02,0400,0,0,CH FLINT 07930
* 017275 1001645500 07940 JR EXTC TEST ALL EXCEPT BUSY FLINT 07940
* 017302 3001724453 07950 JC ERSE-15,5,43 FLINT 07950
* 017307 1001612100 07960 JR EXTX FLINT 07960
* 017314 3001726353 07970 JC ERSE,43 3 FLINT 07970
* 017321 3001720600 07980 J I02-5 FLINT 07980
* 017326 3007333360 07990 TST JD 073333 FLINT 07990
* 017333 3001713100 08000 J REC2+5 FLINT 08000
017347 2020202020202020 08010 +8 0202020202020202020 FLINT 08010 0
017357 2020202020202020 08020 B20 +8 0202020202020202020 FLINT 08020 0
017365 000012 08030 D12 +6 _000012_2_ FLINT 08030
* 017366 3000000036 08040 JC 0,30 FLINT 08040
017375 017406 08050 CL1 +3 CL1A FLINT 08050
* 017376 3000000035 08060 JC 0,29 FLINT 08060
017405 017413 08070 CL2 +3 CL2A FLINT 08070
* 017406 3000050023 08080 CL1A JC 0500,19 9 FLINT 08080
* 017413 3001743254 08090 CL2A JC $+15,44 4 FLINT 08090
* 017420 3002222260 08100 JD 022222 FLINT 08100
* 017425 3000051050 08110 JC 0510,40 0 FLINT 08110
* 017432 3001743716 08120 JC $+5,14 FLINT 08120
* 017437 3201743777 08130 JL $,63 FLINT 08130
017444 4401744377 08140 SC $-1,63 FLINT 08140
* 017451 3201743777 08150 JL $-10,63 3 FLINT 08150
017456 4401745577 08160 SC $-1,63 FLINT 08160
017463 4000407777 08170 XF 040,0777777,0,0 FLINT 08170
017470 2000777737 08180 FT 07777,3131 FLINT 08180
* 017475 1001626500 08190 JR EXRO FLINT 08190
* 017502 3001750731 08200 JC $+5,25 FLINT 08200
* 017507 3000140035 08210 JC STR,29 FLINT 08210
* 017514 3000000031 08220 JC 0,25 FLINT 08220
017523 017524 08230 CH0 +3 CH01 FLINT 08230
017524 4020001777 08240 CH01 XF 0,01777,7,0,1 FLINT 08240
* 017531 3001755553 08250 JC $+20,43 3 FLINT 08250
017536 4020407777 08260 XF 040,0777777,0,1 FLINT 08260
017543 4402063100 08270 SC PSW,0 FLINT 08270
* 017550 3000041000 08280 J 0410 FLINT 08280
* 017555 3007000060 08290 JD 070000 FLINT 08290
* 017562 3001753600 08300 J $-20 FLINT 08300
* 017567 3000000000 08310 COMP J 0 FLINT 08310
017574 2001000512 08320 FT IM+5,10 0 IR2 FLINT 08320
017601 5340002000 08330 SA1 16,0,6 FLINT 08330
017606 7040002040 08340 CB1 16,0,2 FLINT 08340
* 017613 3001765143 08350 JU CER FLINT 08350
017620 2040002012 08360 FT 16,10,2 2 FLINT 08360
017625 7400007312 08370 CT 073,10 FLINT 08370
* 017632 3001760644 08380 JS $-20 FLINT 08380
017637 6001757212 08390 AC COMP+3,1,10 FLINT 08390
* 017644 3001756700 08400 J COMP FLINT 08400
017651 4401770120 08410 CER SC $+24,16 6 FLINT 08410
017656 7040000141 08420 CB1 1,1,2 FLINT 08420
* 017663 3001756743 08430 JU COMP FLINT 08430
017670 2040000112 08440 FT 1,10,2 FLINT 08440
* 017675 3201765620 08450 JL $-15,16 6 FLINT 08450
* 017702 3007070760 08460 JD 070707 FLINT 08460
* 017707 3000140000 08470 J STR FLINT 08470
020500 08480 ORIG 020500 FLINT 08480
* 020500 3000000000 08490 REW J 0 FLINT 08490
020505 4100040000 08500 REW1 XF 04,0,0,C,CH FLINT 08500
* 020512 3002051267 08510 JC $,55 FLINT 08510
* 020517 3002050000 08520 J REW FLINT 08520
* 020524 3000000000 08530 RW J 0 FLINT 08530
020531 4100100000 08540 RW1 XF 010,0,0,0,CH FLINT 08540
* 020536 3002053667 08550 JC $,55 FLINT 08550
* 020543 3002052400 08560 J RW FLINT 08560
020552 000000 08570 SEL +3 0 FLINT 08570
020560 000000000000 08580 BCNT +6 0 FLINT 08580
020562 0000 08590 CNT +2 0 FLINT 08590
020570 000008 08600 D8 +6 _000008_8_ FLINT 08600
020600 7777777777777777 08610 +8 0777777777777777777 FLINT 08610 7
020610 7777777777777777 08620 B77 +8 0777777777777777777 FLINT 08620 7
020620 0000000000000000 08630 +8 0000000000000000000 FLINT 08630 0
020630 0000000000000000 08640 BZ +8 0000000000000000000 FLINT 08640 0
020631 00 08650 PSW +1 0 FLINT 08650
020637 000001 08660 D1 +6 _000001_1_ FLINT 08660
020645 000002 08670 D2 +6 _000002_2_ FLINT 08670
020653 000003 08680 D3 +6 _000003_3_ FLINT 08680
020661 000004 08690 D4 +6 _000004_4_ FLINT 08690
020667 000005 08700 D5 +6 _000005_5_ FLINT 08700
020675 000016 08710 D16 +6 _000016_6_ FLINT 08710
000004 08720 CH EQU 4 FLINT 08720
020676 00 08730 SI +1 0 FLINT 08730
020706 0000000000000000 08740 STAR +8 0 FLINT 08740
020716 0000000000000000 08750 STAR1 +8 0 FLINT 08750
020726 0000000000000000 08760 MSK +8 0 FLINT 08760
020732 00000000 08770 MSK1 +4 0 FLINT 08770
020740 000500 08780 D500 +6 _000500_0_ FLINT 08780
020746 000000 08790 D501 +6 _000000_0_ FLINT 08790
* 020747 3000000000 08800 TST4 J 0 FLINT 08800
020754 4401672640 08810 SC REC+14,0,040 FLINT 08810
020761 2602056026 08820 PD0 BCNT,6 FLINT 08820
020766 4401641377 08830 SC IMM1+4,6,63 FLINT 08830
* 020773 1001640000 08840 JR IMM FLINT 08840
021000 4402170140 08850 SC DEL1+4,0,040 FLINT 08850
021005 2600006710 08860 PD 067,8 FLINT 08860
021012 2000000237 08870 FT 2,31 FLINT 08870
021017 2000010117 08880 FT 0101,15 5 WRITE UNTIL END FLINT 08880
* 021024 1000763424 08890 EOT1 JR EXW,20 OF TAPE. THEN FLINT 08890
* 021031 1001622200 08900 JR EXTT TEST EOT FLIP FLINT 08900
* 021036 3002106200 08910 J $+20 FLOP FOR RESET FLINT 08910
* 021043 3002161300 08920 J STR4 AND INTERLOCK. FLINT 08920
* 021050 1002164700 08930 JR DEL FLINT 08930
* 021055 3002102400 08940 J EOT1 FLINT 08940
021062 5601000506 08950 BA1 IM+5,6 FLINT 08950
021067 5202074606 08960 SA1 D501,6 FLINT 08960
* 021074 1001631600 08970 JR EXRC FLINT 08970
* 021101 1001615200 08980 JR EXT FLINT 08980
* 021106 3000040160 08990 JD 0401 EOT RESET BY WRONG FLINT 08990
* 021113 3002161300 09000 J STR4 BITS. FLINT 09000
021120 2000200237 09010 FT 02002,3131 FLINT 09010
* 021125 1000763424 09020 JR EXW,20 FLINT 09020
021132 2000200037 09030 FT 02000,3131 FLINT 09030
* 021137 1001615200 09040 JR EXT GAVE IO ORDER WITH FLINT 09040
* 021144 3000040260 09050 JD 0402 EOT SET DID NOT FLINT 09050
* 021151 3002161300 09060 J STR4 GET BUSY BACK. FLINT 09060
021156 2000200237 09070 FT 02002,3131 FLINT 09070
* 021163 1001626500 09080 JR EXRO FLINT 09080
* 021170 1001622200 09090 JR EXTT FLINT 09090
* 021175 3000040360 09100 JD 0403 DID NOT RESET EOT FLINT 09100
* 021202 3002161300 09110 J STR4 FLINT 09110
021207 2000100017 09120 FT 01000,1515 FLINT 09120
* 021214 1001603724 09130 JR EXR,20 FLINT 09130
* 021221 1001622200 09140 JR EXTT FLINT 09140
* 021226 3000040460 09150 JD 0404 EOT SET ON READ FLINT 09150
* 021233 3002161300 09160 J STR4 FLINT 09160
* 021240 1002050324 09170 JR REW,20 FLINT 09170
* 021245 1002050300 09180 JR REW FLINT 09180
021252 2000200037 09190 FT 02000,3131 FLINT 09190
* 021257 1002050300 09200 JR REW FLINT 09200
* 021264 1001615200 09210 JR EXT SHOULD STORE 2ND REW. FLINT 09210
* 021271 3000040560 09220 JD 0405 3RD SHOLD GINE BUSY. FLINT 09220
* 021276 3002161300 09230 J STR4 FLINT 09230
* 021303 1001626500 09240 JR EXRO FLINT 09240
* 021310 3002131524 09250 JC $+5,20 FLINT 09250
* 021315 3002131567 09260 JC $,55 FLINT 09260
021322 2602056026 09270 PD0 BCNT,6 FLINT 09270
021327 2600006710 09280 PD 067,8 FLINT 09280
021334 2000200014 09290 FT 02000,1212 FLINT 09290
021341 4402170100 09300 SC DEL1+4,0,0 FLINT 09300
021346 2000000037 09310 FT 0,31 FLINT 09310
021353 2000010117 09320 FT 0101,15 5 FLINT 09320
* 021360 1001603724 09330 JR EXR,20 FLINT 09330
021365 2601000546 09340 CD1 IM+5,6 FLINT 09340
* 021372 3002141142 09350 JE $+15 FLINT 09350
* 021377 3000040660 09360 JD 0406 MISSED BLOCK. FLINT 09360
* 021404 3002161300 09370 J STR4 FLINT 09370
* 021411 1002164700 09380 JR DEL FLINT 09380
021416 2602074046 09390 CD1 D500,6 FLINT 09390
* 021423 3002144242 09400 JE $+15 FLINT 09400
021430 2602074646 09410 CD1 D501,6 FLINT 09410
* 021435 3002136043 09420 JU $-45 FLINT 09420
* 021442 1002052724 09430 JR RW,20 FLINT 09430
021447 2000100037 09440 FT 01000,3131 FLINT 09440
* 021454 1002050324 09450 JR REW,20 FLINT 09450
* 021461 1001615200 09460 JR EXT FLINT 09460
* 021466 3000040760 09470 JD 0407 SHOULD HAVE REWOUND TO FLINT 09470
* 021473 3002161300 09480 J STR4 LOAD TAPE NEXT REWIND FLINT 09480
* 021500 1001631600 09490 JR EXRC FLINT 09490
* 021505 1001615200 09500 JR EXT FLINT 09500
* 021512 3000041060 09510 JD 0410 NON-READY RESET BY FLINT 09510
* 021517 3002161300 09520 J STR4 WRONG BITS. FLINT 09520
021524 2000300037 09530 FT 03000,3131 SHOULD SET NON READY FLINT 09530
* 021531 1001603724 09540 JR EXR,20 FLINT 09540
021536 2000200037 09550 FT 02000,3131 FLINT 09550
* 021543 1001615200 09560 JR EXT FLINT 09560
* 021550 3000041160 09570 JD 0411 BUSY BECAUSE IO GIVEN FLINT 09570
* 021555 3002161300 09580 J STR4 WITH NON-READY SET. FLINT 09580
021562 2000210037 09590 FT 02100,3131 FLINT 09590
* 021567 1001626500 09600 JR EXRO FLINT 09600
* 021574 1001622200 09610 JR EXTT FLINT 09610
* 021601 3000041260 09620 JD 0412 NON-READY NOT RESET. FLINT 09620
* 021606 3002161300 09630 J STR4 FLINT 09630
021613 2000777737 09640 STR4 FT 07777,3131 FLINT 09640
* 021620 1001626500 09650 JR EXRO FLINT 09650
021625 4401672643 09660 SC REC+14,0,043 FLINT 09660
* 021632 3002075462 09670 JC TST4+5,5,50 FLINT 09670
* 021637 3002074700 09680 J TST4 FLINT 09680
* 021644 3000000000 09690 DEL J 0 FLINT 09690
021651 2120000415 09700 FT 4,13,5 FLINT 09700
021656 7400006714 09710 CT 067,12 FLINT 09710
* 021663 3002165141 09720 JG $-10 FLINT 09720
021670 2600006704 09730 PD 067,4 FLINT 09730
* 021675 3002172640 09740 DEL1 JC FAST,04040 FLINT 09740
021702 2100001014 09750 FT 8,12,4 FLINT 09750
021707 3400006220 09760 CC 062,16 FLINT 09760
* 021714 3002164443 09770 JU DEL FLINT 09770
021721 4402170100 09780 SC DEL1+4,0,0 FLINT 09780
021726 2117777014 09790 FAST FT -8,12,4 4 FLINT 09790
021733 7400006336 09800 CT 063,30 FLINT 09800
* 021740 3002164443 09810 JU DEL FLINT 09810
021745 4402170140 09820 SC DEL1+4,0,040 FLINT 09820
* 021752 3002164400 09830 J DEL FLINT 09830
* 021757 3000000000 09840 TST3 J 0 FLINT 09840
021764 4401641377 09850 SC IMM1+4,6,63 FLINT 09850
* 021771 1001640000 09860 JR IMM FLINT 09860
021776 2000410117 09870 FT 04101,1515 FLINT 09870
* 022003 1000763424 09880 JR EXW,20 FLINT 09880
* 022010 1002050324 09890 JR REW,20 FLINT 09890
022015 2602056026 09900 PD0 BCNT,6 FLINT 09900
022022 2000100017 09910 FT 01000,1515 FLINT 09910
022027 2000100037 09920 FT 01000,3131 FLINT 09920
* 022034 1001603724 09930 JR EXR,20 FLINT 09930
* 022041 1001615200 09940 JR EXT FLINT 09940
* 022046 3000030160 09950 JD 0301 NON READY NOT FLINT 09950
* 022053 3002361400 09960 J STR3 SET WHEN BACKSPACE FLINT 09960
* 022060 1001631600 09970 JR EXRC FROM LOAD POINT FLINT 09970
* 022065 1001615200 09980 JR EXT FLINT 09980
* 022072 3000030260 09990 JD 0302 NON READY RESET BY FLINT 09990
* 022077 3002361400 10000 J STR3 WRONG BITS FLINT 10000
022104 2000300037 10010 FT 03000,3131 FLINT 10010
* 022111 1001603724 10020 JR EXR,20 FLINT 10020
022116 2000200037 10030 FT 02000,3131 FLINT 10030
* 022123 1001615200 10040 JR EXT BUSY NOT SET WHEN FLINT 10040
* 022130 3000030360 10050 JD 0303 IO GIVEN WITH NON- FLINT 10050
* 022135 3002361400 10060 J STR3 READY SET. FLINT 10060
022142 2000300037 10070 FT 03000,3131 FLINT 10070
* 022147 1001626500 10080 JR EXRO FLINT 10080
* 022154 1001622200 10090 JR EXTT FLINT 10090
* 022161 3000030460 10100 JD 0304 NON-READY NOT RESET FLINT 10100
* 022166 3002361400 10110 J STR3 FLINT 10110
022173 2000000037 10120 FT 0,31 FLINT 10120
022200 2000410117 10130 FT 04101,1515 FLINT 10130
* 022205 1001603724 10140 JR EXR,20 READ ONE BLK. FROM FLINT 10140
022212 2000100017 10150 FT 01000,1515 LOAD POINT. FLINT 10150
022217 2000100037 10160 FT 01000,3131 FLINT 10160
* 022224 1001603724 10170 JR EXR,20 BACKSPACE FLINT 10170
* 022231 1001603724 10180 JR EXR,20 BACKSPACE FLINT 10180
* 022236 1001615200 10190 JR EXT FLINT 10190
* 022243 3000030560 10200 JD 0305 POINT NO NON READY FLINT 10200
* 022250 3002361400 10210 J STR3 FLINT 10210
* 022255 1001626500 10220 JR EXRO FLINT 10220
* 022262 1002050324 10230 JR REW,20 FLINT 10230
* 022267 1002050324 10240 JR REW,20 FLINT 10240
022274 2000000037 10250 FT 0,31 FLINT 10250
022301 2000410117 10260 FT 04101,1515 FLINT 10260
* 022306 1000763400 10270 JR EXW FLINT 10270
* 022313 1002365024 10280 JR FBD,20 FIRST BLK. DELAY FLINT 10280
* 022320 3000030660 10290 JD 0306 NOT LONG ENOUGH. FLINT 10290
* 022325 3002361400 10300 J STR3 FLINT 10300
* 022332 1002050324 10310 JR REW,20 FLINT 10310
022337 2602056026 10320 PD0 BCNT,6 FLINT 10320
022344 2000004037 10330 FT 040,31 FLINT 10330
022351 4402247076 10340 SC PL4+4,07076 FLINT 10340
022356 4402236701 10350 SC $+9,1 FLINT 10350
022363 4401641301 10360 PL1 SC IMM1+4,1,1 FLINT 10360
* 022370 1001640000 10370 JR IMM FLINT 10370
022375 2000410117 10380 FT 04101,1515 FLINT 10380
* 022402 1000763424 10390 JR EXW,20 FLINT 10390
* 022407 1001622200 10400 JR EXTT FLINT 10400
* 022414 1002250100 10410 JR ODD FLINT 10410
* 022421 3002361400 10420 J STR3 FLINT 10420
022426 2000400117 10430 FT 04001,1515 FLINT 10430
* 022433 1000763424 10440 JR EXW,20 FLINT 10440
* 022440 1001622200 10450 JR EXTT FLINT 10450
* 022445 1002254400 10460 JR EVEN FLINT 10460
* 022452 3002361400 10470 J STR3 FLINT 10470
022457 6002236701 10480 AC PL1+4,1 1 FLINT 10480
* 022464 3202236376 10490 PL4 JL PL1,076 6 FLINT 10490
* 022471 3002260400 10500 J CON FLINT 10500
* 022476 3000000000 10510 ODD J 0 FLINT 10510
* 022503 1001626500 10520 JR EXRO FLINT 10520
022510 5601000701 10530 BA1 IM+7,1 CAN NOT WRITE FLINT 10530
022515 5202252501 10540 SA1 $+8,1 ODD PARITY X BITS FLINT 10540
* 022522 3000710060 10550 JD 07100 ARE COMBINATION THAT FLINT 10550
022527 6002250105 10560 AC ODD+3,5 5 FAILED. FLINT 10560
* 022534 3002247600 10570 J ODD FLINT 10570
* 022541 3000000000 10580 EVEN J 0 FLINT 10580
* 022546 1001626500 10590 JR EXRO FLINT 10590
022553 5601000701 10600 BA1 IM+7,1 CAN NOT WRITE FLINT 10600
022560 5202257001 10610 SA1 $+8,1 EVEN PARITY X BITS FLINT 10610
* 022565 3000720060 10620 JD 07200 ARE COMBINATION THAT FLINT 10620
022572 6002254405 10630 AC EVEN+3,5,5 FAILED. FLINT 10630
* 022577 3002254100 10640 J EVEN FLINT 10640
* 022604 1002050324 10650 CON JR REW,20 FLINT 10650
022611 2000000037 10660 FT 0,31 FLINT 10660
022616 4400003701 10670 SC 037,1 FLINT 10670
022623 4402273576 10680 SC PL41+4,0,076 FLINT 10680
022630 2000410117 10690 FT 04101,1515 FLINT 10690
* 022635 1001603724 10700 JR EXR,20 FLINT 10700
022642 7001000761 10710 CB2 IM+7,1 FLINT 10710
* 022647 3002266642 10720 JE $+15 FLINT 10720
022654 5202266421 10730 SA2 $+8,1 FLINT 10730
* 022661 3000730060 10740 JD 07300 COMPARE ERROR WHEN READING FLINT 10740
022666 2000400117 10750 FT 04001,1515 ODD PARITY X- BITS COMBI. FLINT 10750
* 022673 1001603724 10760 JR EXR,20 THAT FAILED FLINT 10760
022700 7001000761 10770 CB2 IM+7,1 FLINT 10770
* 022705 3002272442 10780 JE $+15 FLINT 10780
022712 5202272221 10790 SA2 $+8,1 FLINT 10790
* 022717 3000740060 10800 JD 07400 COMPARE ERROR WHEN READING EVEN PARITY FLINT 10800
022724 6000003701 10810 AC 037,1 X- BITS COMBI. THAT FAILED FLINT 10810
* 022731 3202263076 10820 PL41 JL CON+20,0,076 FLINT 10820
* 022736 1002050324 10830 JR REW,20 FLINT 10830
022743 2000004037 10840 FT 040,31 FLINT 10840
022750 4402306776 10850 SC PL42+4,0,076 FLINT 10850
022755 4400003701 10860 SC 037,1 FLINT 10860
022762 2000400117 10870 FT 04001,1515 FLINT 10870
* 022767 1001603724 10880 JR EXR,20 FLINT 10880
* 022774 1001615200 10890 JR EXT FLINT 10890
* 023001 1002310000 10900 JR ODDX FLINT 10900
* 023006 3002301300 10910 J $+5 FLINT 10910
* 023013 1001626500 10920 JR EXRO FLINT 10920
023020 2000410117 10930 FT 04101,1515 FLINT 10930
* 023025 1001603724 10940 JR EXR,20 FLINT 10940
* 023032 1001615200 10950 JR EXT FLINT 10950
* 023037 1002313100 10960 JR EVENX FLINT 10960
* 023044 3002305100 10970 J $+5 FLINT 10970
* 023051 1001626500 10980 JR EXRO FLINT 10980
023056 6000003701 10990 AC 037,1 FLINT 10990
* 023063 3202276277 11000 PL42 JL PL41+25,5,63 FLINT 11000
* 023070 3002315700 11010 J CON1 FLINT 11010
* 023075 3000000000 11020 ODDX J 0 FLINT 11020
* 023102 1001626500 11030 JR EXRO FLINT 11030
023107 5202311721 11040 SA2 $+8,1 FLINT 11040
* 023114 3000750060 11050 JD 07500 WROTE ODD READ EVEN DID NOT SET FLINT 11050
* 023121 3002307500 11060 J ODDX TPE X- BITS COMBI. THAT FAILED FLINT 11060
* 023126 3000000000 11070 EVENX J 0 FLINT 11070
* 023133 1001626500 11080 JR EXRO FLINT 11080
023140 5202315021 11090 SA2 $+8,1 WROTE EVEN READ ODD DID NOT TPE FLINT 11090 O
* 023145 3000760060 11100 JD 07600 X- BITS COMBI. THAT FAILED FLINT 11100 X
* 023152 3002312600 11110 J EVENX FLINT 11110
* 023157 1002050324 11120 CON1 JR REW,20 FLINT 11120
023164 2602056026 11130 PD0 BCNT,6 FLINT 11130
023171 6401606202 11140 LS EXR1+2,2,2 FLINT 11140
023176 2000000037 11150 FT 0,31 FLINT 11150
023203 2000410117 11160 FT 04101,1515 FLINT 11160
* 023210 1001603724 11170 JR EXR,20 FLINT 11170
023215 2601000546 11180 CD1 IM+5,6 FLINT 11180
* 023222 3002324142 11190 JE $+15 GAVE IO WITH READ FLINT 11190
* 023227 3000030760 11200 JD 0307 AND WRITE SHOULD READ FLINT 11200
* 023234 3002361400 11210 J STR3 FLINT 11210
023241 2000440117 11220 FT 04401,1515 FLINT 11220
* 023246 1001603724 11230 JR EXR,20 FLINT 11230
023253 5602064546 11240 BD1 D2,6 GAVE IO WITH READ FLINT 11240
023260 2601000546 11250 CD1 IM+5,6 WRITE AND ERASE FLINT 11250
* 023265 3002330442 11260 JE $+15 SHOULD READ FLINT 11260
* 023272 3000031060 11270 JD 0310 FLINT 11270
* 023277 3002361400 11280 J STR3 FLINT 11280
023304 2000004037 11290 FT 040,31 FLINT 11290
023311 2000500117 11300 FT 05001,1515 FLINT 11300
* 023316 1001603724 11310 JR EXR,20 GAVE READ WRITE FLINT 11310
* 023323 1001622200 11320 JR EXTT AND BACKSPACE FLINT 11320
* 023330 3000031160 11330 JD 0311 SHOULD BACKSPACE FLINT 11330
* 023335 3002361400 11340 J STR3 FLINT 11340
023342 2000550117 11350 FT 05501,1515 FLINT 11350
* 023347 1001603724 11360 JR EXR,20 GAVE READ WRITE FLINT 11360
* 023354 1001622200 11370 JR EXTT BACKSPACE AND ERASE FLINT 11370
* 023361 3000031260 11380 JD 0312 SHOULD BACKSPACE FLINT 11380
* 023366 3002361400 11390 J STR3 FLINT 11390
023373 5401606201 11400 LP EXR1+2,1,1 FLINT 11400
023400 2000440117 11410 FT 04401,1515 FLINT 11410
* 023405 1001603724 11420 JR EXR,20 GAVE READ AND ERASE SHOULD READ FLINT 11420
* 023412 1001615200 11430 JR EXT FLINT 11430
* 023417 3000031360 11440 JD 0313 FLINT 11440
* 023424 3002361400 11450 J STR3 FLINT 11450
* 023431 1001626500 11460 JR EXRO FLINT 11460
* 023436 1002050324 11470 JR REW,20 FLINT 11470
023443 2000500117 11480 FT 05001,1515 FLINT 11480
023450 2000014037 11490 FT 0140,31 1 GAVE WRITE WITH BACKSPACE SHOULD FLINT 11490 A
023455 4401000600 11500 SC IM+6,0 FLINT 11500
* 023462 1000763424 11510 JR EXW,20 WRITE FLINT 11510
* 023467 1001615200 11520 JR EXT FLINT 11520
* 023474 3000031460 11530 JD 0314 FLINT 11530
* 023501 3002361400 11540 J STR3 FLINT 11540
* 023506 1001626500 11550 JR EXRO FLINT 11550
023513 2000100017 11560 FT 01000,1515 FLINT 11560
* 023520 1001603724 11570 JR EXR,20 FLINT 11570
023525 2000000037 11580 FT 0,31 FLINT 11580
023532 2000040017 11590 FT 0400,15 5 FLINT 11590
* 023537 1000763424 11600 JR EXW,20 FLINT 11600
* 023544 1000763424 11610 JR EXW,20 ERASE FROM LOADPOINT THEN BACKSPACE FLINT 11610 E
023551 2000100017 11620 FT 01000,1515 SHOULD GET NON READY FLINT 11620
023556 2000100037 11630 FT 01000,3131 FLINT 11630
* 023563 1001603724 11640 JR EXR,20 FLINT 11640
* 023570 1001615200 11650 JR EXT FLINT 11650
* 023575 3000031560 11660 JD 0315 FLINT 11660
* 023602 3002361400 11670 J STR3 FLINT 11670
* 023607 1001626500 11680 JR EXRO FLINT 11680
023614 2000000037 11690 STR3 FT 0,31 FLINT 11690
* 023621 1001631600 11700 JR EXRC FLINT 11700
* 023626 1002050324 11710 JR REW,20 FLINT 11710
* 023633 3002176462 11720 JC TST3+5,5,50 FLINT 11720
* 023640 3002175700 11730 J TST3 FLINT 11730
* 023645 3000000000 11740 FBD J 0 FLINT 11740
023652 2600001704 11750 PD 017,4 FLINT 11750
023657 4400001701 11760 SC 017,1 FLINT 11760
023664 2600003704 11770 PD 037,4 FLINT 11770
023671 2001000020 11780 FT IM,16 FLINT 11780
023676 2000172222 11790 FT 978,18 FLINT 11790
023703 2401000001 11800 TFR IM,, FLINT 11800
023710 7200003704 11810 AB1 037,4 FLINT 11810
* 023715 3002370367 11820 JC $-10,55 5 FLINT 11820
023722 7002376162 11830 CB2 B18,2 FLINT 11830
* 023727 3002364544 11840 JS FBD FLINT 11840
023734 7002376362 11850 CB2 B22,2 FLINT 11850
* 023741 3002364541 11860 JG FBD FLINT 11860
023746 6002365012 11870 AC FBD+3,1010 FLINT 11870
* 023753 3002364500 11880 J FBD FLINT 11880
023761 0025 11890 B18 +2 00025 FLINT 11890
023763 0030 11900 B22 +2 00030 FLINT 11900
3000140000 11910 END STR FLINT 11910
{-- tape mark --}
017999 C481 FILOD CODEDIT SOURCE - T3834394-48
001400 00010 T480 BEGIN 01400 FILOD 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T481 3000140000 * 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 T482 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 T483 3000136300 * SEGJP $ *
001400 ORIG 01400
001400 2600001700 00020 STR PD 017,0 FILOD 00020
001405 2600003700 00030 PD 037,0 FILOD 00030
001412 2600005700 00040 PD 057,0 FILOD 00040
001417 2620007700 00050 PD 077,0,1 1 FILOD 00050
001424 6000004720 00060 AC 047,16 FILOD 00060
* 001431 3200141721 00070 JL $-10,17 7 FILOD 00070
001436 4400143521 00080 SC $-1,17 FILOD 00080
001443 5600666700 00090 BA1 CL2,0 FILOD 00090
001450 5200051700 00100 SA1 0517,0 FILOD 00100
001455 4400661140 00110 SC CL1A+4,0,040 FILOD 00110
001462 5600700010 00120 BA1 CH0,8 FILOD 00120
001467 5200040710 00130 SA1 0407,8 FILOD 00130
* 001474 3000150125 00140 JC $+5,21 FILOD 00140
* 001501 3000150626 00150 JC $+5,22 FILOD 00150
* 001506 3000151327 00160 JC $+5,23 FILOD 00160
001513 4400474200 00170 SC IE2+4,0 0 FILOD 00170
001520 2602015425 00180 PD0 BLK,5 FILOD 00180
001525 4400474740 00190 SC IE2+9,04040 FILOD 00190
001532 4400475440 00200 SC IE2+14,0,040 FILOD 00200
001537 4400476140 00210 SC IE2+19,0,040 FILOD 00210
001544 2600747727 00220 PD0 TOTAL,7 7 FILOD 00220
001551 2600743523 00230 PD0 RERD+3,3,3 FILOD 00230
001556 2600745223 00240 PD0 RWIT,3 FILOD 00240
* 001563 3000770060 00250 JD 07700 FILOD 00250
001570 2600161203 00260 PD TRZ+3,3 3 FILOD 00260
001575 6000161201 00270 TRZ1 AC TRZ+3,1 1 FILOD 00270
* 001602 3000160771 00280 JC $+5,57 FILOD 00280
* 001607 3000000040 00290 TRZ JC 0,040 FILOD 00290
* 001614 3000164571 00300 JC TRZ2,57 7 FILOD 00300
001621 3400161177 00310 CC TRZ+2,6363 FILOD 00310
* 001626 3000157543 00320 JU TRZ1 FILOD 00320
* 001633 3007007760 00330 JD 070077 FILOD 00330
* 001640 3000157000 00340 J TRZ1-5 FILOD 00340
001645 5600161203 00350 TRZ2 BA1 TRZ+3,3 3 FILOD 00350
001652 5202015703 00360 SA1 SEL,3 FILOD 00360
001657 4400176404 00370 SC SL2+4,4 4 FILOD 00370
001664 4400172101 00380 SC SL1+4,1 1 FILOD 00380
001671 2000177717 00390 FT TSS1,15 5 FILOD 00390
001676 3402015700 00400 CC SEL,0 FILOD 00400
* 001703 3000171543 00410 JU $+10 FILOD 00410
001710 4402015777 00420 SC SEL,63 FILOD 00420
001715 1402015701 00430 SL1 LC SEL,1 FILOD 00430
* 001722 3000174143 00440 JU $+15 FILOD 00440
001727 4560000400 00450 SC 4,0,7 FILOD 00450
* 001734 3000174600 00460 J $+10 FILOD 00460
001741 4560000440 00470 SC 4,040,7 7 FILOD 00470
001746 1600172151 00480 BC1 SL1+4,1 1 FILOD 00480
001753 6000007705 00490 AC 077,5 FILOD 00490
* 001760 3200171504 00500 SL2 JL SL1,4 FILOD 00500
* 001765 1000203300 00510 JR CHS FILOD 00510
* 001772 1000710500 00520 JR REW FILOD 00520
* 001777 1000221100 00530 TSS1 JR TST1 SMALL BLK ODD FILOD 00530
* 002004 1000314400 00540 JR TST2 SMALL BLK EVEN FILOD 00540
* 002011 1000324500 00550 JR TST3 LARGE BLK ODD FILOD 00550
* 002016 1000335300 00560 JR TST4 LARGE BLK EVEN FILOD 00560
* 002023 3000177700 00570 J $-20 FILOD 00570
* 002030 3000000000 00580 CHS J 0 FILOD 00580
002035 4402015507 00590 SC SEL-2,7 7 FILOD 00590
002042 4602015517 00600 BT SEL-2,1515 FILOD 00600
002047 2600007603 00610 PD 076,3 FILOD 00610
002054 1600007753 00620 BC1 077,3 FILOD 00620
002061 5600466010 00630 BA1 IE,8 FILOD 00630
002066 5360040710 00640 SA1 0407,8,7,7 FILOD 00640
002073 2600001702 00650 PD 017,2 FILOD 00650
002100 5602015501 00660 BA1 SEL-2,1 1 FILOD 00660
002105 1600001724 00670 BS2 017,4 FILOD 00670
002112 6400001640 00680 LS 016,040 0 FILOD 00680
002117 5200717702 00690 SA1 I0+1,2 IO ORDER FILOD 00690
002124 5200711502 00700 SA1 REW1+1,2,2 REWIND FILOD 00700
002131 5200714102 00710 SA1 BSP1+1,2,2 BACKSPACE FILOD 00710
002136 5200716002 00720 SA1 ERS1+1,2,2 ERASE FILOD 00720
002143 5200726102 00730 SA1 TEST1+1,1,2 TEST FILOD 00730
002150 5200733602 00740 SA1 TESC1+1,1,2 TEST COMPLIMENT FILOD 00740
002155 5200723002 00750 SA1 RES1+1,2,2 RESET FILOD 00750
002162 5602015501 00760 BA1 SEL-2,1 1 FILOD 00760
002167 1600001713 00770 BS1 017,3 FILOD 00770
002174 5200504201 00780 SA1 IE3+3,1 1 IE EXIT FILOD 00780
* 002201 3000203000 00790 J CHS FILOD 00790
* 002206 3000000000 00800 TST1 J 0 FILOD 00800
* 002213 3000222023 00810 JC $+5,19 SI 2 SET SMALL BLK. FILOD 00810
* 002220 3000222527 00820 JC $+5,23 SI 3 RESET ODD PARITY FILOD 00820
002225 4400740504 00830 SC TSX,4 FILOD 00830
002232 4400720141 00840 SC I0+3,04141 DETAIL BITS FILOD 00840
* 002237 1000231200 00850 JR TW1 FILOD 00850
* 002244 1000271100 00860 JR TR1 FILOD 00860
* 002251 1000247000 00870 JR TB1 FILOD 00870
002256 5600741345 00880 BD1 BPP,5 FILOD 00880
002263 6200747707 00890 AM1 TOTAL,7 7 FILOD 00890
002270 2000740040 00900 FT PCOM,32 2 FILOD 00900
* 002275 1002030400 00910 JR PRINT FILOD 00910
* 002302 3000220600 00920 J TST1 FILOD 00920
* 002307 3000000000 00930 TW1 J 0 FILOD 00930
002314 2602015405 00940 PD BLK,5 FILOD 00940
002321 4400720002 00950 SC I0+2,2 FILOD 00950
002326 4402027400 00960 SC END,0 FILOD 00960
* 002333 1000346100 00970 JR SLW FILOD 00970
* 002340 1000357400 00980 JR PASEL FILOD 00980
* 002345 1000366300 00990 JR BLKS FILOD 00990
002352 1402015740 01000 LC SEL,040 0 FILOD 01000
* 002357 3000230742 01010 JE TW1 FILOD 01010
002364 4400474700 01020 SC IE2+9,0 0 FILOD 01020
* 002371 1000440200 01030 JR M3 FILOD 01030
002376 7402010336 01040 W1 CT MK1,30 FILOD 01040
* 002403 3000243442 01050 JE W2 FILOD 01050
002410 4602010317 01060 BT MK1,15 FILOD 01060
* 002415 1000410400 01070 JR MKE FILOD 01070
* 002422 1000430132 01080 JR MOV,26 FILOD 01080
* 002427 3000243433 01090 JC $+5,27 FILOD 01090
002434 3402027400 01100 W2 CC END,0 FILOD 01100
* 002441 3000237642 01110 JE W1 FILOD 01110
002446 4400474740 01120 SC IE2+9,04040 FILOD 01120
* 002453 1000710500 01130 JR REW FILOD 01130
* 002460 3000230700 01140 J TW1 FILOD 01140
* 002465 3000000000 01150 TB1 J 0 FILOD 01150
002472 2602015405 01160 PD BLK,5 FILOD 01160
002477 4400720001 01170 SC I0+2,1 FILOD 01170
002504 6400720110 01180 LS I0+3,01010 FILOD 01180
002511 4402027400 01190 SC END,0 FILOD 01190
002516 4400476100 01200 SC IE2+19,0,0 FILOD 01200
* 002523 1000717400 01210 JR I0X FILOD 01210
002530 3402027400 01220 CC END,0 FILOD 01220
* 002535 3000253042 01230 JE $-5 FILOD 01230
002542 5400720167 01240 LP I0+3,06767 FILOD 01240
002547 2601000404 01250 PD IM+4,4 FILOD 01250
002554 4400476140 01260 SC IE2+19,0,040 FILOD 01260
* 002561 1000717422 01270 JR I0X,18 FILOD 01270
* 002566 3000256665 01280 JC $,53 FILOD 01280
002573 5601000445 01290 BD1 IM+4,5 FILOD 01290
002600 2602000445 01300 CD1 D1,5 FILOD 01300
* 002605 3000261742 01310 JE $+10 FILOD 01310
* 002612 1000263400 01320 JR BSPP FILOD 01320
* 002617 1000710500 01330 JR REW FILOD 01330
* 002624 3000246500 01340 J TB1 FILOD 01340
* 002631 3000000000 01350 BSPP J 0 FILOD 01350
002636 5203157205 01360 SA1 BSPA,5 FILOD 01360
002643 2003150040 01370 FT BSPX,32 2 FILOD 01370
* 002650 1002030400 01380 JR PRINT FILOD 01380
* 002655 1002661000 01390 JR SPACE FILOD 01390
* 002662 3000267463 01400 JC $+10,51 1 FILOD 01400
* 002667 3000263100 01410 J BSPP FILOD 01410
* 002674 3000000360 01420 JD 03 BACK SPACE ERROR FILOD 01420
* 002701 3000266700 01430 J $-10 DID NOT READ BLK. 1. FILOD 01430
* 002706 3000000000 01440 TR1 J 0 FILOD 01440
002713 4402027400 01450 SC END,0 FILOD 01450
002720 4400303240 01460 SC R4+4,04040 FILOD 01460
002725 4400475400 01470 SC IE2+14,0,0 FILOD 01470
002732 2602015405 01480 PD BLK,5 FILOD 01480
002737 4400720001 01490 SC I0+2,1 FILOD 01490
* 002744 1000357400 01500 JR PASEL FILOD 01500
* 002751 1000445700 01510 JR SLR FILOD 01510
002756 7402010336 01520 R1 CT MK1,30 FILOD 01520
* 002763 3000275642 01530 JE $-5 FILOD 01530
002770 2001710017 01540 FT IM3,15 FILOD 01540
* 002775 1000410400 01550 JR MKE FILOD 01550
003002 2001710017 01560 FT IM3,15 SHOULD BE FILOD 01560
003007 4602010316 01570 BT MK1,14 READ FROM TAPE FILOD 01570
* 003014 1000554700 01580 JR COMP FILOD 01580
* 003021 1000430132 01590 JR MOV,26 FILOD 01590
* 003026 3000305740 01600 R4 JC R3-5,04040 50 BLK. FORCE NEXT FILOD 01600
003033 7402013336 01610 CT TP2,30 READ FILOD 01610
* 003040 3000306442 01620 JE $+20 FILOD 01620
* 003045 3000305233 01630 JC $+5,27 FILOD 01630
* 003052 3000275600 01640 J R1 FILOD 01640
003057 4400303240 01650 SC R4+4,04040 FILOD 01650
* 003064 3000307133 01660 R3 JC $+5,27 FILOD 01660
003071 3402027400 01670 CC END,0 FILOD 01670
* 003076 3000311543 01680 JU $+15 FILOD 01680
* 003103 1000717400 01690 JR I0X FILOD 01690
* 003110 3000275600 01700 J R1 FILOD 01700
003115 7402010336 01710 R2 CT MK1,30 FILOD 01710
* 003122 3000277043 01720 JU R1+10 FILOD 01720
003127 4400475440 01730 SC IE2+14,0,040 FILOD 01730
* 003134 3000270600 01740 J TR1 FILOD 01740
* 003141 3000000000 01750 TST2 J 0 FILOD 01750
* 003146 3000315323 01760 JC $+5,19 SET SI2 FILOD 01760
* 003153 3000316024 01770 JC $+5,20 SET SI3 FILOD 01770
003160 4400740505 01780 SC TSX,5 FILOD 01780
003165 4400720140 01790 SC I0+3,04040 FILOD 01790
* 003172 1000231200 01800 JR TW1 FILOD 01800
* 003177 1000271100 01810 JR TR1 FILOD 01810
* 003204 1000247000 01820 JR TB1 FILOD 01820
003211 5600741345 01830 BD1 BPP,5 FILOD 01830
003216 6200747707 01840 AM1 TOTAL,7 7 FILOD 01840
003223 2000740040 01850 FT PCOM,32 2 FILOD 01850
* 003230 1002030400 01860 JR PRINT FILOD 01860
* 003235 3000314100 01870 J TST2 FILOD 01870
* 003242 3000000000 01880 TST3 J 0 FILOD 01880
* 003247 3000325426 01890 JC $+5,22 FILOD 01890
* 003254 3000326127 01900 JC $+5,23 FILOD 01900
003261 4400740506 01910 SC TSX,6 FILOD 01910
003266 4400720101 01920 SC I0+3,1 FILOD 01920
* 003273 1002610300 01930 JR DATA FILOD 01930
* 003300 1000231200 01940 JR TW1 FILOD 01940
* 003305 1000271100 01950 JR TR1 FILOD 01950
* 003312 1000247000 01960 JR TB1 FILOD 01960
003317 5600741345 01970 BD1 BPP,5 FILOD 01970
003324 6200747707 01980 AM1 TOTAL,7 7 FILOD 01980
003331 2000740040 01990 FT PCOM,32 2 FILOD 01990
* 003336 1002030400 02000 JR PRINT FILOD 02000
* 003343 3000324200 02010 J TST3 FILOD 02010
* 003350 3000000000 02020 TST4 J 0 FILOD 02020
* 003355 3000336226 02030 JC $+5,22 FILOD 02030
* 003362 3000336724 02040 JC $+5,20 FILOD 02040
003367 4400740507 02050 SC TSX,7 FILOD 02050
003374 4400720100 02060 SC I0+3,0 FILOD 02060
* 003401 1002610300 02070 JR DATA FILOD 02070
* 003406 1000231200 02080 JR TW1 FILOD 02080
* 003413 1000271100 02090 JR TR1 FILOD 02090
* 003420 1000247000 02100 JR TB1 FILOD 02100
003425 5600741345 02110 BD1 BPP,5 FILOD 02110
003432 6200747707 02120 AM1 TOTAL,7 7 FILOD 02120
003437 2000740040 02130 FT PCOM,32 2 FILOD 02130
* 003444 1002030400 02140 JR PRINT FILOD 02140
* 003451 3000335000 02150 J TST4 FILOD 02150
* 003456 3000000000 02160 SLW J 0 FILOD 02160
003463 2602011700 02170 PD MK4,0 FILOD 02170
003470 2602013700 02180 PD TP3,0 FILOD 02180
003475 2602014710 02190 PD TP5,8 FILOD 02190
003502 2001610003 02200 FT IM1,3 FILOD 02200
003507 5202012703 02210 SA1 TP1,3 FILOD 02210
003514 2001650003 02220 FT IM2,3 FILOD 02220
003521 5202013303 02230 SA1 TP2,3 FILOD 02230
003526 2001710003 02240 FT IM3,3 FILOD 02240
003533 5202013703 02250 SA1 TP3,3 FILOD 02250
003540 2002014303 02260 FT TP4,3 FILOD 02260
003545 5202014703 02270 SA1 TP5,3 FILOD 02270
003552 2002010303 02280 FT MK1,3 FILOD 02280
003557 5202012303 02290 SA1 MK5,3 FILOD 02290
* 003564 3000345600 02300 J SLW FILOD 02300
* 003571 3000000000 02310 PASEL J 0 FILOD 02310
003576 2602016304 02320 PD PAC,4 FILOD 02320
003603 2600004700 02330 PD 047,0 FILOD 02330
003610 4400004704 02340 SC 047,4 FILOD 02340
003615 2002770007 02350 FT PAT1,7 FILOD 02350
003622 5222005425 02360 SA2 PAD,5,1 1 FILOD 02360
003627 6000003604 02370 AC 036,4 FILOD 02370
003634 6000004705 02380 AC 047,5 FILOD 02380
* 003641 3200362203 02390 JL $-15,3 FILOD 02390
003646 4400364503 02400 SC $-1,3 FILOD 02400
* 003653 3000357100 02410 J PASEL FILOD 02410
* 003660 3000000000 02420 BLKS J 0 FILOD 02420
003665 4400373401 02430 SC XB+4,1 FILOD 02430
003672 4400376006 02440 SC XB1+4,6 6 FILOD 02440
003677 2600004704 02450 PD 047,4 FILOD 02450
003704 5602001145 02460 BD1 D50,5 FILOD 02460
003711 3402015600 02470 CC SEL-1,0 0 FILOD 02470
* 003716 3000376142 02480 JE XB1+5 FILOD 02480
003723 5622001645 02490 BD1 D20,5,1 1 FILOD 02490
003730 1402015601 02500 XB LC SEL-1,1 1 FILOD 02500
* 003735 3000376142 02510 JE XB1+5 FILOD 02510
003742 6000004705 02520 AC 047,5 FILOD 02520
003747 1600373411 02530 BS1 XB+4,1 FILOD 02530
* 003754 3200372306 02540 XB1 JL XB-5,6 FILOD 02540
003761 5200741305 02550 SA1 BPP,5 BLKS. PER PASS FILOD 02550
* 003766 3000366000 02560 J BLKS FILOD 02560
* 003773 3000000000 02570 IPC J 0 FILOD 02570
004000 4602016311 02580 BT PAC,9 FILOD 02580
004005 6000004705 02590 AC 047,5 FILOD 02590
004012 3400004724 02600 CC 047,20 FILOD 02600
* 004017 3000403141 02610 JG $+10 FILOD 02610
004024 4400004705 02620 SC 047,5 FILOD 02620
004031 4202016311 02630 ST PAC,9 FILOD 02630
004036 6022005001 02640 AC PAD-4,1,1,1 FILOD 02640
* 004043 3000377300 02650 J IPC FILOD 02650
* 004050 3000000000 02660 COUNT J 0 FILOD 02660
004055 5602015465 02670 BD2 BLK,5 FILOD 02670
004062 6602000425 02680 AD2 D1,5 FILOD 02680
004067 5202015425 02690 SA2 BLK,5 FILOD 02690
* 004074 3000405000 02700 J COUNT FILOD 02700
* 004101 3000000000 02710 MKE J 0 FILOD 02710
* 004106 1000377600 02720 JR IPC,0 FILOD 02720
* 004113 1000405300 02730 JR COUNT FILOD 02730
004120 5622005305 02740 BA1 PAD-1,5,5,1 FILOD 02740
004125 5200007303 02750 SA1 073,3 START OF PAT FILOD 02750
004132 5360000425 02760 SA2 4,5,7 BLK NUM. FILOD 02760
004137 6000007705 02770 AC 077,5 FILOD 02770
004144 2000037307 02780 FT 251,7 FILOD 02780
004151 2600001703 02790 PD 017,3 FILOD 02790
004156 5600001402 02800 BA1 014,2 FILOD 02800
004163 7000001763 02810 CB2 017,3 FILOD 02810
* 004170 3000420741 02820 JG $+15 FILOD 02820
004175 2600001703 02830 PD 017,3 FILOD 02830
004202 5222005002 02840 SA1 PAD-4,2,2,1 FILOD 02840
004207 4600007315 02850 BT 073,13 IR6 TO IR5 FILOD 02850
004214 7200006703 02860 AB1 067,3 PAT START+SHIFT FILOD 02860
004221 7200003743 02870 SB1 037,3 246 MINUS SHIFT FILOD 02870
004226 5200011322 02880 SA2 0113,2 TO CHAR COUNT. FILOD 02880
004233 2160000020 02890 FT 0,16,7 FILOD 02890
004240 2520000021 02900 TFI 0,,5 FILOD 02900
004245 7000017342 02910 CB1 0173,2 ZERO COUNT FILOD 02910
* 004252 3000427142 02920 JE $+15 FILOD 02920
004257 5200011302 02930 SA1 0113,2 FILOD 02930
004264 2540000001 02940 TFR 0,,6 FILOD 02940
* 004271 3000410100 02950 J MKE FILOD 02950
* 004276 3000000000 02960 MOV JC 0 FILOD 02960
004303 4602014717 02970 BT TP5,15 FILOD 02970
004310 5602010324 02980 BA2 MK1,4 FILOD 02980
004315 5602011714 02990 BA1 MK4,12 FILOD 02990
004322 5202011314 03000 SA1 MK3,12 FILOD 03000
004327 2602011704 03010 PD MK4,4 FILOD 03010
004334 5602030004 03020 BA1 B4,4 FILOD 03020
004341 7202012344 03030 SB1 MK5,4 FILOD 03030
004346 3402027400 03040 CC END,0 FILOD 03040
* 004353 3000427643 03050 JU MOV FILOD 03050
004360 5360000024 03060 SA2 0,4,7 FILOD 03060
004365 7202014704 03070 AB1 TP5,4 FILOD 03070
* 004372 3000427600 03080 J MOV FILOD 03080
* 004377 3000000000 03090 M3 J 0 FILOD 03090
004404 4602012717 03100 BT TP1,15 FILOD 03100
* 004411 1000410400 03110 JR MKE FILOD 03110
004416 4602013317 03120 BT TP2,15 FILOD 03120
* 004423 1000410400 03130 JR MKE FILOD 03130
004430 4602013717 03140 BT TP3,15 FILOD 03140
* 004435 1000410400 03150 JR MKE FILOD 03150
* 004442 1000457200 03160 JR DMW FILOD 03160
* 004447 3000437700 03170 J M3 FILOD 03170
* 004454 3000000000 03180 SLR J 0 FILOD 03180
004461 2602011700 03190 PD MK4,0 FILOD 03190
004466 2602013700 03200 PD TP3,0 FILOD 03200
004473 2602014710 03210 PD TP5,8 FILOD 03210
004500 2001610003 03220 FT COMP1,3 3 FILOD 03220
004505 5202012703 03230 SA1 TP1,3 FILOD 03230
004512 2003170003 03240 FT COMP2,3 3 FILOD 03240
004517 5202013303 03250 SA1 TP2,3 FILOD 03250
004524 2002013703 03260 FT TP3,3 FILOD 03260
004531 5202014703 03270 SA1 TP5,3 FILOD 03270
004536 2002010303 03280 FT MK1,3 FILOD 03280
004543 5202012303 03290 SA1 MK5,3 FILOD 03290
004550 4400720001 03300 SC I0+2,1 FILOD 03300
* 004555 1000717400 03310 JR I0X FILOD 03310
* 004562 3000445400 03320 J SLR FILOD 03320
* 004567 3000000000 03330 DMW J 0 FILOD 03330
004574 4602012717 03340 BT TP1,15 FILOD 03340
004601 2000040022 03350 FT 256,18 FILOD 03350
004606 2001000020 03360 FT IM,16 FILOD 03360
004613 2560000001 03370 TFR 0,,7 FILOD 03370
* 004620 3000463766 03380 JC $+15,54 4 FILOD 03380
004625 2001540020 03390 FT IM+2816,6,16 FILOD 03390
004632 2560000001 03400 TFR 0,,7 FILOD 03400
* 004637 1000717400 03410 JR I0X FILOD 03410
* 004644 3000456700 03420 J DMW FILOD 03420
* 004651 3000000031 03430 JC 0,25 FILOD 03430
004660 004661 03440 IE +3 IE1 FILOD 03440
* 004661 3002016451 03450 IE1 JC SI,41 FILOD 03450
004666 5202022461 03460 SAR STAR FILOD 03460
004673 5600011320 03470 BA2 0113,0 FILOD 03470
004700 5600007300 03480 BA1 073,0 FILOD 03480
004705 5202026461 03490 SAR STAR1 FILOD 03490
004712 4202027037 03500 ST MSK,31 FILOD 03500
004717 2000777737 03510 FT 07777,3131 FILOD 03510
* 004724 1000724400 03520 JR TEST FILOD 03520
* 004731 3002663653 03530 JC ER,43 FILOD 03530
* 004736 3200477402 03540 IE2 JL $+30,2 FILOD 03540
* 004743 1000504740 03550 JR WIE,040 0 FILOD 03550
* 004750 1000512440 03560 JR RIE,040 0 FILOD 03560
* 004755 1000522540 03570 JR BIE,040 0 FILOD 03570
004762 2602027101 03580 PD CNT,1 FILOD 03580
* 004767 3000477425 03590 JC $+5,21 FILOD 03590
004774 4602027037 03600 EXIT BT MSK,31 FILOD 03600
005001 5602024400 03610 BA1 STAR1-1616,0 FILOD 03610
005006 5602026420 03620 BA2 STAR1,0 0 FILOD 03620
005013 5200011361 03630 SAR 0113 FILOD 03630
005020 5602020400 03640 BA1 STAR-16,6,0 FILOD 03640
005025 5602022420 03650 BA2 STAR,0 FILOD 03650
* 005032 3002016452 03660 JC SI,42 FILOD 03660
* 005037 3000040000 03670 IE3 J 0400 FILOD 03670
* 005044 3000000000 03680 WIE J 0 FILOD 03680
* 005051 1000527500 03690 JR MIT FILOD 03690
005056 7402012736 03700 CT TP1,30 FILOD 03700
* 005063 3000510743 03710 JU $+20 FILOD 03710
005070 3402027400 03720 CC END,0 FILOD 03720
* 005075 3000511443 03730 JU $+15 FILOD 03730
* 005102 3007722260 03740 JD 077222 FILOD 03740
* 005107 1000457200 03750 JR DMW FILOD 03750
* 005114 3000504400 03760 J WIE FILOD 03760
* 005121 3000000000 03770 RIE J 0 FILOD 03770
* 005126 1000542700 03780 JR DMR FILOD 03780
* 005133 1000527500 03790 JR MIT FILOD 03790
005140 3402027400 03800 CC END,0 FILOD 03800
* 005145 3000512143 03810 JU RIE FILOD 03810
* 005152 3000517666 03820 JC $+20,54 4 FILOD 03820
005157 2001000017 03830 FT IM,15 FILOD 03830
* 005164 1000547200 03840 JR LB5 CK FOR MULTI OF 50 FILOD 03840
* 005171 3000512100 03850 J RIE IF NO +5 TO ENTRY FILOD 03850
005176 7402012736 03860 CT TP1,30 FILOD 03860
* 005203 3000512142 03870 JE RIE FILOD 03870
* 005210 1000717400 03880 JR I0X FILOD 03880
* 005215 3000512100 03890 J RIE FILOD 03890
* 005222 3000000000 03900 BIE J 0 FILOD 03900
* 005227 1000405300 03910 JR COUNT FILOD 03910
005234 2600741365 03920 CD2 BPP,5 FILOD 03920
* 005241 3000526042 03930 JE $+15 FILOD 03930
* 005246 1000717400 03940 JR I0X FILOD 03940
* 005253 3000522200 03950 J BIE FILOD 03950
005260 4402027477 03960 SC END,63 FILOD 03960
* 005265 3000522200 03970 J BIE FILOD 03970
* 005272 3000000000 03980 MIT J 0 FILOD 03980
005277 4602012317 03990 BT MK5,15 FILOD 03990
005304 4602012716 04000 BT TP1,14 FILOD 04000
005311 5602014314 04010 BA1 TP4,12 FILOD 04010
005316 5202013714 04020 SA1 TP3,12 FILOD 04020
005323 2602014304 04030 PD TP4,4 FILOD 04030
005330 4360000016 04040 ST 0,14,7 FILOD 04040
005335 5602030004 04050 BA1 B4,4 FILOD 04050
005342 7202012304 04060 AB1 MK5,4 FILOD 04060
005347 7202014744 04070 SB1 TP5,4 FILOD 04070
005354 5601000445 04080 BD1 IM+4,5 FILOD 04080
005361 2600741345 04090 CD1 BPP,5 FILOD 04090
* 005366 3000527243 04100 JU MIT FILOD 04100
005373 4402027477 04110 SC END,63 FILOD 04110
005400 2602014300 04120 PD TP4,0 FILOD 04120
005405 2002012703 04130 FT TP1,3 FILOD 04130
005412 5202014703 04140 SA1 TP5,3 FILOD 04140
* 005417 3000527200 04150 J MIT FILOD 04150
* 005424 3000000000 04160 DMR J 0 FILOD 04160
005431 4602012720 04170 BT TP1,16 FILOD 04170
005436 2000040022 04180 FT 256,18 FILOD 04180
005443 2401000021 04190 TFI IM,, FILOD 04190
* 005450 3000546266 04200 JC $+10,54 4 FILOD 04200
005455 2401540001 04210 TFR IM+2816,6,, FILOD 04210
* 005462 3000542400 04220 J DMR FILOD 04220
* 005467 3000000000 04230 LB5 J 0 FILOD 04230
005474 5602001145 04240 BD1 D50,5 FILOD 04240
005501 2760000445 04250 CD1 4,5,7 FILOD 04250
* 005506 3000546742 04260 JE LB5 FILOD 04260
* 005513 3000553241 04270 JG $+15 FILOD 04270
005520 6602001105 04280 AD1 D50,5 FILOD 04280
* 005525 3000550100 04290 J LB5+10 FILOD 04290
005532 6000547205 04300 AC LB5+3,5 5 FILOD 04300
* 005537 3000546700 04310 J LB5 FILOD 04310
* 005544 3000000000 04320 COMP J 0 FILOD 04320
005551 5740000445 04330 BD1 4,5,6 WAS FILOD 04330
005556 2602015445 04340 CD1 BLK,5 SHOULD FILOD 04340
* 005563 3000642743 04350 JU SEQR FILOD 04350
005570 4400602200 04360 SC RC2+4,0 0 FILOD 04360
005575 4600007711 04370 BT 077,9 IR1 SHOULD FILOD 04370
005602 4600007312 04380 BT 073,10 IR2 WAS FILOD 04380
005607 4600007713 04390 BT 077,11 IR3 START LOC. FILOD 04390
005614 4402027200 04400 SC G2,0 FILOD 04400
* 005621 1000574400 04410 JR COMPX FILOD 04410
* 005626 3000554466 04420 JC COMP,54 4 SMALL BLK FILOD 04420
005633 4600007711 04430 BT 077,9 FILOD 04430
005640 4402027277 04440 SC G2,63 FILOD 04440
* 005645 1000574400 04450 JR COMPX FILOD 04450
* 005652 1000547200 04460 JR LB5 FILOD 04460
* 005657 3000567100 04470 J $+10 FILOD 04470
* 005664 3000554400 04480 J COMP NOT MULTI. OF 50 FILOD 04480
005671 4400602212 04490 SC RC2+4,1010 FILOD 04490
005676 4402027200 04500 SC G2,0 FILOD 04500
005703 2002040011 04510 FT 020400,9,9 SHOULD FILOD 04510
005710 2001040012 04520 FT IM+256,1,10 WAS FILOD 04520
005715 2002000013 04530 FT 020000,1,11 START FILOD 04530
* 005722 1000574400 04540 JR COMPX FILOD 04540
005727 4400303200 04550 SC R4+4,0 FORCE READ FILOD 04550
* 005734 3000554400 04560 J COMP FILOD 04560
* 005741 3000000000 04570 COMPX J 0 FILOD 04570
* 005746 3000574164 04580 JC $-5,52 SS3 NO COMP. FILOD 04580
005753 4400601520 04590 SC LP+4,16 6 FILOD 04590
005760 5620001700 04600 R11 BA1 017,0,1 1 FILOD 04600
005765 7040001740 04610 CB1 017,0,2 2 WAS FILOD 04610
* 005772 3000603043 04620 JU S1 FILOD 04620
005777 2020002011 04630 FT 16,9,1 FILOD 04630
006004 2040002012 04640 FT 16,10,2 2 FILOD 04640
* 006011 3200576020 04650 LP JL R11,16 FILOD 04650
* 006016 3200575300 04660 RC2 JL R11-5,0 0 FILOD 04660
* 006023 3000574100 04670 J COMPX FILOD 04670
006030 4400607220 04680 S1 SC LP1+4,1616 FILOD 04680
006035 5620000001 04690 BA1 0,1,1 SHOULD FILOD 04690
006042 7040000041 04700 CB1 0,1,2 WAS FILOD 04700
* 006047 3000610043 04710 JU SS1 FILOD 04710
006054 6000004701 04720 AC 047,1 FILOD 04720
006061 6000005301 04730 AC 053,1 FILOD 04730
* 006066 3200603520 04740 LP1 JL S1+5,16 6 FILOD 04740
* 006073 3000601100 04750 J LP FILOD 04750
006100 5200627301 04760 SS1 SA1 CRS+3,1 1 FILOD 04760
* 006105 1002650700 04770 JR EDIT FILOD 04770
006112 5203146202 04780 SA1 CW-6,2 FILOD 04780
006117 5640000001 04790 BA1 0,1,2 FILOD 04790
006124 5200627201 04800 SA1 CRS+2,1 1 FILOD 04800
* 006131 1002650700 04810 JR EDIT FILOD 04810
006136 5203144502 04820 SA1 CCR+7,2 2 FILOD 04820
006143 5760000405 04830 BA1 4,5,7 FILOD 04830
006150 5203147505 04840 SA1 CCH,5 FILOD 04840
006155 4200037711 04850 ST 0377,9 FILOD 04850
006162 5600005703 04860 BA1 057,3 FILOD 04860
006167 7200037743 04870 SB1 0377,3 FILOD 04870
006174 6000037701 04880 AC 0377,1 FILOD 04880
* 006201 1000630500 04890 JR BTOD FILOD 04890
006206 3402027200 04900 CC G2,0 FILOD 04900
* 006213 3000622542 04910 JE $+10 FILOD 04910
006220 6602005304 04920 AD1 D2815,4 4 FILOD 04920
006225 5203143604 04930 SA1 CCR,4 FILOD 04930
006232 2003140040 04940 FT COP,32 FILOD 04940
* 006237 1002030432 04950 JR PRINT,2626 FILOD 04950
* 006244 3000625663 04960 JC $+10,51 1 SS �2 FILOD 04960
* 006251 3000605400 04970 J SS1-20 FILOD 04970
006256 4603143600 04980 BT CCR,0 CHAR. NUMBER IN FILOD 04980
* 006263 3000000560 04990 JD 05 00 01 02 03 FILOD 04990
* 006270 3000000060 05000 CRS JD 0 X BITS SHOULD FILOD 05000
* 006275 3000625100 05010 J $-20 Y BITS WAS FILOD 05010
* 006302 3000000000 05020 BTOD J 0 FILOD 05020
006307 2600003730 05030 PD0 037,8 FILOD 05030
006314 2600001730 05040 PD0 017,8 FILOD 05040
006321 2600006304 05050 PD 063,4 FILOD 05050
006326 4400003704 05060 SC 037,4 FILOD 05060
006333 4400642102 05070 SC LOP1+4,2,2 FILOD 05070
006340 4400640706 05080 SC LOP+4,6 6 FILOD 05080
006345 4400635601 05090 SC $+9,1 FILOD 05090
006352 1500037701 05100 LC 0377,1,4,4 FILOD 05100
* 006357 3000637143 05110 JU $+10 FILOD 05110
006364 6200001724 05120 AM2 017,4 FILOD 05120
006371 6600003724 05130 AD2 037,4 FILOD 05130
006376 1600635651 05140 BC1 $-16,1 FILOD 05140
* 006403 3200635206 05150 LOP JL $-25,6 FILOD 05150
006410 2117777714 05160 FT -1,12,4 4 FILOD 05160
* 006415 3200634002 05170 LOP1 JL $-45,2 FILOD 05170
* 006422 3000630200 05180 J BTOD FILOD 05180
006427 5200757205 05190 SEQR SA1 SQE,5 BLK FROM TAPE FILOD 05190
006434 5602015445 05200 BD1 BLK,5 FILOD 05200
006441 5200755105 05210 SA1 SQB,5 EXPECTED FILOD 05210
006446 2000750040 05220 FT SQ,32 FILOD 05220
* 006453 1002030432 05230 JR PRINT,2626 FILOD 05230
* 006460 1002661032 05240 JR SPACE,2626 FILOD 05240
* 006465 3000647763 05250 JC $+10,51 1 FILOD 05250
* 006472 3000650400 05260 J $+10 FILOD 05260
* 006477 3000000460 05270 JD 04 SEQ ERROR FILOD 05270
* 006504 3000653066 05280 JC $+20,54 4 FILOD 05280
006511 4600007317 05290 BT 073,15 FILOD 05290
* 006516 1000547200 05300 JR LB5 FILOD 05300
006523 4400303200 05310 SC R4+4,0 FILOD 05310
006530 5602015445 05320 BD1 BLK,5 FILOD 05320
006535 2740000445 05330 CD1 4,5,6 FILOD 05330
* 006542 3000657341 05340 JG SEQR1 FILOD 05340
* 006547 3000554442 05350 JE COMP FILOD 05350
* 006554 1000377600 05360 JR IPC FILOD 05360
* 006561 1000405300 05370 JR COUNT FILOD 05370
* 006566 3000653000 05380 J $-30 FILOD 05380
* 006573 3000010060 05390 SEQR1 JD 0100 FILOD 05390
* 006600 3000670700 05400 J I2A+15 FILOD 05400
* 006605 3000663140 05410 CL1A JC $+20,04040 FILOD 05410
006612 5600050303 05420 BA1 0503,3 FILOD 05420
006617 5200662703 05430 SA1 $+8,3 FILOD 05430
* 006624 3000000020 05440 JC 0,020 FILOD 05440
006631 2601000425 05450 PD0 IM+4,5 FILOD 05450
006636 2600003725 05460 PD0 037,5 FILOD 05460
* 006643 3000050000 05470 J 0500 FILOD 05470
* 006650 3000000036 05480 JC 0,30 FILOD 05480
006657 006605 05490 +3 CL1A FILOD 05490
* 006660 3000000035 05500 JC 0,29 FILOD 05500
006667 006670 05510 CL2 +3 I2A FILOD 05510
* 006670 3000670754 05520 I2A JC $+15,44 4 FILOD 05520
* 006675 3002222260 05530 JD 022222 FILOD 05530
* 006702 3000051050 05540 JC 0510,40 0 FILOD 05540
* 006707 3000671416 05550 JC $+5,14 FILOD 05550
* 006714 3200671477 05560 JL $,63 FILOD 05560
006721 4400672077 05570 SC $-1,63 FILOD 05570
* 006726 3200671477 05580 JL $-10,63 3 FILOD 05580
006733 4400673277 05590 SC $-1,63 FILOD 05590
006740 4000407777 05600 XF 040,0777777,0,0 FILOD 05600
006745 2000777737 05610 FT 07777,3131 FILOD 05610
* 006752 1000721300 05620 JR RES FILOD 05620
* 006757 3000676431 05630 JC $+5,25 FILOD 05630
* 006764 3000140035 05640 JC STR,29 FILOD 05640
* 006771 3000677131 05650 JC $,25 FILOD 05650
007000 007001 05660 CH0 +3 CH01 FILOD 05660
007001 4000007777 05670 CH01 XF 0,07777,7,0,0 FILOD 05670
* 007006 3000702053 05680 JC $+10,43 3 FILOD 05680
* 007013 3000040000 05690 JC 0400 FILOD 05690
007020 4000004000 05700 XF 0,04000,0,0,0 FILOD 05700
* 007025 3000703753 05710 JC $+10,43 3 FILOD 05710
* 007032 3007000060 05720 JD 070000 FILOD 05720
007037 4000407777 05730 XF 040,0777777,0,0 FILOD 05730
007044 3400020702 05740 CC 0207,2 FILOD 05740
* 007051 3000707043 05750 JU $+15 FILOD 05750
007056 4000620400 05760 XF 062,040000,0,0 FILOD 05760
* 007063 3000700100 05770 J CH01 FILOD 05770
007070 4000640000 05780 XF 064,0,0,0,0 FILOD 05780
* 007075 3000700100 05790 J CH01 FILOD 05790
* 007102 3000000000 05800 REW J 0 FILOD 05800
* 007107 3000711422 05810 JC $+5,18 FILOD 05810
007114 4160040000 05820 REW1 XF 04,0,0,C,CH REWIND ORDER FILOD 05820
* 007121 3000712165 05830 JC $,53 FILOD 05830
* 007126 3000710200 05840 J REW FILOD 05840
* 007133 3000000000 05850 BSP J 0 FILOD 05850
007140 4160011000 05860 BSP1 XF 01,0100000,0,CH BACK SPACE FILOD 05860
* 007145 3000713300 05870 J BSP FILOD 05870
* 007152 3000000000 05880 ERS J 0 FILOD 05880
007157 4160020400 05890 ERS1 XF 02,0400,0,0,CH ERASE FILOD 05890
* 007164 3000715200 05900 J ERS FILOD 05900
* 007171 3000000000 05910 I0X J 0 FILOD 05910
007176 4160000001 05920 I0 XF 0,01,0,C,CH IO ORDER READ FILOD 05920
* 007203 3000717100 05930 J I0X WRITE OR BACK SPACE FILOD 05930
* 007210 3000000000 05940 RES J 0 FILOD 05940
007215 5600017702 05950 BA1 0177,2 FILOD 05950
007222 5200723302 05960 SA1 $+9,2 RESET ORDER FILOD 05960
007227 4160400000 05970 RES1 XF 040,0,0,0,CH FILOD 05970
* 007234 3000721000 05980 J RES FILOD 05980
* 007241 3000000000 05990 TEST J 0 FILOD 05990
007246 5600017702 06000 BA1 0177,2 FILOD 06000
007253 5200726402 06010 SA1 $+9,2 TEST ORDER FILOD 06010
007260 4160000000 06020 TEST1 XF 0,0,0,CHCH FILOD 06020
* 007265 3000724100 06030 J TEST FILOD 06030
* 007272 3000000000 06040 TESC J 0 FILOD 06040
007277 4400004077 06050 SC 040,63 FILOD 06050
007304 4400004177 06060 SC 041,63 FILOD 06060
007311 3600017702 06070 CS 0177,2 FILOD 06070
007316 5600004102 06080 BA1 041,2 FILOD 06080
007323 1600001766 06090 BC2 017,6 FILOD 06090
007330 5200734102 06100 SA1 $+9,2 FILOD 06100
007335 4160000000 06110 TESC1 XF 0,0,0,CHCH FILOD 06110
* 007342 3000727200 06120 J TESC FILOD 06120
007400 06130 ORIG $,64 FILOD 06130
007400 06140 PCOM EQU $ FILOD 06140
007413 TEST 1 06150 BPP +12 _TEST 1 1 _ FILOD 06150
007432 BLKS. REREADS 06160 RERD +15 _ BLKS. . REREADS _ FILOD 06160 S
007452 REWRITES 06170 RWIT +16 _ REWEWRITES _ FILOD 06170
007467 TOTAL BLKS. 06180 +13 _ TOTAL L BLKS. _ FILOD 06180 _
007477 06190 TOTAL +8 _ _ FILOD 06190
007405 06200 TSX EQU PCOM+5 FILOD 06200
007500 06210 SQ EQU $ FILOD 06210
007517 TEST 1 SEQUENCE 06220 +16 _TEST 1 1 SEQUENCE _ FILOD 06220 C
007536 ERROR EXPECTED 06230 +15 _ERROR E EXPECTED _ FILOD 06230 D
007551 BLOCK 06240 SQB +11 _BLOCK _ FILOD 06240
007565 READ BLOCK 06250 +12 _ READ B BLOCK _ FILOD 06250
007572 06260 SQE +5 _ _ _ FILOD 06260
007577 06270 +5 _ _ FILOD 06270
010000 06280 IM EQU 010000 FILOD 06280
016100 06290 IM1 EQU 016100 FILOD 06290
016500 06300 IM2 EQU 016500 FILOD 06300
017100 06310 IM3 EQU 017100 FILOD 06310
016100 06320 COMP1 EQU IM1 FILOD 06320
020000 06330 ORIG 020000 FILOD 06330
020004 00001 06340 D1 +5 _00001_ _ FILOD 06340
020011 00050 06350 D50 +5 _00050_ _ FILOD 06350
020016 00200 06360 D20 +5 _00200_ _ FILOD 06360
020023 00500 06370 +5 _00500_ _ FILOD 06370
020030 01000 06380 +5 _01000_ _ FILOD 06380
020035 05000 06390 +5 _05000_ _ FILOD 06390
020042 10000 06400 +5 _10000_ _ FILOD 06400
020047 20000 06410 +5 _20000_ _ FILOD 06410
020053 2816 06420 D2815 +4 _2816_ FILOD 06420
020054 24 06430 PAD AREA 20,B,0 FILOD 06430
020100 50 06440 AREA 40,B,0 FILOD 06440
020103 4 06450 MK1 - 4 FILOD 06450
020107 4 06460 MK2 - 4 FILOD 06460
020113 4 06470 MK3 - 4 FILOD 06470
020117 4 06480 MK4 - 4 FILOD 06480
020123 4 06490 MK5 - 4 FILOD 06490
020127 4 06500 TP1 - 4 FILOD 06500
020133 4 06510 TP2 - 4 FILOD 06510
020137 4 06520 TP3 - 4 FILOD 06520
020143 4 06530 TP4 - 4 FILOD 06530
020147 4 06540 TP5 - 4 FILOD 06540
020154 00000 06550 BLK +5 _00000_ _ FILOD 06550
020157 000000 06560 SEL +3 0 FILOD 06560
020163 00000000 06570 PAC +4 0 FILOD 06570
020164 110 06580 AREA 72,B,0 FILOD 06580
020164 1 06590 SI - 1 FILOD 06590
020224 06600 STAR - 32 FILOD 06600
020264 06610 STAR1 - 32 FILOD 06610
020270 4 06620 MSK - 4 FILOD 06620
020271 1 06630 CNT - 1 FILOD 06630
020272 1 06640 G2 - 1 FILOD 06640
020274 00 06650 END +1 0 FILOD 06650
020300 00000004 06660 B4 +4 00000000004 FILOD 06660
* 020301 3000000033 06670 PRINT JC 0,27 FILOD 06670
* 020306 3002030162 06680 JC $-5,50 SS1 NO PRINT FILOD 06680
020313 4600020314 06690 BT 0203,12 2 FILOD 06690
020320 4600740532 06700 BT TSX,26 FILOD 06700
020325 4300000532 06710 ST 5,26,4 FILOD 06710
020332 4400020702 06720 SC 0207,2 FILOD 06720
020337 4000620400 06730 XF 062,040000,0,0 FILOD 06730
* 020344 3002030100 06740 J PRINT FILOD 06740
000007 06750 CH EQU 7 FILOD 06750
026100 06760 ORIG 026100 FILOD 06760
* 026100 3000000000 06770 DATA J 0 FILOD 06770
026105 2601000001 06780 PD IM,1 CLEAR AREA IN CASE FILOD 06780
026112 2000000022 06790 FT 0,18 FILOD 06790
026117 2001000120 06800 FT IM+1,16 6 OF MPE FROM TPE FILOD 06800
026124 2401000021 06810 TFI IM,, FILOD 06810
026131 2401000001 06820 TFR IM,, FILOD 06820
026136 2600006300 06830 PD 063,0 FILOD 06830
026143 4402627407 06840 SC DA3+4,7 7 7 TIMES FILOD 06840
026150 5662647221 06850 D11 BA2 DTX2,1,3,3 = OF CHAR. IN PAT. FILOD 06850
026155 5202623621 06860 SA2 DA2+4,1 1 FILOD 06860
026162 5642647521 06870 D2 BA2 DTX1,1,2,2 � OF TIMES EACH CHAR FILOD 06870
026167 5202622421 06880 SA2 DA1+4,1 1 FILOD 06880
026174 5622643401 06890 BA1 DTX,1,1 1 INFO. FILOD 06890
026201 5202621201 06900 SA1 $+9,1 FILOD 06900
026206 4501040000 06910 SC IM+256,0,0,4 DEST. FILOD 06910
026213 6000006301 06920 AC 063,1 +1 IR4 FILOD 06920
* 026220 3202620607 06930 DA1 JL $-10,7 FILOD 06930
026225 6000004701 06940 AC 047,1 +1 TO IR 1 FILOD 06940
* 026232 3202616213 06950 DA2 JL D2,11 FILOD 06950
026237 3402627401 06960 CC DA3+4,1 1 FILOD 06960
* 026244 3002627042 06970 JE DA3 FILOD 06970
026251 6000005301 06980 AC 053,1 +1 TO IR 2 FILOD 06980
026256 5662647221 06990 BA2 DTX2,1,3,3 FILOD 06990
026263 7200004761 07000 SB2 047,1 FILOD 07000
* 026270 3202615007 07010 DA3 JL D11,7 FILOD 07010
026275 6000005701 07020 AC 057,1 NEXT NO. OF CHAR. FILOD 07020
026302 2600005304 07030 PD 053,4 FILOD 07030
026307 3400005703 07040 CC 057,3 FILOD 07040
* 026314 3002614343 07050 JU D11-5 FILOD 07050
026321 2001211020 07060 FT IM+1096,6,16 DEST. FILOD 07060
026326 2000151022 07070 FT 840,18 CH. COUNT FILOD 07070
026333 4402635102 07080 SC $+14,2 FILOD 07080
026340 2401040021 07090 TFI IM+256,,,, FILOD 07090
* 026345 3202634002 07100 JL $-5,2 FILOD 07100
026352 2000005022 07110 FT 40,18 FILOD 07110
026357 2401040001 07120 TFR IM+256,,,, FILOD 07120
026364 2000151022 07130 FT 840,18 FILOD 07130
026371 2002040020 07140 FT 020400,1,16 FILOD 07140
026376 4402641403 07150 SC $+14,3 FILOD 07150
026403 2401040021 07160 TFI IM+256,,,, FILOD 07160
* 026410 3202640303 07170 JL $-5,3 FILOD 07170
026415 2000005022 07180 FT 40,18 FILOD 07180
026422 2401040001 07190 TFR IM+256,,,, FILOD 07190
* 026427 3002610000 07200 J DATA FILOD 07200
026434 07210 DTX EQU $ FILOD 07210
026443 7737170703010307 07220 +8 0773717070703010307 FILOD 07220 3
026446 173777 07230 +3 0173777 7 FILOD 07230
026456 7776747060406070 07240 +8 0777674747060406070 FILOD 07240 0
026461 747677 07250 +3 0747677 7 FILOD 07250
026471 7736140410143677 07260 +8 0773614040410143677 FILOD 07260 6
026472 07270 DTX2 EQU $ FILOD 07270
026474 131310 07280 +3 0131310 0 FILOD 07280
026475 07290 DTX1 EQU $ FILOD 07290
026503 07060504030201 07300 +7 00706050504030201 FILOD 07300 1
* 026504 3000000000 07310 EDIT J 0 FILOD 07310
026511 2600001601 07320 PD 016,1 FILOD 07320
026516 1600001723 07330 BS2 017,3 FILOD 07330
026523 1600001753 07340 BC1 017,3 FILOD 07340
026530 2000030307 07350 FT 0303,7 FILOD 07350
026535 7200001722 07360 AB2 017,2 FILOD 07360
* 026542 3002650400 07370 J EDIT FILOD 07370
* 026547 3000000000 07380 STOP4 J 0 FILOD 07380
026554 5602743002 07390 BA1 STOP+8,2,2 FILOD 07390
026561 5202657602 07400 SA1 $+13,2 FILOD 07400
* 026566 3000000660 07410 JD 06 STOP ON ERROR INT. FILOD 07410
* 026573 3000000060 07420 JD 0 BECAUSE SS2 IS SET FILOD 07420
* 026600 3002654700 07430 J STOP4 FILOD 07430
* 026605 3000000033 07440 SPACE JC 0,27 FILOD 07440
* 026612 3002660562 07450 JC $-5,50 FILOD 07450
026617 4400020704 07460 SC 0207,4 FILOD 07460
026624 4000640000 07470 XF 064,0,0,0,0 FILOD 07470
* 026631 3002660500 07480 J SPACE FILOD 07480
026636 5602750706 07490 ER BA1 WRIT,6 FILOD 07490
026643 3400474700 07500 CC IE2+9,0 0 FILOD 07500
* 026650 3002670142 07510 JE $+25 FILOD 07510
026655 5602753706 07520 BA1 RED,6 FILOD 07520
026662 3400475400 07530 CC IE2+14,0,0 FILOD 07530
* 026667 3002670142 07540 JE $+10 FILOD 07540
026674 5602756106 07550 BA1 BKZ,6 FILOD 07550
026701 5203162606 07560 SA1 TYP,6 FILOD 07560
026706 2002750715 07570 FT WRIT,13 3 FILOD 07570
026713 2602743002 07580 PD STOP+8,2,2 FILOD 07580
026720 2000000137 07590 FT 1,31 FILOD 07590
026725 4402676214 07600 SC RH1+4,1212 FILOD 07600
* 026732 1000724400 07610 XXX JR TEST FILOD 07610
* 026737 1002732753 07620 JR PIE,43 FILOD 07620
026744 1600017721 07630 BS2 0177,1 FILOD 07630
026751 6000006706 07640 AC 067,6 FILOD 07640
* 026756 3202673214 07650 RH1 JL XXX,12 FILOD 07650
* 026763 1002661000 07660 JR SPACE FILOD 07660
026770 2000100037 07670 FT 01000,3131 FILOD 07670
* 026775 1000724400 07680 JR TEST FILOD 07680
* 027002 3002742053 07690 JC STOP,43 3 FILOD 07690
027007 2000000237 07700 FT 2,31 FILOD 07700
* 027014 1000724400 07710 JR TEST FILOD 07710
* 027021 3002730053 07720 JC CEOT,43 3 FILOD 07720
* 027026 1002655263 07730 JR STOP4,5151 FILOD 07730
027033 2000077537 07740 FT 0775,31 1 FILOD 07740
* 027040 1000724400 07750 JR TEST FILOD 07750
* 027045 3002706453 07760 JC $+15,43 3 FILOD 07760
027052 2000600037 07770 FT 06000,3131 FILOD 07770
* 027057 3002723000 07780 J RDER+10 0 FILOD 07780
027064 3402027103 07790 CC CNT,3 FILOD 07790
* 027071 3002743742 07800 JE STOP3 FILOD 07800
027076 2000777737 07810 FT 07777,3131 FILOD 07810
* 027103 1000721300 07820 JR RES FILOD 07820
027110 6002027101 07830 AC CNT,1 FILOD 07830
* 027115 1000713600 07840 JR BSP FILOD 07840
027122 2000200037 07850 FT 02000,3131 FILOD 07850
027127 1400720001 07860 LC I0+2,1 READ FILOD 07860
* 027134 3002721642 07870 JE RDER FILOD 07870
027141 5602000463 07880 BD2 D1,3 FILOD 07880
027146 6200745223 07890 AM2 RWIT,3 FILOD 07890
* 027153 1000721300 07900 JR RES FILOD 07900
* 027160 1000715500 07910 JR ERS FILOD 07910
* 027165 1000727500 07920 JR TESC FILOD 07920
* 027172 3002663653 07930 JC ER,43 FILOD 07930
* 027177 1000724400 07940 JR TEST FILOD 07940
* 027204 3002715353 07950 JC $-25,43 3 FILOD 07950
* 027211 3002723000 07960 J $+15 FILOD 07960
027216 5602000463 07970 RDER BD2 D1,3 FILOD 07970
027223 6200743523 07980 AM2 RERD+3,3,3 FILOD 07980
* 027230 1000721300 07990 JR RES FILOD 07990
* 027235 1000717400 08000 JR I0X FILOD 08000
* 027242 1000727500 08010 JR TESC FILOD 08010
* 027247 1002664153 08020 JR ER,43 FILOD 08020
* 027254 1000724400 08030 JR TEST FILOD 08030
* 027261 3002723053 08040 JC $-25,43 3 FILOD 08040
027266 4400474202 08050 SC IE2+4,2 2 FILOD 08050
* 027273 3000477400 08060 J EXIT FILOD 08060
027300 5601000405 08070 CEOT BA1 IM+4,5 FILOD 08070
027305 5200741305 08080 SA1 BPP,5 FILOD 08080
* 027312 1000721300 08090 JR RES FILOD 08090
* 027317 3000474300 08100 J IE2+5 FILOD 08100
* 027324 3000000000 08110 PIE J 0 FILOD 08110
027331 7202743002 08120 AB1 STOP+8,2,2 FILOD 08120
027336 5720000026 08130 BA2 0,6,5 FILOD 08130
027343 5203164226 08140 SA2 ERIN,6 FILOD 08140
027350 4400661100 08150 SC CL1A+4,0,0 FILOD 08150
027355 5601000425 08160 BA2 IM+4,5 FILOD 08160
027362 4400661140 08170 SC CL1A+4,0,040 FILOD 08170
027367 5203166225 08180 SA2 EPPB,5 FILOD 08180
027374 2003160040 08190 FT EPP,32 FILOD 08190
* 027401 1002030400 08200 JR PRINT FILOD 08200
* 027406 3002732400 08210 J PIE FILOD 08210
* 027413 3002732400 08220 J PIE FILOD 08220
* 027420 3007070760 08230 STOP JD 070707 FILOD 08230
* 027425 3000000060 08240 JD 0 FILOD 08240
* 027432 3000670700 08250 J I2A+15 FILOD 08250
* 027437 3002746361 08260 STOP3 JC $+20,49 9 FILOD 08260
* 027444 3007333360 082601 JD 073333 FILOD 082601
* 027451 3002746361 082602 JC $+10,49 9 FILOD 082602
* 027456 3002742500 08270 J STOP+5 FILOD 08270
027463 2000055437 082701 FT 0554,31 1 T. TO HAVE PROGRAM LEAVE BAD FILOD 082701
* 027470 1000721300 082702 JR RES BLOCK ON WRITE AND TO COMP. ON READ SET FILOD 082702O
* 027475 3000471700 082703 J IE2-15 CLASS 1 TO IGNORE 082703S
027507 WRITE 08280 WRIT +6 _WRITE _ _ FILOD 08280
027515 E.O.T. 08290 +6 _E.O.T._._ FILOD 08290
027523 GREAT. 08300 +6 _GREAT._._ FILOD 08300
027531 LESS 08310 +6 _ LESS _ _ FILOD 08310
027537 READ 08320 RED +6 _ READ _ _ FILOD 08320
027545 T.P.E. 08330 +6 _T.P.E._._ FILOD 08330
027553 M.P.E. 08340 +6 _M.P.E._._ FILOD 08340
027561 BK.SP. 08350 BKZ +6 _BK.SP._._ FILOD 08350
027567 P.E.Z. 08360 +6 _P.E.Z._._ FILOD 08360
027575 N.RDY. 08370 +6 _N.RDY._._ FILOD 08370
027603 BUSY 08380 +6 _ BUSY _ _ FILOD 08380
027611 M.O.A. 08390 +6 _M.O.A._._ FILOD 08390
027700 08400 ORIG $,64 FILOD 08400
027700 08410 PAT1 EQU $ FILOD 08410
027707 0102030405060710 08420 +8 0010203030405060710 FILOD 08420 7
027717 1112131415161720 08430 +8 0111213131415161720 FILOD 08430 7
027727 2122232425262730 08440 +8 0212223232425262730 FILOD 08440 7
027737 3132333435363740 08450 +8 0313233333435363740 FILOD 08450 7
027747 4142434445464750 08460 +8 0414243434445464750 FILOD 08460 7
027757 5152535455565760 08470 +8 0515253535455565760 FILOD 08470 7
027767 6162636465666770 08480 +8 0616263636465666770 FILOD 08480 7
027777 7172737475767777 08490 +8 0717273737475767777 FILOD 08490 7
030007 7777767574737271 08500 +8 0777776767574737271 FILOD 08500 2
030017 7067666564636261 08510 +8 0706766666564636261 FILOD 08510 2
030027 6057565554535251 08520 +8 0605756565554535251 FILOD 08520 2
030037 5047464544434241 08530 +8 0504746464544434241 FILOD 08530 2
030047 4037363534333231 08540 +8 0403736363534333231 FILOD 08540 2
030057 3027272524232231 08550 +8 0302727272524232231 FILOD 08550 2
030067 2017161514131211 08560 +8 0201716161514131211 FILOD 08560 2
030077 1007060504030201 08570 +8 0100706060504030201 FILOD 08570 2
030100 100 08580 AREA 64,B,63 3 FILOD 08580
030200 100 08590 AREA 64,B,30 0 FILOD 08590
030300 08600 ORIG $,64 FILOD 08600
030300 08610 PAT2 EQU $ FILOD 08610
030317 PBPBPBPBPBPBPBPB 08620 +16 _PBPBPBPBPBPBPBPBPB_ 25-52 FILOD 08620 B
030337 PBPBPBPBPBPBPBPB 08630 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08630 B
030357 PBPBPBPBPBPBPBPB 08640 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08640 B
030377 PBPBPBPBPBPBPBPB 08650 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08650 B
030417 PBPBPBPBPBPBPBPB 08660 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08660 B
030437 PBPBPBPBPBPBPBPB 08670 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08670 B
030457 PBPBPBPBPBPBPBPB 08680 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08680 B
030477 PBPBPBPBPBPBPBPB 08690 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08690 B
030517 V4V4V4V4V4V4V4V4 08700 +16 _V4V4V4V4V4V4V4V4V4_ 70-07 FILOD 08700 4
030537 V4V4V4V4V4V4V4V4 08710 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08710 4
030557 V4V4V4V4V4V4V4V4 08720 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08720 4
030577 V4V4V4V4V4V4V4V4 08730 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08730 4
030617 V4V4V4V4V4V4V4V4 08740 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08740 4
030637 V4V4V4V4V4V4V4V4 08750 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08750 4
030657 V4V4V4V4V4V4V4V4 08760 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08760 4
030677 V4V4V4V4V4V4V4V4 08770 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08770 4
030700 08780 ORIG $,64 FILOD 08780
030700 08790 PAT3 EQU $ FILOD 08790
030707 1623337336225020 08800 +8 0162333737336225020 FILOD 08800 0
030717 1114100710526671 08810 +8 0111410000710526671 FILOD 08810 6
030727 6733506675721015 08820 +8 0673350606675721015 FILOD 08820 0
030737 1042213150146235 08830 +8 0104221313150146235 FILOD 08830 2
030747 1146222037723151 08840 +8 0114622222037723151 FILOD 08840 1
030757 7720310270012714 08850 +8 0772031010270012714 FILOD 08850 7
030767 3545553343731601 08860 +8 0354555353343731601 FILOD 08860 6
030777 6410512041204102 08870 +8 0641051212041204102 FILOD 08870 1
031007 1107062577241505 08880 +8 0110706262577241505 FILOD 08880 5
031017 1004134012203103 08890 +8 0100413434012203103 FILOD 08890 1
031027 7261436042534716 08900 +8 0726143636042534716 FILOD 08900 7
031037 2212260331211427 08910 +8 0221226060331211427 FILOD 08910 4
031047 1071174762213504 08920 +8 0107117474762213504 FILOD 08920 5
031057 0612253236155217 08930 +8 0061225353236155217 FILOD 08930 2
031067 2436123526076621 08940 +8 0243612323526076621 FILOD 08940 6
031077 6646141273312130 08950 +8 0664614141273312130 FILOD 08950 1
031107 6345711013216536 08960 +8 0634571111013216536 FILOD 08960 5
031117 6246500704111305 08970 +8 0624650000704111305 FILOD 08970 3
031127 1005570701645136 08980 +8 0100557070701645136 FILOD 08980 1
031137 1217022223161501 08990 +8 0121702222223161501 FILOD 08990 5
031140 240 09000 AREA 160,B,1 1 FILOD 09000
031400 09010 ORIG $,64 FILOD 09010
031400 09020 COP EQU $ FILOD 09020
031416 TEST 1 COMPARE 09030 +15 _TEST 1 1 COMPARE _ FILOD 09030 E
031436 ERROR CHAR. 09040 CCR +16 _ERROR C CHAR. _ FILOD 09040
031456 WAS SHOULD B 09050 +16 _ WAS SHOULD B_ FILOD 09050 D
031470 E BLK. 09060 CW +10 _E BLBLK. _ FILOD 09060
031475 09070 CCH +5 _ _ _ FILOD 09070
031477 09080 +2 _ _ FILOD 09080
031500 09090 BSPX EQU $ FILOD 09090
031517 TEST 1 BACKSPACE 09100 +16 _TEST 1 1 BACKSPACE_ FILOD 09100 A
031537 ERROR EXPECTED 09110 +16 _ ERROR R EXPECTED _ FILOD 09110 E
031557 BLOCK 00001 READ 09120 +16 _BLOCK 0 00001 READ_ FILOD 09120 E
031572 BLOCK 09130 BSPA +11 _BLOCK _ FILOD 09130
031577 09140 +5 _ _ FILOD 09140
031600 09150 EPP EQU $ FILOD 09150
031617 TEST 1 INTERRUPT 09160 +16 _TEST 1 1 INTERRUPT_ FILOD 09160 U
031626 XXXXXX 09170 TYP +7 _ XXXXXXXX_ FILOD 09170
031642 WITH XXXXXX 09180 ERIN +12 _ WITH X XXXXXX_ FILOD 09180
031655 SET BLOCK 09190 +11 _ SET BLBLOCK _ FILOD 09190
031662 XXXXX 09200 EPPB +5 _XXXXX_ _ FILOD 09200
031677 09210 +13 _ _ FILOD 09210
031700 09220 COMP2 EQU EPPB+14 4 FILOD 09220
3000140000 09230 END STR FILOD 09230
{-- tape mark --}