000001 C011 MERET CODEDIT SOURCE 06/67 -C G T3834394-0116
004100 00010 T010 BEGIN 04100 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 004100 3007010660 * JD 070106 *
* 004105 3000410000 * J $-5 *
SEGMENT-ID T011 3000410000 * 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 T012 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 T013 3000136300 * SEGJP $ *
004100 00020 ORIG 2112 MERET 00020
004100 5600761403 00030 ONE BA1 AFIN1,3 3 MERET 00030
004105 5200502403 00040 SA1 OUT+3,3 3 MERET 00040
* 004112 3000427000 00050 JC RZC,0 MERET 00050
004117 5600761703 00060 TWO BA1 AFIN2,3 3 MERET 00060
004124 5200502403 00070 SA1 OUT+3,3 3 MERET 00070
* 004131 3000427000 00080 JC RZC,0 MERET 00080
004136 5600762203 00090 THREE BA1 AFIN3,3 3 MERET 00090
004143 5200502403 00100 SA1 OUT+3,3 3 MERET 00100
* 004150 3000427000 00110 JC RZC,0 MERET 00110
004155 5600762503 00120 FOUR BA1 AFIN4,3 3 MERET 00120
004162 5200502403 00130 SA1 OUT+3,3 3 MERET 00130
* 004167 3000427000 00140 JC RZC,0 MERET 00140
004174 5600763003 00150 FIVE BA1 AFIN5,3 3 MERET 00150
004201 5200502403 00160 SA1 OUT+3,3 3 MERET 00160
* 004206 3000427000 00170 JC RZC,0 MERET 00170
004213 5600763303 00180 SIZ BA1 AFIN6,3 3 MERET 00180
004220 5200502403 00190 SA1 OUT+3,3 3 MERET 00190
* 004225 3000427000 00200 JC RZC,0 MERET 00200
004232 5600763603 00210 SEVEN BA1 AFIN7,3 3 MERET 00210
004237 5200502403 00220 SA1 OUT+3,3 3 MERET 00220
* 004244 3000427000 00230 JC RZC,0 MERET 00230
004251 5600764103 00240 EIGHT BA1 AFIN8,3 3 MERET 00240
004256 5200502403 00250 SA1 OUT+3,3 3 MERET 00250
* 004263 3000427000 00260 JC RZC,0 MERET 00260
004270 5600764403 00270 RZC BA1 P1LOC,3 3 MERET 00270
* 004275 3000430225 00280 JC RSI2,21 1 RESET INDS 1,2,3 MERET 00280 I
* 004302 3000430726 00290 RSI2 JC RSI3,22 2 MERET 00290
* 004307 3000431427 00300 RSI3 JC RSI3+5,2,23 MERET 00300
004314 5200471603 00310 SA1 SS3+3,3 3 MERET 00310
* 004321 3000433364 00320 JC SWHJL,5252 CHANGE PATI IF SS3 MERET 00320 E
* 004326 3000444600 00330 JC CHGP2+1010,0 MERET 00330
* 004333 3200436402 00340 SWHJL JL SWTCH,2 2 MERET 00340
004340 4400433702 00350 SC SWHJL+4,4,2 MERET 00350
004345 4400442103 00360 SC CHGP1+4,4,3 MERET 00360
004352 4400444050 00370 SC CHGP2+4,4,050 MERET 00370
* 004357 3000441000 00380 JC CHANG,0 0 MERET 00380
004364 4400442150 00390 SWTCH SC CHGP1+4,4,050 MERET 00390
004371 4400444003 00400 SC CHGP2+4,4,3 MERET 00400
004376 4400001600 00410 SC 14,0 MERET 00410
004403 4400003600 00420 SC 30,0 MERET 00420
004410 5600756501 00430 CHANG BA1 P1,1 MERET 00430
004415 6000001700 00440 CHGP1 AC 15,0 MERET 00440
004422 5200455301 00450 SA1 SS1+4,1 1 MERET 00450
004427 5600760521 00460 BA2 P2,1 MERET 00460
004434 6000003700 00470 CHGP2 AC 31,0 MERET 00470
004441 5200456521 00480 SA2 SS2+4,1 1 MERET 00480
004446 4400473102 00490 SC KK+4,2 S SET JL OF REPEAT 2ND PASS MERET 00490 O
004453 4400454102 00500 SC FRSTP+4,4,2 DITTO FIRSTP MERET 00500 O
004460 5600764703 00510 CLEAR BA1 CCLOC,3 3 MERET 00510
004465 5200457103 00520 SA1 AA+3,3 MERET 00520
004472 4400460402 00530 SC BB+4,2 MERET 00530
004477 4400470577 00540 SC HSIZ4+4,4,63 MERET 00540
004504 4400471202 00550 SC H0H3+4,2,2 MERET 00550
004511 5600761103 00560 BA1 ZERO3,3 3 MERET 00560
004516 5200461003 00570 SA1 CC+3,3 MERET 00570
004523 5200461503 00580 SA1 DD+3,3 MERET 00580
004530 5200503103 00590 SA1 EE+3,3 MERET 00590
* 004535 3200454702 00600 FRSTP JL SS1,2 MERET 00600
* 004542 3000456100 00610 JC SS2,0 MERET 00610
004547 4400457200 00620 SS1 SC AA+4,0 MERET 00620
* 004554 3000456600 00630 JC AA,0 MERET 00630
004561 4400457277 00640 SS2 SC AA+4,63 3 MERET 00640
004566 4400461100 00650 AA SC CC+4,0 MERET 00650
004573 6000457105 00660 AC AA+3,5 MERET 00660
* 004600 3200456602 00670 BB JL AA,2 MERET 00670
004605 4400000000 00680 CC SC 0,0 MERET 00680
004612 3400000000 00690 DD CC 0,0 MERET 00690
* 004617 3000502643 00700 JC EE,35 MERET 00700
* 004624 3000465064 00710 JC FI1Z4,5252 CONT IF $S3 MERET 00710 I
* 004631 3000464362 00720 JC JACK,50 0 IF SS1 TEST 2 MERET 00720
* 004636 3000465000 00730 JC FI1Z4,0 0 MERET 00730
* 004643 3000461263 00740 JACK JC DD,51 SSSS1 AND 2, REPEAT MERET 00740 2
* 004650 3200461277 00750 FI1Z4 JL DD,63 MERET 00750
004655 6000461001 00760 GG AC CC+3,1 MERET 00760
004662 6000461501 00770 AC DD+3,1 MERET 00770
004667 6000503101 00780 AC EE+3,1 MERET 00780
004674 4400465477 00790 SC FI1Z4+4,4,63 MERET 00790
* 004701 3200460500 00800 HSIZ4 JL CC,0 MERET 00800
* 004706 3200460502 00810 H0H3 JL CC,2 MERET 00810
004713 5200756500 00820 SS3 SA1 P1,16 00820
004720 6000471620 00830 AC SS3+3,1616 MERET 00830
* 004725 3200446002 00840 KK JL CLEAR,2 2 MERET 00840
004732 4400473102 00850 SC KK+4,2 MERET 00850
004737 2600004704 00860 PD 39, 4, MERET 00860
* 004744 1000735400 00870 JR SWTST,0 0 MERET 00870
* 004751 3000476300 00880 JC INTMT,0 0 MERET 00880
* 004756 3000427000 00890 JC RZC,0 MERET 00890
* 004763 3000477000 00900 INTMT JC INTMT+5,5,0 MERET 00900
* 004770 3000477500 00910 MACK JC MACK+5,0,0 MERET 00910
004775 2600007700 00920 PD 63, 16 , , MERET 00920
005002 2600005714 00930 PD 47, 12 , , MERET 00930
005007 2001000013 00940 FT 010000,1,11 MERET 00940
005014 2000610117 00950 FT MVTS2,1515 MERET 00950
* 005021 3000000000 00960 OUT JC 0,0 MERET 00960
* 005026 3000000060 00970 EE JC 0,48 MERET 00970
* 005033 3000465564 00980 JC GG,52 MERET 00980
* 005040 3000505262 00990 JC PACK,50 0 TEST IF SS1 AND 2 MERET 00990 F
* 005045 3000465500 01000 JC GG,0 MERET 01000
* 005052 3000460563 01010 PACK JC CC,51 REREPEAT CHARC IN ERROR MERET 01010 H
* 005057 3000465500 01020 JC GG,0 MERET 01020
005064 2000010013 01030 ONEST FT 0100,11 1 MERET 01030
005071 2000407714 01040 FT 04077,1212 MERET 01040
005076 2000642317 01050 FT MVTL1,1515 MERET 01050
* 005103 3000523000 01060 JC MAINE,0 0 MERET 01060
005110 2001777714 01070 TWOST FT 017777,1,12 MERET 01070
* 005115 3000523000 01080 JC MAINE,0 0 MERET 01080
005122 2002777714 01090 TREST FT 027777,1,12 MERET 01090
* 005127 3000523000 01100 JC MAINE,0 0 MERET 01100
005134 2003777714 01110 FORST FT 037777,1,12 MERET 01110
* 005141 3000523000 01120 JC MAINE,0 0 MERET 01120
005146 2004777714 01130 FIVST FT 047777,1,12 MERET 01130
* 005153 3000523000 01140 JC MAINE,0 0 MERET 01140
005160 2005777714 01150 SIZST FT 057777,1,12 MERET 01150
* 005165 3000523000 01160 JC MAINE,0 0 MERET 01160
005172 2006777714 01170 SVNST FT 067777,1,12 MERET 01170
* 005177 3000523000 01180 JC MAINE,0 0 MERET 01180
005204 2007777714 01190 ETST FT 077777,1,12 MERET 01190
* 005211 3000523000 01200 JC MAINE,0 0 MERET 01200
005216 2001777714 01210 ROPTH FT 017777,1,12 IF BKPT 2,OR SET MANUALY MERET 01210 K
005223 2001000013 01220 MANSA FT 010000,1,11 RETURN HERE FOR REPEAT MERET 01220 R
005230 5600006323 01230 MAINE BA2 51,3 MERET 01230
005235 5220522123 01240 SA2 ROPTH+3,3,3,1 MERET 01240
005242 3400004500 01250 CC 045,0 SESET INDS ACCORDING TO MERET 01250
* 005247 3020531242 01260 JC SETID,3434,1 CONTENTS OF IR1 MERET 01260 T
005254 3400004501 01270 CC 045,1 MERET 01270
* 005261 3020533142 01280 JC FLASH,3434,1 MERET 01280
005266 3400004507 01290 CC 045,07 MERET 01290
* 005273 3020535042 01300 JC FLICK,3434,1 MERET 01300
* 005300 3020530520 01310 JC IR1ER,1616,1 MERET 01310
* 005305 1020735400 01320 IR1ER JR SWTST,0,0,1 MERET 01320
* 005312 3020531722 01330 SETID JC SETID+5,5,18,1 INDS 001 MERET 01330 N
* 005317 3020532426 01340 JC OHOUT,2222,1 MERET 01340
* 005324 3020536727 01350 OHOUT JC SETMA,2323,1 MERET 01350
* 005331 3020533622 01360 FLASH JC FLASH+5,5,18,1 INDS 011 MERET 01360 N
* 005336 3020534323 01370 JC FLASH+1010,19,1 MERET 01370
* 005343 3020536727 01380 JC SETMA,2323,1 MERET 01380
* 005350 3020535525 01390 FLICK JC FLICK+5,5,21,1 INDS 110 MERET 01390 N
* 005355 3020536223 01400 JC FLICK+1010,19,1 MERET 01400
* 005362 3020536724 01410 JC SETMA,2020,1 MERET 01410
005367 5600005723 01420 SETMA BA2 47,3 MERET 01420
005374 5220522623 01430 SA2 MANSA+3,3,3,1 MERET 01430
005401 5200005323 01440 SA2 43,3 MERET 01440
005406 5200006723 01450 SA2 55,3 MERET 01450
005413 2040001712 01460 FT 15,10,2 2 MERET 01460
005420 4420561400 01470 SC CIN1+4,0,0,1 MERET 01470
005425 5620756500 01480 BRGP1 BA1 P1,16,1 1 B RING PATTERN 1 MERET 01480
005432 5620760521 01490 BA2 P2,1,1 MERET 01490
005437 5220577201 01500 SELC SA1 COMPC+4,4,1,1 S ET ERROR LOOP CONSTS MERET 01500 E
005444 5220603501 01510 SA1 STORC+4,4,1,1 MERET 01510
005451 5220604201 01520 SA1 LCMPC+4,4,1,1 MERET 01520
* 005456 3020547064 01530 JC VLPCT,5252,1 VARY LOOP CNT IF SS3 MERET 01530 Y
* 005463 3020547500 01540 JC SLPCT,0,0,1 MERET 01540
005470 5220550121 01550 VLPCT SA2 SLPCT+4,4,1,1 MERET 01550
005475 4420552577 01560 SLPCT SC LPCT+4,6,63,1 SET LOOP COUNTER MERET 01560 T
005502 5240000000 01570 MLS SA1 0,16,2 M MA IN LOOP STORE MERET 01570 O
005507 7040000040 01580 MLPRT CB1 0,16,2 M MA IN LOOP RETENTION TEST MERET 01580 O
* 005514 3020571143 01590 JC ELFA,35,5,1 UNEQUAL, GO FIND ADDRESS MERET 01590 U
* 005521 3220550700 01600 LPCT JL MLPRT,0,0,1 DECREMT LOOP COUNTER MERET 01600 E
* 005526 1020735400 01610 JR SWTST,0,0,1 MERET 01610
* 005533 3020555700 01620 JC CFLA,0,1,1 MERET 01620
* 005540 3020555700 01630 JC CFLA,0,1,1 MERET 01630
* 005545 3020567700 01640 JC MOPRO,0,0,1 MERET 01640
* 005552 3020550700 01650 JC MLPRT,0,0,1 MERET 01650
005557 7400005314 01660 CFLA CT 43,12 MERET 01660
* 005564 3020561042 01670 JC CIN1,34,4,1 IS LAST ADDR GO CHECK IND1 MERET 01670 A
005571 6000005320 01680 AC 43,16 MERET 01680
005576 6000005720 01690 AC 47,16 MERET 01690
* 005603 3020547500 01700 JC SLPCT,0,0,1 MERET 01700
* 005610 3220566000 01710 CIN1 JL IND1S,0,0,1 MERET 01710
005615 5620760500 01720 BA1 P2,16,1 1 B RING PATTERN 2 MERET 01720
005622 4200005315 01730 ST 43,13 RERESET IRS MERET 01730 S
005627 4200005715 01740 ST 47,13 MERET 01740
005634 2040001712 01750 FT 15,10,2 2 MERET 01750
005641 5620756521 01760 BA2 P1,1,1 MERET 01760
005646 4420561402 01770 SC CIN1+4,2,2,1 MERET 01770
* 005653 3020543700 01780 JC SELC,0,1,1 MERET 01780
* 005660 1020735400 01790 IND1S JR SWTST,0,0,1 MERET 01790
* 005665 3020567700 01800 JC MOPRO,0,0,1 MERET 01800
* 005672 3020521600 01810 JC ROPTH,0,0,1 MERET 01810
* 005677 3160000000 01820 MOPRO JC 0,0,7 GOGO MOVE PROG MERET 01820 P
* 005704 3020567700 01830 JC MOPRO,0,0,1 MERET 01830
005711 4200007313 01840 ELFA ST 59,11 ERERROR LOOP FIND ADDRESS MERET 01840 O
005716 4420601120 01850 SC ERLP+4,1,16,1 MERET 01850
* 005723 3020576600 01860 JC COMPC,0,0,1 MERET 01860
* 005730 3140000060 01870 FCIE JC 0,48,6 F FOUND CHARACTER IN ERROR MERET 01870 H
* 005735 1020735400 01880 JR SWTST,0,0,1 MERET 01880
* 005742 3020555700 01890 JC CFLA,0,1,1 MERET 01890
* 005747 3020555700 01900 JC CFLA,0,1,1 MERET 01900
* 005754 3020567700 01910 JC MOPRO,0,0,1 MERET 01910
* 005761 3020603100 01920 JC STORC,0,0,1 MERET 01920
005766 3540000000 01930 COMPC CC 0,0,6 MERET 01930
* 005773 3020573043 01940 JC FCIE,35,5,1 MERET 01940
006000 2140000116 01950 FT 1,14,6 MERET 01950
* 006005 3220576620 01960 ERLP JL COMPC,1616,1 MERET 01960
006012 5640000020 01970 BA2 0,16,2 MERET 01970
* 006017 3007777760 01980 NOTFD JC 077777,4,48 CHAR NOT FOUND SEE AREGS MERET 01980
* 006024 3020555700 01990 JC CFLA,0,1,1 RETURN TO MAIN LOOP TEST MERET 01990 R
006031 4540000000 02000 STORC SC 0,0,6 RERESTORE CHAR THAT ERRORED AND, MERET 02000 C
006036 3540000000 02010 LCMPC CC 0,0,6 TETEST FOR RETENTION MERET 02010
* 006043 3020573043 02020 JC FCIE,35,5,1 IF UNEQL,GO DO DISPLY STOP MERET 02020 N
* 006050 1020735400 02030 JR SWTST,0,0,1 MERET 02030
* 006055 3020555700 02040 JC CFLA,0,1,1 MERET 02040
* 006062 3020555700 02050 JC CFLA,0,1,1 MERET 02050
* 006067 3020567700 02060 JC MOPRO,0,0,1 MERET 02060
* 006074 3020603600 02070 JC LCMPC,0,0,1 MERET 02070
006101 2000411714 02080 MVTS2 FT 04117,1212 BEGIN MOVE TO STACK 2 MERET 02080
* 006106 3020611325 02090 DON JC DON+5,2121,1 INDS 010 MERET 02090 S
* 006113 3020612023 02100 JC DON+10,1,19,1 MERET 02100
* 006120 3020612527 02110 JC DON+15,2,23,1 MERET 02110
006125 2001411715 02120 FT 014117,1,13 MERET 02120
006132 2001777716 02130 FT 017777,1,14 MERET 02130
006137 5700000020 02140 CMT2 BA2 0,16,4 C CO NTINUE MOVE TO STACK 2 MERET 02140 U
006144 5320000020 02150 SA2 0,16,5 MERET 02150
006151 7400007315 02160 CT 59,13 MERET 02160
* 006156 3020620242 02170 JC INFT1,3434,1 MOVE COMPLETED GO INIT MERET 02170 E
006163 2100002014 02180 FT 16,12,4 4 MERET 02180
006170 2120002015 02190 FT 16,13,5 5 MERET 02190
* 006175 3020613700 02200 JC CMT2,0,1,1 MERET 02200
006202 2000010013 02210 INFT1 FT 0100,11 1 MERET 02210
006207 2000777714 02220 FT 07777,1212 MERET 02220
006214 2000626417 02230 FT MVTS1,1515 MERET 02230
006221 2161000017 02240 FT 010000,1,15,7 MERET 02240
006226 2001000011 02250 FT 010000,9,9 MERET 02250
* 006233 1020735400 02260 JR SWTST,0,0,1 MERET 02260
* 006240 3020523000 02270 JC MAINE,0,0,1 GO MAINE LOOP TEST STACK 1 MERET 02270 A
* 006245 3020523000 02280 JC MAINE,0,0,1 MERET 02280
* 006252 3020567700 02290 JC MOPRO,0,0,1 MERET 02290
* 006257 3020523000 02300 JC MAINE,0,0,1 MERET 02300
006264 2001411714 02310 MVTS1 FT 014117,1,12 MOVE PROG BACK TO STK 1 MERET 02310
* 006271 3020627625 02320 TOM JC TOM+5,2121,1 INDS 100 MERET 02320 S
* 006276 3020630326 02330 JC TOM+10,2,22,1 MERET 02330
* 006303 3020631024 02340 JC TOM+15,2,20,1 MERET 02340
006310 2000411715 02350 FT 04117,1313 MERET 02350
006315 2000777716 02360 FT 07777,1414 MERET 02360
006322 5700000020 02370 CMT1 BA2 0,16,4 C CO NTINUE MOVE TO STK 1 MERET 02370 U
006327 5320000020 02380 SA2 0,16,5 MERET 02380
006334 7400007315 02390 CT 59,13 MERET 02390
* 006341 3020636542 02400 JC SETI1,3434,1 MOVE COMPLETE,GO SET IR1 MERET 02400 E
006346 2100002014 02410 FT 16,12,4 4 MERET 02410
006353 2120002015 02420 FT 16,13,5 5 MERET 02420
* 006360 3020632200 02430 JC CMT1,0,1,1 MERET 02430
006365 2000000011 02440 SETI1 FT 00,9 MERET 02440
* 006372 1020735400 02450 JR SWTST,0,0,1 MERET 02450
* 006377 3020427000 02460 JC RZC,0,1 1 MERET 02460
* 006404 3020427000 02470 JC RZC,0,1 1 MERET 02470
* 006411 3020427000 02480 JC RZC,0,1 1 MERET 02480
* 006416 3020427000 02490 JC RZC,0,1 1 MERET 02490
006423 2000411714 02500 MVTL1 FT 04117,1212 MOVE TO LOW ORDER OF STK1 MERET 02500 T
* 006430 3020643522 02510 ED JC ED+5,18,8,1 INDS 101 MERET 02510
* 006435 3020644226 02520 JC ED+10,2222,1 MERET 02520
* 006442 3020644724 02530 JC ED+15,2020,1 MERET 02530
006447 2000011715 02540 FT 0117,13 3 MERET 02540
006454 2000407716 02550 FT 04077,1414 MERET 02550
006461 5700000020 02560 CMTL1 BA2 0,16,4 C CO NTINUE MOVE MERET 02560 U
006466 5320000020 02570 SA2 0,16,5 MERET 02570
006473 7400006716 02580 CT 55,14 MERET 02580
* 006500 3020652442 02590 JC SIFL1,3434,1 MERET 02590
006505 2100002014 02600 FT 16,12,4 4 MERET 02600
006512 2120002015 02610 FT 16,13,5 5 MERET 02610
* 006517 3020646100 02620 JC CMTL1,0,0,1 MERET 02620
006524 2007400011 02630 SIFL1 FT 074000,9,9 SET IRS FOR LOW ORD STK1 MERET 02630 R
006531 4400011570 02640 SC 77,56 MERET 02640
006536 4400011600 02650 SC 78,0 MERET 02650
006543 4400011756 02660 SC 79,46 MERET 02660
006550 2000410013 02670 FT 04100,1111 MERET 02670
006555 2000777714 02680 FT 07777,1212 MERET 02680
006562 2000660117 02690 FT MVTH1,1515 MERET 02690
006567 2167400017 02700 FT 074000,1,15,7 MERET 02700
* 006574 3020523000 02710 JC MAINE,0,0,1 MOVE COMPLETE,TEST HIGH 1 MERET 02710
006601 2000011714 02720 MVTH1 FT 0117,12 2 BEGIN MOVE BACK TO HIGH 1 MERET 02720 M
* 006606 3020661322 02730 IRV JC IRV+5,1818,1 INDS 111 MERET 02730 S
* 006613 3020662023 02740 JC IRV+10,1,19,1 MERET 02740
* 006620 3020662524 02750 JC IRV+15,2,20,1 MERET 02750
006625 2000411715 02760 FT 04117,1313 MERET 02760
006632 2000777716 02770 FT 07777,1414 MERET 02770
006637 5700000020 02780 CMTH1 BA2 0,16,4 C CO NT MOVE TO HIGH ORDER ST1 MERET 02780 O
006644 5320000020 02790 SA2 0,16,5 MERET 02790
006651 7400006716 02800 CT 55,14 MERET 02800
* 006656 3020670242 02810 JC SIFH1,3434,1 MOVE COMPLETE GO SET IR1 MERET 02810 E
006663 2100002014 02820 FT 16,12,4 4 MERET 02820
006670 2120002015 02830 FT 16,13,5 5 MERET 02830
* 006675 3020663700 02840 JC CMTH1,0,0,1 MERET 02840
006702 2000000011 02850 SIFH1 FT 00,9 SETET IR1 MERET 02850
006707 4400411570 02860 SC 2125,56 6 MERET 02860
006714 4400411600 02870 SC 2126,0 MERET 02870
006721 4400411756 02880 SC 2127,46 6 MERET 02880
* 006726 1020735400 02890 JR SWTST,0,0,1 MERET 02890
* 006733 3020427000 02900 JC RZC,0,1 1 RETURN TO ROW ZERO TEST MERET 02900
* 006740 3020427000 02910 JC RZC,0,1 1 MERET 02910
* 006745 3020427000 02920 JC RZC,0,1 1 MERET 02920
* 006752 3020427000 02930 JC RZC,0,1 1 MERET 02930
006757 5600766700 02940 CHOSE BA1 ORIGN,1616 MERET 02940
* 006764 3000677120 02950 JC CHOSE+1010,16 GOOD STOP SET MEM LOC 00 MERET 02950 O
006771 2600004704 02960 PD 047,4 CLEAR IR = 1 MERET 02960
006776 4400704500 02970 SC CMPR+4,0,0 MERET 02970
007003 5200766700 02980 SA1 ORIGN,1616 MERET 02980
007010 4400705701 02990 SC INCRM+4,4,1 MERET 02990
007015 4400707610 03000 SC LOOP8+4,4,8 MERET 03000
007022 4400710302 03010 SC LOOP2+4,4,2 MERET 03010
007027 4400705100 03020 SC JMPOT+3,3,0 MERET 03020
007034 4400705041 03030 SC JMPOT+2,2,041 MERET 03030
007041 3400000000 03040 CMPR CC 0,0 MERET 03040
* 007046 3000410042 03050 JMPOT JC 04100,3434 MERET 03050
007053 6000704501 03060 INCRM AC CMPR+4,1,1 MERET 03060
007060 6000705117 03070 AC JMPOT+3,3,15 MERET 03070
007065 6000502417 03080 AC OUT+3,1515 MERET 03080
* 007072 3200704110 03090 LOOP8 JL CMPR,8 MERET 03090
* 007077 3200711102 03100 LOOP2 JL SPEC,2 MERET 03100
* 007104 3000675720 03110 JC CHOSE,1616 MERET 03110
007111 4400704510 03120 SPEC SC CMPR+4,8,8 MERET 03120
007116 4400705710 03130 SC INCRM+4,4,8 MERET 03130
007123 2000717307 03140 FT PTSTK+1515,7 MERET 03140
007130 5200705123 03150 SA2 JMPOT+3,3,3 MERET 03150
007135 5200502423 03160 SA2 OUT+3,3 3 MERET 03160
007142 4400707610 03170 SC LOOP8+4,4,8 MERET 03170
* 007147 3000704100 03180 JC CMPR,0 MERET 03180
* 007154 3000610100 03190 PTSTK JC MVTS2,0 0 MEM 000 IS 00 MERET 03190 0
* 007161 3000675720 03200 JC CHOSE,1616 MERET 03200
* 007166 3000675720 03210 JC CHOSE,1616 MERET 03210
007173 2001000013 03220 FT 010000,1,11 MERET 03220
* 007200 3000675740 03230 JC CHOSE,3232 MERET 03230
* 007205 3000511000 03240 JC TWOST,0 0 MERET 03240
007212 2002000013 03250 FT 020000,1,11 MERET 03250
* 007217 3000675740 03260 JC CHOSE,3232 MERET 03260
* 007224 3000512200 03270 JC TREST,0 0 MERET 03270
007231 2003000013 03280 FT 030000,1,11 MERET 03280
* 007236 3000675740 03290 JC CHOSE,3232 MERET 03290
* 007243 3000513400 03300 JC FORST,0 0 MERET 03300
007250 2004000013 03310 FT 040000,1,11 MERET 03310
* 007255 3000675740 03320 JC CHOSE,3232 MERET 03320
* 007262 3000514600 03330 JC FIVST,0 0 MERET 03330
007267 2005000013 03340 FT 050000,1,11 MERET 03340
* 007274 3000675740 03350 JC CHOSE,3232 MERET 03350
* 007301 3000516000 03360 JC SIZST,0 0 MERET 03360
007306 2006000013 03370 FT 060000,1,11 MERET 03370
* 007313 3000675740 03380 JC CHOSE,3232 MERET 03380
* 007320 3000517200 03390 JC SVNST,0 0 MERET 03390
007325 2007000013 03400 FT 070000,1,11 MERET 03400
* 007332 3000675740 03410 JC CHOSE,3232 MERET 03410
* 007337 3000520400 03420 JC ETST,0 MERET 03420
* 007344 3000675720 03430 JC CHOSE,1616 MERET 03430
* 007351 3020735600 03440 SWTST JC SWTST+5,5,0,1 MERET 03440
* 007356 3020740262 03450 JC PR2,50,1,1 MERET 03450
* 007363 3020742163 03460 JC DPR3,51,1,1 MERET 03460
* 007370 3020745264 03470 JC NRMLC,5252,1 NORMAL COUNT 001 MERET 03470 M
* 007375 3020745700 03480 JC NORML,0,0,1 NORMAL MODE 000 MERET 03480 A
* 007402 3020743363 03490 PR2 JC TPR3,51,1,1 MERET 03490
* 007407 3020746464 03500 JC RZCCT,5252,1 RZC CHANGE PATS 101 MERET 03500
* 007414 3020746400 03510 JC RZCCT,0,0,1 RZC CONTINUE 100 MERET 03510 C
* 007421 3020751064 03520 DPR3 JC RTN5,52,2,1 MAIN LOOP REPEAT 011 MERET 03520
* 007426 3020751000 03530 JC RTN5,0,1,1 MAIN TEST REPEAT 010 MERET 03530 T
* 007433 3020752264 03540 TPR3 JC CHSTP,5252,1 GO CHOOSE STOP 111 MERET 03540 C
007440 6020735417 03550 AC SWTST+3,3,15,1 REPEAT CHAR AT TEST 110 MERET 03550 E
* 007445 3020735100 03560 JC SWTST,0,0,1 MERET 03560
* 007452 3020735100 03570 NRMLC JC SWTST,0,0,1 MERET 03570
* 007457 3020735100 03580 NORML JC SWTST,0,0,1 MERET 03580
007464 7400761111 03590 RZCCT CT ZERO3,9 9 MERET 03590
* 007471 3020427042 03600 JC RZC,34,1,1 MERET 03600
007476 6020735412 03610 AC SWTST+3,3,10,1 MERET 03610
* 007503 3020735100 03620 JC SWTST,0,0,1 MERET 03620
007510 6020735405 03630 RTN5 AC SWTST+3,3,5,1 MERET 03630
* 007515 3020735100 03640 JC SWTST,0,0,1 MERET 03640
007522 3400004500 03650 CHSTP CC 045,0 MERET 03650
* 007527 3020675742 03660 JC CHOSE,3434,1 MERET 03660
007534 6020735412 03670 AC SWTST+3,3,10,1 MERET 03670
* 007541 3020735100 03680 JC SWTST,0,0,1 MERET 03680
007555 7777777777777777 03690 +8 0777777777777777777 MERET 03690 7
007565 7777777777777777 03700 +8 0777777777777777777 MERET 03700 7
007565 03710 P1 EQU $-1 MERET 03710
007575 0000000000000000 03720 +8 0000000000000000000 MERET 03720 0
007604 00000000000000 03730 +7 00000000000000000 MERET 03730 0
007605 00 03740 P2 +1 000 MERET 03740
007611 00000000 03750 ZERO3 +4 00000000000 MERET 03750
007614 005064 03760 AFIN1 +3 ONEST MERET 03760
007617 005110 03770 AFIN2 +3 TWOST MERET 03770
007622 005122 03780 AFIN3 +3 TREST MERET 03780
007625 005134 03790 AFIN4 +3 FORST MERET 03790
007630 005146 03800 AFIN5 +3 FIVST MERET 03800
007633 005160 03810 AFIN6 +3 SIZST MERET 03810
007636 005172 03820 AFIN7 +3 SVNST MERET 03820
007641 005204 03830 AFIN8 +3 ETST MERET 03830
007644 007565 03840 +3 P1 MERET 03840
007644 03850 P1LOC EQU $-1 MERET 03850
007647 004611 03860 CCLOC +3 CC+4 MERET 03860
007657 0100000000000000 03870 +8 0010000000000000000 MERET 03870 0
007667 0000000000000000 03880 +8 0000000000000000000 MERET 03880 0
007667 03890 ORIGN EQU $-1 MERET 03890
3000675700 03900 END 3567 MERET 03900
{-- tape mark --}
000923 C021 MELT CODEDIT SOURCE A T3834394-02
002500 00010 T020 BEGIN 1344 MELT 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 002500 3007010660 * JD 070106 *
* 002505 3000250000 * J $-5 *
SEGMENT-ID T021 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 T022 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 T023 3000136300 * SEGJP $ *
002500 00011 ORIG 1344 00011
002500 2001777713 00020 TWO FT 017777,1,11 MELT 00020
002505 2000315415 00030 FT D2,13 MELT 00030
002512 2000332503 00040 FT C2,3 MELT 00040
002517 5200317103 00050 SA1 G+3,3 XTRA MELT 00050
002524 5600475223 00060 BA2 LOC2,3 MELT 00060
002531 5200422023 00070 SA2 REOP+3,3,3 SET REPEAT JUMP TO TWO MELT 00070 E
* 002536 3000306500 00080 JC RESET,0 0 MELT 00080
002543 2002777713 00090 THREE FT 027777,1,11 INIT FOR 3 STACKS MELT 00090
002550 2000314715 00100 FT D3,13 MELT 00100
002555 2000330603 00110 FT C3,3 MELT 00110
002562 5200317103 00120 SA1 G+3,3 XTRA MELT 00120
002567 5600475523 00130 BA2 LOC3,3 MELT 00130
002574 5200422023 00140 SA2 REOP+3,3,3 MELT 00140
* 002601 3000306500 00150 JC RESET,0 0 MELT 00150
002606 2003777713 00160 FOUR FT 037777,1,11 MELT 00160
002613 2000314215 00170 FT D4,13 MELT 00170
002620 2000326703 00180 FT C4,3 MELT 00180
002625 5200317103 00190 SA1 G+3,3 XTRA MELT 00190
002632 5600476023 00200 BA2 LOC4,3 MELT 00200
002637 5200422023 00210 SA2 REOP+3,3,3 MELT 00210
* 002644 3000306500 00220 JC RESET,0 0 MELT 00220
002651 2004777713 00230 FIVE FT 047777,1,11 MELT 00230
002656 2000313515 00240 FT D5,13 MELT 00240
002663 2000325003 00250 FT C5,3 MELT 00250
002670 5200317103 00260 SA1 G+3,3 XTRA MELT 00260
002675 5600476323 00270 BA2 LOC5,3 MELT 00270
002702 5200422023 00280 SA2 REOP+3,3,3 MELT 00280
* 002707 3000306500 00290 JC RESET,0 0 MELT 00290
002714 2005777713 00300 SIX FT 057777,1,11 MELT 00300
002721 2000313015 00310 FT D6,13 MELT 00310
002726 2000323103 00320 FT C6,3 MELT 00320
002733 5200317103 00330 SA1 G+3,3 XTRA MELT 00330
002740 5600476623 00340 BA2 LOC6,3 MELT 00340
002745 5200422023 00350 SA2 REOP+3,3,3 MELT 00350
* 002752 3000306500 00360 JC RESET,0 0 MELT 00360
002757 2006777713 00370 SEVEN FT 067777,1,11 MELT 00370
002764 2000312315 00380 FT D7,13 MELT 00380
002771 2000321203 00390 FT C7,3 MELT 00390
002776 5200317103 00400 SA1 G+3,3 XTRA MELT 00400
003003 5600477123 00410 BA2 LOC7,3 MELT 00410
003010 5200422023 00420 SA2 REOP+3,3,3 MELT 00420
* 003015 3000306500 00430 JC RESET,0 0 MELT 00430
003022 2007777713 00440 EIGHT FT 077777,1,11 MELT 00440
003027 2000311615 00450 FT D8,13 MELT 00450
003034 2000317303 00460 FT C8,3 MELT 00460
003041 5200317103 00470 SA1 G+3,3 XTRA MELT 00470
003046 5600477423 00480 BA2 LOC8,3 MELT 00480
003053 5200422023 00490 SA2 REOP+3,3,3 MELT 00490
* 003060 3000306500 00500 JC RESET,0 0 MELT 00500
* 003065 3000307225 00510 RESET JC R2,21 RERESET INDS 1 2 3 MELT 00510 D
* 003072 3000307726 00520 R2 JC R3,22 MELT 00520
* 003077 3000310427 00530 R3 JC JDT,23 MELT 00530
003104 4200004715 00540 JDT ST 39,13 MELT 00540
* 003111 3120000000 00550 JC 0,0,5 MELT 00550
003116 4407000077 00560 D8 SC 070000,0,077 STORE FOR DIVERTER TEST MELT 00560 R
003123 4406000066 00570 D7 SC 060000,0,066 MELT 00570
003130 4405000055 00580 D6 SC 050000,0,055 MELT 00580
003135 4404000044 00590 D5 SC 040000,0,044 MELT 00590
003142 4403000033 00600 D4 SC 030000,0,033 MELT 00600
003147 4402000022 00610 D3 SC 020000,0,022 MELT 00610
003154 4401000011 00620 D2 SC 010000,0,011 MELT 00620
003161 4400000000 00630 D1 SC 00,00 MELT 00630
* 003166 3000332500 00640 G JC C2,0 GO O CHECK MELT 00640
003173 3407000077 00650 C8 CC 070000,0,077 CHECK DIVERTER TEST MELT 00650 C
* 003200 3000321242 00660 JC C7,34 OKOK IF EQ MELT 00660
* 003205 3000317360 00670 JC C8,48 STSTOP M ADDRESS IS C8 MELT 00670 D
003212 3406000066 00680 C7 CC 060000,0,066 MELT 00680
* 003217 3000323142 00690 JC C6,34 MELT 00690
* 003224 3000321260 00700 JC C7,48 MELT 00700
003231 3405000055 00710 C6 CC 050000,0,055 MELT 00710
* 003236 3000325042 00720 JC C5,34 MELT 00720
* 003243 3000323160 00730 JC C6,48 MELT 00730
003250 3404000044 00740 C5 CC 040000,0,044 MELT 00740
* 003255 3000326742 00750 JC C4,34 MELT 00750
* 003262 3000325060 00760 JC C5,48 MELT 00760
003267 3403000033 00770 C4 CC 030000,0,033 MELT 00770
* 003274 3000330642 00780 JC C3,34 MELT 00780
* 003301 3000326760 00790 JC C4,48 MELT 00790
003306 3402000022 00800 C3 CC 020000,0,022 MELT 00800
* 003313 3000332542 00810 JC C2,34 MELT 00810
* 003320 3000330660 00820 JC C3,48 MELT 00820
003325 3401000011 00830 C2 CC 010000,0,011 MELT 00830
* 003332 3000334442 00840 JC C1,34 MELT 00840
* 003337 3000332560 00850 JC C2,48 MELT 00850
003344 3400000000 00860 C1 CC 0,0 MELT 00860
* 003351 3000336342 00870 JC CHEK3,3434 MELT 00870
* 003356 3000334460 00880 JC C1,48 MELT 00880
* 003363 3000340264 00890 CHEK3 JC BEGIN,5252 MELT 00890
* 003370 3000340263 00900 JC BEGIN,5151 MELT 00900
* 003375 3120000062 00910 JC 0,50,5 R REPEAT DIV TEST IF SS1 ONLY MELT 00910 D
* 003402 3000340722 00920 BEGIN JC BEGUN,1818 SET IND 1 MELT 00920 N
003407 5600005723 00930 BEGUN BA2 47,3 MELT 00930
003414 5200342423 00940 SA2 INIT3+3,3,3 MELT 00940
003421 2000000013 00950 INIT3 FT 0,11 MELT 00950
003426 2001000012 00960 INIT2 FT 010000,1,10 MELT 00960
003433 5600005323 00970 BA2 43,3 MELT 00970
003440 5200343123 00980 SA2 INIT2+3,3,3 MELT 00980
003445 4200006312 00990 ST 51,10 MELT 00990
* 003452 3000346400 01000 JC CLHM,0 MELT 01000
003457 6000005320 01010 INCR1 AC 43,16 MELT 01010
003464 2640001700 01020 CLHM PD 15,16,2 2 C LEAR HIGH MEMORY MELT 01020
003471 7400005313 01030 CT 43,11 MELT 01030
* 003476 3000345741 01040 JC INCR1,3333 MELT 01040
* 003503 3000351564 01050 JC T2,52 TETEST FOR STOP IF SS1,2,3, MELT 01050
* 003510 3000353400 01060 JC BGST,0 MELT 01060
* 003515 3000352763 01070 T2 JC T3,51 MELT 01070
* 003522 3000353400 01080 JC BGST,0 MELT 01080
* 003527 3000431162 01090 T3 JC CHOSE,5050 MELT 01090
003534 2000777717 01100 BGST FT 07777,1515 BEGIN STORE ONES HIGH MELT 01100
003541 4200006714 01110 ST 55,12 MELT 01110
003546 7600007715 01120 AT 077,13 MELT 01120
003553 2000010116 01130 FT 0101,14 4 MELT 01130
003560 4200005314 01140 ST 43,12 MELT 01140
* 003565 3000357700 01150 JC WCOH,0 MELT 01150
* 003572 3000000060 01160 JC 0,48 XTXTRA MELT 01160
003577 4440000077 01170 WCOH SC 0,63,2 W WRITE CROSS ONES HIGH MELT 01170 R
003604 7400005315 01180 CT 43,13 CHCHECK END OF THIS STACK MELT 01180 D
* 003611 3000363042 01190 JC CLAST,3434 MELT 01190
003616 7600007312 01200 AT 59,10 MELT 01200
* 003623 3000357700 01210 JC WCOH,0 MELT 01210
003630 7400006713 01220 CLAST CT 55,11 CHCHECK THIS LAST ADDRS MELT 01220 I
* 003635 3000366642 01230 JC SIAT,34 4 MELT 01230
003642 7600007715 01240 AT 63,13 MELT 01240
003647 6000006701 01250 AC 55,1 MELT 01250
003654 6000005301 01260 AC 43,1 MELT 01260
* 003661 3000357700 01270 JC WCOH,0 G GO WRITE CROSS ONES HIGH MELT 01270 E
* 003666 3000367325 01280 SIAT JC SET2,21 1 SET INDS AND GO SEL TEST MELT 01280 D
* 003673 3000370023 01290 SET2 JC RSET3,1919 SET 2 MELT 01290
* 003700 3000370527 01300 RSET3 JC BGTT,23 3 RESET 3 INDS NOW 010 MELT 01300 3
003705 4200006714 01310 BGTT ST 55,12 BEBEGIN HIGH SEL TEST MELT 01310 G
003712 4200005314 01320 ST 43,12 MELT 01320
003717 2100777714 01330 FT 07777,1212,4 MELT 01330
003724 3520000000 01340 SLTT CC 0,0,5 SESELECTION TEST MELT 01340 N
* 003731 3000376743 01350 JC ACO,35 MELT 01350
003736 7400006712 01360 CT 55,10 TETEST FOR A ZERO MELT 01360
* 003743 3000375543 01370 JC UP5,35 I IN A CROSS ONE LOC. MELT 01370 O
* 003750 3000375520 01380 JC UP5,16 F FOUND ERROR MELT 01380 R
003755 6000006701 01390 UP5 AC 55,1 MELT 01390
* 003762 3000372400 01400 JC SLTT,0 MELT 01400
003767 7400006712 01410 ACO CT 55,10 THTHIS A CROSS ONE ADDRESS MELT 01410 R
* 003774 3000401342 01420 JC TA1,34 MELT 01420
* 004001 3120000060 01430 JC 0,48,5 MELT 01430
* 004006 3000375500 01440 JC UP5,0 MELT 01440
004013 3520000077 01450 TA1 CC 0,63,5 T THIS A ONE MELT 01450 O
* 004020 3000403242 01460 JC LATS,34 4 MELT 01460
* 004025 3000402560 01470 NA1 JC NA1,48 N NOT A ONE CHECK IR5 MELT 01470 N
004032 7400005314 01480 LATS CT 43,12 CHCHECK LAST ADDRESS THIS ST MELT 01480 S
* 004037 3000420343 01490 JC IB001,3535 MELT 01490
004044 7400005313 01500 CT 43,11 MELT 01500
* 004051 3000416443 01510 JC SETFN,3535 MELT 01510
004056 6000466701 01520 AC PASCT,1 1 INCR PASS COUNT MELT 01520 A
* 004063 3000410762 01530 JC P2,50 MELT 01530
* 004070 3000414563 01540 JC P3,51 MELT 01540
* 004075 3000415764 01550 JC TCBM,52 2 MELT 01550
* 004102 3000415700 01560 JC TCBM,0 MELT 01560
* 004107 3000413363 01570 P2 JC PP3,51 MELT 01570
* 004114 3000415764 01580 JC TCBM,52 2 MELT 01580
004121 4200006711 01590 ST 55,9 MELT 01590
* 004126 3120000000 01600 JC 0,0,5 MELT 01600
* 004133 3000431164 01610 PP3 JC CHOSE,5252 MELT 01610
* 004140 3000415700 01620 JC TCBM,0 MELT 01620
* 004145 3000415764 01630 P3 JC TCBM,52 2 MELT 01630
* 004152 3000421500 01640 JC REOP,0 MELT 01640
* 004157 3000422222 01650 TCBM JC MOVE1,1818 SET IND 1 COND NOW 011 MELT 01650 N
004164 6000005301 01660 SETFN AC 43,1 SETET UP FOR NEXT STACK MELT 01660 R
004171 2101000014 01670 FT 010000,1,12,4 MELT 01670
* 004176 3000375500 01680 JC UP5,0 MELT 01680
004203 7600007312 01690 IB001 AT 59,10 MELT 01690
* 004210 3000375500 01700 JC UP5,0 MELT 01700
* 004215 3000250000 01710 REOP JC TWO,0 MELT 01710
* 004222 3000422722 01720 MOVE1 JC MOVE1+5,5,18 SET INDS TO 110 MELT 01720
* 004227 3000423423 01730 JC MOVE1+1010,19 MELT 01730
* 004234 3000424127 01740 JC TBH,23 MELT 01740
004241 2600011310 01750 TBH PD 75,8 MELT 01750
004246 2401000061 01760 TTI 010000,1,1 MELT 01760
004253 2401200061 01770 TTI 012000,1,1 MELT 01770
004260 2401400061 01780 TTI 014000,1,1 MELT 01780
004265 2401600061 01790 TTI 016000,1,1 MELT 01790
004272 2001000011 01800 FT 010000,9,9 MELT 01800
* 004277 3020500000 01810 JC 05000,0,0,1 MELT 01810
* 004304 3000000060 01820 JC 0,48 XTRTRAS 8 MELT 01820
004311 5600465700 01830 CHOSE BA1 INIT4,1616 MELT 01830
* 004316 3000432320 01840 JC CHOSE+1010,16 GOOD STOP SET MEM0 MELT 01840 O
004323 5200465700 01850 SA1 INIT4,1616 MELT 01850
004330 2600007700 01860 PD 077,16 MELT 01860
004335 4400342701 01870 SC INIT2+1,1,1 MELT 01870
004342 2600005700 01880 PD 057,16 MELT 01880
004347 4400443001 01890 SC OPT1+4,1,1 MELT 01890
004354 2000250007 01900 FT TWO,7 MELT 01900
004361 5200443423 01910 SA2 GO+3,3 MELT 01910
004366 4400445407 01920 SC LP1+4,7 7 MELT 01920
004373 4400446102 01930 SC LP2+4,2 2 MELT 01930
004400 4400444201 01940 SC SUM1+4,1,1 MELT 01940
004405 4400444743 01950 SC SUM2+4,3,35 MELT 01950
004412 3400000000 01960 OPT2 CC 0,0 MELT 01960
* 004417 3000422242 01970 JC MOVE1,3434 MELT 01970
004424 3400000001 01980 OPT1 CC 0,1 MELT 01980
* 004431 3000250042 01990 GO JC TWO,34 MELT 01990
004436 6000443001 02000 SUM1 AC OPT1+4,1,1 MELT 02000
004443 6000443443 02010 SUM2 AC GO+3,35 5 MELT 02010
* 004450 3200442407 02020 LP1 JL OPT1,7 MELT 02020
* 004455 3200446702 02030 LP2 JL SETPK,2 2 MELT 02030
* 004462 3000431100 02040 JC CHOSE,0 0 MELT 02040
004467 2000453207 02050 SETPK FT PKSTK,7 7 MELT 02050
004474 5200443423 02060 SA2 GO+3,3 MELT 02060
004501 4400443010 02070 SC OPT1+4,8,8 MELT 02070
004506 4400444210 02080 SC SUM1+4,8,8 MELT 02080
004513 4400444712 02090 SC SUM2+4,1,10 MELT 02090
004520 4400445407 02100 SC LP1+4,7 7 MELT 02100
* 004525 3000442400 02110 JC OPT1,0 MELT 02110
004532 4400342701 02120 PKSTK SC INIT2+1,1,1 MELT 02120
* 004537 3000250000 02130 JC TWO,0 MELT 02130
004544 4400342702 02140 SC INIT2+1,1,2 MELT 02140
* 004551 3000254300 02150 JC THREE,0 0 MELT 02150
004556 4400342703 02160 SC INIT2+1,1,3 MELT 02160
* 004563 3000260600 02170 JC FOUR,0 MELT 02170
004570 4400342704 02180 SC INIT2+1,1,4 MELT 02180
* 004575 3000265100 02190 JC FIVE,0 MELT 02190
004602 4400342705 02200 SC INIT2+1,1,5 MELT 02200
* 004607 3000271400 02210 JC SIX,0 MELT 02210
004614 4400342706 02220 SC INIT2+1,1,6 MELT 02220
* 004621 3000275700 02230 JC SEVEN,0 0 MELT 02230
004626 4400342707 02240 SC INIT2+1,1,7 MELT 02240
* 004633 3000302200 02250 JC EIGHT,0 0 MELT 02250
004647 0100000000000000 02260 +8 0010000000000000000 MELT 02260 0
004657 0000000000000000 02270 +8 0000000000000000000 MELT 02270 0
004657 02280 INIT4 EQU $-1 MELT 02280
004667 0000000000000000 02290 +8 0000000000000000000 MELT 02290 0
004667 02300 PASCT EQU $-1 MELT 02300
004672 003116 02310 +3 D8 MELT 02310
004672 02320 LOCD8 EQU $-1 MELT 02320
004675 003123 02330 +3 D7 MELT 02330
004675 02340 LOCD7 EQU $-1 MELT 02340
004700 003130 02350 +3 D6 MELT 02350
004700 02360 LOCD6 EQU $-1 MELT 02360
004703 003135 02370 +3 D5 MELT 02370
004703 02380 LOCD5 EQU $-1 MELT 02380
004706 003142 02390 +3 D4 MELT 02390
004706 02400 LOCD4 EQU $-1 MELT 02400
004711 003147 02410 +3 D3 MELT 02410
004711 02420 LOCD3 EQU $-1 MELT 02420
004714 003154 02430 +3 D2 MELT 02430
004714 02440 LOCD2 EQU $-1 MELT 02440
004717 003161 02450 +3 D1 MELT 02450
004717 02460 LOCD1 EQU $-1 MELT 02460
004722 003344 02470 +3 C1 MELT 02470
004722 02480 LOCC1 EQU $-1 MELT 02480
004725 003325 02490 +3 C2 MELT 02490
004725 02500 LOCC2 EQU $-1 MELT 02500
004730 003306 02510 +3 C3 MELT 02510
004730 02520 LOCC3 EQU $-1 MELT 02520
004733 003267 02530 +3 C4 MELT 02530
004733 02540 LOCC4 EQU $-1 MELT 02540
004736 003250 02550 +3 C5 MELT 02550
004736 02560 LOCC5 EQU $-1 MELT 02560
004741 003231 02570 +3 C6 MELT 02570
004741 02580 LOCC6 EQU $-1 MELT 02580
004744 003212 02590 +3 C7 MELT 02590
004744 02600 LOCC7 EQU $-1 MELT 02600
004747 003173 02610 +3 C8 MELT 02610
004747 02620 LOCC8 EQU $-1 MELT 02620
004752 002500 02630 +3 TWO MELT 02630
004752 02640 LOC2 EQU $-1 MELT 02640
004755 002543 02650 +3 THREE MELT 02650
004755 02660 LOC3 EQU $-1 MELT 02660
004760 002606 02670 +3 FOUR MELT 02670
004760 02680 LOC4 EQU $-1 MELT 02680
004763 002651 02690 +3 FIVE MELT 02690
004763 02700 LOC5 EQU $-1 MELT 02700
004766 002714 02710 +3 SIX MELT 02710
004766 02720 LOC6 EQU $-1 MELT 02720
004771 002757 02730 +3 SEVEN MELT 02730
004771 02740 LOC7 EQU $-1 MELT 02740
004774 003022 02750 +3 EIGHT MELT 02750
004774 02760 LOC8 EQU $-1 MELT 02760
015000 02770 ORIG 6656 MELT 02770
* 015000 3001500525 02780 INIT1 JC RST2,21 1 MOVED TO1NOW SETINDS 100 MELT 02780 T
* 015005 3001501226 02790 RST2 JC S3,22 MELT 02790
* 015012 3001501724 02800 S3 JC SU1,20 MELT 02800
015017 4400777777 02810 SU1 SC 07777,6363 MELT 02810
015024 4401505200 02820 SC PD+2,0 MELT 02820
015031 4401505317 02830 SC PD+3,15 5 MELT 02830
* 015036 3001505000 02840 JC PD,0 MELT 02840
015043 6001505320 02850 PADUP AC PD+3,16 6 MELT 02850
015050 2600001700 02860 PD PD 15,16 MELT 02860
015055 3400777700 02870 CC 07777,0 0 MELT 02870
* 015062 3001504343 02880 JC PADUP,3535 MELT 02880
* 015067 3001510600 02890 JC STONE,0 0 MELT 02890
* 015074 3000000060 02900 JC 0,48 XTRTRA MELT 02900
* 015101 3000000060 02910 JC 0,48 MELT 02910
015106 4401514700 02920 STONE SC SC+3,0 S STORE ONES TO ONE MELT 02920 N
015113 4401514600 02930 SC SC+2,0 MELT 02930
015120 4400777700 02940 SC 07777,0 0 MELT 02940
* 015125 3001514400 02950 JC SC,0 MELT 02950
015132 6001514701 02960 UPSC AC SC+3,1 U UP SC BY 101 MELT 02960 Y
015137 6001514601 02970 AC SC+2,1 MELT 02970
015144 4400000077 02980 SC SC 0,63 STOTORE MELT 02980
015151 3400777777 02990 CC 07777,6363 MELT 02990
* 015156 3001513243 03000 JC UPSC,35 5 MELT 03000
* 015163 3001520722 03010 JC TEST1,1818 INDS NOW 101 MELT 03010 N
* 015170 3000000060 03020 JC 0,48 XTRTRAS MELT 03020
* 015175 3000000060 03030 JC 0,48 MELT 03030
* 015202 3000000060 03040 JC 0,48 MELT 03040
015207 4401542277 03050 TEST1 SC JL+4,63 3 MELT 03050
015214 4401542702 03060 SC JL1+4,2 2 MELT 03060
015221 4401534400 03070 SC CC+3,0 MELT 03070
015226 4401534300 03080 SC CC+2,0 MELT 03080
015233 4401540700 03090 SC CHEK1+3,3,0 MELT 03090
015240 4401540600 03100 SC CHEK1+2,2,0 MELT 03100
015245 4401535700 03110 SC QUES1+4,4,0 MELT 03110
015252 4401537100 03120 SC QUES2+4,4,0 MELT 03120
015257 4401547100 03130 SC STOP+3,0,0 MELT 03130
015264 4401547000 03140 SC STOP+2,0,0 MELT 03140
* 015271 3001567500 03150 JC SETQS,0 0 MELT 03150
015276 6001535701 03160 CONT AC QUES1+4,4,1 MELT 03160
015303 6001537101 03170 AC QUES2+4,4,1 MELT 03170
015310 6001534401 03180 NORM AC CC+3,1 MELT 03180
015315 6001547101 03190 AC STOP+3,1,1 MELT 03190
015322 6001540701 03200 AC CHEK1+3,3,1 MELT 03200
* 015327 3001567500 03210 JC SETQS,0 0 MELT 03210
* 015334 3000000060 03220 JC 0,48 MELT 03220
015341 3400000000 03230 CC CC 00,0 MELT 03230
* 015346 3001562542 03240 JC OTEST,3434 MELT 03240
015353 3401534300 03250 QUES1 CC CC+2,0 MELT 03250
* 015360 3001546643 03260 JC STOP,35 5 MELT 03260
015365 3401534400 03270 QUES2 CC CC+3,0 MELT 03270
* 015372 3001546643 03280 JC STOP,35 5 MELT 03280
* 015377 3001562520 03290 STOP3 JC OTEST,1616 CHAR NOT ZERO OR ONE MELT 03290 N
015404 3400000077 03300 CHEK1 CC 0,63 MELT 03300
* 015411 3001546643 03310 JC STOP,35 5 MELT 03310
* 015416 3201527600 03320 JL JL CONT,0 MELT 03320
* 015423 3201527603 03330 JL1 JL CONT,3 MELT 03330
* 015430 3001543500 03340 JC BLINK,0000 FOR REPEAT MELT 03340 E
* 015435 3001544200 03350 BLINK JC CHRPT,0000 TEST SWITCHES MELT 03350 S
* 015442 3001550064 03360 CHRPT JC MOVE2,5252 MELT 03360
* 015447 3001550062 03370 JC MOVE2,5050 MELT 03370
* 015454 3001500063 03380 JC INIT1,5151 MELT 03380
* 015461 3001550000 03390 JC MOVE2,0 0 MELT 03390
* 015466 3000000060 03400 STOP JC 0,48 NOTOTE ADDRESS DISPLAYED MELT 03400 E
* 015473 3001531000 03410 JC NORM,0 MELT 03410
* 015500 3001550525 03420 MOVE2 JC SPARK,2121 RESET IND1 MELT 03420
* 015505 3001551223 03430 SPARK JC $+5,19 SET IND2 COND NOW 011 MELT 03430 D
015512 4401011655 03440 SC 010116,0,055 MELT 03440
015517 4401011501 03450 PACK SC 010115,0,01 SET CC ENTRY MELT 03450 C
015524 4401011743 03460 SC 010117,0,043 MELT 03460
015531 2600011314 03470 PD 75,12 MELT 03470
015536 2401000021 03480 TFI 010000,1,1 MELT 03480
015543 2401200021 03490 TFI 012000,1,1 MELT 03490
015550 2401400021 03500 TFI 014000,1,1 MELT 03500
015555 2401600021 03510 TFI 016000,1,1 MELT 03510
015562 2000000011 03520 FT 0,9 MELT 03520
* 015567 3001560162 03530 JC SW2,50 MELT 03530
* 015574 3000421500 03540 JC REOP,0 MELT 03540
* 015601 3001561363 03550 SW2 JC SW3,51 MELT 03550
* 015606 3000421500 03560 JC REOP,0 MELT 03560
* 015613 3000431164 03570 SW3 JC CHOSE,5252 MELT 03570
* 015620 3000421500 03580 JC REOP,0 MELT 03580
015625 4401536101 03590 OTEST SC QUES1+6,6,1 SET CHARTER TEST MELT 03590 C
015632 4401536253 03600 SC QUES1+7,7,053 MELT 03600
015637 4401536310 03610 SC QUES1+8,8,010 COMPARE FOR A ZERO MELT 03610 M
015644 4401537301 03620 SC QUES2+6,6,1 MELT 03620
015651 4401537453 03630 SC QUES2+7,7,053 MELT 03630
015656 4401537510 03640 SC QUES2+8,8,010 MELT 03640
015663 4401540320 03650 SC STOP3+4,4,16 MELT 03650
* 015670 3001535300 03660 JC QUES1,0 0 MELT 03660
015675 4401536101 03670 SETQS SC QUES1+6,6,1 SET CHARACTER TEST MELT 03670 C
015702 4401536254 03680 SC QUES1+7,7,054 MELT 03680
015707 4401536366 03690 SC QUES1+8,8,066 COMPARE IF A ONE MELT 03690 M
015714 4401537301 03700 SC QUES2+6,6,1 MELT 03700
015721 4401537454 03710 SC QUES2+7,7,054 MELT 03710
015726 4401537566 03720 SC QUES2+8,8,066 MELT 03720
015733 4401540340 03730 SC STOP3+4,4,32 MELT 03730
* 015740 3001534100 03740 JC CC,0 MELT 03740
015745 2000000022 03750 TBX FT 0,18 MELT 03750
015752 2000500020 03760 FT 05000,1616 MELT 03760
015757 2401500021 03770 TFI 015000 MELT 03770
* 015764 3000431100 03780 J CHOSE MELT 03780
3001574500 03790 END TBX MELT 03790
{-- tape mark --}
001825 C031 PRTFC CODEDIT SOURCE - T3834394-03
001700 00010 T030 BEGIN 01700 PRTFC FOR 132 CHRCTER LINE PRINTER 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001700 3007010660 * JD 070106 *
* 001705 3000170000 * J $-5 *
SEGMENT-ID T031 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 T032 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 T033 3000136300 * SEGJP $ *
000400 00020 ORIG 256 PRTFC 00020
* 000400 3000170031 00030 JC IESTP,2525 PRTFC 00030
000407 003713 00040 +3 INT PRTFC 00040
001700 00050 ORIG 01700 00050
* 001700 3000170520 00060 IESTP JHJ INIT1 PRTFC 00060
001705 2600020300 00070 INIT1 PD 0203,16 6 PRTFC 00070
001712 2600016300 00080 PD 0163,16 6 PRTFC 00080
001717 2000510031 00090 FT TITLE,2525 PRTFC 00090
001724 2000530032 00100 FT TITLE+12128,26 00100
001731 2000560033 00110 FT LEFT,27 7 PRTFC 00110
001736 2600323602 00120 PD INBIT+1,1,2 PRTFC 00120
001743 5600604710 00130 BA1 IE+7,8 PRTFC 00130
001750 5200040710 00140 SA1 0407,8 PRTFC 00140
001755 5600563300 00150 BA1 LFTCT+1616,16 RESET IMAGE PRTFC 00150
001762 5200513300 00160 SA1 TSTCT+1616,16 PRTFC 00160
001767 4400425360 00170 SC PASTP+4,4,48 PRTFC 00170
001774 2000424703 00180 FT PASTP,3 3 PRTFC 00180
002001 5200425203 00190 SA1 PASTP+3,3,3 PRTFC 00190
002006 2000510040 00200 FT TITLE,3232 PRTFC 00200
002013 2000000141 00210 FT 01,33 PRTFC 00210
002020 4400777700 00220 SC 07777,0 0 PRTFC 00220
002025 4400511304 00230 SC TSTCT,4 4 PRTFC 00230
* 002032 3000203740 00240 JC PRT1,32 2 PRTFC 00240
002037 4000021000 00250 PRT1 XF 2,01000,0,0,0 132 CHAR. LINE PRINT. PRTFC 00250 3
* 002044 1000324200 00260 JR INDTT PRTFC 00260
* 002051 3000205160 00270 NINT1 JC NINT1,4848 PRTFC 00270
* 002056 3000207000 00280 JC BSY1+5 PRTFC 00280
* 002063 3000206360 00290 BSY1 JC BSY1,48 8 BUSY PRINTER STOP PRTFC 00290
* 002070 1000471400 00300 JR TSTBA PRTFC 00300
* 002075 3000207560 00310 BA1 JC BA1,48 PRTFC 00310
002102 3400777701 00320 CC 07777,1 1 PRTFC 00320
* 002107 3000212642 00330 JC INIT2,3434 PRTFC 00330
* 002114 3000211460 00340 SUCL1 JC SUCL1,4848 PRTFC 00340
* 002121 3000212640 00350 JC INIT2,3232 PRTFC 00350
002126 2000000141 00360 INIT2 FT 1,33 PRTFC 00360
002133 2000510040 00370 FT TITLE,3232 PRTFC 00370
002140 4400777701 00380 SC 07777,1 1 PRTFC 00380
002145 4400511305 00390 SC TSTCT,5 5 PRTFC 00390
* 002152 3000215740 00400 JC PRT2,32 2 PRTFC 00400
002157 4000020200 00410 PRT2 XF 2,00200,0,0,0 PRT FULL LINE ADV B A PRTFC 00410
* 002164 1000324200 00420 JR INDTT PRTFC 00420
* 002171 3000217160 00430 NINT2 JC NINT2,4848 PRTFC 00430
* 002176 3000221000 00440 JC BSY2+5 PRTFC 00440
* 002203 3000220360 00450 BSY2 JC BSY2,48 8 PRTFC 00450
* 002210 1000474500 00460 JR CKBA,0 PRTFC 00460
* 002215 3000221560 00470 BA2 JC BA2,48 BA ERROR PRTFC 00470
002222 3400777702 00480 CC 07777,2 2 PRTFC 00480
* 002227 3000224642 00490 JC INIT3,3434 PRTFC 00490
* 002234 3000223460 00500 SUCL2 JC SUCL2,4848 PRTFC 00500
* 002241 3000224640 00510 JC INIT3,3232 PRTFC 00510
002246 2000510040 00520 INIT3 FT TITLE,3232 PRTFC 00520
002253 2000000141 00530 FT 1,33 PRTFC 00530
002260 4400777702 00540 SC 07777,2 2 PRTFC 00540
002265 4400511306 00550 SC TSTCT,6 6 PRTFC 00550
* 002272 3000227740 00560 JC PRT3,32 2 PRTFC 00560
002277 4000220000 00570 PRT3 XF 18,0,0,0,0 PRT FULL LI INHBIT INT PRTFC 00570
* 002304 1000324200 00580 JR INDTT PRTFC 00580
* 002311 3000233000 00590 JC BSY3+5 PRTFC 00590
* 002316 3000231660 00600 NINT3 JC NINT3,4848 PRTFC 00600
* 002323 3000232360 00610 BSY3 JC BSY3,48 8 PRTFC 00610
* 002330 1000471400 00620 JR TSTBA PRTFC 00620
* 002335 3000233560 00630 BA3 JC BA3,48 PRTFC 00630
002342 3400777702 00640 CC 07777,2 2 PRTFC 00640
* 002347 3000236142 00650 JC SUCL3+5,5,34 PRTFC 00650
* 002354 3000235460 00660 SUCL3 JC SUCL3,4848 PRTFC 00660
002361 4400511307 00670 SC TSTCT,7 7 PRTFC 00670
002366 2000510040 00680 INIT4 FT TITLE,3232 PRTFC 00680
002373 2000000141 00690 FT 1,33 PRTFC 00690
002400 4400777702 00700 SC 07777,2 2 PRTFC 00700
002405 2000244303 00710 FT CHEK4,3 3 PRTFC 00710
002412 5200324203 00720 SA1 INDTT+3,3,3 PRTFC 00720
002417 4400511307 00730 SC TSTCT,7 7 PRTFC 00730
* 002424 3000243140 00740 JC PRT4,32 2 PRTFC 00740
002431 4000420000 00750 PRT4 XF 34,0,0,0,0 FULL LI LOCK OUT NO INHIBIT PRTFC 00750
002436 6000020301 00760 AC 0203,1 PRTFC 00760
002443 4000420000 00770 CHEK4 XF 34,0,0,0,0 WILL PRINT IF NOT INTERR ON PPRTFC 00770
* 002450 3000246200 00780 JC TSTAV PRTFC 00780
* 002455 3000245560 00790 BSY4 JC BSY4,48 8 PRTFC 00790
* 002462 1000471400 00800 TSTAV JR TSTBA PRTFC 00800
* 002467 3000246760 00810 BA4 JC BA4,48 PRTFC 00810
002474 3400777703 00820 CC 07777,3 3 PRTFC 00820
* 002501 3000252042 00830 JC INIT5,3434 PRTFC 00830
* 002506 3000250660 00840 SUCL4 JC SUCL4,4848 PRTFC 00840
* 002513 3000252040 00850 JC INIT5,3232 PRTFC 00850
002520 2000510040 00860 INIT5 FT TITLE,3232 PRTFC 00860
002525 2000000041 00870 FT 0,33 PRTFC 00870
002532 4400777703 00880 SC 07777,3 3 PRTFC 00880
002537 2000257003 00890 FT FIVOK,3 3 PRTFC 00890
002544 5200324203 00900 SA1 INDTT+3,3,3 PRTFC 00900
002551 4400511310 00910 SC TSTCT,01010 PRTFC 00910
002556 4000640000 00920 PRT5 XF 52,0,0,0,0 LOCKOUT INHIBIT FEED PAPER PRTFC 00920
002563 4000640000 00930 XF 52,0,0,0,0 WILL CAUSE BUSY IF PRT5 DID PRTFC 00930
* 002570 3000260700 00940 FIVOK JC BSY5+5,0,0 PRTFC 00940
* 002575 3000257560 00950 NINT5 JC NINT5,4848 PRTFC 00950
* 002602 3000260260 00960 BSY5 JC BSY5,48 8 PRTFC 00960
* 002607 1000471400 00970 JR TSTBA PRTFC 00970
* 002614 3000261460 00980 BA5 JC BA5,48 PRTFC 00980
002621 3400777703 00990 CC 07777,3 3 PRTFC 00990
* 002626 3000264042 01000 JC PRT5F,3434 PRTFC 01000
* 002633 3000263360 01010 SUCL5 JC SUCL5,4848 PRTFC 01010
002640 4400020701 01020 PRT5F SC 0207,1 PRTFC 01020
002645 4400511310 01030 SC TSTCT,8 8 PRTFC 01030
002652 4000620000 01040 XF 50,0,0,0,0 PRINT LINE FOR TEST 5 PRTFC 01040
002657 2000540040 01050 INIT6 FT RIGHT,3232 01050
002664 4400020701 01060 SC 0207,1 PRTFC 01060
002671 4400777703 01070 SC 07777,3 3 PRTFC 01070
002676 4400551311 01080 SC LICT,01111 PRTFC 01080
002703 2000273403 01090 STINT FT NINTF,3 3 PRTFC 01090
002710 5200324203 01100 SA1 INDTT+3,3,3 PRTFC 01100
002715 4000020200 01110 PRT6 XF 2,00200,0,0,0 FULL LI ADV BA LEFT HALF SP PRTFC 01110
002722 4200003740 01120 SAVE6 ST 037,32 PRTFC 01120
002727 4000040000 01130 XF 4,0,0,0 0 SPACE PAPER SHOULD CAUSE BUSYPRTFC 01130
* 002734 3000273460 01140 NINTF JC NINTF,4848 PRTFC 01140
* 002741 3000274160 01150 SUCCM JC SUCCM,4848 PRTFC 01150
* 002746 1000324200 01160 JR INDTT GO WAIT FOR COMP IPT FR PT 6 PRTFC 01160
* 002753 3000275360 01170 NINT6 JC NINT6,4848 PRTFC 01170
* 002760 3000277200 01180 JC BSY6+5,0,0 PRTFC 01180
* 002765 3000276560 01190 BSY6 JC BSY6,48 8 PRTFC 01190
* 002772 1000477600 01200 JR CKBA6 01200
* 002777 3000277760 01210 BA6 JC BA6,48 PRTFC 01210
003004 3400777704 01220 CC 07777,4 4 PRTFC 01220
* 003011 3000303042 01230 JC INIT7,3434 PRTFC 01230
* 003016 3000301660 01240 SUCL6 JC SUCL6,4848 PRTFC 01240
* 003023 3000303040 01250 JC INIT7,3232 PRTFC 01250
003030 2000560040 01260 INIT7 FT LEFT,32 2 PRTFC 01260
003035 2000570033 01270 FT LEFT+64,4,27 PRTFC 01270
003042 4400020700 01280 SC 0207,0 PRTFC 01280
003047 4400561312 01290 SC LFTCT,01012 PRTFC 01290
003054 4400777704 01300 SC 07777,4 4 PRTFC 01300
* 003061 3000307332 01310 JC PRT7,26 6 PRTFC 01310
* 003066 3000307340 01320 JC PRT7,32 2 PRTFC 01320
003073 4000020600 01330 PRT7 XF 2,00600,0,0,0 HALF LI ADV B A PRTFC 01330
* 003100 1000324200 01340 JR INDTT PRTFC 01340
* 003105 3000312400 01350 JC RESET PRTFC 01350
* 003112 3000311260 01360 NINT7 JC NINT7,4848 PRTFC 01360
* 003117 3000311760 01370 BBSY7 JC BBSY7,4848 PRTFC 01370
003124 2000313603 01380 RESET FT RST3,3 PRTFC 01380
003131 5200324203 01390 SA1 INDTT+3,3,3 PRTFC 01390
* 003136 3000314333 01400 RST3 JC GDINT,2727 PRTFC 01400
* 003143 3000315500 01410 GDINT JC BSY7+5,0,0 PRTFC 01410
* 003150 3000315060 01420 BSY7 JC BSY7,48 8 PRTFC 01420
003155 7400015740 01430 CT 0157,32 2 01430
* 003162 3000317442 01440 JC BA7+5,3434 PRTFC 01440
* 003167 3000316760 01450 BA7 JC BA7,48 PRTFC 01450
003174 3400777705 01460 CC 07777,5 5 PRTFC 01460
* 003201 3000321342 01470 JC FINIS,3434 PRTFC 01470
* 003206 3000320660 01480 SUCL7 JC SUCL7,4848 PRTFC 01480
* 003213 3000426162 01490 FINIS JC ADD,50 PRTFC 01490
* 003220 3000170500 01500 JC INIT1 PRTFC 01500
* 003225 3000322560 01510 INDST JC INDST,4848 PRTFC 01510
003234 000000 01520 BLANK +3 0 PRTFC 01520
003235 01530 INBIT EQU $ 01530
003236 0000 01540 +2 0 01540
* 003237 3000324400 01550 INDTT JC CLEAR PRTFC 01550
003244 4400323500 01560 CLEAR SC INBIT,0 0 PRTFC 01560
003251 4400323600 01570 SC INBIT+1,1,0 PRTFC 01570
003256 4400347657 01580 SC LP1+4,4747 PRTFC 01580
003263 4400350341 01590 SC LP2+4,3333 PRTFC 01590
003270 4000000000 01600 TEST XF 0,0,0,0 0 PRTFC 01600
* 003275 3000351153 01610 JC ERZ,43 PRTFC 01610
003302 4000000001 01620 XF 0,01,0,0,0 PRTFC 01620
* 003307 3000352353 01630 JC ER1,43 PRTFC 01630
003314 4000000002 01640 XF 0,02,0,0,0 PRTFC 01640
* 003321 3000353553 01650 JC PAPER,4343 PRTFC 01650
003326 4000000004 01660 XF 0,04,0,0,0 PRTFC 01660
* 003333 3000354753 01670 JC ER3,43 PRTFC 01670
003340 4000000010 01680 XF 0,010,0,0,0 PRTFC 01680
* 003345 3000356153 01690 JC ER4,43 PRTFC 01690
003352 4000000020 01700 XF 0,00020,0,0,0 PRTFC 01700
* 003357 3000357353 01710 JC ER5,43 PRTFC 01710
003364 4000000040 01720 XF 0,00040,0,0,0 PRTFC 01720
* 003371 3000360553 01730 JC ER6,43 PRTFC 01730
003376 4000000100 01740 XF 0,00100,0,0,0 PRTFC 01740
* 003403 3000361753 01750 JC ER7,43 PRTFC 01750
003410 4000000200 01760 XF 0,00200,0,0,0 PRTFC 01760
* 003415 3000363153 01770 JC ER8,43 PRTFC 01770
003422 4000000400 01780 XF 0,00400,0,0,0 PRTFC 01780
* 003427 3000364353 01790 JC ER9,43 PRTFC 01790
003434 4000001000 01800 XF 0,01000,0,0,0 PRTFC 01800
* 003441 3000365553 01810 JC ERTEN,4343 PRTFC 01810
003446 4000002000 01820 XF 0,02000,0,0,0 PRTFC 01820
* 003453 3000366753 01830 JC ER11,43 3 PRTFC 01830
003460 4000004000 01840 XF 0,04000,0,0,0 PRTFC 01840
* 003465 3000370153 01850 JC ER12,43 3 PRTFC 01850
* 003472 3200327000 01860 LP1 JL TEST PRTFC 01860
* 003477 3200327000 01870 LP2 JL TEST PRTFC 01870
* 003504 3000323700 01880 JC INDTT PRTFC 01880
003511 4400323600 01890 ERZ SC INBIT+1,1,0 PRTFC 01890
* 003516 3000322500 01900 JC INDST PRTFC 01900
003523 4400323601 01910 ER1 SC INBIT+1,1,1 PRTFC 01910
* 003530 3000322500 01920 JC INDST PRTFC 01920
003535 4400323602 01930 PAPER SC INBIT+1,1,2 PRTFC 01930
* 003542 3000424700 01940 JC PASTP PRTFC 01940
003547 4400323604 01950 ER3 SC INBIT+1,1,4 PRTFC 01950
* 003554 3000322500 01960 JC INDST PRTFC 01960
003561 4400323610 01970 ER4 SC INBIT+1,1,010 PRTFC 01970
* 003566 3000322500 01980 JC INDST PRTFC 01980
003573 4400323620 01990 ER5 SC INBIT+1,1,020 PRTFC 01990
* 003600 3000322500 02000 JC INDST PRTFC 02000
003605 4400323640 02010 ER6 SC INBIT+1,1,040 PRTFC 02010
* 003612 3000322500 02020 JC INDST PRTFC 02020
003617 4400323501 02030 ER7 SC INBIT,1 1 PRTFC 02030
* 003624 3000322500 02040 JC INDST PRTFC 02040
003631 4400323502 02050 ER8 SC INBIT,2 2 PRTFC 02050
* 003636 3000322500 02060 JC INDST PRTFC 02060
003643 4400323504 02070 ER9 SC INBIT,4 4 PRTFC 02070
* 003650 3000322500 02080 JC INDST,0 0 PRTFC 02080
003655 4400323510 02090 ERTEN SC INBIT,01010 PRTFC 02090
* 003662 3000322500 02100 JC INDST PRTFC 02100
003667 4400323520 02110 ER11 SC INBIT,02020 PRTFC 02110
* 003674 3000322500 02120 JC INDST PRTFC 02120
003701 4400323540 02130 ER12 SC INBIT,04040 PRTFC 02130
* 003706 3000322500 02140 JC INDST PRTFC 02140
* 003713 3000372000 02150 INT JC INT+5 PRTFC 02150
003720 4600040730 02160 BT 0407,24 4 PRTFC 02160
003725 4600040327 02170 BT 0403,23 3 PRTFC 02170
003732 4600020326 02180 BT 0203,22 2 PRTFC 02180
003737 4000000001 02190 XF 0,01,0,0,0 PRTFC 02190
* 003744 3000416553 02200 JC IER1,43 3 PRTFC 02200
003751 4000000002 02210 XF 0,02,0,0,0 PRTFC 02210
* 003756 3000424753 02220 JC PASTP,4343 PRTFC 02220
003763 4000000004 02230 XF 0,04,0,0,0 PRTFC 02230
* 003770 3000417253 02240 JC IER3,43 3 PRTFC 02240
003775 4000000010 02250 XF 0,010,0,0,0 PRTFC 02250
* 004002 3000417753 02260 JC IER4,43 3 PRTFC 02260
004007 4000000020 02270 XF 0,020,0,0,0 PRTFC 02270
* 004014 3000420453 02280 JC IER5,43 3 PRTFC 02280
004021 4000000040 02290 XF 0,040,0,0,0 PRTFC 02290
* 004026 3000421153 02300 JC IER6,43 3 PRTFC 02300
004033 4000000100 02310 XF 0,00100,0,0,0 PRTFC 02310
* 004040 3000421653 02320 JC IER7,43 3 PRTFC 02320
004045 4000000200 02330 XF 0,00200,0,0,0 PRTFC 02330
* 004052 3000422353 02340 JC IER8,43 3 PRTFC 02340
004057 4000000400 02350 XF 0,00400,0,0,0 PRTFC 02350
* 004064 3000423053 02360 JC IER9,43 3 PRTFC 02360
004071 4000001000 02370 XF 0,01000,0,0,0 PRTFC 02370
* 004076 3000423553 02380 JC IERTN,4343 PRTFC 02380
004103 4000002000 02390 XF 0,02000,0,0,0 PRTFC 02390
* 004110 3000414653 02400 JC IBUSY,4343 PRTFC 02400
004115 4000004000 02410 XF 0,04000,0,0,0 PRTFC 02410
* 004122 3000424253 02420 JC IER12,4343 PRTFC 02420
004127 6000324205 02430 AC INDTT+3,3,5 PRTFC 02430
004134 6000777701 02440 AC 07777,1 1 PRTFC 02440
* 004141 3000323731 02450 JC INDTT,2525 PRTFC 02450
004146 4000402000 02460 IBUSY XF 32,0200000,0,0 PRTFC 02460
004153 6000324212 02470 AC INDTT+3,3,012 PRTFC 02470
* 004160 3000323731 02480 JC INDTT,2525 PRTFC 02480
* 004165 3000416560 02490 IER1 JC IER1,48 8 PRTFC 02490
* 004172 3000417260 02500 IER3 JC IER3,48 8 PRTFC 02500
* 004177 3000417760 02510 IER4 JC IER4,48 8 PRTFC 02510
* 004204 3000420460 02520 IER5 JC IER5,48 8 PRTFC 02520
* 004211 3000421160 02530 IER6 JC IER6,48 8 PRTFC 02530
* 004216 3000421660 02540 IER7 JC IER7,48 8 PRTFC 02540
* 004223 3000422360 02550 IER8 JC IER8,48 8 PRTFC 02550
* 004230 3000423060 02560 IER9 JC IER9,48 8 PRTFC 02560
* 004235 3000423560 02570 IERTN JC IERTN,4848 PRTFC 02570
* 004242 3000424260 02580 IER12 JC IER12,4848 PRTFC 02580
* 004247 3000425420 02590 PASTP JC FIX,16 PAPER LOW STOP PRTFC 02590
* 004254 3000170500 02600 FIX JC INIT1,0 0 PRTFC 02600
004261 4400425331 02610 ADD SC PASTP+4,4,25 PRTFC 02610
004266 4400020702 02620 SC 0207,2 PRTFC 02620
004273 2000441303 02630 FT ENTR1,3 3 PRTFC 02630
004300 5200425203 02640 SA1 PASTP+3,3,3 PRTFC 02640
004305 5600601720 02650 BA2 ONES,16 6 PRTFC 02650
004312 7200513320 02660 AB2 TSTCT+1616,16 PRTFC 02660
004317 4400511313 02670 SC TSTCT,01013 PRTFC 02670
004324 2000435503 02680 FT NINT8,3 3 PRTFC 02680
004331 5200324203 02690 SA1 INDTT+3,3,3 PRTFC 02690
004336 2000510003 02700 FT TITLE,3 3 PRTFC 02700
004343 5200020303 02710 SA1 0203,3 PRTFC 02710
004350 4000460200 02720 PRT8 XF 38,0020000,0,0 PRTFC 02720
* 004355 3000435560 02730 NINT8 JC NINT8,4848 PRTFC 02730
* 004362 3000437400 02740 JC BSY8+5 PRTFC 02740
* 004367 3000436760 02750 BSY8 JC BSY8,48 8 PRTFC 02750
* 004374 1000474500 02760 JR CKBA PRTFC 02760
* 004401 3000440160 02770 BA8 JC BA8,48 PRTFC 02770
* 004406 3000426100 02780 JC ADD PRTFC 02780
004413 4000000004 02790 ENTR1 XF 0,04,0,0,0 PRTFC 02790
* 004420 3000443253 02800 JC OVRDE,4343 PRTFC 02800
* 004425 3000443700 02810 JC FIXIM,0 0 02810
* 004432 3000443260 02820 OVRDE JC OVRDE,4848 PRTFC 02820
004437 5600603700 02830 FIXIM BA1 EXES,16 6 PRTFC 02830
* 004444 3000000040 02840 JC 0,32 02840
* 004451 3000446300 02850 JC BAPS+5 02850
* 004456 3000445660 02860 BAPS JC BAPS,48 8 PRTFC 02860
004463 2000454503 02870 FT ENTR2,3 3 PRTFC 02870
004470 5200425203 02880 SA1 PASTP+3,3,3 PRTFC 02880
004475 2000452603 02890 FT NINTP,3 3 PRTFC 02890
004502 5200324203 02900 SA1 INDTT+3,3,3 PRTFC 02900
004507 2000510003 02910 FT TITLE,3 3 PRTFC 02910
004514 5200020303 02920 SA1 0203,3 PRTFC 02920
004521 4000462600 02930 TSTPT XF 38,0260000,0,0 LOCKOUT PRT FROM BUFF HALF PRTFC 02930
* 004526 3000452660 02940 NINTP JC NINTP,4848 PRTFC 02940
* 004533 3000453360 02950 SUCLT JC SUCLT,4848 PRTFC 02950
* 004540 3000454060 02960 BSYP JC BSYP,48 8 PRTFC 02960
* 004545 1000471400 02970 ENTR2 JR TSTBA PRTFC 02970
* 004552 3000455260 02980 BAT JC BAT,48 PRTFC 02980
* 004557 3000455740 02990 JC BAT+5,3232 PRTFC 02990
004564 2000464603 03000 FT NINTL,3 3 PRTFC 03000
004571 5200324203 03010 SA1 INDTT+3,3,3 PRTFC 03010
004576 2000466503 03020 FT ENTR3,3 3 PRTFC 03020
004603 5200425203 03030 SA1 PASTP+3,3,3 PRTFC 03030
* 004610 3000461520 03040 NOVRD JC GOOD,16 6 PRTFC 03040
004615 4000000004 03050 GOOD XF 0,04,0,0,0 PRTFC 03050
* 004622 3000463453 03060 JC LAST,43 3 PRTFC 03060
* 004627 3000461020 03070 JC NOVRD,1616 PRTFC 03070
004634 4400000700 03080 LAST SC 07,0 PRTFC 03080
004641 4000662600 03090 XF 54,0260000,0,0 LOCKOUT INH HAL LI FR BUFFER PRTFC 03090
* 004646 3000464660 03100 NINTL JC NINTL,4848 PRTFC 03100
* 004653 3000465360 03110 SUCLL JC SUCLL,4848 PRTFC 03110
* 004660 3000466060 03120 BSYL JC BSYL,48 8 PRTFC 03120
* 004665 3000467700 03130 ENTR3 JC AOK 03130
* 004672 3000467260 03140 BAL JC BAL,48 PRTFC 03140
* 004677 3000467760 03150 AOK JC AOK,48 PRTFC 03150
* 004704 3000170500 03160 JC INIT1 PRTFC 03160
* 004711 3000471600 03170 TSTBA JC TSTBA+5 5 PRTFC 03170
004716 7400014740 03180 CT 0147,32 2 PRTFC 03180
* 004723 3000471143 03190 JC TSTBA,3535 PRTFC 03190
004730 6000471405 03200 AC TSTBA+3,3,5 PRTFC 03200
* 004735 3000471100 03210 JC TSTBA,0 0 PRTFC 03210
* 004742 3000474700 03220 CKBA JC CKBA+5 PRTFC 03220
004747 7400015340 03230 CT 0153,32 2 PRTFC 03230
* 004754 3000474243 03240 JC CKBA,35 5 PRTFC 03240
004761 6000474505 03250 AC CKBA+3,5,5 PRTFC 03250
* 004766 3000474200 03260 JC CKBA,0 PRTFC 03260
* 004773 3000500000 03270 CKBA6 JC CKBA6+5,5,0 PRTFC 03270
005000 7400015740 03280 CT 0157,32 2 PRTFC 03280
* 005005 3000477343 03290 JC CKBA6,3535 PRTFC 03290
005012 6000477605 03300 AC CKBA6+3,3,5 PRTFC 03300
* 005017 3000477300 03310 JC CKBA6 PRTFC 03310
005100 03320 ORIG $,64 03320
005100 03330 TITLE EQU $ 03330
005107 5254663126006630 03340 +8 0525466363126006630 PRTFC 03340 6
005113 65660004 03350 TSTCT +4 06566000004 PRTFC 03350
005123 0024252627303132 03360 +8 0002425252627303132 PRTFC 03360 1
005133 3334444546475051 03370 +8 0333444444546475051 PRTFC 03370 0
005143 5253546566677071 03380 +8 0525354646566677071 PRTFC 03380 0
005153 7273740304050607 03390 +8 0727374040304050607 PRTFC 03390 6
005163 1011121314624222 03400 +8 0101112121314624222 PRTFC 03400 2
005173 3702554140202377 03410 +8 0370255454140202377 PRTFC 03410 3
005203 4335642161567516 03420 +8 0433564242161567516 PRTFC 03420 5
005213 6317760136156057 03430 +8 0631776060136156057 PRTFC 03430 0
005214 64 03440 AREA 52,B,0 PRTFC 03440
005303 L132 03442 +4 _L132_ PRTFC 03442
005400 03450 ORIG $,64 03450
005400 03460 RIGHT EQU $ PRTFC 03460
005400 100 03470 AREA 64,B,0 PRTFC 03470
005507 5254663126006630 03480 +8 0525466363126006630 PRTFC 03480 6
005513 65660004 03490 LICT +4 06566000004 PRTFC 03490
005523 0024252627303132 03500 +8 0002425252627303132 PRTFC 03500 1
005533 3334444546475051 03510 +8 0333444444546475051 PRTFC 03510 0
005543 5253546566677071 03520 +8 0525354646566677071 PRTFC 03520 0
005553 7273740304050607 03530 +8 0727374040304050607 PRTFC 03530 6
005563 1011121314624222 03540 +8 0101112121314624222 PRTFC 03540 2
005573 3702554140202377 03550 +8 0370255454140202377 PRTFC 03550 3
005577 43356421 03560 +4 04335642421 PRTFC 03560
005600 03570 ORIG $,64 03570
005600 03580 LEFT EQU $ PRTFC 03580
005607 5254663126006630 03590 +8 0525466363126006630 PRTFC 03590 6
005613 65660004 03600 LFTCT +4 06566000004 PRTFC 03600
005623 0024252627303132 03610 +8 0002425252627303132 PRTFC 03610 1
005633 3334444546475051 03620 +8 0333444444546475051 PRTFC 03620 0
005643 5253546566677071 03630 +8 0525354646566677071 PRTFC 03630 0
005653 7273740304050607 03640 +8 0727374040304050607 PRTFC 03640 6
005663 1011121314624222 03650 +8 0101112121314624222 PRTFC 03650 2
005673 3702554140202377 03660 +8 0370255454140202377 PRTFC 03660 3
005677 43356421 03670 +4 04335642421 PRTFC 03670
005700 100 03680 AREA 64,B,0 PRTFC 03680
006007 0001010101010101 03690 +8 0000101010101010101 PRTFC 03690 1
006017 0101010101010101 03700 ONES +8 0010101010101010101 PRTFC 03700 1
006027 7272727272727272 03710 +8 0727272727272727272 PRTFC 03710 2
006037 7272727272727272 03720 EXES +8 0727272727272727272 PRTFC 03720 2
006040 03730 IE EQU $ PRTFC 03730
* 006040 3000000031 03740 JC 0,25 03740
006047 003713 03750 +3 INT 03750
3000170000 03760 END 01700 PRTFC 03760
{-- tape mark --}
002721 C041 RARE CODEDIT SOURCE 06/67 CC G T3834394-04
001400 00010 T041 BEGIN 01400 RARE 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T042 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 T043 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
{0xff record at 2721}
* 001077 3020004042 * JE 32,1 *
* 001104 3007010560 * JD 070105 *
* 001111 3020004000 * J 32,1 *
001116 245 * AREA 165 *
SEGMENT-ID T044 3000136300 * SEGJP $ *
001400 00020 ORIG 01400 RARE 00020
001400 5601217301 00030 WAIT BA1 UUU,1 RARE 00030
001405 5200000001 00040 SA1 0,1 RARE 00040
001412 5601245310 00050 BA1 IE7+7,8 8 SET IE CHAN 7 RARE 00050 T
001417 5200047710 00060 SA1 0477,8 RARE 00060
* 001424 3000143120 00070 JHJ $+5 CHANGE LOCATION 0 FOR DIFF UNIT RARE 00070 E
001431 5600000001 00080 BA1 0,1 RARE 00080
001436 5201157201 00090 SA1 U,1 RARE 00090
001443 5201217301 00100 SA1 UUU,1 RARE 00100
001450 2600034710 00110 PD 0347,8 RARE 00110
001455 5200034401 00120 SA1 0344,1 RARE 00120
001462 5601246310 00130 TYPE BA1 IE6T,8 RARE 00130
001467 5200046710 00140 SA1 0467,8 RARE 00140
001474 2001250070 00150 FT RA,56 RARE 00150
001501 4400034020 00160 SC 0340,16 6 RARE 00160
001506 4400034577 00170 SC 0345,07777 RARE 00170
001513 2000013703 00180 FT 0137,3 RARE 00180
001520 5201046102 00190 SA1 ETA-1,2 2 RARE 00190
001525 5201046402 00200 SA1 ETB-1,2 2 RARE 00200
001532 5601067600 00210 BA1 MS6 RARE 00210
001537 5200641700 00220 SA1 TANK+15,5,16 RARE 00220
001544 4140651000 00230 XF 065,0100000,0,6 RARE 00230
001551 4140001000 00240 XF 0,01000,0,0,6 RARE 00240
* 001556 3001220453 00250 JC HDRM,43 3 TRE-HALF DRUM RARE 00250
001563 4140407777 00260 XF 32,0777777,0,6 RARE 00260
001570 4400034640 00270 SC 0346,32 2 RARE 00270
* 001575 3000160762 00280 JC $+10,50 0 SS 1-DRUM B RARE 00280
001602 4400034600 00290 SC 0346,0 RARE 00290
001607 6400034401 00300 LS 0344,1 RARE 00300
001614 4140652000 00310 XF 065,0200000,0,6 RARE 00310
001621 3401250277 00320 CC RA+2,07777 RARE 00320
* 001626 3001225442 00330 JE F2DRM RARE 00330
001633 3401250237 00340 CC RA+2,03737 RARE 00340
* 001640 3000165242 00350 JE $+10 RARE 00350
* 001645 3001225460 00360 JD F2DRM M + START FOR FASTRAND 2 RARE 00360
001652 4140407777 00370 XF 32,0777777,0,6 RARE 00370
001657 3401251453 00380 CC RA+12,05053 RARE 00380
* 001664 3000167643 00390 JU $+10 RARE 00390
001671 4400304430 00400 SC INC+4,2424 FIX FOR 490 DRUM RARE 00400
001676 4400020702 00410 SC 0207,2 RARE 00410
* 001703 1001002600 00420 JR PRTLN RARE 00420
001710 4400020740 00430 SC 0207,32 2 RARE 00430
001715 3400054464 00435 CC 0544,06464 00435
* 001722 3000173442 00436 JE START 00436
001727 4000640000 00440 XF 064,0,0,0,0 RARE 00440
* 001734 3000174125 00450 START JC $+5,21 RARE 00450
001741 2600013710 00460 PD T23,8 RARE 00460
001746 5401157274 00470 LP U,074 RARE 00470
* 001753 3000177262 00480 JC STB,50 RARE 00480
* 001760 3000200423 00490 STA JC SEQ,19 RARE 00490
* 001765 3000203023 00500 JC NN,19 SI 1 - DRUM A RARE 00500
* 001772 3000200426 00510 STB JC SEQ,22 RARE 00510
* 001777 3000203026 00520 JC NN,22 SI 2 - DRUM B RARE 00520
* 002004 3000201127 00530 SEQ JC $+5,23 RARE 00530
* 002011 3000203063 00540 JC NN,51 SS 2 - RANDOM RARE 00540
* 002016 3000202324 00550 JC $+5,20 SI 3 - SEQ. RARE 00550
002023 2601157503 00560 PD S,3 RARE 00560
002030 5601212610 00570 NN BA1 IE6,8 RARE 00570
002035 5200046710 00580 SA1 0467,8 RARE 00580
002042 4401157500 00590 SC S,0 RARE 00590
002047 5601211610 00600 BA1 IE0,8 RARE 00600
002054 5200040710 00610 SA1 0407,8 RARE 00610
002061 5601153700 00620 BA1 IE2,16 RARE 00620
002066 5200051700 00630 SA1 0517,16 6 RARE 00630
002073 2600005310 00640 PD X2,8 RARE 00640
002100 2600007700 00650 N PD 077,16 RARE 00650
002105 2600005704 00660 PD X3,4 RARE 00660
002112 4401157500 00670 SC S,0 RARE 00670
* 002117 3000256167 00680 JC FIX,55 RARE 00680
* 002124 1000425500 00690 JR GENRX RARE 00690
002131 2000465611 00700 TRACK FT H0,9 RARE 00700
002136 2001157312 00710 FT T,10 RARE 00710
002143 2000000013 00720 FT 0,11 RARE 00720
002150 4400216103 00730 SET SC CC+4,03 3 RARE 00730
002155 3461160203 00740 CC CC TS02-6,0,03,3 RARE 00740
* 002162 3020000042 00750 JE 0,1 RARE 00750
002167 3400216114 00760 CC CC+4,01414 RARE 00760
* 002174 3000220642 00770 JE RST RARE 00770
* 002201 3000222000 00780 J I RARE 00780
002206 4400216103 00790 RST SC CC+4,03 3 RARE 00790
* 002213 3000222500 00800 J UU RARE 00800
002220 6000216101 00810 I AC CC+4,1 RARE 00810
002225 6000004712 00820 UU AC 047,10 RARE 00820
* 002232 3000215500 00830 J CC RARE 00830
002237 2000502211 00840 SB FT IH0,9 RARE 00840
002244 6000005701 00850 AC 057,1 RARE 00850
* 002251 3000215000 00860 J SET RARE 00860
* 002256 3000227065 00870 TT JC OUT,53 RARE 00870
* 002263 3000231422 00880 JC HEAD,18 8 RARE 00880
002270 4601157571 00890 OUT BT S,57 RARE 00890
002275 5601217301 00900 BA1 UUU,1 RARE 00900
002302 5201157201 00910 SA1 U,1 RARE 00910
* 002307 3000234025 00920 JC SUD,21 RARE 00920
002314 2000465611 00930 HEAD FT H0,9 RARE 00930
002321 2001157412 00940 FT H,10 RARE 00940
002326 6000005701 00950 AC 057,1 RARE 00950
* 002333 3000215000 00960 J SET RARE 00960
002340 3401157340 00970 SUD CC T,040 RARE 00970
* 002345 3000235741 00980 JC TU,33 RARE 00980
* 002352 3000241000 00990 J SU RARE 00990
002357 5601161001 01000 TU BA1 TS02,1 RARE 01000
002364 5400001701 01010 LP 017,1 RARE 01010
002371 3400001701 01020 CC 017,1 RARE 01020
* 002376 3000241043 01030 JU SU RARE 01030
002403 6001157201 01040 AC U,1 RARE 01040
002410 3401157440 01050 SU CC H,32 RARE 01050
* 002415 3000255441 01060 JC DRMA,33 3 RARE 01060
* 002422 3000256162 01070 JC FIX,50 RARE 01070
* 002427 3000173400 01080 J START RARE 01080
002434 5601157403 01090 DA BA1 H,3 RARE 01090
002441 5400001503 01100 LP 13,3 RARE 01100
002446 7001046243 01110 CB1 ETA,3 RARE 01110
* 002453 3000317742 01120 JE BAND RARE 01120
002460 6001157401 01130 AC H,1 RARE 01130
002465 1401157440 01140 LC H,32 RARE 01140
* 002472 3000250443 01150 JU $+10 RARE 01150
002477 6001157440 01160 AC H,32 RARE 01160
* 002504 3000210000 01170 J N RARE 01170
* 002511 3000243466 01180 DB JC DA,54 RARE 01180
002516 5601157403 01190 BA1 H,3 RARE 01190
002523 5400001503 01200 LP 13,3 RARE 01200
002530 7001046543 01210 CB1 ETB,3 RARE 01210
* 002535 3000317742 01220 JE BAND RARE 01220
002542 6001157401 01230 AC H,1 RARE 01230
* 002547 3000210000 01240 J N RARE 01240
* 002554 3000173462 01250 DRMA JC START,5050 RARE 01250
002561 2001250070 01260 FIX FT RA,56 RARE 01260
* 002566 3000260066 01270 JC $+10,54 4 RARE 01270
002573 6401157440 01280 LS H,32 RARE 01280
002600 4400034020 01290 SC 0340,02020 RARE 01290
002605 4601157571 01300 BT S,57 RARE 01300
* 002612 1001233440 01310 SWD JR MDFY,32 2 RARE 01310
002617 4140652000 01320 R1 XF 065,0200000,0,6 RARE 01320
* 002624 1000271100 01330 JR TEST RARE 01330
* 002631 3000251167 01340 JC DB,55 RARE 01340
* 002636 1000265300 01350 JR CON RARE 01350
* 002643 3000173400 01360 J START RARE 01360
* 002650 3000000000 01370 CON J 0 RARE 01370
002655 5601160604 01380 BA1 TS02-2,4,4 RARE 01380
002662 5201160402 01390 SA1 TS02-4,2,2 RARE 01390
002667 5200004104 01400 SA1 041,4 RARE 01400
002674 5201160622 01410 SA2 TS02-2,2,2 RARE 01410
* 002701 3000265000 01420 J CON RARE 01420
* 002706 3000000000 01430 TEST J 0 RARE 01430
002713 2600006710 01440 PD 067,8 CLEAR IR 4+5 RARE 01440
002720 5601157505 01450 COMP BA1 GENA+4,5,5 ZUTHS GENERATED RARE 01450
002725 3501250014 01460 CC RA,014,X,X4 CHECK FOR 14 SENTINEL RARE 01460
* 002732 3000301442 01470 JE CMPA RARE 01470
002737 3501250016 01480 CC RA,016,X,X4 CHECK FOR 16 SENTINEL RARE 01480
* 002744 3000301442 01490 JE CMPA RARE 01490
002751 5601063324 01500 BA2 MS3,4 RARE 01500
002756 7001170364 01510 CB2 PRNT+3,4,4 RARE 01510
* 002763 3000307642 01520 JE ER RARE 01520
002770 5241550405 01530 SA1 LIST+4,5,5,X2 RARE 01530
002775 6000005305 01540 AC X2,5 RARE 01540
003002 6000013301 01550 AC T22,1 RARE 01550
* 003007 3000307600 01560 J ER RARE 01560
003014 7101250444 01570 CMPA CB1 RA+4,4,X,X4 UTHS READ RARE 01570
* 003021 3000307643 01580 JU ER RARE 01580
003026 3501250700 01590 CC RA+7,0,4,4 RARE 01590
* 003033 3000307643 01600 JU ER RARE 01600
003040 6000006310 01610 INC AC 063,8 RARE 01610
003045 5400006207 01620 LP 062,7 RARE 01620
003052 7400006315 01630 CT 063,13 RARE 01630
* 003057 3000316042 01640 JE ADGD RARE 01640
003064 6001157501 01650 AC GENA+4,1,1 RARE 01650
* 003071 3000272000 01660 J COMP RARE 01660
003076 5601160010 01670 ER BA1 GENA+7,8,8 RARE 01670
003103 5200016710 01680 NOOF SA1 0167,8 RARE 01680
003110 2001171716 01690 FT GEN+1,1414 RARE 01690
* 003115 1000453400 01700 JR EDIT RARE 01700
003122 5701250710 01710 BA1 RA+7,8,4,4 RARE 01710
003127 2001174516 01720 FT READ+1,1,14 RARE 01720
* 003134 1000453400 01730 JR EDIT RARE 01730
* 003141 1000437500 01740 JR PRINT RARE 01740
* 003146 3000304000 01750 J INC RARE 01750
* 003153 3000270600 01760 J TEST RARE 01760
003160 5601217250 01770 ADGD BD1 DEC1,8 RARE 01770
003165 6201200610 01780 AM1 GOOD,8 RARE 01780
* 003172 3000270600 01790 J TEST RARE 01790
* 003177 3000333164 01795 BAND JC BLP3+5,5,52 NO FASTBANDS IF SS3 01795 A
003204 4400343114 01800 SC BLP1+4,1,12 FASTBAND TEST RARE 01800
003211 4400333002 01810 SC BLP3+4,2,2 RARE 01810
003216 2601157503 01820 PD S,3 RARE 01820
003223 6401157203 01830 LS U,3 RARE 01830
003230 4401157377 01840 SC T,077 FB TR. 377 RARE 01840
* 003235 3000324766 01850 JC $+10,54 4 SI1 - DRUM A RARE 01850
003242 4401157414 01860 SC H,12 RARE 01860
003247 4601157571 01870 BT S,57 RARE 01870
003254 4140612000 01880 BR2 XF 061,0200000,0,6 RARE 01880
003261 4400331677 01890 SC BLP2+4,0,077 RARE 01890
003266 2600006704 01900 PD 067,4 RARE 01900
003273 3521250103 01910 CC RA+1,3,5,5 COMP FOR TRACK 0300 RARE 01910
* 003300 3000336242 01920 JE BOK RARE 01920
003305 6000006710 01930 AC 067,8 RARE 01930
* 003312 3200327377 01940 BLP2 JL BR2+15,0,077 RARE 01940
003317 6001157402 01950 AC H,2 RARE 01950
* 003324 3200324702 01960 BLP3 JL BR2-5,2 2 TRY ONCE MORE RARE 01960
003331 5601065617 01970 BA1 MS5,15 TRACK READ NOT PREPED AS RARE 01970
003336 5200641617 01980 SA1 TANK+14,4,15 FASTBAND - TRACK 0300 RARE 01980
003343 4400020702 01990 SC 0207,2 RARE 01990
* 003350 1001002600 02000 JR PRTLN RARE 02000
* 003355 3000343200 02010 J OVF RARE 02010
003362 5601063704 02020 BOK BA1 MS4,4 RARE 02020
003367 5201170304 02030 SA1 PRNT+3,4,4 RARE 02030
* 003374 1000271100 02040 JR TEST RARE 02040
003401 6001157401 02050 AC H,1 RARE 02050
003406 4401157500 02060 SC S,0 RARE 02060
003413 4601157571 02070 BT S,57 RARE 02070
003420 4140612000 02080 XF 061,0200000,0,6 RARE 02080
* 003425 3200336214 02090 BLP1 JL BOK,12 RARE 02090
003432 2601157503 02100 OVF PD S,3 RARE 02100
003437 5401157274 02110 LP U,074 RARE 02110
003444 4401157430 02120 SC H,030 RARE 02120
* 003451 3000346366 02130 JC $+10,54 4 RARE 02130
003456 4401157470 02140 SC H,070 RARE 02140
003463 4601157571 02150 BT S,57 RARE 02150
003470 4140616000 02160 R2 XF 061,0600000,0,6 RARE 02160
003475 5601063304 02170 BA1 MS3,4 RARE 02170
003502 5201170304 02180 SA1 PRNT+3,4,4 RARE 02180
* 003507 1000271100 02190 JR TEST RARE 02190
003514 2601170304 02200 PD PRNT+3,4,4 RARE 02200
003521 2600034703 02210 PD 0347,3 RARE 02210
* 003526 3000354066 02220 JC $+10,54 4 RARE 02220
003533 4400034640 02230 SC 0346,04040 RARE 02230
003540 4140616000 02240 R3 XF 061,0600000,0,6 RARE 02240
003545 1400034620 02250 LC 0346,16 6 RARE 02250
* 003552 3000360342 02260 JE ANAL RARE 02260
003557 6000034610 02270 AC 0346,8 RARE 02270
003564 7601214570 02280 AT B512,56 6 RARE 02280
003571 4400034020 02290 SC 0340,16 6 RARE 02290
* 003576 3000354000 02300 J R3 RARE 02300
* 003603 1000421700 02310 ANAL JR PROFT RARE 02310
003610 2600006300 02320 PD X4,16 RARE 02320
003615 2000300014 02330 FT 1536,X4 4 RARE 02330
003622 5601215225 02340 BA2 ONES,5 RARE 02340
003627 7400013327 02350 NXT CT T22,T23 3 RARE 02350
* 003634 3000375442 02360 JE LAST RARE 02360
003641 6000013701 02370 AC T23,1 RARE 02370
003646 5641550405 02380 BA1 LIST+4,5,5,X2 RARE 02380
003653 2641550405 02390 PD LIST+4,5,5,X2 RARE 02390
003660 7061250444 02400 LOOK CB1 RA+4,4,X,X3 RARE 02400
* 003665 3000371642 02410 JE PAD RARE 02410
003672 6000005710 02420 AC X3,8 RARE 02420
003677 7400005714 02430 CT X3,X4 RARE 02430
* 003704 3000407442 02440 JE MS RARE 02440
* 003711 3000366000 02450 J LOOK RARE 02450
003716 3461250000 02460 PAD CC RA,0,X3 3 RARE 02460
* 003723 3000367242 02470 JE LOOK+10 0 RARE 02470
003730 5261250425 02480 SA2 RA+4,5,X,X3 RARE 02480
003735 2600005704 02490 PD X3,4 RARE 02490
003742 6000005305 02500 AC X2,5 RARE 02500
* 003747 3000362700 02510 J NXT RARE 02510
003754 7061250465 02520 LAST CB2 RA+4,5,3,3 RARE 02520
* 003761 1000414243 02530 JR ES,35 RARE 02530
003766 6000005710 02540 AC X3,8 RARE 02540
003773 7400005714 02550 CT X3,X4 RARE 02550
* 004000 3000401242 02560 JE $+10 RARE 02560
* 004005 3000375400 02570 J LAST RARE 02570
004012 5601050417 02580 BA1 EA,15 RARE 02580
* 004017 3000403166 02590 JC $+10,54 4 SI1-DRUM A RARE 02590
004024 5601052317 02600 BA1 EB,15 RARE 02600
004031 5200641617 02610 SA1 TANK+14,4,15 RARE 02610
* 004036 1001002600 02620 JR PRTLN RARE 02620
004043 4400020736 02630 SC 0207,30 0 RARE 02630
004050 3400054464 02635 CC 0544,06464 02635
* 004055 3000173442 02636 JE START 02636
004062 4000640000 02640 XF 064,0,0,0,0 RARE 02640
* 004067 3000173431 02650 JC START,2525 RARE 02650
004074 2000643416 02660 MS FT TANK+28,8,14 RARE 02660
* 004101 1000453400 02670 JR EDIT RARE 02670
004106 2000640020 02680 FT TANK,16 6 RARE 02680
004113 2000004222 02690 FT 34,18 RARE 02690
004120 2401052401 02700 TFR MS1 RARE 02700
* 004125 1001002600 02710 JR PRTLN RARE 02710
* 004132 3000373500 02720 J PAD+15 RARE 02720
* 004137 3000413700 02730 ES J $ RARE 02730
004144 5661250405 02740 BA1 RA+4,5,X,X3 RARE 02740
004151 2000643416 02750 FT TANK+28,8,X6 RARE 02750
* 004156 1000453400 02760 JR EDIT RARE 02760
004163 2000640020 02770 FT TANK,16 6 RARE 02770
004170 2000004222 02780 FT 34,18 RARE 02780
004175 2401056601 02790 TFR MS2 RARE 02790
* 004202 1001002600 02800 JR PRTLN RARE 02800
* 004207 3000413700 02810 J ES RARE 02810
* 004214 3000421400 02820 PROFT J $ PRINT OVERFLOW TRACKS RARE 02820
004221 2600017710 02830 PD T31,8 RARE 02830
004226 2001250036 02840 FT RA,30 RARE 02840
004233 2001550037 02850 FT RA+1536,6,31 RARE 02850
* 004240 1000662100 02860 JR DUMP RARE 02860
* 004245 3000421400 02870 J PROFT RARE 02870
* 004252 3000000000 02880 GENRX J 0 RARE 02880
* 004257 3200431577 02890 GT JL PF,077 RARE 02890
004264 4400426377 02900 SC GT+4,07777 RARE 02900
004271 5601217250 02910 BD1 DEC1,8 RARE 02910
004276 6201220310 02920 AM1 TS01,8 RARE 02920
004303 5601220310 02930 BA1 TS01,8 RARE 02930
004310 5201161010 02940 SA1 TS02,8 RARE 02940
004315 2600012730 02950 PF PD0 87,8 RARE 02950
004322 2000050625 02960 FT 326,21 RARE 02960
004327 5601161070 02970 BD2 TS02,8 RARE 02970
004334 5000000002 02980 MPN ,2 RARE 02980
004341 5600000730 02990 BA2 7,8 RARE 02990
004346 6600003750 03000 SD1 31,8 RARE 03000
004353 5400001717 03010 LP 15,15 RARE 03010
004360 5201161010 03020 SA1 TS02,8 RARE 03020
* 004365 3000425200 03030 J GENRX RARE 03030
* 004372 3000000000 03040 PRINT J 0 RARE 03040
004377 4400020702 03050 DMP SC 0207,2 RARE 03050
004404 2001170040 03060 FT PRNT,32 2 RARE 03060
004411 3400054464 03070 CC 0544,06464 TEST,LOAD VIA 1004 RARE 03070 S
* 004416 3000444743 03080 JU P1 NO-GO NORMAL RTE RARE 03080 -
004423 2001167774 03090 FT PRNT-1,6,60 YES-SET UP CHAN 7 RARE 03090 S
004430 4401027404 03100 SC ADXF+4,0,04 RARE 03100
* 004435 1001024200 03110 JR U1004 RARE 03110
* 004442 3000445400 03120 J P1+5 RARE 03120
004447 4000620000 03130 P1 XF 062,0000000,0,0 RARE 03130
004454 5601216270 03140 BD2 SGOOD,8 8 RARE 03140
004461 5201200630 03150 SA2 GOOD,8 RARE 03150
* 004466 3000450040 03160 TST2 JC BIG,040 0 RARE 03160
* 004473 3000437200 03170 TST1 J PRINT RARE 03170
004500 2600017710 03180 BIG PD T31,8 RARE 03180
004505 2001250036 03190 FT RA,30 RARE 03190
004512 2001350037 03200 FT RA+512,3,31 RARE 03200
* 004517 1000662100 03210 JR DUMP RARE 03210
* 004524 3000447300 03220 J TST1 RARE 03220
* 004531 3000000000 03230 EDIT J 0 RARE 03230
004536 5201213610 03240 SA1 MEM+7,8 8 RARE 03240
004543 2600007704 03250 PD 077,4 RARE 03250
004550 4400465010 03260 SC LP+4,8 RARE 03260
004555 5761212701 03270 Q BA1 MEM,1,7 7 RARE 03270
004562 5400001770 03280 LP 017,070 0 RARE 03280
004567 1600001753 03290 BC1 017,3 RARE 03290
004574 6000001703 03300 AC 017,3 RARE 03300
004601 5340000001 03310 SA1 0,1,6 RARE 03310
004606 5761212701 03320 BA1 MEM,1,7 7 RARE 03320
004613 5400001707 03330 LP 017,07 RARE 03330
004620 6000001703 03340 AC 017,3 RARE 03340
004625 5340000101 03350 SA1 1,1,6 RARE 03350
004632 6000007302 03360 AC 073,2 RARE 03360
004637 6000007701 03370 AC 077,1 RARE 03370
* 004644 3200455510 03380 LP JL Q,8 RARE 03380
* 004651 3000453100 03390 J EDIT RARE 03390
004656 4440000000 03400 H0 SC 0,0,2 RARE 03400
* 004663 3000223700 03410 J SB RARE 03410
004670 4440000001 03420 H1 SC 0,1,2 RARE 03420
* 004675 3000223700 03430 J SB RARE 03430
004702 4440000002 03440 H2 SC 0,2,2 RARE 03440
* 004707 3000223700 03450 J SB RARE 03450
004714 4440000003 03460 H3 SC 0,3,2 RARE 03460
* 004721 3000223700 03470 J SB RARE 03470
004726 4440000004 03480 H4 SC 0,4,2 RARE 03480
* 004733 3000223700 03490 J SB RARE 03490
004740 4440000005 03500 H5 SC 0,5,2 RARE 03500
* 004745 3000223700 03510 J SB RARE 03510
004752 4440000006 03520 H6 SC 0,6,2 RARE 03520
* 004757 3000223700 03530 J SB RARE 03530
004764 4440000007 03540 H7 SC 0,7,2 RARE 03540
* 004771 3000223700 03550 J SB RARE 03550
004776 4440000000 03560 H8 SC 0,0,2 RARE 03560
* 005003 3000223700 03570 J SB RARE 03570
005010 4440000002 03580 H9 SC 0,2,2 RARE 03580
* 005015 3000223700 03590 J SB RARE 03590
005022 6040000000 03600 IH0 AC 0,0,2 RARE 03600
* 005027 3000225600 03610 J TT RARE 03610
005034 6040000010 03620 IH1 AC 0,010,2 2 RARE 03620
* 005041 3000225600 03630 J TT RARE 03630
005046 6040000020 03640 IH2 AC 0,020,2 2 RARE 03640
* 005053 3000225600 03650 J TT RARE 03650
005060 6040000030 03660 IH3 AC 0,030,2 2 RARE 03660
* 005065 3000225600 03670 J TT RARE 03670
005072 6040000040 03680 IH4 AC 0,040,2 2 RARE 03680
* 005077 3000225600 03690 J TT RARE 03690
005104 6040000050 03700 IH5 AC 0,050,2 2 RARE 03700
* 005111 3000225600 03710 J TT RARE 03710
005116 6040000060 03720 IH6 AC 0,060,2 2 RARE 03720
* 005123 3000225600 03730 J TT RARE 03730
005130 6040000070 03740 IH7 AC 0,070,2 2 RARE 03740
* 005135 3000225600 03750 J TT RARE 03750
005142 6040000000 03760 IH8 AC 0,0,2 RARE 03760
* 005147 3000225600 03770 J TT RARE 03770
005154 6040000070 03780 IH9 AC 0,070,2 2 RARE 03780
* 005161 3000225600 03790 J TT RARE 03790
* 005166 3000517300 03800 IPT0 J RST0 RARE 03800
005173 4000407777 03810 RST0 XF 040,0777777,0,0 RARE 03810
005200 5601214103 03820 BA1 FIVE,3 RARE 03820
005205 7200040343 03830 SB1 0403,3 RARE 03830
* 005212 3000040000 03840 J 0400 RARE 03840
005217 5600604014 03850 IPT6 BA1 H33,12 RARE 03850
005224 5200612414 03860 SA1 I6+19,1212 RARE 03860
005231 4140000001 03870 XF 00,0000101,0,6 RARE 03870
* 005236 1000554453 03880 JR D1,43 RARE 03880
005243 4140000002 03890 XF 00,0000202,0,6 RARE 03890
* 005250 1000556353 03900 JR D2,43 RARE 03900
005255 4140000004 03910 XF 00,0000404,0,6 RARE 03910
* 005262 1000560253 03920 JR D3,43 RARE 03920
005267 4140000010 03930 XF 00,0001010,0,6 RARE 03930
* 005274 1000562153 03940 JR D4,43 RARE 03940
005301 4140000020 03950 XF 00,0002020,0,6 RARE 03950
* 005306 1000564053 03960 JR D5,43 RARE 03960
005313 4140000040 03970 XF 00,0004040,0,6 RARE 03970
* 005320 1000565753 03980 JR D6,43 RARE 03980
005325 4140000100 03990 XF 00,0010000,0,6 RARE 03990
* 005332 1000567653 04000 JR D7,43 RARE 04000
005337 4140000200 04010 XF 00,0020000,0,6 RARE 04010
* 005344 1000571553 04020 JR D8,43 RARE 04020
005351 4140000400 04030 XF 00,0040000,0,6 RARE 04030
* 005356 1000573453 04040 JR D9,43 RARE 04040
005363 4140001000 04050 XF 00,0100000,0,6 RARE 04050
* 005370 1000575353 04060 JR D10,43 RARE 04060
005375 4140002000 04070 XF 00,0200000,0,6 RARE 04070
* 005402 1000577253 04080 JR D11,43 RARE 04080
005407 4140004000 04090 XF 00,0400000,0,6 RARE 04090
* 005414 1000601153 04100 JR D12,43 RARE 04100
005421 4140407777 04110 XF 040,0777777,0,6 RARE 04110
005426 2000610140 04120 FT I6,32 RARE 04120
005433 4400020702 04130 SC 0207,2 RARE 04130
005440 3400054464 04140 CC 0544,06464 RARE 04140
* 005445 3000547643 04150 JU $+25 RARE 04150
005452 2000610074 04160 FT I6-1,60 0 RARE 04160
005457 4401027404 04170 SC ADXF+4,0,04 RARE 04170
* 005464 1001024200 04180 JR U1004 RARE 04180
* 005471 3000550300 04190 J $+10 RARE 04190
005476 4000620400 04200 XF 062,0040400,0,0 RARE 04200
005503 3400612204 04210 CC I6+17,0404 RARE 04210
* 005510 3000552243 04220 JU CY RARE 04220
* 005515 3000777760 04230 NR JD 07777 RARE 04230
005522 5601214103 04240 CY BA1 FIVE,3 RARE 04240
005527 7200046343 04250 SB1 0463,3 RARE 04250
* 005534 3000046000 04260 J 0460, RARE 04260
* 005541 3000000000 04270 D1 J 0 RARE 04270
005546 4400611104 04280 SC I6+8,04 4 RARE 04280
* 005553 3000554100 04290 J D1 RARE 04290
* 005560 3000000000 04300 D2 J 0 RARE 04300
005565 4400611204 04310 SC I6+9,04 4 RARE 04310
* 005572 3000556000 04320 J D2 RARE 04320
* 005577 3000000000 04330 D3 J 0 RARE 04330
005604 4400611304 04340 SC I6+10,0404 RARE 04340
* 005611 3000557700 04350 J D3 RARE 04350
* 005616 3000000000 04360 D4 J 0 RARE 04360
005623 4400611404 04370 SC I6+11,0404 RARE 04370
* 005630 3000561600 04380 J D4 RARE 04380
* 005635 3000000000 04390 D5 J 0 RARE 04390
005642 4400611504 04400 SC I6+12,0404 RARE 04400
* 005647 3000563500 04410 J D5 RARE 04410
* 005654 3000000000 04420 D6 J 0 RARE 04420
005661 4400611604 04430 SC I6+13,0404 RARE 04430
* 005666 3000565400 04440 J D6 RARE 04440
* 005673 3000000000 04450 D7 J 0 RARE 04450
005700 4400611704 04460 SC I6+14,0404 RARE 04460
* 005705 3000567300 04470 J D7 RARE 04470
* 005712 3000000000 04480 D8 J 0 RARE 04480
005717 4400612004 04490 SC I6+15,0404 RARE 04490
* 005724 3000571200 04500 J D8 RARE 04500
* 005731 3000000000 04510 D9 J 0 RARE 04510
005736 4400612104 04520 SC I6+16,0404 RARE 04520
* 005743 3000573100 04530 J D9 RARE 04530
* 005750 3000000000 04540 D10 J 0 RARE 04540
005755 4400612204 04550 SC I6+17,0404 RARE 04550
* 005762 3000575000 04560 J D10 RARE 04560
* 005767 3000000000 04570 D11 J 0 RARE 04570
005774 4400612304 04580 SC I6+18,0404 RARE 04580
* 006001 3000576700 04590 J D11 RARE 04590
* 006006 3000000000 04600 D12 J 0 RARE 04600
006013 4400612404 04610 SC I6+19,0404 RARE 04610
* 006020 3000600600 04620 J D12 RARE 04620
006034 0303030303030303 04630 +8 0030303030303030303 RARE 04630 3
006040 03030303 04640 H33 +4 00303030303 RARE 04640
006100 04650 ORIG $,64 RARE 04650
006100 02 04660 +1 02 RARE 04660
006101 00 04670 I6 +1 0 RARE 04670
006110 IPT6 04680 +7 _ IPT6 6 _ RARE 04680
006111 174 04690 AREA 124,B,0 0 RARE 04690
000047 04700 X1 EQU 39 RARE 04700
000053 04710 X2 EQU X1+4 RARE 04710
000057 04720 X3 EQU X2+4 RARE 04720
000063 04730 X4 EQU X3+4 RARE 04730
000067 04740 X5 EQU X4+4 RARE 04740
000073 04750 X6 EQU X5+4 RARE 04750
000077 04760 X7 EQU X6+4 RARE 04760
000103 04770 T16 EQU 0103 RARE 04770
000107 04780 T17 EQU T16+4 RARE 04780
000113 04790 T18 EQU T17+4 RARE 04790
000133 04800 T22 EQU 0133 RARE 04800
000137 04810 T23 EQU T22+4 RARE 04810
000203 04820 T32 EQU 0203 RARE 04820
000207 04830 LA EQU 0207 RARE 04830
000177 04840 T31 EQU T32-4 RARE 04840
000173 04850 T30 EQU T31-4 RARE 04850
006400 04860 ORIG $,64 RARE 04860
006400 204 04880 TANK AREA 132,,0 RARE 04880
* 006604 1000662100 04890 JR DUMP RARE 04890
* 006611 3000660420 04900 JC $-5,020 0 RARE 04900
* 006616 3000000000 04910 DUMP J 0 RARE 04910
* 006623 3001151651 04920 JC BWS+052121,41 RARE 04920
* 006630 3000663533 04930 JC $+5,27 RARE 04930
006635 4201074221 04940 ST WST17,T1T17 RARE 04940
006642 4201074622 04950 ST WST18,T1T18 RARE 04950
006647 4201077323 04960 ST WS,19 RARE 04960
006654 2000000021 04970 FT 0,T17 RARE 04970
006661 2000052022 04980 FT 0520,T1818 SET NO. CHAR RARE 04980
006666 2401077541 04990 TTR BWS RARE 04990
006673 5601074610 05000 BA1 WST18,8 8 RARE 05000
006700 5201111010 05010 SA1 BWS+011313,8 RARE 05010
006705 5601077304 05020 BA1 WS,4 RARE 05020
006712 5201111404 05030 SA1 BWS+011717,4 RARE 05030
006717 2600007700 05040 PD 077,16 CLEAR INDEX REGS RARE 05040
006724 2600005700 05050 PD X3,16 RARE 05050
006731 4400020702 05060 SC LA,2 SET UP LINE ADV RARE 05060
006736 2001077511 05070 FT BWS,X1 SET BASE STOR IN X1 RARE 05070
006743 2001077515 05080 FT BWS,X5 RARE 05080
006750 4400725770 05090 SC CONV0+4,4,56 RARE 05090
006755 4400744700 05100 SC PR11+4,0,0 RARE 05100
006762 4400755570 05110 SC PR4+4,5656 RARE 05110
006767 2000640012 05120 FT TANK,X2 2 RARE 05120
006774 2001151517 05130 D03 FT BWS+052020,X7 LIMIT OF TET RARE 05130
007001 7400007711 05140 CT X7,X1 TEST LIMIT RARE 05140
* 007006 3000705142 05150 JE D05 END TETS RARE 05150
* 007013 1000723200 05160 D04 JR CONV RARE 05160
* 007020 1000737100 05170 JR PRT RARE 05170
007025 2120001015 05180 FT 8,X5,X5 5 RARE 05180
007032 4200004715 05190 ST X1,X5 RARE 05190
007037 2100001014 05200 FT 8,X4,X4 4 RARE 05200
* 007044 3000677400 05210 J D03 RARE 05210
* 007051 1001002600 05220 D05 JR PRTLN CLEAR TANK RARE 05220
* 007056 3000707500 05230 J $+15 RARE 05230
007063 5601075610 05240 BA1 PAR,8 RARE 05240
007070 5200017710 05250 SA1 T31,8 RARE 05250
007075 2000640012 05260 FT TANK,X2 2 RARE 05260
007102 4600017311 05270 BT T30,X1 RARE 05270
007107 4200006311 05280 ST X4,X1 RARE 05280
007114 4401077400 05290 SC WS1,0 RARE 05290
007121 4400725700 05300 SC CONV0+4,4,0 RARE 05300
007126 4400744770 05310 SC PR11+4,5,56 RARE 05310
007133 7400017711 05320 D06 CT T31,X1 TEST LIMIT OF DUMP RARE 05320
* 007140 3000717641 05330 JG D07 RARE 05330
* 007145 1000723200 05340 JR CONV RARE 05340
* 007152 1000737100 05350 JR PRT RARE 05350
007157 4200006311 05360 ST X4,X1 RARE 05360
007164 4200005711 05370 ST X3,X1 RARE 05370
* 007171 3000713300 05380 J D06 RARE 05380
007176 2000640017 05390 D07 FT TANK,X7 7 RARE 05390
007203 7400007712 05400 CT X7,X2 RARE 05400
* 007210 3000765742 05410 JE EXIT RARE 05410
* 007215 1001002600 05420 JR PRTLN RARE 05420
* 007222 3000765700 05430 J EXIT RARE 05430
* 007227 3000000000 05440 CONV J 0 RARE 05440
007234 4200001714 05450 ST 15,X4 RARE 05450
* 007241 1001014600 05460 JR TBO CONVERT LOCATION RARE 05460
007246 5240000525 05470 SA2 5,5,X2 RARE 05470
* 007253 3000732300 05480 CONV0 J CON2 VAR LINE RARE 05480
007260 5620000304 05490 CON1 BA1 3,4,X1 RARE 05490
* 007265 1001014600 05500 JR TBO CONVERT CONTENT RARE 05500
007272 5240002130 05510 SA2 17,8,X2 2 RARE 05510
007277 5620000704 05520 BA1 7,4,X1 RARE 05520
* 007304 1001014600 05530 JR TBO RARE 05530
007311 5240003530 05540 SA2 29,8,X2 2 RARE 05540
* 007316 3000722700 05550 J CONV RARE 05550
007323 5620000405 05560 CON2 BA1 4,5,X1 RARE 05560
* 007330 1001014600 05570 JR TBO RARE 05570
007335 5240002132 05580 SA2 17,10,X2X2 RARE 05580
007342 5620001105 05590 BA1 9,5,X1 RARE 05590
* 007347 1001014600 05600 JR TBO RARE 05600
007354 5240003532 05610 SA2 29,10,X2X2 RARE 05610
* 007361 3000722700 05620 J CONV RARE 05620
* 007366 3000000000 05630 PRT J 0 RARE 05630
007373 2000654017 05640 FT TANK+96,6,X7 RARE 05640
007400 7400007712 05650 CT X7,X2 TEST TANK FULL RARE 05650
* 007405 3000743142 05660 JE PR1 RARE 05660
007412 2040004012 05670 FT 32,X2,X2X2 RARE 05670
007417 2020001211 05680 FT 10,X1,X1X1 RARE 05680
* 007424 3000736600 05690 J PRT RARE 05690
007431 2000640012 05700 PR1 FT TANK,X2 2 RARE 05700
* 007436 1001002600 05710 JR PRTLN RARE 05710
* 007443 3000736600 05720 PR11 J PRT VAR LINE RARE 05720
007450 2020001211 05730 FT 10,X1,X1X1 RARE 05730
007455 4401077401 05740 SC WS1,1 RARE 05740
007462 4200005711 05750 ST X3,X1 RARE 05750
007467 4400752410 05760 SC PR3+4,8 8 RARE 05760
007474 5637777705 05770 PR2 BA1 -1,5,X1 1 RARE 05770
007501 7060000445 05780 CB1 4,5,X3 RARE 05780
* 007506 3000762143 05790 JU PR5 RARE 05790
007513 2060000513 05800 FT 5,X3,X3 3 RARE 05800
* 007520 3200747400 05810 PR3 JL PR2,0 VAR LINE RARE 05810
007525 7400005737 05820 CT X3,T31 RARE 05820
* 007532 3000765744 05830 JS EXIT RARE 05830
007537 2020005011 05840 FT 40,X1,X1X1 RARE 05840
007544 4200005711 05850 ST X3,X1 RARE 05850
* 007551 3000746770 05860 PR4 JC PR2-5,5656 VAR LINE RARE 05860
007556 4400755500 05870 SC PR4+4,0 0 RARE 05870
007563 4400642141 05880 SC TANK+17,7,_*_ RARE 05880
007570 4400646141 05890 SC TANK+49,9,_*_ RARE 05890
007575 4400652141 05900 SC TANK+81,1,_*_ RARE 05900
007602 4400656141 05910 SC TANK+11313,_*_ RARE 05910
* 007607 1001002600 05920 JR PRTLN RARE 05920
* 007614 3000746700 05930 J PR2-5 RARE 05930
007621 4400755570 05940 PR5 SC PR4+4,5656 RARE 05940
007626 3401077401 05950 CC WS1,1 RARE 05950
* 007633 3000764542 05960 JE $+10 RARE 05960
007640 2020001211 05970 FT 10,X1,X1X1 RARE 05970
007645 4401077400 05980 SC WS1,0 RARE 05980
* 007652 3000736600 05990 J PRT RARE 05990
007657 5601076711 06000 EXIT BA1 END,9 RARE 06000
007664 5200641011 06010 SA1 TANK+8,9,9 RARE 06010
007671 5600017303 06020 BA1 T30,3 RARE 06020
* 007676 1001014600 06030 JR TBO RARE 06030
007703 5200642126 06040 SA2 TANK+17,7,6 RARE 06040
007710 5600017703 06050 BA1 T31,3 RARE 06050
* 007715 1001014600 06060 JR TBO RARE 06060
007722 5200643226 06070 SA2 TANK+26,6,6 RARE 06070
* 007727 1001002600 06080 JR PRTLN RARE 06080
007734 2001077521 06090 FT BWS,T17 7 RARE 06090
007741 2000010422 06100 FT 0104,T1818 RARE 06100
007746 2400000041 06110 TTR 0 RARE 06110
007753 2001111521 06120 FT BWS+012020,T17 RARE 06120
007760 2000040022 06130 FT 0400,T1818 RARE 06130
007765 2400012041 06140 TTR 0120 RARE 06140
007772 4601077323 06150 BT WS,19 RARE 06150
007777 4601074221 06160 BT WST17,T1T17 RARE 06160
010004 4601074622 06170 BT WST18,T1T18 RARE 06170
* 010011 3001151652 06180 JC BWS+052121,42 RARE 06180
* 010016 3000661600 06190 J DUMP RARE 06190
* 010023 3000000000 06200 PRTLN J 0 RARE 06200
* 010030 3001003531 06210 JC $+5,25 RARE 06210
010035 2000640040 06220 FT TANK,T3232 SET PRINT BASE RARE 06220
010042 3400054464 06230 CC 0544,06464 TEST,LOAD VIA 1004 RARE 06230 S
* 010047 3001010043 06240 JU EXXX+5 NO-GO NORMAL RTE RARE 06240 -
010054 2000637774 06250 FT TANK-1,6,60 YES-SET UP CHAN 7 RARE 06250 S
010061 4401027404 06260 SC ADXF+4,0,04 RARE 06260
* 010066 1001024200 06270 JR U1004 RARE 06270
* 010073 3001011200 06280 EXXX J CPRN RARE 06280
010100 4000407777 06290 XF 32,0777777,0,0 RARE 06290
010105 4000620000 06300 XF 062,0,0,0,0 RARE 06300
010112 2000640120 06310 CPRN FT TANK+1,T,T16 RARE 06310
010117 2600640001 06320 PD TANK,1 RARE 06320
010124 2000017722 06330 FT 127,T18 8 RARE 06330
010131 2400640001 06340 TFR TANK RARE 06340
* 010136 3001002300 06350 J PRTLN RARE 06350
* 010143 3000000000 06360 TBO J 0 RARE 06360
010150 4401021705 06370 SC TB1+4,5 5 RARE 06370
010155 5600003530 06380 BA2 29,8 RARE 06380
010162 5200002701 06390 SA1 23,1 RARE 06390
010167 5600001604 06400 BA1 14,4 RARE 06400
010174 2600002601 06410 PD 22,1 RARE 06410
010201 1600002723 06420 BS2 23,3 RARE 06420
010206 1600002753 06430 BC1 23,3 RARE 06430
* 010213 3201015500 06440 TB1 JL $-30,0 RARE 06440
010220 2600001732 06450 PD0 15,10 RARE 06450
010225 7200003712 06460 AB1 31,10 RARE 06460
* 010232 3001014300 06470 J TBO RARE 06470
* 010237 3001023731 06480 U1004 JC $,25 RARE 06480
010244 4401035501 06490 SC CH7ER+3,3,01 RARE 06490
010251 4401042653 06500 SC II-1,43 3 RARE 06500
010256 4401043340 06510 SC II+4,04040 RARE 06510
010263 4160402100 06520 XF 040,0210100,0,7 RARE 06520
010270 4160010000 06530 ADXF XF 1,0,0,7 7 RARE 06530
* 010275 3001030231 06540 JC $+5,25 RARE 06540
010302 2600004304 06550 DELAY PD 043,4 RARE 06550
010307 6000004301 06560 AC 043,1 RARE 06560
010314 3400004106 06570 CC 041,06 WAIT 3 SECONDS FOR U1004 INTERRUPT RARE 06570 T
* 010321 3001030741 06580 JG $-10 RARE 06580
* 010326 3001035200 06590 J CH7ER RARE 06590
010333 3401043340 06600 BUSY CC II+4,04040 RARE 06600
* 010340 3001024442 06610 JE U1004+5 5 BUSY ON 1ST XF RARE 06610
010345 4401035504 06620 SC CH7ER+3,3,04 RARE 06620
* 010352 3007770060 06630 CH7ER JD 077700 1,2 LOST INT,3 PARITY ERR,4 BUSY ON 2ND XF RARE 06630
* 010357 3001037160 06640 JD ELIM START,M,START TO ELIMINATE FAULTY DEVICE RARE 06640 R
* 010364 3001024400 06650 J U1004+5 5 DEPRESS START TO REPEAT XF ORDER RARE 06650
* 010371 3001023700 06660 ELIM J U1004 RARE 06660
010376 4401035503 06670 IPT7 SC CH7ER+3,3,03 RARE 06670
010403 4160000100 06680 XF 0,0100,0,0,7 RARE 06680
* 010410 3001035253 06690 JC CH7ER,4343 PARITY ERROR RARE 06690
010415 4160002000 06700 XF 0,02000,0,0,7 RARE 06700
* 010422 3001033353 06710 JC BUSY,43 3 U1004 BUSY RARE 06710
* 010427 3001023740 06720 II JC U1004,04040 JUMP ON 2ND INTERRUPT RARE 06720
010434 2601043301 06730 PD II+4,1 RARE 06730
010441 4401035502 06740 SC CH7ER+3,3,02 RARE 06740
010446 4160010000 06750 XF 1,0,0,7 7 GOOD ACKNOWLEDGE RARE 06750
* 010453 3001030231 06760 JC DELAY,2525 RARE 06760
010462 013737 06770 ETA +3 0013737 7 RARE 06770
010465 013777 06780 ETB +3 0013777 7 RARE 06780
010504 END SEQ. TEST A 06790 EA +15 _END SEQEQ. TEST A_ RARE 06790
010523 END SEQ. TEST B 06800 EB +15 _END SEQEQ. TEST B_ RARE 06800
010524 06810 MS1 EQU $ RARE 06810
010543 SECTOR NOT ON OV 06820 +16 _SECTOR R NOT ON OV_ RARE 06820
010563 ERFLOW TRACK 06830 +16 _ERFLOW W TRACK _ RARE 06830
010565 0000 06840 +2 0 RARE 06840
010566 06850 MS2 EQU $ RARE 06850
010605 EXTRA SECTOR ON 06860 +16 _EXTRA S SECTOR ON _ RARE 06860 O
010625 OVERFLOW TRACK 06870 +16 _OVERFLOLOW TRACK _ RARE 06870 K
010627 0000 06880 +2 0 RARE 06880
010633 TSTH 06890 MS3 +4 _TSTH_ RARE 06890
010637 BAND 06900 MS4 +4 _BAND_ RARE 06900
010656 NO FASTBANDS 06910 MS5 +15 _NO FASTSTBANDS _ RARE 06910
010676 FASTRAND 1 TEST 06920 MS6 +16 _FASTRANAND 1 TEST _ RARE 06920 S
010716 HALF DRUM TEST 06930 MS7 +16 _HALF DRDRUM TEST _ RARE 06930 T
010736 FASTRAND 2 TEST 06940 MS8 +16 _FASTRANAND 2 TEST _ RARE 06940 S
010742 00000000 06950 WST17 +4 0 RARE 06950
010746 00000000 06960 WST18 +4 0 RARE 06960
010756 0000052000077700 06970 PAR +8 000005202000077700 RARE 06970 0
010767 END PRINT 06980 END +9 _END PRIRINT_ RARE 06980
010773 00000000 06990 WS +4 0 RARE 06990
010774 00 07000 WS1 +1 0 RARE 07000
010775 520 07010 BWS AREA 0520 RARE 07010
011517 000000 07020 +3 0 RARE 07020
* 011520 3000000160 07030 I1 JD 1 RARE 07030
011527 011520 07040 +3 I1 RARE 07040
* 011530 3000000260 07050 I2 JD 2 RARE 07050
011537 011540 07060 IE2 +3 OP2 RARE 07060
* 011540 3001155254 07070 OP2 JC $+10,44 4 RARE 07070
* 011545 3001153000 07080 J I2 RARE 07080
* 011552 3001155735 07090 JC $+5,29 RARE 07090
* 011557 3001156416 07100 JC $+5,14 RARE 07100
* 011564 3000140000 07110 J WAIT RARE 07110
011571 14 07120 GENA +1 014 RARE 07120
011572 00 07130 U +1 0 RARE 07130
011573 00 07140 T +1 0 RARE 07140
011574 00 07150 H +1 0 RARE 07150
011575 00 07160 S +1 0 RARE 07160
011600 000000 07170 +3 0 RARE 07170
011610 76540213 07180 TS02 +8 _7654021213_ RARE 07180
011700 07190 ORIG $,64 RARE 07190
011700 00 07210 PRNT +1 0 RARE 07210
011710 0000000000000000 07220 +8 0 RARE 07220
011716 GEN 07230 GEN +6 _ GEN _ _ RARE 07230
011726 0000000000000000 07240 +8 0 RARE 07240
011736 0000000000000000 07250 +8 0 RARE 07250
011744 READ 07260 READ +6 _ READ _ _ RARE 07260
011745 22 07270 AREA 18,B,0 RARE 07270
012006 LAST 00000000 07280 GOOD +16 _LAST 00000000_ RARE 07280 0
012007 100 07290 AREA 64,B,0 RARE 07290
* 012107 3000000031 07300 JC 0,25 RARE 07300
012116 005166 07310 IE0 +3 IPT0 RARE 07310
* 012117 3000000031 07320 JC 0,25 RARE 07320
012126 005217 07330 IE6 +3 IPT6 RARE 07330
012127 00 07340 MEM +1 0 RARE 07340
012136 00000000000000 07350 +7 0 RARE 07350
012141 000005 07360 FIVE +3 0000005 5 RARE 07360
012145 00001000 07370 B512 +4 512 RARE 07370
012152 7777777777 07380 ONES +5 0777777777777 RARE 07380
012162 0 07390 SGOOD +8 _0_ RARE 07390
012172 00000001 07400 DEC1 +8 _0000000001_ RARE 07400
012173 00 07410 UUU +1 0 RARE 07410
012203 67540213 07420 TS01 +8 _6754021213_ RARE 07420
012204 4140407777 07430 HDRM XF 32,0777777,0,6 HALF DRUM RARE 07430
012211 2000007703 07440 FT 077,3 RARE 07440
012216 5201046102 07450 SA1 ETA-1,2 2 RARE 07450
012223 5201046402 07460 SA1 ETB-1,2 2 RARE 07460
012230 4400261600 07470 SC SWD+4,0 0 RARE 07470
012235 5601071600 07480 BA1 MS7 RARE 07480
012242 5200641700 07490 SA1 TANK+15,5,16 RARE 07490
* 012247 3000171000 07500 J START-2020 RARE 07500
012254 4140407777 07510 F2DRM XF 32,0777777,0,6 FASTRAND 2 RARE 07510
012261 2000027703 07520 FT 0277,3 RARE 07520
012266 5201046102 07530 SA1 ETA-1,2 2 RARE 07530
012273 5201046402 07540 SA1 ETB-1,2 2 RARE 07540
012300 4400261600 07550 SC SWD+4,0 0 RARE 07550
012305 4401234700 07560 SC FR2+4,0 0 RARE 07560
012312 5601073600 07570 BA1 MS8 RARE 07570
012317 5200641700 07580 SA1 TANK+15,5,16 RARE 07580
* 012324 3000171000 07590 J START-2020 RARE 07590
* 012331 3001233100 07600 MDFY J $ MODIFY RANDOM GEN. RARE 07600
* 012336 3001233167 07610 JC MDFY,55 5 SI3-SEQUENTIAL RARE 07610
* 012343 3001240640 07620 FR2 JC MDFY2,3232 RARE 07620
012350 5601247202 07630 BA1 B48,2 HALF DRUM RARE 07630
012355 7000034542 07640 CB1 0345,2 RARE 07640
* 012362 3001233141 07650 JG MDFY RARE 07650
012367 7200034542 07660 SB1 0345,2 RARE 07660
012374 4201157571 07670 ST GENA+4,5,57 RARE 07670
* 012401 3001233100 07680 J MDFY RARE 07680
* 012406 3201233102 07690 MDFY2 JL MDFY,2 FASTRAND 2 RARE 07690
012413 4401241202 07700 SC $-1,2 RARE 07700
012420 5601247402 07710 BA1 B96,2 RARE 07710
012425 7200034502 07720 AB1 0345,2 RARE 07720
012432 4201157571 07730 ST GENA+4,5,57 RARE 07730
* 012437 3001233100 07740 J MDFY RARE 07740
* 012444 3001244431 07750 IE7 JC $,25 RARE 07750
012453 010376 07760 +3 IPT7 RARE 07760
* 012454 3001245431 07770 JC $,031 RARE 07770
012463 012464 07780 IE6T +3 IGNOR RARE 07780
* 012464 3000046000 07790 IGNOR J 0460 RARE 07790
012472 0060 07800 B48 +2 48 RARE 07800
012474 0140 07810 B96 +2 96 RARE 07810
012500 07820 ORIG $,64 RARE 07820
012500 3000 07830 RA AREA 03000 DRUM READ AREA RARE 07830
015500 07840 LIST EQU $ STORAGE FOR BAD-SPOTS RARE 07840
006377 ORIG TANK-1
006377 02 +1 2
011677 ORIG PRNT-1
011677 02 +1 2
0000 ERROR LINES 3000140000 07850 END WAIT RARE 07850
{-- tape mark --}
004449 C051 RFC90 CODEDIT SOURCE - T3834394-05
002500 00010 T050 BEGIN 1344 RFC9 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 002500 3007010660 * JD 070106 *
* 002505 3000250000 * J $-5 *
SEGMENT-ID T051 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 T052 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 T053 3000136300 * SEGJP $ *
002500 000101 ORIG 1344 000101
002500 200 00104 FA AREA 128 00104
002700 200 00105 NLA AREA 128 00105
003100 300 00106 LA AREA 192 00106
003400 00 00107 +1 000 00107
003403 002700 00108 NLAA +3 NLA 00108
003404 00 00109 +1 000 00109
003407 002500 00110 FAA +3 FA 00110
003410 00 00111 +1 000 00111
003413 003100 00112 LAA +3 LA 00112
000040 00116 RESET EQU 32 00116
000000 00117 TEST EQU 0 00117
000001 00118 RDCH EQU 1 00118
000005 00119 FEED EQU 5 00119
003415 0000 00120 IPCT +2 00000 00120
* 003416 3000000031 00122 IE JC 0,25 00122
003425 003615 00123 +3 RDIPT 00123
000020 00124 INH EQU 16 00124
003426 00125 P1 EQU $ 00125
003435 0025244254502306 001251 +8 0002524444254502306 0012513
003445 1214341541444530 00126 +8 0121434141541444530 90 00126 5
003455 3216222613465152 00127 +8 0321622222613465152 90 00127 1
003465 4331074020211011 00128 +8 0433107474020211011 90 00128 0
003475 0405020301765670 00129 +8 0040502020301765670 90 00129 6
003505 5374276672335767 00130 +8 0537427676672335767 90 00130 7
003515 3571476577756036 00201 +8 0357147676577756036 90 00201 0
003525 3762635564617374 00202 +8 0376263535564617374 90 00202 3
003535 1725244254502306 00203 +8 0172524444254502306 90 00203 3
003545 1214341541444530 00204 +8 0121434141541444530 90 00204 5
003555 3216222613465152 00205 +8 0321622222613465152 90 00205 1
003557 4331 00206 +2 04331 90 00206
003560 00 00207 +1 000 00207
003563 002700 00208 FA192 +3 FA+128 00208
003567 00077700 00210 OCT77 +4 00007770700 00210
003573 00000000 00212 NOERR +4 00000000000 00212
* 003574 3000000036 00214 JC 0,30 00214
003603 007415 00215 +3 IPT1 00215
* 003604 3000000035 00216 JC 0,29 00216
000223 00217 BAT EQU 0223 00217
000227 00218 SBT EQU 0227 00218
003611 00 00219 +1 000 00219
003614 003300 00220 LA128 +3 LA+128 00220
* 003615 3000751240 00222 RDIPT JC RELS+20,0,32 00222
003622 4020007750 00223 XF TEST,0777750,00,RDCH, T EST ALL ERRORS 00223 R
* 003627 3000364653 00224 JC $+15,43 3 00224
* 003634 3000364127 00225 JC $+5,23 RESET SI3 00225 S
* 003641 3000041000 00226 JC 264,00 00226
* 003646 3000000060 00227 ER0 JC 00,48 R READER ERROR STOP 00227 E
* 003653 3000726300 00228 JC START,0 0 RESTART 00228 R
003660 4020200000 00229 INHB XF INH,0000000,00,RDCH, 00229 D
003665 4400430700 00230 SC DELCT+4,4,0 SET DELAY TO 128 00230
* 003672 1000425000 00301 JR DELAY,0 0 ENTER DELAY LOOP 00301
* 003677 3000371667 00302 JC REST,55 5 00302
* 003704 3000000160 00303 ER1 JC 01,48 9 CHANNEL INHIBIT ERROR 00303 H
* 003711 3000726300 00304 JC START,0 0 00304
003716 4020407777 00306 REST XF RESET,0707777,00,RDCH,R ESET ALL 00306 ,
003723 4020007777 00307 XF TEST,0777777,00,RDCH, T EST ALL INDICATORS 00307 R
* 003730 3000374253 00308 JC ER2,43 TEST STATUS FF 00308 T
* 003735 3000375400 00309 JC $+15,0 00309
* 003742 3000000260 00310 ER2 JC 02,48 I IO INDICATORS NOT RESET 00310 C
* 003747 3000726300 00311 JC START,0 0 00311
* 003754 3000376655 00313 JC ER3,45 00313
* 003761 3000431500 00314 JC CARD1,0 0 00314
* 003766 3000000360 00315 ER3 JC 03,48 C CL 3 NOT RESET 00315 T
* 003773 3000726333 00316 JC START,2727 00316
* 004000 3000000000 00317 CLEAR JC 0,0 00317
004005 2760001700 00318 PD 15,16,7 7 CLEAR 80 DIGIT INPUT 00318 R
004012 2760003700 00319 PD 31,16,7 7 AREA SPECIFIED BY 00319
004017 2760005700 00320 PD 47,16,7 7 IR1 00320
004024 2760007700 00321 PD 63,16,7 7 00321
004031 2760011700 00322 PD 79,16,7 7 00322
004036 2760013213 00323 PD 90,11,7 7 90 00323
* 004043 3000400000 00324 JC CLEAR,0 0 00324
* 004050 3000000000 00325 COMP JC 0,0 COMOMPARISON ROUTINE 00325 N
* 004055 3000406226 00326 JC $+5,22 00326
004062 5740001700 00327 BA1 15,16,6 6 C OLS 1 TO 16 00327 1
004067 7000344540 00328 CB1 P1+15,1616 2.46 MS. 00328
* 004074 3000410642 00329 JC $+10,34 4 00329
* 004101 3000405023 00330 JC COMP,19 9 SET SENSE IND 2 00330 E
004106 5740003700 00401 BA1 31,16,6 6 00401
004113 7000346540 00402 CB1 P1+31,1616 COMPARE COLUMNS 00402 A
* 004120 3000413242 00403 JC $+10,34 4 17 32 00403
* 004125 3000405023 00404 JC COMP,19 9 SET 3 AND EXIT 00404
004132 5740005700 00405 BA1 47,16,6 6 00405
004137 7000350540 00406 CB1 P1+47,1616 COLS 33 TO 48 00406
* 004144 3000415642 00407 JC $+10,34 4 00407
* 004151 3000405023 00408 JC COMP,19 9 SET 2 AND EXIT 00408
004156 5740007700 00409 BA1 63,16,6 6 COLS 49 TO 64 00409
004163 7000352540 00410 CB1 P1+63,1616 00410
* 004170 3000420242 00411 JC $+10,34 4 00411
* 004175 3000405023 00412 JC COMP,19 9 00412
004202 5740011700 00413 BA1 79,16,6 6 00413
004207 7000354540 00414 CB1 P1+79,1616 COLS.65 TO 80 00414 .
* 004214 3000405042 00415 JC COMP,34 4 00415
004221 5740013112 00416 BA1 89,10,6 6 90 00416
004226 7000355752 00417 CB1 P1+89,1010 90 00417
* 004233 3000405042 00418 JC COMP,34 4 90 00418
* 004240 3000405023 00419 JC COMP,19 9 SET 3 AND EXIT 00419
* 004245 3000000000 00420 DELAY JC 0,0 00420
004252 2001000021 00421 FT 4096,17 7 00421
004257 2000032222 00422 FT 210,18 00422
004264 2401000040 00423 TTR 4096,0 00423
* 004271 3000430367 00424 JC $+10,55 5 00424
* 004276 3000424500 00425 JC DELAY,0 0 00425
* 004303 3200426400 00426 DELCT JL $-15,0 00426
* 004310 3000424500 00427 JC DELAY,0 0 00427
004315 2000250017 00428 CARD1 FT FA,15 LOLOAD IR7 WITH BASE ADD 00428
* 004322 1000400300 00429 JR CLEAR,0 0 CLEAR INPUT AREA 00429
004327 2000250044 00430 FT FA,BAT F FIX BASE ADDRESS 00430 E
004334 2017777745 00501 FT 0177777,7,SBT FIX STAND BY 00501 X
004341 4020050300 00502 XF FEED,0030300,00,RDCH, A DV. BA, TRANSLATE 00502 R
004346 4020000020 00503 XF TEST,0000020,00,RDCH, L OOP TILL S1 SET 00503 R
* 004353 3000436553 00504 JC $+10,43 3 00504
* 004360 3000434600 00505 JC $-10,0 00505
004365 4400430727 00506 SC DELCT+4,4,23 SET DELAY TILL 00506 T
* 004372 1000425000 00507 JR DELAY,0 0 BEYOND 18-2 00507 D
* 004377 3000441167 00508 JC $+10,55 5 00508
* 004404 3000442300 00509 JC $+15,0 00509
* 004411 3000000460 00510 ER4 JC 04,48 00510
* 004416 3000726300 00511 JC START,0 0 00511
004423 4020000020 00512 XF TEST,0000020,00,RDCH, S 1 SHOULD STILL 00512 R
* 004430 3000444753 00513 JC $+15,43 3 BE SET 00513 T
* 004435 3000000560 00514 ER5 JC 05,48 S S1 RESET TOO SOON 00514 T
* 004442 3000726300 00515 JC START,0 0 00515
* 004447 3000445424 00516 JC $+5,20 SET SENSE IND 3 00516 N
004454 4400430737 00517 CRD1A SC DELCT+4,4,31 SET DELAY TO 61 MS 00517
* 004461 1000425000 00518 JR DELAY,0 0 00518
* 004466 3000450067 00519 JC ER6,55 00519
* 004473 3000451224 00520 JC $+15,20 0 00520
* 004500 3000000660 00521 ER6 JC 06,48 DIDID NOT INTERRUPT AT 18-3 00521 I
* 004505 3000726300 00522 JC START,0 0 00522
004512 4020000020 00524 XF TEST,0000020,00,RDCH,TE ST S1 00524 R
* 004517 3000453153 00525 JC ER7,43 00525
* 004524 3000454300 00526 JC $+15,0 00526
* 004531 3000000760 00527 ER7 JC 07,48 S1S1 NO RESET 00527 S
* 004536 3000726300 00528 JC START,0 0 00528
004543 7400340344 00530 CT NLAA,BATAT 00530
* 004550 3000456742 00601 JC $+15,34 4 00601
* 004555 3000001060 00602 ER10A JC 010,48 B BASE ADDRESS ERROR 00602 D
* 004562 3000726300 00603 JC START,0 0 00603
* 004567 3000457424 00604 JC $+5,20 S SET SENSE IND 3, 00604 S
004574 3400263200 00605 CRD1B CC FA+90,0 0 90 00605
* 004601 3000462042 00606 JC $+15,34 4 00606
* 004606 3000001160 00607 ER11 JC 011,48 T TRANSLATE READ AREA 00607 T
* 004613 3000726300 00608 JC START,0 0 00608
004620 2000250016 00609 FT FA,14 FIFIX IR6 00609
* 004625 1000405300 00610 JR COMP,0 C COMPARE IMAGE IN FA 00610
* 004632 3000464466 00611 JC $+10,54 4 00611
* 004637 3000465600 00612 JC $+15,0 00612
* 004644 3000001260 00613 ER12 JC 012,48 00613
* 004651 3000726300 00614 JC START,0 0 00614
* 004656 1000400300 00621 JR CLEAR,0 0 CLEAR AREA FA 00621 A
004663 2000250044 00622 FT FA,BAT 00622
004670 4020050200 00623 XF FEED,0020200,00,RDCH,AD V. UNTRANS. 00623 R
004675 4020000020 00624 XF TEST,0000020,00,RDCH,TE ST S1 00624 R
* 004702 3000471453 00625 JC ER14,43 3 00625
* 004707 3000472600 00626 JC $+15,0 00626
* 004714 3000001460 00627 ER14 JC 014,48 S S1 SET IMMED. 00627 I
* 004721 3000726300 00628 JC START,0 0 00628
004726 4400430711 00629 SC DELCT+4,4,9 00629
* 004733 1000425024 00630 JR DELAY,2020 00630
004740 4020000020 00701 XF TEST,0000020,00,RDCH,S1 SHOULD BE SET 00701 R
* 004745 3000476453 00702 JC $+15,43 3 00702
* 004752 3000001560 00703 ER15 JC 015,48 S S1 NOT SET AT CP 5-4 00703 S
* 004757 3000726300 00704 JC START,0 0 00704
* 004764 3000476467 00705 CRD2A JC $,55 LOOOOP TILL IPT 18-5 00705
* 004771 3000477624 00706 JC $+5,20 S SET SENSE IND.3 00706 S
004776 7400340744 00707 CT FAA,BAT T TEST FOR NO BA ADV. 00707 O
* 005003 3000502242 00708 JC $+15,34 4 00708
* 005010 3000001660 00709 ER16 JC 016,48 B BA ADVANCE ERROR 00709 N
* 005015 3000726300 00710 JC START,0 0 00710
005022 5600251700 00711 BA1 FA+15,1616 ACCESS INPT AREA DURING READ SCAN 00711 S
005027 5600253700 00712 BA1 FA+31,1616 00712
005034 5600255700 00713 BA1 FA+47,1616 00713
005041 5600261700 00714 BA1 FA+79,1616 00714
005046 5600263112 00715 BA1 FA+89,1010 90 00715
* 005053 3000502767 00716 JC $-20,55 5 00716
005060 5600356304 00717 BA1 FA192,4 4 00717
005065 7000022344 00718 CB1 BAT,4 00718
* 005072 3000511142 00719 JC $+15,34 4 00719
* 005077 3000002060 00720 ER20A JC 020,48 B BA ADVANCE ERROR 00720 N
* 005104 3000726300 00721 JC START,0 0 00721
* 005111 1000400324 00722 CRD2B JR CLEAR,2020 CLEAR FA 00722
005116 4400430710 00723 SC DELCT+4,4,8 DELAY BEYOND CP 5-6 00723 Y
* 005123 1000425000 00724 JR DELAY,0 0 00724
005130 2017777745 00725 FT 0177777,7,SBT 00725
005135 2000250044 00726 FT FA,BAT 00726
005142 4020050100 00727 XF FEED,0010100,00,RDCH,SB , TRANSLATE 00727 R
005147 4400430730 00728 SC DELCT+4,4,24 00728
* 005154 1000425000 00729 JR DELAY,0 0 DELAY BEYOND CP 18-7 00729 B
* 005161 3000520067 00730 JC $+15,55 5 00730
* 005166 3000002160 00801 ER21 JC 021,48 I IPT 18-7 NOT INHIBITED 00801 7
* 005173 3000726300 00802 JC START,0 0 00802
005200 4020050200 00803 XF FEED,0020200,00,RDCH,SH OULD SET BUSY 00803 R
005205 4020002000 00804 XF TEST,0202000,00,RDCH, 00804 R
* 005212 3000523153 00805 JC $+15,43 3 9 00805
* 005217 3000002260 00806 ER22 JC 022,48 B BUSY NOT SET 00806 T
* 005224 3000726300 00807 JC START,0 0 00807
005231 4020402000 00808 XF RESET,0202000,00,RDCH,R ESET BUSY 00808 ,
005236 4020002000 00809 XF TEST,0202000,00,RDCH, 00809 R
* 005243 3000525553 00810 JC $+10,43 3 00810
* 005250 3000526700 00811 JC $+15,0 00811
* 005255 3000002360 00812 ER23 JC 023,48 B BUSY COULDN T BE RESET 00812 U
* 005262 3000726300 00813 JC START,0 0 00813
005267 4020005750 00814 XF TEST,0575750,00,RDCH,AN Y OTHER ERRORS 00814 R
* 005274 3000530653 00815 JC $+10,43 3 00815
* 005301 3000532000 00816 JC $+15,0 00816
* 005306 3000002460 00817 ER24 JC 024,48 00817
* 005313 3000726300 00818 JC START,0 0 00818
005320 4020000020 00819 XF TEST,0000020,00,RDCH,LO OP TILL S1 IS SET AT 00819 R
* 005325 3000533753 00820 JC $+10,43 3 CP 5-7 00820
* 005332 3000532000 00821 JC $-10,0 00821
005337 4020050100 00822 CRD3 XF FEED,0010100,00,RDCH,SH OULD SET BUSY 00822 R
005344 4020002000 00823 XF TEST,0202000,00,RDCH, 00823 R
* 005351 3000537053 00824 JC $+15,43 3 00824
* 005356 3000003060 00825 ER30A JC 030,48 F FEED BETWEEN 5 AND 18 NOT 00825 T
* 005363 3000726300 00826 JC START,0 0 SET BUSY 00826 S
005370 4020402000 00827 XF RESET,0202000,00,RDCH, 00827 ,
005375 4020002000 00828 XF TEST,0202000,00,RDCH, 00828 R
* 005402 3000541453 00829 JC ER31,43 3 00829
* 005407 3000542600 00830 JC $+15,0 00830
* 005414 3000003160 00901 ER31 JC 031,48 B BUSY NOT RESETABLE 00901 T
* 005421 3000726300 00902 JC START,0 0 00902
* 005426 3000544567 00903 JC $+15,55 5 00903
* 005433 3000003260 00904 ER32 JC 032,48 B BUSY CAUSED IMMED. IPT 00904 U
* 005440 3000726300 00905 JC START,0 0 00905
* 005445 3000544567 00906 JC $,55 LOOOOP TILL IPT 28-8 00906
* 005452 3000545724 00907 JC $+5,20 00907
005457 7400340744 00908 CRD3A CT FAA,BAT T 00908
* 005464 3000550342 00909 JC $+15,34 4 00909
* 005471 3000003360 00910 ER33 JC 033,48 B BA ERROR AT FEED IPT 00910 R
* 005476 3000726300 00911 JC START,0 0 00911
* 005503 3000550367 00912 JC $,55 LOOOOP TILL IPT 18-19 00912
005510 7400356744 00913 CT OCT77,BABAT BA EQ 777777 00913 Q
* 005515 3000553442 00914 JC $+15,34 4 00914
* 005522 3000003460 00915 ER34 JC 034,48 S SB TO BA ERROR 00915 A
* 005527 3000726300 00916 JC START,0 0 00916
* 005534 1000405300 00917 JR COMP,0 C COMPARE FA WITH 00917
* 005541 3000555366 00918 JC $+10,54 4 PATTERN 19 00918 N
* 005546 3000556500 00919 JC $+15,0 00919
* 005553 3000003560 00920 ER35 JC 035,48 I IND 2 SET SO COMPARISON 00920 E
* 005560 3000726300 00921 JC START,0 0 ERROR 00921
005565 3400263200 00922 CC FA+90,0 0 90 00922
* 005572 3000561142 00923 JC $+15,34 4 00923
* 005577 3000003660 00924 ER36 JC 036,48 T TRANSLATE ERROR, 00924 T
* 005604 3000726300 00925 JC START,0 0 81ST DIGIT IN FA 00925 I
005611 4020050000 00926 CRD4 XF FEED,0000000,00,RDCH, 00926 R
005616 2017777745 00927 FT 0177777,7,SBT 00927
005623 2000250044 00928 FT FA,BAT 00928
* 005630 1000400324 00929 JR CLEAR,2020 00929
* 005635 3000563567 00930 JC $,55 L LOOP TILL IPT 18-10 00930 L
* 005642 3000564724 01001 JC $+5,20 01001
005647 7400340744 01002 CT FAA,BAT T 01002
* 005654 3000567342 01003 JC $+15,34 4 01003
* 005661 3000003760 01004 ER37 JC 037,48 B BA INCORRECT AT 01004 R
* 005666 3000726300 01005 JC START,0 0 FEED INTERRUPT 01005 N
* 005673 3000567367 01006 JC $,55 LOOOOP TILL 18-11 01006
* 005700 3000570524 01007 JC $+5,20 01007
005705 4020000020 01008 XF TEST,0000020,00,RDCH,TE ST S1 01008 R
* 005712 3000572453 01009 JC $+10,43 3 01009
* 005717 3000573600 01010 JC $+15,0 01010
* 005724 3000004160 01011 ER41 JC 041,48 S S1 NOT RESET 01011 R
* 005731 3000726300 01012 JC START,0 0 01012
005736 4020200000 01013 XF 16,0000000,00,RDCH INHIBIT CH.IPTS. 01013 C
005743 4400430737 01014 SC DELCT+4,4,31 01014
* 005750 1000425000 01015 JR DELAY,0 0 DELAY BEYOND CP 18-12 01015 B
* 005755 3000577467 01016 JC $+15,55 5 01016
* 005762 3000004260 01017 ER42 JC 042,48 C CH. INH IPT NOT WORKING 01017
* 005767 3000726300 01018 JC START,0 0 01018
005774 4020050300 01019 SPEED XF FEED,0030300,00,RDCH,AD V. BA, TRANS. 01019 R
006001 2000250044 01020 FT FA,BAT 01020
006006 2017777745 01021 FT 0177777,7,SBT 01021
* 006013 1000400300 01022 JR CLEAR,0 0 CLEAR FA 01022 F
006020 2000270017 01023 FT NLA,15 C CLEAR NLA 01023 L
* 006025 1000400300 01024 JR CLEAR,0 0 INSERT AT 21055 01024
006032 2000310017 01025 FT LA,15 CLCLEAR LA 01025
006037 2000400300 01026 FT CLEAR+3,3,0 INSERT AT 21065 01026 R
* 006044 3000604467 01027 JC $,55 LOOOOP TILL IPT 18-13 01027
* 006051 3000605624 01028 JC $+5,20 S SET IPT SENTINEL 01028
006056 4020050300 01029 XF FEED,0030300,00,RDCH, 01029 R
* 006063 3000606367 01030 JC $,55 LOOOOP TILL IPT 18-14 01030
* 006070 3000607524 01101 JC $+5,20 01101
006075 2000250016 01102 FT FA,14 01102
* 006102 1000405300 01103 JR COMP,0 C CHECK IMAGE IN FA 01103 M
* 006107 3000612166 01104 JC ER43,54 4 01104
* 006114 3000613300 01105 JC $+15,0 01105
* 006121 3000004360 01106 ER43 JC 043,48 D DATA ERROR 01106 R
* 006126 3000726300 01107 JC START,0 0 01107
006133 4020000020 01108 XF TEST,0000020,00,RDCH,TE ST S1 01108 R
* 006140 3000615753 01109 JC $+15,43 3 01109
* 006145 3000004460 01110 ER44 JC 044,48 01110
* 006152 3000726300 01111 JC START,0 0 01111
006157 7400340344 01112 CT NLAA,BATAT 01112
* 006164 3000620342 01113 JC $+15,34 4 01113
* 006171 3000004560 01114 ER45 JC 045,48 01114
* 006176 3000726300 01115 JC START,0 0 01115
006203 4020050000 01116 CRD7 XF FEED,0000000,00,RDCH,AT IPT 18-14 01116 R
* 006210 3000621067 01117 JC $,55 SB B TO BA, UNTRANS 01117
* 006215 3000622224 01118 JC $+5,20 L LOOP TILL 18-15 01118 L
006222 7400341344 01119 CT LAA,BAT T 01119
* 006227 3000624642 01120 JC $+15,34 4 01120
* 006234 3000004660 01121 ER46 JC 046,48 A ADVANCE BASE ADD. ERROR 01121
* 006241 3000726300 01122 JC START,0 0 01122
006246 2000270016 01123 FT NLA,14 01123
* 006253 1000405300 01124 JR COMP,0 C COMPARE DATA IN NLA 01124
* 006260 3000627266 01125 JC $+10,54 4 01125
* 006265 3000630400 01126 JC $+15,0 01126
* 006272 3000004760 01127 ER47 JC 047,48 N NLA COMPARISON 01127 P
* 006277 3000726300 01128 JC START,0 0 ERROR 01128
006304 2000250017 01129 FT FA,15 01129
* 006311 1000400300 01130 JR CLEAR,0 0 01130
006316 2000250045 01201 FT FA,SBT 01201
006323 4020050100 01202 XF FEED,0010100,00,RDCH,SB TO BA,TRANS 01202 R
* 006330 3000633067 01203 JC $,55 LOOOOP TILL IPT 18-16 01203
* 006335 3000634224 01204 JC $+5,20 01204
006342 7400340744 01205 CRD8 CT FAA,BAT T 01205
* 006347 3000636642 01206 JC $+15,34 4 01206
* 006354 3000005060 01207 ER51 JD 050 SB TO BA ERROR 01207
* 006361 3000726300 01208 JC START,0 0 01208
006366 2000310045 01209 FT LA,SBT 01209
006373 2000310017 01210 FT LA,15 CLCLEAR LA 01210
* 006400 1000400300 01211 JR CLEAR,0 0 01211
006405 4020250300 01212 XF 21,0030000,00,RDCH, FD,ADV., TRANS, INH, 01212 C
006412 4400430733 01213 SC DELCT+4,4,27 01213
* 006417 1000425000 01214 JR DELAY,0 0 DELAY BEYOND CP 18-17 01214 B
* 006424 3000643667 01215 JC $+10,55 5 01215
* 006431 3000645024 01216 JC $+15,20 0 01216
* 006436 3000005260 01217 ER52 JC 052,48 I INH IPT DID NOT ALLOW 01217
* 006443 3000726300 01218 JC START,0 0 FEED IPT. 01218 P
006450 7400341344 01219 CT LAA,BAT T 01219
* 006455 3000647442 01220 JC $+15,34 4 01220
* 006462 3000005360 01221 ER53 JC 053,48 S SB BA ERROR 01221
* 006467 3000726300 01222 JC START,0 0 01222
006474 2000250016 01223 FT FA,14 01223
* 006501 1000405300 01224 JR COMP,0 01224
* 006506 3000652066 01225 JC $+10,54 4 01225
* 006513 3000653200 01226 JC $+15,0 01226
* 006520 3000005460 01227 ER54 JC 054,48 D DATA ERROR 01227 R
* 006525 3000726300 01228 JC START,0 0 01228
006532 4400430733 01229 SC DELCT+4,4,27 01229
* 006537 1000425000 01230 JR DELAY,0 0 SHOULD NOT UPT SO 01230
* 006544 3000656367 01301 JC $+15,55 5 3 IS STILL SET 01301 T
* 006551 3000005560 01302 ER55 JC 055,48 I INHIBIT NOT WORKING 01302
* 006556 3000726300 01303 JC START,0 0 01303
006563 2000310016 01304 FT LA,14 01304
* 006570 1000405300 01305 JR COMP,0 01305
* 006575 3000660766 01306 JC $+10,54 4 01306
* 006602 3000662100 01307 JC $+15,0 01307
* 006607 3000005660 01308 ER56 JC 056,48 D DATA ERROR 01308 R
* 006614 3000726300 01309 JC START,0 0 01309
006621 7400361444 01310 CT LA128,BABAT 01310
* 006626 3000664542 01311 JC $+15,34 4 01311
* 006633 3000005760 01312 ER57 JC 057,48 B BASE ADD, WRONG 01312 D
* 006640 3000726300 01313 JC START,0 0 01313
006645 2000250044 01314 OUT FT FA,BAT A AT 18-18 01314 8
006652 2001750045 01315 FT 017500,S,SBT 01315
006657 2000250017 01316 FT FA,15 01316
* 006664 1000400300 01317 JR CLEAR,0 0 01317
006671 4020050300 01318 XF FEED,0030300,00,RDCH, 01318 R
006676 4020650000 01319 XF 53,0000000,00,RDCH LOCKOUT RFC90 01319 C
006703 4020002000 01320 XF TEST,0202000,00,RDCH, 01320 R
* 006710 3000672753 01321 JC $+15,43 3 01321
* 006715 3000010460 01322 ER104 JC 0104,48 8 01322
* 006722 3000726300 01323 JC START,0 0 01323
006727 4020402000 01324 XF RESET,0202000,00,RDCH, 01324 ,
006734 4400430737 01325 SC DELCT+4,4,31 01325
* 006741 1000425024 01326 JR DELAY,2020 DELAY BEYOND CP 18-19 01326
* 006746 3000676067 01327 JC $+10,55 5 01327
* 006753 3000677224 01328 JC $+15,20 0 01328
* 006760 3000006060 01329 JC 060,48 01329
* 006765 3000726300 01330 JC START,0 0 01330
* 006772 3000677267 01401 JC $,55 01401
* 006777 3000700424 01402 JC $+5,20 L LOOP TILL 1PT 18-20 01402 L
007004 7400340344 01403 CT NLAA,BATAT 01403
* 007011 3000703042 01404 JC $+15,34 4 01404
* 007016 3000006160 01405 ER61 JC 061,48 B BA WRONG 01405 G
* 007023 3000726300 01406 JC START,0 0 01406
007030 2000250016 01407 FT FA,14 01407
* 007035 1000405300 01408 JR COMP,0 01408
* 007042 3000705466 01409 JC $+10,54 4 01409
* 007047 3000706600 01410 JC $+15,0 01410
* 007054 3000010660 01411 ER106 JC 0106,48 8 DATA ERROR 01411 R
* 007061 3000726300 01412 JC START,0 0 01412
007066 2000250017 01413 FT FA,15 01413
007073 2000250044 01414 FT FA,BAT 01414
* 007100 1000400300 01415 JR CLEAR,0 0 01415
007105 4020650300 01416 XF 53,0030000,00,RDCH LOCKOUT,TRANS, RFC90 01416 C
* 007112 3000712467 01417 JC $+10,55 5 01417
* 007117 3000713600 01418 JC $+15,0 01418
* 007124 3000006260 01419 ER62 JC 062,48 I IPT ERROR 01419 O
* 007131 3000726300 01420 JC START,0 0 01420
007136 4400430733 01421 SC DELCT+4,4,27 01421
* 007143 1000425024 01422 JR DELAY,2020 01422
* 007150 3000716767 01423 JC $+15,55 5 01423
* 007155 3000011360 01424 ER113 JC 0113,48 8 01424
* 007162 3000726300 01425 JC START,0 0 01425
* 007167 3000717424 01426 JC $+5,20 01426
007174 2000250016 01427 FT FA,14 01427
* 007201 1000405326 01428 JR COMP,22 2 01428
* 007206 3000722066 01429 JC $+10,54 4 01429
* 007213 3000723200 01430 JC $+15,0 01430
* 007220 3000006360 01501 ER63 JC 063,48 N NO LOCKOUT 01501 O
* 007225 3000726300 01502 JC START,0 0 01502
007232 7400340344 01503 CT NLAA,BATAT 01503
* 007237 3000746642 01504 JC RELS,34 4 01504
* 007244 3000006460 01505 ER64 JC 064,48 B BA WRONG 01505 G
* 007251 3000726300 01506 JC START,0 0 01506
007256 6000357301 01507 AC NOERR,1 1 01507
007263 4020407777 01508 START XF RESET,0707777,00,RDCH, 01508 ,
007270 2600022710 01509 PD 151,8 01509
007275 4400362140 01510 SC RDIPT+4,4,32 01510
007302 4400744040 01511 SC IPT2+4,3,32 01511
007307 4020007777 01512 XF TEST,0777777,00,RDCH, 01512 R
* 007314 3000732653 01513 JC ER65,43 3 01513
* 007321 3000366024 01514 JC INHB,20 0 01514
* 007326 3000006560 01515 ER65 JC 065,48 01515
* 007333 3000726300 01516 JC START,0 0 01516
* 007340 3000007760 01517 STP77 JC 077,48 S STOP AFTER LOAD T CARD 01517 T
007345 2600357304 01518 PD NOERR,4 4 PAD PASS COUNTER 01518 S
007352 5600342510 01519 BA1 IE+7,8 S SET READER IPT ENTRY 01519 D
007357 5200041710 01520 SA1 271,8 01520
007364 5600745510 01521 BA1 CL12,8 S SET CL 2 IPT ENTRY 01521 2
007371 5200051710 01522 SA1 335,8 01522
007376 5600746510 01523 BA1 CL12A,8 8 SET CL1 IPT ENTRY 01523 1
007403 5200050710 01524 SA1 327,8 01524
* 007410 3000726300 01525 JC START,0 0 01525
* 007415 3000742200 01526 IPT1 JC $+5,0 CLCLASS I 01526
* 007422 3000006660 01527 ER66 JC 066,48 H HALT 01527
* 007427 3000726336 01528 JC START,3030 01528
* 007434 3000776440 01529 IPT2 JC CL2T,32 2 01529
* 007441 3000006760 01530 ER67 JC 067,48 H HALT 01530
* 007446 3000726335 01601 JC START,2929 01601
007455 007434 01602 +3 IPT2 01602
007455 01603 CL12 EQU $-1 01603
* 007456 3000050000 01604 JC 320,0 01604
007465 007415 01605 +3 IPT1 01605
007465 01606 CL12A EQU $-1 01606
007466 4400362100 01607 RELS SC RDIPT+4,4,0 01607
007473 4020010100 01608 XF 1,00100,0,00,RDCH, 01608 H
007500 2000250044 01609 FT FA,BAT 01609
* 007505 3000750500 01610 JC $,0 LOOPOP TILL 1PT 18-22 01610 1
* 007512 3000751725 01611 JC $+5,21 01611
007517 4400430733 01612 SC DELCT+4,4,27 01612
* 007524 1000425000 01613 JR DELAY,0 0 DELAY BEYOND 18-23 01613 B
* 007531 3000755067 01614 JC $+15,55 5 01614
* 007536 3000010260 01615 ER102 JC 0102,48 8 01615
* 007543 3000726300 01616 JC START,0 0 01616
007550 4400362140 01617 SC RDIPT+4,4,32 01617
* 007555 3000756231 01618 JC $+5,25 01618
* 007562 3000757467 01619 JC $+10,55 5 01619
* 007567 3000760624 01620 JC FF26,20 0 01620
* 007574 3000010360 01621 ER103 JC 0103,48 8 NO IMMED IPT. 01621 E
* 007601 3000726300 01622 JC START,0 0 01622
007606 2000250044 01623 FF26 FT FA,BAT 01623
007613 4020050100 01624 XF FEED,0010100,00,RDCH, 01624 R
007620 4400430734 01625 SC DELCT+4,4,28 01625
* 007625 3000763232 01626 JC $+5,26 01626
* 007632 1000425000 01627 JR DELAY,0 0 01627
* 007637 3000765667 01628 JC $+15,55 5 01628
* 007644 3000010760 01629 ER107 JC 0107,48 8 26 NOT WORKING 01629
* 007651 3000726300 01630 JC START,0 0 01630
* 007656 3000767555 01701 JC $+15,45 5 01701
* 007663 3000011460 01702 ER114 JC 0114,48 8 01702
* 007670 3000726300 01703 JC START,0 0 01703
* 007675 3000770233 01704 JC $+5,27 01704
* 007702 3000771467 01705 JC $+10,55 5 01705
* 007707 3000772600 01706 JC $+15,0 01706
* 007714 3000010760 01707 ER110 JC 0107,48 8 <27 NOT 01707 T
* 007721 3000726300 01708 JC START,0 0 01708
* 007726 3000772667 01709 JC $,55 01709
007733 4020200000 01710 XF 16,0000000,00,RDCH, 01710 C
007740 4400744000 01711 SC IPT2+4,0,0 01711
* 007745 3001007752 01712 JC DECOF,4242 01712
* 007752 3000011160 01713 ER111 JC 0111,48 8 01713
* 007757 3000726300 01714 JC START,0 0 01714
007764 4020050100 01715 CL2T XF FEED,0010100,00,RDCH, 01715 R
007771 4400430777 01716 SC DELCT+4,4,63 01716
* 007776 1000425024 01717 JR DELAY,2020 01717
* 010003 3001002267 01718 JC $+15,55 5 01718
* 010010 3000011260 01719 ER112 JC 0112,48 8 01719
* 010015 3000726300 01720 JC START,0 0 01720
* 010022 3001002750 01721 JC $+5,40 01721
* 010027 3001003435 01722 JC $+5,29 01722
* 010034 3001004667 01723 JC $+10,55 5 01723
* 010041 3001006000 01724 JC $+15,0 01724
* 010046 3000011560 01725 ER115 JD 0115 01725
* 010053 3000726300 01726 JC START,0 0 01726
010060 4020200000 01727 XF 16,0000000,00,RDCH, 01727 C
010065 4400744040 01728 SC IPT2+4,3,32 01728
* 010072 3000725600 01729 JC ER64+10,0,0 01729
010077 40 01730 DECOF +1 040 01730
3000734000 01802 END STP77 01802
{-- tape mark --}
005577 C061 RFC80 CODEDIT SOURCE - T3834394-06
002500 00010 T060 BEGIN 1344 RFC80 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 002500 3007010660 * JD 070106 *
* 002505 3000250000 * J $-5 *
SEGMENT-ID T061 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 T062 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 T063 3000136300 * SEGJP $ *
002500 00011 ORIG 1344 00011
002500 200 00020 FA AREA 128 RFC 00020
002700 200 00030 NLA AREA 128 RFC 00030
003100 300 00040 LA AREA 192 RFC 00040
003400 00 00050 +1 000 RFC 00050
003403 002700 00060 NLAA +3 NLA RFC 00060
003404 00 00070 +1 000 RFC 00070
003407 002500 00080 FAA +3 FA RFC 00080
003410 00 00090 +1 000 RFC 00090
003413 003100 00100 LAA +3 LA RFC 00100
000040 00110 RESET EQU 32 RFC 00110
000000 00120 TEST EQU 0 RFC 00120
000001 00130 RDCH EQU 1 RFC 00130
000005 00140 FEED EQU 5 RFC 00140
003415 0000 00150 +2 00000 RFC 00150
003415 00160 IPTCT EQU $-1 RFC 00160
* 003416 3000000031 00170 IE JC 0,25 RFC 00170
003425 003603 00180 +3 RDIPT RFC 00180
000020 00190 INH EQU 16 RFC 00190
003426 00200 P1 EQU $ RFC 00200
003435 0024252627303132 00210 +8 0002425252627303132 RFC 00210 1
003445 3334444546475051 00220 +8 0333444444546475051 RFC 00220 0
003455 5253546566677071 00230 +8 0525354646566677071 RFC 00230 0
003465 7273740304050607 00240 +8 0727374040304050607 RFC 00240 6
003475 1011121314200223 00250 +8 0101112121314200223 RFC 00250 2
003505 4377633556217640 00260 +8 0437763333556217640 RFC 00260 6
003515 2275173637424101 00270 +8 0227517373637424101 RFC 00270 1
003525 1657606261551577 00280 +8 0165760606261551577 RFC 00280 5
003535 6424252627303132 00290 +8 0642425252627303132 RFC 00290 1
003545 3334444546475051 00300 +8 0333444444546475051 RFC 00300 0
003546 00 00310 +1 000 RFC 00310
003551 003000 00320 FA192 +3 FA+192 RFC 00320
003555 00077700 00330 +4 00007770700 RFC 00330
003555 00340 OCT77 EQU $-1 RFC 00340
003561 00000000 00350 +4 00000000000 RFC 00350
003561 00360 NOERR EQU $-1 RFC 00360
* 003562 3000000036 00370 JC 0,30 RFC 00370
003571 007453 00380 +3 IPT1 RFC 00380
* 003572 3000000035 00390 JC 0,29 RFC 00390
000223 00400 BAT EQU 0223 RFC 00400
000227 00410 SBT EQU 0227 RFC 00410
003577 00 00420 +1 000 RFC 00420
003602 003300 00430 LA128 +3 LA+128 RFC 00430
* 003603 3000755040 00440 RDIPT JC RELS+20,0,32 RFC 00440
003610 4020007750 00450 XF TEST,0777750,00,RDCH, T EST ALL ERRORS RFC 00450 R
* 003615 3000363453 00460 JC $+15,43 3 RFC 00460
* 003622 3000362727 00470 JC $+5,23 RESET SI3 RFC 00470 S
* 003627 3000041000 00480 JC 264,00 RFC 00480
* 003634 3000000060 00490 ER0 JC 00,48 R READER ERROR STOP RFC 00490 E
* 003641 3000732100 00500 JC START,0 0 RESTART RFC 00500 R
003646 4020200000 00510 INHB XF INH,0000000,00,RDCH, RFC 00510 D
003653 4400425677 00520 SC DELCT+4,4,63 SET DELAY FOR 128 MIL. SEC. RFC 00520
* 003660 1000421700 00530 JR DELAY,0 0 ENTER DELAY LOOP RFC 00530
* 003665 3000370467 00540 JC REST,55 5 RFC 00540
* 003672 3000000160 00550 ER1 JC 01,48 9 CHANNEL INHIBIT ERROR RFC 00550 H
* 003677 3000732100 00560 JC START,0 0 RFC 00560
003704 4020407777 00570 REST XF RESET,0707777,00,RDCH,R ESET ALL RFC 00570 ,
003711 4020007777 00580 XF TEST,0777777,00,RDCH, T EST ALL INDICATORS RFC 00580 R
* 003716 3000373053 00590 JC ER2,43 TEST STATUS FF RFC 00590 T
* 003723 3000374200 00600 JC $+15,0 RFC 00600
* 003730 3000000260 00610 ER2 JC 02,48 I IO INDICATORS NOT RESET RFC 00610 C
* 003735 3000732100 00620 JC START,0 0 RFC 00620
* 003742 3000375455 00630 JC ER3,45 RFC 00630
* 003747 3000426400 00640 JC CARD1,0 0 RFC 00640
* 003754 3000000360 00650 ER3 JC 03,48 C CL 3 NOT RESET RFC 00650 T
* 003761 3000732133 00660 JC START,2727 RFC 00660
* 003766 3000000000 00670 CLEAR JC 0,0 RFC 00670
003773 2760001700 00680 PD 15,16,7 7 CLEAR 80 DIGIT INPUT RFC 00680 R
004000 2760003700 00690 PD 31,16,7 7 AREA SPECIFIED BY RFC 00690
004005 2760005700 00700 PD 47,16,7 7 IR1 RFC 00700
004012 2760007700 00710 PD 63,16,7 7 RFC 00710
004017 2760011700 00720 PD 79,16,7 7 RFC 00720
004024 4560012000 00730 SC 80,0,7 .666 MS. RFC 00730 S
* 004031 3000376600 00740 JC CLEAR,0 0 RFC 00740
* 004036 3000000000 00750 COMP JC 0,0 COMOMPARISON ROUTINE RFC 00750 N
* 004043 3000405026 00760 JC $+5,22 RFC 00760
004050 5740001700 00770 BA1 15,16,6 6 C OLS 1 TO 16 RFC 00770 1
004055 7000344540 00780 CB1 P1+15,1616 2.46 MS. RFC 00780
* 004062 3000407442 00790 JC $+10,34 4 RFC 00790
* 004067 3000403623 00800 JC COMP,19 9 SET SENSE IND 2 RFC 00800 E
004074 5740003700 00810 BA1 31,16,6 6 RFC 00810
004101 7000346540 00820 CB1 P1+31,1616 COMPARE COLUMNS RFC 00820 A
* 004106 3000412042 00830 JC $+10,34 4 17 32 RFC 00830
* 004113 3000403623 00840 JC COMP,19 9 SET 3 AND EXIT RFC 00840
004120 5740005700 00850 BA1 47,16,6 6 RFC 00850
004125 7000350540 00860 CB1 P1+47,1616 COLS 33 TO 48 RFC 00860
* 004132 3000414442 00870 JC $+10,34 4 RFC 00870
* 004137 3000403623 00880 JC COMP,19 9 SET 2 AND EXIT RFC 00880
004144 5740007700 00890 BA1 63,16,6 6 COLS 49 TO 64 RFC 00890
004151 7000352540 00900 CB1 P1+63,1616 RFC 00900
* 004156 3000417042 00910 JC $+10,34 4 RFC 00910
* 004163 3000403623 00920 JC COMP,19 9 RFC 00920
004170 5740011700 00930 BA1 79,16,6 6 RFC 00930
004175 7000354540 00940 CB1 P1+79,1616 COLS.65 TO 80 RFC 00940 .
* 004202 3000403642 00950 JC COMP,34 4 RFC 00950
* 004207 3000403623 00960 JC COMP,19 9 SET 3 AND EXIT RFC 00960
* 004214 3000000000 00970 DELAY JC 0,0 RFC 00970
004221 2001000021 00980 FT 4096,17 7 RFC 00980
004226 2000032222 00990 FT 210,18 RFC 00990
004233 2401000040 01000 TTR 4096,0 RFC 01000
* 004240 3000425267 01010 JC $+10,55 5 RFC 01010
* 004245 3000421400 01020 JC DELAY,0 0 RFC 01020
* 004252 3200423300 01030 DELCT JL $-15,0 RFC 01030
* 004257 3000421400 01040 JC DELAY,0 0 RFC 01040
004264 2000250017 01050 CARD1 FT FA,15 LOLOAD IR7 WITH BASE ADD RFC 01050
* 004271 1000377100 01060 JR CLEAR,0 0 CLEAR INPUT AREA RFC 01060
004276 2000250044 01070 FT FA,BAT F FIX BASE ADDRESS RFC 01070 E
004303 2017777745 01080 FT 0177777,7,SBT FIX STAND BY RFC 01080 X
004310 4020050300 01090 XF FEED,0030300,00,RDCH, A DV. BA, TRANSLATE RFC 01090 R
004315 4020000020 01100 XF TEST,0000020,00,RDCH, L OOP TILL S1 SET RFC 01100 R
* 004322 3000433453 01110 JC $+10,43 3 RFC 01110
* 004327 3000431500 01120 JC $-10,0 RFC 01120
004334 4400425627 01130 SC DELCT+4,4,23 SET DELAY TILL RFC 01130 T
* 004341 1000421700 01140 JR DELAY,0 0 BEYOND 18-2 RFC 01140 D
* 004346 3000436067 01150 JC $+10,55 5 RFC 01150
* 004353 3000437200 01160 JC $+15,0 RFC 01160
* 004360 3000000460 01170 ER4 JC 04,48 RFC 01170
* 004365 3000732100 01180 JC START,0 0 RFC 01180
004372 4020000020 01190 XF TEST,0000020,00,RDCH, S 1 SHOULD STILL RFC 01190 R
* 004377 3000441653 01200 JC $+15,43 3 BE SET RFC 01200 T
* 004404 3000000560 01210 ER5 JC 05,48 S S1 RESET TOO SOON RFC 01210 T
* 004411 3000732100 01220 JC START,0 0 RFC 01220
* 004416 3000442324 01230 JC $+5,20 SET SENSE IND 3 RFC 01230 N
004423 4400425637 01240 CRD1A SC DELCT+4,4,31 SET DELAY TO 61 MS RFC 01240
* 004430 1000421700 01250 JR DELAY,0 0 RFC 01250
* 004435 3000444767 01260 JC ER6,55 RFC 01260
* 004442 3000446124 01270 JC $+15,20 0 RFC 01270
* 004447 3000000660 01280 ER6 JC 06,48 DIDID NOT INTERRUPT AT 18-3 RFC 01280 I
* 004454 3000732100 01290 JC START,0 0 RFC 01290
004461 4020000020 01300 XF TEST,0000020,00,RDCH,TE ST S1 RFC 01300 R
* 004466 3000450053 01310 JC ER7,43 RFC 01310
* 004473 3000451200 01320 JC $+15,0 RFC 01320
* 004500 3000000760 01330 ER7 JC 07,48 S1S1 NO RESET RFC 01330 S
* 004505 3000732100 01340 JC START,0 0 RFC 01340
004512 7400340344 01350 CT NLAA,BATAT RFC 01350
* 004517 3000453642 01360 JC $+15,34 4 RFC 01360
* 004524 3000001060 01370 ER10A JC 010,48 B BASE ADDRESS ERROR RFC 01370 D
* 004531 3000732100 01380 JC START,0 0 RFC 01380
* 004536 3000454324 01390 JC $+5,20 S SET SENSE IND 3, RFC 01390 S
004543 3400262000 01400 CRD1B CC FA+80,0 0 RFC 01400
* 004550 3000456742 01410 JC $+15,34 4 RFC 01410
* 004555 3000001160 01420 ER11 JC 011,48 T TRANSLATE READ AREA RFC 01420 T
* 004562 3000732100 01430 JC START,0 0 RFC 01430
004567 2000250016 01440 FT FA,14 FIFIX IR6 RFC 01440
* 004574 1000404100 01450 JR COMP,0 C COMPARE IMAGE IN FA RFC 01450
* 004601 3000461366 01460 JC $+10,54 4 RFC 01460
* 004606 3000462500 01470 JC $+15,0 RFC 01470
* 004613 3000001260 01480 ER12 JC 012,48 RFC 01480
* 004620 3000732100 01490 JC START,0 0 RFC 01490
004625 4400425635 01500 CRD2 SC DELCT+4,4,29 DELAY BEYOND CP 18-4 RFC 01500 A
* 004632 1000421700 01510 JR DELAY,0 0 RFC 01510
* 004637 3000465167 01520 JC ER13,55 5 RFC 01520
* 004644 3000466300 01530 JC $+15,0 RFC 01530
* 004651 3000001360 01540 ER13 JC 013,48 C CYCLICAL IPT 18-4 DID RFC 01540 L
* 004656 3000732100 01550 JC START,0 0 NOT OCCURR RFC 01550 C
* 004663 1000377100 01560 JR CLEAR,0 0 CLEAR AREA FA RFC 01560 A
004670 2000250044 01570 FT FA,BAT RFC 01570
004675 4020050200 01580 XF FEED,0020200,00,RDCH,AD V. UNTRANS. RFC 01580 R
004702 4020000020 01590 XF TEST,0000020,00,RDCH,TE ST S1 RFC 01590 R
* 004707 3000472153 01600 JC ER14,43 3 RFC 01600
* 004714 3000473300 01610 JC $+15,0 RFC 01610
* 004721 3000001460 01620 ER14 JC 014,48 S S1 SET IMMED. RFC 01620 I
* 004726 3000732100 01630 JC START,0 0 RFC 01630
004733 4400425611 01640 SC DELCT+4,4,9 RFC 01640
* 004740 1000421724 01650 JR DELAY,2020 RFC 01650
004745 4020000020 01660 XF TEST,0000020,00,RDCH,S1 SHOULD BE SET RFC 01660 R
* 004752 3000477153 01670 JC $+15,43 3 RFC 01670
* 004757 3000001560 01680 ER15 JC 015,48 S S1 NOT SET AT CP 5-4 RFC 01680 S
* 004764 3000732100 01690 JC START,0 0 RFC 01690
* 004771 3000477167 01700 CRD2A JC $,55 LOOP TILL IPT. 18-5 RFC 01700
* 004776 3000500324 01710 JC $+5,20 S SET SENSE IND.3 RFC 01710 S
005003 7400340744 01720 CT FAA,BAT T TEST FOR NO BA ADV. RFC 01720 O
* 005010 3000502742 01730 JC $+15,34 4 RFC 01730
* 005015 3000001660 01740 ER16 JC 016,48 B BA ADVANCE ERROR RFC 01740 N
* 005022 3000732100 01750 JC START,0 0 RFC 01750
005027 5600251700 01760 BA1 FA+15,1616 ACCESS INPT AREA DURING READ SCAN RFC 01760 S
005034 5600253700 01770 BA1 FA+31,1616 RFC 01770
005041 5600255700 01780 BA1 FA+47,1616 RFC 01780
005046 5600261700 01790 BA1 FA+79,1616 RFC 01790
* 005053 3000502767 01800 JC $-20,55 5 RFC 01800
005060 3400262030 01810 CC FA+80,2424 DATA TEST 011000 RFC 01810 T
* 005065 3000510442 01820 JC $+15,34 4 RFC 01820
* 005072 3000001760 01830 ER17 JC 017,48 WAS NOT READ UNTRANS. RFC 01830 T
* 005077 3000732100 01840 JC START,0 0 PROPERLY RFC 01840 L
005104 5600355104 01850 BA1 FA192,4 4 RFC 01850
005111 7000022344 01860 CB1 BAT,4 RFC 01860
* 005116 3000513542 01870 JC $+15,34 4 RFC 01870
* 005123 3000002060 01880 ER20A JC 020,48 B BA ADVANCE ERROR RFC 01880 N
* 005130 3000732100 01890 JC START,0 0 RFC 01890
* 005135 1000377124 01900 CRD2B JR CLEAR,2020 CLEAR FA RFC 01900
005142 4400425610 01910 SC DELCT+4,4,8 DELAY BEYOND CP 5-6 RFC 01910 Y
* 005147 1000421700 01920 JR DELAY,0 0 RFC 01920
005154 2017777745 01930 FT 0177777,7,SBT RFC 01930
005161 2000250044 01940 FT FA,BAT RFC 01940
005166 4020050100 01950 XF FEED,0010100,00,RDCH,SB , TRANSLATE RFC 01950 R
005173 4400425630 01960 SC DELCT+4,4,24 RFC 01960
* 005200 3000521767 01970 JC $+15,55 5 RFC 01970
* 005205 3000002160 01980 ER21 JC 021,48 I IPT 18-7 NOT INHIBITED RFC 01980 7
* 005212 3000732100 01990 JC START,0 0 RFC 01990
005217 4020050200 02000 XF FEED,0020200,00,RDCH,SH OULD SET BUSY RFC 02000 R
005224 4020002000 02010 XF TEST,0202000,00,RDCH, RFC 02010 R
* 005231 3000525053 02020 JC $+15,43 3 RFC 02020
* 005236 3000002260 02030 ER22 JC 022,48 B BUSY NOT SET RFC 02030 T
* 005243 3000732100 02040 JC START,0 0 RFC 02040
005250 4020402000 02050 XF RESET,0202000,00,RDCH,R ESET BUSY RFC 02050 ,
005255 4020002000 02060 XF TEST,0202000,00,RDCH, RFC 02060 R
* 005262 3000527453 02070 JC $+10,43 3 RFC 02070
* 005267 3000530600 02080 JC $+15,0 RFC 02080
* 005274 3000002360 02090 ER23 JC 023,48 B BUSY COULDN T BE RESET RFC 02090 U
* 005301 3000732100 02100 JC START,0 0 RFC 02100
005306 4020005750 02110 XF TEST,0575750,00,RDCH,AN Y OTHER ERRORS RFC 02110 R
* 005313 3000532553 02120 JC $+10,43 3 RFC 02120
* 005320 3000533700 02130 JC $+15,0 RFC 02130
* 005325 3000002460 02140 ER24 JC 024,48 RFC 02140
* 005332 3000732100 02150 JC START,0 0 RFC 02150
005337 4020000020 02160 XF TEST,0000020,00,RDCH,LO OP TILL S1 IS SET AT RFC 02160 R
* 005344 3000535653 02170 JC $+10,43 3 CP 5-7 RFC 02170
* 005351 3000533700 02180 JC $-10,0 RFC 02180
005356 4020050100 02190 CRD3 XF FEED,0010100,00,RDCH,SH OULD SET BUSY RFC 02190 R
005363 4020002000 02200 XF TEST,0202000,00,RDCH, RFC 02200 R
* 005370 3000540753 02210 JC $+15,43 3 RFC 02210
* 005375 3000003060 02220 ER30A JC 030,48 F FEED BETWEEN 5 AND 18 NOT RFC 02220 T
* 005402 3000732100 02230 JC START,0 0 SET BUSY RFC 02230 S
005407 4020402000 02240 XF RESET,0202000,00,RDCH, RFC 02240 ,
005414 4020002000 02250 XF TEST,0202000,00,RDCH, RFC 02250 R
* 005421 3000543353 02260 JC ER31,43 3 RFC 02260
* 005426 3000544500 02270 JC $+15,0 RFC 02270
* 005433 3000003160 02280 ER31 JC 031,48 B BUSY NOT RESETABLE RFC 02280 T
* 005440 3000732100 02290 JC START,0 0 RFC 02290
* 005445 3000546467 02300 JC $+15,55 5 RFC 02300
* 005452 3000003260 02310 ER32 JC 032,48 B BUSY CAUSED IMMED. IPT RFC 02310 U
* 005457 3000732100 02320 JC START,0 0 RFC 02320
* 005464 3000546467 02330 JC $,55 LOOP TILL IPT. 18-14 RFC 02330
* 005471 3000547624 02340 JC $+5,20 RFC 02340
005476 7400340744 02350 CRD3A CT FAA,BAT T RFC 02350
* 005503 3000552242 02360 JC $+15,34 4 RFC 02360
* 005510 3000003360 02370 ER33 JC 033,48 B BA ERROR AT FEED IPT RFC 02370 R
* 005515 3000732100 02380 JC START,0 0 RFC 02380
* 005522 3000552267 02390 JC $,55 LOOP TILL ITP 18-9 RFC 02390
005527 7400355544 02400 CT OCT77,BABAT BA EQ 777777 RFC 02400 Q
* 005534 3000555342 02410 JC $+15,34 4 RFC 02410
* 005541 3000003460 02420 ER34 JC 034,48 S SB TO BA ERROR RFC 02420 A
* 005546 3000732100 02430 JC START,0 0 RFC 02430
* 005553 1000404100 02440 JR COMP,0 C COMPARE FA WITH RFC 02440
* 005560 3000557266 02450 JC $+10,54 4 PATTERN 1 RFC 02450 N
* 005565 3000560400 02460 JC $+15,0 RFC 02460
* 005572 3000003560 02470 ER35 JC 035,48 I IND 2 SET SO COMPARISON RFC 02470 E
* 005577 3000732100 02480 JC START,0 0 ERROR RFC 02480
005604 3400262000 02490 CC FA+80,0 0 RFC 02490
* 005611 3000563042 02500 JC $+15,34 4 RFC 02500
* 005616 3000003660 02510 ER36 JD 036 TRANSLATE ERROR RFC 02510
* 005623 3000732100 02520 JC START,0 0 81ST DIGIT IN FA RFC 02520 I
005630 4020050000 02530 CRD4 XF FEED,0000000,00,RDCH, RFC 02530 R
005635 2017777745 02540 FT 0177777,7,SBT RFC 02540
005642 2000250044 02550 FT FA,BAT RFC 02550
* 005647 1000377124 02560 JR CLEAR,2020 RFC 02560
* 005654 3000565467 02570 JC $,55 LOOP TILL ITP 18-920 RFC 02570
* 005661 3000566624 02580 JC $+5,20 RFC 02580
005666 7400340744 02590 CT FAA,BAT T RFC 02590
* 005673 3000571242 02600 JC $+15,34 4 RFC 02600
* 005700 3000003760 02610 ER37 JC 037,48 B BA INCORRECT AT RFC 02610 R
* 005705 3000732100 02620 JC START,0 0 FEED INTERRUPT RFC 02620 N
* 005712 3000571267 02630 JC $,55 LOOP TILL ITP 18-911 RFC 02630
* 005717 3000572424 02640 JC $+5,20 RFC 02640
005724 3400262030 02650 CC FA+80,2424 RFC 02650
* 005731 3000575042 02660 JC $+15,34 4 RFC 02660
* 005736 3000004060 02670 ER40A JC 040,48 U UNTRANS. ERROR ON RFC 02670 .
* 005743 3000732100 02680 JC START,0 0 EXCLAM. POINT RFC 02680 .
005750 4020000020 02690 XF TEST,0000020,00,RDCH,TE ST S1 RFC 02690 R
* 005755 3000576753 02700 JC $+10,43 3 RFC 02700
* 005762 3000600100 02710 JC $+15,0 RFC 02710
* 005767 3000004160 02720 ER41 JC 041,48 S S1 NOT RESET RFC 02720 R
* 005774 3000732100 02730 JC START,0 0 RFC 02730
006001 4020200000 02740 XF 16,0000000,00,RDCH INHIBIT CH. IPTS. RFC 02740 C
006006 4400425637 02750 SC DELCT+4,4,31 RFC 02750
* 006013 1000421700 02760 JR DELAY,0 0 DELAY BEYOND CP 18-12 RFC 02760 B
* 006020 3000603767 02770 JC $+15,55 5 RFC 02770
* 006025 3000004260 02780 ER42 JC 042,48 C CH. INH IPT NOT WORKING RFC 02780
* 006032 3000732100 02790 JC START,0 0 RFC 02790
006037 4020050300 02800 SPEED XF FEED,0030300,00,RDCH,AD V. BA, TRANS. RFC 02800 R
006044 2000250044 02810 FT FA,BAT RFC 02810
006051 2017777745 02820 FT 0177777,7,SBT RFC 02820
* 006056 1000377100 02830 JR CLEAR,0 0 CLEAR FA RFC 02830 F
* 006063 1000377100 02840 JR CLEAR,0 0 INSERT AT 21055 RFC 02840
006070 2000310017 02850 FT LA,15 CLCLEAR LA RFC 02850
006075 2000377100 02860 FT CLEAR+3,3,0 INSERT AT 21065 RFC 02860 R
* 006102 3000610267 02870 JC $,55 LOOP TILL ITP 18-913 RFC 02870
* 006107 3000611424 02880 JC $+5,20 S SET IPT SENTINEL RFC 02880
006114 4020050300 02890 XF FEED,0030300,00,RDCH, RFC 02890 R
* 006121 3000612167 02900 JC $,55 LOOP TILL ITP 18-914 RFC 02900
* 006126 3000613324 02910 JC $+5,20 RFC 02910
006133 2000250016 02920 FT FA,14 RFC 02920
* 006140 1000404100 02930 JR COMP,0 C CHECK IMAGE IN FA RFC 02930 M
* 006145 3000615766 02940 JC ER43,54 4 RFC 02940
* 006152 3000617100 02950 JC $+15,0 RFC 02950
* 006157 3000004360 02960 ER43 JC 043,48 D DATA ERROR RFC 02960 R
* 006164 3000732100 02970 JC START,0 0 RFC 02970
006171 4020000020 02980 XF TEST,0000020,00,RDCH,TE ST S1 RFC 02980 R
* 006176 3000621553 02990 JC $+15,43 3 RFC 02990
* 006203 3000004460 03000 ER44 JC 044,48 RFC 03000
* 006210 3000732100 03010 JC START,0 0 RFC 03010
006215 7400340344 03020 CT NLAA,BATAT RFC 03020
* 006222 3000624142 03030 JC $+15,34 4 RFC 03030
* 006227 3000004560 03040 ER45 JC 045,48 RFC 03040
* 006234 3000732100 03050 JC START,0 0 RFC 03050
006241 4020050000 03060 CRD7 XF FEED,0000000,00,RDCH,AT IPT 18-14 RFC 03060 R
* 006246 3000624667 03070 JC $,55 SA TO BA UNTRANS RFC 03070
* 006253 3000626024 03080 JC $+5,20 L LOOP TILL 18-15 RFC 03080 L
006260 7400341344 03090 CT LAA,BAT T RFC 03090
* 006265 3000630442 03100 JC $+15,34 4 RFC 03100
* 006272 3000004660 03110 ER46 JC 046,48 A ADVANCE BASE ADD. ERROR RFC 03110
* 006277 3000732100 03120 JC START,0 0 RFC 03120
006304 2000270016 03130 FT NLA,14 RFC 03130
* 006311 1000404100 03140 JR COMP,0 C COMPARE DATA IN NLA RFC 03140
* 006316 3000633066 03150 JC $+10,54 4 RFC 03150
* 006323 3000634200 03160 JC $+15,0 RFC 03160
* 006330 3000004760 03170 ER47 JC 047,48 N NLA COMPARISON RFC 03170 P
* 006335 3000732100 03180 JC START,0 0 ERROR RFC 03180
006342 2000250017 03190 FT FA,15 RFC 03190
* 006347 1000377100 03200 JR CLEAR,0 0 RFC 03200
006354 2000250045 03210 FT FA,SBT RFC 03210
006361 4020050100 03220 XF FEED,0010100,00,RDCH,SB TO BA,TRANS RFC 03220 R
* 006366 3000636667 03230 JC $,55 LOOP TILL ITP 18-916 RFC 03230
* 006373 3000640024 03240 JC $+5,20 RFC 03240
006400 7400340744 03250 CRD8 CT FAA,BAT T RFC 03250
* 006405 3000642442 03260 JC $+15,34 4 RFC 03260
* 006412 3000005060 03270 ER50 JC 050,48 S SB TO BA ERROR RFC 03270 A
* 006417 3000732100 03280 JC START,0 0 RFC 03280
006424 2000310045 03290 FT LA,SBT RFC 03290
006431 2000310017 03300 FT LA,15 CLCLEAR LA RFC 03300
* 006436 1000377100 03310 JR CLEAR,0 0 RFC 03310
006443 4020210300 03320 XF 021,0030300,00,1 READ ADV. TRANS. INH. RFC 03320
006450 4400425633 03330 SC DELCT+4,4,27 RFC 03330
* 006455 1000421700 03340 JR DELAY,0 0 DELAY BEYOND CP 18-17 RFC 03340 B
* 006462 3000647467 03350 JC $+10,55 5 RFC 03350
* 006467 3000650624 03360 JC $+15,20 0 RFC 03360
* 006474 3000005260 03370 ER52 JC 052,48 I INH IPT DID NOT ALLOW RFC 03370
* 006501 3000732100 03380 JC START,0 0 FEED IPT. RFC 03380 P
006506 7400341344 03390 CT LAA,BAT T RFC 03390
* 006513 3000653242 03400 JC $+15,34 4 RFC 03400
* 006520 3000005360 03410 ER53 JC 053,48 S SB BA ERROR RFC 03410
* 006525 3000732100 03420 JC START,0 0 RFC 03420
006532 2000250016 03430 FT FA,14 RFC 03430
* 006537 1000404100 03440 JR COMP,0 RFC 03440
* 006544 3000655666 03450 JC $+10,54 4 RFC 03450
* 006551 3000657000 03460 JC $+15,0 RFC 03460
* 006556 3000005460 03470 ER54 JC 054,48 D DATA ERROR RFC 03470 R
* 006563 3000732100 03480 JC START,0 0 RFC 03480
006570 4400425633 03490 SC DELCT+4,4,27 RFC 03490
* 006575 1000421700 03500 JR DELAY,0 0 SHOULD NOT UPT SO RFC 03500
* 006602 3000662167 03510 JC $+15,55 5 3 IS STILL SET RFC 03510 T
* 006607 3000005560 03520 ER55 JC 055,48 I INHIBIT NOT WORKING RFC 03520
* 006614 3000732100 03530 JC START,0 0 RFC 03530
006621 2000310016 03540 FT LA,14 RFC 03540
* 006626 1000404100 03550 JR COMP,0 RFC 03550
* 006633 3000664566 03560 JC $+10,54 4 RFC 03560
* 006640 3000665700 03570 JC $+15,0 RFC 03570
* 006645 3000005660 03580 ER56 JC 056,48 D DATA ERROR RFC 03580 R
* 006652 3000732100 03590 JC START,0 0 RFC 03590
006657 7400360244 03600 CT LA128,BABAT RFC 03600
* 006664 3000670342 03610 JC $+15,34 4 RFC 03610
* 006671 3000005760 03620 ER57 JC 057,48 B BASE ADD, WRONG RFC 03620 D
* 006676 3000732100 03630 JC START,0 0 RFC 03630
006703 2000250044 03640 OUT FT FA,BAT A AT 18-18 RFC 03640 8
006710 2001700045 03650 FT 017000,S,SBT RFC 03650
006715 2000250017 03660 FT FA,15 RFC 03660
* 006722 1000377100 03670 JR CLEAR,0 0 RFC 03670
006727 4020050300 03680 XF FEED,0030300,00,RDCH, RFC 03680 R
006734 4020650000 03690 XF 53,0000000,00,RDCH LOCKOUT RFC 03690 C
006741 4020002000 03700 XF TEST,0202000,00,RDCH, RFC 03700 R
* 006746 3000676553 03710 JC $+15,43 3 RFC 03710
* 006753 3000010460 03720 ER104 JC 0104,48 8 RFC 03720
* 006760 3000732100 03730 JC START,0 0 RFC 03730
006765 4020402000 03740 XF RESET,0202000,00,RDCH, RFC 03740 ,
006772 4400425637 03750 SC DELCT+4,4,31 RFC 03750
* 006777 1000421724 03760 JR DELAY,2020 DELAY BEYOND CP 18-19 RFC 03760
* 007004 3000701667 03770 JC $+10,55 5 RFC 03770
* 007011 3000703024 03780 JC $+15,20 0 RFC 03780
* 007016 3000006060 03790 JC 060,48 RFC 03790
* 007023 3000732100 03800 JC START,0 0 RFC 03800
* 007030 3000703067 03810 JC $,55 RFC 03810
* 007035 3000704224 03820 JC $+5,20 L LOOP TILL 1PT 18-20 RFC 03820 L
007042 7400340344 03830 CT NLAA,BATAT RFC 03830
* 007047 3000706642 03840 JC $+15,34 4 RFC 03840
* 007054 3000006160 03850 ER61 JC 061,48 B BA WRONG RFC 03850 G
* 007061 3000732100 03860 JC START,0 0 RFC 03860
007066 2000250016 03870 FT FA,14 RFC 03870
* 007073 1000404100 03880 JR COMP,0 RFC 03880
* 007100 3000711266 03890 JC $+10,54 4 RFC 03890
* 007105 3000712400 03900 JC $+15,0 RFC 03900
* 007112 3000010660 03910 ER106 JC 0106,48 8 DATA ERROR RFC 03910 R
* 007117 3000732100 03920 JC START,0 0 RFC 03920
007124 2000250017 03930 FT FA,15 RFC 03930
007131 2000250044 03940 FT FA,BAT RFC 03940
* 007136 1000377100 03950 JR CLEAR,0 0 RFC 03950
007143 4020650300 03960 XF 53,0030000,00,RDCH LOCKOUT, TRANS, RFC 03960 C
* 007150 3000716267 03970 JC $+10,55 5 RFC 03970
* 007155 3000717400 03980 JC $+15,0 RFC 03980
* 007162 3000006260 03990 ER62 JC 062,48 I IPT ERROR RFC 03990 O
* 007167 3000732100 04000 JC START,0 0 RFC 04000
007174 4400425633 04010 SC DELCT+4,4,27 RFC 04010
* 007201 1000421724 04020 JR DELAY,2020 RFC 04020
* 007206 3000722567 04030 JC $+15,55 5 RFC 04030
* 007213 3000011360 04040 ER113 JC 0113,48 8 RFC 04040
* 007220 3000732100 04050 JC START,0 0 RFC 04050
* 007225 3000723224 04060 JC $+5,20 RFC 04060
007232 2000250016 04070 FT FA,14 RFC 04070
* 007237 1000404126 04080 JR COMP,22 2 RFC 04080
* 007244 3000725666 04090 JC $+10,54 4 RFC 04090
* 007251 3000727000 04100 JC $+15,0 RFC 04100
* 007256 3000006360 04110 ER63 JC 063,48 N NO LOCKOUT RFC 04110 O
* 007263 3000732100 04120 JC START,0 0 RFC 04120
007270 7400340344 04130 CT NLAA,BATAT RFC 04130
* 007275 3000752442 04140 JC RELS,34 4 RFC 04140
* 007302 3000006460 04150 ER64 JC 064,48 B BA WRONG RFC 04150 G
* 007307 3000732100 04160 JC START,0 0 RFC 04160
007314 6000356101 04170 AC NOERR,1 1 RFC 04170
007321 4020407777 04180 START XF RESET,0707777,00,RDCH, RFC 04180 ,
007326 2600022710 04190 PD 151,8 RFC 04190
007333 4400360740 04200 SC RDIPT+4,4,32 RFC 04200
007340 4400747640 04210 SC IPT2+4,3,32 RFC 04210
007345 4020007777 04220 XF TEST,0777777,00,RDCH, RFC 04220 R
* 007352 3000736453 04230 JC ER65,43 3 RFC 04230
* 007357 3000364624 04240 JC INHB,20 0 RFC 04240
* 007364 3000006560 04250 ER65 JC 065,48 RFC 04250
* 007371 3000732100 04260 JC START,0 0 RFC 04260
* 007376 3000007760 04270 STP77 JC 077,48 S STOP AFTER LOAD T CARD RFC 04270 T
007403 2600356104 04280 PD NOERR,4 4 PAD PASS COUNTER RFC 04280 S
007410 5600342510 04290 BA1 IE+7,8 S SET READER IPT ENTRY RFC 04290 D
007415 5200041710 04300 SA1 271,8 RFC 04300
007422 5600751310 04310 BA1 CL12,8 S SET CL 2 IPT ENTRY RFC 04310 2
007427 5200051710 04320 SA1 335,8 RFC 04320
007434 5600752310 04330 BA1 CL12A,8 8 SET CL1 IPT ENTRY RFC 04330 1
007441 5200050710 04340 SA1 327,8 RFC 04340
* 007446 3000732100 04350 JC START,0 0 RFC 04350
* 007453 3000746000 04360 IPT1 JC $+5,0 CLCLASS I RFC 04360
* 007460 3000006660 04370 ER66 JC 066,48 H HALT RFC 04370
* 007465 3000732136 04380 JC START,3030 RFC 04380
* 007472 3001002240 04390 IPT2 JC CL2T,32 2 RFC 04390
* 007477 3000006760 04400 ER67 JC 067,48 H HALT RFC 04400
* 007504 3000732135 04410 JC START,2929 RFC 04410
007513 007472 04420 +3 IPT2 RFC 04420
007513 04430 CL12 EQU $-1 RFC 04430
* 007514 3000050000 04440 JC 320,0 RFC 04440
007523 007453 04450 +3 IPT1 RFC 04450
007523 04460 CL12A EQU $-1 RFC 04460
007524 4400360700 04470 RELS SC RDIPT+4,4,0 RFC 04470
007531 4020010100 04480 XF 1,00100,0,00,RDCH, RFC 04480 H
007536 2000250044 04490 FT FA,BAT RFC 04490
* 007543 3000754367 04500 JC $,55 LOOP TILL ITP 18-22 RFC 04500
* 007550 3000755525 04510 JC $+5,21 RFC 04510
007555 4400425633 04520 SC DELCT+4,4,27 RFC 04520
* 007562 1000421700 04530 JR DELAY,0 0 DELAY BEYOND 18-23 RFC 04530 B
* 007567 3000760667 04540 JC $+15,55 5 RFC 04540
* 007574 3000010260 04550 ER102 JC 0102,48 8 RFC 04550
* 007601 3000732100 04560 JC START,0 0 RFC 04560
007606 4400360740 04570 SC RDIPT+4,4,32 RFC 04570
* 007613 3000762031 04580 JC $+5,25 RFC 04580
* 007620 3000763267 04590 JC $+10,55 5 RFC 04590
* 007625 3000764424 04600 JC FF26,20 0 RFC 04600
* 007632 3000010360 04610 ER103 JC 0103,48 8 NO IMMED IPT. RFC 04610 E
* 007637 3000732100 04620 JC START,0 0 RFC 04620
007644 2000250044 04630 FF26 FT FA,BAT RFC 04630
007651 4020050100 04640 XF FEED,0010100,00,RDCH, RFC 04640 R
007656 4400425634 04650 SC DELCT+4,4,28 RFC 04650
* 007663 3000767032 04660 JC $+5,26 RFC 04660
* 007670 1000421700 04670 JR DELAY,0 0 RFC 04670
* 007675 3000771467 04680 JC $+15,55 5 RFC 04680
* 007702 3000010760 04690 ER107 JC 0107,48 8 26 NOT WORKING RFC 04690
* 007707 3000732100 04700 JC START,0 0 RFC 04700
* 007714 3000773355 04710 JC $+15,45 5 RFC 04710
* 007721 3000011460 04720 ER114 JC 0114,48 8 RFC 04720
* 007726 3000732100 04730 JC START,0 0 RFC 04730
* 007733 3000774033 04740 JC $+5,27 RFC 04740
* 007740 3000775267 04750 JC $+10,55 5 RFC 04750
* 007745 3000776400 04760 JC $+15,0 RFC 04760
* 007752 3000010760 04770 ER110 JC 0107,48 8 )27 NOT RFC 04770 T
* 007757 3000732100 04780 JC START,0 0 RFC 04780
* 007764 3000776467 04790 JC $,55 RFC 04790
007771 4020200000 04800 XF 16,0000000,00,RDCH, RFC 04800 C
007776 4400747600 04810 SC IPT2+4,0,0 RFC 04810
* 010003 3001013552 04820 JC DECOF,4242 RFC 04820
* 010010 3000011160 04830 ER111 JC 0111,48 8 RFC 04830
* 010015 3000732100 04840 JC START,0 0 RFC 04840
010022 4020050100 04850 CL2T XF FEED,0010100,00,RDCH, RFC 04850 R
010027 4400425677 04860 SC DELCT+4,4,63 RFC 04860
* 010034 1000421724 04870 JR DELAY,2020 RFC 04870
* 010041 3001006067 04880 JC $+15,55 5 RFC 04880
* 010046 3000011260 04890 ER112 JC 0112,48 8 RFC 04890
* 010053 3000732100 04900 JC START,0 0 RFC 04900
* 010060 3001006550 04910 JC $+5,40 RFC 04910
* 010065 3001007235 04920 JC $+5,29 RFC 04920
* 010072 3001010467 04930 JC $+10,55 5 RFC 04930
* 010077 3001011600 04940 JC $+15,0 RFC 04940
* 010104 3000011560 04950 ER115 JD 0115 RFC 04950
* 010111 3000732100 04960 JC START,0 0 RFC 04960
010116 4020200000 04970 XF 16,0000000,00,RDCH, RFC 04970 C
010123 4400747640 04980 SC IPT2+4,3,32 RFC 04980
* 010130 3000731400 04990 JC ER64+10,0,0 RFC 04990
010135 40 05000 DECOF +1 040 RFC 05000
3000737600 05010 END STP77 RFC 05010
{-- tape mark --}
006723 C071 PROCT CODEDIT SOURCE 06/67 BC G T3834394-07
001500 00010 T070 BEGIN 01500 PROCT 00010
*LOAD 0700,TAPAPE,,PRELD L
* 001500 3007010660 * JD 070106 *
* 001505 3000150000 * J $-5 *
SEGMENT-ID T071 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 T072 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 T073 3000135600 * SEGJP $ *
001500 00020 ORIG 01500 PROCT 00020
* 001500 3000150020 00030 PIE JC $,16 PROCT 00030
001507 000400 00040 +3 256 PROCT 00040
* 001510 3000151031 00050 RIE JC $,25 PROCT 00050
001517 000410 00060 +3 264 PROCT 00060
* 001520 3000152022 00070 PARIE JC $,18 PROCT 00070
001527 000500 00080 +3 320 PROCT 00080
* 001530 3000153023 00090 DOFIE JC $,19 PROCT 00090
001537 000510 00100 +3 328 PROCT 00100
001540 00 00110 K02 +1 000 PROCT 00110
001542 0042 00120 K03 +2 00042 PROCT 00120
001546 47245345 00130 K04 +4 04724534345 PROCT 00130
001551 407754 00140 K05 +3 0407754 4 PROCT 00140
001553 7240 00150 K06 +2 07240 PROCT 00150
001555 1317 00160 K07 +2 01317 PROCT 00160
001565 4041424450603740 00170 K08 +8 0404142424450603740 PROCT 00170 7
001575 0262414244506037 00180 K09 +8 0026241414244506037 PROCT 00180 0
001603 030200036263 00190 K11 +6 003020000036263 PROCT 00190
001605 5225 00200 K12 +2 05225 PROCT 00200
001615 0500171412001317 00210 +8 0050017171412001317 PROCT 00210 3
001625 0001020410001740 00220 K13 +8 0000102020410001740 PROCT 00220 7
001631 07775264 00230 K14 +4 00777526264 PROCT 00230
001635 60021740 00240 K15 +4 06002174740 PROCT 00240
001636 40 00250 K16 +1 040 PROCT 00250
001640 6203 00260 K17 +2 06203 PROCT 00260
001642 4042 00270 K18 +2 04042 PROCT 00270
001644 4022 00280 K19 +2 04022 PROCT 00280
001646 4012 00290 K21 +2 04012 PROCT 00290
001650 4006 00300 K22 +2 04006 PROCT 00300
001652 4000 00310 K23 +2 04000 PROCT 00310
001654 4003 00320 K24 +2 04003 PROCT 00320
001656 4037 00330 K25 +2 04037 PROCT 00330
001660 4057 00340 K26 +2 04057 PROCT 00340
001662 4067 00350 K27 +2 04067 PROCT 00350
001664 4073 00360 K28 +2 04073 PROCT 00360
001666 4075 00370 K29 +2 04075 PROCT 00370
001670 4076 00380 K31 +2 04076 PROCT 00380
001674 00004263 00390 K32 +4 00000426263 PROCT 00390
001700 00000063 00400 K33 +4 00000006063 PROCT 00400
001705 0000626300 00410 AC1 +5 0000062626300 PROCT 00410
001706 00 00420 AC2 +1 000 PROCT 00420
001711 010001 00430 PAT +3 0010001 1 PROCT 00430
001714 010100 00440 CON +3 0010100 0 PROCT 00440
001717 020101 00450 ANS +3 0020101 1 PROCT 00450
001727 0200010302010003 00460 NEED +8 0020001010302010003 PROCT 00460 0
001736 02030201030001 00470 PAT2 +7 00203020201030001 PROCT 00470 1
001745 01030200000102 00480 MORE +7 00103020200000102 PROCT 00480 2
001755 0303020203010100 00490 CON2 +8 0030302020203010100 PROCT 00490 1
001765 0303030302020206 00500 SPCE +8 0030303030302020206 PROCT 00500 2
001774 05050404040101 00510 ANS2 +7 00505040404040101 PROCT 00510 1
002003 00040406060202 00520 PAT3 +7 00004040406060202 PROCT 00520 2
002012 04000406020602 00530 CON3 +7 00400040406020602 PROCT 00530 2
002021 04041014101004 00540 ANS3 +7 00404101014101004 PROCT 00540 4
002030 00101014041404 00550 PAT4 +7 00010101014041404 PROCT 00550 4
002037 10001014140404 00560 CON4 +7 01000101014140404 PROCT 00560 4
002046 10102030202010 00570 ANS4 +7 01010203030202010 PROCT 00570 0
002055 00202030103010 00580 PAT5 +7 00020203030103010 PROCT 00580 0
002064 20002030301010 00590 CON5 +7 02000203030301010 PROCT 00590 0
002073 20204060404020 00600 ANS5 +7 02020406060404020 PROCT 00600 0
002102 00404060206020 00610 PAT6 +7 00040406060206020 PROCT 00610 0
002111 40004060602020 00620 CON6 +7 04000406060602020 PROCT 00620 0
002120 40410141010040 00630 ANS6 +7 04041014141010040 PROCT 00630 0
002124 75317000 00640 AB1 +4 07531700000 PROCT 00640
002130 72636000 00650 AB2 +4 07263600000 PROCT 00650
002134 31100500 00660 AB3 +4 03110050500 PROCT 00660
002140 62201200 00670 AB4 +4 06220120200 PROCT 00670
002141 0 00680 WORK +1 _0_ PROCT 00680
002151 01234567 00690 DEC2 +8 _0123456567_ PROCT 00690
002161 89134574 00700 DEC1 +8 _8913457574_ PROCT 00700
002162 63 00710 K34 +1 063 PROCT 00710
002163 13 00720 K35 +1 013 PROCT 00720
002166 630507 00730 K36 +3 0630507 7 PROCT 00730
002170 6303 00740 K37 +2 06303 PROCT 00740
002172 0403 00750 K38 +2 00403 PROCT 00750
002173 1 00760 K39 +1 _1_ PROCT 00760
002174 K 00770 K41 -1 _2_ PROCT 00770
002176 2L 00780 K42 -2 _23_ PROCT 00780
002201 276 00790 K43 +3 _276_ PROCT 00790
002205 345O 00800 K44 -4 _3456_ PROCT 00800
002211 6789 00810 K45 +4 _6789_ PROCT 00810
002221 2346278M 00820 K46 -8 _2346278784_ PROCT 00820
002231 97531024 00830 K47 +8 _9753102024_ PROCT 00830
002241 6896745K 00840 K48 -8 _6896745452_ PROCT 00840
002251 67264662 00850 K49 +8 _6726466662_ PROCT 00850
002261 1623084Q 00860 K51 -8 _1623084848_ PROCT 00860
002271 56127842 00870 +8 _5612784842_ PROCT 00870
002301 73573785 00880 K52 +8 _7357378785_ PROCT 00880
002311 22947722 00890 +8 _2294772722_ PROCT 00890
002321 3139922� 00900 K53 -8 _3139922220_ PROCT 00900
002323 2P 00910 K54 -2 _27_ PROCT 00910
002325 09 00920 K55 +2 _09_ PROCT 00920
002331 105P 00930 K56 -4 _1057_ PROCT 00930
002335 005K 00940 K57 -4 _0052_ PROCT 00940
002344 1234565 00950 K58 +7 _123456565_ PROCT 00950
002353 032358M 00960 K59 -7 _032358484_ PROCT 00960
002363 0000000000000000 00970 +8 0000000000000000000 PROCT 00970 0
002373 0000000000000000 00980 ZERO +8 0000000000000000000 PROCT 00980 0
002403 0100000000000000 00990 +8 0010000000000000000 PROCT 00990 0
002413 0000000000000000 01000 FAILS +8 0000000000000000000 PROCT 01000 0
002423 2020000000200000 01010 +8 0202000000000200000 PROCT 01010 0
002433 0000000000000000 01020 OKAYS +8 0000000000000000000 PROCT 01020 0
002443 0000000000000000 01030 IND +8 0000000000000000000 PROCT 01030 0
002453 0000000000000000 01040 PROD +8 0000000000000000000 PROCT 01040 0
002463 6605036305040000 01050 +8 0660503636305040000 PROCT 01050 0
002467 00000000 01060 +4 00000000000 PROCT 01060
002477 0000002454040000 01070 +8 0000000202454040000 PROCT 01070 0
002507 0000000000000000 01080 +8 0000000000000000000 PROCT 01080 0
002517 0000002454030000 01090 +8 0000000202454030000 PROCT 01090 0
002520 3 01100 K61 +1 _3_ PROCT 01100
002530 48812944 01110 K62 +8 _4881294944_ PROCT 01110
002537 6498396 01120 +7 _649839696_ PROCT 01120
002540 40 01130 K01 +1 040 PROCT 01130
002547 63124441414163 01140 +7 06312444441414163 PROCT 01140 3
002557 7377200777777756 01150 K63 +8 0737720000777777756 PROCT 01150 7
002561 0000 01160 +2 00000 PROCT 01160
002564 099 01170 +3 _099_ PROCT 01170
002574 99999999 01180 K64 +8 _9999999999_ PROCT 01180
002577 112 01190 +3 _112_ PROCT 01190
002607 34567890 01200 K65 +8 _3456789890_ PROCT 01200
002766 01210 ORIG 02766 PROCT 01210
002766 5600151700 01220 MANST BA1 PIE+15,1,16 PROCT 01220
002773 5200041700 01230 SA1 271,16 PROCT 01230
003000 5600153700 01240 BA1 PARIE+1515,16 PROCT 01240
003005 5200051700 01250 SA1 335,16 PROCT 01250
003012 5602751310 01260 BA1 IE7+7,8 8 SET UP CH 7 INT PROCT 01260
003017 5200047710 01270 SA1 0477,8 PROCT 01270
* 003024 3002630060 01280 JD CONSL PROCT 01280
* 003031 3000330300 01290 JC RERUN,0 0 PROCT 01290
* 003036 3000303600 01300 EXIT J EXIT PROCT 01300
003043 6000304105 01310 AC EXIT+3,5,5 PROCT 01310
003050 4600304130 01320 BT EXIT+3,2,24 PROCT 01320
003055 4200307230 01330 ST NEXT+3,2,24 PROCT 01330
* 003062 3000307400 01340 JC $+10,0 PROCT 01340
* 003067 3000306700 01350 NEXT J NEXT PROCT 01350
* 003074 3000320265 01360 JC FAIL,53 3 PROCT 01360
* 003101 3000320266 01370 JC FAIL,54 4 PROCT 01370
* 003106 3000320267 01380 JC FAIL,55 5 PROCT 01380
* 003113 3000237352 01390 JC ZERO,42 2 PROCT 01390
* 003120 3000312062 01400 REP JC REP,50 PROCT 01400
003125 4600307230 01410 BT NEXT+3,2,24 PROCT 01410
003132 4200312330 01420 ST REP+3,2424 PROCT 01420
* 003137 3000306700 01430 J NEXT PROCT 01430
* 003144 3000314400 01440 ER1 J $ PROCT 01440
* 003151 3000314424 01450 JC ER1,20 PROCT 01450
* 003156 3000315600 01460 ER2 J $ PROCT 01460
* 003163 3000317024 01470 JC $+5,20 PROCT 01470
003170 4600316130 01480 BT ER2+3,2424 PROCT 01480
003175 4200307230 01490 ST NEXT+3,2,24 PROCT 01490
003202 6000241201 01500 FAIL AC FAILS-1,1,1 PROCT 01500
003207 4600312330 01510 BT REP+3,2424 PROCT 01510
003214 4200323130 01520 ST STOP+3,2,24 PROCT 01520
* 003221 3000323362 01530 JC $+10,50 0 PROCT 01530
* 003226 3000322660 01540 STOP JC $,48 PROCT 01540
* 003233 3000324025 01550 JC $+5,21 PROCT 01550
* 003240 3000324526 01560 JC $+5,22 PROCT 01560
* 003245 3000325227 01570 JC $+5,23 PROCT 01570
* 003252 3000325736 01580 JC $+5,30 PROCT 01580
* 003257 3000326450 01590 JC $+5,40 PROCT 01590
* 003264 3000327154 01600 JC $+5,44 PROCT 01600
* 003271 3000311335 01610 JC REP-5,2929 PROCT 01610
003276 6000243301 01620 OKAY AC OKAYS,1 1 PROCT 01620
* 003303 1000307200 01630 RERUN JR NEXT,0 PROCT 01630
* 003310 1000304100 01640 JR EXIT,0 0 005114J1 PROCT 01640 1
* 003315 1000316100 01650 JR ER2,0 PROCT 01650
* 003322 1000304130 01660 JR EXIT,24 4 005114LU0 PROCT 01660 L
* 003327 1000316100 01670 JR ER2,0 PROCT 01670
* 003334 1000304121 01680 JR EXIT,17 7 005114LD0 PROCT 01680 L
* 003341 1000316100 01690 JR ER2,0 PROCT 01690
* 003346 3000335325 01700 JC $+5,21 0 013049J01 PROCT 01700 0
* 003353 3000336002 01710 JC $+5,2 PROCT 01710
* 003360 1000314765 01720 JR ER1,53 PROCT 01720
* 003365 1000307200 01730 JR NEXT,0 PROCT 01730
* 003372 3000337725 01740 JC $+5,21 0 013049LU0 PROCT 01740 U
* 003377 3000340426 01750 JC $+5,22 PROCT 01750
* 003404 1000314765 01760 JR ER1,53 PROCT 01760
* 003411 1000307200 01770 JR NEXT,0 PROCT 01770
* 003416 3000342325 01780 JC $+5,21 0 013049LD2 PROCT 01780 D
* 003423 3000343021 01790 JC $+5,17 PROCT 01790
* 003430 1000314765 01800 JR ER1,53 PROCT 01800
* 003435 1000307200 01810 JR NEXT,0 PROCT 01810
* 003442 3000344722 01820 JC $+5,18 0 013050J01 PROCT 01820 0
* 003447 3000345465 01830 JC $+5,53 PROCT 01830
* 003454 3000346665 01840 JC $+10,53 3 PROCT 01840
* 003461 1000314700 01850 JR ER1,0 PROCT 01850
* 003466 1000307225 01860 JR NEXT,21 1 PROCT 01860
* 003473 3000350022 01870 JC $+5,18 0 013050LU1 PROCT 01870 U
* 003500 3000350531 01880 JC $+5,25 PROCT 01880
* 003505 3000351765 01890 JC $+10,53 3 PROCT 01890
* 003512 1000314700 01900 JR ER1,0 PROCT 01900
* 003517 1000307225 01910 JR NEXT,21 1 PROCT 01910
* 003524 3000353122 01920 JC $+5,18 0 013050LD1 PROCT 01920 D
* 003531 3000353626 01930 JC $+5,22 PROCT 01930
* 003536 3000355065 01940 JC $+10,53 3 PROCT 01940
* 003543 1000314700 01950 JR ER1,0 PROCT 01950
* 003550 1000307225 01960 JR NEXT,21 1 PROCT 01960
* 003555 3000356226 01970 JC $+5,22 0 013053J01 PROCT 01970 0
* 003562 3000356703 01980 JC $+5,3 PROCT 01980
* 003567 1000314766 01990 JR ER1,54 PROCT 01990
* 003574 1000307200 02000 JR NEXT,0 PROCT 02000
* 003601 3000360626 02010 JC $+5,22 0 013053LU0 PROCT 02010 U
* 003606 3000361337 02020 JC $+5,31 PROCT 02020
* 003613 1000314766 02030 JR ER1,54 PROCT 02030
* 003620 1000307200 02040 JR NEXT,0 PROCT 02040
* 003625 3000363226 02050 JC $+5,22 0 013053LD3 PROCT 02050 D
* 003632 3000363721 02060 JC $+5,17 PROCT 02060
* 003637 1000314766 02070 JR ER1,54 PROCT 02070
* 003644 1000307200 02080 JR NEXT,0 PROCT 02080
* 003651 3000365623 02090 JC $+5,19 0 013054J01 PROCT 02090 0
* 003656 3000366306 02100 JC $+5,6 PROCT 02100
* 003663 3000367566 02110 JC $+10,54 4 PROCT 02110
* 003670 1000314700 02120 JR ER1,0 PROCT 02120
* 003675 1000307226 02130 JR NEXT,22 2 PROCT 02130
* 003702 3000370723 02140 JC $+5,19 0 013054LU1 PROCT 02140 U
* 003707 3000371436 02150 JC $+5,30 PROCT 02150
* 003714 3000372666 02160 JC $+10,54 4 PROCT 02160
* 003721 1000314700 02170 JR ER1,0 PROCT 02170
* 003726 1000307226 02180 JR NEXT,22 2 PROCT 02180
* 003733 3000374023 02190 JC $+5,19 0 013054LD2 PROCT 02190 D
* 003740 3000374525 02200 JC $+5,21 PROCT 02200
* 003745 3000375766 02210 JC $+10,54 4 PROCT 02210
* 003752 1000314700 02220 JR ER1,0 PROCT 02220
* 003757 1000307226 02230 JR NEXT,22 2 PROCT 02230
* 003764 3000377127 02240 JC $+5,23 0 013057J01 PROCT 02240 0
* 003771 3000377604 02250 JC $+5,4 PROCT 02250
* 003776 1000314767 02260 JR ER1,55 PROCT 02260
* 004003 1000307200 02270 JR NEXT,0 PROCT 02270
* 004010 3000401527 02280 JC $+5,23 0 013057LU1 PROCT 02280 U
* 004015 3000402230 02290 JC $+5,24 PROCT 02290
* 004022 1000314767 02300 JR ER1,55 PROCT 02300
* 004027 1000307200 02310 JR NEXT,0 PROCT 02310
* 004034 3000404127 02320 JC $+5,23 0 013057LD0 PROCT 02320 D
* 004041 3000404625 02330 JC $+5,21 PROCT 02330
* 004046 1000314767 02340 JR ER1,55 PROCT 02340
* 004053 1000307200 02350 JR NEXT,0 PROCT 02350
* 004060 3000406524 02360 JC $+5,20 0 013058J01 PROCT 02360 0
* 004065 3000407207 02370 JC $+5,7 PROCT 02370
* 004072 3000410467 02380 JC $+10,55 5 PROCT 02380
* 004077 1000314700 02390 JR ER1,0 PROCT 02390
* 004104 1000307227 02400 JR NEXT,23 3 PROCT 02400
* 004111 3000411624 02410 JC $+5,20 0 013058LU1 PROCT 02410 U
* 004116 3000412337 02420 JC $+5,31 PROCT 02420
* 004123 3000413567 02430 JC $+10,55 5 PROCT 02430
* 004130 1000314700 02440 JR ER1,0 PROCT 02440
* 004135 1000307227 02450 JR NEXT,23 3 PROCT 02450
* 004142 3000414724 02460 JC $+5,20 0 013058LD3 PROCT 02460 D
* 004147 3000415425 02470 JC $+5,21 PROCT 02470
* 004154 3000416667 02480 JC $+10,55 5 PROCT 02480
* 004161 1000314700 02490 JR ER1,0 PROCT 02490
* 004166 1000307227 02500 JR NEXT,23 3 PROCT 02500
* 004173 3000420016 02510 JC $+5,14 0 013064 PROCT 02510
* 004200 3000420517 02520 JC $+5,15 PROCT 02520
* 004205 1000304172 02530 JR EXIT,58 8 PROCT 02530
* 004212 1000316100 02540 JR ER2,0 PROCT 02540
* 004217 3000422417 02550 JC $+5,15 0 013063 PROCT 02550
* 004224 3000423116 02560 JC $+5,14 PROCT 02560
* 004231 1000314772 02570 JR ER1,58 PROCT 02570
* 004236 1000307200 02580 JR NEXT,0 PROCT 02580
* 004243 3000425016 02590 JC $+5,14 0 013064J00 PROCT 02590 0
* 004250 3000425537 02600 JC $+5,31 PROCT 02600
* 004255 1000314772 02610 JR ER1,58 PROCT 02610
* 004262 1000307200 02620 JR NEXT,0 PROCT 02620
* 004267 3000427416 02630 JC $+5,14 0 013064LU3 PROCT 02630 U
* 004274 3000430103 02640 JC $+5,3 PROCT 02640
* 004301 1000314772 02650 JR ER1,58 PROCT 02650
* 004306 1000307200 02660 JR NEXT,0 PROCT 02660
* 004313 3000432016 02670 JC $+5,14 0 013064LD3 PROCT 02670 D
* 004320 3000432515 02680 JC $+5,13 PROCT 02680
* 004325 1000314772 02690 JR ER1,58 PROCT 02690
* 004332 1000307200 02700 JR NEXT,0 PROCT 02700
* 004337 3000434417 02710 JC $+5,15 0 013063J00 PROCT 02710 0
* 004344 3000435140 02720 JC $+5,32 PROCT 02720
* 004351 1000304172 02730 JR EXIT,58 8 PROCT 02730
* 004356 1000316100 02740 JR ER2,0 PROCT 02740
* 004363 3000437017 02750 JC $+5,15 0 013063LU3 PROCT 02750 U
* 004370 3000437512 02760 JC $+5,10 PROCT 02760
* 004375 1000304172 02770 JR EXIT,58 8 PROCT 02770
* 004402 1000316100 02780 JR ER2,0 PROCT 02780
* 004407 3000441417 02790 JC $+5,15 0 013063LD2 PROCT 02790 D
* 004414 3000442114 02800 JC $+5,12 PROCT 02800
* 004421 1000304172 02810 JR EXIT,58 8 PROCT 02810
* 004426 1000316100 02820 JR ER2,0 PROCT 02820
004433 3400314400 02830 CC ER1,0 01013028JT PROCT 02830
* 004440 1000307200 02840 JR NEXT,0 PROCT 02840
* 004445 1000314740 02850 JR ER1,32 0 013028J2- PROCT 02850 2
* 004452 1000307200 02860 JR NEXT,0 PROCT 02860
* 004457 3000446424 02870 JC $+5,20 0 013046J1 PROCT 02870 1
* 004464 1000314747 02880 JR ER1,39 PROCT 02880
* 004471 1000307227 02890 JR NEXT,23 3 PROCT 02890
* 004476 3000450324 02900 JC $+5,20 0 013046LU1 PROCT 02900 U
* 004503 1000314773 02910 JR ER1,59 PROCT 02910
* 004510 1000307227 02920 JR NEXT,23 3 PROCT 02920
* 004515 3000452224 02930 JC $+5,20 0 013046LD3 PROCT 02930 D
* 004522 1000314764 02940 JR ER1,52 PROCT 02940
* 004527 1000307227 02950 JR NEXT,23 3 PROCT 02950
* 004534 3000454123 02960 JC $+5,19 0 013045J1 PROCT 02960 1
* 004541 1000314746 02970 JR ER1,38 PROCT 02970
* 004546 1000307226 02980 JR NEXT,22 2 PROCT 02980
* 004553 3000456023 02990 JC $+5,19 0 013045LU1 PROCT 02990 U
* 004560 1000314776 03000 JR ER1,62 PROCT 03000
* 004565 1000307226 03010 JR NEXT,22 2 PROCT 03010
* 004572 3000457723 03020 JC $+5,19 0 013045LD2 PROCT 03020 D
* 004577 1000314764 03030 JR ER1,52 PROCT 03030
* 004604 1000307226 03040 JR NEXT,22 2 PROCT 03040
* 004611 3000461622 03050 JC $+5,18 0 013044J1 PROCT 03050 1
* 004616 1000314745 03060 JR ER1,37 PROCT 03060
* 004623 1000307225 03070 JR NEXT,21 1 PROCT 03070
* 004630 3000463522 03080 JC $+5,18 0 013045LU1 PROCT 03080 U
* 004635 1000314775 03090 JR ER1,61 PROCT 03090
* 004642 1000307225 03100 JR NEXT,21 1 PROCT 03100
* 004647 3000465422 03110 JC $+5,18 0 013045LD1 PROCT 03110 D
* 004654 1000314764 03120 JR ER1,52 PROCT 03120
* 004661 1000307225 03130 JR NEXT,21 1 PROCT 03130
* 004666 3000637052 03140 JC HEREI,4242 013029 PROCT 03140 9
* 004673 1000304141 03150 JR EXIT,33 3 PROCT 03150
004677 03160 DH EQU $-1 PROCT 03160
* 004700 1000316100 03170 JR ER2,0 PROCT 03170
* 004705 3000637052 03180 JC HEREI,4242 013029J1- PROCT 03180 9
* 004712 1000314761 03190 JR ER1,49 PROCT 03190
* 004717 1000307200 03200 JR NEXT,0 PROCT 03200
* 004724 3000637052 03210 JC HEREI,4242 013029LU0 PROCT 03210 9
* 004731 1000314755 03220 JR ER1,45 PROCT 03220
* 004736 1000307200 03230 JR NEXT,0 PROCT 03230
* 004743 3000637052 03240 JC HEREI,4242 013029LD1 PROCT 03240 9
* 004750 1000314742 03250 JR ER1,34 PROCT 03250
* 004755 1000307200 03260 JR NEXT,0 PROCT 03260
* 004762 3000637052 03270 JC HEREI,4242 013029EQ- PROCT 03270 9
* 004767 3000652252 03280 JC EQ,42 PROCT 03280
* 004774 1000314741 03290 JR ER1,33 PROCT 03290
* 005001 1000307200 03300 JR NEXT,0 PROCT 03300
* 005006 3000637052 03310 JC HEREI,4242 013029HI PROCT 03310 9
* 005013 3000665452 03320 JC AZ,42 PROCT 03320
* 005020 1000314741 03330 JR ER1,33 PROCT 03330
* 005025 1000307200 03340 JR NEXT,0 PROCT 03340
* 005032 3000652252 03350 JC EQ,42 01013030 PROCT 03350
* 005037 1000304142 03360 JR EXIT,34 4 PROCT 03360
* 005044 1000316100 03370 JR ER2,0 PROCT 03370
* 005051 3000507562 03380 JC $+20,50 0 013030J1- PROCT 03380 J
* 005056 3000652252 03390 JC EQ,42 PROCT 03390
* 005063 1000314762 03400 JR ER1,50 PROCT 03400
* 005070 1000307200 03410 JR NEXT,0 PROCT 03410
* 005075 3000652252 03420 JC EQ,42 01013030LU0 PROCT 03420 0
* 005102 1000314756 03430 JR ER1,46 PROCT 03430
* 005107 1000307200 03440 JR NEXT,0 PROCT 03440
* 005114 3000652252 03450 JC EQ,42 01013030LD2 PROCT 03450 2
* 005121 1000314743 03460 JR ER1,35 PROCT 03460
* 005126 1000307200 03470 JR NEXT,0 PROCT 03470
* 005133 3000652252 03480 JC EQ,42 01013030EQ PROCT 03480
* 005140 3000237352 03490 JC ZERO,42 2 PROCT 03490
* 005145 1000314742 03500 JR ER1,34 PROCT 03500
* 005152 1000307200 03510 JR NEXT,0 PROCT 03510
* 005157 3000237352 03520 JC ZERO,42 2 013031 PROCT 03520
* 005164 1000304143 03530 JR EXIT,35 5 PROCT 03530
* 005171 1000316100 03540 JR ER2,0 PROCT 03540
* 005176 3000237352 03550 JC ZERO,42 2 013031J1- PROCT 03550 J
* 005203 1000314763 03560 JR ER1,51 PROCT 03560
* 005210 1000307200 03570 JR NEXT,0 PROCT 03570
* 005215 3000237352 03580 JC ZERO,42 2 013031LU0 PROCT 03580 L
* 005222 1000314756 03590 JR ER1,46 PROCT 03590
* 005227 1000307200 03600 JR NEXT,0 PROCT 03600
* 005234 3000237352 03610 JC ZERO,42 2 013031LD3 PROCT 03610 L
* 005241 1000314742 03620 JR ER1,34 PROCT 03620
* 005246 1000307200 03630 JR NEXT,0 PROCT 03630
* 005253 3000237352 03640 JC ZERO,42 2 013031EQ- PROCT 03640 E
* 005260 3000652252 03650 JC EQ,42 PROCT 03650
* 005265 1000314743 03660 JR ER1,35 PROCT 03660
* 005272 1000307200 03670 JR NEXT,0 PROCT 03670
* 005277 3000237352 03680 JC ZERO,42 2 013032 PROCT 03680
* 005304 1000304144 03690 JR EXIT,36 6 PROCT 03690
* 005311 1000316100 03700 JR ER2,0 PROCT 03700
* 005316 3000237352 03710 JC ZERO,42 2 013032J1- PROCT 03710 J
* 005323 1000314764 03720 JR ER1,52 PROCT 03720
* 005330 1000307200 03730 JR NEXT,0 PROCT 03730
* 005335 3000237352 03740 JC ZERO,42 2 013032LU1 PROCT 03740 L
* 005342 1000314754 03750 JR ER1,44 PROCT 03750
* 005347 1000307200 03760 JR NEXT,0 PROCT 03760
* 005354 3000237352 03770 JC ZERO,42 2 013032LD0 PROCT 03770 L
* 005361 1000314745 03780 JR ER1,37 PROCT 03780
* 005366 1000307200 03790 JR NEXT,0 PROCT 03790
* 005373 3000237352 03800 JC ZERO,42 2 013032EQ- PROCT 03800 E
* 005400 3000652252 03810 JC EQ,42 PROCT 03810
* 005405 1000314744 03820 JR ER1,36 PROCT 03820
* 005412 1000307200 03830 JR NEXT,0 PROCT 03830
* 005417 3000652252 03840 JC EQ,42 01013032HI- PROCT 03840 -
* 005424 3000637052 03850 JC HEREI,4242 PROCT 03850
* 005431 1000314744 03860 JR ER1,36 PROCT 03860
* 005436 1000307200 03870 JR NEXT,0 PROCT 03870
* 005443 3000665452 03880 JC AZ,42 01013033 PROCT 03880
* 005450 1000304145 03890 JR EXIT,37 7 PROCT 03890
* 005455 1000316100 03900 JR ER2,0 PROCT 03900
* 005462 3000665452 03910 JC AZ,42 01013033J1- PROCT 03910 -
* 005467 1000314765 03920 JR ER1,53 PROCT 03920
* 005474 1000307200 03930 JR NEXT,0 PROCT 03930
* 005501 3000665452 03940 JC AZ,42 01013033LU1 PROCT 03940 1
* 005506 1000314741 03950 JR ER1,33 PROCT 03950
* 005513 1000307200 03960 JR NEXT,0 PROCT 03960
* 005520 3000665452 03970 JC AZ,42 01013033LD1 PROCT 03970 1
* 005525 1000314746 03980 JR ER1,38 PROCT 03980
* 005532 1000307200 03990 JR NEXT,0 PROCT 03990
* 005537 3000665452 04000 JC AZ,42 01013033AZ PROCT 04000
* 005544 3000652252 04010 JC EQ,42 PROCT 04010
* 005551 1000314745 04020 JR ER1,37 PROCT 04020
* 005556 1000307200 04030 JR NEXT,0 PROCT 04030
* 005563 3000700652 04040 JC AN,42 01013034 PROCT 04040
* 005570 1000304146 04050 JR EXIT,38 8 PROCT 04050
* 005575 1000316100 04060 JR ER2,0 PROCT 04060
* 005602 3000700652 04070 JC AN,42 01013034J1- PROCT 04070 -
* 005607 1000314766 04080 JR ER1,54 PROCT 04080
* 005614 1000307200 04090 JR NEXT,0 PROCT 04090
* 005621 3000700652 04100 JC AN,42 01013034LU1 PROCT 04100 1
* 005626 3000314442 04110 JC ER1,34 PROCT 04110
* 005633 1000307200 04120 JR NEXT,0 PROCT 04120
* 005640 3000700652 04130 JC AN,42 01013034LD2 PROCT 04130 2
* 005645 1000314745 04140 JR ER1,37 PROCT 04140
* 005652 1000307200 04150 JR NEXT,0 PROCT 04150
* 005657 3000700652 04160 JC AN,42 01013034AN PROCT 04160
* 005664 3000652252 04170 JC EQ,42 PROCT 04170
* 005671 1000314746 04180 JR ER1,38 PROCT 04180
* 005676 1000307200 04190 JR NEXT,0 PROCT 04190
* 005703 3000714052 04200 JC BOF,42 0 013035 PROCT 04200
* 005710 1000304147 04210 JR EXIT,39 9 PROCT 04210
* 005715 1000316100 04220 JR ER2,0 PROCT 04220
* 005722 3000714052 04230 JC BOF,42 0 013035J1- PROCT 04230 1
* 005727 1000314767 04240 JR ER1,55 PROCT 04240
* 005734 1000307200 04250 JR NEXT,0 PROCT 04250
* 005741 3000714052 04260 JC BOF,42 0 013035LU1 PROCT 04260 U
* 005746 1000314753 04270 JR ER1,43 PROCT 04270
* 005753 1000307200 04280 JR NEXT,0 PROCT 04280
* 005760 3000714052 04290 JC BOF,42 0 013035LD3 PROCT 04290 D
* 005765 1000314745 04300 JR ER1,37 PROCT 04300
* 005772 1000307200 04310 JR NEXT,0 PROCT 04310
* 005777 3000714052 04320 JC BOF,42 0 013035BOF- PROCT 04320 O
* 006004 3000652252 04330 JC EQ,42 PROCT 04330
* 006011 1000314747 04340 JR ER1,39 PROCT 04340
* 006016 1000307200 04350 JR NEXT,0 PROCT 04350
* 006023 3000730452 04360 JC DOF,42 1 125095 PROCT 04360
* 006030 3000604266 04370 JC $+10,54 4 PROCT 04370
* 006035 1000314700 04380 JR ER1,0 PROCT 04380
* 006042 1000307226 04390 JR NEXT,22 2 PROCT 04390
* 006047 3000730452 04400 JC DOF,42 0 013036 PROCT 04400
* 006054 3000606650 04410 JC $+10,40 0 PROCT 04410
* 006061 1000314700 04420 JR ER1,0 PROCT 04420
* 006066 1000307226 04430 JR NEXT,22 2 PROCT 04430
* 006073 3000730452 04440 JC DOF,42 0 013036J1- PROCT 04440 1
* 006100 1000314770 04450 JR ER1,56 PROCT 04450
* 006105 1000307226 04460 JR NEXT,22 2 PROCT 04460
* 006112 3000467752 04470 JC DH,42 01013036LU2 PROCT 04470 2
* 006117 1000314744 04480 JR ER1,36 PROCT 04480
* 006124 1000307226 04490 JR NEXT,22 2 PROCT 04490
* 006131 3000730452 04500 JC DOF,42 0 013036LD0 PROCT 04500 D
* 006136 1000314753 04510 JR ER1,43 PROCT 04510
* 006143 1000307226 04520 JR NEXT,22 2 PROCT 04520
* 006150 3000730452 04530 JC DOF,42 0 013036DOF,010151 PROCT 04530 O
* 006155 3000616250 04540 JC $+5,40 PROCT 04540
* 006162 1000314750 04550 JR ER1,40 PROCT 04550
* 006167 1000307226 04560 JR NEXT,22 2 PROCT 04560
* 006174 3000730452 04570 JC DOF,42 0 010151J2 PROCT 04570 2
* 006201 3000620626 04580 JC $+5,22 PROCT 04580
* 006206 3000621310 04590 JC $+5,8 PROCT 04590
* 006213 1000304150 04600 JR EXIT,40 0 PROCT 04600
* 006220 1000316100 04610 JR ER2,0 PROCT 04610
* 006225 3000730452 04620 JC DOF,42 0 010151J1- PROCT 04620 1
* 006232 3000623726 04630 JC $+5,22 PROCT 04630
* 006237 3000624470 04640 JC $+5,56 PROCT 04640
* 006244 1000304150 04650 JR EXIT,40 0 PROCT 04650
* 006251 1000316100 04660 JR ER2,0 PROCT 04660
* 006256 3000730452 04670 JC DOF,42 0 010151LU2 PROCT 04670 U
* 006263 3000627026 04680 JC $+5,22 PROCT 04680
* 006270 3000627544 04690 JC $+5,36 PROCT 04690
* 006275 1000304150 04700 JR EXIT,40 0 PROCT 04700
* 006302 1000316100 04710 JR ER2,0 PROCT 04710
* 006307 3000730452 04720 JC DOF,42 0 010151LD0 PROCT 04720 D
* 006314 3000632126 04730 JC $+5,22 PROCT 04730
* 006321 3000632653 04740 JC $+5,43 PROCT 04740
* 006326 3000634050 04750 JC $+10,40 0 PROCT 04750
* 006333 1000314700 04760 JR ER1,0 PROCT 04760
* 006340 1000307235 04770 JR NEXT,29 9 PROCT 04770
006345 4400244300 04780 SC IND,0 03037032 PROCT 04780
* 006352 3000637052 04790 JC HEREI,4242 PROCT 04790
* 006357 3000244351 04800 JC IND,41 PROCT 04800
006364 3400244301 04810 CC IND,1 PROCT 04810
006370 04820 HEREI EQU $-1 PROCT 04820
* 006371 1000304142 04830 JR EXIT,34 4 PROCT 04830
* 006376 1000316100 04840 JR ER2,0 PROCT 04840
006403 4400244301 04850 SC IND,1 03037032HI PROCT 04850
* 006410 3000237352 04860 JC ZERO,42 2 PROCT 04860
* 006415 3000244351 04870 JC IND,41 PROCT 04870
006422 3400244300 04880 CC IND,0 PROCT 04880
* 006427 1000304142 04890 JR EXIT,34 4 PROCT 04890
* 006434 1000316100 04900 JR ER2,0 PROCT 04900
006441 4400244300 04910 SC IND,0 03037032JT PROCT 04910
* 006446 3000637052 04920 JC HEREI,4242 PROCT 04920
006453 3400244351 04930 CC IND,41 PROCT 04930
006460 3400244300 04940 CC IND,0 PROCT 04940
* 006465 1000304142 04950 JR EXIT,34 4 PROCT 04950
* 006472 1000316100 04960 JR ER2,0 PROCT 04960
006477 4400244300 04970 SC IND,0 03037031 PROCT 04970
* 006504 3000652252 04980 JC EQ,42 PROCT 04980
* 006511 3000244351 04990 JC IND,41 PROCT 04990
006516 3400244302 05000 CC IND,2 PROCT 05000
006522 05010 EQ EQU $-1 PROCT 05010
* 006523 1000304142 05020 JR EXIT,34 4 PROCT 05020
* 006530 1000316100 05030 JR ER2,0 PROCT 05030
006535 4400244302 05040 SC IND,2 03037031EQ PROCT 05040
* 006542 3000237352 05050 JC ZERO,42 2 PROCT 05050
* 006547 3000244351 05060 JC IND,41 PROCT 05060
006554 3400244300 05070 CC IND,0 PROCT 05070
* 006561 1000304142 05080 JR EXIT,34 4 PROCT 05080
* 006566 1000316100 05090 JR ER2,0 PROCT 05090
006573 4400244300 05100 SC IND,0 03037031JT PROCT 05100
* 006600 3000652252 05110 JC EQ,42 PROCT 05110
006605 3400244351 05120 CC IND,41 PROCT 05120
006612 3400244300 05130 CC IND,0 PROCT 05130
* 006617 1000304142 05140 JR EXIT,34 4 PROCT 05140
* 006624 1000316100 05150 JR ER2,0 PROCT 05150
006631 4400244300 05160 SC IND,0 03037030 PROCT 05160
* 006636 3000665452 05170 JC AZ,42 PROCT 05170
* 006643 3000244351 05180 JC IND,41 PROCT 05180
006650 3400244304 05190 CC IND,4 PROCT 05190
006654 05200 AZ EQU $-1 PROCT 05200
* 006655 1000304142 05210 JR EXIT,34 4 PROCT 05210
* 006662 1000316100 05220 JR ER2,0 PROCT 05220
006667 4400244304 05230 SC IND,4 03037030AZ PROCT 05230
* 006674 3000237352 05240 JC ZERO,42 2 PROCT 05240
* 006701 3000244351 05250 JC IND,41 PROCT 05250
006706 3400244300 05260 CC IND,0 PROCT 05260
* 006713 1000304142 05270 JR EXIT,34 4 PROCT 05270
* 006720 1000316100 05280 JR ER2,0 PROCT 05280
006725 4400244300 05290 SC IND,0 03037030JT PROCT 05290
* 006732 3000665452 05300 JC AZ,42 PROCT 05300
006737 3400244351 05310 CC IND,41 PROCT 05310
006744 3400244300 05320 CC IND,0 PROCT 05320
* 006751 1000304142 05330 JR EXIT,34 4 PROCT 05330
* 006756 1000316100 05340 JR ER2,0 PROCT 05340
006763 4400244300 05350 SC IND,0 03036004 PROCT 05350
* 006770 3000700652 05360 JC AN,42 PROCT 05360
* 006775 3000244351 05370 JC IND,41 PROCT 05370
007002 3400244310 05380 CC IND,8 PROCT 05380
007006 05390 AN EQU $-1 PROCT 05390
* 007007 1000304142 05400 JR EXIT,34 4 PROCT 05400
* 007014 1000316100 05410 JR ER2,0 PROCT 05410
007021 4400244310 05420 SC IND,8 03036004AN PROCT 05420
* 007026 3000237352 05430 JC ZERO,42 2 PROCT 05430
* 007033 3000244351 05440 JC IND,41 PROCT 05440
007040 3400244300 05450 CC IND,0 PROCT 05450
* 007045 1000304142 05460 JR EXIT,34 4 PROCT 05460
* 007052 1000316100 05470 JR ER2,0 PROCT 05470
007057 4400244300 05480 SC IND,0 03036004JT PROCT 05480
* 007064 3000700652 05490 JC AN,42 PROCT 05490
007071 3400244351 05500 CC IND,41 PROCT 05500
007076 3400244300 05510 CC IND,0 PROCT 05510
* 007103 1000304142 05520 JR EXIT,34 4 PROCT 05520
* 007110 1000316100 05530 JR ER2,0 PROCT 05530
007115 4400244300 05540 SC IND,0 03036003 PROCT 05540
* 007122 3000714052 05550 JC BOF,42 PROCT 05550
* 007127 3000244351 05560 JC IND,41 PROCT 05560
007134 3400244320 05570 CC IND,16 PROCT 05570
007140 05580 BOF EQU $-1 PROCT 05580
* 007141 1000304142 05590 JR EXIT,34 4 PROCT 05590
* 007146 1000316100 05600 JR ER2,0 PROCT 05600
007153 4400244320 05610 SC IND,16 0 036003BOF PROCT 05610 O
* 007160 3000237352 05620 JC ZERO,42 2 PROCT 05620
* 007165 3000244351 05630 JC IND,41 PROCT 05630
007172 3400244300 05640 CC IND,0 PROCT 05640
* 007177 1000304142 05650 JR EXIT,34 4 PROCT 05650
* 007204 1000316100 05660 JR ER2,0 PROCT 05660
007211 4400244300 05670 SC IND,0 03036003JT PROCT 05670
* 007216 3000714052 05680 JC BOF,42 PROCT 05680
007223 3400244351 05690 CC IND,41 PROCT 05690
* 007230 3000652252 05700 JC EQ,42 PROCT 05700
007235 3400244300 05710 CC IND,0 PROCT 05710
* 007242 1000304142 05720 JR EXIT,34 4 PROCT 05720
* 007247 1000316100 05730 JR ER2,0 PROCT 05730
* 007254 3000730452 05740 JC DOF,42 036002 PROCT 05740
* 007261 3000727366 05750 JC $+10,54 4 PROCT 05750
* 007266 3000731200 05760 JC $+20,0 PROCT 05760
* 007273 3000244351 05770 JC IND,41 PROCT 05770
007300 3400244340 05780 CC IND,32 PROCT 05780
007304 05790 DOF EQU $-1 PROCT 05790
* 007305 3000731742 05800 JC $+10,34 4 PROCT 05800
* 007312 1000314700 05810 JR ER1,0 PROCT 05810
* 007317 1000307226 05820 JR NEXT,22 2 PROCT 05820
* 007324 3000237352 05830 JC ZERO,42 2 036002DOF PROCT 05830 2
* 007331 3000244351 05840 JC IND,41 PROCT 05840
007336 3400244300 05850 CC IND,0 PROCT 05850
* 007343 1000304142 05860 JR EXIT,34 4 PROCT 05860
* 007350 1000316100 05870 JR ER2,0 PROCT 05870
007355 4400244300 05880 SC IND,0 03036002JT PROCT 05880
* 007362 3000730452 05890 JC DOF,42 PROCT 05890
* 007367 3000737426 05900 JC $+5,22 PROCT 05900
007374 3400244351 05910 CC IND,41 PROCT 05910
007401 3400244300 05920 CC IND,0 PROCT 05920
* 007406 3000742042 05930 JC $+10,34 4 PROCT 05930
* 007413 1000314700 05940 JR ER1,0 PROCT 05940
* 007420 3000742550 05950 JC $+5,40 PROCT 05950
* 007425 1000307235 05960 JR NEXT,29 9 PROCT 05960
* 007432 3000237352 05970 JC ZERO,42 2 011007FT105 PROCT 05970 F
007437 2000637052 05980 FT HEREI,4242 PROCT 05980
* 007444 1000314741 05990 JR ER1,33 PROCT 05990
* 007451 1000307200 06000 JR NEXT,0 PROCT 06000
* 007456 3000637052 06010 JC HEREI,4242 011016FT105 PROCT 06010 6
007463 2000237352 06020 FT ZERO,42 2 PROCT 06020
* 007470 1000304141 06030 JR EXIT,33 3 PROCT 06030
* 007475 1000316100 06040 JR ER2,0 PROCT 06040
* 007502 3000237352 06050 JC ZERO,42 2 011100FT105 PROCT 06050 F
007507 2000652252 06060 FT EQ,42 PROCT 06060
* 007514 1000314742 06070 JR ER1,34 PROCT 06070
* 007521 1000307200 06080 JR NEXT,0 PROCT 06080
* 007526 3000652252 06090 JC EQ,42 01011115FT105 PROCT 06090 1
007533 2000237352 06100 FT ZERO,42 2 PROCT 06100
* 007540 1000304142 06110 JR EXIT,34 4 PROCT 06110
* 007545 1000316100 06120 JR ER2,0 PROCT 06120
* 007552 3000237352 06130 JC ZERO,42 2 011032FT105 PROCT 06130 F
007557 2000665452 06140 FT AZ,42 PROCT 06140
* 007564 1000314745 06150 JR ER1,37 PROCT 06150
* 007571 1000307200 06160 JR NEXT,0 PROCT 06160
* 007576 3000665452 06170 JC AZ,42 01011045FT105 PROCT 06170 1
007603 2000237352 06180 FT ZERO,42 2 PROCT 06180
* 007610 1000304145 06190 JR EXIT,37 7 PROCT 06190
* 007615 1000316100 06200 JR ER2,0 PROCT 06200
* 007622 3000237352 06210 JC ZERO,42 2 011070FT105 PROCT 06210 F
007627 2000700652 06220 FT AN,42 PROCT 06220
* 007634 1000314746 06230 JR ER1,38 PROCT 06230
* 007641 1000307200 06240 JR NEXT,0 PROCT 06240
* 007646 3000700652 06250 JC AN,42 01011085FT105 PROCT 06250 1
007653 2000237352 06260 FT ZERO,42 2 PROCT 06260
* 007660 1000304146 06270 JR EXIT,38 8 PROCT 06270
* 007665 1000316100 06280 JR ER2,0 PROCT 06280
* 007672 3000237352 06290 JC ZERO,42 2 010133FT105 PROCT 06290 F
007677 2000714052 06300 FT BOF,42 PROCT 06300
* 007704 1000314747 06310 JR ER1,39 PROCT 06310
* 007711 1000307200 06320 JR NEXT,0 PROCT 06320
* 007716 3000714052 06330 JC BOF,42 0 010124FT105 PROCT 06330 T
007723 2000237352 06340 FT ZERO,42 2 PROCT 06340
* 007730 1000304147 06350 JR EXIT,39 9 PROCT 06350
* 007735 1000316100 06360 JR ER2,0 PROCT 06360
* 007742 3000237352 06370 JC ZERO,42 2 010156FT105 PROCT 06370 F
007747 2000730452 06380 FT DOF,42 PROCT 06380
* 007754 1000314750 06390 JR ER1,40 PROCT 06390
* 007761 1000307200 06400 JR NEXT,0 PROCT 06400
* 007766 3000730452 06410 JC DOF,42 0 010152FT105 PROCT 06410 T
* 007773 3001000026 06420 JC $+5,22 PROCT 06420
010000 2000237352 06430 FT ZERO,42 2 PROCT 06430
* 010005 3001001750 06440 JC $+10,40 0 PROCT 06440
* 010012 1000314700 06450 JR ER1,0 PROCT 06450
* 010017 1000307235 06460 JR NEXT,29 9 PROCT 06460
* 010024 3001003133 06470 JC $+5,27 1 125058,013038 PROCT 06470 0
* 010031 3001003632 06480 JC $+5,26 PROCT 06480
* 010036 1000304155 06490 JR EXIT,45 5 PROCT 06490
* 010043 1000316100 06500 JR ER2,0 PROCT 06500
* 010050 3001005533 06510 JC $+5,27 1 125058J01 PROCT 06510 0
* 010055 3001006272 06520 JC $+5,58 PROCT 06520
* 010062 1000314755 06530 JR ER1,45 PROCT 06530
* 010067 1000307200 06540 JR NEXT,0 PROCT 06540
* 010074 3001010133 06550 JC $+5,27 1 125058LU2 PROCT 06550 U
* 010101 3001010640 06560 JC $+5,32 PROCT 06560
* 010106 1000314755 06570 JR ER1,45 PROCT 06570
* 010113 1000307200 06580 JR NEXT,0 PROCT 06580
* 010120 3001012533 06590 JC $+5,27 1 125058LD2 PROCT 06590 D
* 010125 3001013230 06600 JC $+5,24 PROCT 06600
* 010132 1000314755 06610 JR ER1,45 PROCT 06610
* 010137 1000307200 06620 JR NEXT,0 PROCT 06620
* 010144 3001015132 06630 JC $+5,26 1 125059,013038IOS3 PROCT 06630 0
* 010151 3001015633 06640 JC $+5,27 PROCT 06640
* 010156 1000314755 06650 JR ER1,45 PROCT 06650
* 010163 1000307200 06660 JR NEXT,0 PROCT 06660
* 010170 3001017532 06670 JC $+5,26 1 125059J01 PROCT 06670 0
* 010175 3001020213 06680 JC $+5,11 PROCT 06680
* 010202 1000304155 06690 JR EXIT,45 5 PROCT 06690
* 010207 1000316100 06700 JR ER2,0 PROCT 06700
* 010214 3001022132 06710 JC $+5,26 1 125059LU2 PROCT 06710 U
* 010221 3001022637 06720 JC $+5,31 PROCT 06720
* 010226 1000304155 06730 JR EXIT,45 5 PROCT 06730
* 010233 1000316100 06740 JR ER2,0 PROCT 06740
* 010240 3001024532 06750 JC $+5,26 1 125059LD3 PROCT 06750 D
* 010245 3001025231 06760 JC $+5,25 PROCT 06760
* 010252 1000304155 06770 JR EXIT,45 5 PROCT 06770
* 010257 1000316100 06780 JR ER2,0 PROCT 06780
* 010264 3001027132 06790 JC $+5,26 0 013038J1- PROCT 06790 1
* 010271 1000314775 06800 JR ER1,61 PROCT 06800
* 010276 1000307233 06810 JR NEXT,27 7 PROCT 06810
* 010303 3001031032 06820 JC $+5,26 0 013038LU3 PROCT 06820 U
* 010310 1000314745 06830 JR ER1,37 PROCT 06830
* 010315 1000307233 06840 JR NEXT,27 7 PROCT 06840
* 010322 3001032732 06850 JC $+5,26 0 013038LD1 PROCT 06850 D
* 010327 1000314756 06860 JR ER1,46 PROCT 06860
* 010334 1000307233 06870 JR NEXT,27 7 PROCT 06870
* 010341 3001034637 06880 JC $+5,31 1 125022,013039 PROCT 06880 0
* 010346 3001035334 06890 JC $+5,28 PROCT 06890
* 010353 1000304157 06900 JR EXIT,47 7 PROCT 06900
* 010360 1000316100 06910 JR ER2,0 PROCT 06910
* 010365 3001037237 06920 JC $+5,31 1 125022J01 PROCT 06920 0
* 010372 3001037714 06930 JC $+5,12 PROCT 06930
* 010377 1000314757 06940 JR ER1,47 PROCT 06940
* 010404 1000307200 06950 JR NEXT,0 PROCT 06950
* 010411 3001041637 06960 JC $+5,31 1 125022LU3 PROCT 06960 U
* 010416 3001042330 06970 JC $+5,24 PROCT 06970
* 010423 1000314757 06980 JR ER1,47 PROCT 06980
* 010430 1000307200 06990 JR NEXT,0 PROCT 06990
* 010435 3001044237 07000 JC $+5,31 1 125022LD0 PROCT 07000 D
* 010442 3001044740 07010 JC $+5,32 PROCT 07010
* 010447 1000314757 07020 JR ER1,47 PROCT 07020
* 010454 1000307200 07030 JR NEXT,0 PROCT 07030
* 010461 3001046634 07040 JC $+5,28 1 125023,013039IOS2 PROCT 07040 0
* 010466 3001047337 07050 JC $+5,31 PROCT 07050
* 010473 1000314757 07060 JR ER1,47 PROCT 07060
* 010500 1000307200 07070 JR NEXT,0 PROCT 07070
* 010505 3001051234 07080 JC $+5,28 1 125023J01 PROCT 07080 0
* 010512 3001051777 07090 JC $+5,63 PROCT 07090
* 010517 1000304157 07100 JR EXIT,47 7 PROCT 07100
* 010524 1000316100 07110 JR ER2,0 PROCT 07110
* 010531 3001053634 07120 JC $+5,28 125023LU3 PROCT 07120 0
* 010536 3001054327 07130 JC $+5,23 PROCT 07130
* 010543 1000304157 07140 JR EXIT,47 7 PROCT 07140
* 010550 1000316100 07150 JR ER2,0 PROCT 07150
* 010555 3001056234 07160 JC $+5,28 1 125023LD3 PROCT 07160 D
* 010562 3001056735 07170 JC $+5,29 PROCT 07170
* 010567 1000304157 07180 JR EXIT,47 7 PROCT 07180
* 010574 1000316100 07190 JR ER2,0 PROCT 07190
* 010601 3001060634 07200 JC $+5,28 0 013039J1- PROCT 07200 1
* 010606 1000314777 07210 JR ER1,63 PROCT 07210
* 010613 1000307237 07220 JR NEXT,31 1 PROCT 07220
* 010620 3001062534 07230 JC $+5,28 0 013039LU3 PROCT 07230 U
* 010625 1000314753 07240 JR ER1,43 PROCT 07240
* 010632 1000307237 07250 JR NEXT,31 1 PROCT 07250
* 010637 3001064434 07260 JC $+5,28 0 013039LD3 PROCT 07260 D
* 010644 1000314756 07270 JR ER1,46 PROCT 07270
* 010651 1000307237 07280 JR NEXT,31 1 PROCT 07280
* 010656 3001066334 07290 JC $+5,28 T TEST CLASS 2 INHIBIT PROCT 07290 A
* 010663 3000730452 07300 JC DOF,42 PROCT 07300
* 010670 3001070250 07310 JC $+10,40 0 PROCT 07310
* 010675 3001071400 07320 JC $+15,0 PROCT 07320
* 010702 3001071466 07330 JC $+10,54 4 PROCT 07330
* 010707 1000304137 07340 JR EXIT,31 1 PROCT 07340
* 010714 1000316100 07350 JR ER2,0 PROCT 07350
* 010721 3001072616 07360 JC $+5,14 0 013068NW PROCT 07360 W
* 010726 1000314772 07370 JR ER1,58 PROCT 07370
* 010733 1000307200 07380 JR NEXT,0 PROCT 07380
* 010740 3001074517 07390 JC $+5,15 0 013068J1 PROCT 07390 1
* 010745 3001075752 07400 JC $+10,42 2 PROCT 07400
* 010752 1000304116 07410 JR EXIT,14 4 PROCT 07410
* 010757 1000316100 07420 JR ER2,0 PROCT 07420
* 010764 3001077117 07430 JC $+5,15 0 013068LU2 PROCT 07430 U
* 010771 1000314776 07440 JR ER1,62 PROCT 07440
* 010776 1000307216 07450 JR NEXT,14 4 PROCT 07450
* 011003 3001101017 07460 JC $+5,15 0 013068LD2 PROCT 07460 D
* 011010 1000314773 07470 JR ER1,59 PROCT 07470
* 011015 1000307216 07480 JR NEXT,14 4 PROCT 07480
* 011022 3001102754 07490 JC $+5,44 0 013077NW2 PROCT 07490 W
* 011027 1000314754 07500 JR ER1,44 PROCT 07500
* 011034 1000307200 07510 JR NEXT,0 PROCT 07510
011041 4020406777 07520 XF 32,0677777,0,1 013037 IOS1 PROCT 07520
011046 4020006777 07530 XF 0,06777,7,0,1 PROCT 07530
* 011053 1000314753 07540 JR ER1,43 PROCT 07540
* 011060 1000307200 07550 JR NEXT,0 PROCT 07550
* 011065 3001107236 07560 JC $+5,30 0 013040IR1 PROCT 07560 R
* 011072 1000314761 07570 JR ER1,49 PROCT 07570
* 011077 1000307200 07580 JR NEXT,0 PROCT 07580
* 011104 3001111171 07590 JC $+5,57 0 013072TI PROCT 07590 I
* 011111 1000314771 07600 JR ER1,57 PROCT 07600
* 011116 1000307200 07610 JR NEXT,0 PROCT 07610
* 011123 3201114200 07620 JL $+15,0 0 013157,012215, CHECK JL PROCT 07620 0
011130 3401112700 07630 CC $-1,0 PROCT 07630
* 011135 1000304142 07640 JR EXIT,34 4 PROCT 07640
* 011142 1000316100 07650 JR ER2,0 PROCT 07650
011147 4401116077 07660 SC $+9,63 0 009058,003106+084,012211 PROCT 07660 0
* 011154 3201116677 07670 JL $+10,63 3 PROCT 07670
* 011161 3001120000 07680 JC $+15,0 PROCT 07680
011166 3401116076 07690 CC $-6,62 PROCT 07690
* 011173 1000304142 07700 JR EXIT,34 4 PROCT 07700
* 011200 1000316100 07710 JR ER2,0 PROCT 07710
011205 4401121676 07720 SC $+9,62 0 009056+054,003104+102 PROCT 07720 0
* 011212 3201121776 07730 JL $+5,62 PROCT 07730
011217 3401121675 07740 CC $-1,61 PROCT 07740
* 011224 1000304142 07750 JR EXIT,34 4 PROCT 07750
* 011231 1000316100 07760 JR ER2,0 PROCT 07760
011236 4401124774 07770 SC $+9,60 0 009052+050,003100+098 PROCT 07770 0
* 011243 3201125074 07780 JL $+5,60 PROCT 07780
011250 3401124773 07790 CC $-1,59 PROCT 07790
* 011255 1000304142 07800 JR EXIT,34 4 PROCT 07800
* 011262 1000316100 07810 JR ER2,0 PROCT 07810
011267 4401130070 07820 SC $+9,56 0 009048+046,003096+094 PROCT 07820 0
* 011274 3201130170 07830 JL $+5,56 PROCT 07830
011301 3401130067 07840 CC $-1,55 PROCT 07840
* 011306 1000304142 07850 JR EXIT,34 4 PROCT 07850
* 011313 1000316100 07860 JR ER2,0 PROCT 07860
011320 4401133160 07870 SC $+9,48 0 009044+042,003092+090 PROCT 07870 0
* 011325 3201133260 07880 JL $+5,48 PROCT 07880
011332 3401133157 07890 CC $-1,47 PROCT 07890
* 011337 1000304142 07900 JR EXIT,34 4 PROCT 07900
* 011344 1000316100 07910 JR ER2,0 PROCT 07910
011351 4401136240 07920 SC $+9,32 0 009040+038,003088+086 PROCT 07920 0
* 011356 3201136340 07930 JL $+5,32 PROCT 07930
011363 3401136237 07940 CC $-1,31 PROCT 07940
* 011370 1000304142 07950 JR EXIT,34 4 PROCT 07950
* 011375 1000316100 07960 JR ER2,0 PROCT 07960
011402 4400244300 07970 SC IND,0 CHCHECK SC PROCT 07970
011407 4400244352 07980 SC IND,42 PROCT 07980
011414 3400244352 07990 CC IND,42 PROCT 07990
* 011421 1000304142 08000 JR EXIT,34 4 PROCT 08000
* 011426 1000316100 08010 JR ER2,0 PROCT 08010
011433 4400244300 08020 SC IND,0 PROCT 08020
011440 4400244325 08030 SC IND,21 PROCT 08030
011445 3400244325 08040 CC IND,21 PROCT 08040
* 011452 1000304142 08050 JR EXIT,34 4 PROCT 08050
* 011457 1000316100 08060 JR ER2,0 PROCT 08060
011464 3400237302 08070 CC ZERO,2 CHECK CC2,0 PROCT 08070 C
* 011471 1000304141 08080 JR EXIT,33 3 PROCT 08080
* 011476 1000316100 08090 JR ER2,0 PROCT 08090
011503 3400164003 08100 CC K17,3 CHCHECK CC3,3 PROCT 08100 3
* 011510 1000304142 08110 JR EXIT,34 4 PROCT 08110
* 011515 1000316100 08120 JR ER2,0 PROCT 08120
* 011522 3000652252 08130 JC EQ,42 CHCHECK 21,42 PROCT 08130 ,
011527 3401152625 08140 CC $-1,21 PROCT 08140
* 011534 1000304144 08150 JR EXIT,36 6 PROCT 08150
* 011541 1000316100 08160 JR ER2,0 PROCT 08160
* 011546 3000652252 08170 JC EQ,42 C CHECK 42,21 PROCT 08170 2
011553 3401153352 08180 CC $-16,42 2 PROCT 08180
* 011560 1000304141 08190 JR EXIT,33 3 PROCT 08190
* 011565 1000316100 08200 JR ER2,0 PROCT 08200
* 011572 3000237352 08210 JC ZERO,42 2 CHECK LS, 011101 F5- PROCT 08210
011577 4400244300 08220 SC IND,0 PROCT 08220
011604 6400244300 08230 LS IND,0 PROCT 08230
* 011611 3001163042 08240 JC $+15,34 4 PROCT 08240
011616 3400244300 08250 CC IND,0 PROCT 08250
* 011623 1000304142 08260 JR EXIT,34 4 PROCT 08260
* 011630 1000316100 08270 JR ER2,0 PROCT 08270
* 011635 3000637052 08280 JC HEREI,4242 CHECK LS, 1S MEM. PROCT 08280 K
011642 4400244377 08290 SC IND,077 7 PROCT 08290
011647 6400244300 08300 LS IND,0 PROCT 08300
* 011654 3001167344 08310 JC $+15,36 6 PROCT 08310
011661 3400244377 08320 CC IND,077 7 PROCT 08320
* 011666 1000304142 08330 JR EXIT,34 4 PROCT 08330
* 011673 1000316100 08340 JR ER2,0 PROCT 08340
* 011700 3000637052 08350 JC HEREI,4242 CHECK LS, OS MEM. PROCT 08350 K
011705 4400244300 08360 SC IND,0 PROCT 08360
011712 6400244377 08370 LS IND,077 7 PROCT 08370
* 011717 3001173644 08380 JC $+15,36 6 PROCT 08380
011724 3400244377 08390 CC IND,077 7 PROCT 08390
* 011731 1000304142 08400 JR EXIT,34 4 PROCT 08400
* 011736 1000316100 08410 JR ER2,0 PROCT 08410
011743 4400244352 08420 SC IND,42 C CHECK LP 42,25 PROCT 08420 P
011750 5400244331 08430 LP IND,25 PROCT 08430
011755 3400244310 08440 CC IND,8 PROCT 08440
* 011762 1000304142 08450 JR EXIT,34 4 PROCT 08450
* 011767 1000316100 08460 JR ER2,0 PROCT 08460
011774 4400244352 08470 SC IND,42 C CHECK LT 42,0 PROCT 08470 T
012001 1400244300 08480 LC IND,0 PROCT 08480
* 012006 1000304142 08490 JR EXIT,34 4 PROCT 08490
* 012013 1000316100 08500 JR ER2,0 PROCT 08500
012020 4400244343 08510 SC IND,35 C CHECK LT 35,54 PROCT 08510 T
012025 1400244366 08520 LC IND,54 PROCT 08520
* 012032 1000304141 08530 JR EXIT,33 3 PROCT 08530
* 012037 1000316100 08540 JR ER2,0 PROCT 08540
012044 4400244353 08550 SC IND,43 C CHECK LT 43,42 PROCT 08550 T
012051 1400244352 08560 LC IND,42 PROCT 08560
* 012056 1000304142 08570 JR EXIT,34 4 PROCT 08570
* 012063 1000316100 08580 JR ER2,0 PROCT 08580
012070 5600163102 08590 BA1 K14,2 C CHECK CB,008044 PROCT 08590 B
012075 5600163122 08600 BA2 K14,2 PROCT 08600
012102 7000001762 08610 CB2 15,2 PROCT 08610
012107 7000001762 08620 CB2 15,2 PROCT 08620
* 012114 1000304142 08630 JR EXIT,34 4 PROCT 08630
* 012121 1000316100 08640 JR ER2,0 PROCT 08640
012126 5600237303 08650 BA1 ZERO,3 C CHECK BA,NO SENT,2 PROCT 08650 A
012133 5600162502 08660 BA1 K13,2 OCT 1740 PROCT 08660
012140 7000162543 08670 CB1 K13,3 OCT 00 17 40 PROCT 08670
* 012145 1000304142 08680 JR EXIT,34 4 PROCT 08680
* 012152 1000316100 08690 JR ER2,0 PROCT 08690
012157 5600237303 08700 BA1 ZERO,3 C CHECK BA,SENT,2 PROCT 08700 A
012164 5600163142 08710 BD1 K14,2 OCOCT5264 PROCT 08710
012171 7000254343 08720 CB1 K01+3,3 3 OCT 631244 PROCT 08720
* 012176 1000304142 08730 JR EXIT,34 4 PROCT 08730
* 012203 1000316100 08740 JR ER2,0 PROCT 08740
012210 5600237300 08750 BA1 ZERO,16 6 CHECK BA,SENT,AR0,16 PROCT 08750 B
012215 5600156540 08760 BD1 K08,16 PROCT 08760
012222 7000162540 08770 CB1 K13,16 PROCT 08770
* 012227 1000304142 08780 JR EXIT,34 4 PROCT 08780
* 012234 1000316100 08790 JR ER2,0 PROCT 08790
012241 5600237320 08800 BA2 ZERO,16 6 CHECK BA,NO SENT,AR1,16 PROCT 08800 B
012246 5600156520 08810 BA2 K08,16 PROCT 08810
012253 7000156560 08820 CB2 K08,16 PROCT 08820
* 012260 1000304142 08830 JR EXIT,34 4 PROCT 08830
* 012265 1000316100 08840 JR ER2,0 PROCT 08840
012272 5600237302 08850 BA1 ZERO,2 C CHECK SA,AR0 PROCT 08850 A
012277 5200003702 08860 SA1 31,2 PROCT 08860
012304 5600163102 08870 BA1 K14,2 OCOCT5264 PROCT 08870
012311 5200003702 08880 SA1 31,2 PROCT 08880
012316 7000163142 08890 CB1 K14,2 OCOCT5264 PROCT 08890
* 012323 1000304142 08900 JR EXIT,34 4 PROCT 08900
* 012330 1000316100 08910 JR ER2,0 PROCT 08910
012335 5600237322 08920 BA2 ZERO,2 C CHECK SA,AR1 PROCT 08920 A
012342 5200001722 08930 SA2 15,2 PROCT 08930
012347 5600163122 08940 BA2 K14,2 OCOCT5264 PROCT 08940
012354 5200001722 08950 SA2 15,2 PROCT 08950
012361 7000163162 08960 CB2 K14,2 OCOCT5264 PROCT 08960
* 012366 1000304142 08970 JR EXIT,34 4 PROCT 08970
* 012373 1000316100 08980 JR ER2,0 PROCT 08980
012400 4600237304 08990 BT ZERO,4 C CHECK BT,ROW 0 PROCT 08990 T
012405 4600163104 09000 BT K14,4 O OCT07775264 PROCT 09000 5
012412 7400163104 09010 CT K14,4 O OCT 07775264 PROCT 09010 7
* 012417 1000304142 09020 JR EXIT,34 4 PROCT 09020
* 012424 1000316100 09030 JR ER2,0 PROCT 09030
012431 4600237326 09040 BT ZERO,22 2 CHECK BT,ROW 1 PROCT 09040 B
012436 4600163126 09050 BT K14,22 OCT 07775264 PROCT 09050 7
012443 7400163126 09060 CT K14,22 OCT 07775264 PROCT 09060 7
* 012450 1000304142 09070 JR EXIT,34 4 PROCT 09070
* 012455 1000316100 09080 JR ER2,0 PROCT 09080
012462 4600237350 09090 BT ZERO,40 0 CHECK BT,ROW 2 PROCT 09090 B
012467 4600163150 09100 BT K14,40 O OCT 07775264 PROCT 09100 7
012474 7400163150 09110 CT K14,40 OCT 07775264 PROCT 09110 7
* 012501 1000304142 09120 JR EXIT,34 4 PROCT 09120
* 012506 1000316100 09130 JR ER2,0 PROCT 09130
012513 4600237373 09140 BT ZERO,59 9 CHECK BT, ROW3+042007 PROCT 09140
012520 4600163173 09150 BT K14,59 PROCT 09150
012525 7400163173 09160 CT K14,59 PROCT 09160
* 012532 1000304142 09170 JR EXIT,34 4 PROCT 09170
* 012537 1000316100 09180 JR ER2,0 PROCT 09180
012544 5600237304 09190 BA1 ZERO,4 C CHECK ST PROCT 09190 T
012551 4600163126 09200 BT K14,22 O OCT07005264 PROCT 09200 5
012556 4200001726 09210 ST 15,22 PROCT 09210
012563 7400163103 09220 CT K14,3 OCOCT07005264 PROCT 09220 2
* 012570 1000304142 09230 JR EXIT,34 4 PROCT 09230
* 012575 1000316100 09240 JR ER2,0 PROCT 09240
012602 4600237377 09250 BT ZERO,63 3 CHECK FT WITH ONES PROCT 09250 F
012607 2007777777 09260 FT 32767,6363 PROCT 09260
012614 5600037703 09270 BA1 255,3 PROCT 09270
012621 7001261243 09280 CB1 $-7,3 PROCT 09280
* 012626 1000304142 09290 JR EXIT,34 4 PROCT 09290
* 012633 1000316100 09300 JR ER2,0 PROCT 09300
012640 4601261377 09310 BT $-21,63 3 CHECK FT WITH ZEROS PROCT 09310 F
012645 2000000077 09320 FT 0,63 PROCT 09320
012652 5600037703 09330 BA1 255,3 PROCT 09330
012657 7000237343 09340 CB1 ZERO,3 PROCT 09340
* 012664 1000304142 09350 JR EXIT,34 4 PROCT 09350
* 012671 1000316100 09360 JR ER2,0 PROCT 09360
012676 5600156500 09370 BA1 K08,16 C CHECK BSD1C,1B PROCT 09370 S
012703 1600000011 09380 BS1 0,1 PROCT 09380
012710 3400000012 09390 CC 0,10 PROCT 09390
* 012715 1000304142 09400 JR EXIT,34 4 PROCT 09400
* 012722 1000316100 09410 JR ER2,0 PROCT 09410
012727 5600160302 09420 BA1 K11,2 CHCHECK BSC 2C,2B,OCT6263 PROCT 09420 C
012734 1600001762 09430 BC2 15,2 PROCT 09430
012741 7000155542 09440 CB1 K07,2 OCOCT1317 PROCT 09440
* 012746 1000304142 09450 JR EXIT,34 4 PROCT 09450
* 012753 1000316100 09460 JR ER2,0 PROCT 09460
012760 5600160403 09470 BA1 K12-1,3 3 CHECK BSD 3C,4B,OCT626352 PROCT 09470 B
012765 1600001734 09480 BS3 15,4 PROCT 09480
012772 7000155343 09490 CB1 K06,3 OCOCT547240 PROCT 09490 0
* 012777 1000304142 09500 JR EXIT,34 4 PROCT 09500
* 013004 1000316100 09510 JR ER2,0 PROCT 09510
013011 5600160504 09520 BA1 K12,4 CHCHECK BSC 4C,7B,OCT62635225 PROCT 09520 C
013016 1600001747 09530 BC4 15,7 PROCT 09530
013023 7000154644 09540 CB1 K04,4 OCOCT47245345 PROCT 09540 3
* 013030 1000304142 09550 JR EXIT,34 4 PROCT 09550
* 013035 1000316100 09560 JR ER2,0 PROCT 09560
013042 5600163102 09570 BA1 K14,2 OCOCT5264,CHECK ZP BLANK PROCT 09570 C
013047 2600001702 09580 PD 15,2 PROCT 09580
013054 7000237342 09590 CB1 ZERO,2 PROCT 09590
* 013061 1000304142 09600 JR EXIT,34 4 PROCT 09600
* 013066 1000316100 09610 JR ER2,0 PROCT 09610
013073 5600163101 09620 BA1 K14,1 OCOCT64,CHECK ZP DEC ZERO PROCT 09620 E
013100 2600001721 09630 PD0 15,1 PROCT 09630
013105 3400001703 09640 CC 15,3 PROCT 09640
* 013112 1000304142 09650 JR EXIT,34 4 PROCT 09650
* 013117 1000316100 09660 JR ER2,0 PROCT 09660
013124 2600001720 09670 PD0 15,0 PROCT 09670
013131 5600160304 09680 BA1 K11,4 ZSZS BLANK+FLTG $,OCT00036263 PROCT 09680 +
013136 2200000000 09690 ZS$ 0,16 PROCT 09690
013143 7000167444 09700 CB1 K32,4 OCOCT 00004263 PROCT 09700 4
* 013150 3001316242 09710 JC $+10,34 4 PROCT 09710
* 013155 3001317400 09720 JC $+15,0 PROCT 09720
013162 3400011117 09730 CC 73,15 PROCT 09730
* 013167 1000304142 09740 JR EXIT,34 4 PROCT 09740
* 013174 1000316100 09750 JR ER2,0 PROCT 09750
013201 5600160304 09760 BA1 K11,4 ZSZS BLANK,OCT 00036263 PROCT 09760 ,
013206 2200001444 09770 ZS 12,4 PROCT 09770
013213 7000170044 09780 CB1 K33,4 OCOCT 00000063 PROCT 09780 0
* 013220 1000304142 09790 JR EXIT,34 4 PROCT 09790
* 013225 1000316100 09800 JR ER2,0 PROCT 09800
013232 5600160304 09810 BA1 K11,4 ZSZS ASTERISK, OCT 00036263 PROCT 09810 I
013237 2200001464 09820 ZS* 12, 4, PROCT 09820
013244 7000254744 09830 CB1 K01+7,4 4 OCT J1414163 PROCT 09830
* 013251 1000304142 09840 JR EXIT,34 4 PROCT 09840
* 013256 1000316100 09850 JR ER2,0 PROCT 09850
013263 5600160304 09860 BA1 K11,4 ZSZS,TEST FOR LAC LOW PROCT 09860 F
013270 2200001442 09870 ZS 12,2 PROCT 09870
013275 7000170444 09880 CB1 K33+4,4 4 OCT 00006263 PROCT 09880 0
* 013302 1000304142 09890 JR EXIT,34 4 PROCT 09890
* 013307 1000316100 09900 JR ER2,0 PROCT 09900
013314 5600237300 09910 BA1 ZERO,16 6 ZS,TEST FOR FAC LOW PROCT 09910 T
013321 2200000060 09920 ZS* 0, 16, PROCT 09920
013326 3400001742 09930 CC 15,34 PROCT 09930
* 013333 3001335242 09940 JC $+15,34 4 PROCT 09940
013340 3400011120 09950 CC 73,16 PROCT 09950
* 013345 1000304142 09960 JR EXIT,34 4 PROCT 09960
* 013352 1000316100 09970 JR ER2,0 PROCT 09970
013357 5600156502 09980 BA1 K08,2 CHCHECK TR, OCT 3740 PROCT 09980 ,
013364 4400011015 09990 SC 72,015 PROCT 09990
013371 1200001702 10000 TR 15,2 PROCT 10000
013376 7000154042 10010 CB1 K02,2 OCOCT 1000 PROCT 10010
* 013403 1000304142 10020 JR EXIT,34 4 PROCT 10020
* 013410 1000316100 10030 JR ER2,0 PROCT 10030
013415 2601343304 10040 PD $+14,4 CHECK 64 COUNT TR, 027 078 PROCT 10040 6
013422 4401345277 10050 SC $+24,63 3 PROCT 10050
013427 4400000000 10060 SC 0,0 PROCT 10060
013434 6001343201 10070 AC $-2,1 PROCT 10070
013441 6001343301 10080 AC $-6,1 PROCT 10080
* 013446 3201342777 10090 JL $-15,63 3 PROCT 10090
013453 4400007777 10100 SC 077,077 7 PROCT 10100
013460 4400011024 10110 SC 72,20 PROCT 10110
013465 1200007700 10120 TR 077,64 PROCT 10120
013472 7000241740 10130 CB1 02417,1616 PROCT 10130
* 013477 1000304142 10140 JR EXIT,34 4 PROCT 10140
* 013504 1000316100 10150 JR ER2,0 PROCT 10150
013511 5600215110 10160 BA1 DEC2,8 CHECK TR 0304050607101112 PROCT 10160 T
013516 4400011060 10170 SC 72,48 T TR TABLE IN ROW 60 PROCT 10170 E
013523 1200001710 10180 TR 15,8 PROCT 10180
013530 7000601250 10190 CB1 06012,8 8 OCT 7154521000344741 PROCT 10190
* 013535 1000304142 10200 JR EXIT,34 4 PROCT 10200
* 013542 1000316100 10210 JR ER2,0 PROCT 10210
013547 5601356505 10220 BA1 $+14,5 F S 67 Z TO MA PROCT 10220
013554 2000000522 10230 FT 05,18 PROCT 10230
013561 2001356120 10240 FT $,16 PROCT 10240
013566 2401356101 10250 TFR $-5 PROCT 10250
013573 7001356545 10260 CB1 $-6,5 PROCT 10260
* 013600 1000304142 10270 JR EXIT,3434 PROCT 10270
* 013605 1000316100 10280 JR ER2,0 PROCT 10280
013612 5600240100 10290 BA1 ZERO+6,1,16 CHECK TB COUNT 64 PROCT 10290 C
013617 5200011700 10300 SA1 79,16 D DESTINATION IN )-16 PROCT 10300 T
013624 2400154201 10310 TFR K03,1 NONO ADVANCE PROCT 10310 C
013631 7000156140 10320 CB1 K03+15,1,16 PROCT 10320
* 013636 3001365042 10330 JC $+10,34 4 PROCT 10330
* 013643 3001375100 10340 JC $+70,0 PROCT 10340
013650 7000160160 10350 CB2 K03+31,1,16 PROCT 10350
* 013655 3001366742 10360 JC $+10,34 4 PROCT 10360
* 013662 3001375100 10370 JC $+55,0 PROCT 10370
013667 5600005700 10380 BA1 47,16 PROCT 10380
013674 7000162140 10390 CB1 K03+47,1,16 PROCT 10390
* 013701 3001371342 10400 JC $+10,34 4 PROCT 10400
* 013706 3001375100 10410 JC $+35,0 PROCT 10410
013713 5600007700 10420 BA1 63,16 PROCT 10420
013720 7000164140 10430 CB1 K03+63,1,16 PROCT 10430
* 013725 3001373742 10440 JC $+10,34 4 PROCT 10440
* 013732 3001375100 10450 JC $+15,0 PROCT 10450
013737 7400237320 10460 CT ZERO,16 6 PROCT 10460
* 013744 1000304142 10470 JR EXIT,34 4 PROCT 10470
* 013751 1000316100 10480 JR ER2,0 PROCT 10480
013756 5600242500 10490 BA1 OKAYS-6,6,16 CHECK TB. COUNT 16 PROCT 10490
013763 5200011700 10500 SA1 79,16 O ORIGIN IN T-17 PROCT 10500 I
013770 2400000061 10510 TTI 0 ADVANCE PROCT 10510
013775 7000203740 10520 CB1 CON4,16 6 PROCT 10520
* 014002 3001401442 10530 JC $+10,34 4 PROCT 10530
* 014007 3001402600 10540 JC $+15,0 PROCT 10540
014014 2000204003 10550 FT CON4+1,3,3 PROCT 10550
014021 7000010742 10560 CB1 71,2 PROCT 10560
* 014026 1000304142 10570 JR EXIT,34 4 PROCT 10570
* 014033 1000316100 10580 JR ER2,0 PROCT 10580
014040 5600156631 10590 BA2 K08+1,9 9 CHECKED,007063,007061 PROCT 10590 D
014045 5600160302 10600 BA1 K11,2 OCOCT6263 PROCT 10600
014052 5200007742 10610 ED 63, 2 PROCT 10610
014057 5600157711 10620 BA1 K09+2,9 9 PROCT 10620
014064 7000007751 10630 CB1 63,9 PROCT 10630
* 014071 1000304142 10640 JR EXIT,34 4 PROCT 10640
* 014076 1000316100 10650 JR ER2,0 PROCT 10650
014103 5600157520 10660 BA2 K09,16 0 007063J1- PROCT 10660 1
014110 5600160300 10670 BA1 K11,16 PROCT 10670
014115 5200007761 10680 SAR 077 PROCT 10680
014122 7000005740 10690 CB1 47,16 PROCT 10690
* 014127 3001414142 10700 JC $+10,34 4 PROCT 10700
* 014134 3001415300 10710 J $+15 PROCT 10710
014141 7000007760 10720 CB2 63,16 PROCT 10720
* 014146 1000304142 10730 JR EXIT,34 4 PROCT 10730
* 014153 1000316100 10740 JR ER2,0 PROCT 10740
014160 5600156622 10750 BA2 K08+1,2 2 007061, OCT 4002 PROCT 10750 ,
014165 5600157502 10760 BA1 K09,2 OCOCT6037 PROCT 10760
014172 5200007741 10770 ED 63, 1 PROCT 10770
014177 5600161602 10780 BA1 K13-7,2 2 OCT 1700 PROCT 10780 0
014204 7000007742 10790 CB1 63,2 PROCT 10790
* 014211 1000304142 10800 JR EXIT,34 4 PROCT 10800
* 014216 1000316100 10810 JR ER2,0 PROCT 10810
014223 5600163622 10820 BA2 K16,2 OCOCT4040 PROCT 10820
014230 5600160302 10830 BA1 K11,2 OCOCT6263 PROCT 10830
014235 5200007742 10840 ED 63, 2 PROCT 10840
014242 7000007742 10850 CB1 63,2 PROCT 10850
* 014247 1000304142 10860 JR EXIT,34 4 PROCT 10860
* 014254 1000316100 10870 JR ER2,0 PROCT 10870
014261 5600155022 10880 BA2 K04+2,2 2 OCT4077,007059 PROCT 10880 7
014266 5600160302 10890 BA1 K11,2 OCOCT6263 PROCT 10890
014273 5200007742 10900 ED 63, 2 PROCT 10900
014300 5600164002 10910 BA1 K17,2 OCOCT6203 PROCT 10910
014305 7000007742 10920 CB1 63,2 PROCT 10920
* 014312 1000304142 10930 JR EXIT,34 4 PROCT 10930
* 014317 1000316100 10940 JR ER2,0 PROCT 10940
014324 5600164222 10950 BA2 K18,2 OCOCT4042,007061D6- PROCT 10950 0
014331 5600155301 10960 BA1 K06,1 OCOCT40 PROCT 10960
014336 5200007741 10970 ED 63, 1 PROCT 10970
014343 7000007762 10980 CB2 63,2 PROCT 10980
* 014350 1000304142 10990 JR EXIT,34 4 PROCT 10990
* 014355 1000316100 11000 JR ER2,0 PROCT 11000
014362 5600164422 11010 BA2 K19,2 OCOCT4022,007061D5- PROCT 11010 0
014367 5600155301 11020 BA1 K06,1 OCOCT40 PROCT 11020
014374 5200007741 11030 ED 63, 1 PROCT 11030
014401 7000007762 11040 CB2 63,2 PROCT 11040
* 014406 1000304142 11050 JR EXIT,34 4 PROCT 11050
* 014413 1000316100 11060 JR ER2,0 PROCT 11060
014420 5600164622 11070 BA2 K21,2 OCOCT4012,007061D4- PROCT 11070 0
014425 5600155301 11080 BA1 K06,1 OCOCT40 PROCT 11080
014432 5200007741 11090 ED 63, 1 PROCT 11090
014437 7000007762 11100 CB2 63,2 PROCT 11100
* 014444 1000304142 11110 JR EXIT,34 4 PROCT 11110
* 014451 1000316100 11120 JR ER2,0 PROCT 11120
014456 5600165022 11130 BA2 K22,2 OCOCT4006,007061D3- PROCT 11130 0
014463 5600155301 11140 BA1 K06,1 OCOCT40 PROCT 11140
014470 5200007741 11150 ED 63, 1 PROCT 11150
014475 7000007762 11160 CB2 63,2 PROCT 11160
* 014502 1000304142 11170 JR EXIT,34 4 PROCT 11170
* 014507 1000316100 11180 JR ER2,0 PROCT 11180
014514 5600165222 11190 BA2 K23,2 OCOCT4000,007061D2 PROCT 11190 0
014521 5600155301 11200 BA1 K06,1 OCOCT40 PROCT 11200
014526 5200007741 11210 ED 63, 1 PROCT 11210
014533 7000007762 11220 CB2 63,2 PROCT 11220
* 014540 1000304142 11230 JR EXIT,34 4 PROCT 11230
* 014545 1000316100 11240 JR ER2,0 PROCT 11240
014552 5600165422 11250 BA2 K24,2 OCOCT4003,007061D1- PROCT 11250 0
014557 5600155301 11260 BA1 K06,1 OCOCT40 PROCT 11260
014564 5200007741 11270 ED 63, 1 PROCT 11270
014571 7000007762 11280 CB2 63,2 PROCT 11280
* 014576 1000304142 11290 JR EXIT,34 4 PROCT 11290
* 014603 1000316100 11300 JR ER2,0 PROCT 11300
014610 5600163620 11310 BA2 K16,16 0 007061J1- PROCT 11310 1
014615 5600157500 11320 BA1 K09,16 PROCT 11320
014622 5200007761 11330 SAR 077 PROCT 11330
014627 7000005740 11340 CB1 47,16 PROCT 11340
* 014634 3001464642 11350 JC $+10,34 4 PROCT 11350
* 014641 3001466000 11360 J $+15 PROCT 11360
014646 7000007760 11370 CB2 63,16 PROCT 11370
* 014653 1000304142 11380 JR EXIT,34 4 PROCT 11380
* 014660 1000316100 11390 JR ER2,0 PROCT 11390
014665 5600156723 11400 BA2 K08+2,3 3 007061BM,OCT400262 PROCT 11400 B
014672 5600155301 11410 BA1 K06,1 OCOCT40 PROCT 11410
014677 5200007741 11420 ED 63, 1 PROCT 11420
014704 7000007763 11430 CB2 63,3 OCTCT400262 PROCT 11430
* 014711 1000304142 11440 JR EXIT,34 4 PROCT 11440
* 014716 1000316100 11450 JR ER2,0 PROCT 11450
014723 5600165622 11460 BA2 K25,2 00007059D6,OCT4037 PROCT 11460 ,
014730 5600155301 11470 BA1 K06,1 OCOCT 40 PROCT 11470
014735 5200007741 11480 ED 63, 1 PROCT 11480
014742 7000007762 11490 CB2 63,2 PROCT 11490
* 014747 1000304142 11500 JR EXIT,34 4 PROCT 11500
* 014754 1000316100 11510 JR ER2,0 PROCT 11510
014761 5600166022 11520 BA2 K26,2 00007059D5,OCT4057 PROCT 11520 ,
014766 5600155301 11530 BA1 K06,1 OCOCT40 PROCT 11530
014773 5200007741 11540 ED 63, 1 PROCT 11540
015000 7000007762 11550 CB2 63,2 PROCT 11550
* 015005 1000304142 11560 JR EXIT,34 4 PROCT 11560
* 015012 1000316100 11570 JR ER2,0 PROCT 11570
015017 5600166222 11580 BA2 K27,2 00007059D4,OCT4067 PROCT 11580 ,
015024 5600155301 11590 BA1 K06,1 OCOCT40 PROCT 11590
015031 5200007741 11600 ED 63, 1 PROCT 11600
015036 7000007762 11610 CB2 63,2 PROCT 11610
* 015043 1000304142 11620 JR EXIT,34 4 PROCT 11620
* 015050 1000316100 11630 JR ER2,0 PROCT 11630
015055 5600166422 11640 BA2 K28,2 00007059D3,OCT4073 PROCT 11640 ,
015062 5600155301 11650 BA1 K06,1 OCOCT40 PROCT 11650
015067 5200007741 11660 ED 63, 1 PROCT 11660
015074 7000007762 11670 CB2 63,2 PROCT 11670
* 015101 1000304142 11680 JR EXIT,34 4 PROCT 11680
* 015106 1000316100 11690 JR ER2,0 PROCT 11690
015113 5600166622 11700 BA2 K29,2 00007059D2,OCT4075 PROCT 11700 ,
015120 5600155301 11710 BA1 K06,1 OCOCT40 PROCT 11710
015125 5200007741 11720 ED 63, 1 PROCT 11720
015132 7000007762 11730 CB2 63,2 PROCT 11730
* 015137 1000304142 11740 JR EXIT,34 4 PROCT 11740
* 015144 1000316100 11750 JR ER2,0 PROCT 11750
015151 5600167022 11760 BA2 K31,2 00007059D1,OCT4076 PROCT 11760 ,
015156 5600155301 11770 BA1 K06,1 OCOCT40 PROCT 11770
015163 5200007741 11780 ED 63, 1 PROCT 11780
015170 7000007762 11790 CB2 63,2 PROCT 11790
* 015175 1000304142 11800 JR EXIT,34 4 PROCT 11800
* 015202 1000316100 11810 JR ER2,0 PROCT 11810
015207 5600155123 11820 BA2 K05,3 00007059BM,OCT407754 PROCT 11820 ,
015214 5600155301 11830 BA1 K06,1 PROCT 11830
015221 5200007741 11840 ED 63, 1 PROCT 11840
015226 7000007763 11850 CB2 63,3 PROCT 11850
* 015233 1000304142 11860 JR EXIT,34 4 PROCT 11860
* 015240 1000316100 11870 JR ER2,0 PROCT 11870
015245 5600156520 11880 BA2 K08,16 0 007059J1- PROCT 11880 1
015252 5600157500 11890 BA1 K09,16 PROCT 11890
015257 5200007761 11900 SAR 63 PROCT 11900
015264 7000005740 11910 CB1 47,16 PROCT 11910
* 015271 3001530342 11920 JC $+10,34 4 PROCT 11920
* 015276 3001531500 11930 JC $+15,0 PROCT 11930
015303 7000007760 11940 CB2 63,16 PROCT 11940
* 015310 1000304142 11950 JR EXIT,34 4 PROCT 11950
* 015315 1000316100 11960 JR ER2,0 PROCT 11960
015322 4400170500 11970 SC AC1,0 PROCT 11970
015327 6000170500 11980 AC AC1,0 PROCT 11980
015334 3400170500 11990 CC AC1,0 PROCT 11990
* 015341 1000304142 12000 JR EXIT,34 4 ADD ZERO PROCT 12000 R
* 015346 1000316100 12010 JR ER2,0 PROCT 12010
015353 5600171103 12020 BA1 PAT,3 PROCT 12020
015360 5600171423 12030 BA2 CON,3 PROCT 12030
015365 7200003703 12040 AB1 31,3 PROCT 12040
015372 7000171763 12050 CB2 ANS,3 PROCT 12050
* 015377 1000304142 12060 JR EXIT,34 4 STRING 1 PROCT 12060
* 015404 1000316100 12070 JR ER2,0 PROCT 12070
015411 5600173617 12080 BA1 PAT2,15 5 PROCT 12080
015416 5600175537 12090 BA2 CON2,15 5 PROCT 12090
015423 7200003717 12100 AB1 31,15 PROCT 12100
015430 7000177477 12110 CB2 ANS2,15 5 PROCT 12110
* 015435 1000304142 12120 JR EXIT,34 4 STRING 2 PROCT 12120
* 015442 1000316100 12130 JR ER2,0 PROCT 12130
015447 5600200307 12140 BA1 PAT3,7 PROCT 12140
015454 5600201227 12150 BA2 CON3,7 PROCT 12150
015461 7200003707 12160 AB1 31,7 PROCT 12160
015466 7000202167 12170 CB2 ANS3,7 PROCT 12170
* 015473 1000304142 12180 JR EXIT,34 4 STRING 3 PROCT 12180
* 015500 1000316100 12190 JR ER2,0 PROCT 12190
015505 5600203007 12200 BA1 PAT4,7 PROCT 12200
015512 5600203727 12210 BA2 CON4,7 PROCT 12210
015517 7200003707 12220 AB1 31,7 PROCT 12220
015524 7000204667 12230 CB2 ANS4,7 PROCT 12230
* 015531 1000304142 12240 JR EXIT,34 4 STRING 4 PROCT 12240
* 015536 1000316100 12250 JR ER2,0 PROCT 12250
015543 5600205507 12260 BA1 PAT5,7 PROCT 12260
015550 5600206427 12270 BA2 CON5,7 PROCT 12270
015555 7200003707 12280 AB1 31,7 PROCT 12280
015562 7000207367 12290 CB2 ANS5,7 PROCT 12290
* 015567 1000304142 12300 JR EXIT,34 4 STRING 5 PROCT 12300
* 015574 1000316100 12310 JR ER2,0 PROCT 12310
015601 5600210207 12320 BA1 PAT6,7 PROCT 12320
015606 5600211127 12330 BA2 CON6,7 PROCT 12330
015613 7200003707 12340 AB1 31,7 PROCT 12340
015620 7000212067 12350 CB2 ANS6,7 PROCT 12350
* 015625 1000304142 12360 JR EXIT,34 4 STRIMG 6 PROCT 12360
* 015632 1000316100 12370 JR ER2,0 PROCT 12370
015637 4400170600 12380 SC AC2,0 PROCT 12380
015644 4400170536 12390 SC AC1,30 PROCT 12390
015651 6000170541 12400 AC AC1,33 PROCT 12400
015656 3400170577 12410 CC AC1,63 PROCT 12410
* 015663 3001567542 12420 JC $+10,34 4 AC E.P.07005 PROCT 12420 .
* 015670 3001570200 12430 JC $+10,0 PROCT 12430
* 015675 1000304147 12440 JR EXIT,39 9 10123 PROCT 12440
* 015702 1000316100 12450 JR ER2,0 PROCT 12450
015707 4400003603 12460 SC 036,3 PROCT 12460
015714 4400003717 12470 SC 037,15 PROCT 12470
015721 6000003762 12480 AC 037,50 PROCT 12480
015726 3400003701 12490 CC 037,1 PROCT 12490
* 015733 3001574542 12500 JC $+10,34 4 F.S.75 15072 PROCT 12500
* 015740 3001576400 12510 JC $+20,0 PROCT 12510
015745 3400003604 12520 CC 036,4 PROCT 12520
* 015752 3001576447 12530 JC $+10,39 9 PROCT 12530
* 015757 1000304142 12540 JR EXIT,34 4 AC EP, 14025 PROCT 12540
* 015764 1000316100 12550 JR ER2,0 PROCT 12550
015771 2600001700 12560 PD 15,0 PROCT 12560
015776 7200001703 12570 AB1 15,3 PROCT 12570
016003 7000000743 12580 CB1 7,3 PROCT 12580
* 016010 3001602242 12590 JC $+10,34 4 ABEP 07004 PROCT 12590 7
* 016015 3001604100 12600 JC $+20,0 PROCT 12600
* 016022 3001603445 12610 JC $+10,37 7 11034 PROCT 12610
* 016027 3001604100 12620 JC $+10,0 PROCT 12620
* 016034 1000304147 12630 JR EXIT,39 9 10130 PROCT 12630
* 016041 1000316100 12640 JR ER2,0 PROCT 12640
016046 5600212404 12650 BA1 AB1,4 PROCT 12650
016053 7200001704 12660 AB1 15,4 PROCT 12660
* 016060 3001607747 12670 JC $+15,39 9 PROCT 12670
* 016065 3001607742 12680 JC $+10,34 4 PROCT 12680
* 016072 1000304100 12690 JR EXIT,0 PROCT 12690
* 016077 1000316100 12700 JR ER2,0 PROCT 12700
016104 5600212424 12710 BA2 AB1,4 PROCT 12710
016111 7200003724 12720 AB2 31,4 PROCT 12720
* 016116 3001613541 12730 JC $+15,33 3 PROCT 12730
016123 7000213064 12740 CB2 AB2,4 PROCT 12740
* 016130 1000304142 12750 JR EXIT,34 4 IC 07074 PROCT 12750 7
* 016135 1000316100 12760 JR ER2,0 PROCT 12760
016142 5600214024 12770 BA2 AB4,4 PROCT 12770
016147 5600213404 12780 BA1 AB3,4 PROCT 12780
016154 7200003744 12790 SB1 31,4 PROCT 12790
016161 7000213464 12800 CB2 AB3,4 PROCT 12800
* 016166 3001620042 12810 JC $+10,34 4 IC 07074 PROCT 12810 7
* 016173 3001621200 12820 JC $+15,0 PROCT 12820
* 016200 3001621245 12830 JC $+10,37 7 PROCT 12830
* 016205 1000304100 12840 JR EXIT,0 PROCT 12840
* 016212 1000316100 12850 JR ER2,0 PROCT 12850
016217 5600214024 12860 BA2 AB4,4 PROCT 12860
016224 5600213404 12870 BA1 AB3,4 PROCT 12870
016231 7200001764 12880 SB2 15,4 PROCT 12880
* 016236 1000314747 12890 JR ER1,39 C COMP. ANS. 10121 PROCT 12890 N
* 016243 1000307200 12900 JR NEXT,0 PROCT 12900
* 016250 3000714052 12910 JC BOF,42 PROCT 12910
016255 5600213010 12920 BA1 AB2,8 PROCT 12920
016262 7000213050 12930 CB1 AB2,8 PROCT 12930
* 016267 3001630142 12940 JC $+10,34 4 11112 PROCT 12940
* 016274 3001630600 12950 JC $+10,0 PROCT 12950
* 016301 1000304147 12960 JR EXIT,39 9 10122 PROCT 12960
* 016306 1000316100 12970 JR ER2,0 PROCT 12970
016313 5600212004 12980 BA1 ANS6,4 PROCT 12980
016320 7000212044 12990 CB1 ANS6,4 PROCT 12990
* 016325 3001633742 13000 JC $+10,34 4 IC 11102 PROCT 13000 0
* 016332 3001635100 13010 JC $+15,0 PROCT 13010
* 016337 3001635145 13020 JC $+10,37 7 PROCT 13020
* 016344 1000304100 13030 JR EXIT,0 PROCT 13030
* 016351 1000316100 13040 JR ER2,0 PROCT 13040
016356 5600213404 13050 BA1 AB3,4 PROCT 13050
016363 7000214044 13060 CB1 AB4,4 PROCT 13060
* 016370 3001640244 13070 JC $+10,36 6 11112 PROCT 13070
* 016375 3001641400 13080 JC $+15,0 PROCT 13080
* 016402 3001641441 13090 JC $+10,33 3 PROCT 13090
* 016407 1000304100 13100 JR EXIT,0 PROCT 13100
* 016414 1000316100 13110 JR ER2,0 PROCT 13110
016421 5600214004 13120 BA1 AB4,4 PROCT 13120
016426 7000213444 13130 CB1 AB3,4 PROCT 13130
* 016433 3001644541 13140 JC $+10,33 3 11011 PROCT 13140
* 016440 3001645700 13150 JC $+15,0 PROCT 13150
016445 3400213400 13160 CC AB3,0 PROCT 13160
* 016452 1000304142 13170 JR EXIT,34 4 PROCT 13170
* 016457 1000316100 13180 JR ER2,0 PROCT 13180
016464 4400004307 13190 SC 35,7 PROCT 13190
016471 4600237311 13200 BT ZERO,9 PROCT 13200
016476 7600004711 13210 AT 39,9 PROCT 13210
016503 3400004307 13220 CC 35,7 PROCT 13220
* 016510 3001652242 13230 JC $+10,34 4 EP 07003 PROCT 13230 0
* 016515 3001653400 13240 JC $+15,0 PROCT 13240
* 016522 3001653445 13250 JC $+10,37 7 PROCT 13250
* 016527 1000304100 13260 JR EXIT,0 PROCT 13260
* 016534 1000316100 13270 JR ER2,0 PROCT 13270
016541 4600212407 13280 BT AB1,7 PROCT 13280
016546 7600212407 13290 AT AB1,7 PROCT 13290
016553 7000213064 13300 CB2 AB2,4 PROCT 13300
* 016560 3001657242 13310 JC $+10,34 4 07003 PROCT 13310
* 016565 3001660400 13320 JC $+15,0 PROCT 13320
* 016572 3001660447 13330 JC $+10,39 9 PROCT 13330
* 016577 1000304100 13340 JR EXIT,0 PROCT 13340
* 016604 1000316100 13350 JR ER2,0 PROCT 13350
016611 4600237311 13360 BT ZERO,9 PROCT 13360
016616 7600004711 13370 AT 39,9 PROCT 13370
* 016623 3001663547 13380 JC $+10,39 9 11120 PROCT 13380
* 016630 3001664700 13390 JC $+15,0 PROCT 13390
* 016635 3001664741 13400 JC $+10,33 3 PROCT 13400
* 016642 1000304100 13410 JR EXIT,0 PROCT 13410
* 016647 1000316100 13420 JR ER2,0 PROCT 13420
* 016654 3000714052 13430 JC BOF,42 PROCT 13430
016661 5600214004 13440 BA1 AB4,4 PROCT 13440
016666 7400213403 13450 CT AB3,3 PROCT 13450
* 016673 3001670541 13460 JC $+10,33 3 HI 11003 PROCT 13460 0
* 016700 3001671200 13470 JC $+10,0 PROCT 13470
* 016705 1000304147 13480 JR EXIT,39 9 BOF 10120 PROCT 13480 1
* 016712 1000316100 13490 JR ER2,0 PROCT 13490
016717 5600213404 13500 BA1 AB3,4 PROCT 13500
016724 7400214003 13510 CT AB4,3 PROCT 13510
* 016731 3001674344 13520 JC $+10,36 6 LOW 11003 PROCT 13520 0
* 016736 3001675500 13530 JC $+15,0 PROCT 13530
* 016743 3001675542 13540 JC $+10,34 4 PROCT 13540
* 016750 1000304100 13550 JR EXIT,0 PROCT 13550
* 016755 1000316100 13560 JR ER2,0 PROCT 13560
016762 2600001700 13570 PD 15,0 PROCT 13570
016767 2600003720 13580 PD0 31,0 PROCT 13580
016774 6600001700 13590 AD1 15,0 PROCT 13590
017001 7000001760 13600 CB2 15,0 PROCT 13600
* 017006 3001702042 13610 JC $+10,34 4 BLANKS. 08049. 10050 PROCT 13610 .
* 017013 3001702500 13620 JC $+10,0 PROCT 13620
* 017020 1000304145 13630 JR EXIT,37 7 AZ 11035 PROCT 13630 3
* 017025 1000316100 13640 JR ER2,0 PROCT 13640
017032 2600001700 13650 PD 15,0 PROCT 13650
017037 2600003726 13660 PD0 31,6 PROCT 13660
017044 6600001702 13670 AD1 15,2 PROCT 13670
017051 7000001563 13680 CB2 13,3 PROCT 13680
* 017056 3001707042 13690 JC $+10,34 4 E.P. 07014 PROCT 13690 7
* 017063 3001710200 13700 JC $+15,0 PROCT 13700
* 017070 3001710246 13710 JC $+10,38 8 SIGN+ 11076 PROCT 13710 1
* 017075 1000304100 13720 JR EXIT,0 PROCT 13720
* 017102 1000316100 13730 JR ER2,0 PROCT 13730
017107 5600215163 13740 BD2 DEC2,3 PROCT 13740
017114 6600215123 13750 AD2 DEC2,3 PROCT 13750
017121 7000215663 13760 CB2 DEC1-3,3,3 PROCT 13760
* 017126 3001714042 13770 JC $+10,34 4 BLK IC 07078PAN.07077 D6 PROCT 13770
* 017133 3001716400 13780 JC $+25,0 PROCT 13780
* 017140 3001715250 13790 JC $+10,40 0 D.O.F. 10158 PROCT 13790
* 017145 3001716400 13800 JC $+15,0 PROCT 13800
017152 3400003463 13810 CC 28,51 PROCT 13810
* 017157 3001717142 13820 JC $+10,34 4 SENT. 10026 PROCT 13820 1
* 017164 1000314700 13830 JR ER1,0 PROCT 13830
* 017171 3001717635 13840 JC $+5,29 R RESET CL�2 PROCT 13840 L
* 017176 1000307226 13850 JR NEXT,22 2 RESET SI�2 PROCT 13850 S
017203 5600215165 13860 BD2 DEC2,5 PROCT 13860
017210 4400003414 13870 SC 28,12 PROCT 13870
017215 6600215123 13880 AD2 DEC2,3 PROCT 13880
017222 7000215663 13890 CB2 DEC1-3,3,3 PROCT 13890
* 017227 3001724142 13900 JC $+10,34 4 EP 07017 CY+CY- PROCT 13900 1
* 017234 3001726000 13910 JC $+20,0 PROCT 13910
* 017241 3001726050 13920 JC $+15,40 0 DOF 10158CY- PROCT 13920 1
017246 3400003307 13930 CC 27,7 PROCT 13930
* 017253 1000304142 13940 JR EXIT,34 4 BLK.MEM LOC 08078.08046 PROCT 13940 M
* 017260 1000316100 13950 JR ER2,0 PROCT 13950
017265 2600001732 13960 PD0 15,10 XSXS-3 CORR. GATES CY - PROCT 13960 R
017272 6600215312 13970 AD1 DEC1-6,1,10 PROCT 13970
017277 2600215352 13980 CD1 DEC1-6,1,10 PROCT 13980
* 017304 1000304142 13990 JR EXIT,34 4 PROCT 13990
* 017311 1000316100 14000 JR ER2,0 PROCT 14000
017316 5600215453 14010 BD1 DEC1-5,1,11 XS-3 CORR. GATES CY PROCT 14010
017323 6600257413 14020 AD1 K64,11 PROCT 14020
017330 2600260753 14030 CD1 K65,11 PROCT 14030
* 017335 1000304142 14040 JR EXIT,34 4 PROCT 14040
* 017342 1000316100 14050 JR ER2,0 PROCT 14050
017347 5600215141 14060 BD1 DEC2,1 PROCT 14060
017354 6600215104 14070 AD1 DEC2,4 PROCT 14070
017361 7000216144 14080 CB1 DEC1,4 PROCT 14080
* 017366 3001740042 14090 JC $+10,34 4 BLK.M.SF 08052.10026 PROCT 14090 S
* 017373 3001743100 14100 JC $+30,0 PROCT 14100
017400 3400001363 14110 CC 11,51 PROCT 14110
* 017405 3001741742 14120 JC $+10,34 4 SENT 16015 PROCT 14120 6
* 017412 3001743100 14130 JC $+15,0 PROCT 14130
* 017417 3001743145 14140 JC $+10,37 7 AZ-11042.11043 PROCT 14140 4
* 017424 1000304100 14150 JR EXIT,0 PROCT 14150
* 017431 1000316100 14160 JR ER2,0 PROCT 14160
017436 5600215644 14170 BD1 DEC1-3,4,4 PROCT 14170
017443 6400001740 14180 LS 15,32 PROCT 14180
017450 5600215166 14190 BD2 DEC2,6 PROCT 14190
017455 6600003704 14200 AD1 31,4 PROCT 14200
017462 6400003740 14210 LS 31,32 PROCT 14210
017467 7000003744 14220 CB1 31,4 PROCT 14220
* 017474 3001750642 14230 JC $+10,34 4 I.C.+C.P. 07077. PROCT 14230 .
* 017501 3001753200 14240 JC $+25,0 PROCT 14240
* 017506 3001752046 14250 JC $+10,38 8 -SIGN 11076M6-011084 PROCT 14250 1
* 017513 3001753200 14260 JC $+15,0 PROCT 14260
* 017520 3001753250 14270 JC $+10,40 0 DOF- 10158 CP PROCT 14270 0
* 017525 1000304100 14280 JR EXIT,0 PROCT 14280
* 017532 1000316100 14290 JR ER2,0 PROCT 14290
017537 5600215644 14300 BD1 DEC1-3,4,4 PROCT 14300
017544 5600215164 14310 BD2 DEC2,4 PROCT 14310
017551 6400003740 14320 LS 31,32 PROCT 14320
017556 6600001724 14330 AD2 15,4 PROCT 14330
017563 7000215164 14340 CB2 DEC2,4 PROCT 14340
* 017570 3001760242 14350 JC $+10,34 4 RECOMP 09063.07016 RDL PROCT 14350
* 017575 3001761400 14360 JC $+15,0 PROCT 14360
* 017602 3001761446 14370 JC $+10,38 8 STEP AN 11061.08099 PROCT 14370 N
* 017607 1000304100 14380 JR EXIT,0 E EP BMFMCP 07015 PROCT 14380 C
* 017614 1000316100 14390 JR ER2,0 PROCT 14390
017621 4400003663 14400 SC 30,51 PROCT 14400
017626 4400001710 14410 SC 15,8 PROCT 14410
017633 4400003750 14420 SC 31,40 PROCT 14420
017640 6600001721 14430 AD2 15,1 PROCT 14430
017645 3400003703 14440 CC 31,3 PROCT 14440
* 017652 3001766442 14450 JC $+10,34 4 EP EPI 07013.07016 AZ- PROCT 14450
* 017657 3001770300 14460 JC $+20,0 PROCT 14460
* 017664 3001770350 14470 JC $+15,40 0 DOF- 09091.08096 CY PROCT 14470 9
* 017671 3001770346 14480 JC $+10,38 8 + AN 11061.11084 PROCT 14480 1
* 017676 1000304100 14490 JR EXIT,0 PROCT 14490
* 017703 1000316100 14500 JR ER2,0 PROCT 14500
017710 5600215144 14510 BD1 DEC2,4 PROCT 14510
017715 6400001740 14520 LS 15,32 PROCT 14520
017722 6600001704 14530 AD1 15,4 PROCT 14530
* 017727 3001774146 14540 JC $+10,38 8 SIGN- 11084.08095 CP PROCT 14540 1
* 017734 3001776000 14550 JC $+20,0 PROCT 14550
017741 5400001737 14560 LP 15,31 PROCT 14560
017746 7000215644 14570 CB1 DEC1-3,4,4 PROCT 14570
* 017753 1000304142 14580 JR EXIT,34 4 BLOCK IC 07078 D6-. 07077 PAN- PROCT 14580 I
* 017760 1000316100 14590 JR ER2,0 PROCT 14590
017765 5600214241 14600 BD1 DEC2-7,1,1 PROCT 14600
017772 6400001740 14610 LS 15,32 PROCT 14610
017777 6600001701 14620 AD1 15,1 PROCT 14620
020004 3400001743 14630 CC 15,35 PROCT 14630
* 020011 1000304142 14640 JR EXIT,34 4 -SIGN 11075 CP-. 07014 PROCT 14640 1
* 020016 1000316100 14650 JR ER2,0 PROCT 14650
020023 5600215141 14660 BD1 DEC2,1 PROCT 14660
020030 6600001741 14670 SD1 15,1 PROCT 14670
020035 3400001703 14680 CC 15,3 PROCT 14680
* 020042 1000304142 14690 JR EXIT,34 4 ICT S PROCT 14690
* 020047 1000316100 14700 JR ER2,0 PROCT 14700
020054 5600215141 14710 BD1 DEC2,1 PROCT 14710
020061 6400001740 14720 LS 15,32 PROCT 14720
020066 6600001741 14730 SD1 15,1 PROCT 14730
020073 3400001703 14740 CC 15,3 PROCT 14740
* 020100 1000304142 14750 JR EXIT,34 4 IC- S PROCT 14750
* 020105 1000316100 14760 JR ER2,0 PROCT 14760
020112 5600216141 14770 BD1 DEC1,1 PROCT 14770
020117 6400001740 14780 LS 15,32 PROCT 14780
020124 5600216161 14790 BD2 DEC1,1 PROCT 14790
020131 6600003741 14800 SD1 31,1 PROCT 14800
020136 3400001753 14810 CC 15,43 PROCT 14810
* 020143 1000304142 14820 JR EXIT,34 4 BLK. I.C. PROCT 14820 .
* 020150 1000316100 14830 JR ER2,0 PROCT 14830
020155 5600216141 14840 BD1 DEC1,1 PROCT 14840
020162 6400001740 14850 LS 15,32 PROCT 14850
020167 5600216161 14860 BD2 DEC1,1 PROCT 14860
020174 6600001761 14870 SD2 15,1 PROCT 14870
020201 3400003713 14880 CC 31,11 PROCT 14880
* 020206 1000304142 14890 JR EXIT,34 4 BLKIC PROCT 14890
* 020213 1000316100 14900 JR ER2,0 PROCT 14900
020220 5600215104 14910 BA1 DEC2,4 PROCT 14910
020225 5600215164 14920 BD2 DEC2,4 PROCT 14920
020232 6200001724 14930 AM2 15,4 PROCT 14930
020237 7000215644 14940 CB1 DEC1-3,4,4 PROCT 14940
* 020244 1000304142 14950 JR EXIT,34 4 EP BHCP CY A2 PROCT 14950 P
* 020251 1000316100 14960 JR ER2,0 PROCT 14960
020256 5600215103 14970 BA1 DEC2,3 PROCT 14970
020263 5600215164 14980 BD2 DEC2,4 PROCT 14980
020270 4400001400 14990 SC 12,0 PROCT 14990
020275 6200001723 15000 AM2 15,3 PROCT 15000
020302 7000215643 15010 CB1 DEC1-3,3,3 PROCT 15010
* 020307 3002032150 15020 JC $+10,40 0 LAC FAC PROCT 15020 C
* 020314 3002035200 15030 JC $+30,0 PROCT 15030
020321 3400001400 15040 CC 12,0 PROCT 15040
* 020326 3002034042 15050 JC $+10,34 4 EP BM 1 AC CP PC4 PROCT 15050 1
* 020333 3002035200 15060 JC $+15,0 PROCT 15060
* 020340 3002034535 15070 JC $+5,29 R RESET CL�2 PROCT 15070 L
* 020345 1000304126 15080 JR EXIT,22 2 RESET SI�2 PROCT 15080 S
* 020352 1000316100 15090 JR ER2,0 PROCT 15090
020357 5600215104 15100 BA1 DEC2,4 PROCT 15100
020364 5600215163 15110 BD2 DEC2,3 PROCT 15110
020371 6200001724 15120 AM2 15,4 PROCT 15120
020376 7000215643 15130 CB1 DEC1-3,3,3 PROCT 15130
* 020403 3002041542 15140 JC $+10,34 4 M A PROCT 15140
* 020410 3002042700 15150 JC $+15,0 PROCT 15150
020415 3400001410 15160 CC 12,8 PROCT 15160
* 020422 1000304142 15170 JR EXIT,34 4 SEN BM PROCT 15170
* 020427 1000316100 15180 JR ER2,0 PROCT 15180
020434 5600215104 15190 BA1 DEC2,4 A A M PROCT 15190
020441 5600215064 15200 BD2 DEC2-1,4,4 PROCT 15200
020446 6400003740 15210 LS 31,32 PROCT 15210
020453 6200001723 15220 AM2 15,3 PROCT 15220
020460 3400001504 15230 CC 13,4 PROCT 15230
* 020465 3002047742 15240 JC $+10,34 4 I.C. PROCT 15240
* 020472 3002051100 15250 JC $+15,0 PROCT 15250
* 020477 3002051146 15260 JC $+10,38 8 EP PC4 PROCT 15260
* 020504 1000304100 15270 JR EXIT,0 PROCT 15270
* 020511 1000316100 15280 JR ER2,0 PROCT 15280
020516 4400001750 15290 SC 15,40 T1T19 PROCT 15290
020523 4400003710 15300 SC 31,8 PROCT 15300
020530 6200001721 15310 AM2 15,1 PROCT 15310
* 020535 3002055446 15320 JC $+15,38 8 SET EPF PROCT 15320 F
020542 3400001703 15330 CC 15,3 PROCT 15330
* 020547 1000304142 15340 JR EXIT,34 4 BLOCK EPPC4 A2 PROCT 15340 E
* 020554 1000316100 15350 JR ER2,0 PROCT 15350
020561 5600216103 15360 BA1 DEC1,3 T T20 PROCT 15360
020566 5600215463 15370 BD2 DEC1-5,3,3 PROCT 15370
020573 6400003740 15380 LS 31,32 PROCT 15380
020600 6200001723 15390 AM2 15,3 PROCT 15390
* 020605 3002061746 15400 JC $+10,38 8 BLOCK EP PC4 RDL PROCT 15400 E
* 020612 3002063100 15410 JC $+15,0 PROCT 15410
020617 3400001752 15420 CC 15,42 PROCT 15420
* 020624 1000304142 15430 JR EXIT,34 4 RECOMP EP PC4 CP PROCT 15430
* 020631 1000316100 15440 JR ER2,0 PROCT 15440
020636 5600215604 15450 BA1 DEC1-3,4,4 PROCT 15450
020643 5600215164 15460 BD2 DEC2,4 PROCT 15460
020650 6200001764 15470 SM2 15,4 PROCT 15470
020655 7000215144 15480 CB1 DEC2,4 PROCT 15480
* 020662 1000304142 15490 JR EXIT,34 4 IC PROCT 15490
* 020667 1000316100 15500 JR ER2,0 PROCT 15500
020674 5600215104 15510 BA1 DEC2,4 PROCT 15510
020701 5600215164 15520 BD2 DEC2,4 PROCT 15520
020706 6400003740 15530 LS 31,32 PROCT 15530
020713 6200001764 15540 SM2 15,4 PROCT 15540
020720 7000215644 15550 CB1 DEC1-3,4,4 PROCT 15550
* 020725 1000304142 15560 JR EXIT,34 4 BLK IC PROCT 15560
* 020732 1000316100 15570 JR ER2,0 PROCT 15570
020737 5600215146 15580 BD1 DEC2,6 PROCT 15580
020744 2600215146 15590 CD1 DEC2,6 PROCT 15590
* 020751 3002076342 15600 JC $+10,34 4 IC+CP+ PROCT 15600
* 020756 3002077500 15610 JC $+15,0 PROCT 15610
020763 3400001712 15620 CC 15,10 PROCT 15620
* 020770 1000304142 15630 JR EXIT,34 4 BLK. MEM PROCT 15630 E
* 020775 1000316100 15640 JR ER2,0 PROCT 15640
021002 5600216144 15650 BD1 DEC1,4 PROCT 15650
021007 6400001740 15660 LS 15,32 PROCT 15660
021014 2600001744 15670 CD1 15,4 PROCT 15670
* 021021 3002103342 15680 JC $+10,34 4 IC+CP- PROCT 15680
* 021026 3002104500 15690 JC $+15,0 PROCT 15690
* 021033 3002104544 15700 JC $+10,36 6 EP FAL PROCT 15700
* 021040 1000304100 15710 JR EXIT,0 PROCT 15710
* 021045 1000316100 15720 JR ER2,0 PROCT 15720
021052 5600215142 15730 BD1 DEC2,2 PROCT 15730
021057 6400001740 15740 LS 15,32 PROCT 15740
021064 2600215142 15750 CD1 DEC2,2 PROCT 15750
* 021071 3002110344 15760 JC $+10,36 6 M6 HI PROCT 15760
* 021076 3002111500 15770 JC $+15,0 PROCT 15770
* 021103 3002111542 15780 JC $+10,34 4 RESET EQ PROCT 15780 E
* 021110 1000304100 15790 JR EXIT,0 PROCT 15790
* 021115 1000316100 15800 JR ER2,0 PROCT 15800
021122 5600216143 15810 BD1 DEC1,3 PROCT 15810
021127 5600216163 15820 BD2 DEC1,3 PROCT 15820
021134 6400001740 15830 LS 15,32 PROCT 15830
021141 2600001763 15840 CD2 15,3 PROCT 15840
* 021146 3002116041 15850 JC $+10,33 3 M6 HI PROCT 15850
* 021153 3002117200 15860 JC $+15,0 PROCT 15860
* 021160 3002117244 15870 JC $+10,36 6 EP SIGN PROCT 15870 N
* 021165 1000304100 15880 JR EXIT,0 PROCT 15880
* 021172 1000316100 15890 JR ER2,0 PROCT 15890
021177 5600215144 15900 BD1 DEC2,4 PROCT 15900
021204 2600215044 15910 CD1 DEC2-1,4,4 PROCT 15910
* 021211 1000304141 15920 JR EXIT,33 3 CY BLOCK FAC+SF PROCT 15920 C
* 021216 1000316100 15930 JR ER2,0 PROCT 15930
021223 5600215145 15940 BD1 DEC2,5 PROCT 15940
021230 2600215143 15950 CD1 DEC2,3 PROCT 15950
* 021235 1000304141 15960 JR EXIT,33 3 HI PROCT 15960
* 021242 1000316100 15970 JR ER2,0 EPEP BM CY EQ PROCT 15970
021247 5600215142 15980 BD1 DEC2,2 PROCT 15980
021254 2600215144 15990 CD1 DEC2,4 PROCT 15990
* 021261 1000304144 16000 JR EXIT,36 6 SF CY PROCT 16000
* 021266 1000316100 16010 JR ER2,0 EPEP SF CY PROCT 16010
021273 5600216160 16020 BD2 DEC1,0 PROCT 16020
021300 2600216160 16030 CD2 DEC1,0 PROCT 16030
* 021305 1000304142 16040 JR EXIT,34 4 EP FAC - CY PROCT 16040
* 021312 1000316100 16050 JR ER2,0 PROCT 16050
021317 5600217201 16060 BA1 K38,1 01011042 PROCT 16060
021324 5600217321 16070 BA2 K39,1 PROCT 16070
021331 7200001721 16080 AB2 15,1 PROCT 16080
* 021336 1000314745 16090 JR ER1,37 PROCT 16090
* 021343 1000307200 16100 JR NEXT,0 PROCT 16100
021350 5600225101 16110 BA1 K49,1 01011043 PROCT 16110
021355 5600225521 16120 BA2 K49+4,1 1 PROCT 16120
021362 7200001721 16130 AB2 15,1 PROCT 16130
* 021367 1000314745 16140 JR ER1,37 PROCT 16140
* 021374 1000307200 16150 JR NEXT,0 PROCT 16150
021401 4400012705 16160 SC 87,5 CHEHECK MP,009035, IER 2 PROCT 16160 0
021406 5600216161 16170 BD2 DEC1,1 I ICAND 4 PROCT 16170
021413 5000250001 16180 MPN 02500,1 1 402 NON-CUMULATIVE PROCT 16180
021420 7000216341 16190 CB1 K35,1 DEDEC 8,OCT 13 PROCT 16190 T
* 021425 3002143742 16200 JC $+10,34 4 PROCT 16200
* 021432 3002145100 16210 JC $+15,0 PROCT 16210
* 021437 3002145145 16220 JC $+10,37 7 011041, AZ RESET BY S4 PROCT 16220 ,
* 021444 1000304100 16230 JR EXIT,0 PROCT 16230
* 021451 1000316100 16240 JR ER2,0 PROCT 16240
021456 4400012706 16250 SC 87,6 00909035D2-+,036D3-,IER3 PROCT 16250 +
021463 5600215261 16260 BD2 DEC2+1,1,1 ICAND 8, OCT 13 PROCT 16260
021470 5000000001 16270 MPN ,1 PROCT 16270
021475 7000216642 16280 CB1 K36,2 DEDEC 24,OCT 0507 PROCT 16280 C
* 021502 3002151442 16290 JC $+10,34 4 PROCT 16290
* 021507 3002152600 16300 JC $+15,0 PROCT 16300
* 021514 3002152645 16310 JC $+10,37 7 011040, AZ RESET BY S3 PROCT 16310 ,
* 021521 1000304100 16320 JR EXIT,0 PROCT 16320
* 021526 1000316100 16330 JR ER2,0 PROCT 16330
021533 4400012714 16340 SC 87,12 00009035D4-,IER9 PROCT 16340 -
021540 5600214161 16350 BD2 WORK,1 I ICAND 0 PROCT 16350
021545 5000000001 16360 MPN ,1 0X9 N-C PROCT 16360
021552 7000217041 16370 CB1 K37,1 DEDEC 0,OCT 03 PROCT 16370 T
* 021557 3002157142 16380 JC $+10,34 4 PROCT 16380
* 021564 3002157600 16390 JC $+10,0 PROCT 16390
* 021571 1000304145 16400 JR EXIT,37 7 011033 PROCT 16400
* 021576 1000316100 16410 JR ER2,0 PROCT 16410
021603 4400012710 16420 SC 87,8 00909036D4-,IER5 PROCT 16420 ,
021610 5600160661 16430 BD2 K12+1,1 1 ICAND 2,OCT05 PROCT 16430 2
021615 5000000001 16440 MPN ,1 2X5 N-C PROCT 16440
021622 2600217242 16450 CD1 K38,2 OCOCT 0403 PROCT 16450
* 021627 3002164142 16460 JC $+10,34 4 PROCT 16460
* 021634 3002165300 16470 JC $+15,0 PROCT 16470
* 021641 3002165345 16480 JC $+10,37 7 PROCT 16480
* 021646 1000304100 16490 JR EXIT,0 PROCT 16490
* 021653 1000316100 16500 JR ER2,0 PROCT 16500
021660 4400012703 16510 SC 87,3 00909036,IER0 PROCT 16510 R
021665 5600161161 16520 BD2 K12+4,1 1 ICAND 9,OCT14 PROCT 16520 9
021672 5000000001 16530 MPN ,1 9X0 N-C PROCT 16530
021677 2600217241 16540 CD1 K38,1 OCOCT03 PROCT 16540
* 021704 1000304142 16550 JR EXIT,34 4 PROCT 16550
* 021711 1000316100 16560 JR ER2,0 PROCT 16560
021716 5600217462 16570 BD2 K41,2 MIMINUS X MINUS, OCT 0445 PROCT 16570 M
021723 5600217602 16580 BA1 K42,2 OCOCT 0546 PROCT 16580
021730 5200012702 16590 SA1 87,2 PROCT 16590
021735 5000000002 16600 MPN ,2 -12X-23 N-C PROCT 16600
021742 2600220143 16610 CD1 K43,3 OCOCT 051211 PROCT 16610 1
* 021747 3002176142 16620 JC $+10,34 4 PROCT 16620
* 021754 3002177300 16630 JC $+15,0 PROCT 16630
* 021761 3002177346 16640 JC $+10,38 8 PROCT 16640
* 021766 1000304100 16650 JR EXIT,0 PROCT 16650
* 021773 1000316100 16660 JR ER2,0 PROCT 16660
022000 5600220564 16670 BD2 K44,4 MIMINUS X PLUS, OCT 06071051 PROCT 16670 P
022005 5600221104 16680 BA1 K45,4 OCOCT 11121314 PROCT 16680 1
022012 5200012704 16690 SA1 87,4 PROCT 16690
022017 5000000004 16700 MPN ,4 -3456X6789 N-C PROCT 16700
022024 2600222150 16710 CD1 K46,8 OCOCT 0506071105121347 PROCT 16710 0
* 022031 3002204342 16720 JC $+10,34 4 PROCT 16720
* 022036 3002205000 16730 JC $+10,0 PROCT 16730
* 022043 1000304146 16740 JR EXIT,38 8 PROCT 16740
* 022050 1000316100 16750 JR ER2,0 PROCT 16750
022055 5600223170 16760 BD2 K47,8 PLPLUSXMINUS, OCT 141210 PROCT 16760 U
022062 5600224110 16770 BA1 K48,8 060604030507 PROCT 16770 0
022067 5200012710 16780 SA1 87,8 111113141112071045 PROCT 16780 2
022074 5000000000 16790 MPN ,0 PROCT 16790
022101 2600226140 16800 CD1 K51,16 O OCT 1112051107111105 PROCT 16800 2
* 022106 3002212042 16810 JC $+10,34 4 0411050603130753 PROCT 16810 0
* 022113 3002212500 16820 JC $+10,0 PROCT 16820
* 022120 1000304146 16830 JR EXIT,38 8 PROCT 16830
* 022125 1000316100 16840 JR ER2,0 PROCT 16840
* 022132 1002247164 16850 RANDM JR PRINT,5252 RANDOM MULTIPLY PROCT 16850
022137 4402236477 16860 SC CTR+4,6363 PROCT 16860
022144 4402237677 16870 SC CTR+14,6,63 PROCT 16870
022151 4402225620 16880 3 SC NXT+29,1,16 PROCT 16880
022156 5600223140 16890 BD1 K47,16 PROCT 16890
022163 5200013710 16900 SA1 95,8 PROCT 16900
022170 5600000730 16910 BA2 7,8 PROCT 16910
* 022175 1000307200 16920 JR NEXT,0 PROCT 16920
022202 4402232102 16930 AGAIN SC $+79,2 PROCT 16930
022207 5600013710 16940 BA1 95,8 PROCT 16940
022214 5200000730 16950 SA2 7,8 PROCT 16950
022221 2000000011 16960 NXT FT 0,9 PROCT 16960
022226 3420000003 16970 CC 0,3,1 PROCT 16970
* 022233 3002224544 16980 JC $+10,36 6 PROCT 16980
022240 4420000012 16990 SC 0,10,1 PROCT 16990
022245 6000004701 17000 AC 39,1 PROCT 17000
* 022252 3202222620 17010 JL NXT+5,1616 PROCT 17010
022257 4402225620 17020 SC $-1,16 PROCT 17020
022264 5200012710 17030 SA1 87,8 PROCT 17030
022271 5200013710 17040 SA1 95,8 PROCT 17040
022276 5600000770 17050 BD2 7,8 PROCT 17050
022303 5000000010 17060 MPN ,8 PROCT 17060
* 022310 1002247164 17070 JR PRINT,5252 PROCT 17070
* 022315 3202243502 17080 JL SWAP,2 PROCT 17080
022322 4402232102 17090 SC $-1,2 PROCT 17090
022327 2600245340 17100 CD1 PROD,16 6 PROCT 17100
* 022334 1000304142 17110 JR EXIT,34 4 PROCT 17110
* 022341 1000316100 17120 JR ER2,0 PROCT 17120
022346 2002220207 17130 FT AGAIN,7 7 PROCT 17130
022353 5200312323 17140 SA2 REP+3,3 3 PROCT 17140
* 022360 3202222177 17150 CTR JL NXT,63 PROCT 17150
022365 4402236477 17160 SC $-1,63 PROCT 17160
* 022372 3202222177 17170 JL NXT,63 PROCT 17170
022377 4402237677 17180 SC $-1,63 PROCT 17180
022404 2600230140 17190 CD1 K52,16 PROCT 17190
* 022411 1000304142 17200 JR EXIT,34 4 PROCT 17200
* 022416 1000316100 17210 JR ER2,0 PROCT 17210
022423 4402247702 17220 SC PRINT+9,9,2 PROCT 17220
* 022430 3002261300 17230 JC CUMT,0 PROCT 17230
022435 5200245300 17240 SWAP SA1 PROD,16 6 PROCT 17240
022442 5600003710 17250 BA1 31,8 PROCT 17250
022447 5600013730 17260 BA2 95,8 PROCT 17260
022454 5200000730 17270 SA2 7,8 PROCT 17270
* 022461 3002222100 17280 JC NXT,0 PROCT 17280
* 022466 3002246600 17290 PRINT JC $,0 PROCT 17290
* 022473 3202254302 17300 JL TITLE,2 2 PROCT 17300
022500 4202732026 17310 ST PTMP+16,6,22 PROCT 17310
022505 4202732427 17320 ST PTMP+20,0,23 PROCT 17320
022512 5202734230 17330 SA2 PTMP+34,4,8 PROCT 17330
022517 5202736600 17340 SA1 PTMP+54,4,16 PROCT 17340
* 022524 3002751400 17350 J KEYY1 PROCT 17350
* 022531 3002246600 17360 JC PRINT,0 0 PROCT 17360
* 022536 3002246600 17370 JC PRINT,0 0 PROCT 17370
022543 2002730040 17380 TITLE FT PTMP,32 2 PROCT 17380
022550 4400020701 17390 SC 0207,1 PROCT 17390
022555 2000004422 17400 FT 36,18 PROCT 17400
022562 2002731620 17410 FT PTMP+14,4,16 PROCT 17410
022567 2400245401 17420 TFR PROD+1,1,1 PROCT 17420
022574 2602731504 17430 PD PTMP+13,3,4 PROCT 17430
022601 2602737706 17440 PD PTMP+63,3,6 PROCT 17440
* 022606 3002252400 17450 JC PRINT+3030,0 PROCT 17450
022613 5600221240 17460 CUMT BD1 K45+1,1616 CUMULATIVE MULTIPLY TEST PROCT 17460 A
022620 5200012710 17470 SA1 87,8 PROCT 17470
022625 5600222170 17480 BD2 K46,8 PROCT 17480
022632 5000000030 17490 MPC ,8 PROCT 17490
022637 2600232140 17500 CD1 K53,16 PROCT 17500
* 022644 1000304142 17510 JR EXIT,34 4 PROCT 17510
* 022651 1000316100 17520 JR ER2,0 PROCT 17520
* 022656 3000237352 17530 JC ZERO,42 2 011 033 BAZ- PROCT 17530
022663 2600001720 17540 PD0 15,16 PROCT 17540
022670 2600012730 17550 PD0 87,8 PROCT 17550
022675 5600214261 17560 BD2 WORK+1,1,1 PROCT 17560
022702 5000000021 17570 MPC ,1 PROCT 17570
* 022707 1000314745 17580 JR ER1,37 PROCT 17580
* 022714 1000307200 17590 JR NEXT,0 PROCT 17590
* 022721 3000665452 17600 JC AZ,42 011 040 BAZ- PROCT 17600
022726 5600214461 17610 BD2 WORK+3,1,1 PROCT 17610
022733 2600001720 17620 PD0 15,16 PROCT 17620
022740 4400012705 17630 SC 87,5 PROCT 17630
022745 5000000021 17640 MPC ,1 2X2- PROCT 17640
* 022752 1000304145 17650 JR EXIT,37 7 PROCT 17650
* 022757 1000316100 17660 JR ER2,0 PROCT 17660
* 022764 3000665452 17670 JC AZ,42 011 041 BAZ- PROCT 17670
022771 5600214461 17680 BD2 WORK+3,1,1 PROCT 17680
022776 2600001720 17690 PD0 15,16 PROCT 17690
023003 5000000021 17700 MPC ,1 2X4 PROCT 17700
* 023010 1000304145 17710 JR EXIT,37 7 PROCT 17710
* 023015 1000316100 17720 JR ER2,0 PROCT 17720
* 023022 3002302734 17730 JC $+5,28 010 159 TEST DOF WITH PROCT 17730
023027 5600223777 17740 BD2 K48-2,1515 CY, CM - PROCT 17740
023034 5600217502 17750 BA1 K42-1,2 2 PROCT 17750
023041 5200012702 17760 SA1 0127,2 PROCT 17760
023046 5000000002 17770 MPN ,2 PROCT 17770
* 023053 3002306550 17780 JC $+10,40 0 PROCT 17780
* 023060 1000314700 17790 JR ER1,0 PROCT 17790
* 023065 1000307237 17800 JR NEXT,31 1 PROCT 17800
* 023072 3002307734 17810 JC $+5,28 T TEST DOF WITH CM, CY- PROCT 17810 F
023077 5600222077 17820 BD2 K46-1,1515 PROCT 17820
023104 5600225102 17830 BA1 K49,2 PROCT 17830
023111 5200012702 17840 SA1 0127,2 PROCT 17840
023116 5000000002 17850 MPN ,2 PROCT 17850
* 023123 3002313550 17860 JC $+10,40 0 PROCT 17860
* 023130 1000314700 17870 JR ER1,0 PROCT 17870
* 023135 1000307237 17880 JR NEXT,31 1 PROCT 17880
023142 4600221125 17890 BT K45,21 C CHECK DIVIDE, PLUS PLUS PROCT 17890 I
023147 5600217301 17900 BA1 K39,1 PROCT 17900
023154 2600001621 17910 PD0 14,1 PROCT 17910
023161 5600220261 17920 BD2 K43+1,1 1 PROCT 17920
023166 5000000041 17930 DV 0, 1 1 3 3 PROCT 17930
023173 5600012721 17940 BA2 87,1 PROCT 17940
023200 7000217261 17950 CB2 K38,1 Q QUOTIENT OCT 03 PROCT 17950 T
* 023205 3002321742 17960 JC $+10,34 4 PROCT 17960
* 023212 3002326200 17970 JC $+40,0 PROCT 17970
023217 4400001663 17980 SC 14,51 PROCT 17980
023224 2600217341 17990 CD1 K39,1 REREMAINDER OCT 04 PROCT 17990 R
* 023231 3002324342 18000 JC $+10,34 4 PROCT 18000
* 023236 3002326200 18010 JC $+20,0 PROCT 18010
* 023243 3002326245 18020 JC $+15,37 7 AZ RESET PROCT 18020 E
* 023250 3002326246 18030 JC $+10,38 8 AN RESET PROCT 18030 E
* 023255 1000304100 18040 JR EXIT,0 PROCT 18040
* 023262 1000316100 18050 JR ER2,0 PROCT 18050
023267 4600230325 18060 BT K52+2,2121 PLUS MINUS PROCT 18060
023274 5600220303 18070 BA1 K43+2,3 3 OCT 110607 PROCT 18070 1
023301 2600001422 18080 PD0 12,2 PROCT 18080
023306 5600232362 18090 BD2 K54,2 OCOCT 0552 PROCT 18090
023313 5000000042 18100 DV 0, 2 63634 -27 PROCT 18100
023320 5600012722 18110 BA2 87,2 PROCT 18110
023325 2600217662 18120 CD2 K42,2 QUQUOTIENT OCT 0546 PROCT 18120
* 023332 3002334442 18130 JC $+10,34 4 PROCT 18130
* 023337 3002337500 18140 JC $+30,0 PROCT 18140
023344 4400001563 18150 SC 13,51 PROCT 18150
023351 2600231442 18160 CD1 K53-5,2 2 REMAINDER OCT 0406 PROCT 18160 N
* 023356 3002337042 18170 JC $+10,34 4 PROCT 18170
* 023363 3002337500 18180 JC $+10,0 PROCT 18180
* 023370 1000304146 18190 JR EXIT,38 8 PROCT 18190
* 023375 1000316100 18200 JR ER2,0 PROCT 18200
023402 4600221125 18210 BT K45,21 MINUS PLUS PROCT 18210 P
023407 5600222107 18220 BA1 K46,7 O OCT 06071105121347 PROCT 18220 7
023414 2600001021 18230 PD0 8,1 PROCT 18230
023421 5600220164 18240 BD2 K43,4 O OCT 06051211 PROCT 18240 5
023426 5000000044 18250 DV 0, 4 343462784- 3276 PROCT 18250
023433 5600012724 18260 BA2 87,4 PROCT 18260
023440 7000233164 18270 CB2 K56,4 Q QUOTIENT OCT 04031052 PROCT 18270 T
* 023445 3002345742 18280 JC $+10,34 4 PROCT 18280
* 023452 3002351000 18290 JC $+30,0 PROCT 18290
023457 4400001363 18300 SC 11,51 PROCT 18300
023464 2600233544 18310 CD1 K57,4 R REMAINDER OCT 03031045 PROCT 18310 E
* 023471 3002350342 18320 JC $+10,34 4 PROCT 18320
* 023476 3002351000 18330 JC $+10,0 PROCT 18330
* 023503 1000304146 18340 JR EXIT,38 8 PROCT 18340
* 023510 1000316100 18350 JR ER2,0 PROCT 18350
023515 5600215210 18360 BA1 DEC2+1,8,8 MINUS MINUS PROCT 18360 S
023522 5200012710 18370 SA1 87,8 PROCT 18370
023527 5600222110 18380 BA1 K46,8 O OCT 0506071105121347 PROCT 18380 6
023534 5600222166 18390 BD2 K46,6 O OCT 071105121347 PROCT 18390 1
023541 5000000042 18400 DV 0, 2 -2-23462784 -462784 PROCT 18400 4
023546 5600012730 18410 BA2 87,8 PROCT 18410
023553 7000234570 18420 CB2 K58+1,8 8 OCT 0405060710111003 PROCT 18420 0
* 023560 3002357242 18430 JC $+10,34 4 PROCT 18430
* 023565 3002363000 18440 JC $+35,0 PROCT 18440
023572 4400001063 18450 SC 8,51 PROCT 18450
023577 2600235346 18460 CD1 K59,6 O OCT 060506101347 PROCT 18460 5
* 023604 3002361642 18470 JC $+10,34 4 PROCT 18470
* 023611 3002363000 18480 JC $+15,0 PROCT 18480
* 023616 3002363046 18490 JC $+10,38 8 PROCT 18490
* 023623 1000304100 18500 JR EXIT,0 PROCT 18500
* 023630 1000316100 18510 JR ER2,0 PROCT 18510
* 023635 3002364234 18520 JC $+5,28 0 010157, TEST DOF PROCT 18520
023642 5600220102 18530 BA1 K43,2 O OCT 1211 PROCT 18530 1
023647 5600225161 18540 BD2 K49,1 O OCT 05 PROCT 18540
023654 5000000041 18550 DV 0, 1 7676 2 PROCT 18550
* 023661 3002367350 18560 JC $+10,40 0 PROCT 18560
* 023666 1000314700 18570 JR ER1,0 PROCT 18570
* 023673 1000307237 18580 JR NEXT,31 1 PROCT 18580
023700 4600230325 18590 BT K52+2,2121 CHECK ZERO REMAINDER PROCT 18590
023705 5600223303 18600 BA1 K47+2,3 3 OCT 071113 PROCT 18600 7
023712 2600001421 18610 PD0 12,1 PROCT 18610
023717 5600221463 18620 BD2 K45+3,3 3 OCT 050607 PROCT 18620 0
023724 5000000041 18630 DV 0, 1 46468-234 PROCT 18630
023731 5600012721 18640 BA2 87,1 PROCT 18640
023736 7000225161 18650 CB2 K49,1 QUQUOTIENT OCT 05 PROCT 18650
* 023743 3002375542 18660 JC $+10,34 4 PROCT 18660
* 023750 3002400600 18670 JC $+30,0 PROCT 18670
023755 4400001463 18680 SC 12,51 PROCT 18680
023762 2600176043 18690 CD1 CON2+3,3,3 REMAINDER OCT 030303 PROCT 18690 I
* 023767 3002400142 18700 JC $+10,34 4 PROCT 18700
* 023774 3002400600 18710 JC $+10,0 PROCT 18710
* 024001 1000304145 18720 JR EXIT,37 7 PROCT 18720
* 024006 1000316100 18730 JR ER2,0 PROCT 18730
024013 4600225125 18740 BT K49,21 C CHECK FAC PROCT 18740 A
024020 5600223140 18750 BD1 K47,16 2 2346278497531024 PROCT 18750 4
024025 5600225170 18760 BD2 K49,8 DEDEC 67264662 PROCT 18760 4
024032 5000000050 18770 DV 0, 8 PROCT 18770
024037 5600012730 18780 BA2 87,8 PROCT 18780
024044 7000252770 18790 CB2 K61+7,8 8 QUOTIENT 34881294 PROCT 18790 N
* 024051 3002406342 18800 JC $+10,34 4 PROCT 18800
* 024056 3002410200 18810 JC $+20,0 PROCT 18810
024063 4400000763 18820 SC 7,51 PROCT 18820
024070 2600253750 18830 CD1 K62+7,8 8 REMAINDER 46498396 PROCT 18830 D
* 024075 1000304142 18840 JR EXIT,34 4 PROCT 18840
* 024102 1000316100 18850 JR ER2,0 PROCT 18850
024107 2600004102 18860 PD 041,2 CHCHECK CS,77+00 PROCT 18860 ,
024114 3600255602 18870 CS K63-1,2 2 PROCT 18870
024121 5600004102 18880 BA1 041,2 PROCT 18880
024126 7000255642 18890 CB1 K63-1,2 2 7777 PROCT 18890
* 024133 1000304142 18900 JR EXIT,34 4 PROCT 18900
* 024140 1000316100 18910 JR ER2,0 PROCT 18910
024145 2600004102 18920 PD 041,2 0000+00 PROCT 18920
024152 3600256102 18930 CS K63+2,2 2 PROCT 18930
024157 5600004102 18940 BA1 041,2 PROCT 18940
024164 7000237342 18950 CB1 ZERO,2 0 0000 PROCT 18950
* 024171 1000304142 18960 JR EXIT,34 4 PROCT 18960
* 024176 1000316100 18970 JR ER2,0 PROCT 18970
024203 4600255710 18980 BT K63,8 77+77,00+00 PROCT 18980
024210 3600255602 18990 CS K63-1,2 2 PROCT 18990
024215 5600004102 19000 BA1 041,2 PROCT 19000
024222 7000237342 19010 CB1 ZERO,2 PROCT 19010
* 024227 1000304142 19020 JR EXIT,34 4 PROCT 19020
* 024234 1000316100 19030 JR ER2,0 PROCT 19030
024241 4600255710 19040 BT K63,8 00+77 PROCT 19040
024246 3600237310 19050 CS ZERO,8 PROCT 19050
024253 5600004102 19060 BA1 041,2 PROCT 19060
024260 7000255642 19070 CB1 K63-1,2 2 7777 PROCT 19070
* 024265 1000304142 19080 JR EXIT,34 4 PROCT 19080
* 024272 1000316100 19090 JR ER2,0 PROCT 19090
024277 2600004102 19100 PD 041,2 STSTART EVEN,COUNT 64 PROCT 19100 E
024304 3600231000 19110 CS K52+7,0 0 PROCT 19110
024311 2000420103 19120 FT 04201,3 3 PROCT 19120
024316 7000004142 19130 CB1 041,2 OCOCT 3576 PROCT 19130
* 024323 1000304142 19140 JR EXIT,34 4 PROCT 19140
* 024330 1000316100 19150 JR ER2,0 PROCT 19150
024335 2600004102 19160 PD 041,2 STSTART ODD,COUNT 64 PROCT 19160 D
024342 3600230700 19170 CS K52+6,0 0 PROCT 19170
024347 2000421703 19180 FT 04217,3 3 PROCT 19180
024354 7000004142 19190 CB1 041,2 OCOCT 3560 PROCT 19190
* 024361 1000304142 19200 JR EXIT,34 4 PROCT 19200
* 024366 1000316100 19210 JR ER2,0 PROCT 19210
024373 2600007700 19220 PD 077,16 CK. NO INDEX 009 080 PROCT 19220
024400 2600005700 19230 PD 057,16 PROCT 19230
024405 4400004705 19240 SC 047,5 IR=1 PROCT 19240
024412 4400005305 19250 SC 053,5 IR=2 PROCT 19250
024417 4400006305 19260 SC 063,5 IR=4 PROCT 19260
* 024424 3002443100 19270 J $+5 PROCT 19270
* 024431 1000304100 19280 JR EXIT,0 PROCT 19280
* 024436 1000316100 19290 JR ER2,0 PROCT 19290
024443 2000255711 19300 FT K63,9 IR=1 009 080 M5- PROCT 19300
024450 5620000001 19310 BA1 0,1,1 PROCT 19310
024455 7000255741 19320 CB1 K63,1 PROCT 19320
* 024462 1000304142 19330 JR EXIT,34 4 PROCT 19330
* 024467 1000316100 19340 JR ER2,0 PROCT 19340
024474 2000154212 19350 FT K03,10 IR=2 009 080 M6- PROCT 19350
024501 5640000001 19360 BA1 0,1,2 PROCT 19360
024506 7000154241 19370 CB1 K03,1 PROCT 19370
* 024513 1000304142 19380 JR EXIT,34 4 PROCT 19380
* 024520 1000316100 19390 JR ER2,0 PROCT 19390
024525 2000167014 19400 FT K31,12 IR=4 009 080 J1- PROCT 19400
024532 5700000001 19410 BA1 0,1,4 PROCT 19410
024537 7000167041 19420 CB1 K31,1 PROCT 19420
* 024544 1000304142 19430 JR EXIT,34 4 PROCT 19430
* 024551 1000316100 19440 JR ER2,0 PROCT 19440
024556 2000007711 19450 FT 63,9 PROCT 19450
024563 4020410000 19460 XF 041,00,0,00,1 READER MUST BE OFF LINE PROCT 19460
024570 4020000000 19470 XF 000,00,0,00,1 PROCT 19470
* 024575 1000314753 19480 JR ER1,43 PROCT 19480
* 024602 1000307200 19490 JR NEXT,0 PROCT 19490
024607 2000007717 19500 FT 63,15 IR=7 009 082 F4- PROCT 19500
024614 6160000001 19510 AC 0,1,7 PROCT 19510
024621 3400007700 19520 CC 63,0 PROCT 19520
* 024626 1000304142 19530 JR EXIT,34 4 PROCT 19530
* 024633 1000316100 19540 JR ER2,0 PROCT 19540
024640 2600001721 19550 PD0 15,1 PROCT 19550
024645 2000001713 19560 FT 15,11 IR=3 009 082 F2- PROCT 19560
024652 5460000000 19570 LP 0,0,3 PROCT 19570
024657 3400001700 19580 CC 15,0 PROCT 19580
* 024664 1000304142 19590 JR EXIT,34 4 PROCT 19590
* 024671 1000316100 19600 JR ER2,0 PROCT 19600
024676 2000004716 19610 FT 047,14 IR=6 009 082 F1- PROCT 19610
024703 4340000016 19620 ST 0,14,6 PROCT 19620
024710 7400004716 19630 CT 047,14 PROCT 19630
* 024715 1000304142 19640 JR EXIT,34 4 PROCT 19640
* 024722 1000316100 19650 JR ER2,0 PROCT 19650
024727 2005000015 19660 FT 050000,1,13 IR=5 015 085 EPF- PROCT 19660
024734 2120000003 19670 FT 0,3,5 PROCT 19670
024741 7000006743 19680 CB1 067,3 PROCT 19680
* 024746 1000304142 19690 JR EXIT,34 4 PROCT 19690
* 024753 1000316100 19700 JR ER2,0 PROCT 19700
024760 2000770015 19710 FT 07700,1313 IR=5 041 022 1 TO M6 PROCT 19710
024765 2120000003 19720 FT 0,3,5 PROCT 19720
024772 7000006743 19730 CB1 067,3 PROCT 19730
* 024777 1000304142 19740 JR EXIT,34 4 PROCT 19740
* 025004 1000316100 19750 JR ER2,0 PROCT 19750
025011 2000007715 19760 FT 077,13 IR=5 Z-1 024 002 PROCT 19760
025016 2120000003 19770 FT 0,3,5 PROCT 19770
025023 7000006743 19780 CB1 067,3 PROCT 19780
* 025030 1000304142 19790 JR EXIT,34 4 PROCT 19790
* 025035 1000316100 19800 JR ER2,0 PROCT 19800
025042 2007777711 19810 FT 077777,9,9 IR=1 035 060 PROCT 19810
025047 2020000103 19820 FT 1,3,1 PROCT 19820
025054 7000237343 19830 CB1 ZERO,3 PROCT 19830
* 025061 1000304142 19840 JR EXIT,34 4 PROCT 19840
* 025066 1000316100 19850 JR ER2,0 PROCT 19850
025073 2600004704 19860 PD 047,4 _O_ TO CY 035 072 PROCT 19860
025100 2000000011 19870 FT 0,9 PROCT 19870
025105 7400237311 19880 CT ZERO,9 PROCT 19880
* 025112 1000304142 19890 JR EXIT,34 4 PROCT 19890
* 025117 1000316100 19900 JR ER2,0 PROCT 19900
025124 2000000011 19910 FT 0,9 Y-1 025 051 PROCT 19910
025131 2020000011 19920 FT 0,9,1 PROCT 19920
025136 7400237311 19930 CT ZERO,9 PROCT 19930
* 025143 1000304142 19940 JR EXIT,34 4 PROCT 19940
* 025150 1000316100 19950 JR ER2,0 PROCT 19950
* 025155 3000327600 19960 JC OKAY,0 CHANGE TO ASKIP TO PROCT 19960
025162 5604000001 19970 BA1 040000,1,1 125340 TEST INTERRUPTS PROCT 19970 0
* 025167 3002520165 19980 JC $+10,53 3 PUT BAD PARITY IN PROCT 19980
* 025174 3002521300 19990 J $+15 OCT 40000 + 77777 AND PROCT 19990
* 025201 3002520625 20000 JC $+5,21 PUT READER OFF LINE PROCT 20000 P
* 025206 1000304136 20010 JR EXIT,30 0 PROCT 20010
* 025213 1000316100 20020 JR ER2,0 PROCT 20020
* 025220 3000730452 20030 JC DOF,42 1 125046 PROCT 20030
* 025225 3002523766 20040 JC $+10,54 4 PROCT 20040
* 025232 3002525600 20050 J $+20 PROCT 20050
* 025237 3002524450 20060 JC $+5,40 PROCT 20060
* 025244 3002525135 20070 JC $+5,29 PROCT 20070
* 025251 1000304126 20080 JR EXIT,22 2 PROCT 20080
* 025256 1000316100 20090 JR ER2,0 PROCT 20090
* 025263 3000730452 20100 JC DOF,42 1 125046 IR2- PROCT 20100 I
* 025270 3002527526 20110 JC $+5,22 PROCT 20110
* 025275 3002531466 20120 JC $+15,54 4 PROCT 20120
* 025302 1002617000 20130 JR CL2,0 PROCT 20130
* 025307 1000304100 20140 JR EXIT,0 PROCT 20140
* 025314 1000316100 20150 JR ER2,0 PROCT 20150
025321 5604000001 20160 BA1 040000,1,1 125046 IR1- PROCT 20160 6
* 025326 3000730452 20170 JC DOF,42 PROCT 20170
* 025333 3002535266 20180 JC $+15,54 4 PROCT 20180
* 025340 1002617000 20190 JR CL2,0 PROCT 20190
* 025345 1000304100 20200 JR EXIT,0 PROCT 20200
* 025352 1000316100 20210 JR ER2,0 PROCT 20210
025357 5604000001 20220 BA1 040000,1,1 125 047 IR1- PROCT 20220
* 025364 3000730452 20230 JC DOF,42 PROCT 20230
* 025371 3002537636 20240 JC $+5,30 PROCT 20240
* 025376 1002617066 20250 JR CL2,54 PROCT 20250
* 025403 1000307200 20260 JR NEXT,0 PROCT 20260
025410 4400041424 20270 SC 0414,20 0 125052 PROCT 20270 1
025415 4020410000 20280 XF 041,00,0,00,1 PROCT 20280
* 025422 3002543467 20290 JC $+10,55 5 PROCT 20290
* 025427 3002544124 20300 JC $+10,20 0 PROCT 20300
* 025434 3002544127 20310 JC $+5,23 PROCT 20310
* 025441 1000307231 20320 JR NEXT,25 5 PROCT 20320
* 025446 3000730452 20330 JC DOF,42 1 125052 IR2- PROCT 20330 I
* 025453 3002546050 20340 JC $+5,40 PROCT 20340
025460 4020410000 20350 XF 041,00,0,00,1 PROCT 20350
* 025465 3002551167 20360 JC $+20,55 5 PROCT 20360
* 025472 1002617000 20370 JR CL2,0 PROCT 20370
* 025477 3002550427 20380 JC $+5,23 PROCT 20380
* 025504 1000304131 20390 JR EXIT,25 5 PROCT 20390
* 025511 1000316100 20400 JR ER2,0 PROCT 20400
025516 5604000001 20410 BA1 040000,1,1 125052 IR1- PROCT 20410 2
025523 4020410000 20420 XF 041,00,0,00,1 PROCT 20420
* 025530 3002555467 20430 JC $+20,55 5 PROCT 20430
* 025535 1002617000 20440 JR CL2,0 PROCT 20440
* 025542 3002554727 20450 JC $+5,23 PROCT 20450
* 025547 1000304131 20460 JR EXIT,25 5 PROCT 20460
* 025554 1000316100 20470 JR ER2,0 PROCT 20470
025561 4020410000 20480 XF 041,00,0,00,1 125052 IR3- PROCT 20480 5
* 025566 3002557327 20490 JC $+5,23 PROCT 20490
025573 4020410000 20500 XF 041,00,0,00,1 PROCT 20500
* 025600 3002561767 20510 JC $+15,55 5 PROCT 20510
* 025605 3002561231 20520 JC $+5,25 PROCT 20520
* 025612 3002561727 20530 JC $+5,23 PROCT 20530
* 025617 1000307231 20540 JR NEXT,25 5 PROCT 20540
* 025624 3002563132 20550 JC $+5,26 1 125052 IOS3- PROCT 20550 I
025631 4020410000 20560 XF 041,00,0,00,1 PROCT 20560
* 025636 3000314467 20570 JC ER1,55 PROCT 20570
* 025643 3002565033 20580 JC $+5,27 PROCT 20580
* 025650 3002565527 20590 JC $+5,23 PROCT 20590
* 025655 1000307231 20600 JR NEXT,25 5 PROCT 20600
025662 5604000001 20610 BA1 040000,1,1 125 053 IR1- PROCT 20610
025667 4020410000 20620 XF 041,00,0,00,1 PROCT 20620
* 025674 3002570136 20630 JC $+5,30 PROCT 20630
* 025701 1002617067 20640 JR CL2,55 PROCT 20640
* 025706 3002571327 20650 JC $+5,23 PROCT 20650
* 025713 1000307231 20660 JR NEXT,25 5 PROCT 20660
* 025720 3000730452 20670 JC DOF,42 125 053 IR2- PROCT 20670 0
025725 4020410000 20680 XF 041,00,0,00,1 125 053 IRQ- PROCT 20680
* 025732 3002573750 20690 JC $+5,40 PROCT 20690
* 025737 3002574435 20700 JC $+5,29 PROCT 20700
* 025744 1002617067 20710 JR CL2,55 PROCT 20710
* 025751 3002575627 20720 JC $+5,23 PROCT 20720
025756 4400041431 20730 SC 0414,25 5 PROCT 20730
* 025763 1000307231 20740 JR NEXT,25 5 PROCT 20740
025770 2000000522 20750 FT 5,18 061616101 LAO- PROCT 20750 A
025775 2003777320 20760 FT 037773,1,16 PROCT 20760
026002 2403777301 20770 TFR 037773 PROCT 20770
* 026007 1000307200 20780 JR NEXT,0 PROCT 20780
026014 2603777723 20790 PD0 037777,3,3 008060EFBL PROCT 20790 0
026021 2203777543 20800 ZS 037775,3,3 PROCT 20800
* 026026 1000307200 20810 JR NEXT,0 PROCT 20810
026033 4400000430 20820 SC 04,030 013 085 AC21- PROCT 20820 0
026040 5602605604 20830 BA1 $+14,4 PROCT 20830
026045 5200001004 20840 SA1 010,4 PROCT 20840
026052 3402606400 20850 CC $+10,0 PROCT 20850
026063 1000000200 20860 +5 0100000000200 PROCT 20860
* 026064 1000307200 20870 JR NEXT,0 PROCT 20870
* 026071 3004000040 20880 JC 040000,3,32 151079 BEEP PROCT 20880 7
* 026076 1000307200 20890 JR NEXT,0 PROCT 20890
* 026103 3000327600 20900 J OKAY CHANGE TO A SKIP IF PROCT 20900 A
026110 4400001330 20910 SC 11,030 MEM. IS LARGER THAN 16K. PROCT 20910
026115 4602612603 20920 BT $+9,3 PROCT 20920
026122 3402614123 20930 CC $+15,19 9 PROCT 20930
026127 5204000705 20940 SA1 040007,5,5 PROCT 20940
* 026134 3004000300 20950 JC 040003,0,0 PROCT 20950
* 026141 3002615366 20960 JC $+10,54 4 PROCT 20960
* 026146 1000314700 20970 JR ER1,0 PROCT 20970
* 026153 1000307226 20980 JR NEXT,22 2 PROCT 20980
* 026160 3000327600 20990 J OKAY,0 PROCT 20990
* 026165 3002616525 21000 CL2 JC $,21 PROCT 21000
* 026172 3002617750 21010 JC $+5,40 PROCT 21010
* 026177 3002620435 21020 JC $+5,29 PROCT 21020
* 026204 3002621126 21030 JC $+5,22 PROCT 21030
* 026211 3002616536 21040 JC CL2,30 PROCT 21040
026300 21050 ORIG 026300 PROCT 21050
* 026300 1002631000 21060 CONSL JR $+5,0 CHECK BASIC JUMP RETURN PROCT 21060
* 026305 3000003060 21070 JC 24,48 PROCT 21070
* 026312 3000250040 21080 JC 02500,3232 PROCT 21080
026317 2002630503 21090 FT CONSL+5,5,3 PROCT 21090
026324 7002631043 21100 CB1 $-12,3 PROCT 21100
* 026331 3002634342 21110 JC $+10,34 4 PROCT 21110
* 026336 3002633660 21120 JC $,48 PROCT 21120
026343 3402634300 21130 CC $,0 PROCT 21130
* 026350 3002635525 21140 JC $+5,21 C CHECK SI1, RESET PROCT 21140 I
* 026355 3002636222 21150 JC $+5,18 S SET PROCT 21150
* 026362 3002637465 21160 JC $+10,53 3 TEST PROCT 21160
* 026367 3002636760 21170 STP04 JC $,48 PROCT 21170
* 026374 3002640125 21180 JC $+5,21 R RESET PROCT 21180
* 026401 3002640165 21190 JC $,53 SI1I1 RESET ERROR PROCT 21190
* 026406 3002641326 21200 JC $+5,22 C CHECK SI2 PROCT 21200 I
* 026413 3002642023 21210 JC $+5,19 PROCT 21210
* 026420 3002643266 21220 JC $+10,54 4 PROCT 21220
* 026425 3002642560 21230 STP05 JC $,48 PROCT 21230
* 026432 3002643726 21240 JC $+5,22 PROCT 21240
* 026437 3002643766 21250 JC $,54 SI2I2 RESET ERROR PROCT 21250
* 026444 3002645127 21260 JC $+5,23 C CHECK SI3 PROCT 21260 I
* 026451 3002645624 21270 JC $+5,20 PROCT 21270
* 026456 3002647067 21280 JC $+10,55 5 PROCT 21280
* 026463 3002646360 21290 STP06 JC $,48 PROCT 21290
* 026470 3002647527 21300 JC $+5,23 PROCT 21300
* 026475 3002647567 21310 JC $,55 SI3I3 RESET ERROR PROCT 21310
* 026502 3002650260 21320 STP07 JC $,48 SETET SS1,2,3,TI,OP REQ, PROCT 21320 ,
* 026507 3002651426 21330 JC $+5,22 PROCT 21330
* 026514 3002652662 21340 JC $+10,50 0 CHECK SS1 PROCT 21340 S
* 026521 3002652160 21350 STP08 JC $,48 PROCT 21350
* 026526 3002652642 21360 JC $,34 01313041J1 PROCT 21360
* 026533 3002653376 21370 JC $,62 01313041LU0 PROCT 21370
* 026540 3002654061 21380 JC $,49 01313041LD2 PROCT 21380
* 026545 3002655763 21390 JC $+10,51 1 CHECK SS2 PROCT 21390 S
* 026552 3002655260 21400 STP09 JC $,48 PROCT 21400
* 026557 3000652252 21410 JC EQ,42 PROCT 21410
* 026564 3002656443 21420 JC $,35 01313042J1 PROCT 21420
* 026571 3002657177 21430 JC $,63 01313042LU0 PROCT 21430
* 026576 3002657661 21440 JC $,49 01313042LD3 PROCT 21440
* 026603 3002661564 21450 JC $+10,52 2 CHECK SS3 PROCT 21450 S
* 026610 3002661060 21460 STP11 JC $,48 PROCT 21460
* 026615 3002661544 21470 JC $,36 01313043J1 PROCT 21470
* 026622 3002662274 21480 JC $,60 01313043LU1 PROCT 21480
* 026627 3002662767 21490 JC $,55 01313043LD0 PROCT 21490
* 026634 3002664120 21500 STP12 JC $+5,16 N NORMAL,RESETSS1,2,3,T-MODE PROCT 21500 R
* 026641 3002664162 21510 JC $,50 01313041SS1 PROCT 21510
* 026646 3002664663 21520 JC $,51 01313042SS2 PROCT 21520
* 026653 3002665364 21530 JC $,52 01313043SS3 PROCT 21530
* 026660 3002667272 21540 JC $+10,58 8 CHECK NW PROCT 21540 N
* 026665 3002666560 21550 STP13 JC $,48 PROCT 21550
* 026672 3002667274 21560 JC $,60 01313077J1 PROCT 21560
* 026677 3000652252 21570 JC EQ,42 PROCT 21570
* 026704 3002670444 21580 JC $,36 01313077LU3 PROCT 21580
* 026711 3002671156 21590 JC $,46 01313077LD0 PROCT 21590
* 026716 3002672314 21600 JC $+5,12 PROCT 21600
* 026723 3002673554 21610 JC $+10,44 4 PROCT 21610
* 026730 3002673060 21620 STP14 JC $,48 PROCT 21620
* 026735 3002673554 21630 JC $,44 01313077NW2 PROCT 21630
* 026742 3002674731 21640 JC $+5,25 1 107061J2 PROCT 21640 2
* 026747 3002675452 21650 JC $+5,42 PROCT 21650
* 026754 3002675451 21660 JC $,41 10707061J1,013072J1 PROCT 21660 0
* 026761 3002676175 21670 JC $,61 10707061LU2 PROCT 21670
* 026766 3002676673 21680 JC $,59 10707061LD1 PROCT 21680
* 026773 3002700571 21690 JC $+10,57 7 PROCT 21690
* 027000 3002700060 21700 STP15 JC $,48 PROCT 21700
* 027005 3002700571 21710 JC $,57 10707061TI,RESET ERROR PROCT 21710 R
* 027012 1002721200 21720 JR CLEAR,0 0 PUT BAD PARITY IN LOC. PROCT 21720
027017 5604000001 21730 BA1 040000,1,1 40000 + 77777 IF MEMORY IS PROCT 21730
* 027024 3002703665 21740 JC $+10,53 3 LARGER THAN 16K. PROCT 21740
* 027031 3002703160 21750 STP16 JD $ NO CL.= 1 ER. 125040 PROCT 21750
027036 5604000001 21760 BA1 040000,1,1 SHOULD STOP 2ND PARITY ER. PROCT 21760
* 027043 3002704300 21770 ER17 J $ TO CONTINUE HIT GEN. CLEAR PROCT 21770
* 027050 1002721200 21780 REC JR CLEAR,0 0 + JUMP TO _REC_ PROCT 21780
* 027055 3000007760 21790 JD 077 PUT CL.= 1-2+3 TO IGNORE PROCT 21790
027062 4400041424 21800 SC 0414,20 0 PROCT 21800
027067 4020410000 21810 XF 041,00,0,00,1 READER SHOULD BE OFF LINE PROCT 21810
* 027074 3000730452 21820 JC DOF,42 PROCT 21820
027101 5604000001 21830 BA1 040000,1,1 PROCT 21830
* 027106 3002710667 21840 ER18 JC $,55 CL.=3 NOT IGNORED 125052DEL- PROCT 21840
* 027113 3002711366 21850 ER19 JC $,54 CL=2 NOTIGNORED125095DEL PROCT 21850
* 027120 3002712065 21860 ER21 JC $,53 CL=1NOTIGNORED125070DEL PROCT 21860
* 027125 1002721200 21870 JR CLEAR,0 0 PROCT 21870
* 027132 3000017760 21880 JD 0177 PUT CL.=1-2+3 TO STALL PROCT 21880
027137 4020410000 21890 XF 041,00,0,00,1 PROGRAM SHOULD STALL ON PROCT 21890
* 027144 3000730452 21900 JC DOF,42 THE NEXT 3 INST. TO RECOVER PROCT 21900
027151 5604000001 21910 BA1 040000,1,1 HIT GEN. CLEAR AND JUMP PROCT 21910
* 027156 3002715600 21920 ER22 J $ TO THE NEXT INSTRUCTION PROCT 21920
* 027163 1002721200 21930 JR CLEAR,0 0 PROCT 21930
027170 4400041431 21940 SC 0414,25 5 PROCT 21940
* 027175 3000330360 21950 JD RERUN _M_ +RUN FOR MAIN TEST PROCT 21950
* 027202 3002630000 21960 JC CONSL,0 0 _C_+RUN TO REPEAT CONSOLE PROCT 21960
* 027207 3000000000 21970 CLEAR J 0 PROCT 21970
* 027214 3002722136 21980 JC $+5,30 RESET CL=1 PROCT 21980
* 027221 3002722650 21990 JC $+5,40 RESET DOF PROCT 21990
* 027226 3002723335 22000 JC $+5,29 RESET CL=2 PROCT 22000
* 027233 3002724033 22010 JC $+5,27 RESET CL=3 PROCT 22010
* 027240 3002724525 22020 JC $+5,21 RESET SI=1 PROCT 22020
* 027245 3002725226 22030 JC $+5,22 RESET SI=2 PROCT 22030
* 027252 3002725727 22040 JC $+5,23 RESET SI=3 PROCT 22040
027257 4402631024 22050 SC CONSL+8,8,024 PROCT 22050
* 027264 3002720700 22060 J CLEAR PROCT 22060
027277 ORIG 027277
027277 01 22080 +1 1 PROCT 22080
027300 204 22090 PTMP AREA 132,B,0 0 PROCT 22090
* 027504 3002750431 22100 IE7 JC $,25 PROCT 22100
027513 027677 22110 +3 IPT7 PROCT 22110
027514 3400054464 22120 KEYY1 CC 0544,06464 TEST,LOAD VIA 1004 PROCT 22120
* 027521 3002754042 22130 JE PR04 PROCT 22130
027526 4000620400 22140 XF 50,0040000,00,0 PROCT 22140
* 027533 3002253100 22150 J TITLE-1010 PROCT 22150
027540 2002727774 22160 PR04 FT PTMP-1,6,60 PROCT 22160
027545 4402765601 22170 U1004 SC CH7ER+3,3,01 PROCT 22170
027552 4402772753 22180 SC II-1,43 3 PROCT 22180
027557 4402773440 22190 SC II+4,04040 PROCT 22190
027564 4160402100 22200 XF 040,0210100,0,7 PROCT 22200
027571 4160010004 22210 ADXF XF 1,00004,4,0,7 PROCT 22210
* 027576 3002760331 22220 JC $+5,25 PROCT 22220
027603 2600004304 22230 DELAY PD 043,4 PROCT 22230
027610 6000004301 22240 AC 043,1 PROCT 22240
027615 3400004106 22250 CC 041,06 WAIT 3 SECONDS FOR U1004 INTERRUPT PROCT 22250 T
* 027622 3002761041 22260 JG $-10 PROCT 22260
* 027627 3002765300 22270 J CH7ER PROCT 22270
027634 3402773440 22280 BUSY CC II+4,04040 PROCT 22280
* 027641 3002754542 22290 JE U1004 PROCT 22290
027646 4402765604 22300 SC CH7ER+3,3,04 PROCT 22300
* 027653 3007770060 22310 CH7ER JD 077700 1,2 LOST INT,3 PARITY ERR,4 BUSY ON 2ND XF PROCT 22310
* 027660 3002767260 22320 JD ELIM START,M,START TO ELIMINATE FAULTY DEVICE PROCT 22320 R
* 027665 3002754500 22330 J U1004 PROCT 22330
* 027672 3002253100 22340 ELIM J TITLE-1010 PROCT 22340
027677 4402765603 22350 IPT7 SC CH7ER+3,3,03 PROCT 22350
027704 4160000100 22360 XF 0,0100,0,0,7 PROCT 22360
* 027711 3002765353 22370 JC CH7ER,4343 PARITY ERROR PROCT 22370
027716 4160002000 22380 XF 0,02000,0,0,7 PROCT 22380
* 027723 3002763453 22390 JC BUSY,43 3 U1004 BUSY PROCT 22390
* 027730 3002253140 22400 II JC TITLE-1010,040 PROCT 22400
027735 2602773401 22410 PD II+4,1 PROCT 22410
027742 4402765602 22420 SC CH7ER+3,3,02 PROCT 22420
027747 4160010000 22430 XF 1,0,0,7 7 GOOD ACKNOWLEDGE PROCT 22430
* 027754 3002760331 22440 JC DELAY,2525 PROCT 22440
0000 ERROR LINES 3000276600 22450 END MANST PROCT 22450
{-- tape mark --}
011353 C081 PACE7 CODEDIT SOURCE 08/65 A T3834394-08
001400 00010 T080 BEGIN 01400 PACE7 FOR 132 CHRCTER LINE PRINTER PC713200010
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T081 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 T082 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 T083 3000136300 * SEGJP $ *
001400 00020 ORIG 01400 PCE7 00020
* 001400 3000300460 00030 CHOSE JD TIC7 PCE7 00030
* 001405 3000321360 00040 JD PRNT7 PCE7 00040
* 001412 3000777760 00050 SPAC7 JD 07777 PCE7 00050
001417 2000000103 00060 FT 01,3 PCE7 00060
001424 5200165501 00070 SA1 LIN+3,1 1 PCE7 00070
001431 5600213310 00080 BA1 IE+7,8 PCE7 00080
001436 5200047710 00090 SA1 0477,8 PCE7 00090
001443 2600006300 00100 PD 063,0 PCE7 00100
001450 2600003700 00110 PD 037,0 PCE7 00110
001455 2600036710 00120 PD 0367,8 PCE7 00120
001462 2000230074 00130 FT IMGE,60 0 PCE7 00130
001467 2600222224 00140 PD0 STAR,4 PCE7 00140
001474 2600226224 00150 PD0 EN,4 PCE7 00150
001501 2000010207 00160 FT 0102,7 66 LINES PCE7 00160
001506 4400223711 00170 SC SPC-3,01011 PCE7 00170
* 001513 3000153262 00180 JC $+15,50 0 S S 1 PCE7 00180
001520 2000013007 00190 FT 0130,7 88 LINES PCE7 00190
001525 4400223713 00200 SC SPC-3,01013 PCE7 00200
* 001532 3000153725 00210 JC $+5,21 PCE7 00210
* 001537 1000203300 00220 RERUN JR FRST,0 PCE7 00220
* 001544 1000207600 00230 JR PRNT,0 PCE7 00230
001551 5600226644 00240 BD1 DONE,4 PCE7 00240
001556 2600223322 00250 PD0 SPC-7,2 2 PCE7 00250
001563 4400157401 00260 SC TST+4,1 1 PCE7 00260
001570 1400165501 00270 TST LC LIN+3,1 1 PCE7 00270
* 001575 3000160743 00280 JU $+10 PCE7 00280
001602 6200223302 00290 AM1 SPC-7,2 2 PCE7 00290
001607 6600001702 00300 AD1 017,2 PCE7 00300
001614 1600157451 00310 BC1 TST+4,1 1 PCE7 00310
* 001621 3200157006 00320 JL TST,6 PCE7 00320
001626 4400162506 00330 SC $-1,6 PCE7 00330
001633 5600224200 00340 BA1 SPC,0 PCE7 00340
001640 5200231700 00350 SA1 IMGE+15,5,0 PCE7 00350
001645 6000004701 00360 AC 047,1 PCE7 00360
001652 2000000175 00370 LIN FT 01,61 PCE7 00370
001657 7600036711 00380 REP AT 0367,9 PCE7 00380
001664 7000004763 00390 CB2 047,3 PCE7 00390
* 001671 3000173442 00400 JE END PCE7 00400
* 001676 3000171544 00410 JS LSS PCE7 00410
* 001703 1000207600 00420 JR PRNT PCE7 00420
* 001710 3000165700 00430 JC REP,0 PCE7 00430
001715 7200004762 00440 LSS SB2 047,2 PCE7 00440
001722 5600004701 00450 BA1 047,1 PCE7 00450
001727 7200036741 00460 SB1 0367,1 PCE7 00460
001734 5600220042 00470 END BD1 D66,2 PCE7 00470
* 001741 3000175362 00480 JC $+10,50 0 PCE7 00480
001746 5600220242 00490 BD1 D88,2 PCE7 00490
001753 6200226204 00500 AM1 EN,4 PCE7 00500
001760 5600226200 00510 BA1 EN,0 PCE7 00510
001765 5200231700 00520 SA1 IMGE+15,5,0 PCE7 00520
* 001772 1000207600 00530 JR PRNT,0 PCE7 00530
001777 2600004704 00540 PD 047,4 PCE7 00540
* 002004 3000141764 00550 JC SPAC7+5,5,52 SS 3 PCE7 00550
* 002011 3000202363 00560 JC $+10,51 1 SS 2 PCE7 00560
002016 1600165551 00570 BC1 LIN+3,1 1 PCE7 00570
* 002023 3000153700 00580 JC RERUN PCE7 00580
* 002030 3000000000 00590 FRST J 0 PCE7 00590
002035 2000000175 00600 FT 01,61 PCE7 00600
002042 5600222200 00610 BA1 STAR,0 PCE7 00610
002047 6600226604 00620 AD1 DONE,4 PCE7 00620
002054 5200231700 00630 SA1 IMGE+15,5,0 PCE7 00630
002061 5200222204 00640 SA1 STAR,4 PCE7 00640
* 002066 3000203000 00650 J FRST PCE7 00650
* 002073 3000000000 00660 PRNT J 0 PCE7 00660
* 002100 3000210065 00670 JC $,53 SI 1 SET PCE7 00670
* 002105 3000211222 00680 JC $+5,18 PCE7 00680
002112 4160421000 00690 XF 042,0100000,0,7 132 CHAR. LINE PRINT PCE7 00690
* 002117 3000207300 00700 J PRNT PCE7 00700
* 002124 3000000031 00710 IE JC 0,25 PCE7 00710
002133 002134 00720 +3 INT PCE7 00720
002134 4160007777 00730 INT XF 0,07777,7,0,7 PCE7 00730
* 002141 3000215353 00740 JC $+10,43 3 PCE7 00740
* 002146 3000047025 00750 JC 0470,21 1 PCE7 00750
* 002153 3000216020 00760 JC $+5,16 PRINT ERROR PCE7 00760
002160 4160407777 00770 XF 040,0777777,0,7 PCE7 00770
* 002165 3000141760 00780 JD SPAC7+5 5 M TO RESTART-RUN TO PCE7 00780
* 002172 3000047025 00790 JC 0470,21 1 PCE7 00790
002200 66 00800 D66 +2 _66_ PCE7 00800
002202 88 00810 D88 +2 _88_ PCE7 00810
002212 START PA 00820 +8 _START P PA_ PCE7 00820
002222 GE 0000 00830 STAR +8 _GE 000000_ PCE7 00830
002232 SPACED 0 00840 +8 _SPACED D 0_ PCE7 00840
002242 0 AT0/IN 00850 SPC +8 _0 AT0/I/IN_ PCE7 00850
002252 TOTAL LI 00860 +8 _TOTAL L LI_ PCE7 00860
002262 NES 0000 00870 EN +8 _NES 000000_ PCE7 00870
002266 0001 00880 DONE +4 _0001_ PCE7 00880
002300 00890 ORIG $,64 PCE7 00890
002300 24 00900 IMGE AREA 20,B,0 PCE7 00900
002333 ABCDEFGH 00910 +8 _ABCDEFGFGH_ PCE7 00910
002343 IJKLMNOP 00920 +8 _IJKLMNONOP_ PCE7 00920
002353 QRSTUVWX 00930 +8 _QRSTUVWVWX_ PCE7 00930
002363 YZ 12345 00940 +8 _YZ 1234345_ PCE7 00940
002370 67890 00950 +5 _67890_ _ PCE7 00950
002400 0001020315161720 00960 +8 0000102020315161720 PCE7 00960 7
002410 2122233536374041 00970 +8 0212223333536374041 PCE7 00970 0
002420 4243555657606162 00980 +8 0424355555657606162 PCE7 00980 1
002430 6364757677000000 00990 +8 0636475757677000000 PCE7 00990 0
002450 PAPER SPACE ROUT 01000 +16 _PAPER S SPACE ROUT_ PCE7 01000 O
002470 INE START AT 141 01010 +16 _INE STATART AT 141_ PCE7 01010 1
002477 2 01020 +7 _2 _ PCE7 01020
002503 L132 01030 +4 _L132_ PCE7 01030
002600 01040 ORIG $,64 PCE7 01040
002600 201 01050 IMAGE AREA 129,B,0 0 PCE7 01050
003003 000000 01060 +3 0 PCE7 01060
003004 4400260002 01070 TIC7 SC IMAGE,0202 PCE7 01070
003011 4400260002 01080 START SC IMAGE,0202 PCE7 01080
003016 2600007710 01090 PD 077,8 PCE7 01090
003023 2000260074 01100 FT IMAGE,6060 PCE7 01100
003030 4400036700 01110 SC 0367,0 PCE7 01110
003035 4160621000 01120 XF 062,0100000,0,7 132 CHAR. LINE PRINT PCE7 01120
003042 6000007701 01130 AC 077,01 PCE7 01130
003047 5760257701 01140 BA1 IMAGE-1,1,1,7 PCE7 01140
003054 4560257700 01150 SC IMAGE-1,1,0,7 PCE7 01150
003061 5360260001 01160 SA1 IMAGE,1,1,7 PCE7 01160
003066 3400007602 01170 CC 076,02 PCE7 01170
* 003073 3000310542 01180 JE $+10 PCE7 01180
* 003100 3000303500 01190 JC $-35 PCE7 01190
003105 3400007704 01200 CC 077,4 PCE7 01200
* 003112 3000312442 01210 JE $+10 PCE7 01210
* 003117 3000303500 01220 JC $-50 PCE7 01220
003124 4400036705 01230 SC 0367,5 PCE7 01230
003131 4160640000 01240 XF 064,0,0,0,7 PCE7 01240
* 003136 1000315300 01250 JR DELAY PCE7 01250
* 003143 3000301100 01260 JC START PCE7 01260
* 003150 3000000000 01270 DELAY JC 0 PCE7 01270
003155 2600321205 01280 PD DLY,5 PCE7 01280
003162 6000321201 01290 AC DLY,1 PCE7 01290
003167 3400321001 01300 CC DLY-2,1 1 PCE7 01300
* 003174 3000315042 01310 JC DELAY,3434 PCE7 01310
* 003201 3000316200 01320 JC $-15 PCE7 01320
003212 0000000000 01330 DLY +5 0000000000000 PCE7 01330
003213 5600441410 01340 PRNT7 BA1 IESET,8 8 PCE7 01340
003220 5200047710 01350 SA1 IE7,8 PCE7 01350
* 003225 1000442064 01360 JR CHBR,52 2 PCE7 01360
* 003232 1000325463 01370 JR ADV,51 PCE7 01370
* 003237 1000377100 01380 JR SPEED PCE7 01380
* 003244 3000301600 01390 JC START+5 5 PCE7 01390
* 003251 3000000000 01400 ADV JC 0 PCE7 01400
003256 2000350074 01410 FT ADIMG,6060 PCE7 01410
003263 4400036701 01420 SC 0367,1 PCE7 01420
* 003270 1000370700 01430 JR ADPR PCE7 01430
003275 4400036702 01440 SC 0367,2 PCE7 01440
* 003302 1000370700 01450 JR ADPR PCE7 01450
003307 4400036704 01460 SC 0367,4 PCE7 01460
* 003314 1000370700 01470 JR ADPR PCE7 01470
003321 4400036710 01480 SC 0367,8 PCE7 01480
* 003326 1000370700 01490 JR ADPR PCE7 01490
003333 4400036720 01500 SC 0367,16 6 PCE7 01500
* 003340 1000370700 01510 JR ADPR PCE7 01510
003345 4400036740 01520 SC 0367,32 2 PCE7 01520
* 003352 1000370700 01530 JR ADPR PCE7 01530
003357 4400036777 01540 SC 0367,63 3 PCE7 01540
* 003364 1000370700 01550 JR ADPR PCE7 01550
003371 4400036703 01560 SC 0367,3 PCE7 01560
* 003376 1000370700 01570 JR ADPR PCE7 01570
003403 4400036705 01580 SC 0367,5 PCE7 01580
* 003410 1000370700 01590 JR ADPR PCE7 01590
* 003415 3000325100 01600 JC ADV PCE7 01600
003500 01610 ORIG $,64 PCE7 01610
003500 01620 ADIMG EQU $ PCE7 01620
003507 0001020304050607 01630 +8 0000102020304050607 PCE7 01630 6
003517 1011121314151617 01640 +8 0101112121314151617 PCE7 01640 6
003527 2021222324252627 01650 +8 0202122222324252627 PCE7 01650 6
003537 3031323334353637 01660 +8 0303132323334353637 PCE7 01660 6
003547 4041424344454647 01670 +8 0404142424344454647 PCE7 01670 6
003557 5051525354555657 01680 +8 0505152525354555657 PCE7 01680 6
003567 6061626364656667 01690 +8 0606162626364656667 PCE7 01690 6
003577 7071727374757677 01700 +8 0707172727374757677 PCE7 01700 6
003607 7776757473727170 01710 +8 0777675757473727170 PCE7 01710 1
003617 6766656463626160 01720 +8 0676665656463626160 PCE7 01720 1
003627 5756555453525150 01730 +8 0575655555453525150 PCE7 01730 1
003637 4746454443424140 01740 +8 0474645454443424140 PCE7 01740 1
003647 3736353433323130 01750 +8 0373635353433323130 PCE7 01750 1
003657 2726252423222120 01760 +8 0272625252423222120 PCE7 01760 1
003667 1716151413121110 01770 +8 0171615151413121110 PCE7 01770 1
003677 0007060504030201 01780 +8 00706050504030201 PCE7 01780 1
003703 L132 01790 +4 _L132_ PCE7 01790
* 003704 3000000000 01800 ADPR JC 0 PCE7 01800
003711 4160621000 01810 XF 062,0100000,0,7 132 CHAR. LINE PRINT PCE7 01810
003716 4400036701 01820 SC 0367,1 PCE7 01820
003723 4160621000 01830 XF 062,0100000,0,7 PCE7 01830
003730 4160621000 01840 XF 062,0100000,0,7 PCE7 01840
003735 4160621000 01850 XF 062,0100000,0,7 PCE7 01850
003742 4160621000 01860 XF 062,0100000,0,7 PCE7 01860
003747 4160621000 01870 XF 062,0100000,0,7 PCE7 01870
003754 4160621000 01880 XF 062,0100000,0,7 PCE7 01880
* 003761 3000370400 01890 JC ADPR PCE7 01890
* 003766 3000000000 01900 SPEED JC 0 PCE7 01900
* 003773 3000401700 01910 J SPEED+2525 PCE7 01910
004000 2000350074 01920 FT ADIMG,6060 PCE7 01920
004005 4400036701 01930 SC 0367,1 PCE7 01930
004012 4160621000 01940 XF 062,0100000,0,7 132 CHAR. LINE PRINT PCE7 01940
* 004017 3000400062 01950 JC $-15,50 0 PCE7 01950
* 004024 3000376663 01960 JC SPEED,5151 PCE7 01960
* 004031 3000376664 01970 JC SPEED,5252 PCE7 01970
004036 4400036701 01980 SC 0367,1 PCE7 01980
004043 2000410074 01990 FT NUIMG,6060 PCE7 01990
004050 4160621000 02000 XF 062,0100000,0,7 PCE7 02000
* 004055 3000401700 02010 JC $-30 PCE7 02010
004100 02020 ORIG $,64 PCE7 02020
004100 02030 NUIMG EQU $ PCE7 02030
004107 01234567 02040 +8 _0123456567_ PCE7 02040
004117 89,$0123 02050 +8 _89,$012123_ PCE7 02050
004127 456789,$ 02060 +8 _456789,9,$_ PCE7 02060
004137 01234567 02070 +8 _0123456567_ PCE7 02070
004147 89,$0123 02080 +8 _89,$012123_ PCE7 02080
004157 4567890� 02090 +8 _456789090�_ PCE7 02090
004167 0123456 02100 +8 _ 012345456_ PCE7 02100
004170 110 02110 AREA 72,B,05 5 PCE7 02110
004303 05050505 02120 +4 00505050505 PCE7 02120
* 004304 3000430460 02130 PL JD PL PAPER LOW PCE7 02130
* 004311 3000437300 02140 J RST PCE7 02140
* 004316 3000431660 02150 NR JD NR NON-READY PCE7 02150
004323 4160001000 02160 INT0 XF 0,01000,0,0,7 PCE7 02160
* 004330 3000431653 02170 JC NR,43 PCE7 02170
004335 4160000002 02180 XF 0,00002,2,0,7 PCE7 02180
* 004342 3000430453 02190 JC PL,43 PCE7 02190
004347 4160006775 02200 XF 0,06775,5,0,7 PCE7 02200
* 004354 3000436653 02210 JC $+10,43 3 PCE7 02210
* 004361 3000047026 02220 RTN JC 0470,22 2 PCE7 02220
* 004366 3000437340 02230 JC RST,32 PCE7 02230
004373 4160407777 02240 RST XF 040,0777777,0,7 PCE7 02240
* 004400 3000436100 02250 J RTN PCE7 02250
000407 02260 IE0 EQU 0407 PCE7 02260
000477 02270 IE7 EQU 0477 PCE7 02270
* 004405 3000000031 02280 JC 0,25 PCE7 02280
004414 004323 02290 IESET +3 INT0 PCE7 02290
* 004415 3000000000 02300 CHBR J 0 PCE7 02300
* 004422 3000442723 02310 M JC $+5,19 1 TO S. IND 2 PCE7 02310
004427 2000460074 02320 FT EEVN,60 0 PCE7 02320
004434 4400036701 02330 SC 0367,1 PCE7 02330
004441 4160021000 02340 XF 02,0100000,0,7 132 CHAR. LINE PRINT PCE7 02340 1
* 004446 3000444666 02350 WT1 JC WT1,54 LOOP AND TEST IND. 2 PCE7 02350
* 004453 3000446023 02360 JC $+5,19 PCE7 02360
004460 2000510074 02370 FT EODD-15,5,60 PCE7 02370
004465 4400020702 02380 SC 0207,2 PCE7 02380
004472 4160021000 02390 XF 02,0100000,0,7 132 CHAR. LINE PRINT PCE7 02390 1
* 004477 3000447766 02400 WT2 JC WT2,54 PCE7 02400
* 004504 3000442264 02410 JC M,52 PCE7 02410
* 004511 3000441500 02420 J CHBR PCE7 02420
004600 02430 ORIG $,64 PCE7 02430
004600 00 02440 EEVN +1 0 PCE7 02440
004620 E E E E E E E E 02450 +16 _E E E E E E E E E _ PCE7 02450
004640 E E E E E E E E 02460 +16 _E E E E E E E E E _ PCE7 02460
004660 E E E E E E E E 02470 +16 _E E E E E E E E E _ PCE7 02470
004700 E E E E E E E E 02480 +16 _E E E E E E E E E _ PCE7 02480
004720 E E E E E E E E 02490 +16 _E E E E E E E E E _ PCE7 02490
004740 E E E E E E E E 02500 +16 _E E E E E E E E E _ PCE7 02500
004760 E E E E E E E E 02510 +16 _E E E E E E E E E _ PCE7 02510
005000 E E E E E E E E 02520 +16 _E E E E E E E E E _ PCE7 02520
005004 E E 02530 +4 _E E _ PCE7 02530
005100 02540 ORIG $,64 PCE7 02540
005117 E E E E E E E E 02550 EODD +16 _E E E E E E E E E _ PCE7 02550
005137 E E E E E E E E 02560 +16 _E E E E E E E E E _ PCE7 02560
005157 E E E E E E E E 02570 +16 _E E E E E E E E E _ PCE7 02570
005177 E E E E E E E E 02580 +16 _E E E E E E E E E _ PCE7 02580
005217 E E E E E E E E 02590 +16 _E E E E E E E E E _ PCE7 02590
005237 E E E E E E E E 02600 +16 _E E E E E E E E E _ PCE7 02600
005257 E E E E E E E E 02610 +16 _E E E E E E E E E _ PCE7 02610
005277 E E E E E E E E 02620 +16 _E E E E E E E E E _ PCE7 02620
005303 E E 02630 +4 _E E _ PCE7 02630
000500 02640 ORIG 0500 PCE7 02640
* 000500 3000050060 02650 JC 0500,48 8 PCE7 02650
000507 000500 02660 +3 0500 PCE7 02660
* 000510 3000051060 02670 JC 0510,48 8 PCE7 02670
000517 000510 02680 +3 0510 PCE7 02680
0000 ERROR LINES 3000140000 02690 END CHOSE PCE7 02690
{-- tape mark --}
012033 C091 U3CFT CODEDIT SOURCE - T3834394-09
010600 00010 T090 BEGIN 010600 3CFT 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 010600 3007010660 * JD 070106 *
* 010605 3001060000 * J $-5 *
SEGMENT-ID T091 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 T092 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 T093 3000136300 * SEGJP $ *
010600 000101 ORIG 010600 000101
010600 5601413300 00020 BA1 CL12,16 6 U3CFT 00020
010605 5200051700 00030 SA1 335,16 U3CFT 00030
010612 5601416500 00040 BA1 IE45,16 6 U3CFT 00040
010617 5200045700 00050 SA1 00457,1616 U3CFT 00050
010624 5601746001 00060 BA1 UNITS,1 1 U3CFT 00060
010631 5201176001 00070 SA1 USEL1+4,4,1 U3CFT 00070
010636 5201475301 00080 SA1 TMUS1+4,4,1 U3CFT 00080
010643 5201567401 00090 SA1 SKUS1+4,4,1 U3CFT 00090
010650 5201703301 00100 SA1 RWU1+4,1,1 U3CFT 00100
010655 5201763101 00110 SA1 ITLU1+4,4,1 U3CFT 00110
* 010662 3000000060 00120 TEST1 JD 000 ENTRANCE TEST1 U3CFT 00120
010667 4401343760 00130 SC ISS01+4,4,48 U3CFT 00130
010674 4401344400 00140 SC ISS02+4,4,0 U3CFT 00140
010701 4401350243 00150 SC ISS04+4,4,35 U3CFT 00150
010706 4401352140 00160 SC ISS05+4,4,32 U3CFT 00160
010713 4401353343 00170 SC ISS06+4,4,35 U3CFT 00170
010720 2001066226 00180 FT TEST1,2222 U3CFT 00180
010725 2600013724 00190 PD0 95,4 U3CFT 00190
* 010732 1001145400 00200 JR CHSEL U3CFT 00200
* 010737 3001075162 00210 JC $+10,50 0 U3CFT 00210
* 010744 3000000160 00220 TEST2 JD 001 ENTRANCE TEST2 U3CFT 00220
010751 4401343760 00230 SC ISS01+4,4,48 U3CFT 00230
010756 4401344421 00240 SC ISS02+4,4,17 U3CFT 00240
010763 4401350243 00250 SC ISS04+4,4,35 U3CFT 00250
010770 4401352140 00260 SC ISS05+4,4,32 U3CFT 00260
010775 4401353343 00270 SC ISS06+4,4,35 U3CFT 00270
011002 2001074426 00280 FT TEST2,2222 U3CFT 00280
011007 2600013723 00290 PD0 95,3 U3CFT 00290
011014 4400013404 00300 SC 92,4 U3CFT 00300
* 011021 1001145400 00310 JR CHSEL U3CFT 00310
* 011026 3001104062 00320 JC $+10,50 0 U3CFT 00320
* 011033 3000000260 00330 TEST3 JD 002 ENTRANCE TEST3 U3CFT 00330
011040 4401343700 00340 SC ISS01+4,4,0 U3CFT 00340
011045 4401344400 00350 SC ISS02+4,4,0 U3CFT 00350
011052 4401350242 00360 SC ISS04+4,4,34 U3CFT 00360
011057 4401352100 00370 SC ISS05+4,4,0 U3CFT 00370
011064 4401353342 00380 SC ISS06+4,4,34 U3CFT 00380
011071 2001103326 00390 FT TEST3,2222 U3CFT 00390
011076 2600013723 00400 PD0 95,3 U3CFT 00400
011103 4400013405 00410 SC 92,5 U3CFT 00410
* 011110 1001145400 00420 JR CHSEL U3CFT 00420
* 011115 3001112762 00430 JC $+10,50 0 U3CFT 00430
* 011122 3000000360 00440 TEST4 JD 003 ENTRANCE TEST4 U3CFT 00440
011127 4401343700 00450 SC ISS01+4,4,0 U3CFT 00450
011134 4401344421 00460 SC ISS02+4,4,17 U3CFT 00460
011141 4401350242 00470 SC ISS04+4,4,34 U3CFT 00470
011146 4401352100 00480 SC ISS05+4,4,0 U3CFT 00480
011153 4401353342 00490 SC ISS06+4,4,34 U3CFT 00490
011160 2001112226 00500 FT TEST4,2222 U3CFT 00500
011165 2600013723 00510 PD0 95,3 U3CFT 00510
011172 4400013406 00520 SC 92,6 U3CFT 00520
* 011177 1001145400 00530 JR CHSEL U3CFT 00530
* 011204 3001121662 00540 JC $+10,50 0 U3CFT 00540
* 011211 3000000460 00550 TEST5 JD 004 ENTRANCE TEST5 U3CFT 00550
011216 2600013723 00560 PD0 95,3 U3CFT 00560
011223 4400013407 00570 SC 92,7 U3CFT 00570
011230 2001121126 00600 FT TEST5,2222 U3CFT 00600
011235 2000060060 00601 FT IMAGE,4848 U3CFT 00601
011242 2000777761 00602 FT 4095,49 9 U3CFT 00602
011247 2000060064 00603 FT IMAGE,5252 U3CFT 00603
011254 2000060065 00604 FT IMAGE,5353 U3CFT 00604
* 011261 1001417100 00610 JR GNP U3CFT 00610
* 011266 1001443500 00620 JR TMCH U3CFT 00620
* 011273 3001130562 00630 JC $+10,50 0 U3CFT 00630
* 011300 3000000560 00640 TEST6 JD 005 ENTRANCE TEST6 U3CFT 00640
011305 2001130026 00650 FT TEST6,2222 U3CFT 00650
011312 2000400061 00660 FT 2048,49 9 U3CFT 00660
011317 2600013723 00670 PD0 95,3 U3CFT 00670
011324 4400013410 00680 SC 92,8 U3CFT 00680
011331 2000400065 00710 FT 2048,53 3 U3CFT 00710
* 011336 1001534400 00720 JR SKCH U3CFT 00720
* 011343 3000000660 00740 TEST7 JD 006 ENTRANCE TEST7 U3CFT 00740
011350 2001134326 00750 FT TEST7,2222 U3CFT 00750
011355 2600013723 00760 PD0 95,3 U3CFT 00760
011362 4400013411 00770 SC 92,9 U3CFT 00770
* 011367 1001654100 00800 JR RWCH U3CFT 00800
* 011374 3001140662 00810 JC $+10,50 0 U3CFT 00810
* 011401 3000000760 00830 TEST8 JD 007 ENTRANCE TEST8 U3CFT 00830
011406 2001140126 00840 FT TEST8,2222 U3CFT 00840
011413 2600013723 00850 PD0 95,3 U3CFT 00850
011420 4400013412 00860 SC 92,10 U3CFT 00860
* 011425 1001746400 00890 JR ITLCH U3CFT 00890
* 011432 3001144462 00900 JC $+10,50 0 U3CFT 00900
* 011437 3000777760 00910 JD 4095 U3CFT 00910
* 011444 3001060000 00920 J 010600 U3CFT 00920
* 011451 3000000000 00930 CHSEL J 0 U3CFT 00930
011456 2001370003 00940 FT TPINT,3 3 U3CFT 00940
011463 5200044703 00950 SA1 295,3 U3CFT 00950
011470 2001407003 00960 FT N0INT,3 3 U3CFT 00960
011475 5200045703 00970 SA1 303,3 U3CFT 00970
011502 4401346500 00980 SC ISS03+1,1,0 U3CFT 00980
011507 4401370100 00990 SC TPINT+1,1,0 U3CFT 00990
011514 4401375600 01000 SC ERR01+1,1,0 U3CFT 01000
011521 2000060060 01010 FT IMAGE,4848 U3CFT 01010
011526 2000777761 01020 FT 4095,49 9 U3CFT 01020
011533 2000031303 01030 FT 203,3 U3CFT 01030
011540 5201346203 01040 SA1 ISS09+3,3,3 U3CFT 01040
011545 4401347562 01041 SC ISS10+4,4,50 U3CFT 01041
011552 4401356462 01050 SC ISS11+4,4,50 U3CFT 01050
011557 5601436704 01060 BA1 BAT4,4 U3CFT 01060
011564 5201354504 01070 SA1 ISS13+4,4,4 U3CFT 01070
011571 2000044003 01080 FT 288,3 U3CFT 01080
011576 5201372203 01090 SA1 INTEX+3,3,3 U3CFT 01090
* 011603 1001175200 01100 JR USEL U3CFT 01100
011610 2001370003 01110 FT TPINT,3 3 U3CFT 01110
011615 5200045703 01120 SA1 303,3 U3CFT 01120
011622 2001407003 01130 FT N0INT,3 3 U3CFT 01130
011627 5200044703 01140 SA1 295,3 U3CFT 01140
011634 4401346520 01150 SC ISS03+1,1,16 U3CFT 01150
011641 4401370120 01160 SC TPINT+1,1,16 U3CFT 01160
011646 4401375620 01170 SC ERR01+1,1,16 U3CFT 01170
011653 2000060064 01180 FT IMAGE,5252 U3CFT 01180
011660 2000777765 01190 FT 4095,53 3 U3CFT 01190
011665 2000033303 01200 FT 00333,3 3 U3CFT 01200
011672 5201346203 01210 SA1 ISS09+3,3,3 U3CFT 01210
011677 4401347566 01211 SC ISS10+4,4,54 U3CFT 01211
011704 4401356466 01220 SC ISS11+4,4,54 U3CFT 01220
011711 5601437304 01230 BA1 BAT5,4 U3CFT 01230
011716 5201354504 01240 SA1 ISS13+4,4,4 U3CFT 01240
011723 2000045003 01250 FT 296,3 U3CFT 01250
011730 5201372203 01260 SA1 INTEX+3,3,3 U3CFT 01260
* 011735 1001175200 01270 JR USEL U3CFT 01270
* 011742 3001145100 01280 J CHSEL U3CFT 01280
* 011747 3000000000 01290 USEL J 0 U3CFT 01290
011754 4401177201 01300 USEL1 SC USEL2+4,4,1 U3CFT 01300
* 011761 1001201500 01301 JR TST U3CFT 01301
* 011766 3201200000 01310 USEL2 JL $+10 U3CFT 01310
* 011773 3001174700 01311 J USEL U3CFT 01311
012000 6001346501 01320 AC ISS03+1,1,1 U3CFT 01320
* 012005 3001176100 01330 J USEL1+5 5 U3CFT 01330
* 012012 3000000000 01350 TST J 0 U3CFT 01350
* 012017 1001417100 01360 JR GNP GENERATE PATTERN U3CFT 01360
012024 4401350740 01370 SC ISS12+4,4,32 U3CFT 01370
012031 4401346602 01380 SC ISS03+2,2,2 U3CFT 01380
012036 4401346700 01390 SC ISS03+3,3,0 U3CFT 01390
012043 4401355243 01400 SC ISS07+4,4,35 U3CFT 01400
012050 4401360300 01410 SC ISS08+4,4,0 U3CFT 01410
012055 4400060001 01420 SC IMAGE,1 1 U3CFT 01420
* 012062 1001341200 01430 JR ISS U3CFT 01430
012067 4401346710 01440 SC ISS03+3,3,8 U3CFT 01440
012074 4400060002 01450 SC IMAGE,2 2 U3CFT 01450
* 012101 1001341200 01460 JR ISS U3CFT 01460
012106 4401346702 01470 SC ISS03+3,3,2 U3CFT 01470
012113 4401355242 01480 SC ISS07+4,4,34 U3CFT 01480
012120 4400060003 01490 SC IMAGE,3 3 U3CFT 01490
* 012125 1001341200 01500 JR ISS U3CFT 01500
012132 4401346712 01510 SC ISS03+3,3,10 U3CFT 01510
012137 4400060004 01520 SC IMAGE,4 4 U3CFT 01520
* 012144 1001341200 01530 JR ISS U3CFT 01530
012151 4401346601 01540 SC ISS03+2,2,1 U3CFT 01540
012156 4401346710 01550 SC ISS03+3,3,8 U3CFT 01550
012163 4401355243 01560 SC ISS07+4,4,35 U3CFT 01560
012170 2601432604 01570 PD CCC,4 U3CFT 01570
012175 4401350700 01580 SC ISS12+4,4,0 U3CFT 01580
* 012202 1001341200 01590 JR ISS U3CFT 01590
012207 4401346712 01600 SC ISS03+3,3,10 U3CFT 01600
* 012214 1001341200 01610 JR ISS U3CFT 01610
012221 4401346714 01620 SC ISS03+3,3,12 U3CFT 01620
* 012226 1001341200 01630 JR ISS U3CFT 01630
012233 4401346716 01640 SC ISS03+3,3,14 U3CFT 01640
* 012240 1001341200 01650 JR ISS U3CFT 01650
012245 4401346700 01660 SC ISS03+3,3,0 U3CFT 01660
* 012252 1001424600 01670 JR CLR U3CFT 01670
012257 4401361001 01680 SC SEQ+4,1 1 U3CFT 01680
012264 4401360340 01690 SC ISS08+4,4,32 U3CFT 01690
012271 2001057703 01700 FT 0010577,7,3 U3CFT 01700
012276 5201432603 01710 SA1 CCC,3 U3CFT 01710
012303 4401350740 01720 SC ISS12+4,4,32 U3CFT 01720
* 012310 1001341200 01730 JR ISS U3CFT 01730
012315 4401346704 01740 SC ISS03+3,3,4 U3CFT 01740
* 012322 1001424600 01750 JR CLR U3CFT 01750
012327 4401361002 01760 SC SEQ+4,2 2 U3CFT 01760
* 012334 1001341200 01770 JR ISS U3CFT 01770
012341 4401346702 01780 SC ISS03+3,3,2 U3CFT 01780
012346 4401355242 01790 SC ISS07+4,4,34 U3CFT 01790
* 012353 1001424600 01800 JR CLR U3CFT 01800
012360 4401361003 01810 SC SEQ+4,3 3 U3CFT 01810
* 012365 1001341200 01820 JR ISS U3CFT 01820
012372 4401346706 01830 SC ISS03+3,3,6 U3CFT 01830
* 012377 1001424600 01840 JR CLR U3CFT 01840
012404 4401361004 01850 SC SEQ+4,4 4 U3CFT 01850
* 012411 1001341200 01860 JR ISS U3CFT 01860
012416 4401346750 01870 SC ISS03+3,3,40 U3CFT 01870
012423 4401355243 01880 SC ISS07+4,4,35 U3CFT 01880
012430 4401360300 01890 SC ISS08+4,4,0 U3CFT 01890
012435 2601432604 01900 PD CCC,4 U3CFT 01900
012442 4401350700 01910 SC ISS12+4,4,0 U3CFT 01910
* 012447 1001341200 01920 JR ISS U3CFT 01920
012454 4401346752 01930 SC ISS03+3,3,42 U3CFT 01930
* 012461 1001341200 01940 JR ISS U3CFT 01940
012466 4401346754 01950 SC ISS03+3,3,44 U3CFT 01950
* 012473 1001341200 01960 JR ISS U3CFT 01960
012500 4401346756 01970 SC ISS03+3,3,46 U3CFT 01970
* 012505 1001341200 01980 JR ISS U3CFT 01980
012512 4401346700 01990 SC ISS03+3,3,0 U3CFT 01990
* 012517 1001424600 02000 JR CLR U3CFT 02000
012524 4401361001 02010 SC SEQ+4,1 1 U3CFT 02010
012531 4401360340 02020 SC ISS08+4,4,32 U3CFT 02020
012536 2001057703 02030 FT 0010577,7,3 U3CFT 02030
012543 5201432603 02040 SA1 CCC,3 U3CFT 02040
012550 4401350740 02050 SC ISS12+4,4,32 U3CFT 02050
* 012555 1001341200 02060 JR ISS U3CFT 02060
012562 4401346704 02070 SC ISS03+3,3,4 U3CFT 02070
* 012567 1001424600 02080 JR CLR U3CFT 02080
012574 4401361002 02090 SC SEQ+4,2 2 U3CFT 02090
* 012601 1001341200 02100 JR ISS U3CFT 02100
012606 4401346702 02110 SC ISS03+3,3,2 U3CFT 02110
012613 4401355242 02120 SC ISS07+4,4,34 U3CFT 02120
* 012620 1001424600 02130 JR CLR U3CFT 02130
012625 4401361003 02140 SC SEQ+4,3 3 U3CFT 02140
* 012632 1001341200 02150 JR ISS U3CFT 02150
012637 4401346706 02160 SC ISS03+3,3,6 U3CFT 02160
* 012644 1001424600 02170 JR CLR U3CFT 02170
012651 4401361004 02180 SC SEQ+4,4 4 U3CFT 02180
* 012656 1001341200 02190 JR ISS U3CFT 02190
012663 4401346603 02200 SC ISS03+2,2,3 U3CFT 02200
012670 4401346710 02210 SC ISS03+3,3,8 U3CFT 02210
012675 4401355243 02220 SC ISS07+4,4,35 U3CFT 02220
012702 4401360300 02230 SC ISS08+4,4,0 U3CFT 02230
012707 2601432603 02240 PD CCC,3 U3CFT 02240
012714 4401350700 02250 SC ISS12+4,4,0 U3CFT 02250
* 012721 1001341200 02260 JR ISS U3CFT 02260
012726 4401346712 02270 SC ISS03+3,3,10 U3CFT 02270
* 012733 1001341200 02280 JR ISS U3CFT 02280
012740 4401346714 02290 SC ISS03+3,3,12 U3CFT 02290
* 012745 1001341200 02300 JR ISS U3CFT 02300
012752 4401346716 02310 SC ISS03+3,3,14 U3CFT 02310
* 012757 1001341200 02320 JR ISS U3CFT 02320
012764 4401346700 02330 SC ISS03+3,3,0 U3CFT 02330
* 012771 1001424600 02340 JR CLR U3CFT 02340
012776 4401361001 02350 SC SEQ+4,1 1 U3CFT 02350
013003 4401360340 02360 SC ISS08+4,4,32 U3CFT 02360
013010 2001057703 02370 FT 0010577,7,3 U3CFT 02370
013015 5201432603 02380 SA1 CCC,3 U3CFT 02380
013022 4401350740 02390 SC ISS12+4,4,32 U3CFT 02390
* 013027 1001341200 02400 JR ISS U3CFT 02400
013034 4401346704 02410 SC ISS03+3,3,4 U3CFT 02410
* 013041 1001424600 02420 JR CLR U3CFT 02420
013046 4401361002 02430 SC SEQ+4,2 2 U3CFT 02430
* 013053 1001341200 02440 JR ISS U3CFT 02440
013060 4401346702 02450 SC ISS03+3,3,2 U3CFT 02450
013065 4401355242 02460 SC ISS07+4,4,34 U3CFT 02460
* 013072 1001424600 02470 JR CLR U3CFT 02470
013077 4401361003 02480 SC SEQ+4,3 3 U3CFT 02480
* 013104 1001341200 02490 JR ISS U3CFT 02490
013111 4401346706 02500 SC ISS03+3,3,6 U3CFT 02500
* 013116 1001424600 02510 JR CLR U3CFT 02510
013123 4401361004 02520 SC SEQ+4,4 4 U3CFT 02520
* 013130 1001341200 02530 JR ISS U3CFT 02530
013135 4401346750 02540 SC ISS03+3,3,40 U3CFT 02540
013142 4401355243 02550 SC ISS07+4,4,35 U3CFT 02550
013147 2601432604 02560 PD CCC,4 U3CFT 02560
013154 4401360300 02570 SC ISS08+4,4,0 U3CFT 02570
013161 4401350700 02580 SC ISS12+4,4,0 U3CFT 02580
* 013166 1001341200 02590 JR ISS U3CFT 02590
013173 4401346752 02600 SC ISS03+3,3,42 U3CFT 02600
* 013200 1001341200 02610 JR ISS U3CFT 02610
013205 4401346754 02620 SC ISS03+3,3,44 U3CFT 02620
* 013212 1001341200 02630 JR ISS U3CFT 02630
013217 4401346756 02640 SC ISS03+3,3,46 U3CFT 02640
* 013224 1001341200 02650 JR ISS U3CFT 02650
013231 4401346700 02660 SC ISS03+3,3,0 U3CFT 02660
* 013236 1001424600 02670 JR CLR U3CFT 02670
013243 4401361001 02680 SC SEQ+4,1 1 U3CFT 02680
013250 4401360340 02690 SC ISS08+4,4,32 U3CFT 02690
013255 2001057703 02700 FT 0010577,7,3 U3CFT 02700
013262 5201432603 02710 SA1 CCC,3 U3CFT 02710
013267 4401350740 02720 SC ISS12+4,4,32 U3CFT 02720
* 013274 1001341200 02730 JR ISS U3CFT 02730
013301 4401346704 02740 SC ISS03+3,3,4 U3CFT 02740
* 013306 1001424600 02750 JR CLR U3CFT 02750
013313 4401361002 02760 SC SEQ+4,2 2 U3CFT 02760
* 013320 1001341200 02770 JR ISS U3CFT 02770
013325 4401346702 02780 SC ISS03+3,3,2 U3CFT 02780
013332 4401355242 02790 SC ISS07+4,4,34 U3CFT 02790
* 013337 1001424600 02800 JR CLR U3CFT 02800
013344 4401361003 02810 SC SEQ+4,3 3 U3CFT 02810
* 013351 1001341200 02820 JR ISS U3CFT 02820
013356 4401346706 02830 SC ISS03+3,3,6 U3CFT 02830
* 013363 1001424600 02840 JR CLR U3CFT 02840
013370 4401361004 02850 SC SEQ+4,4 4 U3CFT 02850
* 013375 1001341200 02860 JR ISS U3CFT 02860
* 013402 3001201200 02870 J TST U3CFT 02870
* 013407 3000000000 02880 ISS J 0 U3CFT 02880
013414 5601431644 02890 BD1 D0NE,4 U3CFT 02890
013421 6200013704 02900 AM1 95,4 U3CFT 02900
013426 4401432700 02910 SC K01,0 U3CFT 02910
013433 6401346600 02920 ISS01 LS ISS03+2,2,0 U3CFT 02920
013440 6401346700 02930 ISS02 LS ISS03+3,3,0 U3CFT 02930
013445 2000060060 02940 FT IMAGE,4848 U3CFT 02940
013452 2000060064 02950 FT IMAGE,5252 U3CFT 02950
013457 2600031304 02960 ISS09 PD 203,4 U3CFT 02960
013464 4100000000 02970 ISS03 XF 000,00,0,0,4 U3CFT 02970
013471 7401432262 02980 ISS10 CT BZER0,5050 U3CFT 02980
* 013476 3001351500 02990 ISS04 J $+15 U3CFT 02990
* 013503 3001351500 03000 ISS12 J $+10 U3CFT 03000
* 013510 3000001060 03010 JD 010 LOCK OUT ERROR U3CFT 03010
* 013515 1001437700 03020 ISS05 JR DELAY U3CFT 03020
013522 3401432701 03030 CC K01,1 U3CFT 03030
* 013527 3001354100 03040 ISS06 J $+10 U3CFT 03040
* 013534 3000001160 03050 JD 011 INH INT ERROR U3CFT 03050
013541 7400031360 03060 ISS13 CT 203,48 U3CFT 03060
* 013546 3001356000 03070 ISS07 J $+10 U3CFT 03070
* 013553 3000001260 03080 JD 012 ABA ERROR U3CFT 03080
013560 7401432662 03090 ISS11 CT CCC,50 U3CFT 03090
* 013565 3001357742 03100 JE ISS08 U3CFT 03100
* 013572 3000001360 03130 JD 013 SPEC BA ERROR U3CFT 03130
* 013577 3001340700 03150 ISS08 J ISS U3CFT 03150
013604 3400060000 03160 SEQ CC IMAGE,0 0 U3CFT 03160
* 013611 3001362342 03170 JE $+10 U3CFT 03170
* 013616 3000001460 03200 JD 014 SEQUENCE ERROR U3CFT 03200
013623 5600061717 03220 BA1 IMAGE+1515,15 U3CFT 03220
013630 7001434757 03221 CB1 TPPAT,1515 U3CFT 03221
* 013635 3001364742 03240 JE $+10 U3CFT 03240
* 013642 3000001560 03270 JD 015 COMP1 ERROR U3CFT 03270
013647 5601057600 03290 BA1 010576,1,16 U3CFT 03290
013654 7001434740 03300 CB1 TPPAT,1616 U3CFT 03300
* 013661 3001340742 03310 JE ISS U3CFT 03310
* 013666 3000001660 03340 JD 016 COMP2 ERROR U3CFT 03340
* 013673 3001340700 03360 J ISS U3CFT 03360
013700 4100007777 03370 TPINT XF 00,0777777,0,4 U3CFT 03370
* 013705 3001372453 03380 JC ERRTN,4343 U3CFT 03380
013712 4401432701 03390 SC K01,1 U3CFT 03390
* 013717 3000000000 03400 INTEX J 0 U3CFT 03400
013724 2601376102 03410 ERRTN PD ERR01+4,4,2 U3CFT 03410
013731 4401376101 03420 SC ERR01+4,4,1 U3CFT 03420
013736 4401400014 03430 SC ERR02+4,4,12 U3CFT 03430
013743 2601403002 03440 PD ERR03+3,3,2 U3CFT 03440
013750 1601403021 03450 BS2 ERR03+3,3,1 U3CFT 03450
013755 4100000000 03460 ERR01 XF 00,00,0,0,4 U3CFT 03460
* 013762 3001400653 03470 JC $+20,43 3 U3CFT 03470
013767 1601376121 03480 BS2 ERR01+4,4,1 U3CFT 03480
* 013774 3201375000 03490 ERR02 JL $-20 U3CFT 03490
* 014001 3001402000 03500 J $+15 U3CFT 03500
014006 6401403001 03510 LS ERR03+3,3,1 U3CFT 03510
* 014013 3001376700 03520 J $-20 U3CFT 03520
* 014020 3000001760 03530 JD 017 ABNORMAL U3CFT 03530
* 014025 3000000060 03540 ERR03 JD 0 U3CFT 03540
014032 5601370101 03550 BA1 TPINT+1,1,1 U3CFT 03550
014037 5201404501 03560 SA1 $+6,1 U3CFT 03560
014044 4100407777 03570 XF 040,0777777,0,4 U3CFT 03570
014051 5600013304 03580 BA1 91,4 U3CFT 03580
014056 5200044303 03590 SA1 291,3 U3CFT 03590
* 014063 3000044000 03600 J 288 U3CFT 03600
* 014070 3000007060 03610 N0INT JD 070 U3CFT 03610
014075 4100407777 03620 XF 040,0777777,0,4 U3CFT 03620
014102 4120407777 03630 XF 040,0777777,0,5 U3CFT 03630
* 014107 3001405100 03640 J $-30 U3CFT 03640
* 014114 3000000036 03650 JC 0,30 U3CFT 03650
014123 014134 03660 +3 CL1 U3CFT 03660
* 014124 3000000035 03670 JC 0,29 U3CFT 03670
014133 014141 03680 CL12 +3 CL2 U3CFT 03680
* 014134 3000007160 03690 CL1 JD 071 U3CFT 03690
* 014141 3000007260 03700 CL2 JD 072 U3CFT 03700
* 014146 3000000031 03710 JC 0,25 U3CFT 03710
014155 000000 03720 +3 0000000000 U3CFT 03720
* 014156 3000000031 03730 JC 0,25 U3CFT 03730
014165 000000 03740 IE45 +3 0000000 0 U3CFT 03740
* 014166 3000000000 03750 GNP J 0 U3CFT 03750
014173 2000177422 03760 FT 1020,18 8 U3CFT 03760
014200 2000062020 03770 FT IMAGE+1616,16 U3CFT 03770
014205 4401423504 03780 SC GNP01+4,4,4 U3CFT 03780
014212 5601434700 03790 BA1 TPPAT,1616 U3CFT 03790
014217 5200061700 03800 SA1 IMAGE+1515,16 U3CFT 03800
014224 2400060021 03810 TFI IMAGE U3CFT 03810
* 014231 3201422404 03820 GNP01 JL $-5,4 U3CFT 03820
* 014236 3001416600 03830 J GNP U3CFT 03830
* 014243 3000000000 03840 CLR J 0 U3CFT 03840
014250 2000177422 03850 FT 1020,18 8 U3CFT 03850
014255 2000060120 03860 FT IMAGE+1,1,16 U3CFT 03860
014262 4400060000 03870 SC IMAGE,0 0 U3CFT 03870
014267 4401430504 03880 SC $+14,4 U3CFT 03880
014274 2400060021 03890 TFI IMAGE U3CFT 03890
* 014301 3201427400 03900 JL $-5 U3CFT 03900
* 014306 3001424300 03910 J CLR U3CFT 03910
000600 03920 IMAGE EQU 00600 U3CFT 03920
014316 0001 03930 D0NE +4 _0001_ U3CFT 03930
014322 00000000 03940 BZER0 +4 000 U3CFT 03940
014326 00010577 03950 CCC +4 00001057577 U3CFT 03950
014327 00 03960 K01 +1 000 U3CFT 03960
014337 7373737373737373 03970 +8 0737373737373737373 03970 3
014347 7373737373737373 03980 TPPAT +8 0737373737373737373 03980 3
014353 00000020 03990 B16 +4 00000002020 U3CFT 03990
014357 00000001 04000 B0NE +4 001 U3CFT 04000
014363 00017000 04010 B2048 +4 00001700000 U3CFT 04010
014367 00031360 04020 BAT4 +4 00003136360 U3CFT 04020
014373 00033364 04030 BAT5 +4 00003336364 U3CFT 04030
* 014374 3000000000 04040 DELAY J 0 U3CFT 04040
014401 2600014304 04050 PD 99,4 U3CFT 04050
014406 7601435730 04060 AT B0NE,24 4 U3CFT 04060
014413 7401436330 04070 CT B2048,2424 U3CFT 04070
* 014420 3001440643 04080 JU $-10 U3CFT 04080
* 014425 3001437400 04090 J DELAY U3CFT 04090
* 014432 3000000000 04100 TMCH J 0 U3CFT 04100
014437 2001524503 04110 FT TMINT,3 3 U3CFT 04110
014444 5200044703 04120 SA1 295,3 U3CFT 04120
014451 2001407003 04130 FT N0INT,3 3 U3CFT 04130
014456 5200045703 04140 SA1 303,3 U3CFT 04140
014463 2000044003 04150 FT 288,3 U3CFT 04150
014470 5201533703 04160 SA1 TMEX+3,3,3 U3CFT 04160
014475 4401512600 04170 SC TM02+1,0,0 U3CFT 04170
014502 4401513300 04180 SC TM03+1,0,0 U3CFT 04180
014507 4401514500 04190 SC TM04+1,0,0 U3CFT 04190
014514 4401521500 04200 SC TM05+1,0,0 U3CFT 04200
014521 4401524600 04210 SC TMINT+1,1,0 U3CFT 04210
014526 4401526000 04220 SC TMI01+1,1,0 U3CFT 04220
014533 4401530400 04230 SC TMI02+1,1,0 U3CFT 04230
014540 4401533000 04240 SC TMI04+1,1,0 U3CFT 04240
014545 4401514362 04250 SC TM07+4,5,50 U3CFT 04250
014552 5601436704 04260 BA1 BAT4,4 U3CFT 04260
014557 5201515504 04270 SA1 TM08+4,4,4 U3CFT 04270
014564 4401517462 04280 SC TM09+4,5,50 U3CFT 04280
* 014571 1001474500 04290 JR TMUS U3CFT 04290
014576 2001524503 04300 FT TMINT,3 3 U3CFT 04300
014603 5200045703 04310 SA1 303,3 U3CFT 04310
014610 2001407003 04320 FT N0INT,3 3 U3CFT 04320
014615 5200044703 04330 SA1 295,3 U3CFT 04330
014622 2000045003 04340 FT 296,3 U3CFT 04340
014627 5201533703 04350 SA1 TMEX+3,3,3 U3CFT 04350
014634 4401512620 04360 SC TM02+1,1,16 U3CFT 04360
014641 4401513320 04370 SC TM03+1,1,16 U3CFT 04370
014646 4401514520 04380 SC TM04+1,1,16 U3CFT 04380
014653 4401521520 04390 SC TM05+1,1,16 U3CFT 04390
014660 4401524620 04400 SC TMINT+1,1,16 U3CFT 04400
014665 4401526020 04410 SC TMI01+1,1,16 U3CFT 04410
014672 4401530420 04420 SC TMI02+1,1,16 U3CFT 04420
014677 4401533020 04430 SC TMI04+1,1,16 U3CFT 04430
014704 4401514366 04440 SC TM07+4,5,54 U3CFT 04440
014711 5601437304 04450 BA1 BAT5,4 U3CFT 04450
014716 5201515504 04460 SA1 TM08+4,4,4 U3CFT 04460
014723 4401517466 04470 SC TM09+4,5,54 U3CFT 04470
* 014730 1001474500 04480 JR TMUS U3CFT 04480
* 014735 3001443200 04490 J TMCH U3CFT 04490
* 014742 3000000000 04500 TMUS J 0 U3CFT 04500
014747 4401476501 04510 TMUS1 SC TMUS2+4,4,1 U3CFT 04510
* 014754 1001502700 04520 JR TMTST U3CFT 04520
* 014761 3201477300 04530 TMUS2 JL $+10 U3CFT 04530
* 014766 3001474200 04531 J TMUS U3CFT 04531
014773 6001512601 04540 AC TM02+1,1,1 U3CFT 04540
015000 6001513301 04550 AC TM03+1,1,1 U3CFT 04550
015005 6001514501 04560 AC TM04+1,1,1 U3CFT 04560
015012 6001521501 04570 AC TM05+1,1,1 U3CFT 04570
* 015017 3001475400 04580 J TMUS1+5 5 U3CFT 04580
* 015024 3000000000 04600 TMTST J 0 U3CFT 04600
015031 4401513543 04610 SC TM03+3,3,35 U3CFT 04610
* 015036 1001511100 04620 JR TMISS U3CFT 04620
015043 4401513553 04630 SC TM03+3,4,43 U3CFT 04630
* 015050 1001511100 04640 JR TMISS U3CFT 04640
015055 4401513563 04650 SC TM03+3,5,51 U3CFT 04650
* 015062 1001511100 04660 JR TMISS U3CFT 04660
015067 4401513573 04670 SC TM03+3,5,59 U3CFT 04670
* 015074 1001511100 04680 JR TMISS U3CFT 04680
* 015101 3001502400 04690 J TMTST U3CFT 04690
* 015106 3000000000 04700 TMISS J 0 U3CFT 04700
015113 5601431644 04720 TM01 BD1 D0NE,4 U3CFT 04720
015120 6200013704 04730 AM1 95,4 U3CFT 04730
015125 4100620000 04740 TM02 XF 062,00,0,0,4 U3CFT 04740
015132 4100620000 04750 TM03 XF 062,00,0,0,4 U3CFT 04750
015137 4601432262 04760 TM07 BT BZER0,5050 U3CFT 04760
015144 4100611000 04770 TM04 XF 061,0100000,0,4 U3CFT 04770
015151 7400031360 04780 TM08 CT 203,48 U3CFT 04780
* 015156 3001517043 04790 JU $+10 U3CFT 04790
* 015163 3000002260 04800 JD 022 ABA ERROR U3CFT 04800
015170 7401432262 04810 TM09 CT BZER0,5050 U3CFT 04810
* 015175 3001520742 04820 JE $+10 U3CFT 04820
* 015202 3000002360 04830 JD 023 SPEC BA ERROR U3CFT 04830
015207 4401432700 04840 SC K01,0 U3CFT 04840
015214 4100610000 04850 TM05 XF 061,00,0,0,4 U3CFT 04850
015221 3401432701 04860 CC K01,1 U3CFT 04860
* 015226 3001524042 04870 JE $+10 U3CFT 04870
* 015233 3000002460 04900 JD 024 TAPE MARK ERROR U3CFT 04900
* 015240 3001510600 04940 J TMISS U3CFT 04940
015245 4100007342 04950 TMINT XF 00,0734242,0,4 U3CFT 04950
* 015252 3001530353 04960 JC TMI02,4343 U3CFT 04960
015257 4100000001 04970 TMI01 XF 00,0000101,0,4 U3CFT 04970
* 015264 3001532253 04980 JC TMI03,4343 U3CFT 04980
* 015271 3000002560 04990 JD 025 INTERRUPT ERROR U3CFT 04990
* 015276 3001121100 05000 J TEST5 U3CFT 05000
* 015303 3000002760 05010 TMI02 JD 027 ABNORMAL U3CFT 05010
015310 4100407777 05020 XF 040,0777777,0,4 U3CFT 05020
* 015315 3001121100 05030 J TEST5 U3CFT 05030
015322 4401432701 05040 TMI03 SC K01,1 U3CFT 05040
015327 4100407777 05050 TMI04 XF 040,0777777,0,4 U3CFT 05050
* 015334 3000000031 05060 TMEX JC 0,25 U3CFT 05060
* 015341 3000000000 05070 SKCH J 0 U3CFT 05070
015346 2001635603 05080 FT SKINT,3 3 U3CFT 05080
015353 5200044703 05090 SA1 295,3 U3CFT 05090
015360 2001407003 05100 FT N0INT,3 3 U3CFT 05100
015365 5200045703 05110 SA1 303,3 U3CFT 05110
015372 4401616200 05120 SC SK02+1,0,0 U3CFT 05120
015377 4401620100 05130 SC SK03+1,0,0 U3CFT 05130
015404 4401620600 05140 SC SK04+1,0,0 U3CFT 05140
015411 4401622000 05150 SC SK05+1,0,0 U3CFT 05150
015416 4401627500 05160 SC SK06+1,0,0 U3CFT 05160
015423 4401630700 05161 SC SK14+1,0,0 U3CFT 05161
015430 4401635700 05170 SC SKINT+1,1,0 U3CFT 05170
015435 4401641000 05180 SC SKI01+1,1,0 U3CFT 05180
015442 4401616060 05190 SC SK08+4,4,48 U3CFT 05190
015447 5601436704 05200 BA1 BAT4,4 U3CFT 05200
015454 5201623004 05210 SA1 SK09+4,4,4 U3CFT 05210
015461 4401624760 05220 SC SK10+4,4,48 U3CFT 05220
015466 4401625462 05230 SC SK11+4,5,50 U3CFT 05230
015473 4401627362 05240 SC SK12+4,5,50 U3CFT 05240
015500 4401621662 05250 SC SK13+4,5,50 U3CFT 05250
* 015505 1001566600 05260 JR SKUS U3CFT 05260
015512 2001635603 05270 FT SKINT,3 3 U3CFT 05270
015517 5200045703 05280 SA1 303,3 U3CFT 05280
015524 2001407003 05290 FT N0INT,3 3 U3CFT 05290
015531 5200044703 05300 SA1 295,3 U3CFT 05300
015536 4401616220 05310 SC SK02+1,1,16 U3CFT 05310
015543 4401620120 05320 SC SK03+1,1,16 U3CFT 05320
015550 4401620620 05330 SC SK04+1,1,16 U3CFT 05330
015555 4401622020 05340 SC SK05+1,1,16 U3CFT 05340
015562 4401627520 05350 SC SK06+1,1,16 U3CFT 05350
015567 4401630720 05351 SC SK14+1,1,16 U3CFT 05351
015574 4401635720 05360 SC SKINT+1,1,16 U3CFT 05360
015601 4401641020 05370 SC SKI01+1,1,16 U3CFT 05370
015606 4401616064 05380 SC SK08+4,5,52 U3CFT 05380
015613 5601437304 05390 BA1 BAT5,4 U3CFT 05390
015620 5201623004 05400 SA1 SK09+4,4,4 U3CFT 05400
015625 4401624764 05410 SC SK10+4,5,52 U3CFT 05410
015632 4401625466 05420 SC SK11+4,5,54 U3CFT 05420
015637 4401627366 05430 SC SK12+4,5,54 U3CFT 05430
015644 4401621666 05440 SC SK13+4,5,54 U3CFT 05440
* 015651 1001566600 05450 JR SKUS U3CFT 05450
* 015656 3001534100 05460 J SKCH U3CFT 05460
* 015663 3000000000 05470 SKUS J 0 U3CFT 05470
015670 4401570601 05480 SKUS1 SC SKUS2+4,4,1 U3CFT 05480
* 015675 1001576200 05490 JR SKTST U3CFT 05490
* 015702 3201571400 05500 SKUS2 JL $+10 U3CFT 05500
* 015707 3001566300 05501 J SKUS U3CFT 05501
015714 6001616201 05510 AC SK02+1,1,1 U3CFT 05510
015721 6001620101 05520 AC SK03+1,1,1 U3CFT 05520
015726 6001620601 05530 AC SK04+1,1,1 U3CFT 05530
015733 6001622001 05540 AC SK05+1,1,1 U3CFT 05540
015740 6001627501 05550 AC SK06+1,1,1 U3CFT 05550
015745 6001630701 05551 AC SK14+1,1,1 U3CFT 05551
* 015752 3001567500 05560 J SKUS1+5 5 U3CFT 05560
* 015757 3000000000 05580 SKTST J 0 U3CFT 05580
015764 4401622204 05590 SC SK05+3,4,4 U3CFT 05590
* 015771 1001611400 05600 JR SKISS U3CFT 05600
015776 4401622214 05610 SC SK05+3,1,12 U3CFT 05610
* 016003 1001611400 05620 JR SKISS U3CFT 05620
016010 4401622224 05630 SC SK05+3,2,20 U3CFT 05630
* 016015 1001611400 05640 JR SKISS U3CFT 05640
016022 4401622234 05650 SC SK05+3,2,28 U3CFT 05650
* 016027 1001611400 05660 JR SKISS U3CFT 05660
016034 4401622244 05670 SC SK05+3,3,36 U3CFT 05670
* 016041 1001611400 05680 JR SKISS U3CFT 05680
016046 4401622254 05690 SC SK05+3,4,44 U3CFT 05690
* 016053 1001611400 05700 JR SKISS U3CFT 05700
016060 4401622264 05710 SC SK05+3,5,52 U3CFT 05710
* 016065 1001611400 05720 JR SKISS U3CFT 05720
016072 4401622274 05730 SC SK05+3,6,60 U3CFT 05730
* 016077 1001611400 05740 JR SKISS U3CFT 05740
* 016104 3001575700 05750 J SKTST U3CFT 05750
* 016111 3000000000 05760 SKISS J 0 U3CFT 05760
* 016116 1001646400 05770 JR GNSK U3CFT 05770
016123 4401635003 05780 SC SK07+4,3,3 U3CFT 05780
016130 5601431644 05790 SK01 BD1 D0NE,4 U3CFT 05790
016135 6200013704 05800 AM1 95,4 U3CFT 05800
016142 5601644000 05810 BA1 SKTP1,1616 U3CFT 05810
016147 5200061700 05820 SA1 SWIM+15,5,16 U3CFT 05820
016154 2000060060 05830 SK08 FT SWIM,48 8 U3CFT 05830
016161 4100620000 05840 SK02 XF 062,00,0,0,4 U3CFT 05840
016166 5601646000 05850 BA1 SKTP2,1616 U3CFT 05850
016173 5200061700 05860 SA1 SWIM+15,5,16 U3CFT 05860
016200 4100620000 05870 SK03 XF 062,00,0,0,4 U3CFT 05870
016205 4100611000 05880 SK04 XF 061,0100000,0,4 U3CFT 05880
016212 4601432262 05890 SK13 BT BZER0,5050 U3CFT 05890
016217 4100620400 05900 SK05 XF 062,0040400,0,4 U3CFT 05900
016224 7400031360 05910 SK09 CT 203,48 U3CFT 05910
* 016231 3001624343 05920 JU $+10 U3CFT 05920
* 016236 3000003260 05930 JD 032 ABA ERROR U3CFT 05930
016243 2000460060 05940 SK10 FT SRIM,48 8 U3CFT 05940
016250 7401432260 05950 SK11 CT BZER0,4848 U3CFT 05950
* 016255 3001627442 05960 JE $+15 U3CFT 05960
* 016262 3000003360 05970 JD 033 SPEC BA ERROR U3CFT 05970
016267 4601432262 05980 SK12 BT BZER0,5050 U3CFT 05980
016274 4100611000 05990 SK06 XF 061,0100000,0,4 U3CFT 05990
016301 2600461700 06000 PD SRIM+15,5,16 U3CFT 06000
016306 4100610000 06010 SK14 XF 061,00,0,0,4 U3CFT 06010
016313 5600461700 06020 BA1 SRIM+15,5,16 U3CFT 06020
016320 7001644040 06030 CB1 SKTP1,1616 U3CFT 06030
* 016325 3001633742 06040 JE $+10 U3CFT 06040
* 016332 3000003460 06070 JD 034 ERASE ERROR U3CFT 06070
016337 6001622201 06090 AC SK05+3,1,1 U3CFT 06090
* 016344 3201613004 06100 SK07 JL SK01,4 U3CFT 06100
* 016351 3001611100 06110 J SKISS U3CFT 06110
016356 4100007777 06120 SKINT XF 00,0777777,0,4 U3CFT 06120
* 016363 3001640253 06130 JC $+15,43 3 U3CFT 06130
* 016370 3000003560 06140 JD 035 INTERRUPT ERROR U3CFT 06140
* 016375 3001640700 06141 J $+10 U3CFT 06141
* 016402 3000003760 06142 JD 037 U3CFT 06142
016407 4100407777 06150 SKI01 XF 040,0777777,0,4 U3CFT 06150
* 016414 3001130031 06160 JC TEST6,2525 U3CFT 06160
016430 0707070707070707 06170 +8 0070707070707070707 U3CFT 06170 7
016440 0707070707070707 06180 SKTP1 +8 0070707070707070707 U3CFT 06180 7
016450 7070707070707070 06190 +8 0707070707070707070 U3CFT 06190 0
016460 7070707070707070 06200 SKTP2 +8 0707070707070707070 U3CFT 06200 0
000600 06210 SWIM EQU 00600 U3CFT 06210
004600 06220 SRIM EQU 0004600 0 U3CFT 06220
* 016461 3000000000 06230 GNSK J 0 U3CFT 06230
016466 2000200022 06240 FT 1024,18 8 U3CFT 06240
016473 2000062020 06250 FT SWIM+16,6,16 U3CFT 06250
016500 4401653002 06260 SC GNSK1+4,4,2 U3CFT 06260
016505 5601434700 06270 BA1 TPPAT,1616 U3CFT 06270
016512 5200061700 06280 SA1 SWIM+15,5,16 U3CFT 06280
016517 2400060021 06290 TFI SWIM U3CFT 06290
* 016524 3201651702 06300 GNSK1 JL $-5,2 U3CFT 06300
* 016531 3001646100 06310 J GNSK U3CFT 06310
* 016536 3000000000 06320 RWCH J 0 U3CFT 06320
016543 2001731303 06330 FT RWINT,3 3 U3CFT 06330
016550 5200044703 06340 SA1 295,3 U3CFT 06340
016555 2001407003 06350 FT N0INT,3 3 U3CFT 06350
016562 5200045703 06360 SA1 303,3 U3CFT 06360
016567 4401713600 06370 SC RW01+1,0,0 U3CFT 06370
016574 4401715500 06380 SC RW02+1,0,0 U3CFT 06380
016601 4401717400 06390 SC RW04+1,0,0 U3CFT 06390
016606 4401725600 06400 SC RW05+1,0,0 U3CFT 06400
016613 4401731400 06410 SC RWINT+1,1,0 U3CFT 06410
016620 4401734500 06420 SC RWI01+1,1,0 U3CFT 06420
016625 4401711560 06430 SC RW06+4,4,48 U3CFT 06430
016632 4401717262 06440 SC RW07+4,5,50 U3CFT 06440
016637 5601436704 06450 BA1 BAT4,4 U3CFT 06450
016644 5201721104 06460 SA1 RW08+4,4,4 U3CFT 06460
016651 4401723062 06470 SC RW09+4,5,50 U3CFT 06470
016656 4401725460 06480 SC RW10+4,4,48 U3CFT 06480
* 016663 1001702500 06490 JR RWU U3CFT 06490
016670 2001731303 06500 FT RWINT,3 3 U3CFT 06500
016675 5200045703 06510 SA1 303,3 U3CFT 06510
016702 2001407003 06520 FT N0INT,3 3 U3CFT 06520
016707 5200044703 06530 SA1 295,3 U3CFT 06530
016714 4401713620 06540 SC RW01+1,1,16 U3CFT 06540
016721 4401715520 06550 SC RW02+1,1,16 U3CFT 06550
016726 4401717420 06560 SC RW04+1,1,16 U3CFT 06560
016733 4401725620 06570 SC RW05+1,1,16 U3CFT 06570
016740 4401731420 06580 SC RWINT+1,1,16 U3CFT 06580
016745 4401734520 06590 SC RWI01+1,1,16 U3CFT 06590
016752 4401711564 06600 SC RW06+4,5,52 U3CFT 06600
016757 4401717266 06610 SC RW07+4,5,54 U3CFT 06610
016764 5601437304 06620 BA1 BAT5,4 U3CFT 06620
016771 5201721104 06630 SA1 RW08+4,4,4 U3CFT 06630
016776 4401723066 06640 SC RW09+4,5,54 U3CFT 06640
017003 4401725464 06650 SC RW10+4,5,52 U3CFT 06650
* 017010 1001702500 06660 JR RWU U3CFT 06660
* 017015 3001653600 06670 J RWCH U3CFT 06670
* 017022 3000000000 06680 RWU J 0 U3CFT 06680
017027 4401704501 06690 RWU1 SC RWU2+4,1,1 U3CFT 06690
* 017034 1001710700 06691 JR RWTST U3CFT 06691
* 017041 3201705300 06700 RWU2 JL $+10 U3CFT 06700
* 017046 3001702200 06701 J RWU U3CFT 06701
017053 6001715501 06720 AC RW02+1,1,1 U3CFT 06720
017060 6001717401 06730 AC RW04+1,1,1 U3CFT 06730
017065 6001713601 06731 AC RW01+1,1,1 U3CFT 06731
017072 6001725601 06740 AC RW05+1,1,1 U3CFT 06740
* 017077 3001703400 06750 J RWU1+5 U3CFT 06750
* 017104 3000000000 06770 RWTST J 0 U3CFT 06770
017111 2001741460 06780 RW06 FT RWPAT-1515,48 U3CFT 06780
017116 2000002061 06790 FT 16,49 U3CFT 06790
017123 2000002065 06800 FT 16,53 U3CFT 06800
017130 4401716577 06810 SC RW03+4,6,63 U3CFT 06810
017135 4100620000 06820 RW01 XF 062,00,0,0,4 U3CFT 06820
017142 5601435744 06830 BD1 B0NE,4 U3CFT 06830
017147 6200013704 06840 AM1 95,4 U3CFT 06840
017154 4100620400 06850 RW02 XF 062,0040400,0,4 U3CFT 06850
* 017161 3201715400 06860 RW03 JL RW02 U3CFT 06860
017166 4601432262 06870 RW07 BT BZER0,5050 U3CFT 06870
017173 4100677777 06880 RW04 XF 067,0777777,0,4 U3CFT 06880
* 017200 1001736100 06890 JR RWDLY U3CFT 06890
017205 7400031360 06900 RW08 CT 203,48 U3CFT 06900
* 017212 3001722443 06910 JU $+10 U3CFT 06910
* 017217 3000004260 06920 JD 042 ABA ERROR U3CFT 06920
017224 7401432262 06930 RW09 CT BZER0,5050 U3CFT 06930
* 017231 3001724342 06940 JE $+10 U3CFT 06940
* 017236 3000004360 06950 JD 043 SPEC BA ERROR U3CFT 06950
017243 2601745300 06960 PD RWRD+15,5,16 U3CFT 06960
017250 2001743460 06970 RW10 FT RWRD,48 8 U3CFT 06970
017255 4100610000 06980 RW05 XF 061,00,0,0,4 U3CFT 06980
017262 5601745300 06990 BA1 RWRD+15,5,16 U3CFT 06990
017267 7001743340 07000 CB1 RWPAT,1616 U3CFT 07000
* 017274 3001710442 07010 JE RWTST U3CFT 07010
* 017301 3000004460 07040 JD 044 REWIND ERROR U3CFT 07040
* 017306 3001710400 07060 J RWTST U3CFT 07060
017313 4100007777 07070 RWINT XF 00,0777777,0,4 U3CFT 07070
* 017320 3001733753 07080 JC $+15,43 3 U3CFT 07080
* 017325 3000004560 07090 JD 045 INTERRUPT ERROR U3CFT 07090
* 017332 3001734400 07091 J $+10 U3CFT 07091
* 017337 3000004760 07092 JD 047 U3CFT 07092
017344 4100407777 07100 RWI01 XF 040,0777777,0,4 U3CFT 07100
* 017351 3001134300 07110 J TEST7 U3CFT 07110
* 017356 3000000000 07120 RWDLY J 0 U3CFT 07120
017363 2600015704 07130 PD 0157,4 U3CFT 07130
017370 7601435733 07140 AT B0NE,27 7 U3CFT 07140
017375 7401745733 07150 CT RWK,27 U3CFT 07150
* 017402 3001737043 07160 JU $-10 U3CFT 07160
* 017407 3001735600 07170 J RWDLY U3CFT 07170
017423 0000000000000000 07180 +8 0 07180
017433 0000000000000000 07190 RWPAT +8 0 07190
017434 20 07200 RWRD AREA 16 U3CFT 07200
017457 00177700 07210 RWK +4 00017770700 U3CFT 07210
017460 02 07220 UNITS +1 002 U3CFT 07220
* 017461 3000000000 07230 ITLCH J 0 U3CFT 07230
017466 2001770203 07240 FT ITLI,3 U3CFT 07240
017473 5200044703 07250 SA1 295,3 U3CFT 07250
017500 2001407003 07260 FT N0INT,3 3 U3CFT 07260
017505 5200045703 07270 SA1 303,3 U3CFT 07270
017512 4401767100 07280 SC ITL01+1,1,0 U3CFT 07280
017517 4401770300 07290 SC ITLI+1,0,0 U3CFT 07290
017524 4401773700 07300 SC ITLI1+4,4,0 U3CFT 07300
* 017531 1001762300 07310 JR ITLU U3CFT 07310
* 017536 3000005460 07320 JD 054 DEPRESS CHANGE TAPE U3CFT 07320
017543 2001770203 07330 FT ITLI,3 U3CFT 07330
017550 5200045703 07340 SA1 303,3 U3CFT 07340
017555 2001407003 07350 FT N0INT,3 3 U3CFT 07350
017562 5200044703 07360 SA1 295,3 U3CFT 07360
017567 4401767120 07370 SC ITL01+1,1,16 U3CFT 07370
017574 4401770320 07380 SC ITLI+1,1,16 U3CFT 07380
017601 4401773420 07390 SC ITLI1+1,1,16 U3CFT 07390
* 017606 1001762300 07400 JR ITLU U3CFT 07400
* 017613 3001746100 07410 J ITLCH U3CFT 07410
* 017620 3000000000 07420 ITLU J 0 U3CFT 07420
017625 4401764301 07430 ITLU1 SC ITLU2+4,4,1 U3CFT 07430
* 017632 1001766600 07440 JR ITTST U3CFT 07440
* 017637 3201765100 07450 ITLU2 JL $+10 U3CFT 07450
* 017644 3001762000 07451 J ITLU U3CFT 07451
017651 6001767101 07460 AC ITL01+1,1,1 U3CFT 07460
* 017656 3001763200 07470 J ITLU1+5 5 U3CFT 07470
* 017663 3000000000 07480 ITTST J 0 U3CFT 07480
017670 4100777777 07490 ITL01 XF 077,0777777,0,4 U3CFT 07490
* 017675 3001766300 07500 J ITTST U3CFT 07500
017702 4100007777 07510 ITLI XF 00,0777777,0,4 U3CFT 07510
* 017707 3001772653 07520 JC $+15,43 3 U3CFT 07520
* 017714 3000005560 07530 JD 055 INTERRUPT ERROR U3CFT 07530
* 017721 3001773300 07531 J $+10 U3CFT 07531
* 017726 3000005760 07532 JD 057 U3CFT 07532
017733 4100407777 07540 ITLI1 XF 040,0777777,0,4 U3CFT 07540
* 017740 3001140100 07550 J TEST8 U3CFT 07550
3001060000 07560 END 0010600 0 U3CFT 07560
{-- tape mark --}
013657 C101 DFC CODEDIT SOURCE 06/67 AC G T3834394-10
001400 00010 T101 BEGIN 01400 DFC 00010
*LOAD 0700,TAPAPE,,PRELD L
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T102 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 T103 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 T104 3000135600 * SEGJP $ *
001400 00020 ORIG 01400 DFC 00020
001403 00000000 00030 UTHS +4 00000000000 DFC 00030
001413 7070707070707070 00040 +8 0707070707070707070 DFC 00040 0
001423 7070707070707070 00050 SVO +8 0707070707070707070 DFC 00050 0
001427 00000707 00060 OSV +4 00707 DFC 00060
001433 00000250 00070 B168 +4 0000250 0 DFC 00070
001437 00000000 00080 UTH +4 00000000000 DFC 00080
001443 00000000 00090 ZERO +4 0 DFC 00090
* 001444 3000000000 00100 IZE JC 0 DFC 00100
001451 2600035700 00110 PD 0357,16 6 DFC 00110
001456 5601024410 00120 NN BA1 IE6,8 DFC 00120
001463 5200046710 00130 SA1 0467,8 DFC 00130
001470 5601023410 00140 BA1 IE0,8 DFC 00140
001475 5200040710 00150 SA1 0407,8 DFC 00150
001502 2600007700 00160 N PD 077,16 DFC 00160
001507 2600005700 00170 PD 057,16 DFC 00170
001514 5601022400 00180 BA1 IE2,16 DFC 00180
001521 5200051700 00190 SA1 0517,16 6 DFC 00190
001526 5600143704 00200 BA1 UTH,4 DFC 00200
001533 5200140304 00210 SA1 UTHS,4 DFC 00210
* 001540 3000144426 00220 JC IZE,22 DFC 00220
001545 2600001700 00230 STRT PD 017,16 ZERO AR1 DFC 00230 A
001552 5600744530 00240 BA2 IE7+7,8 8 SET UP CH 7 INTERRUPT DFC 00240
001557 5200047730 00250 SA2 0477,8 DFC 00250
001564 5600743502 00260 BA1 UTH0N,2 2 16 IS LOWER UNIT 17 IS UPPER UNIT DFC 00260 S
* 001571 3000160360 00270 JD STORE HIT START,M,START TO WRITE DFC 00270
* 001576 3000154500 00280 J STRT DFC 00280
001603 5200743502 00290 STORE SA1 UTH0N,2 2 DFC 00290
001610 1600743522 00300 BS2 UTH0N,2 2 DFC 00300
001615 5600743502 00310 BA1 UTH0N,2 2 DFC 00310
001622 5200743302 00320 SA1 UNITU,2 2 DFC 00320
001627 5600743401 00330 RETN BA1 UTH0N-1,1,1 DFC 00330
001634 5200143401 00340 SA1 UTH-3,1 1 DFC 00340
* 001641 1000144700 00350 START JR IZE DFC 00350
* 001646 3000165322 00360 JC $+5,18 DFC 00360
001653 2001025070 00370 FT WRIM,56 6 LOCKOUT TEST DFC 00370
001660 4400035160 00380 SC 0351,06060 3 SECTOR COUNT, T58 DFC 00380
001665 6400034120 00390 LS 0341,02020 DFC 00390
001672 5600140304 00400 BA1 UTHS,4 DFC 00400
001677 5200034704 00410 SA1 0347,4 DFC 00410
001704 4140460000 00420 W1 XF 046,0,0,0,6 WRITE 1 SECTOR DFC 00420
* 001711 3000172365 00430 JC ER1,53 DFC 00430
* 001716 3000173522 00440 JC $+15,18 8 DFC 00440
* 001723 3000000160 00450 ER1 JD 01 LOCKOUT ERROR DFC 00450
* 001730 3000164100 00460 JC START DFC 00460
001735 5600035101 00470 BA1 0351,1 DFC 00470
001742 5400001760 00480 LP 15,060 DFC 00480
001747 3400001700 00490 CC 15,0 DFC 00490
* 001754 3000177342 00500 JC $+15,34 4 DFC 00500
* 001761 3000000260 00510 ER2 JD 02 SECTOR COUNT IN TETRAP 58 DFC 00510
* 001766 3000164100 00520 JC START NOT CLEARED TO ZERO DFC 00520
001773 6000034353 00530 AC 0343,05353 DFC 00530
002000 6000034202 00540 AC 0342,02 2 DFC 00540
002005 5400034107 00550 LP 0341,07 7 DFC 00550
002012 7400035370 00560 CT 0353,56 6 DFC 00560
* 002017 3000203642 00570 JC $+15,34 4 DFC 00570
* 002024 3000000360 00580 ER3 JD 03 CORE MEMORY ADDRESS OF DFC 00580
* 002031 3000164100 00590 JC START TETRAP 58 NOT CORRECT DFC 00590
002036 2001065070 00600 FT RDIM,56 6 INHIBIT INTERRUPT DFC 00600
002043 6400034120 00610 LS 0341,02020 DFC 00610
* 002050 1000640400 00620 JR CLEAR NO HEAD BAR POSITION DFC 00620
002055 4140610000 00630 R1 XF 061,0,0,0,6 CLEAR READ IN AREA DFC 00630
* 002062 3000210165 00640 JC $+15,53 3 INH,READ,NO POSITION DFC 00640
* 002067 3000000460 00650 ER4 JD 04 INTERRUPT WAS NOT DFC 00650
* 002074 3000164100 00660 JC START INHIBITED DFC 00660
* 002101 1000644200 00670 JR COMP DFC 00670
002106 2600035710 00680 PD 0357,8 DFC 00680
002113 4140007777 00690 XF 0,07777,7,0,6 DFC 00690
* 002120 3000213253 00700 JC $+10,43 3 DFC 00700
* 002125 3000214400 00710 JC $+15 DFC 00710
* 002132 3000000660 00720 ER6 JD 06 TEST INDICATION ERROR DFC 00720
* 002137 3000164100 00730 JC START ON RESET DFC 00730
* 002144 1000640422 00740 JR CLEAR,1818 CLEAR READ IN AREA DFC 00740
002151 4140010000 00750 R2 XF 01,0,0,6,6 DFC 00750
* 002156 3000215665 00760 JC $,53 LOOP TILL IPT DFC 00760
* 002163 1000644222 00770 JR COMP,18 8 DFC 00770
002170 6000034202 00780 AC 0342,02 2 DFC 00780
002175 6000034350 00790 AC 0343,05050 DFC 00790
002202 5400034107 00800 LP 0341,07 7 DFC 00800
002207 7400035370 00810 CT 0353,56 6 DFC 00810
* 002214 3000223342 00820 JC $+15,34 4 DFC 00820
* 002221 3000000760 00830 ER7 JD 07 SINGLE SECTOR DFC 00830
* 002226 3000164100 00840 JC START WRITE AND READ DFC 00840
002233 3400140377 00850 END CC UTHS,07777 64 SECTORS OF 70 DFC 00850
* 002240 3000225742 00860 JC $+15,34 4 DFC 00860
002245 6000140301 00870 AC UTHS,01 1 DFC 00870
* 002252 3000164600 00880 JC START+5 5 DFC 00880
002257 4400140300 00890 SC UTHS,0 DFC 00890
002264 6000140201 00900 AC UTHS-1,0,01 FULL TRACKS 0,HEAD DFC 00900
002271 5600143601 00910 BA1 UTH-1,1 1 DFC 00910
002276 6000001701 00920 AC 15,01 DFC 00920
002303 7000140241 00930 CB1 UTHS-1,1,1 DFC 00930
* 002310 3000164643 00940 JC START+5,5,35 DFC 00940
002315 2600035704 00950 PD 0357,4 STORE DRUM ADD TEST DFC 00950
002322 4140100000 00960 RDA XF 010,0,0,0,6 REQUEST DRUM ADDRESS DFC 00960 U
002327 6000034701 00970 AC 0347,1 DFC 00970
002334 4400034700 00980 SC 0347,0 DFC 00980
002341 7400034773 00990 CT 0347,59 9 DFC 00990
* 002346 3000236542 01000 JC $+15,34 4 DFC 01000
* 002353 3000001060 01010 ER10 JD 010 STORE DRUM ADDRESS DFC 01010
* 002360 3000164100 01020 JC START ERROR DFC 01020
002365 4400034577 01030 POSIT SC 0345,07777 DFC 01030
* 002372 1000640422 01040 JR CLEAR,1818 DFC 01040
002377 4140040000 01050 POS1 XF 04,0,0,6,6 DFC 01050
* 002404 3000240465 01060 JC $,53 LOOP TILL IPT DFC 01060
002411 2001065070 01070 FT RDIM,56 6 DFC 01070
002416 6400034120 01080 LS 0341,02020 DFC 01080
002423 4140610000 01090 TPOSR XF 061,0,0,0,6 LOCKOUT,INHBIT, READ OFF-TRACK DFC 01090 K
002430 4600143771 01100 BT UTH,57 DFC 01100
* 002435 1000640422 01110 JR CLEAR,1818 DFC 01110
002442 4140040000 01120 POS2 XF 04,0,0,6,6 POSITION DFC 01120
* 002447 3000244765 01130 JC $,53 LOOP TILL IPT DFC 01130
002454 2001065070 01140 FT RDIM,56 6 DFC 01140
002461 6400034120 01150 LS 0341,02020 DFC 01150
* 002466 3000247322 01160 JC $+5,18 DFC 01160
002473 4140010000 01170 R3 XF 01,0,0,6,6 READ NO POSITION DFC 01170
* 002500 3000250065 01180 JC $,53 DFC 01180
* 002505 1000644223 01190 JR COMP,19 9 DFC 01190
002512 4400034577 01200 SC 0345,07777 DFC 01200
* 002517 3000252422 01210 JC $+5,18 DFC 01210
002524 4140260000 01220 W2 XF 026,0,0,0,6 INHIBIT,NO LOCKOUT,POSITION AND WRITE DFC 01220 I
002531 4140620000 01230 FBW1 XF 062,0,0,0,6 FORCE BUSY DFC 01230 R
* 002536 3000255065 01240 JC $+10,53 3 DFC 01240
* 002543 3000256200 01250 JC $+15 DFC 01250
* 002550 3000002060 01260 ER20 JD 020 DFC 01260
* 002555 3000164100 01270 JC START DFC 01270
002562 4140000400 01280 XF 0,00400,0,0,6 DFC 01280
* 002567 3000260653 01290 JC $+15,43 3 DFC 01290
* 002574 3000002160 01300 ER21 JD 021 BUSY NOT SET DFC 01300
* 002601 3000164100 01310 JC START DFC 01310
002606 4140400400 01320 XF 32,0040000,0,6 DFC 01320
002613 4140000400 01330 XF 0,00400,0,0,6 DFC 01330
* 002620 3000263253 01340 JC $+10,43 3 DFC 01340
* 002625 3000264400 01350 JC $+15 DFC 01350
* 002632 3000002260 01360 ER22 JD 022 CANT RESET BUSY DFC 01360
* 002637 3000164100 01370 JC START DFC 01370
* 002644 1000640422 01380 JR CLEAR,1818 CHARACTER TEST07 DFC 01380
002651 4600143771 01390 BT UTH,57 DFC 01390
002656 2001065070 01400 FT RDIM,56 6 DFC 01400
002663 6400034120 01410 LS 0341,02020 1 CHAR READ DFC 01410
002670 4140651000 01420 R4 XF 065,0100000,0,6 DFC 01420
002675 4140000400 01430 XF 0,00400,0,0,6 DFC 01430
* 002702 3000271453 01440 JC $+10,43 3 DFC 01440
* 002707 3000272626 01450 JC $+15,22 2 RESET IND 2 DFC 01450
002714 4140400400 01460 XF 32,0040000,0,6 RESET BUSY DFC 01460 R
* 002721 3000267000 01470 JC R4 DFC 01470
* 002726 3000273322 01480 JC $+5,18 DFC 01480
002733 3401065070 01490 CC RDIM,07070 DFC 01490
* 002740 3000275742 01500 JC $+15,34 4 DFC 01500
* 002745 3000003060 01510 ER30 JD 030 FIRST CH. ON 1CH READ DFC 01510
* 002752 3000164100 01520 JC START INCORRECT DFC 01520
002757 3401065107 01530 CC RDIM+1,0,07 DFC 01530
* 002764 3000300342 01540 JC $+15,34 4 DFC 01540
* 002771 3000003160 01550 ER31 JD 031 FIRIRST CHAR. ON 1 CHAR. READ DFC 01550 R
* 002776 3000164100 01560 JC START ALTEREP ON 1CH. READ DFC 01560
* 003003 3000302265 01570 JC $+15,53 3 DFC 01570
* 003010 3000003260 01580 ER32 JD 032 DFC 01580
* 003015 3000164100 01590 JC START INH.,NOT WORKING DFC 01590
* 003022 1000640400 01600 JR CLEAR DFC 01600
003027 2001065070 01610 FT RDIM,56 6 DFC 01610
003034 6400034140 01620 LS 0341,04040 DFC 01620
003041 4140011000 01630 R5 XF 01,0100000,0,6 READ ONLY,CHARACTER COUNT DFC 01630 R
* 003046 3000304665 01640 JC $,53 LOOP TILL 1PT DFC 01640
003053 5601065102 01650 BA1 RDIM+1,2,2 DFC 01650
003060 7000142342 01660 CB1 SVO,2 DFC 01660
* 003065 3000310442 01670 JC $+15,34 4 DFC 01670
* 003072 3000003360 01680 ERR33 JD 033 DATA ERROR ON 2 CHAR. DFC 01680
* 003077 3000164100 01690 JC START READ DFC 01690
003104 5601065302 01700 BA1 RDIM+3,2,2 DFC 01700
003111 5601111701 01710 BA1 RDIM+16767,1 0707 DFC 01710
003116 7000142742 01720 CB1 OSV,2 DFC 01720
* 003123 3000314242 01730 JC $+15,34 4 DFC 01730
* 003130 3000003460 01740 ER34 JD 034 BUFFER CH. ON2 CHAR DFC 01740
* 003135 3000164100 01750 JC START READ DFC 01750
003142 6000034701 01760 AC 0347,01 1 DFC 01760
003147 7400034773 01770 CT 0347,59 9 DFC 01770
* 003154 3000317342 01780 JC $+15,34 4 DFC 01780
* 003161 3000003560 01790 ER35 JD 035 T59 NOT EQU S+1 DFC 01790
* 003166 3000164100 01800 JC START S SHOULD INCREMT. BY 1 FULL SECTOR COUNT DFC 01800 I
003173 5400034107 01810 LP 0341,07 7 DFC 01810
003200 6000034302 01820 AC 0343,02 2 DFC 01820
003205 7400035370 01830 CT 0353,56 6 DFC 01830
* 003212 3000323142 01840 JC $+15,34 4 DFC 01840
* 003217 3000003660 01850 ER36 JD 036 T 57 INCORRECT DFC 01850
* 003224 3000164100 01860 JC START DFC 01860
003231 2001065070 01870 FT RDIM,56 6 4 CHAR READ DFC 01870
003236 4600143771 01880 BT UTH,57 DFC 01880
003243 6400034001 01890 LS 0340,01 1 DFC 01890
003250 4140411000 01900 R6 XF 041,0100000,0,6 DFC 01900
003255 5601065304 01910 BA1 RDIM+3,4,4 DFC 01910
003262 7000142344 01920 CB1 SVO,4 DFC 01920
* 003267 3000330642 01930 JC $+15,34 4 DFC 01930
* 003274 3000003760 01940 ER37 JD 037 4CH READ DATA ERROR DFC 01940
* 003301 3000164100 01950 JC START DFC 01950
003306 5601065502 01960 BA1 RDIM+5,2,2 DFC 01960
003313 5601111701 01970 BA1 RDIM+16767,1 DFC 01970
003320 7000142742 01980 CB1 OSV,2 DFC 01980
* 003325 3000334442 01990 JC $+15,34 4 DFC 01990
* 003332 3000004060 02000 ER40 JD 040 4 CH. READ BUFFER ER. DFC 02000
* 003337 3000164100 02010 JC START DFC 02010
003344 5400034000 02020 LP 0340,0 8 CHAR. READ DFC 02020
003351 6400034002 02030 LS 0340,2 DFC 02030
* 003356 1000640400 02040 JR CLEAR DFC 02040
003363 4140611000 02050 R10 XF 061,0100000,0,6 CH.6 DFC 02050
003370 5601065710 02060 BA1 RDIM+7,8,8 DFC 02060
003375 7000142350 02070 CB1 SVO,8 DFC 02070
* 003402 3000342142 02080 JC $+15,34 4 DFC 02080
* 003407 3000040060 02090 ERR04 JD 0400 DFC 02090
* 003414 3000164100 02100 JC START DFC 02100
003421 5601066102 02110 BA1 RDIM+9,2,2 DFC 02110
003426 5601111701 02120 BA1 RDIM+16767,1 DFC 02120
003433 7000142742 02130 CB1 OSV,2 DFC 02130
* 003440 3000345742 02140 JC $+15,34 4 DFC 02140
* 003445 3000004160 02150 ER41 JD 041 DFC 02150
* 003452 3000164100 02160 JC START DFC 02160
003457 5400034000 02170 LP 0340,0 16 CHAR READ DFC 02170
003464 6400034004 02180 LS 0340,04 4 DFC 02180
* 003471 1000640400 02190 JR CLEAR DFC 02190
003476 4140611000 02200 R11 XF 061,0100000,0,6 DFC 02200
003503 5601066700 02210 BA1 RDIM+15,5,16 DFC 02210
003510 7000142340 02220 CB1 SVO,16 DFC 02220
* 003515 3000353442 02230 JC $+15,34 4 DFC 02230
* 003522 3000004260 02240 ER42 JD 042 DATA ERROR DFC 02240
* 003527 3000164100 02250 JC START DFC 02250
003534 5601067102 02260 BA1 RDIM+17,7,2 DFC 02260
003541 5601111701 02270 BA1 RDIM+16767,1 DFC 02270
003546 7000142742 02280 CB1 OSV,2 DFC 02280
* 003553 3000357242 02290 JC $+15,34 4 DFC 02290
* 003560 3000004360 02300 ER43 JD 043 MEM ERROR DFC 02300
* 003565 3000164100 02310 JC START DFC 02310
003572 5400034000 02320 LP 0340,0 32 CHAR READ DFC 02320
003577 6400034010 02330 LS 0340,8 DFC 02330
* 003604 1000640400 02340 JR CLEAR DFC 02340
003611 4140611000 02350 R122 XF 061,0100000,0,6 DFC 02350
003616 5601070700 02360 BA1 RDIM+31,1,16 DFC 02360
003623 7000142340 02370 CB1 SVO,16 DFC 02370
* 003630 3000364742 02380 JC $+15,34 4 DFC 02380
* 003635 3000004460 02390 ER44 JD 044 DFC 02390
* 003642 3000164100 02400 JC START DFC 02400
003647 5601071102 02410 BA1 RDIM+33,3,2 DFC 02410
003654 5601111701 02420 BA1 RDIM+16767,1 DFC 02420
003661 7000142742 02430 CB1 OSV,2 DFC 02430
* 003666 3000370542 02440 JC $+15,34 4 DFC 02440
* 003673 3000004560 02450 ER45 JD 045 DFC 02450
* 003700 3000164100 02460 JC START DFC 02460
003705 5400034000 02470 LP 0340,0 64 DFC 02470
003712 6400034020 02480 LS 0340,02020 DFC 02480
* 003717 1000640400 02490 JR CLEAR DFC 02490
003724 4140611000 02500 R12 XF 061,0100000,0,6 DFC 02500
003731 5601074700 02510 BA1 RDIM+63,3,16 DFC 02510
003736 7000142340 02520 CB1 SVO,16 DFC 02520
* 003743 3000376242 02530 JC $+15,34 4 DFC 02530
* 003750 3000004660 02540 ER46 JD 046 DFC 02540
* 003755 3000164100 02550 JC START DFC 02550
003762 5601075102 02560 BA1 RDIM+65,5,2 DFC 02560
003767 5601111701 02570 BA1 RDIM+16767,1 DFC 02570
003774 7000142742 02580 CB1 OSV,2 DFC 02580
* 004001 3000402042 02590 JC $+15,34 4 DFC 02590
* 004006 3000004760 02600 ER47 JD 047 DFC 02600
* 004013 3000164100 02610 JC START DFC 02610
004020 5400034000 02620 LP 0340,0 128 CHAR READ DFC 02620
004025 6400034040 02630 LS 0340,04040 DFC 02630
* 004032 1000640400 02640 JR CLEAR DFC 02640
004037 4140611000 02650 RE XF 061,0100000,0,6 DFC 02650
004044 5601104700 02660 BA1 RDIM+12727,16 DFC 02660
004051 7000142340 02670 CB1 SVO,16 DFC 02670
* 004056 3000407542 02680 JC $+15,34 4 DFC 02680
* 004063 3000005060 02690 ER50 JD 050 DFC 02690
* 004070 3000164100 02700 JC START DFC 02700
004075 5601105102 02710 BA1 RDIM+12929,2 DFC 02710
004102 5601111701 02720 BA1 RDIM+16767,1 DFC 02720
004107 7000142742 02730 CB1 OSV,2 DFC 02730
* 004114 3000413342 02740 JC $+15,34 4 DFC 02740
* 004121 3000005160 02750 ER51 JD 051 DFC 02750
* 004126 3000164100 02760 JC START DFC 02760
004133 5400034000 02770 LP 0340,0 256 CHAR. DFC 02770
* 004140 1000640400 02780 JR CLEAR DFC 02780
004145 4140611000 02790 READD XF 061,0100000,0,6 DFC 02790
004152 5601124700 02800 BA1 RDIM+25555,16 DFC 02800
004157 7000142340 02810 CB1 SVO,16 DFC 02810
* 004164 3000420342 02820 JC $+15,34 4 DFC 02820
* 004171 3000005260 02830 ER52 JD 052 DFC 02830
* 004176 3000164100 02840 JC START DFC 02840
004203 5601125102 02850 BA1 RDIM+25757,2 DFC 02850
004210 7000142742 02860 CB1 OSV,2 DFC 02860
* 004215 3000423442 02870 JC $+15,34 4 DFC 02870
* 004222 3000005360 02880 ER53 JD 053 DFC 02880
* 004227 3000164100 02890 JC START DFC 02890
* 004234 1000640400 02900 JR CLEAR WRITE CHAR TEST DFC 02900
004241 2001025070 02910 FT WRIM,56 6 DFC 02910
004246 4600143771 02920 BT UTH,57 DFC 02920
004253 6400034120 02930 LS 0341,02020 DFC 02930
004260 4400034000 02940 SC 0340,0 DFC 02940
004265 4140621000 02950 WR XF 062,0100000,0,6 WRITE 1 CHAR DFC 02950
004272 2001065070 02960 FT RDIM,56 6 DFC 02960
004277 6400034120 02970 LS 0341,02020 DFC 02970
004304 4140610000 02980 RR XF 061,0,0,0,6 READ 1 SECTION DFC 02980
004311 3401065070 02990 CC RDIM,07070 DFC 02990
* 004316 3000433542 03000 JC $+15,34 4 DFC 03000
* 004323 3000006060 03010 ER60 JD 060 DIDID NOT CORRECTLY READ CHAR. JUST WRITTEN. DFC 03010 O
* 004330 3000164100 03020 JC START DFC 03020
004335 5601065202 03030 BA1 RDIM+2,2,2 DFC 03030
004342 5601111701 03040 BA1 RDIM+16767,1 DFC 03040
004347 7000144342 03050 CB1 ZERO,2 DFC 03050
* 004354 3000437342 03060 JC $+15,34 4 DFC 03060
* 004361 3000006160 03070 ER61 JD 061 DFC 03070
* 004366 3000164100 03080 JC START DFC 03080
* 004373 1000640400 03090 JR CLEAR WRITE 16 CHAR. DFC 03090
004400 2001025070 03100 FT WRIM,56 6 DFC 03100
004405 6400034004 03110 LS 0340,04 4 DFC 03110
004412 4140621000 03120 WRS XF 062,0100000,0,6 DFC 03120
004417 2001065070 03130 FT RDIM,56 6 DFC 03130
004424 4400034000 03140 SC 0340,0 DFC 03140
004431 6400034120 03150 LS 0341,02020 DFC 03150
004436 4140610000 03160 RR1 XF 061,0,0,0,6 DFC 03160
004443 5601066700 03170 BA1 RDIM+15,5,16 DFC 03170
004450 7000142340 03180 CB1 SVO,16 DFC 03180
* 004455 3000447442 03190 JC $+15,34 4 DFC 03190
* 004462 3000006260 03200 ER62 JD 062 DATATA ERROR ON 16 CHAR. WRITE-READ DFC 03200 R
* 004467 3000164100 03210 JC START DFC 03210
004474 5601067102 03220 BA1 RDIM+17,7,2 DFC 03220
004501 5601111701 03230 BA1 RDIM+16767,1 DFC 03230
004506 7000144342 03240 CB1 ZERO,2 DFC 03240
* 004513 3000453242 03250 JC $+15,34 4 DFC 03250
* 004520 3000006360 03260 ER63 JD 063 CHAHAR. 17 NOT ZERO. DFC 03260 N
* 004525 3000164100 03270 JC START DFC 03270
004532 6000034501 03280 AC 0345,01 1 +1 TO TRACK IN T57 DFC 03280
* 004537 1000640423 03290 JR CLEAR,1919 SET IND 2 DFC 03290 I
* 004544 3000455122 03300 JC $+5,18 DFC 03300
004551 2001065070 03310 FT RDIM,56 6 DFC 03310
004556 4140610000 03320 RR2 XF 061,0,0,0,6 READ,NO POSITION,EXPECT TAG ERROR DFC 03320 D
* 004563 3000457565 03330 JC $+10,53 3 DFC 03330
* 004570 3000460700 03340 JC $+15 DFC 03340
* 004575 3000006460 03350 ER64 JD 064 NO IPT ON TAG ERROR DFC 03350
* 004602 3000164100 03360 JC START DFC 03360
004607 4140000004 03370 XF 0,04,0,6,6 DFC 03370
* 004614 3000463353 03380 JC $+15,43 3 DFC 03380
* 004621 3000006560 03390 ER65 JD 065 TAG ER NOT SET DFC 03390
* 004626 3000164100 03400 JC START DFC 03400
004633 4140400004 03410 XF 32,04,0,0,6 DFC 03410
004640 4140000004 03420 XF 0,04,0,6,6 DFC 03420
* 004645 3000465753 03430 JC $+10,43 3 DFC 03430
* 004652 3000467100 03440 JC $+15 DFC 03440
* 004657 3000066660 03450 ER666 JD 0666 TATAG ERROR DID NOT RESET DFC 03450 R
* 004664 3000164100 03460 JC START RESETTABLE DFC 03460
004671 4400034777 03470 SC 0347,07777 SECTOR 64 DFC 03470
004676 4400034677 03480 SC 0346,07777 HEAD SECTOR DFC 03480
004703 2001065070 03490 FT RDIM,56 6 DFC 03490
004710 6400034140 03500 LS 0341,04040 READ 2 SECTORS DFC 03500
004715 4140650000 03510 RR3 XF 065,0,0,0,6 LOCKOUT,INHIBIT,POSIT. AND READ 2 SECTORS. DFC 03510 K
* 004722 3000473465 03520 JC $+10,53 3 DFC 03520
* 004727 3000474622 03530 JC $+15,18 8 DFC 03530
* 004734 3000007060 03540 ER70 JD 070 NO ERROR IPT DFC 03540
* 004741 3000164100 03550 JC START OVERFLOW DFC 03550
004746 4140000020 03560 XF 0,020,0,0,6 DFC 03560
* 004753 3000477253 03570 JC $+15,43 3 DFC 03570
* 004760 3000007160 03580 ER71 JD 071 DFC 03580
* 004765 3000164100 03590 JC START DFC 03590
004772 4140400020 03600 XF 32,020,0,0,6 RESET HEAD CNT. OVF. DFC 03600 S
004777 4140000020 03610 XF 0,020,0,0,6 DFC 03610
* 005004 3000501653 03620 JC $+10,43 3 DFC 03620
* 005011 3000503000 03630 JC $+15 DFC 03630
* 005016 3000007260 03640 ER72 JD 072 DFC 03640
* 005023 3000164100 03650 JC START DFC 03650
005030 4400034477 03660 SC 0344,63 3 ADD ILLEGAL UNIT DFC 03660
005035 4140650000 03670 RLEG XF 065,0,0,0,6 DFC 03670
* 005042 3000505465 03680 JC $+10,53 3 DFC 03680
* 005047 3000506622 03690 JC $+15,18 8 DFC 03690
* 005054 3000007360 03700 ER73 JD 073 NON READY DID NOT IPT DFC 03700
* 005061 3000164100 03710 JC START DFC 03710
005066 4140001000 03720 XF 0,01000,0,0,6 TEST NON READY DFC 03720 E
* 005073 3000511253 03730 JC $+15,43 3 DFC 03730
* 005100 3000007460 03740 ER74 JD 074 DFC 03740
* 005105 3000164100 03750 JC START DFC 03750
005112 4140401000 03760 XF 32,0100000,0,6 DFC 03760
005117 4140001000 03770 XF 0,01000,0,0,6 DFC 03770
* 005124 3000513653 03780 JC $+10,43 3 DFC 03780
* 005131 3000515022 03790 JC $+15,18 8 DFC 03790
* 005136 3000007560 03800 ER75 JD 075 DFC 03800
* 005143 3000164100 03810 JC START DFC 03810
* 005150 3000515526 03820 JC $+5,22 DFC 03820
005155 2001025070 03830 FT WRIM,56 6 SET UP TO WRITE 255 CHAR. DFC 03830 P
005162 4600143771 03840 BT UTH,57 DFC 03840
005167 6400034160 03850 LS 0341,06060 DFC 03850
005174 4400034077 03860 SC 0340,07777 DFC 03860
* 005201 1000640426 03870 JR CLEAR,2222 DFC 03870
005206 4140661000 03880 W256 XF 066,0100000,0,6 DFC 03880
005213 2001065070 03890 FT RDIM,56 6 DFC 03890
005220 4400034000 03900 SC 0340,0 DFC 03900
005225 6400034140 03910 LS 0341,04040 DFC 03910
005232 4140610000 03920 R2SE XF 061,0,0,0,6 DFC 03920
005237 5601065304 03930 BA1 RDIM+3,4,4 DFC 03930
005244 5601112103 03940 BA1 RDIM+16969,3 DFC 03940
005251 5601124601 03950 BA1 RDIM+25454,1 DFC 03950
005256 7000142344 03960 CB1 SVO,4 DFC 03960
* 005263 3000530242 03970 JC $+15,34 4 DFC 03970
* 005270 3000010060 03980 ER100 JD 0100 WRITE 255 CHAR OR DFC 03980
* 005275 3000164100 03990 JC START READ 2 SECTORS INCORR. DFC 03990
005302 3401124700 04000 CC RDIM+25555,0 DFC 04000
* 005307 3000532642 04010 JC $+15,34 4 DFC 04010
* 005314 3000010160 04020 ER101 JD 0101 CHCHAR 256 NOT ZERO DFC 04020
* 005321 3000164100 04030 JC START DFC 04030
005326 2001025070 04040 FT WRIM,56 6 WRITE 2 CHAR DFC 04040
005333 4600143771 04050 BT UTH,57 DFC 04050
* 005340 1000640400 04060 JR CLEAR DFC 04060
005345 6400034140 04070 LS 0341,04040 DFC 04070
005352 4400034000 04080 SC 0340,0 DFC 04080
005357 4140661000 04090 W2CH XF 066,0100000,0,6 DFC 04090
005364 6400034120 04100 LS 0341,02020 WRITE 3 CHAR DFC 04100
005371 6000034701 04110 AC 0347,01 1 DFC 04110
* 005376 3000540322 04120 JC $+5,18 DFC 04120
005403 4140021000 04130 W3CH XF 02,0100000,0,6 DFC 04130
* 005410 3000541065 04140 JC $,53 DFC 04140
005415 2001065070 04150 FT RDIM,56 6 READ 3 CHAR DFC 04150
005422 6400034160 04160 LS 0341,06060 DFC 04160
005427 4140611000 04170 R3CH XF 061,0100000,0,6 DFC 04170
005434 5601065203 04180 BA1 RDIM+2,3,3 DFC 04180
005441 7000142343 04190 CB1 SVO,3 DFC 04190
* 005446 3000546542 04200 JC $+15,34 4 DFC 04200
* 005453 3000012060 04210 ER120 JD 0120 DFC 04210
* 005460 3000164100 04220 JC START DFC 04220
005465 5601065402 04230 BA1 RDIM+4,2,2 DFC 04230
005472 5601111701 04240 BA1 RDIM+16767,1 DFC 04240
005477 7000142742 04250 CB1 OSV,2 DFC 04250
* 005504 1000640400 04260 JR CLEAR DFC 04260
* 005511 3000553042 04270 JC $+15,34 4 DFC 04270
* 005516 3000012160 04280 ER121 JD 0121 DFC 04280
* 005523 3000164100 04290 JC START DFC 04290
005530 5400034147 04300 LP 0341,04747 DFC 04300
005535 4600143771 04310 BT UTH,57 DFC 04310
005542 4140610000 04320 R2SEC XF 061,0,0,0,6 DFC 04320
005547 5601065102 04330 BA1 RDIM+1,2,2 DFC 04330
005554 7000142342 04340 CB1 SVO,2 DFC 04340
* 005561 3000560042 04350 JC $+15,34 4 DFC 04350
* 005566 3000012260 04360 ER122 JD 0122 2 CH WRITE OR 2 SECTOR DFC 04360
* 005573 3000164100 04370 JC START READ ERROR DFC 04370
005600 5601065302 04380 BA1 RDIM+3,2,2 DFC 04380
005605 5601111701 04390 BA1 RDIM+16767,1 DFC 04390
005612 7000144342 04400 CB1 ZERO,2 DFC 04400
* 005617 3000563642 04410 JC $+15,34 4 NON DFC 04410
* 005624 3000012360 04420 ER123 JD 0123 ZERO ON 2 CH WRITE DFC 04420
* 005631 3000164100 04430 JC START DFC 04430
005636 5601112402 04440 BA1 RDIM+17272,2 DFC 04440
005643 5601124701 04450 BA1 RDIM+25555,1 DFC 04450
005650 7000144342 04460 CB1 ZERO,2 DFC 04460
* 005655 3000567442 04470 JC $+15,34 4 ZERO FILL ER ON DFC 04470
* 005662 3000012460 04480 ER124 JD 0124 3 CHAR WRITE DFC 04480
* 005667 3000164100 04490 JC START DFC 04490
005674 4400034100 04500 SC 0341,0 DFC 04500
005701 2001025070 04510 FT WRIM,56 6 DFC 04510
005706 4600143771 04520 BT UTH,57 DFC 04520
005713 6000034601 04530 AC 0346,1 DFC 04530
005720 6400034120 04540 LS 0341,02020 DFC 04540
005725 4140660000 04550 WH1 XF 066,0,0,0,6 WRITE 1 SECTOR ON HEAD 1,SECTOR ZERO DFC 04550 T
005732 5400034117 04560 LP 0341,01717 ERASE LOW ORDER COUNT BITS DFC 04560 E
005737 2001065070 04570 FT RDIM,56 6 DFC 04570
005744 4600143771 04580 BT UTH,57 DFC 04580
005751 6400034140 04590 LS 0341,04040 SET COUNT TO 1 DFC 04590 C
005756 4400034777 04600 SC 0347,63 3 SET 77 TO SECTOR ADDRESS DFC 04600 7
* 005763 1000640422 04610 JR CLEAR,1818 DFC 04610
005770 4140050000 04620 RS77 XF 05,0,0,6,6 POSIT. AND READ SECTOR 64 OF UTHS DFC 04620 T
* 005775 3000577565 04630 JC $,53 DFC 04630
006002 5601065304 04640 BA1 RDIM+3,4,4 DFC 04640
006007 5601112103 04650 BA1 RDIM+16969,3 DFC 04650
006014 5601124701 04660 BA1 RDIM+25555,1 DFC 04660
006021 7000142344 04670 CB1 SVO,4 DFC 04670
* 006026 3000604542 04680 JC $+15,34 4 DFC 04680
* 006033 3000012560 04690 ER125 JD 0125 HEHEAD 0, SECT. 77 GOT CHANGED DFC 04690 S
* 006040 3000164100 04700 JC START DFC 04700
006045 2001065070 04710 FT RDIM,56 6 DFC 04710
006052 4400034000 04720 SC 0340,0 DFC 04720
006057 6400034120 04730 LS 0341,02020 DFC 04730
* 006064 1000640400 04740 JR CLEAR DFC 04740
006071 4140660000 04750 XF 066,0,0,0,6 WRT DFC 04750
006076 4140630000 04760 XF 063,0,0,0,6 RD RECV DFC 04760
006103 3401112014 04770 CC RDIM+16868,014 DFC 04770
* 006110 3000634343 04780 JU ER126 DFC 04780
006115 3401112163 04790 CC RDIM+16969,063 DFC 04790
* 006122 3000635543 04800 JU ER127 DFC 04800
006127 6000034352 04810 AC 0343,05252 DFC 04810
006134 6000034202 04820 AC 0342,02 2 DFC 04820
006141 5400034107 04830 LP 0341,07 7 DFC 04830
006146 7400035370 04840 CT 0353,56 6 DFC 04840
* 006153 3000636743 04850 JU ER131 DFC 04850
* 006160 1000640422 04860 JR CLEAR,1818 CLEAR RDIM TO 07 DFC 04860
006165 4401065070 04870 SC RDIM,07070 CHANGE FIRST CH. TO WRITE DFC 04870
006172 2001065070 04880 FT RDIM,56 6 LONG OF 00 DFC 04880
006177 6400034120 04890 LS 0341,02020 DFC 04890
006204 4140620000 04900 XF 062,0,0,0,6 WRITE 1 SECTOR DFC 04900
006211 4401065000 04910 SC RDIM,0 CLEAR RDIM DFC 04910
006216 4140030000 04920 XF 03,0,0,6,6 DFC 04920
* 006223 3000622365 04930 JC $,53 LOOP TILL IPT DFC 04930
006230 3401065070 04940 CC RDIM,07070 DFC 04940
* 006235 3000625442 04950 JC $+15,34 4 DFC 04950
* 006242 3000013260 04960 ER132 JD 0132 DATA ERROR ON DFC 04960
* 006247 3000164100 04970 JC START READ RECOVERY DFC 04970
006254 3401112014 04980 CC RDIM+16868,014 DFC 04980
* 006261 3000630042 04990 JC $+15,34 4 DFC 04990
* 006266 3000013360 05000 ER133 JD 0133 SENTINEL ERROR DFC 05000
* 006273 3000164100 05010 JC START DFC 05010
006300 3401112114 05020 CC RDIM+16969,014 DFC 05020
* 006305 3000632442 05030 JC $+15,34 4 DFC 05030
* 006312 3000013460 05040 ER134 JD 0134 LONG. PARIT CHAK ER DFC 05040
* 006317 3000164100 05050 JC START SHOULD BE 00 DFC 05050
* 006324 3000164162 05060 JC START,5050 DFC 05060
* 006331 3000077760 05070 JD 0777 DFC 05070
* 006336 3000736700 05080 J UNOTN DFC 05080
* 006343 3000012660 05090 ER126 JD 0126 PHASE 1 DFC 05090
* 006350 3000164100 05100 JC START DFC 05100
* 006355 3000012760 05110 ER127 JD 0127 LONG. PARITY DFC 05110
* 006362 3000164100 05120 JC START DFC 05120
* 006367 3000013160 05130 ER131 JD 0131 T 58 DFC 05130
* 006374 3000164100 05140 JC START NOT INCR. DFC 05140
* 006401 3000000000 05150 CLEAR JC 0 DFC 05150
006406 4401065007 05160 SC RDIM,07 7 CLEAR READ AREA DFC 05160
006413 2000040422 05170 FT 260,18 DFC 05170
006420 2001065120 05180 FT RDIM+1,1,16 DFC 05180
006425 2401065001 05190 TFR RDIM DFC 05190
* 006432 3000640100 05200 JC CLEAR DFC 05200
* 006437 3000000000 05210 COMP JC 0 DFC 05210
006444 5601065102 05220 BA1 RDIM+1,2,2 DFC 05220
006451 5601111701 05230 BA1 RDIM+16767,1 DFC 05230
006456 7000142342 05240 CB1 SVO,2 DFC 05240
* 006463 3000643742 05250 JC COMP,34 4 DFC 05250
* 006470 3000000560 05260 ER5 JD 05 DFC 05260
* 006475 3000164100 05270 JC START DFC 05270
* 006502 3000650700 05280 IPT0 J RST0 DFC 05280
006507 4000001000 05290 RST0 XF 0,01000,0,0,0 DFC 05290
* 006514 3000040053 05300 JC 0400,43 3 DFC 05300
006521 4000407777 05310 XF 040,0777777,0,0 DFC 05310
006526 5601024703 05320 BA1 FIVE,3 DFC 05320
006533 7200040343 05330 SB1 0403,3 DFC 05330
* 006540 3000040000 05340 J 0400 DFC 05340
006545 5600736614 05350 IPT6 BA1 H33,12 DFC 05350
006552 5201002314 05360 SA1 I6+19,1212 DFC 05360
006557 4140000001 05370 XF 00,0000101,0,6 DFC 05370
* 006564 1000707253 05380 JR D1,43 DFC 05380
006571 4140000002 05390 XF 00,0000202,0,6 DFC 05390
* 006576 1000711153 05400 JR D2,43 DFC 05400
006603 4140000004 05410 XF 00,0000404,0,6 DFC 05410
* 006610 1000713053 05420 JR D3,43 DFC 05420
006615 4140000010 05430 XF 00,0001010,0,6 DFC 05430
* 006622 1000714753 05440 JR D4,43 DFC 05440
006627 4140000020 05450 XF 00,0002020,0,6 DFC 05450
* 006634 1000716653 05460 JR D5,43 DFC 05460
006641 4140000040 05470 XF 00,0004040,0,6 DFC 05470
* 006646 1000720553 05480 JR D6,43 DFC 05480
006653 4140000100 05490 XF 00,0010000,0,6 DFC 05490
* 006660 1000722453 05500 JR D7,43 DFC 05500
006665 4140000200 05510 XF 00,0020000,0,6 DFC 05510
* 006672 1000724353 05520 JR D8,43 DFC 05520
006677 4140000400 05530 XF 00,0040000,0,6 DFC 05530
* 006704 1000726253 05540 JR D9,43 DFC 05540
006711 4140001000 05550 XF 00,0100000,0,6 DFC 05550
* 006716 1000730153 05560 JR D10,43 DFC 05560
006723 4140002000 05570 XF 00,0200000,0,6 DFC 05570
* 006730 1000732053 05580 JR D11,43 DFC 05580
006735 4140004000 05590 XF 00,0400000,0,6 DFC 05590
* 006742 1000733753 05600 JR D12,43 DFC 05600
006747 2001000040 05610 FT I6,32 DFC 05610
006754 4400020702 05620 SC 0207,2 DFC 05620
* 006761 3000706266 05630 JC OUT,54 IGNORE IPT ON IND2 DFC 05630 G
006766 4140007777 05640 XF 0,07777,7,0,6 DFC 05640
* 006773 3000700553 05650 JC $+10,43 3 DFC 05650
* 007000 3000706200 05660 J OUT DFC 05660
007005 3400054464 05670 CC 0544,06464 TEST,LOAD VIA 1004 DFC 05670
* 007012 3000744642 05680 JE PR04 DFC 05680
007017 4000620400 05690 XF 062,0040400,0,0 DFC 05690
007024 4140407777 05700 RSI XF 040,0777777,0,6 DFC 05700
* 007031 3000705064 05710 JC CY,52 DFC 05710
* 007036 3000006660 05720 ER66 JD 066 DFC 05720
* 007043 3000164131 05730 JC START,03031 DFC 05730
007050 5601024703 05740 CY BA1 FIVE,3 DFC 05740
007055 7200046343 05750 SB1 0463,3 DFC 05750
* 007062 3000046025 05760 OUT JC 0460,21 1 DFC 05760
* 007067 3000000000 05770 D1 J 0 DFC 05770
007074 4401001004 05780 SC I6+8,04 4 DFC 05780
* 007101 3000706700 05790 J D1 DFC 05790
* 007106 3000000000 05800 D2 J 0 DFC 05800
007113 4401001104 05810 SC I6+9,04 4 DFC 05810
* 007120 3000710600 05820 J D2 DFC 05820
* 007125 3000000000 05830 D3 J 0 DFC 05830
007132 4401001204 05840 SC I6+10,0404 DFC 05840
* 007137 3000712500 05850 J D3 DFC 05850
* 007144 3000000000 05860 D4 J 0 DFC 05860
007151 4401001304 05870 SC I6+11,0404 DFC 05870
* 007156 3000714400 05880 J D4 DFC 05880
* 007163 3000000000 05890 D5 J 0 DFC 05890
007170 4401001404 05900 SC I6+12,0404 DFC 05900
* 007175 3000716300 05910 J D5 DFC 05910
* 007202 3000000000 05920 D6 J 0 DFC 05920
007207 4401001504 05930 SC I6+13,0404 DFC 05930
* 007214 3000720200 05940 J D6 DFC 05940
* 007221 3000000000 05950 D7 J 0 DFC 05950
007226 4401001604 05960 SC I6+14,0404 DFC 05960
* 007233 3000722100 05970 J D7 DFC 05970
* 007240 3000000000 05980 D8 J 0 DFC 05980
007245 4401001704 05990 SC I6+15,0404 DFC 05990
* 007252 3000724000 06000 J D8 DFC 06000
* 007257 3000000000 06010 D9 J 0 DFC 06010
007264 4401002004 06020 SC I6+16,0404 DFC 06020
* 007271 3000725700 06030 J D9 DFC 06030
* 007276 3000000000 06040 D10 J 0 DFC 06040
007303 4401002104 06050 SC I6+17,0404 DFC 06050
* 007310 3000727600 06060 J D10 DFC 06060
* 007315 3000000000 06070 D11 J 0 DFC 06070
007322 4401002204 06080 SC I6+18,0404 DFC 06080
* 007327 3000731500 06090 J D11 DFC 06090
* 007334 3000000000 06100 D12 J 0 DFC 06100
007341 4401002304 06110 SC I6+19,0404 DFC 06110
* 007346 3000733400 06120 J D12 DFC 06120
007362 0303030303030303 06130 +8 0030303030303030303 DFC 06130 3
007366 03030303 06140 H33 +4 00303030303 DFC 06140
007367 5600743401 06150 UNOTN BA1 UTH0N-1,1,1 DFC 06150
007374 7000743541 06160 CB1 UTH0N,1 1 DFC 06160
* 007401 3000741343 06170 JU INCU DFC 06170
* 007406 3000154500 06180 J STRT REINITIALIZE DFC 06180 I
007413 6000001704 06190 INCU AC 017,4 DFC 06190
007420 5200743401 06200 SA1 UTH0N-1,1,1 DFC 06200
* 007425 3000162700 06210 J RETN DFC 06210
007432 00 06220 UNITL +1 00 DFC 06220
007433 00 06230 UNITU +1 00 DFC 06230
007435 0000 06240 UTH0N +2 00 DFC 06240
* 007436 3000743631 06250 IE7 JC $,25 DFC 06250
007445 007636 06260 +3 IPT7 DFC 06260
007446 4400777702 06270 PR04 SC I6-1,2 DFC 06270
007453 2000777774 06280 FT I6-1,60 0 SET PRINTER BASE ADDR DFC 06280
007460 4400753404 06290 SC ADXF+4,0,04 DFC 06290
* 007465 1000750200 06300 JR U1004 DFC 06300
* 007472 3000702400 06310 J RSI DFC 06310
* 007477 3000747731 06320 U1004 JC $,25 DFC 06320
007504 4400761501 06330 SC CH7ER+3,3,01 DFC 06330
007511 4400766653 06340 SC II-1,43 3 DFC 06340
007516 4400767340 06350 SC II+4,04040 DFC 06350
007523 4160402100 06360 XF 040,0210100,0,7 DFC 06360
007530 4160010000 06370 ADXF XF 1,0,0,7 7 DFC 06370
* 007535 3000754231 06380 JC $+5,25 DFC 06380
007542 2600004304 06390 DELAY PD 043,4 DFC 06390
007547 6000004301 06400 AC 043,1 DFC 06400
007554 3400004106 06410 CC 041,06 WAIT 3 SECONDS FOR U1004 INTERRUPT DFC 06410 T
* 007561 3000754741 06420 JG $-10 DFC 06420
* 007566 3000761200 06430 J CH7ER DFC 06430
007573 3400767340 06440 BUSY CC II+4,04040 DFC 06440
* 007600 3000750442 06450 JE U1004+5 5 BUSY ON 1ST XF DFC 06450
007605 4400761504 06460 SC CH7ER+3,3,04 DFC 06460
* 007612 3007770060 06470 CH7ER JD 077700 1,2 LOST INT,3 PARITY ERR,4 BUSY ON 2ND XF DFC 06470
* 007617 3000763160 06480 JD ELIM START,M,START TO ELIMINATE FAULTY DEVICE DFC 06480 R
* 007624 3000750400 06490 J U1004+5 5 DEPRESS START TO REPEAT XF ORDER DFC 06490
* 007631 3000747700 06500 ELIM J U1004 DFC 06500
007636 4400761503 06510 IPT7 SC CH7ER+3,3,03 DFC 06510
007643 4160000100 06520 XF 0,0100,0,0,7 DFC 06520
* 007650 3000761253 06530 JC CH7ER,4343 PARITY ERROR DFC 06530
007655 4160002000 06540 XF 0,02000,0,0,7 DFC 06540
* 007662 3000757353 06550 JC BUSY,43 3 U1004 BUSY DFC 06550
* 007667 3000747740 06560 II JC U1004,04040 JUMP ON 2ND INTERRUPT DFC 06560
007674 2600767301 06570 PD II+4,1 DFC 06570
007701 4400761502 06580 SC CH7ER+3,3,02 DFC 06580
007706 4160010000 06590 XF 1,0,0,7 7 GOOD ACKNOWLEDGE DFC 06590
* 007713 3000754231 06600 JC DELAY,2525 DFC 06600
007777 ORIG 07777
007777 02 06620 +1 2 DFC 06620
010000 00 06630 I6 +1 0 DFC 06630
010007 IPT6 06640 +7 _ IPT6 6 _ DFC 06640
010010 174 06650 AREA 124,B,0 0 DFC 06650
010204 00 06660 KY +1 0 DFC 06660
* 010205 3001020560 06670 IPT1 JD IPT1 DFC 06670
010214 010205 06680 +3 IPT1 DFC 06680
* 010215 3000000260 06690 I2 JD 2 DFC 06690
010224 010215 06700 IE2 +3 I2 DFC 06700
* 010225 3000000031 06710 JC 0,25 DFC 06710
010234 006502 06720 IE0 +3 IPT0 DFC 06720
* 010235 3000000031 06730 JC 0,25 DFC 06730
010244 006545 06740 IE6 +3 IPT6 DFC 06740
010247 000005 06750 FIVE +3 0000005 5 DFC 06750
010250 400 06760 WRIM AREA 256,B,07070 DFC 06760
010650 400 06770 RDIM AREA 256 DFC 06770
0000 ERROR LINES 3000154500 06780 END STRT DFC 06780
{-- tape mark --}
015153 C111 PACE CODEDIT SOURCE 08/65 A T3834394-11
001400 00010 T110 BEGIN 01400 PACE FOR 132 CHRCTER LINE PRINTER PCE13200010
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T111 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 T112 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 T113 3000136300 * SEGJP $ *
001400 00020 ORIG 01400 PCE 00020
* 001400 3000300460 00030 CHOSE JD TIC PCE 00030
* 001405 3000321360 00040 JD PRNT PCE 00040
* 001412 3000777760 00050 SPACE JD 07777 PCE 00050
001417 2000000103 00060 FT 01,3 PCE 00060
001424 5200165501 00070 SA1 LIN+3,1 1 PCE 00070
001431 5600213310 00080 BA1 IE+7,8 PCE 00080
001436 5200040710 00090 SA1 0407,8 PCE 00090
001443 2600006300 00100 PD 063,0 PCE 00100
001450 2600003700 00110 PD 037,0 PCE 00110
001455 2600020710 00120 PD 0207,8 PCE 00120
001462 2000230040 00130 FT IMGE,32 2 PCE 00130
001467 2600222224 00140 PD0 STAR,4 PCE 00140
001474 2600226224 00150 PD0 EN,4 PCE 00150
001501 2000010207 00160 FT 0102,7 66 LINES PCE 00160
001506 4400223711 00170 SC SPC-3,01011 PCE 00170
* 001513 3000153262 00180 JC $+15,50 0 S S 1 PCE 00180
001520 2000013007 00190 FT 0130,7 88 LINES PCE 00190
001525 4400223713 00200 SC SPC-3,01013 PCE 00200
* 001532 3000153725 00210 JC $+5,21 PCE 00210
* 001537 1000203300 00220 RERUN JR FRST,0 PCE 00220
* 001544 1000207600 00230 JR PRINT,0 0 PCE 00230
001551 5600226644 00240 BD1 DONE,4 PCE 00240
001556 2600223322 00250 PD0 SPC-7,2 2 PCE 00250
001563 4400157401 00260 SC TST+4,1 1 PCE 00260
001570 1400165501 00270 TST LC LIN+3,1 1 PCE 00270
* 001575 3000160743 00280 JU $+10 PCE 00280
001602 6200223302 00290 AM1 SPC-7,2 2 PCE 00290
001607 6600001702 00300 AD1 017,2 PCE 00300
001614 1600157451 00310 BC1 TST+4,1 1 PCE 00310
* 001621 3200157006 00320 JL TST,6 PCE 00320
001626 4400162506 00330 SC $-1,6 PCE 00330
001633 5600224200 00340 BA1 SPC,0 PCE 00340
001640 5200231700 00350 SA1 IMGE+15,5,0 PCE 00350
001645 6000004701 00360 AC 047,1 PCE 00360
001652 2000000141 00370 LIN FT 01,33 PCE 00370
001657 7600020711 00380 REP AT 0207,9 PCE 00380
001664 7000004763 00390 CB2 047,3 PCE 00390
* 001671 3000173442 00400 JE END PCE 00400
* 001676 3000171544 00410 JS LSS PCE 00410
* 001703 1000207600 00420 JR PRINT PCE 00420
* 001710 3000165700 00430 JC REP,0 PCE 00430
001715 7200004762 00440 LSS SB2 047,2 PCE 00440
001722 5600004701 00450 BA1 047,1 PCE 00450
001727 7200020741 00460 SB1 0207,1 PCE 00460
001734 5600220042 00470 END BD1 D66,2 PCE 00470
* 001741 3000175362 00480 JC $+10,50 0 PCE 00480
001746 5600220242 00490 BD1 D88,2 PCE 00490
001753 6200226204 00500 AM1 EN,4 PCE 00500
001760 5600226200 00510 BA1 EN,0 PCE 00510
001765 5200231700 00520 SA1 IMGE+15,5,0 PCE 00520
* 001772 1000207600 00530 JR PRINT,0 0 PCE 00530
001777 2600004704 00540 PD 047,4 PCE 00540
* 002004 3000141264 00550 JC SPACE,5252 PCE 00550
* 002011 3000202363 00560 JC $+10,51 1 SS 2 PCE 00560
002016 1600165551 00570 BC1 LIN+3,1 1 PCE 00570
* 002023 3000153700 00580 JC RERUN PCE 00580
* 002030 3000000000 00590 FRST J 0 PCE 00590
002035 2000000141 00600 FT 01,33 PCE 00600
002042 5600222200 00610 BA1 STAR,0 PCE 00610
002047 6600226604 00620 AD1 DONE,4 PCE 00620
002054 5200231700 00630 SA1 IMGE+15,5,0 PCE 00630
002061 5200222204 00640 SA1 STAR,4 PCE 00640
* 002066 3000203000 00650 J FRST PCE 00650
* 002073 3000000000 00660 PRINT J 0 PCE 00660
* 002100 3000210065 00670 JC $,53 SI 1 SET PCE 00670
* 002105 3000211222 00680 JC $+5,18 PCE 00680
002112 4000421000 00690 XF 042,0100000,0,0 132 CHAR. LINE PRINT. PCE 00690
* 002117 3000207300 00700 J PRINT PCE 00700
* 002124 3000000031 00710 IE JC 0,25 PCE 00710
002133 002134 00720 +3 INT PCE 00720
002134 4000007777 00730 INT XF 0,07777,7,0,0 PCE 00730
* 002141 3000215353 00740 JC $+10,43 3 PCE 00740
* 002146 3000040025 00750 JC 0400,21 1 PCE 00750
* 002153 3000216020 00760 JC $+5,16 PRINT ERROR PCE 00760
002160 4000407777 00770 XF 040,0777777,0,0 PCE 00770
* 002165 3000141260 00780 JD SPACE M TO RESTART PCE 00780 M
* 002172 3000040025 00790 JC 0400,21 1 CONTINUE PCE 00790
002200 66 00800 D66 +2 _66_ PCE 00800
002202 88 00810 D88 +2 _88_ PCE 00810
002212 START PA 00820 +8 _START P PA_ PCE 00820
002222 GE 0000 00830 STAR +8 _GE 000000_ PCE 00830
002232 SPACED 0 00840 +8 _SPACED D 0_ PCE 00840
002242 0 AT0/IN 00850 SPC +8 _0 AT0/I/IN_ PCE 00850
002252 TOTAL LI 00860 +8 _TOTAL L LI_ PCE 00860
002262 NES 0000 00870 EN +8 _NES 000000_ PCE 00870
002266 0001 00880 DONE +4 _0001_ PCE 00880
002300 00890 ORIG $,64 PCE 00890
002300 24 00900 IMGE AREA 20,B,0 PCE 00900
002333 ABCDEFGH 00910 +8 _ABCDEFGFGH_ PCE 00910
002343 IJKLMNOP 00920 +8 _IJKLMNONOP_ PCE 00920
002353 QRSTUVWX 00930 +8 _QRSTUVWVWX_ PCE 00930
002363 YZ 12345 00940 +8 _YZ 1234345_ PCE 00940
002370 67890 00950 +5 _67890_ _ PCE 00950
002400 0001020315161720 00960 +8 0000102020315161720 PCE 00960 7
002410 2122233536374041 00970 +8 0212223333536374041 PCE 00970 0
002420 4243555657606162 00980 +8 0424355555657606162 PCE 00980 1
002430 6364757677000000 00990 +8 0636475757677000000 PCE 00990 0
002450 PAPER SPACE ROUT 01000 +16 _PAPER S SPACE ROUT_ PCE 01000 O
002470 INE START AT 141 01010 +16 _INE STATART AT 141_ PCE 01010 1
002477 2 01020 +7 _2 _ PCE 01020
002503 L132 01030 +4 _L132_ PCE 01030
002600 01040 ORIG $,64 PCE 01040
002600 201 01050 IMAGE AREA 129,B,0 0 PCE 01050
003003 000000 01060 +3 0 PCE 01060
* 003004 3000301100 01070 TIC J $+5 PCE 01070
003011 4400260002 01080 START SC IMAGE,0202 PCE 01080
003016 2600007710 01090 PD 077,8 PCE 01090
003023 2000260040 01100 FT IMAGE,3232 PCE 01100
003030 4400020700 01110 SC 0207,0 PCE 01110
003035 4000621000 01120 XF 062,0100000,0,0 132 CHAR. LINE PRINT PCE 01120
003042 6000007701 01130 AC 077,01 PCE 01130
003047 5760257701 01140 BA1 IMAGE-1,1,1,7 PCE 01140
003054 4560257700 01150 SC IMAGE-1,1,0,7 PCE 01150
003061 5360260001 01160 SA1 IMAGE,1,1,7 PCE 01160
003066 3400007602 01170 CC 076,02 PCE 01170
* 003073 3000310542 01180 JE $+10 PCE 01180
* 003100 3000303500 01190 JC $-35 PCE 01190
003105 3400007704 01200 CC 077,4 PCE 01200
* 003112 3000312442 01210 JE $+10 PCE 01210
* 003117 3000303500 01220 JC $-50 PCE 01220
003124 4400020705 01230 SC 0207,05 5 PCE 01230
003131 4000640000 01240 XF 064,0,0,0,0 SPACE, NO PRINT PCE 01240
* 003136 1000315300 01250 JR DELAY PCE 01250
* 003143 3000301100 01260 JC START PCE 01260
* 003150 3000000000 01270 DELAY JC 0 PCE 01270
003155 2600321205 01280 PD DLY,5 PCE 01280
003162 6000321201 01290 AC DLY,1 PCE 01290
003167 3400321001 01300 CC DLY-2,1 1 PCE 01300
* 003174 3000315042 01310 JC DELAY,3434 PCE 01310
* 003201 3000316200 01320 JC $-15 PCE 01320
003212 0000000000 01330 DLY +5 0000000000000 PCE 01330
003213 5600441410 01340 PRNT BA1 IESET,8 8 PCE 01340
003220 5200040710 01350 SA1 IE0,8 PCE 01350
* 003225 1000442064 01360 JR CHBR,52 2 PCE 01360
* 003232 1000325463 01370 JR ADV,51 PCE 01370
* 003237 1000377100 01380 JR SPEED PCE 01380
* 003244 3000321300 01390 JC PRNT PCE 01390
* 003251 3000000000 01400 ADV JC 0 PCE 01400
003256 2000350040 01410 FT ADIMG,3232 PCE 01410
003263 4400020701 01420 SC 0207,1 PCE 01420
* 003270 1000370700 01430 JR ADPR PCE 01430
003275 4400020702 01440 SC 0207,2 PCE 01440
* 003302 1000370700 01450 JR ADPR PCE 01450
003307 4400020704 01460 SC 0207,4 PCE 01460
* 003314 1000370700 01470 JR ADPR PCE 01470
003321 4400020710 01480 SC 0207,8 PCE 01480
* 003326 1000370700 01490 JR ADPR PCE 01490
003333 4400020720 01500 SC 0207,16 6 PCE 01500
* 003340 1000370700 01510 JR ADPR PCE 01510
003345 4400020740 01520 SC 0207,32 2 PCE 01520
* 003352 1000370700 01530 JR ADPR PCE 01530
003357 4400020777 01540 SC 0207,63 3 PCE 01540
* 003364 1000370700 01550 JR ADPR PCE 01550
003371 4400020703 01560 SC 0207,3 PCE 01560
* 003376 1000370700 01570 JR ADPR PCE 01570
003403 4400020705 01580 SC 0207,5 PCE 01580
* 003410 1000370700 01590 JR ADPR PCE 01590
* 003415 3000325100 01600 JC ADV PCE 01600
003500 01610 ORIG $,64 PCE 01610
003500 01620 ADIMG EQU $ PCE 01620
003507 0001020304050607 01630 +8 0000102020304050607 PCE 01630 6
003517 1011121314151617 01640 +8 0101112121314151617 PCE 01640 6
003527 2021222324252627 01650 +8 0202122222324252627 PCE 01650 6
003537 3031323334353637 01660 +8 0303132323334353637 PCE 01660 6
003547 4041424344454647 01670 +8 0404142424344454647 PCE 01670 6
003557 5051525354555657 01680 +8 0505152525354555657 PCE 01680 6
003567 6061626364656667 01690 +8 0606162626364656667 PCE 01690 6
003577 7071727374757677 01700 +8 0707172727374757677 PCE 01700 6
003607 7776757473727170 01710 +8 0777675757473727170 PCE 01710 1
003617 6766656463626160 01720 +8 0676665656463626160 PCE 01720 1
003627 5756555453525150 01730 +8 0575655555453525150 PCE 01730 1
003637 4746454443424140 01740 +8 0474645454443424140 PCE 01740 1
003647 3736353433323130 01750 +8 0373635353433323130 PCE 01750 1
003657 2726252423222120 01760 +8 0272625252423222120 PCE 01760 1
003667 1716151413121110 01770 +8 0171615151413121110 PCE 01770 1
003677 0007060504030201 01780 +8 00706050504030201 PCE 01780 1
003703 L132 01790 +4 _L132_ PCE 01790
* 003704 3000000000 01800 ADPR JC 0 PCE 01800
003711 4000621000 01810 XF 062,0100000,0,0 132 CHAR. LINE PRINT. PCE 01810
003716 4400020701 01820 SC 0207,1 PCE 01820
003723 4000621000 01830 XF 062,0100000,0,0 PCE 01830
003730 4000621000 01840 XF 062,0100000,0,0 PCE 01840
003735 4000621000 01850 XF 062,0100000,0,0 PCE 01850
003742 4000621000 01860 XF 062,0100000,0,0 PCE 01860
003747 4000621000 01870 XF 062,0100000,0,0 PCE 01870
003754 4000621000 01880 XF 062,0100000,0,0 PCE 01880
* 003761 3000370400 01890 JC ADPR PCE 01890
* 003766 3000000000 01900 SPEED JC 0 PCE 01900
* 003773 3000401700 01910 J SPEED+2525 PCE 01910
004000 2000350040 01920 FT ADIMG,3232 PCE 01920
004005 4400020701 01930 SC 0207,1 PCE 01930
004012 4000621000 01940 XF 062,0100000,0,0 132 CHAR. LINE PRINT PCE 01940
* 004017 3000400062 01950 JC $-15,50 0 PCE 01950
* 004024 3000376663 01960 JC SPEED,5151 PCE 01960
* 004031 3000376664 01970 JC SPEED,5252 PCE 01970
004036 4400020701 01980 SC 0207,1 PCE 01980
004043 2000410040 01990 FT NUIMG,3232 PCE 01990
004050 4000621000 02000 XF 062,0100000,0,0 132 CHAR. LINE PRINT PCE 02000
* 004055 3000401700 02010 JC $-30 PCE 02010
004100 02020 ORIG $,64 PCE 02020
004100 02030 NUIMG EQU $ PCE 02030
004107 01234567 02040 +8 _0123456567_ PCE 02040
004117 89,$0123 02050 +8 _89,$012123_ PCE 02050
004127 456789,$ 02060 +8 _456789,9,$_ PCE 02060
004137 01234567 02070 +8 _0123456567_ PCE 02070
004147 89,$0123 02080 +8 _89,$012123_ PCE 02080
004157 4567890� 02090 +8 _456789090�_ PCE 02090
004167 0123456 02100 +8 _ 012345456_ PCE 02100
004170 110 02110 AREA 72,B,05 5 PCE 02110
004303 05050505 02120 +4 00505050505 PCE 02120
* 004304 3000430460 02130 PL JD PL PAPER LOW PCE 02130
* 004311 3000437300 02140 J RST PCE 02140
* 004316 3000431660 02150 NR JD NR NON-READY PCE 02150
004323 4000001000 02160 INT0 XF 0,01000,0,0,0 PCE 02160
* 004330 3000431653 02170 JC NR,43 PCE 02170
004335 4000000002 02180 XF 0,00002,2,0,0 TEST PAPER LOW PCE 02180
* 004342 3000430453 02190 JC PL,43 PCE 02190
004347 4000006775 02200 XF 0,06775,5,0,0 PCE 02200
* 004354 3000436653 02210 JC $+10,43 3 PCE 02210
* 004361 3000040026 02220 RTN JC 0400,22 2 RESET SENSE IND. 2 PCE 02220
* 004366 3000437340 02230 JC RST,32 PCE 02230
004373 4000407777 02240 RST XF 040,0777777,0,0 RESET ALL INDICATORS PCE 02240
* 004400 3000436100 02250 J RTN PCE 02250
000407 02260 IE0 EQU 0407 PCE 02260
000477 02270 IE7 EQU 0477 PCE 02270
* 004405 3000000031 02280 JC 0,25 PCE 02280
004414 004323 02290 IESET +3 INT0 PCE 02290
* 004415 3000000000 02300 CHBR J 0 PCE 02300
* 004422 3000442723 02310 M JC $+5,19 1 TO S. IND 2 PCE 02310
004427 2000460040 02320 FT EEVN,32 2 PCE 02320
004434 4400020701 02330 SC 0207,01 1 PCE 02330
004441 4000021000 02340 XF 02,0100000,0,0 132 CHAR. LINE PRINT. PCE 02340 1
* 004446 3000444666 02350 WT1 JC WT1,54 LOOP AND TEST IND. 2 PCE 02350
* 004453 3000446023 02360 JC $+5,19 PCE 02360
004460 2000510040 02370 FT EODD-15,5,32 PCE 02370
004465 4400020702 02380 SC 0207,02 2 PCE 02380
004472 4000021000 02390 XF 02,0100000,0,0 132 CHAR. LINE PRINT. PCE 02390 1
* 004477 3000447766 02400 WT2 JC WT2,54 PCE 02400
* 004504 3000442264 02410 JC M,52 PCE 02410
* 004511 3000441500 02420 J CHBR PCE 02420
004600 02430 ORIG $,64 PCE 02430
004600 00 02440 EEVN +1 0 PCE 02440
004620 E E E E E E E E 02450 +16 _E E E E E E E E E _ PCE 02450
004640 E E E E E E E E 02460 +16 _E E E E E E E E E _ PCE 02460
004660 E E E E E E E E 02470 +16 _E E E E E E E E E _ PCE 02470
004700 E E E E E E E E 02480 +16 _E E E E E E E E E _ PCE 02480
004720 E E E E E E E E 02490 +16 _E E E E E E E E E _ PCE 02490
004740 E E E E E E E E 02500 +16 _E E E E E E E E E _ PCE 02500
004760 E E E E E E E E 02510 +16 _E E E E E E E E E _ PCE 02510
005000 E E E E E E E E 02530 +16 _E E E E E E E E E _ PCE 02530
005004 E E 02540 +4 _E E _ PCE 02540
005100 02550 ORIG $,64 PCE 02550
005117 E E E E E E E E 02560 EODD +16 _E E E E E E E E E _ PCE 02560
005137 E E E E E E E E 02570 +16 _E E E E E E E E E _ PCE 02570
005157 E E E E E E E E 02580 +16 _E E E E E E E E E _ PCE 02580
005177 E E E E E E E E 02590 +16 _E E E E E E E E E _ PCE 02590
005217 E E E E E E E E 02600 +16 _E E E E E E E E E _ PCE 02600
005237 E E E E E E E E 02610 +16 _E E E E E E E E E _ PCE 02610
005257 E E E E E E E E 02620 +16 _E E E E E E E E E _ PCE 02620
005277 E E E E E E E E 02630 +16 _E E E E E E E E E _ PCE 02630
005303 E E 02631 +4 _E E _ PCE 02631
000500 02640 ORIG 0500 PCE 02640
* 000500 3000050060 02650 JC 0500,48 8 PCE 02650
000507 000500 02660 +3 0500 PCE 02660
* 000510 3000051060 02670 JC 0510,48 8 PCE 02670
000517 000510 02680 +3 0510 PCE 02680
0000 ERROR LINES 3000140000 02690 END CHOSE PCE 02690
{-- tape mark --}
015833 C121 SDFX CODEDIT SOURCE 01/67 CC F T3834394-12
001500 00010 T120 BEGIN 01500 SADFOX00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001500 3007010660 * JD 070106 *
* 001505 3000150000 * J $-5 *
SEGMENT-ID T121 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 T122 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 T123 3000136300 * SEGJP $ *
001500 ORIG 01500
00020 . ON LINE TEST OF THTHE INCREMENTAL READER INCLUDED 00020 E
001000 00030 ORIG 01000 00030
001007 0030602400653467 00040 +8 0003060202400653467 XTT1 CU TO 1050 SADFOX00040 4
001017 0127544450312645 00050 +8 0012754444450312645 SADFOX00050 6
001027 6674467133735253 00060 +8 0667446767133735253 SADFOX00060 2
001037 5125321747727000 00070 +8 0512532121747727000 SADFOX00070 0
001047 1506000200001312 00080 +8 0150600000200001312 SADFOX00080 3
001057 0042070062432161 00090 +8 0004207070062432161 SADFOX00090 1
001067 1037750500110304 00100 +8 0103775050500110304 SADFOX00100 3
001077 1423630022641600 00110 +8 0142363030022641600 SADFOX00110 6
001107 0410436667634152 00120 +8 0041043636667634152 XTT2 1050 TO CU SADFOX00120 1
001117 6065474670407633 00130 +8 0606547474670407633 SADFOX00130 6
001127 0056747103311611 00140 +8 0005674747103311611 SADFOX00140 6
001137 0115322406000061 00150 +8 0011532222406000061 SADFOX00150 0
001147 0000515513172234 00160 +8 0000051515513172234 SADFOX00160 2
001157 1430262712000000 00170 +8 0143026262712000000 SADFOX00170 0
001167 0257547275052007 00180 +8 0025754747275052007 SADFOX00180 0
001177 3623352521620000 00190 +8 0362335252521620000 SADFOX00190 0
001207 4024252627303132 00200 +8 0402425252627303132 XTT3 KSR TO 1050 SADFOX00200 1
001217 3334444546475051 00210 +8 0333444444546475051 SADFOX00210 0
001227 5253546566677071 00220 +8 0525354646566677071 SADFOX00220 0
001237 7273741715012357 00230 +8 0727374141715012357 SADFOX00230 3
001247 0043603742556356 00240 +8 0004360303742556356 SADFOX00240 3
001257 6175412062022264 00250 +8 0617541212062022264 SADFOX00250 2
001267 0304050607101112 00260 +8 0030405050607101112 SADFOX00260 1
001277 1314211636357677 00270 +8 0131421111636357677 SADFOX00270 6
001307 4035556061626364 00280 +8 0403555656061626364 XTT4 1050 TO KSR SADFOX00280 3
001317 6566677071347333 00290 +8 0656667777071347333 SADFOX00290 3
001327 5372563601020304 00300 +8 0537256363601020304 SADFOX00300 3
001337 0506071011757443 00310 +8 0050607171011757443 SADFOX00310 4
001347 0052444112131415 00320 +8 0005244444112131415 SADFOX00320 4
001357 1617202122454737 00330 +8 0161720202122454737 SADFOX00330 7
001367 4250544657232425 00340 +8 0425054444657232425 SADFOX00340 4
001377 2627303132517677 00350 +8 0262730303132517677 SADFOX00350 6
001400 200 00360 PBASE AREA 128 SADFOX00360
020000 00370 ORIG 020000 SADFOX00370
* 020000 3002000000 00380 XLK J $ SADFOX00380
020005 5600005734 00390 BA2 47,12 SADFOX00390
020012 5202372734 00400 SA2 XIR1,12 2 SADFOX00400
020017 2600005713 00410 PD 47,11 SADFOX00410
020024 5600001321 00420 BA2 11,1 UNIT NO SADFOX00420
020031 5200004721 00430 SA2 39,1 N SADFOX00430
020036 5200005321 00440 SA2 43,1 SADFOX00440
020043 1600005312 00450 BS1 43,2 4N SADFOX00450
020050 5200005621 00460 SA2 46,1 64N SADFOX00460
020055 1600005611 00470 BS1 46,1 128N SADFOX00470
020062 4420026401 00480 SC XBSY,1,1,1 SADFOX00480
020067 4420013040 00490 SC XPCW,32,2,1 SET PCW POLL BIT SADFOX00490
020074 1400001540 00500 LC 13,040 OUTPUT OR POLL REQUEST SADFOX00500
* 020101 3002036042 00510 JE XREST SADFOX00510
020106 5600001421 00520 BA2 12,1 MESSAGE LENGTH SADFOX00520
020113 5202033321 00530 SA2 XTRAN+4,4,1 CHAR COUNT SADFOX00530
020120 5200011321 00540 SA2 0113,1 SADFOX00540
020125 2600011201 00550 PD 0112,1 SADFOX00550
020132 6000003777 00560 AC 037,077 7 MSG LG MINUS 1 SADFOX00560
020137 5202033221 00570 SA2 XTRAN+3,3,1 LSD ADDRESS OF OUTPUT SADFOX00570
020144 6000003703 00580 AC 037,3 MSG LG PLUS 2 SADFOX00580
020151 5202026221 00590 SA2 XLK1+3,1,1 LSD OF END OF MSG SADFOX00590
020156 4400011011 00600 SC 0110,XTTTT2 SADFOX00600
020163 5602430523 00610 BA2 XEOM2,3 3 EOM FOR CR SADFOX00610
020170 1400001520 00620 LC 015,020 0 FORM FEED OR LINE FEED SADFOX00620
* 020175 3002020700 00630 J $+10 TEMPORARY SADFOX00630
020202 4400003640 00640 SC 036,040 0 FORM FEED SADFOX00640
020207 3400004712 00650 CC 39,XUN1 1 SADFOX00650
* 020214 3002037744 00660 JS XLK2 CR SADFOX00660
020221 4400011013 00670 SC 0110,XTTTT4 KSR TRANSLATE TABLE SADFOX00670
020226 5600001521 00680 BA2 015,1 PAPER FEED KEY SADFOX00680
020233 4642415354 00690 BT XICLT,4444,2 SADFOX00690
020240 4060020000 00700 XF 02,0,0,3,3 SADFOX00700
020245 5222410721 00710 SA2 XFEED,1,1,1 SADFOX00710
020252 5602430423 00720 BA2 XEOM1+2,2,3 EOT SADFOX00720
020257 5261400023 00730 XLK1 SA2 XOBF+0,3,3,3 SADFOX00730
020264 5600001221 00740 BA2 10,1 IRRN SADFOX00740
020271 5222413521 00750 SA2 XIRRL,1,1,1 STORE IRRN SADFOX00750
020276 5261407721 00760 SA2 XOBF+63,3,1,3 SADFOX00760
020303 2061400020 00770 FT XOBF,16,6,3 SADFOX00770
020310 5202032503 00780 SA1 $+13,3 SADFOX00780
020315 5402032317 00790 LP $+6,017 7 SADFOX00790
020322 2400000021 00800 TFI 0 MSG TO OBF SADFOX00800
020327 1261400000 00810 XTRAN TR XOBF+0,0,0,3 TRANSLATE OUTPUT SADFOX00810
020334 4422402001 00820 SC XTI,1,1 1 SET TIME INCREMENT SADFOX00820
020341 4422412201 00830 SC XSW1,1,1,1 SET IRRN REPEAT SWITCH SADFOX00830
* 020346 1002044500 00840 JR XSEND SEND IRRN SADFOX00840
020353 4420013020 00850 SC XPCW,16,6,1 SET OUTPUT SEQUENCE SADFOX00850
020360 5602372733 00860 XREST BA2 XIR1,11 1 SADFOX00860
020365 5200005733 00870 SA2 47,11 SADFOX00870
* 020372 3002000000 00880 J XLK SADFOX00880
020377 3400001236 00890 XLK2 CC 10,036 CHECK FOR PRINTER ONLY SADFOX00890
* 020404 3002025742 00900 JE XLK1 SADFOX00900
020411 2661407700 00910 PD XOBF+63,3,16,3 SADFOX00910
020416 2661405700 00920 PD XOBF+47,7,16,3 SADFOX00920
020423 2661403700 00930 PD XOBF+31,1,16,3 SADFOX00930
020430 2661401700 00940 PD XOBF+15,5,16,3 SADFOX00940
* 020435 3002025700 00950 J XLK1 SADFOX00950
* 020442 3002044200 00960 XSEND J $ SADFOX00960
020447 4441370177 00970 SC XOBA,63,3,2 SADFOX00970
020454 4441370377 00980 SC XIBA,63,3,2 SADFOX00980
020461 4441370001 00990 SC XOBC,1,2,2 SET OUTPUT EOT BIT SADFOX00990
* 020466 1002050300 01000 JR XSND SADFOX01000
* 020473 3002044200 01010 J XSEND SADFOX01010
* 020500 3002050000 01020 XSND J $ SADFOX01020
020505 6441370012 01030 LS XOBC,01212,2 SET OUTPUT PF BITS SADFOX01030
020512 6441370212 01040 LS XIBC,01212,2 SET INPUT PF BITS SADFOX01040
020517 3400004712 01050 CC 39,XUN1 1 SADFOX01050
* 020524 3002054344 01060 JS $+15 CR SADFOX01060
020531 5441370065 01070 LP XOBC,06565,2 KSR, RESET OUTPUT PF BITS SADFOX01070
020536 5441370265 01080 LP XIBC,06565,2 RESET INPUT PF BITS SADFOX01080
020543 4642415154 01090 BT XMIT,44,4,2 SADFOX01090
020550 4060020000 01100 XF 02,0,0,3,3 SADFOX01100
* 020555 3002050000 01110 J XSND SADFOX01110
* 020562 3002371351 01120 XCAIE JC XLI,41 CA INTERRUPT ENTRY SADFOX01120
020567 5202376300 01130 SA1 XAR1,16 6 SADFOX01130
020574 5202400320 01140 SA2 XAR2,16 6 SADFOX01140
020601 5600005734 01150 BA2 47,12 SADFOX01150
020606 5202374334 01160 SA2 XIR2,12 2 SADFOX01160
020613 4202400720 01170 ST XT16,16 6 SADFOX01170
020620 4202401322 01180 ST XT18,18 8 SADFOX01180
020625 4202401754 01190 ST XT44,44 4 SADFOX01190
020632 4060004000 01200 XF 0,04000,0,0,3 TEST CA NON-READY SADFOX01200
* 020637 3002370153 01210 JC XCANR,4343 SADFOX01210
020644 2600005713 01220 XIS PD 47,11 INPUT SCAN SADFOX01220
020651 4402074413 01230 SC XNIS+4,X,XLP SADFOX01230
* 020656 3002070200 01240 J $+20 SADFOX01240
020663 6000004701 01250 AC 39,1 N SADFOX01250
020670 6000005304 01260 AC 43,4 SADFOX01260
020675 6000005602 01270 AC 46,2 128N SADFOX01270
020702 3400004724 01280 RD3 CC 39,20 01280
* 020707 3003000042 01290 JE RIP 01290
020714 1441370204 01300 LC XIBC,4,2,2 CHECK E BIT SADFOX01300
* 020721 3002320642 01310 JE XISE SADFOX01310
020726 1441370220 01320 LC XIBC,16,6,2 CHECK I BIT SADFOX01320
* 020733 3002151042 01330 JE XIN SADFOX01330
* 020740 3202066305 01340 XNIS JL XIS+15,5,5 NEXT IS SADFOX01340
020745 2600005713 01350 XOS PD 47,11 OUTPUT SCAN SADFOX01350
020752 4402103313 01360 SC XNOS+4,X,XLP SADFOX01360
* 020757 3002100300 01370 J $+20 SADFOX01370
020764 6000004701 01380 AC 39,1 N SADFOX01380
020771 6000005304 01390 AC 43,4 4N SADFOX01390
020776 6000005602 01400 AC 46,2 128N SADFOX01400
021003 1441370004 01410 LC XOBC,4,2,2 SADFOX01410
* 021010 3002351642 01420 JE XOSE SADFOX01420
021015 1441370020 01430 LC XOBC,16,6,2 SADFOX01430
* 021022 3002221042 01440 JE XOUT SADFOX01440
* 021027 3202076405 01450 XNOS JL XOS+15,5,5 NEXT OS SADFOX01450
021034 4060002000 01460 XF 0,02000,0,0,3 TEST 1 SECOND DELAY FLOP SADFOX01460
* 021041 3002112353 01470 JC XRDF,43 3 SADFOX01470
* 021046 3002371352 01480 XRST JC XLI,42 RESTORE SADFOX01480
021053 5602374313 01490 BA1 XIR2,11 1 SADFOX01490
021060 5200005713 01500 SA1 47,11 SADFOX01500
021065 5602376300 01510 BA1 XAR1,16 6 SADFOX01510
021072 5602400320 01520 BA2 XAR2,16 6 SADFOX01520
021077 4602400720 01530 BT XT16,16 6 SADFOX01530
021104 4602401322 01540 BT XT18,18 8 SADFOX01540
021111 4602401754 01550 BT XT44,44 4 SADFOX01550
* 021116 3000043000 01560 J 0430 SADFOX01560
021123 4060402000 01570 XRDF XF 040,0200000,0,3 RESET DF SADFOX01570
021130 2600005713 01580 XCPL PD 47,11 CHECK POLL LIST SADFOX01580
021135 4402134313 01590 SC XNPL+4,X,XLP SADFOX01590
* 021142 3002116600 01600 J $+20 SADFOX01600
021147 6000004701 01610 AC 39,1 N SADFOX01610
021154 6000005304 01620 AC 43,4 4N SADFOX01620
021161 6000005602 01630 AC 46,2 128N SADFOX01630
021166 1420013040 01640 LC XPCW,32,2,1 SADFOX01640
* 021173 3002135142 01650 JE XPOLL SADFOX01650
021200 3442403601 01660 CC XEC,1,2 2 ERROR CLOCK OVER 2 SEC SADFOX01660
* 021205 3002333344 01670 JS XISE2 SADFOX01670
021212 5642403501 01680 BA1 XEC-1,1,1,2 ERROR CLOCK INCREMENT SADFOX01680
021217 7242403601 01690 AB1 XEC,1,2 2 SADFOX01690
021224 3442403305 01700 CC XTC-1,XTXTL,2 CHECK TIME LIMIT SADFOX01700
* 021231 3002365044 01710 JS XTLE SADFOX01710
021236 2600001601 01720 PD 14,1 SADFOX01720
021243 5622402001 01730 BA1 XTI,1,1 1 SADFOX01730
021250 7242403402 01740 AB1 XTC,2,2 2 SADFOX01740
021255 3420013020 01750 CC XPCW,16,6,1 OUTPUT SEQUENCE SADFOX01750
* 021262 3002130142 01760 JE $+15 SADFOX01760
021267 3420013030 01770 CC XPCW,24,4,1 SADFOX01770
* 021274 3002133743 01780 JU XNPL NO SADFOX01780
021301 3422412201 01790 CC XSW1,1,1,1 YES, IS IRRN SWITCH SET SADFOX01790
* 021306 3002133242 01800 JE $+20 YES, SKIP IRRN SADFOX01800
021313 5622413521 01810 BA2 XIRRL,1,1,1 SADFOX01810
021320 5261407721 01820 SA2 XOBF+63,3,1,3 SADFOX01820
* 021325 1002044500 01830 JR XSEND SEND IRRN SADFOX01830
021332 2622412201 01840 PD XSW1,1,1,1 RESET IRRN REPEAT SWITCH SADFOX01840
* 021337 3202114704 01850 XNPL JL XCPL+15,5,4 NEXT POLL LIST CHECK SADFOX01850
* 021344 3002104600 01860 J XRST SADFOX01860
021351 3420014301 01870 XPOLL CC XPL,1,1 1 SADFOX01870
* 021356 3002141443 01880 JU XSTPL SADFOX01880
021363 4461407747 01890 SC XOBF+63,3,XWRU,3 SADFOX01890
021370 4642415354 01900 BT XICLT,4444,2 SADFOX01900
021375 4060020000 01910 XF 02,0,0,3,3 SADFOX01910
* 021402 1002044500 01920 JR XSEND SEND WRU SADFOX01920
* 021407 3002133700 01930 J XNPL SADFOX01930
021414 2620013001 01940 XSTPL PD XPCW,1,1,1 STOP POLL SADFOX01940
* 021421 1002144300 01950 JR XEND SADFOX01950
* 021426 1000551300 01960 JR RMINT SADFOX01960
* 021433 3002133700 01970 J XNPL SADFOX01970
* 021440 3002144000 01980 XEND J $ SADFOX01980
021445 2622440601 01990 PD XIRC,1,1,1 SADFOX01990
021452 2622441001 02000 PD XORC,1,1,1 CLEAR REPEAT COUNTER SADFOX02000
021457 2622402001 02010 PD XTI,1,1 1 SADFOX02010
021464 2642403402 02020 PD XTC,2,2 2 SADFOX02020
021471 2642403602 02030 PD XEC,2,2 2 SADFOX02030
021476 2620026401 02040 PD XBSY,1,1,1 SADFOX02040
* 021503 3002144000 02050 J XEND SADFOX02050
021510 3441370220 02060 XIN CC XIBC,16,6,2 SADFOX02060
* 021515 3002152743 02070 JU $+10 02070
* 021522 3002074000 02080 J XNIS 02080
021527 2641370201 02090 PD XIBC,1,2,2 02090
021534 2641370102 02100 PD XOBA,2,2,2 SADFOX02100
021541 1420013020 02110 LC XPCW,16,6,1 CHECK SEQUENCE SADFOX02110
* 021546 3002246242 02120 JE XIO SADFOX02120
021553 1420013001 02130 XII LC XPCW,1,1,1 SADFOX02130
* 021560 3002174342 02140 JE XII1 SADFOX02140
021565 2620013001 02150 PD XPCW,1,1,1 SADFOX02150
021572 4422402001 02160 SC XTI,1,1 1 SADFOX02160
021577 4461407777 02170 SC XOBF+63,3,XRHC,3 SADFOX02170
021604 4441370177 02180 SC XOBA,63,3,2 SADFOX02180
021611 4441370001 02190 SC XOBC,1,2,2 SADFOX02190
021616 3400004712 02200 CC 39,XUN1 1 SADFOX02200
* 021623 3002170044 02210 JS XEA SADFOX02210
021630 2641370301 02220 PD XIBA,1,2,2 SADFOX02220
021635 4642415354 02230 BT XICLT,4444,2 SADFOX02230
021642 4060020000 02240 XF 02,0,0,3,3 SADFOX02240
* 021647 1002050300 02250 JR XSND SADFOX02250
021654 4642422754 02260 BT XCR2,44,4,2 CLOSE RELAY SADFOX02260
021661 4060020000 02270 XF 02,0,0,3,3 SADFOX02270
021666 6020013001 02280 AC XPCW,1,1,1 SADFOX02280
* 021673 3002074000 02290 J XNIS SADFOX02290
021700 4441370377 02300 XEA SC XIBA,63,3,2 SADFOX02300
021705 4441370201 02310 SC XIBC,1,2,2 SET INPUT T BIT SADFOX02310
* 021712 3002172400 02320 J $+10 SADFOX02320
021717 2641370301 02330 PD XIBA,1,2,2 SADFOX02330
021724 6020013001 02340 AC XPCW,1,1,1 SADFOX02340
* 021731 1002050300 02350 JR XSND SADFOX02350
* 021736 3002074000 02360 J XNIS SADFOX02360
021743 4461400041 02370 XII1 SC XOBF,XCMCMA,3 SADFOX02370
021750 4461400133 02380 SC XOBF+1,X,XEOT,3 SADFOX02380
021755 5641370301 02390 BA1 XIBA,1,2,2 SADFOX02390
021762 6000001777 02400 AC 15,077 SADFOX02400
021767 5202177701 02410 SA1 $+8,1 SADFOX02410
021774 5661410003 02420 BA1 XIBF+0,3,3,3 SADFOX02420
022001 5602430523 02430 BA2 XEOM2,3 3 END OF MSG FOR CR, LF SADFOX02430
022006 3400004712 02440 CC 39,XUN1 1 SADFOX02440
* 022013 3002204444 02450 JS $+25 YES SADFOX02450
022020 5602431523 02460 BA2 XCVE,3 END OF MSG FOR KSR 1 AND 2 SADFOX02460
022025 3400004700 02470 CC 39,0 IS INPUT FROM KSR 0 SADFOX02470
* 022032 3002204444 02480 JS $+10 NO SADFOX02480
022037 5602430223 02490 BA2 XEOM1,3 3 END OF MSG FOR KSR 0 SADFOX02490
022044 7000003743 02500 CB1 31,3 CHECK END OF MSG SADFOX02500
022051 2622440601 02510 PD XIRC,1,1,1 SADFOX02510
* 022056 3002172442 02520 JE XII1-15 5 SADFOX02520
* 022063 1002050300 02530 XIIE JR XSND SEND CMA, EOT SADFOX02530
022070 5602434313 02540 BA1 XRPT2,1111 REPEAT MSG FOR CR SADFOX02540
022075 3400004712 02550 CC 39,XUN1 1 SADFOX02550
* 022102 3002213344 02560 JS XIIE1 CR SADFOX02560
022107 5602433013 02570 BA1 XRPT1,1111 REPEAT MSG FOR KSR SADFOX02570
022114 3400004700 02580 CC 39,0 IS REMOTE KSR 0 SADFOX02580
* 022121 3002213343 02590 JU $+10 NO SADFOX02590
022126 5602430203 02600 BA1 XEOM1,3 3 EOM FOR KSR 0 SADFOX02600
022133 5261401213 02610 XIIE1 SA1 XOBF+10,0,11,3 SADFOX02610
022140 4420013030 02620 SC XPCW,24,4,1 SET OUTPUT SEQUENCE,ERR BIT SADFOX02620
022145 4422412201 02630 XIIE2 SC XSW1,1,1,1 SET IRRN REPEAT SWITCH SADFOX02630
022152 5622413521 02640 BA2 XIRRL,1,1,1 SADFOX02640
022157 4461407736 02650 SC XOBF+63,3,036,3 STORE IRRN IN OBF SADFOX02650
022164 4642415354 02660 BT XICLT,4444,2 SADFOX02660
022171 4060020000 02670 XF 02,0,0,3,3 SADFOX02670
* 022176 1002044500 02680 JR XSEND SEND IRRN SADFOX02680
* 022203 3002074000 02690 J XNIS SADFOX02690
022210 3441370020 02700 XOUT CC XOBC,16,6,2 SADFOX02700
* 022215 3002222743 02710 JU $+10 02710
* 022222 3002102700 02720 J XNOS 02720
022227 2641370001 02730 PD XOBC,1,2,2 02730
022234 1420013020 02740 LC XPCW,16,6,1 SADFOX02740
* 022241 3002102742 02750 JE XNOS SADFOX02750
022246 1420013002 02760 XOI LC XPCW,2,1,1 OUT-INT,IN-SEQ SADFOX02760
* 022253 3002102743 02770 JU XNOS SADFOX02770
022260 4400011010 02780 SC 0110,XTTTT1 SADFOX02780
022265 3400004712 02790 CC 39,XUN1 1 SADFOX02790
* 022272 3002230444 02800 JS $+10 SADFOX02800
022277 4400011012 02810 SC 0110,XTTTT3 SADFOX02810
022304 5641370301 02820 BA1 XIBA,1,2,2 SADFOX02820
022311 6000001775 02830 AC 15,075 IBA MINUS 3 SADFOX02830
022316 5202234101 02840 SA1 XLATE+4,4,1 INPUT MESSAGE LENGTH SADFOX02840
022323 6000001777 02850 AC 15,077 IBA MINUS 4 SADFOX02850
022330 5202234001 02860 SA1 XLATE+3,3,1 LSD ADDRESS OF INPUT MSG SADFOX02860
022335 1261410000 02870 XLATE TR XIBF+0,0,0,3 TRANSLATE INPUT SADFOX02870
022342 6000001701 02880 AC 15,1 SADFOX02880
022347 3400004700 02890 CC 39,0 IS INPUT FROM UNIT 0 SADFOX02890
* 022354 3002245042 02900 JE XIO-10 YES SADFOX02900
022361 5600004721 02910 BA2 39,1 SADFOX02910
022366 4602446111 02920 BT XILC,9 SADFOX02920
022373 2600004602 02930 PD 38,2 SADFOX02930
022400 1600004711 02940 BS1 39,1 SADFOX02940
022405 5222436201 02950 SA1 XILL,1,1,1 MSG LG TO INPUT LIST SADFOX02950
022412 5222436121 02960 SA2 XILU,1,1,1 UNIT NO TO INPUT LIST SADFOX02960
022417 5200004721 02970 SA2 39,1 SADFOX02970
022424 6002446101 02980 AC XILC,1 STEP INPUT LIST COUNTER SADFOX02980
022431 2622402001 02990 PD XTI,1,1 1 SADFOX02990
022436 2642403402 03000 PD XTC,2,2 2 SADFOX03000
* 022443 3002102700 03010 J XNOS SADFOX03010
022450 5202436001 03020 SA1 XILI,1 MSG LG TO INQUIRY LIST SADFOX03020
* 022455 3002243100 03030 J $-20 SADFOX03030
022462 3400004712 03040 XIO CC 39,XUN1 1 SADFOX03040
* 022467 3002306144 03050 JS XIO2 SADFOX03050
022474 1420013001 03060 LC XPCW,1,1,1 SADFOX03060
* 022501 3002272243 03070 JU XIO51 SADFOX03070
022506 1420013010 03080 LC XPCW,8,1,1 SADFOX03080
* 022513 3002302342 03090 JE XIT SADFOX03090
022520 5641370321 03100 BA2 XIBA,1,2,2 SADFOX03100
022525 3400003720 03110 XIO4 CC 31,16 SET UP MESSAGE CHECK SADFOX03110
* 022532 3002274144 03120 JS XIO1 SADFOX03120
022537 5202260121 03130 SA2 XIO5+4,1,1 CHARACTER COUNT SADFOX03130
022544 5202260621 03140 SA2 XIO5+9,1,1 SADFOX03140
022551 6402260640 03150 LS XIO5+9,0,040 PUT AR1 IN CB INSTRUCTION SADFOX03150
022556 6000003777 03160 AC 31,077 SADFOX03160
022563 5202260021 03170 SA2 XIO5+3,1,1 LSD OF MESSAGE SADFOX03170
022570 5202260521 03180 SA2 XIO5+8,1,1 SADFOX03180
022575 5661410000 03190 XIO5 BA1 XIBF+0,0,0,3 SADFOX03190
022602 7061400040 03200 CB1 XOBF+0,0,0,3 CHECK MSG SADFOX03200
* 022607 3002300443 03210 JU XCMPE SADFOX03210
022614 1420015601 03220 LC XSW,1,1 1 SADFOX03220
* 022621 3002301642 03230 JE XIT-5 SADFOX03230
022626 4420015601 03240 SC XSW,1,1 1 SADFOX03240
022633 4461407736 03250 SC XOBF+63,3,036,3 IRRN FOR KSR SADFOX03250
022640 5602431225 03260 BA2 XEOM3,5 5 END OF MSG FOR KSR 0 SADFOX03260
022645 3400004700 03270 CC 39,0 IS OUTPUT FOR KSR 0 SADFOX03270
* 022652 3002270342 03280 JE $+25 YES SADFOX03280
022657 4400003434 03290 SC 034,034 4 NO, SET UP FORM FEED SADFOX03290
022664 1422410720 03300 LC XFEED,02020,1 FORM FEED OR VERT TAB SADFOX03300
* 022671 3002270343 03310 JU $+10 FORM FEED SADFOX03310
022676 4400003437 03320 SC 034,037 7 SET UP VERT TAB SADFOX03320
022703 5261400425 03330 SA2 XOBF+4,5,5,3 END OF MSG FOR KSR SADFOX03330
022710 4420013020 03340 SC XPCW,16,6,1 SET OUTPUT SEQUENCE SADFOX03340
* 022715 3002214500 03350 J XIIE2 SEND IRRN SADFOX03350
022722 4642415354 03360 XIO51 BT XICLT,4444,2 SADFOX03360
022727 4060020000 03370 XF 02,0,0,3,3 SADFOX03370
* 022734 3002171700 03380 J XII1-20 0 SADFOX03380
022741 6000003777 03390 XIO1 AC 31,077 SADFOX03390
022746 5202277021 03400 SA2 XIO6+3,1,1 SADFOX03400
022753 5202277521 03410 SA2 XIO6+8,1,1 SADFOX03410
022760 6000003761 03420 AC 31,061 SADFOX03420
022765 5661410000 03430 XIO6 BA1 XIBF+0,1,16,3 SADFOX03430
022772 7061400040 03440 CB1 XOBF+0,1,16,3 SADFOX03440
* 022777 3002252542 03450 JE XIO4 SADFOX03450
023004 4422434416 03460 XCMPE SC XEL,XE1414,1 SADFOX03460
* 023011 3002302300 03470 J XIT SADFOX03470
023016 2620015601 03480 PD XSW,1,1 1 SADFOX03480
* 023023 1002144300 03490 XIT JR XEND EXIT SADFOX03490
* 023030 1000551300 03500 JR RMINT SADFOX03500
* 023035 3002074000 03510 J XNIS SADFOX03510
023042 4420013040 03520 SC XPCW,32,2,1 SADFOX03520
* 023047 1002144300 03530 JR XEND SADFOX03530
* 023054 3002074000 03540 J XNIS SADFOX03540
023061 1420013001 03550 XIO2 LC XPCW,1,1,1 SADFOX03550
* 023066 3002313142 03560 JE XIO3 SADFOX03560
023073 5661407701 03570 BA1 XOBF+63,3,1,3 SADFOX03570
023100 5202311101 03580 SA1 $+9,1 SADFOX03580
023105 1461417700 03590 LC XIBF+63,3,0,3 CHECK IRRNA SADFOX03590
* 023112 3002172442 03600 JE XII1-15 5 SADFOX03600
023117 4422434406 03610 SC XEL,6,1 1 IRRN ERROR SADFOX03610
* 023124 3002302300 03620 J XIT SADFOX03620
023131 3461417733 03630 XIO3 CC XIBF+63,3,XRRC,3 CHECK RRC SADFOX03630
* 023136 3002302342 03640 JE XIT SADFOX03640
023143 6022441001 03650 AC XORC,1,1,1 SADFOX03650
023150 3422441000 03660 CC XORC,0,1,1 EXCESS REPEATS SADFOX03660
* 023155 3002272741 03670 JG XIO1-10 0 NO, TRY AGAIN SADFOX03670
023162 4422434405 03680 SC XEL,XE5,5,1 YES, RRI ERROR SADFOX03680
023167 4461407750 03690 SC XOBF+63,3,XME,3 SADFOX03690
* 023174 1002044500 03700 JR XSEND SEND ME SADFOX03700
* 023201 3002302300 03710 J XIT SADFOX03710
023206 5600004701 03720 XISE BA1 X1,1 SADFOX03720
023213 5202322301 03730 SA1 $+8,1 SADFOX03730
* 023220 3000370060 03740 JD 03700 SADFOX03740
023225 4422434412 03750 SC XEL,XE1010,1 SADFOX03750
023232 1441370224 03760 LC XIBC,02424,2 SADFOX03760
* 023237 3002302342 03770 JE XIT SADFOX03770
023244 4422434402 03780 XISE1 SC XEL,XE2,2,1 SADFOX03780
023251 1420013020 03790 LC XPCW,16,6,1 OUTPUT SEQUENCE SADFOX03790
* 023256 3002302342 03800 JE XIT YES SADFOX03800
023263 4422434401 03810 SC XEL,XE1,1,1 NO SADFOX03810
023270 3420013040 03820 CC XPCW,32,2,1 POLLING SADFOX03820
* 023275 3002302342 03830 JE XIT YES SADFOX03830
023302 3400004712 03840 CC 39,XUN1 1 SADFOX03840
* 023307 3002302341 03850 JG XIT KSR SADFOX03850
023314 4442403501 03860 SC XEC-1,1,1,2 CR, SET ERROR CLOCK SADFOX03860
023321 2622434401 03870 PD XEL,1,1 1 SADFOX03870
* 023326 3002074000 03880 J XNIS SADFOX03880
023333 2642403602 03890 XISE2 PD XEC,2,2 2 SADFOX03890
023340 4422434411 03900 SC XEL,XE9,9,1 SADFOX03900
023345 1441370201 03910 LC XIBC,1,2,2 T-BIT SET, AFTER 2 SEC SADFOX03910
* 023352 3002340343 03920 JU $+25 SADFOX03920
023357 4422434401 03930 SC XEL,XE1,1,1 YES SADFOX03930
023364 1420013001 03940 LC XPCW,1,1,1 ERROR ON INPUT MSG SADFOX03940
* 023371 3002142143 03950 JU XSTPL+5 5 NO SADFOX03950
023376 4422434415 03960 SC XEL,XE1313,1 SADFOX03960
023403 4461407764 03970 SC XOBF+63,3,XSA,3 YES SADFOX03970
023410 2641370201 03980 PD XIBC,1,2,2 SADFOX03980
023415 3422440601 03990 CC XIRC,1,1,1 SADFOX03990
* 023422 3002347744 04000 JS XISE4 SADFOX04000
023427 6022440601 04010 AC XIRC,1,1,1 SADFOX04010
023434 4441370177 04020 SC XOBA,63,3,2 SADFOX04020
023441 2641370301 04030 PD XIBA,1,2,2 SADFOX04030
023446 4441370001 04040 SC XOBC,1,2,2 SADFOX04040
* 023453 1002050300 04050 JR XSND SADFOX04050
* 023460 3002142600 04060 J XSTPL+1010 SADFOX04060
* 023465 1002044500 04070 XISE3 JR XSEND SEND SA OR ME SADFOX04070
* 023472 3002142100 04080 J XSTPL+5 5 SADFOX04080
023477 4422434417 04090 XISE4 SC XEL,XE1717,1 SADFOX04090
023504 4461407750 04100 SC XOBF+63,3,XME,3 SADFOX04100
* 023511 3002346500 04110 J XISE3 SADFOX04110
023516 5600004701 04120 XOSE BA1 X1,1 SADFOX04120
023523 5202353301 04130 SA1 $+8,1 SADFOX04130
* 023530 3000770060 04140 JD 07700 SADFOX04140
023535 4422434413 04150 SC XEL,XE1111,1 SADFOX04150
023542 1441370024 04160 LC XOBC,02424,2 SADFOX04160
* 023547 3002363142 04170 JE XOSE2 SADFOX04170
023554 4422434403 04180 XOSE1 SC XEL,XE3,3,1 SADFOX04180
023561 1420013020 04190 LC XPCW,16,6,1 OUTPUT SEQUENCE SADFOX04190
* 023566 3002363143 04200 JU XOSE2 NO SADFOX04200
023573 4441370001 04210 SC XOBC,1,2,2 SADFOX04210
* 023600 3202360077 04220 JL $,63 SADFOX04220
023605 4402360477 04230 SC $-1,63 SADFOX04230
* 023612 3202360074 04240 JL $-10,60 0 SADFOX04240
023617 4402361674 04250 SC $-1,60 SADFOX04250
023624 4422434404 04260 SC XEL,XE4,4,1 YES SADFOX04260
* 023631 1002144300 04270 XOSE2 JR XEND SADFOX04270
* 023636 1000551300 04280 JR RMINT SADFOX04280
* 023643 3002102700 04290 J XNOS SADFOX04290
023650 4422434410 04300 XTLE SC XEL,XE8,8,1 SADFOX04300
023655 1420013020 04310 LC XPCW,16,6,1 OUTPUT SEQUENCE SADFOX04310
* 023662 3002142142 04320 JE XSTPL+5 5 YES SADFOX04320
023667 4422434407 04330 SC XEL,XE7,7,1 NO SADFOX04330
* 023674 3002142100 04340 J XSTPL+5 5 SADFOX04340
* 023701 3000330360 04350 XCANR JD 03303 SADFOX04350
* 023706 3002063200 04360 J XIS-10 SADFOX04360
000012 04370 XUN1 EQU 10 SADFOX04370
000013 04380 XLP EQU 11 SADFOX04380
023713 00 04390 XLI +1 0 LOGICAL INDICATORS SADFOX04390
023727 0000000000000000 04400 XIR1 +12 0 SADFOX04400
023743 0000000000000000 04410 XIR2 +12 0 SADFOX04410
023763 0000000000000000 04420 XAR1 +16 0 SADFOX04420
024003 0000000000000000 04430 XAR2 +16 0 SADFOX04430
024007 00000000 04440 XT16 +4 0 SADFOX04440
024013 00000000 04450 XT18 +4 0 SADFOX04450
024017 00000000 04460 XT44 +4 0 SADFOX04460
024020 13 04470 XTI AREA 11 SADFOX04470
024034 0000 04480 XTC +2 0 TIME COUNTER SADFOX04480
024036 0000 04490 XEC +2 0 ERROR CLOCK SADFOX04490
024037 50 04500 AREA 40 SADFOX04500
024107 13 04510 XFEED AREA 11 SADFOX04510
024122 13 04520 XSW1 AREA 11 SADFOX04520
024135 04530 XIRRL EQU $ SADFOX04530
024144 3636363636363636 04540 +8 0363636363636363636 SADFOX04540 6
024147 363636 04550 +3 0363636 6 SADFOX04550
024151 0341 04560 XMIT +2 0341 SADFOX04560
024153 0342 04570 XICLT +2 0342 SADFOX04570
024155 0701 04580 +2 0701 SADFOX04580
024157 0702 04590 +2 0702 SADFOX04590
024161 1601 04600 +2 01601 SADFOX04600
024163 1602 04610 +2 01602 SADFOX04610
024165 1061 04620 +2 01061 SADFOX04620
024167 1062 04630 +2 01062 SADFOX04630
024171 1141 04640 +2 01141 SADFOX04640
024173 1142 04650 +2 01142 SADFOX04650
024175 1301 04660 +2 01301 SADFOX04660
024177 1302 04670 +2 01302 SADFOX04670
024201 1421 04680 +2 01421 SADFOX04680
024203 1422 04690 +2 01422 SADFOX04690
024205 1441 04700 +2 01441 SADFOX04700
024207 1442 04710 +2 01442 SADFOX04710
024211 1501 04720 +2 01501 SADFOX04720
024213 1502 04730 +2 01502 SADFOX04730
024215 1241 04740 +2 01241 SADFOX04740
024217 1242 04750 +2 01242 SADFOX04750
024221 1221 04760 +2 01221 SADFOX04760
024223 1222 04770 +2 01222 SADFOX04770
024225 0344 04780 XRREL +2 0344 SADFOX04780
024227 0350 04790 XCR2 +2 0350 SADFOX04790
024231 0704 04800 +2 0704 SADFOX04800
024233 0710 04810 +2 0710 SADFOX04810
024235 1604 04820 +2 01604 SADFOX04820
024237 1610 04830 +2 01610 SADFOX04830
024241 1064 04840 +2 01064 SADFOX04840
024243 1070 04850 +2 01070 SADFOX04850
024245 1144 04860 +2 01144 SADFOX04860
024247 1150 04870 +2 01150 SADFOX04870
024251 1304 04880 +2 01304 SADFOX04880
024253 1310 04890 +2 01310 SADFOX04890
024255 1424 04900 +2 01424 SADFOX04900
024257 1430 04910 +2 01430 SADFOX04910
024261 1444 04920 +2 01444 SADFOX04920
024263 1450 04930 +2 01450 SADFOX04930
024265 1504 04940 +2 01504 SADFOX04940
024267 1510 04950 +2 01510 SADFOX04950
024271 1244 04960 +2 01244 SADFOX04960
024273 1250 04970 +2 01250 SADFOX04970
024275 1224 04980 +2 01224 SADFOX04980
024277 1230 04990 +2 01230 SADFOX04990
024302 354233 05000 XEOM1 +3 0354233 3 EOM FOR KSR 0, LF SADFOX05000
024305 100233 05010 XEOM2 +3 0100233 3 EOM FOR CR, LF SADFOX05010
024312 3542353533 05020 XEOM3 +5 0354235353533 END OF MSG FOR KSR SADFOX05020
024315 353733 05030 XCVE +3 0353733 3 SADFOX05030
024325 3542220520050124 05040 +8 0354222020520050124 REPEAT MSG FOR KSR SADFOX05040 1
024330 353433 05050 XRPT1 +3 0353433 3 SADFOX05050
024340 1002120126010320 05060 +8 0100212020126010320 REPEAT MSG FOR CR SADFOX05060 3
024343 104033 05070 XRPT2 +3 0104033 3 SADFOX05070
000130 05080 XPCW EQU 0130 PROGRAM CONTROL WORD SADFOX05080
000143 05090 XPL EQU 0143 SADFOX05090
000156 05100 XSW EQU 0156 SADFOX05100
000264 05110 XBSY EQU 0264 SADFOX05110
024344 13 05120 XEL AREA 11 SADFOX05120
024360 0000 05130 XILI +2 0 INPUT LIST INQUIRY SADFOX05130
024361 00 05140 XILU +1 0 SADFOX05140
024362 00 05150 XILL +1 0 SADFOX05150
024363 22 05160 AREA 18 SADFOX05160
024406 0000 05170 XIRC +2 0 INPUT REPEAT COUNTER SADFOX05170
024410 0000 05180 XORC +2 0 OUTPUT REPEAT COUNTER SADFOX05180
024411 50 05190 AREA 40 SADFOX05190
024461 00 05200 XILC +1 0 SADFOX05200
000047 05210 XWRU EQU 047 WRU SADFOX05210
000077 05220 XRHC EQU 077 RHC SADFOX05220
000041 05230 XCMA EQU 041 CMA SADFOX05230
000033 05240 XEOT EQU 033 EOT SADFOX05240
000064 05250 XSA EQU 064 SA SADFOX05250
000050 05260 XME EQU 050 SADFOX05260
000033 05270 XRRC EQU 033 RRC SADFOX05270
014000 05280 XOBF EQU 014000 SADFOX05280
014100 05290 XIBF EQU 014100 SADFOX05290
013700 05300 XOBC EQU 013700 SADFOX05300
013701 05310 XOBA EQU 013701 SADFOX05310
013702 05320 XIBC EQU 013702 SADFOX05320
013703 05330 XIBA EQU 013703 SADFOX05330
000010 05340 XTT1 EQU 010 SADFOX05340
000011 05350 XTT2 EQU 011 SADFOX05350
000012 05360 XTT3 EQU 012 SADFOX05360
000013 05370 XTT4 EQU 013 SADFOX05370
000005 05380 XTL EQU 5 TIME LIMIT SADFOX05380
000001 05390 XE1 EQU 1 E-BIT SET, IN-INT, IN-SEQ SADFOX05390
000002 05400 XE2 EQU 2 E-BIT SET, IN-INT, OUT-SEQ SADFOX05400
000003 05410 XE3 EQU 3 E-BIT SET, OUT-INT, IN-SEQ SADFOX05410
000004 05420 XE4 EQU 4 E-BIT SET, OUT-INT, OUT-SEQ SADFOX05420
000005 05430 XE5 EQU 5 RRI ERROR SADFOX05430
000006 05440 XE6 EQU 6 IRRN ERROR SADFOX05440
000007 05450 XE7 EQU 7 INPUT TIME LIMIT ERROR SADFOX05450
000010 05460 XE8 EQU 010 OUTPUT TIME LIMIT ERROR SADFOX05460
000011 05470 XE9 EQU 011 T-BIT NOT SET AFTER 2 SEC SADFOX05470
000012 05480 XE10 EQU 012 INPUT IET BITS SET SADFOX05480
000013 05490 XE11 EQU 013 OUTPUT IET BITS SET SADFOX05490
000014 05500 XE12 EQU 014 CSI ERROR SADFOX05500
000015 05510 XE13 EQU 015 E-BIT SET, SA SENT SADFOX05510
000016 05520 XE14 EQU 016 KSR COMPARISON ERROR SADFOX05520
000017 05530 XE17 EQU 017 ME SENT SADFOX05530
* 024462 3000454600 05540 J ON SADFOX05540
001600 05550 ORIG 01600 SADFOX05550
* 001600 3000000060 05560 START JD 0 SADFOX05560
001605 5601101610 05570 BA1 CH0IE,8 8 SADFOX05570
001612 5200040710 05580 SA1 0407,8 SADFOX05580
001617 5601305010 05590 BA1 CH1IE,8 8 SADFOX05590
001624 5200041710 05600 SA1 0417,8 SADFOX05600
001631 5601110100 05610 BA1 CL12,16 6 SADFOX05610
001636 5200051700 05620 SA1 0517,16 6 SADFOX05620
001643 5601303710 05630 BA1 CH3IE,8 8 SADFOX05630
001650 5200043710 05640 SA1 0437,8 SADFOX05640
001655 5601307710 05650 BA1 CH6IE,8 8 SADFOX05650
001662 5200046710 05660 SA1 0467,8 SADFOX05660
001667 5601310710 05670 BA1 CH4IE,8 8 SADFOX05670
001674 5200044710 05680 SA1 0447,8 SADFOX05680
001701 5601311710 05690 BA1 CH2IE,8 8 SADFOX05690
001706 5200042710 05700 SA1 0427,8 SADFOX05700
001713 5601312710 05710 BA1 CH5IE,8 8 SADFOX05710
001720 5200045710 05720 SA1 0457,8 SADFOX05720
* 001725 3000454600 05730 J ON INITIALIZE SADFOX05730
001733 ST 05740 OPTAB +2 _ST_ STNN SADFOX05740
001736 002526 05750 OPADD +3 S STOP SADFOX05750
001740 TI 05760 +2 _TI_ TI00 SADFOX05760
001743 002610 05770 +3 TIME TIME SADFOX05770
001745 SM 05780 +2 _SM_ SM00 SADFOX05780
001750 003074 05790 +3 SPACE SPACE SADFOX05790
001752 RP 05800 +2 _RP_ RP00 SADFOX05800
001755 003106 05810 +3 R REPEAT SEND SADFOX05810
001757 TP 05820 +2 _TP_ TPNN SADFOX05820
001762 003120 05830 +3 T TERMINATE POLL SADFOX05830
001764 IN 05840 +2 _IN_ INNN SADFOX05840
001767 003137 05850 +3 I INITIALIZE SADFOX05850
001771 SC 05860 +2 _SC_ SC00 SADFOX05860
001774 002540 05870 +3 SETCK SET CLOCK SADFOX05870
001776 PC 05880 +2 _PC_ PCII SADFOX05880
002001 002444 05890 +3 PC PRINT CLOCK SADFOX05890
002003 DA 05900 +2 _DA_ SADFOX05900
002006 002406 05910 +3 DA READ DRUM A SADFOX05910
002010 DB 05920 +2 _DB_ SADFOX05920
002013 002420 05930 +3 DB READ WRITE DRUM B SADFOX05930
002015 PU 05940 +2 _PU_ SADFOX05940
002020 002374 05950 +3 PU PUNCH SADFOX05950
002022 TB 05960 +2 _TB_ SADFOX05960
002025 002432 05970 +3 TB SADFOX05970
002026 2600006300 05980 INPT PD X4,16 SADFOX05980
002033 3402436000 05990 CC XILI,0 IS INPUT FROM INQUIRY SADFOX05990
* 002040 3000206443 06000 JU $+20 SADFOX06000
002045 4400004702 06010 SC X1,2 SADFOX06010
002052 3402446100 06020 CC XILC,0 SADFOX06020
* 002057 3000320742 06030 JE SS1 YES SADFOX06030
002064 5622436002 06040 BA1 XILL-2,2,2,1 SADFOX06040
002071 3400001613 06050 CC 14,XLP SADFOX06050
* 002076 3000547644 06060 JS ERR3 YES, ERROR SADFOX06060
002103 5600001621 06070 BA2 14,1 SADFOX06070
002110 5200004721 06080 SA2 39,1 UNIT N IN IR1 SADFOX06080
002115 5200005221 06090 SA2 42,1 64N IN IR2 SADFOX06090
002122 5200005721 06100 SA2 47,1 SADFOX06100
002127 1600005711 06110 BS1 47,1 SADFOX06110
002134 7200005721 06120 AB2 47,1 SADFOX06120
002141 1600005711 06130 BS1 47,1 6N IN IR3 SADFOX06130
002146 5260721002 06140 SA1 RUL,2,3 3 SADFOX06140
002153 2620026401 06150 PD XBSY,1,X,X1 SADFOX06150
002160 2000010022 06160 FT 64,T18 CH CT SADFOX06160
002165 2040731020 06170 FT AREA1,T1T16,X2 DEST ADDR SADFOX06170
002172 1600005211 06180 BS1 X2-1,1 SADFOX06180
002177 2441410001 06190 TFR XIBF,,X2X2 SADFOX06190
002204 2641417700 06200 PD XIBF+63,3,16,X2 SADFOX06200
002211 2641415700 06210 PD XIBF+47,7,16,X2 SADFOX06210
002216 2641413700 06220 PD XIBF+31,1,16,X2 SADFOX06220
002223 2641411700 06230 PD XIBF+15,5,16,X2 SADFOX06230
002230 1600005255 06240 BC1 X2-1,5 SADFOX06240
002235 5640731301 06250 BA1 AREA1+3,3,1,X2 X1-IN,X2-64N,X3-6N SADFOX06250
002242 6000001775 06260 AC 15,075 SADFOX06260
002247 3440731203 06270 CC AREA1+2,2,_0_,X2 SADFOX06270
* 002254 3000226642 06280 JE $+10 SADFOX06280
002261 6000001712 06290 AC 15,10 SADFOX06290
002266 5200006301 06300 SA1 X4,1 KEYED IN UNIT TO X4 SADFOX06300
002273 3400006312 06310 CC X4,XLP-1-1 SADFOX06310
* 002300 3000542644 06320 JS ERR2 SADFOX06320
002305 2600006703 06330 PD X5,3 SADFOX06330
002312 4400234714 06340 SC OPLP+4,1,12 SADFOX06340
002317 5640731102 06350 BA1 AREA1+1,1,2,X2 SADFOX06350
002324 7120173342 06360 CB1 OPTAB,2,2,X5 SADFOX06360
* 002331 3000235542 06370 JE OPJMP SADFOX06370
002336 6000006705 06380 AC X5,5 SADFOX06380
* 002343 3200232400 06390 OPLP JL $-15 SADFOX06390
* 002350 3000542600 06400 J ERR2 SADFOX06400
002355 5720173603 06410 OPJMP BA1 OPADD,3,3,X5 SADFOX06410
002362 5200006703 06420 SA1 X5,3 SADFOX06420
* 002367 3120000000 06430 JC 0,0,X5 SADFOX06430
002374 4400421640 06440 PU SC PUNCH+4,4,040 SADFOX06440
* 002401 3000307400 06450 J SPACE SADFOX06450
002406 4400374440 06460 DA SC DRUM+4,0,040 SADFOX06460
* 002413 3000307400 06470 J SPACE SADFOX06470
002420 4400324440 06480 DB SC DRUMB+4,4,040 SADFOX06480
* 002425 3000307400 06490 J SPACE SADFOX06490
002432 4400340340 06500 TB SC TAPEB+4,4,040 SADFOX06500
* 002437 3000307400 06510 J SPACE SADFOX06510
002444 4400424740 06520 PC SC CLOCK+4,4,040 SADFOX06520
002451 2601367702 06530 PD XIBC6+1,1,2 SADFOX06530
002456 4401367770 06540 SC XIBC6+1,1,070 SADFOX06540
002463 4401145274 06550 SC TCTR1,07074 SADFOX06550
002470 3400006311 06560 CC X4,011 SADFOX06560
* 002475 3000250744 06570 JS $+10 SADFOX06570
002502 4401145201 06580 SC TCTR1,00001 SADFOX06580
002507 2000016154 06590 FT XSTRT,4444 SADFOX06590
002514 4060020000 06600 XF 02,0,0,3,3 SADFOX06600
* 002521 3000307400 06610 J SPACE SADFOX06610
002526 2701071101 06620 S PD SW0,1,X4X4 S SET SW SADFOX06620
* 002533 3000307400 06630 J SPACE SADFOX06630
002540 2601360603 06640 SETCK PD XOBF-12222,3 SADFOX06640
002545 5640731704 06650 BA1 AREA1+7,7,4,X2 SADFOX06650
002552 5201360304 06660 SA1 XOBF-12525,4 SADFOX06660
002557 4401360633 06670 SC XOBF-12222,XEOT SADFOX06670
002564 2601367502 06680 PD XOBA-4,2,2 SADFOX06680
002571 2000016454 06690 FT XSETC,4444 SADFOX06690
002576 4060020000 06700 XF 02,0,0,3,3 SADFOX06700
* 002603 3000307400 06710 J SPACE SADFOX06710
* 002610 3000261532 06720 TIME JC $+5,032 2 SADFOX06720
002615 2000016254 06730 FT XSTOP,4444 SADFOX06730
002622 4060020000 06740 XF 02,0,0,3,3 SADFOX06740
* 002627 3200262777 06750 JL $,63 SADFOX06750
002634 4400263377 06760 SC $-1,63 SADFOX06760
* 002641 3000264633 06770 JC $+5,033 3 SADFOX06770
002646 2601367601 06780 PD XIBC6,1 1 SADFOX06780
002653 4401367770 06790 SC XIBC6+1,1,070 SADFOX06790
002660 2000016154 06800 FT XSTRT,4444 SADFOX06800
002665 4060020000 06810 XF 02,0,0,3,3 SADFOX06810
002672 1401367620 06820 LC XIBC6,1616 SADFOX06820
* 002677 3000267243 06830 JU $-5 SADFOX06830
002704 3401377114 06840 CC XIBF6+5757,014 SADFOX06840
* 002711 3000274244 06850 JS NSET SADFOX06850
002716 5601377506 06860 BA1 XIBF6+6161,6 SADFOX06860
002723 5240731506 06870 SA1 AREA1+5,5,6,X2 SADFOX06870
002730 4460721006 06880 SC RUL,6,X3X3 SADFOX06880
* 002735 3000276600 06890 J FAB SADFOX06890
002742 5601302715 06900 NSET BA1 CNSET,1313 SADFOX06900
002747 5240732415 06910 SA1 AREA1+1212,13,X2 SADFOX06910
002754 4460721015 06920 SC RUL,13,X,X3 SADFOX06920
* 002761 3000276600 06930 J FAB SADFOX06930
002766 5660721306 06940 FAB BA1 OR0,6,X3X3 SADFOX06940
* 002773 3000300032 06950 PUSH JC $+5,032 2 INH CL III SADFOX06950
003000 6400001500 06960 LS 13,0 FF VT IS 020 SADFOX06960 I
003005 3400004700 06970 CC 39,0 IS INPUT FROM INQUIRY SADFOX06970
* 003012 3000306242 06980 JE SPACE-1010 YES, DONT PUSH LIST UP SADFOX06980
003017 4400003701 06990 SC 31,1 SADFOX06990
003024 7202446161 07000 SB2 XILC,1 COUNTER MINUS 1 SADFOX07000
003031 2002436120 07010 FT XILU,T1616 SADFOX07010
003036 2000002222 07020 FT 18,T18 SADFOX07020
003043 2402436301 07030 TFR XILU+2 SADFOX07030
* 003050 1002000300 07040 JR XLK EXECUTE LINK SADFOX07040
* 003055 3000202633 07050 JC INPT,03333 REL CL III SADFOX07050
003062 2602436001 07060 PD XILI,1 CLEAR INQUIRY INPUT SADFOX07060
* 003067 3000305000 07070 J $-15 SADFOX07070
003074 4421071102 07080 SPACE SC SW0,2,X1X1 SADFOX07080
* 003101 3000276600 07090 J FAB SADFOX07090
003106 4421071101 07100 R SC SW0,1,X1X1 SADFOX07100
* 003113 3000276600 07110 J FAB SADFOX07110
003120 4500014300 07120 T SC XPL,0,X4X4 STOP POLL SADFOX07120
003125 2701071101 07130 PD SW0,1,X4X4 SADFOX07130
* 003132 3000276600 07140 J FAB SADFOX07140
003137 5600006301 07150 I BA1 X4,1 SADFOX07150
* 003144 1000656100 07160 JR INTL SADFOX07160
003151 4500014301 07170 SC XPL,1,X4X4 SET POLL ON SADFOX07170
003156 4400001540 07180 SC 13,32 O R TO POLL SADFOX07180
003163 5600006321 07190 BA2 X4,1 SADFOX07190
003170 5200001321 07200 SA2 11,1 SADFOX07200
* 003175 1002000332 07210 JR XLK,032 2 SADFOX07210
* 003202 3000276600 07220 J FAB SADFOX07220
* 003207 3000454662 07230 SS1 JC ON,50 TEST SENSE SWITCH 1 SADFOX07230
* 003214 3000322132 07240 JC $+5,032 2 SADFOX07240
* 003221 1001074763 07250 JR XREAD,5151 READ CARD IF SS2 IS SET SADFOX07250
* 003226 3001111464 07260 JC JAMSN,5252 SADFOX07260
* 003233 3000324033 07270 JC $+5,033 3 SADFOX07270
* 003240 3000337700 07280 DRUMB JC TAPEB,0 0 SADFOX07280
003245 2600034710 07290 PD 0347,8 SADFOX07290
003252 4400034640 07300 SC 0346,32 2 SADFOX07300
* 003257 3000332240 07310 DB1 JC DB2,040 0 SADFOX07310
003264 2600326301 07320 PD $-1,1 SADFOX07320
003271 2001151570 07330 FT FILL,56 6 SADFOX07330
003276 6400034140 07340 LS 0341,04040 SADFOX07340
003303 4140060000 07350 XF 06,0,0,6,6 SADFOX07350
* 003310 3000331000 07360 J $ SADFOX07360
* 003315 3000337733 07370 JC TAPEB,03033 SADFOX07370
003322 4400326340 07380 DB2 SC DB1+4,04040 SADFOX07380
003327 2001223570 07390 FT BASED,5656 SADFOX07390
003334 6400034140 07400 LS 0341,04040 SADFOX07400
003341 4140050000 07410 XF 05,0,0,6,6 SADFOX07410
* 003346 3000334600 07420 J $ SADFOX07420
003353 2600363101 07430 PD KSW+4,1 1 SADFOX07430
003360 4401276025 07440 SC DCERR-1111,_B_ SADFOX07440
* 003365 1000354100 07450 JR KOMP SADFOX07450
* 003372 3000337733 07460 JC TAPEB,03033 SADFOX07460
* 003377 3000374000 07470 TAPEB JC DRUM,0 SADFOX07470
003404 4401134301 07480 SC TPER1+6,6,1 SADFOX07480
* 003411 3000345440 07490 TB1 JC TB2,040 0 SADFOX07490
003416 2600341501 07500 PD $-1,1 SADFOX07500
003423 2001151564 07510 FT FILL,52 2 SADFOX07510
003430 2000052065 07520 FT 336,53 SADFOX07520
003435 4121620100 07530 XF 062,010000,1,5 SADFOX07530
003442 4101611000 07540 XF 061,0100000,1,4 SADFOX07540
* 003447 3000374033 07550 JC DRUM,03333 SADFOX07550
003454 4400341540 07560 TB2 SC TB1+4,04040 SADFOX07560
003461 2001223560 07570 FT BASED,4848 SADFOX07570
003466 2000052061 07580 FT 336,49 SADFOX07580
003473 4101610100 07590 XF 061,010000,1,4 SADFOX07590
003500 4101611000 07600 XF 061,0100000,1,4 SADFOX07600
* 003505 3000351232 07610 JC $+5,032 2 SADFOX07610
003512 4400363140 07620 SC KSW+4,04040 SADFOX07620
003517 4401277725 07630 SC TCERR-1111,_B_ SADFOX07630
* 003524 1000354100 07640 JR KOMP SADFOX07640
* 003531 3000374033 07650 JC DRUM,03333 SADFOX07650
* 003536 3000353600 07660 KOMP J $ READ WRITE COMPARE SADFOX07660
003543 2600005310 07670 PD X2,8 SADFOX07670
003550 4400360530 07680 SC KJL+4,2424 SADFOX07680
003555 5621225216 07690 KMP1 BA1 BASED+1313,14,X1 SADFOX07690
003562 7001153256 07700 CB1 FILL+13,3,14 SADFOX07700
* 003567 3000361343 07710 JU KUNEQ SADFOX07710
003574 6000004716 07720 AC X1,14 SADFOX07720
* 003601 3200355530 07730 KJL JL KMP1,24 4 SADFOX07730
* 003606 3000370700 07740 J KPAD SADFOX07740
003613 4400370604 07750 KUNEQ SC KJL1+4,4,4 SADFOX07750
003620 5601277317 07760 BA1 DCERR,1515 SADFOX07760
* 003625 3000363700 07770 KSW JC $+10,0 SADFOX07770
003632 5601301217 07780 BA1 TCERR,1515 SADFOX07780
003637 5200141617 07790 SA1 PBASE+1414,15 SADFOX07790
003644 2000141720 07800 FT PBASE+1515,T16 SADFOX07800
003651 2000012422 07810 FT 84,T18 SADFOX07810
003656 2441223501 07820 TFR BASED,,X,X2 SADFOX07820
* 003663 1000443100 07830 JR PRINT SADFOX07830
003670 6000005377 07840 AC X2,63 SADFOX07840
003675 6000005325 07850 AC X2,21 SADFOX07850
* 003702 3200362004 07860 KJL1 JL KUNEQ+5,5,4 SADFOX07860
003707 2601223501 07870 KPAD PD BASED,1 1 SADFOX07870
003714 2000051722 07880 FT 335,T18 8 SADFOX07880
003721 2001223620 07890 FT BASED+1,1,T16 SADFOX07890
003726 2401223501 07900 TFR BASED SADFOX07900
* 003733 3000353600 07910 J KOMP SADFOX07910
* 003740 3000420500 07920 DRUM JC TAPE,0 SADFOX07920
003745 2600034710 07930 PD 0347,8 SADFOX07930
003752 2001223570 07940 FT DBASE,5656 SADFOX07940
003757 6400034120 07950 LS 0341,02020 SADFOX07950
003764 4140050000 07960 XF 05,0,0,6,6 SADFOX07960
* 003771 3000377100 07970 J $ SADFOX07970
003776 2001250570 07980 FT DBASE+16168,56 SADFOX07980
004003 6400034120 07990 LS 0341,02020 SADFOX07990
* 004010 3000401533 08000 JC $+5,033 3 SADFOX08000
004015 4140050000 08010 XF 05,0,0,6,6 SADFOX08010
* 004022 3000402200 08020 J $ SADFOX08020
004027 4401276024 08030 SC DCERR-1111,_A_ SADFOX08030
004034 4400407614 08040 SC DJL+4,1212 SADFOX08040
004041 2600004704 08050 PD X1,4 SADFOX08050
004046 5621225216 08060 DCMP BA1 DBASE+1313,14,X1 SADFOX08060
004053 7021252256 08070 CB1 DBASE+16168+13,14,X1 SADFOX08070 4
* 004060 3000411143 08080 JU DUNEQ SADFOX08080
004065 6000004716 08090 AC X1,14 SADFOX08090
* 004072 3200404614 08100 DJL JL DCMP,12 2 SADFOX08100
* 004077 3000420533 08110 JC TAPE,03333 SADFOX08110
* 004104 3000420500 08120 J TAPE SADFOX08120
004111 2600004704 08130 DUNEQ PD X1,4 SADFOX08130
004116 4400417704 08140 SC DJL1+4,4,4 SADFOX08140
004123 5601277317 08150 BA1 DCERR,1515 SADFOX08150
004130 5200141617 08160 SA1 PBASE+1414,15 SADFOX08160
004135 2000141720 08170 FT PBASE+1515,T16 SADFOX08170
004142 2000012422 08180 FT 84,T18 SADFOX08180
004147 2421223501 08190 TFR DBASE,,X,X1 SADFOX08190
* 004154 1000443100 08200 JR PRINT SADFOX08200
004161 6000004777 08210 AC X1,63 SADFOX08210
004166 6000004725 08220 AC X1,21 SADFOX08220
* 004173 3200412304 08230 DJL1 JL DUNEQ+1010,4 SADFOX08230
* 004200 3000420533 08240 JC $+5,033 3 SADFOX08240
* 004205 3000421200 08250 TAPE JC PUNCH,0 0 SADFOX08250
* 004212 3000424300 08260 PUNCH JC CLOCK,0 0 SADFOX08260
* 004217 3200424305 08270 JL CLOCK,0505 SADFOX08270
004224 4400422301 08280 SC $-1,01 SADFOX08280
004231 2000410050 08290 FT 04100,4040 SADFOX08290
004236 4040660100 08300 XF 066,010000,0,2 SADFOX08300
* 004243 3000440700 08310 CLOCK JC COUNT,0 0 SADFOX08310
* 004250 3000425532 08320 JC $+5,032 2 SADFOX08320
004255 1401367620 08330 LC XIBC6,1616 SADFOX08330
* 004262 3000440743 08340 JU COUNT SADFOX08340
004267 6001145301 08350 AC TCTR2,1 1 SADFOX08350
004274 5601145301 08360 BA1 TCTR2,1 1 SADFOX08360
004301 7001145241 08370 CB1 TCTR1,1 1 SADFOX08370
* 004306 3000433743 08380 JU CLK1 SADFOX08380
004313 2601145301 08390 PD TCTR2,1 1 SADFOX08390
004320 5601377506 08400 BA1 XIBF6+6161,6 SADFOX08400
004325 5200140506 08410 SA1 PBASE+5,5,6 SADFOX08410
* 004332 1000443100 08420 JR PRINT SADFOX08420
004337 2000016254 08430 CLK1 FT XSTOP,4444 SADFOX08430
004344 4060020000 08440 XF 02,0,0,3,3 SADFOX08440
* 004351 3200435177 08450 JL $,63 SADFOX08450
004356 4400435577 08460 SC $-1,63 SADFOX08460
004363 2601367601 08470 PD XIBC6,1 1 SADFOX08470
004370 4401367770 08480 SC XIBC6+1,1,070 SADFOX08480
004375 2000016154 08490 FT XSTRT,4444 SADFOX08490
004402 4060020000 08500 XF 02,0,0,3,3 SADFOX08500
* 004407 3000202633 08510 COUNT JC INPT,03333 SADFOX08510
004414 6001151401 08520 AC MLCTR,1 1 SADFOX08520
* 004421 3000202633 08530 JC INPT,03333 SADFOX08530
* 004426 3000442600 08540 PRINT J $ SADFOX08540
004433 2000140040 08550 FT PBASE,3232 SADFOX08550
004440 2000000141 08560 FT 1,33 SADFOX08560
004445 4000407777 08570 PRER2 XF 32,0777777,0,0 SADFOX08570
004452 4000620000 08580 XF 062,0,0,0,0 SADFOX08580
004457 4000007777 08590 XF 0,07777,7,0,0 SADFOX08590
* 004464 3000452253 08600 JC PRER1,4343 SADFOX08600
004471 2600140001 08610 PD PBASE,1 1 SADFOX08610
004476 2000140120 08620 FT PBASE+1,1,T16 SADFOX08620
004503 2000017722 08630 FT 127,T18 8 SADFOX08630
004510 2400140001 08640 TFR PBASE SADFOX08640
* 004515 3000442600 08650 J PRINT SADFOX08650
004522 4000004000 08660 PRER1 XF 0,04000,0,0,0 SADFOX08660
* 004527 3000444553 08670 JC PRER2,4343 SADFOX08670
* 004534 3000330060 08680 JD 03300 SADFOX08680
* 004541 3000444500 08690 J PRER2 SADFOX08690
* 004546 3000455332 08700 ON JC $+5,032 2 SADFOX08700
004553 2601151400 08710 PD MLCTR,1616 SADFOX08710
004560 2601145302 08720 PD TCTR2,2 2 SADFOX08720
004565 2600374401 08730 PD DRUM+4,1,1 SADFOX08730
004572 2600421101 08740 PD TAPE+4,1,1 SADFOX08740
004577 2600421601 08750 PD PUNCH+4,4,1 SADFOX08750
004604 2600424701 08760 PD CLOCK+4,4,1 SADFOX08760
004611 2600324401 08770 PD DRUMB+4,4,1 SADFOX08770
004616 2600340301 08780 PD TAPEB+4,4,1 SADFOX08780
004623 4400341540 08790 SC TB1+4,04040 SADFOX08790
004630 2600060001 08800 PD 0600,1 SADFOX08800
004635 2000060120 08810 FT 0601,T1616 SADFOX08810
004642 2000017722 08820 FT 127,T18 8 SADFOX08820
004647 2400060001 08830 TFR 0600 SADFOX08830
004654 5600716004 08840 BA1 CARD,4 SADFOX08840
004661 5200072504 08850 SA1 0725,4 SADFOX08850
004666 2600140001 08860 PD PBASE,1 1 SADFOX08860
004673 2000140120 08870 FT PBASE+1,1,T16 SADFOX08870
004700 2000017722 08880 FT 127,T18 8 SADFOX08880
004705 2400140001 08890 TFR PBASE SADFOX08890
004712 2600656201 08900 PD INTL+4,1,1 SADFOX08900
004717 4060402000 08910 XF 32,0200000,0,3 SADFOX08910
004724 2600004703 08920 PD X1,3 SADFOX08920
004731 4400475426 08930 SC $+19,XLPLP+XLP SADFOX08930
004736 6421370001 08940 LS XOBC,1,X,X1 SADFOX08940
004743 6000004702 08950 AC X1,2 SADFOX08950
* 004750 3200473600 08960 JL $-10 SADFOX08960
004755 4060002000 08970 XF 0,02000,0,0,3 TEST DF SADFOX08970
* 004762 3000477453 08980 JC $+10,43 3 SADFOX08980
* 004767 3000475500 08990 J $-10 SADFOX08990
004774 4060402000 09000 XF 32,0200000,0,3 SADFOX09000
005001 2600702701 09010 PD INTL2+4,4,1 SADFOX09010
005006 4400504313 09020 SC $+29,XLPLP SADFOX09020
005013 2600502401 09030 PD $+9,1 SADFOX09030
005020 4400001700 09040 SC 15,0 SADFOX09040
* 005025 1000656100 09050 JR INTL SADFOX09050
005032 6000502401 09060 AC $-6,1 SADFOX09060
* 005037 3200502000 09070 JL $-15 SADFOX09070
005044 4060002000 09080 XF 0,02000,0,0,3 SADFOX09080
* 005051 3000506353 09090 JC $+10,43 3 SADFOX09090
* 005056 3000504400 09100 J $-10 SADFOX09100
005063 4400656233 09110 SC INTL+4,0,033 SADFOX09110
005070 4400702740 09120 SC INTL2+4,4,040 SADFOX09120
005075 2600005307 09130 PD X2,7 SADFOX09130
005102 4400513213 09140 SC $+24,XLPLP SADFOX09140
* 005107 1000711000 09150 JR INPAD SADFOX09150
005114 6000004602 09160 AC X1-1,2 SADFOX09160
005121 6000005304 09170 AC X2,4 SADFOX09170
* 005126 3200510713 09180 JL $-15,XLPLP SADFOX09180
005133 2602434401 09190 PD XEL,1 SADFOX09190
005140 2000011522 09200 FT 77,T18 SADFOX09200
005145 2002434520 09210 FT XEL+1,T1T16 SADFOX09210
005152 2402434401 09220 TFR XEL SADFOX09220
* 005157 3000517663 09230 JC S2ON,51 1 SADFOX09230
* 005164 3000000160 09240 STOP JD 1 SADFOX09240
* 005171 3000202633 09250 JC INPT,03333 SADFOX09250
005176 2600005713 09260 S2ON PD X3,11 SADFOX09260
005203 4400532713 09270 SC S2JL+4,X,XLP SADFOX09270
005210 2600542502 09280 PD S2MSE,2 2 SADFOX09280
* 005215 3000526500 09290 J S2ON1 SADFOX09290
005222 2060731020 09300 FT AREA1,T1T16,X3 SADFOX09300
005227 2000007122 09310 FT 071,T18 8 SADFOX09310
005234 2400533501 09320 TFR S2MSG-1515 SADFOX09320
005241 4440721071 09330 SC RUL,071,1,X2 SADFOX09330
005246 4421071101 09340 SC SW0,1,X1X1 SADFOX09340
005253 5640721306 09350 BA1 OR0,6,X2X2 SADFOX09350
* 005260 1002000300 09360 JR XLK SADFOX09360
005265 5600542542 09370 S2ON1 BD1 S2MSE,2 2 SADFOX09370
005272 6601145101 09380 AD1 ONE,1 SADFOX09380
005277 5200542502 09390 SA1 S2MSE,2 2 SADFOX09390
005304 6000004701 09400 AC X1,1 SADFOX09400
005311 6000005306 09410 AC X2,6 SADFOX09410
005316 6000005601 09420 AC X3-1,1 SADFOX09420
* 005323 3200522213 09430 S2JL JL S2ON+20,0,XLP SADFOX09430
* 005330 3000516400 09440 J STOP SADFOX09440
005354 ABCDEFGHIJKLMNOP 09450 S2MSG +16 _ABCDEFGFGHIJKLMNOP_ SADFOX09450 N
005366 QRSTUVWXYZ 09460 +10 _QRSTUVWVWXYZ_ SADFOX09460
005376 4037425563617541 09470 +8 0403742525563617541 SADFOX09470 5
005406 0304050607101112 09480 +8 0030405050607101112 SADFOX09480 1
005416 1314206202222116 09490 +8 0131420606202222116 SADFOX09490 1
005425 36357664000000 09500 S2MSE +7 03635766664000000 SADFOX09500 0
005426 4401073457 09510 ERR2 SC EM2+2,05057 KSR VT SADFOX09510 S
005433 3400004713 09520 CC 047,XUN1N1+1 SADFOX09520
* 005440 3000545241 09530 JG $+10 SADFOX09530
005445 4401073415 09540 SC EM2+2,01015 CU FF SADFOX09540
005452 5601073106 09550 BA1 OREM2,6 6 SADFOX09550
005457 5600004721 09560 BA2 X1,1 SADFOX09560
005464 5200001321 09570 SA2 11,1 UNIT SADFOX09570
* 005471 3000277300 09580 J PUSH SADFOX09580
* 005476 3000000260 09590 ERR3 JD 2 SADFOX09590
* 005503 3000000360 09600 ERR4 JD 3 SADFOX09600
* 005510 3000551000 09610 RMINT J $ SADFOX09610
* 005515 3001071051 09620 INT JC STOR+64,4,41 L IND SADFOX09620
005522 5201064761 09630 SAR STOR+31 1 ARS SADFOX09630
005527 5600007700 09640 BA1 X7,16 IRS SADFOX09640
005534 5201070700 09650 SA1 STOR+63,3,16 SADFOX09650
005541 2600007700 09660 PD X7,16 SADFOX09660
005546 4400570413 09670 SC INTJL+4,4,XLP SADFOX09670
005553 2600562701 09680 PD UNITX+4,4,1 SADFOX09680
005560 3562434400 09690 ILOOP CC XEL,0,X7X7 SADFOX09690
* 005565 3000577443 09700 JU ERR1 SADFOX09700
005572 3560026400 09710 CC XBSY,0,X,X7 SADFOX09710
* 005577 3000564743 09720 JU INCR SADFOX09720
005604 3561071101 09730 CC SW0,1,X7X7 SADFOX09730
* 005611 3000564741 09740 JG INCR NO ACTION SADFOX09740
* 005616 3000574342 09750 JE REPET REPEAT SEND SADFOX09750
005623 4400001300 09760 UNITX SC 11,0 SADFOX09760
005630 4400001540 09770 SC 13,32 SADFOX09770
005635 4560014301 09780 SC XPL,1,X7X7 SET BM POLL SADFOX09780
* 005642 1002000300 09790 ILK JR XLK START POLL OR SEND SADFOX09790
005647 6000007701 09800 INCR AC X7,1 MULT 1 IS X7 SADFOX09800
005654 6000007304 09810 AC X6,4 MULT 4 IS X6 SADFOX09810
005661 6000006706 09820 AC X5,6 MULT 6 IS X5 SADFOX09820
005666 6000006202 09830 AC X4-1,2 MULT 128 IS X4 SADFOX09830
005673 6000562701 09840 AC UNITX+4,4,1 SADFOX09840
* 005700 3200556003 09850 INTJL JL ILOOP,3 3 SADFOX09850
005705 5601070700 09860 BA1 STOR+63,3,16 SADFOX09860
005712 5200007700 09870 SA1 X7,16 RESTORE IRS SADFOX09870
005717 5601062700 09880 BA1 STOR+15,5,16 AR1 SADFOX09880
005724 5601064720 09890 BA2 STOR+31,1,16 AR2 SADFOX09890
* 005731 3001071052 09900 JC STOR+64,4,42 SADFOX09900
* 005736 3000551000 09910 J RMINT EXIT SADFOX09910
005743 5720721306 09920 REPET BA1 OR0,6,X5X5 REPEAT SEND SADFOX09920
005750 6400001520 09930 LS 13,020 SET VERTICAL TAB SADFOX09930
* 005755 3000564200 09940 J ILK SADFOX09940
* 005762 3000000560 09950 ER4 JD 5 SADFOX09950
* 005767 3000614500 09960 J ER3+5 SADFOX09960
005774 3400007712 09970 ERR1 CC X7,XUN1 1 SADFOX09970
* 006001 3000603244 09980 JS ER2 SADFOX09980
006006 3562434416 09990 CC XEL,XE1414,X7 KSR COMP ERROR SADFOX09990
* 006013 3000603243 10000 JU ER2 SADFOX10000
* 006020 1000617400 10010 JR KSRCE SADFOX10010
* 006025 3000564733 10020 JC INCR,03333 SADFOX10020
006032 5600655500 10030 ER2 BA1 LUMP,16 6 SADFOX10030
006037 5600007721 10040 BA2 X7,1 SADFOX10040
* 006044 1000644600 10050 JR OCT SADFOX10050
006051 5200001722 10060 SA2 15,2 SADFOX10060
006056 5762434421 10070 BA2 XEL,1,X7X7 SADFOX10070
* 006063 1000644600 10080 JR OCT SADFOX10080
006070 5200000722 10090 SA2 7,2 SADFOX10090
006075 5200141700 10100 SA1 PBASE+1515,16 SADFOX10100
* 006102 1000443100 10110 JR PRINT SADFOX10110
006107 3562434415 10120 CC XEL,XE1313,X7 SADFOX10120
* 006114 3000615742 10130 JE PADER SADFOX10130
006121 3562434412 10140 CC XEL,10,X,X7 SADFOX10140
* 006126 3000576242 10150 JE ER4 SADFOX10150
006133 3562434413 10160 CC XEL,11,X,X7 SADFOX10160
* 006140 3000576242 10170 ER3 JE ER4 SADFOX10170
006145 5600007701 10180 BA1 X7,1 SADFOX10180
* 006152 1000656100 10190 JR INTL SADFOX10190
006157 2762434401 10200 PADER PD XEL,1,X7X7 SADFOX10200
* 006164 3000564733 10210 JC INCR,03333 SADFOX10210
* 006171 3000617100 10220 KSRCE J $ KSR COMP ERROR PRINT SADFOX10220
006176 5600007721 10230 BA2 X7,1 SADFOX10230
* 006203 1000644600 10240 JR OCT SADFOX10240
006210 5200651422 10250 SA2 UNIT-9,2,2 SADFOX10250
006215 5741370321 10260 BA2 XIBA,1,X,X6 SADFOX10260
* 006222 1000644600 10270 JR OCT SADFOX10270
006227 5200653522 10280 SA2 IBCW,2 SADFOX10280
006234 2000140020 10290 FT PBASE,T1T16 SADFOX10290
006241 2000003022 10300 FT 24,T18 SADFOX10300
006246 2400650601 10310 TFR UNIT-15 5 SADFOX10310
* 006253 1000443100 10320 JR PRINT SADFOX10320
006260 2000140020 10330 FT PBASE,1616 SADFOX10330
006265 2000010022 10340 FT 64,18 SADFOX10340
006272 2501410001 10350 TFR XIBF,,X4X4 SADFOX10350
006277 4400011012 10360 SC 0110,XTTTT3 SADFOX10360
006304 1200147700 10370 TR PBASE+6363,64 SADFOX10370
* 006311 1000443100 10380 JR PRINT SADFOX10380
006316 2000140020 10390 FT PBASE,1616 SADFOX10390
006323 2000010022 10400 FT 64,18 SADFOX10400
006330 2501400001 10410 TFR XOBF,,X4X4 SADFOX10410
006335 1200147700 10420 TR PBASE+6363,64 SADFOX10420
* 006342 1000443100 10430 JR PRINT SADFOX10430
006347 5600007701 10440 BA1 X7,1 SADFOX10440
* 006354 1000656100 10450 JR INTL SADFOX10450
006361 4561071101 10460 SC SW0,1,X7X7 SADFOX10460
006366 4401073460 10470 SC EM2+2,06060 SADFOX10470
006373 3400007700 10480 CC X7,0 SADFOX10480
* 006400 3000641242 10490 JE $+10 SADFOX10490
006405 4401073457 10500 SC EM2+2,05057 SADFOX10500
006412 5600007721 10510 BA2 X7,1 SADFOX10510
006417 5601073106 10520 BA1 OREM2,6 6 SADFOX10520
006424 5200001321 10530 SA2 11,1 SADFOX10530
* 006431 1002000300 10540 JR XLK SADFOX10540
* 006436 3000617100 10550 J KSRCE SADFOX10550
* 006443 3000644300 10560 OCT J $ BINARY TO OCTAL SADFOX10560
006450 2600003601 10570 PD 30,1 SADFOX10570
006455 1600003723 10580 BS2 31,3 SADFOX10580
006462 1600003753 10590 BC1 31,3 SADFOX10590
006467 6000003703 10600 AC 31,3 SADFOX10600
006474 6000003603 10610 AC 30,3 SADFOX10610
* 006501 3000644300 10620 J OCT SADFOX10620
006525 UNIT CMP ERR 10630 UNIT +16 _UNIT CMP ERR _ SADFOX10630 R
006535 IBCW 10640 IBCW +8 _IBCW _ SADFOX10640
006555 ERROR UNIT 10650 LUMP +16 _ERROR UNIT _ SADFOX10650
* 006556 3000655633 10660 INTL JC $,033 INITIALIZE SADFOX10660
* 006563 3000657032 10670 JC $+5,032 2 SADFOX10670
006570 4200716411 10680 ST IX1,X1 SADFOX10680
006575 4200717012 10690 ST IX2,X2 SADFOX10690
006602 2600005310 10700 PD X2,8 SADFOX10700
006607 5200004701 10710 SA1 X1,1 IN TO X1 SADFOX10710
006614 4421071102 10720 SC SW0,2,X1X1 SADFOX10720
006621 4420013040 10730 SC XPCW,32,2,X1 SADFOX10730
006626 4420026401 10740 SC XBSY,1,X,X1 SADFOX10740
006633 2620015601 10750 PD XSW,1,X1X1 SADFOX10750
006640 2622402001 10760 PD XTI,1,X1X1 SADFOX10760
006645 2622434401 10770 PD XEL,1,X1X1 SADFOX10770
006652 4420014301 10780 SC XPL,1,X1X1 SADFOX10780
006657 5200005301 10790 SA1 X2,1 SADFOX10790
006664 1600005312 10800 BS1 X2,2 4N TO X2 SADFOX10800
006671 1600004737 10810 BS3 X1,7 128N TO X1 SADFOX10810
006676 3400001712 10820 CC 15,XUN1 1 SADFOX10820
006703 4421407750 10830 SC XOBF+63,3,XME,X1 SADFOX10830
* 006710 3000700444 10840 JS INTL1 SADFOX10840
006715 4421400033 10850 SC XOBF,XEOEOT,X1 SADFOX10850
006722 4421400133 10860 SC XOBF+1,X,XEOT,X1 SADFOX10860
006727 2641370304 10870 PD XIBA,4,X,X2 SADFOX10870
006734 4642415154 10880 BT XMIT,44,4,X2 SADFOX10880
006741 2642403604 10890 PD XEC,4,X2X2 SADFOX10890
006746 4060020000 10900 XF 02,0,0,3,3 SADFOX10900
* 006753 3200675377 10910 JL $,63 SADFOX10910
006760 4400675777 10920 SC $-1,63 SADFOX10920
* 006765 3200675374 10930 JL $-10,60 0 SADFOX10930
006772 4400677174 10940 SC $-1,60 SADFOX10940
006777 4421407741 10950 SC XOBF+63,3,XCMA,X1 SADFOX10950 1
007004 5200004701 10960 INTL1 SA1 X1,1 SADFOX10960
* 007011 1002044500 10970 JR XSEND SADFOX10970
007016 2600004701 10980 PD X1,1 SADFOX10980
* 007023 3000655640 10990 INTL2 JC INTL,04040 SADFOX10990
007030 4060402000 11000 XF 32,0200000,0,3 RESET DF SADFOX11000
007035 4060002000 11010 XF 0,02000,0,0,3 TEST DF SADFOX11010
* 007042 3000705453 11020 JC $+10,43 3 SADFOX11020
* 007047 3000703500 11030 J $-10 SADFOX11030
007054 4060402000 11040 XF 32,0200000,0,3 RESET DF SADFOX11040
* 007061 1000711000 11050 JR INPAD SADFOX11050
007066 4600716411 11060 BT IX1,X1 SADFOX11060
007073 4600717012 11070 BT IX2,X2 SADFOX11070
* 007100 3000655600 11080 J INTL SADFOX11080
* 007105 3000710500 11090 INPAD J $ SADFOX11090
007112 2641370304 11100 PD XIBA,4,X,X2 SADFOX11100
007117 2000017722 11110 FT 127,T18 8 SADFOX11110
007124 2021400120 11120 FT XOBF+1,T,T16,X1 SADFOX11120
007131 2621400001 11130 PD XOBF,1,X,X1 SADFOX11130
007136 2421400001 11140 TFR XOBF,,X1X1 CLEAR BUFFERS SADFOX11140
007143 2642403402 11150 PD XTC,2,X2X2 SADFOX11150
* 007150 3000710500 11160 J INPAD SADFOX11160
007160 CARD 11170 CARD +4 _CARD_ SADFOX11170
007164 00000000 11180 IX1 +4 0 SADFOX11180
007170 00000000 11190 IX2 +4 0 SADFOX11190
007173 360007 11200 +3 0360007 7 SADFOX11200
007176 007177 11210 OREM1 +3 EM1 SADFOX11210
007177 11220 EM1 EQU $ SADFOX11220
007205 ERROR 11230 +7 _ERROR _ SADFOX11230
007210 360067 11240 RUL +3 0360067 7 REMOTE IRRN, UNIT, LENGTH SADFOX11240
007213 007310 11250 OR0 +3 AREA1 SADFOX11250
007216 360167 11260 +3 0360167 7 SADFOX11260
007221 007410 11270 +3 AREA1+6464 SADFOX11270
007224 360267 11280 +3 0360267 7 SADFOX11280
007227 007510 11290 +3 AREA1+12128 SADFOX11290
007232 360367 11300 +3 0360367 7 SADFOX11300
007235 007610 11310 +3 AREA1+19192 SADFOX11310
007240 360467 11320 +3 0360467 7 SADFOX11320
007243 007710 11330 +3 AREA1+25256 SADFOX11330
007246 360567 11340 +3 0360567 7 SADFOX11340
007251 010010 11350 +3 AREA1+32320 SADFOX11350
007254 360667 11360 +3 0360667 7 SADFOX11360
007257 010110 11370 +3 AREA1+38384 SADFOX11370
007262 360767 11380 +3 0360767 7 SADFOX11380
007265 010210 11390 +3 AREA1+44448 SADFOX11390
007270 361067 11400 +3 0361067 7 SADFOX11400
007273 010310 11410 +3 AREA1+51512 SADFOX11410
007276 361167 11420 +3 0361167 7 SADFOX11420
007301 010410 11430 +3 AREA1+57576 SADFOX11430
007304 361267 11440 +3 0361267 7 SADFOX11440
007307 010510 11450 +3 AREA1+64640 SADFOX11450
007310 1300 11460 AREA1 AREA 704 SADFOX11460
010610 101 11470 STOR AREA 65 SADFOX11470
010711 13 11480 SW0 AREA 11 SADFOX11480
010726 360012 11490 +3 0360012 2 SADFOX11490
010731 010732 11500 OREM2 +3 EM2 SADFOX11500
010732 11510 EM2 EQU $ SADFOX11510
010740 01015701305454 11520 +7 0101570101305454 SADFOX11520
010743 515422 11530 +3 0515422 2 SADFOX11530
* 010744 3001074400 11540 XREAD J $ SADFOX11540
010751 2000060044 11550 FT 0600,36 6 SADFOX11550
010756 4020610100 11560 XF 061,0010100,0,1 SADFOX11560
010763 2000060040 11570 FT 0600,32 2 SADFOX11570
010770 2000000141 11580 FT 1,33 SADFOX11580
010775 4000620000 11590 XF 062,00,0,0,0 SADFOX11590
* 011002 3001074400 11600 J XREAD SADFOX11600
* 011007 3000000031 11610 JC 0,25 SADFOX11610
011016 011017 11620 CH0IE +3 XPRTI SADFOX11620
011017 4000007777 11630 XPRTI XF 0,07777,7,0,0 SADFOX11630
* 011024 3001103600 11640 JC $+10 SADFOX11640
* 011031 3000040000 11650 J 0400 SADFOX11650
* 011036 3000330060 11660 JD 03300 SADFOX11660
011043 4000407777 11670 XF 32,0777777,0,0 SADFOX11670
011050 4000620000 11680 XF 062,0,0,0,0 SADFOX11680
* 011055 3000040000 11690 J 0400 SADFOX11690
* 011062 3000000036 11700 JC 0,30 SADFOX11700
011071 011102 11710 +3 CL1 SADFOX11710
* 011072 3000000035 11720 JC 0,29 SADFOX11720
011101 011107 11730 CL12 +3 CL2 SADFOX11730
* 011102 3000110160 11740 CL1 JD 01101 CLASS I INTERRUPT SADFOX11740
* 011107 3000220160 11750 CL2 JD 02201 CLASS II INTERRUPT SADFOX11750
* 011114 3000000460 11760 JAMSN JD 4 SENSE SW 3 OPTION SADFOX11760
011121 2600005713 11770 PD X3,11 SADFOX11770
011126 5600000021 11780 BA2 0,1 SADFOX11780
011133 5200004721 11790 SA2 X1,1 SADFOX11790
011140 5200005321 11800 SA2 X2,1 SADFOX11800
011145 1600005312 11810 BS1 X2,2 SADFOX11810
011152 5200005621 11820 SA2 X3-1,1 SADFOX11820
011157 1600005611 11830 BS1 X3-1,1 SADFOX11830
011164 2641370304 11840 PD XIBA,4,X,X2 SADFOX11840
011171 5600000121 11850 BA2 1,1 SADFOX11850
011176 5261400021 11860 SA2 XOBF,1,X,X3 SADFOX11860
011203 2061400120 11870 FT XOBF+1,T,T16,X3 SADFOX11870
011210 2000007722 11880 FT 63,T18 SADFOX11880
011215 2461400001 11890 TFR XOBF,,X3X3 SADFOX11890
* 011222 1002050300 11900 JR XSND SADFOX11900
* 011227 3000454620 11910 JHJ ON SADFOX11910
011234 6000046305 11920 DRMER AC 0463,5 SADFOX11920
011241 4140007777 11930 XF 0,07777,7,0,6 SADFOX11930
* 011246 3001126053 11940 JC $+10,43 3 SADFOX11940
* 011253 3000046032 11950 JC 0460,03232 SADFOX11950
* 011260 3000330660 11960 JD 03306 SADFOX11960
011265 4140407777 11970 XF 32,0777777,0,6 SADFOX11970
* 011272 3000046032 11980 JC 0460,03232 SADFOX11980
011277 4100000040 11990 TAPER XF 0,040,0,0,4 SADFOX11990
* 011304 3001133553 12000 JC TPER1,4343 SADFOX12000
* 011311 3000330460 12010 JD 03304 SADFOX12010
011316 4100407777 12020 XF 32,0777777,0,4 SADFOX12020
011323 4400341540 12030 SC TB1+4,04040 SADFOX12030
* 011330 3000374031 12040 JC DRUM,25 5 SADFOX12040
011335 4100407777 12050 TPER1 XF 32,0777777,0,4 SADFOX12050
011342 4100611000 12060 XF 061,0100000,0,4 SADFOX12060
011347 5601140513 12070 BA1 TPERL,1111 SADFOX12070
011354 5200141213 12080 SA1 PBASE+1010,11 SADFOX12080
* 011361 1000443100 12090 JR PRINT SADFOX12090
* 011366 3000421231 12100 JC PUNCH,2525 SADFOX12100
011405 TAPE PARITY 12110 TPERL +11 _TAPE PAPARITY_ SADFOX12110
* 011406 3000330260 12120 PCHER JD 03302 SADFOX12120
011413 4040407777 12130 XF 32,0777777,0,2 SADFOX12130
* 011420 3000042000 12140 J 0420 SADFOX12140
* 011425 3000330560 12150 TWRER JD 03305 SADFOX12150
011432 4120407777 12160 XF 32,0777777,0,5 SADFOX12160
011437 4400341540 12170 SC TB1+4,04040 SADFOX12170
* 011444 3000374031 12180 JC DRUM,25 5 SADFOX12180
011451 04 12190 ONE +1 04 SADFOX12190
011452 00 12200 TCTR1 +1 0 SADFOX12200
011453 00 12210 TCTR2 +1 0 SADFOX12210
011473 0000000000000000 12220 CL2AR +16 0 SADFOX12220
011474 00 12230 CL2LI +1 0 SADFOX12230
011514 0000000000000000 12240 MLCTR +16 0 SADFOX12240
011515 520 12250 FILL AREA 336,A,07074 SADFOX12250
012235 520 12260 BASED AREA 336 SADFOX12260
012235 12270 DBASE EQU BASED SADFOX12270
012773 DA COMP ERROR 12280 DCERR +15 _ DA COCOMP ERROR_ SADFOX12280 O
013012 TA COMP ERROR 12290 TCERR +15 _ TA COCOMP ERROR_ SADFOX12290 O
013027 CLOCK NOT SET 12300 CNSET +13 _CLOCK N NOT SET_ SADFOX12300 _
* 013030 3000000031 12310 JC 0,25 SADFOX12310
013037 020562 12320 CH3IE +3 XCAIE SADFOX12320
013040 00 12330 XBM77 +1 0 SADFOX12330
* 013041 3000000031 12340 JC 0,25 SADFOX12340
013050 013051 12350 CH1IE +3 XBMIE SADFOX12350
* 013051 3000330160 12360 XBMIE JD 03301 SADFOX12360
013056 4020407777 12370 XF 040,0777777,0,1 SADFOX12370
* 013063 3000041000 12380 J 0410 SADFOX12380
* 013070 3000000031 12390 JC 0,25 SADFOX12390
013077 011234 12400 CH6IE +3 DRMER SADFOX12400
* 013100 3000000031 12410 JC 0,25 SADFOX12410
013107 011277 12420 CH4IE +3 TAPER SADFOX12420
* 013110 3000000031 12430 JC 0,25 SADFOX12430
013117 011406 12440 CH2IE +3 PCHER SADFOX12440
* 013120 3000000031 12450 JC 0,25 SADFOX12450
013127 011425 12460 CH5IE +3 TWRER SADFOX12460
013676 12470 XIBC6 EQU 013676 SADFOX12470
013700 12480 XIBF6 EQU 013700 SADFOX12480
000161 12490 XSTRT EQU 0161 TURN ON SADFOX12490
000162 12500 XSTOP EQU 0162 TURN OFF SADFOX12500
000164 12510 XSETC EQU 0164 SET CLOCK SADFOX12510
000047 12520 X1 EQU 39 SADFOX12520
000053 12530 X2 EQU X1+4 SADFOX12530
000057 12540 X3 EQU X2+4 SADFOX12540
000063 12550 X4 EQU X3+4 SADFOX12550
000103 12560 T16 EQU 0103 SADFOX12560
000107 12570 T17 EQU T16+4 SADFOX12570
000113 12580 T18 EQU T17+4 SADFOX12580
000067 12590 X5 EQU X4+4 SADFOX12590
000073 12600 X6 EQU X5+4 SADFOX12600
000077 12610 X7 EQU X6+4 SADFOX12610
000210 12620 ORIG 00210 SADFOX12620
030000 12630 ORIG 030000 12630
* 030000 3003000532 12640 RIP JC $+5,26 12640
030005 3441370226 12650 CC XIBC,02626,2 12650
* 030012 3003005042 12660 JE RIP3 12660
030017 3441370221 12670 CC XIBC,02121,2 12670
* 030024 3003003642 12680 JE $+10 12680
* 030031 3002071433 12690 JC RD3+10,2,27 12690
* 030036 3003013265 12700 JC RIP2,53 3 12700
* 030043 3002071433 12710 JC RD3+10,2,27 12710
030050 2641370302 12720 RIP3 PD XIBA,2,2,2 12720
030055 4203277520 12730 ST TP3,16 STORE T16 12730
030062 4203300122 12740 ST TP4,18 STORE TU 18 12740
030067 2003130020 12750 FT TEMI,16 6 12750
030074 2000010022 12760 FT 64,18 12760
030101 2461410001 12770 TFR XIBF,,3 3 12770
030106 4603277520 12780 BT TP3,16 12780
030113 4603300122 12790 BT TP4,18 12790
* 030120 3003012522 12800 JC $+5,18 12800
* 030125 3002074033 12810 JC XNIS,27 7 12810
030132 2641370302 12820 RIP2 PD XIBA,2,2,2 12820
030137 4203277520 12830 ST TP3,16 12830
030144 4203300122 12840 ST TP4,18 12840
030151 2003140020 12850 FT TEMI+64,4,16 12850
030156 2000002322 12860 FT 19,18 12860
030163 2461410001 12870 TFR XIBF,,3 3 12870
030170 2661411700 12880 PD XIBF+15,5,16,3 12880
030175 2661413700 12890 PD XIBF+31,1,16,3 12890
030202 2661415700 12900 PD XIBF+47,7,16,3 12900
030207 2661417700 12910 PD XIBF+63,3,16,3 12910
030214 4203301111 12920 ST TP6,X1 STORE X1 12920
030221 4603300511 12930 BT TP5,X1 12930
030226 2000011522 12940 FT 77,18 12940
030233 2003150020 12950 FT TEMO,16 6 12950
030240 2423200001 12960 TFR RPAT,,1 1 12960
030245 5203276500 12970 SA1 TP1,16 STORE AR1 12970
030252 2600001700 12980 PD 017,16 12980
030257 6000004701 12990 AC X1,1 12990
030264 2600004603 13000 PD X1-1,3 13000
030271 3400004761 13010 CC X1,49 13010
* 030276 3003031043 13020 JU $+10 13020
030303 2600004704 13030 PD X1,4 13030
030310 4203300511 13040 ST TP5,X1 STORE X1 13040
030315 4603301503 13050 BT TP7,3 13050
030322 7403302103 13060 CT TP8,3 13060
* 030327 3003034643 13070 JU $+15 13070
030334 4403302160 13080 SC TP8,060 0 13080
030341 4403302060 13090 SC TP8-1,06060 13090
030346 6003302101 13100 AC TP8,1 13100
030353 3403302172 13110 CC TP8,072 2 13110
* 030360 3003037743 13120 JU $+15 13120
030365 4403302160 13130 SC TP8,060 0 13130
030372 6003302001 13140 AC TP8-1,1 1 13140
030377 5603141602 13150 BA1 TEMI+78,8,2 13150
030404 7003302142 13160 CB1 TP8,2 13160
* 030411 3003043042 13170 JE $+15 13170
* 030416 3002222260 13180 JD 022222 CARD SEQ. ERROR 13180
* 030423 3003304600 13190 J RTP 13190
030430 5603142204 13200 BA1 TEMI+82,2,4 13200
030435 7403277103 13210 CT TP2,3 13210
* 030442 3003045442 13220 JE $+10 13220
* 030447 3003333360 13230 JD 033333 CONTROL CHAR. ERROR 13230
030454 5603161415 13240 BA1 TEMO+76,6,13 13240
030461 7003141455 13250 CB1 TEMI+76,6,13 13250
* 030466 3003050542 13260 JE $+15 13260
* 030473 3005555560 13270 JD 055555 DATA ERROR AT 65 TO 77 13270
* 030500 3003304600 13280 J RTP 13280
030505 2600004704 13290 PD X1,4 13290
030512 5623151700 13300 RD BA1 TEMO+15,5,16,1 13300
030517 7023131740 13310 CB1 TEMI+15,5,16,1 13310
* 030524 3003062543 13320 JU RSTP 13320
030531 6000004720 13330 AC X1,020 13330
030536 3400004601 13340 CC X1-1,1 13340
* 030543 3003051243 13350 JU RD 13350
030550 5603276500 13360 RDS BA1 TP1,16 RESTORE AR1 13360
030555 4603277520 13370 BT TP3,16 RESTORE T16 13370
030562 4603300122 13380 BT TP4,18 RESTORE T18 13380
030567 4603301111 13390 BT TP6,X1 RESTORE X1 13390
030574 4420013040 13400 SC XPCW,04040,1 13400
* 030601 3003060625 13410 JC $+5,21 13410
030606 2622402001 13420 PD XTI,1,1 1 13420
030613 2642403402 13430 PD XTC,2,2 2 13430
* 030620 3002074033 13440 JC XNIS,27 7 13440
* 030625 3003063760 13450 RSTP JD $+10 13450
* 030632 3003304600 13460 J RTP 13460
030637 2603300504 13470 PD TP5,4 13470
030644 4403302160 13480 SC TP8,060 0 13480
030651 4403302060 13490 SC TP8-1,06060 13490
* 030656 3003304600 13500 J RTP 13500
030700 13510 ORIG $,64 START OF PUNCH ROUTINE 13510
030700 5203276500 13520 SA1 TP1,16 AR1 13520
030705 4603304503 13530 BT TP14,3 13530
030712 4203303503 13540 ST TP12,3 13540
030717 4203302550 13550 ST TP9,40 PBA TO STORE 13550
030724 4600042750 13560 BT 279,40 13560
030731 4203303150 13570 ST TP10,40 0 IE TO STORE 13570
030736 4203277520 13580 ST TP3,16 STORE T16 13580
030743 4203300122 13590 ST TP4,18 STORE T18 13590
030750 4203301111 13600 ST TP6,X1 STORE X1 13600
030755 2003126050 13610 FT RPSP,40 0 PIE 13610
030762 4200042750 13620 ST 279,40 13620
030767 2003150050 13630 FT TEMO,40 0 PBA 13630
030774 2600004704 13640 PD X1,4 13640
031001 2003150020 13650 FT TEMO,16 6 13650
031006 2000023222 13660 FT 154,18 13660
031013 2423230001 13670 RD1 TFR PPAT,,1 1 13670
031020 6000004702 13680 AC X1,2 13680
031025 1603303567 13690 BC2 TP12,7 13690
031032 1603303564 13700 BC2 TP12,4 13700
031037 3403303440 13710 CC TP12-1,0,040 13710
* 031044 3003107543 13720 JU $+25 13720
031051 1603303367 13730 BC2 TP11,7 13730
031056 1603303364 13740 BC2 TP11,4 13740
031063 1603303567 13750 BC2 TP12,7 13750
031070 1603303563 13760 BC2 TP12,3 13760
031075 5603303504 13770 BA1 TP12,4 13770
031102 5203173504 13780 SA1 TEMO+15757,4 13780
031107 4403173626 13790 SC TEMO+15858,026 13790
031114 4403173700 13800 SC TEMO+15959,0 13800
031121 4040007777 13810 XF 0,07777,7,0,2 13810
* 031126 3003126053 13820 JC RPSP,05353 13820
031133 4040620000 13830 XF 062,00,0,0,2 13830
031140 7403304111 13840 CT TP13,X1 1 13840
* 031145 3003115742 13850 JE $+10 13850
* 031152 3003101300 13860 J RD1 �64 CK, CONF 13860
031157 4603304503 13870 RD2 BT TP14,3 13870
031164 4203303503 13880 ST TP12,3 13880
031171 2600004704 13890 PD X1,4 13890
* 031176 3003121060 13900 JD $+10 13900
* 031203 3003101300 13910 J RD1 13910
031210 5603276500 13920 BA1 TP1,16 RETURN AR1 13920
031215 4603303150 13930 BT TP10,40 0 13930
031222 4200042750 13940 ST 279,40 RETURN IE 13940
031227 4603302550 13950 BT TP9,40 RETURN PBA 13950
031234 4603277520 13960 BT TP3,16 RETURN T16 13960
031241 4603300122 13970 BT TP4,18 RETURN T18 13970
031246 4603301111 13980 BT TP6,X1 RETURN X1 13980
* 031253 3000160000 13990 J 01600 RETURN TO POLL 13990
* 031260 3006543260 14000 RPSP JD 065432 PUNCH ERROR 14000
031265 2600025304 14010 PD 171,4 14010
* 031272 3003115700 14020 J RD2 RESTART NEW DECK 14020
031300 14030 ORIG $,64 14030
031300 200 14040 TEMI AREA 128,,,0 0 14040
031500 240 14050 TEMO AREA 160,,,0 0 14050
032000 14060 ORIG $,64 14060
032000 14070 RPAT EQU $ 14070
032007 0102030405060710 14080 +8 0010203030405060710 14080 7
032017 1112131415161720 14090 +8 0111213131415161720 14090 7
032027 2122572324252627 14100 +8 0212257272324252627 14100 6
032037 3031326162636465 14110 +8 0303132626162636465 14110 4
032047 6667707156514452 14120 +8 0666770707156514452 14120 4
032057 5450457572535560 14130 +8 0545045757572535560 14130 5
032060 40 14140 +1 040 14140
032070 0102030405060710 14150 +8 0010203030405060710 14150 7
032100 1112131415161720 14160 +8 0111213131415161720 14160 7
032110 2122572324252627 14170 +8 0212257272324252627 14170 6
032120 3031326162636465 14180 +8 0303132626162636465 14180 4
032130 6667707156514452 14190 +8 0666770707156514452 14190 4
032140 5450457572535560 14200 +8 0545045757572535560 14200 5
032141 40 14210 +1 040 14210
032151 0102030405060710 14220 +8 0010203030405060710 14220 7
032161 1112131415161720 14230 +8 0111213131415161720 14230 7
032171 2122572324252627 14240 +8 0212257272324252627 14240 6
032201 3031326162636465 14250 +8 0303132626162636465 14250 4
032211 6667707156514452 14260 +8 0666770707156514452 14260 4
032221 5450457572535560 14270 +8 0545045757572535560 14270 5
032222 40 14280 +1 040 14280
032300 14290 ORIG $,64 14290
032300 14300 PPAT EQU $ 14300
032307 4400420041004040 14310 +8 0440042020041004040 14310 0
032317 4020401040044002 14320 +8 0402040101040044002 14320 0
032327 4001240022002100 14330 +8 0400124040022002100 14330 1
032337 2040202020102004 14340 +8 0204020202020102004 14340 0
032347 2002200114001200 14350 +8 0200220000114001200 14350 2
032357 1100104010201010 14360 +8 0110010404010201010 14360 0
032367 1004100210010400 14370 +8 0100410000210010400 14370 4
032377 0200010000400020 14380 +8 0020001010000400020 14380 0
032407 0010000400020001 14390 +8 0001000000400020001 14390 0
032417 4102404221022042 14400 +8 0410240404221022042 14400 0
032427 1102104210220102 14410 +8 0110210404210220102 14410 1
032437 0022400020001000 14420 +8 0002240000020001000 14420 0
032441 0000 14430 +2 00 14430
032451 4400420041004040 14440 +8 0440042020041004040 14440 0
032461 4020401040044002 14450 +8 0402040101040044002 14450 0
032471 4001240022002100 14460 +8 0400124040022002100 14460 1
032501 2040202020102004 14470 +8 0204020202020102004 14470 0
032511 2002200114001200 14480 +8 0200220000114001200 14480 2
032521 1100104010201010 14490 +8 0110010404010201010 14490 0
032531 1004100210010400 14500 +8 0100410000210010400 14500 4
032541 0200010000400020 14510 +8 0020001010000400020 14510 0
032551 0010000400020001 14520 +8 0001000000400020001 14520 0
032561 4102404221022042 14530 +8 0410240404221022042 14530 0
032571 1102104210220102 14540 +8 0110210404210220102 14540 1
032601 0022400020001000 14550 +8 0002240000020001000 14550 0
032603 0000 14560 +2 00 14560
032613 4400420041004040 14570 +8 0440042020041004040 14570 0
032623 4020401040044002 14580 +8 0402040101040044002 14580 0
032633 4001240022002100 14590 +8 0400124040022002100 14590 1
032643 2040202020102004 14600 +8 0204020202020102004 14600 0
032653 2002200114001200 14610 +8 0200220000114001200 14610 2
032663 1100104010201010 14620 +8 0110010404010201010 14620 0
032673 1004100210010400 14630 +8 0100410000210010400 14630 4
032703 0200010000400020 14640 +8 0020001010000400020 14640 0
032713 0010000400020001 14650 +8 0001000000400020001 14650 0
032723 4102404221022042 14660 +8 0410240404221022042 14660 0
032733 1102104210220102 14670 +8 0110210404210220102 14670 1
032743 0022400020001000 14680 +8 0002240000020001000 14680 0
032745 0000 14690 +2 00 14690
032765 0000000000000000 14700 TP1 +16 00 14700
032771 42353533 14710 TP2 +4 04235353533 14710
032775 00000000 14720 TP3 +4 00 T16 14720
033001 00000000 14730 TP4 +4 00 T18 14730
033005 00000000 14740 TP5 +4 00 14740
033011 00000000 14750 TP6 +4 00 X1 14750
033015 00006471 14760 TP7 +4 00000646469 14760
033021 00006060 14770 TP8 +4 00000606060 14770
033025 00000000 14780 TP9 +4 00 14780
033031 00000000 14790 TP10 +4 00 14790
033033 0000 14800 TP11 +2 00 14800
033035 0000 14810 TP12 +2 00 14810
033041 00000142 14820 TP13 +4 00000014142 14820
033045 10001000 14830 TP14 +4 01000100000 14830
033046 4400011012 14840 RTP SC 72,012 14840
033053 5603302102 14850 BA1 TP8,2 14850
033060 5203161602 14860 SA1 TEMO+78,8,2 14860
033065 1203137700 14870 TR TEMI+63,3,64 14870
033072 1203141617 14880 TR TEMI+78,8,15 14880
033077 1203157700 14890 TR TEMO+63,3,64 14890
033104 1203161617 14900 TR TEMO+78,8,15 14900
033111 2603147700 14910 PD TEMI+12727,16 14910
033116 2603145700 14920 PD TEMI+11111,16 14920
033123 2603143700 14930 PD TEMI+95,5,16 14930
033130 4403141700 14940 SC TEMI+79,9,0 14940
033135 2603167700 14950 PD TEMO+12727,16 14950
033142 2603165700 14960 PD TEMO+11111,16 14960
033147 2603163700 14970 PD TEMO+95,5,16 14970
033154 4403161700 14980 SC TEMO+79,9,0 14980
033161 4400020701 14990 SC 0207,1 14990
033166 2003130040 15000 FT TEMI,32 2 15000
033173 4000620000 15010 XF 062,0,0,0,0 15010
033200 2003150040 15020 FT TEMO,32 2 15020
033205 4000620000 15030 XF 062,0,0,0,0 15030
033212 4400020743 15040 SC 0207,35 5 15040
033217 4000640000 15050 XF 064,0,0,0,0 15050
* 033224 3003055000 15060 J RDS 15060
0000 ERROR LINES 3000160000 15070 END START SADFOX15070
{-- tape mark --}
018991 C131 PREP CODEDIT SOURCE 06/67 FC G T3834394-13
001500 00010 T131 BEGIN 01500 PREP 00010
*LOAD 0700,TAPAPE,,PRELD L
* 001500 3007010660 * JD 070106 *
* 001505 3000150000 * J $-5 *
SEGMENT-ID T132 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 T133 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 T134 3000135600 * SEGJP $ *
001500 000101 ORIG 01500 000101
00020 . DRUM PREPARARATION ROUTINE(PREP� PREP 00020 O
00030 . OPERATINING INSTRUCTIONS) PREP 00030 R
00040 .1. AT LOAD STOP(3(3000000160�,KEY IN OPTIONS AS FOLLOWS) PREP 00040 1
00050 . LOC. 0)BIT 6)UNUSESED PREP 00050
00060 . 5)UNUSESED PREP 00060
00070 . 4)UNUSESED PREP 00070
00080 . 3)PRINTNT OFLO TRACKS WITHOUT PREPPING PREP 00080 T
00090 . 2)UNUSESED PREP 00090
00100 . 1)PREP P TEST HEAD PREP 00100 E
00110 . 1)BIT 6)PREP P HALF-DRUM PREP 00110 R
00120 . 5)READ D ONLY OPTION PREP 00120 P
00130 . 4)REDUCUCED LIMITS OPTION PREP 00130 I
00140 . 3)PREP P MODULAR DRUM PREP 00140 R
00150 . 2)WRITETE ONLY PREP 00150
00160 . 1)PREP P ONE HEAD PREP 00160 A
00170 . 2)REPEAT OPTITION (BINARY COUNTER� PREP 00170 N
00180 . 3)MODULE NO. . (MODULAR DRUM ONLY� PREP 00180 A
00190 . 4,5,6)LOWER LILIMIT OF UTH(PRESET TO 000000� PREP 00190
00200 . 10,11,12)UPPERER LIMIT OF UTH (PRESET TO 013737� PREP 00200
00210 . 14,15,16)TEST T PATTERN (PRESET TO 146331� PREP 00210 N
00220 . 17)TEST PATTERERN SHIFT OPTION (BINARY COUNTER� PREP 00220 T
00230 .2. INSERT BAD-SPOPOTS IN LOC 03700)ZUTHSPPP PREP 00230 L
00240 .3. SET SENSE SWITITCHES AS FOLLOWS) PREP 00240 S
00250 . SS1 SET) 16 OPOPTION, RESET) 14 OPTION PREP 00250 R
00260 . SS2 SET) FR2 RESET) FR1 PREP 00260 R
00270 . SS3 SET) FB RESET) NO FB PREP 00270 R
00280 . SENSE INDICATOTORS USED BY PROGRAM AS FOLLOWS) PREP 00280 D
00290 . SI1 SET) BACK-K-TRACKING FOR DISPLACED BAD SPOTS PREP 00290 N
00300 . SI3 SET) MOD RESET) NOT MOD PREP 00300
00310 .4. RUN)DEPRESS STSTART PREP 00310
00320 .5. RERUN)DEPRESS S STOP,OPERATOR REQUEST,START PREP 00320 P
00330 . AT LOAD D STOP)SELECT OPTIONS,GENERAL CLEAR, START PREP 00330 E
000700 00350 EHST EQU 00700 EVEN HISTORY PREP 00350
001700 00360 PHST EQU 01700 PLAIN HISTORY PREP 00360
002700 00370 OHST EQU 02700 ODD HISTORY PREP 00370
003700 00380 ELST EQU 03700 EVEN LIST PREP 00380
004700 00390 PLST EQU 04700 PLAIN LIST PREP 00390
005700 00400 OLST EQU 05700 ODD LIST PREP 00400
006700 00410 ZZZZZ ORIG 06700 00410
006717 97856GZ34HTIKQ/ 00411 +16 _97856GZGZ34HTIKQ/_ 00411 Q
006737 12RFBAS'OYP)J.&< 00412 +16 _12RFBASAS'OYP)J.&<_ 00412 .
006757 0LCXMNU>EVW�D,-� 00413 +16 _0LCXMNUNU>EVW�D,-�_ 00413 ,
006771 *���(�=�@� 00414 +10 _*���(�=�=�@�_ 00414
006772 56 00415 +1 46 00415
006777 :�$+� 00416 +5 _:�$+�_ _ 00416
007001 � 00417 +2 _�_ 00417
007002 56 00418 +1 46 00418
007017 �+)5612-0&Y�M 00419 +13 _�+)561212-0&Y�M_ 00419 _
007037 �H=VBA$RN@379TS� 00420 +16 _�H=VBA$A$RN@379TS�_ 00420 T
007057 U��QI:*JKEG<.(X, 00421 +16 _U��QI:*:*JKEG<.(X,_ 00421 (
007077 '/�D>C8LOP�F4W�Z 00422 +16 _'/�D>C8C8LOP�F4W�Z_ 00422 W
007100 00530 ORIG 07100 00530
* 007100 3000700560 00540 CL1IR JD 07005 CLASS I INTERRUPT PREP 00540
* 007105 3000720136 00541 JC START,3030 PREP 00541
* 007112 3000713154 00542 CL2IR JC OPREQ,4444 PREP 00542
* 007117 3000701160 00543 JD 07011 DECIMAL OVERFLOW PREP 00543 I
* 007124 3000717450 00544 JC START-5,5,40 PREP 00544
* 007131 3000713616 00560 OPREQ JC $+5,14 OPERATOR REQUEST PREP 00560
007136 4402133740 00580 SC PRINT+9,9,040 RESTORE PRINTER PREP 00580
007143 4000407777 00590 XF 040,0777777,0,0 PREP 00590
007150 4401111240 00600 SC RDR+14,0,040 RESTORE READER PREP 00600
007155 4020407777 00610 XF 040,0777777,0,1 PREP 00610
007162 4402414640 00620 SC PUNCH+4,4,040 RESTORE PUNCH PREP 00620
007167 4040407777 00630 XF 040,0777777,0,2 PREP 00630
* 007174 3000720135 00631 JC $+5,29 PREP 00631
007201 2002146003 00640 START FT IPT0,3 PREP 00640
007206 5200040703 00650 SA1 0407,3 SET UP CHANNEL 0 INTERRUPT PREP 00650
007213 2001137203 00660 FT IPT1,3 PREP 00660
007220 5200041703 00670 SA1 0417,3 SET UP CHANNEL 1 INTERRUPT PREP 00670
007225 5602536010 00675 BA1 IE7+7,8 8 SET IE CHAN 7 PREP 00675
007232 5200047710 00676 SA1 0477,8 PREP 00676
007237 2002426203 00680 FT IPT2,3 PREP 00680
007244 5200042703 00690 SA1 0427,3 SET UP CHANNEL 2 INTERRUPT PREP 00690
007251 4400067777 00700 SC EHST-1,0,077 PREP 00700
007256 2000070020 00710 FT EHST,16 6 PREP 00710
007263 2000200022 00720 FT 02000,1818 PREP 00720
007270 2400067721 00730 TFI EHST-1 PREP 00730
007275 2400070021 00740 TFI EHST PREP 00740
007302 2400070001 00770 TFR EHST PREP 00770
007307 2602534400 00780 PD GS,16 PREP 00780
007314 4402055040 00790 SC TLIM+4,0,040 PREP 00790
007321 5600017700 00800 BA1 OP4,16 PREP 00800
* 007326 3000000160 00810 STOP1 JD 1 LOLOAD STOP)GENERAL CLEAR,SELECT OPTIONS,START PREP 00810 P
* 007333 3000742260 00820 JD DRUMB START IF NOT DRUM B, M + START IF DRUM B PREP 00820 I
007340 4401411630 00830 DRUMA SC PTH1+4,0,030 PREP 00830
007345 4401426700 00831 SC PFBLH+4,4,0 PREP 00831
007352 4401430113 00832 SC PFBUH+4,4,013 PREP 00832
007357 4401441700 00840 SC PNT1+2,0,0 PREP 00840
007364 4401445037 00850 SC PNT2+2,0,037 PREP 00850
007371 4401501320 00860 SC LOTA+4,0,020 PREP 00860
007376 2601500601 00870 PD LOTA-1,1,1 PREP 00870
007403 4402245010 00880 SC PLW1-1,0,010 PREP 00880
007410 4400754600 00890 SC DRAB+4,0,0 PREP 00890
* 007415 3000747700 00900 J ST0 PREP 00900
007422 4401411670 00910 DRUMB SC PTH1+4,0,070 PREP 00910
007427 4401426714 00911 SC PFBLH+4,4,014 PREP 00911
007434 4401430127 00912 SC PFBUH+4,4,027 PREP 00912
007441 4401441740 00920 SC PNT1+2,0,040 PREP 00920
007446 4401445077 00930 SC PNT2+2,0,077 PREP 00930
007453 4401501360 00940 SC LOTA+4,0,060 PREP 00940
007460 4401500640 00950 SC LOTA-1,0,040 PREP 00950
007465 4402245050 00960 SC PLW1-1,0,050 PREP 00960
007472 4400754640 00970 SC DRAB+4,0,040 PREP 00970
007477 5200017700 00980 ST0 SA1 OP4,16 PREP 00980
007504 4401037342 01020 SC ST3+4,04042 PREP 01020
007511 1400016101 01030 LC OP1-2,0101 CHECK ONE HEAD OPTION PREP 01030
* 007516 3000776342 01040 JE ST4 PREP 01040
007523 4401037343 01050 SC ST3+4,04043 PREP 01050
007530 1400016110 01051 LC OP1-2,01010 REDUCED LIMITS OPTION PREP 01051
* 007535 3000776342 01052 JE ST4 PREP 01052
* 007542 3000761740 01060 DRAB JC DRA,040 0 JUMP IF DRUM A PREP 01060
007547 4400016614 01070 SC OP2-1,01014 PREP 01070
007554 2003772707 01080 FT 037727,7,7 PREP 01080
* 007561 3000772064 01090 JC ST1,52 PREP 01090
007566 4400016640 01100 SC OP2-1,04040 PREP 01100
007573 2002777707 01110 FT 027777,7,7 PREP 01110
* 007600 3000772063 01120 JC ST1,51 PREP 01120
007605 2001377707 01130 FT 013777,7,7 PREP 01130
* 007612 3000772000 01140 J ST1 PREP 01140
007617 2600016601 01150 DRA PD OP2-1,1 1 PREP 01150
007624 1400016104 01151 LC OP1-2,0404 CHECK IF MODULAR PREP 01151
* 007631 3000767442 01160 JE MDR PREP 01160
007636 2003771307 01170 FT 037713,7,7 PREP 01170
* 007643 3000772064 01180 JC ST1,52 CHECK FASTBANDS OPTION PREP 01180
007650 2002773707 01190 FT 027737,7,7 PREP 01190
* 007655 3000772063 01200 JC ST1,51 CHECK FASTRAND II OPTION PREP 01200
007662 2001373707 01210 FT 013737,7,7 PREP 01210
* 007667 3000772000 01220 J ST1 PREP 01220
007674 2002177707 01230 MDR FT 021777,7,7 PREP 01230
007701 4400017340 01240 SC OP3,040 0 PREP 01240
* 007706 3000772064 01250 JC ST1,52 CHECK FASTBANDS OPTION PREP 01250
007713 2000177707 01260 FT 01777,7 7 PREP 01260
007720 5200017223 01270 ST1 SA2 OP3-1,3 3 PREP 01270
007725 5602475224 01271 BA2 FULLD,4 4 PREP 01271
007732 1400016140 01280 LC OP1-2,04040 CHECK HALF-DRUM OPTION PREP 01280
* 007737 3000775643 01290 JU $+15 PREP 01290
007744 4400017157 01300 SC OP3-2,05057 PREP 01300
007751 5602475624 01301 BA2 HALF,4 PREP 01301
007756 5202476724 01302 SA2 PFD-6,4 4 PREP 01302
007763 2000010027 01310 ST4 FT 0100,T2323 PREP 01310
007770 4401634010 01320 SC CMP+4,01010 PREP 01320
007775 4402261710 01330 SC F1+2,01010 PREP 01330
010002 4402262410 01340 SC F1+7,01010 PREP 01340
010007 4402272200 01350 SC PASS1+4,4,64 PREP 01350
010014 4400034020 01360 SC 0340,16 6 PREP 01360
010021 5600016421 01370 BA2 OP2-3,1 1 UUUUXX PREP 01370
* 010026 3001003327 01380 JC $+5,23 RESET SI3 IF NOT MODULAR PREP 01380
010033 1400016104 01390 LC OP1-2,0404 CHECK IF MODULAR OPTION PREP 01390
* 010040 3001017743 01400 JU ST2 PREP 01400
* 010045 3001005224 01410 JC $+5,20 SET SI3 IF MODULAR PREP 01410
010052 5600016522 01420 BA2 OP2-2,2 2 UUUUXX XXXXXX PREP 01420
010057 5600016321 01430 BA2 OP1,1 MODULE NUMBER MMM000 PREP 01430
010064 1600003655 01440 BC1 036,5 PREP 01440
010071 1600003721 01450 BS2 037,1 PREP 01450
010076 5201010721 01460 SA2 $+9,1 PREP 01460
010103 6400016500 01470 LS OP2-2,0 0 MMXXXX PREP 01470
010110 5201012121 01480 SA2 $+9,1 PREP 01480
010115 6400017100 01490 LS OP3-2,0 0 PREP 01490
010122 2000004027 01500 FT 040,T23 3 PREP 01500
010127 4401634004 01510 SC CMP+4,4 4 PREP 01510
010134 4402261704 01520 SC F1+2,4 PREP 01520
010141 4402262404 01530 SC F1+7,4 PREP 01530
010146 4402272240 01540 SC PASS1+4,4,040 PREP 01540
010153 4400034010 01550 SC 0340,8 PREP 01550
010160 5600003621 01560 BA2 036,1 PREP 01560
010165 5201017621 01570 SA2 $+9,1 PREP 01570
010172 6400016400 01580 LS OP2-3,0 0 UUUUXM PREP 01580
010177 5201021021 01590 ST2 SA2 $+9,1 PREP 01590
010204 6400017000 01600 LS OP3-3,0 0 UUUUXX PREP 01600
010211 4202531727 01610 ST FULL,T2323 PREP 01610
010216 2600013710 01620 PD T23,8 PREP 01620
010223 5600017700 01630 BA1 OP4,16 PREP 01630
010230 5200015700 01640 SA1 OP44,16 6 PREP 01640
010235 5600020320 01690 BA2 OP3+8,1616 BRING LIMITS TO 20-27 PREP 01690
* 010242 1002152100 01700 JR EDITX PREP 01700
010247 5602754510 01710 BA1 PRNT+37,7,8 PREP 01710
010254 5202752710 01720 SA1 PRNT+23,3,8 PREP 01720
010261 2602754516 01730 PD PRNT+37,7,14 PREP 01730
010266 2602757500 01731 PD PRNT+45+5+16,16 PREP 01731
010273 5602501417 01740 BA1 POH,15 PREP 01740
010300 1400016101 01750 LC OP1-2,0101 CHECK ONE HEAD OPTION PREP 01750
* 010305 3001031742 01760 JE $+10 PREP 01760
010312 5602477517 01770 BA1 PFD,15 PREP 01770
010317 5202751617 01780 SA1 PRNT+14,4,15 PREP 01780
* 010324 1002133125 01790 JR PRINT,2121 PREP 01790
010331 5600017104 01830 BA1 OP2+2,4 4 LOWER HEAD PREP 01830
010336 5600017302 01840 BA1 OP3,2 UPPER HEAD PREP 01840
* 010343 3001043267 01850 JC ST8,55 PREP 01850
010350 5202535004 01860 ST7 SA1 UH,4 PREP 01860
010355 7000001542 01870 CB1 015,2 PREP 01870
* 010362 3001061544 01880 JS SELE UPPER HEAD LESS THAN LOWER HEAD PREP 01880 E
* 010367 3001045600 01890 ST3 JC ST5,0 42 FOR ONE HEAD, 43 FOR FULL DRUM PREP 01890 F
010374 5602502300 01900 BA1 OHL,16 ONE HEAD LIMIT ERROR PREP 01900
010401 5202752000 01910 SA1 PRNT+16,6,16 PREP 01910
* 010406 1002133100 01920 JR PRINT PREP 01920
* 010413 3000700460 01930 JD 07004 HEAD LIMITS ERROR PREP 01930 D
* 010420 3001045660 01940 JD ST5 START,M,START IF OK PREP 01940 R
* 010425 3000720100 01950 J START START TWICE TO RERUN PREP 01950 R
010432 1600001703 01951 ST8 BS4 017,3 PREP 01951
010437 1600001454 01952 BC1 014,4 PREP 01952
010444 1600001654 01953 BC1 016,4 PREP 01953
* 010451 3001035000 01954 J ST7 PREP 01954
010456 5600016522 01960 ST5 BA2 OP2-2,2 2 PREP 01960
010463 5600017021 01970 BA2 OP3-3,1 1 PREP 01970
010470 5400003674 01980 LP 036,074 4 PREP 01980
010475 5400003774 01990 LP 037,074 4 PREP 01990
010502 7000003661 02000 CB2 036,1 PREP 02000
* 010507 3001061543 02010 JU SELE UNITS UNEQUAL PREP 02010
010514 3400754600 02011 CC DRAB+4,0,0 PREP 02011
* 010521 3001053342 02012 JE $+10 DRUM A PREP 02012
* 010526 3001061567 02013 JC SELE,55 5 DRUM B/MODULAR ERROR PREP 02013
010533 1400016110 02014 LC OP1-2,01010 REDUCED LIMITS OPTION PREP 02014
* 010540 3001071142 02015 JE ST6 PREP 02015
010545 3400754600 02020 CC DRAB+4,0,0 PREP 02020
* 010552 3001065343 02030 JU DRB DRUM B PREP 02030
010557 3402534720 02040 CC UH-1,02020 PREP 02040
* 010564 3001061067 02050 JC SELE-5,5,55 PREP 02050
010571 3402534714 02060 CC UH-1,01414 PREP 02060
* 010576 3001061064 02070 JC $+10,52 2 PREP 02070
010603 3402534740 02080 CC UH-1,04040 PREP 02080
* 010610 3001071141 02090 JG ST6 PREP 02090
010615 5602474600 02140 SELE BA1 SELER,1616 PREP 02140
010622 5202752000 02150 SA1 PRNT+16,6,16 PREP 02150
* 010627 1002133100 02160 JR PRINT PREP 02160
* 010634 3000700360 02170 JD 07003 SELECTION ERROR PREP 02170 E
* 010641 3001073560 02180 JD STOP2 START,M,START TO CONTINUE PREP 02180 R
* 010646 3000720100 02190 J START START TWICE TO RERUN PREP 02190 R
010653 3402534514 02210 DRB CC LH-1,01414 PREP 02210
* 010660 3001067264 02220 JC $+10,52 2 PREP 02220
010665 3402534540 02230 CC LH-1,04040 PREP 02230
* 010672 3001061541 02240 JG SELE LOWER HEAD TOO SMALL PREP 02240 E
010677 3402534730 02250 CC UH-1,03030 PREP 02250
* 010704 3001061064 02260 JC SELE-5,5,52 PREP 02260
010711 1400016140 02270 ST6 LC OP1-2,04040 CHECK IF HALF-DRUM PREP 02270
* 010716 3001073543 02280 JU STOP2 NOT HALF-DRUM PREP 02280
* 010723 3001061567 02290 JC SELE,55 5 PREP 02290
* 010730 3001061564 02300 JC SELE,52 2 HALF-DRUM/FASTBANDS ERR PREP 02300
* 010735 3000000260 02310 STOP2 JD 2 OPOPERATOR MUST CHECK LIMITS PRINTOUT PREP 02310
* 010742 3001075460 02320 JD $+10 DEPRESS START,M,START IF LIMITS OK PREP 02320 S
* 010747 3000720100 02330 J START START TWICE TO RERUN PREP 02330 R
010754 1400016004 02340 LC OP1-3,0404 CHECK PRINT ONLY OPTION PREP 02340
* 010761 3001471342 02350 JE OPREP PREP 02350
010766 1400016101 02360 LC OP1-2,0101 CHECK ONE HEAD OPTION PREP 02360
* 010773 3001101243 02370 JU SCAN1 PREP 02370
011000 2602104601 02380 OFH PD OFHS+4,1,1 PREP 02380
* 011005 3001471300 02390 J OPREP PREP 02390
011012 4402104640 02400 SCAN1 SC OFHS+4,0,040 PREP 02400
011017 2600006300 02410 PD X4,16 PREP 02410
011024 5602513110 02420 BA1 SEVNS,8 8 PREP 02420
011031 7020370750 02430 CB1 ELST+7,8,8,X1 PREP 02430
* 011036 3001107442 02440 JE RDR PREP 02440
011043 6000004710 02450 AC X1,8 PREP 02450
011050 3400004610 02451 CC X1-1,01010 PREP 02451
* 011055 3001106767 02452 JC $+10,55 5 PREP 02452
011062 3400004630 02460 CC X1-1,03030 PREP 02460
* 011067 3001102441 02470 JG SCAN1+1010 CHECK FOR MAXIMUM INSERTS PREP 02470
011074 2020370013 02480 RDR FT ELST,X3,3,X1 PREP 02480
011101 4401133302 02490 SC RDR5+4,2,2 PREP 02490
* 011106 3001146140 02500 JC SCAN2,04040 JUMP IF READER ELIMINATED PREP 02500
011113 3400054464 02510 CC 0544,06464 PREP 02510
* 011120 3001131042 02520 JE RDR4 USE U1004 READER PREP 02520
011125 2002550044 02530 FT RBA,36 READER BASE ADDRESS PREP 02530
011132 4020610100 02540 RDXF XF 061,010000,0,1 PREP 02540
* 011137 3001114431 02541 JC $+5,25 PREP 02541
011144 5602515120 02550 RDR1 BA2 D9,16 PREP 02550
011151 7002551760 02560 CB2 RBA+15,1,16 PREP 02560
* 011156 3001146142 02570 JE SCAN2 PREP 02570
011163 3400004610 02580 CC X1-1,01010 PREP 02580
* 011170 3001120267 02590 JC $+10,55 5 PREP 02590
011175 3400004630 02600 CC X1-1,03030 PREP 02600
* 011202 3001362142 02610 JE XSI EXCESS INSERTS PREP 02610
011207 4401127505 02620 SC RDR3+4,5,5 PREP 02620
011214 2600005304 02630 PD X2,4 PREP 02630
011221 2000030307 02640 FT 0303,7 PREP 02640
011226 7242550162 02650 RDR2 SB2 RBA+1,2,2,X2 PREP 02650
011233 1642550153 02660 BC1 RBA+1,3,3,X2 PREP 02660
011240 1642550163 02670 BC2 RBA+1,3,3,X2 PREP 02670
011245 5642550001 02680 BA1 RBA,1,X2X2 PREP 02680
011252 5220370001 02690 SA1 ELST,1,X,X1 PREP 02690
011257 6000004701 02700 AC X1,1 PREP 02700
011264 6000005302 02710 AC X2,2 PREP 02710
* 011271 3201122605 02720 RDR3 JL RDR2,5 PREP 02720
011276 6000004703 02730 AC X1,3 PREP 02730
* 011303 3001110600 02740 J RDR+10 PREP 02740
011310 2002550074 02750 RDR4 FT RBA,60 PREP 02750
011315 4402447011 02760 SC ADXF+4,0,011 PREP 02760
* 011322 1002443600 02770 JR U1004 PREP 02770
* 011327 3201132200 02780 RDR5 JL $-5,0 SKIP 1ST TRANSFER FROM U1004 READER PREP 02780 P
011334 3400042240 02781 CC 0422,04040 02781
* 011341 3001136542 02782 JE IPT1-5 02782
011346 4400011067 02783 SC 0110,06767 02783
011353 1202557700 02784 TR RBA+63,6,64 02784
011360 1202561720 02785 TR RBA+79,1,16 02785
* 011365 3001114400 02790 J RDR1 PREP 02790
011372 4020001777 02800 IPT1 XF 0,01777,7,0,1 PREP 02800
* 011377 3001141653 02810 JC RDER,43 3 PREP 02810
011404 4020407777 02820 XF 040,0777777,0,1 PREP 02820
* 011411 3001113231 02830 JC RDXF,25 5 PREP 02830
011416 5602504217 02840 RDER BA1 RAB,15 PREP 02840
011423 5202751717 02850 SA1 PRNT+15,5,15 PREP 02850
* 011430 1002133100 02860 JR PRINT PREP 02860
* 011435 3000700160 02870 JD 07001 READER ABNORMAL,START TWICE TO REPEAT PREP 02870 D
* 011442 3001145460 02880 JD $+10 START,M,START TO ELIMINATE READER PREP 02880 R
* 011447 3001140400 02890 J IPT1+10 0 PREP 02890
011454 2601111201 02900 PD RDR+14,1,1 PREP 02900
011461 2000070011 02910 SCAN2 FT EHST,X1 1 CHECK INSERTS VS LIMITS + MOVE TO HST PREP 02910 C
011466 5602513110 02930 BA1 SEVNS,8 8 PREP 02930
011473 7020000445 02970 CB1 4,5,X1 PREP 02970
* 011500 3001311442 02980 JE SC23 PREP 02980
011505 5620000710 02990 BA1 7,8,X1 INSERT PREP 02990
011512 5600017603 03000 BA1 OP4-1,3 3 TEST PATTERN PREP 03000
011517 5220000703 03001 SA1 7,3,X1 PREP 03001
011524 5200002710 03010 SA1 027,8 PREP 03010
* 011531 1002152100 03020 JR EDITX PREP 03020
011536 5602526007 03030 BA1 INSRT,7 7 PREP 03030
011543 5202751307 03040 SA1 PRNT+11,1,7 PREP 03040
011550 5602511304 03050 BA1 ODMP-6,4,4 PREP 03050
011555 3400004637 03060 CC X1-1,03737 PREP 03060
* 011562 3001161341 03070 JG SC25 OFLO INSERT PREP 03070
011567 5602525104 03080 BA1 KEY,4 PREP 03080
011574 7400005711 03090 CT X3,X1 PREP 03090
* 011601 3001161344 03100 JS SC25 KEY-IN INSERT PREP 03100
011606 5602524504 03110 BA1 RDRI,4 READER INSERT PREP 03110
011613 5202750404 03120 SC25 SA1 PRNT+4,4,4 PREP 03120
011620 5600016401 03121 BA1 OP2-3,1 1 PREP 03121
011625 5620000121 03122 BA2 1,1,X1 UNIT PREP 03122
011632 5400001774 03123 LP 017,074 4 PREP 03123
011637 5400003774 03124 LP 037,074 4 PREP 03124
011644 7000003741 03125 CB1 037,1 PREP 03125
* 011651 3001352043 03126 JU LMTE UNIT INCORRECT PREP 03126
011656 5620000424 03130 BA2 4,4,X1 PREP 03130
011663 4200000335 03131 ST 3,OP2 PREP 03131
011670 4200000736 03132 ST 7,OP3 PREP 03132
011675 1400016101 03133 LC OP1-2,0101 ONE HEAD OPTION PREP 03133
* 011702 3001172642 03134 JE SC200+5 5 PREP 03134
011707 1400016110 03135 LC OP1-2,01010 REDUCED LIMITS OPTION PREP 03135
* 011714 3001172642 03136 JE SC200+5 5 PREP 03136
* 011721 3001231364 03137 SC200 JC FB,52 FASTBANDS PREP 03137
011726 5400003740 03140 LP 037,040 0 PREP 03140
* 011733 3001174567 03150 JC $+10,55 5 PREP 03150
011740 2600003701 03160 PD 037,1 PREP 03160
011745 7000000362 03170 CB2 3,2 LOWER HEAD PREP 03170
* 011752 3001342444 03180 JS IOL PREP 03180
011757 7000000762 03190 CB2 7,2 UPPER HEAD PREP 03190
* 011764 3001342441 03200 JG IOL PREP 03200
011771 7000000364 03210 CB2 3,4 LOWER TRACK PREP 03210
* 011776 3001342444 03220 JS IOL INSERT OUTSIDE LIMITS PREP 03220
012003 7000000764 03230 CB2 7,4 UPPER TRACK PREP 03230
* 012010 3001342441 03240 JG IOL PREP 03240
012015 3400004637 03250 CC X1-1,03737 PREP 03250
* 012022 3001254141 03260 JG SC22+10 0 PREP 03260
012027 3420000000 03270 CC 0,0,X1 PREP 03270
* 012034 3001256043 03280 JU SC21 PREP 03280
012041 2000270012 03290 SC29 FT OHST,X2 2 OFLO HEAD 20 OR 60 OR 01 PREP 03290
012046 1420000440 03300 LC 4,040,X1X1 PREP 03300
* 012053 3001210467 03301 JC SC20-10,0,55 PREP 03301
012060 1420000320 03310 LC 3,020,X1X1 PREP 03310
* 012065 3001211642 03320 JE SC20 PREP 03320
012072 2000170012 03330 FT PHST,X2 2 OFLO HEAD 10 OR 50 PREP 03330
012077 1420000310 03340 LC 3,010,X1X1 PREP 03340
* 012104 3001211642 03350 JE SC20 PREP 03350
012111 2000070012 03360 FT EHST,X2 2 OFLO HEAD 00 OR 40 PREP 03360
012116 2600003703 03370 SC20 PD 037,3 PREP 03370
012123 5620000421 03380 BA2 4,1,X1 PREP 03380
012130 5400003737 03390 LP 037,037 7 PREP 03390
* 012135 3001214767 03400 JC $+10,55 5 PREP 03400
012142 5620000421 03410 BA2 4,1,X1 PREP 03410
012147 1600003723 03420 BS2 037,3 PREP 03420
012154 7200005323 03430 AB2 X2,3 PREP 03430
012161 4401230502 03440 SC SC27+4,2,2 PREP 03440
012166 5640000425 03450 SC28 BA2 4,5,X2 PREP 03450
012173 5602513110 03451 BA1 SEVNS,8 8 PREP 03451
012200 7020000465 03460 CB2 4,5,X1 PREP 03460
* 012205 3001262342 03470 JE SC211 PREP 03470
012212 7002513165 03490 CB2 SEVNS,5 5 PREP 03490
* 012217 3001273142 03500 JE SC24 PREP 03500
012224 5640000710 03501 BA1 7,8,X2 PREP 03501
012231 5620000730 03502 BA2 7,8,X1 PREP 03502
012236 5240000730 03503 SA2 7,8,X2 PREP 03503
012243 5220000710 03504 SA1 7,8,X1 PREP 03504
012250 6000005310 03510 SC26 AC X2,8 PREP 03510
* 012255 3001245767 03520 JC MD1,55 PREP 03520
012262 3400005237 03530 CC X2-1,03737 PREP 03530
* 012267 3001216641 03540 JG SC28 PREP 03540
012274 2000070012 03550 FT EHST,X2 2 PREP 03550
* 012301 3201216602 03560 SC27 JL SC28,2 PREP 03560
* 012306 3001362100 03570 J XSI PREP 03570
012313 1400003402 03571 FB LC 034,02 PREP 03571
* 012320 3001233267 03572 JC $+10,55 5 MODULAR DRUM PREP 03572
012325 1400003403 03573 LC 034,03 PREP 03573
* 012332 3001172642 03574 JE SC200+5 5 FASTBAND INSERT PREP 03574
* 012337 3001242667 03575 JC FBM,55 MODULAR DRUM PREP 03575
012344 2002773703 03576 FT 027737,3,3 PREP 03576
* 012351 3001236363 03577 JC $+10,51 1 FASTRAND 2 PREP 03577
012356 2001373703 03578 FT 013737,3,3 FASTRAND 1 PREP 03578
012363 3400754640 03579 CC DRAB+4,0,040 PREP 03579
* 012370 3001240742 03580 JE $+15 DRUM B PREP 03580
012375 5200000603 03581 FB1 SA1 6,3 PREP 03581
* 012402 3001172600 03582 J SC200+5 5 PREP 03582
012407 4400000240 03583 SC 2,040 PREP 03583
012414 4400001777 03584 SC 017,077 7 PREP 03584
* 012421 3001237500 03585 J FB1 PREP 03585
012426 5400000475 03586 FBM LP 4,075 PREP 03586
012433 6400000517 03587 LS 5,017 PREP 03587
012440 4400000677 03588 SC 6,077 PREP 03588
012445 4400000740 03589 SC 7,040 PREP 03589
* 012452 3001172600 03590 J SC200+5 5 PREP 03590
012457 3400005213 03591 MD1 CC X2-1,01313 PREP 03591
* 012464 3001216641 03592 JG SC28 PREP 03592
* 012471 3001251043 03600 JU $+15 PREP 03600
012476 2000270012 03610 FT OHST,X2 2 PREP 03610
* 012503 3001230100 03620 J SC27 PREP 03620
012510 3400005233 03630 CC X2-1,03333 PREP 03630
* 012515 3001216641 03640 JG SC28 PREP 03640
* 012522 3001227400 03650 J SC27-5 PREP 03650
012527 3420000000 03660 SC22 CC 0,0,X1 CHECK FOR ZERO SENTINEL PREP 03660
* 012534 3001275543 03670 JU CINS PREP 03670
012541 5602513130 03680 BA2 SEVNS,8 8 PREP 03680
012546 5220000730 03690 SA2 7,8,X1 SET HST TO 7,S PREP 03690
* 012553 3001311400 03700 J SC23 PREP 03700
012560 2000070012 03710 SC21 FT EHST,X2 2 PREP 03710
012565 5602513110 03711 BA1 SEVNS,8 8 PREP 03711
012572 7040000546 03720 CB1 5,6,X2 PREP 03720
* 012577 3001273142 03730 JE SC24 HST AVAILABLE PREP 03730
012604 5640000730 03731 BA2 7,8,X2 PREP 03731
012611 7020000770 03732 CB2 7,8,X1 PREP 03732
* 012616 3001263543 03733 JU $+15 PREP 03733
012623 5220000710 03734 SC211 SA1 7,8,X1 PREP 03734
* 012630 3001311400 03735 J SC23 PREP 03735
012635 6000005310 03740 AC X2,8 PREP 03740
* 012642 3001266667 03741 JC MD,55 PREP 03741
012647 3400005237 03750 CC X2-1,03737 PREP 03750
* 012654 3001256541 03760 JG SC21+5 PREP 03760
* 012661 3001362100 03770 J XSI PREP 03770
012666 3400005213 03771 MD CC X2-1,01313 PREP 03771
* 012673 3001256541 03772 JG SC21+5 PREP 03772
* 012700 3001271243 03773 JU $+10 PREP 03773
012705 2000270012 03774 FT OHST,X2 2 PREP 03774
012712 3400005233 03775 CC X2-1,03333 PREP 03775
* 012717 3001256541 03776 JG SC21+5 PREP 03776
* 012724 3001362100 03777 J XSI PREP 03777
012731 5620000710 03780 SC24 BA1 7,8,X1 MOVE INSERT FROM LIST PREP 03780
012736 5240000710 03790 SA1 7,8,X2 TO HISTORY PREP 03790
012743 5602513110 03800 BA1 SEVNS,8 8 PREP 03800
012750 5220000710 03810 SA1 7,8,X1 SET LST TO 77 PREP 03810
* 012755 3001324662 03820 CINS JC CEO,50 COUNT INSERTS PREP 03820
* 012762 3001324664 03830 JC CEO,52 PREP 03830
012767 3402533101 03840 CC EC-1,01 1 PREP 03840
* 012774 3001301342 03850 JE $+15 PREP 03850
013001 6002533201 03860 INEC AC EC,01 INCREMENT EVEN COUNTER PREP 03860
* 013006 3001305600 03870 J INOC+5 PREP 03870
013013 3402533501 03880 CC PC-1,01 1 PREP 03880
* 013020 3001303742 03890 JE $+15 PREP 03890
013025 6002533601 03900 INPC AC PC,01 INCREMENT PLAIN COUNTER PREP 03900
* 013032 3001305600 03910 J INOC+5 PREP 03910
013037 3402533701 03920 CC OC-1,01 1 PREP 03920
* 013044 3001362142 03930 JE XSI PREP 03930
013051 6002534001 03940 INOC AC OC,01 INCREMENT ODD COUNTER PREP 03940
013056 5602534010 03950 BA1 OC,8 PREP 03950
013063 3400004637 03960 CC X1-1,03737 PREP 03960
* 013070 3001310241 03970 JG $+10 PREP 03970
013075 5600013710 03980 BA1 T23,8 PREP 03980
013102 5200013710 03990 SA1 T23,8 PREP 03990
* 013107 1002133100 04000 JR PRINT PREP 04000
013114 6000004710 04010 SC23 AC X1,8 PREP 04010
013121 3400004667 04020 CC X1-1,06767 PREP 04020
* 013126 3001146641 04021 JG SCAN2+5 5 PREP 04021
013133 2602752000 04022 PD PRNT+16,6,16 PREP 04022
013140 2600005310 04023 PD X2,8 PREP 04023
013145 5602513130 04024 BA2 SEVNS,8 8 PREP 04024
013152 5620070710 04025 HST BA1 EHST+7,8,8,X1 MOVE HST TO LST PREP 04025
013157 3420070000 04026 CC EHST,0,X,X1 CHECK FOR OFLO BAD SPOT PREP 04026
* 013164 3001317643 04027 JU LST PREP 04027
013171 5220070730 04028 SA2 EHST+7,8,8,X1 CLER OFLO IN HST PREP 04028
013176 5240370710 04030 LST SA1 ELST+7,8,8,X2 PREP 04030
013203 6000005310 04031 AC X2,8 PREP 04031
013210 6000004710 04032 AC X1,8 PREP 04032
013215 3400004630 04033 CC X1-1,03030 PREP 04033
* 013222 3001315241 04034 JG HST PREP 04034
* 013227 3000000360 04040 STOP3 JD 3 OPERATOR MUST CHECK PRINTOUTS,START PREP 04040 R
* 013234 3001364560 04050 JD CL0 M AND START IF OK, OR RERUN IF NOT PREP 04050 N
* 013241 3001323400 04060 J $-5 PREP 04060
013246 1420000440 04070 CEO LC 4,040,X1X1 COUNT EVEN/ODD INSERTS PREP 04070
* 013253 3001326567 04080 JC $+10,55 5 PREP 04080
013260 1420000301 04090 LC 3,1,X1 PREP 04090
013265 4401336540 04100 SC CEO2+4,0,040 PREP 04100
* 013272 3001334242 04110 JE OINS ODD INSERT PREP 04110
013277 2601336501 04120 PD CEO2+4,1,1 EVEN INSERT PREP 04120
013304 3402533101 04130 CC EC-1,01 1 PREP 04130
* 013311 3001300143 04140 JU INEC PREP 04140
* 013316 3001336167 04150 CEO1 JC CEO2,55 5 PREP 04150
013323 3402533501 04160 CC PC-1,01 1 PREP 04160
* 013330 3001362142 04170 JE XSI PREP 04170
* 013335 3001302500 04180 J INPC PREP 04180
013342 3402533701 04190 OINS CC OC-1,01 1 PREP 04190
* 013347 3001305143 04200 JU INOC PREP 04200
* 013354 3001331600 04210 J CEO1 PREP 04210
* 013361 3001340540 04220 CEO2 JC CEO3,04040 PREP 04220
013366 3402533701 04230 CC OC-1,01 1 PREP 04230
* 013373 3001362142 04240 JE XSI PREP 04240
* 013400 3001305100 04250 J INOC PREP 04250
013405 3402533101 04260 CEO3 CC EC-1,01 1 PREP 04260
* 013412 3001362142 04270 JE XSI PREP 04270
* 013417 3001300100 04280 J INEC PREP 04280
013424 3400004637 04290 IOL CC X1-1,03737 INSERT OUTSIDE LIMITS PREP 04290
* 013431 3001252741 04300 JG SC22 PREP 04300
013436 3420000000 04301 CC 0,0,X1 PREP 04301
* 013443 3001352043 04302 JU LMTE PREP 04302
* 013450 3001204167 04303 JC SC29,55 5 PREP 04303
013455 3400754600 04304 CC DRAB+4,0,0 PREP 04304
* 013462 3001350642 04305 JE LMTE-10 0 JUMP IF DRUM A PREP 04305
013467 3400003640 04306 CC 036,040 0 PREP 04306
* 013474 3001352041 04307 JG LMTE INSERT IN WRONG DRUM PREP 04307
* 013501 3001204100 04308 J SC29 PREP 04308
013506 3400003640 04309 CC 036,040 0 PREP 04309
* 013513 3001204141 04310 JG SC29 PREP 04310
013520 5602526505 04311 LMTE BA1 ERROR,5 5 LIMIT ERROR PREP 04311
013525 5202752005 04320 SA1 PRNT+16,6,5 PREP 04320
013532 3400004637 04321 CC X1-1,03737 PREP 04321
* 013537 3001355641 04322 JG $+15 OFLO INSERT PREP 04322
013544 7400005711 04330 CT X3,X1 PREP 04330
* 013551 3001357544 04340 JS INSE-5 KEY-IN INSERT PREP 04340
013556 5602513130 04350 BA2 SEVNS,8 8 PREP 04350
013563 5220000730 04351 SA2 7,8,X1 CLEAR ERROR TO 77 PREP 04351
* 013570 3001310700 04360 J SC23-5 PREP 04360
* 013575 1002133100 04370 JR PRINT PREP 04370
* 013602 3000701260 04380 INSE JD 07012 KEY-IN ERROR)START,CORRECT CONTENTS OF PREP 04380 -
* 013607 3020000060 04390 JD 0,X1 INSERT ADDRESS DISPLAYED,START PREP 04390 E
* 013614 3001146600 04400 J SCAN2+5 5 PREP 04400
013621 5602530316 04410 XSI BA1 XSINS,1414 PREP 04410
013626 5202751616 04420 SA1 PRNT+14,4,14 PREP 04420
* 013633 1002133100 04430 JR PRINT PREP 04430
* 013640 3000701060 04440 JD 07010 EXCESS INSERTS PREP 04440
013645 5600013710 04450 CL0 BA1 T23,8 PREP 04450
013652 5202534010 04460 SA1 OC,8 PREP 04460
013657 6400014006 04461 LS OP11-3,0,06 SET SWITCHES FOR PRINT + PREP OFLO TRACKS PREP 04461 T
013664 6400014130 04462 LS OP11-2,0,030 SET SWITCHES FOR PREP NORMAL + FASTBANDS PREP 04462 T
* 013671 3001370364 04463 JC $+10,52 2 SS3 SET FOR FASTBANDS PREP 04463
013676 5400014167 04464 LP OP11-2,0,067 RESET SWITCH FOR PREP FASTBANDS PREP 04464 E
013703 4200014735 04470 CL1 ST OP22,OP2P2 PREP 04470
013710 4200015336 04480 ST OP33,OP3P3 PREP 04480
013715 1400014001 04490 LC OP11-3,1,1 PREP 04490
* 013722 3001407342 04500 JE PTH PREP TEST HEAD PREP 04500
013727 1400014101 04510 LC OP11-2,0,01 CHECK ONE HEAD OPTION SWITCH PREP 04510 E
* 013734 3001516542 04520 JE WRGEN PREP 04520
013741 1400016101 04530 LC OP1-2,0101 CHECK ONE HEAD OPTION PREP 04530 E
* 013746 3001377742 04540 JE CL10 PREP 04540
013753 1400014110 04550 LC OP11-2,0,010 PREP 04550
* 013760 3001424442 04560 JE PFB FASTBANDS SWITCH SET PREP 04560
013765 1400014120 04570 LC OP11-2,0,020 PREP 04570
* 013772 3001435742 04580 JE PNT PREP NORMAL TRACKS PREP 04580
013777 2600007300 04590 CL10 PD X6,16 CLEAR X3,X4,X5,X6 PREP 04590
014004 1400016120 04600 LC OP1-2,02020 CHECK READ ONLY OPTION PREP 04600
* 014011 3000720142 04610 JE START PREP 04610
014016 1400014002 04620 LC OP11-3,0,02 PREP 04620
* 014023 3001456142 04630 JE POT PREP OFLO TRACKS PREP 04630
* 014030 3002165564 04640 JC BT,52 BACKTRACK IF FASTBANDS PREP 04640
* 014035 3002165562 04650 JC BT,50 BACKTRACK IF 16 OPTION PREP 04650
* 014042 3002165567 04651 JC BT,55 BACKTRACK IF MODULAR PREP 04651
* 014047 3001405425 04660 CL3 JC $+5,21 PREP 04660
014054 1400014004 04670 LC OP11-3,0,04 PREP 04670
* 014061 3001471342 04680 JE OPREP PRINT OFLO TRACKS PREP 04680
* 014066 3000720100 04690 J START PREP 04690
* 014073 3001413167 04700 PTH JC SMTA,55 5 PREP TEST HEAD PREP 04700
014100 2600014501 04710 PD OP22-2,1,1 PREP 04710
014105 5400014474 04720 LP OP22-3,0,074 CLEAR 8 TRACK BITS PREP 04720 E
014112 4400014630 04730 PTH1 SC OP22-1,0,030 SET HEAD TO 30 OR 70 PREP 04730
014117 4200015331 04740 ST OP33,OP2P22 SET UPPER LIMIT PREP 04740
* 014124 3001516500 04750 J WRGEN PREP 04750
014131 5400014475 04760 SMTA LP OP22-3,0,075 SET MOD ADDRS. UUUU0M PREP 04760 T
014136 5400014560 04770 LP OP22-2,0,060 MM0000 PREP 04770 0
* 014143 3001411200 04780 J PTH1 PREP 04780
014150 3402532620 04790 THER CC ST,020 TEST HEAD ERROR PREP 04790
* 014155 3001416767 04800 JC $+10,55 5 PREP 04800
014162 3402532640 04810 CC ST,040 PREP 04810
* 014167 3001423244 04820 JS PADTH PREP 04820
014174 5742540710 04830 BA1 AREAA+7,7,8,6 PREP 04830
014201 5222540710 04840 SA1 AREAA+7,7,8,X1 PREP 04840
014206 2600001701 04850 PD 017,1 PREP 04850
014213 5222640710 04860 SA1 AREAB+7,7,8,X1 PREP 04860
014220 2000001003 04870 FT 010,3 PREP 04870
014225 7200004743 04880 SB1 X1,3 PREP 04880
014232 2742540710 04890 PADTH PD AREAA+7,7,8,6 PREP 04890
* 014237 3001667500 04900 J PCE PREP 04900
* 014244 3001430767 04910 PFB JC PFBM,55 5 PREP 04910
014251 6400014403 04920 LS OP22-3,0,03 PREP 04920
014256 4400014577 04930 SC OP22-2,0,077 PREP 04930
014263 4400014600 04931 PFBLH SC OP22-1,0,0 00 OR 14 PREP 04931
014270 4600014732 04932 BT OP22,OP3P33 PREP 04932
014275 4400015213 04933 PFBUH SC OP33-1,0,013 13 OR 27 PREP 04933
* 014302 3001516500 04940 J WRGEN PREP 04940
014307 6400014402 04950 PFBM LS OP22-3,0,02 PREP 04950
014314 6400014517 04960 LS OP22-2,0,017 PREP 04960
014321 4400014670 04961 SC OP22-1,0,070 PREP 04961
014326 2600014701 04962 PD OP22,1 PREP 04962
014333 4600014732 04963 BT OP22,OP3P33 PREP 04963
014340 6400015207 04964 LS OP33-1,0,07 PREP 04964
014345 4400015340 04965 SC OP33,04040 PREP 04965
* 014352 3001516500 04970 J WRGEN PREP 04970
014357 5600017310 04981 PNT BA1 OP3,8 ORIGINAL LIMITS PREP 04981
014364 5200015310 04982 SA1 OP33,8 PREP 04982
014371 1400016110 04983 LC OP1-2,01010 REDUCED LIMITS OPTION PREP 04983
* 014376 3001516542 04984 JE WRGEN PREP 04984
* 014403 3001453567 04985 JC PNT3,55 5 PREP 04985
014410 5400014474 04990 LP OP22-3,0,074 PREP 04990
014415 2000000031 05000 PNT1 FT 0,OP22 SET HEAD TO 00 OR 40 PREP 05000
014422 5400015076 05010 LP OP33-3,0,076 PREP 05010
* 014427 3001444663 05020 JC $+15,51 1 PREP 05020
014434 5400015074 05030 LP OP33-3,0,074 PREP 05030
014441 6400015001 05040 LS OP33-3,0,01 PREP 05040
014446 2000370032 05050 PNT2 FT 03700,OPOP33 37 OR 77 PREP 05050
014453 4400015177 05060 SC OP33-2,0,077 PREP 05060
* 014460 3001447263 05070 JC $+10,51 1 PREP 05070
014465 4400015137 05080 SC OP33-2,0,037 PREP 05080
014472 1400016140 05090 LC OP1-2,04040 CHECK IF HALF-DRUM OPTION PREP 05090
* 014477 3001451643 05100 JU $+15 PREP 05100
014504 4400015157 05110 SC OP33-2,0,057 PREP 05110
014511 5400015074 05120 PNT4 LP OP33-3,0,074 PREP 05120
014516 4200016731 05121 ST OP2,OP2222 PREP 05121
014523 4200017332 05122 ST OP3,OP3333 PREP 05122
* 014530 3001516500 05130 J WRGEN PREP 05130
014535 5400014474 05140 PNT3 LP OP22-3,0,074 PREP 05140
014542 5400014560 05150 LP OP22-2,0,060 PREP 05150
014547 2600014601 05160 PD OP22-1,1,1 PREP 05160
* 014554 3001451100 05170 J PNT4 PREP 05170
014561 2600004704 05180 POT PD X1,4 PREP 05180
014566 5602513130 05181 BA2 SEVNS,8 8 CLEAR HST TO 77 PREP 05181
014573 3420070000 05182 CC EHST,0,X,X1 EXCEPT OFLO BAD-SPOTS PREP 05182
* 014600 3001461242 05183 JE $+10 PREP 05183
014605 5220070730 05184 SA2 EHST+7,8,8,X1 PREP 05184
014612 6000004710 05185 AC X1,8 PREP 05185
014617 3400004630 05186 CC X1-1,03030 PREP 05186
* 014624 3001457341 05187 JG POT+10 PREP 05187
014631 2000370016 05188 EH FT ELST,X6 6 PREP 05188
014636 2000070017 05190 FT EHST,X7 7 PREP 05190
* 014643 3002257100 05200 J PS PREP 05200
* 014650 3001467467 05230 PH JC OH,55 PREP 05230
014655 2000470016 05240 FT PLST,X6 6 PREP 05240
014662 2000170017 05250 FT PHST,X7 7 PREP 05250
* 014667 3002257100 05260 J PS PREP 05260
014674 2000570016 05310 OH FT OLST,X6 6 PREP 05310
014701 2000270017 05320 FT OHST,X7 7 PREP 05320
* 014706 3002257100 05330 J PS PREP 05330
014713 2602055001 05360 OPREP PD TLIM+4,1,1 SET OFLO PREP SWITCH PREP 05360
* 014720 1002127300 05370 JR SETW SET WRITE AND READ PREP 05370
014725 2000070017 05380 FT EHST,X7 7 PREP 05380
014732 2600015310 05390 PD OP33,8 PREP 05390
014737 5600016401 05400 BA1 OP2-3,1 1 PREP 05400
014744 5400001774 05410 LP 017,074 4 PREP 05410
014751 5200014401 05420 SA1 OP22-3,1,1 PREP 05420
014756 5200015001 05430 SA1 OP33-3,1,1 PREP 05430
014763 4400015340 05440 SC OP33,04040 PREP 05440
* 014770 3001501467 05450 JC LOTA+5,5,55 PREP 05450
014775 2600015301 05460 PD OP33,1 PREP 05460
015002 4400014600 05470 SC OP22-1,0,0 1ST OFLO TRACK PREP 05470
015007 4400015220 05480 LOTA SC OP33-1,0,020 LAST OFLO TRACK ADDRESS PREP 05480
015014 2000100022 05490 FT 01000,1818 PREP 05490
015021 2002540020 05500 FT AREAA,1616 PREP 05500
015026 2560000001 05510 TFR 0,1,X7 TRANSFER HISTORY TO WRITE AREA PREP 05510 S
015033 4600014771 05520 BT OP22,57 7 PREP 05520
* 015040 3001540600 05530 J WRITE PREP 05530
* 015045 1002127300 05540 STSTH JR SETW PREP 05540
* 015052 3000000000 05550 SWN J 0 PREP 05550
015057 1400014001 05560 LC OP11-3,1,1 PREP 05560
* 015064 3001504542 05570 JE STSTH PREP 05570
015071 1400014110 05580 LC OP11-2,0,010 PREP 05580
* 015076 3001513442 05590 JE NPB NO POSITION BIT IF FASTBANDS PREP 05590 P
015103 5602515605 05600 SETN BA1 WRTN+4,5,5 PREP 05600
015110 5201552005 05610 SA1 W1+4,5 PREP 05610
015115 5602517005 05620 BA1 RDN+4,5 5 PREP 05620
015122 5201557005 05630 SA1 R1+4,5 PREP 05630
* 015127 3001505200 05640 J SWN PREP 05640
015134 5602520205 05650 NPB BA1 WRTNP+4,4,5 NO POSITION BIT PREP 05650
015141 5201552005 05660 SA1 W1+4,5 PREP 05660
015146 5602520705 05670 BA1 RDNP+4,5,5 PREP 05670
015153 5201557005 05680 SA1 R1+4,5 PREP 05680
* 015160 3001505200 05690 J SWN PREP 05690
015165 2600005310 05700 WRGEN PD X2,8 PREP 05700
* 015172 1001505500 05710 JR SWN SET WRITE NORMAL PREP 05710
015177 4402055040 05720 SC TLIM+4,3,32 PREP 05720
015204 5600014724 05730 BA2 OP22,4 PREP 05730
015211 5200034724 05740 SA2 0347,4 SET TET 57 PREP 05740
015216 5200001424 05750 SA2 014,4 PREP 05750
015223 4400001014 05760 SC 010,014 4 PREP 05760
015230 5600015623 05770 BA2 OP44-1,3,3 PREP 05770
015235 5200001723 05780 SA2 017,3 PREP 05780
015242 5222540710 05790 FIXA SA1 AREAA+7,7,8,X1 PREP 05790
015247 3400001477 05800 CC 014,077 7 PREP 05800
* 015254 3001540642 05810 JE WRITE PREP 05810
015261 6000001401 05820 AC 014,1 PREP 05820
015266 6000004710 05830 AC X1,010 PREP 05830
* 015273 3001524200 05840 J FIXA PREP 05840
015300 4401536006 05850 IPT6 SC DSTOP+3,3,06 PREP 05850
015305 5602506717 05860 BA1 DAB+9,1515 PREP 05860
015312 5602504211 05870 BA1 RAB,9 PREP 05870
015317 4140007600 05880 XF 0,07600,0,0,6 PREP 05880
* 015324 3001534353 05890 JC $+15,43 3 PREP 05890
015331 4401536007 05900 SC DSTOP+3,3,07 PREP 05900
015336 5602507017 05910 BA1 DPE,15 PREP 05910
015343 5202751717 05920 SA1 PRNT+15,5,15 PREP 05920
* 015350 1002133100 05930 JR PRINT PREP 05930
* 015355 3000700660 05940 DSTOP JD 07006 DIDISPLAY 6 FOR ABNORMAL,7 FOR PARITY ERROR PREP 05940 6
015362 2000000503 05950 FT 5,3 DEPRESS START TO REPEAT DRUM ORDER PREP 05950 R
015367 7200046343 05960 SB1 0463,3 PREP 05960
015374 4140407777 05970 XF 040,0777777,0,6 PREP 05970
* 015401 3000046000 05980 J 0460 PREP 05980
015406 2002540070 05990 WRITE FT AREAA,5656 SET BASE ADDRESS PREP 05990
015413 4400034010 06000 SC 0340,8 PREP 06000
015420 2000037011 06010 FT 0370,X1 1 PREP 06010
* 015425 3001551467 06020 JC W1,55 PREP 06020
015432 2000077011 06030 FT 0770,X1 1 PREP 06030
015437 4400034020 06040 SC 0340,16 6 PREP 06040
015444 1400016004 06050 LC OP1-3,0404 PREP 06050
* 015451 3001553342 06060 JE READ PREP 06060
015456 1400016120 06070 LC OP1-2,02020 CHECK READ ONLY OPTION PREP 06070
* 015463 3001553342 06080 JE READ PREP 06080
015470 3402104600 06090 CC OFHS+4,0,0 PREP 06090
* 015475 3001553342 06100 JE READ PREP 06100
015502 1400014002 06110 LC OP11-3,0,02 CHECK POT SWITCH PREP 06110
* 015507 3001553343 06120 JU READ PREP 06120
015514 4140662000 06130 W1 XF 066,0200000,0,6 WRITE DRUM PREP PREP 06130
015521 1400016102 06140 LC OP1-2,0202 CHECK WRITE ONLY OPTION PREP 06140
* 015526 3002054442 06150 JE TLIM PREP 06150
015533 4402640077 06160 READ SC AREAB,07077 CLEAR READ AREA TO 77S PREP 06160
015540 2000077722 06170 FT 0777,18 8 PREP 06170
015545 2002640120 06180 FT AREAB+1,1,16 PREP 06180
015552 2402640001 06190 TFR AREAB PREP 06190
015557 2002640070 06200 FT AREAB,5656 PREP 06200
015564 4140652000 06210 R1 XF 065,0200000,0,6 PREP 06210
015571 1400016120 06220 LC OP1-2,02020 CHECK READ ONLY OPTION PREP 06220
* 015576 3001614442 06230 JE COMP PREP 06230
015603 1400014001 06231 LC OP11-3,0,01 CHECK TEST HEAD SWITCH PREP 06231
* 015610 3001614442 06232 JE COMP PREP 06232
015615 3402104600 06240 CC OFHS+4,0,0 PREP 06240
* 015622 3001564142 06250 JE $+15 PREP 06250
015627 1400014002 06260 LC OP11-3,0,02 CHECK PREP OFLO TRACKS SWITCH PREP 06260
* 015634 3001574742 06270 JE SCAN3 PREP 06270
015641 5600034725 06280 BA2 0347,5 PREP 06280
015646 2600005310 06290 PD X2,8 PREP 06290
015653 5622640506 06300 R2 BA1 AREAB+5,5,6,X1 PREP 06300
015660 7002513146 06310 CB1 SEVNS,6 6 PREP 06310
* 015665 3001571642 06320 JE R3 PREP 06320
015672 5622640701 06330 BA1 AREAB+7,7,1,X1 PREP 06330
015677 7002531341 06340 CB1 BZERO,1 1 PREP 06340
* 015704 3001571642 06350 JE R3 PREP 06350
015711 5222640425 06360 SA2 AREAB+4,4,5,X1 PREP 06360
015716 6000003701 06370 R3 AC 037,1 NEXT SECTOR PREP 06370
015723 6000004710 06380 AC X1,8 PREP 06380
015730 3400004610 06390 CC X1-1,01010 PREP 06390
* 015735 3002054442 06400 JE TLIM PREP 06400
* 015742 3001565300 06410 J R2 PREP 06410
015747 2600005310 06420 SCAN3 PD X2,8 SCAN HISTORY FOR INSERTS PREP 06420
015754 5600014603 06430 BA1 OP22-1,3,3 PREP 06430
015761 7020070343 06440 CB1 EHST+3,3,3,X1 COMPARE UTH OF DRUM ADDRESS WITH HST PREP 06440 C
* 015766 3001601742 06450 JE INS PREP 06450
015773 6000004710 06460 NXT AC X1,8 PREP 06460
016000 3400004630 06470 CC X1-1,03030 PREP 06470
* 016005 3001614442 06480 JE COMP PREP 06480
* 016012 3001575400 06490 J SCAN3+5 5 PREP 06490
016017 3420070000 06500 INS CC EHST,0,X,X1 CHECK FOR ZERO SENTINEL PREP 06500
* 016024 3001613242 06510 JE INS1 PREP 06510
016031 3402055040 06520 CC TLIM+4,0,040 CHECK FOR NORMAL TRACK PREP 06520
* 016036 3001577343 06530 INS2 JU NXT PREP 06530
016043 2600001703 06540 PD 017,3 PREP 06540
016050 5620070401 06550 BA1 EHST+4,1,1,X1 SECTOR ADDRESS PREP 06550
016055 5400001737 06560 LP 017,037 7 PREP 06560
* 016062 3001607467 06570 JC $+10,55 5 PREP 06570
016067 5620070401 06580 BA1 EHST+4,1,1,X1 PREP 06580
016074 1600001723 06590 BS2 017,3 PREP 06590
016101 5200005303 06600 SA1 X2,3 PREP 06600
016106 5602513110 06610 BA1 SEVNS,8 8 PREP 06610
016113 5220070710 06620 SA1 EHST+7,8,8,X1 CLEAR HST TO 77 PREP 06620
016120 6442640770 06630 LS AREAB+7,7,070,X2 MARK BAD-SPOT INSERT PREP 06630
* 016125 3001577300 06640 J NXT PREP 06640
016132 3402055000 06650 INS1 CC TLIM+4,0,0 CHECK FOR OFLO TRACK PREP 06650
* 016137 3001603600 06660 J INS2 PREP 06660
016144 2602532710 06670 COMP PD GC-1,8 PREP 06670
016151 4402533001 06680 SC GC,1 PREP 06680
016156 2601662401 06690 PD BS+4,1 PREP 06690
016163 2600007304 06700 PD X6,4 PREP 06700
016170 4401636440 06710 SC ZERR+4,0,040 PREP 06710
016175 5742540710 06720 CNT BA1 AREAA+7,7,8,X6 PREP 06720
016202 7002513150 06730 CB1 SEVNS,8 8 PREP 06730
* 016207 3001631542 06740 JE ADV IGNORE IF UNUSED PREP 06740 O
016214 3542540000 06741 CC AREAA,0,0,X6 PREP 06741
* 016221 3001644242 06742 JE CGZ CHECK FOR GOOD SENTINEL PREP 06742
016226 2602521622 06743 PD0 CMPE,2 PREP 06743
016233 5742540021 06750 BA2 AREAA,1,1,X6 PREP 06750
016240 7142640061 06760 CB2 AREAB,1,1,X6 PREP 06760
* 016245 3001641143 06770 JU COM01 SENTINEL ERROR PREP 06770
016252 5742540424 06780 BA2 AREAA+4,4,4,X6 PREP 06780
016257 7142640464 06790 CB2 AREAB+4,4,4,X6 PREP 06790
* 016264 3001647343 06800 JU COM02 ADDRESS ERROR PREP 06800
016271 1542640701 06801 LC AREAB+7,7,01,X6 PREP 06801
* 016276 3001650542 06802 JE COM03 PHASE ERROR PREP 06802
016303 3542640770 06810 CC AREAB+7,7,070,X6 PREP 06810
* 016310 3001653142 06820 JE BSPOT BAD-SPOT INSERT PREP 06820
016315 6000007310 06830 ADV AC X6,010 PREP 06830
016322 6002532101 06840 AC SCTR,1 PREP 06840
016327 2601662401 06850 PD BS+4,1 PREP 06850
016334 1400007210 06860 CMP LC X6-1,01010 04 FOR MOD PREP 06860
* 016341 3001617543 06870 JU CNT PREP 06870
016346 1400016120 06880 LC OP1-2,02020 CHECK READ ONLY OPTION PREP 06880
* 016353 3001670742 06890 JE COMPX PREP 06890
* 016360 3001540640 06900 ZERR JC WRITE,04040 PREP 06900
016365 5602532602 06910 BA1 ST,2 PREP 06910
016372 7002531342 06920 CB1 BZERO,2 2 PREP 06920
* 016377 3001670742 06930 JE COMPX PREP 06930
* 016404 3001540600 06940 J WRITE PREP 06940
016411 4402521604 06950 COM01 SC CMPE,04 4 SENTINEL ERROR PREP 06950
016416 3542540014 06960 CC AREAA,01014,X6 PREP 06960
* 016423 3001653142 06970 JE BSPOT PREP 06970
016430 3542540016 06980 CC AREAA,01016,X6 PREP 06980
* 016435 3001653142 06990 JE BSPOT PREP 06990
016442 3542640014 07000 CGZ CC AREAB,01014,X6 PREP 07000
* 016447 3001651742 07010 JE COM04 PREP 07010
016454 3542640016 07020 CC AREAB,01016,X6 PREP 07020
* 016461 3001651742 07030 JE COM04 PREP 07030
* 016466 3001631500 07040 J ADV PREP 07040
016473 4402521605 07050 COM02 SC CMPE,05 5 ADDRESS ERROR PREP 07050
* 016500 3001653100 07060 J BSPOT PREP 07060
016505 4402521606 07070 COM03 SC CMPE,06 6 PHASE ERROR PREP 07070
* 016512 3001653100 07080 J BSPOT PREP 07080
016517 4402521607 07090 COM04 SC CMPE,07 7 BAD SENTINEL READ BACK AS GOOD SENTINEL PREP 07090
016524 4401662440 07100 SC BS+4,04040 PREP 07100
016531 1542640770 07110 BSPOT LC AREAB+7,7,070,X6 CHECK IF BAD-SPOT INSERT PREP 07110
* 016536 3001655043 07111 JU $+10 PREP 07111
016543 4402521512 07112 SC CMPE-1,0,012 PREP 07112
016550 5602521607 07113 BA1 CMPE,7 PREP 07113
016555 5202753307 07120 SA1 PRNT+27,7,7 PREP 07120
016562 5742541720 07130 BA2 AREAA+7+7+8,16,X6 PREP 07130 6
* 016567 1002152100 07140 JR EDITX PREP 07140
016574 3402055000 07150 CC TLIM+4,0,0 PREP 07150
* 016601 3001662043 07160 JU $+15 PREP 07160
016606 5602522610 07170 BA1 OFERR,8 8 PREP 07170
016613 5202752310 07180 SA1 PRNT+19,9,8 PREP 07180
* 016620 3001711600 07190 BS JC CL2,0 SKIP IF COM04 PREP 07190
016625 3542540077 07200 CC AREAA,07077,X6 PREP 07200
* 016632 3001667542 07210 JE PCE PREP 07210
016637 2601636401 07220 PD ZERR+4,1,1 SET RE-WRITE SWITCH PREP 07220
016644 6142540001 07230 AC AREAA,1,1,6 PREP 07230
016651 3542540014 07240 CC AREAA,01014,6 PREP 07240
* 016656 3001664442 07250 JE $-10 PREP 07250
016663 3542540016 07260 CC AREAA,01016,6 PREP 07260
* 016670 3001664442 07270 JE $-20 PREP 07270
* 016675 1002133100 07280 PCE JR PRINT PRINT COMP ERROR PREP 07280
* 016702 3001631500 07290 J ADV PREP 07290
016707 4400001701 07300 COMPX SC 017,1 PREP 07300
016714 3400016200 07310 CC OP1-1,0 0 CHECK REPEAT OPTION PREP 07310
* 016721 3001676442 07320 JE CSO PREP 07320
016726 3400014200 07330 CC OP11-1,0,0 CHECK REPEAT COUNTER PREP 07330
* 016733 3001675242 07340 JE $+15 PREP 07340
016740 7200014241 07350 SB1 OP11-1,1,1 PREP 07350
* 016745 3001553300 07360 J READ PREP 07360
016752 5600016221 07370 BA2 OP1-1,1 1 PREP 07370
016757 5200014221 07380 SA2 OP11-1,1,1 PREP 07380
016764 3400017700 07390 CSO CC OP4,0 CHECK SHIFT OPTION PREP 07390
* 016771 3002054442 07400 JE TLIM PREP 07400
016776 3400015700 07410 CC OP44,0 CHECK SHIFT COUNTER PREP 07410
* 017003 3002053742 07420 JE TLIM-5 PREP 07420
017010 7200015741 07430 SB1 OP44,1 PREP 07430
017015 1600015671 07440 BC3 OP44-1,1,1 PREP 07440
017022 2600004704 07450 PD X1,4 PREP 07450
017027 5600015603 07460 BA1 OP44-1,3,3 PREP 07460
017034 5602513130 07470 NPAT BA2 SEVNS,8 8 PREP 07470
017041 7022540566 07471 CB2 AREAA+5,5,6,X1 CHECK IF UNUSED SLOT PREP 07471
* 017046 3001707242 07472 JE $+20 PREP 07472
017053 3422540000 07473 CC AREAA,0,0,X1 CHECK IF BAD SPOT PREP 07473
* 017060 3001707242 07474 JE $+10 PREP 07474
017065 5222540703 07475 SA1 AREAA+7,7,3,X1 PREP 07475
017072 3400004610 07480 CC X1-1,01010 PREP 07480
* 017077 3001540642 07490 JE WRITE PREP 07490
017104 6000004710 07500 AC X1,010 PREP 07500
* 017111 3001703400 07510 J NPAT PREP 07510
017116 6002532601 07520 CL2 AC ST,1 INCREMENT ERROR COUNT PREP 07520
017123 1400014001 07530 LC OP11-3,0,01 CHECK TEST HEAD SWITCH PREP 07530
* 017130 3001415042 07540 JE THER TEST HEAD ERROR PREP 07540
017135 2600006310 07550 PD X4,8 PREP 07550
017142 5742540710 07560 BA1 AREAA+7,7,8,X6 PREP 07560
* 017147 3002015765 07570 JC LP1+5,5353 JUMP IF BACK-TRACKING PREP 07570
017154 3402055000 07580 CC TLIM+4,0,0 PREP 07580
* 017161 3002002542 07590 JE OFE OFLO ERROR PREP 07590
017166 4401744440 07600 SC NORM+4,0,040 PREP 07600
017173 4401742567 07601 SC EOL+4,06067 PREP 07601
* 017200 3001721762 07610 JC $+15,50 0 16 OPTION PREP 07610
017205 1400014110 07620 LC OP11-2,0,010 FASTBANDS SWITCH PREP 07620
* 017212 3001730143 07630 JU TEL+15 PREP 07630
017217 2601744401 07631 PD NORM+4,1,1 PREP 07631
017224 4401753340 07632 SC TPL+4,04040 PREP 07632
017231 4401756440 07633 SC MOD3+4,0,040 PREP 07633
017236 1542540440 07640 LC AREAA+4,4,040,6 PREP 07640
* 017243 3001725567 07650 JC $+10,55 5 PREP 07650
017250 1542540301 07660 LC AREAA+3,3,1,6 PREP 07660
* 017255 3001747642 07670 JE TOL PREP 07670
017262 4401742543 07680 TEL SC EOL+4,04043 PREP 07680
* 017267 3001730167 07690 JC $+10,55 5 PREP 07690
017274 4401742547 07700 SC EOL+4,04047 PREP 07700
017301 2000370014 07710 FT ELST,X4 4 PREP 07710
017306 1400014110 07720 TESTZ LC OP11-2,0,010 CHECK FASTBANDS SWITCH PREP 07720
* 017313 3001766142 07730 JE Z16 PREP 07730
* 017320 3001766162 07740 JC Z16,50 16 SENTINEL SELECTED PREP 07740
017325 4200005714 07741 CLST ST X3,X4 CHECK IF ALREADY IN LIST PREP 07741 C
017332 5660000424 07742 BA2 4,4,X3 PREP 07742
017337 7142540464 07743 CB2 AREAA+4,4,4,X6 PREP 07743
* 017344 3001746442 07744 JE BSA+10 PREP 07744
017351 6000005710 07745 AC X3,8 PREP 07745
017356 5601742521 07746 BA2 EOL+4,1 1 PREP 07746
017363 7000005661 07747 CB2 X3-1,1 PREP 07747
* 017370 3001733241 07748 JG CLST+5 PREP 07748
017375 5602513130 07750 CHAV BA2 SEVNS,8 8 CHECK AVAILABILITY IN LIST PREP 07750 C
017402 7100000566 07751 CB2 5,6,X4 PREP 07751
* 017407 3001745242 07760 JE BSA PREP 07760
017414 6000006310 07770 AC X4,8 PREP 07770
017421 3400006267 07780 EOL CC X4-1,06767 END OF LIST IS 43,47,57,63, OR 67 PREP 07780
* 017426 3001737541 07781 JG CHAV PREP 07781
* 017433 3001756067 07782 JC MOD3,55 5 MODULAR DRUM PREP 07782
* 017440 3001752740 07783 NORM JC TPL,040 0 JUMP IF 16 OR FASTBANDS PREP 07783
* 017445 3001764200 07784 J TMBS PREP 07784
017452 5742540710 07790 BSA BA1 AREAA+7,7,8,X6 BAD-SPOT ADDRESS FROM WRITE AREA PREP 07790
017457 5300000710 07800 SA1 7,8,X4 STORE IN LIST PREP 07800
017464 2742540710 07810 PD AREAA+7,7,8,X6 PREP 07810
* 017471 3001667500 07820 J PCE PRINT COMP ERROR PREP 07820
017476 4401742563 07830 TOL SC EOL+4,06063 PREP 07830
* 017503 3001751567 07840 JC $+10,55 5 PREP 07840
017510 4401742567 07850 SC EOL+4,06067 PREP 07850
017515 2000570014 07860 FT OLST,X4 4 PREP 07860
* 017522 3001730600 07870 J TESTZ PREP 07870
* 017527 3001764240 07880 TPL JC TMBS,04040 PREP 07880
017534 2601753301 07890 PD $-1,1 PREP 07890
017541 4401742557 07900 SC EOL+4,05057 PREP 07900
017546 2000470014 07910 FT PLST,X4 4 PREP 07910
* 017553 3001730600 07920 J TESTZ PREP 07920
* 017560 3001764240 07930 MOD3 JC TMBS,04040 PREP 07930
017565 2601756401 07940 PD $-1,1 PREP 07940
017572 3401742543 07950 CC EOL+4,04043 PREP 07950
* 017577 3001762342 07960 JE $+20 PREP 07960
017604 4401742543 07970 SC EOL+4,04043 PREP 07970
017611 2000370014 07980 FT ELST,X4 4 PREP 07980
* 017616 3001730600 07990 J TESTZ PREP 07990
017623 4401742563 08000 SC EOL+4,06063 PREP 08000
017630 2000570014 08010 FT OLST,X4 4 PREP 08010
* 017635 3001730600 08020 J TESTZ PREP 08020
017642 5602524113 08030 TMBS BA1 TME,11 EXCESS BS PREP 08030
017647 5202751313 08040 SA1 PRNT+11,1,11 PREP 08040
* 017654 3001746400 08050 J BSA+10 PREP 08050
017661 7402531316 08060 Z16 CT BZERO,X6X6 TEST FOR SECTOR 00 PREP 08060
* 017666 3001776242 08070 JE SET77 PREP 08070
017673 5742537504 08080 BA1 AREAA-3,3,4,X6 PREP 08080
017700 7002531344 08090 CB1 BZERO,4 4 PREP 08090
* 017705 3001772442 08100 JE $+15 PREVIOUS SECTOR IS BAD PREP 08100 I
017712 4542537016 08110 SC AREAA-8,8,016,X6 PREP 08110
* 017717 3001737500 08120 J CHAV PREP 08120
017724 3500000000 08130 CC 0,0,X4 LOOK FOR PREVIOUS BAD SECTOR PREP 08130 K
* 017731 3001775042 08140 JE $+15 PREP 08140
017736 6000006310 08150 AC X4,8 PREP 08150
* 017743 3001772400 08160 J $-15 PREP 08160
017750 4517777016 08170 SC -8,016,X,X4 PREP 08170
* 017755 3001745200 08180 J BSA PREP 08180
* 017762 3002000667 08190 SET77 JC $+20,55 5 PREP 08190
017767 4402637016 08200 SC AREAA+070770,016 SET SECTOR 63 TO 16 SENTINEL PREP 08200
017774 4402737016 08210 SC AREAB+070770,016 PREP 08210
* 020001 3001737500 08220 J CHAV PREP 08220
020006 4402577016 08230 SC AREAA+030370,016 SET SECTOR 31 TO 16 SENTINEL PREP 08230
020013 4402677016 08240 SC AREAB+030370,016 PREP 08240
* 020020 3001737500 08250 J CHAV PREP 08250
020025 2002540014 08280 OFE FT AREAA,X4X4 PREP 08280
020032 2100040013 08290 FT 0400,X3,3,X4 PREP 08290
* 020037 3002010767 08300 JC OFE1,55 5 PREP 08300
020044 2100100013 08310 FT 01000,X3X3,X4 PREP 08310
020051 4402015602 08320 SC LP1+4,2 2 PREP 08320
020056 5742540421 08330 BA2 AREAA+4,4,1,X6 CALCULATE 30 SECTORS AWAY PREP 08330
020063 6000003736 08340 AC 037,036 6 PREP 08340
020070 2600003601 08350 PD 036,1 PREP 08350
020075 1600003723 08360 BS2 037,3 PREP 08360
020102 7200006322 08370 AB2 X4,2 PREP 08370
020107 5602513130 08380 OFE1 BA2 SEVNS,8 8 PREP 08380
020114 7100000465 08390 CB2 4,5,X4 PREP 08390
* 020121 3002033542 08400 JE OFE2 PREP 08400
020126 6000006310 08410 TOFE AC X4,8 PREP 08410
020133 7400006313 08420 CT X4,X3 PREP 08420
* 020140 3002011441 08430 JG OFE1+5 PREP 08430
020145 2002540014 08440 FT AREAA,X4X4 PREP 08440
* 020152 3202010702 08450 LP1 JL OFE1,2 PREP 08450
020157 2000270014 08460 FT OHST,X4 4 PREP 08460
020164 2100040013 08470 FT 0400,X3,3,X4 PREP 08470
020171 1400034610 08480 LC 0346,01010 OFLO HEAD 10 OR 50 PREP 08480
* 020176 3002044342 08481 JE PHD PREP 08481
020203 1400034620 08482 LC 0346,02020 OFLO HEAD 20 OR 60 PREP 08482 O
* 020210 3002047442 08483 JE OHD PREP 08483
* 020215 3002023467 08484 JC $+15,55 5 OFLO HEAD 00 OR 40 PREP 08484 O
020222 2000170014 08485 EHD FT PHST,X4 4 PREP 08485
020227 2100100013 08486 FT 01000,X3X3,X4 PREP 08486
020234 5602513130 08490 TST7 BA2 SEVNS,8 8 PREP 08490
020241 7100000566 08500 CB2 5,6,X4 PREP 08500
* 020246 3002034242 08510 JE OFE2+5 PREP 08510
020253 6000006310 08520 AC X4,010 PREP 08520
020260 7400006313 08530 CT X4,X3 PREP 08530
* 020265 3002023441 08540 JG TST7 PREP 08540
* 020272 3002052567 08550 JC OFE4,55 5 PREP 08550
020277 3401744400 08551 CC NORM+4,0,0 CHECK IF 16 OR FASTBANDS PREP 08551 C
* 020304 3002052542 08552 JE OFE4 PREP 08552
020311 3400005637 08553 CC X3-1,03737 PREP 08553
* 020316 3002052542 08554 JE OFE4 PREP 08554
020323 6000005610 08555 AC X3-1,01010 PREP 08555
* 020330 3002023400 08556 J TST7 PREP 08556
020335 5300100710 08560 OFE2 SA1 01000+7,7,8,X4 STORE BAD-SPOT IN AREAB PREP 08560
020342 2700100702 08570 PD 01000+7,7,2,X4 PREP 08570
020347 5300000710 08580 SA1 7,8,X4 STORE BAD-SPOT IN AREAA OR LIST PREP 08580 R
* 020354 1002037100 08581 JR OFE3 PREP 08581
* 020361 3001667500 08582 J PCE PREP 08582
* 020366 3002036600 08583 OFE3 J $ PRINT OFLO + NORMAL ADDRESSES PREP 08583 N
020373 5600035230 08590 BA2 0352,8 PREP 08590
020400 5602532424 08600 BA2 SCTR+3,4,4 PREP 08600
020405 5342540730 08610 SA2 AREAA+7,7,8,X6 PREP 08610
020412 5602755500 08611 BA1 PRNT+45,5,16 PREP 08611
020417 5202757700 08612 SA1 PRNT+63,3,16 PREP 08612
020424 5742541720 08613 BA2 AREAA+7+7+8,16,X6 PREP 08613 6
* 020431 1002152100 08614 JR EDITX PREP 08614
* 020436 3002036600 08615 J OFE3 PREP 08615
020443 2000270014 08630 PHD FT OHST,X4 4 PREP 08630
020450 2100100013 08640 FT 01000,X3X3,X4 PREP 08640
020455 3401744400 08650 CC NORM+4,0,0 CHECK IF 16 OR FASTBANDS PREP 08650 C
* 020462 3002052542 08660 JE OFE4 PREP 08660
* 020467 3002023400 08670 J TST7 PREP 08670
020474 2000070014 08680 OHD FT EHST,X4 4 PREP 08680
020501 2100040013 08681 FT 0400,X3,3,X4 PREP 08681
* 020506 3002023467 08682 JC TST7,55 5 PREP 08682
020513 3401744440 08683 CC NORM+4,0,040 PREP 08683
* 020520 3002022243 08684 JU EHD PREP 08684
* 020525 1002037100 08685 OFE4 JR OFE3 PREP 08685
* 020532 3001764200 08686 J TMBS PREP 08686
020537 4200015737 08690 ST T27,31 PREP 08690
* 020544 3002077240 08700 TLIM JC OLIM,32 2 PREP 08700
* 020551 3002233665 08710 JC BT4,53 JUMP IF BACK-TRACKING PREP 08710
020556 5600014702 08720 BA1 OP22,2 LOWER HEAD PREP 08720
020563 5600015322 08730 BA2 OP33,2 UPPER HEAD PREP 08730
* 020570 3002062667 08740 JC MOD20,5555 PREP 08740
020575 7000003742 08750 CHEAD CB1 037,2 CHECK FOR HEAD LIMIT PREP 08750
* 020602 3002065742 08760 JE CTRAK PREP 08760
* 020607 3002064567 08770 JC MOD21,5555 PREP 08770
020614 6000014601 08780 AC OP22-1,0,01 INCREMENT HEAD PREP 08780
* 020621 3001516500 08790 J WRGEN PREP 08790
020626 5400001607 08800 MOD20 LP 016,07 PREP 08800
020633 5400003607 08810 LP 036,07 CLEAR TRACK BITS PREP 08810
* 020640 3002057500 08820 J CHEAD PREP 08820
020645 6000014740 08830 MOD21 AC OP22,04040 INCREMENT HEAD PREP 08830
* 020652 3001516500 08840 J WRGEN PREP 08840
020657 7400014732 08860 CTRAK CT OP22,OP3P33 CHECK FOR TRACK LIMIT PREP 08860
* 020664 3002113642 08870 JE RIP PREP 08870
* 020671 3002072767 08880 JC MOD22,5555 PREP 08880
020676 6000014501 08890 AC OP22-2,0,01 INCREMENT TRACK PREP 08890
020703 5600016702 08900 LHL BA1 OP2,2 LOWER HEAD LIMIT PREP 08900
* 020710 3002074167 08910 JC MOD23,5555 PREP 08910
020715 5200014702 08920 SA1 OP22,2 PREP 08920
* 020722 3001516500 08930 J WRGEN PREP 08930
020727 6000014620 08931 MOD22 AC OP22-1,0,020 INCREMENT TRACK PREP 08931
* 020734 3002070300 08932 J LHL PREP 08932
020741 5400001607 08933 MOD23 LP 016,07 CLEAR TRACK BITS PREP 08933
020746 5600014621 08934 BA2 OP22-1,1,1 PREP 08934
020753 5400003770 08935 LP 037,070 0 CLEAR HEAD BITS PREP 08935
020760 7200001621 08936 AB2 016,1 PREP 08936
* 020765 3002071500 08937 J LHL+10 PREP 08937
020772 2000100022 08940 OLIM FT 01000,1818 PREP 08940
020777 2160000020 08950 FT 0,16,X7 7 PREP 08950
021004 2402640001 08960 TFR AREAB TRANSFER FINAL READ TO HISTORY PREP 08960 N
* 021011 3001404765 08970 JC CL3,53 JUMP IF BACK-TRACKING PREP 08970
021016 7400014732 08980 CT OP22,OP3P33 PREP 08980
* 021023 3002107343 08990 JU NOT PREP 08990
021030 1400016004 09000 LC OP1-3,0404 PREP 09000
* 021035 3002362542 09010 JE PROT PREP 09010
* 021042 3001101240 09020 OFHS JC SCAN1,04040 OFLO HST SW SET FOR ONE HEAD OPTION ONLY PREP 09020 L
021047 1400014002 09030 LC OP11-3,0,02 PREP 09030
* 021054 3002362543 09040 JU PROT PRINT OFLO TRACKS PREP 09040
021061 5400014075 09050 LP OP11-3,0,075 RESET PREP OFLO SWITCH PREP 09050
* 021066 3001370300 09060 J CL1 PREP 09060
* 021073 3002111767 09070 NOT JC INCH,55 5 PREP 09070
021100 6000014610 09080 AC OP22-1,0,010 PREP 09080
021105 6000007610 09090 AC X7-1,01010 PREP 09090
* 021112 3001501400 09100 J LOTA+5 PREP 09100
021117 6000014740 09110 INCH AC OP22,04040 INCREMENT MOD HEAD PREP 09110
021124 2000270017 09120 FT OHST,X7 7 PREP 09120
* 021131 3001501400 09130 J LOTA+5 PREP 09130
021136 1400014001 09140 RIP LC OP11-3,0,01 CHECK TEST HEAD SWITCH PREP 09140
* 021143 3002117442 09150 JE RSET1 GO RESET SWITCH 1 PREP 09150 R
021150 1400014110 09160 LC OP11-2,0,010 CHECK FASTBANDS SWITCH PREP 09160
* 021155 3002125642 09170 JE RSET4 DITTO 4 PREP 09170 T
021162 5400014156 09180 LP OP11-2,0,056 RESET NORMAL AND ONE HEAD SWITCHES PREP 09180 E
* 021167 3001370300 09190 J CL1 PREP 09190
021174 2002641711 09200 RSET1 FT AREAB+7+7+8,X1 PREP 09200
* 021201 1002376200 09210 JR PROT1 PREP 09210
021206 5400014076 09220 LP OP11-3,0,076 RESET TEST HEAD SWITCH PREP 09220
* 021213 3002122567 09230 JC $+10,55 5 PREP 09230
* 021220 3001370300 09240 J CL1 PREP 09240
021225 5602510716 09250 BA1 THD,14 PREP 09250
021232 5202751616 09260 SA1 PRNT+14,4,14 PREP 09260
* 021237 1002133100 09270 JR PRINT PREP 09270
* 021244 3000000460 09280 STOP4 JD 4 MOD D TEST HEAD FINISHED,RESTORE CARD 29A,START PREP 09280 E
* 021251 3001370300 09290 J CL1 PREP 09290
021256 5400014167 09300 RSET4 LP OP11-2,0,067 RESET FASTBANDS SWITCH PREP 09300
* 021263 3001370300 09310 J CL1 PREP 09310
* 021270 3002127000 09320 SETW J $ PREP 09320
021275 5602516305 09330 BA1 WRTO+4,5,5 PREP 09330
021302 5201552005 09340 SA1 W1+4,5 PREP 09340
021307 5602517505 09350 BA1 RDO+4,5 5 PREP 09350
021314 5201557005 09360 SA1 R1+4,5 PREP 09360
* 021321 3002127000 09370 J SETW PREP 09370
* 021326 3002132631 09380 PRINT JC $,25 PRINT ROUTINE PREP 09380 N
* 021333 3002132640 09390 JC PRINT,04040 JUMP IF NO PRINT PREP 09390
021340 3400054464 09400 CC 0544,06464 PREP 09400
* 021345 3002142742 09410 JE PR4 USE U1004 PRINTER PREP 09410
021352 2002750040 09420 FT PRNT,32 2 PRINT OUT, BASE ADD PREP 09420
021357 4400020701 09430 SC 0207,1 PREP 09430
021364 4000640000 09440 PR1 XF 064,0,0,0,0 PREP 09440
021371 4000620400 09450 XF 062,040000,0,0 PREP 09450
021376 4402750000 09460 SC PRNT,0 PREP 09460
021403 2002750120 09470 FT PRNT+1,1,16 PREP 09470
021410 2000007722 09480 FT 63,18 PREP 09480
021415 2402750001 09490 TFR PRNT PREP 09490
* 021422 3002132600 09500 JC PRINT,0 0 JHJ IF STOP AFTER PRINTOUT PREP 09500
021427 4402747701 09510 PR4 SC PRNT-1,1,1 PREP 09510
021434 2002747774 09520 FT PRNT-1,6,60 PREP 09520
021441 4402447004 09530 SC ADXF+4,0,04 SET UP PRINT INSTRUCTION PREP 09530
* 021446 1002443600 09540 JR U1004 PREP 09540
* 021453 3002137600 09550 J PR1+10 PREP 09550
021460 4000407777 09560 IPT0 XF 040,0777777,0,0 PREP 09560
* 021465 3000700060 09570 JD 07000 U1050 PRINTER ABNORMAL,DEPRESS START PREP 09570 5
* 021472 3002150460 09580 JD $+10 START TO REPEAT PRINTOUT OR PREP 09580 R
* 021477 3002136431 09590 JC PR1,25 M + START TO ELIMINATE PRINTER PREP 09590
021504 2602133701 09600 PD PRINT+9,9,1 PREP 09600
* 021511 3002132600 09610 J PRINT PREP 09610
* 021516 3000000000 09620 EDITX JC 0 PREP 09620
021523 5600005330 09630 BA2 X2,8 PREP 09630
021530 2600005310 09640 PD X2,8 PREP 09640
021535 5620002710 09650 BA1 027,8,X1X1 PREP 09650
* 021542 1002161500 09660 JR TRNS PREP 09660
021547 5242755502 09670 SA1 PRNT+45,5,2,X2 PREP 09670
021554 2037777711 09680 FT -1,X1,X1X1 PREP 09680
021561 2057777612 09690 FT -2,X2,X2X2 PREP 09690
* 021566 3202153510 09700 JL EDITX+1515,8 PREP 09700
021573 4402157210 09710 SC $-1,8 PREP 09710
021600 5200005330 09720 SA2 X2,8 PREP 09720
* 021605 3002151600 09730 J EDITX PREP 09730
* 021612 3000000000 09740 TRNS JC 0 AR1 ABCDEF PREP 09740
021617 4400001600 09750 SC 14,0 000000 ABCDEF PREP 09750
021624 1600001763 09760 BC2 15,3 000ABCDEF000 PREP 09760
021631 1600001753 09770 BC1 15,3 000 ABC 000DEF PREP 09770
021636 6000001603 09780 AC 14,03 PREP 09780
021643 6000001703 09790 AC 15,03 PREP 09790
* 021650 3002161200 09800 JC TRNS PREP 09800
* 021655 3002166222 09810 BT JC $+5,18 SET SI1 FOR BACK-TRACKING PREP 09810
021662 4402241200 09820 SC PLW+4,0 0 RESET BACK-TRACK SWITCH PREP 09820
021667 2000070015 09830 FT EHST,X5 5 PREP 09830
* 021674 3002170667 09840 JC $+10,55 5 PREP 09840
021701 2000170015 09850 FT PHST,X5 5 PREP 09850
021706 4200007715 09860 BT1 ST X7,X5 SAVE FOR LAST WRITE PREP 09860
021713 5720000405 09870 BA1 4,5,X5 PREP 09870
021720 7002513145 09880 CB1 SEVNS,5 5 09880
* 021725 3002233642 09890 JE BT4 PREP 09890
021732 7002531345 09900 CB1 BZERO,5 5 PREP 09900
* 021737 3002233642 09910 JE BT4 PREP 09910
021744 4600007714 09920 BT3 BT X7,X4 PREP 09920
021751 5700000424 09930 BA2 4,4,X4 PREP 09930
021756 5400001740 09940 LP 017,040 0 PREP 09940
021763 5400003740 09950 LP 037,040 0 PREP 09950
* 021770 3002200767 09960 JC $+15,55 5 PREP 09960
021775 2600001701 09970 PD 017,1 PREP 09970
022002 2600003701 09980 PD 037,1 PREP 09980
022007 7400006315 09990 CT X4,X5 PREP 09990
* 022014 3002204542 10000 JE BT2 PREP 10000
022021 7000003744 10010 CB1 037,4 PREP 10010
* 022026 3002233642 10020 JE BT4 THIS UTH PREVIOUSLY BACK-TRACKED PREP 10020
022033 6000006310 10030 AC X4,010 PREP 10030
* 022040 3002175100 10040 J BT3+5 PREP 10040
* 022045 3002225467 10050 BT2 JC MOD5,55 5 PREP 10050
022052 5200034704 10060 SA1 0347,4 PREP 10060
022057 2002540070 10070 FT AREAA,5656 PREP 10070
022064 5602520205 10080 BA1 WRTNP+4,4,5 PREP 10080
022071 5602520725 10090 BA2 RDNP+4,5,5 PREP 10090
022076 1400034402 10100 LC 0344,02 2 PREP 10100
* 022103 3002211567 10110 JC $+10,55 5 PREP 10110
022110 1400034403 10120 LC 0344,03 3 PREP 10120
* 022115 3002214642 10130 JE XF-15 FASTBAND, BACK-TRACK PREP 10130
* 022122 3002213462 10140 JC $+10,50 0 16 OPTION, BACK-TRACK PREP 10140
* 022127 3002233600 10150 J BT4 14 OPTION, DONT BACK-TRACK PREP 10150
022134 5602515605 10160 BA1 WRTN+4,5,5 PREP 10160
022141 5602517025 10170 BA2 RDN+4,5 5 PREP 10170
022146 5201552005 10180 SA1 W1+4,5 PREP 10180
022153 5201557025 10190 SA2 R1+4,5 PREP 10190
022160 5202217125 10200 SA2 XF+4,5 PREP 10200
022165 4140652000 10210 XF XF 065,0200000,0,6 READ FOR BACK-TRACK PREP 10210
022172 2600007304 10220 PD X6,4 PREP 10220
022177 3542540016 10230 CC AREAA,01016,X6 PREP 10230
* 022204 3002221643 10240 JU $+10 PREP 10240
022211 4542540014 10250 SC AREAA,01014,X6 PREP 10250
022216 6000007310 10260 AC X6,010 PREP 10260
022223 3400007210 10270 CC X6-1,01010 PREP 10270
* 022230 3002217743 10280 JU XF+10 PREP 10280
022235 4402241240 10290 SC PLW+4,04040 SET BACK-TRACK SWITCH PREP 10290
022242 4402055040 10300 SC TLIM+4,0,040 SET NORMAL TRACKS SWITCH PREP 10300
* 022247 3001540600 10310 J WRITE PREP 10310
022254 1400006620 10320 MOD5 LC X5-1,02020 PREP 10320
* 022261 3002231242 10330 JE MOD8 OHST USED FOR OFLO PREP 10330
022266 1400001740 10340 LC 017,040 0 EHST USED FOR OFLO PREP 10340
* 022273 3002233643 10350 JU BT4 EVEN BAD-SPOT ON EVEN OFLO HEAD PREP 10350 N
022300 4402241240 10360 SC PLW+4,04040 ODD BAD-SPOT ON EVEN OFLO HEAD PREP 10360
* 022305 3002205200 10370 J BT2+5 PREP 10370
022312 1400001740 10380 MOD8 LC 017,040 0 PREP 10380
* 022317 3002233642 10390 JE BT4 ODD BAD-SPOT ON ODD OFLO HEAD PREP 10390
022324 4402241270 10400 SC PLW+4,07070 EVEN BAD-SPOT ON ODD OFLO HEAD PREP 10400 N
* 022331 3002205200 10410 J BT2+5 PREP 10410
022336 6000006710 10420 BT4 AC X5,010 PREP 10420
022343 1400006613 10430 LC X5-1,01313 PREP 10430
* 022350 3002237467 10440 JC $+20,55 5 PREP 10440
022355 3400006700 10450 CC X5,0 PREP 10450
* 022362 3002171343 10460 JU BT1+5 PREP 10460
022367 1400006607 10470 LC X5-1,07 7 PREP 10470
* 022374 3002171343 10480 JU BT1+5 PREP 10480
* 022401 3002253367 10490 JC MOD7,55 5 PREP 10490
* 022406 3001404700 10500 PLW JC CL3,0 40 IF BACK-TRACKING REQUIRED PREP 10500 I
022413 2000100022 10510 FT 01000,1818 PREPARE LAST WRITE PREP 10510
022420 2002540020 10520 FT AREAA,1616 PREP 10520
022425 2560000001 10530 TFR 0,1,7 PREP 10530
022432 4600016771 10540 BT OP2,57 PREP 10540
* 022437 3002250767 10550 JC MOD6,55 5 PREP 10550
022444 4400034610 10560 SC 0346,01010 SET PLAIN OFLO HEAD PREP 10560
022451 5602516305 10570 PLW1 BA1 WRTO+4,5,5 PREP 10570
022456 5201552005 10580 SA1 W1+4,5 PREP 10580
022463 5602517505 10590 BA1 RDO+4,5 5 PREP 10590
022470 5201557005 10600 SA1 R1+4,5 PREP 10600
022475 2602055001 10610 PD TLIM+4,1,1 SET OFLO TRACKS SWITCH PREP 10610
* 022502 3001540600 10620 J WRITE PREP 10620
022507 3402241240 10630 MOD6 CC PLW+4,04040 PREP 10630
* 022514 3002245142 10640 JE PLW1 SET EVEN OFLO HEAD PREP 10640
022521 4400034740 10650 SC 0347,04040 SET ODD OFLO HEAD PREP 10650
* 022526 3002245100 10660 J PLW1 PREP 10660
022533 3402241200 10670 MOD7 CC PLW+4,0 0 PREP 10670
* 022540 3002240643 10680 JU PLW PREP 10680
022545 3400006633 10690 CC X5-1,03333 PREP 10690
* 022552 3002240642 10700 JE PLW PREP 10700
022557 2000270015 10710 FT OHST,X5 5 PREP 10710
* 022564 3002170600 10720 J BT1 PREP 10720
022571 4402533001 10730 PS SC GC,1 SET GROUP CTR TO 1 PREP 10730
022576 2602532701 10740 PD GC-1,1 PREP 10740
022603 4402271540 10750 SC PASS1-1,1,040 SET PASS 1 SWITCH PREP 10750
022610 4402333340 10760 SC M30+4,04040 PREP 10760
022615 2140000014 10770 F1 FT 0,X4,X6 6 SET X4 TO END OF LIST PREP 10770
022622 2160000015 10780 FT 0,X5,X7 7 SET X5 TO END OF HISTORY PREP 10780
022627 2600005310 10790 SETIR PD X2,8 PREP 10790
022634 2140000011 10800 FT 0,X1,X6 6 SET X1 TO START OF LIST PREP 10800
022641 5602513110 10820 TST77 BA1 SEVNS,8 8 PREP 10820
022646 7020000546 10830 CB1 5,6,X1 PREP 10830
* 022653 3002302443 10840 JU GSIZE PREP 10840
022660 6000004710 10850 AC X1,010 PREP 10850
* 022665 3002267700 10860 J $+10 PREP 10860
022672 4600005711 10870 BT X3,X1 SET START OF NEXT GROUP PREP 10870
022677 7400006311 10880 TEND CT X4,X1 CHECK FOR END OF LIST PREP 10880
* 022704 3002264144 10890 JS TST77 NEXT ITEM ON LIST PREP 10890
* 022711 3002275440 10900 JC PASS2,04040 JUMP IF PASS 2 PREP 10900
022716 3402533000 10910 PASS1 CC GC,64 40 FOR MOD PREP 10910
* 022723 3002274242 10920 JE $+15 PREP 10920
022730 6002533001 10930 AC GC,1 PREP 10930
* 022735 3002262700 10940 J SETIR PREP 10940
022742 2602271501 10950 PD PASS1-1,1,1 SET PASS 2 SWITCH PREP 10950
* 022747 3002262700 10960 J SETIR PREP 10960
022754 3402533001 10970 PASS2 CC GC,1 PREP 10970
* 022761 3002301243 10980 JU DGC PREP 10980
022766 3400007617 10990 CC X7-1,01717 PREP 10990
* 022773 3001465041 11000 JG PH PREP 11000
* 023000 3001467442 11010 JE OH PREP 11010
* 023005 3001471300 11020 J OPREP PREP 11020
023012 6002533077 11030 DGC AC GC,077 DECREMENT GROUP COUNTER PREP 11030
* 023017 3002262700 11040 J SETIR PREP 11040
023024 4600004713 11050 GSIZE BT X1,X3 CHECK GROUP SIZE PREP 11050
023031 5620000404 11060 BA1 4,4,X1 UTHS OF ITEM ON LIST PREP 11060
023036 5620000421 11070 BA2 4,1,X1 SECTOR OF SAME ITEM PREP 11070
023043 2602534401 11080 PD GS,1 CLEAR GROUP SIZE PREP 11080
023050 6000005710 11090 NXTS AC X3,8 NEXT SECTOR PREP 11090
023055 6002534401 11100 AC GS,1 PREP 11100
023062 7400006313 11110 CT X4,X3 CHECK FOR END OF LIST PREP 11110
* 023067 3002312042 11120 JE TGS PREP 11120
023074 6000003701 11130 AC 037,1 INCREMENT SECTOR PREP 11130
023101 5200001721 11140 SA2 017,1 PREP 11140
023106 7060000444 11150 CB1 4,4,X3 CHECK FOR CONSECUTIVE SECTORS PREP 11150 C
* 023113 3002305042 11151 JE NXTS PREP 11151
023120 2602327501 11160 TGS PD PBS-1,1 1 PREP 11160
023125 1420000102 11170 LC 1,02,X1 1 PREP 11170
* 023132 3002314467 11180 JC $+10,55 5 PREP 11180
023137 1420000103 11190 LC 1,03,X1 1 PREP 11190
* 023144 3002317542 11200 JE F2 PREP 11200
023151 4402327540 11210 SC PBS-1,04040 PREP 11210
023156 5602533021 11220 BA2 GC,1 PREP 11220
023163 7002534461 11230 CB2 GS,1 PREP 11230
* 023170 3002267243 11240 JU TEND-5 PREP 11240
023175 2160000012 11250 F2 FT 0,X2,X7 7 SET X2 TO START OF HISTORY PREP 11250
023202 4402350402 11251 SC TER-6,2 2 PREP 11251
023207 1420000440 11260 LC 4,040,X1X1 PREP 11260
* 023214 3002323343 11270 JU $+15 PREP 11270
023221 4402324440 11280 SC CS+4,04040 PREP 11280
* 023226 3002324067 11290 JC CS,55 PREP 11290
023233 2602324401 11300 PD CS+4,1 PREP 11300
023240 3420000400 11310 CS CC 4,0,X1 CHECK FOR CORRESPONDING SECTOR PREP 11310
* 023245 3002327642 11320 JE PBS PREP 11320
023252 6000005310 11330 AC X2,010 PREP 11330
023257 6002324401 11340 AC CS+4,1 PREP 11340
* 023264 3002324000 11350 J CS PREP 11350
* 023271 3002331040 11360 JC TAV1,04040 JUMP IF FAST-BAND BAD-SPOT PREP 11360 P
023276 3402271540 11370 PBS CC PASS1-1,1,040 CHECK IF PASS 1 PREP 11370
* 023303 3002351242 11380 JE TER GO O TEST IF ENOUGH ROOM IN HSTRY FOR THIS GRP. PREP 11380 F
023310 3440000077 11390 TAV1 CC 0,077,X2X2 TEST FOR AVAILABLE HISTORY PREP 11390 T
* 023315 3002340442 11400 JE PBS1 PREP 11400
* 023322 3002345467 11410 JC NXTH,55 5 PREP 11410
* 023327 3002345440 11420 M30 JC NXTH,04040 SKIP TO MOVE 30 SLOTS AWAY PREP 11420 P
023334 2602333301 11430 PD $-1,1 PREP 11430
023341 2000036003 11440 FT 0360,3 PREP 11440
023346 7200005302 11450 AB1 X2,2 PREP 11450
023353 7400006712 11460 CT X5,X2 CHECK FOR END OF HISTORY PREP 11460
* 023360 3002331044 11470 JS TAV1 PREP 11470
023365 2000001003 11480 FT 010,3 PREP 11480
023372 7200005241 11490 SB1 X2-1,1 PREP 11490
* 023377 3002331000 11500 J TAV1 PREP 11500
023404 5620000710 11510 PBS1 BA1 7,8,X1 BAD-SPOT FROM LIST PREP 11510 -
023411 5240000710 11520 SA1 7,8,X2 STORE IN HISTORY PREP 11520 R
023416 5602513130 11530 BA2 SEVNS,8 8 PREP 11530
023423 5220000730 11531 SA2 7,8,X1 SET LIST TO 77 PREP 11531
023430 4402333340 11540 SC M30+4,04040 PREP 11540
023435 6000004710 11550 AC X1,010 PREP 11550
023442 7400004713 11560 CT X1,X3 CHECK FOR END OF GROUP PREP 11560
* 023447 3002267742 11570 JE TEND PREP 11570
023454 6000005310 11580 NXTH AC X2,010 PREP 11580
023461 7400006712 11590 CT X5,X2 CHECK FOR END OF HISTORY PREP 11590
* 023466 3002331044 11600 JS TAV1 PREP 11600
023473 2160000012 11610 FT 0,X2,X7 7 SET X2 TO START OF HISTORY PREP 11610
* 023500 3202331002 11620 JL TAV1,2 PREP 11620
* 023505 3002271100 11621 J PASS1-5 5 PREP 11621
023512 4200013712 11630 TER ST T23,X2 PREP 11630
023517 2602534201 11640 PD HC,1 CLCLEAR HISTRY CNTR. PREP 11640 S
023524 5602533001 11650 BA1 GC,1 PREP 11650
023531 3440000077 11660 TAV CC 0,077,X2X2 TEST FOR AVAILABLE HISTORY PREP 11660 T
* 023536 3002267243 11670 JU TEND-5 PREP 11670
023543 6000005310 11680 AC X2,010 PREP 11680
023550 6002534201 11690 IHC AC HC,1 ININCR HSTRY COUNTER PREP 11690 R
023555 7002534241 11700 CB1 HC,1 PREP 11700
* 023562 3002361342 11710 JE RX2 PREP 11710
023567 7400006712 11720 CT X5,X2 CHECK FOR END OF HISTORY PREP 11720
* 023574 3002353144 11730 JS TAV PREP 11730
023601 2160000012 11740 FT 0,X2,X7 7 SET X2 TO START OF HISTORY PREP 11740
* 023606 3002353100 11750 J TAV PREP 11750
023613 4600013712 11760 RX2 BT T23,X2 RESTORE X2 PREP 11760
* 023620 3002340400 11770 J PBS1 PREP 11770
023625 2000071711 11780 PROT FT EHST+7+8+8,X1 PREP 11780
023632 4402512003 11790 SC ODMP-1,0,03 PREP 11790
023637 3400754600 11800 CC DRAB+4,0,0 PREP 11800
* 023644 3002365642 11810 JE $+10 PREP 11810
023651 4402512007 11820 SC ODMP-1,_,_4_ PREP 11820
023656 2602753300 11821 PD PRNT+27,7,16 PREP 11821
023663 2602755500 11822 PD PRNT+45,5,16 PREP 11822
* 023670 1002376200 11830 JR PROT1 PREP 11830
023675 6002512001 11840 AC ODMP-1,0,01 PREP 11840
023702 2000171711 11850 FT PHST+7+8+8,X1 PREP 11850
* 023707 3002372667 11860 JC $+15,55 5 PREP 11860
* 023714 1002376200 11870 JR PROT1 PREP 11870
023721 6002512001 11880 AC ODMP-1,0,01 PREP 11880
023726 2000271711 11890 FT OHST+7+8+8,X1 PREP 11890
023733 4402375103 11900 SC END+4,3 3 PREP 11900
* 023740 1002376200 11910 JR PROT1 PREP 11910
* 023745 3202413000 11920 END JL PUNCH-1010,0 PREP 11920
* 023752 3000720100 11930 J START PREP 11930
* 023757 3002375700 11940 PROT1 J $ PREP 11940
023764 2020040012 11950 FT 0400,X2,2,X1 PREP 11950
* 023771 3002400367 11960 JC $+10,55 5 PREP 11960
023776 2020100012 11970 FT 01000,X2X2,X1 PREP 11970
024003 5602512112 11980 BA1 ODMP,10 0 PREP 11980
024010 1400014001 11990 LC OP11-3,0,01 CHECK TEST HEAD SWITCH PREP 11990
* 024015 3002402743 12000 JU $+10 PREP 12000
024022 5602510212 12010 BA1 THEAD,1010 PREP 12010
024027 5202751212 12020 SA1 PRNT+10,0,10 PREP 12020
024034 2602512101 12030 PD ODMP,1 PREP 12030
* 024041 3002405367 12040 JC $+10,55 5 PREP 12040
024046 2602512121 12050 PD0 ODMP,1 PREP 12050
* 024053 1002133100 12060 JR PRINT PREP 12060
024060 5620000020 12070 PROT2 BA2 0,16,X1 1 PREP 12070
* 024065 1002152131 12080 JR EDITX,2525 PREP 12080
024072 5602755520 12090 BA2 PRNT+45,5,16 PREP 12090
024077 5202551720 12100 SA2 RBA+15,1,16 PREP 12100
* 024104 1002133100 12110 JR PRINT PREP 12110
024111 5637776606 12120 BA1 -10,6,X1X1 PREP 12120
024116 7002513146 12130 CB1 SEVNS,6 6 PREP 12130
* 024123 3002422442 12140 JE PUXF+10 0 PREP 12140
024130 1400014001 12150 LC OP11-3,0,01 CHECK TEST HEAD SWITCH PREP 12150
* 024135 3002422442 12160 JE PUXF+10 0 PREP 12160
* 024142 3002422440 12170 PUNCH JC PUXF+10,0,040 JUMP IF PUNCH ELIMINATED PREP 12170
024147 2602552001 12180 PD RBA+16,1,1 PREP 12180
024154 2002552120 12190 FT RBA+17,1,16 PREP 12190
024161 2000007722 12200 FT 63,18 PREP 12200
024166 2402552001 12210 TFR RBA+16 PREP 12210
024173 3400054464 12220 CC 0544,06464 PREP 12220
* 024200 3002435642 12230 JE PUN4 U1004 PUNCH PREP 12230
024205 2002550050 12240 FT RBA,40 PUNCH BASE ADDRESS PREP 12240
024212 4040407777 12250 PUXF XF 040,0777777,0,2 PREP 12250
024217 4040620100 12260 XF 062,010000,0,2 PREP 12260
024224 5602515100 12270 BA1 D9,16 PREP 12270
024231 5202551700 12280 SA1 RBA+15,1,16 PREP 12280
024236 6000004710 12290 AC X1,8 PREP 12290
024243 7400004712 12300 CT X1,X2 PREP 12300
* 024250 3002406041 12310 JG PROT2 PREP 12310
* 024255 3002375731 12320 JC PROT1,2525 PREP 12320
024262 4040001777 12330 IPT2 XF 0,01777,7,0,2 PREP 12330
* 024267 3002430153 12340 JC $+10,43 3 PREP 12340
* 024274 3002421231 12350 JC PUXF,25 5 PREP 12350
024301 5602506117 12360 BA1 PAB+9,1515 PREP 12360
024306 5602504211 12370 BA1 RAB,9 PREP 12370
024313 5202751717 12380 SA1 PRNT+15,5,15 PREP 12380
* 024320 1002133100 12390 JR PRINT PREP 12390
* 024325 3000700260 12400 JD 07002 PUNCH ABNORMAL,START TWICE TO REPEAT XF PREP 12400 C
* 024332 3002434460 12410 JD $+10 START, M + START TO ELIMINATE PUNCH PREP 12410 R
* 024337 3002421231 12420 JC PUXF,25 5 PREP 12420
024344 2602414601 12430 PD PUNCH+4,4,1 ELIMINATE PUNCH PREP 12430
* 024351 3002422431 12440 JC PUXF+10,0,25 PREP 12440
024356 2002550074 12450 PUN4 FT RBA,60 PUNCH BASE ADDRESS PREP 12450
024363 4402447002 12460 SC ADXF+4,0,02 PREP 12460
024370 3400042240 12461 CC 0422,04040 12461
* 024375 3002442142 12462 JE U1004-1010 12462
024402 4400011070 12463 SC 0110,07070 12463
024407 1202557700 12464 TR RBA+63,6,64 12464
024414 1202561720 12465 TR RBA+79,1,16 12465
* 024421 1002443600 12470 JR U1004 PREP 12470
* 024426 3002422400 12480 J PUXF+10 0 PREP 12480
* 024433 3002443331 12490 U1004 JC $,25 PREP 12490
024440 4402455101 12500 SC CH7ER+3,3,01 PREP 12500
024445 4402467253 12510 SC II-1,43 3 PREP 12510
024452 4402467740 12520 SC II+4,04040 PREP 12520
024457 4160402100 12530 XF 040,0210100,0,7 PREP 12530
024464 4160010000 12540 ADXF XF 1,0,0,7 7 PREP 12540
* 024471 3002447631 12550 JC $+5,25 PREP 12550
024476 2600004304 12560 DELAY PD 043,4 PREP 12560
024503 6000004301 12570 AC 043,1 PREP 12570
024510 3400004106 12580 CC 041,06 WAIT 3 SECONDS FOR U1004 INTERRUPT PREP 12580 T
* 024515 3002450341 12590 JG $-10 PREP 12590
* 024522 3002454600 12600 J CH7ER PREP 12600
024527 3402467740 12610 BUSY CC II+4,04040 PREP 12610
* 024534 3002444042 12620 JE U1004+5 5 BUSY ON 1ST XF PREP 12620
024541 4402455104 12630 SC CH7ER+3,3,04 PREP 12630
* 024546 3007770060 12640 CH7ER JD 077700 1,2 LOST INT,3 PARITY ERR,4 BUSY ON 2ND XF PREP 12640
* 024553 3002456560 12650 JD ELIM START,M,START TO ELIMINATE FAULTY DEVICE PREP 12650 R
* 024560 3002444000 12660 J U1004+5 5 DEPRESS START TO REPEAT XF ORDER PREP 12660
024565 1402447002 12670 ELIM LC ADXF+4,0,02 CHECK U1004 ADAPTER INSTRUCTION PREP 12670 H
* 024572 3002463041 12680 JG ELRD PREP 12680
* 024577 3002461644 12690 JS ELPR PREP 12690
024604 2602414601 12700 ELPU PD PUNCH+4,4,1 ELIMINATE PUNCH PREP 12700
* 024611 3002443300 12710 J U1004 PREP 12710
024616 2602133701 12720 ELPR PD PRINT+9,9,1 ELIMINATE PRINTER PREP 12720
* 024623 3002443300 12730 J U1004 PREP 12730
024630 2601111201 12740 ELRD PD RDR+14,1,1 ELIMINATE READER PREP 12740
* 024635 3002443300 12750 J U1004 PREP 12750
024642 4402455103 12760 IPT7 SC CH7ER+3,3,03 PREP 12760
024647 4160000100 12770 XF 0,0100,0,0,7 PREP 12770
* 024654 3002454653 12780 JC CH7ER,4343 PARITY ERROR PREP 12780
024661 4160002000 12790 XF 0,02000,0,0,7 PREP 12790
* 024666 3002452753 12800 JC BUSY,43 3 U1004 BUSY PREP 12800
* 024673 3002443340 12810 II JC U1004,04040 JUMP ON 2ND INTERRUPT PREP 12810
024700 2602467701 12820 PD II+4,1 PREP 12820
024705 4402455102 12830 SC CH7ER+3,3,02 PREP 12830
024712 4160010000 12840 XF 1,0,0,7 7 GOOD ACKNOWLEDGE PREP 12840
* 024717 3002447631 12850 JC DELAY,2525 PREP 12850
024726 024717 12860 IPT4 +3 $-5 CHANNEL 4 INTERRUPT PREP 12860
024746 SELECTION ERROR 12870 SELER +16 _SELECTITION ERROR _ PREP 12870 O
024752 FULL 12871 FULLD +4 _FULL_ PREP 12871
024756 HALF 12872 HALF +4 _HALF_ PREP 12872
024775 PREP FULL DRUM 12880 PFD +15 _PREP FUFULL DRUM _ PREP 12880 M
025014 PREP ONE HEAD 12890 POH +15 _ PREP O ONE HEAD _ PREP 12890 D
025023 LMT ERR 12900 OHL +7 _LMT ERRRR_ PREP 12900
025042 READER ABNORMAL 12910 RAB +15 _READER R ABNORMAL_ PREP 12910 A
025050 PUNCH 12920 PAB +6 _PUNCH _ _ PREP 12920
025056 DRUM 12930 DAB +6 _DRUM _ _ PREP 12930
025070 PARITY ERR 12940 DPE +10 _PARITY Y ERR_ PREP 12940
025102 TEST HEAD 12950 THEAD +10 _TEST HEHEAD _ PREP 12950
025107 DONE 12960 THD +5 _ DONE_ _ PREP 12960
025121 OVF DMP 00 12970 ODMP +10 _OVF DMPMP 00_ PREP 12970
025131 7777777777777777 12980 SEVNS +8 0777777777777777777 PREP 12980 7
025151 9999999999999999 12990 D9 +16 _999999999999999999_ END SENTINEL PREP 12990 9
025152 4140662000 13000 WRTN XF 066,0200000,0,6 PREP 13000
025157 4140666000 13010 WRTO XF 066,0600000,0,6 PREP 13010
025164 4140652000 13020 RDN XF 065,0200000,0,6 PREP 13020
025171 4140656000 13030 RDO XF 065,0600000,0,6 PREP 13030
025176 4140622000 13040 WRTNP XF 062,0200000,0,6 PREP 13040
025203 4140612000 13050 RDNP XF 061,0200000,0,6 PREP 13050
025216 COMP 00 13060 CMPE +7 _COMP 0000_ COMPARISON ERROR PREP 13060
025226 OFLO ERR 13070 OFERR +8 _OFLO ERERR_ PREP 13070
025241 EXCESS BS.. 13080 TME +11 _EXCESS S BS.._ EXCESS BAD-SPOTS PREP 13080
025245 RDR 13090 RDRI +4 _RDR _ READER INSERT PREP 13090
025251 KEY 13100 KEY +4 _KEY _ KEY-IN INSERT PREP 13100
025260 INSERT 13110 INSRT +7 _INSERT T _ PREP 13110
025265 ERROR 13120 ERROR +5 _ERROR_ _ PREP 13120
025303 EXCESS INSERTS 13130 XSINS +14 _EXCESS S INSERTS_ PREP 13130 S
025313 0000000000000000 13140 BZERO +8 00 PREP 13140
025317 00000000 13150 FULL +4 0 100 OR 40 PREP 13150
025321 0000 13160 SCTR +2 0 SECTOR ADDRESS PREP 13160
025324 000000 13170 +3 0 PREP 13170
025326 0000 13180 ST +2 0 SECTOTOR TOTAL COUNTER PREP 13180 L
025330 0000 13190 GC +2 0 GROUPUP COUNTER PREP 13190 E
025332 0000 13200 EC +2 0 EVEN N LIST COUNTER PREP 13200 O
025336 00000000 13210 PC +4 0 PLAININ LIST COUNTER PREP 13210 C
025340 0000 13220 OC +2 0 ODD L LIST COUNTER PREP 13220 U
025342 0000 13230 HC +2 0 PREP 13230
025344 0000 13240 GS +2 0 GROUP SIZE PREP 13240 U
025346 0000 13250 LH +2 0 LOWERHEAD PREP 13250 E
025350 0000 13260 UH +2 0 UPPER HEAD PREP 13260 E
* 025351 3002535131 13261 IE7 JC $,25 PREP 13261
025360 024642 13262 +3 IPT7 PREP 13262
025400 13263 ORIG 025400 PREP 13263
025400 2000 13264 AREAA AREA 02000 13264
025500 13265 RBA EQU AREAA+010100 13265
026400 13266 AREAB EQU AREAA+0101000 13266
027477 ORIG 027477
027477 01 13268 +1 01 PREP 13268
027500 204 13269 PRNT AREA 132,B,0 0 PREP 13269
000143 13270 OP11 EQU 0143 PREP 13270
000147 13280 OP22 EQU 0147 PREP 13280
000153 13290 OP33 EQU 0153 PREP 13290
000157 13300 OP44 EQU 0157 PREP 13300
000160 13310 ORIG 0160 PREP 13310
000163 01000000 13320 OP1 +4 0100000000 OPTIONS (PRESET TO PREP TEST HEAD� PREP 13320 I
000167 00000000 13330 OP2 +4 0000000000 LOWER LIMITS PREP 13330 E
000173 01373700 13340 OP3 +4 0137370000 UPPER LIMITS(PRESET TO FASTRAND I� PREP 13340 E
000177 14633100 13350 OP4 +4 01463310100 TEST PATTERN AND SHIFT COUNTER PREP 13350 S
000047 13360 X1 EQU 39 PREP 13360
000053 13370 X2 EQU X1+4 PREP 13370
000057 13380 X3 EQU X2+4 PREP 13380
000063 13390 X4 EQU X3+4 PREP 13390
000067 13400 X5 EQU X4+4 PREP 13400
000073 13410 X6 EQU X5+4 PREP 13410
000077 13420 X7 EQU X6+4 PREP 13420
000103 13430 T16 EQU 0103 PREP 13430
000107 13440 T17 EQU T16+4 PREP 13440
000113 13450 T18 EQU T17+4 PREP 13450
000127 13460 T21 EQU 0127 PREP 13460
000133 13470 T22 EQU 0133 PREP 13470
000137 13480 T23 EQU T22+4 PREP 13480
000203 13490 T32 EQU 0203 PREP 13490
000207 13500 LA EQU 0207 PREP 13500
000177 13510 T31 EQU T32-4 PREP 13510
000173 13520 T30 EQU T31-4 PREP 13520
000157 13530 T27 EQU 0157 PREP 13530
000460 13560 ORIG 0460 PREP 13560
* 000460 3000046031 13570 JC $,25 PREP 13570
000467 015300 13580 +3 IPT6 CHANNEL 6 IPT PREP 13580 N
000500 13590 ORIG 0500 PREP 13590
* 000500 3000050036 13600 JC $,30 PREP 13600
000507 007100 13610 +3 CL1IR CLASS 1 IPT PREP 13610 S
* 000510 3000051050 13620 JC $,40 PREP 13620
000517 007112 13630 +3 CL2IR CLASS 2 IPT PREP 13630 S
0000 ERROR LINES 3000720100 13640 END START PREP 13640
{-- tape mark --}
022239 C141 PFC90 CODEDIT SOURCE - T3834394-14
002500 00010 T140 BEGIN 1344 PFC9 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 002500 3007010660 * JD 070106 *
* 002505 3000250000 * J $-5 *
SEGMENT-ID T141 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 T142 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 T143 3000136300 * SEGJP $ *
002500 000101 ORIG 1344 000101
* 002500 3000000160 00020 START JC 1,48 00020
* 002505 1000256500 00030 JR PFCA 00030
* 002512 3000000260 00040 JC 2,48 00040
* 002517 1000277400 00050 JR PFCB 00050
* 002524 3000000360 00060 JC 3,48 00060
* 002531 1000320300 00070 JR PFCC 00070
* 002536 3000000460 00080 JC 4,48 00080
* 002543 1000341200 00090 JR PFCD 00090
* 002550 3000777760 00100 JC 4095,48 8 00100
* 002555 3000250000 00110 JC START 00110
* 002562 3000000000 00120 PFCA JC 0 00120
* 002567 1000554000 00130 JR INIT 00130
002574 4400473340 00140 SC CMP01+4,4,32 00140
002601 4400474000 00150 SC CMP01+9,9,0 00150
002606 4400405004 00160 SC PFCE1+4,4,4 00160
002613 5600572344 00170 BD1 ID1,4 00170
002620 5200630304 00180 SA1 P1+3,4 00180
002625 5200650304 00190 SA1 P2+3,4 00190
002632 5200014704 00200 SA1 ID,4 00200
002637 4400441601 00210 SC PFCG1+4,4,1 00210
002644 4400442303 00220 SC PFCG2+4,4,3 00220
002651 4400444742 00230 SC PFCG4+4,4,34 00230
002656 4400454343 00240 SC PFCG5+4,4,35 00240
* 002663 1000362100 00250 JR PFCE 00250
002670 4400442323 00260 SC PFCG2+4,4,19 00260
002675 4400454342 00270 SC PFCG5+4,4,34 00270
* 002702 1000362100 00280 JR PFCE 00280
002707 4400442363 00290 SC PFCG2+4,4,51 00290
002714 4400444743 00300 SC PFCG4+4,4,35 00300
* 002721 1000362100 00310 JR PFCE 00310
002726 4400442343 00320 SC PFCG2+4,4,35 00320
002733 4400454343 00330 SC PFCG5+4,4,35 00330
* 002740 1000362100 00340 JR PFCE 00340
* 002745 3000260662 00350 JC PFCA+20,0,50 00350
* 002752 3000301563 00360 JC PFCB+20,0,51 00360
002757 4040640000 00370 XF 064,00,0,0,2 00370
* 002764 3000256200 00380 JC PFCA 00380
* 002771 3000000000 00390 PFCB JC 0 00390
* 002776 1000554000 00400 JR INIT 00400
003003 4400473340 00410 SC CMP01+4,4,32 00410
003010 4400474000 00420 SC CMP01+9,9,0 00420
003015 4400405004 00430 SC PFCE1+4,4,4 00430
003022 5600573344 00440 BD1 ID3,4 00440
003027 5200630304 00450 SA1 P1+3,4 00450
003034 5200650304 00460 SA1 P2+3,4 00460
003041 5200014704 00470 SA1 ID,4 00470
003046 4400441601 00480 SC PFCG1+4,4,1 00480
003053 4400442302 00490 SC PFCG2+4,4,2 00490
003060 4400444742 00500 SC PFCG4+4,4,34 00500
003065 4400454343 00510 SC PFCG5+4,4,35 00510
* 003072 1000362100 00520 JR PFCE 00520
003077 4400442322 00530 SC PFCG2+4,4,18 00530
003104 4400454342 00540 SC PFCG5+4,4,34 00540
* 003111 1000362100 00550 JR PFCE 00550
003116 4400442362 00560 SC PFCG2+4,4,50 00560
003123 4400444743 00570 SC PFCG4+4,4,35 00570
* 003130 1000362100 00580 JR PFCE 00580
003135 4400442342 00590 SC PFCG2+4,4,34 00590
003142 4400454343 00600 SC PFCG5+4,4,35 00600
* 003147 1000362100 00610 JR PFCE 00610
* 003154 3000301562 00620 JC PFCB+20,0,50 00620
* 003161 3000321263 00630 JC PFCC+10,0,51 00630
003166 4040640000 00640 XF 064,00,0,0,2 00640
* 003173 3000277100 00650 JC PFCB 00650
* 003200 3000000000 00660 PFCC JC 0 00660
* 003205 1000554000 00670 JR INIT 00670
003212 4400473340 00680 SC CMP01+4,4,32 00680
003217 4400474040 00690 SC CMP01+9,9,32 00690
003224 4400405004 00700 SC PFCE1+4,4,4 00700
003231 5600574344 00710 BD1 ID5,4 00710
003236 5200630304 00720 SA1 P1+3,4 00720
003243 5200650304 00730 SA1 P2+3,4 00730
003250 5200014704 00740 SA1 ID,4 00740
003255 4400441601 00750 SC PFCG1+4,4,1 00750
003262 4400442301 00760 SC PFCG2+4,4,1 00760
003267 4400444742 00770 SC PFCG4+4,4,34 00770
003274 4400454343 00780 SC PFCG5+4,4,35 00780
* 003301 1000362100 00790 JR PFCE 00790
003306 4400442321 00800 SC PFCG2+4,4,17 00800
003313 4400454342 00810 SC PFCG5+4,4,34 00810
* 003320 1000362100 00820 JR PFCE 00820
003325 4400442361 00830 SC PFCG2+4,4,49 00830
003332 4400444743 00840 SC PFCG4+4,4,35 00840
* 003337 1000362100 00850 JR PFCE 00850
003344 4400442341 00860 SC PFCG2+4,4,33 00860
003351 4400454343 00870 SC PFCG5+4,4,35 00870
* 003356 1000362100 00880 JR PFCE 00880
* 003363 3000321262 00890 JC PFCC+10,0,50 00890
* 003370 3000342163 00900 JC PFCD+10,0,51 _ 00900
003375 4040640000 00910 XF 064,00,0,0,2 00910
* 003402 3000320000 00920 JC PFCC 00920
* 003407 3000000000 00930 PFCD JC 0 00930
* 003414 1000554000 00940 JR INIT 00940
003421 4400473340 00950 SC CMP01+4,4,32 00950
003426 4400474040 00960 SC CMP01+9,9,32 00960
003433 4400405004 00970 SC PFCE1+4,4,4 00970
003440 5600575344 00980 BD1 ID7,4 00980
003445 5200630304 00990 SA1 P1+3,4 00990
003452 5200650304 01000 SA1 P2+3,4 01000
003457 5200014704 01010 SA1 ID,4 01010
003464 4400441601 01020 SC PFCG1+4,4,1 01020
003471 4400442304 01030 SC PFCG2+4,4,4 01030
003476 4400444742 01040 SC PFCG4+4,4,34 01040
003503 4400454343 01050 SC PFCG5+4,4,35 01050
* 003510 1000362100 01060 JR PFCE 01060
003515 4400442324 01070 SC PFCG2+4,4,20 01070
003522 4400454342 01080 SC PFCG5+4,4,34 01080
* 003527 1000362100 01090 JR PFCE 01090
003534 4400442364 01100 SC PFCG2+4,4,52 01100
003541 4400444743 01110 SC PFCG4+4,4,35 01110
* 003546 1000362100 01120 JR PFCE 01120
003553 4400442344 01130 SC PFCG2+4,4,36 01130
003560 4400454343 01140 SC PFCG5+4,4,35 01140
* 003565 1000362100 01150 JR PFCE 01150
* 003572 3000342162 01160 JC PFCD+10,0,50 01160
* 003577 3000257463 01170 JC PFCA+10,0,51 01170
003604 4040640000 01180 XF 064,00,0,0,2 01180
* 003611 3000340700 01190 JC PFCD 01190
* 003616 3000000000 01200 PFCE JC 0 01200
003623 6000014601 01210 AC ID-1,1 01210
003630 4400014704 01220 SC ID,4 01220
003635 6000630201 01230 AC P1+2,1 01230
003642 4400630304 01240 SC P1+3,4 01240
003647 6000650201 01250 AC P2+2,1 01250
003654 4400650303 01260 SC P2+3,3 01260
003661 4400443402 01270 SC PFCG3+3,3,2 01270
* 003666 1000422000 01280 JR FBAT1 01280
* 003673 1000441000 01290 JR PFCG 01290
003700 6000014701 01300 AC ID,1 01300
003705 6000630301 01310 AC P1+3,1 01310
003712 4400443412 01320 SC PFCG3+3,3,10 01320
* 003717 1000422000 01330 JR FBAT1 01330
* 003724 1000441000 01340 JR PFCG 01340
003731 6000014701 01350 AC ID,1 01350
003736 6000650303 01360 AC P2+3,3 01360
003743 4400443414 01370 SC PFCG3+3,3,12 01370
* 003750 1000425600 01380 JR FBAT2 01380
* 003755 1000441000 01390 JR PFCG 01390
003762 6000014701 01400 AC ID,1 01400
003767 6000650301 01410 AC P2+3,1 01410
003774 4400443404 01420 SC PFCG3+3,3,4 01420
* 004001 1000425600 01430 JR FBAT2 01430
* 004006 1000441000 01440 JR PFCG 01440
004013 6000014701 01450 AC ID,1 01450
004020 6000630303 01460 AC P1+3,3 01460
004025 4400443406 01470 SC PFCG3+3,3,6 01470
* 004032 1000431400 01480 JR FBAT3 01480
* 004037 1000441000 01490 JR PFCG 01490
* 004044 3200407500 01500 PFCE1 JL $+25,0 01500
* 004051 3000407562 01510 JC $+20,50 0 01510
* 004056 3000407563 01520 JC $+15,51 1 01520
* 004063 3000000060 01530 JD 0 01530
004070 4400567002 01540 SC K2,2 01540
004075 6000014701 01550 AC ID,1 01550
004102 6000630301 01560 AC P1+3,1 01560
004107 4400443416 01570 SC PFCG3+3,3,14 01570
* 004114 1000431400 01580 JR FBAT3 01580
* 004121 1000441000 01590 JR PFCG 01590
004126 6000014701 01600 AC ID,1 01600
004133 6000650303 01610 AC P2+3,3 01610
004140 4400443410 01620 SC PFCG3+3,3,8 01620
* 004145 1000435200 01630 JR FBAT4 01630
* 004152 1000441000 01640 JR PFCG 01640
004157 6000014701 01650 AC ID,1 01650
004164 6000650301 01660 AC P2+3,1 01660
004171 4400443400 01670 SC PFCG3+3,3,0 01670
* 004176 1000435200 01680 JR FBAT4 01680
* 004203 1000441000 01690 JR PFCG 01690
* 004210 3000361600 01700 JC PFCE 01700
* 004215 3000000000 01710 FBAT1 JC 0 01710
004222 2000630050 01720 FT P1,40 01720
004227 2000650026 01730 FT P2,22 01730
004234 2000670051 01740 FT R1,41 01740
004241 2000670027 01750 FT R1,23 01750
* 004246 3000421500 01760 JC FBAT1 01760
* 004253 3000000000 01770 FBAT2 JC 0 01770
004260 2000650050 01780 FT P2,40 01780
004265 2000650026 01790 FT P2,22 01790
004272 2000670051 01800 FT R1,41 01800
004277 2000710027 01810 FT R2,23 01810
* 004304 3000425300 01820 JC FBAT2 01820
* 004311 3000000000 01830 FBAT3 JC 0 01830
004316 2000630050 01840 FT P1,40 01840
004323 2000650026 01850 FT P2,22 01850
004330 2000670051 01860 FT R1,41 01860
004335 2000710027 01870 FT R2,23 01870
* 004342 3000431100 01880 JC FBAT3 01880
* 004347 3000000000 01890 FBAT4 JC 0 01890
004354 2000650050 01900 FT P2,40 01900
004361 2000650026 01910 FT P2,22 01910
004366 2000670051 01920 FT R1,41 01920
004373 2000670027 01930 FT R1,23 01930
* 004400 3000434700 01940 JC FBAT4 01940
* 004405 3000000000 01950 PFCG JC 0 01950
004412 6400443400 01960 PFCG1 LS PFCG3+3,3,0 01960
004417 4400443300 01970 PFCG2 SC PFCG3+2,2,0 01970
004424 4400025200 01980 SC 170,0 01980
004431 4040000000 01990 PFCG3 XF 00,00,0,0,2 01990
004436 3400025200 02000 CC 170,0 02000
* 004443 3000450600 02010 PFCG4 JC DELAY,0 0 02010
* 004450 3000446764 02020 JC $+15,52 2 02020
* 004455 3000000560 02030 JC 5,48 LOP ERROR * 02030
* 004462 3000453200 02040 JC PFCG6 02040
004467 4200715131 02050 ST LOERR+4141,25 02050
004474 2000710040 02060 FT LOERR,3232 02060
004501 4000620400 02070 XF 062,040000,0,0 02070
004506 2600014304 02080 DELAY PD 99,4 02080
004513 7600576330 02090 AT BONE,24 4 02090
004520 7400576730 02100 CT BBIG,24 4 02100
* 004525 3000451343 02110 JC $-10,35 5 02110
004532 3400566700 02120 PFCG6 CC K1,0 02120
* 004537 3000460200 02130 PFCG5 JC $+35 02130
* 004544 3000456364 02140 JC $+15,52 2 02140
* 004551 3000000660 02150 JC 6,48 INH INT ERROR 02150
* 004556 3000460200 02160 JC $+20 02160
004563 4200745131 02170 ST IIERR+4141,25 02170
004570 2000740040 02180 FT IIERR,3232 02180
004575 4000620400 02190 XF 062,040000,0,0 02190
004602 4400566700 02200 SC K1,0 02200
004607 7400024727 02210 CT 167,23 02210
* 004614 3000465742 02220 JC $+35,34 4 02220
* 004621 3000464064 02230 JC $+15,52 2 02230
* 004626 3000000760 02240 JC 7,48 ADV RBA ERR 02240
* 004633 3000465700 02250 JC $+20 02250
004640 4200726131 02260 ST RBAER+4949,25 02260
004645 2000720040 02270 FT RBAER,3232 02270
004652 4000620400 02280 XF 062,040000,0,0 02280
004657 7400024326 02290 CT 163,22 02290
* 004664 3000472742 02300 JC $+35,34 4 02300
* 004671 3000471064 02310 JC $+15,52 2 02310
* 004676 3000001060 02320 JC 8,48 ADV PBA ERR 02320
* 004703 3000472700 02330 JC $+20 02330
004710 4200736331 02340 ST PBAER+5151,25 02340
004715 2000730040 02350 FT PBAER,3232 02350
004722 4000620400 02360 XF 062,040000,0,0 02360
* 004727 3000474640 02370 CMP01 JC $+15,32 2 02370
004734 4400473300 02380 SC $-1,0 02380
* 004741 3000440500 02390 J PFCG 02390
004746 5600670304 02400 BA1 R1+3,4 02400
004753 5200754204 02410 SA1 TRERR+3434,4 02410
004760 2000002314 02420 FT 19,12 02420
004765 4400502205 02430 SC LOOP+4,5,5 02430
004772 5700630000 02440 BA1 P1,16,4 4 02440
004777 7100670040 02450 CB1 R1,16,4 4 02450
* 005004 3000503043 02460 JU $+20 02460
005011 7600577714 02470 AT B16,12 02470
* 005016 3200477200 02480 LOOP JL $-20 02480
* 005023 3000440500 02490 J PFCG 02490
* 005030 3000504764 02500 JC $+15,52 2 02500
* 005035 3000001460 02510 JD 12 02510
* 005042 3000440500 02520 J PFCG 02520
005047 4200754231 02530 ST TRERR+3434,25 _ 02530
005054 2000750040 02540 FT TRERR,3232 02540
005061 4000620400 02550 XF 062,040000,0,0 _ 02550
* 005066 3000440500 02560 J PFCG 02560
* 005073 3000567151 02570 PFCI JC K3,41 02570
005100 5200571100 02580 SA1 K4,16 02580
005105 4200571511 02590 ST K5,9 02590
005112 4040007340 02600 XF 00,0734040,0,2 02600
* 005117 3000515553 02610 JC PFCI2,4343 02610
005124 4400566701 02620 PFCI1 SC K1,1 02620
* 005131 3000567152 02630 JC K3,42 02630
005136 5600571100 02640 BA1 K4,16 02640
005143 4600571511 02650 BT K5,9 02650
* 005150 3000042000 02660 JC 272 02660
005155 2000001511 02670 PFCI2 FT 13,9 02670
005162 2600571702 02680 PD K6,2 02680
005167 4400521600 02690 SC PFCI3+3,3,0 02690
005174 4400521740 02700 SC PFCI3+4,4,32 02700
005201 4400525007 02710 SC PFCI4+4,4,7 02710
005206 7600577311 02720 AT B7,9 02720
005213 4040000000 02730 PFCI3 XF 00,00,0,0,2 02730
* 005220 3000526353 02740 JC $+35,43 3 02740
005225 4420620003 02750 SC PUABN,3,3,1 02750
005232 1600571721 02760 BS2 K6,1 02760
005237 1600521721 02770 BS2 PFCI3+4,4,1 02770
* 005244 3200520600 02780 PFCI4 JL $-30 02780
005251 5600571702 02790 BA1 K6,2 02790
* 005256 3000530200 02800 JC $+20 02800
005263 6400571701 02810 LS K6,1 02810
005270 4420620004 02820 SC PUABN,4,4,1 02820
* 005275 3000523200 02830 JC $-35 02830
005302 5200534302 02840 SA1 PFCI5+3,3,2 02840
005307 5200540602 02850 SA1 PFCI6+3,3,2 02850
005314 5200543702 02860 SA1 PFCI7+3,3,2 02860
005321 3400567000 02870 CC K2,0 02870
* 005326 3000536443 02880 JC $+30,35 5 02880
* 005333 3000007760 02890 JC 63,48 02890
* 005340 3000000060 02900 PFCI5 JC 0,48 02900
005345 2600620304 02910 PD PUABN+3,3,4 * 02910
* 005352 3000551164 02920 JC PRT,52 02920
* 005357 3000545300 02930 JC NOPRT 02930
005364 3400567001 02940 CC K2,1 02940
* 005371 3000542743 02950 JC $+30,35 5 02950
* 005376 3000002060 02960 JC 16,48 02960
* 005403 3000000060 02970 PFCI6 JC 0,48 02970
005410 4200620331 02980 ST PUABN+3,3,25 * 02980
* 005415 3000551164 02990 JC PRT,52 02990
* 005422 3000545300 03000 JC NOPRT 03000
* 005427 3000004060 03010 JC 32,48 03010
* 005434 3000000060 03020 PFCI7 JC 0,48 03020
005441 4200620332 03030 ST PUABN+3,3,26 03030
* 005446 3000551164 03040 JC $+35,52 2 03040
005453 4040407340 03050 NOPRT XF 040,0734340,0,2 03050
005460 2000472703 03060 FT CMP01,3 3 03060
005465 5200042303 03070 SA1 275,3 03070
005472 3400454343 03080 CC PFCG5+4,4,35 03080
* 005477 3000512442 03090 JC PFCI1,3434 03090
* 005504 3000510000 03100 J PFCI+5 03100
005511 2000620040 03110 PRT FT PUABN,3232 03110
005516 2000000241 03120 FT 2,33 03120
005523 4000620400 03130 XF 062,040000,0,0 03130
* 005530 3000545300 03140 JC NOPRT 03140
* 005535 3000000000 03150 INIT JC 0 03150
005542 5600600710 03160 BA1 PRIE,8 03160
005547 5200040710 03170 SA1 263,8 03170
005554 5600601710 03180 BA1 PUIE,8 03180
005561 5200042710 03190 SA1 279,8 03190
005566 5600603700 03200 BA1 CLIE,16 6 03200
005573 5200051700 03210 SA1 335,16 03210
005600 4400567001 03220 SC K2,1 03220
005605 4040640000 03230 XF 064,00,0,0,2 03230
005612 4040640000 03240 XF 064,00,0,0,2 03240
005617 4040640000 03250 XF 064,00,0,0,2 03250
005624 4040640000 03260 XF 064,00,0,0,2 03260
005631 4400567000 03270 SC K2,0 03270
005636 4400566700 03280 SC K1,0 03280
005643 2000000241 03290 FT 2,33 03290
005650 4400473340 03300 SC CMP01+4,4,32 03300
005655 4400474000 03310 SC CMP01+9,9,0 03310
* 005662 3000553500 03320 JC INIT 03320
005667 31 03330 AREA 25 03330
005667 1 03340 K1 - 1 03340
005670 1 03350 K2 - 1 03350
005671 1 03360 K3 - 1 03360
005711 20 03370 K4 - 16 03370
005715 4 03380 K5 - 4 03380
005717 2 03390 K6 - 2 03390
005723 00-0 03400 ID1 +4 _00-0_ 03400
005727 0030 03410 ID2 +4 _0030_ 03410
005733 01-0 03420 ID3 +4 _01-0_ 03420
005737 0130 03430 ID4 +4 _0130_ 03430
005743 02-0 03440 ID5 +4 _02-0_ 03440
005747 0230 03450 ID6 +4 _0230_ 03450
005753 03-0 03460 ID7 +4 _03-0_ 03460
005757 0330 03470 ID8 +4 _0330_ 03470
000147 03480 ID EQU 103 03480
005763 00000001 03490 BONE +4 1 03490
005767 00003030 03500 BBIG +4 00000303030 03500
005773 00000007 03510 B7 +4 7 03510
005777 00000020 03520 B16 +4 00000002020 03520
006004 3000000031 03530 +5 0300000000031 03530
006007 006040 03540 PRIE +3 PRINT 03540
006014 3000000031 03550 +5 0300000000031 03550
006017 005073 03560 PUIE +3 PFCI 03560
006024 3000000031 03570 +5 0300000000031 03570
006027 006057 03580 +3 CLONE 03580
006034 3000000031 03590 +5 0300000000031 03590
006037 006071 03600 CLIE +3 CLTWO 03600
* 006040 3000001160 03610 PRINT JC 9,48 03610
006045 4000407162 03620 XF 040,0716162,0,0 03620
* 006052 3000040000 03630 JC 256 03630
* 006057 3000001260 03640 CLONE JC 10,48 03640
* 006064 3000050000 03650 JC 320 03650
* 006071 3000001360 03660 CLTWO JC 11,48 03660
* 006076 3000051000 03670 JC 328 03670
006200 03680 ORIG $,64 03680
006200 03690 PUABN EQU $ 03690
006217 PCH ABN) 03700 +16 _ PCH ABN) _ 03700 N
006237 J2< X1< X2 03710 +16 _J2< X1< X2_ 03710
006257 < X3< X4< 03720 +16 _< X3X3< X4< _ 03720 4
006277 X5< X6< 03730 +16 _ X5< < X6< _ 03730
006300 03740 P1 EQU $ 03740
006317 P B P B P B 03750 +16 _ P B B P B P B _ 03750
006337 P B P B P B P B 03760 +16 _P B P B B P B P B _ 03760
006357 P B P B P B P B 03770 +16 _P B P B B P B P B _ 03770
006377 P B P B P B P B 03780 +16 _P B P B B P B P B _ 03780
006417 P B P B P B P B 03790 +16 _P B P B B P B P B _ 03790
006431 P B PPPPPP 03800 +10 _P B PPPPPPPP_ _ 03800
006500 03810 ORIG $,64 03810
006500 03820 P2 EQU $ 03820
006517 P B P B P B 03830 +16 _ P B B P B P B _ 03830
006537 P B P B P B P B 03840 +16 _P B P B B P B P B _ 03840
006557 P B P B P B P B 03850 +16 _P B P B B P B P B _ 03850
006577 P B P B P B P B 03860 +16 _P B P B B P B P B _ 03860
006617 P B P B P B P B 03870 +16 _P B P B B P B P B _ 03870
006631 P B BBBBBB 03880 +10 _P B BBBBBBBB_ _ 03880
006700 03890 ORIG $,64 03890
006700 03900 R1 EQU $ 03900
006700 132 03910 AREA 90 03910
007100 03920 R2 EQU R1+128 03920
007100 03930 ORIG $,64 03930
007100 03940 LOERR EQU $ _ 03940
007117 LOCKOUT PROCESSO 03950 +16 _LOCKOUTUT PROCESSO_ 03950 S
007137 R ERROR PUNCH 03960 +16 _R ERROROR PUNCH _ 03960 C
007157 ORDER 03970 +16 _ORDER _ 03970
007177 03980 +16 _ _ 03980
007200 03990 ORIG $,64 03990
007200 04000 RBAER EQU $ 04000
007217 ADVANCE READ BAS 04010 +16 _ADVANCECE READ BAS_ 04010 B
007237 E ADDRESS ERROR 04020 +16 _E ADDRERESS ERROR _ 04020 O
007257 PUNCH ORDER 04030 +16 _ PUNCHCH ORDER _ 04030
007277 04040 +16 _ _ 04040
007300 04050 ORIG $,64 04050
007300 04060 PBAER EQU $ 04060
007317 ADVANCE PUNCH BA 04070 +16 _ADVANCECE PUNCH BA_ 04070
007337 SE ADDRESS ERROR 04080 +16 _SE ADDRDRESS ERROR_ 04080 R
007357 PUNCH ORDER 04090 +16 _ PUNCNCH ORDER _ 04090 R
007377 04100 +16 _ _ 04100
007400 04110 ORIG $,64 _ 04110
007400 04120 IIERR EQU $ 04120
007417 INHIBIT INTERRUP 04130 +16 _INHIBITIT INTERRUP_ 04130 R
007437 T ERROR PUNCH 04140 +16 _T ERROROR PUNCH _ 04140 C
007457 ORDRR 04150 +16 _ORDRR _ 04150
007477 04160 +16 _ _ 04160
007500 04170 ORIG $,64 04170
007500 04180 TRERR EQU $ 04180
007517 COMPZRISON ERROR 04190 +16 _COMPZRIRISON ERROR_ 04190 R
007537 PUNCH ORDER 04200 +16 _ PUNCNCH ORDER _ 04200 R
007557 04210 +16 _ _ 04210
007577 04220 +16 _ _ 04220
3000250000 04230 END START 04230
{-- tape mark --}
023229 C151 ROMP CODEDIT SOURCE - T3834394-15
002500 00101 T150 BEGIN 02500 ROMP 00101
*LOAD 0700,TAPAPE,R,PRELD E
* 002500 3007010660 * JD 070106 *
* 002505 3000250000 * J $-5 *
SEGMENT-ID T151 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 T152 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 T153 3000136300 * SEGJP $ *
002500 001011 ORIG 02500 001011
002500 5600264110 00102 START BA1 IEC,8 ROMP 00102
002505 5200050710 00103 SA1 0507,8 CLASS 1 INTERRUPT ROMP 00103
002512 2600007710 001031 PD 63,8 ROMP 001031
002517 2000004022 00104 FT 32,18 ROMP 00104
002524 2000301720 00105 FT BAD,16 ROMP 00105
* 002531 3000000760 00106 JC 07,48 ROMP 00106
002536 2400271721 00107 TFI GOOD ROMP 00107
* 002543 3000007060 00108 JC 070,48 ROMP 00108
002550 2400275721 00109 TFI GOOD+32 2 ROMP 00109
* 002555 3000007760 00110 JC 077,48 ROMP 00110
002562 2600007710 00111 RERUN PD 63,8 ROMP 00111
002567 4400007701 00112 SC 63,1 ROMP 00112
002574 4400262460 00113 SC STOP+4,4,48 ROMP 00113
002601 5760301601 00114 BA1 BAD-1,1,1,7 ROMP 00114
002606 5760271621 001141 BA2 GOOD-1,1,1,7 ROMP 001141
002613 5200007321 001142 SA2 59,1 ROMP 001142
* 002620 3140000060 00115 STOP JC 0,48,6 ROMP 00115
* 002625 3000257400 00116 JC $-25,0 ROMP 00116
* 002632 3000000036 00117 JC 0,30 ROMP 00117
002641 002642 00118 IEC +3 INT ROMP 00118
002642 6000007701 00201 INT AC 63,1 ROMP 00201
002647 4400262440 00202 SC STOP+4,3,32 ROMP 00202
002654 3400007601 00203 CC 62,1 ROMP 00203
* 002661 3000050043 00204 JC 0500,35 5 ROMP 00204
002666 2000256216 00205 FT RERUN,1414 ROMP 00205
002673 4400262420 00206 SC STOP+4,1,16 ROMP 00206
* 002700 3000271262 002061 JC FIX1,50 0 SSI SET, DO NOT STOP ROMP 002061
* 002705 3000262036 00207 JC STOP,30 0 ROMP 00207
* 002712 3000256236 00208 FIX1 JC RERUN,3030 00208
002717 002080GOOD EQU $ ROMP 002080
002726 0003050611121417 00209 +8 0000305050611121417 ROMP 00209 4
002736 2122242730333536 00210 +8 0212224242730333536 ROMP 00210 5
002746 4142444750535556 00211 +8 0414244444750535556 ROMP 00211 5
002756 6063656671727477 00212 +8 0606365656671727477 ROMP 00212 4
002766 0102040710131516 00213 +8 0010204040710131516 ROMP 00213 5
002776 2023252631323437 00214 +8 0202325252631323437 ROMP 00214 4
003006 4043454651525457 00215 +8 0404345454651525457 ROMP 00215 4
003016 6162646770737576 00216 +8 0616264646770737576 ROMP 00216 5
003017 100 00217 BAD AREA 64 ROMP 00217
3000250000 00218 END START ROMP 00218
{-- tape mark --}
{-- tape mark --}
{-- tape mark --}