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 P�OC8K06320 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 P�OC8K07940
* 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 P�OC8K08210
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 P�OC8K09320
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 P�OC8K10220
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 P�OC8K10350
* 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 P�OC8K11020
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 P�OC8K11420
* 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 P�OC8K11460
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 P�OC8K12290
* 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 P�OC8K12980
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 P�OC8K13210
* 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 CL�2 PROC8K13950 L
* 005277 1000307226 13960 JR NEXT,22 2 RESET SI�2 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 CL�2 PROC8K15180 L
* 006446 1000304126 15190 JR EXIT,22 2 RESET SI�2 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 P�OC8K16430
* 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 P�OC8K17760
* 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 P�OC8K21950
* 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<NO KEY-IN SELECTS 40(41 FOR TAPE�SYTR0200180 M
00190 . LSD OF LOCATATIONS 30-37 CORRESPONDS TO CHANNEL NO. SYTR0200190 0
00200 . 2- SENSE SWITCH O OPTIONS SYTR0200200
00210 . SS1- OMIT ERRRROR PRINTOUTS SYTR0200210 N
00220 . SS2- STOP AFTFTER ERROR PRINT-OUT SYTR0200220 O
00230 . SS3- CONSIDERER MOA AND UNIT BUSY AS ERRORS SYTR0200230 N
00240 . 3- ERROR DISPLAY Y STOP (M-BIT DISPLAY� SYTR0200240 M
00250 . A. FUNCTIONALAL ERRORS SYTR0200250 S
177700 00260 E0 EQU 0177700 0 PRINTER ERROR ON CHANNEL 0 SYTR0200260 E
177701 00270 E1 EQU 0177701 1 READER ERROR SYTR0200270 R
177702 00280 E2 EQU 0177702 2 PUNCH ERROR SYTR0200280
177703 00290 E3 EQU 0177703 3 CHANNEL 3 ERROR SYTR0200290 E
177704 00300 E4 EQU 0177704 4 TAPE ERROR ON CHANNEL 4 SYTR0200300 E
177705 00310 E5 EQU 0177705 5 TAPE ERROR ON CHANNEL 5 SYTR0200310 E
177706 00320 E6 EQU 0177706 6 DRUM ERROR SYTR0200320 E
177707 00330 E7 EQU 0177707 7 PRINTER ERROR ON CHANNEL 7 SYTR0200330 E
177710 00340 E10 EQU 0177710 0 PROCESSOR ERROR SYTR0200340 S
177711 00350 E11 EQU 0177711 1 PARITY ERROR SYTR0200350 Y
177712 00360 E12 EQU 0177712 2 DECIMAL OVERFLOW SYTR0200360 A
177713 00370 E13 EQU 0177713 3 READER SEQUENCE ERROR SYTR0200370 R
177777 00380 E77 EQU 0177777 7 WRONG DATA CARD IN READER SYTR0200380
00390 . B. ERROR INDIDICATORS SET SYTR0200390
00400 . Z-BITS = = CHANNEL NO., YX-BITS = ERROR INDICATORS SYTR0200400 E
00410 . 4- AFTER ERROR STSTOP, DEPRESS START TO CONTINUE. ADDITIONAL SYTR0200410 P
00420 . STOPS)(1� CHARAR NO,(2� CHAR READ)EXPECTED,(3� CARD NO SYTR0200420 �
00430 . 5- FOR RERUN, DEPEPRESS OPERATOR REQUEST, CLEAR, START SYTR0200430 P
* 000400 3000040031 00440 JC $,031 SYTR0200440
000407 014275 00450 +3 PRIR SYTR0200450
000420 00460 ORIG 0420 SYTR0200460
* 000420 3000042031 00470 JC $,031 SYTR0200470
000427 013075 00480 +3 PIR SYTR0200480
* 000430 3000043031 00490 JC $,031 SYTR0200490
000437 005160 00500 +3 CH3IR SYTR0200500
000450 00510 ORIG 0450 SYTR0200510
* 000450 3000045031 00520 JC $,031 SYTR0200520
000457 015715 00530 +3 TIR SYTR0200530
000500 00560 ORIG 0500 SYTR0200560
* 000500 3017771160 00570 JD E11 SYTR0200570
000507 005064 00580 +3 CL1IR SYTR0200580
* 000510 3017771260 00590 JD E12 SYTR0200590
000517 005134 00600 +3 CL2IR SYTR0200600
000520 240 00610 COMP AREA 160 SYTR0200610
000760 207 00620 AREA 135 SYTR0200620
000764 5 00630 SUBTR - 5 SYTR0200630
001041 00640 RDMNO - 45 SYTR0200640
001116 00650 EXIT - 45 SYTR0200650
001167 11 00660 AREA 9 SYTR0200660
001172 4 00670 SEQNO - 4 SEQUENCE NUMBER SYTR0200670
001175 3 00680 OCTAL - 3 SYTR0200680
001177 2 00690 ERIND - 2 SYTR0200690
001200 300 00700 RDIM1 AREA 192 SYTR0200700
001443 4 00710 RL1 - 4,164 SYTR0200710
001447 4 00720 RL2 - 4 SYTR0200720
001453 4 00730 RL3 - 4 SYTR0200730
001457 4 00740 RL4 - 4 SYTR0200740
001463 4 00750 RL5 - 4 SYTR0200750
001467 4 00760 RL6 - 4 SYTR0200760
001473 4 00770 RL7 - 4 SYTR0200770
001474 1 00780 LI - 1 LOGICAL INDICATORS SYTR0200780
001475 1 00790 EBSY1 - 1 READER ERR BUSY INDICATOR SYTR0200790
001476 1 00800 RBSY - 1 READER BUSY INDICATOR SYTR0200800
001500 00801 PERR EQU $ SYTR0200801
001510 PROC ERR, 00802 +9 _PROC ERERR,_ SYTR0200802
001530 RETURN ADDRESS) 00803 +16 _RETURN N ADDRESS) _ SYTR0200803 S
001537 00804 +7 _ _ SYTR0200804
001540 00805 EIND EQU $ SYTR0200805
001557 ERR INDICAT 00806 +16 _ ERERR INDICAT_ SYTR0200806 C
001577 ORS) 00807 +16 _ORS) _ SYTR0200807
001600 300 00810 RDIM2 AREA 192 SYTR0200810
002043 4 00820 CL1 - 4,164 SYTR0200820
002047 4 00830 CL2 - 4 SYTR0200830
002053 4 00840 CL3 - 4 SYTR0200840
002057 4 00850 CL4 - 4 SYTR0200850
002063 4 00860 CL5 - 4 SYTR0200860
002067 4 00870 ID1 - 4 SYTR0200870
002073 4 00880 ID2 - 4 SYTR0200880
002077 4 00890 ID3 - 4 SYTR0200890
002100 00891 RDERR EQU $ SYTR0200891
002117 COMP ERR)CH 00892 +16 _ COCOMP ERR)CH_ SYTR0200892 )
002137 AR NO) ,READ) 00893 +16 _AR NO) ) ,READ) _ SYTR0200893 D
002157 ,EXPECT) ,CD/B 00894 +16 _ ,EXPECECT) ,CD/B_ SYTR0200894 D
002177 L/UTHS) 00895 +16 _L/UTHS)S) _ SYTR0200895
002200 300 00900 RDIM3 AREA 192 SYTR0200900
002477 00910 STAR - 32,192 STORAGE FOR AR1 + AR2 SYTR0200910
002500 240 00911 RDTP AREA 160 READER TEST PATTERN SYTR0200911
002740 00912 DOFLO EQU $ SYTR0200912
002753 DEC OVERFLOW 00913 +12 _DEC OVEVERFLOW_ SYTR0200913
002757 DRUM 00914 DRUM +4 _DRUM_ SYTR0200914
002760 00 00915 EBSY6 +1 0 DRUM ERR BUSY INDICATOR SYTR0200915
002761 00 00916 DBSY +1 0 DRUM BUSY INDICATOR SYTR0200916
002765 PRT7 00917 PRT7 +4 _PRT7_ SYTR0200917
002766 00918 INTER EQU $ SYTR0200918
002777 CHAN 3 INT 00919 +10 _CHAN 3 3 INT_ CHANNEL 3 INTERRUPT ERROR SYTR0200919
003000 300 00920 TPIM AREA 192 TAPE,PUNCH IMAGE AREA SYTR0200920
003250 1 00930 EBSY2 - 1,169 PUNCH ERR BUSY INDICATOR SYTR0200930
003251 1 00940 PUBSY - 1 PUNCH BUSY INDICATOR SYTR0200940
003252 1 00950 EBSY4 - 1 TAPE ERR BUSY INDICATOR SYTR0200950
003253 1 00960 TPBSY - 1 TAPE BUSY INDICATOR SYTR0200960
003273 20 00970 IR4 - 16 SYTR0200970
003277 4 00990 BLKCT - 4 TAPE BLOCK COUNTER SYTR0200990
003307 17531246 00991 TS02 +8 _1753124246_ INITIAL RANDOM NO. SYTR0200991
003311 4040 00992 TS01 +2 04040 TEST SELECTION)PROC,PR0 SYTR0200992
003320 40400041414040 00993 +7 04040004041414040 SYTR0200993 0
003321 00994 SEQM EQU $ SYTR0200994
003340 SEQUENCE ERR)CAR 00995 +16 _SEQUENCNCE ERR)CAR_ SYTR0200995 C
003357 D NO READ) , 00996 +15 _D NO REREAD) ,_ SYTR0200996
003377 EXPECTED) 00997 +16 _ EXPECTCTED) _ SYTR0200997
003400 250 01000 PPRI AREA 168 SYTR0201000
* 003650 3000000031 01030 JC 0,25 SYTR0201030
003657 015715 01040 TPIE +3 TIR SYTR0201040
003663 TAP5 01050 TAP5 +4 _TAP5_ SYTR0201050
003664 01060 PARE EQU $ SYTR0201060
003677 PARITY ERROR 01070 +12 _PARITY Y ERROR_ SYTR0201070
003700 200 01080 PRIM AREA 128 SYTR0201080
004107 0000000000000000 01090 PCDNO +8 0 PUNCH CARD NUMBER SYTR0201090
004113 RDR 01091 RDR +4 _RDR _ SYTR0201091
004117 PCH 01092 PCH +4 _PCH _ SYTR0201092
004120 2600023704 01100 START PD T39,4 SYTR0201100
004125 5601521400 01101 BA1 PRIE7,1616 SYTR0201101
004132 5200047700 01102 SA1 0477,16 6 SYTR0201102
004137 2600622001 01103 PD CMPE5+4,4,1 SYTR0201103
004144 5600332031 01110 BA2 TS01+7,9,9 SYTR0201110
* 004151 3000000060 01120 JD 0 CLEAR,KEY IN,START SYTR0201120
* 004156 3000416322 011200 JC $+5,18 SET SI1 FOR ROW RDR/PCH SYTR02011200
004163 1400003104 01121 LC 031,04 SYTR0201121
* 004170 3000421442 01122 JE $+20 JUMP IF ROW READER SYTR0201122
004175 1400003204 01123 LC 032,04 SYTR0201123
* 004202 3000421442 01124 JE $+10 JUMP IF ROW PUNCH SYTR0201124
* 004207 3000421425 01125 JC $+5,21 RESET SI1 IF COLUMN RDR/PCH SYTR0201125
004214 4400076003 01130 SC SUBTR-4,4,3 START IF ROW RDR/PCH SYTR0201130
004221 2000076120 01140 FT SUBTR-3,3,16 SYTR0201140
004226 2000020622 01150 FT 134,18 SYTR0201150
004233 2400076001 01160 TFR SUBTR-4 4 SYTR0201160
004240 3400003000 01170 CC 030,0 SYTR0201170
004245 2601447201 01171 PD PBSY,1 SYTR0201171
* 004252 1001346043 01180 JR HSPI,35 5 PRINTER, CHANNEL 0 SYTR0201180
004257 3400003100 01190 CC 031,0 SYTR0201190
* 004264 1000662743 01200 JR RDRI,35 5 READER SYTR0201200
004271 3400003200 01210 CC 032,0 SYTR0201210
004276 2600325102 01211 PD PUBSY,2 2 SYTR0201211
* 004303 1001233043 01220 JR PCHI,35 5 PUNCH SYTR0201220
004310 3400003400 01230 CC 034,0 SYTR0201230
004315 2600325301 01231 PD TPBSY,1 1 SYTR0201231
* 004322 1001522043 01232 JR TAPI,35 5 TAPE,CHANNEL 4 SYTR0201232
004327 3400003500 01233 CC 035,0 SYTR0201233
* 004334 1001522043 01234 JR TAPI,35 5 TAPE,CHANNEL 5 SYTR0201234
004341 3400003600 01241 CC 036,0 SYTR0201241
004346 2600276102 01242 PD DBSY,2 SYTR0201242
* 004353 1001701443 01243 JR DRUMI,3535 DRUM SYTR0201243
004360 3400003700 01250 CC 037,0 SYTR0201250
* 004365 1001447643 01260 JR HSPI7,3535 PRINTER, CHANNEL 7 SYTR0201260
004372 3400002700 01270 CC 027,0 SYTR0201270
* 004377 1001645643 01280 JR PROCI,3535 PROCESSOR SYTR0201280
004404 5200332031 01290 SA2 TS01+7,9,9 SYTR0201290
004411 3400443355 01300 CNTRL CC UNIT+3,0,055 CONTROL LOOP SYTR0201300
* 004416 3000443041 01310 JG UNIT SYTR0201310
004423 2600443301 01320 PD UNIT+3,1,1 SYTR0201320
004430 2000000017 01330 UNIT FT 0,X7 SYTR0201330
004435 6000443305 01340 AC UNIT+3,5,5 SYTR0201340
004442 5760076405 01350 BA1 SUBTR,5,5,X7 SYTR0201350
004447 6360104145 01360 SM1 RDMNO,5,5,X7 SYTR0201360
* 004454 3000446646 01370 JC $+10,38 8 JUMP WHEN NEGATIVE SYTR0201370
* 004461 3000441133 01380 CL01 JC CNTRL,03033 SYTR0201380
004466 2000050625 01390 FT _23_,21 1 SYTR0201390
004473 5600330770 01400 BD2 TS02,8 SYTR0201400
004500 5000000002 01410 MPN ,2 SYTR0201410
004505 5600000730 01420 BA2 7,8 SYTR0201420
004512 6600003750 01430 SD1 31,8 SYTR0201430
004517 5400001717 01440 LP 15,15 SYTR0201440
004524 5200330710 01450 SA1 TS02,8 SYTR0201450
004531 5360104105 01460 SA1 RDMNO,5,5,X7 SYTR0201460
004536 4760111617 01470 BT EXIT,X7,7,X7 SYTR0201470
* 004543 3160000000 01480 J 0,X7 CONTROL LOOP EXIT SYTR0201480
004554 20000 01520 HISPD +5 _20000_ _ SYTR0201520
004561 00100 01530 LOSPD +5 _00100_ _ PERIPHERAL INCREMENTS) SYTR0201530
004566 01000 01540 MESPD +5 _01000_ _ BASE ADDR = PRINTER, CH0 SYTR0201540
004573 01000 01550 +5 _01000_ _ BASE+5 = READER SYTR0201550
004600 00600 01560 +5 _00600_ _ BASE+12 = PUNCH SYTR0201560
004605 00000 01570 +5 _00000_ _ BASE+17 = CHANNEL 3 SYTR0201570
004612 01000 01580 +5 _01000_ _ BASE+24 = TAPE, CH4 SYTR0201580
004617 01000 01590 +5 _01000_ _ BASE+31 = TAPE, CH5 SYTR0201590
004624 01000 01600 +5 _01000_ _ BASE+36 = DRUM SYTR0201600
004631 01000 01610 +5 _01000_ _ BASE+43 = PRINTER, CH7 SYTR0201610
004636 00600 01620 +5 _00600_ _ BASE+50 = PROCESSOR SYTR0201620
004637 01780 WRONG EQU $ SYTR0201780
004656 WRONG CARD AFTER 01790 +16 _WRONG C CARD AFTER_ SYTR0201790 T
004673 CARD NO) 01800 +13 _ CARD N NO) _ SYTR0201800 _
004674 01850 TP1 EQU $ ALPHANUMERIC TEST PATTERN 1 SYTR0201850 H
004703 0001020304050607 01860 +8 0000102020304050607 SYTR0201860 6
004713 1011121314151617 01870 +8 0101112121314151617 SYTR0201870 6
004723 2021222324252627 01880 +8 0202122222324252627 SYTR0201880 6
004733 3031323334353637 01890 +8 0303132323334353637 SYTR0201890 6
004743 4041424344454647 01900 +8 0404142424344454647 SYTR0201900 6
004753 5051525354555657 01910 +8 0505152525354555657 SYTR0201910 6
004763 6061626364656667 01920 +8 0606162626364656667 SYTR0201920 6
004773 7071727374757677 01930 +8 0707172727374757677 SYTR0201930 6
004774 01940 TP2 EQU $ TRIANGLE TEST PATTERN 2 SYTR0201940 A
005002 77773777177707 01950 +7 07777377777177707 SYTR0201950 7
005011 77037701770077 01960 +7 07703770701770077 SYTR0201960 7
005020 00370017000700 01970 +7 00037001017000700 SYTR0201970 0
005027 03000100007777 01980 +7 00300010100007777 SYTR0201980 7
005036 77767774777077 01990 +7 07776777774777077 SYTR0201990 7
005045 60774077007600 02000 +7 06077407077007600 SYTR0202000 0
005054 74007000600040 02010 +7 07400700000600040 SYTR0202010 0
005057 000000 02020 +3 0 SYTR0202020
005063 PPBB 02030 TP3 +4 _PPBB_ CHECKERBOARD TEST PATTERN 3 SYTR0202030 C
02040 .TP4 HALF-CACARD,ALTERNATE ROWS TEST PATTERN 4 SYTR0202040 E
005064 2017771103 02050 CL1IR FT E11,3 CLASS I INTERRUPT ROUTINE SYTR0202050
005071 2000366407 02060 FT PARE,7 SYTR0202060
005076 4401204714 02070 SC CCT+3,1212 SYTR0202070
* 005103 1001172200 02080 JR PRINT SYTR0202080
* 005110 3000511532 02090 OPREQ JC $+5,032 2 INHIBIT CL3 INTERRUPT SYTR0202090
* 005115 3000512216 02100 JC $+5,016 6 RESET OPERATOR INT INH SYTR0202100
* 005122 3000512735 02110 JC $+5,035 5 RESET CL2 INT INH SYTR0202110
* 005127 3000412036 02120 JC START,03036 RESET CL1 INT INH SYTR0202120
* 005134 3000511054 02130 CL2IR JC OPREQ,4444 CLASS 2 INTERRUPT ROUTINE SYTR0202130
005141 2017771203 02140 FT E12,3 SYTR0202140
005146 2000274007 02150 FT DOFLO,7 7 SYTR0202150
* 005153 3000507650 02151 JC CL1IR+1010,050 RESET DOF SYTR0202151
005160 2017770303 02153 CH3IR FT E3,3 SYTR0202153
005165 2000276607 02154 FT INTER,7 7 SYTR0202154
005172 4401204712 02155 SC CCT+3,1010 SYTR0202155
* 005177 1001172200 02156 JR PRINT SYTR0202156
* 005204 3000043000 02157 J 0430 SYTR0202157
* 005211 3000521100 02170 GEN01 J $ SET UP ERROR INDICATORS SYTR0202170
005216 5200154304 02180 SA1 EIND+3,4,4 SYTR0202180
005223 2601173001 02190 PD PRINT+9,9,1 SYTR0202190
005230 2000002011 02200 FT 16,X1 SYTR0202200
005235 4400527100 02210 SC GEN02+3,3,0 SYTR0202210
005242 4400527201 02220 SC GEN02+4,4,1 SYTR0202220
005247 4400533014 02230 SC GEN03+4,4,12 SYTR0202230
005254 5600645402 02240 BA1 B01,2 SYTR0202240
005261 2600117702 02250 PD ERIND,2 2 SYTR0202250
005266 4000000000 02260 GEN02 XF 00,0,0,0,0 SYTR0202260
* 005273 3000537453 02270 JC GEN04,4343 SYTR0202270
005300 4420155703 02280 SC EIND+15,5,3,X1 SYTR0202280
005305 2037777711 02290 FT -1,X1,X1X1 SYTR0202290
005312 1600527221 02300 BS2 GEN02+4,4,1 SYTR0202300
005317 1600001721 02310 BS2 15,1 SYTR0202310
* 005324 3200526614 02320 GEN03 JL GEN02,1212 SYTR0202320
005331 5600117702 02330 BA1 ERIND,2 2 SYTR0202330
005336 4400001500 02340 GEN05 SC 015,0 SYTR0202340
005343 2000154007 02350 FT EIND,7 SYTR0202350
005350 4401204740 02360 SC CCT+3,3232 SYTR0202360
* 005355 1001172200 02370 GEN06 JR PRINT,0 0 SYTR0202370
005362 2600536101 02380 PD $-1,1 SYTR0202380
* 005367 3000521100 02390 J GEN01 SYTR0202390
005374 7200117702 02400 GEN04 AB1 ERIND,2 2 SYTR0202400
005401 4420155704 02410 SC EIND+15,5,4,X1 SYTR0202410
* 005406 3000530500 02420 J GEN02+1515 SYTR0202420
* 005413 3000541300 02430 DTOB J $ DECIMAL TO BINARY CONVERSION SYTR0202430
005420 2600207710 02440 PD ID3,8 SYTR0202440
005425 5600206743 02450 BD1 ID1,3 SYTR0202450
005432 2600650343 02460 DTOB4 CD1 D200,3 SYTR0202460
* 005437 3000546344 02470 JS DTOB1 SYTR0202470
005444 6600650343 02480 SD1 D200,3 SYTR0202480
005451 6000207001 02490 AC ID2-3,1 1 SYTR0202490
* 005456 3000543200 02500 J DTOB4 SYTR0202500
005463 2600651344 02510 DTOB1 CD1 D81 SYTR0202510
* 005470 3000550744 02520 JS $+15 SYTR0202520
005475 6600651344 02530 SD1 D81 SYTR0202530
* 005502 3000546300 02540 J DTOB1 SYTR0202540
005507 2600003722 02550 PD0 31,2 SYTR0202550
005514 7200001762 02560 SB2 15,2 SYTR0202560
005521 5200207302 02570 SA1 ID2,2 SYTR0202570
005526 5200207701 02580 SA1 ID3,1 SYTR0202580
005533 1600207211 02590 BS1 ID2-1,1 1 SYTR0202590
005540 5600207202 02600 BA1 ID2-1,2 2 SYTR0202600
005545 7200207702 02610 AB1 ID3,2 SYTR0202610
005552 1600207212 02620 BS1 ID2-1,2 2 SYTR0202620
005557 5600207202 02630 BA1 ID2-1,2 2 SYTR0202630
005564 7200207702 02640 AB1 ID3,2 SYTR0202640
* 005571 3000541340 02650 DTOB3 JC DTOB,04040 JUMP IF XLATE MODE SYTR0202650
005576 5600207702 02660 BA1 ID3,2 SYTR0202660
005603 7200207702 02670 AB1 ID3,2 SYTR0202670
* 005610 3000541300 02680 J DTOB SYTR0202680
* 005615 3000561500 02690 SETUP J $ SET UP COMPARISON AREA SYTR0202690
005622 5600207704 02700 BA1 ID3,4 SYTR0202700
005627 5200011302 02710 SA1 0113,2 SYTR0202710
005634 7200003742 02730 SB1 31,2 SYTR0202730
005641 5200005322 02740 SA2 X2,2 SYTR0202740
005646 7400207747 02750 CT ID3,39 SYTR0202750
* 005653 3000566542 02760 JE $+10 SYTR0202760
005660 2440052060 02770 TTI COMP,0,X,X2 SYTR0202770
005665 5200011322 02780 SA2 0113,2 SYTR0202780
005672 2400052041 02790 TTR COMP SYTR0202790
* 005677 3000561500 02800 J SETUP SYTR0202800
* 005704 3000570400 02810 CMP J $ COMPARISON ROUTINE SYTR0202810
005711 4600647426 02820 BT D1000-3,3,T22 SYTR0202820
005716 5660001700 02830 BA1 15,16,X3X3 IMAGE SYTR0202830
005723 7100001740 02840 CB1 15,16,X4X4 TEST PATTERN SYTR0202840
* 005730 3000601243 02850 JU CMPE SYTR0202850
005735 7600646413 02860 AT B16,X3 SYTR0202860
005742 7600646414 02870 AT B16,X4 SYTR0202870
005747 5600654244 02880 BD1 D16,4 SYTR0202880
005754 6200013304 02890 AM1 T22,4 SYT-0 02890
* 005761 3200571600 02900 LOOP JL CMP+10,0,0 5 FOR RDR,PCHO12 FOR TAPE SYTR0202900
005766 2600613601 02910 PD CMPE3+4,4,1 02910
005773 2600622001 02911 PD CMPE5+4,4,1 02911
006000 2600217610 02912 PD RDERR+6262,8 02912
* 006005 3000570400 02920 J CMP SYTR0202920
006012 4400607320 02930 CMPE SC LOOP2+4,4,16 SYTR0202930
006017 5660000001 02940 BA1 0,1,X3 IMAGE SYTR0202940
006024 5660000021 02950 BA2 0,1,X3 SYTR0202950
006031 7100000041 02960 CB1 0,1,X4 TEST PATTERN SYTR0202960
* 006036 3000610143 02970 JU CMPE1 SYTR0202970
006043 7600645413 02980 CMP01 AT B01,X3 SYTR0202980
006050 7600645414 02990 AT B01,X4 SYTR0202990
006055 5600647444 03000 BD1 D1000-3,3,4 SYTR0203000
006062 6200013304 03010 AM1 T22,4 SYTR0203010
* 006067 3200601720 03020 LOOP2 JL CMPE+5,1,16 SYTR0203020
* 006074 3000576100 03030 J LOOP SYTR0203030
006101 5201221701 03040 CMPE1 SA1 CHARS+2,2,1 SYTR0203040
006106 4400644101 03050 SC LOOP1+4,4,1 SYTR0203050
* 006113 1000634400 03060 JR OTOD SYTR0203060
006120 5200214002 03070 SA1 RDERR+3232,2 CHARACTER READ SYTR0203070
006125 5700000001 03080 BA1 0,1,X4 TEST PATTERN SYTR0203080
* 006132 3000616300 03090 CMPE3 JC CMPE4,0 0 SKIP ON TAPE CMP SYTR0203090
006137 3400001763 03100 CC 017,063 3 OCTAL 63 IS TAPE SENTINEL SYTR0203100
* 006144 3000616343 03110 JU $+15 SYTR0203110
006151 3400003700 03120 CC 037,0 CORRES. TEST CHAR. MUST BE 0 SYTR0203120
* 006156 3000604342 03130 JE CMP01 SYTR0203130
006163 5201222001 03140 CMPE4 SA1 CHARS+3,3,1 SYTR0203140
006170 4400644101 03150 SC LOOP1+4,4,1 SYTR0203150
* 006175 1000634400 03160 JR OTOD SYTR0203160
006202 5200215202 03170 SA1 RDERR+4242,2 CHARACTER EXPECTED SYTR0203170
006207 5600013344 03180 BD1 T22,4 SYTR0203180
* 006214 3000626440 03181 CMPE5 JC CMPE2-1010,040 JUMP IF NOT 90 COL RDR/PCH SYTR0203181
006221 2600652043 03182 CD1 D46,3 SYTR0203182
* 006226 3000626444 03183 JS CMPE2-1010 SYTR0203183
006233 2600652343 03184 CD1 D65,3 SYTR0203184
* 006240 3000604344 03185 JS CMP01 SYTR0203185
006245 2600652643 03186 CD1 D109,3 SYTR0203186
* 006252 3000576641 03187 JG LOOP+5 SYTR0203187
006257 6600650643 03188 SD1 D199-1,3,3 SYTR0203188
006264 5201221303 03190 SA1 CHRNO+3,3,3 SYTR0203190
006271 5200213003 03200 SA1 RDERR+2424,3 CHARACTER NUMBER SYTR0203200
006276 2000000003 03210 CMPE2 FT 0,3 SYTR0203210
006303 2000210007 03220 FT RDERR,7 7 SYTR0203220
006310 4401204777 03230 SC CCT+3,6363 SYTR0203230
006315 4200217627 03240 ST RDERR+6262,T23 SYTR0203240
006322 4401220740 03250 SC STOP+14,4,040 SYTR0203250
* 006327 1001172200 03260 JR PRINT SYTR0203260
* 006334 3000604300 03270 J CMP01 SYTR0203270
* 006341 3000634100 03280 OTOD J $ OCTAL TO DECIMAL CONVERSION SYTR0203280
006346 2600005307 03290 PD X2,7 SYTR0203290
006353 5200117503 03300 SA1 OCTAL,3 3 SYTR0203300
006360 5620117521 03310 OTOD1 BA2 OCTAL,1,1,X1 SYTR0203310
006365 5240001721 03320 SA2 017,1,X2X2 SYTR0203320
006372 2640001601 03330 PD 016,1,X2X2 SYTR0203330
006377 1640001723 03340 BS2 017,3,X2X2 SYTR0203340
006404 1640001753 03350 BC1 017,3,X2X2 SYTR0203350
006411 6040001703 03360 AC 017,3,X2X2 SYTR0203360
006416 6040001603 03370 AC 016,3,X2X2 SYTR0203370
006423 2037777711 03380 FT -1,X1,X1X1 SYTR0203380
006430 2057777612 03390 FT -2,X2,X2X2 SYTR0203390
* 006435 3200636003 03400 LOOP1 JL OTOD1,3 3 SYTR0203400
* 006442 3000634100 03410 J OTOD SYTR0203410
006450 QQ 03420 QQ +2 _QQ_ SYTR0203420
006454 00000001 03430 B01 +4 1 SYTR0203430
006460 00000004 03440 B04 +4 4 SYTR0203440
006464 00000020 03450 B16 +4 16 SYTR0203450
006470 00000200 03470 B128 +4 128 SYTR0203470
006477 0001000 03500 D1000 +7 _000100000_ SYTR0203500
006503 200 03510 D200 +4 _200_ SYTR0203510
006507 0199 03520 D199 +4 _0199_ SYTR0203520
006513 0081 03530 D81 +4 _0081_ SYTR0203530
006515 4 03540 D04 +2 _4_ SYTR0203540
006520 046 03541 D46 +3 _046_ SYTR0203541
006523 065 03542 D65 +3 _065_ SYTR0203542
006526 109 03543 D109 +3 _109_ SYTR0203543
006532 799 03560 D799 +4 _799_ SYTR0203560
006536 800 03570 D800 +4 _800_ SYTR0203570
006542 16 03580 D16 +4 _16_ SYTR0203580
006546 74747475 03590 K7475 +4 07474747475 SYTR0203590
* 006547 3000655433 03600 RDEL JC $+5,033 3 READER DELAY LOOP SYTR0203600
006554 7600645410 03610 AT B01,8 SYTR0203610
006561 3400004213 03620 CC 042,013 3 SYTR0203620
* 006566 3000721141 03630 JG RDR01+5 5 256 US LOOP, TOTAL 180.6 MS SYTR0203630
006573 4020007777 03640 RDRST XF 0,07777,7,0,1 READER RESTART SYTR0203640
* 006600 3000446153 03650 JC CL01,43 3 SYTR0203650
006605 5600332031 03660 BA2 TS01+7,9,9 SYTR0203660
* 006612 1000662732 03670 JR RDRI,03232 SYTR0203670
* 006617 3000441133 03680 JC CNTRL,03033 SYTR0203680
* 006624 3000662400 03690 RDRI J $ READER INITIALIZE ROUTINE SYTR0203690
006631 5601224310 03700 BA1 RDIE,8 SYTR0203700
006636 5200041710 03710 SA1 0417,8 SYTR0203710
006643 4401070140 03720 SC SEQT+9,0,040 SYTR0203720
006650 2000720403 03730 FT RDR01,3 3 SYTR0203730
006655 5200112303 03740 SA1 EXIT+5,3,3 SYTR0203740
006662 2600145700 03750 PD RL4,16 SYTR0203750
006667 2600147314 03760 PD RL7,12 SYTR0203760
006674 2000120044 03770 FT RDIM1,T3T36 SYTR0203770
006701 4200144744 03780 ST RL2,T36 6 SYTR0203780
006706 2000160045 03790 FT RDIM2,T3T37 SYTR0203790
006713 4200145345 03800 ST RL3,T37 7 SYTR0203800
006720 2000220003 03810 FT RDIM3,3 3 SYTR0203810
006725 5200145703 03820 SA1 RL4,3 SYTR0203820
006732 2000146303 03830 FT RL5,3 SYTR0203830
006737 5200147303 03840 SA1 RL7,3 SYTR0203840
006744 2600205700 03850 PD CL4,16 SYTR0203850
006751 2000204303 03860 FT CL1,3 SYTR0203860
006756 5200206303 03870 SA1 CL5,3 SYTR0203870
006763 2600761401 03880 PD LOOP3+9,9,1 SYTR0203880
006770 1400003102 03890 LC 031,02 SYTR0203890
* 006775 3000700742 03900 JE $+10 JUMP IF SEQUENCE TEST SYTR0203900
007002 4400761440 03910 SC LOOP3+9,9,040 SYTR0203910
007007 6401133001 03920 LS READ1+3,3,01 SET UP 80 COL XLATE READ SYTR0203920
007014 2000650703 03930 FT D199,3 SYTR0203930
* 007021 3000702623 03940 JC $+5,19 SET SI2 FOR XLATE MODE SYTR0203940
007026 1400003101 03950 LC 031,01 SYTR0203950
* 007033 3000705742 03960 JE RDRI2 XLATE MODE SYTR0203960
007040 5401133076 03970 LP READ1+3,3,076 SET UP IMAGE READ SYTR0203970
007045 2000653203 03980 FT D799,3 SYTR0203980
* 007052 3000705726 03990 JC RDRI2,2222 RESET SI2 FOR UNXLATE MODE SYTR0203990
007057 5200752403 04010 RDRI2 SA1 MOD2+3,3,3 SYTR0204010
007064 5201073103 04020 SA1 MOD3+3,3,3 SYTR0204020
007071 2000000517 04030 FT 5,X7 SYTR0204030
007076 2000003111 04040 FT 031,X1 SYTR0204040
* 007103 1000712500 04050 JR SPEED SYTR0204050
* 007110 1001131100 04160 JR READ SYTR0204160
* 007115 3000662400 04200 J RDRI SYTR0204200
* 007122 3000712200 04210 SPEED J $ SET UP SPEED SYTR0204210
007127 5600455405 04220 BA1 HISPD,5 5 SYTR0204220
007134 1420000060 04230 LC 0,060,X1X1 SYTR0204230
* 007141 3000717242 04240 JE $+25 SYTR0204240
007146 5600456105 04250 BA1 LOSPD,5 5 SYTR0204250
007153 1420000020 04260 LC 0,020,X1X1 SYTR0204260
* 007160 3000717242 04270 JE $+10 SYTR0204270
007165 5760456605 04280 BA1 MESPD,5,5,X7 SYTR0204280
007172 5360076405 04290 SA1 SUBTR,5,5,X7 SYTR0204290
* 007177 3000712200 04300 J SPEED SYTR0204300
007204 2600004304 04310 RDR01 PD 043,4 READER ROUTINE ENTRY SYTR0204310
* 007211 3000721632 04320 JC $+5,032 2 SYTR0204320
007216 3400147500 04330 CC EBSY1,0 0 SYTR0204330
* 007223 3000654743 04340 JU RDEL SYTR0204340
* 007230 3000724765 04350 RDR3 JC RDR1,53 3 JUMP IF ROW READER SYTR0204350
007235 3400147600 04360 CC RBSY,0 SYTR0204360
* 007242 3000446143 04370 JU CL01 SYTR0204370
007247 7400204347 04380 RDR1 CT CL1,T39 9 SYTR0204380
* 007254 3000730543 04390 JU RDR2 SYTR0204390
* 007261 3000446165 04400 JC CL01,53 3 JUMP IF ROW READER SYTR0204400
007266 2000446103 04410 FT CL01,3 SYTR0204410
007273 5200041303 04420 SA1 0413,3 SYTR0204420
* 007300 3001123100 04430 J RIR7 SYTR0204430
007305 4600204311 04440 RDR2 BT CL1,X1 SYTR0204440
007312 5600205714 04450 BA1 CL4,12 SYTR0204450
007317 5200205314 04460 SA1 CL3,12 SYTR0204460
007324 4600147312 04470 BT RL7,X2 SYTR0204470
007331 4240000011 04480 ST 0,X1,X2 2 SYTR0204480
007336 5600646004 04490 BA1 B04,4 SYTR0204490
007343 7200206344 04500 SB1 CL5,4 SYTR0204500
007350 7200147304 04510 AB1 RL7,4 SYTR0204510
007355 2600746201 04511 PD RDR02+4,4,1 SYTR0204511
007362 1400331210 04512 LC TS01+1,0,010 SYTR0204512
* 007367 3000740143 04513 JU $+10 JUMP IF 80 READER SYTR0204513
007374 4400746240 04514 SC RDR02+4,4,040 SYTR0204514
007401 5600645002 04520 BA1 QQ,2 SYTR0204520
007406 5620000564 04521 BD2 5,4,X1 SYTR0204521
007413 7020000142 04530 CB1 1,2,X1 SYTR0204530
* 007420 3000752142 04540 JE MOD2 JUMP IF QQ ON LEFT SYTR0204540
007425 5620011764 04620 BD2 79,4,X1 1 SYTR0204620
007432 7020011342 04630 CB1 75,2,X1 1 SYTR0204630
* 007437 3000751466 04640 JC MOD2-5,5,54 JUMP IF XLATE MODE SYTR0204640
007444 5620023764 04650 BD2 159,4,X1X1 SYTR0204650
007451 7020023342 04660 CB1 155,2,X1X1 SYTR0204660
* 007456 3000751440 04662 RDR02 JC MOD2-5,0,040 JUMP IF 80 READER SYTR0204662
007463 5620013164 04663 BD2 89,4,X1 1 SYTR0204663
007470 7020012542 04664 CB1 85,2,X1 1 SYTR0204664
* 007475 3000751465 04665 JC MOD2-5,5,53 JM4P IF ROW READER SYTR0204665
007502 5620015464 04666 BD2 108,4,X1X1 90 _COLUMN_ READER SYTR0204666
007507 7020015042 04667 CB1 104,2,X1X1 SYTR0204667
* 007514 3001062043 04670 JU XCARD JUMP IF QQ NOT ON RIGHT SYTR0204670
007521 2600000064 04680 MOD2 CD2 0,4 D199 OR D799 SYTR0204680
* 007526 3001062041 04690 JG XCARD SYTR0204690
007533 5200013724 04750 SA2 T23,4 SYTR0204750
007540 5600654604 04760 BA1 K7475,4 4 SYTR0204760
007545 7200001724 04770 AB2 017,4 SYTR0204770
* 007552 3001062047 04780 JC XCARD,04047 JUMP IF ID UNDER 03 SYTR0204780
007557 4400760704 04790 SC LOOP3+4,4,4 SYTR0204790
007564 3400003714 04800 CC 037,014 4 SYTR0204800
* 007571 3001062044 04810 JS XCARD JUMP IF DIGIT OVER 14 SYTR0204810
007576 1600003746 04820 BC4 037,6 SYTR0204820
* 007603 3200756404 04830 LOOP3 JL $-15,4 SYTR0204830
* 007610 1001067340 04840 JR SEQT,04040 JUMP IF SEQUENCE TEST SYTR0204840
007615 5201224724 04850 SA2 RCDNO,4 4 SYTR0204850
007622 5201222523 04860 SA2 CRDNO+3,3,3 SYTR0204860
007627 5200206724 04870 SA2 ID1,4 SYTR0204870
007634 2600557501 04890 RDR03 PD DTOB3+4,4,1 SYTR0204890
* 007641 3000765366 04910 JC $+10,54 4 JUMP IF XLATE MODE SYTR0204910
007646 4400557540 04920 SC DTOB3+4,4,040 SYTR0204920
* 007653 1000541600 04960 JR DTOB SYTR0204960
007660 4401056666 04970 SC GETP0-1,1,54 SYTR0204970
007665 2000250014 04980 FT RDTP,X4 4 SYTR0204980
* 007672 1001030600 04990 JR GETP SYTR0204990
007677 2000331214 04991 FT TS01+1,X,X4 SYTR0204991
007704 4401006166 04992 SC RDR5+4,5,54 SYTR0204992
* 007711 1001001000 04993 JR RDR4 SYTR0204993
007716 2000052014 05000 FT COMP,X4 4 TEST PATTERN SYTR0205000
007723 4600004713 05010 BT X1,X3 READER IMAGE SYTR0205010
007730 5600411304 05020 BA1 RDR,4 SYTR0205020
007735 5200210304 05030 SA1 RDERR+3,3,4 SYTR0205030
007742 2017770103 05040 FT E1,3 SYTR0205040
007747 5200630103 05050 SA1 CMPE2+3,3,3 SYTR0205050
007754 2000331212 05051 FT TS01+1,X,X2 SYTR0205051
* 007761 1001015400 05052 JR RDR8 SYTR0205052
* 007766 1000570700 05053 JR CMP SYTR0205053
* 007773 3000446165 05054 JC CL01,53 3 SYTR0205054
* 010000 3000726600 050540 J RDR1+15 5 SYTR02050540
* 010005 3001000500 05055 RDR4 J $ SYTR0205055
010012 5600645002 05056 BA1 QQ,2 SYTR0205056
010017 5600013724 05057 BA2 T23,4 SYTR0205057
010024 1400003501 05058 LC 035,01 SYTR0205058
* 010031 3001005543 05059 JU RDR5 JUMP IF QQ NOT ON LEFT SYTR0205059
010036 5200052102 05060 SA1 COMP+1,2,2 SYTR0205060
010043 5200052524 05061 SA2 COMP+5,4,4 SYTR0205061
* 010050 3001000500 05062 J RDR4 SYTR0205062
* 010055 3001011366 05063 RDR5 JC RDR6,54 4 JUMP IF XLATE MODE SYTR0205063
010062 1500000010 05064 LC 0,010,X4X4 SYTR0205064
* 010067 3001013243 05065 JU RDR6+15 5 JUMP IF 80 RDR/PCH SYTR0205065
010074 5200064502 05067 SA1 COMP+85,5,2 SYTR0205067
010101 5200065124 05068 SA2 COMP+89,9,4 SYTR0205068
* 010106 3001000500 05069 J RDR4 SYTR0205069
010113 5200063302 05070 RDR6 SA1 COMP+75,5,2 SYTR0205070
010120 5200063724 05071 SA2 COMP+79,9,4 SYTR0205071
* 010125 3001000500 05072 J RDR4 SYTR0205072
010132 5200075302 05073 SA1 COMP+15555,2 SYTR0205073
010137 5200075724 05074 SA2 COMP+15959,4 SYTR0205074
* 010144 3001000500 05075 J RDR4 SYTR0205075
* 010151 3001015100 05079 RDR8 J $ SYTR0205079
010156 1440000010 05080 LC 0,010,X2X2 SYTR0205080
* 010163 3001015143 05081 JU RDR8 JUMP IF 80 RDR/PCH SYTR0205081
* 010170 3001025765 05082 JC RDR9,53 3 JUMP IF 90 ROW RDR/PCH SYTR0205082
010175 2100013220 05083 FT 90,16,X4X4 SYTR0205083
010202 2000002322 05084 FT 19,18 SYTR0205084
010207 2500010701 05085 TFR 71,,X4 SYTR0205085
010214 2100010720 05086 FT 71,16,X4X4 SYTR0205086
010221 2500006401 05087 TFR 52,,X4 SYTR0205087
010226 5700006307 05088 BA1 51,7,X4 4 SYTR0205088
010233 5300010607 050880 SA1 70,7,X4 4 SYTR02050880
010240 4400622040 050881 SC CMPE5+4,4,040 SYTR02050881
010245 4400576507 05089 SC LOOP+4,7,7 SYTR0205089
* 010252 3001015100 05090 J RDR8 SYTR0205090
010257 2660013706 05091 RDR9 PD 95,6,X3 3 SYTR0205091
010264 2700013706 05092 PD 95,6,X4 4 SYTR0205092
010271 4400576506 05093 SC LOOP+4,6,6 SYTR0205093
* 010276 3001015100 05094 J RDR8 SYTR0205094
* 010303 3001030300 05100 GETP J $ GENERATE TEST PATTERN SYTR0205100
010310 4400576505 05110 SC LOOP+4,5,5 SYTR0205110
010315 2100000020 05120 FT 0,16,X4 4 SYTR0205120
010322 3400207001 05130 CC ID2-3,1 1 SYTR0205130
* 010327 3001053141 05140 JG GETP1 JUMP IF TP1 SYTR0205140
* 010334 3001047342 05150 JE GETP2 JUMP IF TP2 SYTR0205150
010341 3400207003 05160 CC ID2-3,3 3 SYTR0205160
* 010346 3001043541 05170 JG GETP3 JUMP IF TP3 SYTR0205170
010353 4500000052 05180 GETP4 SC 0,052,X4X4 I.E.,TP4 SYTR0205180
010360 2000005022 05190 FT 40,18 SYTR0205190
010365 2100000120 05200 FT 1,16,X4 4 SYTR0205200
010372 2500000021 05210 TFI 0,,X4 SYTR0205210
010377 4500005025 05220 SC 40,025,X,X4 SYTR0205220
010404 2500005021 05230 TFI 40,,X4 SYTR0205230
010411 2700012001 05240 PD 80,1,X4 4 SYTR0205240
010416 2000011722 05250 FT 79,18 SYTR0205250
010423 2500012001 05260 TFR 80,,X4 SYTR0205260
* 010430 3001056700 05270 J GETP0 SYTR0205270
010435 5600506304 05280 GETP3 BA1 TP3,4 SYTR0205280
010442 5300000304 05290 SA1 3,4,X4 SYTR0205290
010447 2100000420 05300 FT 4,16,X4 4 SYTR0205300
010454 2000023422 05310 FT 156,18 SYTR0205310
010461 2500000001 05320 TFR 0,,X4 SYTR0205320
* 010466 3001056700 05330 J GETP0 SYTR0205330
010473 2000006422 05340 GETP2 FT 52,18 SYTR0205340
010500 2400477421 05350 TFI TP2 SYTR0205350
010505 2400477421 05360 TFI TP2 SYTR0205360
010512 2400477421 05370 TFI TP2 SYTR0205370
010517 2700023704 05371 PD 159,4,X4X4 SYTR0205371
* 010524 3001056700 05380 J GETP0 SYTR0205380
010531 2000010022 05390 GETP1 FT 64,18 SYTR0205390
010536 2400467421 05400 TFI TP1 SYTR0205400
010543 2400467421 05410 TFI TP1 SYTR0205410
010550 2000004022 05420 FT 32,18 SYTR0205420
010555 2400467401 05430 TFR TP1 SYTR0205430
* 010562 3001057466 05440 JC $+10,54 4 JUMP IF XLATE MODE SYTR0205440
010567 4400576512 05460 GETP0 SC LOOP+4,1,10 SYTR0205460
010574 2100000021 05470 FT 0,17,X4 4 SYTR0205470
010601 2000024007 05480 FT 160,7 SYTR0205480
* 010606 1000562000 05490 JR SETUP SYTR0205490
* 010613 3001030300 05500 J GETP SYTR0205500
010620 5601224704 05510 XCARD BA1 RCDNO,4 4 WRONG CARD DETECTED SYTR0205510
010625 5200467304 05520 SA1 WRONG+2828,4 SYTR0205520
010632 4401204735 05530 SC CCT+3,2929 SYTR0205530
010637 2017777703 05540 FT E77,3 SYTR0205540
010644 2000463707 05550 FT WRONG,7 7 SYTR0205550
* 010651 1001172200 05560 JR PRINT SYTR0205560
* 010656 3000441133 05570 JC CNTRL,03033 SYTR0205570
010663 2600117204 05580 PD SEQNO,4 4 SYTR0205580
* 010670 3001067000 05590 SEQT J $ SEQUENCE TEST SYTR0205590
* 010675 3001071440 05600 JC $+15,04040 SYTR0205600
010702 2601070101 05610 PD $-1,1 SYTR0205610
010707 5200117224 05620 SA2 SEQNO,4 4 SYTR0205620
010714 2600117264 05630 CD2 SEQNO,4 4 SYTR0205630
* 010721 3001075743 05640 JU SEQER SYTR0205640
010726 2600000064 05650 MOD3 CD2 0,4 D199 OR D799 SYTR0205650
* 010733 3001066342 05660 JE SEQT-5 SYTR0205660
010740 5600647444 05670 BD1 D1000-3,3,4 SYTR0205670
010745 6200117204 05680 AM1 SEQNO,4 4 SYTR0205680
* 010752 3001067000 05690 J SEQT SYTR0205690
010757 5200335624 05700 SEQER SA2 SEQM+29,9,4 CARD NO READ SYTR0205700
010764 5600117204 05710 BA1 SEQNO,4 4 SYTR0205710
010771 5200337504 05720 SA1 SEQM+44,4,4 CARD NO EXPECTED SYTR0205720
010776 5200117224 05730 SA2 SEQNO,4 4 SYTR0205730
011003 4401204755 05740 SC CCT+3,4545 SYTR0205740
011010 2017771303 05750 FT E13,3 SYTR0205750
011015 2000332107 05760 FT SEQM,7 SYTR0205760
* 011022 1001172200 05770 JR PRINT SYTR0205770
011027 5600647444 05780 BD1 D1000-3,3,4 SYTR0205780
011034 6200117204 05790 AM1 SEQNO,4 4 SYTR0205790
* 011041 3000441133 05800 JC CNTRL,03033 SYTR0205800
* 011046 1001162100 05810 RIR JR STORE READER INTERRUPT ROUTINE SYTR0205810
011053 4020001154 05820 XF 0,01154,4,0,1 SYTR0205820
* 011060 3001151053 05830 JC RIR10,4343 SYTR0205830
* 011065 3001110465 05840 RIR1 JC $+15,53 3 JUMP IF ROW READER SYTR0205840
011072 4020000020 05850 XF 0,020,0,0,1 SYTR0205850
* 011077 3001151053 05860 JC RIR10,4343 SYTR0205860
011104 4020006000 05870 XF 0,06000,0,0,1 SYTR0205870
* 011111 3001143353 05880 JC RIR6,43 3 SYTR0205880
011116 2600147602 05890 PD RBSY,2 SYTR0205890
011123 7400144347 05900 CT RL1,T39 9 SYTR0205900
* 011130 1001134243 05910 JR RIR4,35 5 SYTR0205910
011135 5600144704 05920 BA1 RL2,4 SYTR0205920
011142 5200144304 05930 SA1 RL1,4 SYTR0205930
011147 2600144704 05940 PD RL2,4 SYTR0205940
011154 4020000020 05950 XF 0,020,0,0,1 SYTR0205950
* 011161 3001140253 05960 JC RIR5,43 3 SYTR0205960
011166 7400144347 05970 CT RL1,T39 9 SYTR0205970
* 011173 1001134243 05980 JR RIR4,35 5 SYTR0205980
011200 5600144704 05990 BA1 RL2,4 SYTR0205990
011205 5200144304 06000 SA1 RL1,4 SYTR0206000
011212 2600144704 06010 PD RL2,4 SYTR0206010
011217 7400145347 06020 CT RL3,T39 9 SYTR0206020
* 011224 3001127442 06030 JE RIR8 SYTR0206030
011231 4600145344 06040 RIR7 BT RL3,T36 6 SYTR0206040
011236 4200144744 06050 ST RL2,T36 6 SYTR0206050
011243 5600146714 06060 RIR2 BA1 RL6,12 SYTR0206060
011250 5200146314 06070 SA1 RL5,12 SYTR0206070
011255 5600646004 06080 BA1 B04,4 SYTR0206080
011262 7200147344 06090 SB1 RL7,4 SYTR0206090
* 011267 1001131100 06100 JR READ SYTR0206100
* 011274 1001165700 06130 RIR8 JR REST SYTR0206130
* 011301 3000041000 06140 J 0410 SYTR0206140
* 011306 3001130600 06141 READ J $ SYTR0206141
011313 4020406000 06142 XF 040,0600000,0,1 SYTR0206142
011320 4400147601 06143 SC RBSY,1 SYTR0206143
011325 4020010000 06144 READ1 XF 01,0,0,1,1 SYTR0206144
* 011332 3001130600 06145 J READ SYTR0206145
* 011337 3001133700 06150 RIR4 J $ SYTR0206150
011344 4600206311 06160 BT CL5,X1 SYTR0206160
011351 5600144304 06170 BA1 RL1,4 SYTR0206170
011356 5220000004 06180 SA1 0,4,X1 SYTR0206180
011363 5600646004 06190 BA1 B04,4 SYTR0206190
011370 7200206304 06200 AB1 CL5,4 SYTR0206200
* 011375 3001133700 06210 J RIR4 SYTR0206210
011402 7400145347 06220 RIR5 CT RL3,T39 9 SYTR0206220
* 011407 3001127442 06230 JE RIR8 SYTR0206230
011414 4600145345 06240 BT RL3,T37 7 SYTR0206240
011421 4200144745 06250 ST RL2,T37 7 SYTR0206250
* 011426 3001124300 06260 J RIR2 SYTR0206260
* 011433 3001151064 06270 RIR6 JC RIR10,5252 MOA,UBSY ERRORS IF SS3 SET SYTR0206270
* 011440 3001145265 06271 JC $+10,53 3 JUMP IF ROW READER SYTR0206271
* 011445 3001126700 06272 J RIR8-5 COLUMN READER SYTR0206272
011452 4020000020 06280 XF 0,020,0,0,1 SYTR0206280
* 011457 3001126753 06290 JC RIR8-5,4,43 SYTR0206290
011464 7400022345 06300 CT T36,T37 7 SYTR0206300
* 011471 3001126742 06310 JE RIR8-5 SYTR0206310
011476 4200022345 06320 ST T36,T37 7 SYTR0206320
* 011503 3001126700 06330 J RIR8-5 SYTR0206330
011510 4400147501 06360 RIR10 SC EBSY1,1 1 06360
011515 4400526720 06370 SC GEN02+1,1,020 CHECK READER INDICATORS SYTR0206370
011522 4400526640 06380 SC GEN02,3232 SYTR0206380
011527 5600411304 06390 BA1 RDR,4 SYTR0206390
011534 4400534201 06400 SC GEN05+4,4,1 SYTR0206400
* 011541 1000521400 06410 JR GEN01 SYTR0206410
011546 4020407777 06420 RIR3 XF 040,0777777,0,1 SYTR0206420
011553 2000657303 06430 FT RDRST,3 3 SYTR0206430
011560 5200112303 06440 SA1 EXIT+5,3,3 SYTR0206440
011565 2600004304 06450 PD 043,4 SYTR0206450
011572 7600645410 06460 AT B01,8 SYTR0206460
011577 3400004207 06470 CC 042,07 SYTR0206470
* 011604 3001157244 06480 JS $-10 SYTR0206480
* 011611 3001127400 06490 J RIR8 193.5 US LOOP,TOTAL 86.69 MS SYTR0206490
* 011616 3001161600 06500 STORE J $ SYTR0206500
* 011623 3000147451 06510 JC LI,41 SYTR0206510
011630 5200247761 06520 SAR STAR SYTR0206520
011635 5600006300 06530 BA1 X4,16 SYTR0206530
011642 5200327300 06540 SA1 IR4,16 SYTR0206540
* 011647 3001161600 06550 J STORE SYTR0206550
* 011654 3001165400 06560 REST J $ SYTR0206560
* 011661 3000147452 06570 JC LI,42 SYTR0206570
011666 5600327300 06580 BA1 IR4,16 SYTR0206580
011673 5200006300 06590 SA1 X4,16 SYTR0206590
011700 5600245700 06600 BA1 STAR-16,6,16 SYTR0206600
011705 5600247720 06610 BA2 STAR,16 6 SYTR0206610
* 011712 3001165400 06620 J REST SYTR0206620
* 011717 3001171700 06630 PRINT J $ ERROR PRINT-OUT ROUTINE SYTR0206630
011724 6400001510 06640 LS 015,010 0 SYTR0206640
011731 5201217403 06650 SA1 STOP+3,3,3 SYTR0206650
* 011736 3001213362 06660 JC EPR2,50 0 IF SS1 SET, DO NOT PRINT SYTR0206660
011743 2600020701 06670 PD T33,1 SYTR0206670
011750 4000406000 06680 EPR1 XF 040,0600000,0,0 SYTR0206680
011755 4000600000 06690 XF 060,0,0,0,0 SYTR0206690
011762 4000001777 06700 XF 0,01777,7,0,0 SYTR0206700
* 011767 3001215253 06710 JC EPR2+15,5,43 SYTR0206710
011774 4000006000 06720 XF 0,06000,0,0,0 SYTR0206720
* 012001 3001175053 06730 JC EPR1,43 3 SYTR0206730
012006 5201205423 06740 SA2 MSG+3,3 3 SYTR0206740
012013 2600370001 06750 PD PRIM,1 SYTR0206750
012020 2000370120 06760 FT PRIM+1,1,16 SYTR0206760
012025 2000007722 06770 FT 63,18 SYTR0206770
012032 2400370001 06780 TFR PRIM SYTR0206780
012037 2000370020 06790 FT PRIM,16 6 SYTR0206790
012044 2000000022 06800 CCT FT 0,18 SYTR0206800
012051 2400000001 06810 MSG TFR 0 SYTR0206810
012056 4400020702 06820 SC T33,2 SYTR0206820
012063 2000370040 06830 FT PRIM,T3232 SYTR0206830
012070 4000406000 06840 XF 040,0600000,0,0 SYTR0206840
012075 4000620400 06850 EPR XF 062,040000,0,0 SYTR0206850
012102 4000001777 06860 XF 0,01777,7,0,0 SYTR0206860
* 012107 3001215253 06870 JC EPR2+15,5,43 SYTR0206870
012114 4000006000 06880 XF 0,06000,0,0,0 SYTR0206880
* 012121 3001207053 06890 JC EPR-5,4343 SYTR0206890
012126 4000600400 06900 XF 060,040000,0,0 SYTR0206900
* 012133 3001217163 06910 EPR2 JC STOP,51 1 IF SS2 SET, STOP SYTR0206910
012140 2601220701 06920 PD STOP+14,4,1 SYTR0206920
* 012145 3001171700 06930 J PRINT SYTR0206930
* 012152 3001217160 06940 JD STOP JUMP TO IGNORE PRINT-OUT SYTR0206940
012157 4000407777 06950 XF 040,0777777,0,0 SYTR0206950
* 012164 3001174300 06960 J EPR1-5 SYTR0206960
* 012171 3000000060 06970 STOP JD 0 ERROR DISPLAY STOP SYTR0206970
012176 4401173010 06980 SC PRINT+9,9,010 SYTR0206980
* 012203 3001171700 06990 JC PRINT,0 0 SYTR0206990
* 012210 3000000060 07000 CHRNO JD 0 CHARACTER NUMBER SYTR0207000
* 012215 3000000060 07010 CHARS JD 0 CHARACTER READ)EXPECTED SYTR0207010
* 012222 3000000060 07020 CRDNO JD 0 CARD NUMBER SYTR0207020
* 012227 3001214000 07030 J EPR2+5 SYTR0207030
* 012234 3000000031 07040 JC 0,25 SYTR0207040
012243 011046 07050 RDIE +3 RIR SYTR0207050
012247 00000000 07060 RCDNO +4 0 READER CARD NUMBER SYTR0207060
000047 07070 X1 EQU 047 SYTR0207070
000053 07080 X2 EQU X1+4 SYTR0207080
000057 07090 X3 EQU X2+4 SYTR0207090
000063 07100 X4 EQU X3+4 SYTR0207100
000067 07110 X5 EQU X4+4 SYTR0207110
000073 07120 X6 EQU X5+4 SYTR0207120
000077 07130 X7 EQU X6+4 SYTR0207130
000123 07140 T20 EQU 0123 SYTR0207140
000127 07150 T21 EQU T20+4 SYTR0207150
000133 07160 T22 EQU T21+4 SYTR0207160
000137 07170 T23 EQU T22+4 SYTR0207170
000143 07180 T24 EQU T23+4 SYTR0207180
000147 07190 T25 EQU T24+4 SYTR0207190
000153 07200 T26 EQU T25+4 SYTR0207200
000157 07210 T27 EQU T26+4 SYTR0207210
000163 07220 T28 EQU T27+4 SYTR0207220
000167 07230 T29 EQU T28+4 SYTR0207230
000173 07240 T30 EQU T29+4 SYTR0207240
000177 07250 T31 EQU T30+4 SYTR0207250
000203 07260 T32 EQU T31+4 SYTR0207260
000207 07270 T33 EQU T32+4 SYTR0207270
000213 07280 T34 EQU T33+4 SYTR0207280
000217 07290 T35 EQU T34+4 SYTR0207290
000223 07300 T36 EQU 0223 SYTR0207300
000227 07310 T37 EQU T36+4 SYTR0207310
000233 07320 T38 EQU T37+4 SYTR0207320
000237 07330 T39 EQU T38+4 SYTR0207330
000243 07340 T40 EQU T39+4 SYTR0207340
000247 07350 T41 EQU T40+4 SYTR0207350
000253 07360 T42 EQU T41+4 SYTR0207360
000257 07370 T43 EQU T42+4 SYTR0207370
000317 07380 T51 EQU 0317 SYTR0207380
000337 07390 T55 EQU T51+16 SYTR0207390
000343 07391 T56 EQU T55+4 SYTR0207391
000347 07392 T57 EQU T56+4 SYTR0207392
000357 07393 T59 EQU T57+8 SYTR0207393
000373 07400 T62 EQU 0373 SYTR0207400
000377 07410 T63 EQU T62+4 SYTR0207410
* 012250 3001225533 07420 PDEL JC $+5,033 3 PUNCH DELAY LOOP SYTR0207420
012255 7600645431 07430 AT B01,T25 5 SYTR0207430
012262 3400014657 07440 CC T25-1,05057 SYTR0207440
* 012267 3001254141 07450 JG PCH01+5 5 360 US LOOP, TOTAL 1.08 SEC SYTR0207450
012274 4040007777 07460 PURST XF 0,07777,7,0,2 PUNCH RESTART SYTR0207460
* 012301 3000446153 07470 JC CL01,43 3 SYTR0207470
012306 5600332031 07480 BA2 TS01+7,9,9 SYTR0207480
* 012313 1001233032 07490 JR PCHI,03232 SYTR0207490
* 012320 3000441133 07500 JC CNTRL,03033 SYTR0207500
* 012325 3001232500 07510 PCHI J $ PUNCH INITIALIZE ROUTINE SYTR0207510
012332 4401273040 07520 SC PUORD+9,9,040 SYTR0207520
012337 6401272210 07530 LS PUORD+3,3,010 SELECT ERR STACK 1ST TIME SYTR0207530
012344 2601310601 07540 PD PIR+9,1 1 SET UP 1ST CARD IGNORE SYTR0207540
012351 2601313701 07550 PD PIR2+4,1,1 OMIT POST-PUNCH CHECK SYTR0207550
012356 1400003202 07560 LC 032,2 CHECK FOR POST-PUNCH READ SYTR0207560
* 012363 3001237542 07570 JE $+10 NO SYTR0207570
012370 4401313740 07580 SC PIR2+4,0,040 YES SYTR0207580
012375 6401334001 07590 LS PIR6+8,0,01 SET UP XLATE MODE SYTR0207590
012402 6401272201 07600 LS PUORD+3,3,01 SYTR0207600
* 012407 3001241424 07610 JC $+5,20 SET SI3 FOR XLATE MODE SYTR0207610
012414 1400003201 07620 LC 032,01 SYTR0207620
* 012421 3001244542 07630 JE $+20 SYTR0207630
012426 5401334076 07640 LP PIR6+8,0,076 SYTR0207640
012433 5401272276 07650 LP PUORD+3,3,076 SYTR0207650
* 012440 3001244527 07660 JC $+5,23 RESET SI3 FOR IMAGE MODE SYTR0207660
012445 2001253403 07670 FT PCH01,3 3 SYTR0207670
012452 5200113003 07680 SA1 EXIT+10,0,3 SYTR0207680
012457 2000001217 07690 FT 10,X7 SYTR0207690
012464 2000003211 07700 FT 032,X1 SYTR0207700
* 012471 1000712500 07710 JR SPEED SYTR0207710
012476 2600025704 07720 PD T43,4 SYTR0207720
012503 2600325101 07730 PD PUBSY,1 1 SYTR0207730
012510 2600410730 07740 PD0 PCDNO,8 8 SYTR0207740
012515 4400410345 07750 SC PCDNO-4,4,045 SYTR0207750
012522 2000340051 07760 FT PPRI,T4141 SYTR0207760
* 012527 3001232500 07770 J PCHI SYTR0207770
012534 2600014704 07780 PCH01 PD T25,4 PUNCH ROUTINE ENTRY SYTR0207780
* 012541 3001254632 07790 JC $+5,032 2 SYTR0207790
012546 3400325100 07791 CC PUBSY,0 0 SYTR0207791
* 012553 3001257242 07792 JE $+15 SYTR0207792
012560 3400325000 07800 CC EBSY2,0 0 SYTR0207800
* 012565 3001225043 07810 JU PDEL SYTR0207810
* 012572 1001544100 07820 JR TAPR1 SYTR0207820
* 012577 3001261100 07830 J PCH02+5 5 SYTR0207830
012604 2600410724 07870 PCH02 PD0 PCDNO,4 4 SYTR0207870
012611 5600410744 07880 BD1 PCDNO,4 4 SYTR0207880
012616 2600650744 07890 CD1 D199,4 SYTR0207890
* 012623 3001263567 07900 JC $+10,55 5 JUMP IF XLATE MODE SYTR0207900
012630 2600653244 07910 CD1 D799,4 SYTR0207910
* 012635 3001260441 07920 JG PCH02 SYTR0207920
* 012642 1001275300 07930 JR PCH03 SYTR0207930
012647 5600647444 07940 BD1 D1000-3,3,4 SYTR0207940
012654 6200410704 07950 AM1 PCDNO,4 4 INCREMENT CARD NUMBER SYTR0207950
012661 6200410304 07960 AM1 PCDNO-4,4,4 SYTR0207960
012666 2000300050 07970 FT TPIM,T4040 SYTR0207970
012673 2000300014 07971 FT TPIM,X4 4 SYTR0207971
012700 2000331312 07972 FT TS01+2,X,X2 SYTR0207972
* 012705 1001015400 07973 JR RDR8 SYTR0207973
012712 4400325101 07980 SC PUBSY,1 1 SYTR0207980
012717 4040030000 07990 PUORD XF 03,0,0,2,2 SYTR0207990
* 012724 3001274340 08000 JC $+15,04040 SYTR0208000
012731 2601273001 08010 PD $-1,1 SYTR0208010
012736 5401272267 08020 LP PUORD+3,3,067 DELETE ERR STACK SELECTION SYTR0208020
* 012743 3000441133 08030 JC CNTRL,03033 SYTR0208030
* 012750 3001275000 08040 PCH03 J $ GENERATE PUNCH IMAGE SYTR0208040
012755 5200206704 08180 SA1 ID1,4 SYTR0208180
012762 2600557501 08200 PD DTOB3+4,4,1 SYTR0208200
* 012767 3001300167 08220 JC $+10,55 5 JUMP IF XLATE MODE SYTR0208220
012774 4400557540 08230 SC DTOB3+4,4,040 SYTR0208230
* 013001 1000541600 08270 JR DTOB SYTR0208270
013006 4401056667 08280 SC GETP0-1,1,55 SYTR0208280
013013 2000300014 08290 FT TPIM,X4 4 SYTR0208290
* 013020 1001030600 08300 JR GETP SYTR0208300
013025 4600206727 08301 BT ID1,T23 3 SYTR0208301
013032 2000331314 08302 FT TS01+2,X,X4 SYTR0208302
013037 4401006167 08303 SC RDR5+4,5,55 SYTR0208303
* 013044 1001001000 08304 JR RDR4 SYTR0208304
013051 2000052021 08310 FT COMP,17 7 SYTR0208310
013056 2000024022 08320 FT 160,18 SYTR0208320
013063 2400300041 08330 TTR TPIM SYTR0208330
* 013070 3001275000 08340 J PCH03 SYTR0208340
* 013075 1001162100 08350 PIR JR STORE PUNCH INTERRUPT ROUTINE SYTR0208350
* 013102 3001327240 08360 JC PIR5,04040 JUMP IF 1ST CARD SYTR0208360
013107 4040001340 08370 XF 00,0134040,0,2 SYTR0208370
* 013114 3001335453 08380 JC PIR7,43 3 SYTR0208380
013121 4040006000 08390 PIR1 XF 0,06000,0,0,2 SYTR0208390
* 013126 3001333053 08400 JC PIR6,43 3 SYTR0208400
* 013133 3001327240 08410 PIR2 JC PIR5,04040 JUMP IF NO POST-PUNCH CHECK SYTR0208410
013140 5600410344 08420 BD1 PCDNO-4,4,4 SYTR0208420
013145 2600650344 08430 CD1 D200,4 SYTR0208430
* 013152 3001316467 08440 JC $+10,55 5 JUMP IF XLATE MODE SYTR0208440
013157 2600653644 08450 CD1 D800,4 SYTR0208450
* 013164 3001320344 08460 JS $+15 SYTR0208460
013171 2600410324 08470 PD0 PCDNO-4,4,4 SYTR0208470
013176 2600001724 08480 PD0 017,4 SYTR0208480
013203 5201222503 08481 SA1 CRDNO+3,3,3 SYTR0208481
* 013210 1001275300 08490 JR PCH03 SYTR0208490
013215 2000340013 08500 FT PPRI,X3 3 POST-PUNCH IMAGE SYTR0208500
013222 2000300014 08510 FT TPIM,X4 4 TEST PATTERN SYTR0208510
013227 5600411704 08550 BA1 PCH,4 SYTR0208550
013234 5200210304 08560 SA1 RDERR+3,3,4 SYTR0208560
013241 2017770203 08670 FT E2,3 SYTR0208670
013246 5200630103 08680 SA1 CMPE2+3,3,3 SYTR0208680
013253 2000331312 08681 FT TS01+2,X,X2 SYTR0208681
* 013260 1001015400 08682 JR RDR8 SYTR0208682
* 013265 1000570700 08690 JR CMP SYTR0208690
013272 4401310640 08700 PIR5 SC PIR+9,04040 SYTR0208700
013277 2600325001 08710 PD EBSY2,1 1 SYTR0208710
013304 2600325101 08720 PD PUBSY,1 1 SYTR0208720
013311 4040407777 08730 XF 040,0777777,0,2 SYTR0208730
* 013316 1001165700 08740 JR REST SYTR0208740
* 013323 3000042000 08750 J 0420 PUNCH INTERRUPT EXIT SYTR0208750
* 013330 3001335464 08760 PIR6 JC PIR7,52 2 MOA,UBSY ERRORS IF SS3 SET SYTR0208760
013335 4040406000 08770 XF 040,0600000,0,2 SYTR0208770
013342 4040630000 08780 XF 063,0,0,0,2 SYTR0208780
* 013347 3001310700 08790 J PIR+10 SYTR0208790
013354 3400325001 08800 PIR7 CC EBSY2,1 1 SYTR0208800
* 013361 3001330442 08810 JE PIR5+10 0 SYTR0208810
013366 4400325001 08820 SC EBSY2,1 1 SYTR0208820
013373 4400526640 08830 SC GEN02,04040 SYTR0208830
013400 4400526740 08840 SC GEN02+1,1,32 SYTR0208840
013405 5600411704 08850 BA1 PCH,4 SYTR0208850
013412 4400534202 08860 SC GEN05+4,4,2 SYTR0208860
* 013417 1000521400 08870 JR GEN01 SYTR0208870
013424 4040000140 08880 XF 0,0140,0,0,2 HOLE COUNT OR PARITY ERROR SYTR0208880
* 013431 3001313353 08890 JC PIR2,43 3 SYTR0208890
013436 2001227403 08900 FT PURST,3 3 SYTR0208900
013443 5200113003 08910 SA1 EXIT+10,0,3 SYTR0208910
* 013450 3001330400 08920 J PIR5+10 0 SYTR0208920
* 013455 3001345500 08930 HSPI J $ PRINTER 0 INITIALIZE SYTR0208930
013462 2000000017 08940 FT 0,X7 SYTR0208940
013467 2000003011 08950 FT 030,X1 SYTR0208950
* 013474 1000712500 08960 JR SPEED SYTR0208960
013501 2001353203 08980 FT PRT01,3 3 SYTR0208980
013506 5200111603 08990 SA1 EXIT,3 SYTR0208990
013513 2600021710 09000 PD T35,8 SYTR0209000
013520 4401426600 09010 SC PRORD+3,3,0 SYTR0209010
* 013525 3001345500 09020 J HSPI SYTR0209020
* 013532 3001353732 09030 PRT01 JC $+5,032 2 PRINTER ROUTINE ENTRY CH0 SYTR0209030
013537 3401447200 09040 CC PBSY,0 SYTR0209040
* 013544 3000446143 09050 JU CL01 SYTR0209050
013551 3401517400 09051 CC PBSY7,0 0 SYTR0209051
* 013556 3000446143 09052 JU CL01 CHANNEL 7 PRINTER BUSY SYTR0209052
013563 3400021703 09060 CC T35,03 SYTR0209060
* 013570 3001400442 09070 JE PRT08+1010 SYTR0209070
013575 2000770103 09080 FT 07701,3 3 SYTR0209080
013602 5200020602 09090 SA1 NLF,2 SYTR0209090
013607 4600021336 09100 BT T34,T30 0 SYTR0209100
013614 4600021737 09110 BT T35,T31 1 SYTR0209110
013621 4401412340 09120 SC GTP3+4,0,040 SYTR0209120
013626 4401377140 09130 SC PRT08-1,1,040 SYTR0209130
* 013633 1001366200 09140 JR GTP SYTR0209140
013640 4200021336 09150 PRT02 ST T34,T30 0 SYTR0209150
013645 4200021737 09160 ST T35,T31 1 SYTR0209160
* 013652 3000441133 09170 JC CNTRL,03033 SYTR0209170
* 013657 3001365700 09180 GTP J $ GENERATE TEST PATTERN SYTR0209180
013664 5600645402 09190 BA1 B01,2 SYTR0209190
013671 7400647036 09200 CT B128,T3030 LINE COUNTER)128 SYTR0209200
* 013676 3001373443 09210 JU GTP1 CONTINUE SAME PATTERN SYTR0209210
013703 2600017304 09220 PD T30,4 CLEAR LINE COUNTER SYTR0209220
013710 3400017700 09230 CC T31,0 SYTR0209230
* 013715 3001372742 09240 JE $+10 SYTR0209240
013722 7200017501 09250 AB1 T31-2,1 1 NEXT VARIABLE CHARACTER SYTR0209250
013727 6000017701 09260 AC T31,1 STEP PATTERN COUNTER SYTR0209260
013734 2600370001 09270 GTP1 PD PRIM,1 SYTR0209270
013741 3400017702 09280 CC T31,2 SYTR0209280
* 013746 3001404241 09290 JG GTP2 JUMP IF XLATE OR BLANK TP SYTR0209290
013753 4400370072 09300 SC PRIM,07272 STORE X SYTR0209300
* 013760 3001405442 09310 JE GTP2+10 0 JUMP IF _X_ TEST PATTERN SYTR0209310
* 013765 3001470200 09320 JC PRT78,0 0 _X_ TEST PATTERN FINISHED SYTR0209320
013772 4401426604 09330 PRT08 SC PRORD+3,3,4 SET UP HALF-LINE PRINT SYTR0209330
013777 4401401506 09340 SC LOOP4+4,4,06 SYTR0209340
014004 1600020661 09350 BC2 NLF,1 SYTR0209350
* 014011 3201412400 09360 LOOP4 JL GTP3+5,0,0 SYTR0209360
014016 2601426601 09370 PD PRORD+3,3,1 SET UP FULL-LINE PRINT SYTR0209370
014023 4400020631 09380 SC NLF,031 1 SYTR0209380
014030 2600017701 09390 PD T31,1 SYTR0209390
* 014035 3001412400 09400 J GTP3+5 SYTR0209400
014042 3400017700 09410 GTP2 CC T31,0 SYTR0209410
* 014047 3001413642 09420 JE GTP4 JUMP IF XLATE TEST PATTERN SYTR0209420
014054 4200004736 09430 ST X1,T30 SET UP BLANK OR _X_ PATTERN SYTR0209430
014061 2000370120 09440 FT PRIM+1,1,16 SYTR0209440
014066 2000017722 09450 FT 127,18 SYTR0209450
014073 2400370001 09460 TFR PRIM SYTR0209460
014100 5600017501 09470 BA1 T31-2,1 1 VARIABLE CHARACTER SYTR0209470
014105 5220370001 09480 SA1 PRIM,1,X,X1 SYTR0209480
014112 7600645436 09490 AT B01,T30 0 STEP LINE COUNTER SYTR0209490
* 014117 3001467040 09500 GTP3 JC PRT73,04040 SKIP FOR CH0,JUMP FOR CH7 SYTR0209500
* 014124 1001423500 09510 JR PRT05 SYTR0209510
* 014131 3001364000 09520 J PRT02 SYTR0209520
014136 2000370020 09530 GTP4 FT PRIM,16 6 SYTR0209530
014143 2000010022 09540 FT 64,18 SYTR0209540
014150 2400467421 09550 TFI TP1 SYTR0209550
014155 2400467401 09560 TFR TP1 SYTR0209560
014162 4200207736 09570 ST ID3,T30 0 SYTR0209570
014167 2000370021 09590 FT PRIM,17 7 SYTR0209590
014174 2000020007 09600 FT 128,7 SYTR0209600
* 014201 1000562000 09620 JR SETUP SYTR0209620
014206 2000052021 09630 FT COMP,17 7 SYTR0209630
014213 2000020022 09640 FT 128,18 SYTR0209640
014220 2400370041 09650 TTR PRIM SYTR0209650
* 014225 3001411200 09660 J GTP3-5 SYTR0209660
* 014232 3001423200 09670 PRT05 JC $,0 SYTR0209670
014237 2000370040 09680 FT PRIM,32 2 SYTR0209680
014244 5600020601 09690 BA1 NLF,1 SYTR0209690
014251 5200020701 09700 SA1 135,1 SYTR0209700
014256 4401447201 09710 SC PBSY,1 SYTR0209710
014263 4000020000 09720 PRORD XF 02,0,0,0,0 SYTR0209720
* 014270 3001423200 09730 J PRT05 SYTR0209730
* 014275 1001162100 09740 PRIR JR STORE PRINTER INTERRUPT RTN CH0 SYTR0209740
014302 3401447200 09750 CC PBSY,0 SYTR0209750
* 014307 3001434542 09760 JE PRIR1-1010 SYTR0209760
014314 4000001362 09770 XF 0,01362,2,0,0 SYTR0209770
* 014321 3001435753 09780 JC PRIR1,4343 SYTR0209780
014326 4000006000 09790 XF 0,06000,0,0,0 SYTR0209790
* 014333 3001443453 09800 JC PRIR2,4343 SYTR0209800
014340 2601447201 09810 PD PBSY,1 SYTR0209810
* 014345 1001165700 09820 JR REST SYTR0209820
* 014352 3000040000 09830 J 0400 SYTR0209830
014357 2600526701 09840 PRIR1 PD GEN02+1,1,1 SYTR0209840
014364 4400526640 09850 SC GEN02,3232 SYTR0209850
014371 2600534201 09860 PD GEN05+4,4,1 SYTR0209860
014376 4400536140 09870 SC GEN06+4,4,040 SYTR0209870
* 014403 1000521400 09880 JR GEN01 SYTR0209880
014410 5201442003 09890 SA1 $+8,3 SYTR0209890
* 014415 3000000060 09900 JD 0 PRINTER 0 ERROR STOP SYTR0209900
014422 4000407777 09910 XF 040,0777777,0,0 SYTR0209910
* 014427 3001434000 09920 J PRIR1-1515 09920
* 014434 3001435764 09930 PRIR2 JC PRIR1,5252 MOA,UBSY ERRORS IF SS3 SET SYTR0209930
014441 4000406000 09940 XF 040,0600000,0,0 SYTR0209940
014446 5601426705 09950 BA1 PRORD+4,4,5 SYTR0209950
014453 5201446405 09960 SA1 $+9,5 SYTR0209960
014460 4000020000 09970 XF 02,0,0,0,0 SYTR0209970
* 014465 3001434500 09980 J PRIR1-1010 SYTR0209980
000206 09990 NLF EQU 0206 NEXT LINE FEED CH0 SYTR0209990
014472 00 10000 PBSY +1 0 PRINTER 0 BUSY INDICATOR SYTR0210000
* 014473 3001447300 10010 HSPI7 J $ PRINTER 7 INITIALIZE SYTR0210010
014500 2000004317 10040 FT 35,X7 SYTR0210040
014505 2000003711 10050 FT 037,X1 SYTR0210050
* 014512 1000712500 10060 JR SPEED SYTR0210060
014517 2601517401 10070 PD PBSY7,1 1 SYTR0210070
014524 2001455503 10080 FT PRT71,3 3 SYTR0210080
014531 5200116103 10090 SA1 EXIT+35,5,3 SYTR0210090
014536 2600037710 10100 PD T63,8 SYTR0210100
014543 4401500100 10110 SC PORD7+3,3,0 SYTR0210110
* 014550 3001447300 10120 J HSPI7 SYTR0210120
* 014555 3001456232 10130 PRT71 JC $+5,032 2 PRINTER ROUTINE ENTRY CH7 SYTR0210130
014562 3401447200 10140 CC PBSY,0 SYTR0210140
* 014567 3000446143 10150 JU CL01 SYTR0210150
014574 3401517400 10160 CC PBSY7,0 0 SYTR0210160
* 014601 3000446143 10170 JU CL01 SYTR0210170
014606 3400037703 10180 CC T63,03 SYTR0210180
* 014613 3001471442 10190 JE PRT78+1010 SYTR0210190
014620 4600037336 10200 BT T62,T30 0 SYTR0210200
014625 4600037737 10210 BT T63,T31 1 SYTR0210210
014632 2601412301 10220 PD GTP3+4,1,1 SYTR0210220
014637 2601377101 10230 PD PRT08-1,1,1 SYTR0210230
* 014644 1001366200 10240 JR GTP SYTR0210240
014651 4200037336 10250 PRT72 ST T62,T30 0 SYTR0210250
014656 4200037737 10260 ST T63,T31 1 SYTR0210260
* 014663 3000441133 10270 JC CNTRL,03033 SYTR0210270
* 014670 1001475000 10280 PRT73 JR PRT75 SYTR0210280
* 014675 3001465100 10290 J PRT72 SYTR0210290
014702 4401500104 10300 PRT78 SC PORD7+3,3,04 SET UP HALF-LINE PRINT SYTR0210300
014707 4401472506 10310 SC LOOP5+4,4,06 SYTR0210310
014714 1600036661 10320 BC2 NLF7,1 SYTR0210320
* 014721 3201412400 10330 LOOP5 JL GTP3+5,0,0 SYTR0210330
014726 4401500100 10340 SC PORD7+3,3,0 SYTR0210340
014733 4400036631 10350 SC NLF7,03131 SYTR0210350
* 014740 3001403000 10360 J LOOP4+1515 SYTR0210360
* 014745 3001474500 10370 PRT75 J $ SYTR0210370
014752 2000370074 10380 FT PRIM,07474 SYTR0210380
014757 5600036601 10390 BA1 NLF7,1 SYTR0210390
014764 5200036701 10400 SA1 0367,1 SYTR0210400
014771 4401517401 10401 SC PBSY7,1 1 SET CH7 PRINTER BUSY IND. SYTR0210401
014776 4160020000 10410 PORD7 XF 02,0,0,7,7 SYTR0210410
* 015003 3001474500 10420 J PRT75 SYTR0210420
* 015010 1001162100 10430 PRIR7 JR STORE PRINTER INTERRUPT RTN CH7 SYTR0210430
015015 4160001362 10440 XF 0,01362,2,0,7 SYTR0210440
* 015022 3001506053 10450 JC PIR71,4343 SYTR0210450
015027 4160006000 10460 XF 0,06000,0,0,7 SYTR0210460
* 015034 3001513553 10470 JC PIR72,4343 SYTR0210470
015041 2601517402 10480 PD PBSY7,2 2 SYTR0210480
* 015046 1001165700 10490 JR REST SYTR0210490
* 015053 3000047000 10500 J 0470 SYTR0210500
015060 3401517301 10510 PIR71 CC EBSY7,1 1 SYTR0210510
* 015065 3001512342 10520 JE PIR73 SYTR0210520
015072 4401517301 10530 SC EBSY7,1 1 SYTR0210530
015077 4400526707 10540 SC GEN02+1,1,7 SYTR0210540
015104 4400526640 10550 SC GEN02,3232 SYTR0210550
015111 4400534207 10570 SC GEN05+4,4,7 SYTR0210570
* 015116 1000521400 10580 JR GEN01 SYTR0210580
015123 4160407777 10590 PIR73 XF 040,0777777,0,7 SYTR0210590
* 015130 3001504100 10600 J PIR71-1515 10600
* 015135 3001506064 10610 PIR72 JC PIR71,5252 MOA,UBSY ERRORS IF SS3 SET SYTR0210610
015142 4160406000 10620 XF 040,0600000,0,7 SYTR0210620
015147 5601500205 10630 BA1 PORD7+4,4,5 SYTR0210630
015154 5201516505 10640 SA1 $+9,5 SYTR0210640
015161 4160020000 10650 XF 02,0,0,7,7 SYTR0210650
* 015166 3001504600 10660 J PIR71-1010 SYTR0210660
000366 10690 NLF7 EQU 0366 NEXT LINE FEED CH7 SYTR0210690
015173 00 10700 EBSY7 +1 0 PRINTER ERR BUSY IND, CH7 SYTR0210700
015174 00 10710 PBSY7 +1 0 PRINTER BUSY IND, CH7 SYTR0210710
* 015175 3001517531 10711 JC $,031 SYTR0210711
015204 017220 10712 +3 DIR SYTR0210712
* 015205 3001520531 10713 JC $,031 SYTR0210713
015214 015010 10714 PRIE7 +3 PRIR7 SYTR0210714
* 015215 3001521500 10720 TAPI J $ TAPE INITIALIZE ROUTINE SYTR0210720
015222 5600365710 10800 BA1 TPIE,8 SYTR0210800
015227 5200044710 10810 SA1 0447,8 SYTR0210810
015234 2000002417 10820 FT 20,X7 SYTR0210820
015241 2000003411 10830 FT 034,X1 SYTR0210830
* 015246 1000712500 10840 JR SPEED SYTR0210840
015253 2000003117 10841 FT 25,X7 SYTR0210841
015260 2000003511 10842 FT 035,X1 SYTR0210842
* 015265 1000712500 10843 JR SPEED SYTR0210843
015272 2001534703 10850 FT TAPR,3 10850
015277 5200114203 10860 SA1 EXIT+20,0,3 10860
015304 5200114703 10861 SA1 EXIT+25,5,3 10861
015311 4401542605 10870 SC TPORD+2,2,5 SET UP READ-REWIND 10870
015316 2000300060 10880 FT TPIM,48 8 SYTR0210880
015323 2000024061 10890 FT 160,49 SYTR0210890
015330 2000300064 10891 FT TPIM,52 2 SYTR0210891
015335 2000024065 10892 FT 160,53 SYTR0210892
* 015342 3001521500 10910 J TAPI SYTR0210910
* 015347 3001535432 10920 TAPR JC $+5,032 2 TAPE ROUTINE ENTRY SYTR0210920
* 015354 1001544100 10930 JR TAPR1 SYTR0210930
015361 3401542605 10940 CC TPORD+2,2,05 SYTR0210940
* 015366 3001550642 10950 JE TAPR2 JUMP IF READ-REWIND SYTR0210950
015373 3401542602 10990 CC TPORD+2,2,02 SYTR0210990
* 015400 3001541743 11000 JU TPORD-5 5 JUMP IF NOT WRITE SYTR0211000
015405 2000300011 11010 FT TPIM,X1 1 SYTR0211010
* 015412 1001630500 11020 JR TIR5 SYTR0211020
015417 4400325301 11030 SC TPBSY,1 1 SYTR0211030
015424 4121000000 11040 TPORD XF 0,0,1,5 5 SYTR0211040
* 015431 3000441133 11050 JC CNTRL,03033 SYTR0211050
* 015436 3001543600 11051 TAPR1 J $ SYTR0211051
015443 3400325101 11052 CC PUBSY,1 1 SYTR0211052
* 015450 3000446142 11053 JE CL01 SYTR0211053
015455 3400325301 11054 CC TPBSY,1 1 SYTR0211054
* 015462 3000446142 11055 JE CL01 SYTR0211055
015467 3400276100 11056 CC DBSY,0 SYTR0211056
* 015474 3000446143 11057 JU CL01 SYTR0211057
* 015501 3001543600 11058 J TAPR1 SYTR0211058
015506 5601542501 11063 TAPR2 BA1 TPORD+1,1,1 SYTR0211063
015513 5400001720 11064 LP 017,020 0 SYTR0211064
015520 3400001700 11065 CC 017,0 SYTR0211065
* 015525 3001564042 11066 JE TAPR5-1010 JUMP TO SET UP CHANNEL 5 SYTR0211066
015532 3400331500 110660 CC TS01+4,0,0 SYTR02110660
* 015537 3001565242 110661 JE TAPR5 JUMP IF CH4 NOT IN TEST SYTR02110661
015544 4401642640 11067 TAPR4 SC TIR8+4,0,040 SET UP CHANNEL 4 SYTR0211067
015551 4401606040 11068 SC TIR9+4,0,040 SYTR0211068
015556 2000044007 11069 FT 0440,7 SYTR0211069
015563 5600331501 11070 BA1 TS01+4,1,1 SYTR0211070
015570 5400001717 11071 LP 017,017 7 INSERT UNIT NO. SYTR0211071
015575 5201542501 11072 TAPR3 SA1 TPORD+1,1,1 SYTR0211072
015602 5201572301 11073 SA1 TIR+6,1 1 SYTR0211073
015607 5201573501 11074 SA1 TIR+16,1,1 SYTR0211074
015614 5201574701 11075 SA1 TIR+26,1,1 SYTR0211075
015621 5201623301 11076 SA1 TIR2+6,1,1 SYTR0211076
015626 5201625423 11077 SA2 TIR3-2,3,3 SYTR0211077
* 015633 3001541700 11078 J TPORD-5 5 SYTR0211078
015640 3400331600 11079 CC TS01+5,0,0 SYTR0211079
* 015645 3001554442 110790 JE TAPR4 JUMP IF CH5 NOT IN TEST SYTR02110790
015652 2601642601 110791TAPR5 PD TIR8+4,1,1 SET UP CHANNEL 5 SYTR02110791
015657 2601606001 11080 PD TIR9+4,1,1 SYTR0211080
015664 2000045007 11081 FT 0450,7 SYTR0211081
015671 5600331601 11082 BA1 TS01+5,1,1 SYTR0211082
015676 6400001720 11083 LS 017,020 0 SYTR0211083
015703 5400001737 11084 LP 017,037 7 SYTR0211084
* 015710 3001557500 11085 J TAPR3 SYTR0211085
* 015715 1001162100 11086 TIR JR STORE TAPE INTERRUPT ROUTINE SYTR0211086
015722 4101001777 11087 XF 0,01777,7,1,4 SYTR0211087
* 015727 3001636453 11088 JC TIR7,43 3 ERROR INDICATORS SET SYTR0211088
015734 4101004000 11090 XF 0,04000,0,1,4 SYTR0211090
* 015741 3001635253 11100 JC TIR6,43 3 MOA SET SYTR0211100
015746 4101002000 11110 XF 0,02000,0,1,4 SYTR0211110
* 015753 3001635253 11120 JC TIR6,43 3 UBSY SET SYTR0211120
015760 3401542605 11130 CC TPORD+2,2,05 SYTR0211130
* 015765 3001625644 11140 JS TIR3 JUMP IF WRITE-REWIND SYTR0211140
* 015772 3001627042 11150 JE TIR4 JUMP IF READ-REWIND SYTR0211150
015777 3401542602 11160 CC TPORD+2,2,02 SYTR0211160
* 016004 3001616242 11170 JE TIR1 JUMP IF WRITE SYTR0211170
016011 2000052011 11180 FT COMP,X1 1 SYTR0211180
* 016016 1001630500 11190 JR TIR5 SYTR0211190
016023 4400576512 11200 SC LOOP+4,1,10 SYTR0211200
016030 2000300013 11210 FT TPIM,X3 3 TAPE IMAGE SYTR0211210
016035 2000052014 11220 FT COMP,X4 4 TEST PATTERN SYTR0211220
016042 2017770507 11221 FT E5,7 SYTR0211221
016047 5600366304 11222 BA1 TAP5,4 SYTR0211222
* 016054 3001607340 11223 TIR9 JC $+15,04040 JUMP FOR CHANNEL 5 SYTR0211223
016061 2017770407 11230 FT E4,7 SYTR0211230
016066 4400001707 11240 SC 017,07 SYTR0211240
016073 5200210304 11260 SA1 RDERR+3,3,4 SYTR0211260
016100 5200630123 11261 SA2 CMPE2+3,3,3 SYTR0211261
016105 4400613640 11270 SC CMPE3+4,4,040 SYTR0211270
016112 4600327727 11280 BT BLKCT,T2T23 SYTR0211280
016117 5600013703 11281 BA1 T23,3 SYTR 11281
016124 5201222503 11282 SA1 CRDNO+3,3,3 SYTR 11282
* 016131 1000570700 11290 JR CMP SYTR0211290
016136 2600300001 11300 PD TPIM,1 SYTR0211300
016143 2000300120 11310 FT TPIM+1,1,16 SYTR0211310
016150 2000023722 11320 FT 159,18 SYTR0211320
016155 2400300001 11330 TFR TPIM SYTR0211330
016162 5600647444 11340 TIR1 BD1 D1000-3,3,4 SYTR0211340
016167 6200327704 11350 AM1 BLKCT,4 4 SYTR0211350
016174 5600650344 11360 BD1 D200,4 SYTR0211360
016201 2600327744 11370 CD1 BLKCT,4 4 SYTR0211370
* 016206 3001622541 11380 JG TIR2 JUMP IF NOT FINISHED SYTR0211380
016213 6401542604 11390 LS TPORD+2,2,04 SET UP REWIND SYTR0211390
016220 2600327724 11400 PD0 BLKCT,4 4 SYTR0211400
016225 2600325201 11410 TIR2 PD EBSY4,1 1 SYTR0211410
016232 4101407777 11420 XF 040,0777777,1,4 SYTR0211420
016237 2600325301 11430 PD TPBSY,1 1 SYTR0211430
* 016244 1001165700 11440 JR REST SYTR0211440
* 016251 3000044000 11450 J 0440 OR 0450 FOR CHANNEL 5 SYTR0211450
016256 4401542601 11460 TIR3 SC TPORD+2,2,01 SET UP READ SYTR0211460
* 016263 3001622000 11470 J TIR2-5 SYTR0211470
016270 4401542602 11480 TIR4 SC TPORD+2,2,02 SET UP WRITE SYTR0211480
* 016275 3001622000 11490 J TIR2-5 SYTR0211490
* 016302 3001630200 11500 TIR5 J $ GENERATE TEST PATTERN SYTR0211500
016307 2020000020 11510 FT 0,16,X1 1 SYTR0211510
016314 2000010022 11520 FT 64,18 SYTR0211520
016321 2400467421 11530 TFI TP1 SYTR0211530
016326 2400467421 11540 TFI TP1 SYTR0211540
016333 2000004022 11550 FT 32,18 SYTR0211550
016340 2400467401 11560 TFR TP1 SYTR0211560
* 016345 3001630200 11570 J TIR5 SYTR0211570
* 016352 3001636464 11571 TIR6 JC TIR7,52 2 MOA,UBSY ERRORS IF SS3 SET SYTR0211571
* 016357 3001622500 11572 J TIR2 SYTR0211572
016364 3400325201 11580 TIR7 CC EBSY4,1 1 SYTR0211580
016371 4400325201 11600 SC EBSY4,1 1 SYTR0211600
016376 4400526641 11610 SC GEN02,04041 SYTR0211610
016403 4400526720 11611 SC GEN02+1,1,020 SYTR0211611
016410 5600366304 11612 BA1 TAP5,4 SYTR0211612
016415 4400534205 11613 SC GEN05+4,4,5 SYTR0211613
* 016422 3001644640 11614 TIR8 JC $+20,04040 JUMP FOR CHANNEL 5 SYTR0211614
016427 4400526700 11620 SC GEN02+1,1,0 SYTR0211620
016434 4400534204 11640 SC GEN05+4,4,4 SYTR0211640
* 016441 1000521400 11650 JR GEN01 SYTR0211650
* 016446 3001623200 11660 J TIR2+5 SYTR0211660
* 016453 3001645300 11670 PROCI J $ PROCESSOR INITIALIZE SYTR0211670
016460 2001651603 11680 FT PROC,3 SYTR0211680
016465 5200116603 11690 SA1 EXIT+40,0,3 SYTR0211690
016472 2000005017 11700 FT 40,X7 SYTR0211700
016477 2000002711 11710 FT 027,X1 SYTR0211710
* 016504 1000712500 11720 JR SPEED SYTR0211720
* 016511 3001645300 11730 J PROCI SYTR0211730
016516 2600012730 11740 PROC PD0 T21,8 PROCESSOR ROUTINE ENTRY SYTR0211740
016523 5601654041 11750 BD1 OP1+3,1 1 DIVIDE TEST SYTR0211750
016530 5601653761 11760 BD2 OP1+2,1 1 SYTR0211760
016535 5007071341 11770 OP1 DV _448_,1 1 SYTR0211770
016542 3400012705 11780 CC T21,5 SYTR0211780
* 016547 3001656142 11790 JE $+10 SYTR0211790
* 016554 1001671600 11800 JR ER,0 SYTR0211800
016561 4600506230 11810 BT TP3-1,T2T24 TRANSLATE TEST SYTR0211810
016566 4400012501 11820 SC 0125,01 1 SYTR0211820
016573 2600015201 11830 PD 0152,1 SYTR0211830
016600 4400011001 11840 SC 0110,01 1 SET TRANSLATE TABLE ROW1 SYTR0211840
016605 1200014302 11850 TR T24,2 SYTR0211850
016612 5600014302 11860 BA1 T24,2 SYTR0211860
016617 7000467542 11870 CB1 TP1+1,2 2 SYTR0211870
* 016624 3001663642 11880 JE $+10 SYTR0211880
* 016631 1001671600 11890 JR ER,0 SYTR0211890
016636 5601700024 11900 BA2 EDPT,4 EDIT TEST SYTR0211900
016643 5601654003 11910 BA1 OP1+3,3 3 SYTR0211910
016650 5201700442 11920 ED EAREA,2 2 SYTR0211920
016655 5601701004 11930 BA1 ERES,4 SYTR0211930
016662 7001700444 11940 CB1 EAREA,4 4 SYTR0211940
* 016667 3001670142 11950 JE $+10 SYTR0211950
* 016674 1001671600 11960 JR ER,0 SYTR0211960
016701 2601700424 11970 PD0 EAREA,4 4 SYTR0211970
* 016706 3000441133 11980 JC CNTRL,03033 SYTR0211980
* 016713 3001671300 11990 ER J $ PROCESSOR ERROR SYTR0211990
016720 5601671603 12000 BA1 ER+3,3 SYTR0212000
016725 4400644103 12010 SC LOOP1+4,4,3 SYTR0212010
* 016732 1000634400 12020 JR OTOD SYTR0212020
016737 5200153606 12030 SA1 PERR+30,0,6 SYTR0212030
016744 4401204737 12040 SC CCT+3,3131 SYTR0212040
016751 2017771003 12050 FT E10,3 SYTR0212050
016756 2000150007 12060 FT PERR,7 SYTR0212060
* 016763 1001172200 12070 JR PRINT SYTR0212070
* 016770 3001671300 12080 J ER SYTR0212080
017000 40114002 12090 EDPT +4 04011400002 EDIT PATTERN SYTR0212090
017004 0000 12100 EAREA +4 _0000_ EDIT AREA SYTR0212100
017010 07111300 12110 ERES +4 0711130000 EDIT RESULT SYTR0212110
* 017011 3001701100 12120 DRUMI J $ DRUM INITIALIZE ROUTINE SYTR0212120
017016 2000003617 12130 FT 30,X7 SYTR0212130
017023 2000003611 12140 FT 036,X1 SYTR0212140
* 017030 1000712500 12150 JR SPEED SYTR0212150
017035 2001716703 12160 FT DRUMR,3 3 SYTR0212160
017042 5200115403 12170 SA1 EXIT+30,0,3 SYTR0212170
017047 5600003601 12180 BA1 036,1 SYTR0212180
017054 6400001740 12190 LS 017,040 0 SYTR0212190
017061 5400001757 12191 LP 017,057 7 SYTR0212191
017066 5201720701 12200 SA1 DRORD+1,1,1 SYTR0212200
017073 5201722601 12210 SA1 DIR+6,1 1 SYTR0212210
017100 5201724001 12220 SA1 DIR+16,1,1 SYTR0212220
017105 5201725201 12230 SA1 DIR+26,1,1 SYTR0212230
017112 5201756701 12240 SA1 DIR3+6,1,1 SYTR0212240
017117 2600035700 12250 PD T59,16 SYTR0212250
017124 4400034707 12260 SC T57,07 SYTR0212260
017131 4400034670 12270 SC T57-1,07070 SYTR0212270
017136 4400034550 12280 SC T57-2,05050 SYTR0212280
017143 2000300070 12290 FT TPIM,T5656 SYTR0212290
017150 4400034052 12300 SC T56-3,05052 168 CHARACTER READ SYTR0212300
017155 4401730102 12310 SC DIR1+4,2,2 SYTR0212310
* 017162 3001701100 12330 J DRUMI SYTR0212330
* 017167 3001717432 12340 DRUMR JC $+5,032 2 DRUM ROUTINE ENTRY SYTR0212340
017174 3400276102 12341 CC DBSY,2 SYTR0212341
* 017201 1001544143 12350 JR TAPR1,04043 SYTR0212350
017206 4140051000 12360 DRORD XF 05,0100000,0,6 SYTR0212360
* 017213 3000441133 12370 JC CNTRL,03033 SYTR0212370
* 017220 1001162100 12380 DIR JR STORE DRUM INTERRUPT ROUTINE SYTR0212380
017225 4400276102 12381 SC DBSY,2 SYTR0212381
017232 4140003377 12390 XF 0,03377,7,0,6 SYTR0212390
* 017237 3001760553 12400 JC DIR4,43 3 ERR INDICATORS SET SYTR0212400
017244 4140004000 12410 XF 0,04000,0,0,6 SYTR0212410
* 017251 3001766253 12420 JC DIR5,43 3 MOA SET SYTR0212420
017256 4140000400 12430 XF 0,0400,0,0,6 SYTR0212430
* 017263 3001766253 12440 JC DIR5,43 3 SYNC BUSY SET SYTR0212440
017270 2000340070 12441 FT PPRI,T5656 SYTR0212441
* 017275 3201756102 12450 DIR1 JL DIR3,2 SYTR0212450
017302 4401730102 12460 SC $-1,2 SYTR0212460
017307 2000301014 12470 FT TPIM+8,X,X4 DATA FROM 1ST READ SYTR0212470
017314 2000341013 12480 FT PPRI+8,X,X3 DATA FROM 2ND READ SYTR0212480
017321 2017770603 12490 FT E6,3 SYTR0212490
017326 5200630103 12500 SA1 CMPE2+3,3,3 SYTR0212500
017333 5600275704 12510 BA1 DRUM,4 SYTR0212510
017340 5200210304 12520 SA1 RDERR+3,3,4 SYTR0212520
017345 4400576512 12530 SC LOOP+4,1,10 SYTR0212530
017352 5600034502 12540 BA1 T57-2,2 2 SYTR0212540
017357 4400644102 12550 SC LOOP1+4,4,2 SYTR0212550
* 017364 1000634400 12560 JR OTOD SYTR0212560
017371 5200217202 12570 SA1 RDERR+5858,2 TRACK SYTR 12570
017376 5600034401 12580 BA1 T57-3,1 1 SYTR0212580
017403 1600001754 12590 BC1 017,4 SYTR0212590
017410 5201754601 12600 SA1 DIR2+4,1,1 SYTR0212600
017415 4400644101 12610 SC LOOP1+4,4,1 SYTR0212610
* 017422 1000634400 12620 JR OTOD SYTR0212620
017427 5200217002 12630 SA1 RDERR+5656,2 UNIT SYTR 12630
017434 5600034601 12640 BA1 T57-1,1 1 SYTR0212640
* 017441 1000634400 12650 JR OTOD SYTR0212650
017446 5200013502 12660 SA1 T23-2,2 2 HEAD SYTR 12660
017453 5600034701 12670 BA1 T57,1 SYTR0212670
* 017460 1000634400 12680 JR OTOD SYTR0212680
017465 5200013702 12690 SA1 T23,2 SECTOR SYTR 12690
017472 5201222502 12691 SA1 CRDNO+3,3,2 SYTR 12691
* 017477 1000570700 12700 JR CMP SYTR0212700
017504 2600276101 12701 PD DBSY,1 SYTR0212701
017511 2000300070 12710 FT TPIM,T5656 SYTR0212710
017516 1600034771 12711 BC3 T57,1 SYTR0212711
017523 6000034404 12720 AC T57-3,0404 SYTR0212720
017530 5600331701 12730 BA1 TS01+6,1,1 SYTR0212730
017535 5400001717 12740 LP 017,017 7 INSERT UNIT NO. SYTR0212740
017542 3400001700 12750 DIR2 CC 017,0 COMPARE UNIT NUMBER SYTR0212750
* 017547 3001756143 12760 JU $+10 JUMP IF NOT LAST UNIT SYTR0212760
017554 2600034401 12770 PD T57-3,1 1 SYTR0212770
017561 2600276001 12800 DIR3 PD EBSY6,1 1 SYTR0212800
017566 4140407777 12810 XF 040,0777777,0,6 SYTR0212810
* 017573 1001165700 12830 JR REST SYTR0212830
* 017600 3000046000 12840 J 0460 SYTR0212840
017605 3400276001 12850 DIR4 CC EBSY6,1 1 SYTR0212850
* 017612 3001756642 12860 JE DIR3+5 SYTR0212860
017617 4400276001 12870 SC EBSY6,1 1 SYTR0212870
017624 4400526641 12880 SC GEN02,04041 SYTR0212880
017631 4400526740 12890 SC GEN02+1,1,040 SYTR0212890
017636 5600275704 12900 BA1 DRUM,4 SYTR0212900
017643 4400534206 12910 SC GEN05+4,4,6 SYTR0212910
* 017650 1000521400 12920 JR GEN01 SYTR0212920
* 017655 3001756600 12930 J DIR3+5 SYTR0212930
* 017662 3001760564 12940 DIR5 JC DIR4,52 2 MOA,SBSY ERRORS IF SS3 SET SYTR0212940
* 017667 3001756100 12950 J DIR3 SYTR0212950
3000412000 99999 END START SYTR0299999
{-- tape mark --}
008895 C201 PFC80 CODEDIT SOURCE 08/65 A T3834394-20
002500 00001 T200 BEGIN 1344 PFC8 00001
*LOAD 0700,TAPAPE,R,PRELD E
* 002500 3007010660 * JD 070106 *
* 002505 3000250000 * J $-5 *
SEGMENT-ID T201 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 T202 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 T203 3000136300 * SEGJP $ *
002500 000011 ORIG 1344 000011
* 002500 3000000160 00002 START JC 1,48 PFC8 00002
* 002505 1000256500 00003 JR PFCA PFC8 00003
* 002512 3000000260 00004 JC 2,48 PFC8 00004
* 002517 1000312100 00005 JR PFCB PFC8 00005
* 002524 3000000360 00006 JC 3,48 PFC8 00006
* 002531 1000345500 00007 JR PFCC PFC8 00007
* 002536 3000000460 00008 JC 4,48 PFC8 00008
* 002543 1000401100 00009 JR PFCD PFC8 00009
* 002550 3000777760 00010 JC 4095,48 8 PFC8 00010
* 002555 3000250000 00011 JC START PFC8 00011
* 002562 3000000000 00012 PFCA JC 0 PFC8 00012
* 002567 1000711100 00013 JR INIT PFC8 00013
002574 4400516104 000141 SC PFCF1+4,4,4 PFC8 000141
002601 4400532504 000152 SC PFCF2+4,4,4 PFC8 000152
002606 4400470704 000163 SC PFCE1+4,4,4 PFC8 000163
002613 4400626000 000174 SC CMP02+9,9,0 PFC8 000174
002620 5600726544 00018 BD1 ID1,4 PFC8 00018
002625 5200760304 00019 SA1 P1+3,4 PFC8 00019
002632 5201000304 00020 SA1 P2+3,4 PFC8 00020
002637 5200014704 00021 SA1 ID,4 PFC8 00021
002644 4400573601 00022 SC PFCG1+4,4,1 PFC8 00022
002651 4400574303 00023 SC PFCG2+4,4,3 PFC8 00023
002656 4400576742 00024 SC PFCG4+4,4,34 PFC8 00024
002663 4400606343 00025 SC PFCG5+4,4,35 PFC8 00025
* 002670 1000434500 00026 JR PFCE PFC8 00026
002675 4400574323 00027 SC PFCG2+4,4,19 PFC8 00027
002702 4400606342 00028 SC PFCG5+4,4,34 PFC8 00028
* 002707 1000434500 00029 JR PFCE PFC8 00029
002714 4400574363 00030 SC PFCG2+4,4,51 PFC8 00030
002721 4400576743 00031 SC PFCG4+4,4,35 PFC8 00031
* 002726 1000434500 00032 JR PFCE PFC8 00032
002733 4400574343 00033 SC PFCG2+4,4,35 PFC8 00033
002740 4400606343 00034 SC PFCG5+4,4,35 PFC8 00034
* 002745 1000434500 00035 JR PFCE PFC8 00035
002752 5600727144 00036 BD1 ID2,4 PFC8 00036
002757 5201050304 00037 SA1 P3+3,4 PFC8 00037
002764 5201100304 00038 SA1 P4+3,4 PFC8 00038
002771 5200014704 00039 SA1 ID,4 PFC8 00039
002776 4400573600 00040 SC PFCG1+4,4,0 PFC8 00040
003003 4400574303 00041 SC PFCG2+4,4,3 PFC8 00041
003010 4400576742 00042 SC PFCG4+4,4,34 PFC8 00042
003015 4400606343 00043 SC PFCG5+4,4,35 PFC8 00043
* 003022 1000473200 00044 JR PFCF PFC8 00044
003027 4400574323 00045 SC PFCG2+4,4,19 PFC8 00045
003034 4400606342 00046 SC PFCG5+4,4,34 PFC8 00046
* 003041 1000473200 00047 JR PFCF PFC8 00047
003046 4400574363 00048 SC PFCG2+4,4,51 PFC8 00048
003053 4400576743 00049 SC PFCG4+4,4,35 PFC8 00049
* 003060 1000473200 00050 JR PFCF PFC8 00050
003065 4400574343 00051 SC PFCG2+4,4,35 PFC8 00051
003072 4400606343 00052 SC PFCG5+4,4,35 PFC8 00052
* 003077 1000473200 00053 JR PFCF PFC8 00053
* 003104 3000257462 00054 JC PFCA+10,0,50 PFC8 00054
* 003111 3000256200 00055 JC PFCA PFC8 00055
* 003116 3000000000 00056 PFCB JC 0 PFC8 00056
* 003123 1000711100 00057 JR INIT PFC8 00057
003130 4400516104 000581 SC PFCF1+4,4,4 PFC8 000581
003135 4400532504 000592 SC PFCF2+4,4,4 PFC8 000592
003142 4400626040 000603 SC CMP02+9,9,32 PFC8 000603
003147 4400470704 000614 SC PFCE1+4,4,4 PFC8 000614
003154 5600727544 00062 BD1 ID3,4 PFC8 00062
003161 5200760304 00063 SA1 P1+3,4 PFC8 00063
003166 5201000304 00064 SA1 P2+3,4 PFC8 00064
003173 5200014704 00065 SA1 ID,4 PFC8 00065
003200 4400573601 00066 SC PFCG1+4,4,1 PFC8 00066
003205 4400574302 00067 SC PFCG2+4,4,2 PFC8 00067
003212 4400576742 00068 SC PFCG4+4,4,34 PFC8 00068
003217 4400606343 00069 SC PFCG5+4,4,35 PFC8 00069
* 003224 1000434500 00070 JR PFCE PFC8 00070
003231 4400574322 00071 SC PFCG2+4,4,18 PFC8 00071
003236 4400606342 00072 SC PFCG5+4,4,34 PFC8 00072
* 003243 1000434500 00073 JR PFCE PFC8 00073
003250 4400574362 00074 SC PFCG2+4,4,50 PFC8 00074
003255 4400576743 00075 SC PFCG4+4,4,35 PFC8 00075
* 003262 1000434500 00076 JR PFCE PFC8 00076
003267 4400574342 00077 SC PFCG2+4,4,34 PFC8 00077
003274 4400606343 00078 SC PFCG5+4,4,35 PFC8 00078
* 003301 1000434500 00079 JR PFCE PFC8 00079
003306 5600730144 00080 BD1 ID4,4 PFC8 00080
003313 5201050304 00081 SA1 P3+3,4 PFC8 00081
003320 5201100304 00082 SA1 P4+3,4 PFC8 00082
003325 5200014704 00083 SA1 ID,4 PFC8 00083
003332 4400573600 00084 SC PFCG1+4,4,0 PFC8 00084
003337 4400574302 00085 SC PFCG2+4,4,2 PFC8 00085
003344 4400576742 00086 SC PFCG4+4,4,34 PFC8 00086
003351 4400606343 00087 SC PFCG5+4,4,35 PFC8 00087
* 003356 1000473200 00088 JR PFCF PFC8 00088
003363 4400574322 00089 SC PFCG2+4,4,18 PFC8 00089
003370 4400606342 00090 SC PFCG5+4,4,34 PFC8 00090
* 003375 1000473200 00091 JR PFCF PFC8 00091
003402 4400574362 00092 SC PFCG2+4,4,50 PFC8 00092
003407 4400576743 00093 SC PFCG4+4,4,35 PFC8 00093
* 003414 1000473200 00094 JR PFCF PFC8 00094
003421 4400574342 00095 SC PFCG2+4,4,34 PFC8 00095
003426 4400606343 00096 SC PFCG5+4,4,35 PFC8 00096
* 003433 1000473200 00097 JR PFCF PFC8 00097
* 003440 3000312362 00098 JC PFCB+5,5,50 PFC8 00098
* 003445 3000311600 00099 JC PFCB PFC8 00099
* 003452 3000000000 00100 PFCC JC 0 PFC8 00100
* 003457 1000711100 00101 JR INIT PFC8 00101
003464 4400516104 001021 SC PFCF1+4,4,4 PFC8 001021
003471 4400532504 001032 SC PFCF2+4,4,4 PFC8 001032
003476 4400470704 001043 SC PFCE1+4,4,4 PFC8 001043
003503 4400626040 001054 SC CMP02+9,9,32 PFC8 001054
003510 5600730544 00106 BD1 ID5,4 PFC8 00106
003515 5200760304 00107 SA1 P1+3,4 PFC8 00107
003522 5201000304 00108 SA1 P2+3,4 PFC8 00108
003527 5200014704 00109 SA1 ID,4 PFC8 00109
003534 4400573601 00110 SC PFCG1+4,4,1 PFC8 00110
003541 4400574301 00111 SC PFCG2+4,4,1 PFC8 00111
003546 4400576742 00112 SC PFCG4+4,4,34 PFC8 00112
003553 4400606343 00113 SC PFCG5+4,4,35 PFC8 00113
* 003560 1000434500 00114 JR PFCE PFC8 00114
003565 4400574321 00115 SC PFCG2+4,4,17 PFC8 00115
003572 4400606342 00116 SC PFCG5+4,4,34 PFC8 00116
* 003577 1000434500 00117 JR PFCE PFC8 00117
003604 4400574361 00118 SC PFCG2+4,4,49 PFC8 00118
003611 4400576743 00119 SC PFCG4+4,4,35 PFC8 00119
* 003616 1000434500 00120 JR PFCE PFC8 00120
003623 4400574341 00121 SC PFCG2+4,4,33 PFC8 00121
003630 4400606343 00122 SC PFCG5+4,4,35 PFC8 00122
* 003635 1000434500 00123 JR PFCE PFC8 00123
003642 5600731144 00124 BD1 ID6,4 PFC8 00124
003647 5201050304 00125 SA1 P3+3,4 PFC8 00125
003654 5201100304 00126 SA1 P4+3,4 PFC8 00126
003661 5200014704 00127 SA1 ID,4 PFC8 00127
003666 4400573600 00128 SC PFCG1+4,4,0 PFC8 00128
003673 4400574301 00129 SC PFCG2+4,4,1 PFC8 00129
003700 4400576742 00130 SC PFCG4+4,4,34 PFC8 00130
003705 4400606343 00131 SC PFCG5+4,4,35 PFC8 00131
* 003712 1000473200 00132 JR PFCF PFC8 00132
003717 4400574321 00133 SC PFCG2+4,4,17 PFC8 00133
003724 4400606342 00134 SC PFCG5+4,4,34 PFC8 00134
* 003731 1000473200 00135 JR PFCF PFC8 00135
003736 4400574361 00136 SC PFCG2+4,4,49 PFC8 00136
003743 4400576743 00137 SC PFCG4+4,4,35 PFC8 00137
* 003750 1000473200 00138 JR PFCF PFC8 00138
003755 4400574341 00139 SC PFCG2+4,4,33 PFC8 00139
003762 4400606343 00140 SC PFCG5+4,4,35 PFC8 00140
* 003767 1000473200 00141 JR PFCF PFC8 00141
* 003774 3000346462 00142 JC PFCC+10,0,50 PFC8 00142
* 004001 3000345200 00143 JC PFCC PFC8 00143
* 004006 3000000000 00144 PFCD JC 0 PFC8 00144
* 004013 1000711100 00145 JR INIT PFC8 00145
004020 4400516104 001461 SC PFCF1+4,4,4 PFC8 001461
004025 4400532504 001472 SC PFCF2+4,4,4 PFC8 001472
004032 4400626040 001483 SC CMP02+9,9,32 PFC8 001483
004037 4400470704 001494 SC PFCE1+4,4,4 PFC8 001494
004044 5600731544 00150 BD1 ID7,4 PFC8 00150
004051 5200760304 00151 SA1 P1+3,4 PFC8 00151
004056 5201000304 00152 SA1 P2+3,4 PFC8 00152
004063 5200014704 00153 SA1 ID,4 PFC8 00153
004070 4400573601 00154 SC PFCG1+4,4,1 PFC8 00154
004075 4400574304 00155 SC PFCG2+4,4,4 PFC8 00155
004102 4400576742 00156 SC PFCG4+4,4,34 PFC8 00156
004107 4400606343 00157 SC PFCG5+4,4,35 PFC8 00157
* 004114 1000434500 00158 JR PFCE PFC8 00158
004121 4400574324 00159 SC PFCG2+4,4,20 PFC8 00159
004126 4400606342 00160 SC PFCG5+4,4,34 PFC8 00160
* 004133 1000434500 00161 JR PFCE PFC8 00161
004140 4400574364 00162 SC PFCG2+4,4,52 PFC8 00162
004145 4400576743 00163 SC PFCG4+4,4,35 PFC8 00163
* 004152 1000434500 00164 JR PFCE PFC8 00164
004157 4400574344 00165 SC PFCG2+4,4,36 PFC8 00165
004164 4400606343 00166 SC PFCG5+4,4,35 PFC8 00166
* 004171 1000434500 00167 JR PFCE PFC8 00167
004176 5600732144 00168 BD1 ID8,4 PFC8 00168
004203 5201050304 00169 SA1 P3+3,4 PFC8 00169
004210 5201100304 00170 SA1 P4+3,4 PFC8 00170
004215 5200014704 00171 SA1 ID,4 PFC8 00171
004222 4400573600 00172 SC PFCG1+4,4,0 PFC8 00172
004227 4400574304 00173 SC PFCG2+4,4,4 PFC8 00173
004234 4400576742 00174 SC PFCG4+4,4,34 PFC8 00174
004241 4400606343 00175 SC PFCG5+4,4,35 PFC8 00175
* 004246 1000473200 00176 JR PFCF PFC8 00176
004253 4400574324 00177 SC PFCG2+4,4,20 PFC8 00177
004260 4400606342 00178 SC PFCG5+4,4,34 PFC8 00178
* 004265 1000473200 00179 JR PFCF PFC8 00179
004272 4400574364 00180 SC PFCG2+4,4,52 PFC8 00180
004277 4400576743 00181 SC PFCG4+4,4,35 PFC8 00181
* 004304 1000473200 00182 JR PFCF PFC8 00182
004311 4400574344 00183 SC PFCG2+4,4,36 PFC8 00183
004316 4400606343 00184 SC PFCG5+4,4,35 PFC8 00184
* 004323 1000473200 00185 JR PFCF PFC8 00185
* 004330 3000402062 00186 JC PFCD+10,0,50 PFC8 00186
* 004335 3000400600 00187 JC PFCD PFC8 00187
* 004342 3000000000 00188 PFCE JC 0 PFC8 00188
004347 6000014601 00189 AC ID-1,1 PFC8 00189
004354 4400014704 00190 SC ID,4 PFC8 00190
004361 6000760201 00191 AC P1+2,1 PFC8 00191
004366 4400760304 00192 SC P1+3,4 PFC8 00192
004373 6001000201 00193 AC P2+2,1 PFC8 00193
004400 4401000303 00194 SC P2+3,3 PFC8 00194
004405 4400575402 00195 SC PFCG3+3,3,2 PFC8 00195
* 004412 1000535000 00196 JR FBAT1 PFC8 00196
* 004417 1000573000 00197 JR PFCG PFC8 00197
004424 6000014701 00198 AC ID,1 PFC8 00198
004431 6000760301 00199 AC P1+3,1 PFC8 00199
004436 4400575412 00200 SC PFCG3+3,3,10 PFC8 00200
* 004443 1000535000 00201 JR FBAT1 PFC8 00201
* 004450 1000573000 00202 JR PFCG PFC8 00202
004455 6000014701 00203 AC ID,1 PFC8 00203
004462 6001000303 00204 AC P2+3,3 PFC8 00204
004467 4400575414 00205 SC PFCG3+3,3,12 PFC8 00205
* 004474 1000540600 00206 JR FBAT2 PFC8 00206
* 004501 1000573000 00207 JR PFCG PFC8 00207
004506 6000014701 00208 AC ID,1 PFC8 00208
004513 6001000301 00209 AC P2+3,1 PFC8 00209
004520 4400575404 00210 SC PFCG3+3,3,4 PFC8 00210
* 004525 1000540600 00211 JR FBAT2 PFC8 00211
* 004532 1000573000 00212 JR PFCG PFC8 00212
004537 6000014701 00213 AC ID,1 PFC8 00213
004544 6000760303 00214 AC P1+3,3 PFC8 00214
004551 4400575406 00215 SC PFCG3+3,3,6 PFC8 00215
* 004556 1000544400 00216 JR FBAT3 PFC8 00216
* 004563 1000573000 00217 JR PFCG PFC8 00217
004570 6000014701 00218 AC ID,1 PFC8 00218
004575 6000760301 00219 AC P1+3,1 PFC8 00219
004602 4400575416 00220 SC PFCG3+3,3,14 PFC8 00220
* 004607 1000544400 00221 JR FBAT3 PFC8 00221
* 004614 1000573000 00222 JR PFCG PFC8 00222
004621 6000014701 00223 AC ID,1 PFC8 00223
004626 6001000303 00224 AC P2+3,3 PFC8 00224
004633 4400575410 00225 SC PFCG3+3,3,8 PFC8 00225
* 004640 1000550200 00226 JR FBAT4 PFC8 00226
* 004645 1000573000 00227 JR PFCG PFC8 00227
004652 6000014701 00228 AC ID,1 PFC8 00228
004657 6001000301 00229 AC P2+3,1 PFC8 00229
004664 4400575400 00230 SC PFCG3+3,3,0 PFC8 00230
* 004671 1000550200 00231 JR FBAT4 PFC8 00231
* 004676 1000573000 00232 JR PFCG PFC8 00232
* 004703 3200434204 002331PFCE1 JL PFCE,4 PFC8 002331
004710 4040640000 002342 XF 064,00,0,0,2 PFC8 002342
004715 4400625340 002353 SC CMP02+4,4,32 PFC8 002353
* 004722 3000434200 00236 JC PFCE PFC8 00236
* 004727 3000000000 00237 PFCF JC 0 00237
004734 6000014601 00238 AC ID-1,1 PFC8 00238
004741 4400014704 00239 SC ID,4 PFC8 00239
004746 6001050201 00240 AC P3+2,1 PFC8 00240
004753 4401050304 00241 SC P3+3,4 PFC8 00241
004760 6001100201 00242 AC P4+2,1 PFC8 00242
004765 4401100303 00243 SC P4+3,3 PFC8 00243
004772 4400575402 00244 SC PFCG3+3,3,2 PFC8 00244
* 004777 1000554000 00245 JR FBAU1 PFC8 00245
* 005004 1000573000 00246 JR PFCG PFC8 00246
005011 6000014701 00247 AC ID,1 PFC8 00247
005016 6001050301 00248 AC P3+3,1 PFC8 00248
005023 4400575412 00249 SC PFCG3+3,3,10 PFC8 00249
* 005030 1000554000 00250 JR FBAU1 PFC8 00250
* 005035 1000573000 00251 JR PFCG PFC8 00251
005042 6000014701 00252 AC ID,1 PFC8 00252
005047 6001100303 00253 AC P4+3,3 PFC8 00253
005054 4400575414 00254 SC PFCG3+3,3,12 PFC8 00254
* 005061 1000557600 00255 JR FBAU2 PFC8 00255
* 005066 1000573000 00256 JR PFCG PFC8 00256
005073 6000014701 00257 AC ID,1 PFC8 00257
005100 6001100301 00258 AC P4+3,1 PFC8 00258
005105 4400575404 00259 SC PFCG3+3,3,4 PFC8 00259
* 005112 1000557600 00260 JR FBAU2 PFC8 00260
* 005117 1000573000 00261 JR PFCG PFC8 00261
005124 6000014701 00262 AC ID,1 PFC8 00262
005131 6001050303 00263 AC P3+3,3 PFC8 00263
005136 4400575406 00264 SC PFCG3+3,3,6 PFC8 00264
* 005143 1000563400 00265 JR FBAU3 PFC8 00265
* 005150 1000573000 00266 JR PFCG PFC8 00266
* 005155 3200520100 00267 PFCF1 JL $+20 PFC8 00267
* 005162 3000520663 002681 JC $+20,51 1 PFC8 002681
* 005167 3000520662 00269 JC $+15,50 0 PFC8 00269
* 005174 3000000060 00270 JC 0,48 END OF FILE PFC8 00270
005201 4400724602 002711 SC K2,2 PFC8 002711
005206 6000014701 00272 AC ID,1 PFC8 00272
005213 6001050301 00273 AC P3+3,1 PFC8 00273
005220 4400575416 00274 SC PFCG3+3,3,14 PFC8 00274
* 005225 1000563400 00275 JR FBAU3 PFC8 00275
* 005232 1000573000 00276 JR PFCG PFC8 00276
005237 6000014701 00277 AC ID,1 PFC8 00277
005244 6001100303 00278 AC P4+3,3 PFC8 00278
005251 4400575410 00279 SC PFCG3+3,3,8 PFC8 00279
* 005256 1000567200 00280 JR FBAU4 PFC8 00280
* 005263 1000573000 00281 JR PFCG PFC8 00281
005270 6000014701 00282 AC ID,1 PFC8 00282
005275 6001100301 00283 AC P4+3,1 PFC8 00283
005302 4400575400 00284 SC PFCG3+3,3,0 PFC8 00284
* 005307 1000567200 00285 JR FBAU4 PFC8 00285
* 005314 1000573000 00286 JR PFCG PFC8 00286
* 005321 3200472704 002871PFCF2 JL PFCF,4 PFC8 002871
005326 4040640000 00288 XF 064,00,0,0,2 PFC8 00288
005333 4400625340 002891 SC CMP02+4,4,32 PFC8 002891
* 005340 3000472700 00290 JC PFCF PFC8 00290
* 005345 3000000000 00291 FBAT1 JC 0 PFC8 00291
005352 2000760050 00292 FT P1,40 PFC8 00292
005357 2001000026 00293 FT P2,22 PFC8 00293
005364 2001020051 00294 FT R1,41 PFC8 00294
005371 2001020027 00295 FT R1,23 PFC8 00295
* 005376 3000534500 00296 JC FBAT1 PFC8 00296
* 005403 3000000000 00297 FBAT2 JC 0 PFC8 00297
005410 2001000050 00298 FT P2,40 PFC8 00298
005415 2001000026 00299 FT P2,22 PFC8 00299
005422 2001020051 00300 FT R1,41 PFC8 00300
005427 2001040027 00301 FT R2,23 PFC8 00301
* 005434 3000540300 00302 JC FBAT2 PFC8 00302
* 005441 3000000000 00303 FBAT3 JC 0 PFC8 00303
005446 2000760050 00304 FT P1,40 PFC8 00304
005453 2001000026 00305 FT P2,22 PFC8 00305
005460 2001020051 00306 FT R1,41 PFC8 00306
005465 2001040027 00307 FT R2,23 PFC8 00307
* 005472 3000544100 00308 JC FBAT3 PFC8 00308
* 005477 3000000000 00309 FBAT4 JC 0 PFC8 00309
005504 2001000050 00310 FT P2,40 PFC8 00310
005511 2001000026 00311 FT P2,22 PFC8 00311
005516 2001020051 00312 FT R1,41 PFC8 00312
005523 2001020027 00313 FT R1,23 PFC8 00313
* 005530 3000547700 00314 JC FBAT4 PFC8 00314
* 005535 3000000000 00315 FBAU1 JC 0 PFC8 00315
005542 2001050050 00316 FT P3,40 PFC8 00316
005547 2001100026 00317 FT P4,22 PFC8 00317
005554 2001020051 00318 FT R3,41 PFC8 00318
005561 2001020027 00319 FT R3,23 PFC8 00319
* 005566 3000553500 00320 JC FBAU1 PFC8 00320
* 005573 3000000000 00321 FBAU2 JC 0 PFC8 00321
005600 2001100050 00322 FT P4,40 PFC8 00322
005605 2001100026 00323 FT P4,22 PFC8 00323
005612 2001020051 00324 FT R3,41 PFC8 00324
005617 2001050027 00325 FT R4,23 PFC8 00325
* 005624 3000557300 00326 JC FBAU2 PFC8 00326
* 005631 3000000000 00327 FBAU3 JC 0 PFC8 00327
005636 2001050050 00328 FT P3,40 PFC8 00328
005643 2001100026 00329 FT P4,22 PFC8 00329
005650 2001020051 00330 FT R3,41 PFC8 00330
005655 2001050027 00331 FT R4,23 PFC8 00331
* 005662 3000563100 00332 JC FBAU3 PFC8 00332
* 005667 3000000000 00333 FBAU4 JC 0 PFC8 00333
005674 2001100050 00334 FT P4,40 PFC8 00334
005701 2001100026 00335 FT P4,22 PFC8 00335
005706 2001020051 00336 FT R3,41 PFC8 00336
005713 2001020027 00337 FT R3,23 PFC8 00337
* 005720 3000566700 00338 JC FBAU4 PFC8 00338
* 005725 3000000000 00339 PFCG JC 0 PFC8 00339
005732 6400575400 00340 PFCG1 LS PFCG3+3,3,0 PFC8 00340
005737 4400575300 00341 PFCG2 SC PFCG3+2,2,0 PFC8 00341
005744 4400025200 00342 SC 170,0 PFC8 00342
005751 4040000000 00343 PFCG3 XF 00,00,0,0,2 PFC8 00343
005756 3400025200 00344 CC 170,0 PFC8 00344
* 005763 3000602600 00345 PFCG4 JC DELAY,0 0 PFC8 00345
* 005770 3000600764 00346 JC $+15,52 2 PFC8 00346
* 005775 3000000560 00347 JC 5,48 LOP ERROR PFC8 00347
* 006002 3000605200 00348 JC PFCG6 PFC8 00348
006007 4201135131 00349 ST LOERR+4141,25 PFC8 00349
006014 2001130040 00350 FT LOERR,3232 PFC8 00350
006021 4000220400 00351 XF 022,040000,0,0 PFC8 00351
006026 2600014304 00352 DELAY PD 99,4 PFC8 00352
006033 7600732530 00353 AT BONE,24 4 PFC8 00353
006040 7400733130 00354 CT BBIG,24 4 PFC8 00354
* 006045 3000603343 00355 JC $-10,35 5 PFC8 00355
006052 3400724500 00356 PFCG6 CC K1,0 PFC8 00356
* 006057 3000612200 00357 PFCG5 JC $+35 PFC8 00357
* 006064 3000610364 00358 JC $+15,52 2 PFC8 00358
* 006071 3000000660 00359 JC 6,48 INH INT ERROR PFC8 00359
* 006076 3000612200 00360 JC $+20 PFC8 00360
006103 4201165131 00361 ST IIERR+4141,25 PFC8 00361
006110 2001160040 00362 FT IIERR,3232 PFC8 00362
006115 4000620400 00363 XF 062,040000,0,0 PFC8 00363
006122 4400724500 00364 SC K1,0 PFC8 00364
006127 7400024727 00365 CT 167,23 PFC8 00365
* 006134 3000617742 00366 JC $+35,34 4 PFC8 00366
* 006141 3000616064 00367 JC $+15,52 2 PFC8 00367
* 006146 3000000760 00368 JC 7,48 ADV RBA ERR PFC8 00368
* 006153 3000617700 00369 JC $+20 PFC8 00369
006160 4201146131 00370 ST RBAER+4949,25 PFC8 00370
006165 2001140040 00371 FT RBAER,3232 PFC8 00371
006172 4000620400 00372 XF 062,040000,0,0 PFC8 00372
006177 7400024326 00373 CT 163,22 PFC8 00373
* 006204 3000624742 00374 JC $+35,34 4 PFC8 00374
* 006211 3000623064 00375 JC $+15,52 2 PFC8 00375
* 006216 3000001060 00376 JC 8,48 ADV PBA ERR PFC8 00376
* 006223 3000624700 00377 JC $+20 PFC8 00377
006230 4201156331 00378 ST PBAER+5151,25 PF38 00378
006235 2001150040 00379 FT PBAER,3232 PFC8 00379
006242 4000620400 003801 XF 062,040000,0,0 PFC8 003801
* 006247 3000626640 003812CMP02 JC $+15,32 2 PFC8 003812
006254 4400625300 003823 SC $-1,0 PFC8 003823
* 006261 3000572500 003834 J PFCG PFC8 003834
006266 1400575401 003841 LC PFCG3+3,3,1 PFC8 003841
* 006273 3000631242 003852 JE $+15 PFC8 003852
006300 2001050003 003863 FT P3,3 PFC8 003863
* 006305 3000631700 003874 JC $+10 PFC8 003874
006312 2000760003 003885 FT P1,3 PFC8 003885
006317 5200635303 003896 SA1 CMP01+3,3,3 PFC8 003896
006324 5601020304 003909 BA1 R1+3,4 PFC8 003909
006331 5201174204 00391 SA1 TRERR+3434,4 PFC8 00391
006336 2000002314 003922 FT 19,12 PFC8 003922
006343 4400640003 003933 SC LOOP+4,3,3 PFC8 003933
006350 5700000000 003944CMP01 BA1 0,16,4 PFC8 003944
006355 7101020040 003955 CB1 R1,16,4 4 PFC8 003955
* 006362 3000640643 003966 JU $+20 PFC8 003966
006367 7601200314 003977 AT B16,12 PFC8 003977
* 006374 3200635000 003988LOOP JL $-20 PFC8 003988
* 006401 3000572500 003999 J PFCG PF38 003999
* 006406 3000642564 00400 JC $+15,52 2 PFC8 00400
* 006413 3000001460 004010 JD 12 PFC8 004010
* 006420 3000572500 004021 J PFCG PFC8 004021
006425 2001170040 004031 FT TRERR,3232 PFC8 004031
006432 4000220400 004042 XF 022,040000,0,0 PFC8 004042
* 006437 3000572500 004053 J PFCG PFC8 004053
* 006444 3000724751 00406 PFCI JC K3,41 PFC8 00406
006451 5200725304 00407 SA1 K4,4 PFC8 00407
006456 4200725711 00408 ST K5,9 PFC8 00408
006463 4040007140 00409 XF 00,0714040,0,2 PFC8 00409
* 006470 3000652653 00410 JC PFCI2,4343 PFC8 00410
006475 4400724501 00411 PFCI1 SC K1,1, PFC8 00411
* 006502 3000724752 00412 JC K3,42 PFC8 00412
006507 5600725304 00413 BA1 K4,4 PFC8 00413
006514 4600725711 00414 BT K5,9 PFC8 00414
* 006521 3000042000 00415 JC 272 PFC8 00415
006526 2000001511 00416 PFCI2 FT 13,9 P6 8 00416
006533 2600726102 00417 PD K6,2 PFC8 00417
006540 4400656700 00418 SC PFCI3+3,3,0 PFC8 00418
006545 4400657040 00419 SC PFCI3+4,4,32 PFC8 00419
006552 4400662107 00420 SC PFCI4+4,4,7 PFC8 00420
006557 7600733511 00421 AT B7,9 PFC8 00421
006564 4040000000 00422 PFCI3 XF 00,00,0,0,2 00422
* 006571 3000663453 00423 JC $+35,43 3 PFC8 00423
006576 4420750003 00424 SC PUABN,3,3,1 PFC8 00424
006603 1600726121 00425 BS2 K6,1 PFC8 00425
006610 1600657021 00426 BS2 PFCI3+4,4,1 PFC8 00426
* 006615 3200655700 00427 PFCI4 JL $-30 PFC8 00427
006622 5600726102 00428 BA1 K6,2 PFC8 00428
* 006627 3000665300 00429 JC $+20 PFC8 00429
006634 6400726101 00430 LS K6,1 PFC8 00430
006641 4420750004 00431 SC PUABN,4,4,1 PFC8 00431
* 006646 3000660300 00432 JC $-35 PFC8 00432
006653 5200671402 00433 SA1 PFCI5+3,3,2 PFC8 00433
006660 5200675702 00434 SA1 PFCI6+3,3,2 PFC8 00434
006665 5200701002 00435 SA1 PFCI7+3,3,2 PFC8 00435
006672 3400724600 00436 CC K2,0 PFC8 00436
* 006677 3000673543 00437 JC $+30,35 5 PFC8 00437
* 006704 3000007760 00438 JC 63,48 PFC8 00438
* 006711 3000000060 00439 PFCI5 JC 0,48 PFC8 00439
006716 2600750304 00440 PD PUABN+3,3,4 PFC8 00440
* 006723 3000706264 00441 JC PRT,52 PFC8 00441
* 006730 3000702400 00442 JC NOPRT PFC8 00442
006735 3400724601 00443 CC K2,1 PFC8 00443
* 006742 3000700043 00444 JC $+30,35 5 PFC8 00444
* 006747 3000002060 00445 JC 16,48 PFC8 00445
* 006754 3000000060 00446 PFCI6 JC 0,48 PFC8 00446
006761 4200750331 00447 ST PUABN+3,3,25 PFC8 00447
* 006766 3000706264 00448 JC PRT,52 PFC8 00448
* 006773 3000702400 00449 JC NOPRT PFC8 00449
* 007000 3000004060 00450 JC 32,48 PFC8 00450
* 007005 3000000060 00451 PFCI7 JC 0,48 PFC8 00451
007012 4200750332 00452 ST PUABN+3,3,26 PFC8 00452
* 007017 3000706264 00453 JC $+35,52 2 PFC8 00453
007024 4040407140 00454 NOPRT XF 040,0714140,0,2 PFC8 00454
007031 2000624703 004551 FT CMP02,3 3 PFC8 004551
007036 5200042303 004562 SA1 275,3 PFC8 004562
007043 3400606343 00457 CC PFCG5+4,4,35 PFC8 00457
* 007050 3000647542 00458 JC PFCI1,3434 PFC8 00458
* 007055 3000650200 00459 JC PFCI1+5 5 PFC8 00459
007062 2000750040 00460 PRT FT PUABN,3232 PFC8 00460
007067 2000000241 00461 FT 2,33 PFC8 00461
007074 4000620400 00462 XF 062,040000,0,0 PFC8 00462
* 007101 3000702400 00463 JC NOPRT PFC8 00463
* 007106 3000000000 00464 INIT JC 0 PFC8 00464
007113 5600734510 00465 BA1 PRIE+3,8,8 PFC8 00465
007120 5200040710 00466 SA1 263,8 PFC8 00466
007125 5600735510 00467 BA1 PUIE+3,8,8 PFC8 00467
007132 5200042710 00468 SA1 279,8 PFC8 00468
007137 5600737500 00469 BA1 CLIE+11,1,16 PFC8 00469
007144 5200051700 00470 SA1 335,16 PFC8 00470
007151 4400724601 00471 SC K2,1 PFC8 00471
007156 2600025304 004721 PD 171,4 PFC8 004721
007163 4040640000 00473 XF 064,00,0,0,2 PFC8 00473
007170 4040640000 00474 XF 064,00,0,0,2 PF 8 00474
007175 4040640000 00475 XF 064,00,0,0,2 PFC8 00475
007202 4040640000 004761 XF 064,00,0,0,2 FC8 004761
007207 4400724600 00477 SC K2,0 PFC8 00477
007214 4400724500 00478 SC K1,0 PFC8 00478
007221 2000000241 004791 FT 2,33 PFC8 004791
007226 4400625340 004804 SC CMP02+4,4,32 PFC8 004804
007233 4400626000 004816 SC CMP02+9,9,0 PFC8 004816
* 007240 3000710600 00482 JC INIT PFC8 00482
007245 15 00483 AREA 13 PFC8 00483
007245 1 00484 K1 - 1 PFC8 00484
007246 1 00485 K2 - 1 PFC8 00485
007247 1 00486 K3 - 1 PFC8 00486
007253 4 00487 K4 - 4 PFC8 00487
007257 4 00488 K5 - 4 PFC8 00488
007261 2 004891K6 - 2 PFC8 004891
007265 00-0 00490 ID1 +4 _00-0_ PFC8 00490
007271 0030 00491 ID2 +4 _0030_ PFC8 00491
007275 01-0 00492 ID3 +4 _01-0_ PFC8 00492
007301 0130 00493 ID4 +4 _0130_ PFC8 00493
007305 02-0 00494 ID5 +4 _02-0_ PFC8 00494
007311 0230 00495 ID6 +4 _0230_ PFC8 00495
007315 03-0 00496 ID7 +4 _03-0_ PFC8 00496
007321 0330 00497 ID8 +4 _0330_ PFC8 00497
000147 00498 ID EQU 103 PFC8 00498
007325 00000001 00499 BONE +4 1 PFC8 00499
007331 00003720 00500 BBIG +4 00000372720 PFC8 00500
007335 00000007 00501 B7 +4 7 PFC8 00501
007342 E F 00502 PRIE +5 _E F_ _ PFC8 00502
007345 007376 00503 +3 PRINT PFC8 00503
007352 E F 00504 PUIE +5 _E F_ _ PFC8 00504
007355 006444 00505 +3 PFCI PFC8 00505
007362 E F 00506 CLIE +5 _E F_ _ PFC8 00506
007365 007415 00507 +3 CLONE PFC8 00507
007372 E F 00508 +5 _E F_ _ PFC8 00508
007375 007427 00509 +3 CLTWO PFC8 00509
* 007376 3000001160 00510 PRINT JC 9,48 PFC8 00510
007403 4000407162 00511 XF 040,0716162,0,0 PFC8 00511
* 007410 3000040000 00512 JC 256 PFC8 00512
* 007415 3000001260 00513 CLONE JC 10,48 PFC8 00513
* 007422 3000050000 00514 JC 320 PFC8 00514
* 007427 3000001360 00515 CLTWO JC 11,48 PFC8 00515
* 007434 3000051000 00516 JC 328 PFC8 00516
007500 00517 ORIG $,64 PFC8 00517
007500 005181PUABN EQU $ PFC8 005181
007517 PCH ABN) 00519 +16 _ PCH ABN) _ PFC8 00519 N
007537 J2) X1) X2 00520 +16 _J2) X1) X2_ PFC8 00520
007557 ) X3) X4) 00521 +16 _) X3X3) X4) _ PFC8 00521 4
007577 X5) X6) 00522 +16 _ X5) ) X6) _ PFC8 00522
007600 005231P1 EQU $ PFC8 005231
007617 ABCDEFGHIJKL 00524 +16 _ ABCBCDEFGHIJKL_ PFC8 00524 J
007637 MNOPQR/STUVWXYZ 00525 +16 _MNOPQR/R/STUVWXYZ _ PFC8 00525 Y
007657 +-0123456789ABCD 00526 +16 _+-012343456789ABCD_ 00526 B
007677 EFGHIJKLMNOPQR/S 00527 +16 _EFGHIJKJKLMNOPQR/S_ PFC8 00527 R
007717 TUVWXYZ ++++++ 00528 +16 _TUVWXYZYZ ++++++_ PF 8 00528 +
010000 00529 ORIG $,64 PFC8 00529
010000 005301P2 EQU $ PFC8 005301
010017 ABCDEFGHIJKL 00531 +16 _ ABCBCDEFGHIJKL_ PFC8 00531 J
010037 MNOPQR/STUVWXYZ 00532 +16 _MNOPQR/R/STUVWXYZ _ PFC8 00532 Y
010057 +-0123456789ABCD 00533 +16 _+-012343456789ABCD_ 00533 B
010077 EFGHIJKLMNOPQR/S 00534 +16 _EFGHIJKJKLMNOPQR/S_ PFC8 00534 R
010117 TUVWXYZ 999999 00535 +16 _TUVWXYZYZ 999999_ P6C8 00535 9
010200 005361 ORIG $,64 PFC8 005361
010200 300 00537 R1 AREA 192 PFC8 00537
010400 00538 R2 EQU R1+128 PFC8 00538
010200 00539 R3 EQU R1 PFC8 00539
010500 00540 R4 EQU R2+64 PFC8 00540
010500 00541 ORIG $,64 PFC8 00541
010500 005421P3 EQU $ PFC8 005421
010506 00000000000000 00543 +7 00000000000000000 PFC8 00543 0
010515 00440042004100 00544 +7 00044004042004100 PFC8 00544 0
010524 40404020401040 00545 +7 04040402020401040 PFC8 00545 0
010533 04400240012400 00546 +7 00440024240012400 PFC8 00546 0
010542 22002100204020 00547 +7 02200210100204020 PFC8 00547 0
010551 20201020042002 00548 +7 02020102020042002 PFC8 00548 2
010560 20011400120011 00549 +7 02001140400120011 PFC8 00549 1
010567 00104010201010 00550 +7 00010401010201010 P6 8 00550 0
010576 10041002100100 00551 +7 01004100002100100 P6 8 00551 0
010605 00400020001000 00552 +7 00040002020001000 P6 8 00552 0
010614 04000200010000 00553 +7 00400020200010000 P6 8 00553 0
010623 40002000100004 005543 +7 04000200000100004 P6 8 0055434
010632 00020001440042 005553 +7 00002000001440042 P6 8 0055532
010641 00410040404020 005563 +7 00041004040404020 P6 8 0055630
010650 40104004400240 005573 +7 04010400004400240 P6 8 0055730
010657 01240022002100 005583 +7 00124002022002100 P6 8 0055830
010666 20402020201020 00559 +7 02040202020201020 P6 8 00559 0
010675 04200220011400 00560 +7 00420022220011400 P6 8 00560 0
010704 12001100104010 00561 +7 01200110100104010 P6 8 00561 0
010713 20101010041002 00562 +7 02010101010041002 P6 8 00562 2
010722 10010000000000 00563 +7 01001000000000000 P6 8 00563 0
010731 00400040004000 00564 +7 00040004040004000 PFC8 00564 0
010737 400040004000 00565 +6 040004000004000 PFC8 00565
011000 00566 ORIG $,64 PFC8 00566
011000 005671P4 EQU $ PFC8 005671
011006 00000000000000 00568 +7 00000000000000000 PFC8 00568 0
011015 00440042004100 00569 +7 00044004042004100 PFC8 00569 0
011024 40404020401040 00570 +7 04040402020401040 PF 8 00570 0
011033 04400240012400 00571 +7 00440024240012400 PFC8 00571 0
011042 22002100204020 00572 +7 02200210100204020 PFC8 00572 0
011051 20201020042002 00573 +7 02020102020042002 PFC8 00573 2
011060 20011400120011 00574 +7 02001140400120011 P6 8 00574 1
011067 00104010201010 00575 +7 00010401010201010 P6 8 00575 0
011076 10041002100100 00576 +7 01004100002100100 P6 8 00576 0
011105 00400020001000 00577 +7 00040002020001000 P6 8 00577 0
011114 04000200010000 00578 +7 00400020200010000 P6 8 00578 0
011123 40002000100004 005793 +7 04000200000100004 P6 8 0057934
011132 00020001440042 005803 +7 00002000001440042 P6 8 0058032
011141 00410040404020 005813 +7 00041004040404020 P6 8 0058130
011150 40104004400240 005823 +7 04010400004400240 P6 8 0058230
011157 01240022002100 00583 +7 00124002022002100 P6 8 00583 0
011166 20402020201020 00584 +7 02040202020201020 P6 8 00584 0
011175 04200220011400 00585 +7 00420022220011400 P6 8 00585 0
011204 12001100104010 00586 +7 01200110100104010 P6 8 00586 0
011213 20101010041002 00587 +7 02010101010041002 P6 8 00587 2
011222 10010000000000 00588 +7 01001000000000000 P6 8 00588 0
011231 00000100010001 00589 +7 00000010100010001 00589 1
011237 000100010001 00590 +6 000010000010001 00590
011300 00591 ORIG $,64 00591
011300 005921LOERR EQU $ PFC8 005921
011317 LOCKOUT PROCESSO 00593 +16 _LOCKOUTUT PROCESSO_ PCF8 00593 S
011337 R ERROR PUNCH 00594 +16 _R ERROROR PUNCH _ PCF8 00594 C
011357 ORDER 00595 +16 _ORDER _ PCF8 00595
011377 00596 +16 _ _ PCF8 00596
011400 00597 ORIG $,64 PCF8 00597
011400 005981RBAER EQU $ PFC8 005981
011417 ADVANCE READ BAS 00599 +16 _ADVANCECE READ BAS_ PCF8 00599 B
011437 E ADDRESS ERROR 00600 +16 _E ADDRERESS ERROR _ PCF8 00600 O
011457 PUNCH ORDER 00601 +16 _ PUNCHCH ORDER _ PCF8 00601
011477 00602 +16 _ _ PCF8 00602
011500 00603 ORIG $,64 PCF8 00603
011500 006041PBAER EQU $ PF38 006041
011517 ADVANCE PUNCH BA 00605 +16 _ADVANCECE PUNCH BA_ PCF8 00605
011537 SE ADDRESS ERROR 00606 +16 _SE ADDRDRESS ERROR_ PCF8 00606 R
011557 PUNCH ORDER 00607 +16 _ PUNCNCH ORDER _ PCF8 00607 R
011577 00608 +16 _ _ PCF8 00608
011600 00609 ORIG $,64 PCF8 00609
011600 006101IIERR EQU $ PF38 006101
011617 INHIBIT INTERRUP 00611 +16 _INHIBITIT INTERRUP_ PCF8 00611 R
011637 T ERROR PUNCH 00612 +16 _T ERROROR PUNCH _ PCF8 00612 C
011657 ORDER 00613 +16 _ORDER _ PCF8 00613
011677 00614 +16 _ _ PCF8 00614
011700 00615 ORIG $,64 PFC8 00615
011700 00616 TRERR EQU $ PFC8 00616
011717 COMPARISON ERROR 00617 +16 _COMPARIRISON ERROR_ PFC8 00617 R
011737 PUNCH ORDER 00618 +16 _ PUNCNCH ORDER _ PFC8 00618 R
011757 00619 +16 _ _ PFC8 00619
011777 00620 +16 _ _ PFC8 00620
012003 00000020 00621 B16 +4 00000002020 PFC8 00621
0000 ERROR LINES 3000250000 00622 END START PFC8 00622
{-- tape mark --}
010283 C211 CFC CODEDIT SOURCE - T3834394-21
002500 00010 T210 BEGIN 02500 CFC 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 002500 3007010660 * JD 070106 *
* 002505 3000250000 * J $-5 *
SEGMENT-ID T211 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 T212 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 T213 3000136300 * SEGJP $ *
002500 000101 ORIG 02500 000101
* 002500 3000250520 00020 START JHJ MAJ0R CFC 00020
002505 5601150600 00030 MAJ0R BA1 INT12,1616 CFC 00030
002512 5200051700 00040 SA1 00517,1616 SET CLASS 1+2 IN CFC 00040
002517 2600007700 00050 PD 077,16 CFC 00050
002524 2600005700 00060 PD 057,16 CFC 00060
002531 5601152620 00070 BA2 INT45,1616 CFC 00070
002536 5200045720 00080 SA2 00457,1616 SET CHANLS 4 AND CFC 00080
002543 2601146306 00090 PD SPCNT,6 6 CFC 00090
* 002550 3000772100 00100 J D0NE CFC 00100
002555 4401074704 00110 RX SC CIRCL+4,4,4 CFC 00110
002562 4401143000 00120 REPET SC MARK,0 CFC 00120
002567 4400545777 00130 SC SET+4,07077 CFC 00130
002574 2601120714 00140 PD IR6,12 CFC 00140
002601 2601121304 00150 PD TBL,4 CFC 00150
002606 2600007704 00160 PD 077,4 CFC 00160
002613 4400362204 00170 SC LW+4,4 CFC 00170
002620 2601146004 00180 PD SPW,4 CFC 00180
* 002625 1000545100 00190 JR L0AD CFC 00190
002632 2601116704 00200 PD LNGTH,4 4 CFC 00200
* 002637 1001077200 00210 JR RWIND CFC 00210
002644 2601153604 00220 PD MAXI,4 CFC 00220
002651 4401153677 00230 SC MAXI,63 3 CFC 00230
* 002656 1000552122 00240 WRITE JR WTCLR,1818 CFC 00240
* 002663 1000523500 00250 JR FIXX CFC 00250
* 002670 1000643500 00260 NXT1 JR FIXBT FIX UNIT BITS TO CFC 00260
002675 4100020100 00270 WRT1 XF 002,0010100,00,04 WRT,NO THT,L0C CFC 00270 4
* 002702 1000722400 00280 JR L00P G0 WAIT F0R TPT CFC 00280
* 002707 3000270760 00290 NC1 JD NC1 N0 C0MPLETI0N IP CFC 00290
* 002714 3000273300 00300 J NXT2 CFC 00300
* 002721 3000272160 00310 BSY1 JD BSY1 BUSY ST0P FR0M W CFC 00310
* 002726 3000250500 00320 Z J MAJ0R CFC 00320
* 002733 1040526100 00330 NXT2 JR TBA,0,2 2 CFC 00330
* 002740 3000275700 00340 J NXT3 CFC 00340
* 002745 3000274560 00350 BA1 JD BA1 B.A.ERR0R FR0M CFC 00350
* 002752 3000272600 00360 J Z CFC 00360
* 002757 1000552100 00370 NXT3 JR WTCLR CFC 00370
* 002764 1000523500 00380 JR FIXX CFC 00380
* 002771 1000643500 00390 JR FIXBT CFC 00390
002776 4100222100 00400 WRT2 XF 022,0210100,00,04 WRT + INBT,N0L0 CFC 00400 4
* 003003 1000722400 00410 JR L00P CFC 00410
* 003010 3000303400 00420 J NXT4 CFC 00420
* 003015 3000301560 00430 GC1 JD GC1 ERR0R G0T C0MPL CFC 00430
* 003022 3000302260 00440 BSY2 JD BSY2 ERR0R G0T BSY CFC 00440
* 003027 3000272600 00450 J Z CFC 00450
* 003034 1040526100 00460 NXT4 JR TBA,0,2 2 CFC 00460
* 003041 3000305300 00470 J NXT5 CFC 00470
* 003046 3000304660 00480 BA2 JD BA2 B.A. ERR0R 0N WR CFC 00480
* 003053 1000552100 00490 NXT5 JR WTCLR CFC 00490
* 003060 1000523500 00500 JR FIXX CFC 00500
003065 2000311103 00510 FT NLK3,3 CFC 00510
003072 5200722403 00520 SA1 L00P+3,3,3 CFC 00520
* 003077 1000643500 00530 JR FIXBT CFC 00530
003104 4100420100 00540 WRT3 XF 042,0010100,00,04 N0INBT,L0CK,N0 CFC 00540 4
* 003111 3000311160 00550 NLK3 JD NLK3 ERR0R-N0L0CK 0R CFC 00550
* 003116 3000313000 00560 J NXT6 CFC 00560
* 003123 3000312360 00570 BSY3 JD BSY3 ERR0R-G0T BUSY 0 CFC 00570
* 003130 1040526100 00580 NXT6 JR TBA,0,2 2 CFC 00580
* 003135 3000314700 00590 J NXT7 CFC 00590
* 003142 3000314260 00600 BA3 JD BA3 B.A.ERR0R 0N WR CFC 00600
* 003147 1000552100 00610 NXT7 JR WTCLR CFC 00610
* 003154 1000523500 00620 JR FIXX CFC 00620
003161 2000321203 00630 FT NC4,3 CFC 00630
003166 5200722403 00640 SA1 L00P+3,3,3 CFC 00640
* 003173 1000636500 00650 JR DBLFX FIX BITS T0 B0TH CFC 00650
003200 4100222100 00660 WRT4 XF 022,0210100,00,04 1NH TPT, T0 F0RCE BUSY CFC 00660 4
003205 4100620400 00670 WRT5 XF 062,0040400,00,04, ERASE F0RWARD 1 CFC 00670 4
* 003212 3000321260 00680 NC4 JD NC4 CFC 00680
* 003217 3000321760 00690 SC4 JD SC4 CFC 00690
* 003224 3000323600 00700 BSY4 J NXT8 CFC 00700
* 003231 3000272600 00710 J Z CFC 00710
* 003236 1000722400 00720 NXT8 JR L00P CFC 00720
* 003243 1040526100 00730 JR TBA,0,2 2 CFC 00730
* 003250 3000326200 00740 J ADV1 CFC 00740
* 003255 3000325560 00750 BA4 JD BA4 CFC 00750
* 003262 1000552100 00760 ADV1 JR WTCLR CFC 00760
* 003267 1000523500 00770 JR FIXX CFC 00770
* 003274 1000643500 00780 JR FIXBT CFC 00780
003301 4100020300 00790 WRT6 XF 002,0030300,00,04 ADV,BUT N0 L0CK, CFC 00790 4
* 003306 1000722400 00800 JR L00P CFC 00800
* 003313 3000331360 00810 NC6 JD NC6 ERR0R N0 C0MPL. CFC 00810
* 003320 3000333200 00820 J NXT10 CFC 00820
* 003325 3000332560 00830 BSY6 JD BSY6 ERR0R BSY IPT CFC 00830
* 003332 1001110000 00840 NXT10 JR CKBA G0 CHECK B.A. CFC 00840
* 003337 3000333760 00850 BA6 JD BA6 ERR0R B.A. FR0M CFC 00850
* 003344 1000552100 00860 JR WTCLR CFC 00860
* 003351 1000523500 00870 JR FIXX CFC 00870
* 003356 1000643500 00880 JR FIXBT CFC 00880
003363 4100222300 00890 WRT7 XF 022,0230300,00,04 ADV + INH_ N0L0 CFC 00890 4
* 003370 1000722400 00900 JR L00P CFC 00900
* 003375 3000341400 00910 J NXT11 CFC 00910
* 003402 3000340260 00920 SC7 JD SC7 ERR0R, G0T C0MPL CFC 00920
* 003407 3000340760 00930 BSY7 JD BSY7 ERR0R, G0T BSY F CFC 00930
* 003414 1001110000 00940 NXT11 JR CKBA CFC 00940
* 003421 3000342160 00950 BA7 JD BA7 ERR0R B.A. FR0M CFC 00950
* 003426 1000552100 00960 JR WTCLR CFC 00960
* 003433 1000523500 00970 JR FIXX CFC 00970
003440 2000346403 00980 FT NLK8,3 CFC 00980
003445 5200722403 00990 SA1 L00P+3,3,3 CFC 00990
* 003452 1000643500 01000 JR FIXBT CFC 01000
003457 4100420300 01010 WRT8 XF 042,0030300,00,04 L0CK +ADV,N0 I CFC 01010 4
* 003464 3000346460 01020 NLK8 JD NLK8 ERR0R,N0 L0CK0U CFC 01020
* 003471 3000350300 01030 J NXT12 CFC 01030
* 003476 3000347660 01040 BSY8 JD BSY8 ERR0R, BSY FR0M CFC 01040
* 003503 1001110000 01050 NXT12 JR CKBA CFC 01050
* 003510 3000351060 01060 BA8 JD BA8 ERR0R, B.A. FR0M CFC 01060
* 003515 1000552100 01070 JR WTCLR CFC 01070
* 003522 1000523500 01080 JR FIXX CFC 01080
003527 2000356003 01090 FT NC9,3 CFC 01090
003534 5200722403 01100 SA1 L00P+3,3,3 CFC 01100
* 003541 1000636500 01110 JR DBLFX CFC 01110
003546 4100222300 01120 WRT9 XF 022,0230300,00,04 CFC 01120 4
003553 4100620700 01130 WRT10 XF 062,0070700,00,04 ERASE CFC 01130 4
* 003560 3000356060 01140 NC9 JD NC9 CFC 01140
* 003565 3000356560 01150 SC9 JD SC9 CFC 01150
* 003572 1000722400 01160 BSY9 JR L00P CFC 01160
* 003577 1001110000 01170 NXT13 JR CKBA CFC 01170
* 003604 3000360460 01180 BA9 JD BA9 CFC 01180
003611 6001153602 01190 AC MAXI,2 CFC 01190
* 003616 3200265604 01200 LW JL WRITE,4 4 CFC 01200
003623 6001143001 01210 AX AC MARK,01 1 CFC 01210
* 003630 3000363525 01220 JC $+5,21 CFC 01220
003635 2601117304 01230 PD BKCTR,4 4 CFC 01230
003642 4400535600 01240 SC FGT+4,0 0 CFC 01240
003647 4400400040 01250 SC C0UNT+4,4,32 CFC 01250
003654 4400542600 01260 SC CLR+4,0 0 CFC 01260
* 003661 1000535000 01270 JR RDCLR CFC 01270
* 003666 1000523500 01280 JR FIXX CFC 01280
003673 6001117301 01290 BACK AC BKCTR,0101 CFC 01290
003700 2000373603 01300 FT D0N,3 CFC 01300
003705 5200722403 01310 SA1 L00P+3,3,3 CFC 01310
003712 4401153505 01320 SC MAXI-1,5,5 CFC 01320
* 003717 1000636500 01330 JR DBLFX CFC 01330
003724 4100013200 01340 RDBK1 XF 001,0320200,00,04 BACKSP, N0 INH0R CFC 01340 4
003731 4100611000 01350 RDBK2 XF 061,0100000,00,04 INH + L0CK, H.D. CFC 01350 4
* 003736 3000373660 01360 D0N JD D0N N0 IPT FR0M RDBK2 CFC 01360
* 003743 3000374360 01370 CIBS JD CIBS G0T N0 BUSY CFC 01370
* 003750 1000722400 01380 JR L00P CFC 01380
* 003755 3000375560 01390 N0IPT JD N0IPT N0 C0MPL. IPT. F CFC 01390
* 003762 3000377400 01400 J C0UNT CFC 01400
* 003767 3000376760 01410 BSYBS JD BSYBS CFC 01410
* 003774 3200367340 01420 C0UNT JL BACK,32 2 CFC 01420
* 004001 3000406300 01430 J TCL CFC 01430
004006 2601153604 01440 PM PD MAXI,4 CFC 01440
004013 4401153677 01450 SC MAXI,63 3 CFC 01450
004020 5601146021 01460 BA2 SPW,1 CFC 01460
004025 5200404321 01470 SA2 TD+4,1 CFC 01470
004032 6001153662 01480 IC AC MAXI,50 0 CFC 01480
* 004037 3200403200 01490 TD JL IC,0 CFC 01490
* 004044 3000426500 01500 J ML CFC 01500
004051 4401153640 01510 SC MAXI,04040 CFC 01510
* 004056 3000426500 01520 J ML CFC 01520
* 004063 1001104200 01530 TCL JR TSTCL G0 TEST READ IN CFC 01530
* 004070 3000407060 01540 G0TD JD G0TD G0T DATA IN 0N B CFC 01540
* 004075 1040526100 01550 JR TBA,0,2 2 CFC 01550
* 004102 3000411400 01560 J NXTF4 CFC 01560
* 004107 3000410760 01570 RDBBA JD RDBBA G0T B.A. ERR0R R CFC 01570
004114 2601116704 01580 NXTF4 PD LNGTH,4 4 CFC 01580
004121 2601120714 01590 PD IR6,12 CFC...01590
004126 2601121304 01600 PD TBL,4 CFC 01600
004133 4400427102 01610 SC ML+4,2 CFC 01610
004140 4400535640 01620 SC FGT+4,3232 CFC 01620
004145 2600007704 01630 PD 077,4 CFC 01630
004152 4400521704 01640 SC LR+4,4 CFC 01640
004157 4400542600 01650 SC CLR+4,0 0 CFC 01650
* 004164 1000535025 01660 READ JR RDCLR,2121 CFC 01660
* 004171 1000523500 01670 JR FIXX CFC 01670
* 004176 1000643500 01680 JR FIXBT CFC 01680
004203 4100010100 01690 RD1 XF 001,0010100,00,04 READ, N0 IHB, L0 CFC 01690 4
* 004210 1000722400 01700 JR L00P CFC 01700
* 004215 3000421560 01710 NCR1 JD NCR1 ERR0R N0 C0MPL. CFC 01710
* 004222 3000423400 01720 J NXT15 CFC 01720
* 004227 3000422760 01730 BYR1 JD BYR1 ERR0R G0T BUSY F CFC 01730
* 004234 1040526100 01740 NXT15 JR TBA,0,2 2 CFC 01740
* 004241 3000425300 01750 J BAR1+5 CFC 01750
* 004246 3000424660 01760 BAR1 JD BAR1 ERR0R 0N B.A. CFC 01760
* 004253 1000677100 01770 JR TEST CFC 01770
* 004260 3000426060 01780 TST1 JD TST1 CFC 01780
* 004265 3200400602 01790 ML JL PM,2 CFC 01790
* 004272 1000535000 01800 JR RDCLR CFC 01800
* 004277 1000523500 01810 JR FIXX CFC 01810
* 004304 1000643500 01820 JR FIXBT CFC 01820
004311 4100212100 01830 RD2 XF 021,0210100,00,04 THBT, N0 L0CK 0R CFC 01830 4
* 004316 1000722400 01840 JR L00P CFC 01840
* 004323 3000434200 01850 J NXT17 CFC 01850
* 004330 3000433060 01860 RC1 JD RC1 G0T C0MPLETI0N T CFC 01860
* 004335 3000433560 01870 BYR2 JD BYR2 ERR0R G0T BUSY F CFC 01870
* 004342 1040526100 01880 NXT17 JR TBA,0,2 2 CFC 01880
* 004347 3000436100 01890 J NXT18 CFC 01890
* 004354 3000435460 01900 BAR2 JD BAR2 ERR0R B.A. RD2 CFC 01900
* 004361 1000677100 01910 NXT18 JR TEST CFC 01910
* 004366 3000436660 01920 TST2 JD TST2 CFC 01920
* 004373 1000535000 01930 JR RDCLR CFC 01930
* 004400 1000523500 01940 JR FIXX CFC 01940
004405 2000443103 01950 FT RNL3,3 CFC 01950
004412 5200722403 01960 SA1 L00P+3,3,3 CFC 01960
* 004417 1000643500 01970 JR FIXBT CFC 01970
004424 4100410100 01980 RD3 XF 041,0010100,00,04 CFC 01980 4
* 004431 3000443160 01990 RNL3 JD RNL3 ERR0R, N0 L0CK0U CFC 01990
* 004436 3000445000 02000 J NXT19 CFC 02000
* 004443 3000444360 02010 BYR3 JD BYR3 BUSY ERR0R, RD3 CFC 02010
* 004450 1040526100 02020 NXT19 JR TBA,0,2 2 CFC 02020
* 004455 3000446700 02030 J NXT20 CFC 02030
* 004462 3000446260 02040 BAR3 JD BAR3 B.A. ERR0R, RD3 CFC 02040
* 004467 1000677100 02050 NXT20 JR TEST CFC 02050
* 004474 3000447460 02060 TST3 JD TST3 DATA ERR0R FR0M CFC 02060
* 004501 1000535000 02070 JR RDCLR CFC 02070
* 004506 1000523500 02080 JR FIXX CFC 02080
004513 2000453703 02090 FT RNC4,3 CFC 02090
004520 5200722403 02100 SA1 L00P+3,3,3 CFC 02100
* 004525 1000643500 02110 JR FIXBT CFC 02110
004532 4100612100 02120 RD4 XF 061,0210100,00,04 CFC 02120 4
* 004537 3000455600 02130 RNC4 J NXT21 CFC 02130
* 004544 3000454460 02140 RSC4 JD RSC4 G0T SUCESSFUL C0 CFC 02140
* 004551 3000455160 02150 RBY4 JD RBY4 BUSY ERR0R FR0M CFC 02150
* 004556 1000677100 02160 NXT21 JR TEST CFC 02160
* 004563 3000456360 02170 TST4 JD TST4 DATA ERR0R FR0M CFC 02170
* 004570 1040526100 02180 JR TBA,0,2 2 CFC 02180
* 004575 3000460700 02190 J ADVR1 CFC 02190
* 004602 3000460260 02200 BAR4 JD BAR4 CFC 02200
* 004607 1000535000 02210 ADVR1 JR RDCLR CFC 02210
* 004614 1000523500 02220 JR FIXX CFC 02220
* 004621 1000643500 02230 JR FIXBT CFC 02230
004626 4100010300 02240 RD6 XF 001,0030300,00,04 CFC 02240 4
* 004633 1000722400 02250 JR L00P CFC 02250
* 004640 3000464060 02260 NCR6 JD NCR6 N0C0MPL. IPT CFC 02260
* 004645 3000465700 02270 J NXT22 CFC 02270
* 004652 3000465260 02280 RBY6 JD RBY6 BUSY FR0M RD6 CFC 02280
* 004657 1001110000 02290 NXT22 JR CKBA CFC 02290
* 004664 3000466460 02300 BAR6 JD BAR6 B.A. ERR0R FR0M CFC 02300
* 004671 1000677100 02310 JR TEST CFC 02310
* 004676 3000467660 02320 TST6 JD TST6 DATA ERR0R, RD6 CFC 02320
* 004703 1000535000 02330 JR RDCLR CFC 02330
* 004710 1000523500 02340 JR FIXX CFC 02340
* 004715 1000643500 02350 JR FIXBT CFC 02350
004722 4100212300 02360 RD7 XF 021,0230300,0,04 CFC 02360
* 004727 1000722400 02370 JR L00P CFC 02370
* 004734 3000475300 02380 J NXT23 CFC 02380
* 004741 3000474160 02390 RSC7 JD RSC7 G0T C0MPL. IPT F CFC 02390
* 004746 3000474660 02400 RBY7 JD RBY7 BUSY FR0M RD7 CFC 02400
* 004753 1001110000 02410 NXT23 JR CKBA CFC 02410
* 004760 3000476060 02420 BAR7 JD BAR7 B.A. ERR0R FR0M CFC 02420
* 004765 1000677100 02430 JR TEST CFC 02430
* 004772 3000477260 02440 TST7 JD TST7 DATA ERR0R FR0M CFC 02440
* 004777 1000535000 02450 JR RDCLR CFC 02450
* 005004 1000523500 02460 JR FIXX CFC 02460
005011 2000503503 02470 FT RNL8,3 CFC 02470
005016 5200722403 02480 SA1 L00P+3,3,3 CFC 02480
* 005023 1000643500 02490 JR FIXBT CFC 02490
005030 4100410300 02500 RD8 XF 041,0030300,0,04 CFC 02500
* 005035 3000503560 02510 RNL8 JD RNL8 CFC 02510
* 005042 3000505400 02520 J NXT24 CFC 02520
* 005047 3000504760 02530 RBY8 JD RBY8 ERR0R, G0T BUSY, CFC 02530
* 005054 1001110000 02540 NXT24 JR CKBA CFC 02540
* 005061 3000506160 02550 BAR8 JD BAR8 B.A. ERR0R CFC 02550
* 005066 1000677100 02560 JR TEST CFC 02560
* 005073 3000507360 02570 TST8 JD TST8 DATA ERR0R FR0M CFC 02570
* 005100 1000535000 02580 JR RDCLR CFC 02580
* 005105 1000523500 02590 JR FIXX CFC 02590
005112 2000514303 02600 FT RNC9,3 CFC 02600
005117 5200722403 02610 SA1 L00P+3,3,3 CFC 02610
* 005124 1000636500 02620 JR DBLFX CFC 02620
005131 4100212300 02630 RD9 XF 021,0230300,0,04 CFC 02630
005136 4100620000 02640 XF 062,0000000,0,04 CFC 02640
* 005143 3000514360 02650 RNC9 JD RNC9 G0T N0 BUSY CFC 02650
* 005150 3000515060 02660 RSC9 JD RSC9 ERR0R G0T C0MPL. CFC 02660
* 005155 1000722400 02670 JR L00P CFC 02670
* 005162 1001110000 02680 NXT25 JR CKBA CFC 02680
* 005167 3000516760 02690 BAR9 JD BAR9 CFC 02690
* 005174 1000677100 02700 JR TEST CFC 02700
* 005201 3000520160 02710 TST9 JD TST9 CFC 02710
005206 6001153602 02720 AC MAXI,2 CFC 02720
* 005213 3200416404 02730 LR JL READ,4 CFC 02730
005220 6001143001 02740 AC MARK,01 1 CFC 02740
* 005225 1001074100 02750 JR RESET CFC 02750
* 005232 3000000000 02760 FIXX J 0 CFC 02760
005237 2001156060 02770 FT IMAGE,4848 CFC 02770
005244 2001156064 02780 FT IMAGE,5252 CFC 02780
* 005251 3000523200 02790 J FIXX CFC 02790
* 005256 3000000000 02800 TBA J 0 CFC 02800
005263 7401154260 02810 CT IMG,48 CFC 02810
* 005270 3000525642 02820 JE TBA CFC 02820
* 005275 3000533300 02830 J OOPS CFC 02830
* 005302 3000000000 02840 TBAX J 0 CFC 02840
005307 7401154264 02850 CT IMG,52 CFC 02850
* 005314 3000530242 02860 JE TBAX CFC 02860
005321 6000530505 02870 AC TBAX+3,0,05 CFC 02870
* 005326 3000530200 02880 J TBAX CFC 02880
005333 6000526105 02890 OOPS AC TBA+3,0505 CFC 02890
* 005340 3000525600 02900 J TBA CFC 02900
* 005345 3000000031 02910 RDCLR JC 0,25 CFC 02910
* 005352 3000541040 02920 FGT JC PDD,32 CFC 02920
005357 4761122735 02930 BT LT,29,7 7 CFC 02930
005364 4201116735 02940 ST LNGTH,2929 CFC 02940
005371 4200030735 02950 ST 0307,29 9 CFC 02950
005376 4200032735 02960 ST 0327,29 9 CFC 02960
005403 6000007704 02970 AC 077,4 CFC 02970
005410 2601156001 02980 PDD PD IMAGE,1 1 CFC 02980
005415 4400545700 02990 SC SET+4,0 0 CFC 02990
* 005422 1000545100 03000 CLR JR L0AD CFC 03000
005427 4400542640 03010 SC CLR+4,3232 CFC 03010
005434 2601556204 03020 PD IMAGE+202050,4 CFC 03020
* 005441 3000534500 03030 J RDCLR CFC 03030
* 005446 3000000000 03040 L0AD J 0 CFC 03040
005453 4401156077 03050 SET SC IMAGE,07077 CFC 03050
005460 2000000022 03060 FT 0,18 CFC 03060
005465 4400551002 03070 SC LU+4,2 CFC 03070
005472 2001156120 03080 FT IMAGE+1,1,16 CFC 03080
005477 2401156021 03090 TFI IMAGE,1 1 CFC 03090
* 005504 3200547700 03100 LU JL $-5,0 CFC 03100
* 005511 3000544600 03110 J L0AD CFC 03110
* 005516 3000000031 03120 WTCLR JC 0,25 CFC 03120
005523 4761122734 03130 BT LT,28,7 7 CFC 03130
005530 4201116734 03140 ST LNGTH,2828 CFC 03140
005535 4200030734 03150 ST 0307,28 8 CFC 03150
005542 4200032734 03160 ST 0327,28 8 CFC 03160
005547 6000007704 03170 AC 077,4 CFC 03170
005554 4601120315 03180 BT IR5,13 CFC 03180
005561 4601121336 03190 BT TBL,30 CFC 03190
005566 4201142736 03200 ST TABLE,3030 CFC 03200
005573 4601116716 03210 BT LNGTH,1414 CFC 03210
005600 3401142763 03220 TSTZ CC TABLE,06063 CFC 03220
* 005605 3000570642 03230 JE CHECK CFC 03230
005612 5601142701 03240 DRAW BA1 TABLE,1 1 CFC 03240
005617 5321156001 03250 SA1 IMAGE,1,1,5 TEST IR5 EQ. IR6 CFC 03250
005624 6000006701 03260 AC 067,01 INCR. IR5 CFC 03260
005631 7400006716 03270 TST56 CT 067,14 FINISHED FILLING CFC 03270
* 005636 3000565542 03280 JE FILL CFC 03280
005643 6001142701 03290 AC TABLE,0101 CFC 03290
* 005650 3000560000 03300 J TSTZ CFC 03300
005655 6001142701 03310 FILL AC TABLE,0101 CFC 03310
005662 4601142736 03320 BT TABLE,3030 CFC 03320
005667 4201121336 03330 ST TBL,30 CFC 03330
005674 4201120315 03340 ST IR5,13 CFC 03340
* 005701 3000551600 03350 J WTCLR CFC 03350
005706 3401143000 03360 CHECK CC MARK,0 CFC 03360
* 005713 3000561242 03370 JE DRAW CFC 03370
005720 3401143002 03380 CC MARK,02 2 CFC 03380
* 005725 3000561242 03390 JE DRAW CFC 03390
005732 6001142701 03400 AC TABLE,0101 CFC 03400
* 005737 3000561200 03410 J DRAW CFC 03410
* 005744 3000000000 03420 CKMRK J 0 CHECK MARK,DETE CFC 03420
005751 2600007314 03430 PD 073,12 CLEAR IR4,5+6 CFC 03430
005756 4400576700 03440 SC C0MP+4,0,0 CFC 03440
005763 3401143000 03450 C0MP CC MARK,0 CFC 03450
* 005770 3100601442 03460 JE PATH1,4 4 CFC 03460
005775 6000576701 03470 AC C0MP+4,0,01 CFC 03470
006002 6000006336 03480 AC 063,036 6 CFC 03480
* 006007 3000576300 03490 J C0MP CFC 03490
006014 4400653201 03500 PATH1 SC LS2+4,0101 WRITING,CHAN4, CFC 03500
006021 4400653700 03510 SC LS3+4,0000 CHAN BITS LSD CFC 03510
006026 4400654401 03520 SC LS4+4,0101 CHAN BITS MSD CFC 03520
006033 2600005310 03530 PD 053,8 CFC 03530
* 006040 3000574400 03540 J CKMRK CFC 03540
* 006045 1000250100 03550 JR 02476,0 0 CFC 03550
006052 4400653201 03560 PATH2 SC LS2+4,0101 READING,CHAN4, CFC 03560
006057 4400653700 03570 SC LS3+4,0 0 CFC 03570
006064 4400654401 03580 SC LS4+4,0101 CFC 03580
* 006071 3000574400 03590 J CKMRK CFC 03590
* 006076 1000250100 03600 JR 02476,0 0 CFC 03600
* 006103 1000250100 03610 JR 02476,0 0 CFC 03610
006110 4400653201 03620 PATH3 SC LS2+4,0101 WRITING,CHAN5, CFC 03620
006115 4400653720 03630 SC LS3+4,02020 CFC 03630
006122 4400654401 03640 SC LS4+4,0101 CFC 03640
006127 2000002011 03650 FT 020,9 CFC 03650
006134 2000002412 03660 FT 20,10 CFC 03660
* 006141 3000574400 03670 J CKMRK CFC 03670
006146 4400653201 03680 PATH4 SC LS2+4,0101 READING,CHAN5, CFC 03680
006153 4400653720 03690 SC LS3+4,02020 CFC 03690
006160 4400654401 03700 SC LS4+4,0101 CFC 03700
* 006165 3000574400 03710 J CKMRK CFC 03710
* 006172 1000250100 03720 JR 02476,0 0 CFC 03720
* 006177 1000250100 03730 JR 02476,0 0 CFC 03730
006204 4400653200 03740 PATH5 SC LS2+4,0 0 WRITING,CHAN4, CFC 03740
006211 4400653700 03750 SC LS3+4,0 0 CFC 03750
006216 4400654401 03760 SC LS4+4,0101 CFC 03760
006223 2600005310 03770 PD 053,8 CFC 03770
* 006230 3000574400 03780 J CKMRK CFC 03780
* 006235 1000250100 03790 JR 02476,0 0 CFC 03790
006242 4400653200 03800 PATH6 SC LS2+4,0 0 READING,CHAN,4, CFC 03800
006247 4400653700 03810 SC LS3+4,0 0 CFC 03810
006254 4400654401 03820 SC LS4+4,0101 CFC 03820
* 006261 3000574400 03830 J CKMRK CFC 03830
* 006266 1000250100 03840 JR 02476,0 0 CFC 03840
* 006273 1000250100 03850 JR 02476,0 0 CFC 03850
006300 4400653200 03860 PATH7 SC LS2+4,0 0 WRITING,CHAN5, CFC 03860
006305 4400653720 03870 SC LS3+4,02020 CFC 03870
006312 4400654401 03880 SC LS4+4,0101 CFC 03880
006317 2000002011 03890 FT 020,9 CFC 03890
006324 2000002412 03900 FT 20,10 CFC 03900
* 006331 3000574400 03910 J CKMRK CFC 03910
006336 4400653200 03920 PATH8 SC LS2+4,0 0 READING,CHAN5,B CFC 03920
006343 4400653720 03930 SC LS3+4,02020 CFC 03930
006350 4400654401 03940 SC LS4+4,0101 CFC 03940
* 006355 3000574400 03950 J CKMRK CFC 03950
* 006362 3000000000 03960 DBLFX J 0 CFC 03960
006367 4400655140 03970 SC JUMP+4,0,040 SET JUMP T0 SKIP CFC 03970
* 006374 1000574700 03980 JR CKMRK G0 CHECK MARK CFC 03980
006401 4601155415 03990 BT SVIR5,1313 CFC 03990
006406 4400656302 04000 SC DBLP+4,0,02 SET D0UBLE L00P CFC 04000
006413 5600636503 04010 BA1 DBLFX+3,3,3 SET FIRST XF ADR CFC 04010
006420 5200007303 04020 SA1 073,3 TR6 CFC 04020
* 006425 3000647000 04030 J SET1 CFC 04030
* 006432 3000000000 04040 FIXBT J 0 CFC 04040
006437 4400655100 04050 SC JUMP+4,0,0 SET JUMP T0 JUMP CFC 04050
* 006444 1000574700 04060 JR CKMRK CFC 04060
006451 4601155415 04070 BT SVIR5,1313 CFC 04070
006456 5600643503 04080 BA1 FIXBT+3,3,3 CFC 04080
006463 5200007303 04090 SA1 073,3 SET XF ADRESS.T CFC 04090
006470 5721154301 04100 SET1 BA1 IMG+1,1,1,5 CFC 04100
006475 5200652501 04110 SA1 LS1+4,1 1 CFC 04110
006502 5540000376 04120 LP 03,076,6,6 ERASEOLDMODERITB CFC 04120
006507 5540000076 04130 LP 00,076,6,6 ERASE OLD CFC 04130
006514 5540000100 04140 LP 01,00,6 6 CHAN. BITS + UNI CFC 04140
006521 6540000100 04150 LS1 LS 01,0,6 INSERT UNIT BITS CFC 04150
006526 6540000300 04160 LS2 LS 03,0,6 INSERT MODE BITS CFC 04160
006533 6540000100 04170 LS3 LS 01,0,6 INSERT CHAN. BIT CFC 04170
006540 6540000000 04180 LS4 LS 0,0,6 INSERT CHAN BITS CFC 04180
* 006545 3000643200 04190 JUMP J FIXBT,0 0 CFC 04190
006552 6000007305 04200 AC 073,05 INCR. TR6 BY 5 CFC 04200
* 006557 3200650202 04210 DBLP JL SET1+10,0,2 CFC 04210
* 006564 3000636200 04220 J DBLFX CFC 04220
* 006571 3000657160 04230 D00M JD D00M CFC 04230
* 006576 3000272600 04240 J Z CFC 04240
* 006603 3000000000 04250 SP0T J 0 CFC 04250
006610 5600045700 04260 BA1 0457,16 6 CFC 04260
006615 4401153505 04270 SC CNTER+3,3,5 CFC 04270
006622 5600722505 04280 BA1 L00P+4,5,5 CFC 04280
006627 5201145505 04290 SA1 SVELP,5 5 CFC 04290
006634 2000664103 04300 FT DAD,3 CFC 04300
006641 5200722403 04310 DAD SA1 L00P+3,3,3 CFC 04310
* 006646 1000643500 04320 JR FIXBT CFC 04320
006653 4100611000 04330 XF 061,0100000,00,04 BACKSPCE. LOCKOU CFC 04330 4
* 006660 3000667265 04340 JC AXL,53 CFC 04340
* 006665 3000672300 04350 J NXT14 CFC 04350
* 006672 1000643500 04360 AXL JR FIXBT CFC 04360
006677 4100620400 04370 XF 062,0040400,0,04 CFC 04370
006704 6001146001 04380 AC SPW,1 CFC 04380
006711 3401146000 04390 CC SPW,64 CFC 04390
* 006716 3000657142 04400 JE D00M CFC 04400
006723 5601145000 04410 NXT14 BA1 IE45,16 6 CFC 04410
* 006730 3000000040 04420 JC 0,32 SKIP CFC 04420
006735 5601145505 04430 BA1 SVELP,5 5 CFC 04430
006742 5200722505 04440 SA1 L00P+4,5,5 CFC 04440
006747 6001146301 04450 AC SPCNT,0101 CFC 04450
* 006754 3000551665 04460 JC WTCLR,5353 CFC 04460
* 006761 3000534500 04470 J RDCLR CFC 04470
* 006766 3000000000 04480 TEST J 0 SET LENGTH T0 IR CFC 04480
006773 2600005704 04490 PD 057,4 CLEAR IR3 CFC 04490
007000 6000005701 04500 AC 057,1 CFC 04500
007005 4400701600 04510 SC T+4,0 CFC 04510
007012 3461155700 04520 T CC ERSCT,0,0,3 CFC 04520
* 007017 3000713243 04530 JU CHK CFC 04530
007024 7401116713 04540 LAST CT LNGTH,1111 CFC 04540
* 007031 3000710142 04550 JE TAT CFC 04550
007036 6000005701 04560 AC 057,01 INCR, IR3 CFC 04560
007043 3400701677 04570 CC T+4,077 7 CFC 04570
* 007050 3000706742 04580 JE RST CFC 04580
007055 6000701601 04590 LX AC T+4,1 CFC 04590
* 007062 3000701200 04600 J T CFC 04600
007067 4400701600 04610 RST SC T+4,0 CFC 04610
* 007074 3000701200 04620 J T CFC 04620
007101 3461156000 04630 TAT CC ERSCT+1,1,0,3 CFC 04630
* 007106 3000712042 04640 JE GX CFC 04640
* 007113 1000720500 04650 JR BX CFC 04650
007120 6000677105 04660 GX AC TEST+3,5,5 CFC 04660
* 007125 3000676600 04670 J TEST RETURN T0 PR0G. CFC 04670
007132 3400701663 04680 CHK CC T+4,063 3 CFC 04680
* 007137 3000715142 04690 JE M0DE CFC 04690
* 007144 3000676600 04700 J TEST ERR0R, IMAGE D0F CFC 04700
007151 3401143005 04710 M0DE CC MARK,05 5 IF READ M0DE IS CFC 04710
* 007156 3000705542 04720 JE LX CFC 04720
007163 3401143007 04730 CC MARK,07 7 CFC 04730
* 007170 3000705542 04740 JE LX CFC 04740
* 007175 1000720500 04750 JR BX CFC 04750
* 007202 3000000000 04760 BX J 0 CFC 04760
007207 5661156000 04770 BA1 ERSCT+1,1,16,3 CFC 04770
* 007214 3000676600 04780 J TEST CFC 04780
* 007221 3000000000 04790 L00P J 0 CFC 04790
007226 4400752342 04800 SC TIME+4,3,34 CFC 04800
007233 2601153203 04810 L0P PD CNTER,3 3 CLEAR C0UNTER CFC 04810
007240 4100000001 04820 XF 00,0000101,00,04 TEST ALL INDICAT CFC 04820
007245 4120000001 04830 XF 00,0000101,00,05 0R C0UNTER REACH CFC 04830
007252 4100000002 04840 XF 00,0000202,00,04 F0UND SET. CFC 04840
* 007257 3000754353 04850 JC E0T4,43 3 CFC 04850
007264 4120000002 04860 XF 00,0000202,00,05 CFC 04860
* 007271 3000755053 04870 JC E0T5,43 3 CFC 04870
007276 4100000040 04880 XF 00,0004040,00,04 CFC 04880
007303 4120000040 04890 XF 00,0004040,00,05 CFC 04890
007310 4100000100 04900 XF 00,0010000,00,04 CFC 04900
* 007315 3000756753 04910 JC MDPE4,4343 CFC 04910
007322 4120000100 04920 XF 00,0010000,00,05 CFC 04920
* 007327 3000757453 04930 JC MDPE5,4343 CFC 04930
007334 4100000200 04940 XF 00,0020000,00,04 CFC 04940
* 007341 3000760153 04950 JC CPE4,43 3 CFC 04950
007346 4120000200 04960 XF 00,0020000,00,05 CFC 04960
* 007353 3000760653 04970 JC CPE5,43 3 CFC 04970
007360 4100000400 04980 XF 00,0040000,00,04 CFC 04980
* 007365 3000761353 04990 JC MAE4,43 3 CFC 04990
007372 4120000400 05000 XF 00,0040000,00,05 CFC 05000
* 007377 3000762053 05010 JC MAE5,43 3 CFC 05010
007404 4100001000 05020 XF 00,0100000,00,04 CFC 05020
* 007411 3000762553 05030 JC NR4,43 CFC 05030
007416 4120001000 05040 XF 00,0100000,00,05 CFC 05040
* 007423 3000763253 05050 JC NR5,43 CFC 05050
007430 4100002000 05060 XF 00,0200000,00,04 CFC 05060
* 007435 3000763753 05070 JC AUB4,43 3 CFC 05070
007442 4120002000 05080 XF 00,0200000,00,05 CFC 05080
* 007447 3000764453 05090 JC AUB5,43 3 CFC 05090
007454 4100004000 05100 XF 00,0400000,00,04 CFC 05100
* 007461 3000765153 05110 JC M0A4,43 3 CFC 05110
007466 4120004000 05120 XF 00,0400000,00,05 CFC 05120
* 007473 3000767053 05130 JC M0A5,43 3 CFC 05130
007500 6001153201 05140 AC CNTER,0101 CFC 05140
007505 5601153604 05150 BA1 MAXI,4 CFC 05150
007512 7001153244 05160 CB1 CNTER,4 4 CFC 05160
* 007517 3000722142 05170 TIME JE L00P CFC 05170
* 007524 3000724000 05180 J L0P+5 CFC 05180
* 007531 3000753160 05190 TMD4 JD TMD4 DETATL BIT INDIC CFC 05190
* 007536 3000753660 05200 TMD5 JD TMD5 F0UND SET WHILE CFC 05200
* 007543 3000754360 05210 E0T4 JD E0T4 INDS. IN L00P SU CFC 05210
* 007550 3000755060 05220 E0T5 JD E0T5 WILL CAUSE A ST0 CFC 05220
* 007555 3000755560 05230 TPE4 JD TPE4 THIS TABLE 0F ST CFC 05230
* 007562 3000756260 05240 TPE5 JD TPE5 THE TAGS ARE ABB CFC 05240
* 007567 3000756760 05250 MDPE4 JD MDPE4 0F THE ERR0R IND CFC 05250
* 007574 3000757460 05260 MDPE5 JD MDPE5 N0.S 4 0R 5 INDI CFC 05260
* 007601 3000760160 05270 CPE4 JD CPE4 CHANNEL. T0 DETE CFC 05270
* 007606 3000760660 05280 CPE5 JD CPE5 H0W FAR THE PR0G CFC 05280
* 007613 3000761360 05290 MAE4 JD MAE4 REFER T0 THE ADD CFC 05290
* 007620 3000762060 05300 MAE5 JD MAE5 JUMP INST. TAGGE CFC 05300
* 007625 3000762560 05310 NR4 JD NR4 AND L00K AT THE CFC 05310
* 007632 3000763260 05320 NR5 JD NR5 TAGGED MARK. CFC 05320
* 007637 3000763760 05330 AUB4 JD AUB4 CFC 05330
* 007644 3000764460 05340 AUB5 JD AUB5 CFC 05340
* 007651 3000765160 05350 M0A4 JD M0A4 CFC 05350
007656 4401153377 05360 SC MAXI-3,0,077 CFC 05360
* 007663 3000723331 05370 JC L0P,25 CFC 05370
* 007670 3000767000 05380 M0A5 JC M0A5 CFC 05380
* 007675 3000723331 05390 JC L0P,25 CFC 05390
007702 6001155401 05400 PASS AC SVIR5,0101 CFC 05400
007707 4601155415 05410 BT SVIR5,1313 CFC 05410
* 007714 3200774006 05420 ALL JL SEC0N,0606 CFC 05420
007721 4400772006 05430 D0NE SC ALL+4,0606 CFC 05430
007726 2601155404 05440 PD SVIR5,4 4 CFC 05440
* 007733 3000255524 05450 JC RX,20 CFC 05450
007740 5721154301 05460 SEC0N BA1 IMG+1,1,1,5 CFC 05460
007745 3400001777 05470 CC 017,077 7 TEST F0R ZENT CFC 05470
* 007752 3000772142 05480 JE D0NE CFC 05480
* 007757 3000255500 05490 J RX CFC 05490
007764 4100000001 05500 IPT4 XF 00,0000101,00,04 CFC 05500
* 007771 3001031353 05510 JC TM4,43 CFC 05510
007776 4100000002 05520 XF 00,0000202,00,04 CFC 05520
* 010003 3001032553 05530 JC ET4,43 CFC 05530
010010 4100000040 05540 XF 00,0004040,00,04 CFC 05540
* 010015 3001034453 05550 JC TAPE4,4343 CFC 05550
010022 4100000100 05560 XF 00,0010000,00,04 CFC 05560
* 010027 3001037553 05570 JC MPE4,43 3 CFC 05570
010034 4100000200 05580 XF 00,0020000,00,04 CFC 05580
* 010041 3001041453 05590 JC CP4,43 CFC 05590
010046 4100000400 05600 XF 00,0040000,00,04 CFC 05600
* 010053 3001042153 05610 JC MA4,43 CFC 05610
010060 4100001000 05620 XF 00,0100000,00,04 CFC 05620
* 010065 3001042653 05630 JC N0R4,43 3 CFC 05630
010072 4100002000 05640 XF 00,0200000,00,04 CFC 05640
* 010077 1001044353 05650 JR UB4,43 CFC 05650
010104 4100004000 05660 XF 00,0400000,00,04 CFC 05660
* 010111 3001047653 05670 JC MM0A4,4343 CFC 05670
* 010116 1001012600 05680 JR C0MX CFC 05680
* 010123 3000000000 05690 C0MX J 0 CFC 05690
010130 5600722505 05700 BA1 L00P+4,5,5 CFC 05700
010135 6000001605 05710 AC 016,05 CFC 05710
010142 5201122305 05720 SA1 K5+4,5 CFC 05720
* 010147 3001121731 05730 JC K5,25 CFC 05730
010154 4120000001 05740 IPT5 XF 00,0000101,00,05 CFC 05740
* 010161 3001052753 05750 JC TM5,43 CFC 05750
010166 4120000002 05760 XF 00,0000202,00,05 CFC 05760
* 010173 3001054653 05770 JC ET5,43 CFC 05770
010200 4120000040 05780 XF 00,0004040,00,05 CFC 05780
* 010205 3001056053 05790 JC TAPE5,4343 CFC 05790
010212 4120000100 05800 XF 00,0010000,00,05 CFC 05800
* 010217 3001061153 05810 JC MPE5,43 3 CFC 05810
010224 4120000200 05820 XF 00,0020000,00,05 CFC 05820
* 010231 3001063053 05830 JC CP5,43 CFC 05830
010236 4120000400 05840 XF 00,0040000,00,05 CFC 05840
* 010243 3001063553 05850 JC MA5,43 CFC 05850
010250 4120001000 05860 XF 00,0100000,00,05 CFC 05860
* 010255 3001064253 05870 JC N0R5,43 3 CFC 05870
010262 4120002000 05880 XF 00,0200000,00,05 CFC 05880
* 010267 1001065753 05890 JR UB5,43 CFC 05890
010274 4120004000 05900 XF 00,0400000,00,05 CFC 05900
* 010301 3001071753 05910 JC MM0A5,4343 CFC 05910
* 010306 1001012600 05920 JR C0MX CFC 05920
* 010313 3001031360 05930 TM4 JD TM4 TAPE MARK DET. C CFC 05930
* 010320 3000722131 05940 JC L00P,25 5 WHEN EXPECTING T.M. SET TM4 T0 SKI CFC 05940 X
* 010325 3001032560 05950 ET4 JD ET4 FND 0F TAPE CHAN CFC 05950
010332 6120722400 05960 AC L00P+3,0,0,5 CFC 05960
* 010337 3000722131 05970 JC L00P,25 5 FT4 IS SKIP, ET4 CFC 05970
010344 4100400040 05980 TAPE4 XF 040,0004040,00,04 CFC 05980 4
* 010351 1000660600 05990 JR SP0T CFC 05990
* 010356 3001035660 06000 PAR4 JD PAR4 ERASE BLK. AND C CFC 06000
010363 6000722415 06010 AC L00P+3,0,015 CFC 06010
* 010370 3000722131 06020 JC L00P,25 5 CFC 06020
* 010375 3001037560 06030 MPE4 JD MPE4 MEM0RY DATA PRAI CFC 06030
010402 6000722415 06040 AC L00P+3,0,015 CFC 06040
* 010407 3000722131 06050 JC L00P,25 5 CFC 06050
* 010414 3001041460 06060 CP4 JD CP4 C0NTR0L PARITY C CFC 06060
* 010421 3001042160 06070 MA4 JD MA4 MEM. ADDRESS. ER CFC 06070
* 010426 3001042660 06080 N0R4 JD N0R4 N0N-READY CHAN.4 CFC 06080
* 010433 3000722131 06090 JC L00P,25 5 EXPECTING N0W-RDY,SET N0R4 T0 SKIP CFC 06090 I
* 010440 3000000000 06100 UB4 J 0 CFC 06100
010445 5600722505 06110 BA1 L00P+4,5,5 CFC 06110
010452 4100402000 06120 XF 040,0200000,00,04 CFC 06120 4
010457 6000001612 06130 AC 016,012 2 CFC 06130
* 010464 3000001331 06140 JC 013,25 CFC 06140
* 010471 3000722131 06150 JC L00P,25 5 VIA L00P INCR. B CFC 06150
* 010476 3001047660 06160 MM0A4 JD MM0A4 MEM0RY 0VERL0AD CFC 06160
010503 5600722505 06170 BA1 L00P+4,5,5 CFC 06170
010510 6000001605 06180 AC 016,05 CFC 06180
* 010515 3000001331 06190 JC 013,25 CFC 06190
* 010522 3000722131 06200 JC L00P,25 5 CHAN.4 CFC 06200
* 010527 3001052760 06210 TM5 JD TM5 AS TM4 AB0VE BUT CFC 06210
010534 6000722415 06220 AC L00P+3,0,015 CFC 06220
* 010541 3000722131 06230 JC L00P,25 5 CFC 06230
* 010546 3001054660 06240 ET5 JD ET5 LIKE ET4 AB0VE CFC 06240
* 010553 3000722131 06250 JC L00P,25 5 CFC 06250
010560 4120400040 06260 TAPE5 XF 040,0004040,00,05 CFC 06260 5
* 010565 1000660600 06270 JR SP0T CFC 06270
* 010572 3001057260 06280 PAR5 JD PAR5 CFC 06280
010577 6000722415 06290 AC L00P+3,0,015 CFC 06290
* 010604 3000722131 06300 JC L00P,25 5 CFC 06300
* 010611 3001061160 06310 MPE5 JD MPE5 LIKE MPE 4 0NLY CFC 06310
010616 6000722415 06320 AC L00P+3,0,015 CFC 06320
* 010623 3000722131 06330 JC L00P,25 5 CFC 06330
* 010630 3001063060 06340 CP5 JD CP5 LIKE CP4 0NLY CH CFC 06340
* 010635 3001063560 06350 MA5 JD MA5 LIKE MA4 0NLY CH CFC 06350
* 010642 3001064260 06360 N0R5 JD N0R5 CFC 06360
* 010647 3000722131 06370 JC L00P,25 5 CFC 06370
* 010654 3000000000 06380 UB5 J 0 CFC 06380
010661 3400005324 06390 CC 053,20 CFC 06390
* 010666 3001070542 06400 JE U4 CFC 06400
* 010673 3001067360 06410 CHAN JD CHAN BUSY 0CCURED 0N CFC 06410
* 010700 3001044000 06420 J UB4 AND I.E. T00K US CFC 06420
010705 4120402000 06430 U4 XF 040,0200000,00,05 CFC 06430 5
* 010712 1001044300 06440 JR UB4 CFC 06440
* 010717 3001071760 06450 MM0A5 JD MM0A5 LIKE MM0 4 CFC 06450
010724 6000722405 06460 AC L00P+3,0,05 SUCCESSFUL C0MPL CFC 06460
* 010731 3000722131 06470 JC L00P,25 5 CHAN.5 CFC 06470
* 010736 3000000000 06480 RESET J 0 CFC 06480
* 010743 3200256704 06490 CIRCL JL REPET+5,5,4 CFC 06490
010750 4401143000 06500 SC MARK,0 CFC 06500
* 010755 1001077240 06510 JR RWIND,3232 CFC 06510
* 010762 3000770200 06520 J PASS CFC 06520
* 010767 3000000000 06530 RWIND J 0 CFC 06530
010774 2001102003 06540 FT T0UGH,3 3 CFC 06540
011001 5200722403 06550 SA1 L00P+3,3,3 CFC 06550
* 011006 1000636500 06560 JR DBLFX CFC 06560
011013 4100640000 06570 XF 064,0000000,00,04 RWIND,INH+L0CK0UT CFC 06570 4
011020 4100640000 06580 T0UGH XF 064,0000000,00,04 CFC 06580 4
* 011025 3001076700 06590 J RWIND CFC 06590
* 011032 3001102000 06600 J T0UGH CFC 06600
* 011037 3000000000 06610 TSTCL J 0 CFC 06610
011044 2600001700 06620 PD 017,16 CFC 06620
011051 7001157740 06630 CB1 IMAGE+1515,16 CFC 06630
* 011056 3001103743 06640 JU TSTCL CFC 06640
011063 6001104205 06650 AC TSTCL+3,3,05 CFC 06650
* 011070 3001103700 06660 J TSTCL CFC 06660
* 011075 3000000000 06670 CKBA J 0 CFC 06670
011102 5601116704 06680 BA1 LNGTH,4 4 CFC 06680
011107 5601154223 06690 BA2 IMG,3 ADDR 0F IMAGE CFC 06690
011114 7200001723 06700 AB2 017,3 ADD T0 CURRENT LENGTH CFC 06700
011121 7020030344 06710 CB1 0303,4,1,1 CFC 06710
* 011126 3001107543 06720 JU CKBA CFC 06720
011133 5620031324 06730 BA2 0313,4,1,1 CFC 06730
011140 7000001764 06740 CB2 017,4 ADDR EQ ADV BA CFC 06740
* 011145 3001107543 06750 JU CKBA CFC 06750
011152 6001110005 06760 AC CKBA+3,0,05 CFC 06760
* 011157 3001107500 06770 J CKBA CFC 06770
011167 00000001 06780 LNGTH +4 00001 1 CHAR. BLK LENG CFC 06780
011173 00000002 06790 BKCTR +4 00002 2 CFC 06790
011177 00000000 06800 IR4 +4 000 CFC 06800
011203 00000000 06810 IR5 +4 000 CFC 06810
011207 00000000 06820 IR6 +4 000 CFC 06820
011213 00000000 06830 TBL +4 000 CFC 06830
011217 00001000 06840 K5 +4 00000100000 512 CFC 06840
011223 00002000 06850 +4 00000200000 1024 CFC 06850
011227 00000001 06860 LT +4 1 CFC 06860
011233 00000002 06870 +4 2 CFC 06870
011237 00000003 06880 +4 3 CFC 06880
011243 00000004 06890 +4 4 CFC 06890
011247 00000007 06900 +4 7 CFC 06900
011253 00000010 06910 +4 8 CFC 06910
011257 00000015 06920 +4 13 CFC 06920
011263 00000017 06930 +4 15 CFC 06930
011267 00000020 06940 +4 16 CFC 06940
011273 00000030 06950 +4 24 CFC 06950
011277 00000037 06960 +4 31 CFC 06960
011303 00000040 06970 +4 32 CFC 06970
011307 00000055 06980 +4 45 CFC 06980
011313 00000077 06990 +4 63 CFC 06990
011317 00000100 07000 +4 64 CFC 07000
011323 00000140 07010 +4 96 CFC 07010
011327 00000177 07020 +4 127 CFC 07020
011333 00000200 07030 +4 128 CFC 07030
011337 00000261 07040 +4 177 CFC 07040
011343 00000377 07050 +4 255 CFC 07050
011347 00000400 07060 +4 256 CFC 07060
011353 00000572 07070 +4 378 CFC 07070
011357 00000620 07080 +4 400 CFC 07080
011363 00000777 07090 +4 511 CFC 07090
011367 00001000 07100 +4 512 CFC 07100
011373 00001367 07110 +4 759 CFC 07110
011377 00001777 07120 +4 1023 CFC 07120
011403 00002000 07130 +4 1024 CFC 07130
011407 00002734 07140 +4 1500 CFC 07140
011413 00003720 07150 +4 2000 CFC 07150
011417 00003777 07160 +4 2047 CFC 07160
011423 00004000 07170 +4 2048 CFC 07170
011427 00000000 07180 TABLE +4 00000000000 CFC 07180
011430 00 07190 MARK +1 000 CFC 07190
011440 0000000000000000 07200 +8 000 CFC 07200
011450 0000000000000000 07210 IE45 +8 000 SAVE I.E. 4+5 CFC 07210
011455 0000000000 07220 SVELP +5 000 SAVE L00P INST CFC 07220
011460 000000 07230 SPW +3 000 CFC 07230
011463 000000 07240 SPCNT +3 000 BAD SP0T CNT. CFC 07240
011466 000005 07250 FIVE +3 0000005 5 CFC 07250
011476 3000000160000500 07260 +8 0300000000160000500 CFC 07260 5
011506 3000000260000510 07270 INT12 +8 0300000000260000510 CFC 07270 5
* 011507 3000000031 07280 JC 0,25 CFC 07280
011516 007764 07290 +3 IPT4 CFC 07290
* 011517 3000000031 07300 JC 0,25 CFC 07300
011526 010154 07310 INT45 +3 IPT5 CFC 07310
011532 00000000 07320 CNTER +4 000 CFC 07320
011536 00000300 07330 MAXI +4 00300 CFC 07330
011537 00 07340 +1 000 CFC 07340
011542 011560 07350 IMG +3 IMAGE CFC 07350
011550 000177000000 07360 UNIT +6 000017707000000 CFC 07360
011554 00000000 07370 SVIR5 +4 000 CFC 07370
011557 000000 07380 ERSCT +3 000 CFC 07380
011560 00 07390 IMAGE +1 000 CFC 07390
3000250000 07400 END START CFC 07400
{-- tape mark --}
011907 C221 DRAW CODEDIT SOURCE A T3834394-22
002500 00010 T220 BEGIN 02500 DRAW 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 002500 3007010660 * JD 070106 *
* 002505 3000250000 * J $-5 *
SEGMENT-ID T221 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 T222 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 T223 3000136300 * SEGJP $ *
002500 ORIG 02500
* 002500 3000250520 00020 OPS JHJ $+5 KEYIN 1,2,3,OR 0 00020
002505 3401307700 00030 CC DTYPE,0 0 00030
* 002512 3001262442 00040 JE HAFOP 00040
002517 3401307701 00050 CC DTYPE,1 1 00050
* 002524 3001265042 00060 JE FS1OP 00060
002531 3401307702 00070 CC DTYPE,2 2 00070
* 002536 3001266242 00080 JE FS2OP 00080
* 002543 3000250000 00090 J OPS WRONG KEYIN OR NO KEYIN 00090
002550 2600003700 00100 WAIT1 PD 037,16 DRAW 00100
002555 5601262202 00110 BA1 UNIT,2 DRAW 00110
* 002562 3000256720 00120 JHJ WHAT 16 LOW UNIT 17 UPPER UNIT 00120
002567 5201262202 00130 WHAT SA1 UNIT,2 DRAW 00130
002574 7001262141 00140 CB1 UNIT-1,1,1 DRAW 00140
002601 1601262222 00150 BS2 UNIT,2 DRAW 00150
* 002606 3000305343 00160 JU AAA DRAW 00160
002613 4401262001 00170 SC BBB,01 DRAW 00170
002620 5601262101 00180 STRTA BA1 UNIT-1,1,1 DRAW 00180
002625 5200561501 00190 SA1 UUU,1 DRAW 00190
* 002632 3000275200 00200 WAIT J READX 00200
002637 4401107440 00210 WRIOP SC RONY+4,0,040 START HERE FOR WRITE 00210
* 002644 3000265125 00220 START JC NN,21 DRAW 00220
002651 5600617310 00230 NN BA1 IE6,8 DRAW 00230
002656 5400555674 00240 LP U,074 DRAW 00240
002663 5200046710 00250 SA1 0467,8 DRAW 00250
002670 4400556100 00260 SC S,0 DRAW 00260
002675 4401120566 00270 SC TX+17,06066 00270
002702 5600616310 00280 BA1 IE0,8 DRAW 00280
002707 5200040710 00290 SA1 0407,8 DRAW 00290
002714 2600007700 00300 N PD 077,16 DRAW 00300
002721 2600005700 00310 PD 057,16 DRAW 00310
002726 5600552000 00320 BA1 IE2,16 DRAW 00320
002733 5200051700 00330 SA1 0517,16 6 DRAW 00330
* 002740 1001160500 00340 JR CON DRAW 00340
* 002745 3001072400 00350 J DRAW DRAW 00350
002752 4401107400 00360 READX SC RONY+4,0,0 READ ONLY DRAW 00360
* 002757 3000264400 00370 J START DRAW 00370
* 002764 3000000000 00380 RGEN J 0 DRAW 00380
* 002771 1000350600 00390 JR GENRX DRAW 00390
002776 2000412611 00400 TRACK FT H0,9 DRAW 00400
003003 2000555712 00410 FT T,10 DRAW 00410
003010 2000000013 00420 FT 0,11 DRAW 00420
003015 4400302603 00430 SET SC CC+4,03 3 DRAW 00430
003022 3460556603 00440 CC CC TS02-6,0,03,3 DRAW 00440
* 003027 3020000042 00450 JE 0,1 DRAW 00450
003034 3400302614 00460 CC CC+4,01414 DRAW 00460
* 003041 3000311142 00470 JE RST DRAW 00470
* 003046 3000312300 00480 J I DRAW 00480
003053 5601262101 00490 AAA BA1 UNIT-1,1,1 DRAW 00490
003060 5201262301 00500 SA1 UNITA,1 1 DRAW 00500
003065 2601262001 00510 PD BBB,1 DRAW 00510
003072 5601262201 00520 BA1 UNIT,1 DRAW 00520
003077 5200326601 00530 SA1 AAC+4,1 1 DRAW 00530
* 003104 3000262000 00540 J STRTA DRAW 00540
003111 4400302603 00550 RST SC CC+4,03 3 DRAW 00550
* 003116 3000313000 00560 J UU DRAW 00560
003123 6000302601 00570 I AC CC+4,1 DRAW 00570
003130 6000004712 00580 UU AC 047,10 DRAW 00580
* 003135 3000302200 00590 J CC DRAW 00590
003142 2000427211 00600 SB FT IH0,9 DRAW 00600
003147 6000005701 00610 AC 057,1 DRAW 00610
* 003154 3000301500 00620 J SET DRAW 00620
* 003161 3000317365 00630 TT JC OUT,53 DRAW 00630
* 003166 3000323122 00640 JC HEAD,18 8 DRAW 00640
003173 4600556171 00650 OUT BT S,57 DRAW 00650
003200 5600561501 00660 BA1 UUU,1 DRAW 00660
003205 5200555601 00670 SA1 U,1 DRAW 00670
003212 3401262001 00680 CC BBB,01 DRAW 00680
* 003217 3000325543 00690 JU AAB DRAW 00690
* 003224 3000332025 00700 JC SUD,21 DRAW 00700
003231 2000412611 00710 HEAD FT H0,9 DRAW 00710
003236 2000556012 00720 FT H,10 DRAW 00720
003243 6000005701 00730 AC 057,1 DRAW 00730
* 003250 3000301500 00740 J SET DRAW 00740
003255 6001262104 00750 AAB AC UNIT-1,0,04 DRAW 00750
003262 3401262100 00760 AAC CC UNIT-1,0,00 DRAW 00760
* 003267 3000330141 00770 JG $+10 DRAW 00770
* 003274 3000322400 00780 J HEAD-5 DRAW 00780
003301 5601262301 00790 BA1 UNITA,1 1 DRAW 00790
003306 5201262101 00800 SA1 UNIT-1,1,1 DRAW 00800
* 003313 3000322400 00810 J HEAD-5 DRAW 00810
003320 3400555740 00820 SUD CC T,040 DRAW 00820
* 003325 3000333741 00830 JC TU,33 DRAW 00830
* 003332 3000337000 00840 J SU DRAW 00840
003337 5600557401 00850 TU BA1 TS02,1 DRAW 00850
003344 5400001701 00860 LP 017,1 DRAW 00860
003351 3400001701 00870 CC 017,1 DRAW 00870
* 003356 3000337043 00880 JU SU DRAW 00880
003363 6000555601 00890 AC U,1 DRAW 00890
003370 3400556040 00900 SU CC H,32 DRAW 00900
* 003375 3000341441 00910 JC DRMA,33 3 DRAW 00910
* 003402 3000342162 00920 JC FIX,50 DRAW 00920
* 003407 3000264400 00930 J START DRAW 00930
* 003414 3000264462 00940 DRMA JC START,5050 DRAW 00940
003421 2001261770 00950 FIX FT RA,56 DRAW 00950
003426 4400034000 00960 SC 0340,0 DRAW 00960
003433 6400034120 00970 LS 0341,16 6 DRAW 00970
003440 4600556171 00980 BT S,57 DRAW 00980
003445 2600011314 00990 R11 PD 0113,12 2 DRAW 00990
003452 2001207721 01000 FT A,17 DRAW 01000
003457 4401207700 01010 SC A,0 DRAW 01010
003464 2000051722 01020 FT 335,18 DRAW 01020
003471 2401210041 01030 TTR A+1 DRAW 01030
* 003476 3001203000 01040 J SETS DRAW 01040
* 003503 3000000000 01050 GENRX J 0 DRAW 01050
* 003510 3200354677 01060 GT JL PF,077 DRAW 01060
003515 4400351477 01070 SC GT+4,07777 DRAW 01070
003522 5600561450 01080 BD1 DEC1,8 DRAW 01080
003527 6200560410 01090 AM1 TS01,8 DRAW 01090
003534 5600560410 01100 BA1 TS01,8 DRAW 01100
003541 5200557410 01110 SA1 TS02,8 DRAW 01110
003546 2600012730 01120 PF PD0 87,8 DRAW 01120
003553 2000050625 01130 FT 326,21 DRAW 01130
003560 5600557470 01140 BD2 TS02,8 DRAW 01140
003565 5000000002 01150 MPN ,2 DRAW 01150
003572 5600000730 01160 BA2 7,8 DRAW 01160
003577 6600003750 01170 SD1 31,8 DRAW 01170
003604 5400001717 01180 LP 15,15 DRAW 01180
003611 5200557410 01190 SA1 TS02,8 DRAW 01190
* 003616 3000350300 01200 J GENRX DRAW 01200
003623 4400020702 01210 DMP SC 0207,2 DRAW 01210
003630 2000570040 01220 FT PRNT,32 2 DRAW 01220
003635 5600621210 01230 BA1 SGOOD,8 8 DRAW 01230
003642 2000577216 01240 FT GOOD+1,1,14 DRAW 01240
* 003647 1000400400 01250 JR EDIT DRAW 01250
003654 5600621604 01260 BA1 SOG,4 DRAW 01260
003661 2000600716 01270 FT TOR+1,1414 DRAW 01270
* 003666 1000400400 01280 JR EDIT DRAW 01280
003673 5600622204 01290 BA1 FDR,4 DRAW 01290
003700 2000602716 01300 FT FD+1,14 4 DRAW 01300
* 003705 1000400400 01310 JR EDIT DRAW 01310
003712 4000620000 01320 P1 XF 062,0000000,0,0 DRAW 01320
* 003717 3000373600 01330 J TST2 DRAW 01330
* 003724 3000000000 01340 PRINT J 0 DRAW 01340
* 003731 3000362300 01350 JC DMP,0 DRAW 01350
* 003736 3000375040 01360 TST2 JC BIG,32 DRAW 01360
* 003743 3000372400 01370 TST1 J PRINT DRAW 01370
003750 2001207736 01380 BIG FT A,30 01380
003755 2001261737 01390 FT RA,31 01390
* 003762 1000651500 01400 JR DUMP DRAW 01400
003767 6000372705 01410 AC PRINT+3,3,5 DRAW 01410
* 003774 3000374300 01420 J TST1 DRAW 01420
* 004001 3000000000 01430 EDIT J 0 DRAW 01430
004006 5200617704 01440 SA1 MEM+3,4 4 DRAW 01440
004013 2600007704 01450 PD 077,4 DRAW 01450
004020 4400412004 01460 SC LP+4,4 DRAW 01460
004025 5760617401 01470 Q BA1 MEM,1,7 7 DRAW 01470
004032 5400001770 01480 LP 017,070 0 DRAW 01480
004037 1600001753 01490 BC1 017,3 DRAW 01490
004044 6000001703 01500 AC 017,3 DRAW 01500
004051 5340000001 01510 SA1 0,1,6 DRAW 01510
004056 5760617401 01520 BA1 MEM,1,7 7 DRAW 01520
004063 5400001707 01530 LP 017,07 DRAW 01530
004070 6000001703 01540 AC 017,3 DRAW 01540
004075 5340000101 01550 SA1 1,1,6 DRAW 01550
004102 6000007302 01560 AC 073,2 DRAW 01560
004107 6000007701 01570 AC 077,1 DRAW 01570
* 004114 3200402510 01580 LP JL Q,8 DRAW 01580
* 004121 3000400100 01590 J EDIT DRAW 01590
004126 4440000000 01600 H0 SC 0,0,2 DRAW 01600
* 004133 3000314200 01610 J SB DRAW 01610
004140 4440000001 01620 H1 SC 0,1,2 DRAW 01620
* 004145 3000314200 01630 J SB DRAW 01630
004152 4440000002 01640 H2 SC 0,2,2 DRAW 01640
* 004157 3000314200 01650 J SB DRAW 01650
004164 4440000003 01660 H3 SC 0,3,2 DRAW 01660
* 004171 3000314200 01670 J SB DRAW 01670
004176 4440000004 01680 H4 SC 0,4,2 DRAW 01680
* 004203 3000314200 01690 J SB DRAW 01690
004210 4440000005 01700 H5 SC 0,5,2 DRAW 01700
* 004215 3000314200 01710 J SB DRAW 01710
004222 4440000006 01720 H6 SC 0,6,2 DRAW 01720
* 004227 3000314200 01730 J SB DRAW 01730
004234 4440000007 01740 H7 SC 0,7,2 DRAW 01740
* 004241 3000314200 01750 J SB DRAW 01750
004246 4440000000 01760 H8 SC 0,0,2 DRAW 01760
* 004253 3000314200 01770 J SB DRAW 01770
004260 4440000002 01780 H9 SC 0,2,2 DRAW 01780
* 004265 3000314200 01790 J SB DRAW 01790
004272 6040000000 01800 IH0 AC 0,0,2 DRAW 01800
* 004277 3000316100 01810 J TT DRAW 01810
004304 6040000010 01820 IH1 AC 0,010,2 2 DRAW 01820
* 004311 3000316100 01830 J TT DRAW 01830
004316 6040000020 01840 IH2 AC 0,020,2 2 DRAW 01840
* 004323 3000316100 01850 J TT DRAW 01850
004330 6040000030 01860 IH3 AC 0,030,2 2 DRAW 01860
* 004335 3000316100 01870 J TT DRAW 01870
004342 6040000040 01880 IH4 AC 0,040,2 2 DRAW 01880
* 004347 3000316100 01890 J TT DRAW 01890
004354 6040000050 01900 IH5 AC 0,050,2 2 DRAW 01900
* 004361 3000316100 01910 J TT DRAW 01910
004366 6040000060 01920 IH6 AC 0,060,2 2 DRAW 01920
* 004373 3000316100 01930 J TT DRAW 01930
004400 6040000070 01940 IH7 AC 0,070,2 2 DRAW 01940
* 004405 3000316100 01950 J TT DRAW 01950
004412 6040000000 01960 IH8 AC 0,0,2 DRAW 01960
* 004417 3000316100 01970 J TT DRAW 01970
004424 6040000070 01980 IH9 AC 0,070,2 2 DRAW 01980
* 004431 3000316100 01990 J TT DRAW 01990
* 004436 3000444300 02000 IPT0 J RST0 DRAW 02000
004443 4000407777 02010 RST0 XF 040,0777777,0,0 DRAW 02010
004450 5600620603 02020 BA1 FIVE,3 DRAW 02020
004455 7200040343 02030 SB1 0403,3 DRAW 02030
* 004462 3000040000 02040 J 0400 DRAW 02040
004467 5600531014 02050 IPT6 BA1 H33,12 DRAW 02050
004474 5200542314 02060 SA1 I6+19,1212 DRAW 02060
004501 4140000001 02070 XF 00,0000101,0,6 DRAW 02070
* 004506 1000501453 02080 JR D1,43 DRAW 02080
004513 4140000002 02090 XF 00,0000202,0,6 DRAW 02090
* 004520 1000503353 02100 JR D2,43 DRAW 02100
004525 4140000004 02110 XF 00,0000404,0,6 DRAW 02110
* 004532 1000505253 02120 JR D3,43 DRAW 02120
004537 4140000010 02130 XF 00,0001010,0,6 DRAW 02130
* 004544 1000507153 02140 JR D4,43 DRAW 02140
004551 4140000020 02150 XF 00,0002020,0,6 DRAW 02150
* 004556 1000511053 02160 JR D5,43 DRAW 02160
004563 4140000040 02170 XF 00,0004040,0,6 DRAW 02170
* 004570 1000512753 02180 JR D6,43 DRAW 02180
004575 4140000100 02190 XF 00,0010000,0,6 DRAW 02190
* 004602 1000514653 02200 JR D7,43 DRAW 02200
004607 4140000200 02210 XF 00,0020000,0,6 DRAW 02210
* 004614 1000516553 02220 JR D8,43 DRAW 02220
004621 4140000400 02230 XF 00,0040000,0,6 DRAW 02230
* 004626 1000520453 02240 JR D9,43 DRAW 02240
004633 4140001000 02250 XF 00,0100000,0,6 DRAW 02250
* 004640 1000522353 02260 JR D10,43 DRAW 02260
004645 4140002000 02270 XF 00,0200000,0,6 DRAW 02270
* 004652 1000524253 02280 JR D11,43 DRAW 02280
004657 4140004000 02290 XF 00,0400000,0,6 DRAW 02290
* 004664 1000526153 02300 JR D12,43 DRAW 02300
004671 4140407777 02310 XF 040,0777777,0,6 DRAW 02310
004676 2000540040 02320 FT I6,32 DRAW 02320
004703 4400020702 02330 SC 0207,2 DRAW 02330
004710 4000620400 02340 XF 062,0040400,0,0 DRAW 02340
004715 3400550077 02350 CC KY,63 DRAW 02350
* 004722 3000477742 02360 JE TPAC DRAW 02360
* 004727 1001166700 02370 JR PIC DRAW 02370
004734 2600622214 02380 TNR PD FDR,12 DRAW 02380
004741 3400542104 02390 CC I6+17,0404 DRAW 02390
* 004746 3000476043 02400 JU CY DRAW 02400
* 004753 3000475360 02410 NR JD NR DRAW 02410
004760 5600620603 02420 CY BA1 FIVE,3 DRAW 02420
004765 7200046343 02430 SB1 0463,3 DRAW 02430
* 004772 3000046000 02440 J 0460, DRAW 02440
* 004777 1001173700 02450 TPAC JR PAC DRAW 02450
* 005004 3000473400 02460 J TNR DRAW 02460
* 005011 3000000000 02470 D1 J 0 DRAW 02470
005016 4400541004 02480 SC I6+8,04 4 DRAW 02480
* 005023 3000501100 02490 J D1 DRAW 02490
* 005030 3000000000 02500 D2 J 0 DRAW 02500
005035 4400541104 02510 SC I6+9,04 4 DRAW 02510
* 005042 3000503000 02520 J D2 DRAW 02520
* 005047 3000000000 02530 D3 J 0 DRAW 02530
005054 4400541204 02540 SC I6+10,0404 DRAW 02540
* 005061 3000504700 02550 J D3 DRAW 02550
* 005066 3000000000 02560 D4 J 0 DRAW 02560
005073 4400541304 02570 SC I6+11,0404 DRAW 02570
* 005100 3000506600 02580 J D4 DRAW 02580
* 005105 3000000000 02590 D5 J 0 DRAW 02590
005112 4400541404 02600 SC I6+12,0404 DRAW 02600
* 005117 3000510500 02610 J D5 DRAW 02610
* 005124 3000000000 02620 D6 J 0 DRAW 02620
005131 4400541504 02630 SC I6+13,0404 DRAW 02630
* 005136 3000512400 02640 J D6 DRAW 02640
* 005143 3000000000 02650 D7 J 0 DRAW 02650
005150 4400541604 02660 SC I6+14,0404 DRAW 02660
* 005155 3000514300 02670 J D7 DRAW 02670
* 005162 3000000000 02680 D8 J 0 DRAW 02680
005167 4400541704 02690 SC I6+15,0404 DRAW 02690
* 005174 3000516200 02700 J D8 DRAW 02700
* 005201 3000000000 02710 D9 J 0 DRAW 02710
005206 4400542004 02720 SC I6+16,0404 DRAW 02720
* 005213 3000520100 02730 J D9 DRAW 02730
* 005220 3000000000 02740 D10 J 0 DRAW 02740
005225 4400542104 02750 SC I6+17,0404 DRAW 02750
* 005232 3000522000 02760 J D10 DRAW 02760
* 005237 3000000000 02770 D11 J 0 DRAW 02770
005244 4400542204 02780 SC I6+18,0404 DRAW 02780
* 005251 3000523700 02790 J D11 DRAW 02790
* 005256 3000000000 02800 D12 J 0 DRAW 02800
005263 4400542304 02810 SC I6+19,0404 DRAW 02810
* 005270 3000525600 02820 J D12 DRAW 02820
005304 0303030303030303 02830 +8 0030303030303030303 DRAW 02830 3
005310 03030303 02840 H33 +4 00303030303 DRAW 02840
005400 02850 ORIG $,64 02850
005400 00 02860 I6 +1 0 DRAW 02860
005407 IPT6 02870 +7 _ IPT6 6 _ DRAW 02870
005410 70 02880 AREA 56,B,0 DRAW 02880
005500 00 02890 KY +1 0 DRAW 02890
* 005501 3000550160 02900 IPT1 JD IPT1 DRAW 02900
005510 005501 02910 +3 IPT1 DRAW 02910
* 005511 3000000260 02920 I2 JD 2 DRAW 02920
005520 005511 02930 IE2 +3 I2 DRAW 02930
005522 0000 02940 TR +2 00000 DRAW 02940
005524 0001 02950 +2 00001 DRAW 02950
005534 0060006101360137 02960 +8 0006000606101360137 DRAW 02960 1
005544 0000004000400100 02970 +8 0000000404000400100 DRAW 02970 1
005554 0100013700000137 02980 +8 0010001313700000137 DRAW 02980 1
005555 14 02990 GENA +1 014 DRAW 02990
005556 00 03000 U +1 0 DRAW 03000
005557 00 03010 T +1 0 DRAW 03010
005560 00 03020 H +1 0 DRAW 03020
005561 00 03030 S +1 0 DRAW 03030
005564 000000 03040 +3 0 DRAW 03040
005574 76540213 03050 TS02 +8 _7654021213_ DRAW 03050
005604 67540213 03060 TS01 +8 _6754021213_ DRAW 03060
005614 00000001 03070 DEC1 +8 _0000000001_ DRAW 03070
005615 00 03080 UUU +1 0 DRAW 03080
005700 03090 ORIG $,64 03090
005700 00 03100 PRNT +1 0 DRAW 03100
005710 0000000000000000 03110 +8 0 DRAW 03110
005716 WRITE 03120 GEN +6 _WRITE _ _ DRAW 03120
005726 0000000000000000 03130 +8 0 DRAW 03130
005736 0000000000000000 03140 +8 0 DRAW 03140
005744 READ 03150 READ +6 _ READ _ _ DRAW 03150
005745 22 03160 AREA 18,B,0 DRAW 03160
005771 TW 03170 GOOD +3 _TW _ DRAW 03170
005772 12 03180 AREA 10,B,0 DRAW 03180
006006 TR 03190 TOR +3 _TR _ DRAW 03190
006007 12 03200 AREA 10,B,0 DRAW 03200
006026 FOUND 03210 FD +6 _FOUND _ _ DRAW 03210
006027 125 03220 AREA 85,B,0 DRAW 03220
* 006154 3000000031 03230 JC 0,25 DRAW 03230
006163 004436 03240 IE0 +3 IPT0 DRAW 03240
* 006164 3000000031 03250 JC 0,25 DRAW 03250
006173 004467 03260 IE6 +3 IPT6 DRAW 03260
006174 00 03270 MEM +1 0 DRAW 03270
006203 00000000000000 03280 +7 0 DRAW 03280
006206 000005 03290 FIVE +3 0000005 5 DRAW 03290
006212 00000000 03300 SGOOD +4 0 DRAW 03300
006216 00000000 03310 SOG +4 0 DRAW 03310
006222 00000000 03320 FDR +4 0 DRAW 03320
006232 7070707070707070 03330 SVN +8 0707070707070707070 DRAW 03330 0
000047 03340 X1 EQU 39 DRAW 03340
000053 03350 X2 EQU X1+4 DRAW 03350
000057 03360 X3 EQU X2+4 DRAW 03360
000063 03370 X4 EQU X3+4 DRAW 03370
000067 03380 X5 EQU X4+4 DRAW 03380
000073 03390 X6 EQU X5+4 DRAW 03390
000077 03400 X7 EQU X6+4 DRAW 03400
000103 03410 T16 EQU 0103 DRAW 03410
000107 03420 T17 EQU T16+4 DRAW 03420
000113 03430 T18 EQU T17+4 DRAW 03430
000203 03440 T32 EQU 0203 DRAW 03440
000207 03450 LA EQU 0207 DRAW 03450
000177 03460 T31 EQU T32-4 DRAW 03460
000173 03470 T30 EQU T31-4 DRAW 03470
006300 03480 ORIG $,64 03480
006300 200 03490 TANK AREA 128,,0 DRAW 03490
* 006500 1000651500 03500 JR DUMP DRAW 03500
* 006505 3000650020 03510 JC $-5,020 0 DRAW 03510
* 006512 3000000000 03520 DUMP J 0 DRAW 03520
* 006517 3001072251 03530 JC BWS+052121,41 DRAW 03530
* 006524 3000653133 03540 JC $+5,27 DRAW 03540
006531 4201014621 03550 ST WST17,T1T17 DRAW 03550
006536 4201015222 03560 ST WST18,T1T18 DRAW 03560
006543 4201017723 03570 ST WS,19 DRAW 03570
006550 2000000021 03580 FT 0,T17 DRAW 03580
006555 2000052022 03590 FT 0520,T1818 SET NO. CHAR DRAW 03590
006562 2401020141 03600 TTR BWS DRAW 03600
006567 5601015210 03610 BA1 WST18,8 8 DRAW 03610
006574 5201031410 03620 SA1 BWS+011313,8 DRAW 03620
006601 5601017704 03630 BA1 WS,4 DRAW 03630
006606 5201032004 03640 SA1 BWS+011717,4 DRAW 03640
006613 2000630040 03650 FT TANK,T3232 SET PRINT BASE DRAW 03650
006620 2600007700 03660 PD 077,16 CLEAR INDEX REGS DRAW 03660
006625 2600005700 03670 PD X3,16 DRAW 03670
006632 4400020702 03680 SC LA,2 SET UP LINE ADV DRAW 03680
006637 5601014203 03690 BA1 INT DRAW 03690
006644 5200040710 03700 SA1 0407,8 SET UP PRINT INT DRAW 03700
006651 2001020111 03710 FT BWS,X1 SET BASE STOR IN X1 DRAW 03710
006656 2001020115 03720 FT BWS,X5 DRAW 03720
006663 4400717270 03730 SC CONV0+4,4,56 DRAW 03730
006670 4400736200 03740 SC PR11+4,0,0 DRAW 03740
006675 4400747070 03750 SC PR4+4,5656 DRAW 03750
006702 2000630012 03760 FT TANK,X2 2 DRAW 03760
006707 2001072117 03770 D03 FT BWS+052020,X7 LIMIT OF TET DRAW 03770
006714 7400007711 03780 CT X7,X1 TEST LIMIT DRAW 03780
* 006721 3000676442 03790 JE D05 END TETS DRAW 03790
* 006726 1000714500 03800 D04 JR CONV DRAW 03800
* 006733 1000730400 03810 JR PRT DRAW 03810
006740 2120001015 03820 FT 8,X5,X5 5 DRAW 03820
006745 4200004715 03830 ST X1,X5 DRAW 03830
006752 2100001014 03840 FT 8,X4,X4 4 DRAW 03840
* 006757 3000670700 03850 J D03 DRAW 03850
* 006764 1000774100 03860 D05 JR PRTLN CLEAR TANK DRAW 03860
* 006771 3000701000 03870 J $+15 DRAW 03870
006776 5601016210 03880 BA1 PAR,8 DRAW 03880
007003 5200017710 03890 SA1 T31,8 DRAW 03890
007010 2000630012 03900 FT TANK,X2 2 DRAW 03900
007015 4600017311 03910 BT T30,X1 DRAW 03910
007022 4200006311 03920 ST X4,X1 DRAW 03920
007027 4401020000 03930 SC WS1,0 DRAW 03930
007034 4400717200 03940 SC CONV0+4,4,0 DRAW 03940
007041 4400736270 03950 SC PR11+4,5,56 DRAW 03950
007046 7400017711 03960 D06 CT T31,X1 TEST LIMIT OF DUMP DRAW 03960
* 007053 3000711141 03970 JG D07 DRAW 03970
* 007060 1000714500 03980 JR CONV DRAW 03980
* 007065 1000730400 03990 JR PRT DRAW 03990
007072 4200006311 04000 ST X4,X1 DRAW 04000
007077 4200005711 04010 ST X3,X1 DRAW 04010
* 007104 3000704600 04020 J D06 DRAW 04020
007111 2000630017 04030 D07 FT TANK,X7 7 DRAW 04030
007116 7400007712 04040 CT X7,X2 DRAW 04040
* 007123 3000757242 04050 JE EXIT DRAW 04050
* 007130 1000774100 04060 JR PRTLN DRAW 04060
* 007135 3000757200 04070 J EXIT DRAW 04070
* 007142 3000000000 04080 CONV J 0 DRAW 04080
007147 4200001714 04090 ST 15,X4 DRAW 04090
* 007154 1001004200 04100 JR TBO CONVERT LOCATION DRAW 04100
007161 5240000525 04110 SA2 5,5,X2 DRAW 04110
* 007166 3000723600 04120 CONV0 J CON2 VAR LINE DRAW 04120
007173 5620000304 04130 CON1 BA1 3,4,X1 DRAW 04130
* 007200 1001004200 04140 JR TBO CONVERT CONTENT DRAW 04140
007205 5240002130 04150 SA2 17,8,X2 2 DRAW 04150
007212 5620000704 04160 BA1 7,4,X1 DRAW 04160
* 007217 1001004200 04170 JR TBO DRAW 04170
007224 5240003530 04180 SA2 29,8,X2 2 DRAW 04180
* 007231 3000714200 04190 J CONV DRAW 04190
007236 5620000405 04200 CON2 BA1 4,5,X1 DRAW 04200
* 007243 1001004200 04210 JR TBO DRAW 04210
007250 5240002132 04220 SA2 17,10,X2X2 DRAW 04220
007255 5620001105 04230 BA1 9,5,X1 DRAW 04230
* 007262 1001004200 04240 JR TBO DRAW 04240
007267 5240003532 04250 SA2 29,10,X2X2 DRAW 04250
* 007274 3000714200 04260 J CONV DRAW 04260
* 007301 3000000000 04270 PRT J 0 DRAW 04270
007306 2000644017 04280 FT TANK+96,6,X7 DRAW 04280
007313 7400007712 04290 CT X7,X2 TEST TANK FULL DRAW 04290
* 007320 3000734442 04300 JE PR1 DRAW 04300
007325 2040004012 04310 FT 32,X2,X2X2 DRAW 04310
007332 2020001211 04320 FT 10,X1,X1X1 DRAW 04320
* 007337 3000730100 04330 J PRT DRAW 04330
007344 2000630012 04340 PR1 FT TANK,X2 2 DRAW 04340
* 007351 1000774100 04350 JR PRTLN DRAW 04350
* 007356 3000730100 04360 PR11 J PRT VAR LINE DRAW 04360
007363 2020001211 04370 FT 10,X1,X1X1 DRAW 04370
007370 4401020001 04380 SC WS1,1 DRAW 04380
007375 4200005711 04390 ST X3,X1 DRAW 04390
007402 4400743710 04400 SC PR3+4,8 8 DRAW 04400
007407 5637777705 04410 PR2 BA1 -1,5,X1 1 DRAW 04410
007414 7060000445 04420 CB1 4,5,X3 DRAW 04420
* 007421 3000753443 04430 JU PR5 DRAW 04430
007426 2060000513 04440 FT 5,X3,X3 3 DRAW 04440
* 007433 3200740700 04450 PR3 JL PR2,0 VAR LINE DRAW 04450
007440 7400005737 04460 CT X3,T31 DRAW 04460
* 007445 3000757244 04470 JS EXIT DRAW 04470
007452 2020005011 04480 FT 40,X1,X1X1 DRAW 04480
007457 4200005711 04490 ST X3,X1 DRAW 04490
* 007464 3000740270 04500 PR4 JC PR2-5,5656 VAR LINE DRAW 04500
007471 4400747000 04510 SC PR4+4,0 0 DRAW 04510
007476 4400632141 04520 SC TANK+17,7,_*_ DRAW 04520
007503 4400636141 04530 SC TANK+49,9,_*_ DRAW 04530
007510 4400642141 04540 SC TANK+81,1,_*_ DRAW 04540
007515 4400646141 04550 SC TANK+11313,_*_ DRAW 04550
* 007522 1000774100 04560 JR PRTLN DRAW 04560
* 007527 3000740200 04570 J PR2-5 DRAW 04570
007534 4400747070 04580 PR5 SC PR4+4,5656 DRAW 04580
007541 3401020001 04590 CC WS1,1 DRAW 04590
* 007546 3000756042 04600 JE $+10 DRAW 04600
007553 2020001211 04610 FT 10,X1,X1X1 DRAW 04610
007560 4401020000 04620 SC WS1,0 DRAW 04620
* 007565 3000730100 04630 J PRT DRAW 04630
007572 5601017311 04640 EXIT BA1 END,9 DRAW 04640
007577 5200631011 04650 SA1 TANK+8,9,9 DRAW 04650
007604 5600017303 04660 BA1 T30,3 DRAW 04660
* 007611 1001004200 04670 JR TBO DRAW 04670
007616 5200632126 04680 SA2 TANK+17,7,6 DRAW 04680
007623 5600017703 04690 BA1 T31,3 DRAW 04690
* 007630 1001004200 04700 JR TBO DRAW 04700
007635 5200633226 04710 SA2 TANK+26,6,6 DRAW 04710
* 007642 1000774100 04720 JR PRTLN DRAW 04720
007647 2001020121 04730 FT BWS,T17 7 DRAW 04730
007654 2000010422 04740 FT 0104,T1818 DRAW 04740
007661 2400000041 04750 TTR 0 DRAW 04750
007666 2001032121 04760 FT BWS+012020,T17 DRAW 04760
007673 2000040022 04770 FT 0400,T1818 DRAW 04770
007700 2400012041 04780 TTR 0120 DRAW 04780
007705 4601017723 04790 BT WS,19 DRAW 04790
007712 4601014621 04800 BT WST17,T1T17 DRAW 04800
007717 4601015222 04810 BT WST18,T1T18 DRAW 04810
* 007724 3001072252 04820 JC BWS+052121,42 DRAW 04820
* 007731 3000651200 04830 J DUMP DRAW 04830
* 007736 3000000000 04840 PRTLN J 0 DRAW 04840
* 007743 3000775031 04850 JC $+5,25 DRAW 04850
007750 4000407777 04860 XF 32,0777777,0,0 DRAW 04860
007755 4000620000 04870 XF 50,0,0,0,0 04870
* 007762 3001000600 04880 J CPRN DRAW 04880
007767 4000002000 04890 PRINE XF 0,02000,0,0,0 DRAW 04890
* 007774 3000774353 04900 JC PRTLN+5,5,43 DRAW 04900
* 010001 3000774300 04910 J PRTLN+5 5 DRAW 04910
010006 2000630120 04920 CPRN FT TANK+1,T,T16 DRAW 04920
010013 2600630001 04930 PD TANK,1 DRAW 04930
010020 2000017722 04940 FT 127,T18 8 DRAW 04940
010025 2400630001 04950 TFR TANK DRAW 04950
* 010032 3000773600 04960 J PRTLN DRAW 04960
* 010037 3000000000 04970 TBO J 0 DRAW 04970
010044 4401011305 04980 SC TB1+4,5 5 DRAW 04980
010051 5600003530 04990 BA2 29,8 DRAW 04990
010056 5200002701 05000 SA1 23,1 DRAW 05000
010063 5600001604 05010 BA1 14,4 DRAW 05010
010070 2600002601 05020 PD 22,1 DRAW 05020
010075 1600002723 05030 BS2 23,3 DRAW 05030
010102 1600002753 05040 BC1 23,3 DRAW 05040
* 010107 3201005100 05050 TB1 JL $-30,0 DRAW 05050
010114 2600001732 05060 PD0 15,10 DRAW 05060
010121 7200003712 05070 AB1 31,10 DRAW 05070
* 010126 3001003700 05080 J TBO DRAW 05080
* 010133 3000000031 05090 JC 0,25 DRAW 05090
010142 007767 05100 INT +3 PRINE DRAW 05100
010146 00000000 05110 WST17 +4 0 DRAW 05110
010152 00000000 05120 WST18 +4 0 DRAW 05120
010162 0000052000077700 05130 PAR +8 000005202000077700 DRAW 05130 0
010173 END PRINT 05140 END +9 _END PRIRINT_ DRAW 05140
010177 00000000 05150 WS +4 0 DRAW 05150
010200 00 05160 WS1 +1 0 DRAW 05160
010201 520 05170 BWS AREA 0520 DRAW 05170
010723 000000 05180 +3 0 DRAW 05180
* 010724 1000276700 05190 DRAW JR RGEN DRAW 05190
* 010731 3001270100 05200 FXDRM J FSHAF N NOP FOR FS1 OR JR FS2 05200
010736 2600006710 05210 PD X5,8 DRAW 05210
010743 2000024015 05220 FT 160,13 DRAW 05220
010750 5600556104 05230 BA1 S,4 DRAW 05230
010755 5201210204 05240 SA1 A+3,4 DRAW 05240
010762 5601207604 05250 BA1 Z,4 DRAW 05250
010767 5201234604 05260 SA1 A+167,4 4 DRAW 05260
010774 4401100500 05270 SC SC+4,0 DRAW 05270
011001 4501210300 05280 SC SC A+4,0,4 4 DRAW 05280
011006 6000006301 05290 AC X4,1 DRAW 05290
011013 7400006315 05300 CT X4,13 DRAW 05300
* 011020 3001106342 05310 JE SEE DRAW 05310
011025 3401100577 05320 CC SC+4,63 3 DRAW 05320
* 011032 3001105142 05330 JE RSTSC DRAW 05330
011037 6001100501 05340 UPXS AC SC+4,1 DRAW 05340
* 011044 3001100100 05350 J SC DRAW 05350
011051 4401100500 05360 RSTSC SC SC+4,0 DRAW 05360
* 011056 3001100100 05370 J SC DRAW 05370
011063 5600557201 05380 SEE BA1 TS02-2,1,1 DRAW 05380
* 011070 3001134240 05390 RONY JC RD,040 READ ONLY OPT. DRAW 05390
011075 3400001703 05400 CC 017,03 DRAW 05400
* 011102 3001134242 05410 JE RD DRAW 05410
011107 3400001714 05420 CC 017,014 4 DRAW 05420
* 011114 3001134242 05430 JE RD DRAW 05430
011121 3400001707 05440 CC 017,07 DRAW 05440
* 011126 3001134242 05450 JE RD DRAW 05450
011133 4400034000 05460 WT SC 0340,0 DRAW 05460
011140 4400550077 05470 SC KY,63 DRAW 05470
011145 4401210200 05480 SC A+3,0 DRAW 05480
011152 2600016704 05490 PD 0167,4 DRAW 05490
011157 4400556100 05500 SC S,0 DRAW 05500
011164 4600556171 05510 TX BT S,57 05510
011171 2001207770 05520 FT A,56 DRAW 05520
011176 6400034120 05530 LS 0341,16 6 DRAW 05530
011203 4140660000 05540 XF 066,00,0,0,6 DRAW 05540
011210 6000621201 05550 AC SGOOD,1 1 DRAW 05550
011215 3400556175 05560 SEX CC S,61 DRAW 05560
* 011222 3001124643 05570 JU ICC DRAW 05570
011227 4401120566 05580 SC TX+17,06066 05580
* 011234 1001173764 05590 JR PAC,52 DRAW 05590
* 011241 3001072400 05600 JP J DRAW DRAW 05600
011246 6000016703 05610 ICC AC 0167,3 DRAW 05610
011253 4401120562 05620 SC TX+17,06062 05620
011260 5600016701 05630 BA1 0167,1 DRAW 05630
011265 5200556101 05640 SA1 S,1 DRAW 05640
011272 5201210201 05650 SA1 A+3,1 DRAW 05650
* 011277 3001116400 05660 J TX DRAW 05660
* 011304 3000000000 05670 T1T48 J 0 DRAW 05670
011311 5400555674 05680 LP S-3,074 4 DRAW 05680
011316 3400555760 05690 CC S-2,48 DRAW 05690
* 011323 3001133541 05700 JG $+10 DRAW 05700
011330 5400555757 05710 LP S-2,057 7 DRAW 05710
* 011335 3001130400 05720 J T1T48 DRAW 05720
011342 4400034000 05730 RD SC 0340,0 DRAW 05730
011347 4400550000 05740 SC KY,0 DRAW 05740
* 011354 1001160500 05750 JR CON DRAW 05750
* 011361 1001270400 05760 RDX JR FSHAF 05760
011366 4600556171 05770 BT S,57 DRAW 05770
011373 2001234770 05780 FT B,56 DRAW 05780
011400 6000621601 05790 AC SOG,1 DRAW 05790
011405 6400034120 05800 LS 0341,16 6 DRAW 05800
011412 4140650000 05810 XF 065,00,0,0,6 DRAW 05810
011417 3401107400 05820 CC RONY+4,0,0 ON READ ERROR IPT. DRAW 05820
* 011424 3001072442 05830 JE DRAW GO TO PIC FOR PRINTOUT DRAW 05830
011431 2600006710 05840 PD X5,8 DRAW 05840
011436 2000024015 05850 FT 160,13 DRAW 05850
011443 5601235204 05860 BA1 B+3,4 DRAW 05860
011450 7001210244 05870 CB1 A+3,4 DRAW 05870
* 011455 3001155143 05880 JU CKZ DRAW 05880
011462 4401151712 05890 SC TL+4,10 0 DRAW 05890
011467 5701212200 05900 CCC BA1 A+19,16,6,4 DRAW 05900
011474 7101237240 05910 CB1 B+19,16,6,4 DRAW 05910
* 011501 3001164043 05920 JU BANG DRAW 05920
011506 6000006320 05930 AC X4,16 DRAW 05930
* 011513 3201146712 05940 TL JL CCC,10 DRAW 05940
011520 6000622201 05950 AC FDR,1 DRAW 05950
011525 5601207604 05960 BA1 Z,4 DRAW 05960
011532 7001261644 05970 CB1 B+167,4 4 DRAW 05970
* 011537 3001165242 05980 JE SAW DRAW 05980
* 011544 3001164000 05990 J BANG DRAW 05990
011551 5601207604 06000 CKZ BA1 Z,4 DRAW 06000
011556 7001261644 06010 CB1 B+167,4 4 DRAW 06010
* 011563 3001164042 06020 JE BANG DRAW 06020
* 011570 1001166764 06030 JR PIC,52 DRAW 06030
* 011575 3001072400 06040 J DRAW DRAW 06040
* 011602 3000000000 06050 CON J 0 DRAW 06050
011607 5600557204 06060 BA1 TS02-2,4,4 DRAW 06060
011614 5200557002 06070 SA1 TS02-4,2,2 DRAW 06070
011621 5200004104 06080 SA1 041,4 DRAW 06080
011626 5200557222 06090 SA2 TS02-2,2,2 DRAW 06090
* 011633 3001160200 06100 J CON DRAW 06100
* 011640 1001200200 06110 BANG JR PL DRAW 06110
011645 2600622214 06120 PD FDR,12 DRAW 06120
* 011652 1001166763 06140 SAW JR PIC,51 DRAW 06140
* 011657 3001072400 06150 J DRAW DRAW 06150
* 011664 3000000000 06160 PIC J 0 DRAW 06160
011671 2600001710 06170 PD 017,8 DRAW 06170
011676 5600556104 06180 BA1 S,4 DRAW 06180
011703 2000574516 06190 FT READ+1,1,14 DRAW 06190
* 011710 1000400400 06200 JR EDIT DRAW 06200
* 011715 1000372700 06210 JR PRINT DRAW 06210
011722 2600575410 06220 PD READ+8,8,8 DRAW 06220
* 011727 3001166400 06230 J PIC DRAW 06230
* 011734 3000000000 06240 PAC J 0 DRAW 06240
011741 5600556104 06250 BA1 S,4 DRAW 06250
011746 2000571716 06260 FT GEN+1,1414 DRAW 06260
* 011753 1000400400 06270 JR EDIT DRAW 06270
* 011760 1000372700 06280 JR PRINT DRAW 06280
011765 2600572610 06290 PD GEN+8,8 8 DRAW 06290
* 011772 3001173400 06300 J PAC DRAW 06300
* 011777 3000000000 06310 PL J 0 DRAW 06310
012004 2001261637 06320 FT B+167,3131 DRAW 06320
012011 2001207736 06330 FT A,30 DRAW 06330
* 012016 1000651500 06340 JR DUMP DRAW 06340
* 012023 3001177700 06350 J PL DRAW 06350
012030 3401204677 06360 SETS CC SCNT+4,6,63 DRAW 06360
* 012035 3001206142 06370 JE RSCT DRAW 06370
012042 4400556100 06380 SCNT SC S,0 DRAW 06380
012047 6001204601 06390 AC SCNT+4,1,1 DRAW 06390
* 012054 3000276400 06400 J RGEN DRAW 06400
012061 4401204600 06410 RSCT SC SCNT+4,0,0 DRAW 06410
* 012066 3000276400 06420 J RGEN DRAW 06420
012076 33114422 06430 Z +4 03311442422 DRAW 06430
012077 250 06440 A AREA 168,B,0 0 DRAW 06440
012347 250 06450 B AREA 168,B,0 0 DRAW 06450
012617 00 06460 RA +1 0 DRAW 06460
012620 00 06470 BBB +1 0 DRAW 06470
012622 0000 06480 UNIT +2 00 DRAW 06480
012623 00 06490 UNITA +1 0 DRAW 06490
012624 5601275005 06500 HAFOP BA1 FXHAF+4,4,5 06500
012631 5201136505 065001 SA1 RDX+4,5 5 065001
012636 5201073505 06510 SA1 FXDRM+4,4,5 06510
* 012643 3000255000 06520 J WAIT1 06520
012650 5601274305 06530 FS1OP BA1 FXFS1+4,4,5 06530
* 012655 3001263100 06540 J HAFOP+5 5 06540
012662 5601275505 06550 FS2OP BA1 FXFS2+4,4,5 06550
* 012667 3001263100 06560 J HAFOP+5 5 06560
* 012674 3001267420 06570 FSBND JHJ FSBND 06570
* 012701 3000000000 06580 FSHAF J 0 HALF DRUM 06580
012706 5400555674 06590 LP S-3,074 4 06590
012713 3400555760 06600 CC S-2,48 06600
* 012720 3001273241 06610 JG $+10 06610
012725 5400555757 06620 LP S-2,057 7 06620
* 012732 3001270100 06630 J FSHAF 06630
* 012737 3001073640 06640 FXFS1 JC FXDRM+5,5,32 NOOP FOR FS 1 06640
* 012744 1001270400 06650 FXHAF JR FSHAF HALF DRUM 06650
* 012751 1001276100 06660 FXFS2 JR FS2 FS 2 06660
* 012756 3000000000 06670 FS2 J 0 06670
012763 3401303300 06680 CC FSN3,0 06680
* 012770 3001303442 06690 JE FSN0 06690
012775 3401303301 06700 CC FSN3,1 06700
* 013002 3001305342 06710 JE FSN1 06710
013007 4401303300 06720 SC FSN3,0 ITS 2 MAKE 0 06720
013014 5400555674 06730 LP U,074 UPPER 2T BITS NOT 3 06730
013021 6400555602 06740 LS U,02 UUUU10 06740
* 013026 3001275600 06750 J FS2 06750
013033 00 06760 FSN3 +1 00 06760
013034 6001303301 06770 FSN0 AC FSN3,1 06770
013041 5400555674 06780 LP U,074 UUUU0 06780
* 013046 3001275600 06790 J FS2 06790
013053 6001303301 06800 FSN1 AC FSN3,1 06800
013060 5400555674 06810 LP U,074 06810
013065 6400555601 06820 LS U,01 UUUU01 06820
* 013072 3001275600 06830 J FS2 06830
013077 00 06840 DTYPE +1 0 06840
3000250000 06850 END OPS 06850
{-- tape mark --}
013421 C231 CTT CODEDIT SOURCE A T3834394-23
000600 00010 T230 BEGIN 0600 CTT 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 000600 3007010660 * JD 070106 *
* 000605 3000060000 * J $-5 *
SEGMENT-ID T231 3000060000 * SEGJP $-10 *
017000 * ORIG 017000 *
* 017000 3001700020 * JHJ $ *
017007 000500 * +3 0500 *
* 017010 3001701020 * JHJ $ *
017017 000510 * +3 0510 *
* 017020 3001702020 * JHJ $ *
017027 000440 * +3 0440 *
017030 5601701700 * BA1 017000+1+15,16 *
017035 5200051700 * SA1 0517,16 6 *
017042 5601702710 * BA1 017000+2+23,8 *
017047 5200044710 * SA1 0447,8 *
017054 2000000361 * FT 3,49 *
017061 2000040060 * FT 0400,48 8 *
017066 4100610100 * XF 061,010000,0,4 *
017073 2000024261 * FT 162,49 *
017100 4100610100 * XF 061,010000,0,4 *
* 017105 3000044000 * J 0440 *
SEGMENT-ID T232 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 T233 3000136300 * SEGJP $ *
000600 00030 ORIG 384 CTT 00030
000600 00040 IMAGE EQU $ CTT 00040
007600 00050 ORIG 3968 CTT 00050
007600 00060 SRV0S EQU $ CTT 00060
007605 000177000000 00070 +6 000017707000000 CTT 00070
007612 01024 00080 BLKCT +5 _01024_ _ BL0CKS PFR TAPE CTT 00080
007616 00000025 00090 LNGT1 +4 00000002025 LENGTH LIST CTT 00090
007622 0021 00100 +4 _0021_ CTT 00100
007626 00000045 00110 LNGT2 +4 00000004045 CTT 00110
007632 0037 00120 +4 _0037_ CTT 00120
007636 00000105 00130 LNGT3 +4 00000010105 CTT 00130
007642 0069 00140 +4 _0069_ CTT 00140
007646 00000205 00150 LNGT4 +4 00000020205 CTT 00150
007652 0133 00160 +4 _0133_ CTT 00160
007656 00000405 00170 LNGT5 +4 00000040405 CTT 00170
007662 0261 00180 +4 _0261_ CTT 00180
007666 00001005 00190 LNGT6 +4 00000100005 CTT 00190
007672 0517 00200 +4 _0517_ CTT 00200
007676 00002005 00210 LNGT7 +4 00000200005 CTT 00210
007702 1029 00220 +4 _1029_ CTT 00220
007706 00004005 00230 LNGT8 +4 00000400005 CTT 00230
007712 2053 00240 +4 _2053_ CTT 00240
007716 00006765 00250 LNGT9 +4 00000676765 CTT 00250
007722 3765 00260 +4 _3765_ CTT 00260
007726 00000110 00270 LL +4 00000011110 CTT 00270
007731 000012 00280 FIVE +3 0000012 2 00280
010000 00290 ORIG $,64 00290
010000 00300 PRI EQU $ CTT 00300
010002 T 00310 ST +3 _T _ CTT 00310
010014 SERV0 00320 SRV +10 _ SERV0 0 _ CTT 00320
010034 0PER 00330 SP +16 _ 0PER _ BCD,BINY,READ,WRITE CTT 00330
010054 ERR0R 00340 ERR +16 _ ERR0R R _ SPACE CTT 00340
010067 DEN 00350 DEN +11 _ DEN _ CTT 00350
010106 BL0CK N0 00360 CNUM +15 _ BL0CK K N0 _ CTT 00360
010122 LENGTH 00370 BLGT +12 _ LENGTHTH _ CTT 00370
010140 TAPE PARITY 00380 TP +14 _ TAPE P PARITY _ CTT 00380
010150 N0N RCV 00390 +8 _ N0N RCRCV_ CTT 00390
010152 00400 NRC0V +2 _ _ CTT 00400
010157 CH 00410 CHL +5 _ CH _ CTT 00410
010172 BCT 00420 BSLE +11 _ BCT _ CTT 00420
010173 5 00430 TPBLK AREA 5,B,0 CTT 00430
010207 SEQUENCE 00440 SEQ +8 _SEQUENCNCE_ CTT 00440
010216 C0MPARE 00450 C0MX +7 _C0MPARERE_ CTT 00450
010224 200PPI 00460 A2PPI +6 _200PPI_I_ CTT 00460
010230 77777777 00470 MIN1 +4 07777777777 CTT 00470
010235 SPACE 00480 SPACE +5 _SPACE_ _ CTT 00480
010243 500PPI 00490 A5PPI +6 _500PPI_I_ CTT 00490
* 010244 3000000031 00500 JC 0,25 CTT 00500
010253 010332 00510 +3 IPT4 CTT 00510
* 010254 3000000031 00520 JC 0,25 CTT 00520
010263 010712 00530 IE45 +3 IPT5 CTT 00530
* 010264 3000000031 00540 JC 0,25 CTT 00540
010273 010274 00550 IE0 +3 IPTPR CTT 00550
010274 4000407777 00560 IPTPR XF 32,0777777,0,0 CTT 00560
* 010301 3000040000 00570 JC 0400 CTT 00570
010306 1 00580 INC +1 _1_ CTT 00580
010307 00 00590 M0DE +1 00 CTT 00590
010313 BINY 00600 BINY +4 _BINY_ CTT 00600
010317 BCD 00610 BCD +4 _ BCD_ CTT 00610
010324 WRITE 00620 WR +5 _WRITE_ _ CTT 00620
010331 READ 00630 RD +5 _READ_ CTT 00630
010332 4100007777 00640 IPT4 XF 0,07777,7,0,4 CTT 00640
* 010337 3001037053 00650 JC $+25,43 3 CTT 00650
010344 5601017267 00660 BD2 BSLE,7 CTT 00660
010351 6601030621 00670 AD2 INC,1 CTT 00670
010356 5201017227 00680 SA2 BSLE,7 CTT 00680
* 010363 3000044026 00690 JC 0440,22 2 EXIT,RESET ST2 CTT 00690
010370 4401014004 00700 SC TP,04 ASSUME TAPE PARITY ERR0R CTT 00700
010375 4401015203 00710 SC NRC0V,0303 CTT 00710
010402 4100000040 00720 XF 0,00040,0,0,4 TEST TAPE PARITY CTT 00720
* 010407 3001044553 00730 JC RC0V4,4343 REC0VER IF TAPE PE. CTT 00730
010414 4401014003 00740 SC TP,03 CTT 00740
010421 4401015204 00750 SC NRC0V,0404 CTT 00750
* 010426 1001060700 00760 JR PRINT CTT 00760
* 010433 3000000460 00770 ER4 JC 04,48 CTT 00770
* 010440 3001115200 00780 JC RERUN ST0P,CHANNEL4 CTT 00780
010445 4100407777 00790 RC0V4 XF 32,0777777,0,4 REC0VERABLE ERR0R CTT 00790
* 010452 1001060700 00800 JR PRINT CTT 00800
* 010457 3001046426 00810 JC $+5,22 CTT 00810
* 010464 3001047667 00820 JC $+10,55 5 CTT 00820
* 010471 3001054664 00830 JC RDER,52 2 CTT 00830
010476 3401617477 00840 CC COP,077 7 00840
* 010503 3001107542 00850 JE XX 00850
* 010510 3001051531 00860 JC $+5,25 00860
* 010515 1001244400 00870 JR RV0 INSERT SERV0 NUMBER CTT 00870
010522 4100611000 00880 XF 061,0100000,0,4 BACKSPACE CTT 00880
* 010527 3001056067 00890 JC T3,55 CTT 00890
* 010534 1001365100 00900 JR D11 CTT 00900
* 010541 3001153231 00910 JC READD-5,5,25 CTT 00910
* 010546 3001055322 00920 RDER JC $+5,18 CTT 00920
* 010553 3001153231 00930 JC READD-5,5,25 CTT 00930
010560 5600773103 00940 T3 BA1 FIVE,3 CTT 00940
010565 5600044425 00950 BA2 0444,5 CTT 00950
010572 7200003643 00960 SB1 036,3 CTT 00960
* 010577 3000003331 00970 JC 033,25 CTT 00970
* 010604 3000000000 00980 PRINT JC 0 CTT 00980
010611 2001000040 00990 FT PRI,32 CTT 00990
010616 4400020701 01000 SC 0207,1 CTT 01000
010623 4000620000 01010 XF 062,0,0,0,0 PRINT 0UT CTT 01010
010630 4400020766 01020 SC 0207,06666 CTT 01020
010635 4000640000 01030 XF 064,0,0,0,0 SPACE CTT 01030
010642 2601005410 01040 PD ERR,8 CTT 01040
010647 4401014000 01050 SC TP,0 CTT 01050
010654 2601017227 01060 PD0 BSLE,7 CTT 01060
010661 2601020005 01070 PD TPBLK+5,5,5 CTT 01070
* 010666 3001070063 01080 JC $+10,51 1 CTT 01080
* 010673 3001060400 01090 JC PRINT CTT 01090
* 010700 3000000760 01100 ERSTP JC 07,48 CTT 01100
* 010705 3001060400 01110 JC PRINT CTT 01110
010712 4120002000 01120 IPT5 XF 0,02000,0,0,5 CTT 01120
* 010717 3001103753 01130 JC A5BSY,4343 CTT 01130
010724 4120005777 01140 XF 0,05777,7,0,5 CTT 01140
* 010731 3001076253 01150 JC $+25,43 3 CTT 01150
010736 5601017267 01160 BD2 BSLE,7 CTT 01160
010743 6601030621 01170 AD2 INC,1 CTT 01170
010750 5201017227 01180 SA2 BSLE,7 CTT 01180
* 010755 3000045026 01190 JC 0450,22 2 CTT 01190
010762 4401014004 01200 SC TP,04 CTT 01200
010767 4401015203 01210 SC NRC0V,0303 CTT 01210
010774 4120000040 01220 XF 0,00040,0,0,5 CTT 01220
* 011001 3001105653 01230 JC RC0V5,4343 CTT 01230
011006 4401014003 01240 SC TP,03 CTT 01240
011013 4401015204 01250 SC NRC0V,0404 CTT 01250
* 011020 1001060700 01260 JR PRINT CTT 01260
* 011025 3000000560 01270 ER5 JC 05,48 CTT 01270
* 011032 3001115231 01280 JC RERUN,2525 CTT 01280
011037 4120402000 01290 A5BSY XF 32,0200000,0,5 CTT 01290
011044 4600045312 01300 BT 0453,10 0 CTT 01300
* 011051 3057777331 01310 JC 0777773,3,25,2 EXIT T0 CC-5 CTT 01310
011056 4120407777 01320 RC0V5 XF 32,0777777,0,5 CTT 01320
* 011063 1001060700 01330 JR PRINT CTT 01330
* 011070 3001107526 01340 JC $+5,22 CTT 01340
* 011075 1001244431 01350 XX JR RV0,25 01350
011102 4120611000 01360 XF 061,0100000,0,5 CTT 01360
* 011107 3001112664 01370 JC $+15,52 2 NO ERASE IF SS 3 01370
* 011114 1001244400 01380 JR RV0 CTT 01380
011121 4120620400 01390 XF 062,0040400,0,5 ERASE CTT 01390
* 011126 3001056067 01400 JC T3,55 01400
* 011133 1001365100 01410 JR D11 01410
* 011140 3001141731 01420 JC WRIT-5,2,25 CTT 01420
011145 2600007710 01430 START PD 077,8 CLEAR TR6 AND 7 CTT 01430
* 011152 1001164300 01440 RERUN JR ITIZE CTT 01440
011157 4740761661 01450 BT LNGT1,4949,6 FIX READ LENGTH CTT 01450
011164 4740761665 01460 BT LNGT1,5353,6 FIX WRITE LENGTH CTT 01460
011171 5740762204 01470 BA1 LNGT1+4,4,4,6 CTT 01470
011176 5201012204 01480 SA1 BLGT,4 ST0RE LENGTH PRINT0UT CTT 01480
* 011203 1001324500 01490 JR TEST1 CTT 01490
* 011210 3001122262 01500 JC $+10,50 0 CTT 01500
* 011215 1001331000 01510 JR TEST2 CTT 01510
* 011222 1001334600 01520 JR TEST3 CTT 01520
* 011227 3001124162 01530 JC $+10,50 0 CTT 01530
* 011234 1001341100 01540 JR TEST4 CTT 01540
* 011241 1001344700 01550 JR TEST5 CTT 01550
* 011246 3001126062 01560 JC $+10,50 0 CTT 01560
* 011253 1001351200 01570 JR TEST6 CTT 01570
* 011260 1001355000 01580 JR TEST7 CTT 01580
* 011265 3001127762 01590 JC $+10,50 0 CTT 01590
* 011272 1001361300 01600 JR TEST8 R0UTINE C0MPLETED CTT 01600
011277 6000007310 01610 AC 073,8 R0UTINE C0MPLETED CTT 01610
011304 7400772616 01620 CT LL,14 CTT 01620
* 011311 3001115743 01630 JC RERUN+5,5,35 LENGTHS,D0NE CTT 01630
* 011316 3001114500 01640 JC START CTT 01640
* 011323 3000000000 01650 WRITE JC 0 CTT 01650
* 011330 1001515600 01660 JR GSRV0 CTT 01660
011335 5601032405 01670 BA1 WR,5 SET OPERATI0N PRINT 0UT CTT 01670
011342 2601010625 01680 PD0 CNUM,5 CTT 01680
011347 2600060425 01690 PD0 IMAGE+4,4,5 CTT 01690
011354 5201003405 01700 SA1 SP,5 CTT 01700
011361 4401015710 01710 SC CHL,08 SET CHANNEL PRINT0UT CTT 01710
* 011366 1001250700 01720 JR RWIND CTT 01720
* 011373 1001370200 01730 C JR GENDT CTT 01730
011400 5600060445 01740 BD1 IMAGE+4,4,5 CTT 01740
011405 6601030601 01750 AD1 INC,1 CTT 01750
011412 5200060405 01760 SA1 IMAGE+4,4,5 CTT 01760
* 011417 1001236723 01770 JR DENSV,1919 CTT 01770
011424 4120020000 01780 WRIT XF 02,0,0,5,5 WRITE CTT 01780
011431 5601010645 01790 BD1 CNUM,5 CTT 01790
011436 6601030601 01800 AD1 INC,1 C0MPUTE CURRENT CTT 01800
011443 5201010605 01810 SA1 CNUM,5 BL0CK NUM CTT 01810
* 011450 3001145066 01820 JC $,54 L00P TILL IPT CTT 01820
011455 7000761245 01830 CB1 BLKCT,5 5 CTT 01830
* 011462 3001132342 01840 JE WRITE CTT 01840
* 011467 3001137300 01850 JC C CTT 01850
* 011474 3000000000 01860 READ JC 0 1 TAPE CTT 01860
011501 2601010625 01870 PD0 CNUM,5 CTT 01870
* 011506 1001534100 01880 JR CSRV0 CTT 01880
011513 4401015707 01890 SC CHL,07 CTT 01890
011520 5601033105 01900 BA1 RD,5 SET �READ� TO PRINT CTT 01900
011525 5201003405 01910 SA1 SP,5 0UT 0PERATION CTT 01910
* 011532 1001236723 01920 JR DENSV,1919 CTT 01920
011537 4100010000 01930 READD XF 01,0,0,4,4 READ CTT 01930
011544 5601010645 01940 BD1 CNUM,5 C0MPUTE CURRENT CTT 01940
011551 6601030601 01950 AD1 INC,1 BL0CK NUM. CTT 01950
011556 5201010605 01960 SA1 CNUM,5 CTT 01960
* 011563 3001156366 01970 JC $,54 L00P TILL IPT CTT 01970
011570 2600060445 01980 CD1 IMAGE+4,4,5 CTT 01980
* 011575 3001177243 01990 JC SEQER,3535 SEQUENCE ER IF N0T EQU CTT 01990
* 011602 3001161465 02000 JC $+10,53 3 CTT 02000
* 011607 1001531500 02010 JR C0MP CTT 02010
011614 5601010645 02020 BD1 CNUM,5 CTT 02020
011621 7000761245 02030 CB1 BLKCT,5 5 CTT 02030
* 011626 3001147442 02040 JE READ CTT 02040
* 011633 3001153200 02050 JC READD-5 5 CTT 02050
* 011640 3000000000 02060 ITIZE JC 0 CTT 02060
011645 5601026300 02070 BA1 IE45,16 6 CTT 02070
011652 5200045700 02080 SA1 0457,16 6 CH4 AND 5 IPT ENTRY CTT 02080
011657 5601027310 02090 BA1 IE0,8 CTT 02090
011664 5200040710 02100 SA1 0407,8 CH0 IPT ENTRY CTT 02100
011671 4401617400 02110 SC COP,0 02110
011676 4000407777 02120 XF 32,0777777,0,0 CTT 02120
011703 4120407777 02130 XF 32,0777777,0,5 CTT 02130
011710 4100407777 02140 XF 32,0777777,0,4 CTT 02140
* 011715 1001575300 02150 JR INGEN INITIALIZE DATA GEN CTT 02150
011722 2000060064 02160 FT IMAGE,5252 FIX BASE ADDRESS CTT 02160
011727 2000060060 02170 FT IMAGE,4848 CTT 02170
* 011734 3001174125 02180 JC $+5,21 CTT 02180
* 011741 3001174626 02190 JC $+5,22 CTT 02190
* 011746 3001175327 02200 JC $+5,23 CTT 02200
011753 2001000040 02210 FT PRI,32 CTT 02210
011760 2601017227 02220 PD0 BSLE,7 CTT 02220
* 011765 3001164000 02230 JC ITIZE CTT 02230
011772 5601020710 02240 SEQER BA1 SEQ,8 CTT 02240
011777 5201005410 02250 SA1 ERR,8 CTT 02250
012004 5600060405 02260 BA1 IMAGE+4,4,5 CTT 02260
012011 5201017705 02270 SA1 TPBLK+4,4,5 CTT 02270
* 012016 1001060722 02280 JR PRINT,1818 CTT 02280
012023 5600060445 02290 BD1 IMAGE+4,4,5 CTT 02290
012030 5201010605 02300 SA1 CNUM,5 CTT 02300
* 012035 3001153200 02310 JC READD-5 5 CTT 02310
* 012042 3000000000 02320 C0NTL JC 0 CTT 02320
012047 2000000017 02330 FT 0,15 CTT 02330
* 012054 1001224200 02340 JR ADVSR CTT 02340
* 012061 1001132627 02350 JR WRITE,02027 RESET IND 3 CTT 02350
* 012066 1001250700 02360 JR RWIND CTT 02360
* 012073 1001227300 02370 JR ENDCK CTT 02370
* 012100 3001205400 02380 JC C0NTL+1010 SWITCH CTT 02380
* 012105 1001212200 02390 JR SNTL CTT 02390
* 012112 3001204200 02400 JC C0NTL CTT 02400
* 012117 3000000000 02410 SNTL JC 0 CTT 02410
012124 2000000017 02420 FT 0,15 CTT 02420
* 012131 1001224200 02430 JR ADVSR CTT 02430
* 012136 1001147727 02440 JR READ,02727 RESET IND 3 CTT 02440
* 012143 1001250700 02450 JR RWIND CTT 02450
* 012150 1001227300 02460 JR ENDCK CTT 02460
* 012155 3001213100 02470 JC $-20 CTT 02470
* 012162 1001312024 02480 JR C0PY,02424 SET IND 3 CTT 02480
012167 2000000017 02490 FT 0,15 SERV0 CTT 02490
* 012174 1001224200 02500 JR ADVSR CTT 02500
* 012201 1001147727 02510 JR READ,02727 RESET IND 3 CTT 02510
* 012206 1001254500 02520 JR SPCBK CTT 02520
* 012213 1001250700 02530 JR RWIND CTT 02530
* 012220 1001227300 02540 JR ENDCK CTT 02540
* 012225 3001217400 02550 JC $-25 CTT 02550
* 012232 3001211700 02560 JC SNTL CTT 02560
* 012237 3000000000 02570 ADVSR JC 0 CTT 02570
012244 4760760003 02580 BT SRV0S,3,3,7 CTT 02580
012251 6000001703 02590 AC 15,3 CTT 02590
012256 5201001401 02600 SA1 SRV,1 CTT 02600
* 012263 3001223700 02610 JC ADVSR CTT 02610
* 012270 3000000000 02620 ENDCK JC 0 INCREMENT T0 NEXT CTT 02620
012275 6000007701 02630 AC 077,1 SERV0 NUMBER CTT 02630
012302 3400007706 02640 CC 077,6 CTT 02640
012307 4601227311 02650 BT ENDCK+3,3,9 CTT 02650
012314 4420000400 02660 SC 4,0,1 ASSUME N0T D0NE CTT 02660
* 012321 3001234543 02670 JC $+20,35 5 CTT 02670
012326 4420000440 02680 SC 4,040,1 1 D0NE,SWITCH T0 SKIP CTT 02680
012333 4400007700 02690 SC 077,0 CTT 02690
* 012340 3001227000 02700 JC ENDCK CTT 02700
012345 3560760077 02710 CC SRV0S,07077,7 CTT 02710
* 012352 3001227043 02720 JC ENDCK,3535 CTT 02720
* 012357 3001232600 02730 JC $-25 CTT 02730
* 012364 3000000000 02740 DENSV JC 0 CTT 02740
* 012371 1001224200 02750 JR ADVSR CTT 02750
012376 4601236715 02760 BT DENSV+3,3,13 CTT 02760
012403 4520000300 02770 M0DEE SC 3,0,5 CTT 02770
012410 5520000160 02780 LP 1,060,5 5 CTT 02780
012415 4760760003 02790 BT SRV0S,3,3,7 CTT 02790
012422 5201243301 02800 SA1 SURV0+4,4,1 CTT 02800
012427 6520000100 02810 SURV0 LS 1,0,5 CTT 02810
* 012434 3001236400 02820 JC DENSV SERV0 NUM T0 TETRAD3 CTT 02820
* 012441 3000000000 02830 RV0 JC 0 CTT 02830
012446 4601244415 02840 BT RV0+3,1313 CTT 02840
012453 5520000160 02850 LP 1,060,5 5 CTT 02850
012460 4760760003 02860 BT SRV0S,3,3,7 CTT 02860
012465 5201247601 02870 SA1 SWRV0+4,4,1 CTT 02870
012472 6520000100 02880 SWRV0 LS 1,0,5 CTT 02880
* 012477 3001244100 02890 JC RV0 CTT 02890
* 012504 3000000000 02900 RWIND JC 0 REWIND CTT 02900
* 012511 1001244400 02910 JR RV0 CTT 02910
012516 4120640000 02920 XF 064,0,0,0,5 CTT 02920
* 012523 1001244400 02930 JR RV0 CTT 02930
012530 4120640000 02940 XF 064,0,0,0,5 CTT 02940
* 012535 3001250400 02950 JC RWIND CTT 02950
* 012542 3000000000 02960 SPCBK JC 0 CTT 02960
012547 2601010625 02970 PD0 CNUM,5 CTT 02970
* 012554 1001244400 02980 JR RV0 CTT 02980
012561 4120611000 02990 XF 061,0100000,0,5 CTT 02990
012566 5601010645 03000 BD1 CNUM,5 CTT 03000
012573 6601030601 03010 AD1 INC,1 CTT 03010
012600 5201010605 03020 SA1 CNUM,5 CTT 03020
012605 2600761245 03030 CD1 BLKCT,5 5 CTT 03030
* 012612 3001256143 03040 JC SPCBK+1515,35 CTT 03040
* 012617 1001236700 03050 JR DENSV SH0ULD BE AT FIRST CTT 03050
012624 4100610000 03060 XF 061,0,0,0,4 CTT 03060
012631 5601030641 03070 BD1 INC,1 CTT 03070
012636 2600060445 03080 CD1 IMAGE+4,4,5 CTT 03080
* 012643 3001254242 03090 JC SPCBK,3434 BACKWARD SPACING ERR0R CTT 03090
012650 5601023505 03100 BA1 SPACE,5 5 CTT 03100
012655 5201003405 03110 SA1 SP,5 CTT 03110
012662 5600060405 03120 BA1 IMAGE+4,4,5 CTT 03120
012667 5201002605 03130 SA1 SP-6,5 CTT 03130
* 012674 1001060700 03140 JR PRINT CTT 03140
* 012701 3001254200 03150 JC SPCBK CTT 03150
* 012706 3000000000 03160 C0PI JC 0 0 CTT 03160
012713 2601010625 03170 PD0 CNUM,5 CTT 03170
012720 5601033105 03180 BA1 RD,5 CTT 03180
012725 5201003405 03190 SA1 SP,5 CTT 03190
012732 4401015707 03200 SC CHL,07 CTT 03200
012737 4401617400 03210 SC COP,0 03210
* 012744 1001236723 03220 JR DENSV,1919 CTT 03220
012751 4100010000 03230 XF 01,0,0,4,4 READ CTT 03230
* 012756 3001275666 03240 JC $,54 CTT 03240
012763 6000007701 03250 AC 077,1 CTT 03250
012770 5601032405 03260 BA1 WR,5 CTT 03260
012775 5201003405 03270 SA1 SP,5 CTT 03270
013002 4401015707 03280 SC CHL,07 CTT 03280
013007 4401617477 03290 SC COP,077 7 03290
* 013014 1001236723 03300 JR DENSV,1919 CTT 03300
013021 4100020000 03310 XF 02,0,0,4,4 WRITE CTT 03310
* 013026 3001302666 03320 JC $,54 CTT 03320
013033 5601010645 03330 BD1 CNUM,5 CTT 03330
013040 6601030601 03340 AD1 INC,1 CTT 03340
013045 5201010605 03350 SA1 CNUM,5 CTT 03350
013052 7601023017 03360 AT MIN1,15 5 D0NE CTT 03360
013057 2600761245 03370 CD1 BLKCT,5 5 CTT 03370
* 013064 3001272043 03380 JC C0PI+10,0,35 CTT 03380
* 013071 1001250700 03390 JR RWIND CTT 03390
013076 6000007701 03400 AC 077,1 CTT 03400
* 013103 1001250700 03410 JR RWIND CTT 03410
* 013110 3001270600 03420 JC C0PI EXIT CTT 03420
* 013115 3000000000 03430 C0PY JC 0 CTT 03430
013122 3400760177 03440 CC SRV0S+1,1,077 1 T0 2 CTT 03440
* 013127 3001311542 03450 JC C0PY,34 4 CTT 03450
* 013134 1001271100 03460 JR C0PI CTT 03460
013141 3560760177 03470 CC SRV0S+1,1,077,7 CTT 03470
* 013146 3001311542 03480 JC C0PY,34 4 CTT 03480
* 013153 1001271100 03490 JR C0PI 2 T0 3 CTT 03490
013160 3560760177 03500 CC SRV0S+1,1,077,7 CTT 03500
* 013165 3001311542 03510 JC C0PY,34 4 CTT 03510
* 013172 1001271100 03520 JR C0PI 3 T0 4 CTT 03520
013177 3560760177 03530 CC SRV0S+1,1,077,7 CTT 03530
* 013204 3001311542 03540 JC C0PY,34 4 CTT 03540
* 013211 1001271100 03550 JR C0PI 4 T0 5 CTT 03550
013216 3560760177 03560 CC SRV0S+1,1,077,7 5 T0 6 CTT 03560
* 013223 3001311542 03570 JC C0PY,34 4 CTT 03570
* 013230 1001271100 03580 JR C0PI CTT 03580
* 013235 3001311500 03590 JC C0PY CTT 03590
* 013242 3000000000 03600 TEST1 JC 0 TEST 1 CTT 03600
* 013247 1002000300 03610 JR SX2P CTT 03610
013254 4401000104 03620 SC ST-1,04 4 CTT 03620
* 013261 1002002700 03630 JR SXBI CTT 03630
013266 4401240721 03640 SC M0DEE+4,4,021 M0DE AND DENSITY CTT 03640
* 013273 1001204522 03650 JR C0NTL,1818 N0 C0M CTT 03650
* 013300 3001324200 03660 JC TEST1 CTT 03660
* 013305 3000000000 03670 TEST2 JC 0 CTT 03670
013312 4401000105 03680 SC ST-1,05 5 CTT 03680
* 013317 1002000300 03690 JR SX2P CTT 03690
* 013324 1002002700 03700 JR SXBI CTT 03700
* 013331 1001212225 03710 JR SNTL,21 1 CTT 03710
* 013336 3001330500 03720 JC TEST2 CTT 03720
* 013343 3000000000 03730 TEST3 JC 0 CTT 03730
013350 4401000106 03740 SC ST-1,06 6 CTT 03740
* 013355 1002005300 03750 JR SXBCD CTT 03750
* 013362 1002000300 03760 JR SX2P CTT 03760
013367 4401240720 03770 SC M0DEE+4,4,020 CTT 03770
* 013374 1001204522 03780 JR C0NTL,1818 CTT 03780
* 013401 3001334300 03790 JC TEST3 CTT 03790
* 013406 3000000000 03800 TEST4 JC 0 CTT 03800
013413 4401000107 03810 SC ST-1,07 7 CTT 03810
* 013420 1002005300 03820 JR SXBCD CTT 03820
* 013425 1002000300 03830 JR SX2P CTT 03830
* 013432 1001212225 03840 JR SNTL,21 1 CTT 03840
* 013437 3001340600 03850 JC TEST4 CTT 03850
* 013444 3000000000 03860 TEST5 JC 0 CTT 03860
* 013451 1002007700 03870 JR SX5P CTT 03870
013456 4401000110 03880 SC ST-1,01010 CTT 03880
* 013463 1002002700 03890 JR SXBI CTT 03890
013470 4401240701 03900 SC M0DEE+4,4,01 CTT 03900
* 013475 1001204522 03910 JR C0NTL,1818 CTT 03910
* 013502 3001344400 03920 JC TEST5 CTT 03920
* 013507 3000000000 03930 TEST6 JC 0 CTT 03930
013514 4401000111 03940 SC ST-1,01111 CTT 03940
* 013521 1002007700 03950 JR SX5P CTT 03950
* 013526 1002002700 03960 JR SXBI CTT 03960
* 013533 1001212225 03970 JR SNTL,21 1 CTT 03970
* 013540 3001350700 03980 JC TEST6 CTT 03980
* 013545 3000000000 03990 TEST7 JC 0 CTT 03990
* 013552 1002005300 04000 JR SXBCD CTT 04000
013557 4401000112 04010 SC ST-1,01212 CTT 04010
* 013564 1002007700 04020 JR SX5P CTT 04020
013571 4401240700 04030 SC M0DEE+4,4,0 CTT 04030
* 013576 1001204522 04040 JR C0NTL,1818 CTT 04040
* 013603 3001354500 04050 JC TEST7 CTT 04050
* 013610 3000000000 04060 TEST8 JC 0 CTT 04060
013615 4401000113 04070 SC ST-1,01313 CTT 04070
* 013622 1002005300 04080 JR SXBCD CTT 04080
* 013627 1002007700 04090 JR SX5P CTT 04090
* 013634 1001212225 04100 JR SNTL,21 1 CTT 04100
* 013641 3001361000 04110 JC TEST8 CTT 04110
* 013646 3000000000 04120 D11 JC 0 CTT 04120
013653 5601010645 04130 BD1 CNUM,5 CTT 04130
013660 6601030641 04140 SD1 INC,1 CTT 04140
013665 5201010605 04150 SA1 CNUM,5 CTT 04150
* 013672 3001364600 04160 JC D11 CTT 04160
* 013677 3000000000 04170 GENDT J 0 CTT 04170
013704 5600007700 04180 SAVY BA1 077,16 SAVE CTT 04180
013711 5201632000 04190 SA1 SAVEX,1616 ALL CTT 04190
013716 5600005700 04200 BA1 057,16 IR CTT 04200
013723 5201634000 04210 SA1 SAVX,16 6 CTT 04210
013730 2600007700 04220 PD 077,16 CTT 04220
013735 2600005700 04230 PD 057,16 CTT 04230
013742 4400005305 04240 SC 053,5 CTT 04240
* 013747 3001375400 04250 DUTYX J TM0DX CTT 04250
013754 5601240701 04260 TM0DX BA1 M0DEE+4,4,1 TEST IF M0DEE+4 IS CTT 04260
013761 5400001701 04270 LP 017,01 0DD F0R ANY 0R EVEN CTT 04270
* 013766 3001401200 04280 J WBCDX G0 GEN BCD DATA CTT 04280
* 013773 3001417500 04290 WBNYX J WBP1X BNY DATA PART 1 CTT 04290
* 014000 3001433400 04300 WBNY2 J WBP2X BNY DATA PART 2 CTT 04300
* 014005 3001450000 04310 WBNY3 J WBP3X BNY DATA PART3 CTT 04310
014012 4601620011 04320 WBCDX BT SAV1,9 BRING 0LD IR1 CTT 04320
014017 4401751507 04330 SC PHSEX,0707 CTT 04330
014024 5621622000 04340 STRD BA1 DTBL,16,6,1 BRING 16 CHAR FR0M CTT 04340
014031 5240061700 04350 DECX1 SA1 IMAGE+1515,16,2 CTT 04350
014036 6000005320 04360 AC 053,16 IR2 EQ T49 CTT 04360
014043 7400005361 04370 CT 053,49 CTT 04370
* 014050 3001411342 04380 JE EXBCD INCR IR2 BY 16 CTT 04380
014055 3400004760 04390 CC 047,48 IR1 EQ 48 CTT 04390
* 014062 3001410142 04400 JE RT1 CTT 04400
014067 6000004701 04410 AC 047,1 INCR IR1 BY 1 CTT 04410
* 014074 3001402400 04420 J STRD CTT 04420
014101 2600004704 04430 RT1 PD 047,4 CTT 04430
* 014106 3001402400 04440 J STRD CTT 04440
014113 4201620011 04450 EXBCD ST SAV1,9 CTT 04450
014120 3401620060 04460 CC SAV1,48 8 CTT 04460
* 014125 3001414442 04470 JE RESTR CTT 04470
014132 6001620001 04480 AC SAV1,1 CTT 04480
* 014137 3001414400 04490 J RESTR CTT 04490
014144 5601632000 04500 RESTR BA1 SAVEX,1616 REST0RE ALL CTT 04500
014151 5200007700 04510 SA1 077,16 INDEX CTT 04510
014156 5601634000 04520 BA1 SAVX,16 6 REGISTERS AND CTT 04520
014163 5200005700 04530 SA1 057,16 RETURN T0 MAIN CTT 04530
* 014170 3001367700 04540 J GENDT C0NTR0L CTT 04540
014175 5601635000 04550 WBP1X BA1 PATSY,1616 16 CHAR NEXT PAT CTT 04550
014202 4401751504 04560 SC PHSEX,0404 CTT 04560
014207 5601637020 04570 BA2 SWES,16 6 16 CHAR 01 CTT 04570
* 014214 3201424502 04580 SHX JL CHUCK,0202 CTT 04580
014221 7200001720 04590 AB2 017,16 ADD AR2 T0 AR1 CTT 04590
* 014226 3001424500 04600 J CHUCK CTT 04600
014233 7400005361 04610 MTCH CT 053,49 IR2 EQ T49 CTT 04610
* 014240 3001426442 04620 JE EXBNY CTT 04620
014245 5240061700 04630 CHUCK SA1 IMAGE+1515,16,2 CTT 04630
014252 6000005320 04640 AC 053,16 INCR IR2 CTT 04640
* 014257 3001423300 04650 J MTCH CTT 04650
014264 3400001777 04660 EXBNY CC 017,077 7 CTT 04660
* 014271 3001431042 04670 JE RSET0 CTT 04670
014276 5201635000 04680 SA1 PATSY,1616 CTT 04680
* 014303 3001414400 04690 J RESTR CTT 04690
014310 4401377740 04700 RSET0 SC WBNYX+4,4,32 RESET PATSY T0 ZER0 CTT 04700
014315 2600001700 04710 PD 017,16 CTT 04710
014322 5201635000 04720 SA1 PATSY,1616 CTT 04720
* 014327 3001414400 04730 J RESTR CTT 04730
014334 5601642000 04740 WBP2X BA1 PATT2,1616 CTT 04740
014341 4401751505 04750 SC PHSEX,0505 CTT 04750
014346 5601646020 04760 BA2 TENS,16 6 16 CHAR 10S CTT 04760
014353 3400001677 04770 CC 016,077 7 CTT 04770
* 014360 3001444242 04780 JE ENDX CTT 04780
* 014365 3201437702 04790 FSTX JL SLIP,02 2 CTT 04790
014372 7200001720 04800 BANG AB2 017,16 CTT 04800
014377 5240061700 04810 SLIP SA1 IMAGE+1515,16,2 CTT 04810
014404 6000005320 04820 AC 053,16 CTT 04820
014411 7400005361 04830 CT 053,49 CTT 04830
* 014416 3001443042 04840 JE FIN2 CTT 04840
* 014423 3001437700 04850 J SLIP CTT 04850
014430 5201642000 04860 FIN2 SA1 PATT2,1616 CTT 04860
* 014435 3001414400 04870 J RESTR CTT 04870
014442 3400001777 04880 ENDX CC 017,077 7 CTT 04880
* 014447 3001437243 04890 JU BANG CTT 04890
014454 5601644000 04900 BA1 SRIG,16 6 0RIG 000000010002 ETC CTT 04900
014461 5201642000 04910 SA1 PATT2,1616 CTT 04910
014466 4401400440 04920 SC WBNY2+4,4,32 CTT 04920
* 014473 3001400500 04930 J WBNY3 CTT 04930
014500 5601650010 04940 WBP3X BA1 TS02,8 CTT 04940
014505 4401751506 04950 SC PHSEX,0606 CTT 04950
014512 5201707510 04960 SA1 NEWX-8,8,8 CTT 04960
014517 5240060710 04970 R1X SA1 IMAGE+7,7,8,2 CTT 04970
* 014524 1001567100 04980 JR GENRX CTT 04980
014531 5240061710 04990 SA1 IMAGE+1515,8,2 CTT 04990
014536 4401463103 05000 SC CCX+4,0303 CTT 05000
014543 6000005320 05010 AC 053,16 INCR IR2 CTT 05010
014550 7400005361 05020 CT 053,49 CTT 05020
* 014555 3001414442 05030 JE RESTR CTT 05030
* 014562 3001462500 05040 J CCX CTT 05040
014567 6000005320 05050 TX AC 053,16 CTT 05050
014574 7400005361 05060 CT 053,49 CTT 05060
* 014601 3001414442 05070 JE RESTR CTT 05070
014606 3400004707 05080 CC 047,07 CTT 05080
* 014613 3001514142 05090 JE PADX CTT 05090
014620 6000004701 05100 AC 047,01 CTT 05100
014625 3420061503 05110 CCX CC IMAGE+1313,03,1 CTT 05110
* 014632 3061477542 05120 JE SUTX,3 CTT 05120
014637 3401463114 05130 CC CCX+4,01014 CTT 05130
* 014644 3001467042 05140 JE DUB CTT 05140
014651 6001463101 05150 AC CCX+4,0101 CTT 05150
014656 6000005712 05160 AC 057,10 CTT 05160
* 014663 3001462500 05170 J CCX CTT 05170
014670 3420061503 05180 DUB CC IMAGE+1313,03,1 CTT 05180
* 014675 3001473341 05190 JC LESSX,3333 CTT 05190
014702 3420061516 05200 CC IMAGE+1313,14,1 CTT 05200
* 014707 3001474044 05210 JC M0REX,3636 CTT 05210
014714 2600005704 05220 PD 057,4 CTT 05220
014721 4401463103 05230 SC CCX+4,0303 CTT 05230
* 014726 3001462500 05240 J CCX CTT 05240
* 014733 3001473360 05250 LESSX JD LESSX CTT 05250
* 014740 3001474060 05260 M0REX JD M0REX CTT 05260
014750 00000000 05270 F0URX +4 000 CTT 05270
014751 5701577100 05280 SUTXX BA1 RNDX1,1616,4 CTT 05280
014756 4201475014 05290 ST F0URX,1212 CTT 05290
014763 5240061700 05300 RXL SA1 IMAGE+1515,16,2 CTT 05300
* 014770 3001456700 05310 J TX CTT 05310
014775 2000000014 05320 SUTX FT 0,12 CTT 05320
* 015002 3001475100 05330 J SUTXX CTT 05330
015007 2000002014 05340 FT 16,12 CTT 05340
* 015014 3001475100 05350 J SUTXX CTT 05350
015021 2000004014 05360 FT 32,12 CTT 05360
* 015026 3001475100 05370 J SUTXX CTT 05370
015033 2000006014 05380 FT 48,12 CTT 05380
* 015040 3001475100 05390 J SUTXX CTT 05390
015045 2000010014 05400 FT 64,12 CTT 05400
* 015052 3001475100 05410 J SUTXX CTT 05410
015057 2000012014 05420 FT 80,12 CTT 05420
* 015064 3001475100 05430 J SUTXX CTT 05430
015071 2000014014 05440 FT 96,12 CTT 05440
* 015076 3001475100 05450 J SUTXX CTT 05450
015103 2000016014 05460 FT 112,12 CTT 05460
* 015110 3001475100 05470 J SUTXX CTT 05470
015115 2000020414 05480 FT 132,12 CTT 05480
* 015122 3001475100 05490 J SUTXX CTT 05490
015127 2000025414 05500 FT 172,12 CTT 05500
* 015134 3001475100 05510 J SUTXX CTT 05510
015141 4400004700 05520 PADX SC 047,0 CTT 05520
* 015146 3001462500 05530 J CCX CTT 05530
* 015153 3000000000 05540 GSRV0 J 0 CTT 05540
015160 4401437102 05550 SC FSTX+4,0,02 CTT 05550
015165 4401422002 05560 SC SHX+4,0202 CTT 05560
015172 4401377700 05570 SC WBNYX+4,4,0 CTT 05570
015177 4401400400 05580 SC WBNY2+4,4,0 CTT 05580
015204 2601620004 05590 PD SAV1,4 CTT 05590
015211 2601635000 05600 PD PATSY,1616 CTT 05600
015216 5601644000 05610 BA1 SRIG,16 6 CTT 05610
015223 5201642000 05620 SA1 PATT2,1616 CTT 05620
015230 5601647010 05630 BA1 RANDY,8 8 0RIG RAND0M N0 CTT 05630
015235 5201650010 05640 SA1 TS02 CTT 05640
015242 5601650505 05650 BA1 RDX1+4,5,5 RESET DECX1 CTT 05650
015247 5201403505 05660 SA1 DECX1+4,4,5 CTT 05660
015254 5201425105 05670 SA1 CHUCK+4,4,5 CTT 05670
015261 5201440305 05680 SA1 SLIP+4,5,5 CTT 05680
015266 5201476705 05690 SA1 RXL+4,5 5 CTT 05690
015273 5601652417 05700 BA1 RR1X+4,1,15 CTT 05700
015300 5201453517 05710 SA1 R1X+14,1,15 CTT 05710
* 015305 3001515300 05720 J GSRV0 CTT 05720
* 015312 3000000000 05730 C0MP J 0 CTT 05730
015317 5601531605 05740 BA1 C0MP+4,5,5 CTT 05740
015324 5201370305 05750 SA1 GENDT+4,4,5 CTT 05750
* 015331 3001370400 05760 J SAVY JRD1 CTT 05760
* 015336 3000000000 05770 CSRV0 J 0 CTT 05770
015343 5601647010 05780 BA1 RANDY,8 8 CTT 05780
015350 5201650010 05790 SA1 TS02,8 CTT 05790
015355 5601644000 05800 BA1 SRIG,16 6 CTT 05800
015362 5201642000 05810 SA1 PATT2,1616 CTT 05810
015367 4401437102 05820 SC FSTX+4,0,02 CTT 05820
015374 4401422002 05830 SC SHX+4,0202 CTT 05830
015401 2601620005 05840 PD SAV1,5 CTT 05840
015406 2601635000 05850 PD PATSY,1616 CTT 05850
015413 5601653105 05860 BA1 JRD1+4,5,5 CTT 05860
015420 5201403505 05870 SA1 DECX1+4,4,5 CTT 05870
015425 5201425105 05880 SA1 CHUCK+4,4,5 CTT 05880
015432 5201440305 05890 SA1 SLIP+4,5,5 CTT 05890
015437 5601655437 05900 BA2 JRD3+4,1,15 CTT 05900
015444 5201453537 05910 SA2 R1X+14,1,15 CTT 05910
015451 4401377700 05920 SC WBNYX+4,4,0 CTT 05920
015456 4401400400 05930 SC WBNY2+4,4,0 CTT 05930
015463 5201476705 05940 SA1 RXL+4,5 5 CTT 05940
* 015470 3001533600 05950 J CSRV0 CTT 05950
015504 0000000000000000 05960 +8 000 CTT 05960
015514 0000000000000000 05970 SAV3X +8 000 CTT 05970
* 015515 3000000000 05980 D1 J 0 CTT 05980
015522 7040061740 05990 CB1 IMAGE+1515,16,2 CTT 05990
* 015527 1001561443 06000 JR P0P,35 CTT 06000
* 015534 3001551500 06010 J D1 CTT 06010
* 015541 3000000000 06020 D2 J 0 CTT 06020
015546 7040060750 06030 CB1 IMAGE+7,7,8,2 CTT 06030
* 015553 1001664743 06040 JR P0P2,35 5 CTT 06040
* 015560 3001554100 06050 J D2 CTT 06050
* 015565 3000000000 06060 D3 J 0 CTT 06060
015572 7040061750 06070 CB1 IMAGE+1515,8,2 CTT 06070
* 015577 1001670043 06080 JR P0P3,35 5 CTT 06080
* 015604 3001556500 06090 J D3 CTT 06090
* 015611 3000000000 06100 P0P J 0 CTT 06100
015616 5201551420 06110 SA2 SAV3X,1616 CTT 06110
015623 5601021627 06120 BA2 C0MX,7 CTT 06120
015630 5201005427 06130 SA2 ERR,7 CTT 06130
015635 5201712500 06140 SA1 DUDX,16 6 CTT 06140
* 015642 1001715100 06150 JR PRTX1 CTT 06150
* 015647 1001060700 06160 JR PRINT CTT 06160
015654 5601551420 06170 BA2 SAV3X,1616 CTT 06170
* 015661 3001561100 06180 J P0P CTT 06180
* 015666 3000000000 06190 GENRX J 0 CTT 06190
015673 2600012730 06200 PD0 87,8 CTT 06200
015700 2000050625 06210 FT 326,21 CTT 06210
015705 5601650070 06220 BD2 TS02,8 CTT 06220
015712 5000000002 06230 MPN ,2 CTT 06230
015717 5600000730 06240 BA2 7,8 CTT 06240
015724 6600003750 06250 SD1 31,8 CTT 06250
015731 5400001717 06260 LP 15,15 CTT 06260
015736 5201650010 06270 SA1 TS02,8 CTT 06270
* 015743 3001566600 06280 J GENRX CTT 06280
* 015750 3000000000 06290 INGEN J 0 CTT 06290
* 015755 3001575000 06300 J INGEN CTT 06300
015771 0000400100002002 06310 RNDX1 +8 0000040000100002002 CTT 06310 0
016001 0010040004100002 06320 +8 0001004040004100002 CTT 06320 0
016011 2000014001400002 06330 +8 0200001414001400002 CTT 06330 0
016021 2004101004200240 06340 +8 0200410101004200240 CTT 06340 2
016031 4101201204122001 06350 +8 0410120101204122001 CTT 06350 0
016041 4224102442412116 06360 +8 0422410202442412116 CTT 06360 1
016051 1621414630462116 06370 +8 0162141414630462116 CTT 06370 1
016061 1621463046777777 06380 +8 0162146363046777777 CTT 06380 7
016071 7777377677775775 06390 +8 0777737777677775775 CTT 06390 7
016101 7737737773377775 06400 +8 0773773737773377775 CTT 06400 7
016111 5777763776377775 06410 +8 0577776363776377775 CTT 06410 7
016121 5773676763577537 06420 +8 0577367676763577537 CTT 06420 5
016131 3676576573655776 06430 +8 0367657676573655776 CTT 06430 7
016132 3400001701 06440 CC 017,01 F0R BCD CTT 06440
* 016137 3001377342 06450 JE WBNYX G0 GEN BNY DATA CTT 06450
016153 3553675335365661 06460 +8 0355367575335365661 CTT 06460 6
016163 6156363147315661 06470 +8 0615636363147315661 CTT 06470 6
016173 6156314731000000 06480 +8 0615631414731000000 CTT 06480 0
016174 00 06481 COP +1 00 CTT 06481
016200 00000000 06490 SAV1 +4 000 CTT 06490
016210 0102030405060710 06500 +8 0010203030405060710 CTT 06500 7
016220 1112131415161720 06510 DTBL +8 0111213131415161720 CTT 06510 7
016230 2122232425262730 06520 +8 0212223232425262730 CTT 06520 7
016240 3132333435363740 06530 +8 0313233333435363740 CTT 06530 7
016250 4142434445464750 06540 +8 0414243434445464750 CTT 06540 7
016260 5152535455565760 06550 +8 0515253535455565760 CTT 06550 7
016270 6162006465666770 06560 +8 0616200606465666770 CTT 06560 7
016300 7172737475767700 06570 +8 0717273737475767700 CTT 06570 7
016310 0000000000000000 06580 +8 000 CTT 06580
016320 0000000000000000 06590 SAVEX +8 000 CTT 06590
016330 0000000000000000 06600 +8 000 CTT 06600
016340 0000000000000000 06610 SAVX +8 000 CTT 06610
016350 0000000000000000 06620 PATSY +8 000 CTT 06620
016360 0101010101010101 06630 +8 0010101010101010101 CTT 06630 1
016370 0101010101010101 06640 SWES +8 0010101010101010101 CTT 06640 1
016400 0000000000000000 06650 +8 000 CTT 06650
016410 0000000000000000 06660 +8 000 CTT 06660
016420 0000000000000000 06670 PATT2 +8 000 CTT 06670
016430 0000000100020003 06680 +8 0000000000100020003 CTT 06680 0
016440 0004000500060007 06690 SRIG +8 0000400000500060007 CTT 06690 0
016450 0010001000100010 06700 +8 0001000101000100010 CTT 06700 0
016460 0010001000100010 06710 TENS +8 0001000101000100010 CTT 06710 0
016470 76540213 06720 RANDY +8 _7654021213_ CTT 06720
016500 0000000000000000 06730 TS02 +8 000 CTT 06730
016501 5240061700 06740 RDX1 SA1 IMAGE+1515,16,2 CTT 06740
016506 5240060710 06750 SA1 IMAGE+7,7,8,2 CTT 06750
* 016513 1001567100 06760 JR GENRX CTT 06760
016520 5240061710 06770 RR1X SA1 IMAGE+1515,8,2 CTT 06770
* 016525 1001552000 06780 JRD1 JR D1 CTT 06780
016535 C0MP 06790 PRCP +4 _C0MP_ CTT 06790
* 016536 1001554400 06800 JR D2 CTT 06800
* 016543 1001567100 06810 JR GENRX CTT 06810
* 016550 1001557000 06820 JRD3 JR D3 CTT 06820
016555 2600007710 06830 PD 077,8 CTT 06830
016562 2000003016 06840 FT 24,14 SET IR6 LENGTH 128 CTT 06840
016567 2001662303 06850 FT PRRT+3,3,3 CTT 06850
016574 5201142203 06860 SA1 WRIT-2,3,3 CTT 06860
016601 4401145440 06870 SC WRIT+24,4,32 CTT 06870
* 016606 3001115200 06880 J RERUN CTT 06880
016613 2000060040 06890 FT IMAGE,3232 CTT 06890
* 016620 3000000000 06900 PRRT J 0 CTT 06900
016625 4400020701 06910 SC 0207,1 CTT 06910
016632 4000620000 06920 XF 062,0000000,00,00 CTT 06920 0
* 016637 3001143100 06930 J WRIT+5 CTT 06930
* 016644 3000000000 06940 P0P2 J 0 CTT 06940
016651 5201713510 06950 SA1 SLDX-8,8,8 CTT 06950
016656 5601714500 06960 BA1 SLDX,16 6 CTT 06960
* 016663 1001561400 06970 JR P0P CTT 06970
* 016670 3001664400 06980 J P0P2 CTT 06980
* 016675 3000000000 06990 P0P3 J 0 CTT 06990
016702 5201710510 07000 SA1 NEWX,8 CTT 07000
016707 5601710500 07010 BA1 NEWX,16 6 CTT 07010
* 016714 1001561400 07020 JR P0P CTT 07020
* 016721 3001667500 07030 J P0P3 CTT 07030
016735 0000000000000000 07040 +8 000 CTT 07040
016745 0000000000000000 07050 SAVX4 +8 000 CTT 07050
* 016746 3000000000 07060 ETX J 0 CTT 07060
016753 5201746300 07070 STREX SA1 MEMX,16 6 CTT 07070
016760 2600006304 07080 CLR4X PD 51,4 CTT 07080
016765 5701744401 07090 IMTX BA1 MEMX-15,5,1,4 CTT 07090
016772 5400001707 07100 LP 15,7 CTT 07100
016777 6000001703 07110 AC 15,3 CTT 07110
017004 5360000101 07120 SA1 1,1,7 CTT 07120
017011 5701744401 07130 BA1 MEMX-15,5,1,4 CTT 07130
017016 5400001770 07140 LP 15,56 CTT 07140
017023 1600001753 07150 BC1 15,3 CTT 07150
017030 6000001703 07160 AC 15,3 CTT 07160
017035 5360000001 07170 SA1 0,1,7 CTT 07170
017042 6000006301 07180 AC 063,1 CTT 07180
017047 6000007703 07190 A7X AC 077,3 CTT 07190
* 017054 3201676520 07200 LP3X JL IMTX,16 6 CTT 07200
* 017061 3001674600 07210 FINSX J ETX CTT 07210
017075 0000000000000000 07220 +8 000 CTT 07220
017105 0000000000000000 07230 NEWX +8 000 CTT 07230
017115 0000000000000000 07240 +8 000 CTT 07240
017125 0000000000000000 07250 DUDX +8 000 CTT 07250
017135 0000000000000000 07260 +8 000 CTT 07260
017145 0000000000000000 07270 SLDX +8 000 CTT 07270
* 017146 3000000000 07280 PRTX1 J 0 CTT 07280
017153 4401724140 07290 SC FLUB+4,3,32 CTT 07290
* 017160 1001734600 07300 JR STAPX SET_TAPE_ AND _TR2_ CTT 07300
017165 5640061700 07310 BA1 IMAGE+1515,16,2 CTT 07310
* 017172 1001720700 07320 JR SNIP CTT 07320
* 017177 3001731200 07330 J TWX CTT 07330
* 017204 3000000000 07340 SNIP J 0 CTT 07340
017211 5201762500 07350 SA1 ERM0I+2121,16 ST0RE AS IS CTT 07350
017216 2001763617 07360 FT ERM0I+3030,15 CTT 07360
017223 4401706020 07370 SC LP3X+4,1,16 CTT 07370
* 017230 1001675100 07380 JR ETX CTT 07380
* 017235 3001746400 07390 FLUB J SETG CTT 07390
017242 5600006700 07400 BA1 053+12,1,16 CTT 07400
017247 2001772517 07410 FT ERM0I+8585,15 CTT 07410
017254 4401706004 07420 SC LP3X+4,4,4 CTT 07420
* 017261 1001675100 07430 JR ETX CTT 07430
017266 2001760040 07440 CRAK FT ERM0I,3232 CTT 07440
017273 4400020702 07450 SC 0207,2 CTT 07450
017300 4000620000 07460 XF 062,0000000,00,00 CTT 07460 0
* 017305 3001720400 07470 J SNIP CTT 07470
017312 2601774015 07480 TWX PD ERM0I+9696,13 CTT 07480
017317 5601674500 07490 BA1 SAVX4,1616 CTT 07490
017324 4401724100 07500 SC FLUB+4,0,0 CTT 07500
* 017331 1001720700 07510 JR SNIP CTT 07510
* 017336 3001714600 07520 J PRTX1 CTT 07520
* 017343 3000000000 07530 STAPX J 0 CTT 07530
017350 5201674500 07540 SA1 SAVX4,1616 CTT 07540
017355 5601750124 07550 BA2 TPX,4 CTT 07550
017362 5201760424 07560 SA2 ERM0I+4,4,4 CTT 07560
017367 5601750423 07570 BA2 IRX,3 CTT 07570
017374 5201772323 07580 SA2 ERM0I+8383,3 CTT 07580
* 017401 3001734300 07590 J STAPX CTT 07590
* 017406 3000000000 07600 STMGX J 0 CTT 07600
017413 5601751024 07610 BA2 MX,4 CTT 07610
017420 5201760424 07620 SA2 ERM0I+4,4,4 CTT 07620
017425 5601751626 07630 BA2 GX,6 CTT 07630
017432 5201772626 07640 SA2 ERM0I+8686,6 CTT 07640
* 017437 3001740600 07650 J STMGX CTT 07650
017453 0000000000000000 07670 +8 000 CTT 07670
017463 0000000000000000 07680 MEMX +8 000 CTT 07680
* 017464 1001741100 07690 SETG JR STMGX CTT 07690
* 017471 3001726600 07700 J CRAK CTT 07700
017501 TAPE 07710 TPX +4 _TAPE_ CTT 07710
017504 IR2 07720 IRX +3 _IR2_ CTT 07720
017510 MEM 07730 MX +4 _MEM _ CTT 07730
017513 GEN 07740 +3 _GEN_ CTT 07740
017515 0000 07750 PHSEX +2 000 CTT 07750
017516 00 07760 GX +1 000 CTT 07760
017600 07770 ORIG $,64 07770
017600 27 07780 ERM0I AREA 23,B,0 CTT 07780
017634 EDITED 07790 +6 _EDITED_D_ CTT 07790
017635 143 07800 AREA 99,B,0 CTT 07800
* 020000 3000000000 07810 SX2P J 0 CTT 07810
020005 5601022406 07820 BA1 A2PPI,6 6 CTT 07820
020012 5201006706 07830 SA1 DEN,6 CTT 07830
* 020017 3002000000 07840 J SX2P CTT 07840
* 020024 3000000000 07850 SXBI J 0 CTT 07850
020031 5601031304 07860 BA1 BINY,4 CTT 07860
020036 5201002604 07870 SA1 SP-6,4 07870
* 020043 3002002400 07880 J SXBI CTT 07880
* 020050 3000000000 07890 SXBCD J 0 CTT 07890
020055 5601031704 07900 BA1 BCD,4 CTT 07900
020062 5201002604 07910 SA1 SP-6,4 CTT 07910
* 020067 3002005000 07920 J SXBCD CTT 07920
* 020074 3000000000 07930 SX5P J 0 CTT 07930
020101 5601024306 07940 BA1 A5PPI,6 6 CTT 07940
020106 5201006706 07950 SA1 DEN,6 CTT 07950
* 020113 3002007400 07960 J SX5P CTT 07960
* 020120 3001114520 07970 B JC START,1616 CTT 07970
3002012000 07980 END B CTT 07980
{-- tape mark --}
015157 C241 DST CODEDIT SOURCE 08/65 B T3834394-24
001400 00010 T240 BEGIN 01400 DRUM SEARCH TEST,SERCH,GNSRCH DST 00010 D
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T241 3000140000 * SEGJP $-10 *
017000 * ORIG 017000 *
* 017000 3001700020 * JHJ $ *
017007 000500 * +3 0500 *
* 017010 3001701020 * JHJ $ *
017017 000510 * +3 0510 *
* 017020 3001702020 * JHJ $ *
017027 000440 * +3 0440 *
017030 5601701700 * BA1 017000+1+15,16 *
017035 5200051700 * SA1 0517,16 6 *
017042 5601702710 * BA1 017000+2+23,8 *
017047 5200044710 * SA1 0447,8 *
017054 2000000361 * FT 3,49 *
017061 2000040060 * FT 0400,48 8 *
017066 4100610100 * XF 061,010000,0,4 *
017073 2000024261 * FT 162,49 *
017100 4100610100 * XF 061,010000,0,4 *
* 017105 3000044000 * J 0440 *
SEGMENT-ID T242 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 T243 3000136300 * SEGJP $ *
001400 000101 ORIG 01400 000101
001400 2600001700 00020 START PD 017,16 DST 00020
001405 5600435204 00030 BA1 UNIT,4 14 EQU 15 FOR MODULAR 15 EQU0 DSTF 77EQUDST DST 00030 U
00040 . 16LU 17UU INIT ALSO DST 00040 U
* 001412 3000141720 00050 JHJ $+5 TH OF UTHS DST 00050
001417 5200435204 00060 SA1 UNIT,4 DST 00060
001424 7000435141 00070 CB1 UNIT-1,1,1 DST 00070
001431 1600435222 00080 BS2 UNIT,2 DST 00080
* 001436 3000235743 00090 JU UCARE DST 00090
001443 4401271240 00100 SC DONE+9,0,040 FOR NO JD XUNIT IF U EQUALS 00 DST 00100 R
001450 5600435101 00110 BA1 UNIT-1,1,1 DST 00110
001455 5200146601 00120 SA1 LSU+4,1 1 DST 00120
001462 6400435500 00130 LSU LS U,0 DST 00130
001467 3400434715 00140 CC UNIT-3,0,015 DST 00140
* 001474 3000242242 00150 JE MODLR DST 00150
001501 4400306405 00160 SC TP2CC+4,4,5 DST 00160
001506 4400571077 00170 SC TTRK+4,0,077 DST 00170
001513 4400462677 00180 SC SR137+4,4,077 DST 00180
001520 5600263505 00190 BA1 JENS+4,5,5 DST 00190
001525 5200422605 00200 SA1 N1+19,5 5 DST 00200
001532 4400540440 00210 SC D37+4,04040 DST 00210
001537 3400435077 00220 CC UNIT-2,0,077 DST DST 00220 S
* 001544 3000241042 00230 JE FXHED DST 00230
* 001551 1001401500 00240 THEAD JR FXSTH TEST TRACK ONLY DST 00240 T
001556 4400564500 00250 GO SC P,0 DST 00250
001563 5600436004 00260 BA1 S,4 DST 00260
001570 5201311404 00270 SA1 UTHS,4 DST 00270
001575 5600435501 00280 BA1 U DST 00280
001602 5400001774 00290 LP 017,074 4 DST 00290
001607 5200564601 00300 SA1 UP,1 DST 00300
001614 5200532201 00310 SA1 BFU+4,1 1 DST 00310
001621 5601244210 00320 NN BA1 IE6,8 DST 00320
001626 5200046710 00330 SA1 0467,8 DST 00330
001633 5601243210 00340 BA1 IE0,8 DST 00340
001640 5200040710 00350 SA1 0407,8 DST 00350
001645 2600007700 00360 N PD 077,16 DST 00360
001652 2600005700 00370 PD 057,16 DST 00370
001657 5601241700 00380 BA1 IE2,16 DST 00380
001664 5200051700 00390 SA1 0517,16 6 DST 00390
* 001671 1000310764 00400 JR UEQT,52 2 DST 00400
* 001676 3000176563 00410 JC EQGT,51 1 DST 00410
001703 4400436600 00420 EQLT SC TN,0 DST 00420
001710 5600350307 00430 BA1 PEQ,7 DST 00430
001715 5200360607 00440 SA1 CDE+6,7 7 DST 00440
001722 4400451304 00450 SC ET+4,4 DST 00450
001727 4400512102 00460 SC SIXT+4,2,2 DST 00460
001734 4400514506 00470 SC TH2+4,6 6 DST 00470
* 001741 1000403000 00480 JR CLEAR DST 00480
* 001746 1000415500 00490 JR WRTP1 DST 00490
* 001753 3000155662 00500 JC GO,50 DST 00500
* 001760 1000445400 00510 JR TEST1 DST 00510
001765 4400436601 00520 EQGT SC TN,1 DST 00520
001772 5600351512 00530 BA1 PEQG,10 0 DST 00530
001777 5200361112 00540 SA1 CDE+9,1010 DST 00540
* 002004 1000403000 00550 JR CLEAR DST 00550
* 002011 1000415500 00560 JR WRTP1 DST 00560
002016 4400451305 00570 SC ET+4,5 SET TO SERCH EQ. DST 00570
002023 4400512103 00580 SC SIXT+4,3,3 OR GREATER DST 00580
002030 4400514507 00590 SC TH2+4,7 7 DST 00590
* 002035 1000445400 00600 JR TEST1 DST 00600
* 002042 3000176563 00610 JC EQGT,51 1 DST 00610
* 002047 1000310700 00620 JR UEQT DST 00620
* 002054 3001246500 00630 GD J TONE DST 00630
* 002061 3000155600 00640 J GO DST 00640
* 002066 3000000000 00650 GENMK J 0 DST 00650
002073 5600005714 00660 BA1 057,12 DST 00660
002100 5200271514 00670 SA1 SAVE3,1212 DST 00670
002105 5600273114 00680 BA1 CNT3,12 2 DST 00680
002112 5200005714 00690 SA1 057,12 DST 00690
002117 3400004706 00700 ENTR CC 047,6 DST 00700
* 002124 3000215542 00710 JE PAD DST 00710
002131 6000004701 00720 AC 047,1 DST 00720
002136 5620273201 00730 BA1 SPC,1,1 1 DST 00730
002143 5240264201 00740 SA1 SMSK,1,2,2 DST 00740
* 002150 3000222000 00750 J SETIR DST 00750
002155 2600004704 00760 PAD PD 047,4 DST 00760
002162 5600273201 00770 BA1 SPC,1 DST 00770
002167 5240264201 00780 SA1 SMSK,1,2,2 DST 00780
002174 6000005301 00790 AC 053,1 DST 00790
002201 3400005340 00800 TSTL CC 053,32 DST 00800
* 002206 3000326242 00810 JE UQ1 DST 00810
* 002213 3000211700 00820 J ENTR DST 00820
002220 5600005714 00830 SETIR BA1 057,12 DST 00830
002225 5200273114 00840 SA1 CNT3,12 2 DST 00840
002232 5600271514 00850 BA1 SAVE3,1212 DST 00850
002237 5200005714 00860 SA1 057,12 DST 00860
* 002244 1000541500 00870 JR CLRB DST 00870
002251 3400515640 00880 CC ML,32 DST 00880
* 002256 3000230742 00890 JE S32 DST 00890
002263 3400515610 00900 CC ML,8 DST 00900
* 002270 3000234042 00910 JE S8 DST 00910
* 002275 3000227520 00920 DUB JHJ DUB DST 00920
* 002302 3000206600 00930 J GENMK DST 00930
002307 5600266100 00940 S32 BA1 SMSK+15,5,16 DST 00940
002314 5201501700 00950 SA1 MSK+15,1,16 DST 00950
002321 5600270100 00960 BA1 SMSK+31,1,16 DST 00960
002326 5201503700 00970 SA1 MSK+31,1,16 DST 00970
* 002333 3000206600 00980 J GENMK DST 00980
002340 5600265110 00990 S8 BA1 SMSK+7,8,8 DST 00990
002345 5201500710 01000 SA1 MSK+7,8 8 DST 01000
* 002352 3000206600 01010 J GENMK DST 01010
002357 5600435101 01020 UCARE BA1 UNIT-1,1,1 DST 01020
002364 5200435301 01030 SA1 UNITA,1 1 DST 01030
002371 5600435201 01040 BA1 UNIT,1 DST 01040
002376 5201273101 01050 SA1 AAC+4,1 1 DST 01050
* 002403 3000145000 01060 UN J LSU-10 DST 01060
* 002410 1001364400 01070 FXHED JR TRAKX DST 01070
* 002415 3000155600 01080 J GO DST 01080
002422 3400435077 01090 MODLR CC UNIT-2,0,077 DST 01090
002427 4400571017 01100 SC TTRK+4,0,017 DST 01100
* 002434 3000250442 01110 JE MDST M MODULAR DST DST 01110
002441 4400306400 01120 SC TP2CC+4,4,0 DST 01120
002446 4400462637 01130 SC SR137+4,4,037 DST 01130
002453 4400422137 01140 SC N1+14,03037 MODULAR DSTF DST 01140 U
002460 5600441103 01150 BA1 PAS-2,3 3 DST 01150
002465 5200422503 01160 SA1 N1+18,3 3 WRTP1 DST 01160 1
002472 4400540400 01170 SC D37+4,0 0 DST 01170
* 002477 3000155100 01180 J THEAD DST 01180
002504 4400422177 01190 MDST SC N1+14,07077 DST 01190
002511 4400306405 01200 SC TP2CC+4,4,5 DST 01200
002516 4400462677 01210 SC SR137+4,4,077 DST 01210
002523 5600263505 01220 BA1 JENS+4,5,5 DST 01220
002530 5200422605 01230 SA1 N1+19,5 5 DST 01230
002535 4400540440 01240 SC D37+4,04040 DST 01240
* 002542 3000241000 01250 J FXHED DST 01250
* 002547 3000254700 01260 TD37 J $ DST 01260
002554 3401500037 01270 CC MSK,037 7 DST 01270
* 002561 3000254743 01280 JU TD37 DST 01280
002566 5600034121 01290 BA2 0341,1 DST 01290
002573 5400003760 01300 LP 037,060 0 DST 01300
002600 3400003700 01310 CC 037,0 DST 01310
* 002605 3000254743 01320 JU TD37 DST 01320
002612 3400034000 01330 CC 0340,0 DST 01330
* 002617 3000254743 01340 JU TD37 DST 01340
* 002624 3000445100 01350 J TEST1 DST 01350
* 002631 3000436742 01360 JENS JE NS DST 01360
002641 00000000 01370 STRG +4 0 DST 01370
002642 40 01380 SMSK AREA 32,B,0 DST 01380
002711 0000000000000000 01390 +8 0 DST 01390
002715 00000000 01400 SAVE3 +4 0 DST 01400
002725 0000000000000000 01410 +8 0 DST 01410
002731 00000000 01420 CNT3 +4 0 DST 01420
002732 00 01430 SPC +1 0 DST 01430
002740 402010040201 01440 +6 040201000040201 DST 01440
002741 40 01450 MSK7 AREA 32,B,63 3 DST 01450
003006 375767737576 01460 SPC7 +6 037576777737576 DST 01460
003014 402010040201 01470 SPCZ +6 040201000040201 DST 01470
* 003015 3000000000 01480 WRTP2 J 0 DST 01480
003022 4400400077 01490 SC SECD+4,0,077 DST 01490
* 003027 1000376000 01500 JR GEN DST 01500
003034 2600005704 01510 PD 057,4 DST 01510
003041 5660300101 01520 HAS BA1 SPC7-5,1,1,3 DST 01520
003046 5200436001 01530 SA1 S,1 DST 01530
* 003053 1000425600 01540 JR WRITE DST 01540
003060 3400005705 01550 TP2CC CC 057,5 DST 01550
* 003065 3000301542 01560 JE WRTP2 DST 01560
003072 6000005701 01570 AC 057,1 DST 01570
* 003077 3000304100 01580 J HAS DST 01580
* 003104 3000000000 01590 UEQT J 0 DST 01590
003111 4400436602 01600 UQT SC TN,2 DST 01600
* 003116 1000403000 01610 JR CLEAR DST 01610
* 003123 1000415500 01620 JR WRTP1 DST 01620
003130 4400515640 01630 SC ML,32 DST 01630
003135 2600273114 01640 PD CNT3,12 2 DST 01640
003142 4400531006 01650 SC BFM+4,6 6 DST 01650
003147 4400220540 01660 SC TSTL+4,3,32 DST 01660
* 003154 1000326500 01670 JR UQ1 DST 01670
* 003161 1000403000 01680 JR CLEAR DST 01680
003166 4400436603 01690 SC TN,3 DST 01690
* 003173 1000302000 01700 JR WRTP2 DST 01700
003200 5600300000 01710 BA1 MSK7+31,1,16 DST 01710
003205 5200270100 01720 SA1 SMSK+31,1,16 DST 01720
003212 5600276000 01730 BA1 MSK7+15,5,16 DST 01730
003217 5200266100 01740 SA1 SMSK+15,5,16 DST 01740
003224 4400273277 01750 SC SPC,63 DST 01750
003231 5600300606 01760 BA1 SPC7,6 DST 01760
003236 5200274006 01770 SA1 SPC+6,6 6 DST 01770
* 003243 1000326500 01780 JR UQ1 DST 01780
* 003250 3000311164 01790 JC UQT,52 DST 01790
* 003255 3000310400 01800 J UEQT DST 01800
* 003262 3000000000 01810 UQ1 J 0 DST 01810
* 003267 1000546540 01820 JR POSH,04040 SKIP FOR DSTF POSITION TO TEST TRACK DST 01820 P
003274 2600034710 01830 SETX1 PD 0347,8 DST 01830
003301 2600436001 01840 PD S,1 DST 01840
003306 4600436071 01850 BT S,57 DST 01850
003313 2600046303 01860 PD 0463,3 DST 01860
003320 2001500070 01870 FT MSK,56 DST 01870
003325 6400034120 01880 LS 0341,16 6 SET 1 CHAR. READ DST 01880
* 003332 1000207100 01890 JR GENMK DST 01890
003337 2000335134 01900 FT SR2,28 DST 01900
* 003344 1000525622 01910 JR BUFF,18 8 SET IND 2 DST 01910
003351 4140615400 01920 SR2 XF 061,0540400,0,6 DST 01920
* 003356 3000337065 01930 JC BAD,53 TEST IF IND 1 RESET DST 01930
* 003363 3000327400 01940 J SETX1 DST 01940
003370 2600361700 01950 BAD PD CDE+15,1,16 DST 01950
003375 5600347411 01960 BA1 PUN,9 DST 01960
003402 5200361011 01970 SA1 CDE+8,9 9 DST 01970
* 003407 1000343100 01980 JR PTCD DST 01980
* 003414 1000637500 01990 JR DE DST 01990
* 003421 3000155600 02000 J GO DST 02000
* 003426 3000000000 02010 PTCD J 0 DST 02010
003433 2000360040 02020 FT CDE,32 DST 02020
003440 4400020702 02030 SC 0207,2 DST 02030
003445 4000620400 02040 XF 062,0040400,0,0 DST 02040
003452 2600361700 02050 PD CDE+15,1,16 DST 02050
* 003457 3000342600 02060 J PTCD DST 02060
003474 UNEQ TEST 02070 PUN +9 _UNEQ TETEST_ DST 02070
003503 EQ TEST 02080 PEQ +7 _EQ TESTST_ DST 02080
003515 EQ GR TEST 02090 PEQG +10 _EQ GR T TEST_ DST 02090
003600 02100 ORIG $,64 DST 02100
003600 100 02110 CDE AREA 64,B,0 DST 02110
* 003700 3000000000 02120 IPTUQ J 0 DST 02120
* 003705 3000371765 02130 JC RSET1,5353 DST 02130
* 003712 3001170300 02140 J CYY DST 02140
003717 6000264101 02150 RSET1 AC STRG,1 DST 02150
003724 5601225714 02160 BA1 H33,12 DST 02160
003731 4400001104 02170 SC 011,04 DST 02170
003736 7001232354 02180 CB1 I6+19,1212 LOST IND. IS SET. DST 02180
* 003743 3001170343 02190 JU CYY DST 02190
* 003750 3000046025 02200 JC 0460,21 1 DST 02200
* 003755 3000000000 02210 GEN J 0 DST 02210
003762 2600005310 02220 PD 053,8 CLEAR 142 DST 02220
003767 2000025012 02230 FT 168,10 DST 02230
003774 4421547000 02240 SECD SC A,0,1 DST 02240
004001 6000004701 02250 AC 047,1 DST 02250
004006 7400004712 02260 CT 047,10 DST 02260
* 004013 3000375542 02270 JE GEN DST 02270
* 004020 3000377400 02280 J SECD DST 02280
* 004025 3000000000 02290 CLEAR J 0 DST 02290
004032 4400564500 02300 SC P,0 DST 02300
004037 2600270100 02310 PD SMSK+31,1,16 DST 02310
004044 2600266100 02320 PD SMSK+15,5,16 DST 02320
004051 2601503700 02330 PD MSK+31,1,16 DST 02330
004056 2601501700 02340 PD MSK+15,1,16 DST 02340
004063 2600006300 02350 PD 063,16 DST 02350
004070 4400530350 02360 SC SOC+4,05050 WAS 010 DST 02360
004075 4400273200 02370 SC SPC,0 DST 02370
004102 4400437302 02380 SC NS+4,2 DST 02380
004107 5600301406 02390 BA1 SPCZ,6 DST 02390
004114 5200274006 02400 SA1 SPC+6,6 6 DST 02400
004121 2600273114 02410 PD CNT3,12 2 DST 02410
004126 4400436000 02420 SC S,0 DST 02420
004133 2600436404 02430 PD SM,4 DST 02430
004140 4400436500 02440 SC MD,0 DST 02440
* 004145 3000402525 02450 JC CLEAR,2121 DST 02450
* 004152 3000000000 02460 WRTP1 J 0 DST 02460
004157 4400435400 02470 SC CNT,0 DST 02470
004164 5600564501 02480 BA1 P,1 DST 02480
004171 5200400001 02490 SA1 SECD+4,1,1 DST 02490
004176 4400437302 02500 SC NS+4,2 DST 02500
* 004203 1000376000 02510 N1 JR GEN DST 02510
* 004210 1000425600 02520 JR WRITE DST 02520
004215 3400435477 02530 CC CNT,63 DST 02530
* 004222 3000436742 02540 JE NS DST 02540
004227 6000435401 02550 AC CNT,1 DST 02550
004234 6000400001 02560 AC SECD+4,1,1 DST 02560
004241 6000436001 02570 AC S,1 DST 02570
* 004246 3000420300 02580 J N1 DST 02580
* 004253 3000000000 02590 WRITE J 0 DST 02590
004260 2600034710 02600 PD 0347,8 DST 02600
004265 4600436071 02610 BT S,57 DST 02610
004272 2001547070 02620 FX FT A,56 DST 02620
004277 6400034120 02630 LS 0341,16 6 DST 02630
004304 2000433534 02640 FT W1,28 DST 02640
004311 5600434105 02650 BA1 W1+4,5 DST 02650
004316 5200017005 02660 SA1 0170,5 DST 02660
004323 5600035700 02670 BA1 0357,16 6 DST 02670
004330 5200015700 02680 SA1 0157,16 6 DST 02680
004335 4140624000 02690 W1 XF 062,0400000,0,6 DST 02690
* 004342 3000425300 02700 J WRITE DST 02700
004352 00000000 02710 UNIT +4 00 DST 02710
004353 00 02720 UNITA +1 0 DST 02720
004354 00 02730 CNT +1 0 DST 02730
004355 00 02740 U +1 0 DST 02740
004356 00 02750 T +1 0 DST 02750
004357 30 02760 H +1 030 MAKE 070 FOR DRUM B DST 02760 E
004360 00 02770 S +1 0 DST 02770
004364 00000000 02780 SM +4 0 DST 02780
004365 00 02790 MD +1 0 DST 02790
004366 00 02800 TN +1 0 DST 02800
* 004367 3200441302 02810 NS JL PAS,2 DST 02810
004374 4400437302 02820 SC NS+4,2 DST 02820
004401 4400436000 02830 SC S,0 DST 02830
* 004406 3000415200 02840 J WRTP1 DST 02840
004413 4400400000 02850 PAS SC SECD+4,0,0 DST 02850
* 004420 1000376000 02860 JR GEN DST 02860
004425 5600436004 02870 BA1 S,4 DST 02870
004432 6000001700 02880 AC 017,0 WAS 1 DST 02880
004437 4600001771 02890 BT 017,57 DST 02890
* 004444 3000427200 02900 J FX DST 02900
* 004451 3000000000 02910 TEST1 J 0 DST 02910
004456 2600006304 02920 PD 063,4 CLEAR IR4 DST 02920
004463 4400436500 02930 SC MD,0 CLEAR MODE CONTROL DST 02930
004470 2600436404 02940 PD SM,4 INIT. MSK CLEAR DST 02940
* 004475 1000546540 02950 PH JR POSH,04040 SKIP FOR DSTF GO POSITION HEAD DST 02950 P
* 004502 1000504300 02960 TFM8 JR FM8 FILL MSK 8 CHAR. DST 02960
004507 4400531004 02970 ET SC BFM+4,4 4 SEARCH FOR 8 DST 02970
004514 4400515610 02980 SC ML,8 DST 02980
004521 2600034710 02990 PHT PD 0347,8 DST 02990
004526 4400436000 03000 SC S,0 DST 03000
004533 4600436071 03010 BT S,57 DST 03010
004540 2001500070 03020 FT MSK,56 DST 03020
* 004545 1000541500 03030 JR CLRB DST 03030
004552 2000456434 03040 FT SR1,28 DST 03040
* 004557 1000525600 03050 JR BUFF SET COUNT OF CHAR. OR SECT. DST 03050
004564 4140615400 03060 SR1 XF 061,0540400,0,6 DST 03060
* 004571 1000573300 03070 JR DATA GO TEST DATA READ,SET MD DST 03070
004576 3400006322 03080 CC 063,18 DST 03080
* 004603 3000500743 03090 JU PATH DST 03090
004610 5600436004 03100 BA1 S,4 DST 03100
004615 6000001702 03110 AC 017,2 DST 03110
004622 3401500077 03120 SR137 CC MSK,077 7 DST 03120
* 004627 3000465342 03130 JE ACC+5 DST 03130
004634 5601500021 03140 BA2 MSK,1 DST 03140
004641 5200465221 03150 SA2 ACC+4,1 1 DST 03150
004646 6000001700 03160 ACC AC 017,0 DST 03160
004653 5200500304 03170 SA1 ADJ,4 DST 03170
004660 7000035744 03180 CB1 0357,4 DST 03180
* 004665 1000637543 03190 JR DE,35 DST 03190
004672 3400035000 03200 CC 0350,0 DST 03200
* 004677 1000637543 03210 JR DE,35 DST 03210
004704 5600035101 03220 BA1 0351,1 DST 03220
004711 5400001760 03230 LP 017,060 0 DST 03230
004716 3400001700 03240 CC 017,0 DST 03240
* 004723 1000637543 03250 JR DE,35 DST 03250
004730 2600001704 03260 PD 017,4 DST 03260
004735 5600515610 03270 BA1 ML,8 DST 03270
004742 5600500623 03280 BA2 TW56,3 DST 03280
004747 7200001723 03290 AB2 017,3 DST 03290
004754 7000035343 03300 CB1 0353,3 DST 03300
* 004761 1000637543 03310 JR DE,35 DST 03310
004766 2600006304 03320 PD 063,4 DST 03320
* 004773 3000500700 03330 J PATH DST 03330
005003 00000000 03340 ADJ +4 0 DST 03340
005006 015400 03350 TW56 +3 015400 DST 03350
005007 3400436501 03360 PATH CC MD,1 DST 03360
* 005014 3000510342 03370 JE TFM16 DST 03370
005021 3400436502 03380 CC MD,02 DST 03380
* 005026 3000512742 03390 JE TFM32 DST 03390
* 005033 3000450200 03400 J TFM8 DST 03400
* 005040 3000000000 03410 FM8 J 0 DST 03410
005045 5600436401 03420 BA1 SM,1 DST 03420
005052 5200001601 03430 SA1 016,1 DST 03430
005057 5200001502 03440 SA1 015,2 DST 03440
005064 5200001304 03450 SA1 013,4 DST 03450
005071 5201500710 03460 SA1 MSK+7,8 8 DST 03460
* 005076 3000504000 03470 J FM8 DST 03470
* 005103 1000516200 03480 TFM16 JR FM16 DST 03480
005110 4400515620 03490 SC ML,16 DST 03490
005115 4400531002 03500 SIXT SC BFM+4,2 2 SEARCH FOR 16 DST 03500
* 005122 3000452100 03510 J PHT DST 03510
* 005127 1000523200 03520 TFM32 JR FM32 DST 03520
005134 4400515640 03530 SC ML,32 DST 03530
005141 4400531006 03540 TH2 SC BFM+4,6 6 SEARCH FOR 32 DST 03540
* 005146 3000452100 03550 J PHT DST 03550
005156 00000000 03560 ML +4 0 DST 03560
* 005157 3000000000 03570 FM16 J 0 DST 03570
005164 5600436401 03580 BA1 SM,1 DST 03580
005171 5200001601 03590 SA1 016,1 DST 03590
005176 5200001502 03600 SA1 015,2 DST 03600
005203 5200001304 03610 SA1 013,4 DST 03610
005210 5200000710 03620 SA1 07,8 DST 03620
005215 5201501700 03630 SA1 MSK+15,1,16 DST 03630
* 005222 3000515700 03640 J FM16 DST 03640
* 005227 3000000000 03650 FM32 J 0 DST 03650
* 005234 1000516200 03660 JR FM16 DST 03660
005241 5201503700 03670 SA1 MASK,16 6 DST 03670
* 005246 3000522700 03680 J FM32 DST 03680
* 005253 3000000000 03690 BUFF J 0 DST 03690
005260 5600525603 03700 BA1 BUFF+3,3,3 DST 03700
005265 2600005704 03710 PD 057,4 DST 03710
005272 5200005703 03720 SA1 057,3 DST 03720
005277 4460000350 03730 SOC SC 3,050,3 3 WAS 010 DST 03730
005304 6460000304 03740 BFM LS 3,04,3 BUFF MODE,8,16,32 DST 03740
005311 5460000160 03750 LP 1,060,3 3 DST 03750
005316 6460000100 03760 BFU LS 1,0,3 BUFF UNIT 0 DST 03760
005323 5701244402 03770 BA1 LNGH,2,4,4 DST 03770
005330 5200535301 03780 SA1 BFC+4,1 1 DST 03780
005335 5200002002 03790 SA1 020,2 DST 03790
005342 5200034001 03800 SA1 0340,1 DST 03800
005347 6400034100 03810 BFC LS 0341,0 BUFF CHAR OR SECT COUNT DST 03810
005354 5660000405 03820 BA1 4,5,3 DST 03820
005361 5200017005 03830 SA1 0170,5 DST 03830
005366 5600035700 03840 BA1 0357,16 6 DST 03840
005373 5200015700 03850 SA1 0157,16 6 DST 03850
* 005400 1000255240 03860 D37 JR TD37,04040 DST 03860
* 005405 3000525300 03870 J BUFF DST 03870
* 005412 3000000000 03880 CLRB J 0 DST 03880
005417 4400545421 03890 SC LPC+4,1717 DST 03890
005424 2600001700 03900 PD 017,16 DST 03900
005431 2600007704 03910 PD 077,4 DST 03910
005436 5361505700 03920 CLR SA1 B+15,16,6,7 DST 03920
005443 6000007720 03930 AC 077,16 DST 03930
* 005450 3200543621 03940 LPC JL CLR,17 DST 03940
* 005455 3000541200 03950 J CLRB DST 03950
* 005462 3000000000 03960 POSH J 0 DST 03960
005467 5600035700 03970 BA1 0357,16 6 DST 03970
005474 5200567100 03980 SA1 SVT,16 DST 03980
005501 4600565171 03990 SET1 BT PS,57 DST 03990
005506 2600034304 04000 PD 0343,4 DST 04000
005513 2001504070 04010 FT B,56 DST 04010
005520 6400034120 04020 LS 0341,16 6 1 CHAR READ DST 04020
005525 2000555634 04030 FT OFFRD,2828 DST 04030
005532 5600556205 04040 BA1 OFFRD+4,4,5 DST 04040
005537 5200017005 04050 SA1 0170,5 DST 04050
005544 5600035700 04060 BA1 0357,16 6 DST 04060
005551 5200015700 04070 SA1 0157,16 6 DST 04070
005556 4140650000 04080 OFFRD XF 065,0000000,0,6 OFF POSITION DST 04080
005563 4600436071 04090 BT S,57 DST 04090
005570 2000562134 04100 FT POSTN,2828 DST 04100
005575 5600562505 04110 BA1 POSTN+4,4,5 DST 04110
005602 5200017005 04120 SA1 0170,5 DST 04120
005607 5600035700 04130 BA1 0357,16 6 DST 04130
005614 5200015700 04140 SA1 0157,16 6 DST 04140
005621 4140650000 04150 POSTN XF 065,0,0,0,6 DST 04150
005626 5600567100 04160 BA1 SVT,16 DST 04160
005633 5200035700 04170 SA1 0357,16 6 DST 04170
* 005640 3000570400 04180 J TTRK DST 04180
005645 00 04190 P +1 0 DST 04190
005646 00 04200 UP +1 0 DST 04200
005647 00 04210 TRK +1 0 DST 04210
005651 0000 04220 PS +2 0 DST 04220
005661 0000000000000000 04230 +8 0 DST 04230
005671 0000000000000000 04240 SVT +8 0 DST 04240
005672 4400564700 04250 CLRT SC TRK,0 DST 04250
* 005677 3000546200 04260 J POSH DST 04260
005704 3400564777 04270 TTRK CC TRK,63 DST 04270
* 005711 3000567242 04280 JE CLRT DST 04280
005716 6000564701 04290 AC TRK,1 DST 04290
* 005723 3000546200 04300 J POSH DST 04300
* 005730 3000000000 04310 DATA J 0 DST 04310
005735 4600515611 04320 BT ML,9 DST 04320
005742 3400530350 04330 CC SOC+4,05050 WAS 010 DST 04330
* 005747 3000630343 04340 JU SHM IF EQ. IN CHAR MODE DST 04340
005754 3400006320 04350 CC 063,16 DST 04350
* 005761 3000610142 04360 JE T56 DST 04360
005766 2600007310 04370 PD 073,8 DST 04370
005773 4600515615 04380 BT ML,13 DST 04380
006000 2600001703 04390 PD 017,3 DST 04390
006005 5701244402 04400 BA1 LNGH,2,4,4 DST 04400
006012 1600001732 04410 BS3 017,2 SET LENGTH TO IR6 DST 04410
006017 5200004003 04420 SA1 040,3 DST 04420
006024 5200007322 04430 SA2 073,2 DST 04430
006031 7600515616 04440 AT ML,14 DST 04440
006036 5601500001 04450 BA1 MSK,1 DST 04450
006043 7121500041 04460 TST CB1 MSK,1,5 5 DST 04460
* 006050 3000620243 04470 JU DETTT DST 04470
006055 6000006701 04480 IC5 AC 067,1 DST 04480
006062 7400006716 04490 CT 067,14 IR5 EQ IR6 DST 04490
* 006067 3000622142 04500 JE TSTD DST 04500
* 006074 3000604300 04510 J TST DST 04510
006101 2600001702 04520 T56 PD 017,2 DST 04520
* 006106 3000623343 04530 JU DET DST 04530
006113 6000001701 04540 AC 017,1 DST 04540
006120 7021537741 04550 CB1 MSK+255,5,1,1 DST 04550
006125 7021540041 04560 CB1 MSK+256,6,1,1 DST 04560
006132 5601500001 04570 BA1 MSK,1 DST 04570
* 006137 3000615142 04580 JE T0 DST 04580
* 006144 3000616300 04590 J SS DST 04590
006151 3421540000 04600 T0 CC MSK+256,6,0,1 DST 04600
* 006156 1000637543 04610 JR DE,35 DST 04610
006163 4400530340 04620 SS SC SOC+4,04040 DST 04620
* 006170 1000546540 04630 JR POSH,04040 SKIP FOR DSTF DST 04630 P
* 006175 3000622100 04640 J TSTD DST 04640
006202 3401500077 04650 DETTT CC MSK,077 7 DST 04650
* 006207 1000637543 04660 JR DE,35 DST 04660
* 006214 3000605500 04670 J IC5 DST 04670
006221 6000006302 04680 TSTD AC 063,2 DST 04680
* 006226 3000573000 04690 J DATA DST 04690
006233 3401500077 04700 DET CC MSK,077 7 DST 04700
* 006240 1000637543 04710 JR DE,35 DST 04710
* 006245 3000615100 04720 J T0 DST 04720
006252 3400436477 04730 DETT CC SM,077 DST 04730
* 006257 1000637543 04740 JR DE,35 DST 04740
006264 3421500000 04750 CC MSK,0,1 1 DST 04750
* 006271 3000646642 04760 JE OUT DST 04760
* 006276 1000637500 04770 JR DE DST 04770
006303 2600001702 04780 SHM PD 017,2 DST 04780
006310 5601500001 04790 BA1 MSK,1 DST 04790
006315 5200001601 04800 SA1 016,1 DST 04800
006322 4400001700 04810 SC 017,0 DST 04810
006327 3400515610 04820 CC ML,8 DST 04820
* 006334 3000650542 04830 JE M8 DST 04830
006341 3400515620 04840 CC ML,16 DST 04840
* 006346 3000652442 04850 JE M16 DST 04850
006353 7021521042 04860 CB1 MSK+136,6,2,1 DST 04860
* 006360 3000646642 04870 JE OUT DST 04870
* 006365 3000625200 04880 J DETT DST 04880
* 006372 3000637700 04890 DE J DE+5,0 DST 04890
* 006377 1000343100 04900 JR PTCD DST 04900
006404 5600436603 04910 BA1 TN,3 DST 04910
006411 5200013203 04920 SA1 0132,3 DST 04920
006416 5600637605 04930 BA1 DE+4,5 DST 04930
006423 5200013705 04940 SA1 0137,5 DST 04940
006430 2001500036 04950 FT MSK,30 DST 04950
006435 2001574037 04960 FT A+168,3131 DST 04960
* 006442 1000721500 04970 JR DUMP DST 04970
* 006447 1000662300 04980 JR DMPT DST 04980
* 006454 3000645460 04990 DSTP JD DSTP DST 04990
* 006461 3000637200 05000 J DE DST 05000
* 006466 3000000040 05010 OUT JC 0,32 DST 05010
006473 4400530350 05020 SC SOC+4,05050 WAS 010 DST 05020
* 006500 3000654300 05030 J TE DST 05030
006505 7021524042 05040 M8 CB1 MSK+160,0,2,1 DST 05040
* 006512 3000646642 05050 JE OUT DST 05050
* 006517 3000625200 05060 J DETT DST 05060
006524 7021523042 05070 M16 CB1 MSK+152,2,2,1 DST 05070
* 006531 3000646642 05080 JE OUT DST 05080
* 006536 3000625200 05090 J DETT DST 05090
006543 3400436477 05100 TE CC SM,077 DST 05100
* 006550 3000656742 05110 JE TSTMD DST 05110
006555 6000436401 05120 AC SM,1 DST 05120
* 006562 3000573000 05130 J DATA DST 05130
006567 3400515640 05140 TSTMD CC ML,32 DST 05140
* 006574 3000445142 05150 JE TEST1 DST 05150
006601 4400436400 05160 SC SM,0 DST 05160
006606 6000436501 05170 AC MD,1 DST 05170
* 006613 3000573000 05180 J DATA DST 05180
* 006620 3000000000 05190 DMPT J 0 DST 05190
006625 4400436000 05200 SC S,0 DST 05200
006632 2600034710 05210 PD 0347,8 DST 05210
006637 2001504270 05220 FT B+2,56 DST 05220
006644 4600436071 05230 BT S,57 DST 05230
006651 4400034002 05240 SC 0340,2 8 SECTORS DST 05240
006656 4140614000 05250 RDS8 XF 061,0400000,0,6 DST 05250
006663 2001504036 05260 FT B,30 DST 05260
006670 2001754037 05270 FT B+1344,3,31 DST 05270
* 006675 1000721524 05280 JR DUMP,20 0 DST 05280
006702 6000034710 05290 AC 0347,8 DST 05290
* 006707 3200665610 05300 JL $-25,8 DST 05300
006714 4400671310 05310 SC $-1,8 DST 05310
006721 4600436071 05320 BT S,57 DST 05320
006726 6000435700 05330 INST AC H,0 DST 05330
* 006733 3000662027 05340 JC DMPT,23 3 DST 05340
000047 05350 X1 EQU 39 DST 05350
000053 05360 X2 EQU X1+4 DST 05360
000057 05370 X3 EQU X2+4 DST 05370
000063 05380 X4 EQU X3+4 DST 05380
000067 05390 X5 EQU X4+4 DST 05390
000073 05400 X6 EQU X5+4 DST 05400
000077 05410 X7 EQU X6+4 DST 05410
000103 05420 T16 EQU 0103 DST 05420
000107 05430 T17 EQU T16+4 DST 05430
000113 05440 T18 EQU T17+4 DST 05440
000203 05450 T32 EQU 0203 DST 05450
000207 05460 LA EQU 0207 DST 05460
000177 05470 T31 EQU T32-4 DST 05470
000173 05480 T30 EQU T31-4 DST 05480
007000 05490 ORIG $,64 DST 05490
007000 200 05500 TANK AREA 128,,0 DST 05500
* 007200 1000721500 05510 JR DUMP DST 05510
* 007205 3000720020 05520 JC $-5,020 0 DST 05520
* 007212 3000000000 05530 DUMP J 0 DST 05530
* 007217 3001142751 05540 JC BWS+052121,41 DST 05540
* 007224 3000723133 05550 JC $+5,27 DST 05550
007231 4201065321 05560 ST WST17,T1T17 DST 05560
007236 4201065722 05570 ST WST18,T1T18 DST 05570
007243 4201070423 05580 ST WS,19 DST 05580
007250 2000000021 05590 FT 0,T17 DST 05590
007255 2000052022 05600 FT 0520,T1818 SET NO. CHAR DST 05600
007262 2401070641 05610 TTR BWS DST 05610
007267 5601065710 05620 BA1 WST18,8 8 DST 05620
007274 5201102110 05630 SA1 BWS+011313,8 DST 05630
007301 5601070404 05640 BA1 WS,4 DST 05640
007306 5201102504 05650 SA1 BWS+011717,4 DST 05650
007313 2000700040 05660 FT TANK,T3232 SET PRINT BASE DST 05660
007320 2600007700 05670 PD 077,16 CLEAR INDEX REGS DST 05670
007325 2600005700 05680 PD X3,16 DST 05680
007332 4400020702 05690 SC LA,2 SET UP LINE ADV DST 05690
007337 5601064703 05700 BA1 INT DST 05700
007344 5200040710 05710 SA1 0407,8 SET UP PRINT INT DST 05710
007351 2001070611 05720 FT BWS,X1 SET BASE STOR IN X1 DST 05720
007356 2001070615 05730 FT BWS,X5 DST 05730
007363 4400767770 05740 SC CONV0+4,4,56 DST 05740
007370 4401006700 05750 SC PR11+4,0,0 DST 05750
007375 4401017570 05760 SC PR4+4,5656 DST 05760
007402 2000700012 05770 FT TANK,X2 2 DST 05770
* 007407 3000747167 05780 JC D05,55 DST 05780
007414 2001142617 05790 D03 FT BWS+052020,X7 LIMIT OF TET DST 05790
007421 7400007711 05800 CT X7,X1 TEST LIMIT DST 05800
* 007426 3000747142 05810 JE D05 END TETS DST 05810
* 007433 1000765200 05820 D04 JR CONV DST 05820
* 007440 1001001100 05830 JR PRT DST 05830
007445 2120001015 05840 FT 8,X5,X5 5 DST 05840
007452 4200004715 05850 ST X1,X5 DST 05850
007457 2100001014 05860 FT 8,X4,X4 4 DST 05860
* 007464 3000741400 05870 J D03 DST 05870
* 007471 1001044600 05880 D05 JR PRTLN CLEAR TANK DST 05880
* 007476 3000751500 05890 J $+15 DST 05890
007503 5601066710 05900 BA1 PAR,8 DST 05900
007510 5200017710 05910 SA1 T31,8 DST 05910
007515 2000700012 05920 FT TANK,X2 2 DST 05920
007522 4600017311 05930 BT T30,X1 DST 05930
007527 4200006311 05940 ST X4,X1 DST 05940
007534 4401070500 05950 SC WS1,0 DST 05950
007541 4400767700 05960 SC CONV0+4,4,0 DST 05960
007546 4401006770 05970 SC PR11+4,5,56 DST 05970
007553 7400017711 05980 D06 CT T31,X1 TEST LIMIT OF DUMP DST 05980
* 007560 3000761641 05990 JG D07 DST 05990
* 007565 1000765200 06000 JR CONV DST 06000
* 007572 1001001100 06010 JR PRT DST 06010
007577 4200006311 06020 ST X4,X1 DST 06020
007604 4200005711 06030 ST X3,X1 DST 06030
* 007611 3000755300 06040 J D06 DST 06040
007616 2000700017 06050 D07 FT TANK,X7 7 DST 06050
007623 7400007712 06060 CT X7,X2 DST 06060
* 007630 3001027742 06070 JE EXIT DST 06070
* 007635 1001044600 06080 JR PRTLN DST 06080
* 007642 3001027700 06090 J EXIT DST 06090
* 007647 3000000000 06100 CONV J 0 DST 06100
007654 4200001714 06110 ST 15,X4 DST 06110
* 007661 1001054700 06120 JR TBO CONVERT LOCATION DST 06120
007666 5240000525 06130 SA2 5,5,X2 DST 06130
* 007673 3000774300 06140 CONV0 J CON2 VAR LINE DST 06140
007700 5620000304 06150 CON1 BA1 3,4,X1 DST 06150
* 007705 1001054700 06160 JR TBO CONVERT CONTENT DST 06160
007712 5240002130 06170 SA2 17,8,X2 2 DST 06170
007717 5620000704 06180 BA1 7,4,X1 DST 06180
* 007724 1001054700 06190 JR TBO DST 06190
007731 5240003530 06200 SA2 29,8,X2 2 DST 06200
* 007736 3000764700 06210 J CONV DST 06210
007743 5620000405 06220 CON2 BA1 4,5,X1 DST 06220
* 007750 1001054700 06230 JR TBO DST 06230
007755 5240002132 06240 SA2 17,10,X2X2 DST 06240
007762 5620001105 06250 BA1 9,5,X1 DST 06250
* 007767 1001054700 06260 JR TBO DST 06260
007774 5240003532 06270 SA2 29,10,X2X2 DST 06270
* 010001 3000764700 06280 J CONV DST 06280
* 010006 3000000000 06290 PRT J 0 DST 06290
010013 2000714017 06300 FT TANK+96,6,X7 DST 06300
010020 7400007712 06310 CT X7,X2 TEST TANK FULL DST 06310
* 010025 3001005142 06320 JE PR1 DST 06320
010032 2040004012 06330 FT 32,X2,X2X2 DST 06330
010037 2020001211 06340 FT 10,X1,X1X1 DST 06340
* 010044 3001000600 06350 J PRT DST 06350
010051 2000700012 06360 PR1 FT TANK,X2 2 DST 06360
* 010056 1001044600 06370 JR PRTLN DST 06370
* 010063 3001000600 06380 PR11 J PRT VAR LINE DST 06380
010070 2020001211 06390 FT 10,X1,X1X1 DST 06390
010075 4401070501 06400 SC WS1,1 DST 06400
010102 4200005711 06410 ST X3,X1 DST 06410
010107 4401014410 06420 SC PR3+4,8 8 DST 06420
010114 5637777705 06430 PR2 BA1 -1,5,X1 1 DST 06430
010121 7060000445 06440 CB1 4,5,X3 DST 06440
* 010126 3001024143 06450 JU PR5 DST 06450
010133 2060000513 06460 FT 5,X3,X3 3 DST 06460
* 010140 3201011400 06470 PR3 JL PR2,0 VAR LINE DST 06470
010145 7400005737 06480 CT X3,T31 DST 06480
* 010152 3001027744 06490 JS EXIT DST 06490
010157 2020005011 06500 FT 40,X1,X1X1 DST 06500
010164 4200005711 06510 ST X3,X1 DST 06510
* 010171 3001010770 06520 PR4 JC PR2-5,5656 VAR LINE DST 06520
010176 4401017500 06530 SC PR4+4,0 0 DST 06530
010203 4400702141 06540 SC TANK+17,7,_*_ DST 06540
010210 4400706141 06550 SC TANK+49,9,_*_ DST 06550
010215 4400712141 06560 SC TANK+81,1,_*_ DST 06560
010222 4400716141 06570 SC TANK+11313,_*_ DST 06570
* 010227 1001044600 06580 JR PRTLN DST 06580
* 010234 3001010700 06590 J PR2-5 DST 06590
010241 4401017570 06600 PR5 SC PR4+4,5656 DST 06600
010246 3401070501 06610 CC WS1,1 DST 06610
* 010253 3001026542 06620 JE $+10 DST 06620
010260 2020001211 06630 FT 10,X1,X1X1 DST 06630
010265 4401070500 06640 SC WS1,0 DST 06640
* 010272 3001000600 06650 J PRT DST 06650
010277 5601070011 06660 EXIT BA1 END,9 DST 06660
010304 5200701011 06670 SA1 TANK+8,9,9 DST 06670
010311 5600017303 06680 BA1 T30,3 DST 06680
* 010316 1001054700 06690 JR TBO DST 06690
010323 5200702126 06700 SA2 TANK+17,7,6 DST 06700
010330 5600017703 06710 BA1 T31,3 DST 06710
* 010335 1001054700 06720 JR TBO DST 06720
010342 5200703226 06730 SA2 TANK+26,6,6 DST 06730
* 010347 1001044600 06740 JR PRTLN DST 06740
010354 2001070621 06750 FT BWS,T17 7 DST 06750
010361 2000010422 06760 FT 0104,T1818 DST 06760
010366 2400000041 06770 TTR 0 DST 06770
010373 2001102621 06780 FT BWS+012020,T17 DST 06780
010400 2000040022 06790 FT 0400,T1818 DST 06790
010405 2400012041 06800 TTR 0120 DST 06800
010412 4601070423 06810 BT WS,19 DST 06810
010417 4601065321 06820 BT WST17,T1T17 DST 06820
010424 4601065722 06830 BT WST18,T1T18 DST 06830
* 010431 3001142752 06840 JC BWS+052121,42 DST 06840
* 010436 3000721200 06850 J DUMP DST 06850
* 010443 3000000000 06860 PRTLN J 0 DST 06860
* 010450 3001045531 06870 JC $+5,25 DST 06870
010455 4000407777 06880 XF 32,0777777,0,0 DST 06880
010462 4000620000 06890 XF 50,0,0,0,0 DST 06890
* 010467 3001051300 06900 J CPRN DST 06900
010474 4000002000 06910 PRINE XF 0,02000,0,0,0 DST 06910
* 010501 3001045053 06920 JC PRTLN+5,5,43 DST 06920
* 010506 3001045000 06930 J PRTLN+5 5 DST 06930
010513 2000700120 06940 CPRN FT TANK+1,T,T16 DST 06940
010520 2600700001 06950 PD TANK,1 DST 06950
010525 2000017722 06960 FT 127,T18 8 DST 06960
010532 2400700001 06970 TFR TANK DST 06970
* 010537 3001044300 06980 J PRTLN DST 06980
* 010544 3000000000 06990 TBO J 0 DST 06990
010551 4401062005 07000 SC TB1+4,5 5 DST 07000
010556 5600003530 07010 BA2 29,8 DST 07010
010563 5200002701 07020 SA1 23,1 DST 07020
010570 5600001604 07030 BA1 14,4 DST 07030
010575 2600002601 07040 PD 22,1 DST 07040
010602 1600002723 07050 BS2 23,3 DST 07050
010607 1600002753 07060 BC1 23,3 DST 07060
* 010614 3201055600 07070 TB1 JL $-30,0 DST 07070
010621 2600001732 07080 PD0 15,10 DST 07080
010626 7200003712 07090 AB1 31,10 DST 07090
* 010633 3001054400 07100 J TBO DST 07100
* 010640 3000000031 07110 JC 0,25 DST 07110
010647 010474 07120 INT +3 PRINE DST 07120
010653 00000000 07130 WST17 +4 0 DST 07130
010657 00000000 07140 WST18 +4 0 DST 07140
010667 0000052000077700 07150 PAR +8 000005202000077700 DST 07150 0
010700 END PRINT 07160 END +9 _END PRIRINT_ DST 07160
010704 00000000 07170 WS +4 0 DST 07170
010705 00 07180 WS1 +1 0 DST 07180
010706 520 07190 BWS AREA 0520 DST 07190
011430 000000 07200 +3 0 DST 07200
* 011431 3001143600 07210 IPT0 J RST0 DST 07210
011436 4000407777 07220 RST0 XF 040,0777777,0,0 DST 07220
011443 5601242203 07230 BA1 FIVE,3 DST 07230
011450 7200040343 07240 SB1 0403,3 DST 07240
* 011455 3000040000 07250 J 0400 DST 07250
011462 5601225714 07260 IPT6 BA1 H33,12 DST 07260
011467 5201232314 07270 SA1 I6+19,1212 DST 07270
011474 4140000001 07280 XF 00,0000101,0,6 DST 07280
* 011501 1001176353 07290 JR D1,43 DST 07290
011506 4140000002 07300 XF 00,0000202,0,6 DST 07300
* 011513 1001200253 07310 JR D2,43 DST 07310
011520 4140000004 07320 XF 00,0000404,0,6 DST 07320
* 011525 1001202153 07330 JR D3,43 DST 07330
011532 4140000010 07340 XF 00,0001010,0,6 DST 07340
* 011537 1001204053 07350 JR D4,43 DST 07350
011544 4140000020 07360 XF 00,0002020,0,6 DST 07360
* 011551 1001205753 07370 JR D5,43 DST 07370
011556 4140000040 07380 XF 00,0004040,0,6 DST 07380
* 011563 1001207653 07390 JR D6,43 DST 07390
011570 4140000100 07400 XF 00,0010000,0,6 DST 07400
* 011575 1001211553 07410 JR D7,43 DST 07410
011602 4140000200 07420 XF 00,0020000,0,6 DST 07420
* 011607 1001213453 07430 JR D8,43 DST 07430
011614 4140000400 07440 XF 00,0040000,0,6 DST 07440
* 011621 1001215353 07450 JR D9,43 DST 07450
011626 4140001000 07460 XF 00,0100000,0,6 DST 07460
* 011633 1001217253 07470 JR D10,43 DST 07470
011640 4140002000 07480 XF 00,0200000,0,6 DST 07480
* 011645 1001221153 07490 JR D11,43 DST 07490
011652 4140004000 07500 XF 00,0400000,0,6 DST 07500
* 011657 1001223053 07510 JR D12,43 DST 07510
011664 4140407777 07520 XF 040,0777777,0,6 DST 07520
011671 3401231504 07530 CC I6+13,4 4 DST 07530
* 011676 1000370342 07540 JR IPTUQ,3434 DST 07540
011703 2001230040 07550 CYY FT I6,32 DST 07550
011710 4400020702 07560 SC 0207,2 DST 07560
011715 4000620400 07570 XF 062,0040400,0,0 DST 07570
011722 3401232104 07580 CC I6+17,0404 DST 07580
* 011727 3001174143 07590 JU CY DST 07590
* 011734 3001173460 07600 NR JD NR DST 07600
011741 5601242203 07610 CY BA1 FIVE,3 DST 07610
011746 7200046343 07620 SB1 0463,3 DST 07620
* 011753 3000046000 07630 J 0460, DST 07630
* 011760 3000000000 07640 D1 J 0 DST 07640
011765 4401231004 07650 SC I6+8,04 4 DST 07650
* 011772 3001176000 07660 J D1 DST 07660
* 011777 3000000000 07670 D2 J 0 DST 07670
012004 4401231104 07680 SC I6+9,04 4 DST 07680
* 012011 3001177700 07690 J D2 DST 07690
* 012016 3000000000 07700 D3 J 0 DST 07700
012023 4401231204 07710 SC I6+10,0404 DST 07710
* 012030 3001201600 07720 J D3 DST 07720
* 012035 3000000000 07730 D4 J 0 DST 07730
012042 4401231304 07740 SC I6+11,0404 DST 07740
* 012047 3001203500 07750 J D4 DST 07750
* 012054 3000000000 07760 D5 J 0 DST 07760
012061 4401231404 07770 SC I6+12,0404 DST 07770
* 012066 3001205400 07780 J D5 DST 07780
* 012073 3000000000 07790 D6 J 0 DST 07790
012100 4401231504 07800 SC I6+13,0404 DST 07800
* 012105 3001207300 07810 J D6 DST 07810
* 012112 3000000000 07820 D7 J 0 DST 07820
012117 4401231604 07830 SC I6+14,0404 DST 07830
* 012124 3001211200 07840 J D7 DST 07840
* 012131 3000000000 07850 D8 J 0 DST 07850
012136 4401231704 07860 SC I6+15,0404 DST 07860
* 012143 3001213100 07870 J D8 DST 07870
* 012150 3000000000 07880 D9 J 0 DST 07880
012155 4401232004 07890 SC I6+16,0404 DST 07890
* 012162 3001215000 07900 J D9 DST 07900
* 012167 3000000000 07910 D10 J 0 DST 07910
012174 4401232104 07920 SC I6+17,0404 DST 07920
* 012201 3001216700 07930 J D10 DST 07930
* 012206 3000000000 07940 D11 J 0 DST 07940
012213 4401232204 07950 SC I6+18,0404 DST 07950
* 012220 3001220600 07960 J D11 DST 07960
* 012225 3000000000 07970 D12 J 0 DST 07970
012232 4401232304 07980 SC I6+19,0404 DST 07980
* 012237 3001222500 07990 J D12 DST 07990
012253 0303030303030303 08000 +8 0030303030303030303 DST 08000 3
012257 03030303 08010 H33 +4 00303030303 DST 08010
012300 08020 ORIG $,64 DST 08020
012300 00 08030 I6 +1 0 DST 08030
012307 IPT6 08040 +7 _ IPT6 6 _ DST 08040
012310 70 08050 AREA 56,B,0 DST 08050
* 012400 3001240060 08060 IPT1 JD IPT1 DST 08060
012407 012400 08070 +3 IPT1 DST 08070
* 012410 3000000260 08080 I2 JD 2 DST 08080
012417 012410 08090 IE2 +3 I2 DST 08090
012422 000005 08100 FIVE +3 0000005 5 DST 08100
* 012423 3000000031 08110 JC 0,25 DST 08110
012432 011431 08120 IE0 +3 IPT0 DST 08120
* 012433 3000000031 08130 JC 0,25 DST 08130
012442 011462 08140 IE6 +3 IPT6 DST 08140
012444 0020 08150 LNGH +2 00020 DST 08150
012454 0040010002000400 08160 +8 0004001010002000400 DST 08160 4
012462 100020004000 08170 +6 010002000004000 DST 08170
012464 0000 08180 +2 00000 DST 08180
* 012465 1001333700 08190 TONE JR ITIZE DST 08190
* 012472 3001247722 08200 JC $+5,18 DST 08200
* 012477 3001250426 08210 JC $+5,22 DST 08210
012504 5601304030 08220 BA2 KEY1,8 DST 08220
* 012511 1001312000 08230 JR WRIT DST 08230
012516 5601276010 08240 BA1 MASK1,8 8 DST 08240
* 012523 1001317000 08250 JR SRCHR SRCH,COMPARE DST 08250
012530 5601305030 08260 TST02 BA2 KEY2,8 DST 08260
* 012535 1001312000 08270 JR WRIT DST 08270
012542 5601277010 08280 BA1 MASK2,8 8 DST 08280
* 012547 1001317000 08290 JR SRCHR DST 08290
012554 5601306030 08300 TST04 BA2 KEY3,8 DST 08300
* 012561 1001312000 08310 JR WRIT DST 08310
012566 5601300010 08320 BA1 MASK3,8 8 DST 08320
* 012573 1001317000 08330 JR SRCHR DST 08330
012600 5601307030 08340 TST10 BA2 KEY4,8 DST 08340
* 012605 1001312000 08350 JR WRIT DST 08350
012612 5601301010 08360 BA1 MASK4,8 8 DST 08360
* 012617 1001317000 08370 JR SRCHR DST 08370
012624 5601310030 08380 TST20 BA2 KEY5,8 DST 08380
* 012631 1001312000 08390 JR WRIT DST 08390
012636 5601302010 08400 BA1 MASK5,8 8 DST 08400
* 012643 1001317000 08410 JR SRCHR DST 08410
012650 5601311030 08420 TST40 BA2 KEY6,8 DST 08420
* 012655 1001312000 08430 JR WRIT DST 08430
012662 5601303010 08440 BA1 MASK6 DST 08440
* 012667 1001317000 08450 JR SRCHR DST 08450
* 012674 1001341200 08460 JR TEST2 DST 08460
* 012701 3000155660 08470 DONE JD GO DST 08470
* 012706 3001272060 08480 JD XUNIT DST 08480
* 012713 3001246500 08490 JC TONE DST 08490
012720 6000435104 08500 XUNIT AC UNIT-1,0,04 DST 08500
012725 3400435100 08510 AAC CC UNIT-1,0,00 MAX UNIT NO DST 08510
* 012732 3000240341 08520 JG UN DST 08520
* 012737 3000240342 08530 JE UN DST 08530
* 012744 3000140020 08540 JHJ START DONE ALL UNITS DST 08540
012760 0000000000000000 08550 MASK1 +8 0000000000000000000 DST 08550 0
012770 0101010101010101 08560 MASK2 +8 0010101010101010101 DST 08560 1
013000 0303030303030303 08570 MASK3 +8 0030303030303030303 DST 08570 3
013010 0707070707070707 08580 MASK4 +8 0070707070707070707 DST 08580 7
013020 1717171717171717 08590 MASK5 +8 0171717171717171717 DST 08590 7
013030 3737373737373737 08600 MASK6 +8 0373737373737373737 DST 08600 7
013040 0101010101010101 08610 KEY1 +8 0010101010101010101 DST 08610 1
013050 0202020202020202 08620 KEY2 +8 0020202020202020202 DST 08620 2
013060 0404040404040404 08630 KEY3 +8 0040404040404040404 DST 08630 4
013070 1010101010101010 08640 KEY4 +8 0101010101010101010 DST 08640 0
013100 2020202020202020 08650 KEY5 +8 0202020202020202020 DST 08650 0
013110 4040404040404040 08660 KEY6 +8 0404040404040404040 DST 08660 0
013114 00000000 08670 UTHS +4 00000000000 DST 08670
* 013115 3000000000 08680 WRIT JC 0 DST 08680
013122 2001574070 08690 FT WRIMG,5656 DST 08690
013127 6400034140 08700 LS 0341,04040 DST 08700
013134 4600436071 08710 BT S,57 DST 08710
013141 2600015710 08720 PD 0157,8 DST 08720
013146 5201574730 08730 SA2 WRIMG+7,7,8 STORE DRUM EEY DST 08730
013153 4140664000 08740 FWRIT XF 066,0400000,0,6 DST 08740
* 013160 3001311500 08750 JC WRIT DST 08750
* 013165 3000000000 08760 SRCHR JC 0 DST 08760
013172 2001650470 08770 FT RDIMG,5656 SEARCH READ DST 08770
013177 6400034140 08780 LS 0341,04040 DST 08780
013204 5201651310 08790 SA1 MSKE,8 DST 08790
013211 5601333310 08800 BA1 SEVN,8 DST 08800
013216 5201652310 08810 SA1 RDIMG+1515,8 DST 08810
013223 2601677310 08820 PD RDIMG+18183,8 DST 08820
013230 4140654500 08830 SRCH0 XF 065,0450500,0,6 SEARCH SECTOR 0 DST 08830
013235 5601575710 08840 BA1 WRIMG+1515,8 DST 08840
013242 7001652350 08850 CB1 RDIMG+1515,8 DST 08850
* 013247 3001327342 08860 JC $+20,34 4 DST 08860
* 013254 3000007760 08870 COMER JD 077 SEARCH COMPARISON ERROR DST 08870
* 013261 3001317262 08880 JC SRCHR+5,5,50 REPEAT SRCH IF SENSE 1 DST 08880
* 013266 3001246500 08890 JC TONE DST 08890
013273 5601333310 08900 BA1 SEVN,8 DST 08900
013300 7001677350 08910 CB1 RDIMG+18183,8 DST 08910
* 013305 3001316542 08920 JC SRCHR,3434 DST 08920
* 013312 3000007660 08930 ER2 JD 076 DST 08930
* 013317 3001326100 08940 JC COMER+5 5 DST 08940
013333 7777777777777777 08950 SEVN +8 0777777777777777777 DST 08950 7
* 013334 3000000025 08960 ITIZE JC 0,21 DST 08960
013341 5601340610 08970 BA1 IPT66,8 8 SET IPT ENTRY DST 08970
013346 5200046710 08980 SA1 0467,8 DST 08980
013353 5601352510 08990 BA1 DRPAT+8,8,8 DST 08990
013360 5201351510 09000 SA1 DRPAT,8 8 DST 09000
013365 2601350510 09010 PD T2KEY,8 8 DST 09010
* 013372 3001333426 09020 JC ITIZE,2222 DST 09020
* 013377 3000000000 09030 JC 0 DST 09030
013406 011462 09040 IPT66 +3 IPT6 DST 09040
* 013407 3000000000 09050 TEST2 JC 0 DST 09050
* 013414 3001342123 09060 JC $+5,19 DST 09060
* 013421 3001342625 09070 JC $+5,21 DST 09070
013426 5601351530 09080 T2CON BA2 DRPAT,8 8 DST 09080
* 013433 1001312000 09090 W2 JR WRIT DST 09090
013440 5601350510 09100 BA1 T2KEY,8 8 DST 09100
* 013445 1001317000 09110 JR SRCHR SEARCH READ,COMPARE DST 09110
013452 3401350640 09120 CC DRPAT-7,7,040 DST 09120
* 013457 3001340742 09130 JC TEST2,3434 DST 09130
* 013464 1001353100 09140 JR SHDR DST 09140
* 013471 3001342600 09150 JC T2CON DST 09150
013505 0000000000000000 09160 T2KEY +8 0 DST 09160
013515 0000000000000001 09170 DRPAT +8 01 DST 09170
013525 0000000000000001 09180 +8 01 DST 09180
* 013526 3000000000 09190 SHDR JC 0 DST 09190
013533 3401351240 09200 CC DRPAT-3,3,040 DST 09200
* 013540 3001361042 09210 JC SPD,34 DST 09210
013545 1601351501 09220 BS4 DRPAT,1 1 DST 09220
013552 1601351101 09230 BS4 DRPAT-4,4,1 DST 09230
013557 3401350277 09240 CC T2KEY-3,3,077 DST 09240
* 013564 3001362242 09250 JC SPK,34 DST 09250
013571 1601350501 09260 BS4 T2KEY,1 1 DST 09260
013576 6401350501 09270 LS T2KEY,0101 DST 09270
* 013603 3001352600 09280 JC SHDR DST 09280
013610 1601351221 09290 SPD BS2 DRPAT-3,3,1 DST 09290
* 013615 3001355700 09300 JC SHDR+25 5 DST 09300
013622 1601350101 09310 SPK BS4 T2KEY-4,4,1 DST 09310
013627 6401350101 09320 LS T2KEY-4,4,01 DST 09320
* 013634 3001352600 09330 JC SHDR DST 09330
* 013641 3000000000 09340 TRAKX J 0 DST 09340
013646 5601420605 09350 BA1 FXW1+9,5,5 DST 09350
013653 5200434105 09360 SA1 W1+4,5 DST 09360
013660 5201315705 09370 SA1 FWRIT+4,4,5 DST 09370
013665 5601422005 09380 BA1 FXSR1+9,9,5 DST 09380
013672 5200457005 09390 SA1 SR1+4,5 5 DST 09390
013677 5200335505 09400 SA1 SR2+4,5 5 DST 09400
013704 5601423205 09410 BA1 FXRD8+9,9,5 DST 09410
013711 5200666205 09420 SA1 RDS8+4,5,5 DST 09420
013716 5601424405 09430 BA1 FXSRH+9,9,5 DST 09430
013723 5201323405 09440 SA1 SRCH0+4,4,5 DST 09440
013730 4400327300 09450 SC UQ1+9,0 0 DST DST 09450
013735 4400407410 09460 SC CLEAR+3939,010 DST 09460
013742 4400443601 09470 SC PAS+19,1,1 DST 09470
013747 4400450100 09480 SC PH+4,0 DST 09480
013754 4400530310 09490 SC SOC+4,01010 DST 09490
013761 4400574610 09500 SC DATA+14,4,010 DST 09500
013766 4400616700 09510 SC SS+4,0 DST 09510
013773 4400617400 09520 SC SS+9,0 DST 09520
014000 4400647710 09530 SC OUT+9,01010 DST 09530
* 014005 3001364100 09540 J TRAKX DST 09540
* 014012 3000000000 09550 FXSTH J 0 J $ FOR TEST HEAD INIT DST 09550
014017 5601420105 09560 BA1 FXW1+4,5,5 066,04000,0,6 DST 09560
014024 5200434105 09570 SA1 W1+4,5 DST 09570
014031 5201315705 09580 SA1 FWRIT+4,4,5 DST 09580
014036 5601421305 09590 BA1 FXSR1+4,4,5 061,05400,0,6 DST 09590
014043 5200457005 09600 SA1 SR1+4,5 5 DST 09600
014050 5200335505 09610 SA1 SR2+4,5 5 DST 09610
014055 5601422505 09620 BA1 FXRD8+4,4,5 061,04000,0,6 DST 09620
014062 5200666205 09630 SA1 RDS8+4,5,5 DST 09630
014067 5601423705 09640 BA1 FXSRH+4,4,5 065,04500,0,6 DST 09640
014074 5201323405 09650 SA1 SRCH0+4,4,5 DST 09650
014101 4400327340 09660 SC UQ1+9,04040 DST JR POSH DST 09660
014106 4400407450 09670 SC CLEAR+3939,050 DST IS 010 DST 09670 D
014113 4400443600 09680 SC PAS+19,0,0 DST IS 01 DST 09680
014120 4400450140 09690 SC PH+4,04040 DST JR POSH DST 09690
014125 4400530350 09700 SC SOC+4,05050 DST IS 010 DST 09700
014132 4400574650 09710 SC DATA+14,4,050 DST 09710
014137 4400616740 09720 SC SS+4,04040 DST 09720
014144 4400617440 09730 SC SS+9,04040 DST 09730
014151 4400647750 09740 SC OUT+9,05050 DST 09740
* 014156 3001401200 09750 J FXSTH DST 09750
* 014163 1001401500 09760 TSTHD JR FXSTH DST 09760
* 014170 1001364400 09770 NTRAK JR TRAKX DST 09770
014175 4140624000 09780 FXW1 XF 062,0400000,0,6 DST 09780
014202 4140660000 09790 XF 066,00,0,0,6 DST 09790
014207 4140615400 09800 FXSR1 XF 061,0540400,0,6 READ 8 CHAR MASK TEST DST 09800
014214 4140611400 09810 XF 061,0140400,0,6 DST 09810
014221 4140614000 09820 FXRD8 XF 061,0400000,0,6 READS 8 SECTORS DST 09820
014226 4140610000 09830 XF 061,00,0,0,6 DST 09830
014233 4140614500 09840 FXSRH XF 061,0450500,0,6 DST 09840
014240 4140650500 09850 XF 065,0050500,0,6 DST 09850
015000 09860 ORIG 015000 DST 09860
015000 00 09870 MSK +1 0 DST 09870
015007 00000000000000 09880 +7 0 DST 09880
015017 0000000000000000 09890 +8 0 DST 09890
015027 0000000000000000 09900 +8 0 DST 09900
015037 0000000000000000 09910 MASK +8 0 DST 09910
015040 420 09920 B AREA 272,B,0 0 DST 09920
015467 7766554433221100 09930 +8 0776655454433221100 DST 09930 1
015470 250 09940 A AREA 168,B,0 0 DST 09940
015740 09950 WRIMG EQU $ DST 09950
015747 0000000000000000 09960 +8 0 DST 09960
015757 0000625470263142 09970 +8 062547020263142 DST 09970
015760 524 09980 AREA 340,B,07077 DST 09980
016504 09990 RDIMG EQU $ DST 09990
016513 0000000000000000 10000 MSKE +8 0 DST 10000
016514 524 10010 AREA 340,B,0 0 DST 10010
0000 ERROR LINES 3000140000 10020 END START DST 10020
{-- tape mark --}
017305 C251 PUNTB CODEDIT SOURCE - T3834394-25
001350 00010 T250 BEGIN 01350 PNTB 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001350 3007010660 * JD 070106 *
* 001355 3000135000 * J $-5 *
SEGMENT-ID T251 3000135000 * 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 T252 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 T253 3000136300 * SEGJP $ *
001350 000101 ORIG 01350 000101
001350 2600001700 00020 SYT PD 017,0 00020
001355 2600003700 00030 PD 037,0 PUNTIM00030
001362 2600005700 00040 PD 057,0 PUNTIM00040
001367 4400004777 00050 SC 047,077 7 PUNTIM00050
001374 2620000000 00060 PD 0,0,1 PUNTIM00060
001401 6000004720 00070 AC 047,16 PUNTIM00070
* 001406 3200137421 00080 JL $-10,17 7 PUNTIM00080
001413 4400141221 00090 SC $-1,17 PUNTIM00090
001420 4400316140 00100 SC ERS-11,0,040 FIRST CARD 00100
001425 5600362700 00110 BA1 NEPAT+1515,0 PUNTIM00110
001432 5600360723 00120 BA2 SAV,3 PUNTIM00120
001437 5200145423 00130 SA2 $+13,3 PUNTIM00130
* 001444 3000007760 00140 PPP JD 077 KEY SEL. INTO _M_ BITS PUNTIM00140
001451 2000000607 00150 FT 06,7 PUNTIM00150
001456 5200360723 00160 SA2 SAV,3 OF FIX TET. AND PAT. PUNTIM00160
001463 5200235721 00170 SA2 CON+4,1 1 INTO 00 TO 17 PUNTIM00170
001470 5200362700 00180 SA1 NEPAT+1515,0 PUNTIM00180
001475 5600307710 00190 BA1 IE,8 PUNTIM00190
001502 5200042710 00200 SA1 0427,8 PUNTIM00200
001507 5600305510 00210 BA1 PRIE,8 PUNTIM00210
001514 5200040710 00220 SA1 0407,8 PUNTIM00220
001521 5600363710 00230 BA1 CL2,8 PUNTIM00230
001526 5200051710 00240 SA1 0517,8 PUNTIM00240
001533 2000370050 00250 FT PIM1,40 0 00250
001540 2000460051 00260 FT RIM,41 PUNTIM00260
001545 2000012012 00270 FT 80,10 CHAR COUNT PUNTIM00270
001552 2000444011 00280 FT PAT,9 ORIG PUNTIM00280
001557 4400330602 00290 SC LOP-1,2 2 PUNTIM00290
001564 2000561013 00300 FT IM,11 DEST PUNTIM00300
001571 1400360604 00310 LC SAV-1,4 4 PUNTIM00310
* 001576 3000164142 00320 JE $+35 PUNTIM00320
001603 4400330601 00330 SC LOP-1,1 1 PUNTIM00330
001610 2000022012 00340 FT 0220,10 0 CHAR COUNT PUNTIM00340
001615 5600362700 00350 BA1 NEPAT+1515,0 PUNTIM00350
001622 5200562700 00360 SA1 IM+15,0 0 PUNTIM00360
001627 2000563013 00370 FT IM+16,1111 DEST PUNTIM00370
001634 2000561011 00380 FT IM,9 ORIG PUNTIM00380
001641 4400341400 00390 SC PREC+4,0,0 PUNTIM00390
001646 1400360601 00400 LC SAV-1,1 1 PUNTIM00400
* 001653 3000166543 00410 JU $+10 PUNTIM00410
001660 4400341401 00420 SC PREC+4,1,1 PREC. BIN PUNTIM00420
001665 1400360602 00430 LC SAV-1,2 2 PUNTIM00430
* 001672 3000170443 00440 JU $+10 PUNTIM00440
001677 4400341402 00450 SC PREC+4,2,2 PREC. COLM PUNTIM00450
001704 1400360610 00460 LC SAV-1,8 8 PUNTIM00460
* 001711 3000174743 00470 JU $+30 PUNTIM00470
001716 2000541411 00480 FT PAT2,9 ORIG PUNTIM00480
001723 2000002412 00490 FT 20,10 CHAR COUNT PUNTIM00490
001730 4400330610 00500 SC LOP-1,8 8 PUNTIM00500
001735 2000561013 00510 FT IM,11 DEST PUNTIM00510
001742 4400341402 00520 SC PREC+4,2,2 PUNTIM00520
001747 1400360620 00530 LC SAV-1,1616 PUNTIM00530
* 001754 3000201243 00540 JU STT PUNTIM00540
001761 2000012012 00550 FT 80,10 CHAR COUNT PUNTIM00550
001766 2000561013 00560 FT IM,11 DEST. PUNTIM00560
001773 2000544011 00570 FT PAT3,9 ORIG PUNTIM00570
002000 4400330602 00580 SC LOP-1,2 2 PUNTIM00580
002005 4400341402 00590 SC PREC+4,2,2 PUNTIM00590
002012 1400360640 00600 STT LC SAV-1,3232 PUNTIM00600
* 002017 3000205543 00610 JU $+30 PUNTIM00610
002024 4400341402 00620 SC PREC+4,2,2 PUNTIM00620
002031 2000003012 00630 FT 24,10 CHAR COUNT PUNTIM00630
002036 2000561013 00640 FT IM,11 DEST PUNTIM00640
002043 2000556011 00650 FT PAT4,9 ORIG PUNTIM00650
002050 4400330607 00660 SC LOP-1,7 7 PUNTIM00660
* 002055 1000326100 00670 JR MAKE PUNTIM00670
002062 2600417204 00680 PD PNCT,4 00680
002067 2000370076 00690 FT PIM1,62 2 PUNTIM00690
002074 2000420077 00700 FT PIM2,63 3 PUNTIM00700
002101 4600037311 00710 BT 0373,9 PUNTIM00710
002106 4600417217 00720 BT PNCT,15 5 PUNTIM00720
* 002113 1000331700 00730 JR GNI,0 PUNTIM00730
002120 4600037711 00740 BT 0377,9 PUNTIM00740
* 002125 1000331700 00750 JR GNI,0 PUNTIM00750
002132 4200417217 00760 ST PNCT,15 5 PUNTIM00760
002137 4040420000 00770 XF 042,0,0,0,2 PUNTIM00770
002144 4600037776 00780 BT 0377,62 2 PUNTIM00780
002151 2600037704 00790 PD 0377,4 PUNTIM00790
002156 7400036337 00800 REP CT 0363,31 1 PUNTIM00800
* 002163 3000222142 00810 JE $+30 PUNTIM00810
002170 4600036311 00820 BT 0363,9 SHOULD BE PUNTIM00820
002175 4600024712 00830 BT 0247,10 0 SENSED PUNTIM00830
* 002202 1000237000 00840 JR COMP PUNTIM00840
002207 4600036377 00850 BT 0363,63 3 PUNTIM00850
002214 2600036304 00860 PD 0363,4 PUNTIM00860
002221 7400037737 00870 CT 0377,31 1 PUNTIM00870
* 002226 3000227142 00880 JE $+35 00880
002233 4600037711 00890 BT 0377,9 PUNTIM00890
002240 4600417217 00900 BT PNCT,15 5 PUNTIM00900
* 002245 1000331700 00910 JR GNI,0 PUNTIM00910
002252 4600037776 00920 BT 0377,62 2 PUNTIM00920
002257 2600037704 00930 PD 0377,4 PUNTIM00930
002264 4200417217 00940 ST PNCT,15 5 PUNTIM00940
* 002271 3000231567 00950 JC $+20,55 5 SI 3 PUNTIM00950
002276 4600037350 00960 BT 0373,40 0 PUNTIM00960
* 002303 3000231024 00970 JC $+5,20 SET SI 3 PUNTIM00970
002310 4040030000 00980 XF 03,0,0,2,2 PUNTIM00980
* 002315 3000232233 00990 DELAY JC $+5,27 PUNTIM00990
* 002322 3200232277 01000 JL $,63 PUNTIM01000
002327 4400232677 01010 SC $-1,63 PUNTIM01010
* 002334 3200232212 01020 JL $-10,10 0 PUNTIM01020
002341 4400234012 01030 SC $-1,10 PUNTIM01030
* 002346 3200232205 01040 JL $-20,5 PUNTIM01040
002353 4400235205 01050 CON SC $-1,5 PUNTIM01050
* 002360 3000215632 01060 JC REP,26 PUNTIM01060
* 002365 3000000000 01070 COMP J 0 PUNTIM01070
002372 4400244612 01080 SC LP+4,10 0 PUNTIM01080
002377 2020000013 01090 FT 0,11,1 SHOULD BE TO IR3 PUNTIM01090
002404 2040000014 01100 FT 0,12,2 SENSED TO IR4 PUNTIM01100
002411 5620001700 01110 R BA1 017,0,1 1 PUNTIM01110
002416 7040001740 01120 CB1 017,0,2 2 PUNTIM01120
* 002423 3000250543 01130 JU S PUNTIM01130
002430 2020002011 01140 FT 16,9,1 PUNTIM01140
002435 2040002012 01150 FT 16,10,2 2 PUNTIM01150
* 002442 3200241112 01160 LP JL R,10 PUNTIM01160
* 002447 3000236566 01170 JC COMP,54 4 SI 2 PUNTIM01170
002454 2000510040 01180 FT FLSE,32 2 PUNTIM01180
* 002461 1000356464 01190 JR PRINT,5252 SS 3 PUNTIM01190
* 002466 3000250063 01200 JC $+10,51 1 SS 2 PUNTIM01200
* 002473 3000000160 01210 JD 1 HOLE COUNT ERROR BUT NO PUNTIM01210
* 002500 3000236500 01220 J COMP COMP. ERROR PUNTIM01220
002505 2600532423 01230 S PD0 COLM,3 PUNTIM01230
002512 2060024036 01240 FT 160,30,3,3 PUNTIM01240
002517 5600541363 01250 BD2 DONE,3 PUNTIM01250
002524 2000520040 01260 FT NOHO,32 2 01260
* 002531 3000254366 01270 JC $+10,54 4 01270
* 002536 3000256200 01280 J T 01280
* 002543 1000356464 01290 JR PRINT,5252 01290
* 002550 3000256263 01300 JC $+10,51 1 01300
* 002555 3000000360 01310 JD 3 COMP ERROR BUT NO HOLE COUNT ERROR 01310 M
002562 6200532423 01320 T AM2 COLM,3 PUNTIM01320
002567 5660000102 01330 BA1 1,2,3 SHOULD BE PUNTIM01330
002574 7100000142 01340 CB1 1,2,4 SENSED PUNTIM01340
* 002601 3000263743 01350 JU SX PUNTIM01350
002606 2060000213 01360 Z FT 2,11,3 PUNTIM01360
002613 2100000214 01370 FT 2,12,4 PUNTIM01370
002620 7400005736 01380 CT 057,30 PUNTIM01380
* 002625 3000236542 01390 JE COMP 01390
* 002632 3000256200 01400 J T PUNTIM01400
002637 5200303202 01410 SX SA1 SHST+3,2,2 SHOULD BE PUNTIM01410
* 002644 1000345164 01420 JR EDIT,52 2 S.S.3 PUNTIM01420
002651 5200537606 01430 SA1 SHD,6 PUNTIM01430
002656 5700000102 01440 BA1 1,2,4 PUNTIM01440
002663 5200303702 01450 SA1 WAST+3,2,2 SENSED PUNTIM01450
* 002670 1000345164 01460 JR EDIT,52 2 PUNTIM01460
002675 5200535202 01470 SA1 WAS,2 01470
002702 5600001302 01480 BA1 013,2 01480
002707 5200533702 01490 SA1 TOP-2,2 2 01490
002714 5600532403 01500 BA1 COLM,3 PUNTIM01500
002721 5200302503 01510 SA1 CLM+3,3 3 COLM. NUMBER PUNTIM01510
* 002726 3000274064 01520 JC $+10,52 2 PUNTIM01520
* 002733 3000301000 01530 J COST PUNTIM01530
002740 2000530040 01540 FT COM,32 PUNTIM01540
002745 5660000102 01550 BA1 1,2,3 SHOULD BE PUNTIM01550
002752 7100000142 01560 CB1 1,2,4 WAS PUNTIM01560
002757 5600415213 01570 BA1 SNSR,11 1 PUNTIM01570
* 002764 3000277641 01580 JG $+10 PUNTIM01580
002771 5600416513 01590 BA1 OPSR,11 1 PUNTIM01590
002776 5200531213 01600 SA1 COM+10,1,11 PUNTIM01600
* 003003 1000356464 01610 JR PRINT,5252 PUNTIM01610
* 003010 3000304163 01620 COST JC $+25,51 1 01620
* 003015 3000000460 01630 JD 04 COMP ERROR PUNTIM01630
* 003022 3000000060 01640 CLM JD 0 COLUMN 01640 O
* 003027 3000000060 01650 SHST JD 0 SHOULD BE 01650
* 003034 3000000060 01660 WAST JD 0 WAS 01660
* 003041 3000260600 01670 J Z PUNTIM01670
* 003046 3000000031 01680 JC 0,25 PUNTIM01680
003055 003056 01690 PRIE +3 PINT PUNTIM01690
* 003056 3000040060 01700 PINT JD 0400 PRINTER ERROR PUNTIM01700
* 003063 3000040000 01710 J 0400 PUNTIM01710
* 003070 3000000031 01720 JC 0,25 PUNTIM01720
003077 003100 01730 IE +3 PUINT PUNTIM01730
* 003100 3000416651 01740 PUINT JC IND,41 PUNTIM01740
003105 5200504710 01750 SA1 STAR,8 PUNTIM01750
* 003112 3000311723 01760 JC $+5,19 SET SI 2 PUNTIM01760
003117 4040007100 01770 XF 0,07100,0,0,2 PUNTIM01770
* 003124 3000317453 01780 JC ERS,43 PUNTIM01780
003131 4040000040 01790 XF 0,040,0,0,2 PUNTIM01790
* 003136 3000315053 01800 JC $+10,43 3 PUNTIM01800
* 003143 3000322000 01810 J NOERR PUNTIM01810
* 003150 3000316262 01820 JC $+10,50 0 SS 1 PUNTIM01820
* 003155 3000000560 01830 JD 5 HOLE COUNT ERROR PUNTIM01830
003162 4040400040 01840 XF 040,040,0,0,2 01840
* 003167 3000322026 01850 JC NOERR,2222 SI 2 RESET PUNTIM01850
* 003174 3000000660 01860 ERS JD 6 NON-REC. ERR. HIT PUNTIM01860
003201 4040407777 01870 XF 040,0777777,0,2 START TO RETURN TO PUNTIM01870
* 003206 3000321327 01880 JC $+5,23 SELECT. STOP PUNTIM01880
* 003213 3000135031 01890 JC SYT,25 PUNTIM01890
003220 5600037310 01900 NOERR BA1 0373,8 PUNTIM01900
003225 5200036710 01910 SA1 0367,8 PUNTIM01910
003232 4400316160 01920 SC ERS-11,0,060 01920
003237 5600504710 01930 BA1 STAR,8 PUNTIM01930
* 003244 3000416652 01940 JC IND,42 PUNTIM01940
* 003251 3000042027 01950 JC 0420,23 3 PUNTIM01950
* 003256 3000000000 01960 MAKE J 0 PUNTIM01960
003263 2060000020 01970 FT 0,16,3 DEST PUNTIM01970
003270 2040000022 01980 FT 0,18,2 CHAR. COUNT PUNTIM01980
003275 2420000021 01990 TFI 0,,1 ORIG IN PUNTIM01990
* 003302 3200327500 02000 JL $-5,0 PUNTIM02000
* 003307 3000325600 02010 LOP J MAKE PUNTIM02010
* 003314 3000000000 02020 GNI J 0 PUNTIM02020
003321 2020000020 02030 FT 0,16,1 DEST. PUNTIM02030
003326 4600007703 02040 BT 077,3 SHIFT COUNT PUNTIM02040
003333 2000024016 02050 FT 0240,14 4 IR 6 PUNTIM02050
003340 7200007342 02060 SB1 073,2 240-CNT. PUNTIM02060
* 003345 3000336445 02070 JC $+15,37 7 PUNTIM02070
003352 2140000022 02080 FT 0,18,6 PUNTIM02080
003357 2560561021 02090 TFI IM,,7 ORIG+CONT PUNTIM02090
003364 7400007737 02100 CT 077,31 02100
* 003371 3000341042 02110 JE $+15 02110
003376 2160000022 02120 FT 0,18,7 CNT PUNTIM02120
003403 2400561001 02130 TFR IM PUNTIM02130
003410 6000007701 02140 PREC AC 077,1 PUNTIM02140
003415 2000024003 02150 FT 0240,3 PUNTIM02150
003422 7000007743 02160 CB1 077,3 PUNTIM02160
* 003427 3000344141 02170 JG $+10 PUNTIM02170
003434 2600007704 02180 PD 077,4 PUNTIM02180
* 003441 3000331400 02190 J GNI PUNTIM02190
* 003446 3000000000 02200 EDIT J 0 PUNTIM02200
003453 5200001102 02210 SA1 011,2 PUNTIM02210
003460 5600001001 02220 BA1 010,1 PUNTIM02220
* 003465 1000352100 02230 JR ED,0 PUNTIM02230
003472 5200001302 02240 SA1 013,2 PUNTIM02240
003477 5600001101 02250 BA1 011,1 PUNTIM02250
* 003504 1000352100 02260 JR ED,0 PUNTIM02260
* 003511 3000344600 02270 J EDIT PUNTIM02270
* 003516 3000000000 02280 ED J 0 PUNTIM02280
003523 2600001603 02290 PD 016,3 PUNTIM02290
003530 1600001723 02300 BS2 017,3 PUNTIM02300
003535 1600001753 02310 BC1 017,3 PUNTIM02310
003542 6000001703 02320 AC 017,3 PUNTIM02320
003547 6000001603 02330 AC 016,3 PUNTIM02330
* 003554 3000351600 02340 J ED PUNTIM02340
* 003561 3000000000 02350 PRINT J 0 PUNTIM02350
003566 2000000641 02360 FT 6,33 PUNTIM02360
003573 4000620400 02370 XF 062,0040400,0,0 PUNTIM02370
* 003600 3000356100 02380 J PRINT PUNTIM02380
003607 000000 02390 SAV +3 0 PUNTIM02390
003610 20 02400 NEPAT AREA 16,B,0 PUNTIM02400
* 003630 3000000035 02410 JC 0,29 PUNTIM02410
003637 003640 02420 CL2 +3 DOF PUNTIM02420
* 003640 3000365254 02430 DOF JC $+10,05454 PUNTIM02430
* 003645 3002020260 02440 JD 020202 PUNTIM02440
* 003652 3000365716 02450 JC $+5,016 6 PUNTIM02450
* 003657 3000366435 02460 JC $+5,29 02460
* 003664 3000366467 02470 JC $,55 02470
* 003671 3000135000 02480 JC SYT 02480
003700 02490 ORIG $,64 PUNTIM02490
003700 240 02500 PIM1 AREA 160,B,0 0 PUNTIM02500
004152 SENSE ERROR 02510 SNSR +11 _SENSE E ERROR_ PUNTIM02510
004165 OVER PUNCH 02520 OPSR +11 _OVER PUPUNCH_ PUNTIM02520
004166 00 02530 IND +1 0 PUNTIM02530
004172 00000000 02540 PNCT +4 0 PUNTIM02540
004200 02550 ORIG $,64 PUNTIM02550
004200 240 02560 PIM2 AREA 160,B,0 0 PUNTIM02560
004440 52 02570 PAT +1 052 PUNTIM02570
004450 5252525252525252 02580 +8 0525252525252525252 PUNTIM02580 2
004460 5252525252525252 02590 +8 0525252525252525252 PUNTIM02590 2
004470 5252525252525252 02600 +8 0525252525252525252 PUNTIM02600 2
004500 5252525252525252 02610 +8 0525252525252525252 PUNTIM02610 2
004510 5252525252525252 02620 +8 0525252525252525252 PUNTIM02620 2
004520 5252525252525252 02630 +8 0525252525252525252 PUNTIM02630 2
004530 5252525252525252 02640 +8 0525252525252525252 PUNTIM02640 2
004537 52525252525252 02650 +7 05252525252525252 PUNTIM02650 2
004547 5252525252525252 02660 +8 0525252525252525252 PUNTIM02660 2
004557 5252525252525252 02670 +8 0525252525252525252 PUNTIM02670 2
004600 02680 ORIG $,64 PUNTIM02680
004600 240 02690 RIM AREA 160,B,0 0 PUNTIM02690
005047 0 02700 STAR +8 _0_ PUNTIM02700
005100 02710 ORIG $,64 PUNTIM02710
005100 02720 FLSE EQU $ PUNTIM02720
005117 FALSE HOLE COU 02730 +16 _FALSE HOLE COU_ PUNTIM02730 C
005137 NT ERROR READ 02740 +16 _NT ERRRROR READ _ PUNTIM02740 A
005157 IMAGE IS IN 02750 +16 _ IMAGE E IS IN _ PUNTIM02750 N
005177 MEMORY OKAY 02760 +16 _MEMORY Y OKAY _ PUNTIM02760
005200 02770 ORIG $,64 PUNTIM02770
005200 02780 NOHO EQU $ PUNTIM02780
005217 COMPARISION ERR 02790 +16 _COMPARIRISION ERR_ PUNTIM02790 E
005237 OR ON READ I 02800 +16 _OR ON N READ I_ PUNTIM02800
005257 MAGE BUT NO H 02810 +16 _MAGE B BUT NO H_ PUNTIM02810
005277 OLE COUNT ERROR 02820 +16 _OLE COCOUNT ERROR_ PUNTIM02820 R
005300 02830 ORIG $,64 PUNTIM02830
005300 02840 COM EQU $ PUNTIM02840
005312 02850 +11 _ _ PUNTIM02850
005324 COLM 000 02860 COLM +10 _ COLM M 000_ PUNTIM02860
005341 WAS TOP 00 02870 TOP +13 _WAS TOTOP 00 _ 02870 _
005352 BOTTOM 00 02880 WAS +9 _BOTTOM M 00_ 02880
005370 SHOULD BE 02890 +14 _ SHOULULD BE _ PUNTIM02890
005376 00 00 02900 SHD +6 _00 00_0_ PUNTIM02900
005410 0 02910 +10 _0_ PUNTIM02910
005413 001 02920 DONE +3 _001_ PUNTIM02920
005414 02930 PAT2 EQU $ PUNTIM02930
005423 2525252525252525 02940 +8 0252525252525252525 PUNTIM02940 5
005433 2525252525252525 02950 +8 0252525252525252525 PUNTIM02950 5
005437 25252525 02960 +4 02525252525 PUNTIM02960
005440 02970 PAT3 EQU $ PUNTIM02970
005447 5252252552522525 02980 +8 0525225252552522525 PUNTIM02980 5
005457 5252252552522525 02990 +8 0525225252552522525 PUNTIM02990 5
005467 5252252552522525 03000 +8 0525225252552522525 PUNTIM03000 5
005475 525225255252 03010 +6 052522525255252 PUNTIM03010
005505 2525525225255252 03020 +8 0252552525225255252 PUNTIM03020 2
005515 2525525225255252 03030 +8 0252552525225255252 PUNTIM03030 2
005525 2525525225255252 03040 +8 0252552525225255252 PUNTIM03040 2
005535 2525525225255252 03050 +8 0252552525225255252 PUNTIM03050 2
005545 2525525225255252 03060 +8 0252552525225255252 PUNTIM03060 2
005555 2525525225255252 03070 +8 0252552525225255252 PUNTIM03070 2
005557 2525 03080 +2 02525 PUNTIM03080
005560 03090 PAT4 EQU $ PUNTIM03090
005567 7777000077770000 03100 +8 0777700000077770000 PUNTIM03100 0
005577 7777000077770000 03110 +8 0777700000077770000 PUNTIM03110 0
005607 7777000077770000 03120 +8 0777700000077770000 PUNTIM03120 0
005610 240 03130 IM AREA 160,B,0 0 03130
3000135000 03140 END SYT PUNTIM03140
{-- tape mark --}
018077 C261 REFUTE CODEDIT SOURCE - T3834394-26
001400 00010 T260 BEGIN 01400 REFU 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T261 3000140000 * SEGJP $-10 *
017000 * ORIG 017000 *
* 017000 3001700020 * JHJ $ *
017007 000500 * +3 0500 *
* 017010 3001701020 * JHJ $ *
017017 000510 * +3 0510 *
* 017020 3001702020 * JHJ $ *
017027 000440 * +3 0440 *
017030 5601701700 * BA1 017000+1+15,16 *
017035 5200051700 * SA1 0517,16 6 *
017042 5601702710 * BA1 017000+2+23,8 *
017047 5200044710 * SA1 0447,8 *
017054 2000000361 * FT 3,49 *
017061 2000040060 * FT 0400,48 8 *
017066 4100610100 * XF 061,010000,0,4 *
017073 2000024261 * FT 162,49 *
017100 4100610100 * XF 061,010000,0,4 *
* 017105 3000044000 * J 0440 *
SEGMENT-ID T262 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 T263 3000136300 * SEGJP $ *
001400 000101 ORIG 01400 000101
00020 . REFUTE00020
00030 . READER FUNCTIOIONAL TEST, FOR 80 AND 90 COLUMN-TYPE READERS REFUTE00030 S
00040 . OPERATINING NOTES REFUTE00040 S
00050 . 1- WHEN PROGRAM HAHALTS AFTER LOADING, REFUTE00050 T
00060 . SET SS3 AND JUJUMP TO M FOR CARD PER MINUTE TEST, OR REFUTE00060 M
00070 . DEPRESS START T FOR FUNCTIONAL TEST REFUTE00070 N
00071 . NOTE) TO VARYRY SPEED, KEY 5-DIGIT DECIMAL NO. INTO 13 TO 17 REFUTE00071 ,
00080 . 2- IN CARD PER MININUTE TEST REFUTE00080 S
00090 . DEPRESS OPERATATOR REQUEST TO CHANGE FROM REFUTE00090 U
00100 . SHORT READ TO O FULL READ REFUTE00100 E
00110 . 3- SENSE SWITCH O OPTIONS) RESET SET REFUTE00110 )
00120 . SS1) 90 80 REFUTE00120
00130 . SS2) STD CARD STUB CARD REFUTE00130
00140 . SS3) PROCEED REPEAT SAME TEST REFUTE00140
00150 . 4- TRACE OPTIONS)S) REFUTE00150
00160 . SET PROC SWITITCH AND TRACE ADDRESS SWITCHES REFUTE00160
00161 . 01...DO NOT T PRINT REFUTE00161
00162 . 02...STOP AFAFTER ERROR PRINTOUT REFUTE00162 R
00163 . 03...PUNCH T TEST DECK REFUTE00163 C
00170 . 5- ERROR PRINTOUTUTS GIVE TYPE OF ERROR,ACTUAL VS. EXPECTED REFUTE00170
00180 . VALUE,AND INSTSTRUCTION FUNCTION AND DETAIL CHARACTERS REFUTE00180 N
00190 . 6- FOR RERUN, DEPRPRESS OPERATOR REQUEST REFUTE00190 E
00200 . 7- ERROR STOP MODODE DISPLAYS TYPE OF ERROR IN M BITS REFUTE00200 L
00210 . A. FUNCTIONAL L ERROR REFUTE00210
177702 00240 E02 EQU 0177702 2 PUNCH ERROR REFUTE00240
177703 00250 E03 EQU 0177703 3 LOCKOUT DID NOT OCCUR REFUTE00250
177704 00260 E04 EQU 0177704 4 INTERRUPT DID NOT OCCUR REFUTE00260
177705 00270 E05 EQU 0177705 5 INTERRUPT WAS NOT INHIBITED REFUTE00270
177706 00280 E06 EQU 0177706 6 READ ERROR REFUTE00280
177707 00290 E07 EQU 0177707 7 READ TOO MANY COLUMNS REFUTE00290
177710 00300 E10 EQU 0177710 0 BASE ADDRESS ERROR REFUTE00300
177711 00310 E11 EQU 0177711 1 PARITY ERROR REFUTE00310
177712 00320 E12 EQU 0177712 2 DECIMAL OVERFLOW REFUTE00320
177713 00330 E13 EQU 0177713 3 PRINTER ERROR REFUTE00330
177777 00331 E77 EQU 0177777 7 READER ABNORMAL REFUTE00331
00340 . NOTE )AFAFTER COMPARISON ERROR,ADDITIONAL STOPS DISPLAY ) REFUTE00340 M
00350 . (1� CHARARACTER READ )EXPECTED,(2� CHARACTER NUMBER REFUTE00350 R
00360 . B. ERROR INDICICATORS SET REFUTE00360 S
00370 . YX-BITS COCORRESPOND TO ERROR INDICATORS REFUTE00370 N
001400 66 00501 PAREA AREA 54 PRINTER IMAGE AREA REFUTE00501
001477 INSTR) 00502 INSTR +10 _INSTR) ) _ FUNCTION-DETAIL CHARACTERS REFUTE00502
001500 5600616200 00510 START BA1 CH1IE,1616 REFUTE00510
001505 5200041700 00520 SA1 0417,16 6 REFUTE00520
001512 2600404601 00530 PD STOP+9,1,1 REFUTE00530
001517 5600620200 00540 BA1 CL2IE,1616 REFUTE00540
001524 5200051700 00550 SA1 0517,16 6 REFUTE00550
001531 2600022710 00560 PD T37,8 REFUTE00560
001536 4400520340 00561 SC CL1+4,04040 REFUTE00561
001543 2600006310 00562 PD X4,8 REFUTE00562
001550 4400160507 00563 SC LOOP5+4,4,7 REFUTE00563
001555 2600307401 00564 PD MAX+4,1 1 REFUTE00564
001562 6000307401 00565 AC MAX+4,1 1 REFUTE00565
001567 5661000001 00566 BA1 010000,1,1,X3 REFUTE00566
001574 6000005501 00567 AC X3-2,1 REFUTE00567
* 001601 3200156207 00568 LOOP5 JL $-15,7 REFUTE00568
001606 2000023703 00569 FT 159,3 REFUTE00569
* 001613 3000163262 00570 JC $+15,50 0 JUMP IF 80 READER REFUTE00570
001620 4400006201 00571 SC X4-1,1 REFUTE00571
001625 2000017703 00572 FT 127,3 REFUTE00572
001632 5200223402 00573 SA1 TST01+3,3,2 REFUTE00573
001637 5600551306 00574 BA1 SUBTR,6 6 REFUTE00574
* 001644 3000506460 00580 JD CPMT JUMP TO CARD/MINUTE TEST REFUTE00580
001651 5200551306 00581 SA1 SUBTR,6 6 REFUTE00581
* 001656 3000166371 005810 JC $+5,57 REFUTE005810
* 001663 3000000340 005811 JC 3,040 REFUTE005811
* 001670 3000176471 005812 JC PUNCH,5757 REFUTE005812
001675 4400341150 00590 SC RIR+24,4,40 REFUTE00590
001702 2600524601 00600 PD CL2+14,1,1 REFUTE00600
001707 4400227661 01100 FIXF SC READ2+2,2,061 LOCKOUT AND INHIBIT INT REFUTE01100
* 001714 1000210200 01110 JR FIXD REFUTE01110
001721 4400227641 01120 SC READ2+2,2,041 LOCKOUT PROCESSOR REFUTE01120
* 001726 1000210200 01130 JR FIXD REFUTE01130
001733 4400227621 01140 SC READ2+2,2,021 INHIBIT INTERRUPT REFUTE01140
* 001740 1000210200 01150 JR FIXD REFUTE01150
001745 4400227601 01160 SC READ2+2,2,01 NORMAL READ REFUTE01160
* 001752 1000210200 01170 JR FIXD REFUTE01170
* 001757 3000170700 01180 J FIXF REFUTE01180
001764 2000204103 011810PUNCH FT PU1+5,3 3 REFUTE011810
001771 5200042703 011811 SA1 0427,3 REFUTE011811
001776 2000100050 011812 FT 01000,4040 REFUTE011812
002003 2000100020 011813 FT 01000,1616 REFUTE011813
002010 2000024022 011814 FT 160,18 REFUTE011814
002015 2400640001 011815 TFR ITP80 REFUTE011815
* 002022 3000203462 011816 JC PU1,50 JUMP IF 80 READER REFUTE011816
002027 2400670001 011817 TFR ITP90 REFUTE011817
002034 4040620000 011818PU1 XF 062,0,0,0,2 REFUTE011818
002041 4040007777 011819 XF 0,07777,7,0,2 REFUTE011819
* 002046 3000206053 011820 JC $+10,43 3 REFUTE011820
* 002053 3000203431 011821 JC PU1,25 REFUTE011821
* 002060 3017770260 011822 JD 0177702 2 PUNCH ERROR STOP REFUTE011822
002065 4040407777 011823 XF 040,0777777,0,2 REFUTE011823
* 002072 3000203431 011824 JC PU1,25 REFUTE011824
* 002077 3000207700 01190 FIXD J $ REFUTE01190
002104 2600230002 01200 PD READ2+4,4,2 CLEAR DETAILS 1 AND 2 REFUTE01200
002111 4400214110 01210 SC FIXD1+4,4,8 PRESET JUMP LOOP REFUTE01210
* 002116 1000215200 01220 JR TST00 REFUTE01220
* 002123 3000215464 01230 JC TST00+5,5,52 IF SS 3 IS SET, REPEAT TEST REFUTE01230
002130 6000227701 01240 AC READ2+3,3,1 STEP DETAIL 1 REFUTE01240
* 002135 3200211610 01250 FIXD1 JL $-15,8 REFUTE01250
* 002142 3000207700 01260 J FIXD REFUTE01260
* 002147 3000214700 01270 TST00 J $ REFUTE01270
002154 2000050625 01271 FT _23_,21 1 REFUTE01271
002161 5600552370 01272 BD2 RDM1,8 REFUTE01272
002166 5000000002 01273 MPN 0,2 REFUTE01273
002173 5200552310 01274 SA1 RDM1,8 REFUTE01274
002200 5200553005 01275 SA1 RDM2,5 REFUTE01275
002205 5600551305 01276 BA1 SUBTR,5 5 REFUTE01276
002212 6200553045 01277 SM1 RDM2,5 REFUTE01277
* 002217 3000223146 01278 JC $+10,38 8 JUMP WHEN RDM2 IS NEGATIVE REFUTE01278
* 002224 3000221200 01279 J $-10 REFUTE01279
002231 2000000022 01310 TST01 FT 0,18 127/90 RDR OR 159/80 RDR REFUTE01310
002236 2700750001 01320 PD IMAGE,1,1,X4 REFUTE01320
002243 2100750120 01330 FT IMAGE+1,1,16,X4 REFUTE01330
002250 2500750001 01340 TFR IMAGE,,X,X4 REFUTE01340
002255 2600556201 01350 PD IIND,1 CLEAR INTERRUPT INDICATOR REFUTE01350
002262 4600550546 01360 BT ONES,38 8 SET UPQ TO ALL ONES REFUTE01360
002267 2100750044 01361 FT IMAGE,T3T36,X4 SET UP BASE ADDRESS REFUTE01361
002274 4020000000 01370 READ2 XF 0,0,0,1 1 REFUTE01370
002301 2600001702 01380 PD 15,2 REFUTE01380
002306 5600553422 01390 BA2 K01,2 REFUTE01390
002313 1400227640 01400 LC READ2+2,2,040 CHECK FOR LOCKOUT BIT REFUTE01400
* 002320 3000233743 01410 JU TST02 JUMP IF NO LOCKOUT BIT REFUTE01410
002325 7400550546 01670 CT ONES,38 8 IS UPQ MODIFIED REFUTE01670
* 002332 1000457642 01680 JR LOERR,3434 NO,LOCKOUT ERROR REFUTE01680
002337 2600001702 01690 TST02 PD 15,2 REFUTE01690
002344 5600553422 01700 BA2 K01,2 REFUTE01700
002351 7200001722 01710 AB2 15,2 . REFUTE01710
002356 7000553642 01720 CB1 K02,2 . REFUTE01720
* 002363 3000235144 01730 JS $-10 . 139.5 US LOOP,TOTAL 150 MS REFUTE01730
002370 1400227620 01740 LC READ2+2,2,020 WAS INH INT SPECIFIED @ REFUTE01740
* 002375 3000242142 01750 JE TST03-1010 YES REFUTE01750
002402 3400556201 01760 CC IIND,1 NO, DID INTERRUPT OCCUR REFUTE01760
* 002407 1000450243 01770 JR IERR1,3535 NO REFUTE01770
* 002414 3000243300 01780 J TST03 REFUTE01780
002421 3400556201 01790 CC IIND,1 WAS INTERRUPT INHIBITED REFUTE01790
* 002426 1000454042 01800 JR IERR2,3434 REFUTE01800
002433 2600003700 01810 TST03 PD 037,16 REFUTE01810
002440 2000640011 01820 FT ITP80,X1X1 IMAGE TEST PATTERN, 80-RDR REFUTE01820
002445 2100750012 01830 FT IMAGE,X2X2,X4 REFUTE01830
* 002452 3000273162 01840 JC TST1,50 0 JUMP IF 80 READER REFUTE01840
002457 2000670011 01841 FT ITP90,X1X1 IMAGE TEST PATTERN, 90-RDR REFUTE01841
002464 4400330310 01860 SC LOOP3+4,4,8 SET UP 128CHARACTER CHECK REFUTE01860
* 002471 3000256563 01861 JC STUB1,5151 JUMP IF STUB CARD REFUTE01861
002476 1400227704 01870 LC READ2+3,3,04 REFUTE01870
* 002503 3000301343 01880 JU TST06-5 5 JUMP IF FULL READ REFUTE01880
002510 7040005465 01890 TST04 CB2 44,5,X2 2 SHORT READ REFUTE01890
* 002515 1000444443 01891 JR RDER2,04043 REFUTE01891
002522 7040015465 01892 CB2 108,5,X2X2 REFUTE01892
* 002527 1000444443 01893 JR RDER2,04043 REFUTE01893
002534 5620005405 01910 TST05 BA1 44,5,X1 1 REFUTE01910
002541 5240005405 01920 SA1 44,5,X2 2 REFUTE01920
002546 5620015405 01930 BA1 108,5,X1X1 REFUTE01930
002553 5240015405 01940 SA1 108,5,X2X2 REFUTE01940
* 002560 3000301300 01950 J TST06-5 5 REFUTE01950
002565 5620004713 01960 STUB1 BA1 39,11,X1X1 REFUTE01960
002572 5240004713 01961 SA1 39,11,X2X2 REFUTE01961
002577 5620014713 01962 BA1 103,11,X,X1 REFUTE01962
002604 5240014713 01963 SA1 103,11,X,X2 REFUTE01963
002611 1400227704 01964 LC READ2+3,3,04 REFUTE01964
* 002616 3000251042 01965 JE TST04 JUMP IF SHORT READ REFUTE01965
* 002623 3000253400 01966 J TST05 FULL READ REFUTE01966
002630 2040014620 01967 STUB2 FT 102,16,X,X2 REFUTE01967
002635 2000005222 01968 FT 42,18 REFUTE01968
002642 2420014601 01969 TFR 102,,X1 1 REFUTE01969
002647 1400227704 01970 LC READ2+3,3,04 REFUTE01970
* 002654 3000277442 01971 JE TST09 REFUTE01971
002661 2640023700 01972 PD 159,16,X,X2 FULL READ REFUTE01972
* 002666 3000300600 01973 J TST09+1010 REFUTE01973
002673 2040006320 01974 STUB3 FT 51,16,X2X2 REFUTE01974
002700 2000002522 019740 FT 21,18 REFUTE019740
002705 2420006301 01975 TFR 51,,X1 REFUTE01975
002712 1400227704 01976 LC READ2+3,3,04 REFUTE01976
* 002717 3000314042 01977 JE TST6 JUMP IF SHORT READ REFUTE01977
* 002724 3000315200 01978 J TST6+10 0 FULL READ REFUTE01978
002731 4400330305 01990 TST1 SC LOOP3+4,4,5 SET UP 80-CHARACTER CHECK REFUTE01990
002736 1400227701 02000 LC READ2+3,3,01 REFUTE02000
* 002743 3000311442 02010 JE TST2 JUMP IF XLATE MODE REFUTE02010
002750 4400330312 02020 SC LOOP3+4,4,10 SET UP 160-CHARACTER CHECK REFUTE02020
* 002755 3000263063 02021 JC STUB2,5151 JUMP IF STUB CARD REFUTE02021
002762 1400227704 02030 LC READ2+3,3,04 REFUTE02030
* 002767 3000301343 02040 JU TST06-5 5 JUMP IF FULL READ REFUTE02040
002774 7040023760 02050 TST09 CB2 159,16,X,X2 SHORT READ REFUTE02050
* 003001 1000444443 02060 JR RDER2,04043 REFUTE02060
003006 4400330311 02070 SC LOOP3+4,4,9 SET UP 144-CHARACTER CHECK REFUTE02070
* 003013 1000324400 02080 JR TST4 REFUTE02080
003020 2100750045 02090 TST06 FT IMAGE,T3T37,X4 REFUTE02090
* 003025 3000320362 02100 JC TST3,50 0 JUMP IF 80 READER REFUTE02100
003032 1400227702 02110 LC READ2+3,3,02 REFUTE02110
* 003037 3000305143 02120 JU $+10 JUMP IF NOT ADV BASE ADDR REFUTE02120
003044 2100770045 02130 TST07 FT IMAGE+12128,T37,X4 REFUTE02130 X
003051 7400022345 02140 CT T36,T37 7 REFUTE02140
* 003056 1000412243 02150 JR BAERR,04043 REFUTE02150
003063 6000006101 02151 AC X4-2,1 REFUTE02151
003070 3400006100 02152 MAX CC X4-2,0 COMPARE ADDRESS FOR MAX REFUTE02152
* 003075 3000214741 02153 JG TST00 JUMP IF NOT OVER MAX REFUTE02153
003102 2600006101 02154 PD X4-2,1 REFUTE02154
* 003107 3000214700 02160 J TST00 REFUTE02160
003114 2000620311 02170 TST2 FT TTP,X1 REFUTE02170
* 003121 3000267363 021700 JC STUB3,5151 JUMP IF STUB CARD REFUTE021700
003126 1400227704 02171 LC READ2+3,3,04 REFUTE02171
* 003133 3000316443 02172 JU TST5 JUMP IF FULL READ REFUTE02172
003140 7040011770 02173 TST6 CB2 79,8,X2 2 SHORT READ REFUTE02173
* 003145 1000444443 02174 JR RDER2,04043 REFUTE02174
003152 5620011710 02175 BA1 79,8,X1 1 REFUTE02175
003157 5240011710 02176 SA1 79,8,X2 2 REFUTE02176
003164 7040013760 02180 TST5 CB2 95,16,X2X2 REFUTE02180
* 003171 1000444443 02190 JR RDER2,04043 REFUTE02190
* 003176 3000301300 02200 J TST06-5 5 REFUTE02200
003203 1400227701 02210 TST3 LC READ2+3,3,01 REFUTE02210
* 003210 3000303242 02220 JE TST06+1010 JUMP IF XLATE MODE REFUTE02220
003215 1400227702 02221 LC READ2+3,3,02 REFUTE02221
* 003222 3000305143 02222 JU TST07+5 5 JUMP IF NOT ADV BASE ADDRESS REFUTE02222
003227 2101000045 02230 FT IMAGE+19192,T37,X4 REFUTE02230 X
* 003234 3000305100 02240 J TST07+5 5 REFUTE02240
* 003241 3000324100 02250 TST4 J $ IMAGE)TEST PATTERN REFUTE02250
003246 5640001700 02260 BA1 15,16,X2X2 IMAGE REFUTE02260
003253 7020001740 02270 CB1 15,16,X1X1 TEST PATTERN REFUTE02270
* 003260 3000331143 02280 JU TST08 REFUTE02280
003265 6000004720 02290 AC X1,16 REFUTE02290
003272 6000005320 02300 AC X2,16 REFUTE02300
* 003277 3200324600 02310 LOOP3 JL TST4+5,0,0 LOOP 5,8,9, OR 10 TIMES REFUTE02310
* 003304 3000324100 02320 J TST4 REFUTE02320
003311 4400335320 02330 TST08 SC LOOP4+4,4,16 REFUTE02330
003316 5640000001 02340 BA1 0,1,X2 IMAGE REFUTE02340
003323 7020000041 02350 CB1 0,1,X1 TEST PATTERN REFUTE02350
* 003330 1000423043 02360 JR RDER1,3535 REFUTE02360
003335 6000004701 02370 AC X1,1 REFUTE02370
003342 6000005301 02371 AC X2,1 REFUTE02371
* 003347 3200331620 02372 LOOP4 JL TST08+5,5,16 REFUTE02372
* 003354 3000327700 02373 J LOOP3 REFUTE02373
* 003361 3000556151 02380 RIR JC LI,41 REFUTE02380
003366 5200547161 02390 SAR AR+31 REFUTE02390
003373 4020007777 02400 XF 0,07777,7,0,1 REFUTE02400
* 003400 3000342453 02410 JC RIERR,4343 REFUTE02410
* 003405 3000515300 02420 JC CPMT2,0 0 REFUTE02420
003412 4400556201 02430 SC IIND,1 SET INTERRUPT INDICATOR REFUTE02430
* 003417 3000041000 02440 J 0410 REFUTE02440
003424 2000002011 02450 RIERR FT 16,X1 READER INDICATORS SET REFUTE02450
003431 4400352414 02460 SC RIR2+4,1,12 REFUTE02460
003436 2600006703 02470 PD X5,3 REFUTE02470
003443 2600346501 02480 PD RIR1+3,1,1 REFUTE02480
003450 4400346601 02490 SC RIR1+4,1,1 REFUTE02490
003455 5600553402 02500 BA1 K01,2 REFUTE02500
003462 4020000000 02510 RIR1 XF 0,0,0,1 1 REFUTE02510
* 003467 3000363353 02520 JC RIR3,43 3 REFUTE02520
003474 4420603003 02530 SC EIND-3,3,3,X1 REFUTE02530
003501 2037777711 02540 FT -1,X1,X1X1 REFUTE02540
003506 1600346661 02550 BC2 RIR1+4,1,1 REFUTE02550
003513 1600001761 02560 BC2 15,1 REFUTE02560
* 003520 3200346214 02570 RIR2 JL RIR1,12 2 REFUTE02570
003525 2000601407 02580 FT EIND-15,5,7 REFUTE02580
003532 4400373235 02590 SC CCT+3,2929 REFUTE02590
* 003537 1000365500 02600 JR PRINT REFUTE02600
* 003544 3000556152 02610 JC LI,42 REFUTE02610
003551 5600545100 02620 BA1 AR+15,1616 REFUTE02620
003556 5600547120 02630 BA2 AR+31,1616 REFUTE02630
003563 4020407777 02640 XF 040,0777777,0,1 REFUTE02640
003570 4020007777 02641 XF 0,07777,7,0,1 REFUTE02641
* 003575 3000360753 02642 JC $+10,43 3 REFUTE02642
* 003602 3000361400 02650 J $+10 REFUTE02650
* 003607 3017777760 02651 JD E77 READER ABNORMAL STOP REFUTE02651
003614 3400524640 02652 CC CL2+14,0,040 REFUTE02652
* 003621 3000516542 02653 JE CPMT2+1010 JUMP IF CARD PER MINUTE TEST REFUTE02653
* 003626 3000214731 02654 JC TST00,03031 NEXT TEST REFUTE02654
003633 4420603004 02660 RIR3 SC EIND-3,4,4,X1 REFUTE02660
003640 7200006702 02670 AB1 X5,2 REFUTE02670
* 003645 3000350100 02680 J RIR1+15 5 REFUTE02680
* 003652 3000365200 02690 PRINT J $ REFUTE02690
* 003657 3000366471 02700 JC $+5,57 REFUTE02700
* 003664 3000000140 02701 JC 1,040 REFUTE02701
* 003671 3000401171 02702 JC STOP1,5757 IF SET, DO NOT PRINT REFUTE02702
003676 5200373723 02710 SA2 MSG+3,3 3 REFUTE02710
003703 2600140001 02720 PD PAREA,1 1 REFUTE02720
003710 2000140120 02721 FT PAREA+1,1,16 REFUTE02721
003715 2000006522 02722 FT 53,18 REFUTE02722
003722 2400140001 02723 TFR PAREA REFUTE02723
003727 2000000022 02730 CCT FT 0,18 REFUTE02730
003734 2400000001 02740 MSG TFR 0 REFUTE02740
003741 5600227702 02750 BA1 READ2+3,3,2 REFUTE02750
003746 4400473102 02760 SC LOOP1+4,4,2 REFUTE02760
* 003753 1000463400 02770 JR OTOD REFUTE02770
003760 5200147704 02780 SA1 INSTR,4 4 REFUTE02780
003765 2000140040 02790 FT PAREA,3232 REFUTE02790
003772 2000000241 02800 FT 2,33 REFUTE02800
003777 4000620400 02810 XF 062,0040400,0,0 REFUTE02810
* 004004 3000401171 02840 JC $+5,57 REFUTE02840
* 004011 3000000240 02850 STOP1 JC 2,040 REFUTE02850
* 004016 3000403571 02860 JC STOP,57 7 IF SET, STOP REFUTE02860
004023 4400401563 02861 SC STOP1+4,4,51 REFUTE02861
* 004030 3000365200 02870 J PRINT REFUTE02870
* 004035 3120000060 02880 STOP JD 0,X5 ERROR DISPLAY STOP REFUTE02880
* 004042 3000365200 02890 JC PRINT,0 0 REFUTE02890
004047 2600404601 02900 PD $-1,1 REFUTE02900
* 004054 3000000060 02910 CHARS JD 0 CHARACTER READ)EXPECTED REFUTE02910
* 004061 3000000060 02920 CHRNO JD 0 CHARACTER NUMBER REFUTE02920
* 004066 3000365200 02930 J PRINT REFUTE02930
* 004073 3017771360 02940 PRTI JD E13 REFUTE02940
004100 4000407777 02950 XF 040,0777777,0,0 REFUTE02950
004105 4000620400 02960 XF 062,0040400,0,0 REFUTE02960
* 004112 3000040000 02970 J 0400 REFUTE02970
* 004117 3000411700 02980 BAERR J $ BASE ADDRESS ERROR REFUTE02980
004124 2017771015 02990 FT E10,X5 REFUTE02990
004131 5600022303 03000 BA1 T36,3 REFUTE03000
004136 4400473103 03010 SC LOOP1+4,4,3 REFUTE03010
* 004143 1000463400 03020 JR OTOD REFUTE03020
004150 5200571206 03030 SA1 BAMSG,6 6 REFUTE03030
004155 5600022703 03040 BA1 T37,3 REFUTE03040
004162 4400473103 03050 SC LOOP1+4,4,3 REFUTE03050
* 004167 1000463400 03060 JR OTOD REFUTE03060
004174 5200573206 03070 SA1 BAMSG+1616,6 REFUTE03070
004201 2000567307 03080 FT BAMSG-1515,7 REFUTE03080
004206 4400373240 03090 SC CCT+3,3232 REFUTE03090
* 004213 1000365500 03100 JR PRINT REFUTE03100
* 004220 3000411700 03110 J BAERR REFUTE03110
* 004225 3000422500 03120 RDER1 J $ READ ERROR REFUTE03120
004232 4400404640 03130 SC STOP+9,0,040 REFUTE03130
004237 2017770615 03140 FT E06,X5 REFUTE03140
004244 2600001702 03150 PD 017,2 REFUTE03150
004251 5640000001 03160 BA1 0,1,X2 REFUTE03160
004256 5200405601 03170 SA1 CHARS+2,2,1 REFUTE03170
* 004263 1000463400 03200 JR OTOD REFUTE03200
004270 5200576302 03210 SA1 REMSG+1212,2 CHARACTER READ REFUTE03210
004275 5620000001 03220 BA1 0,1,X1 REFUTE03220
004302 5200405701 03230 SA1 CHARS+3,3,1 REFUTE03230
* 004307 1000463400 03260 JR OTOD REFUTE03260
004314 5200577702 03270 SA1 REMSG+2424,2 CHARACTER EXPECTED REFUTE03270
004321 5600005302 03280 BA1 X2,2 REFUTE03280
004326 6000001701 03290 AC 15,1 REFUTE03290
004333 2100750007 03291 FT IMAGE,7,7,X4 REFUTE03291
004340 7200001762 03292 SB2 017,2 REFUTE03292
004345 4400505102 03300 SC BIDE3+4,4,2 REFUTE03300
* 004352 1000474200 03310 JR BIDE REFUTE03310
* 004357 3000440366 033100 JC $+20,54 4 JUMP IF 80-READER REFUTE033100
004364 2600555063 03311 CD2 D46,3 REFUTE03311
* 004371 3000440344 03312 JS $+10 REFUTE03312
004376 6600554563 03313 SD2 D19,3 REFUTE03313
004403 5200601323 03320 SA2 REMSG+3636,3 CHARACTER NUMBER REFUTE03320
004410 5200406423 03330 SA2 CHRNO+3,3,3 REFUTE03330
004415 2000573307 03340 FT REMSG-1212,7 REFUTE03340
004422 4400373261 03350 SC CCT+3,4949 REFUTE03350
* 004427 1000365500 03360 JR PRINT REFUTE03360
* 004434 3000422500 03370 J RDER1 REFUTE03370
* 004441 3000444100 03371 RDER2 J $ READ TOO MANY COLUMNS REFUTE03371
004446 2017770715 03372 FT E07,X5 REFUTE03372
004453 2000611107 03373 FT RDXS-15,5,7 REFUTE03373
004460 4400373220 03374 SC CCT+3,1616 REFUTE03374
* 004465 1000365500 03375 JR PRINT REFUTE03375
* 004472 3000444100 03376 J RDER2 REFUTE03376
* 004477 3000447700 03380 IERR1 J $ INTERRUPT DID NOT OCCUR REFUTE03380
004504 2017770415 03390 FT E04,X5 REFUTE03390
004511 2000561107 03400 FT IMSG1-1515,7 REFUTE03400
004516 4400373227 03410 SC CCT+3,2323 REFUTE03410
* 004523 1000365500 03420 JR PRINT REFUTE03420
* 004530 3000447700 03430 J IERR1 REFUTE03430
* 004535 3000453500 03440 IERR2 J $ INTERRUPT WAS NOT INHIBITED REFUTE03440
004542 2017770515 03450 FT E05,X5 REFUTE03450
004547 2000564007 03460 FT IMSG2-1515,7 REFUTE03460
004554 4400373233 03470 SC CCT+3,2727 REFUTE03470
* 004561 1000365500 03480 JR PRINT REFUTE03480
* 004566 3000453500 03490 J IERR2 REFUTE03490
* 004573 3000457300 03500 LOERR J $ LOCKOUT DID NOT OCCUR REFUTE03500
004600 2017770315 03510 FT E03,X5 REFUTE03510
004605 2000556407 03520 FT LOMSG-1515,7 REFUTE03520
004612 4400373225 03530 SC CCT+3,2121 REFUTE03530
* 004617 1000365500 03540 JR PRINT REFUTE03540
* 004624 3000457300 03550 J LOERR REFUTE03550
* 004631 3000463100 03560 OTOD J $ OCTAL TO DECIMAL CONVERSION REFUTE03560
004636 2600007707 03570 PD X7,7 REFUTE03570
004643 5200556003 03580 SA1 OCTAL,3 3 REFUTE03580
004650 5740556021 03590 OTOD1 BA2 OCTAL,1,1,X6 REFUTE03590
004655 5360001721 03600 SA2 017,1,X7X7 REFUTE03600
004662 2760001601 03610 PD 016,1,X7X7 REFUTE03610
004667 1760001723 03620 BS2 017,3,X7X7 REFUTE03620
004674 1760001753 03630 BC1 017,3,X7X7 REFUTE03630
004701 6160001703 03640 AC 017,3,X7X7 REFUTE03640
004706 6160001603 03650 AC 016,3,X7X7 REFUTE03650
004713 2157777716 03660 FT -1,X6,X6X6 REFUTE03660
004720 2177777617 03670 FT -2,X7,X7X7 REFUTE03670
* 004725 3200465000 03680 LOOP1 JL OTOD1,0 0 REFUTE03680
* 004732 3000463100 03690 J OTOD REFUTE03690
* 004737 3000473700 03700 BIDE J $ BINARY TO DECIMAL CONVERSION REFUTE03700
004744 2600547524 03710 PD0 DEC,4 REFUTE03710
004751 2600003623 03720 PD0 30,3 REFUTE03720
004756 4400003704 03730 SC 31,4 REFUTE03730
004763 2600007303 03740 PD X6,3 REFUTE03740
004770 4400500601 03750 SC BIDE1+4,4,1 REFUTE03750
004775 4400503706 03760 SC BIDE2+4,4,6 REFUTE03760
005002 1540001701 03770 BIDE1 LC 017,1,X6X6 REFUTE03770
* 005007 3000502143 03780 JU $+10 REFUTE03780
005014 6200547524 03790 AM2 DEC,4 REFUTE03790
005021 6600003724 03800 AD2 31,4 REFUTE03800
005026 1600500651 03810 BC1 BIDE1+4,4,1 REFUTE03810
* 005033 3200500206 03820 BIDE2 JL BIDE1,6 6 REFUTE03820
005040 2157777716 03830 FT -1,X6,X6X6 REFUTE03830
* 005045 3200477000 03840 BIDE3 JL BIDE1-1010,0 REFUTE03840
005052 5600547564 03850 BD2 DEC,4 REFUTE03850
* 005057 3000473700 03860 J BIDE REFUTE03860
005064 2600341101 03870 CPMT PD RIR+24,1,1 CARD PER MINUTE TEST REFUTE03870
005071 4400524640 03890 SC CL2+14,0,040 REFUTE03890
005076 4400514404 03940 CPMT3 SC READ+3,4,4 SET UP SHORT READ REFUTE03940
005103 2600556301 03950 PD RBSY,1 REFUTE03950
005110 2100750044 03960 FT IMAGE,3636,X4 REFUTE03960
005115 2600550124 03970 PD0 CARDS,4 4 REFUTE03970
005122 3400556301 04100 CC RBSY,1 CHECK READER BUSY REFUTE04100
* 005127 3000512242 04110 JE $-5 REFUTE04110
005134 4400556301 04120 SC RBSY,1 SET READER BUSY REFUTE04120
005141 4020010000 04130 READ XF 01,0,0,1,1 REFUTE04130
* 005146 3000512200 04140 J READ-15 5 REFUTE04140
005153 5600554204 04150 CPMT2 BA1 D01,4 REFUTE04150
005160 6200550104 04151 AM1 CARDS,4 4 INCREMENT CARD COUNTER REFUTE04151
005165 2600556301 04160 PD RBSY,1 RESET READER BUSY IND REFUTE04160
* 005172 3000041000 04170 J 0410 REFUTE04170
* 005177 3000521640 04180 CL1 JC $+15,04040 SKIP 1ST TIME ONLY REFUTE04180
005204 2600520301 04181 PD $-1,1 REFUTE04181
* 005211 3000160636 04182 JC LOOP5+5,5,036 REFUTE04182
* 005216 3017771160 04183 JD E11 PARITY ERROR STOP REFUTE04183
* 005223 3000150036 04190 JC START,3030 REFUTE04190
* 005230 3000524254 04200 CL2 JC $+10,44 4 REFUTE04200
* 005235 3017771260 04210 JD E12 DECIMAL OVERFLOW REFUTE04210
* 005242 3000540100 04220 JC EXIT,0 JUMP IF NOT ON CPMT REFUTE04220
005247 5600550104 04250 BA1 CARDS,4 4 REFUTE04250
005254 5200611004 04260 SA1 RDSPD+1616,4 REFUTE04260
005261 5600613505 04270 BA1 SHORT,5 5 REFUTE04270
005266 1400514404 04280 LC READ+3,0,04 REFUTE04280
* 005273 3000530542 04290 JE $+10 JUMP IF SHORT READ REFUTE04290
005300 5600614205 04300 BA1 FULL,5 REFUTE04300
005305 5200606705 04310 SA1 RDSPD-1,1,5 REFUTE04310
005312 2000605107 04320 FT RDSPD-1515,7 REFUTE04320
005317 4400373240 04330 SC CCT+3,3232 REFUTE04330
005324 5600514402 04331 BA1 READ+3,2,2 REFUTE04331
005331 5200227702 04332 SA1 READ2+3,3,2 REFUTE04332
* 005336 1000365500 04340 JR PRINT REFUTE04340
005343 2000510303 04350 FT CPMT3+5,5,3 REFUTE04350
005350 1400514404 04360 LC READ+3,0,04 REFUTE04360
005355 2600514401 04370 PD READ+3,1,1 REFUTE04370
* 005362 3000537442 04380 JE $+10 JUMP IF SHORT READ REFUTE04380
005367 2000507603 04381 FT CPMT3,3 3 REFUTE04381
* 005374 3000540664 04382 JC $+10,52 2 REPEAT TEST IF SS3 SET REFUTE04382
005401 2000150003 04390 EXIT FT START,3 3 REFUTE04390
005406 5200051303 04400 SA1 0513,3 REFUTE04400
005413 4020407777 04410 XF 040,0777777,0,1 REFUTE04410
* 005420 3000542531 04420 JC $+5,25 REFUTE04420
* 005425 3000051016 04430 JC 0510,14 4 REFUTE04430
005432 40 04440 AR AREA 32 REFUTE04440
005475 00000000 04460 DEC +4 0 REFUTE04460
005501 0000 04470 CARDS +4 _0000_ REFUTE04470
005505 77777777 04480 ONES +4 07777777777 REFUTE04480
005513 999999 04490 SUBTR +6 _999999_9_ SUBTRACTOR REFUTE04490
005523 18365472 04510 RDM1 +8 _1836547472_ REFUTE04510
005530 0000000000 04520 RDM2 +5 0 REFUTE04520
005532 0077 04540 K77 +2 077 REFUTE04540
005534 0001 04550 K01 +2 1 REFUTE04550
005536 2060 04560 K02 +2 1072 REFUTE04560
005542 0001 04570 D01 +4 _0001_ REFUTE04570
005545 019 04591 D19 +3 _019_ REFUTE04591
005550 046 04592 D46 +3 _046_ REFUTE04592
005560 0000000000000000 04670 OCTAL +8 0 REFUTE04670
005561 00 04680 LI +1 0 LOGICAL INDICATORS STORAGE REFUTE04680
005562 00 04690 IIND +1 0 INTERRUPT INDICATOR REFUTE04690
005563 00 04700 RBSY +1 0 READER BUSY INDICATOR REFUTE04700
005603 LOCKOUT DID NOT 04710 LOMSG +16 _LOCKOUTUT DID NOT _ REFUTE04710 O
005610 OCCUR 04720 +5 _OCCUR_ _ REFUTE04720
005630 INTERRUPT DID NO 04730 IMSG1 +16 _INTERRURUPT DID NO_ REFUTE04730
005637 T OCCUR 04740 +7 _T OCCURUR_ REFUTE04740
005657 INTERRUPT WAS NO 04760 IMSG2 +16 _INTERRURUPT WAS NO_ REFUTE04760
005672 T INHIBITED 04770 +11 _T INHIBIBITED_ REFUTE04770
005712 BASE ADDR) 04780 BAMSG +16 _BASE ADADDR) _ REFUTE04780
005732 EXPECTED) 04790 +16 _ EXPECTCTED) _ REFUTE04790
005747 RDR COMP ERR) 04800 REMSG +13 _RDR COMOMP ERR)_ REFUTE04800 _
005764 CHAR READ) 04810 +13 _CHAR REREAD) _ REFUTE04810 _
006000 EXPECTED) 04820 +12 _EXPECTETED) _ REFUTE04820
006013 CHAR NO) 04830 +11 _CHAR NONO) _ REFUTE04830
006033 ERROR INDICATORS 04840 EIND +16 _ERROR I INDICATORS_ REFUTE04840 O
006050 ) 04850 +13 _) _ REFUTE04850 _
006070 NUMBER OF 04910 RDSPD +16 _NUMBER R OF _ REFUTE04910
006110 CARDS READ) 04920 +16 _CARDS R READ) _ REFUTE04920
006130 READ EXCESS COLS 04921 RDXS +16 _READ EXEXCESS COLS_ REFUTE04921 O
006135 SHORT 04922 SHORT +5 _SHORT_ _ SHORT CARD REFUTE04922
006142 FULL 04923 FULL +5 _ FULL_ _ FULL CARD REFUTE04923
* 006143 3000000031 04930 JC 0,25 REFUTE04930
006152 004073 04940 CH0IE +3 PRTI REFUTE04940
* 006153 3000000031 04950 JC 0,25 REFUTE04950
006162 003361 04960 CH1IE +3 RIR REFUTE04960
* 006163 3000000036 04970 JC 0,30 REFUTE04970
006172 005177 04980 CL1IE +3 CL1 REFUTE04980
* 006173 3000000035 04990 JC 0,29 REFUTE04990
006202 005230 05000 CL2IE +3 CL2 REFUTE05000
000047 05010 X1 EQU 047 REFUTE05010
000053 05020 X2 EQU X1+4 REFUTE05020
000057 05030 X3 EQU X2+4 REFUTE05030
000063 05040 X4 EQU X3+4 REFUTE05040
000067 05050 X5 EQU X4+4 REFUTE05050
000073 05060 X6 EQU X5+4 REFUTE05060
000077 05070 X7 EQU X6+4 REFUTE05070
000223 05080 T36 EQU 0223 REFUTE05080
000227 05090 T37 EQU T36+4 REFUTE05090
006203 05190 TTP EQU $ TRANSLATED TEST PATTERN REFUTE05190
006212 0024252627303132 05200 +8 0002425252627303132 ABCDEFG REFUTE05200 1
006222 3334444546475051 05210 +8 0333444444546475051 HIJKLMNO REFUTE05210 0
006232 5253546566677071 05220 +8 0525354646566677071 PQRSTUVW REFUTE05220 0
006242 7273740304050607 05230 +8 0727374040304050607 XYZ01234 REFUTE05230 6
006252 1011121314200223 05240 +8 0101112121314200223 56789+-@ REFUTE05240 2
006262 4377633556217640 05250 +8 0437763333556217640 ��'=_)�� REFUTE05250 6
006272 2275173637424101 05260 +8 0227517373637424101 .�>�$*& 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&�W�5 �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&�W�5 �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&�W�5 �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 --}