JC $+10,53 SEQRAW 5600452504 00420 BA1 LOERA,4 BA1 LOERA,4 SEQRAW 2600001701 00430 PD 017,1 PD 017,1 SEQRAW 6400001640 00440 LS 016,32 LS 016,32 SEQRAW 3000171165 00450 JC $+10,53 JC $+10,53 SEQRAW 5400001637 00460 LP 016,31 LP 016,31 SEQRAW 5200034704 00470 SA1 0347,4 SA1 0347,4 SEQRAW 5240524704 00480 REP SA1 AREA+167,4,2 EP SA1 AREA+167,4,2 SEQRAW 7600452012 00490 AT ADV,X2 AT ADV,X2 SEQRAW 7600434527 00500 AT ONE,23 AT ONE,23 SEQRAW 7400435127 00510 CT SEC,23 CT SEC,23 SEQRAW 3000176142 00520 JE $+15 JE $+15 SEQRAW 6000001701 00530 AC 017,1 AC 017,1 SEQRAW 3000171600 00540 J REP J REP SEQRAW 2600013704 00550 PD T23,4 PD T23,4 SEQRAW 2600005304 00560 PD X2,4 PD X2,4 SEQRAW 4140660000 00570 WRIT XF 066,0,0,6 RIT XF 066,0,0,6 SEQRAW 5400177573 00580 LP $-3,073 LP $-3,073 SEQRAW 2600452101 00590 PD FOUR,1 PD FOUR,1 RESET ERROR COUNT SEQRAW 7400453171 00600 CT UPERA,57 CT UPERA,57 SEQRAW 3000220742 00610 JE ENDWA JE ENDWA LAST TRACK A SEQRAW 7400454171 00620 CT UPERB,57 CT UPERB,57 SEQRAW 3000222142 00630 JE ENDWB JE ENDWB LAST TRACK B SEQRAW 6000001701 00631 AC 017,1 AC 017,1 SEQRAW 3000211365 00640 JC SWHDB,53 JC SWHDB,53 SEQRAW 3400001640 00650 SWHDA CC 016,32 WHDA CC 016,32 SWITCH HEADS DRUM A SEQRAW 3000171143 00660 JU REP-5 JU REP-5 SEQRAW 6000001501 00670 AC 015,1 AC 015,1 SEQRAW 4400001600 00680 SC 016,0 SC 016,0 SEQRAW 6400177504 00690 LS WRIT+2,4 LS WRIT+2,4 SEQRAW 1000215463 00700 JR RAISE,51 JR RAISE,51 SEQRAW 3000171100 00710 J REP-5 J REP-5 SEQRAW 3400001600 00720 SWHDB CC 016,0 WHDB CC 016,0 SWITCH HEADS DRUM B SEQRAW 3000171143 00730 JU REP-5 JU REP-5 SEQRAW 4400001640 00740 SC 016,32 SC 016,32 SEQRAW 1000215463 00750 JR RAISE,51 JR RAISE,51 SEQRAW 6400177504 00760 LS WRIT+2,4 LS WRIT+2,4 SEQRAW 3000171100 00770 J REP-5 J REP-5 SEQRAW 3000000000 00780 RAISE J 0 AISE J 0 STOP EVERY 8TH TRACK TO SEQRAW 1400001507 00790 LC 015,7 LC 015,7 MANUALY RAISE HEADS SEQRAW 3000215143 00800 JU RAISE JU RAISE SEQRAW 5600447420 00810 BA2 RASH BA2 RASH SEQRAW 1000365200 00820 JR PRT JR PRT SEQRAW 3000215120 00830 JHJ RAISE JHJ RAISE SEQRAW 5600437420 00840 ENDWA BA2 EWA NDWA BA2 EWA SEQRAW 3000222600 00850 J $+10 J $+10 SEQRAW 5600441420 00860 ENDWB BA2 EWB NDWB BA2 EWB SEQRAW 1000365200 00870 JR PRT JR PRT SEQRAW 5600453504 00880 RGEN BA1 LOERB,4 GEN BA1 LOERB,4 GENERATE ADDRESSES FOR READ SEQRAW 3000225265 00890 JC $+10,53 JC $+10,53 SEQRAW 5600452504 00900 BA1 LOERA,4 BA1 LOERA,4 SEQRAW 2600001701 00910 PD 017,1 PD 017,1 SEQRAW 6400001640 00920 LS 016,32 LS 016,32 SEQRAW 3000227665 00930 JC $+10,53 JC $+10,53 SEQRAW 5400001637 00940 LP 016,31 LP 016,31 SEQRAW 5200034704 00950 SA1 0347,4 SA1 0347,4 SEQRAW 4140650000 00960 READ XF 065,0,0,6 EAD XF 065,0,0,6 SEQRAW 5400230573 00970 LP $-3,073 LP $-3,073 SEQRAW 2600452101 00980 PD FOUR,1 PD FOUR,1 RESET ERROR COUNT SEQRAW 7060524744 00990 COMP CB1 AREA+167,4,3 OMP CB1 AREA+167,4,3 COMP LAST 4 DATA CHARACTERS SEQRAW 1000374643 01000 JR CMPER,35 JR CMPER,35 OF EACH SECTOR TO GEN ADDRESS SEQRAW 7600452013 01010 AT ADV,X3 AT ADV,X3 SEQRAW 7600434527 01020 AT ONE,23 AT ONE,23 SEQRAW 7400435127 01030 CT SEC,23 CT SEC,23 SEQRAW 3000237242 01040 JE $+15 JE $+15 SEQRAW 6000001701 01050 AC 017,1 AC 017,1 SEQRAW 3000232200 01060 J COMP J COMP SEQRAW 2600013704 01070 PD T23,4 PD T23,4 SEQRAW 2600005704 01080 PD X3,4 PD X3,4 SEQRAW 4400370436 01090 SC SP+4,30 SC SP+4,30 SEQRAW 2600003700 01100 PD 31,16 PD 31,16 SEQRAW 1000365267 01110 JR PRT,55 JR PRT,55 SEQRAW 3000243027 01120 JC $+5,23 JC $+5,23 SEQRAW 7400453171 01130 CT UPERA,57 CT UPERA,57 SEQRAW 3000255542 01140 JE ENDRA JE ENDRA LAST TRACK DRUM A SEQRAW 7400454171 01150 CT UPERB,57 CT UPERB,57 SEQRAW 3000256742 01160 JE ENDRB JE ENDRB LAST TRACK DRUM B SEQRAW 6000001701 01161 AC 017,1 AC 017,1 SEQRAW 3000252465 01170 JC SRHDB,53 JC SRHDB,53 SEQRAW 3400001640 01180 SRHDA CC 016,32 RHDA CC 016,32 SWITCH HEADS DRUM A SEQRAW 3000227643 01190 JU READ-5 JU READ-5 SEQRAW 6000001501 01200 AC 015,1 AC 015,1 SEQRAW 4400001600 01210 SC 016,0 SC 016,0 SEQRAW 6400230504 01220 LS READ+2,4 LS READ+2,4 SEQRAW 3000227600 01230 J READ-5 J READ-5 SEQRAW 3400001600 01240 SRHDB CC 016,0 RHDB CC 016,0 SWITCH HEADS DRUM B SEQRAW 3000227643 01250 JU READ-5 JU READ-5 SEQRAW 4400001640 01260 SC 016,32 SC 016,32 SEQRAW 6400230504 01270 LS READ+2,4 LS READ+2,4 SEQRAW 3000227600 01280 J READ-5 J READ-5 SEQRAW 5600443420 01290 ENDRA BA2 ERA NDRA BA2 ERA SEQRAW 3000257400 01300 J $+10 J $+10 SEQRAW 5600445420 01310 ENDRB BA2 ERB NDRB BA2 ERB END READ PASS SEQRAW 1000365200 01320 JR PRT JR PRT SEQRAW 6000153701 01330 AC PAT+4,1 AC PAT+4,1 INCRIMENT DATA PATTERN IF SEQRAW 3400153777 01340 CC PAT+4,63 CC PAT+4,63 RUNNING IN CONT MODE SEQRAW 3000262543 01350 JU $+10 JU $+10 SEQRAW 4400153700 01360 SC PAT+4,0 SC PAT+4,0 SEQRAW 5600454100 01370 BA1 UPERB,16 BA1 UPERB,16 SEQRAW 3000140164 01380 JC START+10,52 JC START+10,52 SS3 SET CONTINUIOUS MODE SEQRAW 4400153700 01390 SC PAT+4,0 SC PAT+4,0 SEQRAW 3000223360 01400 JD RGEN JD RGEN HIT M TO REPEAT READ SEQRAW 3000140100 01410 JC START+10 JC START+10 SEQRAW 3000040060 01420 IPT0 JD 0400 PT0 JD 0400 CNGE TO 3000040000 IF NO PRINTER SEQRAW 4000407777 01430 XF 040,07777,0,0 XF 040,07777,0,0 SEQRAW 5600435423 01440 BA2 FIVE,3 BA2 FIVE,3 SEQRAW 7200040363 01450 SB2 0403,3 SB2 0403,3 SEQRAW 3000040000 01460 J 0400 J 0400 SEQRAW 5600456520 01470 IPT6 BA2 ER6,16 PT6 BA2 ER6,16 SEQRAW 4140000001 01480 XF 0,01,0,6 XF 0,01,0,6 SEQRAW 1000336653 01490 JR D1,43 JR D1,43 SEQRAW 4140000002 01500 XF 0,02,0,6 XF 0,02,0,6 SEQRAW 1000340553 01510 JR D2,43 JR D2,43 SEQRAW 4140000004 01520 XF 0,04,0,6 XF 0,04,0,6 SEQRAW 1000342453 01530 JR D3,43 JR D3,43 SEQRAW 4140000010 01540 XF 0,010,0,6 XF 0,010,0,6 SEQRAW 1000344353 01550 JR D4,43 JR D4,43 SEQRAW 4140000020 01560 XF 0,020,0,6 XF 0,020,0,6 SEQRAW 1000346253 01570 JR D5,43 JR D5,43 SEQRAW 4140000040 01580 XF 0,040,0,6 XF 0,040,0,6 SEQRAW 1000350153 01590 JR D6,43 JR D6,43 SEQRAW 4140000100 01600 XF 0,0100,0,6 XF 0,0100,0,6 SEQRAW 1000352053 01610 JR D7,43 JR D7,43 SEQRAW 4140000200 01620 XF 0,0200,0,6 XF 0,0200,0,6 SEQRAW 1000353753 01630 JR D8,43 JR D8,43 SEQRAW 4140000400 01640 XF 0,0400,0,6 XF 0,0400,0,6 SEQRAW 1000355653 01650 JR D9,43 JR D9,43 SEQRAW 4140001000 01660 XF 0,01000,0,6 XF 0,01000,0,6 SEQRAW 1000357553 01670 JR D10,43 JR D10,43 SEQRAW 4140002000 01680 XF 0,02000,0,6 XF 0,02000,0,6 SEQRAW 1000361453 01690 JR D11,43 JR D11,43 SEQRAW 4140004000 01700 XF 0,04000,0,6 XF 0,04000,0,6 SEQRAW 1000363353 01710 JR D12,43 JR D12,43 SEQRAW 4140407777 01720 XF 040,07777,0,6 XF 040,07777,0,6 SEQRAW 6000006304 01730 AC X4,4 AC X4,4 SEQRAW 4600035737 01740 BT 0357,31 BT 0357,31 SEQRAW 3400003104 01750 CC AC+9,4 CC AC+9,4 SEQRAW 3000314242 01760 JE $+10 JE $+10 SEQRAW 7600454537 01770 AT MONE,31 AT MONE,31 SUBTRACT 1 FROM SECTOR COUNT SEQRAW 5200004321 01780 SA2 043,1 SA2 043,1 IF MISSING SECTOR ERROR SEQRAW 3000375523 01790 JC SET,19 JC SET,19 SEQRAW 3000316126 01800 RET JC $+5,22 ET JC $+5,22 SEQRAW 5600004321 01810 BA2 043,1 BA2 043,1 SEQRAW 1000365200 01820 JR PRT JR PRT SEQRAW 2600006304 01830 PD X4,4 PD X4,4 SEQRAW 3400003504 01840 CC AC+13,4 CC AC+13,4 SEQRAW 3000321743 01850 JU CY JU CY SEQRAW 3000321260 01860 NR JD NR R JD NR SEQRAW 5600435423 01870 CY BA2 FIVE,3 Y BA2 FIVE,3 SEQRAW 7200046363 01880 SB2 0463,3 SB2 0463,3 SEQRAW 3400452103 01890 CC FOUR,3 CC FOUR,3 CHECK FOR 4 CONSECUTIVE ERRS SEQRAW 3000333743 01900 JU ADD JU ADD SEQRAW 3000000460 01910 JD 4 JD 4 SEQRAW 2600452101 01920 PD FOUR,1 PD FOUR,1 RESET ERROR COUNT SEQRAW 5600046323 01930 RECVR BA2 0463,3 ECVR BA2 0463,3 SKIP ERROR TRACK SEQRAW 2000230326 01940 FT READ,22 FT READ,22 SEQRAW 7000013363 01950 CB2 0133,3 CB2 0133,3 SEQRAW 3000332542 01960 JE ADD-10 JE ADD-10 SEQRAW 2000177326 01970 FT WRIT,22 FT WRIT,22 SEQRAW 7000013363 01980 CB2 0133,3 CB2 0133,3 SEQRAW 3000046043 01990 JU 0460 JU 0460 SEQRAW 3000171131 02000 JC REP-5,25 JC REP-5,25 SEQRAW 6000001601 02010 AC 016,1 AC 016,1 SEQRAW 3000227631 02020 JC READ-5,25 JC READ-5,25 SEQRAW 6000452101 02030 ADD AC FOUR,1 DD AC FOUR,1 INCRIMENT ERROR COUNT SEQRAW 6400177504 02040 LS WRIT+2,4 LS WRIT+2,4 SEQRAW 6400230504 02050 LS READ+2,4 LS READ+2,4 SEQRAW 3000046000 02060 J 0460 J 0460 SEQRAW 02070 AC EQU 020 C EQU 020 SEQRAW 3000000000 02080 D1 J 0 1 J 0 SEQRAW 4400002404 02090 SC AC+4,4 SC AC+4,4 SEQRAW 3000336300 02100 J D1 J D1 SEQRAW 3000000000 02110 D2 J 0 2 J 0 SEQRAW 4400002504 02120 SC AC+5,4 SC AC+5,4 SEQRAW 3000340200 02130 J D2 J D2 SEQRAW 3000000000 02140 D3 J 0 3 J 0 SEQRAW 4400002604 02150 SC AC+6,4 SC AC+6,4 SEQRAW 3000342100 02160 J D3 J D3 SEQRAW 3000000000 02170 D4 J 0 4 J 0 SEQRAW 4400002704 02180 SC AC+7,4 SC AC+7,4 SEQRAW 3000344000 02190 J D4 J D4 SEQRAW 3000000000 02200 D5 J 0 5 J 0 SEQRAW 4400003004 02210 SC AC+8,4 SC AC+8,4 SEQRAW 3000345700 02220 J D5 J D5 SEQRAW 3000000000 02230 D6 J 0 6 J 0 SEQRAW 4400003104 02240 SC AC+9,4 SC AC+9,4 SEQRAW 3000347600 02250 J D6 J D6 SEQRAW 3000000000 02260 D7 J 0 7 J 0 SEQRAW 4400003204 02270 SC AC+10,4 SC AC+10,4 SEQRAW 3000351500 02280 J D7 J D7 SEQRAW 3000000000 02290 D8 J 0 8 J 0 SEQRAW 4400003304 02300 SC AC+11,4 SC AC+11,4 SEQRAW 3000353400 02310 J D8 J D8 SEQRAW 3000000000 02320 D9 J 0 9 J 0 SEQRAW 4400003404 02330 SC AC+12,4 SC AC+12,4 SEQRAW 3000355300 02340 J D9 J D9 SEQRAW 3000000000 02350 D10 J 0 10 J 0 SEQRAW 4400003504 02360 SC AC+13,4 SC AC+13,4 SEQRAW 3000357200 02370 J D10 J D10 SEQRAW 3000000000 02380 D11 J 0 11 J 0 SEQRAW 4400003604 02390 SC AC+14,4 SC AC+14,4 SEQRAW 3000361100 02400 J D11 J D11 SEQRAW 3000000000 02410 D12 J 0 12 J 0 SEQRAW 4400003704 02420 SC AC+15,4 SC AC+15,4 SEQRAW 3000363000 02430 J D12 J D12 SEQRAW 3000000000 02440 PRT J 0 RT J 0 SEQRAW 5200472520 02450 SA2 PRTAR+21,16 SA2 PRTAR+21,16 SEQRAW 2000470040 02460 FT PRTAR,32 FT PRTAR,32 SEQRAW 4400020701 02470 SC 0207,1 SC 0207,1 SEQRAW 4000620400 02480 XF 062,00400,0,0 XF 062,00400,0,0 SEQRAW 4400020736 02490 SP SC 0207,30 P SC 0207,30 SEQRAW 4000640000 02500 XF 064,0,0,0 XF 064,0,0,0 SEQRAW 4400470000 02510 SC PRTAR,0 SC PRTAR,0 SEQRAW 2000470120 02520 FT PRTAR+1,16 FT PRTAR+1,16 SEQRAW 2000007722 02530 FT 63,18 FT 63,18 SEQRAW 2400470001 02540 TFR PRTAR TFR PRTAR SEQRAW 3000364700 02550 J PRT J PRT SEQRAW 3000000000 02560 CMPER J 0 MPER J 0 SEQRAW 4600001737 02570 BT 017,31 BT 017,31 SEQRAW 2600017301 02580 SET PD SH,1 ET PD SH,1 EDIT DRUM ADDRESSES FOR SEQRAW 1600017423 02590 BS2 SH+1,3 BS2 SH+1,3 ERROR PRINT OUT SEQRAW 6000017303 02600 AC SH,3 AC SH,3 SEQRAW 5600017321 02610 BA2 SH,1 BA2 SH,1 SEQRAW 5300472621 02620 SA2 PRTAR+22,1,4 SA2 PRTAR+22,1,4 SEQRAW 6000006301 02630 AC X4,1 AC X4,1 SEQRAW 3200375502 02640 JL SET,2 JL SET,2 SEQRAW 4400401702 02650 SC $-1,2 SC $-1,2 SEQRAW 1600017706 02660 BS4 SH+4,6 BS4 SH+4,6 SEQRAW 3200375504 02670 JL SET,4 JL SET,4 SEQRAW 4400403604 02680 SC $-1,4 SC $-1,4 SEQRAW 3000315466 02690 JC RET,54 JC RET,54 SEQRAW 6000006304 02700 AC X4,4 AC X4,4 SEQRAW 4660524737 02710 BT AREA+167,31,3 BT AREA+167,31,3 SEQRAW 3200375502 02720 JL SET,2 JL SET,2 SEQRAW 4400406702 02730 SC $-1,2 SC $-1,2 SEQRAW 2600006304 02740 PD X4,4 PD X4,4 SEQRAW 5600451420 02750 BA2 CERR,16 BA2 CERR,16 SEQRAW 4400370400 02760 SC SP+4,0 SC SP+4,0 SEQRAW 1000365224 02770 JR PRT,20 JR PRT,20 SEQRAW 3000374300 02780 J CMPER J CMPER SEQRAW 02790 SH EQU 0173 H EQU 0173 SEQRAW 4400153210 02800 MSIZE SC SCNT+4,8 SIZE SC SCNT+4,8 SET UP FOR 32 SECTOR WRITE SEQRAW 4400435140 02810 SC SEC,32 SC SEC,32 AND READ IF LESS THAN 16K MEM SEQRAW 4400435000 02820 SC SEC-1,0 SC SEC-1,0 SEQRAW 3000136736 02830 JC START,30 JC START,30 SEQRAW 3000416454 02840 OP2 JC $+10,44 P2 JC $+10,44 OPERATOR REQUEST SEQRAW 3000046000 02850 J 0460 J 0460 SEQRAW 3000417135 02860 JC $+5,29 JC $+5,29 SEQRAW 3000417616 02870 JC $+5,14 JC $+5,14 SEQRAW 3000433567 02880 JC OUT,55 JC OUT,55 SEQRAW 3000000260 02890 JD 2 JD 2 SEQRAW 3000421524 02900 JC $+5,20 JC $+5,20 SEQRAW 4600000371 02910 BT 3,57 BT 3,57 SELECT KEYED IN ADDRESS SEQRAW 2600034001 02920 PD 0340,1 PD 0340,1 SEQRAW 2000500020 02930 FT AREA,16 FT AREA,16 SEQRAW 2000000322 02940 FT 3,18 FT 3,18 SEQRAW 2400000421 02950 TFI 4 TFI 4 TRANSFER KEYED IN TEST DATA SEQRAW 3200424170 02960 JL $-5,56 JL $-5,56 SEQRAW 4400425270 02970 SC $-1,56 SC $-1,56 SEQRAW 3000431163 02980 SEL JC RD,51 EL JC RD,51 SS2 SET READ ONLY RESET WRITE SEQRAW 2000500070 02990 FT AREA,56 FT AREA,56 SEQRAW 6400034120 03000 LS 0341,16 LS 0341,16 SEQRAW 4140660000 03010 XF 066,0,0,6 XF 066,0,0,6 SEQRAW 3000426000 03020 J SEL J SEL SEQRAW 2000525070 03030 RD FT AREA+168,56 D FT AREA+168,56 SEQRAW 6400034120 03040 LS 0341,16 LS 0341,16 SEQRAW 4140650000 03050 XF 065,0,0,6 XF 065,0,0,6 SEQRAW 3000426000 03060 J SEL J SEL SEQRAW 3000136727 03070 OUT JC START,23 UT JC START,23 SEQRAW 03080 T23 EQU 0137 23 EQU 0137 SEQRAW 00000001 03090 ONE +4 1 NE +4 1 SEQRAW 00000100 03100 SEC +4 64 EC +4 64 SEQRAW 000005 03110 FIVE +3 05 IVE +3 05 SEQRAW END WRITE DRUM A 03120 EWA +16 _END WRITE DRUM WA +16 _END WRITE DRUM A_ SEQRAW END WRITE DRUM B 03130 EWB +16 _END WRITE DRUM WB +16 _END WRITE DRUM B_ SEQRAW END READ DRUM A 03140 ERA +16 _END READ DRUM RA +16 _END READ DRUM A _ SEQRAW END READ DRUM B 03150 ERB +16 _END READ DRUM RB +16 _END READ DRUM B _ SEQRAW RAISE HEADS 03160 RASH +16 _RAISE HEADS ASH +16 _RAISE HEADS _ SEQRAW COMP ERROR 03170 CERR +16 _COMP ERROR ERR +16 _COMP ERROR _ SEQRAW 00000250 03180 ADV +4 168 DV +4 168 SEQRAW 00 03190 FOUR +1 0 OUR +1 0 SEQRAW 00000000 03200 LOERA +4 0 OERA +4 0 SEQRAW 01373700 03210 UPERA +4 001373700 PERA +4 001373700 SEQRAW 00000000 03220 LOERB +4 0 OERB +4 0 SEQRAW 01377700 03230 UPERB +4 001377700 PERB +4 001377700 SEQRAW 77777777 03240 MONE +4 077777777 ONE +4 077777777 SEQRAW 03250 X1 EQU 047 1 EQU 047 SEQRAW 03260 X2 EQU 053 2 EQU 053 SEQRAW 03270 X3 EQU 057 3 EQU 057 SEQRAW 03280 X4 EQU 063 4 EQU 063 SEQRAW ER6 000000000000 03290 ER6 +16 _ER6 0000000000 R6 +16 _ER6 000000000000_ SEQRAW 3000000031 03300 JC 0,25 JC 0,25 SEQRAW 002707 03310 IE6 +3 IPT6 E6 +3 IPT6 SEQRAW 3000000031 03320 JC 0,25 JC 0,25 SEQRAW 002656 03330 IE0 +3 IPT0 E0 +3 IPT0 SEQRAW 3000000160 03340 IPT1 JD 1 PT1 JD 1 SEQRAW 004606 03350 +3 IPT1 +3 IPT1 SEQRAW 3000000260 03360 I2 JD 2 2 JD 2 SEQRAW 004152 03370 IE2 +3 OP2 E2 +3 OP2 SEQRAW 03380 ORIG $,64 ORIG $,64 SEQRAW 100 03390 PRTAR AREA 64,B,0 RTAR AREA 64,B,0 SEQRAW 03400 AREA EQU $ REA EQU $ SEQRAW 3000135000 03410 END STRT END STRT SEQRAW {-- tape mark --} 000831 C171 BRAKE CODEDIT SOURCE - T3834394-17 002500 00010 T170 BEGIN 02500 BRKE 00010 *LOAD 0700,TAPAPE,R,PRELD E * 002500 3007010660 * JD 070106 * * 002505 3000250000 * J $-5 * SEGMENT-ID T171 3000250000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T172 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 T173 3000136300 * SEGJP $ * 002500 000101 ORIG 02500 000101 * 002500 3000007760 00020 START JD 077 BRAKE 00020 002505 2000000002 00030 FT 0,2 MODE + BLK COUNT BRAKE 00030 002512 2000776003 00040 FT 07760,3 3 CHAR. COUNT BRAKE 00040 * 002517 1000313300 00050 JR REWD,0 BRAKE 00050 002524 2600362224 00060 PD0 NUM,4 BRAKE 00060 002531 2600007700 00070 PD 077,0 BRAKE 00070 002536 2600005700 00080 PD 057,0 BRAKE 00080 002543 5200030703 00090 SA1 0307,3 READ CH. CHAR. C BRAKE 00090 002550 5200032703 00100 SA1 0327,3 WT CH. CHAR. COU BRAKE 00100 002555 5200005303 00110 SA1 053,3 IR =2 HAS CHAR. BRAKE 00110 002562 2040415111 00120 FT IMAGE-1,1,9,2 BACKWARD READ AD BRAKE 00120 002567 5600001201 00130 BA1 012,1 BRAKE 00130 002574 5200007701 00140 SA1 077,1 BRAKE 00140 002601 5760354101 00150 BA1 COUNT,1,1,7 BRAKE 00150 002606 5200357501 00160 SA1 BLK-1,1 1 BRAKE 00160 002613 5600001301 00170 BA1 013,1 BRAKE 00170 002620 5200276701 00180 SA1 RD+3,1 BRAKE 00180 002625 5200267301 00190 SA1 WT+3,1 BRAKE 00190 002632 5600364600 00200 RERUN BA1 IE+15,0 0 BRAKE 00200 002637 5200045700 00210 SA1 0457,0 BRAKE 00210 * 002644 3000306562 00220 JC READ,50 0 S.S. =1 BRAKE 00220 002651 2000361613 00230 FT PAT,11 IR =3 BRAKE 00230 002656 2000415264 00240 FT IMAGE,5252 WT BASE ADD. BRAKE 00240 * 002663 1000326500 00250 JR GI,0 BRAKE 00250 002670 4121020000 00260 WT XF 002,00,1,1,5 BRAKE 00260 * 002675 3200267577 00270 JL $,63 BRAKE 00270 002702 4400270177 00280 SC $-1,63 BRAKE 00280 * 002707 3200267577 00290 JL $-10,63 3 BRAKE 00290 002714 4400271377 00300 SC $-1,63 BRAKE 00300 * 002721 3200267530 00310 JL $-20,03030 BRAKE 00310 002726 4400272530 00320 SC $-1,030 0 CHANGE WRITE DELAY HERE BRAKE 00320 * 002733 1000321000 00330 JR CNT,0 BRAKE 00330 * 002740 3000267000 00340 J WT BRAKE 00340 002745 6400276710 00350 LS RD+3,01010 BRAKE 00350 002752 2020000060 00360 FT 0,48,1 BRAKE 00360 * 002757 3000276422 00370 JC $+5,18 SET SENSE =1 BRAKE 00370 E 002764 4101010000 00380 RD XF 01,000,1,1,4 BRAKE 00380 * 002771 3000277165 00390 JC $,53 S.I =1 BRAKE 00390 * 002776 1000334200 00400 JR COMP,0 BRAKE 00400 003003 2000357213 00410 FT ONE,11 BRAKE 00410 * 003010 1000326500 00420 JR GI,0 BRAKE 00420 * 003015 3200301577 00430 JL $,63 BRAKE 00430 003022 4400302177 00440 SC $-1,63 BRAKE 00440 * 003027 3200301577 00450 JL $-10,63 3 BRAKE 00450 003034 4400303377 00460 SC $-1,63 BRAKE 00460 * 003041 3200301525 00470 JL $-20,02525 BRAKE 00470 003046 4400304525 00480 SC $-1,025 5 BRAKE 00480 * 003053 1000321000 00490 JR CNT,0 BRAKE 00490 * 003060 3000275700 00500 J RD-5 BRAKE 00500 003065 5400276767 00510 READ LP RD+3,06767 BRAKE 00510 003072 2000415260 00520 FT IMAGE,4848 BRAKE 00520 * 003077 3200275702 00530 JL RD-5,2 BRAKE 00530 003104 4400310302 00540 SC $-1,2 BRAKE 00540 * 003111 3000274562 00550 JC RD-15,5050 BRAKE 00550 * 003116 1000313300 00560 JR REWD,0 BRAKE 00560 * 003123 3000263200 00570 J RERUN BRAKE 00570 * 003130 3000000000 00580 REWD J 00 BRAKE 00580 003135 5600365630 00590 BA2 IEX,8 BRAKE 00590 003142 5200045730 00600 SA2 0457,8 BRAKE 00600 003147 4121640000 00610 XF 064,000000,1,5 BRAKE 00610 003154 4121407777 00620 XF 040,0777777,1,5 BRAKE 00620 003161 4121640000 00630 XF 064,000,0,1,5 BRAKE 00630 003166 4121007777 00640 XF 00,0777777,1,5 BRAKE 00640 * 003173 3000315453 00650 JC $-15,43 3 BRAKE 00650 * 003200 3000313000 00660 J REWD BRAKE 00660 * 003205 3000000000 00670 CNT J 0 BRAKE 00670 003212 5600362243 00680 BD1 NUM,3 BRAKE 00680 003217 6600362603 00690 AD1 DON,3 BRAKE 00690 003224 5200362203 00700 SA1 NUM,3 BRAKE 00700 003231 2600357643 00710 CD1 BLK,3 BRAKE 00710 * 003236 3000320544 00720 JS CNT BRAKE 00720 003243 6000321005 00730 AC CNT+3,5 5 BRAKE 00730 003250 2600362223 00740 PD0 NUM,3 BRAKE 00740 * 003255 3000320500 00750 J CNT BRAKE 00750 * 003262 3000000000 00760 GI J 0 BRAKE 00760 003267 5660000000 00770 BA1 0,0,3 BRAKE 00770 003274 5200417100 00780 SA1 IMAGE+1515,0 BRAKE 00780 003301 2000000022 00790 FT 0,18 BRAKE 00790 003306 2000417220 00800 FT IMAGE+1616,16 DEST.ADD. BRAKE 00800 003313 2400415221 00810 TFI IMAGE BRAKE 00810 * 003320 3200331304 00820 JL $-5,4 BRAKE 00820 003325 4400332404 00830 SC $-1,4 BRAKE 00830 * 003332 3000326200 00840 J GI BRAKE 00840 * 003337 3000000000 00850 COMP J 0 BRAKE 00850 003344 2000415114 00860 FT IMAGE-1,1,12 IR =4 BRAKE 00860 003351 5600361600 00870 BA1 PAT,0 BRAKE 00870 003356 7100002040 00880 COMPX CB1 16,0,4 BRAKE 00880 * 003363 3000341443 00890 JU FIND BRAKE 00890 003370 2100002014 00900 FT 16,12,4 4 BRAKE 00900 003375 7400004714 00910 CT 047,12 BRAKE 00910 * 003402 3000333742 00920 JE COMP BRAKE 00920 * 003407 3000335600 00930 J COMPX BRAKE 00930 003414 2000357715 00940 FIND FT PAT-15,1,13 BRAKE 00940 003421 5720000001 00950 BA1 0,1,5 PATTERN BRAKE 00950 003426 7100000141 00960 CB1 1,1,4 IMAGE BRAKE 00960 * 003433 3000347143 00970 JU FINDX BRAKE 00970 003440 2120000115 00980 FT 1,13,5 +1 BRAKE 00980 003445 2100000114 00990 FT 1,12,4 +1 BRAKE 00990 * 003452 3200342120 01000 JL FIND+5,1,16 BRAKE 01000 003457 4400345620 01010 SC $-1,16 BRAKE 01010 * 003464 3000000260 01020 JD 02 BRAKE 01020 * 003471 3000000760 01030 FINDX JD 07 BRAKE 01030 003476 5720000001 01040 BA1 0,1,5 BRAKE 01040 003503 5200352501 01050 SA1 SHD+3,1 1 BRAKE 01050 003510 5700000101 01060 BA1 1,1,4 BRAKE 01060 003515 5200353201 01070 SA1 WAS+3,1 1 BRAKE 01070 * 003522 3000000060 01080 SHD JD 00 BRAKE 01080 * 003527 3000000060 01090 WAS JD 00 BRAKE 01090 * 003534 3000333700 01100 JC COMP BRAKE 01100 003541 1 01110 COUNT +1 _1_ BRAKE 01110 003551 12345678 01120 +8 _1234567678_ BRAKE 01120 003552 9 01130 +1 _9_ BRAKE 01130 003562 7777777777777777 01140 +8 0777777777777777777 BRAKE 01140 7 003572 7777777777777777 01150 ONE +8 0777777777777777777 BRAKE 01150 7 003576 0000 01160 BLK +4 _0000_ BRAKE 01160 003606 2757275727572757 01170 +8 0275727575727572757 BRAKE 01170 7 003616 2757275727572757 01180 PAT +8 0275727575727572757 BRAKE 01180 7 003622 0000 01190 NUM +4 _0000_ BRAKE 01190 003626 0001 01200 DON +4 _0001_ BRAKE 01200 * 003627 3000000031 01210 IE JC 0,25 BRAKE 01210 003636 003657 01220 +3 REACH BRAKE 01220 * 003637 3000000031 01230 JC 0,25 BRAKE 01230 003646 004124 01240 +3 WRTE BRAKE 01240 003656 3000000031000450 01250 IEX +8 0300000000031000450 BRAKE 01250 4 * 003657 3000415051 01260 REACH JC SIX-1,4141 BRAKE 01260 003664 4101007777 01270 XF 00,0777777,1,4 BRAKE 01270 * 003671 3000371053 01280 JC ERRS,43 3 BRAKE 01280 003676 4400415100 01290 SC SIX,0 BRAKE 01290 * 003703 3000044025 01300 JC 0440,21 1 BRAKE 01300 003710 4101000060 01310 ERRS XF 00,060,1,1,4 TPE M.O.O. BRAKE 01310 * 003715 3000372753 01320 JC $+10,43 3 BRAKE 01320 * 003722 3000000360 01330 JD 03 BRAKE 01330 003727 3400415106 01340 CC SIX,6 BRAKE 01340 * 003734 3000410044 01350 JS STP BRAKE 01350 003741 6000415101 01360 AC SIX,1 BRAKE 01360 003746 5200031704 01370 SA1 0317,4 BRAKE 01370 003753 5600277002 01380 BA1 RD+4,2 BRAKE 01380 003760 5200404102 01390 SA1 CD+4,2 BRAKE 01390 003765 5200406002 01400 SA1 SAM+4,2 2 BRAKE 01400 003772 1400404010 01410 LC CD+3,01010 BRAKE 01410 * 003777 3000401643 01420 JU $+15 BRAKE 01420 004004 5400404067 01430 LP CD+3,06767 BRAKE 01430 * 004011 3000402300 01440 J $+10 BRAKE 01440 004016 6400404010 01450 LS CD+3,01010 BRAKE 01450 004023 2000000061 01460 FT 0,49 BRAKE 01460 004030 4101407777 01470 XF 040,0777777,1,4 BRAKE 01470 004035 4101610000 01480 CD XF 061,000,0,1,4 BRAKE 01480 004042 2040000061 01490 FT 0,49,2 BRAKE 01490 004047 4101407777 01500 XF 040,0777777,1,4 BRAKE 01500 004054 4101410000 01510 SAM XF 041,000,0,1,4 BRAKE 01510 * 004061 3000415052 01520 JC SIX-1,4242 BRAKE 01520 004066 5600031704 01530 BA1 0317,4 BRAKE 01530 * 004073 3000044000 01540 J 0440 BRAKE 01540 * 004100 3000000660 01550 STP JD 06 BRAKE 01550 004105 4101407777 01560 XF 040,0777777,1,4 BRAKE 01560 * 004112 3000415052 01570 JC SIX-1,4242 BRAKE 01570 * 004117 3000367600 01580 J REACH+1515 BRAKE 01580 004124 4121007777 01590 WRTE XF 00,0777777,1,5 BRAKE 01590 * 004131 3000414353 01600 JC $+10,43 3 BRAKE 01600 * 004136 3000045000 01610 J 0450 BRAKE 01610 * 004143 3000000460 01620 JD 04 BRAKE 01620 004151 0000 01630 SIX +2 00000 BRAKE 01630 004152 00 01640 IMAGE +1 000 BRAKE 01640 3000250000 01650 END START BRAKE 01650 {-- tape mark --} 001305 C181 PROC8K CODEDIT SOURCE A T3834394-18 001500 00010 T180 BEGIN 01500 PRC8 00010 *LOAD 0700,TAPAPE,,PRELD L * 001500 3007010660 * JD 070106 * * 001505 3000150000 * J $-5 * SEGMENT-ID T181 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 T182 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 T183 3000135600 * SEGJP $ * 001500 000101 ORIG 01500 000101 * 001500 3000150020 00020 PIE JC $,16 00020 001507 000400 00030 +3 256 00030 * 001510 3000151031 00051 RIE JC $,25 00051 001517 000410 00052 +3 264 00052 * 001520 3000152022 00060 PARIE JC $,18 00060 001527 000500 00070 +3 320 00070 * 001530 3000153023 00080 DOFIE JC $,19 00080 001537 000510 00090 +3 328 00090 001540 00 00100 K02 +1 000 00100 001542 0042 00110 K03 +2 00042 PROC8K00110 001546 47245345 00120 K04 +4 04724534345 PROC8K00120 001551 407754 00130 K05 +3 0407754 4 PROC8K00130 001553 7240 00140 K06 +2 07240 PROC8K00140 001555 1317 00150 K07 +2 01317 PROC8K00150 001565 4041424450603740 00160 K08 +8 0404142424450603740 PROC8K00160 7 001575 0262414244506037 00170 K09 +8 0026241414244506037 PROC8K00170 0 001603 030200036263 00180 K11 +6 003020000036263 PROC8K00180 001605 5225 00190 K12 +2 05225 PROC8K00190 001615 0500171412001317 00200 +8 0050017171412001317 PROC8K00200 3 001625 0001020410001740 00210 K13 +8 0000102020410001740 PROC8K00210 7 001631 07775264 00220 K14 +4 00777526264 PROC8K00220 001635 60021740 00230 K15 +4 06002174740 PROC8K00230 001636 40 00240 K16 +1 040 PROC8K00240 001640 6203 00250 K17 +2 06203 PROC8K00250 001642 4042 00260 K18 +2 04042 PROC8K00260 001644 4022 00270 K19 +2 04022 PROC8K00270 001646 4012 00280 K21 +2 04012 PROC8K00280 001650 4006 00290 K22 +2 04006 PROC8K00290 001652 4000 00300 K23 +2 04000 PROC8K00300 001654 4003 00310 K24 +2 04003 PROC8K00310 001656 4037 00320 K25 +2 04037 PROC8K00320 001660 4057 00330 K26 +2 04057 PROC8K00330 001662 4067 00340 K27 +2 04067 PROC8K00340 001664 4073 00350 K28 +2 04073 PROC8K00350 001666 4075 00360 K29 +2 04075 PROC8K00360 001670 4076 00370 K31 +2 04076 PROC8K00370 001674 00004263 00380 K32 +4 00000426263 PROC8K00380 001700 00000063 00390 K33 +4 00000006063 PROC8K00390 001705 0000626300 00400 AC1 +5 0000062626300 PROC8K00400 001706 00 00410 AC2 +1 000 PROC8K00410 001711 010001 00420 PAT +3 0010001 1 PROC8K00420 001714 010100 00430 CON +3 0010100 0 PROC8K00430 001717 020101 00440 ANS +3 0020101 1 PROC8K00440 001727 0200010302010003 00450 NEED +8 0020001010302010003 PROC8K00450 0 001736 02030201030001 00460 PAT2 +7 00203020201030001 PROC8K00460 1 001745 01030200000102 00470 MORE +7 00103020200000102 PROC8K00470 2 001755 0303020203010100 00480 CON2 +8 0030302020203010100 PROC8K00480 1 001765 0303030302020206 00490 SPCE +8 0030303030302020206 PROC8K00490 2 001774 05050404040101 00500 ANS2 +7 00505040404040101 PROC8K00500 1 002003 00040406060202 00510 PAT3 +7 00004040406060202 PROC8K00510 2 002012 04000406020602 00520 CON3 +7 00400040406020602 PROC8K00520 2 002021 04041014101004 00530 ANS3 +7 00404101014101004 PROC8K00530 4 002030 00101014041404 00540 PAT4 +7 00010101014041404 PROC8K00540 4 002037 10001014140404 00550 CON4 +7 01000101014140404 PROC8K00550 4 002046 10102030202010 00560 ANS4 +7 01010203030202010 PROC8K00560 0 002055 00202030103010 00570 PAT5 +7 00020203030103010 PROC8K00570 0 002064 20002030301010 00580 CON5 +7 02000203030301010 PROC8K00580 0 002073 20204060404020 00590 ANS5 +7 02020406060404020 PROC8K00590 0 002102 00404060206020 00600 PAT6 +7 00040406060206020 PROC8K00600 0 002111 40004060602020 00610 CON6 +7 04000406060602020 PROC8K00610 0 002120 40410141010040 00620 ANS6 +7 04041014141010040 PROC8K00620 0 002124 75317000 00630 AB1 +4 07531700000 00630 002130 72636000 00640 AB2 +4 07263600000 PROC8K00640 002134 31100500 00650 AB3 +4 03110050500 PROC8K00650 002140 62201200 00660 AB4 +4 06220120200 PROC8K00660 002141 0 00670 WORK +1 _0_ PROC8K00670 002151 01234567 00680 DEC2 +8 _0123456567_ PROC8K00680 002161 89134574 00690 DEC1 +8 _8913457574_ PROC8K00690 002162 63 00700 K34 +1 063 PROC8K00700 002163 13 00710 K35 +1 013 PROC8K00710 002166 630507 00720 K36 +3 0630507 7 PROC8K00720 002170 6303 00730 K37 +2 06303 PROC8K00730 002172 0403 00740 K38 +2 00403 PROC8K00740 002173 1 00750 K39 +1 _1_ PROC8K00750 002174 K 00760 K41 -1 _2_ PROC8K00760 002176 2L 00770 K42 -2 _23_ PROC8K00770 002201 276 00780 K43 +3 _276_ PROC8K00780 002205 345O 00790 K44 -4 _3456_ PROC8K00790 002211 6789 00800 K45 +4 _6789_ PROC8K00800 002221 2346278M 00810 K46 -8 _2346278784_ PROC8K00810 002231 97531024 00820 K47 +8 _9753102024_ PROC8K00820 002241 6896745K 00830 K48 -8 _6896745452_ PROC8K00830 002251 67264662 00840 K49 +8 _6726466662_ PROC8K00840 002261 1623084Q 00850 K51 -8 _1623084848_ PROC8K00850 002271 56127842 00860 +8 _5612784842_ PROC8K00860 002301 73573785 00870 K52 +8 _7357378785_ PROC8K00870 002311 22947722 00880 +8 _2294772722_ PROC8K00880 002321 3139922 00890 K53 -8 _3139922220_ PROC8K00890 002323 2P 00900 K54 -2 _27_ PROC8K00900 002325 09 00910 K55 +2 _09_ PROC8K00910 002331 105P 00920 K56 -4 _1057_ PROC8K00920 002335 005K 00930 K57 -4 _0052_ PROC8K00930 002344 1234565 00940 K58 +7 _123456565_ PROC8K00940 002353 032358M 00950 K59 -7 _032358484_ PROC8K00950 002363 0000000000000000 00960 +8 0000000000000000000 PROC8K00960 0 002373 0000000000000000 00970 ZERO +8 0000000000000000000 PROC8K00970 0 002403 0100000000000000 00980 +8 0010000000000000000 PROC8K00980 0 002413 0000000000000000 00990 FAILS +8 0000000000000000000 PROC8K00990 0 002423 2020000000200000 01000 +8 0202000000000200000 PROC8K01000 0 002433 0000000000000000 01010 OKAYS +8 0000000000000000000 PROC8K01010 0 002443 0000000000000000 01020 IND +8 0000000000000000000 PROC8K01020 0 002453 0000000000000000 01030 PROD +8 0000000000000000000 PROC8K01030 0 002463 6605036305040000 01040 +8 0660503636305040000 PROC8K01040 0 002467 00000000 01050 +4 00000000000 PROC8K01050 002477 0000002454040000 01060 +8 0000000202454040000 PROC8K01060 0 002507 0000000000000000 01070 +8 0000000000000000000 PROC8K01070 0 002517 0000002454030000 01080 +8 0000000202454030000 PROC8K01080 0 002520 3 01090 K61 +1 _3_ PROC8K01090 002530 48812944 01100 K62 +8 _4881294944_ PROC8K01100 002537 6498396 01110 +7 _649839696_ PROC8K01110 002540 40 01120 K01 +1 040 PROC8K01120 002547 63124441414163 01130 +7 06312444441414163 PROC8K01130 3 002557 7377200777777756 01140 K63 +8 0737720000777777756 PROC8K01140 7 002561 0000 01150 +2 00000 PROC8K01150 002564 099 01160 +3 _099_ PROC8K01160 002574 99999999 01170 K64 +8 _9999999999_ PROC8K01170 002577 112 01180 +3 _112_ PROC8K01180 002607 34567890 01190 K65 +8 _3456789890_ PROC8K01190 002700 01200 ORIG $,64 PROC8K01200 002700 100 01210 PTMP AREA 64,B,0, , PROC8K01210 003000 01220 ORIG 03000 PROC8K01220 003000 5600151700 01230 MANST BA1 PIE+15,1,16 PROC8K01230 003005 5200041700 01240 SA1 271,16 PROC8K01240 003012 5600153700 01250 BA1 PARIE+1515,16 PROC8K01250 003017 5200051700 01260 SA1 335,16 PROC8K01260 * 003024 3001522160 01270 JD LOAD2 PROC8K01270 * 003031 3000330300 01280 JC RERUN,0 0 PROC8K01280 * 003036 3000303600 01290 EXIT J EXIT PROC8K01290 003043 6000304105 01300 AC EXIT+3,5,5 PROC8K01300 003050 4600304130 01310 BT EXIT+3,2,24 PROC8K01310 003055 4200307230 01320 ST NEXT+3,2,24 PROC8K01320 * 003062 3000307400 01330 JC $+10,0 PROC8K01330 * 003067 3000306700 01340 NEXT J NEXT PROC8K01340 * 003074 3000320265 01350 JC FAIL,53 3 PROC8K01350 * 003101 3000320266 01360 JC FAIL,54 4 PROC8K01360 * 003106 3000320267 01370 JC FAIL,55 5 PROC8K01370 * 003113 3000237352 01380 JC ZERO,42 2 PROC8K01380 * 003120 3000312062 01390 REP JC REP,50 PROC8K01390 003125 4600307230 01400 BT NEXT+3,2,24 PROC8K01400 003132 4200312330 01410 ST REP+3,2424 PROC8K01410 * 003137 3000306700 01420 J NEXT PROC8K01420 * 003144 3000314400 01430 ER1 J $ PROC8K01430 * 003151 3000314424 01440 JC ER1,20 PROC8K01440 * 003156 3000315600 01450 ER2 J $ PROC8K01450 * 003163 3000317024 01460 JC $+5,20 PROC8K01460 003170 4600316130 01470 BT ER2+3,2424 PROC8K01470 003175 4200307230 01480 ST NEXT+3,2,24 PROC8K01480 003202 6000241201 01490 FAIL AC FAILS-1,1,1 PROC8K01490 003207 4600312330 01500 BT REP+3,2424 PROC8K01500 003214 4200323130 01510 ST STOP+3,2,24 PROC8K01510 * 003221 3000323362 01520 JC $+10,50 0 PROC8K01520 * 003226 3000322660 01530 STOP JC $,48 PROC8K01530 * 003233 3000324025 01540 JC $+5,21 PROC8K01540 * 003240 3000324526 01550 JC $+5,22 PROC8K01550 * 003245 3000325227 01560 JC $+5,23 PROC8K01560 * 003252 3000325736 01570 JC $+5,30 PROC8K01570 * 003257 3000326450 01580 JC $+5,40 PROC8K01580 * 003264 3000327154 01590 JC $+5,44 PROC8K01590 * 003271 3000311335 01600 JC REP-5,2929 PROC8K01600 003276 6000243301 01610 OKAY AC OKAYS,1 1 PROC8K01610 * 003303 1000307200 01620 RERUN JR NEXT,0 PROC8K01620 * 003310 1000304100 01630 JR EXIT,0 0 005114J1 PROC8K01630 1 * 003315 1000316100 01640 JR ER2,0 PROC8K01640 * 003322 1000304130 01650 JR EXIT,24 4 005114LU0 PROC8K01650 L * 003327 1000316100 01660 JR ER2,0 PROC8K01660 * 003334 1000304121 01670 JR EXIT,17 7 005114LD0 PROC8K01670 L * 003341 1000316100 01680 JR ER2,0 PROC8K01680 * 003346 3000335325 01690 JC $+5,21 0 013049J01 -ROC8K01690 0 * 003353 3000336002 01700 JC $+5,2 PROC8K01700 * 003360 1000314765 01710 JR ER1,53 PROC8K01710 * 003365 1000307200 01720 JR NEXT,0 PROC8K01720 * 003372 3000337725 01730 JC $+5,21 0 013049LU0 PROC8K01730 U * 003377 3000340426 01740 JC $+5,22 PROC8K01740 * 003404 1000314765 01750 JR ER1,53 PROC8K01750 * 003411 1000307200 01760 JR NEXT,0 PROC8K01760 * 003416 3000342325 01770 JC $+5,21 0 0130 9LD2 PROC8K01770 D * 003423 3000343021 01780 JC $+5,17 PROC8K01780 * 003430 1000314765 01790 JR ER1,53 PROC8K01790 * 003435 1000307200 01800 JR NEXT,0 PROC8K01800 * 003442 3000344722 01810 JC $+5,18 0 013050J01 PROC8K01810 0 * 003447 3000345465 01820 JC $+5,53 PROC8K01820 * 003454 3000346665 01830 JC $+10,53 3 PROC8K01830 * 003461 1000314700 01840 JR ER1,0 PROC8K01840 * 003466 1000307225 01850 JR NEXT,21 1 PROC8K01850 * 003473 3000350022 01860 JC $+5,18 0 013050LU1 PROC8K01860 U * 003500 3000350531 01870 JC $+5,25 PROC8K01870 * 003505 3000351765 01880 JC $+10,53 3 -ROC8K01880 * 003512 1000314700 01890 JR ER1,0 PROC8K01890 * 003517 1000307225 01900 JR NEXT,21 1 PROC8K01900 * 003524 3000353122 01910 JC $+5,18 0 013050LD1 PROC8K01910 D * 003531 3000353626 01920 JC $+5,22 PROC8K01920 * 003536 3000355065 01930 JC $+10,53 3 PROC8K01930 * 003543 1000314700 01940 JR ER1,0 PROC8K01940 * 003550 1000307225 01950 JR NEXT,21 1 PROC8K01950 * 003555 3000356226 01960 JC $+5,22 0 013053J01 PROC8K01960 0 * 003562 3000356703 01970 JC $+5,3 PROC8K01970 * 003567 1000314766 01980 JR ER1,54 PROC8K01980 * 003574 1000307200 01990 JR NEXT,0 PROC8K01990 * 003601 3000360626 02000 JC $+5,22 0 013053LU0 PROC8K02000 U * 003606 3000361337 02010 JC $+5,31 PROC8K02010 * 003613 1000314766 02020 JR ER1,54 PROC8K02020 * 003620 1000307200 02030 JR NEXT,0 PROC8K02030 * 003625 3000363226 02040 JC $+5,22 0 013053LD3 PROC8K02040 D * 003632 3000363721 02050 JC $+5,17 PROC8K02050 * 003637 1000314766 02060 JR ER1,54 PROC8K02060 * 003644 1000307200 02070 JR NEXT,0 PROC8K02070 * 003651 3000365623 02080 JC $+5,19 0 013054J01 PROC8K02080 0 * 003656 3000366306 02090 JC $+5,6 PROC8K02090 * 003663 3000367566 02100 JC $+10,54 4 PROC8K02100 * 003670 1000314700 02110 JR ER1,0 PROC8K02110 * 003675 1000307226 02120 JR NEXT,22 2 PROC8K02120 * 003702 3000370723 02130 JC $+5,19 0 013054LU1 PROC8K02130 U * 003707 3000371436 02140 JC $+5,30 PROC8K02140 * 003714 3000372666 02150 JC $+10,54 4 PROC8K02150 * 003721 1000314700 02160 JR ER1,0 PROC8K02160 * 003726 1000307226 02170 JR NEXT,22 2 PROC8K02170 * 003733 3000374023 02180 JC $+5,19 0 013054LD2 PROC8K02180 D * 003740 3000374525 02190 JC $+5,21 PROC8K02190 * 003745 3000375766 02200 JC $+10,54 4 PROC8K02200 * 003752 1000314700 02210 JR ER1,0 PROC8K02210 * 003757 1000307226 02220 JR NEXT,22 2 PROC8K02220 * 003764 3000377127 02230 JC $+5,23 0 013057J01 PROC8K02230 0 * 003771 3000377604 02240 JC $+5,4 PROC8K02240 * 003776 1000314767 02250 JR ER1,55 PROC8K02250 * 004003 1000307200 02260 JR NEXT,0 PROC8K02260 * 004010 3000401527 02270 JC $+5,23 0 013057LU1 PROC8K02270 U * 004015 3000402230 02280 JC $+5,24 PROC8K02280 * 004022 1000314767 02290 JR ER1,55 PROC8K02290 * 004027 1000307200 02300 JR NEXT,0 PROC8K02300 * 004034 3000404127 02310 JC $+5,23 0 013057LD0 PROC8K02310 D * 004041 3000404625 02320 JC $+5,21 PROC8K02320 * 004046 1000314767 02330 JR ER1,55 PROC8K02330 * 004053 1000307200 02340 JR NEXT,0 PROC8K02340 * 004060 3000406524 02350 JC $+5,20 0 013058J01 PROC8K02350 0 * 004065 3000407207 02360 JC $+5,7 PROC8K02360 * 004072 3000410467 02370 JC $+10,55 5 PROC8K02370 * 004077 1000314700 02380 JR ER1,0 PROC8K02380 * 004104 1000307227 02390 JR NEXT,23 3 PROC8K02390 * 004111 3000411624 02400 JC $+5,20 0 013058LU1 PROC8K02400 U * 004116 3000412337 02410 JC $+5,31 PROC8K02410 * 004123 3000413567 02420 JC $+10,55 5 PROC8K02420 * 004130 1000314700 02430 JR ER1,0 PROC8K02430 * 004135 1000307227 02440 JR NEXT,23 3 PROC8K02440 * 004142 3000414724 02450 JC $+5,20 0 013058LD3 PROC8K02450 D * 004147 3000415425 02460 JC $+5,21 PROC8K02460 * 004154 3000416667 02470 JC $+10,55 5 PROC8K02470 * 004161 1000314700 02480 JR ER1,0 PROC8K02480 * 004166 1000307227 02490 JR NEXT,23 3 PROC8K02490 * 004173 3000420016 02500 JC $+5,14 0 013064 PROC8K02500 * 004200 3000420517 02510 JC $+5,15 PROC8K02510 * 004205 1000304172 02520 JR EXIT,58 8 PROC8K02520 * 004212 1000316100 02530 JR ER2,0 PROC8K02530 * 004217 3000422417 02540 JC $+5,15 0 013063 PROC8K02540 * 004224 3000423116 02550 JC $+5,14 PROC8K02550 * 004231 1000314772 02560 JR ER1,58 PROC8K02560 * 004236 1000307200 02570 JR NEXT,0 PROC8K02570 * 004243 3000425016 02580 JC $+5,14 0 013064J00 PROC8K02580 0 * 004250 3000425537 02590 JC $+5,31 PROC8K02590 * 004255 1000314772 02600 JR ER1,58 PROC8K02600 * 004262 1000307200 02610 JR NEXT,0 PROC8K02610 * 004267 3000427416 02620 JC $+5,14 0 013064LU3 PROC8K02620 U * 004274 3000430103 02630 JC $+5,3 PROC8K02630 * 004301 1000314772 02640 JR ER1,58 PROC8K02640 * 004306 1000307200 02650 JR NEXT,0 PROC8K02650 * 004313 3000432016 02660 JC $+5,14 0 013064LD3 PROC8K02660 D * 004320 3000432515 02670 JC $+5,13 PROC8K02670 * 004325 1000314772 02680 JR ER1,58 PROC8K02680 * 004332 1000307200 02690 JR NEXT,0 PROC8K02690 * 004337 3000434417 02700 JC $+5,15 0 013063J00 PROC8K02700 0 * 004344 3000435140 02710 JC $+5,32 PROC8K02710 * 004351 1000304172 02720 JR EXIT,58 8 PROC8K02720 * 004356 1000316100 02730 JR ER2,0 PROC8K02730 * 004363 3000437017 02740 JC $+5,15 0 013063LU3 PROC8K02740 U * 004370 3000437512 02750 JC $+5,10 PROC8K02750 * 004375 1000304172 02760 JR EXIT,58 8 PROC8K02760 * 004402 1000316100 02770 JR ER2,0 PROC8K02770 * 004407 3000441417 02780 JC $+5,15 0 013063LD2 PROC8K02780 D * 004414 3000442114 02790 JC $+5,12 PROC8K02790 * 004421 1000304172 02800 JR EXIT,58 8 PROC8K02800 * 004426 1000316100 02810 JR ER2,0 PROC8K02810 004433 3400314400 02820 CC ER1,0 01013028JT PROC8K02820 * 004440 1000307200 02830 JR NEXT,0 PROC8K02830 * 004445 1000314740 02840 JR ER1,32 0 013028J2- PROC8K02840 2 * 004452 1000307200 02850 JR NEXT,0 PROC8K02850 * 004457 3000446424 02860 JC $+5,20 0 013046J1 PROC8K02860 1 * 004464 1000314747 02870 JR ER1,39 PROC8K02870 * 004471 1000307227 02880 JR NEXT,23 3 PROC8K02880 * 004476 3000450324 02890 JC $+5,20 0 013046LU1 PROC8K02890 U * 004503 1000314773 02900 JR ER1,59 PROC8K02900 * 004510 1000307227 02910 JR NEXT,23 3 PROC8K02910 * 004515 3000452224 02920 JC $+5,20 0 013046LD3 PROC8K02920 D * 004522 1000314764 02930 JR ER1,52 PROC8K02930 * 004527 1000307227 02940 JR NEXT,23 3 PROC8K02940 * 004534 3000454123 02950 JC $+5,19 0 013045J1 PROC8K02950 1 * 004541 1000314746 02960 JR ER1,38 PROC8K02960 * 004546 1000307226 02970 JR NEXT,22 2 PROC8K02970 * 004553 3000456023 02980 JC $+5,19 0 013045LU1 PROC8K02980 U * 004560 1000314776 02990 JR ER1,62 PROC8K02990 * 004565 1000307226 03000 JR NEXT,22 2 PROC8K03000 * 004572 3000457723 03010 JC $+5,19 0 013045LD2 PROC8K03010 D * 004577 1000314764 03020 JR ER1,52 PROC8K03020 * 004604 1000307226 03030 JR NEXT,22 2 PROC8K03030 * 004611 3000461622 03040 JC $+5,18 0 013044J1 PROC8K03040 1 * 004616 1000314745 03050 JR ER1,37 PROC8K03050 * 004623 1000307225 03060 JR NEXT,21 1 PROC8K03060 * 004630 3000463522 03070 JC $+5,18 0 013045LU1 PROC8K03070 U * 004635 1000314775 03080 JR ER1,61 PROC8K03080 * 004642 1000307225 03090 JR NEXT,21 1 PROC8K03090 * 004647 3000465422 03100 JC $+5,18 0 013045LD1 PROC8K03100 D * 004654 1000314764 03110 JR ER1,52 PROC8K03110 * 004661 1000307225 03120 JR NEXT,21 1 PROC8K03120 * 004666 3000637052 03130 JC HEREI,4242 013029 PROC8K03130 9 * 004673 1000304141 03140 JR EXIT,33 3 PROC8K03140 004677 03150 DH EQU $-1 PROC8K03150 * 004700 1000316100 03160 JR ER2,0 PROC8K03160 * 004705 3000637052 03170 JC HEREI,4242 013029J1- PROC8K03170 9 * 004712 1000314761 03180 JR ER1,49 PROC8K03180 * 004717 1000307200 03190 JR NEXT,0 PROC8K03190 * 004724 3000637052 03200 JC HEREI,4242 013029LU0 PROC8K03200 9 * 004731 1000314755 03210 JR ER1,45 PROC8K03210 * 004736 1000307200 03220 JR NEXT,0 PROC8K03220 * 004743 3000637052 03230 JC HEREI,4242 013029LD1 PROC8K03230 9 * 004750 1000314742 03240 JR ER1,34 PROC8K03240 * 004755 1000307200 03250 JR NEXT,0 PROC8K03250 * 004762 3000637052 03260 JC HEREI,4242 013029EQ- PROC8K03260 9 * 004767 3000652252 03270 JC EQ,42 PROC8K03270 * 004774 1000314741 03280 JR ER1,33 PROC8K03280 * 005001 1000307200 03290 JR NEXT,0 PROC8K03290 * 005006 3000637052 03300 JC HEREI,4242 013029HI PROC8K03300 9 * 005013 3000665452 03310 JC AZ,42 PROC8K03310 * 005020 1000314741 03320 JR ER1,33 PROC8K03320 * 005025 1000307200 03330 JR NEXT,0 PROC8K03330 * 005032 3000652252 03340 JC EQ,42 01013030 PROC8K03340 * 005037 1000304142 03350 JR EXIT,34 4 PROC8K03350 * 005044 1000316100 03360 JR ER2,0 PROC8K03360 * 005051 3000507562 03370 JC $+20,50 0 013030J1- PROC8K03370 J * 005056 3000652252 03380 JC EQ,42 PROC8K03380 * 005063 1000314762 03390 JR ER1,50 PROC8K03390 * 005070 1000307200 03400 JR NEXT,0 PROC8K03400 * 005075 3000652252 03410 JC EQ,42 01013030LU0 PROC8K03410 0 * 005102 1000314756 03420 JR ER1,46 PROC8K03420 * 005107 1000307200 03430 JR NEXT,0 PROC8K03430 * 005114 3000652252 03440 JC EQ,42 01013030LD2 PROC8K03440 2 * 005121 1000314743 03450 JR ER1,35 PROC8K03450 * 005126 1000307200 03460 JR NEXT,0 PROC8K03460 * 005133 3000652252 03470 JC EQ,42 01013030EQ PROC8K03470 * 005140 3000237352 03480 JC ZERO,42 2 PROC8K03480 * 005145 1000314742 03490 JR ER1,34 PROC8K03490 * 005152 1000307200 03500 JR NEXT,0 PROC8K03500 * 005157 3000237352 03510 JC ZERO,42 2 013031 PROC8K03510 * 005164 1000304143 03520 JR EXIT,35 5 PROC8K03520 * 005171 1000316100 03530 JR ER2,0 PROC8K03530 * 005176 3000237352 03540 JC ZERO,42 2 013031J1- PROC8K03540 J * 005203 1000314763 03550 JR ER1,51 PROC8K03550 * 005210 1000307200 03560 JR NEXT,0 PROC8K03560 * 005215 3000237352 03570 JC ZERO,42 2 013031LU0 PROC8K03570 L * 005222 1000314756 03580 JR ER1,46 PROC8K03580 * 005227 1000307200 03590 JR NEXT,0 PROC8K03590 * 005234 3000237352 03600 JC ZERO,42 2 013031LD3 PROC8K03600 L * 005241 1000314742 03610 JR ER1,34 PROC8K03610 * 005246 1000307200 03620 JR NEXT,0 PROC8K03620 * 005253 3000237352 03630 JC ZERO,42 2 013031EQ- PROC8K03630 E * 005260 3000652252 03640 JC EQ,42 PROC8K03640 * 005265 1000314743 03650 JR ER1,35 PROC8K03650 * 005272 1000307200 03660 JR NEXT,0 PROC8K03660 * 005277 3000237352 03670 JC ZERO,42 2 013032 PROC8K03670 * 005304 1000304144 03680 JR EXIT,36 6 PROC8K03680 * 005311 1000316100 03690 JR ER2,0 PROC8K03690 * 005316 3000237352 03700 JC ZERO,42 2 013032J1- PROC8K03700 J * 005323 1000314764 03710 JR ER1,52 PROC8K03710 * 005330 1000307200 03720 JR NEXT,0 PROC8K03720 * 005335 3000237352 03730 JC ZERO,42 2 013032LU1 PROC8K03730 L * 005342 1000314754 03740 JR ER1,44 PROC8K03740 * 005347 1000307200 03750 JR NEXT,0 PROC8K03750 * 005354 3000237352 03760 JC ZERO,42 2 013032LD0 PROC8K03760 L * 005361 1000314745 03770 JR ER1,37 PROC8K03770 * 005366 1000307200 03780 JR NEXT,0 PROC8K03780 * 005373 3000237352 03790 JC ZERO,42 2 013032EQ- PROC8K03790 E * 005400 3000652252 03800 JC EQ,42 PROC8K03800 * 005405 1000314744 03810 JR ER1,36 PROC8K03810 * 005412 1000307200 03820 JR NEXT,0 PROC8K03820 * 005417 3000652252 03830 JC EQ,42 01013032HI- PROC8K03830 - * 005424 3000637052 03840 JC HEREI,4242 PROC8K03840 * 005431 1000314744 03850 JR ER1,36 PROC8K03850 * 005436 1000307200 03860 JR NEXT,0 PROC8K03860 * 005443 3000665452 03870 JC AZ,42 01013033 PROC8K03870 * 005450 1000304145 03880 JR EXIT,37 7 PROC8K03880 * 005455 1000316100 03890 JR ER2,0 PROC8K03890 * 005462 3000665452 03900 JC AZ,42 01013033J1- PROC8K03900 - * 005467 1000314765 03910 JR ER1,53 PROC8K03910 * 005474 1000307200 03920 JR NEXT,0 PROC8K03920 * 005501 3000665452 03930 JC AZ,42 01013033LU1 PROC8K03930 1 * 005506 1000314741 03940 JR ER1,33 PROC8K03940 * 005513 1000307200 03950 JR NEXT,0 PROC8K03950 * 005520 3000665452 03960 JC AZ,42 01013033LD1 PROC8K03960 1 * 005525 1000314746 03970 JR ER1,38 PROC8K03970 * 005532 1000307200 03980 JR NEXT,0 PROC8K03980 * 005537 3000665452 03990 JC AZ,42 01013033AZ PROC8K03990 * 005544 3000652252 04000 JC EQ,42 PROC8K04000 * 005551 1000314745 04010 JR ER1,37 PROC8K04010 * 005556 1000307200 04020 JR NEXT,0 PROC8K04020 * 005563 3000700652 04030 JC AN,42 01013034 PROC8K04030 * 005570 1000304146 04040 JR EXIT,38 8 PROC8K04040 * 005575 1000316100 04050 JR ER2,0 PROC8K04050 * 005602 3000700652 04060 JC AN,42 01013034J1- PROC8K04060 - * 005607 1000314766 04070 JR ER1,54 PROC8K04070 * 005614 1000307200 04080 JR NEXT,0 PROC8K04080 * 005621 3000700652 04090 JC AN,42 01013034LU1 PROC8K04090 1 * 005626 3000314442 04100 JC ER1,34 PROC8K04100 * 005633 1000307200 04110 JR NEXT,0 PROC8K04110 * 005640 3000700652 04120 JC AN,42 01013034LD2 PROC8K04120 2 * 005645 1000314745 04130 JR ER1,37 PROC8K04130 * 005652 1000307200 04140 JR NEXT,0 PROC8K04140 * 005657 3000700652 04150 JC AN,42 01013034AN PROC8K04150 * 005664 3000652252 04160 JC EQ,42 PROC8K04160 * 005671 1000314746 04170 JR ER1,38 PROC8K04170 * 005676 1000307200 04180 JR NEXT,0 -ROC8K04180 * 005703 3000714052 04190 JC BOF,42 0 013035 PROC8K04190 * 005710 1000304147 04200 JR EXIT,39 9 PROC8K04200 * 005715 1000316100 04210 JR ER2,0 PROC8K04210 * 005722 3000714052 04220 JC BOF,42 0 013035J1- PROC8K04220 1 * 005727 1000314767 04230 JR ER1,55 PROC8K04230 * 005734 1000307200 04240 JR NEXT,0 -ROC8K04240 * 005741 3000714052 04250 JC BOF,42 0 013035LU1 PROC8K04250 U * 005746 1000314753 04260 JR ER1,43 PROC8K04260 * 005753 1000307200 04270 JR NEXT,0 PROC8K04270 * 005760 3000714052 04280 JC BOF,42 0 013035LD3 PROC8K04280 D * 005765 1000314745 04290 JR ER1,37 PROC8K04290 * 005772 1000307200 04300 JR NEXT,0 PROC8K04300 * 005777 3000714052 04310 JC BOF,42 0 013035BOF- PROC8K04310 O * 006004 3000652252 04320 JC EQ,42 PROC8K04320 * 006011 1000314747 04330 JR ER1,39 PROC8K04330 * 006016 1000307200 04340 JR NEXT,0 PROC8K04340 * 006023 3000730452 04350 JC DOF,42 1 125095 PROC8K04350 * 006030 3000604266 04360 JC $+10,54 4 PROC8K04360 * 006035 1000314700 04370 JR ER1,0 PROC8K04370 * 006042 1000307226 04380 JR NEXT,22 2 PROC8K04380 * 006047 3000730452 04390 JC DOF,42 0 013036 PROC8K04390 * 006054 3000606650 04400 JC $+10,40 0 PROC8K04400 * 006061 1000314700 04410 JR ER1,0 PROC8K04410 * 006066 1000307226 04420 JR NEXT,22 2 PROC8K04420 * 006073 3000730452 04430 JC DOF,42 0 013036J1- PROC8K04430 1 * 006100 1000314770 04440 JR ER1,56 PROC8K04440 * 006105 1000307226 04450 JR NEXT,22 2 PROC8K04450 * 006112 3000467752 04460 JC DH,42 01013036LU2 PROC8K04460 2 * 006117 1000314744 04470 JR ER1,36 PROC8K04470 * 006124 1000307226 04480 JR NEXT,22 2 PROC8K04480 * 006131 3000730452 04490 JC DOF,42 0 013036LD0 PROC8K04490 D * 006136 1000314753 04500 JR ER1,43 PROC8K04500 * 006143 1000307226 04510 JR NEXT,22 2 PROC8K04510 * 006150 3000730452 04520 JC DOF,42 0 013036DOF,010151 PROC8K04520 O * 006155 3000616250 04530 JC $+5,40 PROC8K04530 * 006162 1000314750 04540 JR ER1,40 PROC8K04540 * 006167 1000307226 04550 JR NEXT,22 2 PROC8K04550 * 006174 3000730452 04560 JC DOF,42 0 010151J2 PROC8K04560 2 * 006201 3000620626 04570 JC $+5,22 PROC8K04570 * 006206 3000621310 04580 JC $+5,8 PROC8K04580 * 006213 1000304150 04590 JR EXIT,40 0 -ROC8K04590 * 006220 1000316100 04600 JR ER2,0 PROC8K04600 * 006225 3000730452 04610 JC DOF,42 0 010151J1- PROC8K04610 1 * 006232 3000623726 04620 JC $+5,22 PROC8K04620 * 006237 3000624470 04630 JC $+5,56 PROC8K04630 * 006244 1000304150 04640 JR EXIT,40 0 PROC8K04640 * 006251 1000316100 04650 JR ER2,0 PROC8K04650 * 006256 3000730452 04660 JC DOF,42 0 010151LU2 PROC8K04660 U * 006263 3000627026 04670 JC $+5,22 PROC8K04670 * 006270 3000627544 04680 JC $+5,36 PROC8K04680 * 006275 1000304150 04690 JR EXIT,40 0 PROC8K04690 * 006302 1000316100 04700 JR ER2,0 PROC8K04700 * 006307 3000730452 04710 JC DOF,42 0 010151LD0 PROC8K04710 D * 006314 3000632126 04720 JC $+5,22 PROC8K04720 * 006321 3000632653 04730 JC $+5,43 PROC8K04730 * 006326 3000634050 04740 JC $+10,40 0 PROC8K04740 * 006333 1000314700 04750 JR ER1,0 PROC8K04750 * 006340 1000307235 04760 JR NEXT,29 9 PROC8K04760 006345 4400244300 04770 SC IND,0 03037032 PROC8K04770 * 006352 3000637052 04780 JC HEREI,4242 PROC8K04780 * 006357 3000244351 04790 JC IND,41 PROC8K04790 006364 3400244301 04800 CC IND,1 PROC8K04800 006370 04810 HEREI EQU $-1 PROC8K04810 * 006371 1000304142 04820 JR EXIT,34 4 PROC8K04820 * 006376 1000316100 04830 JR ER2,0 PROC8K04830 006403 4400244301 04840 SC IND,1 03037032HI PROC8K04840 * 006410 3000237352 04850 JC ZERO,42 2 PROC8K04850 * 006415 3000244351 04860 JC IND,41 PROC8K04860 006422 3400244300 04870 CC IND,0 PROC8K04870 * 006427 1000304142 04880 JR EXIT,34 4 PROC8K04880 * 006434 1000316100 04890 JR ER2,0 PROC8K04890 006441 4400244300 04900 SC IND,0 03037032JT PROC8K04900 * 006446 3000637052 04910 JC HEREI,4242 PROC8K04910 006453 3400244351 04920 CC IND,41 PROC8K04920 006460 3400244300 04930 CC IND,0 -ROC8K04930 * 006465 1000304142 04940 JR EXIT,34 4 PROC8K04940 * 006472 1000316100 04950 JR ER2,0 PROC8K04950 006477 4400244300 04960 SC IND,0 03037031 PROC8K04960 * 006504 3000652252 04970 JC EQ,42 PROC8K04970 * 006511 3000244351 04980 JC IND,41 PROC8K04980 006516 3400244302 04990 CC IND,2 PROC8K04990 006522 05000 EQ EQU $-1 PROC8K05000 * 006523 1000304142 05010 JR EXIT,34 4 PROC8K05010 * 006530 1000316100 05020 JR ER2,0 PROC8K05020 006535 4400244302 05030 SC IND,2 03037031EQ PROC8K05030 * 006542 3000237352 05040 JC ZERO,42 2 PROC8K05040 * 006547 3000244351 05050 JC IND,41 PROC8K05050 006554 3400244300 05060 CC IND,0 PROC8K05060 * 006561 1000304142 05070 JR EXIT,34 4 PROC8K05070 * 006566 1000316100 05080 JR ER2,0 PROC8K05080 006573 4400244300 05090 SC IND,0 03037031JT PROC8K05090 * 006600 3000652252 05100 JC EQ,42 PROC8K05100 006605 3400244351 05110 CC IND,41 PROC8K05110 006612 3400244300 05120 CC IND,0 PROC8K05120 * 006617 1000304142 05130 JR EXIT,34 4 PROC8K05130 * 006624 1000316100 05140 JR ER2,0 PROC8K05140 006631 4400244300 05150 SC IND,0 03037030 PROC8K05150 * 006636 3000665452 05160 JC AZ,42 PROC8K05160 * 006643 3000244351 05170 JC IND,41 PROC8K05170 006650 3400244304 05180 CC IND,4 PROC8K05180 006654 05190 AZ EQU $-1 PROC8K05190 * 006655 1000304142 05200 JR EXIT,34 4 PROC8K05200 * 006662 1000316100 05210 JR ER2,0 PROC8K05210 006667 4400244304 05220 SC IND,4 03037030AZ PROC8K05220 * 006674 3000237352 05230 JC ZERO,42 2 PROC8K05230 * 006701 3000244351 05240 JC IND,41 PROC8K05240 006706 3400244300 05250 CC IND,0 PROC8K05250 * 006713 1000304142 05260 JR EXIT,34 4 PROC8K05260 * 006720 1000316100 05270 JR ER2,0 PROC8K05270 006725 4400244300 05280 SC IND,0 03037030JT PROC8K05280 * 006732 3000665452 05290 JC AZ,42 PROC8K05290 006737 3400244351 05300 CC IND,41 PROC8K05300 006744 3400244300 05310 CC IND,0 PROC8K05310 * 006751 1000304142 05320 JR EXIT,34 4 PROC8K05320 * 006756 1000316100 05330 JR ER2,0 PROC8K05330 006763 4400244300 05340 SC IND,0 03036004 PROC8K05340 * 006770 3000700652 05350 JC AN,42 PROC8K05350 * 006775 3000244351 05360 JC IND,41 PROC8K05360 007002 3400244310 05370 CC IND,8 PROC8K05370 007006 05380 AN EQU $-1 PROC8K05380 * 007007 1000304142 05390 JR EXIT,34 4 PROC8K05390 * 007014 1000316100 05400 JR ER2,0 PROC8K05400 007021 4400244310 05410 SC IND,8 03036004AN PROC8K05410 * 007026 3000237352 05420 JC ZERO,42 2 PROC8K05420 * 007033 3000244351 05430 JC IND,41 PROC8K05430 007040 3400244300 05440 CC IND,0 PROC8K05440 * 007045 1000304142 05450 JR EXIT,34 4 PROC8K05450 * 007052 1000316100 05460 JR ER2,0 PROC8K05460 007057 4400244300 05470 SC IND,0 03036004JT PROC8K05470 * 007064 3000700652 05480 JC AN,42 PROC8K05480 007071 3400244351 05490 CC IND,41 PROC8K05490 007076 3400244300 05500 CC IND,0 PROC8K05500 * 007103 1000304142 05510 JR EXIT,34 4 PROC8K05510 * 007110 1000316100 05520 JR ER2,0 PROC8K05520 007115 4400244300 05530 SC IND,0 03036003 PROC8K05530 * 007122 3000714052 05540 JC BOF,42 PROC8K05540 * 007127 3000244351 05550 JC IND,41 PROC8K05550 007134 3400244320 05560 CC IND,16 PROC8K05560 007140 05570 BOF EQU $-1 PROC8K05570 * 007141 1000304142 05580 JR EXIT,34 4 PROC8K05580 * 007146 1000316100 05590 JR ER2,0 PROC8K05590 007153 4400244320 05600 SC IND,16 0 036003BOF PROC8K05600 O * 007160 3000237352 05610 JC ZERO,42 2 PROC8K05610 * 007165 3000244351 05620 JC IND,41 PROC8K05620 007172 3400244300 05630 CC IND,0 PROC8K05630 * 007177 1000304142 05640 JR EXIT,34 4 PROC8K05640 * 007204 1000316100 05650 JR ER2,0 PROC8K05650 007211 4400244300 05660 SC IND,0 03036003JT PROC8K05660 * 007216 3000714052 05670 JC BOF,42 PROC8K05670 007223 3400244351 05680 CC IND,41 PROC8K05680 * 007230 3000652252 05690 JC EQ,42 PROC8K05690 007235 3400244300 05700 CC IND,0 PROC8K05700 * 007242 1000304142 05710 JR EXIT,34 4 PROC8K05710 * 007247 1000316100 05720 JR ER2,0 PROC8K05720 * 007254 3000730452 05730 JC DOF,42 036002 PROC8K05730 * 007261 3000727366 05740 JC $+10,54 4 PROC8K05740 * 007266 3000731200 05750 JC $+20,0 PROC8K05750 * 007273 3000244351 05760 JC IND,41 PROC8K05760 007300 3400244340 05770 CC IND,32 PROC8K05770 007304 05780 DOF EQU $-1 PROC8K05780 * 007305 3000731742 05790 JC $+10,34 4 PROC8K05790 * 007312 1000314700 05800 JR ER1,0 PROC8K05800 * 007317 1000307226 05810 JR NEXT,22 2 PROC8K05810 * 007324 3000237352 05820 JC ZERO,42 2 036002DOF PROC8K05820 2 * 007331 3000244351 05830 JC IND,41 PROC8K05830 007336 3400244300 05840 CC IND,0 PROC8K05840 * 007343 1000304142 05850 JR EXIT,34 4 PROC8K05850 * 007350 1000316100 05860 JR ER2,0 PROC8K05860 007355 4400244300 05870 SC IND,0 03036002JT PROC8K05870 * 007362 3000730452 05880 JC DOF,42 PROC8K05880 * 007367 3000737426 05890 JC $+5,22 PROC8K05890 007374 3400244351 05900 CC IND,41 PROC8K05900 007401 3400244300 05910 CC IND,0 PROC8K05910 * 007406 3000742042 05920 JC $+10,34 4 PROC8K05920 * 007413 1000314700 05930 JR ER1,0 PROC8K05930 * 007420 3000742550 05940 JC $+5,40 PROC8K05940 * 007425 1000307235 05950 JR NEXT,29 9 -ROC8K05950 * 007432 3000237352 05960 JC ZERO,42 2 011007FT105 PROC8K05960 F 007437 2000637052 05970 FT HEREI,4242 PROC8K05970 * 007444 1000314741 05980 JR ER1,33 PROC8K05980 * 007451 1000307200 05990 JR NEXT,0 PROC8K05990 * 007456 3000637052 06000 JC HEREI,4242 011016FT105 PROC8K06000 6 007463 2000237352 06010 FT ZERO,42 2 PROC8K06010 * 007470 1000304141 06020 JR EXIT,33 3 PROC8K06020 * 007475 1000316100 06030 JR ER2,0 PROC8K06030 * 007502 3000237352 06040 JC ZERO,42 2 011100FT105 PROC8K06040 F 007507 2000652252 06050 FT EQ,42 PROC8K06050 * 007514 1000314742 06060 JR ER1,34 PROC8K06060 * 007521 1000307200 06070 JR NEXT,0 PROC8K06070 * 007526 3000652252 06080 JC EQ,42 01011115FT105 PROC8K06080 1 007533 2000237352 06090 FT ZERO,42 2 PROC8K06090 * 007540 1000304142 06100 JR EXIT,34 4 PROC8K06100 * 007545 1000316100 06110 JR ER2,0 PROC8K06110 * 007552 3000237352 06120 JC ZERO,42 2 011032FT105 PROC8K06120 F 007557 2000665452 06130 FT AZ,42 PROC8K06130 * 007564 1000314745 06140 JR ER1,37 PROC8K06140 * 007571 1000307200 06150 JR NEXT,0 -ROC8K06150 * 007576 3000665452 06160 JC AZ,42 01011045FT105 PROC8K06160 1 007603 2000237352 06170 FT ZERO,42 2 PROC8K06170 * 007610 1000304145 06180 JR EXIT,37 7 PROC8K06180 * 007615 1000316100 06190 JR ER2,0 PROC8K06190 * 007622 3000237352 06200 JC ZERO,42 2 011070FT105 PROC8K06200 F 007627 2000700652 06210 FT AN,42 PROC8K06210 * 007634 1000314746 06220 JR ER1,38 PROC8K06220 * 007641 1000307200 06230 JR NEXT,0 PROC8K06230 * 007646 3000700652 06240 JC AN,42 01011085FT105 PROC8K06240 1 007653 2000237352 06250 FT ZERO,42 2 PROC8K06250 * 007660 1000304146 06260 JR EXIT,38 8 PROC8K06260 * 007665 1000316100 06270 JR ER2,0 06270 * 007672 3000237352 06280 JC ZERO,42 2 010133FT105 PROC8K06280 F 007677 2000714052 06290 FT BOF,42 PROC8K06290 * 007704 1000314747 06300 JR ER1,39 PROC8K06300 * 007711 1000307200 06310 JR NEXT,0 PROC8K06310 * 007716 3000714052 06320 JC BOF,42 0 010124FT105 POC8K06320 T 007723 2000237352 06330 FT ZERO,42 2 PROC8K06330 * 007730 1000304147 06340 JR EXIT,39 9 PROC8K06340 * 007735 1000316100 06350 JR ER2,0 PROC8K06350 * 007742 3000237352 06360 JC ZERO,42 2 010156FT105 PROC8K06360 F 007747 2000730452 06370 FT DOF,42 PROC8K06370 * 007754 1000314750 06380 JR ER1,40 PROC8K06380 * 007761 1000307200 06390 JR NEXT,0 PROC8K06390 * 007766 3000730452 06400 JC DOF,42 0 010152FT105 PROC8K06400 T * 007773 3001000026 06410 JC $+5,22 PROC8K06410 010000 2000237352 06420 FT ZERO,42 2 PROC8K06420 * 010005 3001001750 06430 JC $+10,40 0 PROC8K06430 * 010012 1000314700 06440 JR ER1,0 PROC8K06440 * 010017 1000307235 06450 JR NEXT,29 9 PROC8K06450 * 010024 3001003133 06460 JC $+5,27 1 125058,013038 PROC8K06460 0 * 010031 3001003632 06470 JC $+5,26 PROC8K06470 * 010036 1000304155 06480 JR EXIT,45 5 PROC8K06480 * 010043 1000316100 06490 JR ER2,0 PROC8K06490 * 010050 3001005533 06500 JC $+5,27 1 125058J01 PROC8K06500 0 * 010055 3001006272 06510 JC $+5,58 PROC8K06510 * 010062 1000314755 06520 JR ER1,45 PROC8K06520 * 010067 1000307200 06530 JR NEXT,0 PROC8K06530 * 010074 3001010133 06540 JC $+5,27 1 125058LU2 PROC8K06540 U * 010101 3001010640 06550 JC $+5,32 PROC8K06550 * 010106 1000314755 06560 JR ER1,45 PROC8K06560 * 010113 1000307200 06570 JR NEXT,0 PROC8K06570 * 010120 3001012533 06580 JC $+5,27 1 125058LD2 PROC8K06580 D * 010125 3001013230 06590 JC $+5,24 PROC8K06590 * 010132 1000314755 06600 JR ER1,45 PROC8K06600 * 010137 1000307200 06610 JR NEXT,0 PROC8K06610 * 010144 3001015132 06620 JC $+5,26 1 125059,013038IOS3 PROC8K06620 0 * 010151 3001015633 06630 JC $+5,27 PROC8K06630 * 010156 1000314755 06640 JR ER1,45 PROC8K06640 * 010163 1000307200 06650 JR NEXT,0 PROC8K06650 * 010170 3001017532 06660 JC $+5,26 1 125059J01 PROC8K06660 0 * 010175 3001020213 06670 JC $+5,11 PROC8K06670 * 010202 1000304155 06680 JR EXIT,45 5 PROC8K06680 * 010207 1000316100 06690 JR ER2,0 PROC8K06690 * 010214 3001022132 06700 JC $+5,26 1 125059LU2 -ROC8K06700 U * 010221 3001022637 06710 JC $+5,31 PROC8K06710 * 010226 1000304155 06720 JR EXIT,45 5 PROC8K06720 * 010233 1000316100 06730 JR ER2,0 PROC8K06730 * 010240 3001024532 06740 JC $+5,26 1 125059LD3 PROC8K06740 D * 010245 3001025231 06750 JC $+5,25 PROC8K06750 * 010252 1000304155 06760 JR EXIT,45 5 PROC8K06760 * 010257 1000316100 06770 JR ER2,0 PROC8K06770 * 010264 3001027132 06780 JC $+5,26 0 013038J1- PROC8K06780 1 * 010271 1000314775 06790 JR ER1,61 PROC8K06790 * 010276 1000307233 06800 JR NEXT,27 7 PROC8K06800 * 010303 3001031032 06810 JC $+5,26 0 013038LU3 PROC8K06810 U * 010310 1000314745 06820 JR ER1,37 PROC8K06820 * 010315 1000307233 06830 JR NEXT,27 7 PROC8K06830 * 010322 3001032732 06840 JC $+5,26 0 013038LD1 PROC8K06840 D * 010327 1000314756 06850 JR ER1,46 PROC8K06850 * 010334 1000307233 06860 JR NEXT,27 7 PROC8K06860 * 010341 3001034637 06870 JC $+5,31 1 125022,013039 PROC8K06870 0 * 010346 3001035334 06880 JC $+5,28 PROC8K06880 * 010353 1000304157 06890 JR EXIT,47 7 PROC8K06890 * 010360 1000316100 06900 JR ER2,0 PROC8K06900 * 010365 3001037237 06910 JC $+5,31 1 125022J01 PROC8K06910 0 * 010372 3001037714 06920 JC $+5,12 PROC8K06920 * 010377 1000314757 06930 JR ER1,47 PROC8K06930 * 010404 1000307200 06940 JR NEXT,0 PROC8K06940 * 010411 3001041637 06950 JC $+5,31 1 125022LU3 PROC8K06950 U * 010416 3001042330 06960 JC $+5,24 PROC8K06960 * 010423 1000314757 06970 JR ER1,47 PROC8K06970 * 010430 1000307200 06980 JR NEXT,0 PROC8K06980 * 010435 3001044237 06990 JC $+5,31 1 125022LD0 PROC8K06990 D * 010442 3001044740 07000 JC $+5,32 PROC8K07000 * 010447 1000314757 07010 JR ER1,47 PROC8K07010 * 010454 1000307200 07020 JR NEXT,0 PROC8K07020 * 010461 3001046634 07030 JC $+5,28 1 125023,013039IOS2 PROC8K07030 0 * 010466 3001047337 07040 JC $+5,31 PROC8K07040 * 010473 1000314757 07050 JR ER1,47 PROC8K07050 * 010500 1000307200 07060 JR NEXT,0 PROC8K07060 * 010505 3001051234 07070 JC $+5,28 1 125023J01 PROC8K07070 0 * 010512 3001051777 07080 JC $+5,63 PROC8K07080 * 010517 1000304157 07090 JR EXIT,47 7 PROC8K07090 * 010524 1000316100 07100 JR ER2,0 PROC8K07100 * 010531 3001053634 07110 JC $+5,28 125023LU3 PROC8K07110 0 * 010536 3001054327 07120 JC $+5,23 PROC8K07120 * 010543 1000304157 07130 JR EXIT,47 7 PROC8K07130 * 010550 1000316100 07140 JR ER2,0 PROC8K07140 * 010555 3001056234 07150 JC $+5,28 1 125023LD3 PROC8K07150 D * 010562 3001056735 07160 JC $+5,29 PROC8K07160 * 010567 1000304157 07170 JR EXIT,47 7 PROC8K07170 * 010574 1000316100 07180 JR ER2,0 PROC8K07180 * 010601 3001060634 07190 JC $+5,28 0 013039J1- PROC8K07190 1 * 010606 1000314777 07200 JR ER1,63 PROC8K07200 * 010613 1000307237 07210 JR NEXT,31 1 PROC8K07210 * 010620 3001062534 07220 JC $+5,28 0 013039LU3 PROC8K07220 U * 010625 1000314753 07230 JR ER1,43 PROC8K07230 * 010632 1000307237 07240 JR NEXT,31 1 PROC8K07240 * 010637 3001064434 07250 JC $+5,28 0 013039LD3 PROC8K07250 D * 010644 1000314756 07260 JR ER1,46 PROC8K07260 * 010651 1000307237 07270 JR NEXT,31 1 PROC8K07270 * 010656 3001066334 07280 JC $+5,28 T TEST CLASS 2 INHIBIT PROC8K07280 A * 010663 3000730452 07290 JC DOF,42 PROC8K07290 * 010670 3001070250 07300 JC $+10,40 0 PROC8K07300 * 010675 3001071400 07310 JC $+15,0 PROC8K07310 * 010702 3001071466 07320 JC $+10,54 4 PROC8K07320 * 010707 1000304137 07330 JR EXIT,31 1 PROC8K07330 * 010714 1000316100 07340 JR ER2,0 PROC8K07340 * 010721 3001072616 07350 JC $+5,14 0 013068NW PROC8K07350 W * 010726 1000314772 07360 JR ER1,58 PROC8K07360 * 010733 1000307200 07370 JR NEXT,0 PROC8K07370 * 010740 3001074517 07380 JC $+5,15 0 013068J1 PROC8K07380 1 * 010745 3001075752 07390 JC $+10,42 2 PROC8K07390 * 010752 1000304116 07400 JR EXIT,14 4 PROC8K07400 * 010757 1000316100 07410 JR ER2,0 PROC8K07410 * 010764 3001077117 07420 JC $+5,15 0 013068LU2 PROC8K07420 U * 010771 1000314776 07430 JR ER1,62 PROC8K07430 * 010776 1000307216 07440 JR NEXT,14 4 PROC8K07440 * 011003 3001101017 07450 JC $+5,15 0 013068LD2 PROC8K07450 D * 011010 1000314773 07460 JR ER1,59 PROC8K07460 * 011015 1000307216 07470 JR NEXT,14 4 PROC8K07470 * 011022 3001102754 07480 JC $+5,44 0 013077NW2 PROC8K07480 W * 011027 1000314754 07490 JR ER1,44 PROC8K07490 * 011034 1000307200 07500 JR NEXT,0 PROC8K07500 011041 4020406777 07510 XF 32,0677777,0,1 013037 IOS1 07510 011046 4020006777 07520 XF 0,06777,7,0,1 07520 * 011053 1000314753 07530 JR ER1,43 PROC8K07530 * 011060 1000307200 07540 JR NEXT,0 PROC8K07540 * 011065 3001107236 07550 JC $+5,30 0 013040IR1 PROC8K07550 R * 011072 1000314761 07560 JR ER1,49 PROC8K07560 * 011077 1000307200 07570 JR NEXT,0 PROC8K07570 * 011104 3001111171 07580 JC $+5,57 0 013072TI PROC8K07580 I * 011111 1000314771 07590 JR ER1,57 PROC8K07590 * 011116 1000307200 07600 JR NEXT,0 PROC8K07600 * 011123 3201114200 07610 JL $+15,0 0 013157,012215, CHECK JL PROC8K07610 0 011130 3401112700 07620 CC $-1,0 PROC8K07620 * 011135 1000304142 07630 JR EXIT,34 4 PROC8K07630 * 011142 1000316100 07640 JR ER2,0 PROC8K07640 011147 4401116077 07650 SC $+9,63 0 009058,003106+084,012211 PROC8K07650 0 * 011154 3201116677 07660 JL $+10,63 3 PROC8K07660 * 011161 3001120000 07670 JC $+15,0 PROC8K07670 011166 3401116076 07680 CC $-6,62 PROC8K07680 * 011173 1000304142 07690 JR EXIT,34 4 PROC8K07690 * 011200 1000316100 07700 JR ER2,0 PROC8K07700 011205 4401121676 07710 SC $+9,62 0 009056+054,003104+102 PROC8K07710 0 * 011212 3201121776 07720 JL $+5,62 PROC8K07720 011217 3401121675 07730 CC $-1,61 PROC8K07730 * 011224 1000304142 07740 JR EXIT,34 4 PROC8K07740 * 011231 1000316100 07750 JR ER2,0 PROC8K07750 011236 4401124774 07760 SC $+9,60 0 009052+050,003100+098 PROC8K07760 0 * 011243 3201125074 07770 JL $+5,60 PROC8K07770 011250 3401124773 07780 CC $-1,59 PROC8K07780 * 011255 1000304142 07790 JR EXIT,34 4 PROC8K07790 * 011262 1000316100 07800 JR ER2,0 PROC8K07800 011267 4401130070 07810 SC $+9,56 0 009048+046,003096+094 PROC8K07810 0 * 011274 3201130170 07820 JL $+5,56 PROC8K07820 011301 3401130067 07830 CC $-1,55 PROC8K07830 * 011306 1000304142 07840 JR EXIT,34 4 PROC8K07840 * 011313 1000316100 07850 JR ER2,0 PROC8K07850 011320 4401133160 07860 SC $+9,48 0 009044+042,003092+090 PROC8K07860 0 * 011325 3201133260 07870 JL $+5,48 PROC8K07870 011332 3401133157 07880 CC $-1,47 PROC8K07880 * 011337 1000304142 07890 JR EXIT,34 4 PROC8K07890 * 011344 1000316100 07900 JR ER2,0 PROC8K07900 011351 4401136240 07910 SC $+9,32 0 009040+038,003088+086 PROC8K07910 0 * 011356 3201136340 07920 JL $+5,32 PROC8K07920 011363 3401136237 07930 CC $-1,31 PROC8K07930 * 011370 1000304142 07940 JR EXIT,34 4 POC8K07940 * 011375 1000316100 07950 JR ER2,0 PROC8K07950 011402 4400244300 07960 SC IND,0 CHCHECK SC PROC8K07960 011407 4400244352 07970 SC IND,42 PROC8K07970 011414 3400244352 07980 CC IND,42 PROC8K07980 * 011421 1000304142 07990 JR EXIT,34 4 PROC8K07990 * 011426 1000316100 08000 JR ER2,0 PROC8K08000 011433 4400244300 08010 SC IND,0 PROC8K08010 011440 4400244325 08020 SC IND,21 PROC8K08020 011445 3400244325 08030 CC IND,21 PROC8K08030 * 011452 1000304142 08040 JR EXIT,34 4 PROC8K08040 * 011457 1000316100 08050 JR ER2,0 PROC8K08050 011464 3400237302 08060 CC ZERO,2 CHECK CC2,0 PROC8K08060 C * 011471 1000304141 08070 JR EXIT,33 3 PROC8K08070 * 011476 1000316100 08080 JR ER2,0 PROC8K08080 011503 3400164003 08090 CC K17,3 CHCHECK CC3,3 PROC8K08090 3 * 011510 1000304142 08100 JR EXIT,34 4 PROC8K08100 * 011515 1000316100 08110 JR ER2,0 PROC8K08110 * 011522 3000652252 08120 JC EQ,42 CHCHECK 21,42 PROC8K08120 , 011527 3401152625 08130 CC $-1,21 PROC8K08130 * 011534 1000304144 08140 JR EXIT,36 6 PROC8K08140 * 011541 1000316100 08150 JR ER2,0 PROC8K08150 * 011546 3000652252 08160 JC EQ,42 C CHECK 42,21 PROC8K08160 2 011553 3401153352 08170 CC $-16,42 2 PROC8K08170 * 011560 1000304141 08180 JR EXIT,33 3 PROC8K08180 * 011565 1000316100 08190 JR ER2,0 PROC8K08190 * 011572 3000237352 08200 JC ZERO,42 2 CHECK LS, 011101 F5- PROC8K08200 011577 4400244300 08210 SC IND,0 POC8K08210 011604 6400244300 08220 LS IND,0 PROC8K08220 * 011611 3001163042 08230 JC $+15,34 4 PROC8K08230 011616 3400244300 08240 CC IND,0 PROC8K08240 * 011623 1000304142 08250 JR EXIT,34 4 PROC8K08250 * 011630 1000316100 08260 JR ER2,0 PROC8K08260 * 011635 3000637052 08270 JC HEREI,4242 CHECK LS, 1S MEM. PROC8K08270 K 011642 4400244377 08280 SC IND,077 7 PROC8K08280 011647 6400244300 08290 LS IND,0 PROC8K08290 * 011654 3001167344 08300 JC $+15,36 6 PROC8K08300 011661 3400244377 08310 CC IND,077 7 PROC8K08310 * 011666 1000304142 08320 JR EXIT,34 4 PROC8K08320 * 011673 1000316100 08330 JR ER2,0 PROC8K08330 * 011700 3000637052 08340 JC HEREI,4242 CHECK LS, OS MEM. PROC8K08340 K 011705 4400244300 08350 SC IND,0 PROC8K08350 011712 6400244377 08360 LS IND,077 7 PROC8K08360 * 011717 3001173644 08370 JC $+15,36 6 PROC8K08370 011724 3400244377 08380 CC IND,077 7 PROC8K08380 * 011731 1000304142 08390 JR EXIT,34 4 PROC8K08390 * 011736 1000316100 08400 JR ER2,0 PROC8K08400 011743 4400244352 08410 SC IND,42 C CHECK LP 42,25 PROC8K08410 P 011750 5400244331 08420 LP IND,25 PROC8K08420 011755 3400244310 08430 CC IND,8 PROC8K08430 * 011762 1000304142 08440 JR EXIT,34 4 PROC8K08440 * 011767 1000316100 08450 JR ER2,0 PROC8K08450 011774 4400244352 08460 SC IND,42 C CHECK LT 2,0 PROC8K08460 T 012001 1400244300 08470 LC IND,0 PROC8K08470 * 012006 1000304142 08480 JR EXIT,34 4 PROC8K08480 * 012013 1000316100 08490 JR ER2,0 PROC8K08490 012020 4400244343 08500 SC IND,35 C CHECK LT 35,54 PROC8K08500 T 012025 1400244366 08510 LC IND,54 PROC8K08510 * 012032 1000304141 08520 JR EXIT,33 3 PROC8K08520 * 012037 1000316100 08530 JR ER2,0 PROC8K08530 012044 4400244353 08540 SC IND,43 C CHECK LT 3,42 PROC8K08540 T 012051 1400244352 08550 LC IND,42 PROC8K08550 * 012056 1000304142 08560 JR EXIT,34 4 PROC8K08560 * 012063 1000316100 08570 JR ER2,0 PROC8K08570 012070 5600163102 08580 BA1 K14,2 C CHECK CB,008044 PROC8K08580 B 012075 5600163122 08590 BA2 K14,2 PROC8K08590 012102 7000001762 08600 CB2 15,2 PROC8K08600 012107 7000001762 08610 CB2 15,2 -ROC8K08610 * 012114 1000304142 08620 JR EXIT,34 4 PROC8K08620 * 012121 1000316100 08630 JR ER2,0 PROC8K08630 012126 5600237303 08640 BA1 ZERO,3 C CHECK BA,NO SENT,2 PROC8K08640 A 012133 5600162502 08650 BA1 K13,2 OCT 1740 PROC8K08650 012140 7000162543 08660 CB1 K13,3 OCT 00 17 40 PROC8K08660 * 012145 1000304142 08670 JR EXIT,34 4 PROC8K08670 * 012152 1000316100 08680 JR ER2,0 -ROC8K08680 012157 5600237303 08690 BA1 ZERO,3 C CHECK BA,SENT,2 PROC8K08690 A 012164 5600163142 08700 BD1 K14,2 OCOCT5264 PROC8K08700 012171 7000254343 08710 CB1 K01+3,3 3 OCT 631244 PROC8K08710 * 012176 1000304142 08720 JR EXIT,34 4 PROC8K08720 * 012203 1000316100 08730 JR ER2,0 PROC8K08730 012210 5600237300 08740 BA1 ZERO,16 6 CHECK BA,SENT,AR0,16 PROC8K08740 B 012215 5600156540 08750 BD1 K08,16 PROC8K08750 012222 7000162540 08760 CB1 K13,16 PROC8K08760 * 012227 1000304142 08770 JR EXIT,34 4 PROC8K08770 * 012234 1000316100 08780 JR ER2,0 PROC8K08780 012241 5600237320 08790 BA2 ZERO,16 6 CHECK BA,NO SENT,AR1,16 PROC8K08790 B 012246 5600156520 08800 BA2 K08,16 PROC8K08800 012253 7000156560 08810 CB2 K08,16 PROC8K08810 * 012260 1000304142 08820 JR EXIT,34 4 PROC8K08820 * 012265 1000316100 08830 JR ER2,0 PROC8K08830 012272 5600237302 08840 BA1 ZERO,2 C CHECK SA,AR0 PROC8K08840 A 012277 5200003702 08850 SA1 31,2 PROC8K08850 012304 5600163102 08860 BA1 K14,2 OCOCT5264 -ROC8K08860 012311 5200003702 08870 SA1 31,2 PROC8K08870 012316 7000163142 08880 CB1 K14,2 OCOCT5264 PROC8K08880 * 012323 1000304142 08890 JR EXIT,34 4 PROC8K08890 * 012330 1000316100 08900 JR ER2,0 PROC8K08900 012335 5600237322 08910 BA2 ZERO,2 C CHECK SA,AR1 PROC8K08910 A 012342 5200001722 08920 SA2 15,2 PROC8K08920 012347 5600163122 08930 BA2 K14,2 OCOCT5264 PROC8K08930 012354 5200001722 08940 SA2 15,2 PROC8K08940 012361 7000163162 08950 CB2 K14,2 OCOCT5264 PROC8K08950 * 012366 1000304142 08960 JR EXIT,34 4 PROC8K08960 * 012373 1000316100 08970 JR ER2,0 PROC8K08970 012400 4600237304 08980 BT ZERO,4 C CHECK BT,ROW 0 PROC8K08980 T 012405 4600163104 08990 BT K14,4 O OCT07775264 PROC8K08990 5 012412 7400163104 09000 CT K14,4 O OCT 07775264 PROC8K09000 7 * 012417 1000304142 09010 JR EXIT,34 4 PROC8K09010 * 012424 1000316100 09020 JR ER2,0 PROC8K09020 012431 4600237326 09030 BT ZERO,22 2 CHECK BT,ROW 1 PROC8K09030 B 012436 4600163126 09040 BT K14,22 OCT 07775264 PROC8K09040 7 012443 7400163126 09050 CT K14,22 OCT 07775264 PROC8K09050 7 * 012450 1000304142 09060 JR EXIT,34 4 PROC8K09060 * 012455 1000316100 09070 JR ER2,0 PROC8K09070 012462 4600237350 09080 BT ZERO,40 0 CHECK BT,ROW 2 PROC8K09080 B 012467 4600163150 09090 BT K14,40 O OCT 07775264 PROC8K09090 7 012474 7400163150 09100 CT K14,40 OCT 07775264 PROC8K09100 7 * 012501 1000304142 09110 JR EXIT,34 4 PROC8K09110 * 012506 1000316100 09120 JR ER2,0 PROC8K09120 012513 4600237373 09130 BT ZERO,59 9 CHECK BT, ROW3+042007 PROC8K09130 012520 4600163173 09140 BT K14,59 PROC8K09140 012525 7400163173 09150 CT K14,59 PROC8K09150 * 012532 1000304142 09160 JR EXIT,34 4 PROC8K09160 * 012537 1000316100 09170 JR ER2,0 PROC8K09170 012544 5600237304 09180 BA1 ZERO,4 C CHECK ST PROC8K09180 T 012551 4600163126 09190 BT K14,22 O OCT07005264 PROC8K09190 5 012556 4200001726 09200 ST 15,22 PROC8K09200 012563 7400163103 09210 CT K14,3 OCOCT07005264 PROC8K09210 2 * 012570 1000304142 09220 JR EXIT,34 4 PROC8K09220 * 012575 1000316100 09230 JR ER2,0 PROC8K09230 012602 4600237377 09240 BT ZERO,63 3 CHECK FT WITH ONES PROC8K09240 F 012607 2007777777 09250 FT 32767,6363 PROC8K09250 012614 5600037703 09260 BA1 255,3 PROC8K09260 012621 7001261243 09270 CB1 $-7,3 PROC8K09270 * 012626 1000304142 09280 JR EXIT,34 4 -ROC8K09280 * 012633 1000316100 09290 JR ER2,0 PROC8K09290 012640 4601261377 09300 BT $-21,63 3 CHECK FT WITH ZEROS PROC8K09300 F 012645 2000000077 09310 FT 0,63 PROC8K09310 012652 5600037703 09320 BA1 255,3 POC8K09320 012657 7000237343 09330 CB1 ZERO,3 PROC8K09330 * 012664 1000304142 09340 JR EXIT,34 4 PROC8K09340 * 012671 1000316100 09350 JR ER2,0 PROC8K09350 012676 5600156500 09360 BA1 K08,16 C CHECK BSD/C,1B PROC8K09360 S 012703 1600000011 09370 BS1 0,1 PROC8K09370 012710 3400000012 09380 CC 0,10 PROC8K09380 * 012715 1000304142 09390 JR EXIT,34 4 PROC8K09390 * 012722 1000316100 09400 JR ER2,0 PROC8K09400 012727 5600160302 09410 BA1 K11,2 CHCHECK BSC 2C,2B,OCT6263 PROC8K09410 C 012734 1600001762 09420 BC2 15,2 PROC8K09420 012741 7000155542 09430 CB1 K07,2 OCOCT1317 PROC8K09430 * 012746 1000304142 09440 JR EXIT,34 4 PROC8K09440 * 012753 1000316100 09450 JR ER2,0 PROC8K09450 012760 5600160403 09460 BA1 K12-1,3 3 CHECK BSD 3C,4B,OCT626352 PROC8K09460 B 012765 1600001734 09470 BS3 15,4 PROC8K09470 012772 7000155343 09480 CB1 K06,3 OCOCT547240 PROC8K09480 0 * 012777 1000304142 09490 JR EXIT,34 4 PROC8K09490 * 013004 1000316100 09500 JR ER2,0 PROC8K09500 013011 5600160504 09510 BA1 K12,4 CHCHECK BSC 4C,7B,OCT62635225 PROC8K09510 C 013016 1600001747 09520 BC4 15,7 PROC8K09520 013023 7000154644 09530 CB1 K04,4 OCOCT47245345 PROC8K09530 3 * 013030 1000304142 09540 JR EXIT,34 4 PROC8K09540 * 013035 1000316100 09550 JR ER2,0 PROC8K09550 013042 5600163102 09560 BA1 K14,2 OCOCT5264,CHECK ZP BLANK PROC8K09560 C 013047 2600001702 09570 PD 15,2 PROC8K09570 013054 7000237342 09580 CB1 ZERO,2 PROC8K09580 * 013061 1000304142 09590 JR EXIT,34 4 PROC8K09590 * 013066 1000316100 09600 JR ER2,0 PROC8K09600 013073 5600163101 09610 BA1 K14,1 OCOCT64,CHECK ZP DEC ZERO PROC8K09610 E 013100 2600001721 09620 PD0 15,1 PROC8K09620 013105 3400001703 09630 CC 15,3 PROC8K09630 * 013112 1000304142 09640 JR EXIT,34 4 PROC8K09640 * 013117 1000316100 09650 JR ER2,0 PROC8K09650 013124 2600001720 09660 PD0 15,0 PROC8K09660 013131 5600160304 09670 BA1 K11,4 ZSZS BLANK+FLTG $,OCT00036263 PROC8K09670 + 013136 2200000000 09680 ZS$ 0,16 PROC8K09680 013143 7000167444 09690 CB1 K32,4 OCOCT 00004263 PROC8K09690 4 * 013150 3001316242 09700 JC $+10,34 4 PROC8K09700 * 013155 3001317400 09710 JC $+15,0 PROC8K09710 013162 3400011117 09720 CC 73,15 PROC8K09720 * 013167 1000304142 09730 JR EXIT,34 4 PROC8K09730 * 013174 1000316100 09740 JR ER2,0 PROC8K09740 013201 5600160304 09750 BA1 K11,4 ZSZS BLANK,OCT 00036263 PROC8K09750 , 013206 2200001444 09760 ZS 12,4 PROC8K09760 013213 7000170044 09770 CB1 K33,4 OCOCT 00000063 PROC8K09770 0 * 013220 1000304142 09780 JR EXIT,34 4 PROC8K09780 * 013225 1000316100 09790 JR ER2,0 PROC8K09790 013232 5600160304 09800 BA1 K11,4 ZSZS ASTERISK, OCT 00036263 PROC8K09800 I 013237 2200001464 09810 ZS* 12, 4, PROC8K09810 013244 7000254744 09820 CB1 K01+7,4 4 OCT J1414163 PROC8K09820 * 013251 1000304142 09830 JR EXIT,34 4 PROC8K09830 * 013256 1000316100 09840 JR ER2,0 PROC8K09840 013263 5600160304 09850 BA1 K11,4 ZSZS,TEST FOR LAC LOW PROC8K09850 F 013270 2200001442 09860 ZS 12,2 PROC8K09860 013275 7000170444 09870 CB1 K33+4,4 4 OCT 00006263 -ROC8K09870 0 * 013302 1000304142 09880 JR EXIT,34 4 PROC8K09880 * 013307 1000316100 09890 JR ER2,0 PROC8K09890 013314 5600237300 09900 BA1 ZERO,16 6 ZS,TEST FOR FAC LOW PROC8K09900 T 013321 2200000060 09910 ZS* 0, 16, PROC8K09910 013326 3400001742 09920 CC 15,34 PROC8K09920 * 013333 3001335242 09930 JC $+15,34 4 PROC8K09930 013340 3400011120 09940 CC 73,16 PROC8K09940 * 013345 1000304142 09950 JR EXIT,34 4 PROC8K09950 * 013352 1000316100 09960 JR ER2,0 PROC8K09960 013357 5600156502 09970 BA1 K08,2 CHCHECK TR, OCT 3740 PROC8K09970 , 013364 4400011015 09980 SC 72,015 PROC8K09980 013371 1200001702 09990 TR 15,2 PROC8K09990 013376 7000154042 10000 CB1 K02,2 OCOCT 1000 PROC8K10000 * 013403 1000304142 10010 JR EXIT,34 4 -ROC8K10010 * 013410 1000316100 10020 JR ER2,0 PROC8K10020 013415 2601343304 10030 PD $+14,4 CHECK 64 COUNT TR, 027 078 PROC8K10030 6 013422 4401345277 10040 SC $+24,63 3 PROC8K10040 013427 4400000000 10050 SC 0,0 PROC8K10050 013434 6001343201 10060 AC $-2,1 PROC8K10060 013441 6001343301 10070 AC $-6,1 PROC8K10070 * 013446 3201342777 10080 JL $-15,63 3 PROC8K10080 013453 4400007777 10090 SC 077,077 7 PROC8K10090 013460 4400011024 10100 SC 72,20 PROC8K10100 013465 1200007700 10110 TR 077,64 PROC8K10110 013472 7000241740 10120 CB1 02417,1616 PROC8K10120 * 013477 1000304142 10130 JR EXIT,34 4 PROC8K10130 * 013504 1000316100 10140 JR ER2,0 PROC8K10140 013511 5600215110 10150 BA1 DEC2,8 CHECK TR 0304050607101112 PROC8K10150 T 013516 4400011060 10160 SC 72,48 T TR TABLE IN ROW 60 PROC8K10160 E 013523 1200001710 10170 TR 15,8 PROC8K10170 013530 7000601250 10180 CB1 06012,8 8 OCT 7154521000344741 PROC8K10180 * 013535 1000304142 10190 JR EXIT,34 4 PROC8K10190 * 013542 1000316100 10200 JR ER2,0 PROC8K10200 013547 5601356505 10210 BA1 $+14,5 F S 67 Z TO MA PROC8K10210 013554 2000000522 10220 FT 05,18 POC8K10220 013561 2001356120 10230 FT $,16 PROC8K10230 013566 2401356101 10240 TFR $-5 10240 013573 7001356545 10250 CB1 $-6,5 PROC8K10250 * 013600 1000304142 10260 JR EXIT,3434 PROC8K10260 * 013605 1000316100 10270 JR ER2,0 -ROC8K10270 013612 5600240100 10280 BA1 ZERO+6,1,16 CHECK TB COUNT 64 PROC8K10280 C 013617 5200011700 10290 SA1 79,16 D DESTINATION IN )-16 PROC8K10290 T 013624 2400154201 10300 TFR K03,1 NONO ADVANCE PROC8K10300 C 013631 7000156140 10310 CB1 K03+15,1,16 PROC8K10310 * 013636 3001365042 10320 JC $+10,34 4 PROC8K10320 * 013643 3001375100 10330 JC $+70,0 PROC8K10330 013650 7000160160 10340 CB2 K03+31,1,16 PROC8K10340 * 013655 3001366742 10350 JC $+10,34 4 POC8K10350 * 013662 3001375100 10360 JC $+55,0 PROC8K10360 013667 5600005700 10370 BA1 47,16 PROC8K10370 013674 7000162140 10380 CB1 K03+47,1,16 PROC8K10380 * 013701 3001371342 10390 JC $+10,34 4 PROC8K10390 * 013706 3001375100 10400 JC $+35,0 PROC8K10400 013713 5600007700 10410 BA1 63,16 PROC8K10410 013720 7000164140 10420 CB1 K03+63,1,16 PROC8K10420 * 013725 3001373742 10430 JC $+10,34 4 PROC8K10430 * 013732 3001375100 10440 JC $+15,0 PROC8K10440 013737 7400237320 10450 CT ZERO,16 6 PROC8K10450 * 013744 1000304142 10460 JR EXIT,34 4 PROC8K10460 * 013751 1000316100 10470 JR ER2,0 PROC8K10470 013756 5600242500 10480 BA1 OKAYS-6,6,16 CHECK TB. COUNT 16 PROC8K10480 013763 5200011700 10490 SA1 79,16 O ORIGIN IN T-17 PROC8K10490 I 013770 2400000061 10500 TTI 0 ADVANCE PROC8K10500 013775 7000203740 10510 CB1 CON4,16 6 PROC8K10510 * 014002 3001401442 10520 JC $+10,34 4 PROC8K10520 * 014007 3001402600 10530 JC $+15,0 PROC8K10530 014014 2000204003 10540 FT CON4+1,3,3 79F38210540 014021 7000010742 10550 CB1 71,2 PROC8K10550 * 014026 1000304142 10560 JR EXIT,34 4 PROC8K10560 * 014033 1000316100 10570 JR ER2,0 PROC8K10570 014040 5600156631 10580 BA2 K08+1,9 9 CHECKED,007063,007061 PROC8K10580 D 014045 5600160302 10590 BA1 K11,2 OCOCT6263 PROC8K10590 014052 5200007742 10600 ED 63, 2 PROC8K10600 014057 5600157711 10610 BA1 K09+2,9 9 PROC8K10610 014064 7000007751 10620 CB1 63,9 PROC8K10620 * 014071 1000304142 10630 JR EXIT,34 4 PROC8K10630 * 014076 1000316100 10640 JR ER2,0 PROC8K10640 014103 5600157520 10650 BA2 K09,16 0 007063J1- PROC8K10650 1 014110 5600160300 10660 BA1 K11,16 PROC8K10660 014115 5200007761 10670 SAR 077 PROC8K10670 014122 7000005740 10680 CB1 47,16 PROC8K10680 * 014127 3001414142 10690 JC $+10,34 4 PROC8K10690 * 014134 3001415300 10700 J $+15 PROC8K10700 014141 7000007760 10710 CB2 63,16 PROC8K10710 * 014146 1000304142 10720 JR EXIT,34 4 PROC8K10720 * 014153 1000316100 10730 JR ER2,0 PROC8K10730 014160 5600156622 10740 BA2 K08+1,2 2 007061, OCT 4002 PROC8K10740 , 014165 5600157502 10750 BA1 K09,2 OCOCT6037 PROC8K10750 014172 5200007741 10760 ED 63, 1 PROC8K10760 014177 5600161602 10770 BA1 K13-7,2 2 OCT 1700 PROC8K10770 0 014204 7000007742 10780 CB1 63,2 PROC8K10780 * 014211 1000304142 10790 JR EXIT,34 4 PROC8K10790 * 014216 1000316100 10800 JR ER2,0 PROC8K10800 014223 5600163622 10810 BA2 K16,2 OCOCT4040 PROC8K10810 014230 5600160302 10820 BA1 K11,2 OCOCT6263 PROC8K10820 014235 5200007742 10830 ED 63, 2 10830 014242 7000007742 10840 CB1 63,2 PROC8K10840 * 014247 1000304142 10850 JR EXIT,34 4 PROC8K10850 * 014254 1000316100 10860 JR ER2,0 PROC8K10860 014261 5600155022 10870 BA2 K04+2,2 2 OCT4077,007059 PROC8K10870 7 014266 5600160302 10880 BA1 K11,2 OCOCT6263 PROC8K10880 014273 5200007742 10890 ED 63, 2 PROC8K10890 014300 5600164002 10900 BA1 K17,2 OCOCT6203 PROC8K10900 014305 7000007742 10910 CB1 63,2 PROC8K10910 * 014312 1000304142 10920 JR EXIT,34 4 PROC8K10920 * 014317 1000316100 10930 JR ER2,0 PROC8K10930 014324 5600164222 10940 BA2 K18,2 OCOCT4042,007061D6- PROC8K10940 0 014331 5600155301 10950 BA1 K06,1 OCOCT40 PROC8K10950 014336 5200007741 10960 ED 63, 1 PROC8K10960 014343 7000007762 10970 CB2 63,2 PROC8K10970 * 014350 1000304142 10980 JR EXIT,34 4 PROC8K10980 * 014355 1000316100 10990 JR ER2,0 PROC8K10990 014362 5600164422 11000 BA2 K19,2 OCOCT4022,007061D5- PROC8K11000 0 014367 5600155301 11010 BA1 K06,1 OCOCT40 PROC8K11010 014374 5200007741 11020 ED 63, 1 POC8K11020 014401 7000007762 11030 CB2 63,2 PROC8K11030 * 014406 1000304142 11040 JR EXIT,34 4 PROC8K11040 * 014413 1000316100 11050 JR ER2,0 PROC8K11050 014420 5600164622 11060 BA2 K21,2 OCOCT4012,007061D4- PROC8K11060 0 014425 5600155301 11070 BA1 K06,1 OCOCT40 PROC8K11070 014432 5200007741 11080 ED 63, 1 PROC8K11080 014437 7000007762 11090 CB2 63,2 PROC8K11090 * 014444 1000304142 11100 JR EXIT,34 4 PROC8K11100 * 014451 1000316100 11110 JR ER2,0 PROC8K11110 014456 5600165022 11120 BA2 K22,2 OCOCT4006,007061D3- PROC8K11120 0 014463 5600155301 11130 BA1 K06,1 OCOCT40 PROC8K11130 014470 5200007741 11140 ED 63, 1 PROC8K11140 014475 7000007762 11150 CB2 63,2 PROC8K11150 * 014502 1000304142 11160 JR EXIT,34 4 PROC8K11160 * 014507 1000316100 11170 JR ER2,0 PROC8K11170 014514 5600165222 11180 BA2 K23,2 OCOCT4000,007061D2 PROC8K11180 0 014521 5600155301 11190 BA1 K06,1 OCOCT40 PROC8K11190 014526 5200007741 11200 ED 63, 1 PROC8K11200 014533 7000007762 11210 CB2 63,2 PROC8K11210 * 014540 1000304142 11220 JR EXIT,34 4 PROC8K11220 * 014545 1000316100 11230 JR ER2,0 PROC8K11230 014552 5600165422 11240 BA2 K24,2 OCOCT4003,007061D1- PROC8K11240 0 014557 5600155301 11250 BA1 K06,1 OCOCT40 PROC8K11250 014564 5200007741 11260 ED 63, 1 PROC8K11260 014571 7000007762 11270 CB2 63,2 PROC8K11270 * 014576 1000304142 11280 JR EXIT,34 4 PROC8K11280 * 014603 1000316100 11290 JR ER2,0 PROC8K11290 014610 5600163620 11300 BA2 K16,16 0 007061J1- PROC8K11300 1 014615 5600157500 11310 BA1 K09,16 PROC8K11310 014622 5200007761 11320 SAR 077 PROC8K11320 014627 7000005740 11330 CB1 47,16 PROC8K11330 * 014634 3001464642 11340 JC $+10,34 4 PROC8K11340 * 014641 3001466000 11350 J $+15 PROC8K11350 014646 7000007760 11360 CB2 63,16 PROC8K11360 * 014653 1000304142 11370 JR EXIT,34 4 PROC8K11370 * 014660 1000316100 11380 JR ER2,0 PROC8K11380 014665 5600156723 11390 BA2 K08+2,3 3 007061BM,OCT400262 PROC8K11390 B 014672 5600155301 11400 BA1 K06,1 OCOCT40 PROC8K11400 014677 5200007741 11410 ED 63, 1 PROC8K11410 014704 7000007763 11420 CB2 63,3 OCTCT400262 POC8K11420 * 014711 1000304142 11430 JR EXIT,34 4 PROC8K11430 * 014716 1000316100 11440 JR ER2,0 PROC8K11440 014723 5600165622 11450 BA2 K25,2 00007059D6,OCT4037 PROC8K11450 , 014730 5600155301 11460 BA1 K06,1 OCOCT 40 POC8K11460 014735 5200007741 11470 ED 63, 1 PROC8K11470 014742 7000007762 11480 CB2 63,2 PROC8K11480 * 014747 1000304142 11490 JR EXIT,34 4 PROC8K11490 * 014754 1000316100 11500 JR ER2,0 PROC8K11500 014761 5600166022 11510 BA2 K26,2 00007059D5,OCT4057 PROC8K11510 , 014766 5600155301 11520 BA1 K06,1 OCOCT40 PROC8K11520 014773 5200007741 11530 ED 63, 1 PROC8K11530 015000 7000007762 11540 CB2 63,2 PROC8K11540 * 015005 1000304142 11550 JR EXIT,34 4 PROC8K11550 * 015012 1000316100 11560 JR ER2,0 PROC8K11560 015017 5600166222 11570 BA2 K27,2 00007059D4,OCT4067 PROC8K11570 , 015024 5600155301 11580 BA1 K06,1 OCOCT40 PROC8K11580 015031 5200007741 11590 ED 63, 1 -ROC8K11590 015036 7000007762 11600 CB2 63,2 PROC8K11600 * 015043 1000304142 11610 JR EXIT,34 4 PROC8K11610 * 015050 1000316100 11620 JR ER2,0 PROC8K11620 015055 5600166422 11630 BA2 K28,2 00007059D3,OCT4073 PROC8K11630 , 015062 5600155301 11640 BA1 K06,1 OCOCT40 PROC8K11640 015067 5200007741 11650 ED 63, 1 PROC8K11650 015074 7000007762 11660 CB2 63,2 PROC8K11660 * 015101 1000304142 11670 JR EXIT,34 4 PROC8K11670 * 015106 1000316100 11680 JR ER2,0 PROC8K11680 015113 5600166622 11690 BA2 K29,2 00007059D2,OCT4075 PROC8K11690 , 015120 5600155301 11700 BA1 K06,1 OCOCT40 PROC8K11700 015125 5200007741 11710 ED 63, 1 PROC8K11710 015132 7000007762 11720 CB2 63,2 PROC8K11720 * 015137 1000304142 11730 JR EXIT,34 4 PROC8K11730 * 015144 1000316100 11740 JR ER2,0 PROC8K11740 015151 5600167022 11750 BA2 K31,2 00007059D1,OCT4076 -ROC8K11750 , 015156 5600155301 11760 BA1 K06,1 OCOCT40 PROC8K11760 015163 5200007741 11770 ED 63, 1 PROC8K11770 015170 7000007762 11780 CB2 63,2 PROC8K11780 * 015175 1000304142 11790 JR EXIT,34 4 -OC8K11790 * 015202 1000316100 11800 JR ER2,0 PROC8K11800 * 015207 3200327677 11810 JL OKAY,63 3 PROC8K11810 * 015214 3000327640 11820 JC OKAY,32 2 PROC8K11820 015221 2001440003 11830 LOAD2 FT CONSL,3 3 PROC8K11830 015226 5200302703 11831 SA1 EXIT-7,3,3 PROC8K11831 * 015233 3001525700 11832 JC $+20,0 PROC8K11832 015240 2000040044 11840 FT 0400,36 6 PROC8K11840 015245 4020610000 11850 XF 061,0,0,0,1 READ LOAD CARD OF PASS 2 PROC8K11850 * 015252 3000044000 11860 JC 0440 PROC8K11860 015257 2000040060 11870 FT 0400,48 8 PROC8K11870 015264 2000777761 11880 FT 07777,4949 PROC8K11880 015271 4100610100 11881 XF 061,0010100,0,4 READ LOAD BLOCK OF PASS 2 PROC8K11881 * 015276 3000044000 11900 JC 0440 PROC8K11900 SEGMENT-ID T184 3000300000 11910 SEGJP MANST PROC8K11910 *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 T185 3000300000 SEGJP MANST 003310 11920 ORIG 03310 PROC8K11920 003310 5600155123 11930 BA2 K05,3 00007059BM,OCT407754 PROC8K11930 , 003315 5600155301 11940 BA1 K06,1 PROC8K11940 003322 5200007741 11950 ED 63, 1 PROC8K11950 003327 7000007763 11960 CB2 63,3 PROC8K11960 * 003334 1000304142 11970 JR EXIT,34 4 -ROC8K11970 * 003341 1000316100 11980 JR ER2,0 PROC8K11980 003346 5600156520 11990 BA2 K08,16 0 007059J1- PROC8K11990 1 003353 5600157500 12000 BA1 K09,16 PROC8K12000 003360 5200007761 12010 SAR 63 PROC8K12010 003365 7000005740 12020 CB1 47,16 PROC8K12020 * 003372 3000340442 12030 JC $+10,34 4 PROC8K12030 * 003377 3000341600 12040 JC $+15,0 -ROC8K12040 003404 7000007760 12050 CB2 63,16 PROC8K12050 * 003411 1000304142 12060 JR EXIT,34 4 PROC8K12060 * 003416 1000316100 12070 JR ER2,0 PROC8K12070 003423 4400170500 12080 SC AC1,0 PROC8K12080 003430 6000170500 12090 AC AC1,0 PROC8K12090 003435 3400170500 12100 CC AC1,0 PROC8K12100 * 003442 1000304142 12110 JR EXIT,34 4 ADD ZERO PROC8K12110 R * 003447 1000316100 12120 JR ER2,0 -ROC8K12120 003454 5600171103 12130 BA1 PAT,3 P-OC8K12130 003461 5600171423 12140 BA2 CON,3 PROC8K12140 003466 7200003703 12150 AB1 31,3 PROC8K12150 003473 7000171763 12160 CB2 ANS,3 PROC8K12160 * 003500 1000304142 12170 JR EXIT,34 4 STRING 1 PROC8K12170 * 003505 1000316100 12180 JR ER2,0 PROC8K12180 003512 5600173617 12190 BA1 PAT2,15 5 PROC8K12190 003517 5600175537 12200 BA2 CON2,15 5 PROC8K12200 003524 7200003717 12210 AB1 31,15 PROC8K12210 003531 7000177477 12220 CB2 ANS2,15 5 PROC8K12220 * 003536 1000304142 12230 JR EXIT,34 4 STRING 2 PROC8K12230 * 003543 1000316100 12240 JR ER2,0 PROC8K12240 003550 5600200307 12250 BA1 PAT3,7 PROC8K12250 003555 5600201227 12260 BA2 CON3,7 PROC8K12260 003562 7200003707 12270 AB1 31,7 PROC8K12270 003567 7000202167 12280 CB2 ANS3,7 PROC8K12280 * 003574 1000304142 12290 JR EXIT,34 4 STRING 3 POC8K12290 * 003601 1000316100 12300 JR ER2,0 PROC8K12300 003606 5600203007 12310 BA1 PAT4,7 PROC8K12310 003613 5600203727 12320 BA2 CON4,7 PROC8K12320 003620 7200003707 12330 AB1 31,7 PROC8K12330 003625 7000204667 12340 CB2 ANS4,7 PROC8K12340 * 003632 1000304142 12350 JR EXIT,34 4 STRING 4 PROC8K12350 * 003637 1000316100 12360 JR ER2,0 PROC8K12360 003644 5600205507 12370 BA1 PAT5,7 PROC8K12370 003651 5600206427 12380 BA2 CON5,7 PROC8K12380 003656 7200003707 12390 AB1 31,7 -ROC8K12390 003663 7000207367 12400 CB2 ANS5,7 PROC8K12400 * 003670 1000304142 12410 JR EXIT,34 4 STRING 5 PROC8K12410 * 003675 1000316100 12420 JR ER2,0 PROC8K12420 003702 5600210207 12430 BA1 PAT6,7 PROC8K12430 003707 5600211127 12440 BA2 CON6,7 PROC8K12440 003714 7200003707 12450 AB1 31,7 PROC8K12450 003721 7000212067 12460 CB2 ANS6,7 PROC8K12460 * 003726 1000304142 12470 JR EXIT,34 4 STRIMG 6 PROC8K12470 * 003733 1000316100 12480 JR ER2,0 PROC8K12480 003740 4400170600 12490 SC AC2,0 PROC8K12490 003745 4400170536 12500 SC AC1,30 PROC8K12500 003752 6000170541 12510 AC AC1,33 PROC8K12510 003757 3400170577 12520 CC AC1,63 PROC8K12520 * 003764 3000377642 12530 JC $+10,34 4 AC E.P.07005 PROC8K12530 . * 003771 3000400300 12540 JC $+10,0 PROC8K12540 * 003776 1000304147 12550 JR EXIT,39 9 10123 PROC8K12550 * 004003 1000316100 12560 JR ER2,0 PROC8K12560 004010 4400003603 12570 SC 036,3 PROC8K12570 004015 4400003717 12580 SC 037,15 PROC8K12580 004022 6000003762 12590 AC 037,50 PROC8K12590 004027 3400003701 12600 CC 037,1 PROC8K12600 * 004034 3000404642 12610 JC $+10,34 4 F.S.75 15072 PROC8K12610 * 004041 3000406500 12620 JC $+20,0 PROC8K12620 004046 3400003604 12630 CC 036,4 PROC8K12630 * 004053 3000406547 12640 JC $+10,39 9 PROC8K12640 * 004060 1000304142 12650 JR EXIT,34 4 AC EP, 14025 PROC8K12650 * 004065 1000316100 12660 JR ER2,0 PROC8K12660 004072 2600001700 12670 PD 15,0 PROC8K12670 004077 7200001703 12680 AB1 15,3 PROC8K12680 004104 7000000743 12690 CB1 7,3 PROC8K12690 * 004111 3000412342 12700 JC $+10,34 4 ABEP 07004 PROC8K12700 7 * 004116 3000414200 12710 JC $+20,0 PROC8K12710 * 004123 3000413545 12720 JC $+10,37 7 11034 PROC8K12720 * 004130 3000414200 12730 JC $+10,0 PROC8K12730 * 004135 1000304147 12740 JR EXIT,39 9 10130 PROC8K12740 * 004142 1000316100 12750 JR ER2,0 PROC8K12750 004147 5600212404 12760 BA1 AB1,4 PROC8K12760 004154 7200001704 12770 AB1 15,4 PROC8K12770 * 004161 3000420047 12780 JC $+15,39 9 PROC8K12780 * 004166 3000420042 12790 JC $+10,34 4 PROC8K12790 * 004173 1000304100 12800 JR EXIT,0 PROC8K12800 * 004200 1000316100 12810 JR ER2,0 PROC8K12810 004205 5600212424 12820 BA2 AB1,4 PROC8K12820 004212 7200003724 12830 AB2 31,4 PROC8K12830 * 004217 3000423641 12840 JC $+15,33 3 PROC8K12840 004224 7000213064 12850 CB2 AB2,4 PROC8K12850 * 004231 1000304142 12860 JR EXIT,34 4 IC 07074 PROC8K12860 7 * 004236 1000316100 12870 JR ER2,0 PROC8K12870 004243 5600214024 12880 BA2 AB4,4 PROC8K12880 004250 5600213404 12890 BA1 AB3,4 PROC8K12890 004255 7200003744 12900 SB1 31,4 PROC8K12900 004262 7000213464 12910 CB2 AB3,4 PROC8K12910 * 004267 3000430142 12920 JC $+10,34 4 IC 07074 PROC8K12920 7 * 004274 3000431300 12930 JC $+15,0 PROC8K12930 * 004301 3000431345 12940 JC $+10,37 7 PROC8K12940 * 004306 1000304100 12950 JR EXIT,0 PROC8K12950 * 004313 1000316100 12960 JR ER2,0 PROC8K12960 004320 5600214024 12970 BA2 AB4,4 PROC8K12970 004325 5600213404 12980 BA1 AB3,4 POC8K12980 004332 7200001764 12990 SB2 15,4 PROC8K12990 * 004337 1000314747 13000 JR ER1,39 C COMP. ANS. 10121 PROC8K13000 N * 004344 1000307200 13010 JR NEXT,0 PROC8K13010 * 004351 3000150452 13020 JC PIE+4,4242 PROC8K13020 004356 5600213010 13030 BA1 AB2,8 PROC8K13030 004363 7000213050 13040 CB1 AB2,8 PROC8K13040 * 004370 3000440242 13050 JC $+10,34 4 11112 PROC8K13050 * 004375 3000440700 13060 JC $+10,0 PROC8K13060 * 004402 1000304147 13070 JR EXIT,39 9 10122 PROC8K13070 * 004407 1000316100 13080 JR ER2,0 PROC8K13080 004414 5600212004 13090 BA1 ANS6,4 PROC8K13090 004421 7000212044 13100 CB1 ANS6,4 PROC8K13100 * 004426 3000444042 13110 JC $+10,34 4 IC 11102 PROC8K13110 0 * 004433 3000445200 13120 JC $+15,0 PROC8K13120 * 004440 3000445245 13130 JC $+10,37 7 PROC8K13130 * 004445 1000304100 13140 JR EXIT,0 PROC8K13140 * 004452 1000316100 13150 JR ER2,0 PROC8K13150 004457 5600213404 13160 BA1 AB3,4 PROC8K13160 004464 7000214044 13170 CB1 AB4,4 PROC8K13170 * 004471 3000450344 13180 JC $+10,36 6 11112 PROC8K13180 * 004476 3000451500 13190 JC $+15,0 PROC8K13190 * 004503 3000451541 13200 JC $+10,33 3 PROC8K13200 * 004510 1000304100 13210 JR EXIT,0 POC8K13210 * 004515 1000316100 13220 JR ER2,0 PROC8K13220 004522 5600214004 13230 BA1 AB4,4 PROC8K13230 004527 7000213444 13240 CB1 AB3,4 PROC8K13240 * 004534 3000454641 13250 JC $+10,33 3 11011 PROC8K13250 * 004541 3000456000 13260 JC $+15,0 PROC8K13260 004546 3400213400 13270 CC AB3,0 PROC8K13270 * 004553 1000304142 13280 JR EXIT,34 4 PROC8K13280 * 004560 1000316100 13290 JR ER2,0 PROC8K13290 004565 4400004307 13300 SC 35,7 PROC8K13300 004572 4600237311 13310 BT ZERO,9 PROC8K13310 004577 7600004711 13320 AT 39,9 PROC8K13320 004604 3400004307 13330 CC 35,7 PROC8K13330 * 004611 3000462342 13340 JC $+10,34 4 EP 07003 PROC8K13340 0 * 004616 3000463500 13350 JC $+15,0 PROC8K13350 * 004623 3000463545 13360 JC $+10,37 7 PROC8K13360 * 004630 1000304100 13370 JR EXIT,0 PROC8K13370 * 004635 1000316100 13380 JR ER2,0 PROC8K13380 004642 4600212407 13390 BT AB1,7 PROC8K13390 004647 7600212407 13400 AT AB1,7 PROC8K13400 004654 7000213064 13410 CB2 AB2,4 PROC8K13410 * 004661 3000467342 13420 JC $+10,34 4 07003 PROC8K13420 * 004666 3000470500 13430 JC $+15,0 PROC8K13430 * 004673 3000470547 13440 JC $+10,39 9 PROC8K13440 * 004700 1000304100 13450 JR EXIT,0 PROC8K13450 * 004705 1000316100 13460 JR ER2,0 PROC8K13460 004712 4600237311 13470 BT ZERO,9 PROC8K13470 004717 7600004711 13480 AT 39,9 PROC8K13480 * 004724 3000473647 13490 JC $+10,39 9 11120 PROC8K13490 * 004731 3000475000 13500 JC $+15,0 PROC8K13500 * 004736 3000475041 13510 JC $+10,33 3 PROC8K13510 * 004743 1000304100 13520 JR EXIT,0 PROC8K13520 * 004750 1000316100 13530 JR ER2,0 PROC8K13530 * 004755 3000150452 13540 JC PIE+4,4242 PROC8K13540 004762 5600214004 13550 BA1 AB4,4 PROC8K13550 004767 7400213403 13560 CT AB3,3 PROC8K13560 * 004774 3000500641 13570 JC $+10,33 3 HI 11003 PROC8K13570 0 * 005001 3000501300 13580 JC $+10,0 PROC8K13580 * 005006 1000304147 13590 JR EXIT,39 9 BOF 10120 PROC8K13590 1 * 005013 1000316100 13600 JR ER2,0 PROC8K13600 005020 5600213404 13610 BA1 AB3,4 PROC8K13610 005025 7400214003 13620 CT AB4,3 PROC8K13620 * 005032 3000504444 13630 JC $+10,36 6 LOW 11003 PROC8K13630 0 * 005037 3000505600 13640 JC $+15,0 PROC8K13640 * 005044 3000505642 13650 JC $+10,34 4 PROC8K13650 * 005051 1000304100 13660 JR EXIT,0 PROC8K13660 * 005056 1000316100 13670 JR ER2,0 PROC8K13670 005063 2600001700 13680 PD 15,0 PROC8K13680 005070 2600003720 13690 PD0 31,0 PROC8K13690 005075 6600001700 13700 AD1 15,0 PROC8K13700 005102 7000001760 13710 CB2 15,0 PROC8K13710 * 005107 3000512142 13720 JC $+10,34 4 BLANKS. 08049. 10050 PROC8K13720 . * 005114 3000512600 13730 JC $+10,0 PROC8K13730 * 005121 1000304145 13740 JR EXIT,37 7 AZ 11035 PROC8K13740 3 * 005126 1000316100 13750 JR ER2,0 PROC8K13750 005133 2600001700 13760 PD 15,0 -ROC8K13760 005140 2600003726 13770 PD0 31,6 PROC8K13770 005145 6600001702 13780 AD1 15,2 PROC8K13780 005152 7000001563 13790 CB2 13,3 PROC8K13790 * 005157 3000517142 13800 JC $+10,34 4 E.P. 07014 PROC8K13800 7 * 005164 3000520300 13810 JC $+15,0 PROC8K13810 * 005171 3000520346 13820 JC $+10,38 8 SIGN+ 11076 PROC8K13820 1 * 005176 1000304100 13830 JR EXIT,0 PROC8K13830 * 005203 1000316100 13840 JR ER2,0 PROC8K13840 005210 5600215163 13850 BD2 DEC2,3 PROC8K13850 005215 6600215123 13860 AD2 DEC2,3 PROC8K13860 005222 7000215663 13870 CB2 DEC1-3,3,3 PROC8K13870 * 005227 3000524142 13880 JC $+10,34 4 BLK IC 07078PAN.07077 D6 PROC8K13880 * 005234 3000526500 13890 JC $+25,0 PROC8K13890 * 005241 3000525350 13900 JC $+10,40 0 D.O.F. 10158 PROC8K13900 * 005246 3000526500 13910 JC $+15,0 PROC8K13910 005253 3400003463 13920 CC 28,51 PROC8K13920 * 005260 3000527242 13930 JC $+10,34 4 SENT. 10026 PROC8K13930 1 * 005265 1000314700 13940 JR ER1,0 PROC8K13940 * 005272 3000527735 13950 JC $+5,29 R RESET CL2 PROC8K13950 L * 005277 1000307226 13960 JR NEXT,22 2 RESET SI2 PROC8K13960 S 005304 5600215165 13970 BD2 DEC2,5 PROC8K13970 005311 4400003414 13980 SC 28,12 PROC8K13980 005316 6600215123 13990 AD2 DEC2,3 PROC8K13990 005323 7000215663 14000 CB2 DEC1-3,3,3 PROC8K14000 * 005330 3000534242 14010 JC $+10,34 4 EP 07017 CY+CY- PROC8K14010 1 * 005335 3000536100 14020 JC $+20,0 PROC8K14020 * 005342 3000536150 14030 JC $+15,40 0 DOF 10158CY- PROC8K14030 1 005347 3400003307 14040 CC 27,7 PROC8K14040 * 005354 1000304142 14050 JR EXIT,34 4 BLK.MEM LOC 08078.08046 PROC8K14050 M * 005361 1000316100 14060 JR ER2,0 PROC8K14060 005366 2600001732 14070 PD0 15,10 XSXS-3 CORR. GATES CY - PROC8K14070 R 005373 6600215312 14080 AD1 DEC1-6,1,10 PROC8K14080 005400 2600215352 14090 CD1 DEC1-6,1,10 -ROC8K14090 * 005405 1000304142 14100 JR EXIT,34 4 PROC8K14100 * 005412 1000316100 14110 JR ER2,0 PROC8K14110 005417 5600215453 14120 BD1 DEC1-5,1,11 XS-3 CORR. GATES CY PROC8K14120 005424 6600257413 14130 AD1 K64,11 PROC8K14130 005431 2600260753 14140 CD1 K65,11 PROC8K14140 * 005436 1000304142 14150 JR EXIT,34 4 -ROC8K14150 * 005443 1000316100 14160 JR ER2,0 PROC8K14160 005450 5600215141 14170 BD1 DEC2,1 PROC8K14170 005455 6600215104 14180 AD1 DEC2,4 PROC8K14180 005462 7000216144 14190 CB1 DEC1,4 PROC8K14190 * 005467 3000550142 14200 JC $+10,34 4 BLK.M.SF 08052.10026 PROC8K14200 S * 005474 3000553200 14210 JC $+30,0 PROC8K14210 005501 3400001363 14220 CC 11,51 PROC8K14220 * 005506 3000552042 14230 JC $+10,34 4 SENT 16015 PROC8K14230 6 * 005513 3000553200 14240 JC $+15,0 PROC8K14240 * 005520 3000553245 14250 JC $+10,37 7 AZ-11042.11043 PROC8K14250 4 * 005525 1000304100 14260 JR EXIT,0 -ROC8K14260 * 005532 1000316100 14270 JR ER2,0 PROC8K14270 005537 5600215644 14280 BD1 DEC1-3,4,4 PROC8K14280 005544 6400001740 14290 LS 15,32 -ROC8K14290 005551 5600215166 14300 BD2 DEC2,6 PROC8K14300 005556 6600003704 14310 AD1 31,4 PROC8K14310 005563 6400003740 14320 LS 31,32 PROC8K14320 005570 7000003744 14330 CB1 31,4 PROC8K14330 * 005575 3000560742 14340 JC $+10,34 4 I.C.+C.P. 07077. PROC8K14340 . * 005602 3000563300 14350 JC $+25,0 PROC8K14350 * 005607 3000562146 14360 JC $+10,38 8 -SIGN 11076M6-011084 PROC8K14360 1 * 005614 3000563300 14370 JC $+15,0 PROC8K14370 * 005621 3000563350 14380 JC $+10,40 0 DOF- 10158 CP -ROC8K14380 0 * 005626 1000304100 14390 JR EXIT,0 PROC8K14390 * 005633 1000316100 14400 JR ER2,0 PROC8K14400 005640 5600215644 14410 BD1 DEC1-3,4,4 PROC8K14410 005645 5600215164 14420 BD2 DEC2,4 PROC8K14420 005652 6400003740 14430 LS 31,32 PROC8K14430 005657 6600001724 14440 AD2 15,4 PROC8K14440 005664 7000215164 14450 CB2 DEC2,4 PROC8K14450 * 005671 3000570342 14460 JC $+10,34 4 RECOMP 09063.07016 RDL PROC8K14460 * 005676 3000571500 14470 JC $+15,0 PROC8K14470 * 005703 3000571546 14480 JC $+10,38 8 STEP AN 11061.08099 PROC8K14480 N * 005710 1000304100 14490 JR EXIT,0 E EP BMFMCP 07015 PROC8K14490 C * 005715 1000316100 14500 JR ER2,0 PROC8K14500 005722 4400003663 14510 SC 30,51 PROC8K14510 005727 4400001710 14520 SC 15,8 PROC8K14520 005734 4400003750 14530 SC 31,40 PROC8K14530 005741 6600001721 14540 AD2 15,1 PROC8K14540 005746 3400003703 14550 CC 31,3 PROC8K14550 * 005753 3000576542 14560 JC $+10,34 4 EP EPI 07013.07016 AZ- PROC8K14560 * 005760 3000600400 14570 JC $+20,0 PROC8K14570 * 005765 3000600450 14580 JC $+15,40 0 DOF- 09091.08096 CY PROC8K14580 9 * 005772 3000600446 14590 JC $+10,38 8 + AN 11061.11084 -ROC8K14590 1 * 005777 1000304100 14600 JR EXIT,0 PROC8K14600 * 006004 1000316100 14610 JR ER2,0 PROC8K14610 006011 5600215144 14620 BD1 DEC2,4 PROC8K14620 006016 6400001740 14630 LS 15,32 PROC8K14630 006023 6600001704 14640 AD1 15,4 PROC8K14640 * 006030 3000604246 14650 JC $+10,38 8 SIGN- 11084.08095 CP PROC8K14650 1 * 006035 3000606100 14660 JC $+20,0 PROC8K14660 006042 5400001737 14670 LP 15,31 PROC8K14670 006047 7000215644 14680 CB1 DEC1-3,4,4 PROC8K14680 * 006054 1000304142 14690 JR EXIT,34 4 BLOCK IC 07078 D6-. 07077 PAN- PROC8K14690 I * 006061 1000316100 14700 JR ER2,0 PROC8K14700 006066 5600214241 14710 BD1 DEC2-7,1,1 PROC8K14710 006073 6400001740 14720 LS 15,32 PROC8K14720 006100 6600001701 14730 AD1 15,1 PROC8K14730 006105 3400001743 14740 CC 15,35 PROC8K14740 * 006112 1000304142 14750 JR EXIT,34 4 -SIGN 11075 CP-. 07014 PROC8K14750 1 * 006117 1000316100 14760 JR ER2,0 PROC8K14760 006124 5600215141 14770 BD1 DEC2,1 PROC8K14770 006131 6600001741 14780 SD1 15,1 PROC8K14780 006136 3400001703 14790 CC 15,3 PROC8K14790 * 006143 1000304142 14800 JR EXIT,34 4 ICT S PROC8K14800 * 006150 1000316100 14810 JR ER2,0 PROC8K14810 006155 5600215141 14820 BD1 DEC2,1 PROC8K14820 006162 6400001740 14830 LS 15,32 PROC8K14830 006167 6600001741 14840 SD1 15,1 PROC8K14840 006174 3400001703 14850 CC 15,3 PROC8K14850 * 006201 1000304142 14860 JR EXIT,34 4 IC- S PROC8K14860 * 006206 1000316100 14870 JR ER2,0 PROC8K14870 006213 5600216141 14880 BD1 DEC1,1 PROC8K14880 006220 6400001740 14890 LS 15,32 PROC8K14890 006225 5600216161 14900 BD2 DEC1,1 PROC8K14900 006232 6600003741 14910 SD1 31,1 PROC8K14910 006237 3400001753 14920 CC 15,43 PROC8K14920 * 006244 1000304142 14930 JR EXIT,34 4 BLK. I.C. PROC8K14930 . * 006251 1000316100 14940 JR ER2,0 PROC8K14940 006256 5600216141 14950 BD1 DEC1,1 PROC8K14950 006263 6400001740 14960 LS 15,32 PROC8K14960 006270 5600216161 14970 BD2 DEC1,1 PROC8K14970 006275 6600001761 14980 SD2 15,1 PROC8K14980 006302 3400003713 14990 CC 31,11 PROC8K14990 * 006307 1000304142 15000 JR EXIT,34 4 BLKIC PROC8K15000 * 006314 1000316100 15010 JR ER2,0 PROC8K15010 006321 5600215104 15020 BA1 DEC2,4 PROC8K15020 006326 5600215164 15030 BD2 DEC2,4 PROC8K15030 006333 6200001724 15040 AM2 15,4 PROC8K15040 006340 7000215644 15050 CB1 DEC1-3,4,4 PROC8K15050 * 006345 1000304142 15060 JR EXIT,34 4 EP BHCP CY A2 PROC8K15060 P * 006352 1000316100 15070 JR ER2,0 PROC8K15070 006357 5600215103 15080 BA1 DEC2,3 PROC8K15080 006364 5600215164 15090 BD2 DEC2,4 PROC8K15090 006371 4400001400 15100 SC 12,0 PROC8K15100 006376 6200001723 15110 AM2 15,3 -ROC8K15110 006403 7000215643 15120 CB1 DEC1-3,3,3 PROC8K15120 * 006410 3000642250 15130 JC $+10,40 0 LAC FAC PROC8K15130 C * 006415 3000645300 15140 JC $+30,0 PROC8K15140 006422 3400001400 15150 CC 12,0 PROC8K15150 * 006427 3000644142 15160 JC $+10,34 4 EP BM 1 AC CP PC4 PROC8K15160 1 * 006434 3000645300 15170 JC $+15,0 PROC8K15170 * 006441 3000644635 15180 JC $+5,29 R RESET CL2 PROC8K15180 L * 006446 1000304126 15190 JR EXIT,22 2 RESET SI2 PROC8K15190 S * 006453 1000316100 15200 JR ER2,0 PROC8K15200 006460 5600215104 15210 BA1 DEC2,4 PROC8K15210 006465 5600215163 15220 BD2 DEC2,3 PROC8K15220 006472 6200001724 15230 AM2 15,4 PROC8K15230 006477 7000215643 15240 CB1 DEC1-3,3,3 PROC8K15240 * 006504 3000651642 15250 JC $+10,34 4 M A PROC8K15250 * 006511 3000653000 15260 JC $+15,0 PROC8K15260 006516 3400001410 15270 CC 12,8 PROC8K15270 * 006523 1000304142 15280 JR EXIT,34 4 SEN BM PROC8K15280 * 006530 1000316100 15290 JR ER2,0 PROC8K15290 006535 5600215104 15300 BA1 DEC2,4 A A M PROC8K15300 006542 5600215064 15310 BD2 DEC2-1,4,4 PROC8K15310 006547 6400003740 15320 LS 31,32 -ROC8K15320 006554 6200001723 15330 AM2 15,3 PROC8K15330 006561 3400001504 15340 CC 13,4 PROC8K15340 * 006566 3000660042 15350 JC $+10,34 4 I.C. PROC8K15350 * 006573 3000661200 15360 JC $+15,0 PROC8K15360 * 006600 3000661246 15370 JC $+10,38 8 EP PC4 PROC8K15370 * 006605 1000304100 15380 JR EXIT,0 PROC8K15380 * 006612 1000316100 15390 JR ER2,0 PROC8K15390 006617 4400001750 15400 SC 15,40 T1T19 PROC8K15400 006624 4400003710 15410 SC 31,8 PROC8K15410 006631 6200001721 15420 AM2 15,1 PROC8K15420 * 006636 3000665546 15430 JC $+15,38 8 SET EPF PROC8K15430 F 006643 3400001703 15440 CC 15,3 PROC8K15440 * 006650 1000304142 15450 JR EXIT,34 4 BLOCK EPPC4 A2 PROC8K15450 E * 006655 1000316100 15460 JR ER2,0 PROC8K15460 006662 5600216103 15470 BA1 DEC1,3 T T20 PROC8K15470 006667 5600215463 15480 BD2 DEC1-5,3,3 PROC8K15480 006674 6400003740 15490 LS 31,32 PROC8K15490 006701 6200001723 15500 AM2 15,3 PROC8K15500 * 006706 3000672046 15510 JC $+10,38 8 BLOCK EP PC4 RDL PROC8K15510 E * 006713 3000673200 15520 JC $+15,0 PROC8K15520 006720 3400001752 15530 CC 15,42 PROC8K15530 * 006725 1000304142 15540 JR EXIT,34 4 RECOMP EP PC4 CP PROC8K15540 * 006732 1000316100 15550 JR ER2,0 PROC8K15550 006737 5600215604 15560 BA1 DEC1-3,4,4 PROC8K15560 006744 5600215164 15570 BD2 DEC2,4 PROC8K15570 006751 6200001764 15580 SM2 15,4 -ROC8K15580 006756 7000215144 15590 CB1 DEC2,4 PROC8K15590 * 006763 1000304142 15600 JR EXIT,34 4 IC PROC8K15600 * 006770 1000316100 15610 JR ER2,0 PROC8K15610 006775 5600215104 15620 BA1 DEC2,4 PROC8K15620 007002 5600215164 15630 BD2 DEC2,4 PROC8K15630 007007 6400003740 15640 LS 31,32 PROC8K15640 007014 6200001764 15650 SM2 15,4 -ROC8K15650 007021 7000215644 15660 CB1 DEC1-3,4,4 PROC8K15660 * 007026 1000304142 15670 JR EXIT,34 4 BLK IC PROC8K15670 * 007033 1000316100 15680 JR ER2,0 PROC8K15680 007040 5600215146 15690 BD1 DEC2,6 PROC8K15690 007045 2600215146 15700 CD1 DEC2,6 PROC8K15700 * 007052 3000706442 15710 JC $+10,34 4 IC+CP+ PROC8K15710 * 007057 3000707600 15720 JC $+15,0 PROC8K15720 007064 3400001712 15730 CC 15,10 PROC8K15730 * 007071 1000304142 15740 JR EXIT,34 4 BLK. MEM PROC8K15740 E * 007076 1000316100 15750 JR ER2,0 PROC8K15750 007103 5600216144 15760 BD1 DEC1,4 PROC8K15760 007110 6400001740 15770 LS 15,32 PROC8K15770 007115 2600001744 15780 CD1 15,4 PROC8K15780 * 007122 3000713442 15790 JC $+10,34 4 IC+CP- PROC8K15790 * 007127 3000714600 15800 JC $+15,0 PROC8K15800 * 007134 3000714644 15810 JC $+10,36 6 EP FAL PROC8K15810 * 007141 1000304100 15820 JR EXIT,0 PROC8K15820 * 007146 1000316100 15830 JR ER2,0 PROC8K15830 007153 5600215142 15840 BD1 DEC2,2 PROC8K15840 007160 6400001740 15850 LS 15,32 PROC8K15850 007165 2600215142 15860 CD1 DEC2,2 PROC8K15860 * 007172 3000720444 15870 JC $+10,36 6 M6 HI PROC8K15870 * 007177 3000721600 15880 JC $+15,0 PROC8K15880 * 007204 3000721642 15890 JC $+10,34 4 RESET EQ PROC8K15890 E * 007211 1000304100 15900 JR EXIT,0 PROC8K15900 * 007216 1000316100 15910 JR ER2,0 PROC8K15910 007223 5600216143 15920 BD1 DEC1,3 PROC8K15920 007230 5600216163 15930 BD2 DEC1,3 PROC8K15930 007235 6400001740 15940 LS 15,32 PROC8K15940 007242 2600001763 15950 CD2 15,3 PROC8K15950 * 007247 3000726141 15960 JC $+10,33 3 M6 HI PROC8K15960 * 007254 3000727300 15970 JC $+15,0 PROC8K15970 * 007261 3000727344 15980 JC $+10,36 6 EP SIGN PROC8K15980 N * 007266 1000304100 15990 JR EXIT,0 PROC8K15990 * 007273 1000316100 16000 JR ER2,0 PROC8K16000 007300 5600215144 16010 BD1 DEC2,4 PROC8K16010 007305 2600215044 16020 CD1 DEC2-1,4,4 PROC8K16020 * 007312 1000304141 16030 JR EXIT,33 3 CY BLOCK FAC+SF PROC8K16030 C * 007317 1000316100 16040 JR ER2,0 PROC8K16040 007324 5600215145 16050 BD1 DEC2,5 PROC8K16050 007331 2600215143 16060 CD1 DEC2,3 PROC8K16060 * 007336 1000304141 16070 JR EXIT,33 3 HI PROC8K16070 * 007343 1000316100 16080 JR ER2,0 EPEP BM CY EQ -ROC8K16080 007350 5600215142 16090 BD1 DEC2,2 PROC8K16090 007355 2600215144 16100 CD1 DEC2,4 PROC8K16100 * 007362 1000304144 16110 JR EXIT,36 6 SF CY PROC8K16110 * 007367 1000316100 16120 JR ER2,0 EPEP SF CY PROC8K16120 007374 5600216160 16130 BD2 DEC1,0 PROC8K16130 007401 2600216160 16140 CD2 DEC1,0 PROC8K16140 * 007406 1000304142 16150 JR EXIT,34 4 EP FAC - CY PROC8K16150 * 007413 1000316100 16160 JR ER2,0 PROC8K16160 007420 5600217201 16170 BA1 K38,1 01011042 PROC8K16170 007425 5600217321 16180 BA2 K39,1 PROC8K16180 007432 7200001721 16190 AB2 15,1 PROC8K16190 * 007437 1000314745 16200 JR ER1,37 PROC8K16200 * 007444 1000307200 16210 JR NEXT,0 PROC8K16210 007451 5600225101 16220 BA1 K49,1 01011043 PROC8K16220 007456 5600225521 16230 BA2 K49+4,1 1 PROC8K16230 007463 7200001721 16240 AB2 15,1 PROC8K16240 * 007470 1000314745 16250 JR ER1,37 PROC8K16250 * 007475 1000307200 16260 JR NEXT,0 PROC8K16260 007502 4400012705 16270 SC 87,5 CHEHECK MP,009035, IER 2 -ROC8K16270 0 007507 5600216161 16280 BD2 DEC1,1 I ICAND 4 PROC8K16280 007514 5000250001 16290 MPN 02500,1 1 402 NON-CUMULATIVE PROC8K16290 007521 7000216341 16300 CB1 K35,1 DEDEC 8,OCT 13 PROC8K16300 T * 007526 3000754042 16310 JC $+10,34 4 PROC8K16310 * 007533 3000755200 16320 JC $+15,0 PROC8K16320 * 007540 3000755245 16330 JC $+10,37 7 011041, AZ RESET BY S4 PROC8K16330 , * 007545 1000304100 16340 JR EXIT,0 PROC8K16340 * 007552 1000316100 16350 JR ER2,0 PROC8K16350 007557 4400012706 16360 SC 87,6 00909035D2-+,036D3-,IER3 PROC8K16360 + 007564 5600215261 16370 BD2 DEC2+1,1,1 ICAND 8, OCT 13 -ROC8K16370 007571 5000000001 16380 MPN ,1 8X3 N-C PROC8K16380 007576 7000216642 16390 CB1 K36,2 DEDEC 24,OCT 0507 PROC8K16390 C * 007603 3000761542 16400 JC $+10,34 4 PROC8K16400 * 007610 3000762700 16410 JC $+15,0 PROC8K16410 * 007615 3000762745 16420 JC $+10,37 7 011040, AZ RESET BY S3 PROC8K16420 , * 007622 1000304100 16430 JR EXIT,0 POC8K16430 * 007627 1000316100 16440 JR ER2,0 PROC8K16440 007634 4400012714 16450 SC 87,12 00009035D4-,IER9 PROC8K16450 - 007641 5600214161 16460 BD2 WORK,1 I ICAND 0 PROC8K16460 007646 5000000001 16470 MPN ,1 0X9 N-C PROC8K16470 007653 7000217041 16480 CB1 K37,1 DEDEC 0,OCT 03 PROC8K16480 T * 007660 3000767242 16490 JC $+10,34 4 PROC8K16490 * 007665 3000767700 16500 JC $+10,0 PROC8K16500 * 007672 1000304145 16510 JR EXIT,37 7 011033 PROC8K16510 * 007677 1000316100 16520 JR ER2,0 PROC8K16520 007704 4400012710 16530 SC 87,8 00909036D4-,IER5 PROC8K16530 , 007711 5600160661 16540 BD2 K12+1,1 1 ICAND 2,OCT05 PROC8K16540 2 007716 5000000001 16550 MPN ,1 2X5 N-C PROC8K16550 007723 2600217242 16560 CD1 K38,2 OCOCT 0403 PROC8K16560 * 007730 3000774242 16570 JC $+10,34 4 PROC8K16570 * 007735 3000775400 16580 JC $+15,0 PROC8K16580 * 007742 3000775445 16590 JC $+10,37 7 PROC8K16590 * 007747 1000304100 16600 JR EXIT,0 PROC8K16600 * 007754 1000316100 16610 JR ER2,0 PROC8K16610 007761 4400012703 16620 SC 87,3 00909036,IER0 PROC8K16620 R 007766 5600161161 16630 BD2 K12+4,1 1 ICAND 9,OCT14 PROC8K16630 9 007773 5000000001 16640 MPN ,1 9X0 N-C PROC8K16640 010000 2600217241 16650 CD1 K38,1 OCOCT03 -ROC8K16650 * 010005 1000304142 16660 JR EXIT,34 4 PROC8K16660 * 010012 1000316100 16670 JR ER2,0 PROC8K16670 010017 5600217462 16680 BD2 K41,2 MIMINUS X MINUS, OCT 0445 PROC8K16680 M 010024 5600217602 16690 BA1 K42,2 OCOCT 0546 PROC8K16690 010031 5200012702 16700 SA1 87,2 PROC8K16700 010036 5000000002 16710 MPN ,2 -12X-23 N-C PROC8K16710 010043 2600220143 16720 CD1 K43,3 OCOCT 051211 PROC8K16720 1 * 010050 3001006242 16730 JC $+10,34 4 PROC8K16730 * 010055 3001007400 16740 JC $+15,0 PROC8K16740 * 010062 3001007446 16750 JC $+10,38 8 -ROC8K16750 * 010067 1000304100 16760 JR EXIT,0 PROC8K16760 * 010074 1000316100 16770 JR ER2,0 PROC8K16770 010101 5600220564 16780 BD2 K44,4 MIMINUS X PLUS, OCT 06071051 PROC8K16780 P 010106 5600221104 16790 BA1 K45,4 OCOCT 11121314 PROC8K16790 1 010113 5200012704 16800 SA1 87,4 PROC8K16800 010120 5000000004 16810 MPN ,4 -3456X6789 N-C PROC8K16810 010125 2600222150 16820 CD1 K46,8 OCOCT 0506071105121347 PROC8K16820 0 * 010132 3001014442 16830 JC $+10,34 4 PROC8K16830 * 010137 3001015100 16840 JC $+10,0 PROC8K16840 * 010144 1000304146 16850 JR EXIT,38 8 PROC8K16850 * 010151 1000316100 16860 JR ER2,0 PROC8K16860 010156 5600223170 16870 BD2 K47,8 PLPLUSXMINUS, OCT 141210 PROC8K16870 U 010163 5600224110 16880 BA1 K48,8 060604030507 PROC8K16880 0 010170 5200012710 16890 SA1 87,8 111113141112071045 PROC8K16890 2 010175 5000000000 16900 MPN ,0 PROC8K16900 010202 2600226140 16910 CD1 K51,16 O OCT 1112051107111105 PROC8K16910 2 * 010207 3001022142 16920 JC $+10,34 4 0411050603130753 PROC8K16920 0 * 010214 3001022600 16930 JC $+10,0 PROC8K16930 * 010221 1000304146 16940 JR EXIT,38 8 PROC8K16940 * 010226 1000316100 16950 JR ER2,0 PROC8K16950 * 010233 1001057264 16960 RANDM JR PRINT,5252 RANDOM MULTIPLY PROC8K16960 010240 4401046577 16970 SC CTR+4,6363 PROC8K16970 010245 4401047777 16980 SC CTR+14,6,63 PROC8K16980 010252 4401035720 16990 3 SC NXT+29,1,16 PROC8K16990 010257 5600223140 17000 BD1 K47,16 PROC8K17000 010264 5200013710 17010 SA1 95,8 PROC8K17010 010271 5600000730 17020 BA2 7,8 PROC8K17020 * 010276 1000307200 17030 JR NEXT,0 PROC8K17030 010303 4401042202 17040 AGAIN SC $+79,2 PROC8K17040 010310 5600013710 17050 BA1 95,8 PROC8K17050 010315 5200000730 17060 SA2 7,8 PROC8K17060 010322 2000000011 17070 NXT FT 0,9 PROC8K17070 010327 3420000003 17080 CC 0,3,1 PROC8K17080 * 010334 3001034644 17090 JC $+10,36 6 PROC8K17090 010341 4420000012 17100 SC 0,10,1 PROC8K17100 010346 6000004701 17110 AC 39,1 PROC8K17110 * 010353 3201032720 17120 JL NXT+5,1616 PROC8K17120 010360 4401035720 17130 SC $-1,16 PROC8K17130 010365 5200012710 17140 SA1 87,8 -ROC8K17140 010372 5200013710 17150 SA1 95,8 PROC8K17150 010377 5600000770 17160 BD2 7,8 PROC8K17160 010404 5000000010 17170 MPN ,8 PROC8K17170 * 010411 1001057264 17180 JR PRINT,5252 PROC8K17180 * 010416 3201053602 17190 JL SWAP,2 PROC8K17190 010423 4401042202 17200 SC $-1,2 PROC8K17200 010430 2600245340 17210 CD1 PROD,16 6 PROC8K17210 * 010435 1000304142 17220 JR EXIT,34 4 PROC8K17220 * 010442 1000316100 17230 JR ER2,0 PROC8K17230 010447 2001030307 17240 FT AGAIN,7 7 PROC8K17240 010454 5200312323 17250 SA2 REP+3,3 3 PROC8K17250 * 010461 3201032277 17260 CTR JL NXT,63 PROC8K17260 010466 4401046577 17270 SC $-1,63 PROC8K17270 * 010473 3201032277 17280 JL NXT,63 PROC8K17280 010500 4401047777 17290 SC $-1,63 PROC8K17290 010505 2600230140 17300 CD1 K52,16 PROC8K17300 * 010512 1000304142 17310 JR EXIT,34 4 PROC8K17310 * 010517 1000316100 17320 JR ER2,0 -ROC8K17320 010524 4401060002 17330 SC PRINT+9,9,2 PROC8K17330 * 010531 3001071400 17340 JC CUMT,0 PROC8K17340 010536 5200245300 17350 SWAP SA1 PROD,16 6 PROC8K17350 010543 5600003710 17360 BA1 31,8 PROC8K17360 010550 5600013730 17370 BA2 95,8 PROC8K17370 010555 5200000730 17380 SA2 7,8 PROC8K17380 * 010562 3001032200 17390 JC NXT,0 PROC8K17390 * 010567 3001056700 17400 PRINT JC $,0 PROC8K17400 * 010574 3201064402 17410 JL TITLE,2 2 PROC8K17410 010601 4200272026 17420 ST PTMP+16,6,22 PROC8K17420 010606 4200272427 17430 ST PTMP+20,0,23 PROC8K17430 010613 5200274230 17440 SA2 PTMP+34,4,8 PROC8K17440 010620 5200276600 17450 SA1 PTMP+54,4,16 PROC8K17450 010625 4000620400 17460 XF 50,0040000,00,0 PROC8K17460 * 010632 3001056700 17470 JC PRINT,0 0 -ROC8K17470 * 010637 3001056700 17480 JC PRINT,0 0 PROC8K17480 010644 2000270040 17490 TITLE FT PTMP,32 2 PROC8K17490 010651 4400020701 17500 SC 0207,1 PROC8K17500 010656 2000004422 17510 FT 36,18 PROC8K17510 010663 2000271620 17520 FT PTMP+14,4,16 PROC8K17520 010670 2400245401 17530 TFR PROD+1,1,1 PROC8K17530 010675 2600271504 17540 PD PTMP+13,3,4 PROC8K17540 010702 2600277706 17550 PD PTMP+63,3,6 PROC8K17550 * 010707 3001062500 17560 JC PRINT+3030,0 PROC8K17560 010714 5600221240 17570 CUMT BD1 K45+1,1616 CUMULATIVE MULTIPLY TEST PROC8K17570 A 010721 5200012710 17580 SA1 87,8 -ROC8K17580 010726 5600222170 17590 BD2 K46,8 PROC8K17590 010733 5000000030 17600 MPC ,8 PROC8K17600 010740 2600232140 17610 CD1 K53,16 -ROC8K17610 * 010745 1000304142 17620 JR EXIT,34 4 PROC8K17620 * 010752 1000316100 17630 JR ER2,0 PROC8K17630 * 010757 3000237352 17640 JC ZERO,42 2 011 033 BAZ- PROC8K17640 010764 2600001720 17650 PD0 15,16 PROC8K17650 010771 2600012730 17660 PD0 87,8 PROC8K17660 010776 5600214261 17670 BD2 WORK+1,1,1 PROC8K17670 011003 5000000021 17680 MPC ,1 PROC8K17680 * 011010 1000314745 17690 JR ER1,37 PROC8K17690 * 011015 1000307200 17700 JR NEXT,0 PROC8K17700 * 011022 3000150652 17710 JC PIE+6,4242 PROC8K17710 011027 5600214461 17720 BD2 WORK+3,1,1 PROC8K17720 011034 2600001720 17730 PD0 15,16 PROC8K17730 011041 4400012705 17740 SC 87,5 PROC8K17740 011046 5000000021 17750 MPC ,1 2X2- PROC8K17750 * 011053 1000304145 17760 JR EXIT,37 7 POC8K17760 * 011060 1000316100 17770 JR ER2,0 PROC8K17770 * 011065 3000150652 17780 JC PIE+6,4242 PROC8K17780 011072 5600214461 17790 BD2 WORK+3,1,1 -ROC8K17790 011077 2600001720 17800 PD0 15,16 PROC8K17800 011104 4400012713 17810 SC 87,11 PROC8K17810 011111 5000000021 17820 MPC ,1 2X4 PROC8K17820 * 011116 1000304145 17830 JR EXIT,37 7 PROC8K17830 * 011123 1000316100 17840 JR ER2,0 PROC8K17840 * 011130 3001113534 17850 JC $+5,28 010 159 TEST DOF WITH PROC8K17850 011135 5600223777 17860 BD2 K48-2,1515 CY, CM - PROC8K17860 011142 5600217502 17870 BA1 K42-1,2 2 PROC8K17870 011147 5200012702 17880 SA1 0127,2 PROC8K17880 011154 5000000002 17890 MPN ,2 PROC8K17890 * 011161 3001117350 17900 JC $+10,40 0 PROC8K17900 * 011166 1000314700 17910 JR ER1,0 PROC8K17910 * 011173 1000307237 17920 JR NEXT,31 1 PROC8K17920 * 011200 3001120534 17930 JC $+5,28 T TEST DOF WITH CM, CY- PROC8K17930 F 011205 5600222077 17940 BD2 K46-1,1515 PROC8K17940 011212 5600225102 17950 BA1 K49,2 PROC8K17950 011217 5200012702 17960 SA1 0127,2 PROC8K17960 011224 5000000002 17970 MPN ,2 PROC8K17970 * 011231 3001124350 17980 JC $+10,40 0 PROC8K17980 * 011236 1000314700 17990 JR ER1,0 PROC8K17990 * 011243 1000307237 18000 JR NEXT,31 1 PROC8K18000 011250 4600221125 18010 BT K45,21 C CHECK DIVIDE, PLUS PLUS PROC8K18010 I 011255 5600217301 18020 BA1 K39,1 PROC8K18020 011262 2600001621 18030 PD0 14,1 PROC8K18030 011267 5600220261 18040 BD2 K43+1,1 1 PROC8K18040 011274 5000000041 18050 DV 0, 1 1 3 3 PROC8K18050 011301 5600012721 18060 BA2 87,1 PROC8K18060 011306 7000217261 18070 CB2 K38,1 Q QUOTIENT OCT 03 PROC8K18070 T * 011313 3001132542 18080 JC $+10,34 4 PROC8K18080 * 011320 3001137000 18090 JC $+40,0 PROC8K18090 011325 4400001663 18100 SC 14,51 PROC8K18100 011332 2600217341 18110 CD1 K39,1 REREMAINDER OCT 04 PROC8K18110 R * 011337 3001135142 18120 JC $+10,34 4 PROC8K18120 * 011344 3001137000 18130 JC $+20,0 PROC8K18130 * 011351 3001137045 18140 JC $+15,37 7 AZ RESET PROC8K18140 E * 011356 3001137046 18150 JC $+10,38 8 AN RESET PROC8K18150 E * 011363 1000304100 18160 JR EXIT,0 PROC8K18160 * 011370 1000316100 18170 JR ER2,0 PROC8K18170 011375 4600230325 18180 BT K52+2,2121 PLUS MINUS PROC8K18180 011402 5600220303 18190 BA1 K43+2,3 3 OCT 110607 PROC8K18190 1 011407 2600001422 18200 PD0 12,2 PROC8K18200 011414 5600232362 18210 BD2 K54,2 OCOCT 0552 PROC8K18210 011421 5000000042 18220 DV 0, 2 63634 -27 PROC8K18220 011426 5600012722 18230 BA2 87,2 PROC8K18230 011433 2600217662 18240 CD2 K42,2 QUQUOTIENT OCT 0546 PROC8K18240 * 011440 3001145242 18250 JC $+10,34 4 PROC8K18250 * 011445 3001150300 18260 JC $+30,0 PROC8K18260 011452 4400001563 18270 SC 13,51 PROC8K18270 011457 2600231442 18280 CD1 K53-5,2 2 REMAINDER OCT 0406 PROC8K18280 N * 011464 3001147642 18290 JC $+10,34 4 PROC8K18290 * 011471 3001150300 18300 JC $+10,0 PROC8K18300 * 011476 1000304146 18310 JR EXIT,38 8 -ROC8K18310 * 011503 1000316100 18320 JR ER2,0 PROC8K18320 011510 4600221125 18330 BT K45,21 MINUS PLUS PROC8K18330 P 011515 5600222107 18340 BA1 K46,7 O OCT 06071105121347 PROC8K18340 7 011522 2600001021 18350 PD0 8,1 PROC8K18350 011527 5600220164 18360 BD2 K43,4 O OCT 06051211 PROC8K18360 5 011534 5000000044 18370 DV 0, 4 343462784- 3276 PROC8K18370 011541 5600012724 18380 BA2 87,4 PROC8K18380 011546 7000233164 18390 CB2 K56,4 Q QUOTIENT OCT 04031052 PROC8K18390 T * 011553 3001156542 18400 JC $+10,34 4 PROC8K18400 * 011560 3001161600 18410 JC $+30,0 PROC8K18410 011565 4400001363 18420 SC 11,51 PROC8K18420 011572 2600233544 18430 CD1 K57,4 R REMAINDER OCT 03031045 PROC8K18430 E * 011577 3001161142 18440 JC $+10,34 4 PROC8K18440 * 011604 3001161600 18450 JC $+10,0 PROC8K18450 * 011611 1000304146 18460 JR EXIT,38 8 PROC8K18460 * 011616 1000316100 18470 JR ER2,0 PROC8K18470 011623 5600215210 18480 BA1 DEC2+1,8,8 MINUS MINUS PROC8K18480 S 011630 5200012710 18490 SA1 87,8 PROC8K18490 011635 5600222110 18500 BA1 K46,8 O OCT 0506071105121347 PROC8K18500 6 011642 5600222166 18510 BD2 K46,6 O OCT 071105121347 PROC8K18510 1 011647 5000000042 18520 DV 0, 2 -2-23462784 -462784 PROC8K18520 4 011654 5600012730 18530 BA2 87,8 PROC8K18530 011661 7000234570 18540 CB2 K58+1,8 8 OCT 0405060710111003 PROC8K18540 0 * 011666 3001170042 18550 JC $+10,34 4 PROC8K18550 * 011673 3001173600 18560 JC $+35,0 PROC8K18560 011700 4400001063 18570 SC 8,51 -ROC8K18570 011705 2600235346 18580 CD1 K59,6 O OCT 060506101347 PROC8K18580 5 * 011712 3001172442 18590 JC $+10,34 4 PROC8K18590 * 011717 3001173600 18600 JC $+15,0 PROC8K18600 * 011724 3001173646 18610 JC $+10,38 8 PROC8K18610 * 011731 1000304100 18620 JR EXIT,0 PROC8K18620 * 011736 1000316100 18630 JR ER2,0 PROC8K18630 * 011743 3001175034 18640 JC $+5,28 0 010157, TEST DOF PROC8K18640 011750 5600220102 18650 BA1 K43,2 O OCT 1211 PROC8K18650 1 011755 5600225161 18660 BD2 K49,1 O OCT 05 PROC8K18660 011762 5000000041 18670 DV 0, 1 7676 2 PROC8K18670 * 011767 3001200150 18680 JC $+10,40 0 PROC8K18680 * 011774 1000314700 18690 JR ER1,0 18690 * 012001 1000307237 18700 JR NEXT,31 1 PROC8K18700 012006 4600230325 18710 BT K52+2,2121 CHECK ZERO REMAINDER -ROC8K18710 012013 5600223303 18720 BA1 K47+2,3 3 OCT 071113 PROC8K18720 7 012020 2600001421 18730 PD0 12,1 PROC8K18730 012025 5600221463 18740 BD2 K45+3,3 3 OCT 050607 PROC8K18740 0 012032 5000000041 18750 DV 0, 1 46468-234 PROC8K18750 012037 5600012721 18760 BA2 87,1 PROC8K18760 012044 7000225161 18770 CB2 K49,1 QUQUOTIENT OCT 05 PROC8K18770 * 012051 3001206342 18780 JC $+10,34 4 PROC8K18780 * 012056 3001211400 18790 JC $+30,0 PROC8K18790 012063 4400001463 18800 SC 12,51 PROC8K18800 012070 2600176043 18810 CD1 CON2+3,3,3 REMAINDER OCT 030303 PROC8K18810 I * 012075 3001210742 18820 JC $+10,34 4 PROC8K18820 * 012102 3001211400 18830 JC $+10,0 PROC8K18830 * 012107 1000304145 18840 JR EXIT,37 7 PROC8K18840 * 012114 1000316100 18850 JR ER2,0 PROC8K18850 012121 4600225125 18860 BT K49,21 C CHECK FAC PROC8K18860 A 012126 5600223140 18870 BD1 K47,16 2 2346278497531024 -ROC8K18870 4 012133 5600225170 18880 BD2 K49,8 DEDEC 67264662 PROC8K18880 4 012140 5000000050 18890 DV 0, 8 PROC8K18890 012145 5600012730 18900 BA2 87,8 PROC8K18900 012152 7000252770 18910 CB2 K61+7,8 8 QUOTIENT 34881294 PROC8K18910 N * 012157 3001217142 18920 JC $+10,34 4 PROC8K18920 * 012164 3001221000 18930 JC $+20,0 PROC8K18930 012171 4400000763 18940 SC 7,51 PROC8K18940 012176 2600253750 18950 CD1 K62+7,8 8 REMAINDER 46498396 PROC8K18950 D * 012203 1000304142 18960 JR EXIT,34 4 PROC8K18960 * 012210 1000316100 18970 JR ER2,0 PROC8K18970 012215 2600004102 18980 PD 041,2 CHCHECK CS,77+00 -ROC8K18980 , 012222 3600255602 18990 CS K63-1,2 2 PROC8K18990 012227 5600004102 19000 BA1 041,2 PROC8K19000 012234 7000255642 19010 CB1 K63-1,2 2 7777 PROC8K19010 * 012241 1000304142 19020 JR EXIT,34 4 PROC8K19020 * 012246 1000316100 19030 JR ER2,0 PROC8K19030 012253 2600004102 19040 PD 041,2 0000+00 PROC8K19040 012260 3600256102 19050 CS K63+2,2 2 PROC8K19050 012265 5600004102 19060 BA1 041,2 PROC8K19060 012272 7000237342 19070 CB1 ZERO,2 0 0000 PROC8K19070 * 012277 1000304142 19080 JR EXIT,34 4 PROC8K19080 * 012304 1000316100 19090 JR ER2,0 PROC8K19090 012311 4600255710 19100 BT K63,8 77+77,00+00 PROC8K19100 012316 3600255602 19110 CS K63-1,2 2 PROC8K19110 012323 5600004102 19120 BA1 041,2 PROC8K19120 012330 7000237342 19130 CB1 ZERO,2 PROC8K19130 * 012335 1000304142 19140 JR EXIT,34 4 PROC8K19140 * 012342 1000316100 19150 JR ER2,0 PROC8K19150 012347 4600255710 19160 BT K63,8 00+77 PROC8K19160 012354 3600237310 19170 CS ZERO,8 PROC8K19170 012361 5600004102 19180 BA1 041,2 PROC8K19180 012366 7000255642 19190 CB1 K63-1,2 2 7777 PROC8K19190 * 012373 1000304142 19200 JR EXIT,34 4 PROC8K19200 * 012400 1000316100 19210 JR ER2,0 PROC8K19210 012405 2600004102 19220 PD 041,2 STSTART EVEN,COUNT 64 PROC8K19220 E 012412 3600231000 19230 CS K52+7,0 0 PROC8K19230 012417 2000420103 19240 FT 04201,3 3 PROC8K19240 012424 7000004142 19250 CB1 041,2 OCOCT 3576 PROC8K19250 * 012431 1000304142 19260 JR EXIT,34 4 PROC8K19260 * 012436 1000316100 19270 JR ER2,0 PROC8K19270 012443 2600004102 19280 PD 041,2 STSTART ODD,COUNT 64 PROC8K19280 D 012450 3600230700 19290 CS K52+6,0 0 PROC8K19290 012455 2000421703 19300 FT 04217,3 3 PROC8K19300 012462 7000004142 19310 CB1 041,2 OCOCT 3560 PROC8K19310 * 012467 1000304142 19320 JR EXIT,34 4 PROC8K19320 * 012474 1000316100 19330 JR ER2,0 PROC8K19330 012501 2600007700 19340 PD 077,16 CK. NO INDEX 009 080 PROC8K19340 012506 2600005700 19350 PD 057,16 PROC8K19350 012513 4400004705 19360 SC 047,5 IR=1 PROC8K19360 012520 4400005305 19370 SC 053,5 IR=2 PROC8K19370 012525 4400006305 19380 SC 063,5 IR=4 PROC8K19380 * 012532 3001253700 19390 J $+5 PROC8K19390 * 012537 1000304100 19400 JR EXIT,0 PROC8K19400 * 012544 1000316100 19410 JR ER2,0 PROC8K19410 012551 2000255711 19420 FT K63,9 IR=1 009 080 M5- PROC8K19420 012556 5620000001 19430 BA1 0,1,1 PROC8K19430 012563 7000255741 19440 CB1 K63,1 PROC8K19440 * 012570 1000304142 19450 JR EXIT,34 4 PROC8K19450 * 012575 1000316100 19460 JR ER2,0 PROC8K19460 012602 2000154212 19470 FT K03,10 IR=2 009 080 M6- PROC8K19470 012607 5640000001 19480 BA1 0,1,2 PROC8K19480 012614 7000154241 19490 CB1 K03,1 PROC8K19490 * 012621 1000304142 19500 JR EXIT,34 4 PROC8K19500 * 012626 1000316100 19510 JR ER2,0 PROC8K19510 012633 2000167014 19520 FT K31,12 IR=4 009 080 J1- PROC8K19520 012640 5700000001 19530 BA1 0,1,4 PROC8K19530 012645 7000167041 19540 CB1 K31,1 PROC8K19540 * 012652 1000304142 19550 JR EXIT,34 4 PROC8K19550 * 012657 1000316100 19560 JR ER2,0 PROC8K19560 012664 2000007711 19570 FT 63,9 PROC8K19570 012671 4020410000 19580 XF 041,00,0,00,1 READER MUST BE OFF LINE PROC8K19580 012676 4020000000 19590 XF 000,00,0,00,1 -ROC8K19590 * 012703 1000314753 19600 JR ER1,43 PROC8K19600 * 012710 1000307200 19610 JR NEXT,0 PROC8K19610 012715 2000007717 19620 FT 63,15 IR=7 009 082 F4- PROC8K19620 012722 6160000001 19630 AC 0,1,7 PROC8K19630 012727 3400007700 19640 CC 63,0 PROC8K19640 * 012734 1000304142 19650 JR EXIT,34 4 PROC8K19650 * 012741 1000316100 19660 JR ER2,0 PROC8K19660 012746 2600001721 19670 PD0 15,1 PROC8K19670 012753 2000001713 19680 FT 15,11 IR=3 009 082 F2- PROC8K19680 012760 5460000000 19690 LP 0,0,3 PROC8K19690 012765 3400001700 19700 CC 15,0 PROC8K19700 * 012772 1000304142 19710 JR EXIT,34 4 PROC8K19710 * 012777 1000316100 19720 JR ER2,0 PROC8K19720 013004 2000004716 19730 FT 047,14 IR=6 009 082 F1- PROC8K19730 013011 4340000016 19740 ST 0,14,6 -ROC8K19740 013016 7400004716 19750 CT 047,14 PROC8K19750 * 013023 1000304142 19760 JR EXIT,34 4 PROC8K19760 * 013030 1000316100 19770 JR ER2,0 PROC8K19770 013035 2005000015 19780 FT 050000,1,13 IR=5 015 085 EPF- PROC8K19780 013042 2120000003 19790 FT 0,3,5 PROC8K19790 013047 7000006743 19800 CB1 067,3 PROC8K19800 * 013054 1000304142 19810 JR EXIT,34 4 PROC8K19810 * 013061 1000316100 19820 JR ER2,0 PROC8K19820 013066 2000770015 19830 FT 07700,1313 IR=5 041 022 1 TO M6 PROC8K19830 013073 2120000003 19840 FT 0,3,5 PROC8K19840 013100 7000006743 19850 CB1 067,3 PROC8K19850 * 013105 1000304142 19860 JR EXIT,34 4 PROC8K19860 * 013112 1000316100 19870 JR ER2,0 PROC8K19870 013117 2000007715 19880 FT 077,13 IR=5 Z-1 024 002 PROC8K19880 013124 2120000003 19890 FT 0,3,5 -ROC8K19890 013131 7000006743 19900 CB1 067,3 PROC8K19900 * 013136 1000304142 19910 JR EXIT,34 4 PROC8K19910 * 013143 1000316100 19920 JR ER2,0 PROC8K19920 013150 2007777711 19930 FT 077777,9,9 IR=1 035 060 PROC8K19930 013155 2020000103 19940 FT 1,3,1 PROC8K19940 013162 7000237343 19950 CB1 ZERO,3 PROC8K19950 * 013167 1000304142 19960 JR EXIT,34 4 PROC8K19960 * 013174 1000316100 19970 JR ER2,0 PROC8K19970 013201 2600004704 19980 PD 047,4 _O_ TO CY 035 072 PROC8K19980 013206 2000000011 19990 FT 0,9 PROC8K19990 013213 7400237311 20000 CT ZERO,9 PROC8K20000 * 013220 1000304142 20010 JR EXIT,34 4 PROC8K20010 * 013225 1000316100 20020 JR ER2,0 PROC8K20020 013232 2000000011 20030 FT 0,9 Y-1 025 051 PROC8K20030 013237 2020000011 20040 FT 0,9,1 PROC8K20040 013244 7400237311 20050 CT ZERO,9 PROC8K20050 * 013251 1000304142 20060 JR EXIT,34 4 PROC8K20060 * 013256 1000316100 20070 JR ER2,0 PROC8K20070 * 013263 3000327620 20080 JC OKAY,02020 SECOND PASS O.K. PROC8K20080 013270 5604000001 20090 BA1 040000,1,1 125340 TEST INTERRUPTS PROC8K20090 0 * 013275 3001330765 20100 JC $+10,53 3 PUT BAD PARITY IN PROC8K20100 * 013302 3001332100 20110 J $+15 OCT 40000 + 77777 AND PROC8K20110 * 013307 3001331425 20120 JC $+5,21 PUT READER OFF LINE PROC8K20120 P * 013314 1000304136 20130 JR EXIT,30 0 PROC8K20130 * 013321 1000316100 20140 JR ER2,0 PROC8K20140 * 013326 3000730452 20150 JC DOF,42 1 125046 PROC8K20150 * 013333 3001334566 20160 JC $+10,54 4 PROC8K20160 * 013340 3001336400 20170 J $+20 PROC8K20170 * 013345 3001335250 20180 JC $+5,40 PROC8K20180 * 013352 3001335735 20190 JC $+5,29 PROC8K20190 * 013357 1000304126 20200 JR EXIT,22 2 PROC8K20200 * 013364 1000316100 20210 JR ER2,0 PROC8K20210 * 013371 3000730452 20220 JC DOF,42 1 125046 IR2- PROC8K20220 I * 013376 3001340326 20230 JC $+5,22 PROC8K20230 * 013403 3001342266 20240 JC $+15,54 4 PROC8K20240 * 013410 1001427600 20250 JR CL2,0 PROC8K20250 * 013415 1000304100 20260 JR EXIT,0 PROC8K20260 * 013422 1000316100 20270 JR ER2,0 PROC8K20270 013427 5604000001 20280 BA1 040000,1,1 125046 IR1- PROC8K20280 6 * 013434 3000730452 20290 JC DOF,42 PROC8K20290 * 013441 3001346066 20300 JC $+15,54 4 PROC8K20300 * 013446 1001427600 20310 JR CL2,0 PROC8K20310 * 013453 1000304100 20320 JR EXIT,0 PROC8K20320 * 013460 1000316100 20330 JR ER2,0 PROC8K20330 013465 5604000001 20340 BA1 040000,1,1 125047 IR1- 20340 7 * 013472 3000730452 20350 JC DOF,42 PROC8K20350 * 013477 3001350436 20360 JC $+5,30 PROC8K20360 * 013504 1001427666 20370 JR CL2,54 PROC8K20370 * 013511 1000307200 20380 JR NEXT,0 PROC8K20380 013516 4400041424 20390 SC 0414,20 0 125052 PROC8K20390 1 013523 4020410000 20400 XF 041,00,0,00,1 PROC8K20400 * 013530 3001354267 20410 JC $+10,55 5 PROC8K20410 * 013535 3001354724 20420 JC $+10,20 0 -ROC8K20420 * 013542 3001354727 20430 JC $+5,23 PROC8K20430 * 013547 1000307231 20440 JR NEXT,25 5 PROC8K20440 * 013554 3000730452 20450 JC DOF,42 1 125052 IR2- PROC8K20450 I * 013561 3001356650 20460 JC $+5,40 PROC8K20460 013566 4020410000 20470 XF 041,00,0,00,1 PROC8K20470 * 013573 3001361767 20480 JC $+20,55 5 PROC8K20480 * 013600 1001427600 20490 JR CL2,0 PROC8K20490 * 013605 3001361227 20500 JC $+5,23 PROC8K20500 * 013612 1000304131 20510 JR EXIT,25 5 PROC8K20510 * 013617 1000316100 20520 JR ER2,0 PROC8K20520 013624 5604000001 20530 BA1 040000,1,1 125052 IR1- PROC8K20530 2 013631 4020410000 20540 XF 041,00,0,00,1 PROC8K20540 * 013636 3001366267 20550 JC $+20,55 5 PROC8K20550 * 013643 1001427600 20560 JR CL2,0 PROC8K20560 * 013650 3001365527 20570 JC $+5,23 -ROC8K20570 * 013655 1000304131 20580 JR EXIT,25 5 PROC8K20580 * 013662 1000316100 20590 JR ER2,0 PROC8K20590 013667 4020410000 20600 XF 041,00,0,00,1 125052 IR3- PROC8K20600 5 * 013674 3001370127 20610 JC $+5,23 PROC8K20610 013701 4020410000 20620 XF 041,00,0,00,1 PROC8K20620 * 013706 3001372567 20630 JC $+15,55 5 PROC8K20630 * 013713 3001372031 20640 JC $+5,25 PROC8K20640 * 013720 3001372527 20650 JC $+5,23 PROC8K20650 * 013725 1000307231 20660 JR NEXT,25 5 PROC8K20660 * 013732 3001373732 20670 JC $+5,26 1 125052 IOS3- PROC8K20670 I 013737 4020410000 20680 XF 041,00,0,00,1 PROC8K20680 * 013744 3000314467 20690 JC ER1,55 PROC8K20690 * 013751 3001375633 20700 JC $+5,27 PROC8K20700 * 013756 3001376327 20710 JC $+5,23 PROC8K20710 * 013763 1000307231 20720 JR NEXT,25 5 PROC8K20720 013770 5604000001 20730 BA1 040000,1,1 125 053 IR1- PROC8K20730 013775 4020410000 20740 XF 041,00,0,00,1 PROC8K20740 * 014002 3001400736 20750 JC $+5,30 PROC8K20750 * 014007 1001427667 20760 JR CL2,55 PROC8K20760 * 014014 3001402127 20770 JC $+5,23 PROC8K20770 * 014021 1000307231 20780 JR NEXT,25 5 PROC8K20780 * 014026 3000730452 20790 JC DOF,42 125 053 IR2- PROC8K20790 0 014033 4020410000 20800 XF 041,00,0,00,1 125 053 IRQ- PROC8K20800 * 014040 3001404550 20810 JC $+5,40 PROC8K20810 * 014045 3001405235 20820 JC $+5,29 PROC8K20820 * 014052 1001427667 20830 JR CL2,55 PROC8K20830 * 014057 3001406427 20840 JC $+5,23 PROC8K20840 014064 4400041431 20850 SC 0414,25 5 PROC8K20850 * 014071 1000307231 20860 JR NEXT,25 5 PROC8K20860 014076 2000000522 20870 FT 5,18 061616101 LAO- PROC8K20870 A 014103 2003777320 20880 FT 037773,1,16 PROC8K20880 014110 2403777301 20890 TFR 037773 PROC8K20890 * 014115 1000307200 20900 JR NEXT,0 PROC8K20900 014122 2603777723 20910 PD0 037777,3,3 008060EFBL PROC8K20910 0 014127 2203777543 20920 ZS 037775,3,3 PROC8K20920 * 014134 1000307200 20930 JR NEXT,0 PROC8K20930 014141 4400000430 20940 SC 04,030 013 085 AC21- PROC8K20940 0 014146 5601416404 20950 BA1 $+14,4 PROC8K20950 014153 5200001004 20960 SA1 010,4 PROC8K20960 014160 3401417200 20970 CC $+10,0 PROC8K20970 014171 1000000200 20980 +5 0100000000200 PROC8K20980 * 014172 1000307200 20990 JR NEXT,0 PROC8K20990 * 014177 3004000040 21000 JC 040000,3,32 151079 BEEP PROC8K21000 7 * 014204 1000307200 21010 JR NEXT,0 PROC8K21010 * 014211 3000327600 21020 J OKAY CHANGE TO A SKIP IF PROC8K21020 A 014216 4400001330 21030 SC 11,030 MEM. IS LARGER THAN 16K. PROC8K21030 014223 4601423403 21040 BT $+9,3 PROC8K21040 014230 3401424723 21050 CC $+15,19 9 PROC8K21050 014235 5204000705 21060 SA1 040007,5,5 PROC8K21060 * 014242 3004000300 21070 JC 040003,0,0 PROC8K21070 * 014247 3001426166 21080 JC $+10,54 4 PROC8K21080 * 014254 1000314700 21090 JR ER1,0 PROC8K21090 * 014261 1000307226 21100 JR NEXT,22 2 PROC8K21100 * 014266 3000327600 21110 J OKAY,0 PROC8K21110 * 014273 3001427325 21120 CL2 JC $,21 PROC8K21120 * 014300 3001430550 21130 JC $+5,40 PROC8K21130 * 014305 3001431235 21140 JC $+5,29 PROC8K21140 * 014312 3001431726 21150 JC $+5,22 PROC8K21150 * 014317 3001427336 21160 JC CL2,30 PROC8K21160 014400 21170 ORIG 014400 PROC8K21170 * 014400 1001441000 21180 CONSL JR $+5,0 CHECK BASIC JUMP RETURN PROC8K21180 * 014405 3000003060 21190 JC 24,48 PROC8K21190 * 014412 3000250040 21200 JC 02500,3232 PROC8K21200 014417 2001440503 21210 FT CONSL+5,5,3 PROC8K21210 014424 7001441043 21220 CB1 $-12,3 PROC8K21220 * 014431 3001444342 21230 JC $+10,34 4 PROC8K21230 * 014436 3001443660 21240 JC $,48 PROC8K21240 014443 3401444300 21250 CC $,0 PROC8K21250 * 014450 3001445525 21260 JC $+5,21 C CHECK SI1, RESET PROC8K21260 I * 014455 3001446222 21270 JC $+5,18 S SET PROC8K21270 * 014462 3001447465 21280 JC $+10,53 3 TEST PROC8K21280 * 014467 3001446760 21290 STP04 JC $,48 PROC8K21290 * 014474 3001450125 21300 JC $+5,21 R RESET PROC8K21300 * 014501 3001450165 21310 JC $,53 SI1I1 RESET ERROR PROC8K21310 * 014506 3001451326 21320 JC $+5,22 C CHECK SI2 PROC8K21320 I * 014513 3001452023 21330 JC $+5,19 PROC8K21330 * 014520 3001453266 21340 JC $+10,54 4 PROC8K21340 * 014525 3001452560 21350 STP05 JC $,48 PROC8K21350 * 014532 3001453726 21360 JC $+5,22 PROC8K21360 * 014537 3001453766 21370 JC $,54 SI2I2 RESET ERROR PROC8K21370 * 014544 3001455127 21380 JC $+5,23 C CHECK SI3 PROC8K21380 I * 014551 3001455624 21390 JC $+5,20 PROC8K21390 * 014556 3001457067 21400 JC $+10,55 5 PROC8K21400 * 014563 3001456360 21410 STP06 JC $,48 PROC8K21410 * 014570 3001457527 21420 JC $+5,23 PROC8K21420 * 014575 3001457567 21430 JC $,55 SI3I3 RESET ERROR PROC8K21430 * 014602 3001460260 21440 STP07 JC $,48 SETET SS1,2,3,TI,OP REQ, PROC8K21440 , * 014607 3001461426 21450 JC $+5,22 PROC8K21450 * 014614 3001462662 21460 JC $+10,50 0 CHECK SS1 PROC8K21460 S * 014621 3001462160 21470 STP08 JC $,48 PROC8K21470 * 014626 3001462642 21480 JC $,34 01313041J1 PROC8K21480 * 014633 3001463376 21490 JC $,62 01313041LU0 PROC8K21490 * 014640 3001464061 21500 JC $,49 01313041LD2 PROC8K21500 * 014645 3001465763 21510 JC $+10,51 1 CHECK SS2 PROC8K21510 S * 014652 3001465260 21520 STP09 JC $,48 PROC8K21520 * 014657 3000156652 21530 JC K08+1,4242 21530 * 014664 3001466443 21540 JC $,35 01313042J1 PROC8K21540 * 014671 3001467177 21550 JC $,63 01313042LU0 PROC8K21550 * 014676 3001467661 21560 JC $,49 01313042LD3 PROC8K21560 * 014703 3001471564 21570 JC $+10,52 2 CHECK SS3 -ROC8K21570 S * 014710 3001471060 21580 STP11 JC $,48 PROC8K21580 * 014715 3001471544 21590 JC $,36 01313043J1 PROC8K21590 * 014722 3001472274 21600 JC $,60 01313043LU1 PROC8K21600 * 014727 3001472767 21610 JC $,55 01313043LD0 PROC8K21610 * 014734 3001474120 21620 STP12 JC $+5,16 N NORMAL,RESETSS1,2,3,T-MODE PROC8K21620 R * 014741 3001474162 21630 JC $,50 01313041SS1 PROC8K21630 * 014746 3001474663 21640 JC $,51 01313042SS2 PROC8K21640 * 014753 3001475364 21650 JC $,52 01313043SS3 PROC8K21650 * 014760 3001477272 21660 JC $+10,58 8 CHECK NW PROC8K21660 N * 014765 3001476560 21670 STP13 JC $,48 PROC8K21670 * 014772 3001477274 21680 JC $,60 01313077J1 PROC8K21680 * 014777 3000156652 21690 JC K08+1,4242 21690 * 015004 3001500444 21700 JC $,36 01313077LU3 PROC8K21700 * 015011 3001501156 21710 JC $,46 01313077LD0 PROC8K21710 * 015016 3001502314 21720 JC $+5,12 PROC8K21720 * 015023 3001503554 21730 JC $+10,44 4 PROC8K21730 * 015030 3001503060 21740 STP14 JC $,48 PROC8K21740 * 015035 3001503554 21750 JC $,44 01313077NW2 PROC8K21750 * 015042 3001504731 21760 JC $+5,25 1 107061J2 PROC8K21760 2 * 015047 3001505452 21770 JC $+5,42 PROC8K21770 * 015054 3001505451 21780 JC $,41 10707061J1,013072J1 PROC8K21780 0 * 015061 3001506175 21790 JC $,61 10707061LU2 PROC8K21790 * 015066 3001506673 21800 JC $,59 10707061LD1 PROC8K21800 * 015073 3001510571 21810 JC $+10,57 7 PROC8K21810 * 015100 3001510060 21820 STP15 JC $,48 PROC8K21820 * 015105 3001510571 21830 JC $,57 10707061TI,RESET ERROR PROC8K21830 R * 015112 1001531200 21840 JR CLEAR,0 0 PUT BAD PARITY IN LOC. PROC8K21840 015117 5604000001 21850 BA1 040000,1,1 40000 + 77777 IF MEMORY IS PROC8K21850 * 015124 3001513665 21860 JC $+10,53 3 LARGER THAN 16K. PROC8K21860 * 015131 3001513160 21870 STP16 JD $ NO CL.= 1 ER. 125040 PROC8K21870 015136 5604000001 21880 BA1 040000,1,1 SHOULD STOP 2ND PARITY ER. PROC8K21880 * 015143 3001514300 21890 ER17 J $ TO CONTINUE HIT GEN. CLEAR PROC8K21890 * 015150 1001531200 21900 REC JR CLEAR,0 0 + JUMP TO _REC_ PROC8K21900 * 015155 3000007760 21910 JD 077 PUT CL.= 1-2+3 TO IGNORE PROC8K21910 015162 4400041424 21920 SC 0414,20 0 PROC8K21920 015167 4020410000 21930 XF 041,00,0,00,1 READER SHOULD BE OFF LINE PROC8K21930 * 015174 3000155352 21940 JC K06,42 21940 015201 5604000001 21950 BA1 040000,1,1 POC8K21950 * 015206 3001520667 21960 ER18 JC $,55 CL.=3 NOT IGNORED 125052DEL- PROC8K21960 * 015213 3001521366 21970 ER19 JC $,54 CL=2 NOTIGNORED125095DEL PROC8K21970 * 015220 3001522065 21980 ER21 JC $,53 CL=1NOTIGNORED125070DEL PROC8K21980 * 015225 1001531200 21990 JR CLEAR,0 0 PROC8K21990 * 015232 3000017760 22000 JD 0177 PUT CL.=1-2+3 TO STALL PROC8K22000 015237 4020410000 22010 XF 041,00,0,00,1 PROGRAM SHOULD STALL ON PROC8K22010 * 015244 3000155352 22020 JC K06,42 22020 015251 5604000001 22030 BA1 040000,1,1 HIT GEN. CLEAR AND JUMP PROC8K22030 * 015256 3001525600 22040 ER22 J $ TO THE NEXT INSTRUCTION PROC8K22040 * 015263 1001531200 22050 JR CLEAR,0 0 PROC8K22050 015270 4400041431 22060 SC 0414,25 5 PROC8K22060 * 015275 3000330360 22070 JD RERUN _M_ +RUN FOR MAIN TEST PROC8K22070 * 015302 3001440000 22080 JC CONSL,0 0 _C_+RUN TO REPEAT CON2OLE PROC8K22080 * 015307 3000000000 22090 CLEAR J 0 PROC8K22090 * 015314 3001532136 22100 JC $+5,30 RESET CL=1 PROC8K22100 * 015321 3001532650 22110 JC $+5,40 RESET DOF PROC8K22110 * 015326 3001533335 22120 JC $+5,29 RESET CL=2 PROC8K22120 * 015333 3001534033 22130 JC $+5,27 RESET CL=3 PROC8K22130 * 015340 3001534525 22140 JC $+5,21 RESET SI=1 PROC8K22140 * 015345 3001535226 22150 JC $+5,22 RESET SI=2 PROC8K22150 * 015352 3001535727 22160 JC $+5,23 RESET SI=3 PROC8K22160 015357 4401441024 22170 SC CONSL+8,8,024 PROC8K22170 * 015364 3001530700 22180 J CLEAR PROC8K22180 3000300000 22190 END MANST PROC8K22190 {-- tape mark --} 005985 C191 SYTR02 CODEDIT SOURCE - T3834394-19 000400 00010 T190 BEGIN 0400 STRO 00010 *LOAD 0700,TAPAPE,R,PRELD E * 000400 3007010660 * JD 070106 * * 000405 3000040000 * J $-5 * SEGMENT-ID T191 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 T192 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 T193 3000136300 * SEGJP $ * 000400 000101 ORIG 0400 000101 00020 . U1050 SYSTEM T TEST ROUTINE(SYTR02 SYTR0200020 U 00030 . OPERATINING NOTES SYTR0200030 S 00040 . 1- AT LOAD HALT, , KEY IN TEST SELECTION AS FOLLOWS) SYTR0200040 00050 . FOR ALL DEVICECES,BITS-6,5=SPEED) SYTR0200050 - 00060 . 00 = DO O NOT TEST (ALL BITS ARE ZERO SYTR0200060 S 00070 . 01 = LOWOW SPEED SYTR0200070 00080 . 10 = MEDEDIUM SPEED SYTR0200080 E 00090 . 11 = HIGIGH SPEED SYTR0200090 D 00100 . FOR READER ANDND PUNCH) SYTR0200100 ) 00110 . BIT-4 BIT-T-3 BIT-2 BIT-1 SYTR0200110 T 00120 . 0= 80 COLOL NO SEQ/P-P IMAGE SYTR0200120 E 00130 . 1= 90 ROWOW SEQ/NO P-P XLATE SYTR0200130 N 00150 . FOR TAPES AND D DRUM,BITS-4,3,2,1=UNIT NO(BINARY COUNTER SYTR0200150 I 00160 . TEST SELECTIONON IS KEYED INTO OCTAL LOCATION) SYTR0200160 Y 00170 . 27)PROCESSOR(R(DIVIDE,TRANSLATE,AND EDIT,ONLY SYTR0200170 , 00171 . 30)PRINTER ONON CHANNEL 0 SYTR0200171 E 00172 . 31)READER SYTR0200172 00173 . 32)PUNCH SYTR0200173 00174 . 33)NOT USED SYTR0200174 00175 . 34)TAPE ON CHCHANNEL 4 SYTR0200175 4 00176 . 35)TAPE ON CHCHANNEL 5 SYTR0200176 5 00177 . 36)DRUM SYTR0200177 00178 . 37)PRINTER ONON CHANNEL 7 SYTR0200178 E 00180 . NOTE) KEY IN 0 00 TO OMIT TEST$*& REFUTE05260 1 006302 1657606261551577 05270 +8 0165760606261551577 <,(: REFUTE05270 5 006312 6424252627303132 05280 +8 0642425252627303132 /ABCDEFG REFUTE05280 1 006322 3334444546475051 05290 +8 0333444444546475051 HIJKLMNO REFUTE05290 0 006400 05291 ORIG $,64 REFUTE05291 006400 05300 ITP80 EQU $ IMAGE TEST PATTERN,80 RDR REFUTE05300 006407 0000440042004100 05310 +8 0000044040042004100 REFUTE05310 1 006417 4040402040104004 05320 +8 0404040202040104004 REFUTE05320 0 006427 4002400124002200 05330 +8 0400240000124002200 REFUTE05330 2 006437 2100204020202010 05340 +8 0210020404020202010 REFUTE05340 0 006447 2004200220011200 05350 +8 0200420000220011200 REFUTE05350 2 006457 1100104010201010 05360 +8 0110010404010201010 REFUTE05360 0 006467 1004100210011000 05370 +8 0100410000210011000 REFUTE05370 0 006477 0400020001000040 05380 +8 0040002020001000040 REFUTE05380 0 006507 0020001000040002 05390 +8 0002000101000040002 REFUTE05390 0 006517 0001400020005000 05400 +8 0000140000020005000 REFUTE05400 0 006527 3000100602020102 05410 +8 0300010000602020102 REFUTE05410 1 006537 0042002200120006 05420 +8 0004200202200120006 REFUTE05420 0 006547 4102404240224012 05430 +8 0410240404240224012 REFUTE05430 0 006557 4006210220422022 05440 +8 0400621010220422022 REFUTE05440 0 006567 2012200612021102 05450 +8 0201220000612021102 REFUTE05450 1 006577 1042102210121006 05460 +8 0104210202210121006 REFUTE05460 0 006607 1400440042004100 05470 +8 0140044040042004100 REFUTE05470 1 006617 4040402040104004 05480 +8 0404040202040104004 REFUTE05480 0 006627 4002400124002200 05490 +8 0400240000124002200 REFUTE05490 2 006637 2100204020202010 05500 +8 0210020404020202010 REFUTE05500 0 006700 05501 ORIG $,64 REFUTE05501 006700 05510 ITP90 EQU $ IMAGE TEST PATTERN,90 RDR REFUTE05510 006707 0025244254502306 05520 +8 0002524444254502306 REFUTE05520 3 006717 1214341541444530 05530 +8 0121434141541444530 REFUTE05530 5 006727 3216222613465152 05540 +8 0321622222613465152 REFUTE05540 1 006737 4331074020211011 05550 +8 0433107474020211011 REFUTE05550 0 006747 0405020301765670 05560 +8 0040502020301765670 REFUTE05560 6 006757 5374276672000000 05570 +8 0537427676672000000 REFUTE05570 0 006767 0000000000000000 05571 +8 0 REFUTE05571 006777 0000000000000000 05572 +8 0 REFUTE05572 007007 3357673571476577 05580 +8 0335767373571476577 REFUTE05580 5 007017 7560363762635564 05590 +8 0756036363762635564 REFUTE05590 5 007027 6173741725244254 05600 +8 0617374141725244254 REFUTE05600 2 007037 5023061214341541 05610 +8 0502306161214341541 REFUTE05610 5 007047 4445303216222613 05620 +8 0444530303216222613 REFUTE05620 6 007057 4651524331000000 05630 +8 0465152424331000000 REFUTE05630 0 007067 0000000000000000 05631 +8 0 REFUTE05631 007077 0000000000000000 05632 +8 0 REFUTE05632 007500 05640 ORIG 07500 REFUTE05640 007500 300 05650 IMAGE AREA 192 REFUTE05650 3000150000 99999 END START REFUTE99999 {-- tape mark --} {-- tape mark --} 020971 T3209K+ -K(C >&5 >A I 9KZE 57_ -8&J >_VP +7&5 >A _ 9S2V FKKE 63$E&W5 Z 001700 00010 T320 BEGIN 01700 PTF7 00010 *LOAD 0700,TAPAPE,R,PRELD E * 001700 3007010660 * JD 070106 * * 001705 3000170000 * J $-5 * SEGMENT-ID T321 3000170000 * 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 T322 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 T323 3000136300 * SEGJP $ * 000400 00020 ORIG 256 PRTF7 00020 * 000400 3000170031 00030 JC IESTP,2525 PRTF7 00030 000407 003713 00040 +3 INT PRTF7 00040 001700 00050 ORIG 01700 PRTF7 00050 * 001700 3000170520 00060 IESTP JHJ INIT1 PRTF7 00060 001705 2600020300 00070 INIT1 PD 0203,16 6 PRTF7 00070 001712 2600016300 00080 PD 0163,16 6 PRTF7 00080 001717 2000510031 00090 FT TITLE,2525 PRTF7 00090 001724 2000530032 00100 FT RIGHT,2626 PRTF7 00100 001731 2000550033 00110 FT LEFT,27 7 PRTF7 00110 001736 2600323602 00120 PD INBIT+1,1,2 PRTF7 00120 001743 5600574710 00130 BA1 IE+7,8 PRTF7 00130 001750 5200047710 00140 SA1 0477,8 PRTF7 00140 001755 5600553300 00150 BA1 LFTCT+1616,16 RESET IMAGE PRTF7 00150 001762 5200513300 00160 SA1 TSTCT+1616,16 PRTF7 00160 001767 4400425360 00170 SC PASTP+4,4,48 PRTF7 00170 001774 2000424703 00180 FT PASTP,3 3 PRTF7 00180 002001 5200425203 00190 SA1 PASTP+3,3,3 PRTF7 00190 002006 2000510074 00200 FT TITLE,6060 PRTF7 00200 002013 2000000175 00210 FT 01,61 PRTF7 00210 002020 4400777700 00220 SC 07777,0 0 PRTF7 00220 002025 4400511304 00230 SC TSTCT,4 4 PRTF7 00230 * 002032 3000203740 00240 JC PRT1,32 2 PRTF7 00240 002037 4160020000 00250 PRT1 XF 2,0,0,7 7 PRINT FULL LINE PRTF7 00250 * 002044 1000324200 00260 JR INDTT PRTF7 00260 * 002051 3000205160 00270 NINT1 JC NINT1,4848 PRTF7 00270 * 002056 3000207000 00280 JC BSY1+5 PRTF7 00280 * 002063 3000206360 00290 BSY1 JC BSY1,48 8 BUSY PRINTER STOP PRTF7 00290 * 002070 1000471400 00300 JR TSTBA PRTF7 00300 * 002075 3000207560 00310 BA1 JC BA1,48 PRTF7 00310 002102 3400777701 00320 CC 07777,1 1 PRTF7 00320 * 002107 3000212642 00330 JC INIT2,3434 PRTF7 00330 * 002114 3000211460 00340 SUCL1 JC SUCL1,4848 PRTF7 00340 * 002121 3000212640 00350 JC INIT2,3232 PRTF7 00350 002126 2000000175 00360 INIT2 FT 1,61 PRTF7 00360 002133 2000510074 00370 FT TITLE,6060 PRTF7 00370 002140 4400777701 00380 SC 07777,1 1 PRTF7 00380 002145 4400511305 00390 SC TSTCT,5 5 PRTF7 00390 * 002152 3000215740 00400 JC PRT2,32 2 PRTF7 00400 002157 4160020200 00410 PRT2 XF 2,00200,0,0,7 PRT FULL LI ADV B.A. PRTF7 00410 * 002164 1000324200 00420 JR INDTT PRTF7 00420 * 002171 3000217160 00430 NINT2 JC NINT2,4848 PRTF7 00430 * 002176 3000221000 00440 JC BSY2+5 PRTF7 00440 * 002203 3000220360 00450 BSY2 JC BSY2,48 8 PRTF7 00450 * 002210 1000474500 00460 JR CKBA,0 PRTF7 00460 * 002215 3000221560 00470 BA2 JC BA2,48 BA ERROR PRTF7 00470 002222 3400777702 00480 CC 07777,2 2 PRTF7 00480 * 002227 3000224642 00490 JC INIT3,3434 PRTF7 00490 * 002234 3000223460 00500 SUCL2 JC SUCL2,4848 PRTF7 00500 * 002241 3000224640 00510 JC INIT3,3232 PRTF7 00510 002246 2000510074 00520 INIT3 FT TITLE,6060 PRTF7 00520 002253 2000000175 00530 FT 1,61 PRTF7 00530 002260 4400777702 00540 SC 07777,2 2 PRTF7 00540 002265 4400511306 00550 SC TSTCT,6 6 PRTF7 00550 * 002272 3000227740 00560 JC PRT3,32 2 PRTF7 00560 002277 4160220000 00570 PRT3 XF 18,0,0,7,7 PRT FULL LI,INH.INT. PRTF7 00570 * 002304 1000324200 00580 JR INDTT PRTF7 00580 * 002311 3000233000 00590 JC BSY3+5 PRTF7 00590 * 002316 3000231660 00600 NINT3 JC NINT3,4848 PRTF7 00600 * 002323 3000232360 00610 BSY3 JC BSY3,48 8 PRTF7 00610 * 002330 1000471400 00620 JR TSTBA PRTF7 00620 * 002335 3000233560 00630 BA3 JC BA3,48 PRTF7 00630 002342 3400777702 00640 CC 07777,2 2 PRTF7 00640 * 002347 3000236142 00650 JC SUCL3+5,5,34 PRTF7 00650 * 002354 3000235460 00660 SUCL3 JC SUCL3,4848 PRTF7 00660 002361 4400511307 00670 SC TSTCT,7 7 PRTF7 00670 002366 2000510074 00680 INIT4 FT TITLE,6060 PRTF7 00680 002373 2000000175 00690 FT 1,61 PRTF7 00690 002400 4400777702 00700 SC 07777,2 2 PRTF7 00700 002405 2000244303 00710 FT CHEK4,3 3 PRTF7 00710 002412 5200324203 00720 SA1 INDTT+3,3,3 PRTF7 00720 002417 4400511307 00730 SC TSTCT,7 7 PRTF7 00730 * 002424 3000243140 00740 JC PRT4,32 2 PRTF7 00740 002431 4160420000 00750 PRT4 XF 34,0,0,7,7 FULL LI,LOCKOUT,NO INHIBIT PRTF7 00750 002436 6000036301 00760 AC 0363,1 PRTF7 00760 002443 4160420000 00770 CHEK4 XF 34,0,0,7,7 WILL PRINT IF NO INT ON PRT4 PRTF7 00770 * 002450 3000246200 00780 JC TSTAV PRTF7 00780 * 002455 3000245560 00790 BSY4 JC BSY4,48 8 PRTF7 00790 * 002462 1000471400 00800 TSTAV JR TSTBA PRTF7 00800 * 002467 3000246760 00810 BA4 JC BA4,48 PRTF7 00810 002474 3400777703 00820 CC 07777,3 3 PRTF7 00820 * 002501 3000252042 00830 JC INIT5,3434 PRTF7 00830 * 002506 3000250660 00840 SUCL4 JC SUCL4,4848 PRTF7 00840 * 002513 3000252040 00850 JC INIT5,3232 PRTF7 00850 002520 2000510074 00860 INIT5 FT TITLE,6060 PRTF7 00860 002525 2000000075 00870 FT 0,61 PRTF7 00870 002532 4400777703 00880 SC 07777,3 3 PRTF7 00880 002537 2000257003 00890 FT FIVOK,3 3 PRTF7 00890 002544 5200324203 00900 SA1 INDTT+3,3,3 PRTF7 00900 002551 4400511310 00910 SC TSTCT,01010 PRTF7 00910 002556 4160640000 00920 PRT5 XF 52,0,0,7,7 LOCKOUT,INHIBIT,FEED PAPER PRTF7 00920 002563 4160640000 00930 XF 52,0,0,7,7 TEST LOCKOUT,ERROR IF BUSY PRTF7 00930 * 002570 3000260700 00940 FIVOK JC BSY5+5,0,0 PRTF7 00940 * 002575 3000257560 00950 NINT5 JC NINT5,4848 PRTF7 00950 * 002602 3000260260 00960 BSY5 JC BSY5,48 8 PRTF7 00960 * 002607 1000471400 00970 JR TSTBA PRTF7 00970 * 002614 3000261460 00980 BA5 JC BA5,48 PRTF7 00980 002621 3400777703 00990 CC 07777,3 3 PRTF7 00990 * 002626 3000264042 01000 JC PRT5F,3434 PRTF7 01000 * 002633 3000263360 01010 SUCL5 JC SUCL5,4848 PRTF7 01010 002640 2000000175 01020 PRT5F FT 1,61 PRTF7 01020 002645 4400511310 01030 SC TSTCT,8 8 PRTF7 01030 002652 4160620000 01040 XF 50,0,0,7,7 PRINT LINE FOR TEST 5 PRTF7 01040 002657 2000530074 01050 INIT6 FT RIGHT,6060 PRTF7 01050 002664 2000000175 01060 FT 1,61 PRTF7 01060 002671 4400777703 01070 SC 07777,3 3 PRTF7 01070 002676 4400541311 01080 SC LICT,01111 PRTF7 01080 002703 2000273403 01090 STINT FT NINTF,3 3 PRTF7 01090 002710 5200324203 01100 SA1 INDTT+3,3,3 PRTF7 01100 002715 4160020200 01110 PRT6 XF 2,00200,0,0,7 FULL LI,ADV BA,LFT HLF SPACESPRTF7 01110 002722 4200003774 01120 SAVE6 ST 037,60 PRTF7 01120 002727 4160040000 01130 XF 4,0,0,7 7 SPACE PAPER SHOULD CAUSE BUSYPRTF7 01130 * 002734 3000273460 01140 NINTF JC NINTF,4848 PRTF7 01140 * 002741 3000274160 01150 SUCCM JC SUCCM,4848 PRTF7 01150 * 002746 1000324200 01160 JR INDTT GO WAIT FOR COMP IPT FR PT 6 PRTF7 01160 * 002753 3000275360 01170 NINT6 JC NINT6,4848 PRTF7 01170 * 002760 3000277200 01180 JC BSY6+5,0,0 PRTF7 01180 * 002765 3000276560 01190 BSY6 JC BSY6,48 8 PRTF7 01190 * 002772 1000477600 01200 JR CKBA6 PRTF7 01200 * 002777 3000277760 01210 BA6 JC BA6,48 PRTF7 01210 003004 3400777704 01220 CC 07777,4 4 PRTF7 01220 * 003011 3000303042 01230 JC INIT7,3434 PRTF7 01230 * 003016 3000301660 01240 SUCL6 JC SUCL6,4848 PRTF7 01240 * 003023 3000303040 01250 JC INIT7,3232 PRTF7 01250 003030 2000550074 01260 INIT7 FT LEFT,60 0 PRTF7 01260 003035 2000560033 01270 FT LEFT+64,4,27 PRTF7 01270 003042 2000000075 01280 FT 0,61 PRTF7 01280 003047 4400551312 01290 SC LFTCT,01012 PRTF7 01290 003054 4400777704 01300 SC 07777,4 4 PRTF7 01300 * 003061 3000307332 01310 JC PRT7,26 6 PRTF7 01310 * 003066 3000307340 01320 JC PRT7,32 2 PRTF7 01320 003073 4160020600 01330 PRT7 XF 2,00600,0,0,7 HALF LI ADV. BA. PRTF7 01330 * 003100 1000324200 01340 JR INDTT PRTF7 01340 * 003105 3000312400 01350 JC RESET PRTF7 01350 * 003112 3000311260 01360 NINT7 JC NINT7,4848 PRTF7 01360 * 003117 3000311760 01370 BBSY7 JC BBSY7,4848 PRTF7 01370 003124 2000313603 01380 RESET FT RST3,3 PRTF7 01380 003131 5200324203 01390 SA1 INDTT+3,3,3 PRTF7 01390 * 003136 3000314333 01400 RST3 JC GDINT,2727 PRTF7 01400 * 003143 3000315500 01410 GDINT JC BSY7+5,0,0 PRTF7 01410 * 003150 3000315060 01420 BSY7 JC BSY7,48 8 PRTF7 01420 003155 7400015774 01430 CT 0157,60 0 PRTF7 01430 * 003162 3000317442 01440 JC BA7+5,3434 PRTF7 01440 * 003167 3000316760 01450 BA7 JC BA7,48 PRTF7 01450 003174 3400777705 01460 CC 07777,5 5 PRTF7 01460 * 003201 3000321342 01470 JC FINIS,3434 PRTF7 01470 * 003206 3000320660 01480 SUCL7 JC SUCL7,4848 PRTF7 01480 * 003213 3000426162 01490 FINIS JC ADD,50 PRTF7 01490 * 003220 3000170500 01500 JC INIT1 PRTF7 01500 * 003225 3000322560 01510 INDST JC INDST,4848 PRTF7 01510 003234 000000 01520 BLANK +3 0 PRTF7 01520 003235 01530 INBIT EQU $ PRTF7 01530 003236 0000 01540 +2 0 PRTF7 01540 * 003237 3000324400 01550 INDTT JC CLEAR PRTF7 01550 003244 4400323500 01560 CLEAR SC INBIT,0 0 PRTF7 01560 003251 4400323600 01570 SC INBIT+1,1,0 PRTF7 01570 003256 4400347657 01580 SC LP1+4,4747 PRTF7 01580 003263 4400350341 01590 SC LP2+4,3333 PRTF7 01590 003270 4160000000 01600 TEST XF 0,0,0,7 7 PRTF7 01600 * 003275 3000351153 01610 JC ERZ,43 PRTF7 01610 003302 4160000001 01620 XF 0,01,0,7,7 PRTF7 01620 * 003307 3000352353 01630 JC ER1,43 PRTF7 01630 003314 4160000002 01640 XF 0,02,0,7,7 PRTF7 01640 * 003321 3000353553 01650 JC PAPER,4343 PRTF7 01650 003326 4160000004 01660 XF 0,04,0,7,7 PRTF7 01660 * 003333 3000354753 01670 JC ER3,43 PRTF7 01670 003340 4160000010 01680 XF 0,010,0,0,7 PRTF7 01680 * 003345 3000356153 01690 JC ER4,43 PRTF7 01690 003352 4160000020 01700 XF 0,020,0,0,7 PRTF7 01700 * 003357 3000357353 01710 JC ER5,43 PRTF7 01710 003364 4160000040 01720 XF 0,0040,0,0,7 PRTF7 01720 * 003371 3000360553 01730 JC ER6,43 PRTF7 01730 003376 4160000100 01740 XF 0,0100,0,0,7 PRTF7 01740 * 003403 3000361753 01750 JC ER7,43 PRTF7 01750 003410 4160000200 01760 XF 0,0200,0,0,7 PRTF7 01760 * 003415 3000363153 01770 JC ER8,43 PRTF7 01770 003422 4160000400 01780 XF 0,0400,0,0,7 PRTF7 01780 * 003427 3000364353 01790 JC ER9,43 PRTF7 01790 003434 4160001000 01800 XF 0,01000,0,0,7 PRTF7 01800 * 003441 3000365553 01810 JC ERTEN,4343 PRTF7 01810 003446 4160002000 01820 XF 0,02000,0,0,7 PRTF7 01820 * 003453 3000366753 01830 JC ER11,43 3 PRTF7 01830 003460 4160004000 01840 XF 0,04000,0,0,7 PRTF7 01840 * 003465 3000370153 01850 JC ER12,43 3 PRTF7 01850 * 003472 3200327000 01860 LP1 JL TEST PRTF7 01860 * 003477 3200327000 01870 LP2 JL TEST PRTF7 01870 * 003504 3000323700 01880 JC INDTT PRTF7 01880 003511 4400323600 01890 ERZ SC INBIT+1,1,0 PRTF7 01890 * 003516 3000322500 01900 JC INDST PRTF7 01900 003523 4400323601 01910 ER1 SC INBIT+1,1,1 PRTF7 01910 * 003530 3000322500 01920 JC INDST PRTF7 01920 003535 4400323602 01930 PAPER SC INBIT+1,1,2 PRTF7 01930 * 003542 3000424700 01940 JC PASTP PRTF7 01940 003547 4400323604 01950 ER3 SC INBIT+1,1,4 PRTF7 01950 * 003554 3000322500 01960 JC INDST PRTF7 01960 003561 4400323610 01970 ER4 SC INBIT+1,1,010 PRTF7 01970 * 003566 3000322500 01980 JC INDST PRTF7 01980 003573 4400323620 01990 ER5 SC INBIT+1,1,020 PRTF7 01990 * 003600 3000322500 02000 JC INDST PRTF7 02000 003605 4400323640 02010 ER6 SC INBIT+1,1,040 PRTF7 02010 * 003612 3000322500 02020 JC INDST PRTF7 02020 003617 4400323501 02030 ER7 SC INBIT,1 1 PRTF7 02030 * 003624 3000322500 02040 JC INDST PRTF7 02040 003631 4400323502 02050 ER8 SC INBIT,2 2 PRTF7 02050 * 003636 3000322500 02060 JC INDST PRTF7 02060 003643 4400323504 02070 ER9 SC INBIT,4 4 PRTF7 02070 * 003650 3000322500 02080 JC INDST,0 0 PRTF7 02080 003655 4400323510 02090 ERTEN SC INBIT,01010 PRTF7 02090 * 003662 3000322500 02100 JC INDST PRTF7 02100 003667 4400323520 02110 ER11 SC INBIT,02020 PRTF7 02110 * 003674 3000322500 02120 JC INDST PRTF7 02120 003701 4400323540 02130 ER12 SC INBIT,04040 PRTF7 02130 * 003706 3000322500 02140 JC INDST PRTF7 02140 * 003713 3000372000 02150 INT JC INT+5 PRTF7 02150 003720 4600040730 02160 BT 0407,24 4 PRTF7 02160 003725 4600040327 02170 BT 0403,23 3 PRTF7 02170 003732 4600020326 02180 BT 0203,22 2 PRTF7 02180 003737 4160000001 02190 XF 0,01,0,7,7 PRTF7 02190 * 003744 3000416553 02200 JC IER1,43 3 PRTF7 02200 003751 4160000002 02210 XF 0,02,0,7,7 PRTF7 02210 * 003756 3000424753 02220 JC PASTP,4343 PRTF7 02220 003763 4160000004 02230 XF 0,04,0,7,7 PRTF7 02230 * 003770 3000417253 02240 JC IER3,43 3 PRTF7 02240 003775 4160000010 02250 XF 0,010,0,0,7 PRTF7 02250 * 004002 3000417753 02260 JC IER4,43 3 PRTF7 02260 004007 4160000020 02270 XF 0,020,0,0,7 PRTF7 02270 * 004014 3000420453 02280 JC IER5,43 3 PRTF7 02280 004021 4160000040 02290 XF 0,0040,0,0,7 PRTF7 02290 * 004026 3000421153 02300 JC IER6,43 3 PRTF7 02300 004033 4160000100 02310 XF 0,0100,0,0,7 PRTF7 02310 * 004040 3000421653 02320 JC IER7,43 3 PRTF7 02320 004045 4160000200 02330 XF 0,0200,0,0,7 PRTF7 02330 * 004052 3000422353 02340 JC IER8,43 3 PRTF7 02340 004057 4160000400 02350 XF 0,0400,0,0,7 PRTF7 02350 * 004064 3000423053 02360 JC IER9,43 3 PRTF7 02360 004071 4160001000 02370 XF 0,01000,0,0,7 PRTF7 02370 * 004076 3000423553 02380 JC IERTN,4343 PRTF7 02380 004103 4160002000 02390 XF 0,02000,0,0,7 PRTF7 02390 * 004110 3000414653 02400 JC IBUSY,4343 PRTF7 02400 004115 4160004000 02410 XF 0,04000,0,0,7 PRTF7 02410 * 004122 3000424253 02420 JC IER12,4343 PRTF7 02420 004127 6000324205 02430 AC INDTT+3,3,5 PRTF7 02430 004134 6000777701 02440 AC 07777,1 1 PRTF7 02440 * 004141 3000323731 02450 JC INDTT,2525 PRTF7 02450 004146 4160402000 02460 IBUSY XF 32,0200000,0,7 PRTF7 02460 004153 6000324212 02470 AC INDTT+3,3,012 PRTF7 02470 * 004160 3000323731 02480 JC INDTT,2525 PRTF7 02480 * 004165 3000416560 02490 IER1 JC IER1,48 8 PRTF7 02490 * 004172 3000417260 02500 IER3 JC IER3,48 8 PAPER LOW OVERRIDE PRTF7 02500 * 004177 3000417760 02510 IER4 JC IER4,48 8 PRTF7 02510 * 004204 3000420460 02520 IER5 JC IER5,48 8 PRTF7 02520 * 004211 3000421160 02530 IER6 JC IER6,48 8 CODE WHEEL PARITY PRTF7 02530 * 004216 3000421660 02540 IER7 JC IER7,48 8 MEM DATA PARITY PRTF7 02540 * 004223 3000422360 02550 IER8 JC IER8,48 8 CONTROL PARITY PRTF7 02550 * 004230 3000423060 02560 IER9 JC IER9,48 8 PRTF7 02560 * 004235 3000423560 02570 IERTN JC IERTN,4848 NON READY PRTF7 02570 * 004242 3000424260 02580 IER12 JC IER12,4848 MEM OVER LOAD ANTIC PRTF7 02580 * 004247 3000425420 02590 PASTP JC FIX,16 PAPER LOW STOP PRTF7 02590 * 004254 3000170500 02600 FIX JC INIT1,0 0 PRTF7 02600 004261 4400425331 02610 ADD SC PASTP+4,4,25 PRTF7 02610 004266 2000000275 02620 FT 2,61 PRTF7 02620 004273 2000441303 02630 FT ENTR1,3 3 PRTF7 02630 004300 5200425203 02640 SA1 PASTP+3,3,3 PRTF7 02640 004305 5600571720 02650 BA2 ONES,16 6 PRTF7 02650 004312 7200513320 02660 AB2 TSTCT+1616,16 PRTF7 02660 004317 4400511313 02670 SC TSTCT,01013 PRTF7 02670 004324 2000435503 02680 FT NINT8,3 3 PRTF7 02680 004331 5200324203 02690 SA1 INDTT+3,3,3 PRTF7 02690 004336 2000510003 02700 FT TITLE,3 3 PRTF7 02700 004343 5200036303 02710 SA1 0363,3 PRTF7 02710 004350 4160460200 02720 PRT8 XF 38,0020000,0,7 PRTF7 02720 * 004355 3000435560 02730 NINT8 JC NINT8,4848 PRTF7 02730 * 004362 3000437400 02740 JC BSY8+5 PRTF7 02740 * 004367 3000436760 02750 BSY8 JC BSY8,48 8 PRTF7 02750 * 004374 1000474500 02760 JR CKBA PRTF7 02760 * 004401 3000440160 02770 BA8 JC BA8,48 PRTF7 02770 * 004406 3000426100 02780 JC ADD PRTF7 02780 004413 4160000004 02790 ENTR1 XF 0,04,0,7,7 PRTF7 02790 * 004420 3000443253 02800 JC OVRDE,4343 PRTF7 02800 * 004425 3000443700 02810 JC FIXIM,0 0 PRTF7 02810 * 004432 3000443260 02820 OVRDE JC OVRDE,4848 PRTF7 02820 004437 5600573700 02830 FIXIM BA1 EXES,16 6 PRTF7 02830 * 004444 3000000040 02840 JC 0,32 PRTF7 02840 * 004451 3000446300 02850 JC BAPS+5 PRTF7 02850 * 004456 3000445660 02860 BAPS JC BAPS,48 8 PRTF7 02860 004463 2000454503 02870 FT ENTR2,3 3 PRTF7 02870 004470 5200425203 02880 SA1 PASTP+3,3,3 PRTF7 02880 004475 2000452603 02890 FT NINTP,3 3 PRTF7 02890 004502 5200324203 02900 SA1 INDTT+3,3,3 PRTF7 02900 004507 2000510003 02910 FT TITLE,3 3 PRTF7 02910 004514 5200036303 02920 SA1 0363,3 PRTF7 02920 004521 4160462600 02930 TSTPT XF 38,0260000,0,7 PRTF7 02930 * 004526 3000452660 02940 NINTP JC NINTP,4848 PRTF7 02940 * 004533 3000453360 02950 SUCLT JC SUCLT,4848 PRTF7 02950 * 004540 3000454060 02960 BSYP JC BSYP,48 8 PRTF7 02960 * 004545 1000471400 02970 ENTR2 JR TSTBA PRTF7 02970 * 004552 3000455260 02980 BAT JC BAT,48 PRTF7 02980 * 004557 3000455740 02990 JC BAT+5,3232 PRTF7 02990 004564 2000464603 03000 FT NINTL,3 3 PRTF7 03000 004571 5200324203 03010 SA1 INDTT+3,3,3 PRTF7 03010 004576 2000466503 03020 FT ENTR3,3 3 PRTF7 03020 004603 5200425203 03030 SA1 PASTP+3,3,3 PRTF7 03030 * 004610 3000461520 03040 NOVRD JC GOOD,16 6 PRTF7 03040 004615 4160000004 03050 GOOD XF 0,04,0,7,7 PRTF7 03050 * 004622 3000463453 03060 JC LAST,43 3 PRTF7 03060 * 004627 3000461020 03070 JC NOVRD,1616 PRTF7 03070 004634 4400000700 03080 LAST SC 07,0 PRTF7 03080 004641 4160662600 03090 XF 54,0260000,0,7 LOCKOUT INH HLF LI FRM BUFFERPRTF7 03090 * 004646 3000464660 03100 NINTL JC NINTL,4848 PRTF7 03100 * 004653 3000465360 03110 SUCLL JC SUCLL,4848 PRTF7 03110 * 004660 3000466060 03120 BSYL JC BSYL,48 8 PRTF7 03120 * 004665 3000467700 03130 ENTR3 JC AOK PRTF7 03130 * 004672 3000467260 03140 BAL JC BAL,48 PRTF7 03140 * 004677 3000467760 03150 AOK JC AOK,48 PRTF7 03150 * 004704 3000170500 03160 JC INIT1 PRTF7 03160 * 004711 3000471600 03170 TSTBA JC TSTBA+5 5 PRTF7 03170 004716 7400014774 03180 CT 0147,60 0 PRTF7 03180 * 004723 3000471143 03190 JC TSTBA,3535 PRTF7 03190 004730 6000471405 03200 AC TSTBA+3,3,5 PRTF7 03200 * 004735 3000471100 03210 JC TSTBA,0 0 PRTF7 03210 * 004742 3000474700 03220 CKBA JC CKBA+5 PRTF7 03220 004747 7400015374 03230 CT 0153,60 0 PRTF7 03230 * 004754 3000474243 03240 JC CKBA,35 5 PRTF7 03240 004761 6000474505 03250 AC CKBA+3,5,5 PRTF7 03250 * 004766 3000474200 03260 JC CKBA,0 PRTF7 03260 * 004773 3000500000 03270 CKBA6 JC CKBA6+5,5,0 PRTF7 03270 005000 7400015774 03280 CT 0157,60 0 PRTF7 03280 * 005005 3000477343 03290 JC CKBA6,3535 PRTF7 03290 005012 6000477605 03300 AC CKBA6+3,3,5 PRTF7 03300 * 005017 3000477300 03310 JC CKBA6 PRTF7 03310 005100 03320 ORIG $,64 03320 005100 03330 TITLE EQU $ 03330 005107 5254663126006630 03340 +8 0525466363126006630 PRTF7 03340 6 005113 65660004 03350 TSTCT +4 06566000004 PRTF7 03350 005123 0024252627303132 03360 +8 0002425252627303132 PRTF7 03360 1 005133 3334444546475051 03370 +8 0333444444546475051 PRTF7 03370 0 005143 5253546566677071 03380 +8 0525354646566677071 PRTF7 03380 0 005153 7273740304050607 03390 +8 0727374040304050607 PRTF7 03390 6 005163 1011121314624222 03400 +8 0101112121314624222 PRTF7 03400 2 005173 3702554140202377 03410 +8 0370255454140202377 PRTF7 03410 3 005203 4335642161567516 03420 +8 0433564242161567516 PRTF7 03420 5 005213 6317760136156057 03430 +8 0631776060136156057 PRTF7 03430 0 005214 64 03440 AREA 52,B,0 PRTF7 03440 005300 03450 ORIG $,64 03450 005300 03460 RIGHT EQU $ PRTF7 03460 005300 100 03470 AREA 64,B,0 PRTF7 03470 005407 5254663126006630 03480 +8 0525466363126006630 PRTF7 03480 6 005413 65660004 03490 LICT +4 06566000004 PRTF7 03490 005423 0024252627303132 03500 +8 0002425252627303132 PRTF7 03500 1 005433 3334444546475051 03510 +8 0333444444546475051 PRTF7 03510 0 005443 5253546566677071 03520 +8 0525354646566677071 PRTF7 03520 0 005453 7273740304050607 03530 +8 0727374040304050607 PRTF7 03530 6 005463 1011121314624222 03540 +8 0101112121314624222 PRTF7 03540 2 005473 3702554140202377 03550 +8 0370255454140202377 PRTF7 03550 3 005477 43356421 03560 +4 04335642421 PRTF7 03560 005500 03570 ORIG $,64 03570 005500 03580 LEFT EQU $ PRTF7 03580 005507 5254663126006630 03590 +8 0525466363126006630 PRTF7 03590 6 005513 65660004 03600 LFTCT +4 06566000004 PRTF7 03600 005523 0024252627303132 03610 +8 0002425252627303132 PRTF7 03610 1 005533 3334444546475051 03620 +8 0333444444546475051 PRTF7 03620 0 005543 5253546566677071 03630 +8 0525354646566677071 PRTF7 03630 0 005553 7273740304050607 03640 +8 0727374040304050607 PRTF7 03640 6 005563 1011121314624222 03650 +8 0101112121314624222 PRTF7 03650 2 005573 3702554140202377 03660 +8 0370255454140202377 PRTF7 03660 3 005577 43356421 03670 +4 04335642421 PRTF7 03670 005600 100 03680 AREA 64,B,0 PRTF7 03680 005707 0001010101010101 03690 +8 0000101010101010101 PRTF7 03690 1 005717 0101010101010101 03700 ONES +8 0010101010101010101 PRTF7 03700 1 005727 7272727272727272 03710 +8 0727272727272727272 PRTF7 03710 2 005737 7272727272727272 03720 EXES +8 0727272727272727272 PRTF7 03720 2 005740 03730 IE EQU $ PRTF7 03730 * 005740 3000000031 03740 JC 0,25 PRTF7 03740 005747 003713 03750 +3 INT PRTF7 03750 3000170000 03760 END 01700 PRTF7 03760 {-- tape mark --} 021865 T3309K+ -K(C >&5 >A I 9KZE 57_ -8&J >_VP +7&5 >A _ 9S2V FKKE 63$E&W5 Z 010600 00010 T330 BEGIN 010600 U4CF 00010 *LOAD 0700,TAPAPE,R,PRELD E * 010600 3007010660 * JD 070106 * * 010605 3001060000 * J $-5 * SEGMENT-ID T331 3001060000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T332 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 T333 3000136300 * SEGJP $ * 010600 ORIG 010600 * 010600 3001060560 00020 JD $+5 U4CF 00020 010605 5601436100 00030 BA1 CL12,16 6 U4CF 00030 010612 5200051700 00040 SA1 335,16 U4CF 00040 010617 5601441300 00050 BA1 IE45,16 6 U4CF 00050 010624 5200045700 00060 SA1 00457,1616 U4CF 00060 010631 5601770601 00070 BA1 UNITS,1 1 U4CF 00070 010636 5201212401 00080 SA1 USEL1+4,4,1 U4CF 00080 010643 5201520101 00090 SA1 TMUS1+4,4,1 U4CF 00090 010650 5201612201 00100 SA1 SKUS1+4,4,1 U4CF 00100 010655 5201726101 00110 SA1 RWU1+4,1,1 U4CF 00110 010662 5202005701 00120 SA1 ITLU1+4,4,1 U4CF 00120 010667 2001057703 00130 FT 0010577,7,3 SS2+3 RESET U4CF 00130 010674 5201455403 00140 SA1 CCC,3 DO 12 TESTS U4CF 00140 * 010701 3002131163 00150 JC U3CLY,5151 SS2 SET DO 3C ONLY U4CF 00150 * 010706 3002126564 00160 JC T9N12,5252 SS3 SET DO 800 PPI U4CF 00160 010713 5602127105 00170 BA1 T9N12+4,4,5 U4CF 00170 010720 5201157505 00180 SA1 FX1N4+4,4,5 U4CF 00180 010725 5602136505 00190 BA1 FXTS1+4,4,5 NOOP U4CF 00190 010732 5202114405 00200 SA1 FIXC3+4,4,5 U4CF 00200 010737 5201076205 00210 SA1 TEST1+4,4,5 U4CF 00210 010744 5602150005 00220 BA1 JD8+4,5 5 U4CF 00220 010751 5201157005 00230 SA1 FX1N4-1,1,5 U4CF 00230 * 010756 3000000060 00240 TEST1 JD 000 ENTRANCE TEST1 U4CF 00240 * 010763 1002017600 00250 TS1 JR TS1FX U4CF 00250 010770 4401366060 00260 SC ISS01+4,4,48 U4CF 00260 010775 4401366500 00270 SC ISS02+4,4,0 U4CF 00270 011002 4401373043 00280 SC ISS04+4,4,35 U4CF 00280 011007 4401374740 00290 SC ISS05+4,4,32 U4CF 00290 011014 4401376143 00300 SC ISS06+4,4,35 U4CF 00300 011021 2001075626 00310 FT TEST1,2222 U4CF 00310 011026 2600013724 00320 PD0 95,4 U4CF 00320 * 011033 1001160600 00330 JR CHSEL JR CHBCD U4CF 00330 * 011040 3001105262 00340 JC $+10,50 0 U4CF 00340 * 011045 3000000160 00350 TEST2 JD 001 ENTRANCE TEST2 U4CF 00350 * 011052 1002031100 00360 TS2 JR TS2FX U4CF 00360 011057 4401366060 00370 SC ISS01+4,4,48 U4CF 00370 011064 4401366521 00380 SC ISS02+4,4,17 U4CF 00380 011071 4401373043 00390 SC ISS04+4,4,35 U4CF 00390 011076 4401374740 00400 SC ISS05+4,4,32 U4CF 00400 011103 4401376143 00410 SC ISS06+4,4,35 U4CF 00410 011110 2001104526 00420 FT TEST2,2222 U4CF 00420 011115 2600013723 00430 PD0 95,3 U4CF 00430 011122 4400013404 00440 SC 92,4 U4CF 00440 * 011127 1001160600 00450 JR CHSEL JR CHBIN U4CF 00450 * 011134 3001114662 00460 JC $+10,50 0 U4CF 00460 * 011141 3000000260 00470 TEST3 JD 002 ENTRANCE TEST3 U4CF 00470 * 011146 1002017600 00480 TS1X JR TS1FX U4CF 00480 011153 4401366000 00490 SC ISS01+4,4,0 U4CF 00490 011160 4401366500 00500 SC ISS02+4,4,0 U4CF 00500 011165 4401373042 00510 SC ISS04+4,4,34 U4CF 00510 011172 4401374700 00520 SC ISS05+4,4,0 U4CF 00520 011177 4401376142 00530 SC ISS06+4,4,34 U4CF 00530 011204 2001114126 00540 FT TEST3,2222 U4CF 00540 011211 2600013723 00550 PD0 95,3 U4CF 00550 011216 4400013405 00560 SC 92,5 U4CF 00560 * 011223 1001160600 00570 JR CHSEL JR CHBCD U4CF 00570 * 011230 3001124262 00580 JC $+10,50 0 U4CF 00580 * 011235 3000000360 00590 TEST4 JD 003 ENTRANCE TEST4 U4CF 00590 * 011242 1002031100 00600 TS2X JR TS2FX U4CF 00600 011247 4401366000 00610 SC ISS01+4,4,0 U4CF 00610 011254 4401366521 00620 SC ISS02+4,4,17 U4CF 00620 011261 4401373042 00630 SC ISS04+4,4,34 U4CF 00630 011266 4401374700 00640 SC ISS05+4,4,0 U4CF 00640 011273 4401376142 00650 SC ISS06+4,4,34 U4CF 00650 011300 2001123526 00660 FT TEST4,2222 U4CF 00660 011305 2600013723 00670 PD0 95,3 U4CF 00670 011312 4400013406 00680 SC 92,6 U4CF 00680 * 011317 1001160600 00690 JR CHSEL JR CHBIN U4CF 00690 * 011324 3001133662 00700 JC $+10,50 0 U4CF 00700 * 011331 3000000460 00710 TEST5 JD 004 ENTRANCE TEST5 U4CF 00710 011336 2600013723 00720 PD0 95,3 J REFIX U4CF 00720 011343 4400013407 00730 SC 92,7 U4CF 00730 011350 2001133126 00740 FT TEST5,2222 U4CF 00740 011355 2000060060 00750 FT IMAGE,4848 U4CF 00750 011362 2000777761 00760 FT 4095,49 9 U4CF 00760 011367 2000060064 00770 FT IMAGE,5252 U4CF 00770 011374 2000060065 00780 FT IMAGE,5353 U4CF 00780 * 011401 1001441700 00790 JR GNP U4CF 00790 * 011406 1001466300 00800 JR TMCH U4CF 00800 * 011413 3001142562 00810 JC $+10,50 0 U4CF 00810 * 011420 3000000560 00820 TEST6 JD 005 ENTRANCE TEST6 U4CF 00820 011425 2001142026 00830 FT TEST6,2222 U4CF 00830 011432 2000400061 00840 FT 2048,49 9 U4CF 00840 011437 2600013723 00850 PD0 95,3 U4CF 00850 011444 4400013410 00860 SC 92,8 U4CF 00860 011451 2000400065 00870 FT 2048,53 3 U4CF 00870 * 011456 1001557200 00880 JR SKCH U4CF 00880 * 011463 3001147562 00890 JC $+10,50 0 U4CF 00890 * 011470 3000000660 00900 TEST7 JD 006 ENTRANCE TEST7 U4CF 00900 011475 2001147026 00910 FT TEST7,2222 U4CF 00910 011502 2600013723 00920 PD0 95,3 U4CF 00920 011507 4400013411 00930 SC 92,9 U4CF 00930 * 011514 1001676700 00940 JR RWCH U4CF 00940 * 011521 3001153362 00950 JC $+10,50 0 U4CF 00950 * 011526 3000000760 00960 TEST8 JD 007 ENTRANCE TEST8 U4CF 00960 011533 2001152626 00970 FT TEST8,2222 U4CF 00970 011540 2600013723 00980 PD0 95,3 U4CF 00980 011545 4400013412 00990 SC 92,10 U4CF 00990 * 011552 1001771200 01000 JR ITLCH U4CF 01000 * 011557 3001157162 01010 JC $+10,50 0 U4CF 01010 * 011564 3000777760 01020 JD 4095 U4CF 01020 * 011571 1002044300 01030 FX1N4 JR FN1N4 NOOP FOR U3C ONLY U4CF 01030 * 011576 3001060000 01040 J 010600 U4CF 01040 * 011603 3000000000 01050 CHSEL J 0 U4CF 01050 011610 2001412603 01060 FT TPINT,3 3 U4CF 01060 011615 5200044703 01070 SA1 295,3 U4CF 01070 011622 2001431603 01080 FT N0INT,3 3 U4CF 01080 011627 5200045703 01090 SA1 303,3 U4CF 01090 011634 4401371300 01100 SC ISS03+1,1,0 U4CF 01100 011641 4401412700 01110 SC TPINT+1,1,0 U4CF 01110 011646 4401420400 01120 SC ERR01+1,1,0 U4CF 01120 011653 2000060060 01130 FT IMAGE,4848 U4CF 01130 011660 2000777761 01140 FT 4095,49 9 U4CF 01140 011665 2000031303 01150 FT 203,3 U4CF 01150 011672 5201371003 01160 SA1 ISS09+3,3,3 U4CF 01160 011677 4401372362 01170 SC ISS10+4,4,50 U4CF 01170 011704 4401401262 01180 SC ISS11+4,4,50 U4CF 01180 * 011711 3001171640 01190 LPTS2 JC $+5,32 SC ISTS U4CF 01190 011716 5601461504 01200 BA1 BAT4,4 U4CF 01200 011723 5201377304 01210 SA1 ISS13+4,4,4 U4CF 01210 011730 2000044003 01220 FT 288,3 U4CF 01220 011735 5201415003 01230 SA1 INTEX+3,3,3 U4CF 01230 * 011742 1001211600 01240 JR USEL U4CF 01240 011747 2001412603 01250 FT TPINT,3 3 U4CF 01250 011754 5200045703 01260 SA1 303,3 U4CF 01260 011761 2001431603 01270 FT N0INT,3 3 U4CF 01270 011766 5200044703 01280 SA1 295,3 U4CF 01280 011773 4401371320 01290 SC ISS03+1,1,16 U4CF 01290 012000 4401412720 01300 SC TPINT+1,1,16 U4CF 01300 012005 4401420420 01310 SC ERR01+1,1,16 U4CF 01310 012012 2000060064 01320 FT IMAGE,5252 U4CF 01320 012017 2000777765 01330 FT 4095,53 3 U4CF 01330 012024 2000033303 01340 FT 00333,3 3 U4CF 01340 012031 5201371003 01350 SA1 ISS09+3,3,3 U4CF 01350 012036 4401372366 01360 SC ISS10+4,4,54 U4CF 01360 012043 4401401266 01370 SC ISS11+4,4,54 U4CF 01370 012050 5601462104 01380 BA1 BAT5,4 U4CF 01380 012055 5201377304 01390 SA1 ISS13+4,4,4 U4CF 01390 012062 2000045003 01400 FT 296,3 U4CF 01400 012067 5201415003 01410 SA1 INTEX+3,3,3 U4CF 01410 * 012074 3001210140 01420 LPT25 JC $+5,32 U4CF 01420 * 012101 1001211600 01430 JR USEL U4CF 01430 * 012106 3001160300 01440 J CHSEL U4CF 01440 * 012113 3000000000 01450 USEL J 0 U4CF 01450 012120 4401213601 01460 USEL1 SC USEL2+4,4,1 U4CF 01460 * 012125 1001216600 01470 JR TST U4CF 01470 * 012132 3201214400 01480 USEL2 JL $+10 U4CF 01480 * 012137 3001211300 01490 J USEL U4CF 01490 012144 6001371301 01500 AC ISS03+1,1,1 U4CF 01500 * 012151 3001215640 01510 LPSV1 JC $+5,32 U4CF 01510 * 012156 3001212500 01520 J USEL1+5 5 U4CF 01520 * 012163 3000000000 01530 TST J 0 U4CF 01530 * 012170 1001441700 01540 JR GNP GENERATE PATTERN U4CF 01540 012175 4401373540 01550 SC ISS12+4,4,32 U4CF 01550 012202 4401371402 01560 SC ISS03+2,2,2 U4CF 01560 012207 4401371500 01570 SC ISS03+3,3,0 U4CF 01570 012214 4401400043 01580 SC ISS07+4,4,35 U4CF 01580 012221 4401403100 01590 SC ISS08+4,4,0 U4CF 01590 012226 4400060001 01600 SC IMAGE,1 1 U4CF 01600 * 012233 1001363300 01610 JR ISS U4CF 01610 012240 4401371510 01620 SC ISS03+3,3,8 U4CF 01620 012245 4400060002 01630 SC IMAGE,2 2 U4CF 01630 * 012252 1001363300 01640 JR ISS U4CF 01640 012257 4401371502 01650 SC ISS03+3,3,2 U4CF 01650 012264 4401400042 01660 SC ISS07+4,4,34 U4CF 01660 012271 4400060003 01670 SC IMAGE,3 3 U4CF 01670 * 012276 1001363300 01680 JR ISS U4CF 01680 012303 4401371512 01690 SC ISS03+3,3,10 U4CF 01690 012310 4400060004 01700 SC IMAGE,4 4 U4CF 01700 * 012315 1001363300 01710 JR ISS U4CF 01710 012322 4401371401 01720 SC ISS03+2,2,1 U4CF 01720 012327 4401371510 01730 SC ISS03+3,3,8 U4CF 01730 012334 4401400043 01740 SC ISS07+4,4,35 U4CF 01740 * 012341 3001234640 01750 ETST2 JC $+5,32 SC ISTS2+4,47 U4CF 01750 012346 2601455404 01760 PD CCC,4 U4CF 01760 012353 4401373500 01770 SC ISS12+4,4,0 U4CF 01770 * 012360 1001363300 01780 JR ISS U4CF 01780 012365 4401371512 01790 SC ISS03+3,3,10 U4CF 01790 * 012372 1001363300 01800 JR ISS U4CF 01800 012377 4401371514 01810 SC ISS03+3,3,12 U4CF 01810 * 012404 1001363300 01820 JR ISS U4CF 01820 012411 4401371516 01830 SC ISS03+3,3,14 U4CF 01830 * 012416 1001363300 01840 JR ISS U4CF 01840 012423 4401371500 01850 SC ISS03+3,3,0 U4CF 01850 * 012430 3001243540 01860 ESTT2 JC $+5,32 SC 1STS2+4,55 U4CF 01860 * 012435 1001447400 01870 JR CLR U4CF 01870 012442 4401403601 01880 SC SEQ+4,1 1 U4CF 01880 012447 4401403140 01890 SC ISS08+4,4,32 U4CF 01890 012454 2001057703 01900 FT 0010577,7,3 U4CF 01900 012461 5201455403 01910 SA1 CCC,3 U4CF 01910 012466 4401373540 01920 SC ISS12+4,4,32 U4CF 01920 * 012473 1001363300 01930 JR ISS U4CF 01930 012500 4401371504 01940 SC ISS03+3,3,4 U4CF 01940 * 012505 1001447400 01950 JR CLR U4CF 01950 012512 4401403602 01960 SC SEQ+4,2 2 U4CF 01960 * 012517 1001363300 01970 JR ISS U4CF 01970 012524 4401371502 01980 SC ISS03+3,3,2 U4CF 01980 012531 4401400042 01990 SC ISS07+4,4,34 U4CF 01990 * 012536 1001447400 02000 JR CLR U4CF 02000 012543 4401403603 02010 SC SEQ+4,3 3 U4CF 02010 * 012550 1001363300 02020 JR ISS U4CF 02020 012555 4401371506 02030 SC ISS03+3,3,6 U4CF 02030 * 012562 1001447400 02040 JR CLR U4CF 02040 012567 4401403604 02050 SC SEQ+4,4 4 U4CF 02050 * 012574 1001363300 02060 JR ISS U4CF 02060 012601 4401371550 02070 SC ISS03+3,3,40 U4CF 02070 * 012606 3001261340 02080 EST2T JC $+5,32 SC 1STS2+4,47 U4CF 02080 012613 4401400043 02090 SC ISS07+4,4,35 U4CF 02090 012620 4401403100 02100 SC ISS08+4,4,0 U4CF 02100 012625 2601455404 02110 PD CCC,4 U4CF 02110 012632 4401373500 02120 SC ISS12+4,4,0 U4CF 02120 * 012637 1001363300 02130 JR ISS U4CF 02130 012644 4401371552 02140 SC ISS03+3,3,42 U4CF 02140 * 012651 1001363300 02150 JR ISS U4CF 02150 012656 4401371554 02160 SC ISS03+3,3,44 U4CF 02160 * 012663 1001363300 02170 JR ISS U4CF 02170 012670 4401371556 02180 SC ISS03+3,3,46 U4CF 02180 * 012675 1001363300 02190 JR ISS U4CF 02190 012702 4401371500 02200 SC ISS03+3,3,0 U4CF 02200 * 012707 3001271440 02210 TSET2 JC $+5,32 SC1STS2+4,63 U4CF 02210 * 012714 1001447400 02220 JR CLR U4CF 02220 012721 4401403601 02230 SC SEQ+4,1 1 U4CF 02230 012726 4401403140 02240 SC ISS08+4,4,32 U4CF 02240 012733 2001057703 02250 FT 0010577,7,3 U4CF 02250 012740 5201455403 02260 SA1 CCC,3 U4CF 02260 012745 4401373540 02270 SC ISS12+4,4,32 U4CF 02270 * 012752 1001363300 02280 JR ISS U4CF 02280 012757 4401371504 02290 SC ISS03+3,3,4 U4CF 02290 * 012764 1001447400 02300 JR CLR U4CF 02300 012771 4401403602 02310 SC SEQ+4,2 2 U4CF 02310 * 012776 1001363300 02320 JR ISS U4CF 02320 013003 4401371502 02330 SC ISS03+3,3,2 U4CF 02330 013010 4401400042 02340 SC ISS07+4,4,34 U4CF 02340 * 013015 1001447400 02350 JR CLR U4CF 02350 013022 4401403603 02360 SC SEQ+4,3 3 U4CF 02360 * 013027 1001363300 02370 JR ISS U4CF 02370 013034 4401371506 02380 SC ISS03+3,3,6 U4CF 02380 * 013041 1001447400 02390 JR CLR U4CF 02390 013046 4401403604 02400 SC SEQ+4,4 4 U4CF 02400 * 013053 1001363300 02410 JR ISS U4CF 02410 * 013060 3001306540 02420 TSTE2 JC $+5,32 SC 1STS2+4,47 U4CF 02420 013065 4401371403 02430 SC ISS03+2,2,3 U4CF 02430 013072 4401371510 02440 SC ISS03+3,3,8 U4CF 02440 013077 4401400043 02450 SC ISS07+4,4,35 U4CF 02450 013104 4401403100 02460 SC ISS08+4,4,0 U4CF 02460 013111 2601455403 02470 PD CCC,3 U4CF 02470 013116 4401373500 02480 SC ISS12+4,4,0 U4CF 02480 * 013123 1001363300 02490 JR ISS U4CF 02490 013130 4401371512 02500 SC ISS03+3,3,10 U4CF 02500 * 013135 1001363300 02510 JR ISS U4CF 02510 013142 4401371514 02520 SC ISS03+3,3,12 U4CF 02520 * 013147 1001363300 02530 JR ISS U4CF 02530 013154 4401371516 02540 SC ISS03+3,3,14 U4CF 02540 * 013161 1001363300 02550 JR ISS U4CF 02550 * 013166 3001317340 02560 TST2E JC $+5,32 SC ISTS2+4,63 U4CF 02560 013173 4401371500 02570 SC ISS03+3,3,0 U4CF 02570 * 013200 1001447400 02580 JR CLR U4CF 02580 013205 4401403601 02590 SC SEQ+4,1 1 U4CF 02590 013212 4401403140 02600 SC ISS08+4,4,32 U4CF 02600 013217 2001057703 02610 FT 0010577,7,3 U4CF 02610 013224 5201455403 02620 SA1 CCC,3 U4CF 02620 013231 4401373540 02630 SC ISS12+4,4,32 U4CF 02630 * 013236 1001363300 02640 JR ISS U4CF 02640 013243 4401371504 02650 SC ISS03+3,3,4 U4CF 02650 * 013250 1001447400 02660 JR CLR U4CF 02660 013255 4401403602 02670 SC SEQ+4,2 2 U4CF 02670 * 013262 1001363300 02680 JR ISS U4CF 02680 013267 4401371502 02690 SC ISS03+3,3,2 U4CF 02690 013274 4401400042 02700 SC ISS07+4,4,34 U4CF 02700 * 013301 1001447400 02710 JR CLR U4CF 02710 013306 4401403603 02720 SC SEQ+4,3 3 U4CF 02720 * 013313 1001363300 02730 JR ISS U4CF 02730 013320 4401371506 02740 SC ISS03+3,3,6 U4CF 02740 * 013325 1001447400 02750 JR CLR U4CF 02750 013332 4401403604 02760 SC SEQ+4,4 4 U4CF 02760 * 013337 1001363300 02770 JR ISS U4CF 02770 * 013344 3001335140 02780 TETS2 JC $+5,32 SC ISTS2+4,47 U4CF 02780 013351 4401371550 02790 SC ISS03+3,3,40 U4CF 02790 013356 4401400043 02800 SC ISS07+4,4,35 U4CF 02800 013363 2601455404 02810 PD CCC,4 U4CF 02810 013370 4401403100 02820 SC ISS08+4,4,0 U4CF 02820 013375 4401373500 02830 SC ISS12+4,4,0 U4CF 02830 * 013402 1001363300 02840 JR ISS U4CF 02840 013407 4401371552 02850 SC ISS03+3,3,42 U4CF 02850 * 013414 1001363300 02860 JR ISS U4CF 02860 013421 4401371554 02870 SC ISS03+3,3,44 U4CF 02870 * 013426 1001363300 02880 JR ISS U4CF 02880 013433 4401371556 02890 SC ISS03+3,3,46 U4CF 02890 * 013440 1001363300 02900 JR ISS U4CF 02900 * 013445 3001345240 02910 STET2 JC $+5,32 SC ISTS2+4,63 U4CF 02910 013452 4401371500 02920 SC ISS03+3,3,0 U4CF 02920 * 013457 1001447400 02930 JR CLR U4CF 02930 013464 4401403601 02940 SC SEQ+4,1 1 U4CF 02940 013471 4401403140 02950 SC ISS08+4,4,32 U4CF 02950 013476 2001057703 02960 FT 0010577,7,3 U4CF 02960 013503 5201455403 02970 SA1 CCC,3 U4CF 02970 013510 4401373540 02980 SC ISS12+4,4,32 U4CF 02980 * 013515 1001363300 02990 JR ISS U4CF 02990 013522 4401371504 03000 SC ISS03+3,3,4 U4CF 03000 * 013527 1001447400 03010 JR CLR U4CF 03010 013534 4401403602 03020 SC SEQ+4,2 2 U4CF 03020 * 013541 1001363300 03030 JR ISS U4CF 03030 013546 4401371502 03040 SC ISS03+3,3,2 U4CF 03040 013553 4401400042 03050 SC ISS07+4,4,34 U4CF 03050 * 013560 1001447400 03060 JR CLR U4CF 03060 013565 4401403603 03070 SC SEQ+4,3 3 U4CF 03070 * 013572 1001363300 03080 JR ISS U4CF 03080 013577 4401371506 03090 SC ISS03+3,3,6 U4CF 03090 * 013604 1001447400 03100 JR CLR U4CF 03100 013611 4401403604 03110 SC SEQ+4,4 4 U4CF 03110 * 013616 1001363300 03120 JR ISS U4CF 03120 * 013623 3001216300 03130 J TST U4CF 03130 * 013630 3000000000 03140 ISS J 0 U4CF 03140 013635 5601454444 03150 BD1 D0NE,4 U4CF 03150 013642 6200013704 03160 AM1 95,4 U4CF 03160 013647 4401455500 03170 SC K01,0 U4CF 03170 013654 6401371400 03180 ISS01 LS ISS03+2,2,0 U4CF 03180 013661 6401371500 03190 ISS02 LS ISS03+3,3,0 U4CF 03190 013666 5401371577 03200 ISTS2 LP ISS03+3,3,63 NOOP OR LP OP U4CF 03200 013673 2000060060 03210 FT IMAGE,4848 U4CF 03210 013700 2000060064 03220 FT IMAGE,5252 U4CF 03220 013705 2600031304 03230 ISS09 PD 203,4 U4CF 03230 013712 4100000000 03240 ISS03 XF 000,00,0,0,4 U4CF 03240 013717 7401455062 03250 ISS10 CT BZER0,5050 U4CF 03250 * 013724 3001374300 03260 ISS04 J $+15 U4CF 03260 * 013731 3001374300 03270 ISS12 J $+10 U4CF 03270 * 013736 3000001060 03280 JD 010 LOCK OUT ERROR U4CF 03280 * 013743 1001462500 03290 ISS05 JR DELAY U4CF 03290 013750 3401455501 03300 CC K01,1 U4CF 03300 * 013755 3001376700 03310 ISS06 J $+10 U4CF 03310 * 013762 3000001160 03320 JD 011 INH INT ERROR U4CF 03320 013767 7400031360 03330 ISS13 CT 203,48 U4CF 03330 * 013774 3001400600 03340 ISS07 J $+10 U4CF 03340 * 014001 3000001260 03350 JD 012 ABA ERROR U4CF 03350 014006 7401455462 03360 ISS11 CT CCC,50 U4CF 03360 * 014013 3001402542 03370 JE ISS08 U4CF 03370 * 014020 3000001360 03380 JD 013 SPEC BA ERROR U4CF 03380 * 014025 3001363000 03390 ISS08 J ISS U4CF 03390 014032 3400060000 03400 SEQ CC IMAGE,0 0 U4CF 03400 * 014037 3001405142 03410 JE $+10 U4CF 03410 * 014044 3000001460 03420 JD 014 SEQUENCE ERROR U4CF 03420 014051 5600061717 03430 BA1 IMAGE+1515,15 U4CF 03430 014056 7001457557 03440 CB1 TPPAT,1515 U4CF 03440 * 014063 3001407542 03450 JE $+10 U4CF 03450 * 014070 3000001560 03460 JD 015 COMP1 ERROR U4CF 03460 014075 5601057600 03470 BA1 010576,1,16 U4CF 03470 014102 7001457540 03480 CB1 TPPAT,1616 U4CF 03480 * 014107 3001363042 03490 JE ISS U4CF 03490 * 014114 3000001660 03500 JD 016 COMP2 ERROR U4CF 03500 * 014121 3001363000 03510 J ISS U4CF 03510 014126 4100007777 03520 TPINT XF 00,0777777,0,4 U4CF 03520 * 014133 3001415253 03530 JC ERRTN,4343 U4CF 03530 014140 4401455501 03540 SC K01,1 U4CF 03540 * 014145 3000000000 03550 INTEX J 0 U4CF 03550 014152 2601420702 03560 ERRTN PD ERR01+4,4,2 U4CF 03560 014157 4401420701 03570 SC ERR01+4,4,1 U4CF 03570 014164 4401422614 03580 SC ERR02+4,4,12 U4CF 03580 014171 2601425602 03590 PD ERR03+3,3,2 U4CF 03590 014176 1601425621 03600 BS2 ERR03+3,3,1 U4CF 03600 014203 4100000000 03610 ERR01 XF 00,00,0,0,4 U4CF 03610 * 014210 3001423453 03620 JC $+20,43 3 U4CF 03620 014215 1601420721 03630 BS2 ERR01+4,4,1 U4CF 03630 * 014222 3201417600 03640 ERR02 JL $-20 U4CF 03640 * 014227 3001424600 03650 J $+15 U4CF 03650 014234 6401425601 03660 LS ERR03+3,3,1 U4CF 03660 * 014241 3001421500 03670 J $-20 U4CF 03670 * 014246 3000001760 03680 JD 017 ABNORMAL U4CF 03680 * 014253 3000000060 03690 ERR03 JD 0 U4CF 03690 014260 5601412701 03700 BA1 TPINT+1,1,1 U4CF 03700 014265 5201427301 03710 SA1 $+6,1 U4CF 03710 014272 4100407777 03720 XF 040,0777777,0,4 U4CF 03720 014277 5600013304 03730 BA1 91,4 U4CF 03730 014304 5200044303 03740 SA1 291,3 U4CF 03740 * 014311 3000044000 03750 J 288 U4CF 03750 * 014316 3000007060 03760 N0INT JD 070 U4CF 03760 014323 4100407777 03770 XF 040,0777777,0,4 U4CF 03770 014330 4120407777 03780 XF 040,0777777,0,5 U4CF 03780 * 014335 3001427700 03790 J $-30 U4CF 03790 * 014342 3000000036 03800 JC 0,30 U4CF 03800 014351 014362 03810 +3 CL1 U4CF 03810 * 014352 3000000035 03820 JC 0,29 U4CF 03820 014361 014367 03830 CL12 +3 CL2 U4CF 03830 * 014362 3000007160 03840 CL1 JD 071 U4CF 03840 * 014367 3000007260 03850 CL2 JD 072 U4CF 03850 * 014374 3000000031 03860 JC 0,25 U4CF 03860 014403 000000 03870 +3 0000000000 U4CF 03870 * 014404 3000000031 03880 JC 0,25 U4CF 03880 014413 000000 03890 IE45 +3 0000000 0 U4CF 03890 * 014414 3000000000 03900 GNP J 0 U4CF 03900 014421 2000177422 03910 FT 1020,18 8 U4CF 03910 014426 2000062020 03920 FT IMAGE+1616,16 U4CF 03920 014433 4401446304 03930 SC GNP01+4,4,4 U4CF 03930 014440 5601457500 03940 BA1 TPPAT,1616 U4CF 03940 014445 5200061700 03950 SA1 IMAGE+1515,16 U4CF 03950 014452 2400060021 03960 TFI IMAGE U4CF 03960 * 014457 3201445204 03970 GNP01 JL $-5,4 U4CF 03970 * 014464 3001441400 03980 J GNP U4CF 03980 * 014471 3000000000 03990 CLR J 0 U4CF 03990 014476 2000177422 04000 FT 1020,18 8 U4CF 04000 014503 2000060120 04010 FT IMAGE+1,1,16 U4CF 04010 014510 4400060000 04020 SC IMAGE,0 0 U4CF 04020 014515 4401453304 04030 SC $+14,4 U4CF 04030 014522 2400060021 04040 TFI IMAGE U4CF 04040 * 014527 3201452200 04050 JL $-5 U4CF 04050 * 014534 3001447100 04060 J CLR U4CF 04060 000600 04070 IMAGE EQU 00600 U4CF 04070 014544 0001 04080 D0NE +4 _0001_ U4CF 04080 014550 00000000 04090 BZER0 +4 000 U4CF 04090 014554 00010577 04100 CCC +4 00001057577 U4CF 04100 014555 00 04110 K01 +1 000 U4CF 04110 014565 7373737373737373 04120 +8 0737373737373737373 U4CF 04120 3 014575 7373737373737373 04130 TPPAT +8 0737373737373737373 U4CF 04130 3 014601 00000020 04140 B16 +4 00000002020 U4CF 04140 014605 00000001 04150 B0NE +4 001 U4CF 04150 014611 00017000 04160 B2048 +4 00001700000 U4CF 04160 014615 00031360 04170 BAT4 +4 00003136360 U4CF 04170 014621 00033364 04180 BAT5 +4 00003336364 U4CF 04180 * 014622 3000000000 04190 DELAY J 0 U4CF 04190 014627 2600014304 04200 PD 99,4 U4CF 04200 014634 7601460530 04210 AT B0NE,24 4 U4CF 04210 014641 7401461130 04220 CT B2048,2424 U4CF 04220 * 014646 3001463443 04230 JU $-10 U4CF 04230 * 014653 3001462200 04240 J DELAY U4CF 04240 * 014660 3000000000 04250 TMCH J 0 U4CF 04250 014665 2001547303 04260 FT TMINT,3 3 U4CF 04260 014672 5200044703 04270 SA1 295,3 U4CF 04270 014677 2001431603 04280 FT N0INT,3 3 U4CF 04280 014704 5200045703 04290 SA1 303,3 U4CF 04290 014711 2000044003 04300 FT 288,3 U4CF 04300 014716 5201556503 04310 SA1 TMEX+3,3,3 U4CF 04310 014723 4401535400 04320 SC TM02+1,0,0 U4CF 04320 014730 4401536100 04330 SC TM03+1,0,0 U4CF 04330 014735 4401537300 04340 SC TM04+1,0,0 U4CF 04340 014742 4401544300 04350 SC TM05+1,0,0 U4CF 04350 014747 4401547400 04360 SC TMINT+1,1,0 U4CF 04360 014754 4401550600 04370 SC TMI01+1,1,0 U4CF 04370 014761 4401553200 04380 SC TMI02+1,1,0 U4CF 04380 014766 4401555600 04390 SC TMI04+1,1,0 U4CF 04390 014773 4401537162 04400 SC TM07+4,5,50 U4CF 04400 015000 5601461504 04410 BA1 BAT4,4 U4CF 04410 015005 5201540304 04420 SA1 TM08+4,4,4 U4CF 04420 015012 4401542262 04430 SC TM09+4,5,50 U4CF 04430 * 015017 1001517300 04440 JR TMUS U4CF 04440 015024 2001547303 04450 FT TMINT,3 3 U4CF 04450 015031 5200045703 04460 SA1 303,3 U4CF 04460 015036 2001431603 04470 FT N0INT,3 3 U4CF 04470 015043 5200044703 04480 SA1 295,3 U4CF 04480 015050 2000045003 04490 FT 296,3 U4CF 04490 015055 5201556503 04500 SA1 TMEX+3,3,3 U4CF 04500 015062 4401535420 04510 SC TM02+1,1,16 U4CF 04510 015067 4401536120 04520 SC TM03+1,1,16 U4CF 04520 015074 4401537320 04530 SC TM04+1,1,16 U4CF 04530 015101 4401544320 04540 SC TM05+1,1,16 U4CF 04540 015106 4401547420 04550 SC TMINT+1,1,16 U4CF 04550 015113 4401550620 04560 SC TMI01+1,1,16 U4CF 04560 015120 4401553220 04570 SC TMI02+1,1,16 U4CF 04570 015125 4401555620 04580 SC TMI04+1,1,16 U4CF 04580 015132 4401537166 04590 SC TM07+4,5,54 U4CF 04590 015137 5601462104 04600 BA1 BAT5,4 U4CF 04600 015144 5201540304 04610 SA1 TM08+4,4,4 U4CF 04610 015151 4401542266 04620 SC TM09+4,5,54 U4CF 04620 * 015156 1001517300 04630 JR TMUS U4CF 04630 * 015163 3001466000 04640 J TMCH U4CF 04640 * 015170 3000000000 04650 TMUS J 0 U4CF 04650 015175 4401521301 04660 TMUS1 SC TMUS2+4,4,1 U4CF 04660 * 015202 1001525500 04670 JR TMTST U4CF 04670 * 015207 3201522100 04680 TMUS2 JL $+10 U4CF 04680 * 015214 3001517000 04690 J TMUS U4CF 04690 015221 6001535401 04700 AC TM02+1,1,1 U4CF 04700 015226 6001536101 04710 AC TM03+1,1,1 U4CF 04710 015233 6001537301 04720 AC TM04+1,1,1 U4CF 04720 015240 6001544301 04730 AC TM05+1,1,1 U4CF 04730 * 015245 3001520200 04740 J TMUS1+5 5 U4CF 04740 * 015252 3000000000 04750 TMTST J 0 U4CF 04750 015257 4401536343 04760 TM1 SC TM03+3,3,35 U4CF 04760 * 015264 1001533700 04770 JR TMISS U4CF 04770 015271 4401536353 04780 TM2 SC TM03+3,4,43 U4CF 04780 * 015276 1001533700 04790 JR TMISS U4CF 04790 015303 4401536363 04800 TM3 SC TM03+3,5,51 U4CF 04800 * 015310 1001533700 04810 JR TMISS U4CF 04810 015315 4401536373 04820 TM4 SC TM03+3,5,59 U4CF 04820 * 015322 1001533700 04830 JR TMISS U4CF 04830 * 015327 3001525200 04840 J TMTST U4CF 04840 * 015334 3000000000 04850 TMISS J 0 U4CF 04850 015341 5601454444 04860 TM01 BD1 D0NE,4 U4CF 04860 015346 6200013704 04870 AM1 95,4 U4CF 04870 015353 4100620000 04880 TM02 XF 062,00,0,0,4 U4CF 04880 015360 4100620000 04890 TM03 XF 062,00,0,0,4 U4CF 04890 015365 4601455062 04900 TM07 BT BZER0,5050 U4CF 04900 015372 4100611000 04910 TM04 XF 061,0100000,0,4 U4CF 04910 015377 7400031360 04920 TM08 CT 203,48 U4CF 04920 * 015404 3001541643 04930 JU $+10 U4CF 04930 * 015411 3000002260 04940 JD 022 ABA ERROR U4CF 04940 015416 7401455062 04950 TM09 CT BZER0,5050 U4CF 04950 * 015423 3001543542 04960 JE $+10 U4CF 04960 * 015430 3000002360 04970 JD 023 SPEC BA ERROR U4CF 04970 015435 4401455500 04980 SC K01,0 U4CF 04980 015442 4100610000 04990 TM05 XF 061,00,0,0,4 U4CF 04990 015447 3401455501 05000 CC K01,1 U4CF 05000 * 015454 3001546642 05010 JE $+10 U4CF 05010 * 015461 3000002460 05020 JD 024 TAPE MARK ERROR U4CF 05020 * 015466 3001533400 05030 J TMISS U4CF 05030 015473 4100007342 05040 TMINT XF 00,0734242,0,4 U4CF 05040 * 015500 3001553153 05050 JC TMI02,4343 U4CF 05050 015505 4100000001 05060 TMI01 XF 00,0000101,0,4 U4CF 05060 * 015512 3001555053 05070 JC TMI03,4343 U4CF 05070 * 015517 3000002560 05080 JD 025 INTERRUPT ERROR U4CF 05080 * 015524 3001133100 05090 J TEST5 U4CF 05090 * 015531 3000002760 05100 TMI02 JD 027 ABNORMAL U4CF 05100 015536 4100407777 05110 XF 040,0777777,0,4 U4CF 05110 * 015543 3001133100 05120 J TEST5 U4CF 05120 015550 4401455501 05130 TMI03 SC K01,1 U4CF 05130 015555 4100407777 05140 TMI04 XF 040,0777777,0,4 U4CF 05140 * 015562 3000000031 05150 TMEX JC 0,25 U4CF 05150 * 015567 3000000000 05160 SKCH J 0 U4CF 05160 015574 2001660403 05170 FT SKINT,3 3 U4CF 05170 015601 5200044703 05180 SA1 295,3 U4CF 05180 015606 2001431603 05190 FT N0INT,3 3 U4CF 05190 015613 5200045703 05200 SA1 303,3 U4CF 05200 015620 4401641000 05210 SC SK02+1,0,0 U4CF 05210 015625 4401642700 05220 SC SK03+1,0,0 U4CF 05220 015632 4401643400 05230 SC SK04+1,0,0 U4CF 05230 015637 4401644600 05240 SC SK05+1,0,0 U4CF 05240 015644 4401652300 05250 SC SK06+1,0,0 U4CF 05250 015651 4401653500 05260 SC SK14+1,0,0 U4CF 05260 015656 4401660500 05270 SC SKINT+1,1,0 U4CF 05270 015663 4401663600 05280 SC SKI01+1,1,0 U4CF 05280 015670 4401640660 05290 SC SK08+4,4,48 U4CF 05290 015675 5601461504 05300 BA1 BAT4,4 U4CF 05300 015702 5201645604 05310 SA1 SK09+4,4,4 U4CF 05310 015707 4401647560 05320 SC SK10+4,4,48 U4CF 05320 015714 4401650262 05330 SC SK11+4,5,50 U4CF 05330 015721 4401652162 05340 SC SK12+4,5,50 U4CF 05340 015726 4401644462 05350 SC SK13+4,5,50 U4CF 05350 * 015733 1001611400 05360 JR SKUS U4CF 05360 015740 2001660403 05370 FT SKINT,3 3 U4CF 05370 015745 5200045703 05380 SA1 303,3 U4CF 05380 015752 2001431603 05390 FT N0INT,3 3 U4CF 05390 015757 5200044703 05400 SA1 295,3 U4CF 05400 015764 4401641020 05410 SC SK02+1,1,16 U4CF 05410 015771 4401642720 05420 SC SK03+1,1,16 U4CF 05420 015776 4401643420 05430 SC SK04+1,1,16 U4CF 05430 016003 4401644620 05440 SC SK05+1,1,16 U4CF 05440 016010 4401652320 05450 SC SK06+1,1,16 U4CF 05450 016015 4401653520 05460 SC SK14+1,1,16 U4CF 05460 016022 4401660520 05470 SC SKINT+1,1,16 U4CF 05470 016027 4401663620 05480 SC SKI01+1,1,16 U4CF 05480 016034 4401640664 05490 SC SK08+4,5,52 U4CF 05490 016041 5601462104 05500 BA1 BAT5,4 U4CF 05500 016046 5201645604 05510 SA1 SK09+4,4,4 U4CF 05510 016053 4401647564 05520 SC SK10+4,5,52 U4CF 05520 016060 4401650266 05530 SC SK11+4,5,54 U4CF 05530 016065 4401652166 05540 SC SK12+4,5,54 U4CF 05540 016072 4401644466 05550 SC SK13+4,5,54 U4CF 05550 * 016077 1001611400 05560 JR SKUS U4CF 05560 * 016104 3001556700 05570 J SKCH U4CF 05570 * 016111 3000000000 05580 SKUS J 0 U4CF 05580 016116 4401613401 05590 SKUS1 SC SKUS2+4,4,1 U4CF 05590 * 016123 1001621000 05600 JR SKTST U4CF 05600 * 016130 3201614200 05610 SKUS2 JL $+10 U4CF 05610 * 016135 3001611100 05620 J SKUS U4CF 05620 016142 6001641001 05630 AC SK02+1,1,1 U4CF 05630 016147 6001642701 05640 AC SK03+1,1,1 U4CF 05640 016154 6001643401 05650 AC SK04+1,1,1 U4CF 05650 016161 6001644601 05660 AC SK05+1,1,1 U4CF 05660 016166 6001652301 05670 AC SK06+1,1,1 U4CF 05670 016173 6001653501 05680 AC SK14+1,1,1 U4CF 05680 * 016200 3001612300 05690 J SKUS1+5 5 U4CF 05690 * 016205 3000000000 05700 SKTST J 0 U4CF 05700 016212 4401645004 05710 SC SK05+3,4,4 U4CF 05710 * 016217 1001634200 05720 JR SKISS U4CF 05720 016224 4401645014 05730 SC SK05+3,1,12 U4CF 05730 * 016231 1001634200 05740 JR SKISS U4CF 05740 016236 4401645024 05750 SC SK05+3,2,20 U4CF 05750 * 016243 1001634200 05760 JR SKISS U4CF 05760 016250 4401645034 05770 SC SK05+3,2,28 U4CF 05770 * 016255 1001634200 05780 JR SKISS U4CF 05780 016262 4401645044 05790 SC SK05+3,3,36 U4CF 05790 * 016267 1001634200 05800 JR SKISS U4CF 05800 016274 4401645054 05810 SC SK05+3,4,44 U4CF 05810 * 016301 1001634200 05820 JR SKISS U4CF 05820 016306 4401645064 05830 SC SK05+3,5,52 U4CF 05830 * 016313 1001634200 05840 JR SKISS U4CF 05840 016320 4401645074 05850 SC SK05+3,6,60 U4CF 05850 * 016325 1001634200 05860 JR SKISS U4CF 05860 * 016332 3001620500 05870 J SKTST U4CF 05870 * 016337 3000000000 05880 SKISS J 0 U4CF 05880 * 016344 1001671200 05890 JR GNSK U4CF 05890 016351 4401657603 05900 SC SK07+4,3,3 U4CF 05900 016356 5601454444 05910 SK01 BD1 D0NE,4 U4CF 05910 016363 6200013704 05920 AM1 95,4 U4CF 05920 016370 5601666600 05930 BA1 SKTP1,1616 U4CF 05930 016375 5200061700 05940 SA1 SWIM+15,5,16 U4CF 05940 016402 2000060060 05950 SK08 FT SWIM,48 8 U4CF 05950 016407 4100620000 05960 SK02 XF 062,00,0,0,4 U4CF 05960 016414 5601670600 05970 BA1 SKTP2,1616 U4CF 05970 016421 5200061700 05980 SA1 SWIM+15,5,16 U4CF 05980 016426 4100620000 05990 SK03 XF 062,00,0,0,4 U4CF 05990 016433 4100611000 06000 SK04 XF 061,0100000,0,4 U4CF 06000 016440 4601455062 06010 SK13 BT BZER0,5050 U4CF 06010 016445 4100620400 06020 SK05 XF 062,0040400,0,4 U4CF 06020 016452 7400031360 06030 SK09 CT 203,48 U4CF 06030 * 016457 3001647143 06040 JU $+10 U4CF 06040 * 016464 3000003260 06050 JD 032 ABA ERROR U4CF 06050 016471 2000460060 06060 SK10 FT SRIM,48 8 U4CF 06060 016476 7401455060 06070 SK11 CT BZER0,4848 U4CF 06070 * 016503 3001652242 06080 JE $+15 U4CF 06080 * 016510 3000003360 06090 JD 033 SPEC BA ERROR U4CF 06090 016515 4601455062 06100 SK12 BT BZER0,5050 U4CF 06100 016522 4100611000 06110 SK06 XF 061,0100000,0,4 U4CF 06110 016527 2600461700 06120 PD SRIM+15,5,16 U4CF 06120 016534 4100610000 06130 SK14 XF 061,00,0,0,4 U4CF 06130 016541 5600461700 06140 BA1 SRIM+15,5,16 U4CF 06140 016546 7001666640 06150 CB1 SKTP1,1616 U4CF 06150 * 016553 3001656542 06160 JE $+10 U4CF 06160 * 016560 3000003460 06170 JD 034 ERASE ERROR U4CF 06170 016565 6001645001 06180 AC SK05+3,1,1 U4CF 06180 * 016572 3201635604 06190 SK07 JL SK01,4 U4CF 06190 * 016577 3001633700 06200 J SKISS U4CF 06200 016604 4100007777 06210 SKINT XF 00,0777777,0,4 U4CF 06210 * 016611 3001663053 06220 JC $+15,43 3 U4CF 06220 * 016616 3000003560 06230 JD 035 INTERRUPT ERROR U4CF 06230 * 016623 3001663500 06240 J $+10 U4CF 06240 * 016630 3000003760 06250 JD 037 U4CF 06250 016635 4100407777 06260 SKI01 XF 040,0777777,0,4 U4CF 06260 * 016642 3001142031 06270 JC TEST6,2525 U4CF 06270 016656 0707070707070707 06280 +8 0070707070707070707 U4CF 06280 7 016666 0707070707070707 06290 SKTP1 +8 0070707070707070707 U4CF 06290 7 016676 7070707070707070 06300 +8 0707070707070707070 U4CF 06300 0 016706 7070707070707070 06310 SKTP2 +8 0707070707070707070 U4CF 06310 0 000600 06320 SWIM EQU 00600 U4CF 06320 004600 06330 SRIM EQU 0004600 0 U4CF 06330 * 016707 3000000000 06340 GNSK J 0 U4CF 06340 016714 2000200022 06350 FT 1024,18 8 U4CF 06350 016721 2000062020 06360 FT SWIM+16,6,16 U4CF 06360 016726 4401675602 06370 SC GNSK1+4,4,2 U4CF 06370 016733 5601457500 06380 BA1 TPPAT,1616 U4CF 06380 016740 5200061700 06390 SA1 SWIM+15,5,16 U4CF 06390 016745 2400060021 06400 TFI SWIM U4CF 06400 * 016752 3201674502 06410 GNSK1 JL $-5,2 U4CF 06410 * 016757 3001670700 06420 J GNSK U4CF 06420 * 016764 3000000000 06430 RWCH J 0 U4CF 06430 016771 2001754103 06440 FT RWINT,3 3 U4CF 06440 016776 5200044703 06450 SA1 295,3 U4CF 06450 017003 2001431603 06460 FT N0INT,3 3 U4CF 06460 017010 5200045703 06470 SA1 303,3 U4CF 06470 017015 4401736400 06480 SC RW01+1,0,0 U4CF 06480 017022 4401740300 06490 SC RW02+1,0,0 U4CF 06490 017027 4401742200 06500 SC RW04+1,0,0 U4CF 06500 017034 4401750400 06510 SC RW05+1,0,0 U4CF 06510 017041 4401754200 06520 SC RWINT+1,1,0 U4CF 06520 017046 4401757300 06530 SC RWI01+1,1,0 U4CF 06530 017053 4401734360 06540 SC RW06+4,4,48 U4CF 06540 017060 4401742062 06550 SC RW07+4,5,50 U4CF 06550 017065 5601461504 06560 BA1 BAT4,4 U4CF 06560 017072 5201743704 06570 SA1 RW08+4,4,4 U4CF 06570 017077 4401745662 06580 SC RW09+4,5,50 U4CF 06580 017104 4401750260 06590 SC RW10+4,4,48 U4CF 06590 * 017111 1001725300 06600 JR RWU U4CF 06600 017116 2001754103 06610 FT RWINT,3 3 U4CF 06610 017123 5200045703 06620 SA1 303,3 U4CF 06620 017130 2001431603 06630 FT N0INT,3 3 U4CF 06630 017135 5200044703 06640 SA1 295,3 U4CF 06640 017142 4401736420 06650 SC RW01+1,1,16 U4CF 06650 017147 4401740320 06660 SC RW02+1,1,16 U4CF 06660 017154 4401742220 06670 SC RW04+1,1,16 U4CF 06670 017161 4401750420 06680 SC RW05+1,1,16 U4CF 06680 017166 4401754220 06690 SC RWINT+1,1,16 U4CF 06690 017173 4401757320 06700 SC RWI01+1,1,16 U4CF 06700 017200 4401734364 06710 SC RW06+4,5,52 U4CF 06710 017205 4401742066 06720 SC RW07+4,5,54 U4CF 06720 017212 5601462104 06730 BA1 BAT5,4 U4CF 06730 017217 5201743704 06740 SA1 RW08+4,4,4 U4CF 06740 017224 4401745666 06750 SC RW09+4,5,54 U4CF 06750 017231 4401750264 06760 SC RW10+4,5,52 U4CF 06760 * 017236 1001725300 06770 JR RWU U4CF 06770 * 017243 3001676400 06780 J RWCH U4CF 06780 * 017250 3000000000 06790 RWU J 0 U4CF 06790 017255 4401727301 06800 RWU1 SC RWU2+4,1,1 U4CF 06800 * 017262 1001733500 06820 JR RWTST U4CF 06820 * 017267 3201730100 06830 RWU2 JL $+10 U4CF 06830 * 017274 3001725000 06840 J RWU U4CF 06840 017301 6001740301 06850 AC RW02+1,1,1 U4CF 06850 017306 6001742201 06860 AC RW04+1,1,1 U4CF 06860 017313 6001736401 06870 AC RW01+1,1,1 U4CF 06870 017320 6001750401 06880 AC RW05+1,1,1 U4CF 06880 * 017325 3001726200 06890 J RWU1+5 U4CF 06890 * 017332 3000000000 06900 RWTST J 0 U4CF 06900 017337 2001764260 06910 RW06 FT RWPAT-1515,48 U4CF 06910 017344 2000002061 06920 FT 16,49 U4CF 06920 017351 2000002065 06930 FT 16,53 U4CF 06930 017356 4401741377 06940 SC RW03+4,6,63 U4CF 06940 017363 4100620000 06950 RW01 XF 062,00,0,0,4 U4CF 06950 017370 5601460544 06960 BD1 B0NE,4 U4CF 06960 017375 6200013704 06970 AM1 95,4 U4CF 06970 017402 4100620400 06980 RW02 XF 062,0040400,0,4 U4CF 06980 * 017407 3201740200 06990 RW03 JL RW02 U4CF 06990 017414 4601455062 07000 RW07 BT BZER0,5050 U4CF 07000 017421 4100677777 07010 RW04 XF 067,0777777,0,4 U4CF 07010 * 017426 1001760700 07020 JR RWDLY U4CF 07020 017433 7400031360 07030 RW08 CT 203,48 U4CF 07030 * 017440 3001745243 07040 JU $+10 U4CF 07040 * 017445 3000004260 07050 JD 042 ABA ERROR U4CF 07050 017452 7401455062 07060 RW09 CT BZER0,5050 U4CF 07060 * 017457 3001747142 07070 JE $+10 U4CF 07070 * 017464 3000004360 07080 JD 043 SPEC BA ERROR U4CF 07080 017471 2601770100 07090 PD RWRD+15,5,16 U4CF 07090 017476 2001766260 07100 RW10 FT RWRD,48 8 U4CF 07100 017503 4100610000 07110 RW05 XF 061,00,0,0,4 U4CF 07110 017510 5601770100 07120 BA1 RWRD+15,5,16 U4CF 07120 017515 7001766140 07130 CB1 RWPAT,1616 U4CF 07130 * 017522 3001733242 07140 JE RWTST U4CF 07140 * 017527 3000004460 07150 JD 044 REWIND ERROR U4CF 07150 * 017534 3001733200 07160 J RWTST U4CF 07160 017541 4100007777 07170 RWINT XF 00,0777777,0,4 U4CF 07170 * 017546 3001756553 07180 JC $+15,43 3 U4CF 07180 * 017553 3000004560 07190 JD 045 INTERRUPT ERROR U4CF 07190 * 017560 3001757200 07200 J $+10 U4CF 07200 * 017565 3000004760 07210 JD 047 U4CF 07210 017572 4100407777 07220 RWI01 XF 040,0777777,0,4 U4CF 07220 * 017577 3001147000 07230 J TEST7 U4CF 07230 * 017604 3000000000 07240 RWDLY J 0 U4CF 07240 017611 2600015704 07250 PD 0157,4 U4CF 07250 017616 7601460533 07260 AT B0NE,27 7 U4CF 07260 017623 7401770533 07270 CT RWK,27 U4CF 07270 * 017630 3001761643 07280 JU $-10 U4CF 07280 * 017635 3001760400 07290 J RWDLY U4CF 07290 017651 0000000000000000 07300 +8 0 U4CF 07300 017661 0000000000000000 07310 RWPAT +8 0 U4CF 07310 017662 20 07320 RWRD AREA 16 U4CF 07320 017705 00207700 07330 RWK +4 00020770700 U4CF 07330 017706 02 07340 UNITS +1 002 U4CF 07340 * 017707 3000000000 07350 ITLCH J 0 U4CF 07350 017714 2002013003 07360 FT ITLI,3 U4CF 07360 017721 5200044703 07370 SA1 295,3 U4CF 07370 017726 2001431603 07380 FT N0INT,3 3 U4CF 07380 017733 5200045703 07390 SA1 303,3 U4CF 07390 017740 4402011700 07400 SC ITL01+1,1,0 U4CF 07400 017745 4402013100 07410 SC ITLI+1,0,0 U4CF 07410 017752 4402016500 07420 SC ITLI1+4,4,0 U4CF 07420 * 017757 1002005100 07430 JR ITLU U4CF 07430 * 017764 3000005460 07440 JD 054 DEPRESS CHANGE TAPE U4CF 07440 017771 2002013003 07450 FT ITLI,3 U4CF 07450 017776 5200045703 07460 SA1 303,3 U4CF 07460 020003 2001431603 07470 FT N0INT,3 3 U4CF 07470 020010 5200044703 07480 SA1 295,3 U4CF 07480 020015 4402011720 07490 SC ITL01+1,1,16 U4CF 07490 020022 4402013120 07500 SC ITLI+1,1,16 U4CF 07500 020027 4402016220 07510 SC ITLI1+1,1,16 U4CF 07510 * 020034 1002005100 07520 JR ITLU U4CF 07520 * 020041 3001770700 07530 J ITLCH U4CF 07530 * 020046 3000000000 07540 ITLU J 0 U4CF 07540 020053 4402007101 07550 ITLU1 SC ITLU2+4,4,1 U4CF 07550 * 020060 1002011400 07560 JR ITTST U4CF 07560 * 020065 3202007700 07570 ITLU2 JL $+10 U4CF 07570 * 020072 3002004600 07580 J ITLU U4CF 07580 020077 6002011701 07590 AC ITL01+1,1,1 U4CF 07590 * 020104 3002006000 07600 J ITLU1+5 5 U4CF 07600 * 020111 3000000000 07610 ITTST J 0 U4CF 07610 020116 4100777777 07620 ITL01 XF 077,0777777,0,4 U4CF 07620 * 020123 3002011100 07630 J ITTST U4CF 07630 020130 4100007777 07640 ITLI XF 00,0777777,0,4 U4CF 07640 * 020135 3002015453 07650 JC $+15,43 3 U4CF 07650 * 020142 3000005560 07660 JD 055 INTERRUPT ERROR U4CF 07660 * 020147 3002016100 07670 J $+10 U4CF 07670 * 020154 3000005760 07680 JD 057 U4CF 07680 020161 4100407777 07690 ITLI1 XF 040,0777777,0,4 U4CF 07690 * 020166 3001152600 07700 J TEST8 U4CF 07700 * 020173 3000000000 07710 TS1FX J 0 U4CF 07710 020200 5602136505 07720 BA1 FXTS1+4,4,5 NOOP U4CF 07720 020205 5201171505 07730 SA1 LPTS2+4,4,5 U4CF 07730 020212 5201210005 07740 SA1 LPT25+4,4,5 U4CF 07740 020217 5201215505 07750 SA1 LPSV1+4,4,5 U4CF 07750 020224 5201367205 07760 SA1 ISTS2+4,4,5 U4CF 07760 020231 5201234505 07770 SA1 ETST2+4,4,5 U4CF 07770 020236 5201243405 07780 SA1 ESTT2+4,4,5 U4CF 07780 020243 5201261205 07790 SA1 EST2T+4,4,5 U4CF 07790 020250 5201271305 07800 SA1 TSET2+4,4,5 U4CF 07800 020255 5201306405 07810 SA1 TSTE2+4,4,5 U4CF 07810 020262 5201317205 07820 SA1 TST2E+4,4,5 U4CF 07820 020267 5201335005 07830 SA1 TETS2+4,4,5 U4CF 07830 020274 5201345105 07840 SA1 STET2+4,4,5 U4CF 07840 * 020301 3002017300 07850 J TS1FX U4CF 07850 * 020306 3000000000 07860 TS2FX J 0 U4CF 07860 020313 5602146105 07870 BA1 LP55T+4,4,5 U4CF 07870 020320 5201171505 07880 SA1 LPTS2+4,4,5 U4CF 07880 020325 5201210005 07890 SA1 LPT25+4,4,5 U4CF 07890 020332 5201215505 07900 SA1 LPSV1+4,4,5 U4CF 07900 020337 5602137205 07910 BA1 FXTS2+4,4,5 LP ISS03+3,55 U4CF 07910 020344 5201367205 07920 SA1 ISTS2+4,4,5 U4CF 07920 020351 5602137705 07930 BA1 FXET2+4,4,5 SC ISTS2+4,47 U4CF 07930 020356 5201234505 07940 SA1 ETST2+4,4,5 U4CF 07940 020363 5201261205 07950 SA1 EST2T+4,4,5 U4CF 07950 020370 5201306405 07960 SA1 TSTE2+4,4,5 U4CF 07960 020375 5201335005 07970 SA1 TETS2+4,4,5 U4CF 07970 020402 5602140405 07980 BA1 FXIT2+4,4,5 SC ISTS2+4,63 U4CF 07980 020407 5201243405 07990 SA1 ESTT2+4,4,5 U4CF 07990 020414 5201271305 08000 SA1 TSET2+4,4,5 U4CF 08000 020421 5201317205 08010 SA1 TST2E+4,4,5 U4CF 08010 020426 5201345105 08020 SA1 STET2+4,4,5 U4CF 08020 * 020433 3002030600 08030 J TS2FX U4CF 08030 * 020440 3000000000 08040 FN1N4 J 0 U4CF 08040 020445 5602150505 08050 BA1 JD12+4,5,5 U4CF 08050 020452 5201133505 08060 SA1 TEST5+4,4,5 U4CF 08060 020457 5602136505 08070 BA1 FXTS1+4,4,5 U4CF 08070 020464 5201076205 08080 SA1 TEST1+4,4,5 U4CF 08080 020471 4401105011 08090 SC TEST2+3,3,9 U4CF 08090 020476 4401114412 08100 SC TEST3+3,3,10 U4CF 08100 020503 4401124013 08110 SC TEST4+3,3,11 U4CF 08110 * 020510 1002122500 08120 JR ERSFX U4CF 08120 * 020515 1002017600 08130 JR TS1FX CLEAR OPS TS1 TO 4 U4CF 08130 020522 4401100130 08140 SC TEST1+1919,24 800 PPI BCD U4CF 08140 020527 4401116430 08150 SC TEST3+1919,24 U4CF 08150 020534 4401107031 08160 SC TEST2+1919,25 800 PPI BINY U4CF 08160 020541 4401126031 08170 SC TEST4+1919,25 U4CF 08170 020546 5602141105 08180 BA1 BCKSP+4,4,5 SC ISS02+4,0 U4CF 08180 020553 5201261205 08190 SA1 EST2T+4,4,5 BACKWARDS U4CF 08190 020560 5201234505 08200 SA1 ETST2+4,4,5 NO DENSITY U4CF 08200 020565 5201306405 08210 SA1 TSTE2+4,4,5 U4CF 08210 020572 5201335005 08220 SA1 TETS2+4,4,5 U4CF 08220 020577 5602144205 08230 BA1 RE1N4+4,4,5 U4CF 08230 020604 5201134205 08240 SA1 TEST5+9,9,5 J REFIX LOHIDEN U4CF 08240 020611 5602143005 08250 BA1 FXCHS+4,4,5 JR CHBIN U4CF 08250 020616 5201113305 08260 SA1 TEST3-6,6,5 U4CF 08260 020623 5201132305 08270 SA1 TEST5-6,6,5 U4CF 08270 020630 5602143505 08280 BA1 FXCHS+9,9,5 U4CF 08280 020635 5201103705 08290 SA1 TEST2-6,6,5 JR CHBCD U4CF 08290 020642 5201122705 08300 SA1 TEST4-6,6,5 U4CF 08300 * 020647 3002044000 08310 J FN1N4 U4CF 08310 * 020654 3000000000 08320 CHBCD J 0 U4CF 08320 020661 5602141605 08330 BA1 RD830+4,4,5 SC ISS02+4,24 U4CF 08330 020666 5201243405 08340 SA1 ESTT2+4,4,5 READ 800 PPI U4CF 08340 020673 5201271305 08350 SA1 TSET2+4,4,5 TST1N3 U4CF 08350 020700 5201345105 08360 SA1 STET2+4,4,5 U4CF 08360 020705 5201317205 08370 SA1 TST2E+4,4,5 U4CF 08370 * 020712 1001160600 08380 JR CHSEL U4CF 08380 * 020717 3002065400 08390 J CHBCD U4CF 08390 * 020724 3000000000 08400 CHBIN J 0 U4CF 08400 020731 5602142305 08410 BA1 RD831+4,4,5 SC ISS02+4,25 U4CF 08410 020736 5201243405 08420 SA1 ESTT2+4,4,5 READ 800 PPI U4CF 08420 020743 5201271305 08430 SA1 TSET2+4,4,5 TEST2N4 U4CF 08430 020750 5201317205 08440 SA1 TST2E+4,4,5 U4CF 08440 020755 5201345105 08450 SA1 STET2+4,4,5 U4CF 08450 * 020762 1001160600 08460 JR CHSEL U4CF 08460 * 020767 3002072400 08470 J CHBIN U4CF 08470 * 020774 3002077400 08480 FIX3C J FIX3C U4CF 08480 021001 5602146605 08490 REFIX BA1 JD1+4,5 5 U4CF 08490 021006 5201076205 08500 SA1 TEST1+4,4,5 U4CF 08500 021013 5602147305 08510 BA1 JD4+4,5 5 U4CF 08510 021020 5201133505 08520 SA1 TEST5+4,4,5 U4CF 08520 021025 4401105001 08530 SC TEST2+3,3,1 U4CF 08530 021032 4401114402 08540 SC TEST3+3,3,2 U4CF 08540 021037 4401124003 08550 SC TEST4+3,3,3 U4CF 08550 021044 5601144305 08560 BA1 TEST6+1919,5 PD0 95,3 U4CF 08560 021051 5201134205 08570 SA1 TEST5+9,9,5 U4CF 08570 * 021056 1002115500 08580 JR TFXFX U4CF 08580 021063 4401100100 08590 SC TEST1+1919,0 U4CF 08590 021070 4401116400 08600 SC TEST3+1919,0 U4CF 08600 021075 4401107021 08610 SC TEST2+1919,17 U4CF 08610 021102 4401126021 08620 SC TEST4+1919,17 U4CF 08620 021107 5602076605 08630 BA1 REFIX-1111,5 JR CHSEL U4CF 08630 021114 5201103705 08640 SA1 TEST2-6,6,5 U4CF 08640 021121 5201113305 08650 SA1 TEST3-6,6,5 U4CF 08650 021126 5201122705 08660 SA1 TEST4-6,6,5 U4CF 08660 021133 5201132305 08670 SA1 TEST5-6,6,5 U4CF 08670 * 021140 3002077400 08680 FIXC3 J FIX3C U4CF 08680 * 021145 3001060000 08690 J 010600 U4CF 08690 * 021152 3000000000 08700 TFXFX J 0 U4CF 08700 021157 5602144705 08710 BA1 TTS1+4,5,5 U4CF 08710 021164 5201076705 08720 SA1 TS1+4,5 5 U4CF 08720 021171 5201115205 08730 SA1 TS1X+4,5,5 U4CF 08730 021176 5602145405 08740 BA1 TTS2+4,5,5 U4CF 08740 021203 5201105605 08750 SA1 TS2+4,5 5 U4CF 08750 021210 5201124605 08760 SA1 TS2X+4,5,5 U4CF 08760 * 021215 3002115200 08770 J TFXFX U4CF 08770 * 021222 3000000000 08780 ERSFX J 0 U4CF 08780 021227 5602136505 08790 BA1 FXTS1+4,4,5 NOOP U4CF 08790 021234 5201076705 08800 SA1 TS1+4,5 5 U4CF 08800 021241 5201115205 08810 SA1 TS1X+4,5,5 U4CF 08810 021246 5201105605 08820 SA1 TS2+4,5 5 U4CF 08820 021253 5201124605 08830 SA1 TS2X+4,5,5 U4CF 08830 * 021260 3002122200 08840 J ERSFX U4CF 08840 * 021265 1002044300 08850 T9N12 JR FN1N4 U4CF 08850 021272 5602136505 08860 BA1 FXTS1+4,4,5 NOOP U4CF 08860 021277 5202114405 08870 SA1 FIXC3+4,4,5 U4CF 08870 * 021304 3001075600 08880 J TEST1 U4CF 08880 021311 5602136505 08890 U3CLY BA1 FXTS1+4,4,5 NOOP U4CF 08890 021316 5201157505 08900 SA1 FX1N4+4,4,5 U4CF 08900 021323 5602100005 08910 BA1 FIX3C+4,4,5 U4CF 08910 021330 5202114405 08920 SA1 FIXC3+4,4,5 U4CF 08920 021335 5602150505 08930 BA1 JD12+4,5,5 U4CF 08930 021342 5201157005 08940 SA1 FX1N4-1,1,5 U4CF 08940 * 021347 1002077700 08950 JR FIX3C U4CF 08950 * 021354 3001075600 08960 J TEST1 U4CF 08960 * 021361 3002136640 08970 FXTS1 JC $+5,32 U4CF 08970 021366 5401371567 08980 FXTS2 LP ISS03+3,3,55 67 OCTAL U4CF 08980 021373 4401367257 08990 FXET2 SC ISTS2+4,4,47 57 OCTAL U4CF 08990 021400 4401367277 09000 FXIT2 SC ISTS2+4,4,63 77 OCTAL U4CF 09000 021405 4401366500 09010 BCKSP SC ISS02+4,4,0 NO DENSITY BIT U4CF 09010 021412 4401366530 09020 RD830 SC ISS02+4,4,24 WREAD 800 PPI BCD U4CF 09020 021417 4401366531 09030 RD831 SC ISS02+4,4,25 WREAD 800 PPI BINY U4CF 09030 * 021424 1002072700 09040 FXCHS JR CHBIN U4CF 09040 * 021431 1002065700 09050 JR CHBCD U4CF 09050 * 021436 3002100100 09060 RE1N4 J REFIX U4CF 09060 * 021443 1002017600 09070 TTS1 JR TS1FX U4CF 09070 * 021450 1002031100 09080 TTS2 JR TS2FX U4CF 09080 021455 4401367267 09090 LP55T SC ISTS2+4,4,55 REINIT LP U4CF 09090 * 021462 3000000060 09100 JD1 JD 000 U4CF 09100 * 021467 3000000460 09110 JD4 JD 004 U4CF 09110 * 021474 3000001060 09120 JD8 JD 010 U4CF 09120 * 021501 3000777760 09130 JD12 JD 4095 U4CF 09130 * 021506 3000000000 09140 PRERW J 0 U4CF 09140 021513 5601742505 09150 BA1 RW04+4,5,5 U4CF 09150 021520 5202153105 09160 SA1 RWPRE+4,4,5 U4CF 09160 021525 4100677777 09170 RWPRE XF 067,0777777,0,4 U4CF 09170 * 021532 1001760700 09180 JR RWDLY U4CF 09180 * 021537 3002150600 09190 J PRERW U4CF 09190 3001060000 09200 END 0010600 0 U4CF 09200 {-- tape mark --} 023847 T3409K+ -K(C >&5 >A I 9KZE 57_ -8&J >_VP +7&5 >A _ 9S2V FKKE 63$E&W5 Z 000000 00000 T340 BEGIN 1 U4CT 00000 *LOAD 0700,TAPAPE,R,PRELD E * 000000 3007010660 * JD 070106 * * 000005 3000000000 * J $-5 * SEGMENT-ID T341 3000000000 * 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 T342 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 T343 3000136300 * SEGJP $ * 000600 00020 ORIG 384 U4CT 00020 000600 00030 IMAGE EQU $ U4CT 00030 007600 00040 ORIG 3968 U4CT 00040 007600 00050 SRV0S EQU $ U4CT 00050 007605 000177000000 00060 +6 000017707000000 U4CT 00060 007612 01024 00070 BLKCT +5 _01024_ _ BL0CKS PFR TAPE U4CT 00070 007616 00000025 00080 LNGT1 +4 00000002025 LENGTH LIST U4CT 00080 007622 0021 00090 +4 _0021_ U4CT 00090 007626 00000045 00100 LNGT2 +4 00000004045 U4CT 00100 007632 0037 00110 +4 _0037_ U4CT 00110 007636 00000105 00120 LNGT3 +4 00000010105 U4CT 00120 007642 0069 00130 +4 _0069_ U4CT 00130 007646 00000205 00140 LNGT4 +4 00000020205 U4CT 00140 007652 0133 00150 +4 _0133_ U4CT 00150 007656 00000405 00160 LNGT5 +4 00000040405 U4CT 00160 007662 0261 00170 +4 _0261_ U4CT 00170 007666 00001005 00180 LNGT6 +4 00000100005 U4CT 00180 007672 0517 00190 +4 _0517_ U4CT 00190 007676 00002005 00200 LNGT7 +4 00000200005 U4CT 00200 007702 1029 00210 +4 _1029_ U4CT 00210 007706 00004005 00220 LNGT8 +4 00000400005 U4CT 00220 007712 2053 00230 +4 _2053_ U4CT 00230 007716 00006765 00240 LNGT9 +4 00000676765 U4CT 00240 007722 3765 00250 +4 _3765_ U4CT 00250 007726 00000110 00260 LL +4 00000011110 U4CT 00260 007731 000012 00270 FIVE +3 0000012 2 U4CT 00270 010000 00280 ORIG $,64 U4CT 00280 010000 00290 PRI EQU $ U4CT 00290 010002 T 00300 ST +3 _T _ U4CT 00300 010014 SERV0 00310 SRV +10 _ SERV0 0 _ U4CT 00310 010034 0PER 00320 SP +16 _ 0PER _ BCD,BINY,READ,WRITE U4CT 00320 010054 ERR0R 00330 ERR +16 _ ERR0R R _ SPACE U4CT 00330 010067 DEN 00340 DEN +11 _ DEN _ U4CT 00340 010106 BL0CK N0 00350 CNUM +15 _ BL0CK K N0 _ U4CT 00350 010122 LENGTH 00360 BLGT +12 _ LENGTHTH _ U4CT 00360 010140 TAPE PARITY 00370 TP +14 _ TAPE P PARITY _ U4CT 00370 010150 N0N RCV 00380 +8 _ N0N RCRCV_ U4CT 00380 010152 00390 NRC0V +2 _ _ U4CT 00390 010157 CH 00400 CHL +5 _ CH _ U4CT 00400 010172 BCT 00410 BSLE +11 _ BCT _ U4CT 00410 010173 5 00420 TPBLK AREA 5,B,0 U4CT 00420 010207 SEQUENCE 00430 SEQ +8 _SEQUENCNCE_ U4CT 00430 010216 C0MPARE 00440 C0MX +7 _C0MPARERE_ U4CT 00440 010224 200PPI 00450 A2PPI +6 _200PPI_I_ U4CT 00450 010230 77777777 00460 MIN1 +4 07777777777 U4CT 00460 010235 SPACE 00470 SPACE +5 _SPACE_ _ U4CT 00470 010243 500PPI 00480 A5PPI +6 _500PPI_I_ U4CT 00480 010251 800PPI 00490 A8PPI +6 _800PPI_I_ U4CT 00490 * 010252 3000000031 00500 JC 0,25 U4CT 00500 010261 010340 00510 +3 IPT4 U4CT 00510 * 010262 3000000031 00520 JC 0,25 U4CT 00520 010271 010720 00530 IE45 +3 IPT5 U4CT 00530 * 010272 3000000031 00540 JC 0,25 U4CT 00540 010301 010302 00550 IE0 +3 IPTPR U4CT 00550 010302 4000407777 00560 IPTPR XF 32,0777777,0,0 U4CT 00560 * 010307 3000040000 00570 JC 0400 U4CT 00570 010314 1 00580 INC +1 _1_ U4CT 00580 010315 00 00590 M0DE +1 00 U4CT 00590 010321 BINY 00600 BINY +4 _BINY_ U4CT 00600 010325 BCD 00610 BCD +4 _ BCD_ U4CT 00610 010332 WRITE 00620 WR +5 _WRITE_ _ U4CT 00620 010337 READ 00630 RD +5 _READ_ U4CT 00630 010340 4100007777 00640 IPT4 XF 0,07777,7,0,4 U4CT 00640 * 010345 3001037653 00650 JC $+25,43 3 U4CT 00650 010352 5601017267 00660 BD2 BSLE,7 U4CT 00660 010357 6601031421 00670 AD2 INC,1 U4CT 00670 010364 5201017227 00680 SA2 BSLE,7 U4CT 00680 * 010371 3000044026 00690 JC 0440,22 2 EXIT,RESET ST2 U4CT 00690 010376 4401014004 00700 SC TP,04 ASSUME TAPE PARITY ERR0R U4CT 00700 010403 4401015203 00710 SC NRC0V,0303 U4CT 00710 010410 4100000040 00720 XF 0,00040,0,0,4 TEST TAPE PARITY U4CT 00720 * 010415 3001045353 00730 JC RC0V4,4343 REC0VER IF TAPE PE. U4CT 00730 010422 4401014003 00740 SC TP,03 U4CT 00740 010427 4401015204 00750 SC NRC0V,0404 U4CT 00750 * 010434 1001061500 00760 JR PRINT U4CT 00760 * 010441 3000000460 00770 ER4 JC 04,48 U4CT 00770 * 010446 3001116000 00780 JC RERUN ST0P,CHANNEL4 U4CT 00780 010453 4100407777 00790 RC0V4 XF 32,0777777,0,4 REC0VERABLE ERR0R U4CT 00790 * 010460 1001061500 00800 JR PRINT U4CT 00800 * 010465 3001047226 00810 JC $+5,22 U4CT 00810 * 010472 3001050467 00820 JC $+10,55 5 U4CT 00820 * 010477 3001055464 00830 JC RDER,52 2 U4CT 00830 010504 3402000077 00840 CC COP,077 7 U4CT 00840 * 010511 3001110342 00850 JE XX U4CT 00850 * 010516 3001052331 00860 JC $+5,25 U4CT 00860 * 010523 1001254100 00870 JR RV0 INSERT SERV0 NUMBER U4CT 00870 010530 4100611000 00880 XF 061,0100000,0,4 BACKSPACE U4CT 00880 * 010535 3001056667 00890 JC T3,55 U4CT 00890 * 010542 1001420100 00900 JR D11 U4CT 00900 * 010547 3001162231 00910 JC READD-5,5,25 U4CT 00910 * 010554 3001056122 00920 RDER JC $+5,18 U4CT 00920 * 010561 3001162231 00930 JC READD-5,5,25 U4CT 00930 010566 5600773103 00940 T3 BA1 FIVE,3 U4CT 00940 010573 5600044425 00950 BA2 0444,5 U4CT 00950 010600 7200003643 00960 SB1 036,3 U4CT 00960 * 010605 3000003331 00970 JC 033,25 U4CT 00970 * 010612 3000000000 00980 PRINT JC 0 U4CT 00980 010617 2001000040 00990 FT PRI,32 U4CT 00990 010624 4400020701 01000 SC 0207,1 U4CT 01000 010631 4000620000 01010 XF 062,0,0,0,0 PRINT 0UT U4CT 01010 010636 4400020766 01020 SC 0207,06666 U4CT 01020 010643 4000640000 01030 XF 064,0,0,0,0 SPACE U4CT 01030 010650 2601005410 01040 PD ERR,8 U4CT 01040 010655 4401014000 01050 SC TP,0 U4CT 01050 010662 2601017227 01060 PD0 BSLE,7 U4CT 01060 010667 2601020005 01070 PD TPBLK+5,5,5 U4CT 01070 * 010674 3001070663 01080 JC $+10,51 1 U4CT 01080 * 010701 3001061200 01090 JC PRINT U4CT 01090 * 010706 3000000760 01100 ERSTP JC 07,48 U4CT 01100 * 010713 3001061200 01110 JC PRINT U4CT 01110 010720 4120002000 01120 IPT5 XF 0,02000,0,0,5 U4CT 01120 * 010725 3001104553 01130 JC A5BSY,4343 U4CT 01130 010732 4120005777 01140 XF 0,05777,7,0,5 U4CT 01140 * 010737 3001077053 01150 JC $+25,43 3 U4CT 01150 010744 5601017267 01160 BD2 BSLE,7 U4CT 01160 010751 6601031421 01170 AD2 INC,1 U4CT 01170 010756 5201017227 01180 SA2 BSLE,7 U4CT 01180 * 010763 3000045026 01190 JC 0450,22 2 U4CT 01190 010770 4401014004 01200 SC TP,04 U4CT 01200 010775 4401015203 01210 SC NRC0V,0303 U4CT 01210 011002 4120000040 01220 XF 0,00040,0,0,5 U4CT 01220 * 011007 3001106453 01230 JC RC0V5,4343 U4CT 01230 011014 4401014003 01240 SC TP,03 U4CT 01240 011021 4401015204 01250 SC NRC0V,0404 U4CT 01250 * 011026 1001061500 01260 JR PRINT U4CT 01260 * 011033 3000000560 01270 ER5 JC 05,48 U4CT 01270 * 011040 3001116031 01280 JC RERUN,2525 U4CT 01280 011045 4120402000 01290 A5BSY XF 32,0200000,0,5 U4CT 01290 011052 4600045312 01300 BT 0453,10 0 U4CT 01300 * 011057 3057777331 01310 JC 0777773,3,25,2 EXIT T0 CC-5 U4CT 01310 011064 4120407777 01320 RC0V5 XF 32,0777777,0,5 U4CT 01320 * 011071 1001061500 01330 JR PRINT U4CT 01330 * 011076 3001110326 01340 JC $+5,22 U4CT 01340 * 011103 1001254131 01350 XX JR RV0,25 U4CT 01350 011110 4120611000 01360 XF 061,0100000,0,5 U4CT 01360 * 011115 3001113464 01370 JC $+15,52 2 NO ERASE IF SS 3 U4CT 01370 * 011122 1001254100 01380 JR RV0 U4CT 01380 011127 4120620400 01390 XF 062,0040400,0,5 ERASE U4CT 01390 * 011134 3001056667 01400 JC T3,55 U4CT 01400 * 011141 1001420100 01410 JR D11 U4CT 01410 * 011146 3001150731 01420 JC WRIT-5,2,25 U4CT 01420 011153 2600007710 01430 START PD 077,8 CLEAR TR6 AND 7 U4CT 01430 * 011160 1001173300 01440 RERUN JR ITIZE U4CT 01440 011165 4740761661 01450 BT LNGT1,4949,6 FIX READ LENGTH U4CT 01450 011172 4740761665 01460 BT LNGT1,5353,6 FIX WRITE LENGTH U4CT 01460 011177 5740762204 01470 BA1 LNGT1+4,4,4,6 U4CT 01470 011204 5201012204 01480 SA1 BLGT,4 ST0RE LENGTH PRINT0UT U4CT 01480 * 011211 3002044463 01490 JC U3CLY,5151 SSW2 SET U3C ONLY U4CT 01490 * 011216 3002046364 01500 JC T9N12,5252 SSW3 SET 800PPI ONLY U4CT 01500 011223 5602051305 01510 BA1 T9+4,5 DO ALL TESTS U4CT 01510 011230 5201133505 01520 SA1 TS912+4,4,5 U4CT 01520 * 011235 1001334200 01530 T1 JR TEST1 U4CT 01530 * 011242 3001125462 01540 JC $+10,50 0 U4CT 01540 * 011247 1001341200 01550 JR TEST2 U4CT 01550 * 011254 1001345000 01560 JR TEST3 U4CT 01560 * 011261 3001127362 01570 JC $+10,50 0 U4CT 01570 * 011266 1001351300 01580 JR TEST4 U4CT 01580 * 011273 1001355100 01590 JR TEST5 U4CT 01590 * 011300 3001131262 01600 JC $+10,50 0 U4CT 01600 * 011305 1001361400 01610 JR TEST6 U4CT 01610 * 011312 1001365200 01620 JR TEST7 U4CT 01620 * 011317 3001133162 01630 JC $+10,50 0 U4CT 01630 * 011324 1001371500 01640 JR TEST8 R0UTINE C0MPLETED U4CT 01640 * 011331 1001375300 01650 TS912 JR TEST9 JT3C IF SSW2 SET U4CT 01650 * 011336 3001135062 01660 JC $+10,50 0 U4CT 01660 * 011343 1001402300 01670 JR TST10 BINY,COMPARE U4CT 01670 * 011350 1001406600 01680 JR TST11 BCD,NO COMPARE U4CT 01680 * 011355 3001136762 01690 JC $+10,50 0 U4CT 01690 * 011362 1001413600 01700 JR TST12 BCD,COMPARE U4CT 01700 011367 6000007310 01710 T3C AC 073,8 U4CT 01710 011374 7400772616 01720 CT LL,14 U4CT 01720 * 011401 3001116543 01730 JC RERUN+5,5,35 LENGTHS,D0NE U4CT 01730 * 011406 3001115300 01740 JC START U4CT 01740 * 011413 3000000000 01750 WRITE JC 0 U4CT 01750 * 011420 1001552000 01760 JR GSRV0 U4CT 01760 011425 5601033205 01770 BA1 WR,5 SET OPERATI0N PRINT 0UT U4CT 01770 011432 2601010625 01780 PD0 CNUM,5 U4CT 01780 011437 2600060425 01790 PD0 IMAGE+4,4,5 U4CT 01790 011444 5201003405 01800 SA1 SP,5 U4CT 01800 011451 4401015710 01810 SC CHL,08 SET CHANNEL PRINT0UT U4CT 01810 * 011456 1001260400 01820 JR RWIND U4CT 01820 * 011463 1001423200 01830 C JR GENDT U4CT 01830 011470 5600060445 01840 BD1 IMAGE+4,4,5 U4CT 01840 011475 6601031401 01850 AD1 INC,1 U4CT 01850 011502 5200060405 01860 SA1 IMAGE+4,4,5 U4CT 01860 * 011507 1001246423 01870 JR DENSV,1919 U4CT 01870 011514 4120020000 01880 WRIT XF 02,0,0,5,5 WRITE U4CT 01880 011521 5601010645 01890 BD1 CNUM,5 U4CT 01890 011526 6601031401 01900 AD1 INC,1 C0MPUTE CURRENT U4CT 01900 011533 5201010605 01910 SA1 CNUM,5 BL0CK NUM U4CT 01910 * 011540 3001154066 01920 JC $,54 L00P TILL IPT U4CT 01920 011545 7000761245 01930 CB1 BLKCT,5 5 U4CT 01930 * 011552 3001141342 01940 JE WRITE U4CT 01940 * 011557 3001146300 01950 JC C U4CT 01950 * 011564 3000000000 01960 READ JC 0 1 TAPE U4CT 01960 011571 2601010625 01970 PD0 CNUM,5 U4CT 01970 * 011576 1001570300 01980 JR CSRV0 U4CT 01980 011603 4401015707 01990 SC CHL,07 U4CT 01990 011610 5601033705 02000 BA1 RD,5 SET READ TO PRINT U4CT 02000 011615 5201003405 02010 SA1 SP,5 0UT 0PERATION U4CT 02010 * 011622 1001246423 02020 JR DENSV,1919 U4CT 02020 011627 4100010000 02030 READD XF 01,0,0,4,4 READ U4CT 02030 011634 5601010645 02040 BD1 CNUM,5 C0MPUTE CURRENT U4CT 02040 011641 6601031401 02050 AD1 INC,1 BL0CK NUM. U4CT 02050 011646 5201010605 02060 SA1 CNUM,5 U4CT 02060 * 011653 3001165366 02070 JC $,54 L00P TILL IPT U4CT 02070 011660 2600060445 02080 CD1 IMAGE+4,4,5 U4CT 02080 * 011665 3001206743 02090 JC SEQER,3535 SEQUENCE ER IF N0T EQU U4CT 02090 * 011672 3001170465 02100 JC $+10,53 3 U4CT 02100 * 011677 1001565700 02110 JR C0MP U4CT 02110 011704 5601010645 02120 BD1 CNUM,5 U4CT 02120 011711 7000761245 02130 CB1 BLKCT,5 5 U4CT 02130 * 011716 3001156442 02140 JE READ U4CT 02140 * 011723 3001162200 02150 JC READD-5 5 U4CT 02150 * 011730 3000000000 02160 ITIZE JC 0 U4CT 02160 011735 4401000200 02170 SC ST,0 U4CT 02170 011742 5601027100 02180 BA1 IE45,16 6 U4CT 02180 011747 5200045700 02190 SA1 0457,16 6 CH4 AND 5 IPT ENTRY U4CT 02190 011754 5601030110 02200 BA1 IE0,8 U4CT 02200 011761 5200040710 02210 SA1 0407,8 CH0 IPT ENTRY U4CT 02210 011766 4402000000 02220 SC COP,0 U4CT 02220 011773 4000407777 02230 XF 32,0777777,0,0 U4CT 02230 012000 4120407777 02240 XF 32,0777777,0,5 U4CT 02240 012005 4100407777 02250 XF 32,0777777,0,4 U4CT 02250 * 012012 1001632200 02260 JR INGEN INITIALIZE DATA GEN U4CT 02260 012017 2000060064 02270 FT IMAGE,5252 FIX BASE ADDRESS U4CT 02270 012024 2000060060 02280 FT IMAGE,4848 U4CT 02280 * 012031 3001203625 02290 JC $+5,21 U4CT 02290 * 012036 3001204326 02300 JC $+5,22 U4CT 02300 * 012043 3001205027 02310 JC $+5,23 U4CT 02310 012050 2001000040 02320 FT PRI,32 U4CT 02320 012055 2601017227 02330 PD0 BSLE,7 U4CT 02330 * 012062 3001173000 02340 JC ITIZE U4CT 02340 012067 5601020710 02350 SEQER BA1 SEQ,8 U4CT 02350 012074 5201005410 02360 SA1 ERR,8 U4CT 02360 012101 5600060405 02370 BA1 IMAGE+4,4,5 U4CT 02370 012106 5201017705 02380 SA1 TPBLK+4,4,5 U4CT 02380 * 012113 1001061522 02390 JR PRINT,1818 U4CT 02390 012120 5600060445 02400 BD1 IMAGE+4,4,5 U4CT 02400 012125 5201010605 02410 SA1 CNUM,5 U4CT 02410 * 012132 3001162200 02420 JC READD-5 5 U4CT 02420 * 012137 3000000000 02430 C0NTL JC 0 U4CT 02430 012144 2000000017 02440 FT 0,15 U4CT 02440 * 012151 1001233700 02450 JR ADVSR U4CT 02450 * 012156 1001141627 02460 JR WRITE,02027 RESET IND 3 U4CT 02460 * 012163 1001260400 02470 JR RWIND U4CT 02470 * 012170 1001237000 02480 JR ENDCK U4CT 02480 * 012175 3001215100 02490 JC C0NTL+1010 SWITCH U4CT 02490 * 012202 1001221700 02500 JR SNTL U4CT 02500 * 012207 3001213700 02510 JC C0NTL U4CT 02510 * 012214 3000000000 02520 SNTL JC 0 U4CT 02520 012221 2000000017 02530 FT 0,15 U4CT 02530 * 012226 1001233700 02540 JR ADVSR U4CT 02540 * 012233 1001156727 02550 JR READ,02727 RESET IND 3 U4CT 02550 * 012240 1001260400 02560 JR RWIND U4CT 02560 * 012245 1001237000 02570 JR ENDCK U4CT 02570 * 012252 3001222600 02580 JC $-20 U4CT 02580 * 012257 1001321524 02590 JR C0PY,02424 SET IND 3 U4CT 02590 012264 2000000017 02600 FT 0,15 SERV0 U4CT 02600 * 012271 1001233700 02610 JR ADVSR U4CT 02610 * 012276 1001156727 02620 JR READ,02727 RESET IND 3 U4CT 02620 * 012303 1001264200 02630 JR SPCBK U4CT 02630 * 012310 1001260400 02640 JR RWIND U4CT 02640 * 012315 1001237000 02650 JR ENDCK U4CT 02650 * 012322 3001227100 02660 JC $-25 U4CT 02660 * 012327 3001221400 02670 JC SNTL U4CT 02670 * 012334 3000000000 02680 ADVSR JC 0 U4CT 02680 012341 4760760003 02690 BT SRV0S,3,3,7 U4CT 02690 012346 6000001703 02700 AC 15,3 U4CT 02700 012353 5201001401 02710 SA1 SRV,1 U4CT 02710 * 012360 3001233400 02720 JC ADVSR U4CT 02720 * 012365 3000000000 02730 ENDCK JC 0 INCREMENT T0 NEXT U4CT 02730 012372 6000007701 02740 AC 077,1 SERV0 NUMBER U4CT 02740 012377 3400007706 02750 CC 077,6 U4CT 02750 012404 4601237011 02760 BT ENDCK+3,3,9 U4CT 02760 012411 4420000400 02770 SC 4,0,1 ASSUME N0T D0NE U4CT 02770 * 012416 3001244243 02780 JC $+20,35 5 U4CT 02780 012423 4420000440 02790 SC 4,040,1 1 D0NE,SWITCH T0 SKIP U4CT 02790 012430 4400007700 02800 SC 077,0 U4CT 02800 * 012435 3001236500 02810 JC ENDCK U4CT 02810 012442 3560760077 02820 CC SRV0S,07077,7 U4CT 02820 * 012447 3001236543 02830 JC ENDCK,3535 U4CT 02830 * 012454 3001242300 02840 JC $-25 U4CT 02840 * 012461 3000000000 02850 DENSV JC 0 U4CT 02850 * 012466 1001233700 02860 JR ADVSR U4CT 02860 012473 4601246415 02870 BT DENSV+3,3,13 U4CT 02870 012500 4520000300 02880 M0DEE SC 3,0,5 U4CT 02880 012505 5520000160 02890 LP 1,060,5 5 U4CT 02890 012512 4760760003 02900 BT SRV0S,3,3,7 U4CT 02900 012517 5201253001 02910 SA1 SURV0+4,4,1 U4CT 02910 012524 6520000100 02920 SURV0 LS 1,0,5 U4CT 02920 * 012531 3001246100 02930 JC DENSV SERV0 NUM T0 TETRAD3 U4CT 02930 * 012536 3000000000 02940 RV0 JC 0 U4CT 02940 012543 4601254115 02950 BT RV0+3,1313 U4CT 02950 012550 5520000160 02960 LP 1,060,5 5 U4CT 02960 012555 4760760003 02970 BT SRV0S,3,3,7 U4CT 02970 012562 5201257301 02980 SA1 SWRV0+4,4,1 U4CT 02980 012567 6520000100 02990 SWRV0 LS 1,0,5 U4CT 02990 * 012574 3001253600 03000 JC RV0 U4CT 03000 * 012601 3000000000 03010 RWIND JC 0 REWIND U4CT 03010 * 012606 1001254100 03020 JR RV0 U4CT 03020 012613 4120640000 03030 XF 064,0,0,0,5 U4CT 03030 * 012620 1001254100 03040 JR RV0 U4CT 03040 012625 4120640000 03050 XF 064,0,0,0,5 U4CT 03050 * 012632 3001260100 03060 JC RWIND U4CT 03060 * 012637 3000000000 03070 SPCBK JC 0 U4CT 03070 012644 2601010625 03080 PD0 CNUM,5 U4CT 03080 * 012651 1001254100 03090 JR RV0 U4CT 03090 012656 4120611000 03100 XF 061,0100000,0,5 U4CT 03100 012663 5601010645 03110 BD1 CNUM,5 U4CT 03110 012670 6601031401 03120 AD1 INC,1 U4CT 03120 012675 5201010605 03130 SA1 CNUM,5 U4CT 03130 012702 2600761245 03140 CD1 BLKCT,5 5 U4CT 03140 * 012707 3001265643 03150 JC SPCBK+1515,35 U4CT 03150 * 012714 1001246400 03160 JR DENSV SH0ULD BE AT FIRST U4CT 03160 012721 4100610000 03170 XF 061,0,0,0,4 U4CT 03170 012726 5601031441 03180 BD1 INC,1 U4CT 03180 012733 2600060445 03190 CD1 IMAGE+4,4,5 U4CT 03190 * 012740 3001263742 03200 JC SPCBK,3434 BACKWARD SPACING ERR0R U4CT 03200 012745 5601023505 03210 BA1 SPACE,5 5 U4CT 03210 012752 5201003405 03220 SA1 SP,5 U4CT 03220 012757 5600060405 03230 BA1 IMAGE+4,4,5 U4CT 03230 012764 5201002605 03240 SA1 SP-6,5 U4CT 03240 * 012771 1001061500 03250 JR PRINT U4CT 03250 * 012776 3001263700 03260 JC SPCBK U4CT 03260 * 013003 3000000000 03270 C0PI JC 0 0 U4CT 03270 013010 2601010625 03280 PD0 CNUM,5 U4CT 03280 013015 5601033705 03290 BA1 RD,5 U4CT 03290 013022 5201003405 03300 SA1 SP,5 U4CT 03300 013027 4401015707 03310 SC CHL,07 U4CT 03310 013034 4402000000 03320 SC COP,0 U4CT 03320 * 013041 1001246423 03330 JR DENSV,1919 U4CT 03330 013046 4100010000 03340 XF 01,0,0,4,4 READ U4CT 03340 * 013053 3001305366 03350 JC $,54 U4CT 03350 013060 6000007701 03360 AC 077,1 U4CT 03360 013065 5601033205 03370 BA1 WR,5 U4CT 03370 013072 5201003405 03380 SA1 SP,5 U4CT 03380 013077 4401015707 03390 SC CHL,07 U4CT 03390 013104 4402000077 03400 SC COP,077 7 U4CT 03400 * 013111 1001246423 03410 JR DENSV,1919 U4CT 03410 013116 4100020000 03420 XF 02,0,0,4,4 WRITE U4CT 03420 * 013123 3001312366 03430 JC $,54 U4CT 03430 013130 5601010645 03440 BD1 CNUM,5 U4CT 03440 013135 6601031401 03450 AD1 INC,1 U4CT 03450 013142 5201010605 03460 SA1 CNUM,5 U4CT 03460 013147 7601023017 03470 AT MIN1,15 5 D0NE U4CT 03470 013154 2600761245 03480 CD1 BLKCT,5 5 U4CT 03480 * 013161 3001301543 03490 JC C0PI+10,0,35 U4CT 03490 * 013166 1001260400 03500 JR RWIND U4CT 03500 013173 6000007701 03510 AC 077,1 U4CT 03510 * 013200 1001260400 03520 JR RWIND U4CT 03520 * 013205 3001300300 03530 JC C0PI EXIT U4CT 03530 * 013212 3000000000 03540 C0PY JC 0 U4CT 03540 013217 3400760177 03550 CC SRV0S+1,1,077 1 T0 2 U4CT 03550 * 013224 3001321242 03560 JC C0PY,34 4 U4CT 03560 * 013231 1001300600 03570 JR C0PI U4CT 03570 013236 3560760177 03580 CC SRV0S+1,1,077,7 U4CT 03580 * 013243 3001321242 03590 JC C0PY,34 4 U4CT 03590 * 013250 1001300600 03600 JR C0PI 2 T0 3 U4CT 03600 013255 3560760177 03610 CC SRV0S+1,1,077,7 U4CT 03610 * 013262 3001321242 03620 JC C0PY,34 4 U4CT 03620 * 013267 1001300600 03630 JR C0PI 3 T0 4 U4CT 03630 013274 3560760177 03640 CC SRV0S+1,1,077,7 U4CT 03640 * 013301 3001321242 03650 JC C0PY,34 4 U4CT 03650 * 013306 1001300600 03660 JR C0PI 4 T0 5 U4CT 03660 013313 3560760177 03670 CC SRV0S+1,1,077,7 5 T0 6 U4CT 03670 * 013320 3001321242 03680 JC C0PY,34 4 U4CT 03680 * 013325 1001300600 03690 JR C0PI U4CT 03690 * 013332 3001321200 03700 JC C0PY U4CT 03700 * 013337 3000000000 03710 TEST1 JC 0 TEST 1 U4CT 03710 * 013344 1002030300 03720 JR SX2P U4CT 03720 013351 4401000104 03730 SC ST-1,04 4 U4CT 03730 013356 4401000200 03740 SC ST,0 U4CT 03740 * 013363 1002032700 03750 JR SXBI U4CT 03750 013370 4401250421 03760 SC M0DEE+4,4,021 M0DE AND DENSITY U4CT 03760 * 013375 1001214222 03770 JR C0NTL,1818 N0 C0M U4CT 03770 * 013402 3001333700 03780 JC TEST1 U4CT 03780 * 013407 3000000000 03790 TEST2 JC 0 U4CT 03790 013414 4401000105 03800 SC ST-1,05 5 U4CT 03800 * 013421 1002030300 03810 JR SX2P U4CT 03810 * 013426 1002032700 03820 JR SXBI U4CT 03820 * 013433 1001221725 03830 JR SNTL,21 1 U4CT 03830 * 013440 3001340700 03840 JC TEST2 U4CT 03840 * 013445 3000000000 03850 TEST3 JC 0 U4CT 03850 013452 4401000106 03860 SC ST-1,06 6 U4CT 03860 * 013457 1002035300 03870 JR SXBCD U4CT 03870 * 013464 1002030300 03880 JR SX2P U4CT 03880 013471 4401250420 03890 SC M0DEE+4,4,020 U4CT 03890 * 013476 1001214222 03900 JR C0NTL,1818 U4CT 03900 * 013503 3001344500 03910 JC TEST3 U4CT 03910 * 013510 3000000000 03920 TEST4 JC 0 U4CT 03920 013515 4401000107 03930 SC ST-1,07 7 U4CT 03930 * 013522 1002035300 03940 JR SXBCD U4CT 03940 * 013527 1002030300 03950 JR SX2P U4CT 03950 * 013534 1001221725 03960 JR SNTL,21 1 U4CT 03960 * 013541 3001351000 03970 JC TEST4 U4CT 03970 * 013546 3000000000 03980 TEST5 JC 0 U4CT 03980 * 013553 1002037700 03990 JR SX5P U4CT 03990 013560 4401000110 04000 SC ST-1,01010 U4CT 04000 * 013565 1002032700 04010 JR SXBI U4CT 04010 013572 4401250401 04020 SC M0DEE+4,4,01 U4CT 04020 * 013577 1001214222 04030 JR C0NTL,1818 U4CT 04030 * 013604 3001354600 04040 JC TEST5 U4CT 04040 * 013611 3000000000 04050 TEST6 JC 0 U4CT 04050 013616 4401000111 04060 SC ST-1,01111 U4CT 04060 * 013623 1002037700 04070 JR SX5P U4CT 04070 * 013630 1002032700 04080 JR SXBI U4CT 04080 * 013635 1001221725 04090 JR SNTL,21 1 U4CT 04090 * 013642 3001361100 04100 JC TEST6 U4CT 04100 * 013647 3000000000 04110 TEST7 JC 0 U4CT 04110 * 013654 1002035300 04120 JR SXBCD U4CT 04120 013661 4401000112 04130 SC ST-1,01212 U4CT 04130 * 013666 1002037700 04140 JR SX5P U4CT 04140 013673 4401250400 04150 SC M0DEE+4,4,0 U4CT 04150 * 013700 1001214222 04160 JR C0NTL,1818 U4CT 04160 * 013705 3001364700 04170 JC TEST7 U4CT 04170 * 013712 3000000000 04180 TEST8 JC 0 U4CT 04180 013717 4401000113 04190 SC ST-1,01313 U4CT 04190 * 013724 1002035300 04200 JR SXBCD U4CT 04200 * 013731 1002037700 04210 JR SX5P U4CT 04210 * 013736 1001221725 04220 JR SNTL,21 1 U4CT 04220 * 013743 3001371200 04230 JC TEST8 U4CT 04230 * 013750 3000000000 04240 TEST9 JC 0 U4CT 04240 * 013755 1002032700 04250 JR SXBI SET PRINTOUTS TO BINY U4CT 04250 * 013762 1002042300 04260 JR SX8P 800 PPI U4CT 04260 013767 4401000114 04270 SC ST-1,01414 FIX TEST NUMBER,9 U4CT 04270 013774 4401000200 04280 SC ST,0 U4CT 04280 014001 4401250431 04290 SC M0DEE+4,4,031 FIX MODE AND DENSITY U4CT 04290 * 014006 1001214222 04300 JR C0NTL,1818 BINY,800 PPI U4CT 04300 * 014013 3001375000 04310 JC TEST9 U4CT 04310 * 014020 3000000000 04320 TST10 JC 0 MODE AND DEN. OK (TST9 U4CT 04320 * 014025 1002032700 04330 JR SXBI BINY U4CT 04330 * 014032 1002042300 04340 JR SX8P 800 PPI U4CT 04340 014037 4401000203 04350 SC ST,03 U4CT 04350 014044 4401000104 04360 SC ST-1,04 4 TEST 10 U4CT 04360 * 014051 1001221725 04370 JR SNTL,21 1 U4CT 04370 * 014056 3001402000 04380 JC TST10 U4CT 04380 * 014063 3000000000 04390 TST11 JC 0 U4CT 04390 * 014070 1002035300 04400 JR SXBCD BCD MODE U4CT 04400 * 014075 1002042300 04410 JR SX8P 800 PPI U4CT 04410 014102 4401000204 04420 SC ST,04 TEST 11 U4CT 04420 014107 4401000104 04430 SC ST-1,04 4 U4CT 04430 014114 4401250430 04440 SC M0DEE+4,4,030 FIX MODE AND DENSITY U4CT 04440 * 014121 1001214222 04450 JR C0NTL,1818 U4CT 04450 * 014126 3001406300 04460 JC TST11 U4CT 04460 * 014133 3000000000 04470 TST12 JC 0 U4CT 04470 * 014140 1002035300 04480 JR SXBCD U4CT 04480 * 014145 1002042300 04490 JR SX8P U4CT 04490 014152 4401000205 04500 SC ST,05 U4CT 04500 014157 4401000104 04510 SC ST-1,04 4 U4CT 04510 * 014164 1001221725 04520 JR SNTL,21 1 U4CT 04520 * 014171 3001413300 04530 JC TST12 U4CT 04530 * 014176 3000000000 04540 D11 JC 0 U4CT 04540 014203 5601010645 04550 BD1 CNUM,5 U4CT 04550 014210 6601031441 04560 SD1 INC,1 U4CT 04560 014215 5201010605 04570 SA1 CNUM,5 U4CT 04570 * 014222 3001417600 04580 JC D11 U4CT 04580 * 014227 3000000000 04590 GENDT J 0 U4CT 04590 014234 5600007700 04600 SAVY BA1 077,16 SAVE U4CT 04600 014241 5201665400 04610 SA1 SAVEX,1616 ALL U4CT 04610 014246 5600005700 04620 BA1 057,16 IR U4CT 04620 014253 5201667400 04630 SA1 SAVX,16 6 U4CT 04630 014260 2600007700 04640 PD 077,16 U4CT 04640 014265 2600005700 04650 PD 057,16 U4CT 04650 014272 4400005305 04660 SC 053,5 U4CT 04660 * 014277 3001430400 04670 DUTYX J TM0DX U4CT 04670 014304 5601250401 04680 TM0DX BA1 M0DEE+4,4,1 TEST IF M0DEE+4 IS U4CT 04680 014311 5400001701 04690 LP 017,01 0DD F0R ANY 0R EVEN U4CT 04690 014316 3400001701 04700 CC 017,01 F0R BCD U4CT 04700 * 014323 3001433542 04710 JE WBNYX G0 GEN BNY DATA U4CT 04710 * 014330 3001435400 04720 J WBCDX G0 GEN BCD DATA U4CT 04720 * 014335 3001453700 04730 WBNYX J WBP1X BNY DATA PART 1 U4CT 04730 * 014342 3001467600 04740 WBNY2 J WBP2X BNY DATA PART 2 U4CT 04740 * 014347 3001504200 04750 WBNY3 J WBP3X BNY DATA PART3 U4CT 04750 014354 4601653411 04760 WBCDX BT SAV1,9 BRING 0LD IR1 U4CT 04760 014361 4402005207 04770 SC PHSEX,0707 U4CT 04770 014366 5621655400 04780 STRD BA1 DTBL,16,6,1 BRING 16 CHAR FR0M U4CT 04780 014373 5240061700 04790 DECX1 SA1 IMAGE+1515,16,2 U4CT 04790 014400 6000005320 04800 AC 053,16 IR2 EQ T49 U4CT 04800 014405 7400005361 04810 CT 053,49 U4CT 04810 * 014412 3001445542 04820 JE EXBCD INCR IR2 BY 16 U4CT 04820 014417 3400004760 04830 CC 047,48 IR1 EQ 48 U4CT 04830 * 014424 3001444342 04840 JE RT1 U4CT 04840 014431 6000004701 04850 AC 047,1 INCR IR1 BY 1 U4CT 04850 * 014436 3001436600 04860 J STRD U4CT 04860 014443 2600004704 04870 RT1 PD 047,4 U4CT 04870 * 014450 3001436600 04880 J STRD U4CT 04880 014455 4201653411 04890 EXBCD ST SAV1,9 U4CT 04890 014462 3401653460 04900 CC SAV1,48 8 U4CT 04900 * 014467 3001450642 04910 JE RESTR U4CT 04910 014474 6001653401 04920 AC SAV1,1 U4CT 04920 * 014501 3001450600 04930 J RESTR U4CT 04930 014506 5601665400 04940 RESTR BA1 SAVEX,1616 REST0RE ALL U4CT 04940 014513 5200007700 04950 SA1 077,16 INDEX U4CT 04950 014520 5601667400 04960 BA1 SAVX,16 6 REGISTERS AND U4CT 04960 014525 5200005700 04970 SA1 057,16 RETURN T0 MAIN U4CT 04970 * 014532 3001422700 04980 J GENDT C0NTR0L U4CT 04980 014537 5601671400 04990 WBP1X BA1 PATSY,1616 16 CHAR NEXT PAT U4CT 04990 014544 4402005204 05000 SC PHSEX,0404 U4CT 05000 014551 5601673420 05010 BA2 SWES,16 6 16 CHAR 01 U4CT 05010 * 014556 3201460702 05020 SHX JL CHUCK,0202 U4CT 05020 014563 7200001720 05030 AB2 017,16 ADD AR2 T0 AR1 U4CT 05030 * 014570 3001460700 05040 J CHUCK U4CT 05040 014575 7400005361 05050 MTCH CT 053,49 IR2 EQ T49 U4CT 05050 * 014602 3001462642 05060 JE EXBNY U4CT 05060 014607 5240061700 05070 CHUCK SA1 IMAGE+1515,16,2 U4CT 05070 014614 6000005320 05080 AC 053,16 INCR IR2 U4CT 05080 * 014621 3001457500 05090 J MTCH U4CT 05090 014626 3400001777 05100 EXBNY CC 017,077 7 U4CT 05100 * 014633 3001465242 05110 JE RSET0 U4CT 05110 014640 5201671400 05120 SA1 PATSY,1616 U4CT 05120 * 014645 3001450600 05130 J RESTR U4CT 05130 014652 4401434140 05140 RSET0 SC WBNYX+4,4,32 RESET PATSY T0 ZER0 U4CT 05140 014657 2600001700 05150 PD 017,16 U4CT 05150 014664 5201671400 05160 SA1 PATSY,1616 U4CT 05160 * 014671 3001450600 05170 J RESTR U4CT 05170 014676 5601675400 05180 WBP2X BA1 PATT2,1616 U4CT 05180 014703 4402005205 05190 SC PHSEX,0505 U4CT 05190 014710 5601701420 05200 BA2 TENS,16 6 16 CHAR 10S U4CT 05200 014715 3400001677 05210 CC 016,077 7 U4CT 05210 * 014722 3001500442 05220 JE ENDX U4CT 05220 * 014727 3201474102 05230 FSTX JL SLIP,02 2 U4CT 05230 014734 7200001720 05240 BANG AB2 017,16 U4CT 05240 014741 5240061700 05250 SLIP SA1 IMAGE+1515,16,2 U4CT 05250 014746 6000005320 05260 AC 053,16 U4CT 05260 014753 7400005361 05270 CT 053,49 U4CT 05270 * 014760 3001477242 05280 JE FIN2 U4CT 05280 * 014765 3001474100 05290 J SLIP U4CT 05290 014772 5201675400 05300 FIN2 SA1 PATT2,1616 U4CT 05300 * 014777 3001450600 05310 J RESTR U4CT 05310 015004 3400001777 05320 ENDX CC 017,077 7 U4CT 05320 * 015011 3001473443 05330 JU BANG U4CT 05330 015016 5601677400 05340 BA1 SRIG,16 6 0RIG 000000010002 ETC U4CT 05340 015023 5201675400 05350 SA1 PATT2,1616 U4CT 05350 015030 4401434640 05360 SC WBNY2+4,4,32 U4CT 05360 * 015035 3001434700 05370 J WBNY3 U4CT 05370 015042 5601703410 05380 WBP3X BA1 TS02,8 U4CT 05380 015047 4402005206 05390 SC PHSEX,0606 U4CT 05390 015054 5201743110 05400 SA1 NEWX-8,8,8 U4CT 05400 015061 5240060710 05410 R1X SA1 IMAGE+7,7,8,2 U4CT 05410 * 015066 1001624000 05420 JR GENRX U4CT 05420 015073 5240061710 05430 SA1 IMAGE+1515,8,2 U4CT 05430 015100 4401517303 05440 SC CCX+4,0303 U4CT 05440 015105 6000005320 05450 AC 053,16 INCR IR2 U4CT 05450 015112 7400005361 05460 CT 053,49 U4CT 05460 * 015117 3001450642 05470 JE RESTR U4CT 05470 * 015124 3001516700 05480 J CCX U4CT 05480 015131 6000005320 05490 TX AC 053,16 U4CT 05490 015136 7400005361 05500 CT 053,49 U4CT 05500 * 015143 3001450642 05510 JE RESTR U4CT 05510 015150 3400004707 05520 CC 047,07 U4CT 05520 * 015155 3001550342 05530 JE PADX U4CT 05530 015162 6000004701 05540 AC 047,01 U4CT 05540 015167 3420061503 05550 CCX CC IMAGE+1313,03,1 U4CT 05550 * 015174 3061533742 05560 JE SUTX,3 U4CT 05560 015201 3401517314 05570 CC CCX+4,01014 U4CT 05570 * 015206 3001523242 05580 JE DUB U4CT 05580 015213 6001517301 05590 AC CCX+4,0101 U4CT 05590 015220 6000005712 05600 AC 057,10 U4CT 05600 * 015225 3001516700 05610 J CCX U4CT 05610 015232 3420061503 05620 DUB CC IMAGE+1313,03,1 U4CT 05620 * 015237 3001527541 05630 JC LESSX,3333 U4CT 05630 015244 3420061516 05640 CC IMAGE+1313,14,1 U4CT 05640 * 015251 3001530244 05650 JC M0REX,3636 U4CT 05650 015256 2600005704 05660 PD 057,4 U4CT 05660 015263 4401517303 05670 SC CCX+4,0303 U4CT 05670 * 015270 3001516700 05680 J CCX U4CT 05680 * 015275 3001527560 05690 LESSX JD LESSX U4CT 05690 * 015302 3001530260 05700 M0REX JD M0REX U4CT 05700 015312 00000000 05710 F0URX +4 000 U4CT 05710 015313 5701634000 05720 SUTXX BA1 RNDX1,1616,4 U4CT 05720 015320 4201531214 05730 ST F0URX,1212 U4CT 05730 015325 5240061700 05740 RXL SA1 IMAGE+1515,16,2 U4CT 05740 * 015332 3001513100 05750 J TX U4CT 05750 015337 2000000014 05760 SUTX FT 0,12 U4CT 05760 * 015344 3001531300 05770 J SUTXX U4CT 05770 015351 2000002014 05780 FT 16,12 U4CT 05780 * 015356 3001531300 05790 J SUTXX U4CT 05790 015363 2000004014 05800 FT 32,12 U4CT 05800 * 015370 3001531300 05810 J SUTXX U4CT 05810 015375 2000006014 05820 FT 48,12 U4CT 05820 * 015402 3001531300 05830 J SUTXX U4CT 05830 015407 2000010014 05840 FT 64,12 U4CT 05840 * 015414 3001531300 05850 J SUTXX U4CT 05850 015421 2000012014 05860 FT 80,12 U4CT 05860 * 015426 3001531300 05870 J SUTXX U4CT 05870 015433 2000014014 05880 FT 96,12 U4CT 05880 * 015440 3001531300 05890 J SUTXX U4CT 05890 015445 2000016014 05900 FT 112,12 U4CT 05900 * 015452 3001531300 05910 J SUTXX U4CT 05910 015457 2000020414 05920 FT 132,12 U4CT 05920 * 015464 3001531300 05930 J SUTXX U4CT 05930 015471 2000025414 05940 FT 172,12 U4CT 05940 * 015476 3001531300 05950 J SUTXX U4CT 05950 015503 4400004700 05960 PADX SC 047,0 U4CT 05960 * 015510 3001516700 05970 J CCX U4CT 05970 * 015515 3000000000 05980 GSRV0 J 0 U4CT 05980 015522 4401473302 05990 SC FSTX+4,0,02 U4CT 05990 015527 4401456202 06000 SC SHX+4,0202 U4CT 06000 015534 4401434100 06010 SC WBNYX+4,4,0 U4CT 06010 015541 4401434600 06020 SC WBNY2+4,4,0 U4CT 06020 015546 2601653404 06030 PD SAV1,4 U4CT 06030 015553 2601671400 06040 PD PATSY,1616 U4CT 06040 015560 5601677400 06050 BA1 SRIG,16 6 U4CT 06050 015565 5201675400 06060 SA1 PATT2,1616 U4CT 06060 015572 5601702410 06070 BA1 RANDY,8 8 0RIG RAND0M N0 U4CT 06070 015577 5201703410 06080 SA1 TS02 U4CT 06080 015604 5601704105 06090 BA1 RDX1+4,5,5 RESET DECX1 U4CT 06090 015611 5201437705 06100 SA1 DECX1+4,4,5 U4CT 06100 015616 5201461305 06110 SA1 CHUCK+4,4,5 U4CT 06110 015623 5201474505 06120 SA1 SLIP+4,5,5 U4CT 06120 015630 5201533105 06130 SA1 RXL+4,5 5 U4CT 06130 015635 5601706017 06140 BA1 RR1X+4,1,15 U4CT 06140 015642 5201507717 06150 SA1 R1X+14,1,15 U4CT 06150 * 015647 3001551500 06160 J GSRV0 U4CT 06160 * 015654 3000000000 06170 C0MP J 0 U4CT 06170 015661 5601566005 06180 BA1 C0MP+4,5,5 U4CT 06180 015666 5201423305 06190 SA1 GENDT+4,4,5 U4CT 06190 * 015673 3001423400 06200 J SAVY JRD1 U4CT 06200 * 015700 3000000000 06210 CSRV0 J 0 U4CT 06210 015705 5601702410 06220 BA1 RANDY,8 8 U4CT 06220 015712 5201703410 06230 SA1 TS02,8 U4CT 06230 015717 5601677400 06240 BA1 SRIG,16 6 U4CT 06240 015724 5201675400 06250 SA1 PATT2,1616 U4CT 06250 015731 4401473302 06260 SC FSTX+4,0,02 U4CT 06260 015736 4401456202 06270 SC SHX+4,0202 U4CT 06270 015743 2601653404 06280 PD SAV1,4 U4CT 06280 015750 2601671400 06290 PD PATSY,1616 U4CT 06290 015755 5601706505 06300 BA1 JRD1+4,5,5 U4CT 06300 015762 5201437705 06310 SA1 DECX1+4,4,5 U4CT 06310 015767 5201461305 06320 SA1 CHUCK+4,4,5 U4CT 06320 015774 5201474505 06330 SA1 SLIP+4,5,5 U4CT 06330 016001 5601711037 06340 BA2 JRD3+4,1,15 U4CT 06340 016006 5201507737 06350 SA2 R1X+14,1,15 U4CT 06350 016013 4401434100 06360 SC WBNYX+4,4,0 U4CT 06360 016020 4401434600 06370 SC WBNY2+4,4,0 U4CT 06370 016025 5201533105 06380 SA1 RXL+4,5 5 U4CT 06380 * 016032 3001570000 06390 J CSRV0 U4CT 06390 016046 0000000000000000 06400 +8 000 U4CT 06400 016056 0000000000000000 06410 SAV3X +8 000 U4CT 06410 * 016057 3000000000 06420 D1 J 0 U4CT 06420 016064 7040061740 06430 CB1 IMAGE+1515,16,2 U4CT 06430 * 016071 1001615643 06440 JR P0P,35 U4CT 06440 * 016076 3001605700 06450 J D1 U4CT 06450 * 016103 3000000000 06460 D2 J 0 U4CT 06460 016110 7040060750 06470 CB1 IMAGE+7,7,8,2 U4CT 06470 * 016115 1001720343 06480 JR P0P2,35 5 U4CT 06480 * 016122 3001610300 06490 J D2 U4CT 06490 * 016127 3000000000 06500 D3 J 0 U4CT 06500 016134 7040061750 06510 CB1 IMAGE+1515,8,2 U4CT 06510 * 016141 1001723443 06520 JR P0P3,35 5 U4CT 06520 * 016146 3001612700 06530 J D3 U4CT 06530 * 016153 3000000000 06540 P0P J 0 U4CT 06540 016160 5201605620 06550 SA2 SAV3X,1616 U4CT 06550 016165 5601021627 06560 BA2 C0MX,7 U4CT 06560 016172 5201005427 06570 SA2 ERR,7 U4CT 06570 016177 5201746100 06580 SA1 DUDX,16 6 U4CT 06580 * 016204 1001750500 06590 JR PRTX1 U4CT 06590 * 016211 1001061500 06600 JR PRINT U4CT 06600 016216 5601605620 06610 BA2 SAV3X,1616 U4CT 06610 016223 5601746100 06620 BA1 DUDX,16 6 U4CT 06620 * 016230 3001615300 06630 J P0P U4CT 06630 * 016235 3000000000 06640 GENRX J 0 U4CT 06640 016242 2600012730 06650 PD0 87,8 U4CT 06650 016247 2000050625 06660 FT 326,21 U4CT 06660 016254 5601703470 06670 BD2 TS02,8 U4CT 06670 016261 5000000002 06680 MPN ,2 U4CT 06680 016266 5600000730 06690 BA2 7,8 U4CT 06690 016273 6600003750 06700 SD1 31,8 U4CT 06700 016300 5400001717 06710 LP 15,15 U4CT 06710 016305 5201703410 06720 SA1 TS02,8 U4CT 06720 * 016312 3001623500 06730 J GENRX U4CT 06730 * 016317 3000000000 06740 INGEN J 0 U4CT 06740 * 016324 3001631700 06750 J INGEN U4CT 06750 016340 0000400100002002 06760 RNDX1 +8 0000040000100002002 U4CT 06760 0 016350 0010040004100002 06770 +8 0001004040004100002 U4CT 06770 0 016360 2000014001400002 06780 +8 0200001414001400002 U4CT 06780 0 016370 2004101004200240 06790 +8 0200410101004200240 U4CT 06790 2 016400 4101201204122001 06800 +8 0410120101204122001 U4CT 06800 0 016410 4224102442412116 06810 +8 0422410202442412116 U4CT 06810 1 016420 1621414630462116 06820 +8 0162141414630462116 U4CT 06820 1 016430 1621463046777777 06830 +8 0162146363046777777 U4CT 06830 7 016440 7777377677775775 06840 +8 0777737777677775775 U4CT 06840 7 016450 7737737773377775 06850 +8 0773773737773377775 U4CT 06850 7 016460 5777763776377775 06860 +8 0577776363776377775 U4CT 06860 7 016470 5773676763577537 06870 +8 0577367676763577537 U4CT 06870 5 016500 3676576573655776 06880 +8 0367657676573655776 U4CT 06880 7 016510 3553675335365661 06890 +8 0355367575335365661 U4CT 06890 6 016520 6156363147315661 06900 +8 0615636363147315661 U4CT 06900 6 016530 6156314731000000 06910 +8 0615631414731000000 U4CT 06910 0 016534 00000000 06920 SAV1 +4 000 U4CT 06920 016544 0102030405060710 06930 +8 0010203030405060710 U4CT 06930 7 016554 1112131415161720 06940 DTBL +8 0111213131415161720 U4CT 06940 7 016564 2122232425262730 06950 +8 0212223232425262730 U4CT 06950 7 016574 3132333435363740 06960 +8 0313233333435363740 U4CT 06960 7 016604 4142434445464750 06970 +8 0414243434445464750 U4CT 06970 7 016614 5152535455565760 06980 +8 0515253535455565760 U4CT 06980 7 016624 6162006465666770 06990 +8 0616200606465666770 U4CT 06990 7 016634 7172737475767700 07000 +8 0717273737475767700 U4CT 07000 7 016644 0000000000000000 07010 +8 000 U4CT 07010 016654 0000000000000000 07020 SAVEX +8 000 U4CT 07020 016664 0000000000000000 07030 +8 000 U4CT 07030 016674 0000000000000000 07040 SAVX +8 000 U4CT 07040 016704 0000000000000000 07050 +8 000 U4CT 07050 016714 0000000000000000 07060 PATSY +8 000 U4CT 07060 016724 0101010101010101 07070 +8 0010101010101010101 U4CT 07070 1 016734 0101010101010101 07080 SWES +8 0010101010101010101 U4CT 07080 1 016744 0000000000000000 07090 +8 000 U4CT 07090 016754 0000000000000000 07100 PATT2 +8 000 U4CT 07100 016764 0000000100020003 07110 +8 0000000000100020003 U4CT 07110 0 016774 0004000500060007 07120 SRIG +8 0000400000500060007 U4CT 07120 0 017004 0010001000100010 07130 +8 0001000101000100010 U4CT 07130 0 017014 0010001000100010 07140 TENS +8 0001000101000100010 U4CT 07140 0 017024 76540213 07150 RANDY +8 _7654021213_ U4CT 07150 017034 0000000000000000 07160 TS02 +8 000 U4CT 07160 017035 5240061700 07170 RDX1 SA1 IMAGE+1515,16,2 U4CT 07170 017042 5240060710 07180 SA1 IMAGE+7,7,8,2 U4CT 07180 * 017047 1001624000 07190 JR GENRX U4CT 07190 017054 5240061710 07200 RR1X SA1 IMAGE+1515,8,2 U4CT 07200 * 017061 1001606200 07210 JRD1 JR D1 U4CT 07210 017071 C0MP 07220 PRCP +4 _C0MP_ U4CT 07220 * 017072 1001610600 07230 JR D2 U4CT 07230 * 017077 1001624000 07240 JR GENRX U4CT 07240 * 017104 1001613200 07250 JRD3 JR D3 U4CT 07250 017111 2600007710 07260 PD 077,8 U4CT 07260 017116 2000003016 07270 FT 24,14 SET IR6 LENGTH 128 U4CT 07270 017123 2001715703 07280 FT PRRT+3,3,3 U4CT 07280 017130 5201151203 07290 SA1 WRIT-2,3,3 U4CT 07290 017135 4401154440 07300 SC WRIT+24,4,32 U4CT 07300 * 017142 3001116000 07310 J RERUN U4CT 07310 017147 2000060040 07320 FT IMAGE,3232 U4CT 07320 * 017154 3000000000 07330 PRRT J 0 U4CT 07330 017161 4400020701 07340 SC 0207,1 U4CT 07340 017166 4000620000 07350 XF 062,0000000,00,00 U4CT 07350 0 * 017173 3001152100 07360 J WRIT+5 U4CT 07360 * 017200 3000000000 07370 P0P2 J 0 U4CT 07370 017205 5201747110 07380 SA1 SLDX-8,8,8 U4CT 07380 017212 5601750100 07390 BA1 SLDX,16 6 U4CT 07390 * 017217 1001615600 07400 JR P0P U4CT 07400 * 017224 3001720000 07410 J P0P2 U4CT 07410 * 017231 3000000000 07420 P0P3 J 0 U4CT 07420 017236 5201744110 07430 SA1 NEWX,8 U4CT 07430 017243 5601744100 07440 BA1 NEWX,16 6 U4CT 07440 * 017250 1001615600 07450 JR P0P U4CT 07450 * 017255 3001723100 07460 J P0P3 U4CT 07460 017271 0000000000000000 07470 +8 000 U4CT 07470 017301 0000000000000000 07480 SAVX4 +8 000 U4CT 07480 * 017302 3000000000 07490 ETX J 0 U4CT 07490 017307 5202002000 07500 STREX SA1 MEMX,16 6 U4CT 07500 017314 2600006304 07510 CLR4X PD 51,4 U4CT 07510 017321 5702000101 07520 IMTX BA1 MEMX-15,5,1,4 U4CT 07520 017326 5400001707 07530 LP 15,7 U4CT 07530 017333 6000001703 07540 AC 15,3 U4CT 07540 017340 5360000101 07550 SA1 1,1,7 U4CT 07550 017345 5702000101 07560 BA1 MEMX-15,5,1,4 U4CT 07560 017352 5400001770 07570 LP 15,56 U4CT 07570 017357 1600001753 07580 BC1 15,3 U4CT 07580 017364 6000001703 07590 AC 15,3 U4CT 07590 017371 5360000001 07600 SA1 0,1,7 U4CT 07600 017376 6000006301 07610 AC 063,1 U4CT 07610 017403 6000007703 07620 A7X AC 077,3 U4CT 07620 * 017410 3201732120 07630 LP3X JL IMTX,16 6 U4CT 07630 * 017415 3001730200 07640 FINSX J ETX U4CT 07640 017431 0000000000000000 07650 +8 000 U4CT 07650 017441 0000000000000000 07660 NEWX +8 000 U4CT 07660 017451 0000000000000000 07670 +8 000 U4CT 07670 017461 0000000000000000 07680 DUDX +8 000 U4CT 07680 017471 0000000000000000 07690 +8 000 U4CT 07690 017501 0000000000000000 07700 SLDX +8 000 U4CT 07700 * 017502 3000000000 07710 PRTX1 J 0 U4CT 07710 017507 4401757540 07720 SC FLUB+4,3,32 U4CT 07720 * 017514 1001770200 07730 JR STAPX SET_TAPE_ AND _TR2_ U4CT 07730 017521 5640061700 07740 BA1 IMAGE+1515,16,2 U4CT 07740 * 017526 1001754300 07750 JR SNIP U4CT 07750 * 017533 3001764600 07760 J TWX U4CT 07760 * 017540 3000000000 07770 SNIP J 0 U4CT 07770 017545 5202012500 07780 SA1 ERM0I+2121,16 ST0RE AS IS U4CT 07780 017552 2002013617 07790 FT ERM0I+3030,15 U4CT 07790 017557 4401741420 07800 SC LP3X+4,1,16 U4CT 07800 * 017564 1001730500 07810 JR ETX U4CT 07810 * 017571 3002002100 07820 FLUB J SETG U4CT 07820 017576 5600006700 07830 BA1 053+12,1,16 U4CT 07830 017603 2002022517 07840 FT ERM0I+8585,15 U4CT 07840 017610 4401741404 07850 SC LP3X+4,4,4 U4CT 07850 * 017615 1001730500 07860 JR ETX U4CT 07860 017622 2002010040 07870 CRAK FT ERM0I,3232 U4CT 07870 017627 4400020702 07880 SC 0207,2 U4CT 07880 017634 4000620000 07890 XF 062,0000000,00,00 U4CT 07890 0 * 017641 3001754000 07900 J SNIP U4CT 07900 017646 2602024015 07910 TWX PD ERM0I+9696,13 U4CT 07910 017653 5601730100 07920 BA1 SAVX4,1616 U4CT 07920 017660 4401757500 07930 SC FLUB+4,0,0 U4CT 07930 * 017665 1001754300 07940 JR SNIP U4CT 07940 * 017672 3001750200 07950 J PRTX1 U4CT 07950 * 017677 3000000000 07960 STAPX J 0 U4CT 07960 017704 5201730100 07970 SA1 SAVX4,1616 U4CT 07970 017711 5602003624 07980 BA2 TPX,4 U4CT 07980 017716 5202010424 07990 SA2 ERM0I+4,4,4 U4CT 07990 017723 5602004123 08000 BA2 IRX,3 U4CT 08000 017730 5202022323 08010 SA2 ERM0I+8383,3 U4CT 08010 * 017735 3001767700 08020 J STAPX U4CT 08020 * 017742 3000000000 08030 STMGX J 0 U4CT 08030 017747 5602004524 08040 BA2 MX,4 U4CT 08040 017754 5202010424 08050 SA2 ERM0I+4,4,4 U4CT 08050 017761 5602005326 08060 BA2 GX,6 U4CT 08060 017766 5202022626 08070 SA2 ERM0I+8686,6 U4CT 08070 * 017773 3001774200 08080 J STMGX U4CT 08080 020000 00 08090 COP +1 0 U4CT 08090 020010 0000000000000000 08100 +8 000 U4CT 08100 020020 0000000000000000 08110 MEMX +8 000 U4CT 08110 * 020021 1001774500 08120 SETG JR STMGX U4CT 08120 * 020026 3001762200 08130 J CRAK U4CT 08130 020036 TAPE 08140 TPX +4 _TAPE_ U4CT 08140 020041 IR2 08150 IRX +3 _IR2_ U4CT 08150 020045 MEM 08160 MX +4 _MEM _ U4CT 08160 020050 GEN 08170 +3 _GEN_ U4CT 08170 020052 0000 08180 PHSEX +2 000 U4CT 08180 020053 00 08190 GX +1 000 U4CT 08190 020100 08200 ORIG $,64 U4CT 08200 020100 27 08210 ERM0I AREA 23,B,0 U4CT 08210 020134 EDITED 08220 +6 _EDITED_D_ U4CT 08220 020135 143 08230 AREA 99,B,0 U4CT 08230 * 020300 3000000000 08240 SX2P J 0 U4CT 08240 020305 5601022406 08250 BA1 A2PPI,6 6 U4CT 08250 020312 5201006706 08260 SA1 DEN,6 U4CT 08260 * 020317 3002030000 08270 J SX2P U4CT 08270 * 020324 3000000000 08280 SXBI J 0 U4CT 08280 020331 5601032104 08290 BA1 BINY,4 U4CT 08290 020336 5201002604 08300 SA1 SP-6,4 U4CT 08300 * 020343 3002032400 08310 J SXBI U4CT 08310 * 020350 3000000000 08320 SXBCD J 0 U4CT 08320 020355 5601032504 08330 BA1 BCD,4 U4CT 08330 020362 5201002604 08340 SA1 SP-6,4 U4CT 08340 * 020367 3002035000 08350 J SXBCD U4CT 08350 * 020374 3000000000 08360 SX5P J 0 U4CT 08360 020401 5601024306 08370 BA1 A5PPI,6 6 U4CT 08370 020406 5201006706 08380 SA1 DEN,6 U4CT 08380 * 020413 3002037400 08390 J SX5P U4CT 08390 * 020420 3000000000 08400 SX8P JC 0 PUT 800 PPI TO PRINT U4CT 08400 020425 5601025106 08410 BA1 A8PPI,6 6 U4CT 08410 020432 5201006706 08420 SA1 DEN,6 U4CT 08420 * 020437 3002042000 08430 JC SX8P U4CT 08430 020444 5602050605 08440 U3CLY BA1 JT3C+4,5,5 SSW2 SET U4CT 08440 020451 5201133505 08450 SA1 TS912+4,4,5 U4CT 08450 * 020456 3001123500 08460 J T1 U4CT 08460 020463 5602051305 08470 T9N12 BA1 T9+4,5 U4CT 08470 020470 5201133505 08480 SA1 TS912+4,4,5 U4CT 08480 * 020475 3001133100 08490 J TS912 U4CT 08490 * 020502 3001136700 08500 JT3C J T3C IF SSW2 SET U4CT 08500 * 020507 1001375300 08510 T9 JR TEST9 U4CT 08510 * 020514 3001115320 08520 B JC START,1616 U4CT 08520 3002051400 08530 END B U4CT 08530 {-- tape mark --}