000001 C011 MERET CODEDIT SOURCE 04/65 -C B T3834394-011@
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 A T3834394-04
001400 00010 T040 BEGIN 01400 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T041 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 T042 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 T043 3000136300 * SEGJP $ *
001400 00020 ORIG 01400 RARE 00020
* 001400 3000140520 00030 WAIT JHJ TYPE RARE 00030
001405 5601571110 00040 TYPE BA1 IE6T,8 RARE 00040
001412 5200046710 00050 SA1 0467,8 RARE 00050
001417 2600034710 00060 PD 0347,8 RARE 00060
001424 2001060070 00070 FT RA,56 RARE 00070
001431 4400034020 00080 SC 0340,16 6 RARE 00080
001436 4400034577 00090 SC 0345,07777 RARE 00090
001443 4140651000 00100 XF 065,0100000,0,6 RARE 00100
001450 4140001000 00110 XF 0,01000,0,0,6 RARE 00110
* 001455 3001550053 00120 JC HDRM,43 3 TRE-HALF DRUM RARE 00120
001462 4140407777 00130 XF 32,0777777,0,6 RARE 00130
001467 4400034401 00140 SC 0344,1 RARE 00140
001474 4140652000 00150 XF 065,0200000,0,6 RARE 00150
001501 3401060277 00160 CC RA+2,07777 RARE 00160
* 001506 3001553642 00170 JE F2DRM RARE 00170
001513 3401060237 00180 CC RA+2,03737 RARE 00180
* 001520 3000153242 00190 JE $+10 RARE 00190
* 001525 3001553660 00200 JD F2DRM M + START FOR FASTRAND 2 RARE 00200
001532 4140407777 00210 XF 32,0777777,0,6 RARE 00210
* 001537 3000154425 00220 START JC $+5,21 RARE 00220
001544 2601360001 00230 PD LIST,1 RARE 00230
001551 2001360120 00240 FT LIST+1,1,16 RARE 00240
001556 2000167722 00250 FT 959,18 RARE 00250
001563 2401360001 00260 TFR LIST RARE 00260
001570 5401017774 00270 LP U,074 RARE 00270
* 001575 3000161462 00280 JC STB,50 RARE 00280
* 001602 3000164023 00290 STA JC SEQ,19 RARE 00290
* 001607 3000162623 00300 JC $+15,19 9 RARE 00300
* 001614 3000164026 00310 STB JC SEQ,22 RARE 00310
* 001621 3000162626 00320 JC $+5,22 RARE 00320
* 001626 3000164063 00330 JC $+10,51 1 RARE 00330
* 001633 3000165227 00340 JC $+15,23 3 RARE 00340
* 001640 3000164524 00350 SEQ JC $+5,20 RARE 00350
001645 2601020203 00360 PD S,3 RARE 00360
001652 5601052210 00370 NN BA1 IE6,8 RARE 00370
001657 5200046710 00380 SA1 0467,8 RARE 00380
001664 4401020200 00390 SC S,0 RARE 00390
001671 5601051210 00400 BA1 IE0,8 RARE 00400
001676 5200040710 00410 SA1 0407,8 RARE 00410
001703 5601015100 00420 BA1 IE2,16 RARE 00420
001710 5200051700 00430 SA1 0517,16 6 RARE 00430
001715 2600005310 00440 PD X2,8 RARE 00440
001722 2600007700 00450 N PD 077,16 RARE 00450
001727 2600005704 00460 PD X3,4 RARE 00460
001734 4401020200 00470 SC S,0 RARE 00470
* 001741 3000240367 00480 JC FIX,55 RARE 00480
* 001746 1000353600 00490 JR GENRX RARE 00490
001753 2000410111 00500 TRACK FT H0,9 RARE 00500
001760 2001020012 00510 FT T,10 RARE 00510
001765 2000000013 00520 FT 0,11 RARE 00520
001772 4400200303 00530 SET SC CC+4,03 3 RARE 00530
001777 3461020703 00540 CC CC TS02-6,0,03,3 RARE 00540
* 002004 3020000042 00550 JE 0,1 RARE 00550
002011 3400200314 00560 CC CC+4,01414 RARE 00560
* 002016 3000203042 00570 JE RST RARE 00570
* 002023 3000204200 00580 J I RARE 00580
002030 4400200303 00590 RST SC CC+4,03 3 RARE 00590
* 002035 3000204700 00600 J UU RARE 00600
002042 6000200301 00610 I AC CC+4,1 RARE 00610
002047 6000004712 00620 UU AC 047,10 RARE 00620
* 002054 3000177700 00630 J CC RARE 00630
002061 2000424511 00640 SB FT IH0,9 RARE 00640
002066 6000005701 00650 AC 057,1 RARE 00650
* 002073 3000177200 00660 J SET RARE 00660
* 002100 3000211265 00670 TT JC OUT,53 RARE 00670
* 002105 3000213622 00680 JC HEAD,18 8 RARE 00680
002112 4601020271 00690 OUT BT S,57 RARE 00690
002117 5601056701 00700 BA1 UUU,1 RARE 00700
002124 5201017701 00710 SA1 U,1 RARE 00710
* 002131 3000216225 00720 JC SUD,21 RARE 00720
002136 2000410111 00730 HEAD FT H0,9 RARE 00730
002143 2001020112 00740 FT H,10 RARE 00740
002150 6000005701 00750 AC 057,1 RARE 00750
* 002155 3000177200 00760 J SET RARE 00760
002162 3401020040 00770 SUD CC T,040 RARE 00770
* 002167 3000220141 00780 JC TU,33 RARE 00780
* 002174 3000223200 00790 J SU RARE 00790
002201 5601021501 00800 TU BA1 TS02,1 RARE 00800
002206 5400001701 00810 LP 017,1 RARE 00810
002213 3400001701 00820 CC 017,1 RARE 00820
* 002220 3000223243 00830 JU SU RARE 00830
002225 6001017701 00840 AC U,1 RARE 00840
002232 3401020140 00850 SU CC H,32 RARE 00850
* 002237 3000237641 00860 JC DRMA,33 3 RARE 00860
* 002244 3000240362 00870 JC FIX,50 RARE 00870
* 002251 3000153700 00880 J START RARE 00880
002256 5601020103 00890 DA BA1 H,3 RARE 00890
002263 5400001503 00900 LP 13,3 RARE 00900
002270 7000717743 00910 CB1 ETA,3 RARE 00910
* 002275 3000277542 00920 JE OVF RARE 00920
002302 6001020101 00930 AC H,1 RARE 00930
002307 1401020140 00940 LC H,32 RARE 00940
* 002314 3000232643 00950 JU $+10 RARE 00950
002321 6001020140 00960 AC H,32 RARE 00960
* 002326 3000172200 00970 J N RARE 00970
* 002333 3000225666 00980 DB JC DA,54 RARE 00980
002340 5601020103 00990 BA1 H,3 RARE 00990
002345 5400001503 01000 LP 13,3 RARE 01000
002352 7000720243 01010 CB1 ETB,3 RARE 01010
* 002357 3000277542 01020 JE OVF RARE 01020
002364 6001020101 01030 AC H,1 RARE 01030
* 002371 3000172200 01040 J N RARE 01040
* 002376 3000153762 01050 DRMA JC START,5050 RARE 01050
002403 2001060070 01060 FIX FT RA,56 RARE 01060
* 002410 3000242266 01070 JC $+10,54 4 RARE 01070
002415 6401020140 01080 LS H,32 RARE 01080
002422 4400034020 01090 SC 0340,02020 RARE 01090
002427 4601020271 01100 BT S,57 RARE 01100
* 002434 1001560440 01110 SWD JR MDFY,32 2 RARE 01110
002441 4140652000 01120 R1 XF 065,0200000,0,6 RARE 01120
* 002446 1000253300 01130 JR TEST RARE 01130
* 002453 3000233367 01140 JC DB,55 RARE 01140
* 002460 1000247500 01150 JR CON RARE 01150
* 002465 3000153700 01160 J START RARE 01160
* 002472 3000000000 01170 CON J 0 RARE 01170
002477 5601021304 01180 BA1 TS02-2,4,4 RARE 01180
002504 5201021102 01190 SA1 TS02-4,2,2 RARE 01190
002511 5200004104 01200 SA1 041,4 RARE 01200
002516 5201021322 01210 SA2 TS02-2,2,2 RARE 01210
* 002523 3000247200 01220 J CON RARE 01220
* 002530 3000000000 01230 TEST J 0 RARE 01230
002535 2600006710 01240 PD 067,8 CLEAR IR 4+5 RARE 01240
002542 2000100015 01250 FT 512,13 RARE 01250
002547 5701060405 01260 COMP BA1 RA+4,5,4,4 RARE 01260
002554 7001020245 01270 CB1 GENA+4,5,5 RARE 01270
* 002561 3000263143 01280 JU ER RARE 01280
002566 3501060700 01290 CC RA+7,0,4,4 RARE 01290
* 002573 3000263143 01300 JU ER RARE 01300
002600 6000006310 01310 INC AC 063,8 RARE 01310
002605 7400006315 01320 CT 063,13 RARE 01320
* 002612 3000275642 01330 JE ADGD RARE 01330
002617 6001020201 01340 AC GENA+4,1,1 RARE 01340
* 002624 3000254700 01350 J COMP RARE 01350
002631 5601020510 01360 ER BA1 GENA+7,8,8 RARE 01360
* 002636 3000265067 01370 JC $+10,55 5 RARE 01370
* 002643 3000270100 01380 J NOOF RARE 01380
002650 3501060000 01390 CC RA,0,4 RARE 01390
* 002655 3000270143 01400 JU NOOF RARE 01400
002662 5601020225 01410 BA2 GENA+4,5,5 RARE 01410
002667 5241360425 01420 SA2 LIST+4,5,5,2 RARE 01420
002674 6000005305 01430 AC X2,5 RARE 01430
002701 5200016710 01440 NOOF SA1 0167,8 RARE 01440
002706 2001031716 01450 FT GEN+1,1414 RARE 01450
* 002713 1000375700 01460 JR EDIT RARE 01460
002720 5701060710 01470 BA1 RA+7,8,4,4 RARE 01470
002725 2001034516 01480 FT READ+1,1,14 RARE 01480
* 002732 1000375700 01490 JR EDIT RARE 01490
* 002737 1000365600 01500 JR PRINT RARE 01500
* 002744 3000260000 01510 J INC RARE 01510
* 002751 3000253000 01520 J TEST RARE 01520
002756 5601056650 01530 ADGD BD1 DEC1,8 RARE 01530
002763 6201040610 01540 AM1 GOOD,8 RARE 01540
* 002770 3000253000 01550 J TEST RARE 01550
002775 2601020203 01560 OVF PD S,3 RARE 01560
003002 5401017774 01570 LP U,074 RARE 01570
003007 4401020130 01580 SC H,030 RARE 01580
* 003014 3000302666 01590 JC $+10,54 4 RARE 01590
003021 4401020170 01600 SC H,070 RARE 01600
003026 4601020271 01610 BT S,57 RARE 01610
003033 4140616000 01620 R2 XF 061,0600000,0,6 RARE 01620
003040 5600735004 01630 BA1 MS3,4 RARE 01630
003045 5201030304 01640 SA1 PRNT+3,4,4 RARE 01640
* 003052 1000253300 01650 JR TEST RARE 01650
003057 2601030304 01660 PD PRNT+3,4,4 RARE 01660
003064 2600034703 01670 PD 0347,3 RARE 01670
* 003071 3000310366 01680 JC $+10,54 4 RARE 01680
003076 4400034640 01690 SC 0346,04040 RARE 01690
003103 4140616000 01700 R3 XF 061,0600000,0,6 RARE 01700
003110 1400034620 01710 LC 0346,16 6 RARE 01710
* 003115 3000314642 01720 JE ANAL RARE 01720
003122 6000034610 01730 AC 0346,8 RARE 01730
003127 7601054170 01740 AT B512,56 6 RARE 01740
003134 4400034020 01750 SC 0340,16 6 RARE 01750
* 003141 3000310300 01760 J R3 RARE 01760
003146 2600006300 01770 ANAL PD X4,16 RARE 01770
003153 2000300014 01780 FT 1536,X4 4 RARE 01780
003160 5601054625 01790 BA2 ONES,5 RARE 01790
003165 5641360405 01800 NXT BA1 LIST+4,5,5,2 RARE 01800
003172 7001030545 01810 CB1 PRNT+5,5,5 RARE 01810
* 003177 3000326642 01820 JE LAST RARE 01820
003204 7061060445 01830 LOOK CB1 RA+4,5,3,3 RARE 01830
* 003211 3000324242 01840 JE PAD RARE 01840
003216 6000005710 01850 AC X3,8 RARE 01850
003223 7400005714 01860 CT X3,X4 RARE 01860
* 003230 3000341342 01870 JE MS RARE 01870
* 003235 3000320400 01880 J LOOK RARE 01880
003242 5261060425 01890 PAD SA2 RA+4,5,3,3 RARE 01890
003247 2600005704 01900 PD X3,4 RARE 01900
003254 6000005305 01910 AC X2,5 RARE 01910
* 003261 3000316500 01920 J NXT RARE 01920
003266 7061060465 01930 LAST CB2 RA+4,5,3,3 RARE 01930
* 003273 1000346143 01940 JR ES,35 RARE 01940
003300 6000005710 01950 AC X3,8 RARE 01950
003305 7400005714 01960 CT X3,X4 RARE 01960
* 003312 3000332442 01970 JE $+10 RARE 01970
* 003317 3000326600 01980 J LAST RARE 01980
003324 5600722117 01990 BA1 EA,15 RARE 01990
* 003331 3000335566 02000 JC $+20,54 4 SI1-DRUM A RARE 02000
003336 4400162040 02010 SC STB+4,3232 RARE 02010
003343 5600724017 02020 BA1 EB,15 RARE 02020
* 003350 3000336200 02030 J $+10 RARE 02030
003355 4400160640 02040 SC STA+4,3232 RARE 02040
003362 5200541617 02050 SA1 TANK+14,4,15 RARE 02050
* 003367 1000702200 02060 JR PRTLN RARE 02060
003374 4400020736 02070 SC 0207,30 0 RARE 02070
003401 4000640000 02080 XF 064,0,0,0,0 RARE 02080
* 003406 3000153700 02090 JC START RARE 02090
003413 2000543416 02100 MS FT TANK+28,8,14 RARE 02100
* 003420 1000375700 02110 JR EDIT RARE 02110
003425 2000540020 02120 FT TANK,16 6 RARE 02120
003432 2000004222 02130 FT 34,18 RARE 02130
003437 2400724101 02140 TFR MS1 RARE 02140
* 003444 1000702200 02150 JR PRTLN RARE 02150
* 003451 3000324700 02160 J PAD+5 RARE 02160
* 003456 3000345600 02170 ES J $ RARE 02170
003463 5661060405 02180 BA1 RA+4,5,3,3 RARE 02180
003470 2000543416 02190 FT TANK+28,8,14 RARE 02190
* 003475 1000375700 02200 JR EDIT RARE 02200
003502 2000540020 02210 FT TANK,16 6 RARE 02210
003507 2000004222 02220 FT 34,18 RARE 02220
003514 2400730301 02230 TFR MS2 RARE 02230
* 003521 1000702200 02240 JR PRTLN RARE 02240
* 003526 3000345600 02250 J ES RARE 02250
* 003533 3000000000 02260 GENRX J 0 RARE 02260
* 003540 3200357677 02270 GT JL PF,077 RARE 02270
003545 4400354477 02280 SC GT+4,07777 RARE 02280
003552 5601056650 02290 BD1 DEC1,8 RARE 02290
003557 6201057710 02300 AM1 TS01,8 RARE 02300
003564 5601057710 02310 BA1 TS01,8 RARE 02310
003571 5201021510 02320 SA1 TS02,8 RARE 02320
003576 2600012730 02330 PF PD0 87,8 RARE 02330
003603 2000050625 02340 FT 326,21 RARE 02340
003610 5601021570 02350 BD2 TS02,8 RARE 02350
003615 5000000002 02360 MPN ,2 RARE 02360
003622 5600000730 02370 BA2 7,8 RARE 02370
003627 6600003750 02380 SD1 31,8 RARE 02380
003634 5400001717 02390 LP 15,15 RARE 02390
003641 5201021510 02400 SA1 TS02,8 RARE 02400
* 003646 3000353300 02410 J GENRX RARE 02410
* 003653 3000000000 02420 PRINT J 0 RARE 02420
003660 4400020702 02430 DMP SC 0207,2 RARE 02430
003665 2001030040 02440 FT PRNT,32 2 RARE 02440
003672 4000620000 02450 P1 XF 062,0000000,0,0 RARE 02450
003677 5601055670 02460 BD2 SGOOD,8 8 RARE 02460
003704 5201040630 02470 SA2 GOOD,8 RARE 02470
* 003711 3000372364 02480 TST2 JC BIG,52 RARE 02480
* 003716 3000365300 02490 TST1 J PRINT RARE 02490
003723 2600017710 02500 BIG PD T31,8 RARE 02500
003730 2001060036 02510 FT RA,30 RARE 02510
003735 2001160037 02520 FT RA+512,3,31 RARE 02520
* 003742 1000561500 02530 JR DUMP RARE 02530
* 003747 3000371600 02540 J TST1 RARE 02540
* 003754 3000000000 02550 EDIT J 0 RARE 02550
003761 5201053210 02560 SA1 MEM+7,8 8 RARE 02560
003766 2600007704 02570 PD 077,4 RARE 02570
003773 4400407310 02580 SC LP+4,8 RARE 02580
004000 5761052301 02590 Q BA1 MEM,1,7 7 RARE 02590
004005 5400001770 02600 LP 017,070 0 RARE 02600
004012 1600001753 02610 BC1 017,3 RARE 02610
004017 6000001703 02620 AC 017,3 RARE 02620
004024 5340000001 02630 SA1 0,1,6 RARE 02630
004031 5761052301 02640 BA1 MEM,1,7 7 RARE 02640
004036 5400001707 02650 LP 017,07 RARE 02650
004043 6000001703 02660 AC 017,3 RARE 02660
004050 5340000101 02670 SA1 1,1,6 RARE 02670
004055 6000007302 02680 AC 073,2 RARE 02680
004062 6000007701 02690 AC 077,1 RARE 02690
* 004067 3200400010 02700 LP JL Q,8 RARE 02700
* 004074 3000375400 02710 J EDIT RARE 02710
004101 4440000000 02720 H0 SC 0,0,2 RARE 02720
* 004106 3000206100 02730 J SB RARE 02730
004113 4440000001 02740 H1 SC 0,1,2 RARE 02740
* 004120 3000206100 02750 J SB RARE 02750
004125 4440000002 02760 H2 SC 0,2,2 RARE 02760
* 004132 3000206100 02770 J SB RARE 02770
004137 4440000003 02780 H3 SC 0,3,2 RARE 02780
* 004144 3000206100 02790 J SB RARE 02790
004151 4440000004 02800 H4 SC 0,4,2 RARE 02800
* 004156 3000206100 02810 J SB RARE 02810
004163 4440000005 02820 H5 SC 0,5,2 RARE 02820
* 004170 3000206100 02830 J SB RARE 02830
004175 4440000006 02840 H6 SC 0,6,2 RARE 02840
* 004202 3000206100 02850 J SB RARE 02850
004207 4440000007 02860 H7 SC 0,7,2 RARE 02860
* 004214 3000206100 02870 J SB RARE 02870
004221 4440000000 02880 H8 SC 0,0,2 RARE 02880
* 004226 3000206100 02890 J SB RARE 02890
004233 4440000002 02900 H9 SC 0,2,2 RARE 02900
* 004240 3000206100 02910 J SB RARE 02910
004245 6040000000 02920 IH0 AC 0,0,2 RARE 02920
* 004252 3000210000 02930 J TT RARE 02930
004257 6040000010 02940 IH1 AC 0,010,2 2 RARE 02940
* 004264 3000210000 02950 J TT RARE 02950
004271 6040000020 02960 IH2 AC 0,020,2 2 RARE 02960
* 004276 3000210000 02970 J TT RARE 02970
004303 6040000030 02980 IH3 AC 0,030,2 2 RARE 02980
* 004310 3000210000 02990 J TT RARE 02990
004315 6040000040 03000 IH4 AC 0,040,2 2 RARE 03000
* 004322 3000210000 03010 J TT RARE 03010
004327 6040000050 03020 IH5 AC 0,050,2 2 RARE 03020
* 004334 3000210000 03030 J TT RARE 03030
004341 6040000060 03040 IH6 AC 0,060,2 2 RARE 03040
* 004346 3000210000 03050 J TT RARE 03050
004353 6040000070 03060 IH7 AC 0,070,2 2 RARE 03060
* 004360 3000210000 03070 J TT RARE 03070
004365 6040000000 03080 IH8 AC 0,0,2 RARE 03080
* 004372 3000210000 03090 J TT RARE 03090
004377 6040000070 03100 IH9 AC 0,070,2 2 RARE 03100
* 004404 3000210000 03110 J TT RARE 03110
* 004411 3000441600 03120 IPT0 J RST0 RARE 03120
004416 4000407777 03130 RST0 XF 040,0777777,0,0 RARE 03130
004423 5601053503 03140 BA1 FIVE,3 RARE 03140
004430 7200040343 03150 SB1 0403,3 RARE 03150
* 004435 3000040000 03160 J 0400 RARE 03160
004442 5600522514 03170 IPT6 BA1 H33,12 RARE 03170
004447 5200532314 03180 SA1 I6+19,1212 RARE 03180
004454 4140000001 03190 XF 00,0000101,0,6 RARE 03190
* 004461 1000473153 03200 JR D1,43 RARE 03200
004466 4140000002 03210 XF 00,0000202,0,6 RARE 03210
* 004473 1000475053 03220 JR D2,43 RARE 03220
004500 4140000004 03230 XF 00,0000404,0,6 RARE 03230
* 004505 1000476753 03240 JR D3,43 RARE 03240
004512 4140000010 03250 XF 00,0001010,0,6 RARE 03250
* 004517 1000500653 03260 JR D4,43 RARE 03260
004524 4140000020 03270 XF 00,0002020,0,6 RARE 03270
* 004531 1000502553 03280 JR D5,43 RARE 03280
004536 4140000040 03290 XF 00,0004040,0,6 RARE 03290
* 004543 1000504453 03300 JR D6,43 RARE 03300
004550 4140000100 03310 XF 00,0010000,0,6 RARE 03310
* 004555 1000506353 03320 JR D7,43 RARE 03320
004562 4140000200 03330 XF 00,0020000,0,6 RARE 03330
* 004567 1000510253 03340 JR D8,43 RARE 03340
004574 4140000400 03350 XF 00,0040000,0,6 RARE 03350
* 004601 1000512153 03360 JR D9,43 RARE 03360
004606 4140001000 03370 XF 00,0100000,0,6 RARE 03370
* 004613 1000514053 03380 JR D10,43 RARE 03380
004620 4140002000 03390 XF 00,0200000,0,6 RARE 03390
* 004625 1000515753 03400 JR D11,43 RARE 03400
004632 4140004000 03410 XF 00,0400000,0,6 RARE 03410
* 004637 1000517653 03420 JR D12,43 RARE 03420
004644 4140407777 03430 XF 040,0777777,0,6 RARE 03430
004651 2000530040 03440 FT I6,32 RARE 03440
004656 4400020702 03450 SC 0207,2 RARE 03450
004663 4000620400 03460 XF 062,0040400,0,0 RARE 03460
004670 3400532104 03470 CC I6+17,0404 RARE 03470
* 004675 3000470743 03480 JU CY RARE 03480
* 004702 3000777760 03490 NR JD 07777 RARE 03490
004707 5601053503 03500 CY BA1 FIVE,3 RARE 03500
004714 7200046343 03510 SB1 0463,3 RARE 03510
* 004721 3000046000 03520 J 0460, RARE 03520
* 004726 3000000000 03530 D1 J 0 RARE 03530
004733 4400531004 03540 SC I6+8,04 4 RARE 03540
* 004740 3000472600 03550 J D1 RARE 03550
* 004745 3000000000 03560 D2 J 0 RARE 03560
004752 4400531104 03570 SC I6+9,04 4 RARE 03570
* 004757 3000474500 03580 J D2 RARE 03580
* 004764 3000000000 03590 D3 J 0 RARE 03590
004771 4400531204 03600 SC I6+10,0404 RARE 03600
* 004776 3000476400 03610 J D3 RARE 03610
* 005003 3000000000 03620 D4 J 0 RARE 03620
005010 4400531304 03630 SC I6+11,0404 RARE 03630
* 005015 3000500300 03640 J D4 RARE 03640
* 005022 3000000000 03650 D5 J 0 RARE 03650
005027 4400531404 03660 SC I6+12,0404 RARE 03660
* 005034 3000502200 03670 J D5 RARE 03670
* 005041 3000000000 03680 D6 J 0 RARE 03680
005046 4400531504 03690 SC I6+13,0404 RARE 03690
* 005053 3000504100 03700 J D6 RARE 03700
* 005060 3000000000 03710 D7 J 0 RARE 03710
005065 4400531604 03720 SC I6+14,0404 RARE 03720
* 005072 3000506000 03730 J D7 RARE 03730
* 005077 3000000000 03740 D8 J 0 RARE 03740
005104 4400531704 03750 SC I6+15,0404 RARE 03750
* 005111 3000507700 03760 J D8 RARE 03760
* 005116 3000000000 03770 D9 J 0 RARE 03770
005123 4400532004 03780 SC I6+16,0404 RARE 03780
* 005130 3000511600 03790 J D9 RARE 03790
* 005135 3000000000 03800 D10 J 0 RARE 03800
005142 4400532104 03810 SC I6+17,0404 RARE 03810
* 005147 3000513500 03820 J D10 RARE 03820
* 005154 3000000000 03830 D11 J 0 RARE 03830
005161 4400532204 03840 SC I6+18,0404 RARE 03840
* 005166 3000515400 03850 J D11 RARE 03850
* 005173 3000000000 03860 D12 J 0 RARE 03860
005200 4400532304 03870 SC I6+19,0404 RARE 03870
* 005205 3000517300 03880 J D12 RARE 03880
005221 0303030303030303 03890 +8 0030303030303030303 RARE 03890 3
005225 03030303 03900 H33 +4 00303030303 RARE 03900
005300 03910 ORIG $,64 RARE 03910
005300 00 03920 I6 +1 0 RARE 03920
005307 IPT6 03930 +7 _ IPT6 6 _ RARE 03930
005310 70 03940 AREA 56,B,0 RARE 03940
000047 03950 X1 EQU 39 RARE 03950
000053 03960 X2 EQU X1+4 RARE 03960
000057 03970 X3 EQU X2+4 RARE 03970
000063 03980 X4 EQU X3+4 RARE 03980
000067 03990 X5 EQU X4+4 RARE 03990
000073 04000 X6 EQU X5+4 RARE 04000
000077 04010 X7 EQU X6+4 RARE 04010
000103 04020 T16 EQU 0103 RARE 04020
000107 04030 T17 EQU T16+4 RARE 04030
000113 04040 T18 EQU T17+4 RARE 04040
000203 04050 T32 EQU 0203 RARE 04050
000207 04060 LA EQU 0207 RARE 04060
000177 04070 T31 EQU T32-4 RARE 04070
000173 04080 T30 EQU T31-4 RARE 04080
005400 04090 ORIG $,64 RARE 04090
005400 200 04100 TANK AREA 128,,0 RARE 04100
* 005600 1000561500 04110 JR DUMP RARE 04110
* 005605 3000560020 04120 JC $-5,020 0 RARE 04120
* 005612 3000000000 04130 DUMP J 0 RARE 04130
* 005617 3001013051 04140 JC BWS+052121,41 RARE 04140
* 005624 3000563133 04150 JC $+5,27 RARE 04150
005631 4200735421 04160 ST WST17,T1T17 RARE 04160
005636 4200736022 04170 ST WST18,T1T18 RARE 04170
005643 4200740523 04180 ST WS,19 RARE 04180
005650 2000000021 04190 FT 0,T17 RARE 04190
005655 2000052022 04200 FT 0520,T1818 SET NO. CHAR RARE 04200
005662 2400740741 04210 TTR BWS RARE 04210
005667 5600736010 04220 BA1 WST18,8 8 RARE 04220
005674 5200752210 04230 SA1 BWS+011313,8 RARE 04230
005701 5600740504 04240 BA1 WS,4 RARE 04240
005706 5200752604 04250 SA1 BWS+011717,4 RARE 04250
005713 2600007700 04260 PD 077,16 CLEAR INDEX REGS RARE 04260
005720 2600005700 04270 PD X3,16 RARE 04270
005725 4400020702 04280 SC LA,2 SET UP LINE ADV RARE 04280
005732 2000740711 04290 FT BWS,X1 SET BASE STOR IN X1 RARE 04290
005737 2000740715 04300 FT BWS,X5 RARE 04300
005744 4400625370 04310 SC CONV0+4,4,56 RARE 04310
005751 4400644300 04320 SC PR11+4,0,0 RARE 04320
005756 4400655170 04330 SC PR4+4,5656 RARE 04330
005763 2000540012 04340 FT TANK,X2 2 RARE 04340
005770 2001012717 04350 D03 FT BWS+052020,X7 LIMIT OF TET RARE 04350
005775 7400007711 04360 CT X7,X1 TEST LIMIT RARE 04360
* 006002 3000604542 04370 JE D05 END TETS RARE 04370
* 006007 1000622600 04380 D04 JR CONV RARE 04380
* 006014 1000636500 04390 JR PRT RARE 04390
006021 2120001015 04400 FT 8,X5,X5 5 RARE 04400
006026 4200004715 04410 ST X1,X5 RARE 04410
006033 2100001014 04420 FT 8,X4,X4 4 RARE 04420
* 006040 3000577000 04430 J D03 RARE 04430
* 006045 1000702200 04440 D05 JR PRTLN CLEAR TANK RARE 04440
* 006052 3000607100 04450 J $+15 RARE 04450
006057 5600737010 04460 BA1 PAR,8 RARE 04460
006064 5200017710 04470 SA1 T31,8 RARE 04470
006071 2000540012 04480 FT TANK,X2 2 RARE 04480
006076 4600017311 04490 BT T30,X1 RARE 04490
006103 4200006311 04500 ST X4,X1 RARE 04500
006110 4400740600 04510 SC WS1,0 RARE 04510
006115 4400625300 04520 SC CONV0+4,4,0 RARE 04520
006122 4400644370 04530 SC PR11+4,5,56 RARE 04530
006127 7400017711 04540 D06 CT T31,X1 TEST LIMIT OF DUMP RARE 04540
* 006134 3000617241 04550 JG D07 RARE 04550
* 006141 1000622600 04560 JR CONV RARE 04560
* 006146 1000636500 04570 JR PRT RARE 04570
006153 4200006311 04580 ST X4,X1 RARE 04580
006160 4200005711 04590 ST X3,X1 RARE 04590
* 006165 3000612700 04600 J D06 RARE 04600
006172 2000540017 04610 D07 FT TANK,X7 7 RARE 04610
006177 7400007712 04620 CT X7,X2 RARE 04620
* 006204 3000665342 04630 JE EXIT RARE 04630
* 006211 1000702200 04640 JR PRTLN RARE 04640
* 006216 3000665300 04650 J EXIT RARE 04650
* 006223 3000000000 04660 CONV J 0 RARE 04660
006230 4200001714 04670 ST 15,X4 RARE 04670
* 006235 1000710400 04680 JR TBO CONVERT LOCATION RARE 04680
006242 5240000525 04690 SA2 5,5,X2 RARE 04690
* 006247 3000631700 04700 CONV0 J CON2 VAR LINE RARE 04700
006254 5620000304 04710 CON1 BA1 3,4,X1 RARE 04710
* 006261 1000710400 04720 JR TBO CONVERT CONTENT RARE 04720
006266 5240002130 04730 SA2 17,8,X2 2 RARE 04730
006273 5620000704 04740 BA1 7,4,X1 RARE 04740
* 006300 1000710400 04750 JR TBO RARE 04750
006305 5240003530 04760 SA2 29,8,X2 2 RARE 04760
* 006312 3000622300 04770 J CONV RARE 04770
006317 5620000405 04780 CON2 BA1 4,5,X1 RARE 04780
* 006324 1000710400 04790 JR TBO RARE 04790
006331 5240002132 04800 SA2 17,10,X2X2 RARE 04800
006336 5620001105 04810 BA1 9,5,X1 RARE 04810
* 006343 1000710400 04820 JR TBO RARE 04820
006350 5240003532 04830 SA2 29,10,X2X2 RARE 04830
* 006355 3000622300 04840 J CONV RARE 04840
* 006362 3000000000 04850 PRT J 0 RARE 04850
006367 2000554017 04860 FT TANK+96,6,X7 RARE 04860
006374 7400007712 04870 CT X7,X2 TEST TANK FULL RARE 04870
* 006401 3000642542 04880 JE PR1 RARE 04880
006406 2040004012 04890 FT 32,X2,X2X2 RARE 04890
006413 2020001211 04900 FT 10,X1,X1X1 RARE 04900
* 006420 3000636200 04910 J PRT RARE 04910
006425 2000540012 04920 PR1 FT TANK,X2 2 RARE 04920
* 006432 1000702200 04930 JR PRTLN RARE 04930
* 006437 3000636200 04940 PR11 J PRT VAR LINE RARE 04940
006444 2020001211 04950 FT 10,X1,X1X1 RARE 04950
006451 4400740601 04960 SC WS1,1 RARE 04960
006456 4200005711 04970 ST X3,X1 RARE 04970
006463 4400652010 04980 SC PR3+4,8 8 RARE 04980
006470 5637777705 04990 PR2 BA1 -1,5,X1 1 RARE 04990
006475 7060000445 05000 CB1 4,5,X3 RARE 05000
* 006502 3000661543 05010 JU PR5 RARE 05010
006507 2060000513 05020 FT 5,X3,X3 3 RARE 05020
* 006514 3200647000 05030 PR3 JL PR2,0 VAR LINE RARE 05030
006521 7400005737 05040 CT X3,T31 RARE 05040
* 006526 3000665344 05050 JS EXIT RARE 05050
006533 2020005011 05060 FT 40,X1,X1X1 RARE 05060
006540 4200005711 05070 ST X3,X1 RARE 05070
* 006545 3000646370 05080 PR4 JC PR2-5,5656 VAR LINE RARE 05080
006552 4400655100 05090 SC PR4+4,0 0 RARE 05090
006557 4400542141 05100 SC TANK+17,7,_*_ RARE 05100
006564 4400546141 05110 SC TANK+49,9,_*_ RARE 05110
006571 4400552141 05120 SC TANK+81,1,_*_ RARE 05120
006576 4400556141 05130 SC TANK+11313,_*_ RARE 05130
* 006603 1000702200 05140 JR PRTLN RARE 05140
* 006610 3000646300 05150 J PR2-5 RARE 05150
006615 4400655170 05160 PR5 SC PR4+4,5656 RARE 05160
006622 3400740601 05170 CC WS1,1 RARE 05170
* 006627 3000664142 05180 JE $+10 RARE 05180
006634 2020001211 05190 FT 10,X1,X1X1 RARE 05190
006641 4400740600 05200 SC WS1,0 RARE 05200
* 006646 3000636200 05210 J PRT RARE 05210
006653 5600740111 05220 EXIT BA1 END,9 RARE 05220
006660 5200541011 05230 SA1 TANK+8,9,9 RARE 05230
006665 5600017303 05240 BA1 T30,3 RARE 05240
* 006672 1000710400 05250 JR TBO RARE 05250
006677 5200542126 05260 SA2 TANK+17,7,6 RARE 05260
006704 5600017703 05270 BA1 T31,3 RARE 05270
* 006711 1000710400 05280 JR TBO RARE 05280
006716 5200543226 05290 SA2 TANK+26,6,6 RARE 05290
* 006723 1000702200 05300 JR PRTLN RARE 05300
006730 2000740721 05310 FT BWS,T17 7 RARE 05310
006735 2000010422 05320 FT 0104,T1818 RARE 05320
006742 2400000041 05330 TTR 0 RARE 05330
006747 2000752721 05340 FT BWS+012020,T17 RARE 05340
006754 2000040022 05350 FT 0400,T1818 RARE 05350
006761 2400012041 05360 TTR 0120 RARE 05360
006766 4600740523 05370 BT WS,19 RARE 05370
006773 4600735421 05380 BT WST17,T1T17 RARE 05380
007000 4600736022 05390 BT WST18,T1T18 RARE 05390
* 007005 3001013052 05400 JC BWS+052121,42 RARE 05400
* 007012 3000561200 05410 J DUMP RARE 05410
* 007017 3000000000 05420 PRTLN J 0 RARE 05420
* 007024 3000703131 05430 JC $+5,25 RARE 05430
007031 2000540040 05440 FT TANK,T3232 SET PRINT BASE RARE 05440
007036 4000407777 05450 XF 32,0777777,0,0 RARE 05450
007043 4000620000 05460 XF 062,0,0,0,0 RARE 05460
007050 2000540120 05470 CPRN FT TANK+1,T,T16 RARE 05470
007055 2600540001 05480 PD TANK,1 RARE 05480
007062 2000017722 05490 FT 127,T18 8 RARE 05490
007067 2400540001 05500 TFR TANK RARE 05500
* 007074 3000701700 05510 J PRTLN RARE 05510
* 007101 3000000000 05520 TBO J 0 RARE 05520
007106 4400715505 05530 SC TB1+4,5 5 RARE 05530
007113 5600003530 05540 BA2 29,8 RARE 05540
007120 5200002701 05550 SA1 23,1 RARE 05550
007125 5600001604 05560 BA1 14,4 RARE 05560
007132 2600002601 05570 PD 22,1 RARE 05570
007137 1600002723 05580 BS2 23,3 RARE 05580
007144 1600002753 05590 BC1 23,3 RARE 05590
* 007151 3200711300 05600 TB1 JL $-30,0 RARE 05600
007156 2600001732 05610 PD0 15,10 RARE 05610
007163 7200003712 05620 AB1 31,10 RARE 05620
* 007170 3000710100 05630 J TBO RARE 05630
007177 013737 05640 ETA +3 0013737 7 RARE 05640
007202 013777 05650 ETB +3 0013777 7 RARE 05650
007221 END SEQ. TEST A 05660 EA +15 _END SEQEQ. TEST A_ RARE 05660
007240 END SEQ. TEST B 05670 EB +15 _END SEQEQ. TEST B_ RARE 05670
007241 05680 MS1 EQU $ RARE 05680
007260 SECTOR NOT ON OV 05690 +16 _SECTOR R NOT ON OV_ RARE 05690
007300 ERFLOW TRACK 05700 +16 _ERFLOW W TRACK _ RARE 05700
007302 0000 05710 +2 0 RARE 05710
007303 05720 MS2 EQU $ RARE 05720
007322 EXTRA SECTOR ON 05730 +16 _EXTRA S SECTOR ON _ RARE 05730 O
007342 OVERFLOW TRACK 05740 +16 _OVERFLOLOW TRACK _ RARE 05740 K
007344 0000 05750 +2 0 RARE 05750
007350 TSTH 05760 MS3 +4 _TSTH_ RARE 05760
007354 00000000 05770 WST17 +4 0 RARE 05770
007360 00000000 05780 WST18 +4 0 RARE 05780
007370 0000052000077700 05790 PAR +8 000005202000077700 RARE 05790 0
007401 END PRINT 05800 END +9 _END PRIRINT_ RARE 05800
007405 00000000 05810 WS +4 0 RARE 05810
007406 00 05820 WS1 +1 0 RARE 05820
007407 520 05830 BWS AREA 0520 RARE 05830
010131 000000 05840 +3 0 RARE 05840
* 010132 3000000160 05850 I1 JD 1 RARE 05850
010141 010132 05860 +3 I1 RARE 05860
* 010142 3000000260 05870 I2 JD 2 RARE 05870
010151 010152 05880 IE2 +3 OP2 RARE 05880
* 010152 3001016454 05890 OP2 JC $+10,44 4 RARE 05890
* 010157 3001014200 05900 J I2 RARE 05900
* 010164 3001017135 05910 JC $+5,29 RARE 05910
* 010171 3000140016 05920 JC WAIT,14 4 RARE 05920
010176 14 05930 GENA +1 014 RARE 05930
010177 00 05940 U +1 0 RARE 05940
010200 00 05950 T +1 0 RARE 05950
010201 00 05960 H +1 0 RARE 05960
010202 00 05970 S +1 0 RARE 05970
010205 000000 05980 +3 0 RARE 05980
010215 76540213 05990 TS02 +8 _7654021213_ RARE 05990
010300 06000 ORIG $,64 RARE 06000
010300 00 06010 PRNT +1 0 RARE 06010
010310 0000000000000000 06020 +8 0 RARE 06020
010316 GEN 06030 GEN +6 _ GEN _ _ RARE 06030
010326 0000000000000000 06040 +8 0 RARE 06040
010336 0000000000000000 06050 +8 0 RARE 06050
010344 READ 06060 READ +6 _ READ _ _ RARE 06060
010345 22 06070 AREA 18,B,0 RARE 06070
010406 LAST 00000000 06080 GOOD +16 _LAST 00000000_ RARE 06080 0
010407 74 06090 AREA 60,B,0 RARE 06090
* 010503 3000000031 06100 JC 0,25 RARE 06100
010512 004411 06110 IE0 +3 IPT0 RARE 06110
* 010513 3000000031 06120 JC 0,25 RARE 06120
010522 004442 06130 IE6 +3 IPT6 RARE 06130
010523 00 06140 MEM +1 0 RARE 06140
010532 00000000000000 06150 +7 0 RARE 06150
010535 000005 06160 FIVE +3 0000005 5 RARE 06160
010541 00001000 06170 B512 +4 512 RARE 06170
010546 7777777777 06180 ONES +5 0777777777777 RARE 06180
010556 0 06190 SGOOD +8 _0_ RARE 06190
010566 00000001 06200 DEC1 +8 _0000000001_ RARE 06200
010567 00 06210 UUU +1 0 RARE 06210
010577 67540213 06220 TS01 +8 _6754021213_ RARE 06220
010600 06230 ORIG $,64 RARE 06230
010600 3000 06240 RA AREA 1536 RARE 06240
013600 1700 06250 LIST AREA 960 RARE 06250
015500 4140407777 06260 HDRM XF 32,0777777,0,6 HALF DRUM RARE 06260
015505 5601572002 06270 BA1 B48,2 RARE 06270
015512 7200717642 06280 SB1 ETA-1,2 2 RARE 06280
015517 7200720142 06290 SB1 ETB-1,2 2 RARE 06290
015524 4400244000 06300 SC SWD+4,0 0 RARE 06300
* 015531 3000153700 06310 J START RARE 06310
015536 4140407777 06320 F2DRM XF 32,0777777,0,6 FASTRAND 2 RARE 06320
015543 5601572202 06330 BA1 B96,2 RARE 06330
015550 7200717602 06340 AB1 ETA-1,2 2 RARE 06340
015555 7200720102 06350 AB1 ETB-1,2 2 RARE 06350
015562 4400244000 06360 SC SWD+4,0 0 RARE 06360
015567 4401561700 06370 SC FR2+4,0 0 RARE 06370
* 015574 3000153700 06380 J START RARE 06380
* 015601 3001560100 06390 MDFY J $ MODIFY RANDOM GEN. RARE 06390
* 015606 3001560167 06400 JC MDFY,55 5 SI3-SEQUENTIAL RARE 06400
* 015613 3001565140 06410 FR2 JC MDFY2,3232 RARE 06410
015620 5601572002 06420 BA1 B48,2 HALF DRUM RARE 06420
015625 7000034542 06430 CB1 0345,2 RARE 06430
* 015632 3001560141 06440 JG MDFY RARE 06440
015637 7200034542 06450 SB1 0345,2 RARE 06450
* 015644 3001560100 06460 J MDFY RARE 06460
* 015651 3201560102 06470 MDFY2 JL MDFY,2 FASTRAND 2 RARE 06470
015656 4401565502 06480 SC $-1,2 RARE 06480
015663 5601572202 06490 BA1 B96,2 RARE 06490
015670 7200034502 06500 AB1 0345,2 RARE 06500
* 015675 3001560100 06510 J MDFY RARE 06510
* 015702 3001570231 06520 JC $,031 RARE 06520
015711 015712 06530 IE6T +3 IGNOR RARE 06530
* 015712 3000046000 06540 IGNOR J 0460 RARE 06540
015720 0060 06550 B48 +2 48 RARE 06550
015722 0140 06560 B96 +2 96 RARE 06560
3000140000 06570 END WAIT RARE 06570
{-- tape mark --}
004177 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 --}
005305 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 --}
006451 C071 PROCT CODEDIT SOURCE - T3834394-07
001500 00010 T070 BEGIN 01500 PROC 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 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 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 T073 3000136300 * SEGJP $ *
001500 000101 ORIG 01500 000101
* 001500 3000150020 00020 PIE JC $,16 PROCT 00020
001507 000400 00030 +3 256 PROCT 00030
* 001510 3000151031 00040 RIE JC $,25 PROCT 00040
001517 000410 00050 +3 264 PROCT 00050
* 001520 3000152022 00060 PARIE JC $,18 PROCT 00060
001527 000500 00070 +3 320 PROCT 00070
* 001530 3000153023 00080 DOFIE JC $,19 PROCT 00080
001537 000510 00090 +3 328 PROCT 00090
001540 00 00100 K02 +1 000 PROCT 00100
001542 0042 00110 K03 +2 00042 PROCT 00110
001546 47245345 00120 K04 +4 04724534345 PROCT 00120
001551 407754 00130 K05 +3 0407754 4 PROCT 00130
001553 7240 00140 K06 +2 07240 PROCT 00140
001555 1317 00150 K07 +2 01317 PROCT 00150
001565 4041424450603740 00160 K08 +8 0404142424450603740 PROCT 00160 7
001575 0262414244506037 00170 K09 +8 0026241414244506037 PROCT 00170 0
001603 030200036263 00180 K11 +6 003020000036263 PROCT 00180
001605 5225 00190 K12 +2 05225 PROCT 00190
001615 0500171412001317 00200 +8 0050017171412001317 PROCT 00200 3
001625 0001020410001740 00210 K13 +8 0000102020410001740 PROCT 00210 7
001631 07775264 00220 K14 +4 00777526264 PROCT 00220
001635 60021740 00230 K15 +4 06002174740 PROCT 00230
001636 40 00240 K16 +1 040 PROCT 00240
001640 6203 00250 K17 +2 06203 PROCT 00250
001642 4042 00260 K18 +2 04042 PROCT 00260
001644 4022 00270 K19 +2 04022 PROCT 00270
001646 4012 00280 K21 +2 04012 PROCT 00280
001650 4006 00290 K22 +2 04006 PROCT 00290
001652 4000 00300 K23 +2 04000 PROCT 00300
001654 4003 00310 K24 +2 04003 PROCT 00310
001656 4037 00320 K25 +2 04037 PROCT 00320
001660 4057 00330 K26 +2 04057 PROCT 00330
001662 4067 00340 K27 +2 04067 PROCT 00340
001664 4073 00350 K28 +2 04073 PROCT 00350
001666 4075 00360 K29 +2 04075 PROCT 00360
001670 4076 00370 K31 +2 04076 PROCT 00370
001674 00004263 00380 K32 +4 00000426263 PROCT 00380
001700 00000063 00390 K33 +4 00000006063 PROCT 00390
001705 0000626300 00400 AC1 +5 0000062626300 PROCT 00400
001706 00 00410 AC2 +1 000 PROCT 00410
001711 010001 00420 PAT +3 0010001 1 PROCT 00420
001714 010100 00430 CON +3 0010100 0 PROCT 00430
001717 020101 00440 ANS +3 0020101 1 PROCT 00440
001727 0200010302010003 00450 NEED +8 0020001010302010003 PROCT 00450 0
001736 02030201030001 00460 PAT2 +7 00203020201030001 PROCT 00460 1
001745 01030200000102 00470 MORE +7 00103020200000102 PROCT 00470 2
001755 0303020203010100 00480 CON2 +8 0030302020203010100 PROCT 00480 1
001765 0303030302020206 00490 SPCE +8 0030303030302020206 PROCT 00490 2
001774 05050404040101 00500 ANS2 +7 00505040404040101 PROCT 00500 1
002003 00040406060202 00510 PAT3 +7 00004040406060202 PROCT 00510 2
002012 04000406020602 00520 CON3 +7 00400040406020602 PROCT 00520 2
002021 04041014101004 00530 ANS3 +7 00404101014101004 PROCT 00530 4
002030 00101014041404 00540 PAT4 +7 00010101014041404 PROCT 00540 4
002037 10001014140404 00550 CON4 +7 01000101014140404 PROCT 00550 4
002046 10102030202010 00560 ANS4 +7 01010203030202010 PROCT 00560 0
002055 00202030103010 00570 PAT5 +7 00020203030103010 PROCT 00570 0
002064 20002030301010 00580 CON5 +7 02000203030301010 PROCT 00580 0
002073 20204060404020 00590 ANS5 +7 02020406060404020 PROCT 00590 0
002102 00404060206020 00600 PAT6 +7 00040406060206020 PROCT 00600 0
002111 40004060602020 00610 CON6 +7 04000406060602020 PROCT 00610 0
002120 40410141010040 00620 ANS6 +7 04041014141010040 PROCT 00620 0
002124 75317000 00630 AB1 +4 07531700000 PROCT 00630
002130 72636000 00640 AB2 +4 07263600000 PROCT 00640
002134 31100500 00650 AB3 +4 03110050500 PROCT 00650
002140 62201200 00660 AB4 +4 06220120200 PROCT 00660
002141 0 00670 WORK +1 _0_ PROCT 00670
002151 01234567 00680 DEC2 +8 _0123456567_ PROCT 00680
002161 89134574 00690 DEC1 +8 _8913457574_ PROCT 00690
002162 63 00700 K34 +1 063 PROCT 00700
002163 13 00710 K35 +1 013 PROCT 00710
002166 630507 00720 K36 +3 0630507 7 PROCT 00720
002170 6303 00730 K37 +2 06303 PROCT 00730
002172 0403 00740 K38 +2 00403 PROCT 00740
002173 1 00750 K39 +1 _1_ PROCT 00750
002174 K 00760 K41 -1 _2_ PROCT 00760
002176 2L 00770 K42 -2 _23_ PROCT 00770
002201 276 00780 K43 +3 _276_ PROCT 00780
002205 345O 00790 K44 -4 _3456_ PROCT 00790
002211 6789 00800 K45 +4 _6789_ PROCT 00800
002221 2346278M 00810 K46 -8 _2346278784_ PROCT 00810
002231 97531024 00820 K47 +8 _9753102024_ PROCT 00820
002241 6896745K 00830 K48 -8 _6896745452_ PROCT 00830
002251 67264662 00840 K49 +8 _6726466662_ PROCT 00840
002261 1623084Q 00850 K51 -8 _1623084848_ PROCT 00850
002271 56127842 00860 +8 _5612784842_ PROCT 00860
002301 73573785 00870 K52 +8 _7357378785_ PROCT 00870
002311 22947722 00880 +8 _2294772722_ PROCT 00880
002321 3139922� 00890 K53 -8 _3139922220_ PROCT 00890
002323 2P 00900 K54 -2 _27_ PROCT 00900
002325 09 00910 K55 +2 _09_ PROCT 00910
002331 105P 00920 K56 -4 _1057_ PROCT 00920
002335 005K 00930 K57 -4 _0052_ PROCT 00930
002344 1234565 00940 K58 +7 _123456565_ PROCT 00940
002353 032358M 00950 K59 -7 _032358484_ PROCT 00950
002363 0000000000000000 00960 +8 0000000000000000000 PROCT 00960 0
002373 0000000000000000 00970 ZERO +8 0000000000000000000 PROCT 00970 0
002403 0100000000000000 00980 +8 0010000000000000000 PROCT 00980 0
002413 0000000000000000 00990 FAILS +8 0000000000000000000 PROCT 00990 0
002423 2020000000200000 01000 +8 0202000000000200000 PROCT 01000 0
002433 0000000000000000 01010 OKAYS +8 0000000000000000000 PROCT 01010 0
002443 0000000000000000 01020 IND +8 0000000000000000000 PROCT 01020 0
002453 0000000000000000 01030 PROD +8 0000000000000000000 PROCT 01030 0
002463 6605036305040000 01040 +8 0660503636305040000 PROCT 01040 0
002467 00000000 01050 +4 00000000000 PROCT 01050
002477 0000002454040000 01060 +8 0000000202454040000 PROCT 01060 0
002507 0000000000000000 01070 +8 0000000000000000000 PROCT 01070 0
002517 0000002454030000 01080 +8 0000000202454030000 PROCT 01080 0
002520 3 01090 K61 +1 _3_ PROCT 01090
002530 48812944 01100 K62 +8 _4881294944_ PROCT 01100
002537 6498396 01110 +7 _649839696_ PROCT 01110
002540 40 01120 K01 +1 040 PROCT 01120
002547 63124441414163 01130 +7 06312444441414163 PROCT 01130 3
002557 7377200777777756 01140 K63 +8 0737720000777777756 PROCT 01140 7
002561 0000 01150 +2 00000 PROCT 01150
002564 099 01160 +3 _099_ PROCT 01160
002574 99999999 01170 K64 +8 _9999999999_ PROCT 01170
002577 112 01180 +3 _112_ PROCT 01180
002607 34567890 01190 K65 +8 _3456789890_ PROCT 01190
002700 01200 ORIG $,64 PROCT 01200
002700 100 01210 PTMP AREA 64,B,0, , PROCT 01210
003000 01220 ORIG 03000 PROCT 01220
003000 5600151700 01230 MANST BA1 PIE+15,1,16 PROCT 01230
003005 5200041700 01240 SA1 271,16 PROCT 01240
003012 5600153700 01250 BA1 PARIE+1515,16 PROCT 01250
003017 5200051700 01260 SA1 335,16 PROCT 01260
* 003024 3002630060 01270 JD CONSL PROCT 01270
* 003031 3000330300 01280 JC RERUN,0 0 PROCT 01280
* 003036 3000303600 01290 EXIT J EXIT PROCT 01290
003043 6000304105 01300 AC EXIT+3,5,5 PROCT 01300
003050 4600304130 01310 BT EXIT+3,2,24 PROCT 01310
003055 4200307230 01320 ST NEXT+3,2,24 PROCT 01320
* 003062 3000307400 01330 JC $+10,0 PROCT 01330
* 003067 3000306700 01340 NEXT J NEXT PROCT 01340
* 003074 3000320265 01350 JC FAIL,53 3 PROCT 01350
* 003101 3000320266 01360 JC FAIL,54 4 PROCT 01360
* 003106 3000320267 01370 JC FAIL,55 5 PROCT 01370
* 003113 3000237352 01380 JC ZERO,42 2 PROCT 01380
* 003120 3000312062 01390 REP JC REP,50 PROCT 01390
003125 4600307230 01400 BT NEXT+3,2,24 PROCT 01400
003132 4200312330 01410 ST REP+3,2424 PROCT 01410
* 003137 3000306700 01420 J NEXT PROCT 01420
* 003144 3000314400 01430 ER1 J $ PROCT 01430
* 003151 3000314424 01440 JC ER1,20 PROCT 01440
* 003156 3000315600 01450 ER2 J $ PROCT 01450
* 003163 3000317024 01460 JC $+5,20 PROCT 01460
003170 4600316130 01470 BT ER2+3,2424 PROCT 01470
003175 4200307230 01480 ST NEXT+3,2,24 PROCT 01480
003202 6000241201 01490 FAIL AC FAILS-1,1,1 PROCT 01490
003207 4600312330 01500 BT REP+3,2424 PROCT 01500
003214 4200323130 01510 ST STOP+3,2,24 PROCT 01510
* 003221 3000323362 01520 JC $+10,50 0 PROCT 01520
* 003226 3000322660 01530 STOP JC $,48 PROCT 01530
* 003233 3000324025 01540 JC $+5,21 PROCT 01540
* 003240 3000324526 01550 JC $+5,22 PROCT 01550
* 003245 3000325227 01560 JC $+5,23 PROCT 01560
* 003252 3000325736 01570 JC $+5,30 PROCT 01570
* 003257 3000326450 01580 JC $+5,40 PROCT 01580
* 003264 3000327154 01590 JC $+5,44 PROCT 01590
* 003271 3000311335 01600 JC REP-5,2929 PROCT 01600
003276 6000243301 01610 OKAY AC OKAYS,1 1 PROCT 01610
* 003303 1000307200 01620 RERUN JR NEXT,0 PROCT 01620
* 003310 1000304100 01630 JR EXIT,0 0 005114J1 PROCT 01630 1
* 003315 1000316100 01640 JR ER2,0 PROCT 01640
* 003322 1000304130 01650 JR EXIT,24 4 005114LU0 PROCT 01650 L
* 003327 1000316100 01660 JR ER2,0 PROCT 01660
* 003334 1000304121 01670 JR EXIT,17 7 005114LD0 PROCT 01670 L
* 003341 1000316100 01680 JR ER2,0 PROCT 01680
* 003346 3000335325 01690 JC $+5,21 0 013049J01 PROCT 01690 0
* 003353 3000336002 01700 JC $+5,2 PROCT 01700
* 003360 1000314765 01710 JR ER1,53 PROCT 01710
* 003365 1000307200 01720 JR NEXT,0 PROCT 01720
* 003372 3000337725 01730 JC $+5,21 0 013049LU0 PROCT 01730 U
* 003377 3000340426 01740 JC $+5,22 PROCT 01740
* 003404 1000314765 01750 JR ER1,53 PROCT 01750
* 003411 1000307200 01760 JR NEXT,0 PROCT 01760
* 003416 3000342325 01770 JC $+5,21 0 013049LD2 PROCT 01770 D
* 003423 3000343021 01780 JC $+5,17 PROCT 01780
* 003430 1000314765 01790 JR ER1,53 PROCT 01790
* 003435 1000307200 01800 JR NEXT,0 PROCT 01800
* 003442 3000344722 01810 JC $+5,18 0 013050J01 PROCT 01810 0
* 003447 3000345465 01820 JC $+5,53 PROCT 01820
* 003454 3000346665 01830 JC $+10,53 3 PROCT 01830
* 003461 1000314700 01840 JR ER1,0 PROCT 01840
* 003466 1000307225 01850 JR NEXT,21 1 PROCT 01850
* 003473 3000350022 01860 JC $+5,18 0 013050LU1 PROCT 01860 U
* 003500 3000350531 01870 JC $+5,25 PROCT 01870
* 003505 3000351765 01880 JC $+10,53 3 PROCT 01880
* 003512 1000314700 01890 JR ER1,0 PROCT 01890
* 003517 1000307225 01900 JR NEXT,21 1 PROCT 01900
* 003524 3000353122 01910 JC $+5,18 0 013050LD1 PROCT 01910 D
* 003531 3000353626 01920 JC $+5,22 PROCT 01920
* 003536 3000355065 01930 JC $+10,53 3 PROCT 01930
* 003543 1000314700 01940 JR ER1,0 PROCT 01940
* 003550 1000307225 01950 JR NEXT,21 1 PROCT 01950
* 003555 3000356226 01960 JC $+5,22 0 013053J01 PROCT 01960 0
* 003562 3000356703 01970 JC $+5,3 PROCT 01970
* 003567 1000314766 01980 JR ER1,54 PROCT 01980
* 003574 1000307200 01990 JR NEXT,0 PROCT 01990
* 003601 3000360626 02000 JC $+5,22 0 013053LU0 PROCT 02000 U
* 003606 3000361337 02010 JC $+5,31 PROCT 02010
* 003613 1000314766 02020 JR ER1,54 PROCT 02020
* 003620 1000307200 02030 JR NEXT,0 PROCT 02030
* 003625 3000363226 02040 JC $+5,22 0 013053LD3 PROCT 02040 D
* 003632 3000363721 02050 JC $+5,17 PROCT 02050
* 003637 1000314766 02060 JR ER1,54 PROCT 02060
* 003644 1000307200 02070 JR NEXT,0 PROCT 02070
* 003651 3000365623 02080 JC $+5,19 0 013054J01 PROCT 02080 0
* 003656 3000366306 02090 JC $+5,6 PROCT 02090
* 003663 3000367566 02100 JC $+10,54 4 PROCT 02100
* 003670 1000314700 02110 JR ER1,0 PROCT 02110
* 003675 1000307226 02120 JR NEXT,22 2 PROCT 02120
* 003702 3000370723 02130 JC $+5,19 0 013054LU1 PROCT 02130 U
* 003707 3000371436 02140 JC $+5,30 PROCT 02140
* 003714 3000372666 02150 JC $+10,54 4 PROCT 02150
* 003721 1000314700 02160 JR ER1,0 PROCT 02160
* 003726 1000307226 02170 JR NEXT,22 2 PROCT 02170
* 003733 3000374023 02180 JC $+5,19 0 013054LD2 PROCT 02180 D
* 003740 3000374525 02190 JC $+5,21 PROCT 02190
* 003745 3000375766 02200 JC $+10,54 4 PROCT 02200
* 003752 1000314700 02210 JR ER1,0 PROCT 02210
* 003757 1000307226 02220 JR NEXT,22 2 PROCT 02220
* 003764 3000377127 02230 JC $+5,23 0 013057J01 PROCT 02230 0
* 003771 3000377604 02240 JC $+5,4 PROCT 02240
* 003776 1000314767 02250 JR ER1,55 PROCT 02250
* 004003 1000307200 02260 JR NEXT,0 PROCT 02260
* 004010 3000401527 02270 JC $+5,23 0 013057LU1 PROCT 02270 U
* 004015 3000402230 02280 JC $+5,24 PROCT 02280
* 004022 1000314767 02290 JR ER1,55 PROCT 02290
* 004027 1000307200 02300 JR NEXT,0 PROCT 02300
* 004034 3000404127 02310 JC $+5,23 0 013057LD0 PROCT 02310 D
* 004041 3000404625 02320 JC $+5,21 PROCT 02320
* 004046 1000314767 02330 JR ER1,55 PROCT 02330
* 004053 1000307200 02340 JR NEXT,0 PROCT 02340
* 004060 3000406524 02350 JC $+5,20 0 013058J01 PROCT 02350 0
* 004065 3000407207 02360 JC $+5,7 PROCT 02360
* 004072 3000410467 02370 JC $+10,55 5 PROCT 02370
* 004077 1000314700 02380 JR ER1,0 PROCT 02380
* 004104 1000307227 02390 JR NEXT,23 3 PROCT 02390
* 004111 3000411624 02400 JC $+5,20 0 013058LU1 PROCT 02400 U
* 004116 3000412337 02410 JC $+5,31 PROCT 02410
* 004123 3000413567 02420 JC $+10,55 5 PROCT 02420
* 004130 1000314700 02430 JR ER1,0 PROCT 02430
* 004135 1000307227 02440 JR NEXT,23 3 PROCT 02440
* 004142 3000414724 02450 JC $+5,20 0 013058LD3 PROCT 02450 D
* 004147 3000415425 02460 JC $+5,21 PROCT 02460
* 004154 3000416667 02470 JC $+10,55 5 PROCT 02470
* 004161 1000314700 02480 JR ER1,0 PROCT 02480
* 004166 1000307227 02490 JR NEXT,23 3 PROCT 02490
* 004173 3000420016 02500 JC $+5,14 0 013064 PROCT 02500
* 004200 3000420517 02510 JC $+5,15 PROCT 02510
* 004205 1000304172 02520 JR EXIT,58 8 PROCT 02520
* 004212 1000316100 02530 JR ER2,0 PROCT 02530
* 004217 3000422417 02540 JC $+5,15 0 013063 PROCT 02540
* 004224 3000423116 02550 JC $+5,14 PROCT 02550
* 004231 1000314772 02560 JR ER1,58 PROCT 02560
* 004236 1000307200 02570 JR NEXT,0 PROCT 02570
* 004243 3000425016 02580 JC $+5,14 0 013064J00 PROCT 02580 0
* 004250 3000425537 02590 JC $+5,31 PROCT 02590
* 004255 1000314772 02600 JR ER1,58 PROCT 02600
* 004262 1000307200 02610 JR NEXT,0 PROCT 02610
* 004267 3000427416 02620 JC $+5,14 0 013064LU3 PROCT 02620 U
* 004274 3000430103 02630 JC $+5,3 PROCT 02630
* 004301 1000314772 02640 JR ER1,58 PROCT 02640
* 004306 1000307200 02650 JR NEXT,0 PROCT 02650
* 004313 3000432016 02660 JC $+5,14 0 013064LD3 PROCT 02660 D
* 004320 3000432515 02670 JC $+5,13 PROCT 02670
* 004325 1000314772 02680 JR ER1,58 PROCT 02680
* 004332 1000307200 02690 JR NEXT,0 PROCT 02690
* 004337 3000434417 02700 JC $+5,15 0 013063J00 PROCT 02700 0
* 004344 3000435140 02710 JC $+5,32 PROCT 02710
* 004351 1000304172 02720 JR EXIT,58 8 PROCT 02720
* 004356 1000316100 02730 JR ER2,0 PROCT 02730
* 004363 3000437017 02740 JC $+5,15 0 013063LU3 PROCT 02740 U
* 004370 3000437512 02750 JC $+5,10 PROCT 02750
* 004375 1000304172 02760 JR EXIT,58 8 PROCT 02760
* 004402 1000316100 02770 JR ER2,0 PROCT 02770
* 004407 3000441417 02780 JC $+5,15 0 013063LD2 PROCT 02780 D
* 004414 3000442114 02790 JC $+5,12 PROCT 02790
* 004421 1000304172 02800 JR EXIT,58 8 PROCT 02800
* 004426 1000316100 02810 JR ER2,0 PROCT 02810
004433 3400314400 02820 CC ER1,0 01013028JT PROCT 02820
* 004440 1000307200 02830 JR NEXT,0 PROCT 02830
* 004445 1000314740 02840 JR ER1,32 0 013028J2- PROCT 02840 2
* 004452 1000307200 02850 JR NEXT,0 PROCT 02850
* 004457 3000446424 02860 JC $+5,20 0 013046J1 PROCT 02860 1
* 004464 1000314747 02870 JR ER1,39 PROCT 02870
* 004471 1000307227 02880 JR NEXT,23 3 PROCT 02880
* 004476 3000450324 02890 JC $+5,20 0 013046LU1 PROCT 02890 U
* 004503 1000314773 02900 JR ER1,59 PROCT 02900
* 004510 1000307227 02910 JR NEXT,23 3 PROCT 02910
* 004515 3000452224 02920 JC $+5,20 0 013046LD3 PROCT 02920 D
* 004522 1000314764 02930 JR ER1,52 PROCT 02930
* 004527 1000307227 02940 JR NEXT,23 3 PROCT 02940
* 004534 3000454123 02950 JC $+5,19 0 013045J1 PROCT 02950 1
* 004541 1000314746 02960 JR ER1,38 PROCT 02960
* 004546 1000307226 02970 JR NEXT,22 2 PROCT 02970
* 004553 3000456023 02980 JC $+5,19 0 013045LU1 PROCT 02980 U
* 004560 1000314776 02990 JR ER1,62 PROCT 02990
* 004565 1000307226 03000 JR NEXT,22 2 PROCT 03000
* 004572 3000457723 03010 JC $+5,19 0 013045LD2 PROCT 03010 D
* 004577 1000314764 03020 JR ER1,52 PROCT 03020
* 004604 1000307226 03030 JR NEXT,22 2 PROCT 03030
* 004611 3000461622 03040 JC $+5,18 0 013044J1 PROCT 03040 1
* 004616 1000314745 03050 JR ER1,37 PROCT 03050
* 004623 1000307225 03060 JR NEXT,21 1 PROCT 03060
* 004630 3000463522 03070 JC $+5,18 0 013045LU1 PROCT 03070 U
* 004635 1000314775 03080 JR ER1,61 PROCT 03080
* 004642 1000307225 03090 JR NEXT,21 1 PROCT 03090
* 004647 3000465422 03100 JC $+5,18 0 013045LD1 PROCT 03100 D
* 004654 1000314764 03110 JR ER1,52 PROCT 03110
* 004661 1000307225 03120 JR NEXT,21 1 PROCT 03120
* 004666 3000637052 03130 JC HEREI,4242 013029 PROCT 03130 9
* 004673 1000304141 03140 JR EXIT,33 3 PROCT 03140
004677 03150 DH EQU $-1 PROCT 03150
* 004700 1000316100 03160 JR ER2,0 PROCT 03160
* 004705 3000637052 03170 JC HEREI,4242 013029J1- PROCT 03170 9
* 004712 1000314761 03180 JR ER1,49 PROCT 03180
* 004717 1000307200 03190 JR NEXT,0 PROCT 03190
* 004724 3000637052 03200 JC HEREI,4242 013029LU0 PROCT 03200 9
* 004731 1000314755 03210 JR ER1,45 PROCT 03210
* 004736 1000307200 03220 JR NEXT,0 PROCT 03220
* 004743 3000637052 03230 JC HEREI,4242 013029LD1 PROCT 03230 9
* 004750 1000314742 03240 JR ER1,34 PROCT 03240
* 004755 1000307200 03250 JR NEXT,0 PROCT 03250
* 004762 3000637052 03260 JC HEREI,4242 013029EQ- PROCT 03260 9
* 004767 3000652252 03270 JC EQ,42 PROCT 03270
* 004774 1000314741 03280 JR ER1,33 PROCT 03280
* 005001 1000307200 03290 JR NEXT,0 PROCT 03290
* 005006 3000637052 03300 JC HEREI,4242 013029HI PROCT 03300 9
* 005013 3000665452 03310 JC AZ,42 PROCT 03310
* 005020 1000314741 03320 JR ER1,33 PROCT 03320
* 005025 1000307200 03330 JR NEXT,0 PROCT 03330
* 005032 3000652252 03340 JC EQ,42 01013030 PROCT 03340
* 005037 1000304142 03350 JR EXIT,34 4 PROCT 03350
* 005044 1000316100 03360 JR ER2,0 PROCT 03360
* 005051 3000507562 03370 JC $+20,50 0 013030J1- PROCT 03370 J
* 005056 3000652252 03380 JC EQ,42 PROCT 03380
* 005063 1000314762 03390 JR ER1,50 PROCT 03390
* 005070 1000307200 03400 JR NEXT,0 PROCT 03400
* 005075 3000652252 03410 JC EQ,42 01013030LU0 PROCT 03410 0
* 005102 1000314756 03420 JR ER1,46 PROCT 03420
* 005107 1000307200 03430 JR NEXT,0 PROCT 03430
* 005114 3000652252 03440 JC EQ,42 01013030LD2 PROCT 03440 2
* 005121 1000314743 03450 JR ER1,35 PROCT 03450
* 005126 1000307200 03460 JR NEXT,0 PROCT 03460
* 005133 3000652252 03470 JC EQ,42 01013030EQ PROCT 03470
* 005140 3000237352 03480 JC ZERO,42 2 PROCT 03480
* 005145 1000314742 03490 JR ER1,34 PROCT 03490
* 005152 1000307200 03500 JR NEXT,0 PROCT 03500
* 005157 3000237352 03510 JC ZERO,42 2 013031 PROCT 03510
* 005164 1000304143 03520 JR EXIT,35 5 PROCT 03520
* 005171 1000316100 03530 JR ER2,0 PROCT 03530
* 005176 3000237352 03540 JC ZERO,42 2 013031J1- PROCT 03540 J
* 005203 1000314763 03550 JR ER1,51 PROCT 03550
* 005210 1000307200 03560 JR NEXT,0 PROCT 03560
* 005215 3000237352 03570 JC ZERO,42 2 013031LU0 PROCT 03570 L
* 005222 1000314756 03580 JR ER1,46 PROCT 03580
* 005227 1000307200 03590 JR NEXT,0 PROCT 03590
* 005234 3000237352 03600 JC ZERO,42 2 013031LD3 PROCT 03600 L
* 005241 1000314742 03610 JR ER1,34 PROCT 03610
* 005246 1000307200 03620 JR NEXT,0 PROCT 03620
* 005253 3000237352 03630 JC ZERO,42 2 013031EQ- PROCT 03630 E
* 005260 3000652252 03640 JC EQ,42 PROCT 03640
* 005265 1000314743 03650 JR ER1,35 PROCT 03650
* 005272 1000307200 03660 JR NEXT,0 PROCT 03660
* 005277 3000237352 03670 JC ZERO,42 2 013032 PROCT 03670
* 005304 1000304144 03680 JR EXIT,36 6 PROCT 03680
* 005311 1000316100 03690 JR ER2,0 PROCT 03690
* 005316 3000237352 03700 JC ZERO,42 2 013032J1- PROCT 03700 J
* 005323 1000314764 03710 JR ER1,52 PROCT 03710
* 005330 1000307200 03720 JR NEXT,0 PROCT 03720
* 005335 3000237352 03730 JC ZERO,42 2 013032LU1 PROCT 03730 L
* 005342 1000314754 03740 JR ER1,44 PROCT 03740
* 005347 1000307200 03750 JR NEXT,0 PROCT 03750
* 005354 3000237352 03760 JC ZERO,42 2 013032LD0 PROCT 03760 L
* 005361 1000314745 03770 JR ER1,37 PROCT 03770
* 005366 1000307200 03780 JR NEXT,0 PROCT 03780
* 005373 3000237352 03790 JC ZERO,42 2 013032EQ- PROCT 03790 E
* 005400 3000652252 03800 JC EQ,42 PROCT 03800
* 005405 1000314744 03810 JR ER1,36 PROCT 03810
* 005412 1000307200 03820 JR NEXT,0 PROCT 03820
* 005417 3000652252 03830 JC EQ,42 01013032HI- PROCT 03830 -
* 005424 3000637052 03840 JC HEREI,4242 PROCT 03840
* 005431 1000314744 03850 JR ER1,36 PROCT 03850
* 005436 1000307200 03860 JR NEXT,0 PROCT 03860
* 005443 3000665452 03870 JC AZ,42 01013033 PROCT 03870
* 005450 1000304145 03880 JR EXIT,37 7 PROCT 03880
* 005455 1000316100 03890 JR ER2,0 PROCT 03890
* 005462 3000665452 03900 JC AZ,42 01013033J1- PROCT 03900 -
* 005467 1000314765 03910 JR ER1,53 PROCT 03910
* 005474 1000307200 03920 JR NEXT,0 PROCT 03920
* 005501 3000665452 03930 JC AZ,42 01013033LU1 PROCT 03930 1
* 005506 1000314741 03940 JR ER1,33 PROCT 03940
* 005513 1000307200 03950 JR NEXT,0 PROCT 03950
* 005520 3000665452 03960 JC AZ,42 01013033LD1 PROCT 03960 1
* 005525 1000314746 03970 JR ER1,38 PROCT 03970
* 005532 1000307200 03980 JR NEXT,0 PROCT 03980
* 005537 3000665452 03990 JC AZ,42 01013033AZ PROCT 03990
* 005544 3000652252 04000 JC EQ,42 PROCT 04000
* 005551 1000314745 04010 JR ER1,37 PROCT 04010
* 005556 1000307200 04020 JR NEXT,0 PROCT 04020
* 005563 3000700652 04030 JC AN,42 01013034 PROCT 04030
* 005570 1000304146 04040 JR EXIT,38 8 PROCT 04040
* 005575 1000316100 04050 JR ER2,0 PROCT 04050
* 005602 3000700652 04060 JC AN,42 01013034J1- PROCT 04060 -
* 005607 1000314766 04070 JR ER1,54 PROCT 04070
* 005614 1000307200 04080 JR NEXT,0 PROCT 04080
* 005621 3000700652 04090 JC AN,42 01013034LU1 PROCT 04090 1
* 005626 3000314442 04100 JC ER1,34 PROCT 04100
* 005633 1000307200 04110 JR NEXT,0 PROCT 04110
* 005640 3000700652 04120 JC AN,42 01013034LD2 PROCT 04120 2
* 005645 1000314745 04130 JR ER1,37 PROCT 04130
* 005652 1000307200 04140 JR NEXT,0 PROCT 04140
* 005657 3000700652 04150 JC AN,42 01013034AN PROCT 04150
* 005664 3000652252 04160 JC EQ,42 PROCT 04160
* 005671 1000314746 04170 JR ER1,38 PROCT 04170
* 005676 1000307200 04180 JR NEXT,0 PROCT 04180
* 005703 3000714052 04190 JC BOF,42 0 013035 PROCT 04190
* 005710 1000304147 04200 JR EXIT,39 9 PROCT 04200
* 005715 1000316100 04210 JR ER2,0 PROCT 04210
* 005722 3000714052 04220 JC BOF,42 0 013035J1- PROCT 04220 1
* 005727 1000314767 04230 JR ER1,55 PROCT 04230
* 005734 1000307200 04240 JR NEXT,0 PROCT 04240
* 005741 3000714052 04250 JC BOF,42 0 013035LU1 PROCT 04250 U
* 005746 1000314753 04260 JR ER1,43 PROCT 04260
* 005753 1000307200 04270 JR NEXT,0 PROCT 04270
* 005760 3000714052 04280 JC BOF,42 0 013035LD3 PROCT 04280 D
* 005765 1000314745 04290 JR ER1,37 PROCT 04290
* 005772 1000307200 04300 JR NEXT,0 PROCT 04300
* 005777 3000714052 04310 JC BOF,42 0 013035BOF- PROCT 04310 O
* 006004 3000652252 04320 JC EQ,42 PROCT 04320
* 006011 1000314747 04330 JR ER1,39 PROCT 04330
* 006016 1000307200 04340 JR NEXT,0 PROCT 04340
* 006023 3000730452 04350 JC DOF,42 1 125095 PROCT 04350
* 006030 3000604266 04360 JC $+10,54 4 PROCT 04360
* 006035 1000314700 04370 JR ER1,0 PROCT 04370
* 006042 1000307226 04380 JR NEXT,22 2 PROCT 04380
* 006047 3000730452 04390 JC DOF,42 0 013036 PROCT 04390
* 006054 3000606650 04400 JC $+10,40 0 PROCT 04400
* 006061 1000314700 04410 JR ER1,0 PROCT 04410
* 006066 1000307226 04420 JR NEXT,22 2 PROCT 04420
* 006073 3000730452 04430 JC DOF,42 0 013036J1- PROCT 04430 1
* 006100 1000314770 04440 JR ER1,56 PROCT 04440
* 006105 1000307226 04450 JR NEXT,22 2 PROCT 04450
* 006112 3000467752 04460 JC DH,42 01013036LU2 PROCT 04460 2
* 006117 1000314744 04470 JR ER1,36 PROCT 04470
* 006124 1000307226 04480 JR NEXT,22 2 PROCT 04480
* 006131 3000730452 04490 JC DOF,42 0 013036LD0 PROCT 04490 D
* 006136 1000314753 04500 JR ER1,43 PROCT 04500
* 006143 1000307226 04510 JR NEXT,22 2 PROCT 04510
* 006150 3000730452 04520 JC DOF,42 0 013036DOF,010151 PROCT 04520 O
* 006155 3000616250 04530 JC $+5,40 PROCT 04530
* 006162 1000314750 04540 JR ER1,40 PROCT 04540
* 006167 1000307226 04550 JR NEXT,22 2 PROCT 04550
* 006174 3000730452 04560 JC DOF,42 0 010151J2 PROCT 04560 2
* 006201 3000620626 04570 JC $+5,22 PROCT 04570
* 006206 3000621310 04580 JC $+5,8 PROCT 04580
* 006213 1000304150 04590 JR EXIT,40 0 PROCT 04590
* 006220 1000316100 04600 JR ER2,0 PROCT 04600
* 006225 3000730452 04610 JC DOF,42 0 010151J1- PROCT 04610 1
* 006232 3000623726 04620 JC $+5,22 PROCT 04620
* 006237 3000624470 04630 JC $+5,56 PROCT 04630
* 006244 1000304150 04640 JR EXIT,40 0 PROCT 04640
* 006251 1000316100 04650 JR ER2,0 PROCT 04650
* 006256 3000730452 04660 JC DOF,42 0 010151LU2 PROCT 04660 U
* 006263 3000627026 04670 JC $+5,22 PROCT 04670
* 006270 3000627544 04680 JC $+5,36 PROCT 04680
* 006275 1000304150 04690 JR EXIT,40 0 PROCT 04690
* 006302 1000316100 04700 JR ER2,0 PROCT 04700
* 006307 3000730452 04710 JC DOF,42 0 010151LD0 PROCT 04710 D
* 006314 3000632126 04720 JC $+5,22 PROCT 04720
* 006321 3000632653 04730 JC $+5,43 PROCT 04730
* 006326 3000634050 04740 JC $+10,40 0 PROCT 04740
* 006333 1000314700 04750 JR ER1,0 PROCT 04750
* 006340 1000307235 04760 JR NEXT,29 9 PROCT 04760
006345 4400244300 04770 SC IND,0 03037032 PROCT 04770
* 006352 3000637052 04780 JC HEREI,4242 PROCT 04780
* 006357 3000244351 04790 JC IND,41 PROCT 04790
006364 3400244301 04800 CC IND,1 PROCT 04800
006370 04810 HEREI EQU $-1 PROCT 04810
* 006371 1000304142 04820 JR EXIT,34 4 PROCT 04820
* 006376 1000316100 04830 JR ER2,0 PROCT 04830
006403 4400244301 04840 SC IND,1 03037032HI PROCT 04840
* 006410 3000237352 04850 JC ZERO,42 2 PROCT 04850
* 006415 3000244351 04860 JC IND,41 PROCT 04860
006422 3400244300 04870 CC IND,0 PROCT 04870
* 006427 1000304142 04880 JR EXIT,34 4 PROCT 04880
* 006434 1000316100 04890 JR ER2,0 PROCT 04890
006441 4400244300 04900 SC IND,0 03037032JT PROCT 04900
* 006446 3000637052 04910 JC HEREI,4242 PROCT 04910
006453 3400244351 04920 CC IND,41 PROCT 04920
006460 3400244300 04930 CC IND,0 PROCT 04930
* 006465 1000304142 04940 JR EXIT,34 4 PROCT 04940
* 006472 1000316100 04950 JR ER2,0 PROCT 04950
006477 4400244300 04960 SC IND,0 03037031 PROCT 04960
* 006504 3000652252 04970 JC EQ,42 PROCT 04970
* 006511 3000244351 04980 JC IND,41 PROCT 04980
006516 3400244302 04990 CC IND,2 PROCT 04990
006522 05000 EQ EQU $-1 PROCT 05000
* 006523 1000304142 05010 JR EXIT,34 4 PROCT 05010
* 006530 1000316100 05020 JR ER2,0 PROCT 05020
006535 4400244302 05030 SC IND,2 03037031EQ PROCT 05030
* 006542 3000237352 05040 JC ZERO,42 2 PROCT 05040
* 006547 3000244351 05050 JC IND,41 PROCT 05050
006554 3400244300 05060 CC IND,0 PROCT 05060
* 006561 1000304142 05070 JR EXIT,34 4 PROCT 05070
* 006566 1000316100 05080 JR ER2,0 PROCT 05080
006573 4400244300 05090 SC IND,0 03037031JT PROCT 05090
* 006600 3000652252 05100 JC EQ,42 PROCT 05100
006605 3400244351 05110 CC IND,41 PROCT 05110
006612 3400244300 05120 CC IND,0 PROCT 05120
* 006617 1000304142 05130 JR EXIT,34 4 PROCT 05130
* 006624 1000316100 05140 JR ER2,0 PROCT 05140
006631 4400244300 05150 SC IND,0 03037030 PROCT 05150
* 006636 3000665452 05160 JC AZ,42 PROCT 05160
* 006643 3000244351 05170 JC IND,41 PROCT 05170
006650 3400244304 05180 CC IND,4 PROCT 05180
006654 05190 AZ EQU $-1 PROCT 05190
* 006655 1000304142 05200 JR EXIT,34 4 PROCT 05200
* 006662 1000316100 05210 JR ER2,0 PROCT 05210
006667 4400244304 05220 SC IND,4 03037030AZ PROCT 05220
* 006674 3000237352 05230 JC ZERO,42 2 PROCT 05230
* 006701 3000244351 05240 JC IND,41 PROCT 05240
006706 3400244300 05250 CC IND,0 PROCT 05250
* 006713 1000304142 05260 JR EXIT,34 4 PROCT 05260
* 006720 1000316100 05270 JR ER2,0 PROCT 05270
006725 4400244300 05280 SC IND,0 03037030JT PROCT 05280
* 006732 3000665452 05290 JC AZ,42 PROCT 05290
006737 3400244351 05300 CC IND,41 PROCT 05300
006744 3400244300 05310 CC IND,0 PROCT 05310
* 006751 1000304142 05320 JR EXIT,34 4 PROCT 05320
* 006756 1000316100 05330 JR ER2,0 PROCT 05330
006763 4400244300 05340 SC IND,0 03036004 PROCT 05340
* 006770 3000700652 05350 JC AN,42 PROCT 05350
* 006775 3000244351 05360 JC IND,41 PROCT 05360
007002 3400244310 05370 CC IND,8 PROCT 05370
007006 05380 AN EQU $-1 PROCT 05380
* 007007 1000304142 05390 JR EXIT,34 4 PROCT 05390
* 007014 1000316100 05400 JR ER2,0 PROCT 05400
007021 4400244310 05410 SC IND,8 03036004AN PROCT 05410
* 007026 3000237352 05420 JC ZERO,42 2 PROCT 05420
* 007033 3000244351 05430 JC IND,41 PROCT 05430
007040 3400244300 05440 CC IND,0 PROCT 05440
* 007045 1000304142 05450 JR EXIT,34 4 PROCT 05450
* 007052 1000316100 05460 JR ER2,0 PROCT 05460
007057 4400244300 05470 SC IND,0 03036004JT PROCT 05470
* 007064 3000700652 05480 JC AN,42 PROCT 05480
007071 3400244351 05490 CC IND,41 PROCT 05490
007076 3400244300 05500 CC IND,0 PROCT 05500
* 007103 1000304142 05510 JR EXIT,34 4 PROCT 05510
* 007110 1000316100 05520 JR ER2,0 PROCT 05520
007115 4400244300 05530 SC IND,0 03036003 PROCT 05530
* 007122 3000714052 05540 JC BOF,42 PROCT 05540
* 007127 3000244351 05550 JC IND,41 PROCT 05550
007134 3400244320 05560 CC IND,16 PROCT 05560
007140 05570 BOF EQU $-1 PROCT 05570
* 007141 1000304142 05580 JR EXIT,34 4 PROCT 05580
* 007146 1000316100 05590 JR ER2,0 PROCT 05590
007153 4400244320 05600 SC IND,16 0 036003BOF PROCT 05600 O
* 007160 3000237352 05610 JC ZERO,42 2 PROCT 05610
* 007165 3000244351 05620 JC IND,41 PROCT 05620
007172 3400244300 05630 CC IND,0 PROCT 05630
* 007177 1000304142 05640 JR EXIT,34 4 PROCT 05640
* 007204 1000316100 05650 JR ER2,0 PROCT 05650
007211 4400244300 05660 SC IND,0 03036003JT PROCT 05660
* 007216 3000714052 05670 JC BOF,42 PROCT 05670
007223 3400244351 05680 CC IND,41 PROCT 05680
* 007230 3000652252 05690 JC EQ,42 PROCT 05690
007235 3400244300 05700 CC IND,0 PROCT 05700
* 007242 1000304142 05710 JR EXIT,34 4 PROCT 05710
* 007247 1000316100 05720 JR ER2,0 PROCT 05720
* 007254 3000730452 05730 JC DOF,42 036002 PROCT 05730
* 007261 3000727366 05740 JC $+10,54 4 PROCT 05740
* 007266 3000731200 05750 JC $+20,0 PROCT 05750
* 007273 3000244351 05760 JC IND,41 PROCT 05760
007300 3400244340 05770 CC IND,32 PROCT 05770
007304 05780 DOF EQU $-1 PROCT 05780
* 007305 3000731742 05790 JC $+10,34 4 PROCT 05790
* 007312 1000314700 05800 JR ER1,0 PROCT 05800
* 007317 1000307226 05810 JR NEXT,22 2 PROCT 05810
* 007324 3000237352 05820 JC ZERO,42 2 036002DOF PROCT 05820 2
* 007331 3000244351 05830 JC IND,41 PROCT 05830
007336 3400244300 05840 CC IND,0 PROCT 05840
* 007343 1000304142 05850 JR EXIT,34 4 PROCT 05850
* 007350 1000316100 05860 JR ER2,0 PROCT 05860
007355 4400244300 05870 SC IND,0 03036002JT PROCT 05870
* 007362 3000730452 05880 JC DOF,42 PROCT 05880
* 007367 3000737426 05890 JC $+5,22 PROCT 05890
007374 3400244351 05900 CC IND,41 PROCT 05900
007401 3400244300 05910 CC IND,0 PROCT 05910
* 007406 3000742042 05920 JC $+10,34 4 PROCT 05920
* 007413 1000314700 05930 JR ER1,0 PROCT 05930
* 007420 3000742550 05940 JC $+5,40 PROCT 05940
* 007425 1000307235 05950 JR NEXT,29 9 PROCT 05950
* 007432 3000237352 05960 JC ZERO,42 2 011007FT105 PROCT 05960 F
007437 2000637052 05970 FT HEREI,4242 PROCT 05970
* 007444 1000314741 05980 JR ER1,33 PROCT 05980
* 007451 1000307200 05990 JR NEXT,0 PROCT 05990
* 007456 3000637052 06000 JC HEREI,4242 011016FT105 PROCT 06000 6
007463 2000237352 06010 FT ZERO,42 2 PROCT 06010
* 007470 1000304141 06020 JR EXIT,33 3 PROCT 06020
* 007475 1000316100 06030 JR ER2,0 PROCT 06030
* 007502 3000237352 06040 JC ZERO,42 2 011100FT105 PROCT 06040 F
007507 2000652252 06050 FT EQ,42 PROCT 06050
* 007514 1000314742 06060 JR ER1,34 PROCT 06060
* 007521 1000307200 06070 JR NEXT,0 PROCT 06070
* 007526 3000652252 06080 JC EQ,42 01011115FT105 PROCT 06080 1
007533 2000237352 06090 FT ZERO,42 2 PROCT 06090
* 007540 1000304142 06100 JR EXIT,34 4 PROCT 06100
* 007545 1000316100 06110 JR ER2,0 PROCT 06110
* 007552 3000237352 06120 JC ZERO,42 2 011032FT105 PROCT 06120 F
007557 2000665452 06130 FT AZ,42 PROCT 06130
* 007564 1000314745 06140 JR ER1,37 PROCT 06140
* 007571 1000307200 06150 JR NEXT,0 PROCT 06150
* 007576 3000665452 06160 JC AZ,42 01011045FT105 PROCT 06160 1
007603 2000237352 06170 FT ZERO,42 2 PROCT 06170
* 007610 1000304145 06180 JR EXIT,37 7 PROCT 06180
* 007615 1000316100 06190 JR ER2,0 PROCT 06190
* 007622 3000237352 06200 JC ZERO,42 2 011070FT105 PROCT 06200 F
007627 2000700652 06210 FT AN,42 PROCT 06210
* 007634 1000314746 06220 JR ER1,38 PROCT 06220
* 007641 1000307200 06230 JR NEXT,0 PROCT 06230
* 007646 3000730452 07290 JC DOF,42 PROCT 07290
* 007653 3000766550 07300 JC $+10,40 0 PROCT 07300
* 007660 3000767700 07310 JC $+15,0 PROCT 07310
* 007665 3000767766 07320 JC $+10,54 4 PROCT 07320
* 007672 1000304137 07330 JR EXIT,31 1 PROCT 07330
* 007677 1000316100 07340 JR ER2,0 PROCT 07340
* 007704 3000771116 07350 JC $+5,14 0 013068NW PROCT 07350 W
* 007711 1000314772 07360 JR ER1,58 PROCT 07360
* 007716 1000307200 07370 JR NEXT,0 PROCT 07370
* 007723 3000773017 07380 JC $+5,15 0 013068J1 PROCT 07380 1
* 007730 3000774252 07390 JC $+10,42 2 PROCT 07390
* 007735 1000304116 07400 JR EXIT,14 4 PROCT 07400
* 007742 1000316100 07410 JR ER2,0 PROCT 07410
* 007747 3000775417 07420 JC $+5,15 0 013068LU2 PROCT 07420 U
* 007754 1000314776 07430 JR ER1,62 PROCT 07430
* 007761 1000307216 07440 JR NEXT,14 4 PROCT 07440
* 007766 3000777317 07450 JC $+5,15 0 013068LD2 PROCT 07450 D
* 007773 1000314773 07460 JR ER1,59 PROCT 07460
* 010000 1000307216 07470 JR NEXT,14 4 PROCT 07470
* 010005 3001001254 07480 JC $+5,44 0 013077NW2 PROCT 07480 W
* 010012 1000314754 07490 JR ER1,44 PROCT 07490
* 010017 1000307200 07500 JR NEXT,0 PROCT 07500
010024 4020406777 07510 XF 32,0677777,0,1 013037 IOS1 PROCT 07510
010031 4020006777 07520 XF 0,06777,7,0,1 PROCT 07520
* 010036 1000314753 07530 JR ER1,43 PROCT 07530
* 010043 1000307200 07540 JR NEXT,0 PROCT 07540
* 010050 3001005536 07550 JC $+5,30 0 013040IR1 PROCT 07550 R
* 010055 1000314761 07560 JR ER1,49 PROCT 07560
* 010062 1000307200 07570 JR NEXT,0 PROCT 07570
* 010067 3001007471 07580 JC $+5,57 0 013072TI PROCT 07580 I
* 010074 1000314771 07590 JR ER1,57 PROCT 07590
* 010101 1000307200 07600 JR NEXT,0 PROCT 07600
* 010106 3201012500 07610 JL $+15,0 0 013157,012215, CHECK JL PROCT 07610 0
010113 3401011200 07620 CC $-1,0 PROCT 07620
* 010120 1000304142 07630 JR EXIT,34 4 PROCT 07630
* 010125 1000316100 07640 JR ER2,0 PROCT 07640
010132 4401014377 07650 SC $+9,63 0 009058,003106+084,012211 PROCT 07650 0
* 010137 3201015177 07660 JL $+10,63 3 PROCT 07660
* 010144 3001016300 07670 JC $+15,0 PROCT 07670
010151 3401014376 07680 CC $-6,62 PROCT 07680
* 010156 1000304142 07690 JR EXIT,34 4 PROCT 07690
* 010163 1000316100 07700 JR ER2,0 PROCT 07700
010170 4401020176 07710 SC $+9,62 0 009056+054,003104+102 PROCT 07710 0
* 010175 3201020276 07720 JL $+5,62 PROCT 07720
010202 3401020175 07730 CC $-1,61 PROCT 07730
* 010207 1000304142 07740 JR EXIT,34 4 PROCT 07740
* 010214 1000316100 07750 JR ER2,0 PROCT 07750
010221 4401023274 07760 SC $+9,60 0 009052+050,003100+098 PROCT 07760 0
* 010226 3201023374 07770 JL $+5,60 PROCT 07770
010233 3401023273 07780 CC $-1,59 PROCT 07780
* 010240 1000304142 07790 JR EXIT,34 4 PROCT 07790
* 010245 1000316100 07800 JR ER2,0 PROCT 07800
010252 4401026370 07810 SC $+9,56 0 009048+046,003096+094 PROCT 07810 0
* 010257 3201026470 07820 JL $+5,56 PROCT 07820
010264 3401026367 07830 CC $-1,55 PROCT 07830
* 010271 1000304142 07840 JR EXIT,34 4 PROCT 07840
* 010276 1000316100 07850 JR ER2,0 PROCT 07850
010303 4401031460 07860 SC $+9,48 0 009044+042,003092+090 PROCT 07860 0
* 010310 3201031560 07870 JL $+5,48 PROCT 07870
010315 3401031457 07880 CC $-1,47 PROCT 07880
* 010322 1000304142 07890 JR EXIT,34 4 PROCT 07890
* 010327 1000316100 07900 JR ER2,0 PROCT 07900
010334 4401034540 07910 SC $+9,32 0 009040+038,003088+086 PROCT 07910 0
* 010341 3201034640 07920 JL $+5,32 PROCT 07920
010346 3401034537 07930 CC $-1,31 PROCT 07930
* 010353 1000304142 07940 JR EXIT,34 4 PROCT 07940
* 010360 1000316100 07950 JR ER2,0 PROCT 07950
010365 4400244300 07960 SC IND,0 CHCHECK SC PROCT 07960
010372 4400244352 07970 SC IND,42 PROCT 07970
010377 3400244352 07980 CC IND,42 PROCT 07980
* 010404 1000304142 07990 JR EXIT,34 4 PROCT 07990
* 010411 1000316100 08000 JR ER2,0 PROCT 08000
010416 4400244300 08010 SC IND,0 PROCT 08010
010423 4400244325 08020 SC IND,21 PROCT 08020
010430 3400244325 08030 CC IND,21 PROCT 08030
* 010435 1000304142 08040 JR EXIT,34 4 PROCT 08040
* 010442 1000316100 08050 JR ER2,0 PROCT 08050
010447 3400237302 08060 CC ZERO,2 CHECK CC2,0 PROCT 08060 C
* 010454 1000304141 08070 JR EXIT,33 3 PROCT 08070
* 010461 1000316100 08080 JR ER2,0 PROCT 08080
010466 3400164003 08090 CC K17,3 CHCHECK CC3,3 PROCT 08090 3
* 010473 1000304142 08100 JR EXIT,34 4 PROCT 08100
* 010500 1000316100 08110 JR ER2,0 PROCT 08110
* 010505 3000652252 08120 JC EQ,42 CHCHECK 21,42 PROCT 08120 ,
010512 3401051125 08130 CC $-1,21 PROCT 08130
* 010517 1000304144 08140 JR EXIT,36 6 PROCT 08140
* 010524 1000316100 08150 JR ER2,0 PROCT 08150
* 010531 3000652252 08160 JC EQ,42 C CHECK 42,21 PROCT 08160 2
010536 3401051652 08170 CC $-16,42 2 PROCT 08170
* 010543 1000304141 08180 JR EXIT,33 3 PROCT 08180
* 010550 1000316100 08190 JR ER2,0 PROCT 08190
* 010555 3000237352 08200 JC ZERO,42 2 CHECK LS, 011101 F5- PROCT 08200
010562 4400244300 08210 SC IND,0 PROCT 08210
010567 6400244300 08220 LS IND,0 PROCT 08220
* 010574 3001061342 08230 JC $+15,34 4 PROCT 08230
010601 3400244300 08240 CC IND,0 PROCT 08240
* 010606 1000304142 08250 JR EXIT,34 4 PROCT 08250
* 010613 1000316100 08260 JR ER2,0 PROCT 08260
* 010620 3000637052 08270 JC HEREI,4242 CHECK LS, 1S MEM. PROCT 08270 K
010625 4400244377 08280 SC IND,077 7 PROCT 08280
010632 6400244300 08290 LS IND,0 PROCT 08290
* 010637 3001065644 08300 JC $+15,36 6 PROCT 08300
010644 3400244377 08310 CC IND,077 7 PROCT 08310
* 010651 1000304142 08320 JR EXIT,34 4 PROCT 08320
* 010656 1000316100 08330 JR ER2,0 PROCT 08330
* 010663 3000637052 08340 JC HEREI,4242 CHECK LS, OS MEM. PROCT 08340 K
010670 4400244300 08350 SC IND,0 PROCT 08350
010675 6400244377 08360 LS IND,077 7 PROCT 08360
* 010702 3001072144 08370 JC $+15,36 6 PROCT 08370
010707 3400244377 08380 CC IND,077 7 PROCT 08380
* 010714 1000304142 08390 JR EXIT,34 4 PROCT 08390
* 010721 1000316100 08400 JR ER2,0 PROCT 08400
010726 4400244352 08410 SC IND,42 C CHECK LP 42,25 PROCT 08410 P
010733 5400244331 08420 LP IND,25 PROCT 08420
010740 3400244310 08430 CC IND,8 PROCT 08430
* 010745 1000304142 08440 JR EXIT,34 4 PROCT 08440
* 010752 1000316100 08450 JR ER2,0 PROCT 08450
010757 4400244352 08460 SC IND,42 C CHECK LT 42,0 PROCT 08460 T
010764 1400244300 08470 LC IND,0 PROCT 08470
* 010771 1000304142 08480 JR EXIT,34 4 PROCT 08480
* 010776 1000316100 08490 JR ER2,0 PROCT 08490
011003 4400244343 08500 SC IND,35 C CHECK LT 35,54 PROCT 08500 T
011010 1400244366 08510 LC IND,54 PROCT 08510
* 011015 1000304141 08520 JR EXIT,33 3 PROCT 08520
* 011022 1000316100 08530 JR ER2,0 PROCT 08530
011027 4400244353 08540 SC IND,43 C CHECK LT 43,42 PROCT 08540 T
011034 1400244352 08550 LC IND,42 PROCT 08550
* 011041 1000304142 08560 JR EXIT,34 4 PROCT 08560
* 011046 1000316100 08570 JR ER2,0 PROCT 08570
011053 5600163102 08580 BA1 K14,2 C CHECK CB,008044 PROCT 08580 B
011060 5600163122 08590 BA2 K14,2 PROCT 08590
011065 7000001762 08600 CB2 15,2 PROCT 08600
011072 7000001762 08610 CB2 15,2 PROCT 08610
* 011077 1000304142 08620 JR EXIT,34 4 PROCT 08620
* 011104 1000316100 08630 JR ER2,0 PROCT 08630
011111 5600237303 08640 BA1 ZERO,3 C CHECK BA,NO SENT,2 PROCT 08640 A
011116 5600162502 08650 BA1 K13,2 OCT 1740 PROCT 08650
011123 7000162543 08660 CB1 K13,3 OCT 00 17 40 PROCT 08660
* 011130 1000304142 08670 JR EXIT,34 4 PROCT 08670
* 011135 1000316100 08680 JR ER2,0 PROCT 08680
011142 5600237303 08690 BA1 ZERO,3 C CHECK BA,SENT,2 PROCT 08690 A
011147 5600163142 08700 BD1 K14,2 OCOCT5264 PROCT 08700
011154 7000254343 08710 CB1 K01+3,3 3 OCT 631244 PROCT 08710
* 011161 1000304142 08720 JR EXIT,34 4 PROCT 08720
* 011166 1000316100 08730 JR ER2,0 PROCT 08730
011173 5600237300 08740 BA1 ZERO,16 6 CHECK BA,SENT,AR0,16 PROCT 08740 B
011200 5600156540 08750 BD1 K08,16 PROCT 08750
011205 7000162540 08760 CB1 K13,16 PROCT 08760
* 011212 1000304142 08770 JR EXIT,34 4 PROCT 08770
* 011217 1000316100 08780 JR ER2,0 PROCT 08780
011224 5600237320 08790 BA2 ZERO,16 6 CHECK BA,NO SENT,AR1,16 PROCT 08790 B
011231 5600156520 08800 BA2 K08,16 PROCT 08800
011236 7000156560 08810 CB2 K08,16 PROCT 08810
* 011243 1000304142 08820 JR EXIT,34 4 PROCT 08820
* 011250 1000316100 08830 JR ER2,0 PROCT 08830
011255 5600237302 08840 BA1 ZERO,2 C CHECK SA,AR0 PROCT 08840 A
011262 5200003702 08850 SA1 31,2 PROCT 08850
011267 5600163102 08860 BA1 K14,2 OCOCT5264 PROCT 08860
011274 5200003702 08870 SA1 31,2 PROCT 08870
011301 7000163142 08880 CB1 K14,2 OCOCT5264 PROCT 08880
* 011306 1000304142 08890 JR EXIT,34 4 PROCT 08890
* 011313 1000316100 08900 JR ER2,0 PROCT 08900
011320 5600237322 08910 BA2 ZERO,2 C CHECK SA,AR1 PROCT 08910 A
011325 5200001722 08920 SA2 15,2 PROCT 08920
011332 5600163122 08930 BA2 K14,2 OCOCT5264 PROCT 08930
011337 5200001722 08940 SA2 15,2 PROCT 08940
011344 7000163162 08950 CB2 K14,2 OCOCT5264 PROCT 08950
* 011351 1000304142 08960 JR EXIT,34 4 PROCT 08960
* 011356 1000316100 08970 JR ER2,0 PROCT 08970
011363 4600237304 08980 BT ZERO,4 C CHECK BT,ROW 0 PROCT 08980 T
011370 4600163104 08990 BT K14,4 O OCT07775264 PROCT 08990 5
011375 7400163104 09000 CT K14,4 O OCT 07775264 PROCT 09000 7
* 011402 1000304142 09010 JR EXIT,34 4 PROCT 09010
* 011407 1000316100 09020 JR ER2,0 PROCT 09020
011414 4600237326 09030 BT ZERO,22 2 CHECK BT,ROW 1 PROCT 09030 B
011421 4600163126 09040 BT K14,22 OCT 07775264 PROCT 09040 7
011426 7400163126 09050 CT K14,22 OCT 07775264 PROCT 09050 7
* 011433 1000304142 09060 JR EXIT,34 4 PROCT 09060
* 011440 1000316100 09070 JR ER2,0 PROCT 09070
011445 4600237350 09080 BT ZERO,40 0 CHECK BT,ROW 2 PROCT 09080 B
011452 4600163150 09090 BT K14,40 O OCT 07775264 PROCT 09090 7
011457 7400163150 09100 CT K14,40 OCT 07775264 PROCT 09100 7
* 011464 1000304142 09110 JR EXIT,34 4 PROCT 09110
* 011471 1000316100 09120 JR ER2,0 PROCT 09120
011476 4600237373 09130 BT ZERO,59 9 CHECK BT, ROW3+042007 PROCT 09130
011503 4600163173 09140 BT K14,59 PROCT 09140
011510 7400163173 09150 CT K14,59 PROCT 09150
* 011515 1000304142 09160 JR EXIT,34 4 PROCT 09160
* 011522 1000316100 09170 JR ER2,0 PROCT 09170
011527 5600237304 09180 BA1 ZERO,4 C CHECK ST PROCT 09180 T
011534 4600163126 09190 BT K14,22 O OCT07005264 PROCT 09190 5
011541 4200001726 09200 ST 15,22 PROCT 09200
011546 7400163103 09210 CT K14,3 OCOCT07005264 PROCT 09210 2
* 011553 1000304142 09220 JR EXIT,34 4 PROCT 09220
* 011560 1000316100 09230 JR ER2,0 PROCT 09230
011565 4600237377 09240 BT ZERO,63 3 CHECK FT WITH ONES PROCT 09240 F
011572 2007777777 09250 FT 32767,6363 PROCT 09250
011577 5600037703 09260 BA1 255,3 PROCT 09260
011604 7001157543 09270 CB1 $-7,3 PROCT 09270
* 011611 1000304142 09280 JR EXIT,34 4 PROCT 09280
* 011616 1000316100 09290 JR ER2,0 PROCT 09290
011623 4601157677 09300 BT $-21,63 3 CHECK FT WITH ZEROS PROCT 09300 F
011630 2000000077 09310 FT 0,63 PROCT 09310
011635 5600037703 09320 BA1 255,3 PROCT 09320
011642 7000237343 09330 CB1 ZERO,3 PROCT 09330
* 011647 1000304142 09340 JR EXIT,34 4 PROCT 09340
* 011654 1000316100 09350 JR ER2,0 PROCT 09350
011661 5600156500 09360 BA1 K08,16 C CHECK BSD1C,1B PROCT 09360 S
011666 1600000011 09370 BS1 0,1 PROCT 09370
011673 3400000012 09380 CC 0,10 PROCT 09380
* 011700 1000304142 09390 JR EXIT,34 4 PROCT 09390
* 011705 1000316100 09400 JR ER2,0 PROCT 09400
011712 5600160302 09410 BA1 K11,2 CHCHECK BSC 2C,2B,OCT6263 PROCT 09410 C
011717 1600001762 09420 BC2 15,2 PROCT 09420
011724 7000155542 09430 CB1 K07,2 OCOCT1317 PROCT 09430
* 011731 1000304142 09440 JR EXIT,34 4 PROCT 09440
* 011736 1000316100 09450 JR ER2,0 PROCT 09450
011743 5600160403 09460 BA1 K12-1,3 3 CHECK BSD 3C,4B,OCT626352 PROCT 09460 B
011750 1600001734 09470 BS3 15,4 PROCT 09470
011755 7000155343 09480 CB1 K06,3 OCOCT547240 PROCT 09480 0
* 011762 1000304142 09490 JR EXIT,34 4 PROCT 09490
* 011767 1000316100 09500 JR ER2,0 PROCT 09500
011774 5600160504 09510 BA1 K12,4 CHCHECK BSC 4C,7B,OCT62635225 PROCT 09510 C
012001 1600001747 09520 BC4 15,7 PROCT 09520
012006 7000154644 09530 CB1 K04,4 OCOCT47245345 PROCT 09530 3
* 012013 1000304142 09540 JR EXIT,34 4 PROCT 09540
* 012020 1000316100 09550 JR ER2,0 PROCT 09550
012025 5600163102 09560 BA1 K14,2 OCOCT5264,CHECK ZP BLANK PROCT 09560 C
012032 2600001702 09570 PD 15,2 PROCT 09570
012037 7000237342 09580 CB1 ZERO,2 PROCT 09580
* 012044 1000304142 09590 JR EXIT,34 4 PROCT 09590
* 012051 1000316100 09600 JR ER2,0 PROCT 09600
012056 5600163101 09610 BA1 K14,1 OCOCT64,CHECK ZP DEC ZERO PROCT 09610 E
012063 2600001721 09620 PD0 15,1 PROCT 09620
012070 3400001703 09630 CC 15,3 PROCT 09630
* 012075 1000304142 09640 JR EXIT,34 4 PROCT 09640
* 012102 1000316100 09650 JR ER2,0 PROCT 09650
012107 2600001720 09660 PD0 15,0 PROCT 09660
012114 5600160304 09670 BA1 K11,4 ZSZS BLANK+FLTG $,OCT00036263 PROCT 09670 +
012121 2200000000 09680 ZS$ 0,16 PROCT 09680
012126 7000167444 09690 CB1 K32,4 OCOCT 00004263 PROCT 09690 4
* 012133 3001214542 09700 JC $+10,34 4 PROCT 09700
* 012140 3001215700 09710 JC $+15,0 PROCT 09710
012145 3400011117 09720 CC 73,15 PROCT 09720
* 012152 1000304142 09730 JR EXIT,34 4 PROCT 09730
* 012157 1000316100 09740 JR ER2,0 PROCT 09740
012164 5600160304 09750 BA1 K11,4 ZSZS BLANK,OCT 00036263 PROCT 09750 ,
012171 2200001444 09760 ZS 12,4 PROCT 09760
012176 7000170044 09770 CB1 K33,4 OCOCT 00000063 PROCT 09770 0
* 012203 1000304142 09780 JR EXIT,34 4 PROCT 09780
* 012210 1000316100 09790 JR ER2,0 PROCT 09790
012215 5600160304 09800 BA1 K11,4 ZSZS ASTERISK, OCT 00036263 PROCT 09800 I
012222 2200001464 09810 ZS* 12, 4, PROCT 09810
012227 7000254744 09820 CB1 K01+7,4 4 OCT J1414163 PROCT 09820
* 012234 1000304142 09830 JR EXIT,34 4 PROCT 09830
* 012241 1000316100 09840 JR ER2,0 PROCT 09840
012246 5600160304 09850 BA1 K11,4 ZSZS,TEST FOR LAC LOW PROCT 09850 F
012253 2200001442 09860 ZS 12,2 PROCT 09860
012260 7000170444 09870 CB1 K33+4,4 4 OCT 00006263 PROCT 09870 0
* 012265 1000304142 09880 JR EXIT,34 4 PROCT 09880
* 012272 1000316100 09890 JR ER2,0 PROCT 09890
012277 5600237300 09900 BA1 ZERO,16 6 ZS,TEST FOR FAC LOW PROCT 09900 T
012304 2200000060 09910 ZS* 0, 16, PROCT 09910
012311 3400001742 09920 CC 15,34 PROCT 09920
* 012316 3001233542 09930 JC $+15,34 4 PROCT 09930
012323 3400011120 09940 CC 73,16 PROCT 09940
* 012330 1000304142 09950 JR EXIT,34 4 PROCT 09950
* 012335 1000316100 09960 JR ER2,0 PROCT 09960
012342 5600156502 09970 BA1 K08,2 CHCHECK TR, OCT 3740 PROCT 09970 ,
012347 4400011015 09980 SC 72,015 PROCT 09980
012354 1200001702 09990 TR 15,2 PROCT 09990
012361 7000154042 10000 CB1 K02,2 OCOCT 1000 PROCT 10000
* 012366 1000304142 10010 JR EXIT,34 4 PROCT 10010
* 012373 1000316100 10020 JR ER2,0 PROCT 10020
012400 2601241604 10030 PD $+14,4 CHECK 64 COUNT TR, 027 078 PROCT 10030 6
012405 4401243577 10040 SC $+24,63 3 PROCT 10040
012412 4400000000 10050 SC 0,0 PROCT 10050
012417 6001241501 10060 AC $-2,1 PROCT 10060
012424 6001241601 10070 AC $-6,1 PROCT 10070
* 012431 3201241277 10080 JL $-15,63 3 PROCT 10080
012436 4400007777 10090 SC 077,077 7 PROCT 10090
012443 4400011024 10100 SC 72,20 PROCT 10100
012450 1200007700 10110 TR 077,64 PROCT 10110
012455 7000241740 10120 CB1 02417,1616 PROCT 10120
* 012462 1000304142 10130 JR EXIT,34 4 PROCT 10130
* 012467 1000316100 10140 JR ER2,0 PROCT 10140
012474 5600215110 10150 BA1 DEC2,8 CHECK TR 0304050607101112 PROCT 10150 T
012501 4400011060 10160 SC 72,48 T TR TABLE IN ROW 60 PROCT 10160 E
012506 1200001710 10170 TR 15,8 PROCT 10170
012513 7000601250 10180 CB1 06012,8 8 OCT 7154521000344741 PROCT 10180
* 012520 1000304142 10190 JR EXIT,34 4 PROCT 10190
* 012525 1000316100 10200 JR ER2,0 PROCT 10200
012532 5601255005 10210 BA1 $+14,5 F S 67 Z TO MA PROCT 10210
012537 2000000522 10220 FT 05,18 PROCT 10220
012544 2001254420 10230 FT $,16 PROCT 10230
012551 2401254401 10240 TFR $-5 PROCT 10240
012556 7001255045 10250 CB1 $-6,5 PROCT 10250
* 012563 1000304142 10260 JR EXIT,3434 PROCT 10260
* 012570 1000316100 10270 JR ER2,0 PROCT 10270
012575 5600240100 10280 BA1 ZERO+6,1,16 CHECK TB COUNT 64 PROCT 10280 C
012602 5200011700 10290 SA1 79,16 D DESTINATION IN )-16 PROCT 10290 T
012607 2400154201 10300 TFR K03,1 NONO ADVANCE PROCT 10300 C
012614 7000156140 10310 CB1 K03+15,1,16 PROCT 10310
* 012621 3001263342 10320 JC $+10,34 4 PROCT 10320
* 012626 3001273400 10330 JC $+70,0 PROCT 10330
012633 7000160160 10340 CB2 K03+31,1,16 PROCT 10340
* 012640 3001265242 10350 JC $+10,34 4 PROCT 10350
* 012645 3001273400 10360 JC $+55,0 PROCT 10360
012652 5600005700 10370 BA1 47,16 PROCT 10370
012657 7000162140 10380 CB1 K03+47,1,16 PROCT 10380
* 012664 3001267642 10390 JC $+10,34 4 PROCT 10390
* 012671 3001273400 10400 JC $+35,0 PROCT 10400
012676 5600007700 10410 BA1 63,16 PROCT 10410
012703 7000164140 10420 CB1 K03+63,1,16 PROCT 10420
* 012710 3001272242 10430 JC $+10,34 4 PROCT 10430
* 012715 3001273400 10440 JC $+15,0 PROCT 10440
012722 7400237320 10450 CT ZERO,16 6 PROCT 10450
* 012727 1000304142 10460 JR EXIT,34 4 PROCT 10460
* 012734 1000316100 10470 JR ER2,0 PROCT 10470
012741 5600242500 10480 BA1 OKAYS-6,6,16 CHECK TB. COUNT 16 PROCT 10480
012746 5200011700 10490 SA1 79,16 O ORIGIN IN T-17 PROCT 10490 I
012753 2400000061 10500 TTI 0 ADVANCE PROCT 10500
012760 7000203740 10510 CB1 CON4,16 6 PROCT 10510
* 012765 3001277742 10520 JC $+10,34 4 PROCT 10520
* 012772 3001301100 10530 JC $+15,0 PROCT 10530
012777 2000204003 10540 FT CON4+1,3,3 PROCT 10540
013004 7000010742 10550 CB1 71,2 PROCT 10550
* 013011 1000304142 10560 JR EXIT,34 4 PROCT 10560
* 013016 1000316100 10570 JR ER2,0 PROCT 10570
013023 5600156631 10580 BA2 K08+1,9 9 CHECKED,007063,007061 PROCT 10580 D
013030 5600160302 10590 BA1 K11,2 OCOCT6263 PROCT 10590
013035 5200007742 10600 ED 63, 2 PROCT 10600
013042 5600157711 10610 BA1 K09+2,9 9 PROCT 10610
013047 7000007751 10620 CB1 63,9 PROCT 10620
* 013054 1000304142 10630 JR EXIT,34 4 PROCT 10630
* 013061 1000316100 10640 JR ER2,0 PROCT 10640
013066 5600157520 10650 BA2 K09,16 0 007063J1- PROCT 10650 1
013073 5600160300 10660 BA1 K11,16 PROCT 10660
013100 5200007761 10670 SAR 077 PROCT 10670
013105 7000005740 10680 CB1 47,16 PROCT 10680
* 013112 3001312442 10690 JC $+10,34 4 PROCT 10690
* 013117 3001313600 10700 J $+15 PROCT 10700
013124 7000007760 10710 CB2 63,16 PROCT 10710
* 013131 1000304142 10720 JR EXIT,34 4 PROCT 10720
* 013136 1000316100 10730 JR ER2,0 PROCT 10730
013143 5600156622 10740 BA2 K08+1,2 2 007061, OCT 4002 PROCT 10740 ,
013150 5600157502 10750 BA1 K09,2 OCOCT6037 PROCT 10750
013155 5200007741 10760 ED 63, 1 PROCT 10760
013162 5600161602 10770 BA1 K13-7,2 2 OCT 1700 PROCT 10770 0
013167 7000007742 10780 CB1 63,2 PROCT 10780
* 013174 1000304142 10790 JR EXIT,34 4 PROCT 10790
* 013201 1000316100 10800 JR ER2,0 PROCT 10800
013206 5600163622 10810 BA2 K16,2 OCOCT4040 PROCT 10810
013213 5600160302 10820 BA1 K11,2 OCOCT6263 PROCT 10820
013220 5200007742 10830 ED 63, 2 PROCT 10830
013225 7000007742 10840 CB1 63,2 PROCT 10840
* 013232 1000304142 10850 JR EXIT,34 4 PROCT 10850
* 013237 1000316100 10860 JR ER2,0 PROCT 10860
013244 5600155022 10870 BA2 K04+2,2 2 OCT4077,007059 PROCT 10870 7
013251 5600160302 10880 BA1 K11,2 OCOCT6263 PROCT 10880
013256 5200007742 10890 ED 63, 2 PROCT 10890
013263 5600164002 10900 BA1 K17,2 OCOCT6203 PROCT 10900
013270 7000007742 10910 CB1 63,2 PROCT 10910
* 013275 1000304142 10920 JR EXIT,34 4 PROCT 10920
* 013302 1000316100 10930 JR ER2,0 PROCT 10930
013307 5600164222 10940 BA2 K18,2 OCOCT4042,007061D6- PROCT 10940 0
013314 5600155301 10950 BA1 K06,1 OCOCT40 PROCT 10950
013321 5200007741 10960 ED 63, 1 PROCT 10960
013326 7000007762 10970 CB2 63,2 PROCT 10970
* 013333 1000304142 10980 JR EXIT,34 4 PROCT 10980
* 013340 1000316100 10990 JR ER2,0 PROCT 10990
013345 5600164422 11000 BA2 K19,2 OCOCT4022,007061D5- PROCT 11000 0
013352 5600155301 11010 BA1 K06,1 OCOCT40 PROCT 11010
013357 5200007741 11020 ED 63, 1 PROCT 11020
013364 7000007762 11030 CB2 63,2 PROCT 11030
* 013371 1000304142 11040 JR EXIT,34 4 PROCT 11040
* 013376 1000316100 11050 JR ER2,0 PROCT 11050
013403 5600164622 11060 BA2 K21,2 OCOCT4012,007061D4- PROCT 11060 0
013410 5600155301 11070 BA1 K06,1 OCOCT40 PROCT 11070
013415 5200007741 11080 ED 63, 1 PROCT 11080
013422 7000007762 11090 CB2 63,2 PROCT 11090
* 013427 1000304142 11100 JR EXIT,34 4 PROCT 11100
* 013434 1000316100 11110 JR ER2,0 PROCT 11110
013441 5600165022 11120 BA2 K22,2 OCOCT4006,007061D3- PROCT 11120 0
013446 5600155301 11130 BA1 K06,1 OCOCT40 PROCT 11130
013453 5200007741 11140 ED 63, 1 PROCT 11140
013460 7000007762 11150 CB2 63,2 PROCT 11150
* 013465 1000304142 11160 JR EXIT,34 4 PROCT 11160
* 013472 1000316100 11170 JR ER2,0 PROCT 11170
013477 5600165222 11180 BA2 K23,2 OCOCT4000,007061D2 PROCT 11180 0
013504 5600155301 11190 BA1 K06,1 OCOCT40 PROCT 11190
013511 5200007741 11200 ED 63, 1 PROCT 11200
013516 7000007762 11210 CB2 63,2 PROCT 11210
* 013523 1000304142 11220 JR EXIT,34 4 PROCT 11220
* 013530 1000316100 11230 JR ER2,0 PROCT 11230
013535 5600165422 11240 BA2 K24,2 OCOCT4003,007061D1- PROCT 11240 0
013542 5600155301 11250 BA1 K06,1 OCOCT40 PROCT 11250
013547 5200007741 11260 ED 63, 1 PROCT 11260
013554 7000007762 11270 CB2 63,2 PROCT 11270
* 013561 1000304142 11280 JR EXIT,34 4 PROCT 11280
* 013566 1000316100 11290 JR ER2,0 PROCT 11290
013573 5600163620 11300 BA2 K16,16 0 007061J1- PROCT 11300 1
013600 5600157500 11310 BA1 K09,16 PROCT 11310
013605 5200007761 11320 SAR 077 PROCT 11320
013612 7000005740 11330 CB1 47,16 PROCT 11330
* 013617 3001363142 11340 JC $+10,34 4 PROCT 11340
* 013624 3001364300 11350 J $+15 PROCT 11350
013631 7000007760 11360 CB2 63,16 PROCT 11360
* 013636 1000304142 11370 JR EXIT,34 4 PROCT 11370
* 013643 1000316100 11380 JR ER2,0 PROCT 11380
013650 5600156723 11390 BA2 K08+2,3 3 007061BM,OCT400262 PROCT 11390 B
013655 5600155301 11400 BA1 K06,1 OCOCT40 PROCT 11400
013662 5200007741 11410 ED 63, 1 PROCT 11410
013667 7000007763 11420 CB2 63,3 OCTCT400262 PROCT 11420
* 013674 1000304142 11430 JR EXIT,34 4 PROCT 11430
* 013701 1000316100 11440 JR ER2,0 PROCT 11440
013706 5600165622 11450 BA2 K25,2 00007059D6,OCT4037 PROCT 11450 ,
013713 5600155301 11460 BA1 K06,1 OCOCT 40 PROCT 11460
013720 5200007741 11470 ED 63, 1 PROCT 11470
013725 7000007762 11480 CB2 63,2 PROCT 11480
* 013732 1000304142 11490 JR EXIT,34 4 PROCT 11490
* 013737 1000316100 11500 JR ER2,0 PROCT 11500
013744 5600166022 11510 BA2 K26,2 00007059D5,OCT4057 PROCT 11510 ,
013751 5600155301 11520 BA1 K06,1 OCOCT40 PROCT 11520
013756 5200007741 11530 ED 63, 1 PROCT 11530
013763 7000007762 11540 CB2 63,2 PROCT 11540
* 013770 1000304142 11550 JR EXIT,34 4 PROCT 11550
* 013775 1000316100 11560 JR ER2,0 PROCT 11560
014002 5600166222 11570 BA2 K27,2 00007059D4,OCT4067 PROCT 11570 ,
014007 5600155301 11580 BA1 K06,1 OCOCT40 PROCT 11580
014014 5200007741 11590 ED 63, 1 PROCT 11590
014021 7000007762 11600 CB2 63,2 PROCT 11600
* 014026 1000304142 11610 JR EXIT,34 4 PROCT 11610
* 014033 1000316100 11620 JR ER2,0 PROCT 11620
014040 5600166422 11630 BA2 K28,2 00007059D3,OCT4073 PROCT 11630 ,
014045 5600155301 11640 BA1 K06,1 OCOCT40 PROCT 11640
014052 5200007741 11650 ED 63, 1 PROCT 11650
014057 7000007762 11660 CB2 63,2 PROCT 11660
* 014064 1000304142 11670 JR EXIT,34 4 PROCT 11670
* 014071 1000316100 11680 JR ER2,0 PROCT 11680
014076 5600166622 11690 BA2 K29,2 00007059D2,OCT4075 PROCT 11690 ,
014103 5600155301 11700 BA1 K06,1 OCOCT40 PROCT 11700
014110 5200007741 11710 ED 63, 1 PROCT 11710
014115 7000007762 11720 CB2 63,2 PROCT 11720
* 014122 1000304142 11730 JR EXIT,34 4 PROCT 11730
* 014127 1000316100 11740 JR ER2,0 PROCT 11740
014134 5600167022 11750 BA2 K31,2 00007059D1,OCT4076 PROCT 11750 ,
014141 5600155301 11760 BA1 K06,1 OCOCT40 PROCT 11760
014146 5200007741 11770 ED 63, 1 PROCT 11770
014153 7000007762 11780 CB2 63,2 PROCT 11780
* 014160 1000304142 11790 JR EXIT,34 4 PROCT 11790
* 014165 1000316100 11800 JR ER2,0 PROCT 11800
014172 5600155123 11810 BA2 K05,3 00007059BM,OCT407754 PROCT 11810 ,
014177 5600155301 11820 BA1 K06,1 PROCT 11820
014204 5200007741 11830 ED 63, 1 PROCT 11830
014211 7000007763 11840 CB2 63,3 PROCT 11840
* 014216 1000304142 11850 JR EXIT,34 4 PROCT 11850
* 014223 1000316100 11860 JR ER2,0 PROCT 11860
014230 5600156520 11870 BA2 K08,16 0 007059J1- PROCT 11870 1
014235 5600157500 11880 BA1 K09,16 PROCT 11880
014242 5200007761 11890 SAR 63 PROCT 11890
014247 7000005740 11900 CB1 47,16 PROCT 11900
* 014254 3001426642 11910 JC $+10,34 4 PROCT 11910
* 014261 3001430000 11920 JC $+15,0 PROCT 11920
014266 7000007760 11930 CB2 63,16 PROCT 11930
* 014273 1000304142 11940 JR EXIT,34 4 PROCT 11940
* 014300 1000316100 11950 JR ER2,0 PROCT 11950
014305 4400170500 11960 SC AC1,0 PROCT 11960
014312 6000170500 11970 AC AC1,0 PROCT 11970
014317 3400170500 11980 CC AC1,0 PROCT 11980
* 014324 1000304142 11990 JR EXIT,34 4 ADD ZERO PROCT 11990 R
* 014331 1000316100 12000 JR ER2,0 PROCT 12000
014336 5600171103 12010 BA1 PAT,3 PROCT 12010
014343 5600171423 12020 BA2 CON,3 PROCT 12020
014350 7200003703 12030 AB1 31,3 PROCT 12030
014355 7000171763 12040 CB2 ANS,3 PROCT 12040
* 014362 1000304142 12050 JR EXIT,34 4 STRING 1 PROCT 12050
* 014367 1000316100 12060 JR ER2,0 PROCT 12060
014374 5600173617 12070 BA1 PAT2,15 5 PROCT 12070
014401 5600175537 12080 BA2 CON2,15 5 PROCT 12080
014406 7200003717 12090 AB1 31,15 PROCT 12090
014413 7000177477 12100 CB2 ANS2,15 5 PROCT 12100
* 014420 1000304142 12110 JR EXIT,34 4 STRING 2 PROCT 12110
* 014425 1000316100 12120 JR ER2,0 PROCT 12120
014432 5600200307 12130 BA1 PAT3,7 PROCT 12130
014437 5600201227 12140 BA2 CON3,7 PROCT 12140
014444 7200003707 12150 AB1 31,7 PROCT 12150
014451 7000202167 12160 CB2 ANS3,7 PROCT 12160
* 014456 1000304142 12170 JR EXIT,34 4 STRING 3 PROCT 12170
* 014463 1000316100 12180 JR ER2,0 PROCT 12180
014470 5600203007 12190 BA1 PAT4,7 PROCT 12190
014475 5600203727 12200 BA2 CON4,7 PROCT 12200
014502 7200003707 12210 AB1 31,7 PROCT 12210
014507 7000204667 12220 CB2 ANS4,7 PROCT 12220
* 014514 1000304142 12230 JR EXIT,34 4 STRING 4 PROCT 12230
* 014521 1000316100 12240 JR ER2,0 PROCT 12240
014526 5600205507 12250 BA1 PAT5,7 PROCT 12250
014533 5600206427 12260 BA2 CON5,7 PROCT 12260
014540 7200003707 12270 AB1 31,7 PROCT 12270
014545 7000207367 12280 CB2 ANS5,7 PROCT 12280
* 014552 1000304142 12290 JR EXIT,34 4 STRING 5 PROCT 12290
* 014557 1000316100 12300 JR ER2,0 PROCT 12300
014564 5600210207 12310 BA1 PAT6,7 PROCT 12310
014571 5600211127 12320 BA2 CON6,7 PROCT 12320
014576 7200003707 12330 AB1 31,7 PROCT 12330
014603 7000212067 12340 CB2 ANS6,7 PROCT 12340
* 014610 1000304142 12350 JR EXIT,34 4 STRIMG 6 PROCT 12350
* 014615 1000316100 12360 JR ER2,0 PROCT 12360
014622 4400170600 12370 SC AC2,0 PROCT 12370
014627 4400170536 12380 SC AC1,30 PROCT 12380
014634 6000170541 12390 AC AC1,33 PROCT 12390
014641 3400170577 12400 CC AC1,63 PROCT 12400
* 014646 3001466042 12410 JC $+10,34 4 AC E.P.07005 PROCT 12410 .
* 014653 3001466500 12420 JC $+10,0 PROCT 12420
* 014660 1000304147 12430 JR EXIT,39 9 10123 PROCT 12430
* 014665 1000316100 12440 JR ER2,0 PROCT 12440
014672 4400003603 12450 SC 036,3 PROCT 12450
014677 4400003717 12460 SC 037,15 PROCT 12460
014704 6000003762 12470 AC 037,50 PROCT 12470
014711 3400003701 12480 CC 037,1 PROCT 12480
* 014716 3001473042 12490 JC $+10,34 4 F.S.75 15072 PROCT 12490
* 014723 3001474700 12500 JC $+20,0 PROCT 12500
014730 3400003604 12510 CC 036,4 PROCT 12510
* 014735 3001474747 12520 JC $+10,39 9 PROCT 12520
* 014742 1000304142 12530 JR EXIT,34 4 AC EP, 14025 PROCT 12530
* 014747 1000316100 12540 JR ER2,0 PROCT 12540
014754 2600001700 12550 PD 15,0 PROCT 12550
014761 7200001703 12560 AB1 15,3 PROCT 12560
014766 7000000743 12570 CB1 7,3 PROCT 12570
* 014773 3001500542 12580 JC $+10,34 4 ABEP 07004 PROCT 12580 7
* 015000 3001502400 12590 JC $+20,0 PROCT 12590
* 015005 3001501745 12600 JC $+10,37 7 11034 PROCT 12600
* 015012 3001502400 12610 JC $+10,0 PROCT 12610
* 015017 1000304147 12620 JR EXIT,39 9 10130 PROCT 12620
* 015024 1000316100 12630 JR ER2,0 PROCT 12630
015031 5600212404 12640 BA1 AB1,4 PROCT 12640
015036 7200001704 12650 AB1 15,4 PROCT 12650
* 015043 3001506247 12660 JC $+15,39 9 PROCT 12660
* 015050 3001506242 12670 JC $+10,34 4 PROCT 12670
* 015055 1000304100 12680 JR EXIT,0 PROCT 12680
* 015062 1000316100 12690 JR ER2,0 PROCT 12690
015067 5600212424 12700 BA2 AB1,4 PROCT 12700
015074 7200003724 12710 AB2 31,4 PROCT 12710
* 015101 3001512041 12720 JC $+15,33 3 PROCT 12720
015106 7000213064 12730 CB2 AB2,4 PROCT 12730
* 015113 1000304142 12740 JR EXIT,34 4 IC 07074 PROCT 12740 7
* 015120 1000316100 12750 JR ER2,0 PROCT 12750
015125 5600214024 12760 BA2 AB4,4 PROCT 12760
015132 5600213404 12770 BA1 AB3,4 PROCT 12770
015137 7200003744 12780 SB1 31,4 PROCT 12780
015144 7000213464 12790 CB2 AB3,4 PROCT 12790
* 015151 3001516342 12800 JC $+10,34 4 IC 07074 PROCT 12800 7
* 015156 3001517500 12810 JC $+15,0 PROCT 12810
* 015163 3001517545 12820 JC $+10,37 7 PROCT 12820
* 015170 1000304100 12830 JR EXIT,0 PROCT 12830
* 015175 1000316100 12840 JR ER2,0 PROCT 12840
015202 5600214024 12850 BA2 AB4,4 PROCT 12850
015207 5600213404 12860 BA1 AB3,4 PROCT 12860
015214 7200001764 12870 SB2 15,4 PROCT 12870
* 015221 1000314747 12880 JR ER1,39 C COMP. ANS. 10121 PROCT 12880 N
* 015226 1000307200 12890 JR NEXT,0 PROCT 12890
* 015233 3000714052 12900 JC BOF,42 PROCT 12900
015240 5600213010 12910 BA1 AB2,8 PROCT 12910
015245 7000213050 12920 CB1 AB2,8 PROCT 12920
* 015252 3001526442 12930 JC $+10,34 4 11112 PROCT 12930
* 015257 3001527100 12940 JC $+10,0 PROCT 12940
* 015264 1000304147 12950 JR EXIT,39 9 10122 PROCT 12950
* 015271 1000316100 12960 JR ER2,0 PROCT 12960
015276 5600212004 12970 BA1 ANS6,4 PROCT 12970
015303 7000212044 12980 CB1 ANS6,4 PROCT 12980
* 015310 3001532242 12990 JC $+10,34 4 IC 11102 PROCT 12990 0
* 015315 3001533400 13000 JC $+15,0 PROCT 13000
* 015322 3001533445 13010 JC $+10,37 7 PROCT 13010
* 015327 1000304100 13020 JR EXIT,0 PROCT 13020
* 015334 1000316100 13030 JR ER2,0 PROCT 13030
015341 5600213404 13040 BA1 AB3,4 PROCT 13040
015346 7000214044 13050 CB1 AB4,4 PROCT 13050
* 015353 3001536544 13060 JC $+10,36 6 11112 PROCT 13060
* 015360 3001537700 13070 JC $+15,0 PROCT 13070
* 015365 3001537741 13080 JC $+10,33 3 PROCT 13080
* 015372 1000304100 13090 JR EXIT,0 PROCT 13090
* 015377 1000316100 13100 JR ER2,0 PROCT 13100
015404 5600214004 13110 BA1 AB4,4 PROCT 13110
015411 7000213444 13120 CB1 AB3,4 PROCT 13120
* 015416 3001543041 13130 JC $+10,33 3 11011 PROCT 13130
* 015423 3001544200 13140 JC $+15,0 PROCT 13140
015430 3400213400 13150 CC AB3,0 PROCT 13150
* 015435 1000304142 13160 JR EXIT,34 4 PROCT 13160
* 015442 1000316100 13170 JR ER2,0 PROCT 13170
015447 4400004307 13180 SC 35,7 PROCT 13180
015454 4600237311 13190 BT ZERO,9 PROCT 13190
015461 7600004711 13200 AT 39,9 PROCT 13200
015466 3400004307 13210 CC 35,7 PROCT 13210
* 015473 3001550542 13220 JC $+10,34 4 EP 07003 PROCT 13220 0
* 015500 3001551700 13230 JC $+15,0 PROCT 13230
* 015505 3001551745 13240 JC $+10,37 7 PROCT 13240
* 015512 1000304100 13250 JR EXIT,0 PROCT 13250
* 015517 1000316100 13260 JR ER2,0 PROCT 13260
015524 4600212407 13270 BT AB1,7 PROCT 13270
015531 7600212407 13280 AT AB1,7 PROCT 13280
015536 7000213064 13290 CB2 AB2,4 PROCT 13290
* 015543 3001555542 13300 JC $+10,34 4 07003 PROCT 13300
* 015550 3001556700 13310 JC $+15,0 PROCT 13310
* 015555 3001556747 13320 JC $+10,39 9 PROCT 13320
* 015562 1000304100 13330 JR EXIT,0 PROCT 13330
* 015567 1000316100 13340 JR ER2,0 PROCT 13340
015574 4600237311 13350 BT ZERO,9 PROCT 13350
015601 7600004711 13360 AT 39,9 PROCT 13360
* 015606 3001562047 13370 JC $+10,39 9 11120 PROCT 13370
* 015613 3001563200 13380 JC $+15,0 PROCT 13380
* 015620 3001563241 13390 JC $+10,33 3 PROCT 13390
* 015625 1000304100 13400 JR EXIT,0 PROCT 13400
* 015632 1000316100 13410 JR ER2,0 PROCT 13410
* 015637 3000714052 13420 JC BOF,42 PROCT 13420
015644 5600214004 13430 BA1 AB4,4 PROCT 13430
015651 7400213403 13440 CT AB3,3 PROCT 13440
* 015656 3001567041 13450 JC $+10,33 3 HI 11003 PROCT 13450 0
* 015663 3001567500 13460 JC $+10,0 PROCT 13460
* 015670 1000304147 13470 JR EXIT,39 9 BOF 10120 PROCT 13470 1
* 015675 1000316100 13480 JR ER2,0 PROCT 13480
015702 5600213404 13490 BA1 AB3,4 PROCT 13490
015707 7400214003 13500 CT AB4,3 PROCT 13500
* 015714 3001572644 13510 JC $+10,36 6 LOW 11003 PROCT 13510 0
* 015721 3001574000 13520 JC $+15,0 PROCT 13520
* 015726 3001574042 13530 JC $+10,34 4 PROCT 13530
* 015733 1000304100 13540 JR EXIT,0 PROCT 13540
* 015740 1000316100 13550 JR ER2,0 PROCT 13550
015745 2600001700 13560 PD 15,0 PROCT 13560
015752 2600003720 13570 PD0 31,0 PROCT 13570
015757 6600001700 13580 AD1 15,0 PROCT 13580
015764 7000001760 13590 CB2 15,0 PROCT 13590
* 015771 3001600342 13600 JC $+10,34 4 BLANKS. 08049. 10050 PROCT 13600 .
* 015776 3001601000 13610 JC $+10,0 PROCT 13610
* 016003 1000304145 13620 JR EXIT,37 7 AZ 11035 PROCT 13620 3
* 016010 1000316100 13630 JR ER2,0 PROCT 13630
016015 2600001700 13640 PD 15,0 PROCT 13640
016022 2600003726 13650 PD0 31,6 PROCT 13650
016027 6600001702 13660 AD1 15,2 PROCT 13660
016034 7000001563 13670 CB2 13,3 PROCT 13670
* 016041 3001605342 13680 JC $+10,34 4 E.P. 07014 PROCT 13680 7
* 016046 3001606500 13690 JC $+15,0 PROCT 13690
* 016053 3001606546 13700 JC $+10,38 8 SIGN+ 11076 PROCT 13700 1
* 016060 1000304100 13710 JR EXIT,0 PROCT 13710
* 016065 1000316100 13720 JR ER2,0 PROCT 13720
016072 5600215163 13730 BD2 DEC2,3 PROCT 13730
016077 6600215123 13740 AD2 DEC2,3 PROCT 13740
016104 7000215663 13750 CB2 DEC1-3,3,3 PROCT 13750
* 016111 3001612342 13760 JC $+10,34 4 BLK IC 07078PAN.07077 D6 PROCT 13760
* 016116 3001614700 13770 JC $+25,0 PROCT 13770
* 016123 3001613550 13780 JC $+10,40 0 D.O.F. 10158 PROCT 13780
* 016130 3001614700 13790 JC $+15,0 PROCT 13790
016135 3400003463 13800 CC 28,51 PROCT 13800
* 016142 3001615442 13810 JC $+10,34 4 SENT. 10026 PROCT 13810 1
* 016147 1000314700 13820 JR ER1,0 PROCT 13820
* 016154 3001616135 13830 JC $+5,29 R RESET CL�2 PROCT 13830 L
* 016161 1000307226 13840 JR NEXT,22 2 RESET SI�2 PROCT 13840 S
016166 5600215165 13850 BD2 DEC2,5 PROCT 13850
016173 4400003414 13860 SC 28,12 PROCT 13860
016200 6600215123 13870 AD2 DEC2,3 PROCT 13870
016205 7000215663 13880 CB2 DEC1-3,3,3 PROCT 13880
* 016212 3001622442 13890 JC $+10,34 4 EP 07017 CY+CY- PROCT 13890 1
* 016217 3001624300 13900 JC $+20,0 PROCT 13900
* 016224 3001624350 13910 JC $+15,40 0 DOF 10158CY- PROCT 13910 1
016231 3400003307 13920 CC 27,7 PROCT 13920
* 016236 1000304142 13930 JR EXIT,34 4 BLK.MEM LOC 08078.08046 PROCT 13930 M
* 016243 1000316100 13940 JR ER2,0 PROCT 13940
016250 2600001732 13950 PD0 15,10 XSXS-3 CORR. GATES CY - PROCT 13950 R
016255 6600215312 13960 AD1 DEC1-6,1,10 PROCT 13960
016262 2600215352 13970 CD1 DEC1-6,1,10 PROCT 13970
* 016267 1000304142 13980 JR EXIT,34 4 PROCT 13980
* 016274 1000316100 13990 JR ER2,0 PROCT 13990
016301 5600215453 14000 BD1 DEC1-5,1,11 XS-3 CORR. GATES CY PROCT 14000
016306 6600257413 14010 AD1 K64,11 PROCT 14010
016313 2600260753 14020 CD1 K65,11 PROCT 14020
* 016320 1000304142 14030 JR EXIT,34 4 PROCT 14030
* 016325 1000316100 14040 JR ER2,0 PROCT 14040
016332 5600215141 14050 BD1 DEC2,1 PROCT 14050
016337 6600215104 14060 AD1 DEC2,4 PROCT 14060
016344 7000216144 14070 CB1 DEC1,4 PROCT 14070
* 016351 3001636342 14080 JC $+10,34 4 BLK.M.SF 08052.10026 PROCT 14080 S
* 016356 3001641400 14090 JC $+30,0 PROCT 14090
016363 3400001363 14100 CC 11,51 PROCT 14100
* 016370 3001640242 14110 JC $+10,34 4 SENT 16015 PROCT 14110 6
* 016375 3001641400 14120 JC $+15,0 PROCT 14120
* 016402 3001641445 14130 JC $+10,37 7 AZ-11042.11043 PROCT 14130 4
* 016407 1000304100 14140 JR EXIT,0 PROCT 14140
* 016414 1000316100 14150 JR ER2,0 PROCT 14150
016421 5600215644 14160 BD1 DEC1-3,4,4 PROCT 14160
016426 6400001740 14170 LS 15,32 PROCT 14170
016433 5600215166 14180 BD2 DEC2,6 PROCT 14180
016440 6600003704 14190 AD1 31,4 PROCT 14190
016445 6400003740 14200 LS 31,32 PROCT 14200
016452 7000003744 14210 CB1 31,4 PROCT 14210
* 016457 3001647142 14220 JC $+10,34 4 I.C.+C.P. 07077. PROCT 14220 .
* 016464 3001651500 14230 JC $+25,0 PROCT 14230
* 016471 3001650346 14240 JC $+10,38 8 -SIGN 11076M6-011084 PROCT 14240 1
* 016476 3001651500 14250 JC $+15,0 PROCT 14250
* 016503 3001651550 14260 JC $+10,40 0 DOF- 10158 CP PROCT 14260 0
* 016510 1000304100 14270 JR EXIT,0 PROCT 14270
* 016515 1000316100 14280 JR ER2,0 PROCT 14280
016522 5600215644 14290 BD1 DEC1-3,4,4 PROCT 14290
016527 5600215164 14300 BD2 DEC2,4 PROCT 14300
016534 6400003740 14310 LS 31,32 PROCT 14310
016541 6600001724 14320 AD2 15,4 PROCT 14320
016546 7000215164 14330 CB2 DEC2,4 PROCT 14330
* 016553 3001656542 14340 JC $+10,34 4 RECOMP 09063.07016 RDL PROCT 14340
* 016560 3001657700 14350 JC $+15,0 PROCT 14350
* 016565 3001657746 14360 JC $+10,38 8 STEP AN 11061.08099 PROCT 14360 N
* 016572 1000304100 14370 JR EXIT,0 E EP BMFMCP 07015 PROCT 14370 C
* 016577 1000316100 14380 JR ER2,0 PROCT 14380
016604 4400003663 14390 SC 30,51 PROCT 14390
016611 4400001710 14400 SC 15,8 PROCT 14400
016616 4400003750 14410 SC 31,40 PROCT 14410
016623 6600001721 14420 AD2 15,1 PROCT 14420
016630 3400003703 14430 CC 31,3 PROCT 14430
* 016635 3001664742 14440 JC $+10,34 4 EP EPI 07013.07016 AZ- PROCT 14440
* 016642 3001666600 14450 JC $+20,0 PROCT 14450
* 016647 3001666650 14460 JC $+15,40 0 DOF- 09091.08096 CY PROCT 14460 9
* 016654 3001666646 14470 JC $+10,38 8 + AN 11061.11084 PROCT 14470 1
* 016661 1000304100 14480 JR EXIT,0 PROCT 14480
* 016666 1000316100 14490 JR ER2,0 PROCT 14490
016673 5600215144 14500 BD1 DEC2,4 PROCT 14500
016700 6400001740 14510 LS 15,32 PROCT 14510
016705 6600001704 14520 AD1 15,4 PROCT 14520
* 016712 3001672446 14530 JC $+10,38 8 SIGN- 11084.08095 CP PROCT 14530 1
* 016717 3001674300 14540 JC $+20,0 PROCT 14540
016724 5400001737 14550 LP 15,31 PROCT 14550
016731 7000215644 14560 CB1 DEC1-3,4,4 PROCT 14560
* 016736 1000304142 14570 JR EXIT,34 4 BLOCK IC 07078 D6-. 07077 PAN- PROCT 14570 I
* 016743 1000316100 14580 JR ER2,0 PROCT 14580
016750 5600214241 14590 BD1 DEC2-7,1,1 PROCT 14590
016755 6400001740 14600 LS 15,32 PROCT 14600
016762 6600001701 14610 AD1 15,1 PROCT 14610
016767 3400001743 14620 CC 15,35 PROCT 14620
* 016774 1000304142 14630 JR EXIT,34 4 -SIGN 11075 CP-. 07014 PROCT 14630 1
* 017001 1000316100 14640 JR ER2,0 PROCT 14640
017006 5600215141 14650 BD1 DEC2,1 PROCT 14650
017013 6600001741 14660 SD1 15,1 PROCT 14660
017020 3400001703 14670 CC 15,3 PROCT 14670
* 017025 1000304142 14680 JR EXIT,34 4 ICT S PROCT 14680
* 017032 1000316100 14690 JR ER2,0 PROCT 14690
017037 5600215141 14700 BD1 DEC2,1 PROCT 14700
017044 6400001740 14710 LS 15,32 PROCT 14710
017051 6600001741 14720 SD1 15,1 PROCT 14720
017056 3400001703 14730 CC 15,3 PROCT 14730
* 017063 1000304142 14740 JR EXIT,34 4 IC- S PROCT 14740
* 017070 1000316100 14750 JR ER2,0 PROCT 14750
017075 5600216141 14760 BD1 DEC1,1 PROCT 14760
017102 6400001740 14770 LS 15,32 PROCT 14770
017107 5600216161 14780 BD2 DEC1,1 PROCT 14780
017114 6600003741 14790 SD1 31,1 PROCT 14790
017121 3400001753 14800 CC 15,43 PROCT 14800
* 017126 1000304142 14810 JR EXIT,34 4 BLK. I.C. PROCT 14810 .
* 017133 1000316100 14820 JR ER2,0 PROCT 14820
017140 5600216141 14830 BD1 DEC1,1 PROCT 14830
017145 6400001740 14840 LS 15,32 PROCT 14840
017152 5600216161 14850 BD2 DEC1,1 PROCT 14850
017157 6600001761 14860 SD2 15,1 PROCT 14860
017164 3400003713 14870 CC 31,11 PROCT 14870
* 017171 1000304142 14880 JR EXIT,34 4 BLKIC PROCT 14880
* 017176 1000316100 14890 JR ER2,0 PROCT 14890
017203 5600215104 14900 BA1 DEC2,4 PROCT 14900
017210 5600215164 14910 BD2 DEC2,4 PROCT 14910
017215 6200001724 14920 AM2 15,4 PROCT 14920
017222 7000215644 14930 CB1 DEC1-3,4,4 PROCT 14930
* 017227 1000304142 14940 JR EXIT,34 4 EP BHCP CY A2 PROCT 14940 P
* 017234 1000316100 14950 JR ER2,0 PROCT 14950
017241 5600215103 14960 BA1 DEC2,3 PROCT 14960
017246 5600215164 14970 BD2 DEC2,4 PROCT 14970
017253 4400001400 14980 SC 12,0 PROCT 14980
017260 6200001723 14990 AM2 15,3 PROCT 14990
017265 7000215643 15000 CB1 DEC1-3,3,3 PROCT 15000
* 017272 3001730450 15010 JC $+10,40 0 LAC FAC PROCT 15010 C
* 017277 3001733500 15020 JC $+30,0 PROCT 15020
017304 3400001400 15030 CC 12,0 PROCT 15030
* 017311 3001732342 15040 JC $+10,34 4 EP BM 1 AC CP PC4 PROCT 15040 1
* 017316 3001733500 15050 JC $+15,0 PROCT 15050
* 017323 3001733035 15060 JC $+5,29 R RESET CL�2 PROCT 15060 L
* 017330 1000304126 15070 JR EXIT,22 2 RESET SI�2 PROCT 15070 S
* 017335 1000316100 15080 JR ER2,0 PROCT 15080
017342 5600215104 15090 BA1 DEC2,4 PROCT 15090
017347 5600215163 15100 BD2 DEC2,3 PROCT 15100
017354 6200001724 15110 AM2 15,4 PROCT 15110
017361 7000215643 15120 CB1 DEC1-3,3,3 PROCT 15120
* 017366 3001740042 15130 JC $+10,34 4 M A PROCT 15130
* 017373 3001741200 15140 JC $+15,0 PROCT 15140
017400 3400001410 15150 CC 12,8 PROCT 15150
* 017405 1000304142 15160 JR EXIT,34 4 SEN BM PROCT 15160
* 017412 1000316100 15170 JR ER2,0 PROCT 15170
017417 5600215104 15180 BA1 DEC2,4 A A M PROCT 15180
017424 5600215064 15190 BD2 DEC2-1,4,4 PROCT 15190
017431 6400003740 15200 LS 31,32 PROCT 15200
017436 6200001723 15210 AM2 15,3 PROCT 15210
017443 3400001504 15220 CC 13,4 PROCT 15220
* 017450 3001746242 15230 JC $+10,34 4 I.C. PROCT 15230
* 017455 3001747400 15240 JC $+15,0 PROCT 15240
* 017462 3001747446 15250 JC $+10,38 8 EP PC4 PROCT 15250
* 017467 1000304100 15260 JR EXIT,0 PROCT 15260
* 017474 1000316100 15270 JR ER2,0 PROCT 15270
017501 4400001750 15280 SC 15,40 T1T19 PROCT 15280
017506 4400003710 15290 SC 31,8 PROCT 15290
017513 6200001721 15300 AM2 15,1 PROCT 15300
* 017520 3001753746 15310 JC $+15,38 8 SET EPF PROCT 15310 F
017525 3400001703 15320 CC 15,3 PROCT 15320
* 017532 1000304142 15330 JR EXIT,34 4 BLOCK EPPC4 A2 PROCT 15330 E
* 017537 1000316100 15340 JR ER2,0 PROCT 15340
017544 5600216103 15350 BA1 DEC1,3 T T20 PROCT 15350
017551 5600215463 15360 BD2 DEC1-5,3,3 PROCT 15360
017556 6400003740 15370 LS 31,32 PROCT 15370
017563 6200001723 15380 AM2 15,3 PROCT 15380
* 017570 3001760246 15390 JC $+10,38 8 BLOCK EP PC4 RDL PROCT 15390 E
* 017575 3001761400 15400 JC $+15,0 PROCT 15400
017602 3400001752 15410 CC 15,42 PROCT 15410
* 017607 1000304142 15420 JR EXIT,34 4 RECOMP EP PC4 CP PROCT 15420
* 017614 1000316100 15430 JR ER2,0 PROCT 15430
017621 5600215604 15440 BA1 DEC1-3,4,4 PROCT 15440
017626 5600215164 15450 BD2 DEC2,4 PROCT 15450
017633 6200001764 15460 SM2 15,4 PROCT 15460
017640 7000215144 15470 CB1 DEC2,4 PROCT 15470
* 017645 1000304142 15480 JR EXIT,34 4 IC PROCT 15480
* 017652 1000316100 15490 JR ER2,0 PROCT 15490
017657 5600215104 15500 BA1 DEC2,4 PROCT 15500
017664 5600215164 15510 BD2 DEC2,4 PROCT 15510
017671 6400003740 15520 LS 31,32 PROCT 15520
017676 6200001764 15530 SM2 15,4 PROCT 15530
017703 7000215644 15540 CB1 DEC1-3,4,4 PROCT 15540
* 017710 1000304142 15550 JR EXIT,34 4 BLK IC PROCT 15550
* 017715 1000316100 15560 JR ER2,0 PROCT 15560
017722 5600215146 15570 BD1 DEC2,6 PROCT 15570
017727 2600215146 15580 CD1 DEC2,6 PROCT 15580
* 017734 3001774642 15590 JC $+10,34 4 IC+CP+ PROCT 15590
* 017741 3001776000 15600 JC $+15,0 PROCT 15600
017746 3400001712 15610 CC 15,10 PROCT 15610
* 017753 1000304142 15620 JR EXIT,34 4 BLK. MEM PROCT 15620 E
* 017760 1000316100 15630 JR ER2,0 PROCT 15630
017765 5600216144 15640 BD1 DEC1,4 PROCT 15640
017772 6400001740 15650 LS 15,32 PROCT 15650
017777 2600001744 15660 CD1 15,4 PROCT 15660
* 020004 3002001642 15670 JC $+10,34 4 IC+CP- PROCT 15670
* 020011 3002003000 15680 JC $+15,0 PROCT 15680
* 020016 3002003044 15690 JC $+10,36 6 EP FAL PROCT 15690
* 020023 1000304100 15700 JR EXIT,0 PROCT 15700
* 020030 1000316100 15710 JR ER2,0 PROCT 15710
020035 5600215142 15720 BD1 DEC2,2 PROCT 15720
020042 6400001740 15730 LS 15,32 PROCT 15730
020047 2600215142 15740 CD1 DEC2,2 PROCT 15740
* 020054 3002006644 15750 JC $+10,36 6 M6 HI PROCT 15750
* 020061 3002010000 15760 JC $+15,0 PROCT 15760
* 020066 3002010042 15770 JC $+10,34 4 RESET EQ PROCT 15770 E
* 020073 1000304100 15780 JR EXIT,0 PROCT 15780
* 020100 1000316100 15790 JR ER2,0 PROCT 15790
020105 5600216143 15800 BD1 DEC1,3 PROCT 15800
020112 5600216163 15810 BD2 DEC1,3 PROCT 15810
020117 6400001740 15820 LS 15,32 PROCT 15820
020124 2600001763 15830 CD2 15,3 PROCT 15830
* 020131 3002014341 15840 JC $+10,33 3 M6 HI PROCT 15840
* 020136 3002015500 15850 JC $+15,0 PROCT 15850
* 020143 3002015544 15860 JC $+10,36 6 EP SIGN PROCT 15860 N
* 020150 1000304100 15870 JR EXIT,0 PROCT 15870
* 020155 1000316100 15880 JR ER2,0 PROCT 15880
020162 5600215144 15890 BD1 DEC2,4 PROCT 15890
020167 2600215044 15900 CD1 DEC2-1,4,4 PROCT 15900
* 020174 1000304141 15910 JR EXIT,33 3 CY BLOCK FAC+SF PROCT 15910 C
* 020201 1000316100 15920 JR ER2,0 PROCT 15920
020206 5600215145 15930 BD1 DEC2,5 PROCT 15930
020213 2600215143 15940 CD1 DEC2,3 PROCT 15940
* 020220 1000304141 15950 JR EXIT,33 3 HI PROCT 15950
* 020225 1000316100 15960 JR ER2,0 EPEP BM CY EQ PROCT 15960
020232 5600215142 15970 BD1 DEC2,2 PROCT 15970
020237 2600215144 15980 CD1 DEC2,4 PROCT 15980
* 020244 1000304144 15990 JR EXIT,36 6 SF CY PROCT 15990
* 020251 1000316100 16000 JR ER2,0 EPEP SF CY PROCT 16000
020256 5600216160 16010 BD2 DEC1,0 PROCT 16010
020263 2600216160 16020 CD2 DEC1,0 PROCT 16020
* 020270 1000304142 16030 JR EXIT,34 4 EP FAC - CY PROCT 16030
* 020275 1000316100 16040 JR ER2,0 PROCT 16040
020302 5600217201 16050 BA1 K38,1 01011042 PROCT 16050
020307 5600217321 16060 BA2 K39,1 PROCT 16060
020314 7200001721 16070 AB2 15,1 PROCT 16070
* 020321 1000314745 16080 JR ER1,37 PROCT 16080
* 020326 1000307200 16090 JR NEXT,0 PROCT 16090
020333 5600225101 16100 BA1 K49,1 01011043 PROCT 16100
020340 5600225521 16110 BA2 K49+4,1 1 PROCT 16110
020345 7200001721 16120 AB2 15,1 PROCT 16120
* 020352 1000314745 16130 JR ER1,37 PROCT 16130
* 020357 1000307200 16140 JR NEXT,0 PROCT 16140
020364 4400012705 16150 SC 87,5 CHEHECK MP,009035, IER 2 PROCT 16150 0
020371 5600216161 16160 BD2 DEC1,1 I ICAND 4 PROCT 16160
020376 5000250001 16170 MPN 02500,1 1 402 NON-CUMULATIVE PROCT 16170
020403 7000216341 16180 CB1 K35,1 DEDEC 8,OCT 13 PROCT 16180 T
* 020410 3002042242 16190 JC $+10,34 4 PROCT 16190
* 020415 3002043400 16200 JC $+15,0 PROCT 16200
* 020422 3002043445 16210 JC $+10,37 7 011041, AZ RESET BY S4 PROCT 16210 ,
* 020427 1000304100 16220 JR EXIT,0 PROCT 16220
* 020434 1000316100 16230 JR ER2,0 PROCT 16230
020441 4400012706 16240 SC 87,6 00909035D2-+,036D3-,IER3 PROCT 16240 +
020446 5600215261 16250 BD2 DEC2+1,1,1 ICAND 8, OCT 13 PROCT 16250
020453 5000000001 16260 MPN ,1 PROCT 16260
020460 7000216642 16270 CB1 K36,2 DEDEC 24,OCT 0507 PROCT 16270 C
* 020465 3002047742 16280 JC $+10,34 4 PROCT 16280
* 020472 3002051100 16290 JC $+15,0 PROCT 16290
* 020477 3002051145 16300 JC $+10,37 7 011040, AZ RESET BY S3 PROCT 16300 ,
* 020504 1000304100 16310 JR EXIT,0 PROCT 16310
* 020511 1000316100 16320 JR ER2,0 PROCT 16320
020516 4400012714 16330 SC 87,12 00009035D4-,IER9 PROCT 16330 -
020523 5600214161 16340 BD2 WORK,1 I ICAND 0 PROCT 16340
020530 5000000001 16350 MPN ,1 0X9 N-C PROCT 16350
020535 7000217041 16360 CB1 K37,1 DEDEC 0,OCT 03 PROCT 16360 T
* 020542 3002055442 16370 JC $+10,34 4 PROCT 16370
* 020547 3002056100 16380 JC $+10,0 PROCT 16380
* 020554 1000304145 16390 JR EXIT,37 7 011033 PROCT 16390
* 020561 1000316100 16400 JR ER2,0 PROCT 16400
020566 4400012710 16410 SC 87,8 00909036D4-,IER5 PROCT 16410 ,
020573 5600160661 16420 BD2 K12+1,1 1 ICAND 2,OCT05 PROCT 16420 2
020600 5000000001 16430 MPN ,1 2X5 N-C PROCT 16430
020605 2600217242 16440 CD1 K38,2 OCOCT 0403 PROCT 16440
* 020612 3002062442 16450 JC $+10,34 4 PROCT 16450
* 020617 3002063600 16460 JC $+15,0 PROCT 16460
* 020624 3002063645 16470 JC $+10,37 7 PROCT 16470
* 020631 1000304100 16480 JR EXIT,0 PROCT 16480
* 020636 1000316100 16490 JR ER2,0 PROCT 16490
020643 4400012703 16500 SC 87,3 00909036,IER0 PROCT 16500 R
020650 5600161161 16510 BD2 K12+4,1 1 ICAND 9,OCT14 PROCT 16510 9
020655 5000000001 16520 MPN ,1 9X0 N-C PROCT 16520
020662 2600217241 16530 CD1 K38,1 OCOCT03 PROCT 16530
* 020667 1000304142 16540 JR EXIT,34 4 PROCT 16540
* 020674 1000316100 16550 JR ER2,0 PROCT 16550
020701 5600217462 16560 BD2 K41,2 MIMINUS X MINUS, OCT 0445 PROCT 16560 M
020706 5600217602 16570 BA1 K42,2 OCOCT 0546 PROCT 16570
020713 5200012702 16580 SA1 87,2 PROCT 16580
020720 5000000002 16590 MPN ,2 -12X-23 N-C PROCT 16590
020725 2600220143 16600 CD1 K43,3 OCOCT 051211 PROCT 16600 1
* 020732 3002074442 16610 JC $+10,34 4 PROCT 16610
* 020737 3002075600 16620 JC $+15,0 PROCT 16620
* 020744 3002075646 16630 JC $+10,38 8 PROCT 16630
* 020751 1000304100 16640 JR EXIT,0 PROCT 16640
* 020756 1000316100 16650 JR ER2,0 PROCT 16650
020763 5600220564 16660 BD2 K44,4 MIMINUS X PLUS, OCT 06071051 PROCT 16660 P
020770 5600221104 16670 BA1 K45,4 OCOCT 11121314 PROCT 16670 1
020775 5200012704 16680 SA1 87,4 PROCT 16680
021002 5000000004 16690 MPN ,4 -3456X6789 N-C PROCT 16690
021007 2600222150 16700 CD1 K46,8 OCOCT 0506071105121347 PROCT 16700 0
* 021014 3002102642 16710 JC $+10,34 4 PROCT 16710
* 021021 3002103300 16720 JC $+10,0 PROCT 16720
* 021026 1000304146 16730 JR EXIT,38 8 PROCT 16730
* 021033 1000316100 16740 JR ER2,0 PROCT 16740
021040 5600223170 16750 BD2 K47,8 PLPLUSXMINUS, OCT 141210 PROCT 16750 U
021045 5600224110 16760 BA1 K48,8 060604030507 PROCT 16760 0
021052 5200012710 16770 SA1 87,8 111113141112071045 PROCT 16770 2
021057 5000000000 16780 MPN ,0 PROCT 16780
021064 2600226140 16790 CD1 K51,16 O OCT 1112051107111105 PROCT 16790 2
* 021071 3002110342 16800 JC $+10,34 4 0411050603130753 PROCT 16800 0
* 021076 3002111000 16810 JC $+10,0 PROCT 16810
* 021103 1000304146 16820 JR EXIT,38 8 PROCT 16820
* 021110 1000316100 16830 JR ER2,0 PROCT 16830
* 021115 1002145464 16840 RANDM JR PRINT,5252 RANDOM MULTIPLY PROCT 16840
021122 4402134777 16850 SC CTR+4,6363 PROCT 16850
021127 4402136177 16860 SC CTR+14,6,63 PROCT 16860
021134 4402124120 16870 3 SC NXT+29,1,16 PROCT 16870
021141 5600223140 16880 BD1 K47,16 PROCT 16880
021146 5200013710 16890 SA1 95,8 PROCT 16890
021153 5600000730 16900 BA2 7,8 PROCT 16900
* 021160 1000307200 16910 JR NEXT,0 PROCT 16910
021165 4402130402 16920 AGAIN SC $+79,2 PROCT 16920
021172 5600013710 16930 BA1 95,8 PROCT 16930
021177 5200000730 16940 SA2 7,8 PROCT 16940
021204 2000000011 16950 NXT FT 0,9 PROCT 16950
021211 3420000003 16960 CC 0,3,1 PROCT 16960
* 021216 3002123044 16970 JC $+10,36 6 PROCT 16970
021223 4420000012 16980 SC 0,10,1 PROCT 16980
021230 6000004701 16990 AC 39,1 PROCT 16990
* 021235 3202121120 17000 JL NXT+5,1616 PROCT 17000
021242 4402124120 17010 SC $-1,16 PROCT 17010
021247 5200012710 17020 SA1 87,8 PROCT 17020
021254 5200013710 17030 SA1 95,8 PROCT 17030
021261 5600000770 17040 BD2 7,8 PROCT 17040
021266 5000000010 17050 MPN ,8 PROCT 17050
* 021273 1002145464 17060 JR PRINT,5252 PROCT 17060
* 021300 3202142002 17070 JL SWAP,2 PROCT 17070
021305 4402130402 17080 SC $-1,2 PROCT 17080
021312 2600245340 17090 CD1 PROD,16 6 PROCT 17090
* 021317 1000304142 17100 JR EXIT,34 4 PROCT 17100
* 021324 1000316100 17110 JR ER2,0 PROCT 17110
021331 2002116507 17120 FT AGAIN,7 7 PROCT 17120
021336 5200312323 17130 SA2 REP+3,3 3 PROCT 17130
* 021343 3202120477 17140 CTR JL NXT,63 PROCT 17140
021350 4402134777 17150 SC $-1,63 PROCT 17150
* 021355 3202120477 17160 JL NXT,63 PROCT 17160
021362 4402136177 17170 SC $-1,63 PROCT 17170
021367 2600230140 17180 CD1 K52,16 PROCT 17180
* 021374 1000304142 17190 JR EXIT,34 4 PROCT 17190
* 021401 1000316100 17200 JR ER2,0 PROCT 17200
021406 4402146202 17210 SC PRINT+9,9,2 PROCT 17210
* 021413 3002157600 17220 JC CUMT,0 PROCT 17220
021420 5200245300 17230 SWAP SA1 PROD,16 6 PROCT 17230
021425 5600003710 17240 BA1 31,8 PROCT 17240
021432 5600013730 17250 BA2 95,8 PROCT 17250
021437 5200000730 17260 SA2 7,8 PROCT 17260
* 021444 3002120400 17270 JC NXT,0 PROCT 17270
* 021451 3002145100 17280 PRINT JC $,0 PROCT 17280
* 021456 3202152602 17290 JL TITLE,2 2 PROCT 17290
021463 4200272026 17300 ST PTMP+16,6,22 PROCT 17300
021470 4200272427 17310 ST PTMP+20,0,23 PROCT 17310
021475 5200274230 17320 SA2 PTMP+34,4,8 PROCT 17320
021502 5200276600 17330 SA1 PTMP+54,4,16 PROCT 17330
021507 4000620400 17340 XF 50,0040000,00,0 PROCT 17340
* 021514 3002145100 17350 JC PRINT,0 0 PROCT 17350
* 021521 3002145100 17360 JC PRINT,0 0 PROCT 17360
021526 2000270040 17370 TITLE FT PTMP,32 2 PROCT 17370
021533 4400020701 17380 SC 0207,1 PROCT 17380
021540 2000004422 17390 FT 36,18 PROCT 17390
021545 2000271620 17400 FT PTMP+14,4,16 PROCT 17400
021552 2400245401 17410 TFR PROD+1,1,1 PROCT 17410
021557 2600271504 17420 PD PTMP+13,3,4 PROCT 17420
021564 2600277706 17430 PD PTMP+63,3,6 PROCT 17430
* 021571 3002150700 17440 JC PRINT+3030,0 PROCT 17440
021576 5600221240 17450 CUMT BD1 K45+1,1616 CUMULATIVE MULTIPLY TEST PROCT 17450 A
021603 5200012710 17460 SA1 87,8 PROCT 17460
021610 5600222170 17470 BD2 K46,8 PROCT 17470
021615 5000000030 17480 MPC ,8 PROCT 17480
021622 2600232140 17490 CD1 K53,16 PROCT 17490
* 021627 1000304142 17500 JR EXIT,34 4 PROCT 17500
* 021634 1000316100 17510 JR ER2,0 PROCT 17510
* 021641 3000237352 17520 JC ZERO,42 2 011 033 BAZ- PROCT 17520
021646 2600001720 17530 PD0 15,16 PROCT 17530
021653 2600012730 17540 PD0 87,8 PROCT 17540
021660 5600214261 17550 BD2 WORK+1,1,1 PROCT 17550
021665 5000000021 17560 MPC ,1 PROCT 17560
* 021672 1000314745 17570 JR ER1,37 PROCT 17570
* 021677 1000307200 17580 JR NEXT,0 PROCT 17580
* 021704 3000665452 17590 JC AZ,42 011 040 BAZ- PROCT 17590
021711 5600214461 17600 BD2 WORK+3,1,1 PROCT 17600
021716 2600001720 17610 PD0 15,16 PROCT 17610
021723 4400012705 17620 SC 87,5 PROCT 17620
021730 5000000021 17630 MPC ,1 2X2- PROCT 17630
* 021735 1000304145 17640 JR EXIT,37 7 PROCT 17640
* 021742 1000316100 17650 JR ER2,0 PROCT 17650
* 021747 3000665452 17660 JC AZ,42 011 041 BAZ- PROCT 17660
021754 5600214461 17670 BD2 WORK+3,1,1 PROCT 17670
021761 2600001720 17680 PD0 15,16 PROCT 17680
021766 5000000021 17700 MPC ,1 2X4 PROCT 17700
* 021773 1000304145 17710 JR EXIT,37 7 PROCT 17710
* 022000 1000316100 17720 JR ER2,0 PROCT 17720
* 022005 3002201234 17730 JC $+5,28 010 159 TEST DOF WITH PROCT 17730
022012 5600223777 17740 BD2 K48-2,1515 CY, CM - PROCT 17740
022017 5600217502 17750 BA1 K42-1,2 2 PROCT 17750
022024 5200012702 17760 SA1 0127,2 PROCT 17760
022031 5000000002 17770 MPN ,2 PROCT 17770
* 022036 3002205050 17780 JC $+10,40 0 PROCT 17780
* 022043 1000314700 17790 JR ER1,0 PROCT 17790
* 022050 1000307237 17800 JR NEXT,31 1 PROCT 17800
* 022055 3002206234 17810 JC $+5,28 T TEST DOF WITH CM, CY- PROCT 17810 F
022062 5600222077 17820 BD2 K46-1,1515 PROCT 17820
022067 5600225102 17830 BA1 K49,2 PROCT 17830
022074 5200012702 17840 SA1 0127,2 PROCT 17840
022101 5000000002 17850 MPN ,2 PROCT 17850
* 022106 3002212050 17860 JC $+10,40 0 PROCT 17860
* 022113 1000314700 17870 JR ER1,0 PROCT 17870
* 022120 1000307237 17880 JR NEXT,31 1 PROCT 17880
022125 4600221125 17890 BT K45,21 C CHECK DIVIDE, PLUS PLUS PROCT 17890 I
022132 5600217301 17900 BA1 K39,1 PROCT 17900
022137 2600001621 17910 PD0 14,1 PROCT 17910
022144 5600220261 17920 BD2 K43+1,1 1 PROCT 17920
022151 5000000041 17930 DV 0, 1 1 3 3 PROCT 17930
022156 5600012721 17940 BA2 87,1 PROCT 17940
022163 7000217261 17950 CB2 K38,1 Q QUOTIENT OCT 03 PROCT 17950 T
* 022170 3002220242 17960 JC $+10,34 4 PROCT 17960
* 022175 3002224500 17970 JC $+40,0 PROCT 17970
022202 4400001663 17980 SC 14,51 PROCT 17980
022207 2600217341 17990 CD1 K39,1 REREMAINDER OCT 04 PROCT 17990 R
* 022214 3002222642 18000 JC $+10,34 4 PROCT 18000
* 022221 3002224500 18010 JC $+20,0 PROCT 18010
* 022226 3002224545 18020 JC $+15,37 7 AZ RESET PROCT 18020 E
* 022233 3002224546 18030 JC $+10,38 8 AN RESET PROCT 18030 E
* 022240 1000304100 18040 JR EXIT,0 PROCT 18040
* 022245 1000316100 18050 JR ER2,0 PROCT 18050
022252 4600230325 18060 BT K52+2,2121 PLUS MINUS PROCT 18060
022257 5600220303 18070 BA1 K43+2,3 3 OCT 110607 PROCT 18070 1
022264 2600001422 18080 PD0 12,2 PROCT 18080
022271 5600232362 18090 BD2 K54,2 OCOCT 0552 PROCT 18090
022276 5000000042 18100 DV 0, 2 63634 -27 PROCT 18100
022303 5600012722 18110 BA2 87,2 PROCT 18110
022310 2600217662 18120 CD2 K42,2 QUQUOTIENT OCT 0546 PROCT 18120
* 022315 3002232742 18130 JC $+10,34 4 PROCT 18130
* 022322 3002236000 18140 JC $+30,0 PROCT 18140
022327 4400001563 18150 SC 13,51 PROCT 18150
022334 2600231442 18160 CD1 K53-5,2 2 REMAINDER OCT 0406 PROCT 18160 N
* 022341 3002235342 18170 JC $+10,34 4 PROCT 18170
* 022346 3002236000 18180 JC $+10,0 PROCT 18180
* 022353 1000304146 18190 JR EXIT,38 8 PROCT 18190
* 022360 1000316100 18200 JR ER2,0 PROCT 18200
022365 4600221125 18210 BT K45,21 MINUS PLUS PROCT 18210 P
022372 5600222107 18220 BA1 K46,7 O OCT 06071105121347 PROCT 18220 7
022377 2600001021 18230 PD0 8,1 PROCT 18230
022404 5600220164 18240 BD2 K43,4 O OCT 06051211 PROCT 18240 5
022411 5000000044 18250 DV 0, 4 343462784- 3276 PROCT 18250
022416 5600012724 18260 BA2 87,4 PROCT 18260
022423 7000233164 18270 CB2 K56,4 Q QUOTIENT OCT 04031052 PROCT 18270 T
* 022430 3002244242 18280 JC $+10,34 4 PROCT 18280
* 022435 3002247300 18290 JC $+30,0 PROCT 18290
022442 4400001363 18300 SC 11,51 PROCT 18300
022447 2600233544 18310 CD1 K57,4 R REMAINDER OCT 03031045 PROCT 18310 E
* 022454 3002246642 18320 JC $+10,34 4 PROCT 18320
* 022461 3002247300 18330 JC $+10,0 PROCT 18330
* 022466 1000304146 18340 JR EXIT,38 8 PROCT 18340
* 022473 1000316100 18350 JR ER2,0 PROCT 18350
022500 5600215210 18360 BA1 DEC2+1,8,8 MINUS MINUS PROCT 18360 S
022505 5200012710 18370 SA1 87,8 PROCT 18370
022512 5600222110 18380 BA1 K46,8 O OCT 0506071105121347 PROCT 18380 6
022517 5600222166 18390 BD2 K46,6 O OCT 071105121347 PROCT 18390 1
022524 5000000042 18400 DV 0, 2 -2-23462784 -462784 PROCT 18400 4
022531 5600012730 18410 BA2 87,8 PROCT 18410
022536 7000234570 18420 CB2 K58+1,8 8 OCT 0405060710111003 PROCT 18420 0
* 022543 3002255542 18430 JC $+10,34 4 PROCT 18430
* 022550 3002261300 18440 JC $+35,0 PROCT 18440
022555 4400001063 18450 SC 8,51 PROCT 18450
022562 2600235346 18460 CD1 K59,6 O OCT 060506101347 PROCT 18460 5
* 022567 3002260142 18470 JC $+10,34 4 PROCT 18470
* 022574 3002261300 18480 JC $+15,0 PROCT 18480
* 022601 3002261346 18490 JC $+10,38 8 PROCT 18490
* 022606 1000304100 18500 JR EXIT,0 PROCT 18500
* 022613 1000316100 18510 JR ER2,0 PROCT 18510
* 022620 3002262534 18520 JC $+5,28 0 010157, TEST DOF PROCT 18520
022625 5600220102 18530 BA1 K43,2 O OCT 1211 PROCT 18530 1
022632 5600225161 18540 BD2 K49,1 O OCT 05 PROCT 18540
022637 5000000041 18550 DV 0, 1 7676 2 PROCT 18550
* 022644 3002265650 18560 JC $+10,40 0 PROCT 18560
* 022651 1000314700 18570 JR ER1,0 PROCT 18570
* 022656 1000307237 18580 JR NEXT,31 1 PROCT 18580
022663 4600230325 18590 BT K52+2,2121 CHECK ZERO REMAINDER PROCT 18590
022670 5600223303 18600 BA1 K47+2,3 3 OCT 071113 PROCT 18600 7
022675 2600001421 18610 PD0 12,1 PROCT 18610
022702 5600221463 18620 BD2 K45+3,3 3 OCT 050607 PROCT 18620 0
022707 5000000041 18630 DV 0, 1 46468-234 PROCT 18630
022714 5600012721 18640 BA2 87,1 PROCT 18640
022721 7000225161 18650 CB2 K49,1 QUQUOTIENT OCT 05 PROCT 18650
* 022726 3002274042 18660 JC $+10,34 4 PROCT 18660
* 022733 3002277100 18670 JC $+30,0 PROCT 18670
022740 4400001463 18680 SC 12,51 PROCT 18680
022745 2600176043 18690 CD1 CON2+3,3,3 REMAINDER OCT 030303 PROCT 18690 I
* 022752 3002276442 18700 JC $+10,34 4 PROCT 18700
* 022757 3002277100 18710 JC $+10,0 PROCT 18710
* 022764 1000304145 18720 JR EXIT,37 7 PROCT 18720
* 022771 1000316100 18730 JR ER2,0 PROCT 18730
022776 4600225125 18740 BT K49,21 C CHECK FAC PROCT 18740 A
023003 5600223140 18750 BD1 K47,16 2 2346278497531024 PROCT 18750 4
023010 5600225170 18760 BD2 K49,8 DEDEC 67264662 PROCT 18760 4
023015 5000000050 18770 DV 0, 8 PROCT 18770
023022 5600012730 18780 BA2 87,8 PROCT 18780
023027 7000252770 18790 CB2 K61+7,8 8 QUOTIENT 34881294 PROCT 18790 N
* 023034 3002304642 18800 JC $+10,34 4 PROCT 18800
* 023041 3002306500 18810 JC $+20,0 PROCT 18810
023046 4400000763 18820 SC 7,51 PROCT 18820
023053 2600253750 18830 CD1 K62+7,8 8 REMAINDER 46498396 PROCT 18830 D
* 023060 1000304142 18840 JR EXIT,34 4 PROCT 18840
* 023065 1000316100 18850 JR ER2,0 PROCT 18850
023072 2600004102 18860 PD 041,2 CHCHECK CS,77+00 PROCT 18860 ,
023077 3600255602 18870 CS K63-1,2 2 PROCT 18870
023104 5600004102 18880 BA1 041,2 PROCT 18880
023111 7000255642 18890 CB1 K63-1,2 2 7777 PROCT 18890
* 023116 1000304142 18900 JR EXIT,34 4 PROCT 18900
* 023123 1000316100 18910 JR ER2,0 PROCT 18910
023130 2600004102 18920 PD 041,2 0000+00 PROCT 18920
023135 3600256102 18930 CS K63+2,2 2 PROCT 18930
023142 5600004102 18940 BA1 041,2 PROCT 18940
023147 7000237342 18950 CB1 ZERO,2 0 0000 PROCT 18950
* 023154 1000304142 18960 JR EXIT,34 4 PROCT 18960
* 023161 1000316100 18970 JR ER2,0 PROCT 18970
023166 4600255710 18980 BT K63,8 77+77,00+00 PROCT 18980
023173 3600255602 18990 CS K63-1,2 2 PROCT 18990
023200 5600004102 19000 BA1 041,2 PROCT 19000
023205 7000237342 19010 CB1 ZERO,2 PROCT 19010
* 023212 1000304142 19020 JR EXIT,34 4 PROCT 19020
* 023217 1000316100 19030 JR ER2,0 PROCT 19030
023224 4600255710 19040 BT K63,8 00+77 PROCT 19040
023231 3600237310 19050 CS ZERO,8 PROCT 19050
023236 5600004102 19060 BA1 041,2 PROCT 19060
023243 7000255642 19070 CB1 K63-1,2 2 7777 PROCT 19070
* 023250 1000304142 19080 JR EXIT,34 4 PROCT 19080
* 023255 1000316100 19090 JR ER2,0 PROCT 19090
023262 2600004102 19100 PD 041,2 STSTART EVEN,COUNT 64 PROCT 19100 E
023267 3600231000 19110 CS K52+7,0 0 PROCT 19110
023274 2000420103 19120 FT 04201,3 3 PROCT 19120
023301 7000004142 19130 CB1 041,2 OCOCT 3576 PROCT 19130
* 023306 1000304142 19140 JR EXIT,34 4 PROCT 19140
* 023313 1000316100 19150 JR ER2,0 PROCT 19150
023320 2600004102 19160 PD 041,2 STSTART ODD,COUNT 64 PROCT 19160 D
023325 3600230700 19170 CS K52+6,0 0 PROCT 19170
023332 2000421703 19180 FT 04217,3 3 PROCT 19180
023337 7000004142 19190 CB1 041,2 OCOCT 3560 PROCT 19190
* 023344 1000304142 19200 JR EXIT,34 4 PROCT 19200
* 023351 1000316100 19210 JR ER2,0 PROCT 19210
023356 2600007700 19220 PD 077,16 CK. NO INDEX 009 080 PROCT 19220
023363 2600005700 19230 PD 057,16 PROCT 19230
023370 4400004705 19240 SC 047,5 IR=1 PROCT 19240
023375 4400005305 19250 SC 053,5 IR=2 PROCT 19250
023402 4400006305 19260 SC 063,5 IR=4 PROCT 19260
* 023407 3002341400 19270 J $+5 PROCT 19270
* 023414 1000304100 19280 JR EXIT,0 PROCT 19280
* 023421 1000316100 19290 JR ER2,0 PROCT 19290
023426 2000255711 19300 FT K63,9 IR=1 009 080 M5- PROCT 19300
023433 5620000001 19310 BA1 0,1,1 PROCT 19310
023440 7000255741 19320 CB1 K63,1 PROCT 19320
* 023445 1000304142 19330 JR EXIT,34 4 PROCT 19330
* 023452 1000316100 19340 JR ER2,0 PROCT 19340
023457 2000154212 19350 FT K03,10 IR=2 009 080 M6- PROCT 19350
023464 5640000001 19360 BA1 0,1,2 PROCT 19360
023471 7000154241 19370 CB1 K03,1 PROCT 19370
* 023476 1000304142 19380 JR EXIT,34 4 PROCT 19380
* 023503 1000316100 19390 JR ER2,0 PROCT 19390
023510 2000167014 19400 FT K31,12 IR=4 009 080 J1- PROCT 19400
023515 5700000001 19410 BA1 0,1,4 PROCT 19410
023522 7000167041 19420 CB1 K31,1 PROCT 19420
* 023527 1000304142 19430 JR EXIT,34 4 PROCT 19430
* 023534 1000316100 19440 JR ER2,0 PROCT 19440
023541 2000007711 19450 FT 63,9 PROCT 19450
023546 4020410000 19460 XF 041,00,0,00,1 READER MUST BE OFF LINE PROCT 19460
023553 4020000000 19470 XF 000,00,0,00,1 PROCT 19470
* 023560 1000314753 19480 JR ER1,43 PROCT 19480
* 023565 1000307200 19490 JR NEXT,0 PROCT 19490
023572 2000007717 19500 FT 63,15 IR=7 009 082 F4- PROCT 19500
023577 6160000001 19510 AC 0,1,7 PROCT 19510
023604 3400007700 19520 CC 63,0 PROCT 19520
* 023611 1000304142 19530 JR EXIT,34 4 PROCT 19530
* 023616 1000316100 19540 JR ER2,0 PROCT 19540
023623 2600001721 19550 PD0 15,1 PROCT 19550
023630 2000001713 19560 FT 15,11 IR=3 009 082 F2- PROCT 19560
023635 5460000000 19570 LP 0,0,3 PROCT 19570
023642 3400001700 19580 CC 15,0 PROCT 19580
* 023647 1000304142 19590 JR EXIT,34 4 PROCT 19590
* 023654 1000316100 19600 JR ER2,0 PROCT 19600
023661 2000004716 19610 FT 047,14 IR=6 009 082 F1- PROCT 19610
023666 4340000016 19620 ST 0,14,6 PROCT 19620
023673 7400004716 19630 CT 047,14 PROCT 19630
* 023700 1000304142 19640 JR EXIT,34 4 PROCT 19640
* 023705 1000316100 19650 JR ER2,0 PROCT 19650
023712 2005000015 19660 FT 050000,1,13 IR=5 015 085 EPF- PROCT 19660
023717 2120000003 19670 FT 0,3,5 PROCT 19670
023724 7000006743 19680 CB1 067,3 PROCT 19680
* 023731 1000304142 19690 JR EXIT,34 4 PROCT 19690
* 023736 1000316100 19700 JR ER2,0 PROCT 19700
023743 2000770015 19710 FT 07700,1313 IR=5 041 022 1 TO M6 PROCT 19710
023750 2120000003 19720 FT 0,3,5 PROCT 19720
023755 7000006743 19730 CB1 067,3 PROCT 19730
* 023762 1000304142 19740 JR EXIT,34 4 PROCT 19740
* 023767 1000316100 19750 JR ER2,0 PROCT 19750
023774 2000007715 19760 FT 077,13 IR=5 Z-1 024 002 PROCT 19760
024001 2120000003 19770 FT 0,3,5 PROCT 19770
024006 7000006743 19780 CB1 067,3 PROCT 19780
* 024013 1000304142 19790 JR EXIT,34 4 PROCT 19790
* 024020 1000316100 19800 JR ER2,0 PROCT 19800
024025 2007777711 19810 FT 077777,9,9 IR=1 035 060 PROCT 19810
024032 2020000103 19820 FT 1,3,1 PROCT 19820
024037 7000237343 19830 CB1 ZERO,3 PROCT 19830
* 024044 1000304142 19840 JR EXIT,34 4 PROCT 19840
* 024051 1000316100 19850 JR ER2,0 PROCT 19850
024056 2600004704 19860 PD 047,4 _O_ TO CY 035 072 PROCT 19860
024063 2000000011 19870 FT 0,9 PROCT 19870
024070 7400237311 19880 CT ZERO,9 PROCT 19880
* 024075 1000304142 19890 JR EXIT,34 4 PROCT 19890
* 024102 1000316100 19900 JR ER2,0 PROCT 19900
024107 2000000011 19910 FT 0,9 Y-1 025 051 PROCT 19910
024114 2020000011 19920 FT 0,9,1 PROCT 19920
024121 7400237311 19930 CT ZERO,9 PROCT 19930
* 024126 1000304142 19940 JR EXIT,34 4 PROCT 19940
* 024133 1000316100 19950 JR ER2,0 PROCT 19950
* 024140 3000327600 19960 JC OKAY,0 CHANGE TO ASKIP TO PROCT 19960
024145 5604000001 19970 BA1 040000,1,1 125340 TEST INTERRUPTS PROCT 19970 0
* 024152 3002416465 19980 JC $+10,53 3 PUT BAD PARITY IN PROCT 19980
* 024157 3002417600 19990 J $+15 OCT 40000 + 77777 AND PROCT 19990
* 024164 3002417125 20000 JC $+5,21 PUT READER OFF LINE PROCT 20000 P
* 024171 1000304136 20010 JR EXIT,30 0 PROCT 20010
* 024176 1000316100 20020 JR ER2,0 PROCT 20020
* 024203 3000730452 20030 JC DOF,42 1 125046 PROCT 20030
* 024210 3002422266 20040 JC $+10,54 4 PROCT 20040
* 024215 3002424100 20050 J $+20 PROCT 20050
* 024222 3002422750 20060 JC $+5,40 PROCT 20060
* 024227 3002423435 20070 JC $+5,29 PROCT 20070
* 024234 1000304126 20080 JR EXIT,22 2 PROCT 20080
* 024241 1000316100 20090 JR ER2,0 PROCT 20090
* 024246 3000730452 20100 JC DOF,42 1 125046 IR2- PROCT 20100 I
* 024253 3002426026 20110 JC $+5,22 PROCT 20110
* 024260 3002427766 20120 JC $+15,54 4 PROCT 20120
* 024265 1002515300 20130 JR CL2,0 PROCT 20130
* 024272 1000304100 20140 JR EXIT,0 PROCT 20140
* 024277 1000316100 20150 JR ER2,0 PROCT 20150
024304 5604000001 20160 BA1 040000,1,1 125046 IR1- PROCT 20160 6
* 024311 3000730452 20170 JC DOF,42 PROCT 20170
* 024316 3002433566 20180 JC $+15,54 4 PROCT 20180
* 024323 1002515300 20190 JR CL2,0 PROCT 20190
* 024330 1000304100 20200 JR EXIT,0 PROCT 20200
* 024335 1000316100 20210 JR ER2,0 PROCT 20210
024342 5604000001 20220 BA1 040000,1,1 125 047 IR1- PROCT 20220
* 024347 3000730452 20230 JC DOF,42 PROCT 20230
* 024354 3002436136 20240 JC $+5,30 PROCT 20240
* 024361 1002515366 20250 JR CL2,54 PROCT 20250
* 024366 1000307200 20260 JR NEXT,0 PROCT 20260
024373 4400041424 20270 SC 0414,20 0 125052 PROCT 20270 1
024400 4020410000 20280 XF 041,00,0,00,1 PROCT 20280
* 024405 3002441767 20290 JC $+10,55 5 PROCT 20290
* 024412 3002442424 20300 JC $+10,20 0 PROCT 20300
* 024417 3002442427 20310 JC $+5,23 PROCT 20310
* 024424 1000307231 20320 JR NEXT,25 5 PROCT 20320
* 024431 3000730452 20330 JC DOF,42 1 125052 IR2- PROCT 20330 I
* 024436 3002444350 20340 JC $+5,40 PROCT 20340
024443 4020410000 20350 XF 041,00,0,00,1 PROCT 20350
* 024450 3002447467 20360 JC $+20,55 5 PROCT 20360
* 024455 1002515300 20370 JR CL2,0 PROCT 20370
* 024462 3002446727 20380 JC $+5,23 PROCT 20380
* 024467 1000304131 20390 JR EXIT,25 5 PROCT 20390
* 024474 1000316100 20400 JR ER2,0 PROCT 20400
024501 5604000001 20410 BA1 040000,1,1 125052 IR1- PROCT 20410 2
024506 4020410000 20420 XF 041,00,0,00,1 PROCT 20420
* 024513 3002453767 20430 JC $+20,55 5 PROCT 20430
* 024520 1002515300 20440 JR CL2,0 PROCT 20440
* 024525 3002453227 20450 JC $+5,23 PROCT 20450
* 024532 1000304131 20460 JR EXIT,25 5 PROCT 20460
* 024537 1000316100 20470 JR ER2,0 PROCT 20470
024544 4020410000 20480 XF 041,00,0,00,1 125052 IR3- PROCT 20480 5
* 024551 3002455627 20490 JC $+5,23 PROCT 20490
024556 4020410000 20500 XF 041,00,0,00,1 PROCT 20500
* 024563 3002460267 20510 JC $+15,55 5 PROCT 20510
* 024570 3002457531 20520 JC $+5,25 PROCT 20520
* 024575 3002460227 20530 JC $+5,23 PROCT 20530
* 024602 1000307231 20540 JR NEXT,25 5 PROCT 20540
* 024607 3002461432 20550 JC $+5,26 1 125052 IOS3- PROCT 20550 I
024614 4020410000 20560 XF 041,00,0,00,1 PROCT 20560
* 024621 3000314467 20570 JC ER1,55 PROCT 20570
* 024626 3002463333 20580 JC $+5,27 PROCT 20580
* 024633 3002464027 20590 JC $+5,23 PROCT 20590
* 024640 1000307231 20600 JR NEXT,25 5 PROCT 20600
024645 5604000001 20610 BA1 040000,1,1 125 053 IR1- PROCT 20610
024652 4020410000 20620 XF 041,00,0,00,1 PROCT 20620
* 024657 3002466436 20630 JC $+5,30 PROCT 20630
* 024664 1002515367 20640 JR CL2,55 PROCT 20640
* 024671 3002467627 20650 JC $+5,23 PROCT 20650
* 024676 1000307231 20660 JR NEXT,25 5 PROCT 20660
* 024703 3000730452 20670 JC DOF,42 125 053 IR2- PROCT 20670 0
024710 4020410000 20680 XF 041,00,0,00,1 125 053 IRQ- PROCT 20680
* 024715 3002472250 20690 JC $+5,40 PROCT 20690
* 024722 3002472735 20700 JC $+5,29 PROCT 20700
* 024727 1002515367 20710 JR CL2,55 PROCT 20710
* 024734 3002474127 20720 JC $+5,23 PROCT 20720
024741 4400041431 20730 SC 0414,25 5 PROCT 20730
* 024746 1000307231 20740 JR NEXT,25 5 PROCT 20740
024753 2000000522 20750 FT 5,18 061616101 LAO- PROCT 20750 A
024760 2003777320 20760 FT 037773,1,16 PROCT 20760
024765 2403777301 20770 TFR 037773 PROCT 20770
* 024772 1000307200 20780 JR NEXT,0 PROCT 20780
024777 2603777723 20790 PD0 037777,3,3 008060EFBL PROCT 20790 0
025004 2203777543 20800 ZS 037775,3,3 PROCT 20800
* 025011 1000307200 20810 JR NEXT,0 PROCT 20810
025016 4400000430 20820 SC 04,030 013 085 AC21- PROCT 20820 0
025023 5602504104 20830 BA1 $+14,4 PROCT 20830
025030 5200001004 20840 SA1 010,4 PROCT 20840
025035 3402504700 20850 CC $+10,0 PROCT 20850
025046 1000000200 20860 +5 0100000000200 PROCT 20860
* 025047 1000307200 20870 JR NEXT,0 PROCT 20870
* 025054 3004000040 20880 JC 040000,3,32 151079 BEEP PROCT 20880 7
* 025061 1000307200 20890 JR NEXT,0 PROCT 20890
* 025066 3000327600 20900 J OKAY CHANGE TO A SKIP IF PROCT 20900 A
025073 4400001330 20910 SC 11,030 MEM. IS LARGER THAN 16K. PROCT 20910
025100 4602511103 20920 BT $+9,3 PROCT 20920
025105 3402512423 20930 CC $+15,19 9 PROCT 20930
025112 5204000705 20940 SA1 040007,5,5 PROCT 20940
* 025117 3004000300 20950 JC 040003,0,0 PROCT 20950
* 025124 3002513666 20960 JC $+10,54 4 PROCT 20960
* 025131 1000314700 20970 JR ER1,0 PROCT 20970
* 025136 1000307226 20980 JR NEXT,22 2 PROCT 20980
* 025143 3000327600 20990 J OKAY,0 PROCT 20990
* 025150 3002515025 21000 CL2 JC $,21 PROCT 21000
* 025155 3002516250 21010 JC $+5,40 PROCT 21010
* 025162 3002516735 21020 JC $+5,29 PROCT 21020
* 025167 3002517426 21030 JC $+5,22 PROCT 21030
* 025174 3002515036 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
3000300000 22070 END MANST PROCT 22070
{-- tape mark --}
010797 C081 PACE7 CODEDIT SOURCE - 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
3000140000 02690 END CHOSE PCE7 02690
{-- tape mark --}
011477 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 --}
013101 C101 DFC CODEDIT SOURCE - T3834394-10
001400 00010 T100 BEGIN 01400 DFC 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001400 3007010660 * JD 070106 *
* 001405 3000140000 * J $-5 *
SEGMENT-ID T101 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 T102 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 T103 3000136300 * SEGJP $ *
001400 000101 ORIG 01400 000101
001403 00000000 00020 UTHS +4 00000000000 DFC 00020
001413 7070707070707070 00030 +8 0707070707070707070 DFC 00030 0
001423 7070707070707070 00040 SVO +8 0707070707070707070 DFC 00040 0
001427 00000707 00050 OSV +4 00707 DFC 00050
001433 00000250 00060 B168 +4 0000250 0 DFC 00060
001437 00000000 00070 UTH +4 00000000000 DFC 00070
001443 00000000 00080 ZERO +4 0 DFC 00080
* 001444 3000000000 00090 IZE JC 0 DFC 00090
001451 2600035700 00100 PD 0357,16 6 DFC 00100
001456 5600764010 00110 NN BA1 IE6,8 DFC 00110
001463 5200046710 00120 SA1 0467,8 DFC 00120
001470 5600763010 00130 BA1 IE0,8 DFC 00130
001475 5200040710 00140 SA1 0407,8 DFC 00140
001502 2600007700 00150 N PD 077,16 DFC 00150
001507 2600005700 00160 PD 057,16 DFC 00160
001514 5600762000 00170 BA1 IE2,16 DFC 00170
001521 5200051700 00180 SA1 0517,16 6 DFC 00180
001526 5600143704 00190 BA1 UTH,4 DFC 00190
001533 5200140304 00200 SA1 UTHS,4 DFC 00200
* 001540 3000144426 00210 JC IZE,22 DFC 00210
001545 2600001700 00220 STRT PD 017,16 ZERO AR1 00220 A
001552 5600740402 00221 BA1 UTH0N,2 2 16 IS LOWER UNIT 17 IS UPPER UNIT 00221 S
* 001557 3000156420 00222 JHJ STORE 00222
001564 5200740402 00223 STORE SA1 UTH0N,2 2 00223
001571 1600740422 00225 BS2 UTH0N,2 2 00225
001576 5600740402 00226 BA1 UTH0N,2 2 00226
001603 5200740202 00227 SA1 UNITU,2 2 00227
001610 5600740301 002271RETN BA1 UTH0N-1,1,1 002271
001615 5200143401 002272 SA1 UTH-3,1 1 002272
* 001622 1000144700 00230 START JR IZE DFC 00230
* 001627 3000163422 00240 JC $+5,18 DFC 00240
001634 2000764470 00250 FT WRIM,56 6 LOCKOUT TEST DFC 00250
001641 4400035160 00260 SC 0351,06060 3 SECTOR COUNT, T58 DFC 00260
001646 6400034120 00270 LS 0341,02020 DFC 00270
001653 5600140304 00280 BA1 UTHS,4 DFC 00280
001660 5200034704 00290 SA1 0347,4 DFC 00290
001665 4140460000 00300 W1 XF 046,0,0,0,6 WRITE 1 SECTOR DFC 00300
* 001672 3000170465 00310 JC ER1,53 DFC 00310
* 001677 3000171622 00320 JC $+15,18 8 DFC 00320
* 001704 3000000160 00330 ER1 JD 01 LOCKOUT ERROR DFC 00330
* 001711 3000162200 00340 JC START DFC 00340
001716 5600035101 00350 BA1 0351,1 00350
001723 5400001760 00360 LP 15,060 00360
001730 3400001700 00370 CC 15,0 DFC 00370
* 001735 3000175442 00380 JC $+15,34 4 DFC 00380
* 001742 3000000260 00390 ER2 JD 02 SECTOR COUNT IN TETRAP 58 DFC 00390
* 001747 3000162200 00400 JC START NOT CLEARED TO ZERO DFC 00400
001754 6000034353 00410 AC 0343,05353 DFC 00410
001761 6000034202 00420 AC 0342,02 2 DFC 00420
001766 5400034107 00430 LP 0341,07 7 DFC 00430
001773 7400035370 00440 CT 0353,56 6 DFC 00440
* 002000 3000201742 00450 JC $+15,34 4 DFC 00450
* 002005 3000000360 00460 ER3 JD 03 CORE MEMORY ADDRESS OF DFC 00460
* 002012 3000162200 00470 JC START TETRAP 58 NOT CORRECT DFC 00470
002017 2001024470 00480 FT RDIM,56 6 INHIBIT INTERRUPT DFC 00480
002024 6400034120 00490 LS 0341,02020 DFC 00490
* 002031 1000636500 00500 JR CLEAR NO HEAD BAR POSITION DFC 00500
002036 4140610000 00510 R1 XF 061,0,0,0,6 CLEAR READ IN AREA DFC 00510
* 002043 3000206265 00520 JC $+15,53 3 INH,READ,NO POSITION DFC 00520
* 002050 3000000460 00530 ER4 JD 04 INTERRUPT WAS NOT DFC 00530
* 002055 3000162200 00540 JC START INHIBITED DFC 00540
* 002062 1000642300 00550 JR COMP DFC 00550
002067 2600035710 00560 PD 0357,8 DFC 00560
002074 4140007777 00570 XF 0,07777,7,0,6 DFC 00570
* 002101 3000211353 00580 JC $+10,43 3 DFC 00580
* 002106 3000212500 00590 JC $+15 DFC 00590
* 002113 3000000660 00600 ER6 JD 06 TEST INDICATION ERROR DFC 00600
* 002120 3000162200 00610 JC START ON RESET DFC 00610
* 002125 1000636522 00620 JR CLEAR,1818 CLEAR READ IN AREA DFC 00620
002132 4140010000 00630 R2 XF 01,0,0,6,6 DFC 00630
* 002137 3000213765 00640 JC $,53 LOOP TILL IPT DFC 00640
* 002144 1000642322 00650 JR COMP,18 8 DFC 00650
002151 6000034202 00660 AC 0342,02 2 DFC 00660
002156 6000034350 00670 AC 0343,05050 DFC 00670
002163 5400034107 00680 LP 0341,07 7 DFC 00680
002170 7400035370 00690 CT 0353,56 6 DFC 00690
* 002175 3000221442 00700 JC $+15,34 4 DFC 00700
* 002202 3000000760 00710 ER7 JD 07 SINGLE SECTOR DFC 00710
* 002207 3000162200 00720 JC START WRITE AND READ DFC 00720
002214 3400140377 00730 END CC UTHS,07777 64 SECTORS OF 70 DFC 00730
* 002221 3000224042 00740 JC $+15,34 4 DFC 00740
002226 6000140301 00750 AC UTHS,01 1 DFC 00750
* 002233 3000162700 00760 JC START+5 5 DFC 00760
002240 4400140300 00770 SC UTHS,0 DFC 00770
002245 6000140201 00780 AC UTHS-1,0,01 FULL TRACKS 0,HEAD DFC 00780
002252 5600143601 00790 BA1 UTH-1,1 1 DFC 00790
002257 6000001701 00800 AC 15,01 DFC 00800
002264 7000140241 00810 CB1 UTHS-1,1,1 DFC 00810
* 002271 3000162743 00820 JC START+5,5,35 DFC 00820
002276 2600035704 00830 PD 0357,4 STORE DRUM ADD TEST DFC 00830
002303 4140100000 00840 RDA XF 010,0,0,0,6 REQUEST DRUM ADDRESS DFC 00840 U
002310 6000034701 00850 AC 0347,1 DFC 00850
002315 4400034700 00860 SC 0347,0 DFC 00860
002322 7400034773 00870 CT 0347,59 9 DFC 00870
* 002327 3000234642 00880 JC $+15,34 4 DFC 00880
* 002334 3000001060 00890 ER10 JD 010 STORE DRUM ADDRESS DFC 00890
* 002341 3000162200 00900 JC START ERROR DFC 00900
002346 4400034577 00910 POSIT SC 0345,07777 DFC 00910
* 002353 1000636522 00920 JR CLEAR,1818 DFC 00920
002360 4140040000 00930 POS1 XF 04,0,0,6,6 DFC 00930
* 002365 3000236565 00940 JC $,53 LOOP TILL IPT DFC 00940
002372 2001024470 00950 FT RDIM,56 6 DFC 00950
002377 6400034120 00960 LS 0341,02020 DFC 00960
002404 4140610000 00970 TPOSR XF 061,0,0,0,6 LOCKOUT,INHBIT, READ OFF-TRACK DFC 00970 K
002411 4600143771 00980 BT UTH,57 DFC 00980
* 002416 1000636522 00990 JR CLEAR,1818 DFC 00990
002423 4140040000 01000 POS2 XF 04,0,0,6,6 POSITION DFC 01000
* 002430 3000243065 01010 JC $,53 LOOP TILL IPT DFC 01010
002435 2001024470 01020 FT RDIM,56 6 DFC 01020
002442 6400034120 01030 LS 0341,02020 DFC 01030
* 002447 3000245422 01040 JC $+5,18 DFC 01040
002454 4140010000 01050 R3 XF 01,0,0,6,6 READ NO POSITION DFC 01050
* 002461 3000246165 01060 JC $,53 DFC 01060
* 002466 1000642323 01070 JR COMP,19 9 DFC 01070
002473 4400034577 01080 SC 0345,07777 DFC 01080
* 002500 3000250522 01090 JC $+5,18 DFC 01090
002505 4140260000 01100 W2 XF 026,0,0,0,6 INHIBIT,NO LOCKOUT,POSITION AND WRITE DFC 01100 I
002512 4140620000 01110 FBW1 XF 062,0,0,0,6 FORCE BUSY DFC 01110 R
* 002517 3000253165 01120 JC $+10,53 3 DFC 01120
* 002524 3000254300 01130 JC $+15 DFC 01130
* 002531 3000002060 01140 ER20 JD 020 DFC 01140
* 002536 3000162200 01150 JC START DFC 01150
002543 4140000400 01160 XF 0,00400,0,0,6 DFC 01160
* 002550 3000256753 01170 JC $+15,43 3 DFC 01170
* 002555 3000002160 01180 ER21 JD 021 BUSY NOT SET DFC 01180
* 002562 3000162200 01190 JC START DFC 01190
002567 4140400400 01200 XF 32,0040000,0,6 DFC 01200
002574 4140000400 01210 XF 0,00400,0,0,6 DFC 01210
* 002601 3000261353 01220 JC $+10,43 3 DFC 01220
* 002606 3000262500 01230 JC $+15 DFC 01230
* 002613 3000002260 01240 ER22 JD 022 CANT RESET BUSY DFC 01240
* 002620 3000162200 01250 JC START DFC 01250
* 002625 1000636522 01260 JR CLEAR,1818 CHARACTER TEST07 DFC 01260
002632 4600143771 01270 BT UTH,57 DFC 01270
002637 2001024470 01280 FT RDIM,56 6 DFC 01280
002644 6400034120 01290 LS 0341,02020 1 CHAR READ DFC 01290
002651 4140651000 01300 R4 XF 065,0100000,0,6 DFC 01300
002656 4140000400 01310 XF 0,00400,0,0,6 DFC 01310
* 002663 3000267553 01320 JC $+10,43 3 DFC 01320
* 002670 3000270726 01330 JC $+15,22 2 RESET IND 2 DFC 01330
002675 4140400400 01340 XF 32,0040000,0,6 RESET BUSY DFC 01340 R
* 002702 3000265100 01350 JC R4 DFC 01350
* 002707 3000271422 01360 JC $+5,18 DFC 01360
002714 3401024470 01370 CC RDIM,07070 DFC 01370
* 002721 3000274042 01380 JC $+15,34 4 DFC 01380
* 002726 3000003060 01390 ER30 JD 030 FIRST CH. ON 1CH READ DFC 01390
* 002733 3000162200 01400 JC START INCORRECT DFC 01400
002740 3401024507 01410 CC RDIM+1,0,07 DFC 01410
* 002745 3000276442 01420 JC $+15,34 4 DFC 01420
* 002752 3000003160 01430 ER31 JD 031 FIRIRST CHAR. ON 1 CHAR. READ DFC 01430 R
* 002757 3000162200 01440 JC START ALTEREP ON 1CH. READ DFC 01440
* 002764 3000300365 01450 JC $+15,53 3 DFC 01450
* 002771 3000003260 01460 ER32 JD 032 DFC 01460
* 002776 3000162200 01470 JC START INH.,NOT WORKING DFC 01470
* 003003 1000636500 01480 JR CLEAR DFC 01480
003010 2001024470 01490 FT RDIM,56 6 DFC 01490
003015 6400034140 01500 LS 0341,04040 DFC 01500
003022 4140011000 01510 R5 XF 01,0100000,0,6 READ ONLY,CHARACTER COUNT DFC 01510 R
* 003027 3000302765 01520 JC $,53 LOOP TILL 1PT DFC 01520
003034 5601024502 01530 BA1 RDIM+1,2,2 DFC 01530
003041 7000142342 01540 CB1 SVO,2 DFC 01540
* 003046 3000306542 01550 JC $+15,34 4 DFC 01550
* 003053 3000003360 01560 ERR33 JD 033 DATA ERROR ON 2 CHAR. DFC 01560
* 003060 3000162200 01570 JC START READ DFC 01570
003065 5601024702 01580 BA1 RDIM+3,2,2 DFC 01580
003072 5601051301 01590 BA1 RDIM+16767,1 0707 DFC 01590
003077 7000142742 01600 CB1 OSV,2 DFC 01600
* 003104 3000312342 01610 JC $+15,34 4 DFC 01610
* 003111 3000003460 01620 ER34 JD 034 BUFFER CH. ON2 CHAR DFC 01620
* 003116 3000162200 01630 JC START READ DFC 01630
003123 6000034701 01640 AC 0347,01 1 DFC 01640
003130 7400034773 01650 CT 0347,59 9 DFC 01650
* 003135 3000315442 01660 JC $+15,34 4 DFC 01660
* 003142 3000003560 01670 ER35 JD 035 T59 NOT EQU S+1 DFC 01670
* 003147 3000162200 01680 JC START S SHOULD INCREMT. BY 1 FULL SECTOR COUNT DFC 01680 I
003154 5400034107 01690 LP 0341,07 7 DFC 01690
003161 6000034302 01700 AC 0343,02 2 DFC 01700
003166 7400035370 01710 CT 0353,56 6 DFC 01710
* 003173 3000321242 01720 JC $+15,34 4 DFC 01720
* 003200 3000003660 01730 ER36 JD 036 T 57 INCORRECT DFC 01730
* 003205 3000162200 01740 JC START DFC 01740
003212 2001024470 01750 FT RDIM,56 6 4 CHAR READ DFC 01750
003217 4600143771 01760 BT UTH,57 DFC 01760
003224 6400034001 01770 LS 0340,01 1 DFC 01770
003231 4140411000 01780 R6 XF 041,0100000,0,6 DFC 01780
003236 5601024704 01790 BA1 RDIM+3,4,4 DFC 01790
003243 7000142344 01800 CB1 SVO,4 DFC 01800
* 003250 3000326742 01810 JC $+15,34 4 DFC 01810
* 003255 3000003760 01820 ER37 JD 037 4CH READ DATA ERROR DFC 01820
* 003262 3000162200 01830 JC START DFC 01830
003267 5601025102 01840 BA1 RDIM+5,2,2 DFC 01840
003274 5601051301 01850 BA1 RDIM+16767,1 DFC 01850
003301 7000142742 01860 CB1 OSV,2 DFC 01860
* 003306 3000332542 01870 JC $+15,34 4 DFC 01870
* 003313 3000004060 01880 ER40 JD 040 4 CH. READ BUFFER ER. DFC 01880
* 003320 3000162200 01890 JC START DFC 01890
003325 5400034000 01900 LP 0340,0 8 CHAR. READ DFC 01900
003332 6400034002 01910 LS 0340,2 DFC 01910
* 003337 1000636500 01920 JR CLEAR DFC 01920
003344 4140611000 01930 R10 XF 061,0100000,0,6 CH.6 DFC 01930
003351 5601025310 01940 BA1 RDIM+7,8,8 DFC 01940
003356 7000142350 01950 CB1 SVO,8 DFC 01950
* 003363 3000340242 01960 JC $+15,34 4 DFC 01960
* 003370 3000040060 01970 ERR04 JD 0400 DFC 01970
* 003375 3000162200 01980 JC START DFC 01980
003402 5601025502 01990 BA1 RDIM+9,2,2 DFC 01990
003407 5601051301 02000 BA1 RDIM+16767,1 DFC 02000
003414 7000142742 02010 CB1 OSV,2 DFC 02010
* 003421 3000344042 02020 JC $+15,34 4 DFC 02020
* 003426 3000004160 02030 ER41 JD 041 DFC 02030
* 003433 3000162200 02040 JC START DFC 02040
003440 5400034000 02050 LP 0340,0 16 CHAR READ DFC 02050
003445 6400034004 02060 LS 0340,04 4 DFC 02060
* 003452 1000636500 02070 JR CLEAR DFC 02070
003457 4140611000 02080 R11 XF 061,0100000,0,6 DFC 02080
003464 5601026300 02090 BA1 RDIM+15,5,16 DFC 02090
003471 7000142340 02100 CB1 SVO,16 DFC 02100
* 003476 3000351542 02110 JC $+15,34 4 DFC 02110
* 003503 3000004260 02120 ER42 JD 042 DATA ERROR DFC 02120
* 003510 3000162200 02130 JC START DFC 02130
003515 5601026502 02140 BA1 RDIM+17,7,2 DFC 02140
003522 5601051301 02150 BA1 RDIM+16767,1 DFC 02150
003527 7000142742 02160 CB1 OSV,2 DFC 02160
* 003534 3000355342 02170 JC $+15,34 4 DFC 02170
* 003541 3000004360 02180 ER43 JD 043 MEM ERROR DFC 02180
* 003546 3000162200 02190 JC START DFC 02190
003553 5400034000 02200 LP 0340,0 32 CHAR READ DFC 02200
003560 6400034010 02210 LS 0340,8 DFC 02210
* 003565 1000636500 02220 JR CLEAR DFC 02220
003572 4140611000 02230 R122 XF 061,0100000,0,6 DFC 02230
003577 5601030300 02240 BA1 RDIM+31,1,16 DFC 02240
003604 7000142340 02250 CB1 SVO,16 DFC 02250
* 003611 3000363042 02260 JC $+15,34 4 DFC 02260
* 003616 3000004460 02270 ER44 JD 044 DFC 02270
* 003623 3000162200 02280 JC START DFC 02280
003630 5601030502 02290 BA1 RDIM+33,3,2 DFC 02290
003635 5601051301 02300 BA1 RDIM+16767,1 DFC 02300
003642 7000142742 02310 CB1 OSV,2 DFC 02310
* 003647 3000366642 02320 JC $+15,34 4 DFC 02320
* 003654 3000004560 02330 ER45 JD 045 DFC 02330
* 003661 3000162200 02340 JC START DFC 02340
003666 5400034000 02350 LP 0340,0 64 DFC 02350
003673 6400034020 02360 LS 0340,02020 DFC 02360
* 003700 1000636500 02370 JR CLEAR DFC 02370
003705 4140611000 02380 R12 XF 061,0100000,0,6 DFC 02380
003712 5601034300 02390 BA1 RDIM+63,3,16 DFC 02390
003717 7000142340 02400 CB1 SVO,16 DFC 02400
* 003724 3000374342 02410 JC $+15,34 4 DFC 02410
* 003731 3000004660 02420 ER46 JD 046 DFC 02420
* 003736 3000162200 02430 JC START DFC 02430
003743 5601034502 02440 BA1 RDIM+65,5,2 DFC 02440
003750 5601051301 02450 BA1 RDIM+16767,1 DFC 02450
003755 7000142742 02460 CB1 OSV,2 DFC 02460
* 003762 3000400142 02470 JC $+15,34 4 DFC 02470
* 003767 3000004760 02480 ER47 JD 047 DFC 02480
* 003774 3000162200 02490 JC START DFC 02490
004001 5400034000 02500 LP 0340,0 128 CHAR READ DFC 02500
004006 6400034040 02510 LS 0340,04040 DFC 02510
* 004013 1000636500 02520 JR CLEAR DFC 02520
004020 4140611000 02530 RE XF 061,0100000,0,6 DFC 02530
004025 5601044300 02540 BA1 RDIM+12727,16 DFC 02540
004032 7000142340 02550 CB1 SVO,16 DFC 02550
* 004037 3000405642 02560 JC $+15,34 4 DFC 02560
* 004044 3000005060 02570 ER50 JD 050 DFC 02570
* 004051 3000162200 02580 JC START DFC 02580
004056 5601044502 02590 BA1 RDIM+12929,2 DFC 02590
004063 5601051301 02600 BA1 RDIM+16767,1 DFC 02600
004070 7000142742 02610 CB1 OSV,2 DFC 02610
* 004075 3000411442 02620 JC $+15,34 4 DFC 02620
* 004102 3000005160 02630 ER51 JD 051 DFC 02630
* 004107 3000162200 02640 JC START DFC 02640
004114 5400034000 02650 LP 0340,0 256 CHAR. DFC 02650
* 004121 1000636500 02660 JR CLEAR DFC 02660
004126 4140611000 02670 READD XF 061,0100000,0,6 DFC 02670
004133 5601064300 02680 BA1 RDIM+25555,16 DFC 02680
004140 7000142340 02690 CB1 SVO,16 DFC 02690
* 004145 3000416442 02700 JC $+15,34 4 DFC 02700
* 004152 3000005260 02710 ER52 JD 052 DFC 02710
* 004157 3000162200 02720 JC START DFC 02720
004164 5601064502 02730 BA1 RDIM+25757,2 DFC 02730
004171 7000142742 02740 CB1 OSV,2 DFC 02740
* 004176 3000421542 02750 JC $+15,34 4 DFC 02750
* 004203 3000005360 02760 ER53 JD 053 DFC 02760
* 004210 3000162200 02770 JC START DFC 02770
* 004215 1000636500 02780 JR CLEAR WRITE CHAR TEST DFC 02780
004222 2000764470 02790 FT WRIM,56 6 DFC 02790
004227 4600143771 02800 BT UTH,57 DFC 02800
004234 6400034120 02810 LS 0341,02020 DFC 02810
004241 4400034000 02820 SC 0340,0 DFC 02820
004246 4140621000 02830 WR XF 062,0100000,0,6 WRITE 1 CHAR DFC 02830
004253 2001024470 02840 FT RDIM,56 6 DFC 02840
004260 6400034120 02850 LS 0341,02020 DFC 02850
004265 4140610000 02860 RR XF 061,0,0,0,6 READ 1 SECTION DFC 02860
004272 3401024470 02870 CC RDIM,07070 DFC 02870
* 004277 3000431642 02880 JC $+15,34 4 DFC 02880
* 004304 3000006060 02890 ER60 JD 060 DIDID NOT CORRECTLY READ CHAR. JUST WRITTEN. DFC 02890 O
* 004311 3000162200 02900 JC START DFC 02900
004316 5601024602 02910 BA1 RDIM+2,2,2 DFC 02910
004323 5601051301 02920 BA1 RDIM+16767,1 DFC 02920
004330 7000144342 02930 CB1 ZERO,2 DFC 02930
* 004335 3000435442 02940 JC $+15,34 4 DFC 02940
* 004342 3000006160 02950 ER61 JD 061 DFC 02950
* 004347 3000162200 02960 JC START DFC 02960
* 004354 1000636500 02970 JR CLEAR WRITE 16 CHAR. DFC 02970
004361 2000764470 02980 FT WRIM,56 6 DFC 02980
004366 6400034004 02990 LS 0340,04 4 DFC 02990
004373 4140621000 03000 WRS XF 062,0100000,0,6 DFC 03000
004400 2001024470 03010 FT RDIM,56 6 DFC 03010
004405 4400034000 03020 SC 0340,0 DFC 03020
004412 6400034120 03030 LS 0341,02020 DFC 03030
004417 4140610000 03040 RR1 XF 061,0,0,0,6 DFC 03040
004424 5601026300 03050 BA1 RDIM+15,5,16 DFC 03050
004431 7000142340 03060 CB1 SVO,16 DFC 03060
* 004436 3000445542 03070 JC $+15,34 4 DFC 03070
* 004443 3000006260 03080 ER62 JD 062 DATATA ERROR ON 16 CHAR. WRITE-READ DFC 03080 R
* 004450 3000162200 03090 JC START DFC 03090
004455 5601026502 03100 BA1 RDIM+17,7,2 DFC 03100
004462 5601051301 03110 BA1 RDIM+16767,1 DFC 03110
004467 7000144342 03120 CB1 ZERO,2 DFC 03120
* 004474 3000451342 03130 JC $+15,34 4 DFC 03130
* 004501 3000006360 03140 ER63 JD 063 CHAHAR. 17 NOT ZERO. DFC 03140 N
* 004506 3000162200 03150 JC START DFC 03150
004513 6000034501 03160 AC 0345,01 1 +1 TO TRACK IN T57 DFC 03160
* 004520 1000636523 03170 JR CLEAR,1919 SET IND 2 DFC 03170 I
* 004525 3000453222 03180 JC $+5,18 DFC 03180
004532 2001024470 03190 FT RDIM,56 6 DFC 03190
004537 4140610000 03200 RR2 XF 061,0,0,0,6 READ,NO POSITION,EXPECT TAG ERROR DFC 03200 D
* 004544 3000455665 03210 JC $+10,53 3 DFC 03210
* 004551 3000457000 03220 JC $+15 DFC 03220
* 004556 3000006460 03230 ER64 JD 064 NO IPT ON TAG ERROR DFC 03230
* 004563 3000162200 03240 JC START DFC 03240
004570 4140000004 03250 XF 0,04,0,6,6 DFC 03250
* 004575 3000461453 03260 JC $+15,43 3 DFC 03260
* 004602 3000006560 03270 ER65 JD 065 TAG ER NOT SET DFC 03270
* 004607 3000162200 03280 JC START DFC 03280
004614 4140400004 03290 XF 32,04,0,0,6 DFC 03290
004621 4140000004 03300 XF 0,04,0,6,6 DFC 03300
* 004626 3000464053 03310 JC $+10,43 3 DFC 03310
* 004633 3000465200 03320 JC $+15 DFC 03320
* 004640 3000066660 03330 ER666 JD 0666 TATAG ERROR DID NOT RESET DFC 03330 R
* 004645 3000162200 03340 JC START RESETTABLE DFC 03340
004652 4400034777 03350 SC 0347,07777 SECTOR 64 DFC 03350
004657 4400034677 03360 SC 0346,07777 HEAD SECTOR DFC 03360
004664 2001024470 03370 FT RDIM,56 6 DFC 03370
004671 6400034140 03380 LS 0341,04040 READ 2 SECTORS DFC 03380
004676 4140650000 03390 RR3 XF 065,0,0,0,6 LOCKOUT,INHIBIT,POSIT. AND READ 2 SECTORS. DFC 03390 K
* 004703 3000471565 03400 JC $+10,53 3 DFC 03400
* 004710 3000472722 03410 JC $+15,18 8 DFC 03410
* 004715 3000007060 03420 ER70 JD 070 NO ERROR IPT DFC 03420
* 004722 3000162200 03430 JC START OVERFLOW DFC 03430
004727 4140000020 03440 XF 0,020,0,0,6 DFC 03440
* 004734 3000475353 03450 JC $+15,43 3 DFC 03450
* 004741 3000007160 03460 ER71 JD 071 DFC 03460
* 004746 3000162200 03470 JC START DFC 03470
004753 4140400020 03480 XF 32,020,0,0,6 RESET HEAD CNT. OVF. DFC 03480 S
004760 4140000020 03490 XF 0,020,0,0,6 DFC 03490
* 004765 3000477753 03500 JC $+10,43 3 DFC 03500
* 004772 3000501100 03510 JC $+15 DFC 03510
* 004777 3000007260 03520 ER72 JD 072 DFC 03520
* 005004 3000162200 03530 JC START DFC 03530
005011 4400034477 03540 SC 0344,63 3 ADD ILLEGAL UNIT DFC 03540
005016 4140650000 03550 RLEG XF 065,0,0,0,6 DFC 03550
* 005023 3000503565 03560 JC $+10,53 3 DFC 03560
* 005030 3000504722 03570 JC $+15,18 8 DFC 03570
* 005035 3000007360 03580 ER73 JD 073 NON READY DID NOT IPT DFC 03580
* 005042 3000162200 03590 JC START DFC 03590
005047 4140001000 03600 XF 0,01000,0,0,6 TEST NON READY DFC 03600 E
* 005054 3000507353 03610 JC $+15,43 3 DFC 03610
* 005061 3000007460 03620 ER74 JD 074 DFC 03620
* 005066 3000162200 03630 JC START DFC 03630
005073 4140401000 03640 XF 32,0100000,0,6 DFC 03640
005100 4140001000 03650 XF 0,01000,0,0,6 DFC 03650
* 005105 3000511753 03660 JC $+10,43 3 DFC 03660
* 005112 3000513122 03670 JC $+15,18 8 DFC 03670
* 005117 3000007560 03680 ER75 JD 075 DFC 03680
* 005124 3000162200 03690 JC START DFC 03690
* 005131 3000513626 03700 JC $+5,22 03700
005136 2000764470 03710 FT WRIM,56 6 SET UP TO WRITE 255 CHAR. DFC 03710 P
005143 4600143771 03720 BT UTH,57 DFC 03720
005150 6400034160 03730 LS 0341,06060 DFC 03730
005155 4400034077 03740 SC 0340,07777 DFC 03740
* 005162 1000636526 03750 JR CLEAR,2222 DFC 03750
005167 4140661000 03760 W256 XF 066,0100000,0,6 DFC 03760
005174 2001024470 03770 FT RDIM,56 6 DFC 03770
005201 4400034000 03780 SC 0340,0 DFC 03780
005206 6400034140 03790 LS 0341,04040 DFC 03790
005213 4140610000 03800 R2SE XF 061,0,0,0,6 DFC 03800
005220 5601024704 03810 BA1 RDIM+3,4,4 DFC 03810
005225 5601051503 03820 BA1 RDIM+16969,3 DFC 03820
005232 5601064201 03830 BA1 RDIM+25454,1 DFC 03830
005237 7000142344 03840 CB1 SVO,4 DFC 03840
* 005244 3000526342 03850 JC $+15,34 4 DFC 03850
* 005251 3000010060 03860 ER100 JD 0100 WRITE 255 CHAR OR DFC 03860
* 005256 3000162200 03870 JC START READ 2 SECTORS INCORR. DFC 03870
005263 3401064300 03880 CC RDIM+25555,0 DFC 03880
* 005270 3000530742 03890 JC $+15,34 4 DFC 03890
* 005275 3000010160 03900 ER101 JD 0101 CHCHAR 256 NOT ZERO DFC 03900
* 005302 3000162200 03910 JC START DFC 03910
005307 2000764470 03920 FT WRIM,56 6 WRITE 2 CHAR DFC 03920
005314 4600143771 03930 BT UTH,57 DFC 03930
* 005321 1000636500 03940 JR CLEAR DFC 03940
005326 6400034140 03950 LS 0341,04040 DFC 03950
005333 4400034000 03960 SC 0340,0 DFC 03960
005340 4140661000 03970 W2CH XF 066,0100000,0,6 DFC 03970
005345 6400034120 03980 LS 0341,02020 WRITE 3 CHAR DFC 03980
005352 6000034701 03990 AC 0347,01 1 DFC 03990
* 005357 3000536422 04000 JC $+5,18 DFC 04000
005364 4140021000 04010 W3CH XF 02,0100000,0,6 DFC 04010
* 005371 3000537165 04020 JC $,53 DFC 04020
005376 2001024470 04030 FT RDIM,56 6 READ 3 CHAR DFC 04030
005403 6400034160 04040 LS 0341,06060 DFC 04040
005410 4140611000 04050 R3CH XF 061,0100000,0,6 DFC 04050
005415 5601024603 04060 BA1 RDIM+2,3,3 DFC 04060
005422 7000142343 04070 CB1 SVO,3 DFC 04070
* 005427 3000544642 04080 JC $+15,34 4 DFC 04080
* 005434 3000012060 04090 ER120 JD 0120 DFC 04090
* 005441 3000162200 04100 JC START DFC 04100
005446 5601025002 04110 BA1 RDIM+4,2,2 DFC 04110
005453 5601051301 04120 BA1 RDIM+16767,1 DFC 04120
005460 7000142742 04130 CB1 OSV,2 DFC 04130
* 005465 1000636500 04140 JR CLEAR DFC 04140
* 005472 3000551142 04150 JC $+15,34 4 DFC 04150
* 005477 3000012160 04160 ER121 JD 0121 DFC 04160
* 005504 3000162200 04170 JC START DFC 04170
005511 5400034147 04180 LP 0341,04747 DFC 04180
005516 4600143771 04190 BT UTH,57 DFC 04190
005523 4140610000 04200 R2SEC XF 061,0,0,0,6 DFC 04200
005530 5601024502 04210 BA1 RDIM+1,2,2 DFC 04210
005535 7000142342 04220 CB1 SVO,2 DFC 04220
* 005542 3000556142 04230 JC $+15,34 4 DFC 04230
* 005547 3000012260 04240 ER122 JD 0122 2 CH WRITE OR 2 SECTOR DFC 04240
* 005554 3000162200 04250 JC START READ ERROR DFC 04250
005561 5601024702 04260 BA1 RDIM+3,2,2 DFC 04260
005566 5601051301 04270 BA1 RDIM+16767,1 DFC 04270
005573 7000144342 04280 CB1 ZERO,2 DFC 04280
* 005600 3000561742 04290 JC $+15,34 4 NON DFC 04290
* 005605 3000012360 04300 ER123 JD 0123 ZERO ON 2 CH WRITE DFC 04300
* 005612 3000162200 04310 JC START DFC 04310
005617 5601052002 04320 BA1 RDIM+17272,2 DFC 04320
005624 5601064301 04330 BA1 RDIM+25555,1 DFC 04330
005631 7000144342 04340 CB1 ZERO,2 DFC 04340
* 005636 3000565542 04350 JC $+15,34 4 ZERO FILL ER ON DFC 04350
* 005643 3000012460 04360 ER124 JD 0124 3 CHAR WRITE DFC 04360
* 005650 3000162200 04370 JC START DFC 04370
005655 4400034100 04380 SC 0341,0 DFC 04380
005662 2000764470 04390 FT WRIM,56 6 DFC 04390
005667 4600143771 04400 BT UTH,57 DFC 04400
005674 6000034601 04410 AC 0346,1 DFC 04410
005701 6400034120 04420 LS 0341,02020 DFC 04420
005706 4140660000 04430 WH1 XF 066,0,0,0,6 WRITE 1 SECTOR ON HEAD 1,SECTOR ZERO DFC 04430 T
005713 5400034117 04440 LP 0341,01717 ERASE LOW ORDER COUNT BITS DFC 04440 E
005720 2001024470 04450 FT RDIM,56 6 DFC 04450
005725 4600143771 04460 BT UTH,57 DFC 04460
005732 6400034140 04470 LS 0341,04040 SET COUNT TO 1 DFC 04470 C
005737 4400034777 04480 SC 0347,63 3 SET 77 TO SECTOR ADDRESS DFC 04480 7
* 005744 1000636522 04490 JR CLEAR,1818 DFC 04490
005751 4140050000 04500 RS77 XF 05,0,0,6,6 POSIT. AND READ SECTOR 64 OF UTHS DFC 04500 T
* 005756 3000575665 04510 JC $,53 DFC 04510
005763 5601024704 04520 BA1 RDIM+3,4,4 DFC 04520
005770 5601051503 04530 BA1 RDIM+16969,3 DFC 04530
005775 5601064301 04540 BA1 RDIM+25555,1 DFC 04540
006002 7000142344 04550 CB1 SVO,4 DFC 04550
* 006007 3000602642 04560 JC $+15,34 4 DFC 04560
* 006014 3000012560 04570 ER125 JD 0125 HEHEAD 0, SECT. 77 GOT CHANGED DFC 04570 S
* 006021 3000162200 04580 JC START DFC 04580
006026 2001024470 04590 FT RDIM,56 6 DFC 04590
006033 4400034000 04600 SC 0340,0 DFC 04600
006040 6400034120 04610 LS 0341,02020 DFC 04610
* 006045 1000636500 04620 JR CLEAR DFC 04620
006052 4140660000 04630 XF 066,0,0,0,6 WRT DFC 04630
006057 4140630000 04640 XF 063,0,0,0,6 RD RECV DFC 04640
006064 3401051414 04650 CC RDIM+16868,014 DFC 04650
* 006071 3000632443 04660 JU ER126 DFC 04660
006076 3401051563 04670 CC RDIM+16969,063 DFC 04670
* 006103 3000633643 04680 JU ER127 DFC 04680
006110 6000034352 04690 AC 0343,05252 DFC 04690
006115 6000034202 04700 AC 0342,02 2 DFC 04700
006122 5400034107 04710 LP 0341,07 7 DFC 04710
006127 7400035370 04720 CT 0353,56 6 DFC 04720
* 006134 3000635043 04730 JU ER131 DFC 04730
* 006141 1000636522 04740 JR CLEAR,1818 CLEAR RDIM TO 07 DFC 04740
006146 4401024470 04750 SC RDIM,07070 CHANGE FIRST CH. TO WRITE DFC 04750
006153 2001024470 04760 FT RDIM,56 6 LONG OF 00 DFC 04760
006160 6400034120 04770 LS 0341,02020 DFC 04770
006165 4140620000 04780 XF 062,0,0,0,6 WRITE 1 SECTOR DFC 04780
006172 4401024400 04790 SC RDIM,0 CLEAR RDIM DFC 04790
006177 4140030000 04800 XF 03,0,0,6,6 DFC 04800
* 006204 3000620465 04810 JC $,53 LOOP TILL IPT DFC 04810
006211 3401024470 04820 CC RDIM,07070 DFC 04820
* 006216 3000623542 04830 JC $+15,34 4 DFC 04830
* 006223 3000013260 04840 ER132 JD 0132 DATA ERROR ON DFC 04840
* 006230 3000162200 04850 JC START READ RECOVERY DFC 04850
006235 3401051414 04860 CC RDIM+16868,014 DFC 04860
* 006242 3000626142 04870 JC $+15,34 4 DFC 04870
* 006247 3000013360 04880 ER133 JD 0133 SENTINEL ERROR DFC 04880
* 006254 3000162200 04890 JC START DFC 04890
006261 3401051514 04900 CC RDIM+16969,014 DFC 04900
* 006266 3000630542 04910 JC $+15,34 4 DFC 04910
* 006273 3000013460 04920 ER134 JD 0134 LONG. PARIT CHAK ER DFC 04920
* 006300 3000162200 04930 JC START SHOULD BE 00 DFC 04930
* 006305 3000162262 04940 JC START,5050 DFC 04940
* 006312 3000077760 04950 JD 0777 DFC 04950
* 006317 3000733600 049601 J UNOTN 049601
* 006324 3000012660 04970 ER126 JD 0126 PHASE 1 DFC 04970
* 006331 3000162200 04980 JC START DFC 04980
* 006336 3000012760 04990 ER127 JD 0127 LONG. PARITY DFC 04990
* 006343 3000162200 05000 JC START DFC 05000
* 006350 3000013160 05010 ER131 JD 0131 T 58 DFC 05010
* 006355 3000162200 05020 JC START NOT INCR. DFC 05020
* 006362 3000000000 05030 CLEAR JC 0 DFC 05030
006367 4401024407 05040 SC RDIM,07 7 CLEAR READ AREA DFC 05040
006374 2000040422 05050 FT 260,18 DFC 05050
006401 2001024520 05060 FT RDIM+1,1,16 DFC 05060
006406 2401024401 05070 TFR RDIM DFC 05070
* 006413 3000636200 05080 JC CLEAR DFC 05080
* 006420 3000000000 05090 COMP JC 0 DFC 05090
006425 5601024502 05100 BA1 RDIM+1,2,2 DFC 05100
006432 5601051301 05110 BA1 RDIM+16767,1 DFC 05110
006437 7000142342 05120 CB1 SVO,2 DFC 05120
* 006444 3000642042 05130 JC COMP,34 4 DFC 05130
* 006451 3000000560 05140 ER5 JD 05 DFC 05140
* 006456 3000162200 05150 JC START DFC 05150
* 006463 3000647000 05160 IPT0 J RST0 DFC 05160
006470 4000001000 05170 RST0 XF 0,01000,0,0,0 DFC 05170
* 006475 3000040053 05180 JC 0400,43 3 DFC 05180
006502 4000407777 05190 XF 040,0777777,0,0 DFC 05190
006507 5600764303 05200 BA1 FIVE,3 DFC 05200
006514 7200040343 05210 SB1 0403,3 DFC 05210
* 006521 3000040000 05220 J 0400 DFC 05220
006526 5600733514 05230 IPT6 BA1 H33,12 DFC 05230
006533 5200752314 05240 SA1 I6+19,1212 DFC 05240
006540 4140000001 05250 XF 00,0000101,0,6 DFC 05250
* 006545 1000704153 05260 JR D1,43 DFC 05260
006552 4140000002 05270 XF 00,0000202,0,6 DFC 05270
* 006557 1000706053 05280 JR D2,43 DFC 05280
006564 4140000004 05290 XF 00,0000404,0,6 DFC 05290
* 006571 1000707753 05300 JR D3,43 DFC 05300
006576 4140000010 05310 XF 00,0001010,0,6 DFC 05310
* 006603 1000711653 05320 JR D4,43 DFC 05320
006610 4140000020 05330 XF 00,0002020,0,6 DFC 05330
* 006615 1000713553 05340 JR D5,43 DFC 05340
006622 4140000040 05350 XF 00,0004040,0,6 DFC 05350
* 006627 1000715453 05360 JR D6,43 DFC 05360
006634 4140000100 05370 XF 00,0010000,0,6 DFC 05370
* 006641 1000717353 05380 JR D7,43 DFC 05380
006646 4140000200 05390 XF 00,0020000,0,6 DFC 05390
* 006653 1000721253 05400 JR D8,43 DFC 05400
006660 4140000400 05410 XF 00,0040000,0,6 DFC 05410
* 006665 1000723153 05420 JR D9,43 DFC 05420
006672 4140001000 05430 XF 00,0100000,0,6 DFC 05430
* 006677 1000725053 05440 JR D10,43 DFC 05440
006704 4140002000 05450 XF 00,0200000,0,6 DFC 05450
* 006711 1000726753 05460 JR D11,43 DFC 05460
006716 4140004000 05470 XF 00,0400000,0,6 DFC 05470
* 006723 1000730653 05480 JR D12,43 DFC 05480
006730 2000750040 05490 FT I6,32 DFC 05490
006735 4400020702 05500 SC 0207,2 DFC 05500
* 006742 3000703166 05510 JC OUT,54 IGNORE IPT ON IND2 DFC 05510 G
006747 4140007777 05520 XF 0,07777,7,0,6 05520
* 006754 3000676653 05530 JC $+10,43 3 05530
* 006761 3000703100 05540 J OUT 05540
006766 4000620400 05550 XF 062,0040400,0,0 DFC 05550
006773 4140407777 05560 RSI XF 040,0777777,0,6 463 05560
* 007000 3000701764 05570 JC CY,52 DFC 05570
* 007005 3000006660 05580 ER66 JD 066 DFC 05580
* 007012 3000162231 05590 JC START,03031 05590
007017 5600764303 05600 CY BA1 FIVE,3 DFC 05600
007024 7200046343 05610 SB1 0463,3 DFC 05610
* 007031 3000046025 05620 OUT JC 0460,21 1 DFC 05620
* 007036 3000000000 05630 D1 J 0 DFC 05630
007043 4400751004 05640 SC I6+8,04 4 DFC 05640
* 007050 3000703600 05650 J D1 DFC 05650
* 007055 3000000000 05660 D2 J 0 DFC 05660
007062 4400751104 05670 SC I6+9,04 4 DFC 05670
* 007067 3000705500 05680 J D2 DFC 05680
* 007074 3000000000 05690 D3 J 0 DFC 05690
007101 4400751204 05700 SC I6+10,0404 DFC 05700
* 007106 3000707400 05710 J D3 DFC 05710
* 007113 3000000000 05720 D4 J 0 DFC 05720
007120 4400751304 05730 SC I6+11,0404 DFC 05730
* 007125 3000711300 05740 J D4 DFC 05740
* 007132 3000000000 05750 D5 J 0 DFC 05750
007137 4400751404 05760 SC I6+12,0404 DFC 05760
* 007144 3000713200 05770 J D5 DFC 05770
* 007151 3000000000 05780 D6 J 0 DFC 05780
007156 4400751504 05790 SC I6+13,0404 DFC 05790
* 007163 3000715100 05800 J D6 DFC 05800
* 007170 3000000000 05810 D7 J 0 DFC 05810
007175 4400751604 05820 SC I6+14,0404 DFC 05820
* 007202 3000717000 05830 J D7 DFC 05830
* 007207 3000000000 05840 D8 J 0 DFC 05840
007214 4400751704 05850 SC I6+15,0404 DFC 05850
* 007221 3000720700 05860 J D8 DFC 05860
* 007226 3000000000 05870 D9 J 0 DFC 05870
007233 4400752004 05880 SC I6+16,0404 DFC 05880
* 007240 3000722600 05890 J D9 DFC 05890
* 007245 3000000000 05900 D10 J 0 DFC 05900
007252 4400752104 05910 SC I6+17,0404 DFC 05910
* 007257 3000724500 05920 J D10 DFC 05920
* 007264 3000000000 05930 D11 J 0 DFC 05930
007271 4400752204 05940 SC I6+18,0404 DFC 05940
* 007276 3000726400 05950 J D11 DFC 05950
* 007303 3000000000 05960 D12 J 0 DFC 05960
007310 4400752304 05970 SC I6+19,0404 DFC 05970
* 007315 3000730300 05980 J D12 DFC 05980
007331 0303030303030303 05990 +8 0030303030303030303 DFC 05990 3
007335 03030303 06000 H33 +4 00303030303 DFC 06000
007336 5600740301 UNOTN BA1 UTH0N-1,1,1
007343 7000740441 CB1 UTH0N,1 1
* 007350 3000736243 JU INCU
* 007355 3000154500 J STRT REINITIALIZE I
007362 6000001704 INCU AC 017,4
007367 5200740301 SA1 UTH0N-1,1,1
* 007374 3000161000 J RETN
007401 00 UNITL +1 00
007402 00 UNITU +1 00
007404 0000 UTH0N +2 00
007500 06010 ORIG $,64 06010
007500 00 06020 I6 +1 0 DFC 06020
007507 IPT6 06030 +7 _ IPT6 6 _ DFC 06030
007510 70 06040 AREA 56,B,0 DFC 06040
007600 00 06050 KY +1 0 DFC 06050
* 007601 3000760160 06060 IPT1 JD IPT1 DFC 06060
007610 007601 06070 +3 IPT1 DFC 06070
* 007611 3000000260 06080 I2 JD 2 DFC 06080
007620 007611 06090 IE2 +3 I2 DFC 06090
* 007621 3000000031 06100 JC 0,25 DFC 06100
007630 006463 06110 IE0 +3 IPT0 DFC 06110
* 007631 3000000031 06120 JC 0,25 DFC 06120
007640 006526 06130 IE6 +3 IPT6 DFC 06130
007643 000005 06140 FIVE +3 0000005 5 DFC 06140
007644 400 06150 WRIM AREA 256,B,07070 DFC 06150
010244 400 06160 RDIM AREA 256 DFC 06160
3000154500 06170 END STRT DFC 06170
{-- tape mark --}
014515 C111 PACE CODEDIT SOURCE - 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
004764 E E 02520 +4 _E E _ PCE 02520
005004 E E E E E E E E 02530 +16 _E E E E E E E E E _ PCE 02530
005010 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
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
3000140000 02690 END CHOSE PCE 02690
{-- tape mark --}
015195 C121 SDFX CODEDIT SOURCE - T3834394-12
001000 00010 T120 BEGIN 01000 SDFX 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001000 3007010660 * JD 070106 *
* 001005 3000100000 * J $-5 *
SEGMENT-ID T121 3000100000 * 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 $ *
001000 000101 ORIG 01000 000101
001007 0030602400653467 00020 +8 0003060202400653467 XTT1 CU TO 1050 SADFOX00020 4
001017 0127544450312645 00030 +8 0012754444450312645 SADFOX00030 6
001027 6674467133735253 00040 +8 0667446767133735253 SADFOX00040 2
001037 5125321747727000 00050 +8 0512532121747727000 SADFOX00050 0
001047 1506000200001312 00060 +8 0150600000200001312 SADFOX00060 3
001057 0042070062432161 00070 +8 0004207070062432161 SADFOX00070 1
001067 1037750500110304 00080 +8 0103775050500110304 SADFOX00080 3
001077 1423630022641600 00090 +8 0142363030022641600 SADFOX00090 6
001107 0410436667634152 00100 +8 0041043636667634152 XTT2 1050 TO CU SADFOX00100 1
001117 6065474670407633 00110 +8 0606547474670407633 SADFOX00110 6
001127 0056747103311611 00120 +8 0005674747103311611 SADFOX00120 6
001137 0115322406000061 00130 +8 0011532222406000061 SADFOX00130 0
001147 0000515513172234 00140 +8 0000051515513172234 SADFOX00140 2
001157 1430262712000000 00150 +8 0143026262712000000 SADFOX00150 0
001167 0257547275052007 00160 +8 0025754747275052007 SADFOX00160 0
001177 3623352521620000 00170 +8 0362335252521620000 SADFOX00170 0
001207 4024252627303132 00180 +8 0402425252627303132 XTT3 KSR TO 1050 SADFOX00180 1
001217 3334444546475051 00190 +8 0333444444546475051 SADFOX00190 0
001227 5253546566677071 00200 +8 0525354646566677071 SADFOX00200 0
001237 7273741715012357 00210 +8 0727374141715012357 SADFOX00210 3
001247 0043603742556356 00220 +8 0004360303742556356 SADFOX00220 3
001257 6175412062022264 00230 +8 0617541212062022264 SADFOX00230 2
001267 0304050607101112 00240 +8 0030405050607101112 SADFOX00240 1
001277 1314211636357677 00250 +8 0131421111636357677 SADFOX00250 6
001307 4035556061626364 00260 +8 0403555656061626364 XTT4 1050 TO KSR SADFOX00260 3
001317 6566677071347333 00270 +8 0656667777071347333 SADFOX00270 3
001327 5372563601020304 00280 +8 0537256363601020304 SADFOX00280 3
001337 0506071011757443 00290 +8 0050607171011757443 SADFOX00290 4
001347 0052444112131415 00300 +8 0005244444112131415 SADFOX00300 4
001357 1617202122454737 00310 +8 0161720202122454737 SADFOX00310 7
001367 4250544657232425 00320 +8 0425054444657232425 SADFOX00320 4
001377 2627303132517677 00330 +8 0262730303132517677 SADFOX00330 6
001400 200 00340 PBASE AREA 128 SADFOX00340
020000 00350 ORIG 020000 SADFOX00350
* 020000 3002000000 00360 XLK J $ SADFOX00360
020005 5600005734 00370 BA2 47,12 SADFOX00370
020012 5202365734 00380 SA2 XIR1,12 2 SADFOX00380
020017 2600005713 00390 PD 47,11 SADFOX00390
020024 5600001321 00400 BA2 11,1 UNIT NO SADFOX00400
020031 5200004721 00410 SA2 39,1 N SADFOX00410
020036 5200005321 00420 SA2 43,1 SADFOX00420
020043 1600005312 00430 BS1 43,2 4N SADFOX00430
020050 5200005621 00440 SA2 46,1 64N SADFOX00440
020055 1600005611 00450 BS1 46,1 128N SADFOX00450
020062 4420026401 00460 SC XBSY,1,1,1 SADFOX00460
020067 4420013040 00470 SC XPCW,32,2,1 SET PCW POLL BIT SADFOX00470
020074 1400001540 00480 LC 13,040 OUTPUT OR POLL REQUEST SADFOX00480
* 020101 3002036042 00490 JE XREST SADFOX00490
020106 5600001421 00500 BA2 12,1 MESSAGE LENGTH SADFOX00500
020113 5202033321 00510 SA2 XTRAN+4,4,1 CHAR COUNT SADFOX00510
020120 5200011321 00520 SA2 0113,1 SADFOX00520
020125 2600011201 00530 PD 0112,1 SADFOX00530
020132 6000003777 00540 AC 037,077 7 MSG LG MINUS 1 SADFOX00540
020137 5202033221 00550 SA2 XTRAN+3,3,1 LSD ADDRESS OF OUTPUT SADFOX00550
020144 6000003703 00560 AC 037,3 MSG LG PLUS 2 SADFOX00560
020151 5202026221 00570 SA2 XLK1+3,1,1 LSD OF END OF MSG SADFOX00570
020156 4400011011 00580 SC 0110,XTTTT2 SADFOX00580
020163 5602423523 00590 BA2 XEOM2,3 3 EOM FOR CR SADFOX00590
020170 1400001520 00600 LC 015,020 0 FORM FEED OR LINE FEED SADFOX00600
* 020175 3002020700 00610 J $+10 TEMPORARY SADFOX00610
020202 4400003640 00620 SC 036,040 0 FORM FEED SADFOX00620
020207 3400004712 00630 CC 39,XUN1 1 SADFOX00630
* 020214 3002037744 00640 JS XLK2 CR SADFOX00640
020221 4400011013 00650 SC 0110,XTTTT4 KSR TRANSLATE TABLE SADFOX00650
020226 5600001521 00660 BA2 015,1 PAPER FEED KEY SADFOX00660
020233 4642410354 00670 BT XICLT,4444,2 SADFOX00670
020240 4060220000 00680 XF 022,0,0,0,3 SADFOX00680
020245 5222403721 00690 SA2 XFEED,1,1,1 SADFOX00690
020252 5602423423 00700 BA2 XEOM1+2,2,3 EOT SADFOX00700
020257 5261400023 00710 XLK1 SA2 XOBF+0,3,3,3 SADFOX00710
020264 5600001221 00720 BA2 10,1 IRRN SADFOX00720
020271 5222406521 00730 SA2 XIRRL,1,1,1 STORE IRRN SADFOX00730
020276 5261407721 00740 SA2 XOBF+63,3,1,3 SADFOX00740
020303 2061400020 00750 FT XOBF,16,6,3 SADFOX00750
020310 5202032503 00760 SA1 $+13,3 SADFOX00760
020315 5402032317 00770 LP $+6,017 7 SADFOX00770
020322 2400000021 00780 TFI 0 MSG TO OBF SADFOX00780
020327 1261400000 00790 XTRAN TR XOBF+0,0,0,3 TRANSLATE OUTPUT SADFOX00790
020334 4422375001 00800 SC XTI,1,1 1 SET TIME INCREMENT SADFOX00800
020341 4422405201 00810 SC XSW1,1,1,1 SET IRRN REPEAT SWITCH SADFOX00810
* 020346 1002044500 00820 JR XSEND SEND IRRN SADFOX00820
020353 4420013020 00830 SC XPCW,16,6,1 SET OUTPUT SEQUENCE SADFOX00830
020360 5602365733 00840 XREST BA2 XIR1,11 1 SADFOX00840
020365 5200005733 00850 SA2 47,11 SADFOX00850
* 020372 3002000000 00860 J XLK SADFOX00860
020377 3400001236 00870 XLK2 CC 10,036 CHECK FOR PRINTER ONLY SADFOX00870
* 020404 3002025742 00880 JE XLK1 SADFOX00880
020411 2661407700 00890 PD XOBF+63,3,16,3 SADFOX00890
020416 2661405700 00900 PD XOBF+47,7,16,3 SADFOX00900
020423 2661403700 00910 PD XOBF+31,1,16,3 SADFOX00910
020430 2661401700 00920 PD XOBF+15,5,16,3 SADFOX00920
* 020435 3002025700 00930 J XLK1 SADFOX00930
* 020442 3002044200 00940 XSEND J $ SADFOX00940
020447 4441370177 00950 SC XOBA,63,3,2 SADFOX00950
020454 4441370377 00960 SC XIBA,63,3,2 SADFOX00960
020461 4441370001 00970 SC XOBC,1,2,2 SET OUTPUT EOT BIT SADFOX00970
* 020466 1002050300 00980 JR XSND SADFOX00980
* 020473 3002044200 00990 J XSEND SADFOX00990
* 020500 3002050000 01000 XSND J $ SADFOX01000
020505 6441370012 01010 LS XOBC,01212,2 SET OUTPUT PF BITS SADFOX01010
020512 6441370212 01020 LS XIBC,01212,2 SET INPUT PF BITS SADFOX01020
020517 3400004712 01030 CC 39,XUN1 1 SADFOX01030
* 020524 3002054344 01040 JS $+15 CR SADFOX01040
020531 5441370065 01050 LP XOBC,06565,2 KSR, RESET OUTPUT PF BITS SADFOX01050
020536 5441370265 01060 LP XIBC,06565,2 RESET INPUT PF BITS SADFOX01060
020543 4642410154 01070 BT XMIT,44,4,2 SADFOX01070
020550 4060220000 01080 XF 022,0,0,0,3 SADFOX01080
* 020555 3002050000 01090 J XSND SADFOX01090
* 020562 3002364351 01100 XCAIE JC XLI,41 CA INTERRUPT ENTRY SADFOX01100
020567 5202371300 01110 SA1 XAR1,16 6 SADFOX01110
020574 5202373320 01120 SA2 XAR2,16 6 SADFOX01120
020601 5600005734 01130 BA2 47,12 SADFOX01130
020606 5202367334 01140 SA2 XIR2,12 2 SADFOX01140
020613 4202373720 01150 ST XT16,16 6 SADFOX01150
020620 4202374322 01160 ST XT18,18 8 SADFOX01160
020625 4202374754 01170 ST XT44,44 4 SADFOX01170
020632 4060004000 01180 XF 0,04000,0,0,3 TEST CA NON-READY SADFOX01180
* 020637 3002363153 01190 JC XCANR,4343 SADFOX01190
020644 2600005713 01200 XIS PD 47,11 INPUT SCAN SADFOX01200
020651 4402073213 01210 SC XNIS+4,X,XLP SADFOX01210
* 020656 3002070200 01220 J $+20 SADFOX01220
020663 6000004701 01230 AC 39,1 N SADFOX01230
020670 6000005304 01240 AC 43,4 SADFOX01240
020675 6000005602 01250 AC 46,2 128N SADFOX01250
020702 1441370204 01260 LC XIBC,4,2,2 CHECK E BIT SADFOX01260
* 020707 3002313642 01270 JE XISE SADFOX01270
020714 1441370220 01280 LC XIBC,16,6,2 CHECK I BIT SADFOX01280
* 020721 3002147642 01290 JE XIN SADFOX01290
* 020726 3202066305 01300 XNIS JL XIS+15,5,5 NEXT IS SADFOX01300
020733 2600005713 01310 XOS PD 47,11 OUTPUT SCAN SADFOX01310
020740 4402102113 01320 SC XNOS+4,X,XLP SADFOX01320
* 020745 3002077100 01330 J $+20 SADFOX01330
020752 6000004701 01340 AC 39,1 N SADFOX01340
020757 6000005304 01350 AC 43,4 4N SADFOX01350
020764 6000005602 01360 AC 46,2 128N SADFOX01360
020771 1441370004 01370 LC XOBC,4,2,2 SADFOX01370
* 020776 3002344642 01380 JE XOSE SADFOX01380
021003 1441370020 01390 LC XOBC,16,6,2 SADFOX01390
* 021010 3002215742 01400 JE XOUT SADFOX01400
* 021015 3202075205 01410 XNOS JL XOS+15,5,5 NEXT OS SADFOX01410
021022 4060002000 01420 XF 0,02000,0,0,3 TEST 1 SECOND DELAY FLOP SADFOX01420
* 021027 3002111153 01430 JC XRDF,43 3 SADFOX01430
* 021034 3002364352 01440 XRST JC XLI,42 RESTORE SADFOX01440
021041 5602367313 01450 BA1 XIR2,11 1 SADFOX01450
021046 5200005713 01460 SA1 47,11 SADFOX01460
021053 5602371300 01470 BA1 XAR1,16 6 SADFOX01470
021060 5602373320 01480 BA2 XAR2,16 6 SADFOX01480
021065 4602373720 01490 BT XT16,16 6 SADFOX01490
021072 4602374322 01500 BT XT18,18 8 SADFOX01500
021077 4602374754 01510 BT XT44,44 4 SADFOX01510
* 021104 3000043000 01520 J 0430 SADFOX01520
021111 4060402000 01530 XRDF XF 040,0200000,0,3 RESET DF SADFOX01530
021116 2600005713 01540 XCPL PD 47,11 CHECK POLL LIST SADFOX01540
021123 4402133113 01550 SC XNPL+4,X,XLP SADFOX01550
* 021130 3002115400 01560 J $+20 SADFOX01560
021135 6000004701 01570 AC 39,1 N SADFOX01570
021142 6000005304 01580 AC 43,4 4N SADFOX01580
021147 6000005602 01590 AC 46,2 128N SADFOX01590
021154 1420013040 01600 LC XPCW,32,2,1 SADFOX01600
* 021161 3002133742 01610 JE XPOLL SADFOX01610
021166 3442376601 01620 CC XEC,1,2 2 ERROR CLOCK OVER 2 SEC SADFOX01620
* 021173 3002326344 01630 JS XISE2 SADFOX01630
021200 5642376501 01640 BA1 XEC-1,1,1,2 ERROR CLOCK INCREMENT SADFOX01640
021205 7242376601 01650 AB1 XEC,1,2 2 SADFOX01650
021212 3442376305 01660 CC XTC-1,XTXTL,2 CHECK TIME LIMIT SADFOX01660
* 021217 3002360044 01670 JS XTLE SADFOX01670
021224 2600001601 01680 PD 14,1 SADFOX01680
021231 5622375001 01690 BA1 XTI,1,1 1 SADFOX01690
021236 7242376402 01700 AB1 XTC,2,2 2 SADFOX01700
021243 3420013020 01710 CC XPCW,16,6,1 OUTPUT SEQUENCE SADFOX01710
* 021250 3002126742 01720 JE $+15 SADFOX01720
021255 3420013030 01730 CC XPCW,24,4,1 SADFOX01730
* 021262 3002132543 01740 JU XNPL NO SADFOX01740
021267 3422405201 01750 CC XSW1,1,1,1 YES, IS IRRN SWITCH SET SADFOX01750
* 021274 3002132042 01760 JE $+20 YES, SKIP IRRN SADFOX01760
021301 5622406521 01770 BA2 XIRRL,1,1,1 SADFOX01770
021306 5261407721 01780 SA2 XOBF+63,3,1,3 SADFOX01780
* 021313 1002044500 01790 JR XSEND SEND IRRN SADFOX01790
021320 2622405201 01800 PD XSW1,1,1,1 RESET IRRN REPEAT SWITCH SADFOX01800
* 021325 3202113504 01810 XNPL JL XCPL+15,5,4 NEXT POLL LIST CHECK SADFOX01810
* 021332 3002103400 01820 J XRST SADFOX01820
021337 3420014301 01830 XPOLL CC XPL,1,1 1 SADFOX01830
* 021344 3002140243 01840 JU XSTPL SADFOX01840
021351 4461407747 01850 SC XOBF+63,3,XWRU,3 SADFOX01850
021356 4642410354 01860 BT XICLT,4444,2 SADFOX01860
021363 4060220000 01870 XF 022,0,0,0,3 SADFOX01870
* 021370 1002044500 01880 JR XSEND SEND WRU SADFOX01880
* 021375 3002132500 01890 J XNPL SADFOX01890
021402 2620013001 01900 XSTPL PD XPCW,1,1,1 STOP POLL SADFOX01900
* 021407 1002143100 01910 JR XEND SADFOX01910
* 021414 1000551300 01920 JR RMINT SADFOX01920
* 021421 3002132500 01930 J XNPL SADFOX01930
* 021426 3002142600 01940 XEND J $ SADFOX01940
021433 2622433601 01950 PD XIRC,1,1,1 SADFOX01950
021440 2622434001 01960 PD XORC,1,1,1 CLEAR REPEAT COUNTER SADFOX01960
021445 2622375001 01970 PD XTI,1,1 1 SADFOX01970
021452 2642376402 01980 PD XTC,2,2 2 SADFOX01980
021457 2642376602 01990 PD XEC,2,2 2 SADFOX01990
021464 2620026401 02000 PD XBSY,1,1,1 SADFOX02000
* 021471 3002142600 02010 J XEND SADFOX02010
021476 2641370201 02020 XIN PD XIBC,1,2,2 INPUT INTERRUPT SADFOX02020
021503 2641370102 02030 PD XOBA,2,2,2 SADFOX02030
021510 1420013020 02040 LC XPCW,16,6,1 CHECK SEQUENCE SADFOX02040
* 021515 3002241242 02050 JE XIO SADFOX02050
021522 1420013001 02060 XII LC XPCW,1,1,1 SADFOX02060
* 021527 3002171242 02070 JE XII1 SADFOX02070
021534 2620013001 02080 PD XPCW,1,1,1 SADFOX02080
021541 4422375001 02090 SC XTI,1,1 1 SADFOX02090
021546 4461407777 02100 SC XOBF+63,3,XRHC,3 SADFOX02100
021553 4441370177 02110 SC XOBA,63,3,2 SADFOX02110
021560 4441370001 02120 SC XOBC,1,2,2 SADFOX02120
021565 3400004712 02130 CC 39,XUN1 1 SADFOX02130
* 021572 3002164744 02140 JS XEA SADFOX02140
021577 2641370301 02150 PD XIBA,1,2,2 SADFOX02150
021604 4642410354 02160 BT XICLT,4444,2 SADFOX02160
021611 4060220000 02170 XF 022,0,0,0,3 TURN ON INPUT CLT SADFOX02170
* 021616 1002050300 02180 JR XSND SADFOX02180
021623 4642415754 02190 BT XCR2,44,4,2 CLOSE RELAY SADFOX02190
021630 4060220000 02200 XF 022,0,0,0,3 SADFOX02200
021635 6020013001 02210 AC XPCW,1,1,1 SADFOX02210
* 021642 3002072600 02220 J XNIS SADFOX02220
021647 4441370377 02230 XEA SC XIBA,63,3,2 SADFOX02230
021654 4441370201 02240 SC XIBC,1,2,2 SET INPUT T BIT SADFOX02240
* 021661 3002167300 02250 J $+10 SADFOX02250
021666 2641370301 02260 PD XIBA,1,2,2 SADFOX02260
021673 6020013001 02270 AC XPCW,1,1,1 SADFOX02270
* 021700 1002050300 02280 JR XSND SADFOX02280
* 021705 3002072600 02290 J XNIS SADFOX02290
021712 4461400041 02300 XII1 SC XOBF,XCMCMA,3 SADFOX02300
021717 4461400133 02310 SC XOBF+1,X,XEOT,3 SADFOX02310
021724 5641370301 02320 BA1 XIBA,1,2,2 SADFOX02320
021731 6000001777 02330 AC 15,077 SADFOX02330
021736 5202174601 02340 SA1 $+8,1 SADFOX02340
021743 5661410003 02350 BA1 XIBF+0,3,3,3 SADFOX02350
021750 5602423523 02360 BA2 XEOM2,3 3 END OF MSG FOR CR, LF SADFOX02360
021755 3400004712 02370 CC 39,XUN1 1 SADFOX02370
* 021762 3002201344 02380 JS $+25 YES SADFOX02380
021767 5602424523 02390 BA2 XCVE,3 END OF MSG FOR KSR 1 AND 2 SADFOX02390
021774 3400004700 02400 CC 39,0 IS INPUT FROM KSR 0 SADFOX02400
* 022001 3002201344 02410 JS $+10 NO SADFOX02410
022006 5602423223 02420 BA2 XEOM1,3 3 END OF MSG FOR KSR 0 SADFOX02420
022013 7000003743 02430 CB1 31,3 CHECK END OF MSG SADFOX02430
022020 2622433601 02440 PD XIRC,1,1,1 SADFOX02440
* 022025 3002167342 02450 JE XII1-15 5 SADFOX02450
* 022032 1002050300 02460 XIIE JR XSND SEND CMA, EOT SADFOX02460
022037 5602427313 02470 BA1 XRPT2,1111 REPEAT MSG FOR CR SADFOX02470
022044 3400004712 02480 CC 39,XUN1 1 SADFOX02480
* 022051 3002210244 02490 JS XIIE1 CR SADFOX02490
022056 5602426013 02500 BA1 XRPT1,1111 REPEAT MSG FOR KSR SADFOX02500
022063 3400004700 02510 CC 39,0 IS REMOTE KSR 0 SADFOX02510
* 022070 3002210243 02520 JU $+10 NO SADFOX02520
022075 5602423203 02530 BA1 XEOM1,3 3 EOM FOR KSR 0 SADFOX02530
022102 5261401213 02540 XIIE1 SA1 XOBF+10,0,11,3 SADFOX02540
022107 4420013030 02550 SC XPCW,24,4,1 SET OUTPUT SEQUENCE,ERR BIT SADFOX02550
022114 4422405201 02560 XIIE2 SC XSW1,1,1,1 SET IRRN REPEAT SWITCH SADFOX02560
022121 5622406521 02570 BA2 XIRRL,1,1,1 SADFOX02570
022126 4461407736 02580 SC XOBF+63,3,036,3 STORE IRRN IN OBF SADFOX02580
022133 4642410354 02590 BT XICLT,4444,2 SADFOX02590
022140 4060220000 02600 XF 022,0,0,0,3 SADFOX02600
* 022145 1002044500 02610 JR XSEND SEND IRRN SADFOX02610
* 022152 3002072600 02620 J XNIS SADFOX02620
022157 2641370001 02630 XOUT PD XOBC,1,2,2 SADFOX02630
022164 1420013020 02640 LC XPCW,16,6,1 SADFOX02640
* 022171 3002101542 02650 JE XNOS SADFOX02650
022176 1420013002 02660 XOI LC XPCW,2,1,1 OUT-INT,IN-SEQ SADFOX02660
* 022203 3002101543 02670 JU XNOS SADFOX02670
022210 4400011010 02680 SC 0110,XTTTT1 SADFOX02680
022215 3400004712 02690 CC 39,XUN1 1 SADFOX02690
* 022222 3002223444 02700 JS $+10 SADFOX02700
022227 4400011012 02710 SC 0110,XTTTT3 SADFOX02710
022234 5641370301 02720 BA1 XIBA,1,2,2 SADFOX02720
022241 6000001775 02730 AC 15,075 IBA MINUS 3 SADFOX02730
022246 5202227101 02740 SA1 XLATE+4,4,1 INPUT MESSAGE LENGTH SADFOX02740
022253 6000001777 02750 AC 15,077 IBA MINUS 4 SADFOX02750
022260 5202227001 02760 SA1 XLATE+3,3,1 LSD ADDRESS OF INPUT MSG SADFOX02760
022265 1261410000 02770 XLATE TR XIBF+0,0,0,3 TRANSLATE INPUT SADFOX02770
022272 6000001701 02780 AC 15,1 SADFOX02780
022277 3400004700 02790 CC 39,0 IS INPUT FROM UNIT 0 SADFOX02790
* 022304 3002240042 02800 JE XIO-10 YES SADFOX02800
022311 5600004721 02810 BA2 39,1 SADFOX02810
022316 4602441111 02820 BT XILC,9 SADFOX02820
022323 2600004602 02830 PD 38,2 SADFOX02830
022330 1600004711 02840 BS1 39,1 SADFOX02840
022335 5222431201 02850 SA1 XILL,1,1,1 MSG LG TO INPUT LIST SADFOX02850
022342 5222431121 02860 SA2 XILU,1,1,1 UNIT NO TO INPUT LIST SADFOX02860
022347 5200004721 02870 SA2 39,1 SADFOX02870
022354 6002441101 02880 AC XILC,1 STEP INPUT LIST COUNTER SADFOX02880
022361 2622375001 02890 PD XTI,1,1 1 SADFOX02890
022366 2642376402 02900 PD XTC,2,2 2 SADFOX02900
* 022373 3002101500 02910 J XNOS SADFOX02910
022400 5202431001 02920 SA1 XILI,1 MSG LG TO INQUIRY LIST SADFOX02920
* 022405 3002236100 02930 J $-20 SADFOX02930
022412 3400004712 02940 XIO CC 39,XUN1 1 SADFOX02940
* 022417 3002301144 02950 JS XIO2 SADFOX02950
022424 1420013001 02960 LC XPCW,1,1,1 SADFOX02960
* 022431 3002265243 02970 JU XIO51 SADFOX02970
022436 1420013010 02980 LC XPCW,8,1,1 SADFOX02980
* 022443 3002275342 02990 JE XIT SADFOX02990
022450 5641370321 03000 BA2 XIBA,1,2,2 SADFOX03000
022455 3400003720 03010 XIO4 CC 31,16 SET UP MESSAGE CHECK SADFOX03010
* 022462 3002267144 03020 JS XIO1 SADFOX03020
022467 5202253121 03030 SA2 XIO5+4,1,1 CHARACTER COUNT SADFOX03030
022474 5202253621 03040 SA2 XIO5+9,1,1 SADFOX03040
022501 6402253640 03050 LS XIO5+9,0,040 PUT AR1 IN CB INSTRUCTION SADFOX03050
022506 6000003777 03060 AC 31,077 SADFOX03060
022513 5202253021 03070 SA2 XIO5+3,1,1 LSD OF MESSAGE SADFOX03070
022520 5202253521 03080 SA2 XIO5+8,1,1 SADFOX03080
022525 5661410000 03090 XIO5 BA1 XIBF+0,0,0,3 SADFOX03090
022532 7061400040 03100 CB1 XOBF+0,0,0,3 CHECK MSG SADFOX03100
* 022537 3002273443 03110 JU XCMPE SADFOX03110
022544 1420015601 03120 LC XSW,1,1 1 SADFOX03120
* 022551 3002274642 03130 JE XIT-5 SADFOX03130
022556 4420015601 03140 SC XSW,1,1 1 SADFOX03140
022563 4461407736 03150 SC XOBF+63,3,036,3 IRRN FOR KSR SADFOX03150
022570 5602424225 03160 BA2 XEOM3,5 5 END OF MSG FOR KSR 0 SADFOX03160
022575 3400004700 03170 CC 39,0 IS OUTPUT FOR KSR 0 SADFOX03170
* 022602 3002263342 03180 JE $+25 YES SADFOX03180
022607 4400003434 03190 SC 034,034 4 NO, SET UP FORM FEED SADFOX03190
022614 1422403720 03200 LC XFEED,02020,1 FORM FEED OR VERT TAB SADFOX03200
* 022621 3002263343 03210 JU $+10 FORM FEED SADFOX03210
022626 4400003437 03220 SC 034,037 7 SET UP VERT TAB SADFOX03220
022633 5261400425 03230 SA2 XOBF+4,5,5,3 END OF MSG FOR KSR SADFOX03230
022640 4420013020 03240 SC XPCW,16,6,1 SET OUTPUT SEQUENCE SADFOX03240
* 022645 3002211400 03250 J XIIE2 SEND IRRN SADFOX03250
022652 4642410354 03260 XIO51 BT XICLT,4444,2 SADFOX03260
022657 4060220000 03270 XF 022,0,0,0,3 SADFOX03270
* 022664 3002166600 03280 J XII1-20 0 SADFOX03280
022671 6000003777 03290 XIO1 AC 31,077 SADFOX03290
022676 5202272021 03300 SA2 XIO6+3,1,1 SADFOX03300
022703 5202272521 03310 SA2 XIO6+8,1,1 SADFOX03310
022710 6000003761 03320 AC 31,061 SADFOX03320
022715 5661410000 03330 XIO6 BA1 XIBF+0,1,16,3 SADFOX03330
022722 7061400040 03340 CB1 XOBF+0,1,16,3 SADFOX03340
* 022727 3002245542 03350 JE XIO4 SADFOX03350
022734 4422427416 03360 XCMPE SC XEL,XE1414,1 SADFOX03360
* 022741 3002275300 03370 J XIT SADFOX03370
022746 2620015601 03380 PD XSW,1,1 1 SADFOX03380
* 022753 1002143100 03390 XIT JR XEND EXIT SADFOX03390
* 022760 1000551300 03400 JR RMINT SADFOX03400
* 022765 3002072600 03410 J XNIS SADFOX03410
022772 4420013040 03420 SC XPCW,32,2,1 SADFOX03420
* 022777 1002143100 03430 JR XEND SADFOX03430
* 023004 3002072600 03440 J XNIS SADFOX03440
023011 1420013001 03450 XIO2 LC XPCW,1,1,1 SADFOX03450
* 023016 3002306142 03460 JE XIO3 SADFOX03460
023023 5661407701 03470 BA1 XOBF+63,3,1,3 SADFOX03470
023030 5202304101 03480 SA1 $+9,1 SADFOX03480
023035 1461417700 03490 LC XIBF+63,3,0,3 CHECK IRRNA SADFOX03490
* 023042 3002167342 03500 JE XII1-15 5 SADFOX03500
023047 4422427406 03510 SC XEL,6,1 1 IRRN ERROR SADFOX03510
* 023054 3002275300 03520 J XIT SADFOX03520
023061 3461417733 03530 XIO3 CC XIBF+63,3,XRRC,3 CHECK RRC SADFOX03530
* 023066 3002275342 03540 JE XIT SADFOX03540
023073 6022434001 03550 AC XORC,1,1,1 SADFOX03550
023100 3422434000 03560 CC XORC,0,1,1 EXCESS REPEATS SADFOX03560
* 023105 3002265741 03570 JG XIO1-10 0 NO, TRY AGAIN SADFOX03570
023112 4422427405 03580 SC XEL,XE5,5,1 YES, RRI ERROR SADFOX03580
023117 4461407750 03590 SC XOBF+63,3,XME,3 SADFOX03590
* 023124 1002044500 03600 JR XSEND SEND ME SADFOX03600
* 023131 3002275300 03610 J XIT SADFOX03610
023136 5600004701 03620 XISE BA1 X1,1 SADFOX03620
023143 5202315301 03621 SA1 $+8,1 SADFOX03621
* 023150 3000370060 03622 JD 03700 SADFOX03622
023155 4422427412 03630 SC XEL,XE1010,1 SADFOX03630
023162 1441370224 03640 LC XIBC,02424,2 SADFOX03640
* 023167 3002275342 03650 JE XIT SADFOX03650
023174 4422427402 03660 XISE1 SC XEL,XE2,2,1 SADFOX03660
023201 1420013020 03670 LC XPCW,16,6,1 OUTPUT SEQUENCE SADFOX03670
* 023206 3002275342 03680 JE XIT YES SADFOX03680
023213 4422427401 03690 SC XEL,XE1,1,1 NO SADFOX03690
023220 3420013040 03700 CC XPCW,32,2,1 POLLING SADFOX03700
* 023225 3002275342 03710 JE XIT YES SADFOX03710
023232 3400004712 03720 CC 39,XUN1 1 SADFOX03720
* 023237 3002275341 03730 JG XIT KSR SADFOX03730
023244 4442376501 03740 SC XEC-1,1,1,2 CR, SET ERROR CLOCK SADFOX03740
023251 2622427401 03750 PD XEL,1,1 1 SADFOX03750
* 023256 3002072600 03760 J XNIS SADFOX03760
023263 2642376602 03770 XISE2 PD XEC,2,2 2 SADFOX03770
023270 4422427411 03780 SC XEL,XE9,9,1 SADFOX03780
023275 1441370201 03790 LC XIBC,1,2,2 T-BIT SET, AFTER 2 SEC SADFOX03790
* 023302 3002333343 03800 JU $+25 SADFOX03800
023307 4422427401 03810 SC XEL,XE1,1,1 YES SADFOX03810
023314 1420013001 03820 LC XPCW,1,1,1 ERROR ON INPUT MSG SADFOX03820
* 023321 3002140743 03830 JU XSTPL+5 5 NO SADFOX03830
023326 4422427415 03840 SC XEL,XE1313,1 SADFOX03840
023333 4461407764 03850 SC XOBF+63,3,XSA,3 YES SADFOX03850
023340 2641370201 03860 PD XIBC,1,2,2 SADFOX03860
023345 3422433601 03870 CC XIRC,1,1,1 SADFOX03870
* 023352 3002342744 03880 JS XISE4 SADFOX03880
023357 6022433601 03890 AC XIRC,1,1,1 SADFOX03890
023364 4441370177 03900 SC XOBA,63,3,2 SADFOX03900
023371 2641370301 03910 PD XIBA,1,2,2 SADFOX03910
023376 4441370001 03920 SC XOBC,1,2,2 SADFOX03920
* 023403 1002050300 03930 JR XSND SADFOX03930
* 023410 3002141400 03940 J XSTPL+1010 SADFOX03940
* 023415 1002044500 03950 XISE3 JR XSEND SEND SA OR ME SADFOX03950
* 023422 3002140700 03960 J XSTPL+5 5 SADFOX03960
023427 4422427417 03970 XISE4 SC XEL,XE1717,1 SADFOX03970
023434 4461407750 03980 SC XOBF+63,3,XME,3 SADFOX03980
* 023441 3002341500 03990 J XISE3 SADFOX03990
023446 5600004701 04000 XOSE BA1 X1,1 SADFOX04000
023453 5202346301 04001 SA1 $+8,1 SADFOX04001
* 023460 3000770060 04002 JD 07700 SADFOX04002
023465 4422427413 04010 SC XEL,XE1111,1 SADFOX04010
023472 1441370024 04020 LC XOBC,02424,2 SADFOX04020
* 023477 3002356142 04030 JE XOSE2 SADFOX04030
023504 4422427403 04040 XOSE1 SC XEL,XE3,3,1 SADFOX04040
023511 1420013020 04050 LC XPCW,16,6,1 OUTPUT SEQUENCE SADFOX04050
* 023516 3002356143 04060 JU XOSE2 NO SADFOX04060
023523 4441370001 04070 SC XOBC,1,2,2 SADFOX04070
* 023530 3202353077 04080 JL $,63 SADFOX04080
023535 4402353477 04090 SC $-1,63 SADFOX04090
* 023542 3202353074 04100 JL $-10,60 0 SADFOX04100
023547 4402354674 04110 SC $-1,60 SADFOX04110
023554 4422427404 04120 SC XEL,XE4,4,1 YES SADFOX04120
* 023561 1002143100 04130 XOSE2 JR XEND SADFOX04130
* 023566 1000551300 04140 JR RMINT SADFOX04140
* 023573 3002101500 04150 J XNOS SADFOX04150
023600 4422427410 04160 XTLE SC XEL,XE8,8,1 SADFOX04160
023605 1420013020 04170 LC XPCW,16,6,1 OUTPUT SEQUENCE SADFOX04170
* 023612 3002140742 04180 JE XSTPL+5 5 YES SADFOX04180
023617 4422427407 04190 SC XEL,XE7,7,1 NO SADFOX04190
* 023624 3002140700 04200 J XSTPL+5 5 SADFOX04200
* 023631 3000330360 04210 XCANR JD 03303 SADFOX04210
* 023636 3002063200 04220 J XIS-10 SADFOX04220
000012 04230 XUN1 EQU 10 SADFOX04230
000013 04240 XLP EQU 11 SADFOX04240
023643 00 04250 XLI +1 0 LOGICAL INDICATORS SADFOX04250
023657 0000000000000000 04260 XIR1 +12 0 SADFOX04260
023673 0000000000000000 04270 XIR2 +12 0 SADFOX04270
023713 0000000000000000 04280 XAR1 +16 0 SADFOX04280
023733 0000000000000000 04290 XAR2 +16 0 SADFOX04290
023737 00000000 04300 XT16 +4 0 SADFOX04300
023743 00000000 04310 XT18 +4 0 SADFOX04310
023747 00000000 04320 XT44 +4 0 SADFOX04320
023750 13 04330 XTI AREA 11 SADFOX04330
023764 0000 04340 XTC +2 0 TIME COUNTER SADFOX04340
023766 0000 04350 XEC +2 0 ERROR CLOCK SADFOX04350
023767 50 04360 AREA 40 SADFOX04360
024037 13 04370 XFEED AREA 11 SADFOX04370
024052 13 04380 XSW1 AREA 11 SADFOX04380
024065 04390 XIRRL EQU $ SADFOX04390
024074 3636363636363636 04400 +8 0363636363636363636 SADFOX04400 6
024077 363636 04410 +3 0363636 6 SADFOX04410
024101 0341 04420 XMIT +2 0341 SADFOX04420
024103 0342 04430 XICLT +2 0342 SADFOX04430
024105 0701 04440 +2 0701 SADFOX04440
024107 0702 04450 +2 0702 SADFOX04450
024111 1601 04460 +2 01601 SADFOX04460
024113 1602 04470 +2 01602 SADFOX04470
024115 1061 04480 +2 01061 SADFOX04480
024117 1062 04490 +2 01062 SADFOX04490
024121 1141 04500 +2 01141 SADFOX04500
024123 1142 04510 +2 01142 SADFOX04510
024125 1301 04520 +2 01301 SADFOX04520
024127 1302 04530 +2 01302 SADFOX04530
024131 1421 04540 +2 01421 SADFOX04540
024133 1422 04550 +2 01422 SADFOX04550
024135 1441 04560 +2 01441 SADFOX04560
024137 1442 04570 +2 01442 SADFOX04570
024141 1501 04580 +2 01501 SADFOX04580
024143 1502 04590 +2 01502 SADFOX04590
024145 1241 04600 +2 01241 SADFOX04600
024147 1242 04610 +2 01242 SADFOX04610
024151 1221 04620 +2 01221 SADFOX04620
024153 1222 04630 +2 01222 SADFOX04630
024155 0344 04640 XRREL +2 0344 SADFOX04640
024157 0350 04650 XCR2 +2 0350 SADFOX04650
024161 0704 04660 +2 0704 SADFOX04660
024163 0710 04670 +2 0710 SADFOX04670
024165 1604 04680 +2 01604 SADFOX04680
024167 1610 04690 +2 01610 SADFOX04690
024171 1064 04700 +2 01064 SADFOX04700
024173 1070 04710 +2 01070 SADFOX04710
024175 1144 04720 +2 01144 SADFOX04720
024177 1150 04730 +2 01150 SADFOX04730
024201 1304 04740 +2 01304 SADFOX04740
024203 1310 04750 +2 01310 SADFOX04750
024205 1424 04760 +2 01424 SADFOX04760
024207 1430 04770 +2 01430 SADFOX04770
024211 1444 04780 +2 01444 SADFOX04780
024213 1450 04790 +2 01450 SADFOX04790
024215 1504 04800 +2 01504 SADFOX04800
024217 1510 04810 +2 01510 SADFOX04810
024221 1244 04820 +2 01244 SADFOX04820
024223 1250 04830 +2 01250 SADFOX04830
024225 1224 04840 +2 01224 SADFOX04840
024227 1230 04850 +2 01230 SADFOX04850
024232 354233 04860 XEOM1 +3 0354233 3 EOM FOR KSR 0, LF SADFOX04860
024235 100233 04870 XEOM2 +3 0100233 3 EOM FOR CR, LF SADFOX04870
024242 3542353533 04880 XEOM3 +5 0354235353533 END OF MSG FOR KSR SADFOX04880
024245 353733 04890 XCVE +3 0353733 3 SADFOX04890
024255 3542220520050124 04900 +8 0354222020520050124 REPEAT MSG FOR KSR SADFOX04900 1
024260 353433 04910 XRPT1 +3 0353433 3 SADFOX04910
024270 1002120126010320 04920 +8 0100212020126010320 REPEAT MSG FOR CR SADFOX04920 3
024273 104033 04930 XRPT2 +3 0104033 3 SADFOX04930
000130 04940 XPCW EQU 0130 PROGRAM CONTROL WORD SADFOX04940
000143 04950 XPL EQU 0143 SADFOX04950
000156 04960 XSW EQU 0156 SADFOX04960
000264 04970 XBSY EQU 0264 SADFOX04970
024274 13 04980 XEL AREA 11 SADFOX04980
024310 0000 04990 XILI +2 0 INPUT LIST INQUIRY SADFOX04990
024311 00 05000 XILU +1 0 SADFOX05000
024312 00 05010 XILL +1 0 SADFOX05010
024313 22 05020 AREA 18 SADFOX05020
024336 0000 05030 XIRC +2 0 INPUT REPEAT COUNTER SADFOX05030
024340 0000 05040 XORC +2 0 OUTPUT REPEAT COUNTER SADFOX05040
024341 50 05050 AREA 40 SADFOX05050
024411 00 05060 XILC +1 0 SADFOX05060
000047 05070 XWRU EQU 047 WRU SADFOX05070
000077 05080 XRHC EQU 077 RHC SADFOX05080
000041 05090 XCMA EQU 041 CMA SADFOX05090
000033 05100 XEOT EQU 033 EOT SADFOX05100
000064 05110 XSA EQU 064 SA SADFOX05110
000050 05120 XME EQU 050 SADFOX05120
000033 05130 XRRC EQU 033 RRC SADFOX05130
014000 05140 XOBF EQU 014000 SADFOX05140
014100 05150 XIBF EQU 014100 SADFOX05150
013700 05160 XOBC EQU 013700 SADFOX05160
013701 05170 XOBA EQU 013701 SADFOX05170
013702 05180 XIBC EQU 013702 SADFOX05180
013703 05190 XIBA EQU 013703 SADFOX05190
000010 05200 XTT1 EQU 010 SADFOX05200
000011 05210 XTT2 EQU 011 SADFOX05210
000012 05220 XTT3 EQU 012 SADFOX05220
000013 05230 XTT4 EQU 013 SADFOX05230
000005 05240 XTL EQU 5 TIME LIMIT SADFOX05240
000001 05250 XE1 EQU 1 E-BIT SET, IN-INT, IN-SEQ SADFOX05250
000002 05260 XE2 EQU 2 E-BIT SET, IN-INT, OUT-SEQ SADFOX05260
000003 05270 XE3 EQU 3 E-BIT SET, OUT-INT, IN-SEQ SADFOX05270
000004 05280 XE4 EQU 4 E-BIT SET, OUT-INT, OUT-SEQ SADFOX05280
000005 05290 XE5 EQU 5 RRI ERROR SADFOX05290
000006 05300 XE6 EQU 6 IRRN ERROR SADFOX05300
000007 05310 XE7 EQU 7 INPUT TIME LIMIT ERROR SADFOX05310
000010 05320 XE8 EQU 010 OUTPUT TIME LIMIT ERROR SADFOX05320
000011 05330 XE9 EQU 011 T-BIT NOT SET AFTER 2 SEC SADFOX05330
000012 05340 XE10 EQU 012 INPUT IET BITS SET SADFOX05340
000013 05350 XE11 EQU 013 OUTPUT IET BITS SET SADFOX05350
000014 05360 XE12 EQU 014 CSI ERROR SADFOX05360
000015 05370 XE13 EQU 015 E-BIT SET, SA SENT SADFOX05370
000016 05380 XE14 EQU 016 KSR COMPARISON ERROR SADFOX05380
000017 05390 XE17 EQU 017 ME SENT SADFOX05390
05400 SNAP SNAP 0520,02727777,T SADFOX05400
* 024412 1002451100 * SNAP JR XDS *
024417 2000052005 * FT 0520,5 *
024424 2002777706 * FT 027777,6,6 *
* 024431 1002532300 * JR XDUMP *
* 024436 3000454600 05410 J ON SADFOX05410
05420 DUMP SADFOX05420
* 024443 1002451100 * JR XDS *
* 024450 1002532300 * JR XDUMP *
* 024455 3002444320 * JHJ $-10 *
* 024462 3002446200 * XCTAD J $ *
* 024467 1002456100 * JR XDCLR *
* 024474 1002466700 * JR XDPR *
* 024501 3002446200 * J XCTAD *
000207 * XADVC EQU 0207 *
* 024506 3002450600 * XDS J $ *
* 024513 3002467651 * JC XD2-10,4,41 *
024520 5202614461 * SAR XDR0+31 1 *
024525 2600003714 * PD 31,12 *
024532 2000052005 * FT 0520,5 *
024537 2007777706 * FT 077777,6,6 *
024544 4402532402 * SC XDUMP+4,4,2 *
* 024551 3002450600 * J XDS *
* 024556 3002455600 * XDCLR J $ *
024563 4402461310 * SC $+24,8 *
024570 2000030315 * FT 0303,13 3 *
024575 2722542100 * PD XDAR+15-5-0303,16,5 * 6
024602 6000006720 * AC 067,16 *
* 024607 3202457500 * JL $-10,0 *
024614 2002570515 * FT XDAR,13 3 *
* 024621 3002455600 * J XDCLR *
024626 4400020702 * SC XADVC,2 2 *
024633 2002570540 * FT XDAR,32 2 *
* 024640 3002464531 * JC $+5,25 *
024645 4000407777 * XF 32,0777777,0,0 *
024652 4000220000 * XF 18,0,0,0,0 *
* 024657 1002456100 * JR XDCLR *
* 024664 3002466400 * XDPR J $ *
* 024671 3002462600 * J XDPR-30 0 *
024702 0000000073 * +5 59 *
* 024703 1002466742 * JR XDPR,34 4 *
* 024710 3002471000 * XD2 J $ *
024715 4402511100 * SC $+124,0 0 *
024722 4402510404 * SC $+114,4 4 *
024727 4402525503 * SC XD1+64,3,3 *
024734 4402517370 * SC XD1+14,5,56 *
024741 2000006116 * FT 061,14 *
* 024746 1002516000 * JR XD1 *
024753 2337777041 * ZS -8,1,5 *
024760 4402507702 * SC $+79,2 *
024765 4402525500 * SC XD1+64,0,0 *
024772 4402517300 * SC XD1+14,0,0 *
024777 4600006316 * BT 063,14 *
025004 7402470216 * CT XD2-6,1414 *
* 025011 1002516041 * JR XD1,33 *
025016 2142610516 * FT XDR0,14,4,6 *
* 025023 1002516044 * JR XD1,36 *
025030 2155167316 * FT -XDR0,1414,6 *
025035 4600007314 * BT 073,12 *
025042 5737777512 * BA1 -3,10,5 5 *
025047 7002621652 * CB1 XDR0+73,3,10 *
* 025054 3002507342 * JE $+15 *
025061 4402511170 * SC $+24,56 6 *
025066 5202621612 * SA1 XDR0+73,3,10 *
* 025073 3202476500 * JL $-70,0 *
* 025100 3202472700 * JL XD2+15,0,0 *
* 025105 3002513100 * JC $+20,0 *
* 025112 1002466700 * JR XDPR *
025117 4402513500 * SC $+14,0 *
* 025124 3002471500 * J XD2+5 *
* 025131 1002446500 * JR XCTAD,0 0 *
025136 4402513570 * SC $-1,56 *
* 025143 1002456100 * JR XDCLR *
* 025150 3002471500 * J XD2+5 *
* 025155 3002515500 * XD1 J $ *
025162 5740000001 * BA1 0,1,6 *
* 025167 3002527000 * JC $+65,0 *
025174 2600001601 * PD 14,1 *
025201 1600001723 * BS2 15,3 *
025206 1600001753 * BC1 15,3 *
025213 2720000122 * PD0 1,2,5 *
025220 7320000102 * AB1 1,2,5 *
025225 6000006702 * AC 067,2 *
025232 7400007313 * CT 073,11 *
* 025237 3002470342 * JE XD2-5 *
025244 6000007301 * AC 073,1 *
* 025251 3202516200 * JL $-55,0 *
025256 6000006702 * AC 067,2 *
* 025263 3002515500 * J XD1 *
025270 5320000001 * SA1 0,1,5 *
025275 6000006701 * AC 067,1 *
* 025302 3002523200 * J $-40 *
025317 END PRINT * +9 _END PRIRINT_ *
* 025320 3002532002 * XDUMP JC $,2 *
* 025325 3002566640 * JC XDUEX,3232 *
025332 5600005700 * BA1 057,16 *
025337 5200005734 * SA2 057,12 *
025344 5600007720 * BA2 077,16 *
025351 5202620461 * SAR XDR0+63 3 *
025356 2600007314 * PD 073,12 *
* 025363 1002456100 * JR XDCLR *
025370 5600040730 * BA2 0407,8 *
025375 4600020705 * BT 0207,5 *
025402 4600020304 * BT 0203,4 *
025407 2002462603 * FT XDPR-30,0,3 *
025414 5200040703 * SA1 0407,3 *
025421 4402477670 * SC XD2+54,5,56 *
025426 1402532404 * LC XDUMP+4,4,4 *
* 025433 3002545742 * JE $+20 *
025440 1402532402 * LC XDUMP+4,4,2 *
* 025445 3002547643 * JU $+25 *
025452 2000042013 * FT 0420,11 1 *
025457 2060007713 * FT 077,11,3,3 *
025464 4402477104 * SC XD2+49,4,4 *
* 025471 1002471300 * JR XD2 *
025476 4600004714 * BT 047,12 *
025503 4600005313 * BT 053,11 *
025510 4402477105 * SC XD2+49,5,5 *
025515 1402532401 * LC XDUMP+4,4,1 *
* 025522 3002554143 * JU $+15 *
025527 4402477112 * SC XD2+49,1,10 *
025534 4402477600 * SC XD2+54,0,0 *
* 025541 1002471300 * JR XD2 *
025546 2000004516 * FT 045,14 *
025553 4402517370 * SC XD1+14,5,56 *
025560 4402525507 * SC XD1+64,7,7 *
* 025565 1002516000 * JR XD1 *
025572 2737776702 * PD -9,2,5 *
025577 5602531711 * BA1 XDUMP-1,1,9 *
025604 5320001011 * SA1 8,9,5 *
* 025611 1002466700 * JR XDPR *
* 025616 1002446500 * JR XCTAD *
* 025623 3002467652 * JC XD2-10,4,42 *
025630 5200040730 * SA2 0407,8 *
025635 4200020705 * ST 0207,5 *
025642 4200020306 * ST 0203,6 *
025647 5602616400 * BA1 XDR0+05757,16 *
025654 5602620420 * BA2 XDR0+07777,16 *
025661 5200007761 * SAR 077 *
025666 5602612400 * XDUEX BA1 XDR0+01717,16 *
025673 5602614420 * BA2 XDR0+03737,16 *
* 025700 3002532000 * J XDUMP *
025705 200 * XDAR AREA 0200 *
026105 112 * XDR0 AREA 74 *
001600 05430 ORIG 01600 SADFOX05430
* 001600 3000000060 05440 START JD 0 SADFOX05440
001605 5601101610 05450 BA1 CH0IE,8 8 SADFOX05450
001612 5200040710 05460 SA1 0407,8 SADFOX05460
001617 5601305010 05470 BA1 CH1IE,8 8 SADFOX05470
001624 5200041710 05480 SA1 0417,8 SADFOX05480
001631 5601110100 05490 BA1 CL12,16 6 SADFOX05490
001636 5200051700 05500 SA1 0517,16 6 SADFOX05500
001643 5601303710 05510 BA1 CH3IE,8 8 SADFOX05510
001650 5200043710 05520 SA1 0437,8 SADFOX05520
001655 5601307710 05530 BA1 CH6IE,8 8 SADFOX05530
001662 5200046710 05540 SA1 0467,8 SADFOX05540
001667 5601310710 05550 BA1 CH4IE,8 8 SADFOX05550
001674 5200044710 05560 SA1 0447,8 SADFOX05560
001701 5601311710 05570 BA1 CH2IE,8 8 SADFOX05570
001706 5200042710 05580 SA1 0427,8 SADFOX05580
001713 5601312710 05590 BA1 CH5IE,8 8 SADFOX05590
001720 5200045710 05600 SA1 0457,8 SADFOX05600
* 001725 3000454600 05610 J ON INITIALIZE SADFOX05610
001733 ST 05620 OPTAB +2 _ST_ STNN SADFOX05620
001736 002526 05630 OPADD +3 S STOP SADFOX05630
001740 TI 05640 +2 _TI_ TI00 SADFOX05640
001743 002610 05650 +3 TIME TIME SADFOX05650
001745 SM 05660 +2 _SM_ SM00 SADFOX05660
001750 003074 05670 +3 SPACE SPACE SADFOX05670
001752 RP 05680 +2 _RP_ RP00 SADFOX05680
001755 003106 05690 +3 R REPEAT SEND SADFOX05690
001757 TP 05700 +2 _TP_ TPNN SADFOX05700
001762 003120 05710 +3 T TERMINATE POLL SADFOX05710
001764 IN 05720 +2 _IN_ INNN SADFOX05720
001767 003137 05730 +3 I INITIALIZE SADFOX05730
001771 SC 05740 +2 _SC_ SC00 SADFOX05740
001774 002540 05750 +3 SETCK SET CLOCK SADFOX05750
001776 PC 05760 +2 _PC_ PCII SADFOX05760
002001 002444 05770 +3 PC PRINT CLOCK SADFOX05770
002003 DA 05780 +2 _DA_ SADFOX05780
002006 002406 05790 +3 DA READ DRUM A SADFOX05790
002010 DB 05800 +2 _DB_ SADFOX05800
002013 002420 05810 +3 DB READ WRITE DRUM B SADFOX05810
002015 PU 05820 +2 _PU_ SADFOX05820
002020 002374 05830 +3 PU PUNCH SADFOX05830
002022 TB 05840 +2 _TB_ SADFOX05840
002025 002432 05850 +3 TB SADFOX05850
002026 2600006300 05860 INPT PD X4,16 SADFOX05860
002033 3402431000 05870 CC XILI,0 IS INPUT FROM INQUIRY SADFOX05870
* 002040 3000206443 05880 JU $+20 SADFOX05880
002045 4400004702 05890 SC X1,2 SADFOX05890
002052 3402441100 05900 CC XILC,0 SADFOX05900
* 002057 3000320742 05910 JE SS1 YES SADFOX05910
002064 5622431002 05920 BA1 XILL-2,2,2,1 SADFOX05920
002071 3400001613 05930 CC 14,XLP SADFOX05930
* 002076 3000547644 05940 JS ERR3 YES, ERROR SADFOX05940
002103 5600001621 05950 BA2 14,1 SADFOX05950
002110 5200004721 05960 SA2 39,1 UNIT N IN IR1 SADFOX05960
002115 5200005221 05970 SA2 42,1 64N IN IR2 SADFOX05970
002122 5200005721 05980 SA2 47,1 SADFOX05980
002127 1600005711 05990 BS1 47,1 SADFOX05990
002134 7200005721 06000 AB2 47,1 SADFOX06000
002141 1600005711 06010 BS1 47,1 6N IN IR3 SADFOX06010
002146 5260721002 06020 SA1 RUL,2,3 3 SADFOX06020
002153 2620026401 06030 PD XBSY,1,X,X1 SADFOX06030
002160 2000010022 06040 FT 64,T18 CH CT SADFOX06040
002165 2040731020 06050 FT AREA1,T1T16,X2 DEST ADDR SADFOX06050
002172 1600005211 06060 BS1 X2-1,1 SADFOX06060
002177 2441410001 06070 TFR XIBF,,X2X2 SADFOX06070
002204 2641417700 06080 PD XIBF+63,3,16,X2 SADFOX06080
002211 2641415700 06090 PD XIBF+47,7,16,X2 SADFOX06090
002216 2641413700 06100 PD XIBF+31,1,16,X2 SADFOX06100
002223 2641411700 06110 PD XIBF+15,5,16,X2 SADFOX06110
002230 1600005255 06120 BC1 X2-1,5 SADFOX06120
002235 5640731301 06130 BA1 AREA1+3,3,1,X2 X1-IN,X2-64N,X3-6N SADFOX06130
002242 6000001775 06140 AC 15,075 SADFOX06140
002247 3440731203 06150 CC AREA1+2,2,_0_,X2 SADFOX06150
* 002254 3000226642 06160 JE $+10 SADFOX06160
002261 6000001712 06170 AC 15,10 SADFOX06170
002266 5200006301 06180 SA1 X4,1 KEYED IN UNIT TO X4 SADFOX06180
002273 3400006312 06190 CC X4,XLP-1-1 SADFOX06190
* 002300 3000542644 06200 JS ERR2 SADFOX06200
002305 2600006703 06210 PD X5,3 SADFOX06210
002312 4400234714 06220 SC OPLP+4,1,12 SADFOX06220
002317 5640731102 06230 BA1 AREA1+1,1,2,X2 SADFOX06230
002324 7120173342 06240 CB1 OPTAB,2,2,X5 SADFOX06240
* 002331 3000235542 06250 JE OPJMP SADFOX06250
002336 6000006705 06260 AC X5,5 SADFOX06260
* 002343 3200232400 06270 OPLP JL $-15 SADFOX06270
* 002350 3000542600 06280 J ERR2 SADFOX06280
002355 5720173603 06290 OPJMP BA1 OPADD,3,3,X5 SADFOX06290
002362 5200006703 06300 SA1 X5,3 SADFOX06300
* 002367 3120000000 06310 JC 0,0,X5 SADFOX06310
002374 4400421640 06320 PU SC PUNCH+4,4,040 SADFOX06320
* 002401 3000307400 06330 J SPACE SADFOX06330
002406 4400374440 06340 DA SC DRUM+4,0,040 SADFOX06340
* 002413 3000307400 06350 J SPACE SADFOX06350
002420 4400324440 06360 DB SC DRUMB+4,4,040 SADFOX06360
* 002425 3000307400 06370 J SPACE SADFOX06370
002432 4400340340 06380 TB SC TAPEB+4,4,040 SADFOX06380
* 002437 3000307400 06390 J SPACE SADFOX06390
002444 4400424740 06400 PC SC CLOCK+4,4,040 SADFOX06400
002451 2601367702 06410 PD XIBC6+1,1,2 SADFOX06410
002456 4401367770 06420 SC XIBC6+1,1,070 SADFOX06420
002463 4401145274 06430 SC TCTR1,07074 SADFOX06430
002470 3400006311 06440 CC X4,011 SADFOX06440
* 002475 3000250744 06450 JS $+10 SADFOX06450
002502 4401145201 06460 SC TCTR1,00001 SADFOX06460
002507 2000016154 06470 FT XSTRT,4444 SADFOX06470
002514 4060220000 06480 XF 022,0,0,0,3 SADFOX06480
* 002521 3000307400 06490 J SPACE SADFOX06490
002526 2701071101 06500 S PD SW0,1,X4X4 S SET SW SADFOX06500
* 002533 3000307400 06510 J SPACE SADFOX06510
002540 2601360603 06520 SETCK PD XOBF-12222,3 SADFOX06520
002545 5640731704 06530 BA1 AREA1+7,7,4,X2 SADFOX06530
002552 5201360304 06540 SA1 XOBF-12525,4 SADFOX06540
002557 4401360633 06550 SC XOBF-12222,XEOT SADFOX06550
002564 2601367502 06560 PD XOBA-4,2,2 SADFOX06560
002571 2000016454 06570 FT XSETC,4444 SADFOX06570
002576 4060220000 06580 XF 022,0,0,0,3 SADFOX06580
* 002603 3000307400 06590 J SPACE SADFOX06590
* 002610 3000261532 06600 TIME JC $+5,032 2 SADFOX06600
002615 2000016254 06610 FT XSTOP,4444 SADFOX06610
002622 4060220000 06620 XF 022,0,0,0,3 SADFOX06620
* 002627 3200262777 06630 JL $,63 SADFOX06630
002634 4400263377 06640 SC $-1,63 SADFOX06640
* 002641 3000264633 06650 JC $+5,033 3 SADFOX06650
002646 2601367601 06660 PD XIBC6,1 1 SADFOX06660
002653 4401367770 06670 SC XIBC6+1,1,070 SADFOX06670
002660 2000016154 06680 FT XSTRT,4444 SADFOX06680
002665 4060220000 06690 XF 022,0,0,0,3 SADFOX06690
002672 1401367620 06700 LC XIBC6,1616 SADFOX06700
* 002677 3000267243 06710 JU $-5 SADFOX06710
002704 3401377114 06720 CC XIBF6+5757,014 SADFOX06720
* 002711 3000274244 06730 JS NSET SADFOX06730
002716 5601377506 06740 BA1 XIBF6+6161,6 SADFOX06740
002723 5240731506 06750 SA1 AREA1+5,5,6,X2 SADFOX06750
002730 4460721006 06760 SC RUL,6,X3X3 SADFOX06760
* 002735 3000276600 06770 J FAB SADFOX06770
002742 5601302715 06780 NSET BA1 CNSET,1313 SADFOX06780
002747 5240732415 06790 SA1 AREA1+1212,13,X2 SADFOX06790
002754 4460721015 06800 SC RUL,13,X,X3 SADFOX06800
* 002761 3000276600 06810 J FAB SADFOX06810
002766 5660721306 06820 FAB BA1 OR0,6,X3X3 SADFOX06820
* 002773 3000300032 06830 PUSH JC $+5,032 2 INH CL III SADFOX06830
003000 6400001500 06840 LS 13,0 FF VT IS 020 SADFOX06840 I
003005 3400004700 06850 CC 39,0 IS INPUT FROM INQUIRY SADFOX06850
* 003012 3000306242 06860 JE SPACE-1010 YES, DONT PUSH LIST UP SADFOX06860
003017 4400003701 06870 SC 31,1 SADFOX06870
003024 7202441161 06880 SB2 XILC,1 COUNTER MINUS 1 SADFOX06880
003031 2002431120 06890 FT XILU,T1616 SADFOX06890
003036 2000002222 06900 FT 18,T18 SADFOX06900
003043 2402431301 06910 TFR XILU+2 SADFOX06910
* 003050 1002000300 06920 JR XLK EXECUTE LINK SADFOX06920
* 003055 3000202633 06930 JC INPT,03333 REL CL III SADFOX06930
003062 2602431001 06940 PD XILI,1 CLEAR INQUIRY INPUT SADFOX06940
* 003067 3000305000 06950 J $-15 SADFOX06950
003074 4421071102 06960 SPACE SC SW0,2,X1X1 SADFOX06960
* 003101 3000276600 06970 J FAB SADFOX06970
003106 4421071101 06980 R SC SW0,1,X1X1 SADFOX06980
* 003113 3000276600 06990 J FAB SADFOX06990
003120 4500014300 07000 T SC XPL,0,X4X4 STOP POLL SADFOX07000
003125 2701071101 07010 PD SW0,1,X4X4 SADFOX07010
* 003132 3000276600 07020 J FAB SADFOX07020
003137 5600006301 07030 I BA1 X4,1 SADFOX07030
* 003144 1000656100 07040 JR INTL SADFOX07040
003151 4500014301 07050 SC XPL,1,X4X4 SET POLL ON SADFOX07050
003156 4400001540 07060 SC 13,32 O R TO POLL SADFOX07060
003163 5600006321 07070 BA2 X4,1 SADFOX07070
003170 5200001321 07080 SA2 11,1 SADFOX07080
* 003175 1002000332 07090 JR XLK,032 2 SADFOX07090
* 003202 3000276600 07100 J FAB SADFOX07100
* 003207 3000454662 07110 SS1 JC ON,50 TEST SENSE SWITCH 1 SADFOX07110
* 003214 3000322132 07120 JC $+5,032 2 SADFOX07120
* 003221 1001074763 07130 JR XREAD,5151 READ CARD IF SS2 IS SET SADFOX07130
* 003226 3001111464 07140 JC JAMSN,5252 SADFOX07140
* 003233 3000324033 07150 JC $+5,033 3 SADFOX07150
* 003240 3000337700 07160 DRUMB JC TAPEB,0 0 SADFOX07160
003245 2600034710 07170 PD 0347,8 SADFOX07170
003252 4400034640 07180 SC 0346,32 2 SADFOX07180
* 003257 3000332240 07190 DB1 JC DB2,040 0 SADFOX07190
003264 2600326301 07200 PD $-1,1 SADFOX07200
003271 2001151570 07210 FT FILL,56 6 SADFOX07210
003276 6400034140 07220 LS 0341,04040 SADFOX07220
003303 4140060000 07230 XF 06,0,0,6,6 SADFOX07230
* 003310 3000331000 07240 J $ SADFOX07240
* 003315 3000337733 07250 JC TAPEB,03033 SADFOX07250
003322 4400326340 07260 DB2 SC DB1+4,04040 SADFOX07260
003327 2001223570 07270 FT BASED,5656 SADFOX07270
003334 6400034140 07280 LS 0341,04040 SADFOX07280
003341 4140050000 07290 XF 05,0,0,6,6 SADFOX07290
* 003346 3000334600 07300 J $ SADFOX07300
003353 2600363101 07310 PD KSW+4,1 1 SADFOX07310
003360 4401276025 07320 SC DCERR-1111,_B_ SADFOX07320
* 003365 1000354100 07330 JR KOMP SADFOX07330
* 003372 3000337733 07340 JC TAPEB,03033 SADFOX07340
* 003377 3000374000 07350 TAPEB JC DRUM,0 SADFOX07350
003404 4401134301 07360 SC TPER1+6,6,1 SADFOX07360
* 003411 3000345440 07370 TB1 JC TB2,040 0 SADFOX07370
003416 2600341501 07380 PD $-1,1 SADFOX07380
003423 2001151564 07390 FT FILL,52 2 SADFOX07390
003430 2000052065 07400 FT 336,53 SADFOX07400
003435 4121620100 07410 XF 062,010000,1,5 SADFOX07410
003442 4101611000 07420 XF 061,0100000,1,4 SADFOX07420
* 003447 3000374033 07430 JC DRUM,03333 SADFOX07430
003454 4400341540 07440 TB2 SC TB1+4,04040 SADFOX07440
003461 2001223560 07450 FT BASED,4848 SADFOX07450
003466 2000052061 07460 FT 336,49 SADFOX07460
003473 4101610100 07470 XF 061,010000,1,4 SADFOX07470
003500 4101611000 07480 XF 061,0100000,1,4 SADFOX07480
* 003505 3000351232 07490 JC $+5,032 2 SADFOX07490
003512 4400363140 07500 SC KSW+4,04040 SADFOX07500
003517 4401277725 07510 SC TCERR-1111,_B_ SADFOX07510
* 003524 1000354100 07520 JR KOMP SADFOX07520
* 003531 3000374033 07530 JC DRUM,03333 SADFOX07530
* 003536 3000353600 07540 KOMP J $ READ WRITE COMPARE SADFOX07540
003543 2600005310 07550 PD X2,8 SADFOX07550
003550 4400360530 07560 SC KJL+4,2424 SADFOX07560
003555 5621225216 07570 KMP1 BA1 BASED+1313,14,X1 SADFOX07570
003562 7001153256 07580 CB1 FILL+13,3,14 SADFOX07580
* 003567 3000361343 07590 JU KUNEQ SADFOX07590
003574 6000004716 07600 AC X1,14 SADFOX07600
* 003601 3200355530 07610 KJL JL KMP1,24 4 SADFOX07610
* 003606 3000370700 07620 J KPAD SADFOX07620
003613 4400370604 07630 KUNEQ SC KJL1+4,4,4 SADFOX07630
003620 5601277317 07640 BA1 DCERR,1515 SADFOX07640
* 003625 3000363700 07650 KSW JC $+10,0 SADFOX07650
003632 5601301217 07660 BA1 TCERR,1515 SADFOX07660
003637 5200141617 07670 SA1 PBASE+1414,15 SADFOX07670
003644 2000141720 07680 FT PBASE+1515,T16 SADFOX07680
003651 2000012422 07690 FT 84,T18 SADFOX07690
003656 2441223501 07700 TFR BASED,,X,X2 SADFOX07700
* 003663 1000443100 07710 JR PRINT SADFOX07710
003670 6000005377 07720 AC X2,63 SADFOX07720
003675 6000005325 07730 AC X2,21 SADFOX07730
* 003702 3200362004 07740 KJL1 JL KUNEQ+5,5,4 SADFOX07740
003707 2601223501 07750 KPAD PD BASED,1 1 SADFOX07750
003714 2000051722 07760 FT 335,T18 8 SADFOX07760
003721 2001223620 07770 FT BASED+1,1,T16 SADFOX07770
003726 2401223501 07780 TFR BASED SADFOX07780
* 003733 3000353600 07790 J KOMP SADFOX07790
* 003740 3000420500 07800 DRUM JC TAPE,0 SADFOX07800
003745 2600034710 07810 PD 0347,8 SADFOX07810
003752 2001223570 07820 FT DBASE,5656 SADFOX07820
003757 6400034120 07830 LS 0341,02020 SADFOX07830
003764 4140050000 07840 XF 05,0,0,6,6 SADFOX07840
* 003771 3000377100 07850 J $ SADFOX07850
003776 2001250570 07860 FT DBASE+16168,56 SADFOX07860
004003 6400034120 07870 LS 0341,02020 SADFOX07870
* 004010 3000401533 07880 JC $+5,033 3 SADFOX07880
004015 4140050000 07890 XF 05,0,0,6,6 SADFOX07890
* 004022 3000402200 07900 J $ SADFOX07900
004027 4401276024 07910 SC DCERR-1111,_A_ SADFOX07910
004034 4400407614 07920 SC DJL+4,1212 SADFOX07920
004041 2600004704 07930 PD X1,4 SADFOX07930
004046 5621225216 07940 DCMP BA1 DBASE+1313,14,X1 SADFOX07940
004053 7021252256 07950 CB1 DBASE+16168+13,14,X1 SADFOX07950 4
* 004060 3000411143 07960 JU DUNEQ SADFOX07960
004065 6000004716 07970 AC X1,14 SADFOX07970
* 004072 3200404614 07980 DJL JL DCMP,12 2 SADFOX07980
* 004077 3000420533 07990 JC TAPE,03333 SADFOX07990
* 004104 3000420500 08000 J TAPE SADFOX08000
004111 2600004704 08010 DUNEQ PD X1,4 SADFOX08010
004116 4400417704 08020 SC DJL1+4,4,4 SADFOX08020
004123 5601277317 08030 BA1 DCERR,1515 SADFOX08030
004130 5200141617 08040 SA1 PBASE+1414,15 SADFOX08040
004135 2000141720 08050 FT PBASE+1515,T16 SADFOX08050
004142 2000012422 08060 FT 84,T18 SADFOX08060
004147 2421223501 08070 TFR DBASE,,X,X1 SADFOX08070
* 004154 1000443100 08080 JR PRINT SADFOX08080
004161 6000004777 08090 AC X1,63 SADFOX08090
004166 6000004725 08100 AC X1,21 SADFOX08100
* 004173 3200412304 08110 DJL1 JL DUNEQ+1010,4 SADFOX08110
* 004200 3000420533 08120 JC $+5,033 3 SADFOX08120
* 004205 3000421200 08130 TAPE JC PUNCH,0 0 SADFOX08130
* 004212 3000424300 08140 PUNCH JC CLOCK,0 0 SADFOX08140
* 004217 3200424305 08150 JL CLOCK,0505 SADFOX08150
004224 4400422301 08160 SC $-1,01 SADFOX08160
004231 2000410050 08170 FT 04100,4040 SADFOX08170
004236 4040660100 08180 XF 066,010000,0,2 SADFOX08180
* 004243 3000440700 08190 CLOCK JC COUNT,0 0 SADFOX08190
* 004250 3000425532 08200 JC $+5,032 2 SADFOX08200
004255 1401367620 08210 LC XIBC6,1616 SADFOX08210
* 004262 3000440743 08220 JU COUNT SADFOX08220
004267 6001145301 08230 AC TCTR2,1 1 SADFOX08230
004274 5601145301 08240 BA1 TCTR2,1 1 SADFOX08240
004301 7001145241 08250 CB1 TCTR1,1 1 SADFOX08250
* 004306 3000433743 08260 JU CLK1 SADFOX08260
004313 2601145301 08270 PD TCTR2,1 1 SADFOX08270
004320 5601377506 08280 BA1 XIBF6+6161,6 SADFOX08280
004325 5200140506 08290 SA1 PBASE+5,5,6 SADFOX08290
* 004332 1000443100 08300 JR PRINT SADFOX08300
004337 2000016254 08310 CLK1 FT XSTOP,4444 SADFOX08310
004344 4060220000 08320 XF 022,0,0,0,3 SADFOX08320
* 004351 3200435177 08330 JL $,63 SADFOX08330
004356 4400435577 08340 SC $-1,63 SADFOX08340
004363 2601367601 08350 PD XIBC6,1 1 SADFOX08350
004370 4401367770 08360 SC XIBC6+1,1,070 SADFOX08360
004375 2000016154 08370 FT XSTRT,4444 SADFOX08370
004402 4060220000 08380 XF 022,0,0,0,3 SADFOX08380
* 004407 3000202633 08390 COUNT JC INPT,03333 SADFOX08390
004414 6001151401 08400 AC MLCTR,1 1 SADFOX08400
* 004421 3000202633 08410 JC INPT,03333 SADFOX08410
* 004426 3000442600 08420 PRINT J $ SADFOX08420
004433 2000140040 08430 FT PBASE,3232 SADFOX08430
004440 2000000141 08440 FT 1,33 SADFOX08440
004445 4000407777 08450 PRER2 XF 32,0777777,0,0 SADFOX08450
004452 4000620000 08460 XF 062,0,0,0,0 SADFOX08460
004457 4000007777 08470 XF 0,07777,7,0,0 SADFOX08470
* 004464 3000452253 08480 JC PRER1,4343 SADFOX08480
004471 2600140001 08490 PD PBASE,1 1 SADFOX08490
004476 2000140120 08500 FT PBASE+1,1,T16 SADFOX08500
004503 2000017722 08510 FT 127,T18 8 SADFOX08510
004510 2400140001 08520 TFR PBASE SADFOX08520
* 004515 3000442600 08530 J PRINT SADFOX08530
004522 4000004000 08540 PRER1 XF 0,04000,0,0,0 SADFOX08540
* 004527 3000444553 08550 JC PRER2,4343 SADFOX08550
* 004534 3000330060 08560 JD 03300 SADFOX08560
* 004541 3000444500 08570 J PRER2 SADFOX08570
* 004546 3000455332 08580 ON JC $+5,032 2 SADFOX08580
004553 2601151400 08590 PD MLCTR,1616 SADFOX08590
004560 2601145302 08600 PD TCTR2,2 2 SADFOX08600
004565 2600374401 08610 PD DRUM+4,1,1 SADFOX08610
004572 2600421101 08620 PD TAPE+4,1,1 SADFOX08620
004577 2600421601 08630 PD PUNCH+4,4,1 SADFOX08630
004604 2600424701 08640 PD CLOCK+4,4,1 SADFOX08640
004611 2600324401 08650 PD DRUMB+4,4,1 SADFOX08650
004616 2600340301 08660 PD TAPEB+4,4,1 SADFOX08660
004623 4400341540 08661 SC TB1+4,04040 SADFOX08661
004630 2600060001 08670 PD 0600,1 SADFOX08670
004635 2000060120 08680 FT 0601,T1616 SADFOX08680
004642 2000017722 08690 FT 127,T18 8 SADFOX08690
004647 2400060001 08700 TFR 0600 SADFOX08700
004654 5600716004 08710 BA1 CARD,4 SADFOX08710
004661 5200072504 08720 SA1 0725,4 SADFOX08720
004666 2600140001 08730 PD PBASE,1 1 SADFOX08730
004673 2000140120 08740 FT PBASE+1,1,T16 SADFOX08740
004700 2000017722 08750 FT 127,T18 8 SADFOX08750
004705 2400140001 08760 TFR PBASE SADFOX08760
004712 2600656201 08770 PD INTL+4,1,1 SADFOX08770
004717 4060402000 08780 XF 32,0200000,0,3 SADFOX08780
004724 2600004703 08790 PD X1,3 SADFOX08790
004731 4400475426 08800 SC $+19,XLPLP+XLP SADFOX08800
004736 6421370001 08810 LS XOBC,1,X,X1 SADFOX08810
004743 6000004702 08820 AC X1,2 SADFOX08820
* 004750 3200473600 08830 JL $-10 SADFOX08830
004755 4060002000 08840 XF 0,02000,0,0,3 TEST DF SADFOX08840
* 004762 3000477453 08850 JC $+10,43 3 SADFOX08850
* 004767 3000475500 08860 J $-10 SADFOX08860
004774 4060402000 08870 XF 32,0200000,0,3 SADFOX08870
005001 2600702701 08880 PD INTL2+4,4,1 SADFOX08880
005006 4400504313 08890 SC $+29,XLPLP SADFOX08890
005013 2600502401 08900 PD $+9,1 SADFOX08900
005020 4400001700 08910 SC 15,0 SADFOX08910
* 005025 1000656100 08920 JR INTL SADFOX08920
005032 6000502401 08930 AC $-6,1 SADFOX08930
* 005037 3200502000 08940 JL $-15 SADFOX08940
005044 4060002000 08950 XF 0,02000,0,0,3 SADFOX08950
* 005051 3000506353 08960 JC $+10,43 3 SADFOX08960
* 005056 3000504400 08970 J $-10 SADFOX08970
005063 4400656233 08980 SC INTL+4,0,033 SADFOX08980
005070 4400702740 08990 SC INTL2+4,4,040 SADFOX08990
005075 2600005307 09000 PD X2,7 SADFOX09000
005102 4400513213 09010 SC $+24,XLPLP SADFOX09010
* 005107 1000711000 09020 JR INPAD SADFOX09020
005114 6000004602 09030 AC X1-1,2 SADFOX09030
005121 6000005304 09040 AC X2,4 SADFOX09040
* 005126 3200510713 09050 JL $-15,XLPLP SADFOX09050
005133 2602427401 09060 PD XEL,1 SADFOX09060
005140 2000011522 09070 FT 77,T18 SADFOX09070
005145 2002427520 09080 FT XEL+1,T1T16 SADFOX09080
005152 2402427401 09090 TFR XEL SADFOX09090
* 005157 3000517663 09100 JC S2ON,51 1 SADFOX09100
* 005164 3000000160 09110 STOP JD 1 SADFOX09110
* 005171 3000202633 09120 JC INPT,03333 SADFOX09120
005176 2600005713 09130 S2ON PD X3,11 SADFOX09130
005203 4400532713 09140 SC S2JL+4,X,XLP SADFOX09140
005210 2600542502 09150 PD S2MSE,2 2 SADFOX09150
* 005215 3000526500 09160 J S2ON1 SADFOX09160
005222 2060731020 09170 FT AREA1,T1T16,X3 SADFOX09170
005227 2000007122 09180 FT 071,T18 8 SADFOX09180
005234 2400533501 09190 TFR S2MSG-1515 SADFOX09190
005241 4440721071 09200 SC RUL,071,1,X2 SADFOX09200
005246 4421071101 09210 SC SW0,1,X1X1 SADFOX09210
005253 5640721306 09220 BA1 OR0,6,X2X2 SADFOX09220
* 005260 1002000300 09230 JR XLK SADFOX09230
005265 5600542542 09240 S2ON1 BD1 S2MSE,2 2 SADFOX09240
005272 6601145101 09250 AD1 ONE,1 SADFOX09250
005277 5200542502 09260 SA1 S2MSE,2 2 SADFOX09260
005304 6000004701 09270 AC X1,1 SADFOX09270
005311 6000005306 09280 AC X2,6 SADFOX09280
005316 6000005601 09290 AC X3-1,1 SADFOX09290
* 005323 3200522213 09300 S2JL JL S2ON+20,0,XLP SADFOX09300
* 005330 3000516400 09310 J STOP SADFOX09310
005354 ABCDEFGHIJKLMNOP 09320 S2MSG +16 _ABCDEFGFGHIJKLMNOP_ SADFOX09320 N
005366 QRSTUVWXYZ 09330 +10 _QRSTUVWVWXYZ_ SADFOX09330
005376 4037425563617541 09340 +8 0403742525563617541 SADFOX09340 5
005406 0304050607101112 09350 +8 0030405050607101112 SADFOX09350 1
005416 1314206202222116 09360 +8 0131420606202222116 SADFOX09360 1
005425 36357664000000 09370 S2MSE +7 03635766664000000 SADFOX09370 0
005426 4401073457 09380 ERR2 SC EM2+2,05057 KSR VT SADFOX09380 S
005433 3400004713 09390 CC 047,XUN1N1+1 SADFOX09390
* 005440 3000545241 09400 JG $+10 SADFOX09400
005445 4401073415 09410 SC EM2+2,01015 CU FF SADFOX09410
005452 5601073106 09420 BA1 OREM2,6 6 SADFOX09420
005457 5600004721 09430 BA2 X1,1 SADFOX09430
005464 5200001321 09440 SA2 11,1 UNIT SADFOX09440
* 005471 3000277300 09450 J PUSH SADFOX09450
* 005476 3000000260 09460 ERR3 JD 2 SADFOX09460
* 005503 3000000360 09470 ERR4 JD 3 SADFOX09470
* 005510 3000551000 09480 RMINT J $ SADFOX09480
* 005515 3001071051 09490 INT JC STOR+64,4,41 L IND SADFOX09490
005522 5201064761 09500 SAR STOR+31 1 ARS SADFOX09500
005527 5600007700 09510 BA1 X7,16 IRS SADFOX09510
005534 5201070700 09520 SA1 STOR+63,3,16 SADFOX09520
005541 2600007700 09530 PD X7,16 SADFOX09530
005546 4400570413 09540 SC INTJL+4,4,XLP SADFOX09540
005553 2600562701 09550 PD UNITX+4,4,1 SADFOX09550
005560 3562427400 09560 ILOOP CC XEL,0,X7X7 SADFOX09560
* 005565 3000577443 09570 JU ERR1 SADFOX09570
005572 3560026400 09580 CC XBSY,0,X,X7 SADFOX09580
* 005577 3000564743 09590 JU INCR SADFOX09590
005604 3561071101 09600 CC SW0,1,X7X7 SADFOX09600
* 005611 3000564741 09610 JG INCR NO ACTION SADFOX09610
* 005616 3000574342 09620 JE REPET REPEAT SEND SADFOX09620
005623 4400001300 09630 UNITX SC 11,0 SADFOX09630
005630 4400001540 09640 SC 13,32 SADFOX09640
005635 4560014301 09650 SC XPL,1,X7X7 SET BM POLL SADFOX09650
* 005642 1002000300 09660 ILK JR XLK START POLL OR SEND SADFOX09660
005647 6000007701 09670 INCR AC X7,1 MULT 1 IS X7 SADFOX09670
005654 6000007304 09680 AC X6,4 MULT 4 IS X6 SADFOX09680
005661 6000006706 09690 AC X5,6 MULT 6 IS X5 SADFOX09690
005666 6000006202 09700 AC X4-1,2 MULT 128 IS X4 SADFOX09700
005673 6000562701 09710 AC UNITX+4,4,1 SADFOX09710
* 005700 3200556003 09720 INTJL JL ILOOP,3 3 SADFOX09720
005705 5601070700 09730 BA1 STOR+63,3,16 SADFOX09730
005712 5200007700 09740 SA1 X7,16 RESTORE IRS SADFOX09740
005717 5601062700 09750 BA1 STOR+15,5,16 AR1 SADFOX09750
005724 5601064720 09760 BA2 STOR+31,1,16 AR2 SADFOX09760
* 005731 3001071052 09770 JC STOR+64,4,42 SADFOX09770
* 005736 3000551000 09780 J RMINT EXIT SADFOX09780
005743 5720721306 09790 REPET BA1 OR0,6,X5X5 REPEAT SEND SADFOX09790
005750 6400001520 09800 LS 13,020 SET VERTICAL TAB SADFOX09800
* 005755 3000564200 09810 J ILK SADFOX09810
* 005762 3000000560 09820 ER4 JD 5 SADFOX09820
* 005767 3000614500 09830 J ER3+5 SADFOX09830
005774 3400007712 09840 ERR1 CC X7,XUN1 1 SADFOX09840
* 006001 3000603244 09850 JS ER2 SADFOX09850
006006 3562427416 09860 CC XEL,XE1414,X7 KSR COMP ERROR SADFOX09860
* 006013 3000603243 09870 JU ER2 SADFOX09870
* 006020 1000617400 09880 JR KSRCE SADFOX09880
* 006025 3000564733 09890 JC INCR,03333 SADFOX09890
006032 5600655500 09900 ER2 BA1 LUMP,16 6 SADFOX09900
006037 5600007721 09910 BA2 X7,1 SADFOX09910
* 006044 1000644600 09920 JR OCT SADFOX09920
006051 5200001722 09930 SA2 15,2 SADFOX09930
006056 5762427421 09940 BA2 XEL,1,X7X7 SADFOX09940
* 006063 1000644600 09950 JR OCT SADFOX09950
006070 5200000722 09960 SA2 7,2 SADFOX09960
006075 5200141700 09970 SA1 PBASE+1515,16 SADFOX09970
* 006102 1000443100 09980 JR PRINT SADFOX09980
006107 3562427415 09990 CC XEL,XE1313,X7 SADFOX09990
* 006114 3000615742 10000 JE PADER SADFOX10000
006121 3562427412 10010 CC XEL,10,X,X7 SADFOX10010
* 006126 3000576242 10020 JE ER4 SADFOX10020
006133 3562427413 10030 CC XEL,11,X,X7 SADFOX10030
* 006140 3000576242 10040 ER3 JE ER4 SADFOX10040
006145 5600007701 10050 BA1 X7,1 SADFOX10050
* 006152 1000656100 10060 JR INTL SADFOX10060
006157 2762427401 10070 PADER PD XEL,1,X7X7 SADFOX10070
* 006164 3000564733 10080 JC INCR,03333 SADFOX10080
* 006171 3000617100 10090 KSRCE J $ KSR COMP ERROR PRINT SADFOX10090
006176 5600007721 10100 BA2 X7,1 SADFOX10100
* 006203 1000644600 10110 JR OCT SADFOX10110
006210 5200651422 10120 SA2 UNIT-9,2,2 SADFOX10120
006215 5741370321 10130 BA2 XIBA,1,X,X6 SADFOX10130
* 006222 1000644600 10140 JR OCT SADFOX10140
006227 5200653522 10150 SA2 IBCW,2 SADFOX10150
006234 2000140020 10160 FT PBASE,T1T16 SADFOX10160
006241 2000003022 10170 FT 24,T18 SADFOX10170
006246 2400650601 10180 TFR UNIT-15 5 SADFOX10180
* 006253 1000443100 10190 JR PRINT SADFOX10190
006260 2000140020 10200 FT PBASE,1616 SADFOX10200
006265 2000010022 10210 FT 64,18 SADFOX10210
006272 2501410001 10220 TFR XIBF,,X4X4 SADFOX10220
006277 4400011012 10230 SC 0110,XTTTT3 SADFOX10230
006304 1200147700 10240 TR PBASE+6363,64 SADFOX10240
* 006311 1000443100 10250 JR PRINT SADFOX10250
006316 2000140020 10260 FT PBASE,1616 SADFOX10260
006323 2000010022 10270 FT 64,18 SADFOX10270
006330 2501400001 10280 TFR XOBF,,X4X4 SADFOX10280
006335 1200147700 10290 TR PBASE+6363,64 SADFOX10290
* 006342 1000443100 10300 JR PRINT SADFOX10300
006347 5600007701 10310 BA1 X7,1 SADFOX10310
* 006354 1000656100 10320 JR INTL SADFOX10320
006361 4561071101 10330 SC SW0,1,X7X7 SADFOX10330
006366 4401073460 10340 SC EM2+2,06060 SADFOX10340
006373 3400007700 10350 CC X7,0 SADFOX10350
* 006400 3000641242 10360 JE $+10 SADFOX10360
006405 4401073457 10370 SC EM2+2,05057 SADFOX10370
006412 5600007721 10380 BA2 X7,1 SADFOX10380
006417 5601073106 10390 BA1 OREM2,6 6 SADFOX10390
006424 5200001321 10400 SA2 11,1 SADFOX10400
* 006431 1002000300 10410 JR XLK SADFOX10410
* 006436 3000617100 10420 J KSRCE SADFOX10420
* 006443 3000644300 10430 OCT J $ BINARY TO OCTAL SADFOX10430
006450 2600003601 10440 PD 30,1 SADFOX10440
006455 1600003723 10450 BS2 31,3 SADFOX10450
006462 1600003753 10460 BC1 31,3 SADFOX10460
006467 6000003703 10470 AC 31,3 SADFOX10470
006474 6000003603 10480 AC 30,3 SADFOX10480
* 006501 3000644300 10490 J OCT SADFOX10490
006525 UNIT CMP ERR 10500 UNIT +16 _UNIT CMP ERR _ SADFOX10500 R
006535 IBCW 10510 IBCW +8 _IBCW _ SADFOX10510
006555 ERROR UNIT 10520 LUMP +16 _ERROR UNIT _ SADFOX10520
* 006556 3000655633 10530 INTL JC $,033 INITIALIZE SADFOX10530
* 006563 3000657032 10540 JC $+5,032 2 SADFOX10540
006570 4200716411 10550 ST IX1,X1 SADFOX10550
006575 4200717012 10560 ST IX2,X2 SADFOX10560
006602 2600005310 10570 PD X2,8 SADFOX10570
006607 5200004701 10580 SA1 X1,1 IN TO X1 SADFOX10580
006614 4421071102 10590 SC SW0,2,X1X1 SADFOX10590
006621 4420013040 10600 SC XPCW,32,2,X1 SADFOX10600
006626 4420026401 10610 SC XBSY,1,X,X1 SADFOX10610
006633 2620015601 10620 PD XSW,1,X1X1 SADFOX10620
006640 2622375001 10630 PD XTI,1,X1X1 SADFOX10630
006645 2622427401 10640 PD XEL,1,X1X1 SADFOX10640
006652 4420014301 10650 SC XPL,1,X1X1 SADFOX10650
006657 5200005301 10660 SA1 X2,1 SADFOX10660
006664 1600005312 10670 BS1 X2,2 4N TO X2 SADFOX10670
006671 1600004737 10680 BS3 X1,7 128N TO X1 SADFOX10680
006676 3400001712 10690 CC 15,XUN1 1 SADFOX10690
006703 4421407750 10700 SC XOBF+63,3,XME,X1 SADFOX10700
* 006710 3000700444 10710 JS INTL1 SADFOX10710
006715 4421400033 10720 SC XOBF,XEOEOT,X1 SADFOX10720
006722 4421400133 10730 SC XOBF+1,X,XEOT,X1 SADFOX10730
006727 2641370304 10740 PD XIBA,4,X,X2 SADFOX10740
006734 4642410154 10750 BT XMIT,44,4,X2 SADFOX10750
006741 2642376604 10760 PD XEC,4,X2X2 SADFOX10760
006746 4060220000 10770 XF 022,0,0,0,3 SADFOX10770
* 006753 3200675377 10780 JL $,63 SADFOX10780
006760 4400675777 10790 SC $-1,63 SADFOX10790
* 006765 3200675374 10800 JL $-10,60 0 SADFOX10800
006772 4400677174 10810 SC $-1,60 SADFOX10810
006777 4421407741 10820 SC XOBF+63,3,XCMA,X1 SADFOX10820 1
007004 5200004701 10830 INTL1 SA1 X1,1 SADFOX10830
* 007011 1002044500 10840 JR XSEND SADFOX10840
007016 2600004701 10850 PD X1,1 SADFOX10850
* 007023 3000655640 10860 INTL2 JC INTL,04040 SADFOX10860
007030 4060402000 10870 XF 32,0200000,0,3 RESET DF SADFOX10870
007035 4060002000 10880 XF 0,02000,0,0,3 TEST DF SADFOX10880
* 007042 3000705453 10890 JC $+10,43 3 SADFOX10890
* 007047 3000703500 10900 J $-10 SADFOX10900
007054 4060402000 10910 XF 32,0200000,0,3 RESET DF SADFOX10910
* 007061 1000711000 10920 JR INPAD SADFOX10920
007066 4600716411 10930 BT IX1,X1 SADFOX10930
007073 4600717012 10940 BT IX2,X2 SADFOX10940
* 007100 3000655600 10950 J INTL SADFOX10950
* 007105 3000710500 10960 INPAD J $ SADFOX10960
007112 2641370304 10970 PD XIBA,4,X,X2 SADFOX10970
007117 2000017722 10980 FT 127,T18 8 SADFOX10980
007124 2021400120 10990 FT XOBF+1,T,T16,X1 SADFOX10990
007131 2621400001 11000 PD XOBF,1,X,X1 SADFOX11000
007136 2421400001 11010 TFR XOBF,,X1X1 CLEAR BUFFERS SADFOX11010
007143 2642376402 11020 PD XTC,2,X2X2 SADFOX11020
* 007150 3000710500 11030 J INPAD SADFOX11030
007160 CARD 11040 CARD +4 _CARD_ SADFOX11040
007164 00000000 11050 IX1 +4 0 SADFOX11050
007170 00000000 11060 IX2 +4 0 SADFOX11060
007173 360007 11070 +3 0360007 7 SADFOX11070
007176 007177 11080 OREM1 +3 EM1 SADFOX11080
007177 11090 EM1 EQU $ SADFOX11090
007205 ERROR 11100 +7 _ERROR _ SADFOX11100
007210 360067 11110 RUL +3 0360067 7 REMOTE IRRN, UNIT, LENGTH SADFOX11110
007213 007310 11120 OR0 +3 AREA1 SADFOX11120
007216 360167 11130 +3 0360167 7 SADFOX11130
007221 007410 11140 +3 AREA1+6464 SADFOX11140
007224 360267 11150 +3 0360267 7 SADFOX11150
007227 007510 11160 +3 AREA1+12128 SADFOX11160
007232 360367 11170 +3 0360367 7 SADFOX11170
007235 007610 11180 +3 AREA1+19192 SADFOX11180
007240 360467 11190 +3 0360467 7 SADFOX11190
007243 007710 11200 +3 AREA1+25256 SADFOX11200
007246 360567 11210 +3 0360567 7 SADFOX11210
007251 010010 11220 +3 AREA1+32320 SADFOX11220
007254 360667 11230 +3 0360667 7 SADFOX11230
007257 010110 11240 +3 AREA1+38384 SADFOX11240
007262 360767 11250 +3 0360767 7 SADFOX11250
007265 010210 11260 +3 AREA1+44448 SADFOX11260
007270 361067 11270 +3 0361067 7 SADFOX11270
007273 010310 11280 +3 AREA1+51512 SADFOX11280
007276 361167 11290 +3 0361167 7 SADFOX11290
007301 010410 11300 +3 AREA1+57576 SADFOX11300
007304 361267 11310 +3 0361267 7 SADFOX11310
007307 010510 11320 +3 AREA1+64640 SADFOX11320
007310 1300 11330 AREA1 AREA 704 SADFOX11330
010610 101 11340 STOR AREA 65 SADFOX11340
010711 13 11350 SW0 AREA 11 SADFOX11350
010726 360012 11360 +3 0360012 2 SADFOX11360
010731 010732 11370 OREM2 +3 EM2 SADFOX11370
010732 11380 EM2 EQU $ SADFOX11380
010740 01015701305454 11390 +7 0101570101305454 SADFOX11390
010743 515422 11400 +3 0515422 2 SADFOX11400
* 010744 3001074400 11410 XREAD J $ SADFOX11410
010751 2000060044 11420 FT 0600,36 6 SADFOX11420
010756 4020610100 11430 XF 061,0010100,0,1 SADFOX11430
010763 2000060040 11440 FT 0600,32 2 SADFOX11440
010770 2000000141 11450 FT 1,33 SADFOX11450
010775 4000620000 11460 XF 062,00,0,0,0 SADFOX11460
* 011002 3001074400 11470 J XREAD SADFOX11470
* 011007 3000000031 11480 JC 0,25 SADFOX11480
011016 011017 11490 CH0IE +3 XPRTI SADFOX11490
011017 4000007777 11500 XPRTI XF 0,07777,7,0,0 SADFOX11500
* 011024 3001103600 11510 JC $+10 SADFOX11510
* 011031 3000040000 11520 J 0400 SADFOX11520
* 011036 3000330060 11530 JD 03300 SADFOX11530
011043 4000407777 11540 XF 32,0777777,0,0 SADFOX11540
011050 4000620000 11550 XF 062,0,0,0,0 SADFOX11550
* 011055 3000040000 11560 J 0400 SADFOX11560
* 011062 3000000036 11570 JC 0,30 SADFOX11570
011071 011102 11580 +3 CL1 SADFOX11580
* 011072 3000000035 11590 JC 0,29 SADFOX11590
011101 011107 11600 CL12 +3 CL2 SADFOX11600
* 011102 3000110160 11610 CL1 JD 01101 CLASS I INTERRUPT SADFOX11610
* 011107 3000220160 11620 CL2 JD 02201 CLASS II INTERRUPT SADFOX11620
* 011114 3000000460 11630 JAMSN JD 4 SENSE SW 3 OPTION SADFOX11630
011121 2600005713 11640 PD X3,11 SADFOX11640
011126 5600000021 11650 BA2 0,1 SADFOX11650
011133 5200004721 11660 SA2 X1,1 SADFOX11660
011140 5200005321 11670 SA2 X2,1 SADFOX11670
011145 1600005312 11680 BS1 X2,2 SADFOX11680
011152 5200005621 11690 SA2 X3-1,1 SADFOX11690
011157 1600005611 11700 BS1 X3-1,1 SADFOX11700
011164 2641370304 11710 PD XIBA,4,X,X2 SADFOX11710
011171 5600000121 11720 BA2 1,1 SADFOX11720
011176 5261400021 11730 SA2 XOBF,1,X,X3 SADFOX11730
011203 2061400120 11740 FT XOBF+1,T,T16,X3 SADFOX11740
011210 2000007722 11750 FT 63,T18 SADFOX11750
011215 2461400001 11760 TFR XOBF,,X3X3 SADFOX11760
* 011222 1002050300 11770 JR XSND SADFOX11770
* 011227 3000454620 11780 JHJ ON SADFOX11780
011234 6000046305 11790 DRMER AC 0463,5 SADFOX11790
011241 4140007777 11800 XF 0,07777,7,0,6 SADFOX11800
* 011246 3001126053 11810 JC $+10,43 3 SADFOX11810
* 011253 3000046032 11820 JC 0460,03232 SADFOX11820
* 011260 3000330660 11830 JD 03306 SADFOX11830
011265 4140407777 11840 XF 32,0777777,0,6 SADFOX11840
* 011272 3000046032 11850 JC 0460,03232 SADFOX11850
011277 4100000040 11860 TAPER XF 0,040,0,0,4 SADFOX11860
* 011304 3001133553 11870 JC TPER1,4343 SADFOX11870
* 011311 3000330460 11880 JD 03304 SADFOX11880
011316 4100407777 11890 XF 32,0777777,0,4 SADFOX11890
011323 4400341540 11891 SC TB1+4,04040 SADFOX11891
* 011330 3000374031 11900 JC DRUM,25 5 SADFOX11900
011335 4100407777 11910 TPER1 XF 32,0777777,0,4 SADFOX11910
011342 4100611000 11920 XF 061,0100000,0,4 SADFOX11920
011347 5601140513 11930 BA1 TPERL,1111 SADFOX11930
011354 5200141213 11940 SA1 PBASE+1010,11 SADFOX11940
* 011361 1000443100 11950 JR PRINT SADFOX11950
* 011366 3000421231 11960 JC PUNCH,2525 SADFOX11960
011405 TAPE PARITY 11970 TPERL +11 _TAPE PAPARITY_ SADFOX11970
* 011406 3000330260 11980 PCHER JD 03302 SADFOX11980
011413 4040407777 11990 XF 32,0777777,0,2 SADFOX11990
* 011420 3000042000 12000 J 0420 SADFOX12000
* 011425 3000330560 12010 TWRER JD 03305 SADFOX12010
011432 4120407777 12020 XF 32,0777777,0,5 SADFOX12020
011437 4400341540 12021 SC TB1+4,04040 SADFOX12021
* 011444 3000374031 12030 JC DRUM,25 5 SADFOX12030
011451 04 12040 ONE +1 04 SADFOX12040
011452 00 12050 TCTR1 +1 0 SADFOX12050
011453 00 12060 TCTR2 +1 0 SADFOX12060
011473 0000000000000000 12070 CL2AR +16 0 SADFOX12070
011474 00 12080 CL2LI +1 0 SADFOX12080
011514 0000000000000000 12090 MLCTR +16 0 SADFOX12090
011515 520 12100 FILL AREA 336,A,07074 SADFOX12100
012235 520 12110 BASED AREA 336 SADFOX12110
012235 12120 DBASE EQU BASED SADFOX12120
012773 DA COMP ERROR 12130 DCERR +15 _ DA COCOMP ERROR_ SADFOX12130 O
013012 TA COMP ERROR 12140 TCERR +15 _ TA COCOMP ERROR_ SADFOX12140 O
013027 CLOCK NOT SET 12150 CNSET +13 _CLOCK N NOT SET_ SADFOX12150 _
* 013030 3000000031 12160 JC 0,25 SADFOX12160
013037 020562 12170 CH3IE +3 XCAIE SADFOX12170
013040 00 12180 XBM77 +1 0 SADFOX12180
* 013041 3000000031 12190 JC 0,25 SADFOX12190
013050 013051 12200 CH1IE +3 XBMIE SADFOX12200
* 013051 3000330160 12210 XBMIE JD 03301 SADFOX12210
013056 4020407777 12220 XF 040,0777777,0,1 SADFOX12220
* 013063 3000041000 12230 J 0410 SADFOX12230
* 013070 3000000031 12240 JC 0,25 SADFOX12240
013077 011234 12250 CH6IE +3 DRMER SADFOX12250
* 013100 3000000031 12260 JC 0,25 SADFOX12260
013107 011277 12270 CH4IE +3 TAPER SADFOX12270
* 013110 3000000031 12280 JC 0,25 SADFOX12280
013117 011406 12290 CH2IE +3 PCHER SADFOX12290
* 013120 3000000031 12300 JC 0,25 SADFOX12300
013127 011425 12310 CH5IE +3 TWRER SADFOX12310
013676 12320 XIBC6 EQU 013676 SADFOX12320
013700 12330 XIBF6 EQU 013700 SADFOX12330
000161 12340 XSTRT EQU 0161 TURN ON SADFOX12340
000162 12350 XSTOP EQU 0162 TURN OFF SADFOX12350
000164 12360 XSETC EQU 0164 SET CLOCK SADFOX12360
000047 12370 X1 EQU 39 SADFOX12370
000053 12380 X2 EQU X1+4 SADFOX12380
000057 12390 X3 EQU X2+4 SADFOX12390
000063 12400 X4 EQU X3+4 SADFOX12400
000103 12410 T16 EQU 0103 SADFOX12410
000107 12420 T17 EQU T16+4 SADFOX12420
000113 12430 T18 EQU T17+4 SADFOX12430
000067 12440 X5 EQU X4+4 SADFOX12440
000073 12450 X6 EQU X5+4 SADFOX12450
000077 12460 X7 EQU X6+4 SADFOX12460
000210 12470 ORIG 00210 SADFOX12470
* 000210 3002441200 12480 J SNAP SADFOX12480
3000160000 12490 END START SADFOX12490
{-- tape mark --}
018133 C131 PREP CODEDIT SOURCE A T3834394-13
001500 00010 T130 BEGIN 01500 PREP-A PREP 00010
*LOAD 0700,TAPAPE,R,PRELD E
* 001500 3007010660 * JD 070106 *
* 001505 3000150000 * J $-5 *
SEGMENT-ID T131 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 T132 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 T133 3000136300 * SEGJP $ *
000700 00020 ORIG 448 OCT 700 PREP 00020
000700 00 00030 HSTR +1 0 PREP 00030
000701 4027 00040 AREA 2071 PREP 00040
000711 00050 HSTRY EQU HSTR+9 PREP 00050
004730 1000 00060 AREAA AREA 512 PREP 00060
005730 1000 00070 AREAB AREA 512 PREP 00070
006730 1000 00080 KEYAR AREA 512,B,07077 PREP 00080
000140 00090 ORIG 0140 PREP 00090
000143 00000000 00100 OP11 +4 0 PREP 00100
000147 00000000 00110 OP22 +4 0 PREP 00110
000153 00000000 00120 OP33 +4 0 PREP 00120
000157 00000000 00130 OP44 +4 0 PREP 00130
000163 00140 OP1 EQU 0163 TETRAP 28 PREP 00140
000167 00150 OP2 EQU 0167 TETRAD 29 PREP 00150
000173 00160 OP3 EQU 0173 TETRAD 30 PREP 00160
000177 00170 OP4 EQU 0177 TETRAD 31 PREP 00170
000213 00180 RVIS EQU 0213 PREP 00180
000160 00190 ORIG 0160 PREP 00190
000163 40001001 00200 +4 04000100001 PREP 00200
000167 00000000 00210 +4 00000000000 PREP 00210
000173 01373700 00220 +4 00137370700 PREP 00220
000177 70707003 00230 +4 07070700003 PREP 00230
007730 00240 ORIG KEYAR+51512 PREP 00240
007737 START 00250 BEG +8 _START _ PREP 00250
* 007740 3000000031 00260 JC 0,25 PREP 00260
007747 014322 00270 IE6 +3 IPT6 PREP 00270
007753 20000000 00280 OP5 +4 02000000000 PREP 00280
007754 1 00300 IN1 +1 _1_ PREP 00300
007755 5600773710 00310 START BA1 BEG,8 PREP 00310
007762 5201412410 00320 SA1 ERRCD,8 8 PREP 00320
* 007767 1001372400 00330 JR PRTSP PREP 00330
007774 5600017700 00340 BA1 OP4,16 PREP 00340
* 010001 3000000360 00350 OPTIN JC 03,48 OPTION STOP PREP 00350
010006 4600021342 00360 BT RVIS,34 4 PREP 00360
010013 5200017700 00370 SA1 OP4,16 SAVE CONTROL DATA PREP 00370
010020 5200015700 00380 SA1 OP44,16 6 TETRAD 28,29,30,31 PREP 00380
* 010025 1001246300 00390 STRT JR DIZE PREP 00390
* 010032 1001447300 00400 JR BIZE PREP 00400
010037 5600014623 00410 BA2 OP22-1,3,3 PREP 00410
010044 1400016002 00420 TT LC OP1-3,0202 PREP 00420
* 010051 3001057043 00430 JC MAN,35 PREP 00430
* 010056 1001451700 00440 JR T1 PREP 00440
* 010063 3001057500 00450 J MAN+5 PREP 00450
* 010070 3000000000 00460 SCAN1 J 0 PREP 00460
010075 2600005714 00470 PD 057,12 PREP 00470
010102 2000300013 00480 FT 1536,11 1 PREP 00480
010107 5601552610 00490 HST01 BA1 SEVNS,8 8 PREP 00490
010114 2600005304 00500 PD 053,4 CLEAR IR2 PREP 00500
010121 7020673445 00510 CB1 KEYAR+4,4,5,1 TEST IF ANY KEYINS EXIST PREP 00510
* 010126 3001022742 00520 JE SET7 PREP 00520
* 010133 1001027000 00530 JR TKEY PREP 00530
010140 4401103577 00540 SC AD,63 PREP 00540
010145 3420673014 00550 CC KEYAR,01014,1 TEST IF KYE-IN IS INSERT PREP 00550
* 010152 3001053242 00560 JE HST02 PREP 00560
010157 4401103500 00570 SC AD,0 PREP 00570
010164 3420673000 00580 CC KEYAR,0,0,1 TEST IF DELETION PREP 00580
* 010171 3001074142 00590 JE HST03 PREP 00590
010176 5601052130 00600 BA2 KYER,8 PREP 00600
010203 5201412430 00610 SA2 ERRCD,8 8 PREP 00610
* 010210 1001372400 00620 JR PRTSP PREP 00620
* 010215 3000001160 00630 ROO JC 011,48 PREP 00630
* 010222 3001010700 00640 JC HST01 PREP 00640
010227 4400673077 00650 SET7 SC KEYAR,07077 PREP 00650
010234 2600011314 00660 PD 0113,12 2 PREP 00660
010241 2000673120 00670 FT KEYAR+1,1,16 PREP 00670
010246 2000077722 00680 FT 511,18 PREP 00680
010253 2400673021 00690 TFI KEYAR PREP 00690
* 010260 3001007000 00700 J SCAN1 PREP 00700
* 010265 3000000000 00710 TKEY J 0 PREP 00710
010272 5600017021 00720 BA2 OP3-3,1 1 PREP 00720
010277 5400003774 00730 LP 037,074 4 PREP 00730
010304 5201031521 00740 SA2 TKU+4,1 1 PREP 00740
010311 1420673100 00750 TKU LC KEYAR+1,1,0,1 PREP 00750
* 010316 3001036642 00760 JE HDAB PREP 00760
010323 5601047710 00770 BA1 TIKI,8 KEYER01 U.L. UNIT PREP 00770
010330 5201412410 00780 SA1 ERRCD,8 8 DOES NO EQ. KEYIN UNIT PREP 00780
010335 4401412404 00790 SC ERRCD,0404 PREP 00790
010342 5620673710 00800 BA1 KEYAR+7,7,8,1 PREP 00800
* 010347 1001703000 00810 JR EDITX PREP 00810
* 010354 1001372400 00820 JR PRTSP PREP 00820
* 010361 3000775500 00830 J START PREP 00830
010366 3400017240 00840 HDAB CC OP3-1,3232 PREP 00840
* 010373 3001041241 00850 JC DRMA,33 3 PREP 00850
010400 4401046777 00860 DRMB SC ABX,63 PREP 00860
* 010405 3001041700 00870 J THDAB PREP 00870
010412 4401046700 00880 DRMA SC ABX,0 PREP 00880
010417 3420673340 00890 THDAB CC KEYAR+3,3,32,1 PREP 00890
* 010424 3001045041 00900 JC KA,33 PREP 00900
010431 3401046777 00910 CC ABX,63 PREP 00910
* 010436 3001050043 00920 JU JOKE PREP 00920
* 010443 3001046200 00930 J OK PREP 00930
010450 3401046700 00940 KA CC ABX,0 PREP 00940
* 010455 3001050043 00950 JU JOKE PREP 00950
* 010462 3001026500 00960 OK J TKEY PREP 00960
010467 00 00970 ABX +1 0 PREP 00970
010477 TKEY 00980 TIKI +8 _TKEY _ PREP 00980
* 010500 3001050060 00990 JOKE JD JOKE PREP 00990
* 010505 3000775500 01000 J START PREP 01000
010521 ER 1 01010 KYER +8 _ER 1_ PREP 01010
010531 ER 2 01020 KYER1 +8 _ER 2_ PREP 01020
010532 7040071544 01030 HST02 CB1 HSTRY+4,4,4,2 PREP 01030
* 010537 3001064042 01040 JE HST05 PREP 01040
010544 6000005310 01050 AC 053,8 PREP 01050
010551 7400005712 01060 CT 057,10 IR2 EQ. IR3 EQ 1536 PREP 01060
* 010556 3001060742 01070 JE OFSTP BAD SECTORS EXCEED 3 TRKS PREP 01070
* 010563 3001053200 01080 J HST02 PREP 01080
* 010570 1001314600 01090 MAN JR GENH PREP 01090
* 010575 1001007300 01100 JR SCAN1 PREP 01100
* 010602 3001104600 01110 J WRGEN PREP 01110
010607 5601053130 01120 OFSTP BA2 KYER1,8 8 PREP 01120
010614 5201412430 01130 SA2 ERRCD,8 8 PREP 01130
* 010621 1001372400 01140 JR PRTSP PREP 01140
* 010626 3000000660 01150 JC 06,48 PREP 01150
* 010633 3001007000 01160 JC SCAN1 PREP 01160
010640 5620673730 01170 HST05 BA2 KEYAR+7,7,8,1 PREP 01170
010645 3401103577 01180 CC AD,63 PREP 01180
* 010652 3001066442 01190 JE $+10 PREP 01190
* 010657 3001101100 01200 J HST06 PREP 01200
010664 5240072030 01210 SA2 HSTRY+7,7,8,2 PREP 01210
010671 6000004710 01220 AC 047,8 INCR. IR1 PREP 01220
* 010676 3001010700 01230 J HST01 PREP 01230
* 010703 3000000000 01240 SWN J 0 PREP 01240
010710 5601553305 01250 BA1 WRTN+4,5,5 PREP 01250
010715 5201145405 01260 SA1 W1+4,5 PREP 01260
010722 5601554505 01270 BA1 RDN+4,5 5 PREP 01270
010727 5201560305 01280 SA1 R1+4,5 PREP 01280
* 010734 3001070300 01290 J SWN PREP 01290
010741 5601104530 01300 HST03 BA2 DELX,8 PREP 01300
010746 5201412430 01310 SA2 ERRCD,8 8 PREP 01310
010753 5620673730 01320 BA2 KEYAR+7,7,8,1 PREP 01320
010760 5201724630 01330 SA2 KEYOR+7,7,8 PREP 01330
* 010765 1001703000 01340 JR EDITX PREP 01340
* 010772 1001372400 01350 JR PRTSP PREP 01350
010777 5620071505 01360 BA1 HSTRY+4,4,5,1 PREP 01360
* 011004 3001053200 01370 J HST02 PREP 01370
011011 5601552610 01380 HST06 BA1 SEVNS,8 8 PREP 01380
011016 5240072010 01390 SA1 HSTRY+7,7,8,2 PREP 01390
011023 6000004710 01400 AC 047,08 PREP 01400
* 011030 3001010700 01410 JC HST01 PREP 01410
011035 00 01420 AD +1 0 PREP 01420
011045 DELETE 01430 DELX +8 _DELETE E _ PREP 01430
011046 2600006710 01440 WRGEN PD 067,8 CLEAR IR 4 + 5 PREP 01440
* 011053 1001070600 01450 JR SWN SET WRITE NORMAL PREP 01450
011060 4401177140 01460 SC TLIM+4,3,32 PREP 01460
011065 2000100015 01470 FT 512,13 PREP 01470
011072 5600014724 01480 BA2 OP22,4 PREP 01480
011077 5200034724 01490 SA2 0347,4 SET TET 57 PREP 01490
011104 5200001720 01500 SA2 017,16 PREP 01500
011111 5300473404 01510 FIXA SA1 AREAA+4,4,4,4 PREP 01510
011116 4500473014 01520 SC AREAA,01014,4 PREP 01520
011123 5600015623 01530 BA2 OP44-1,3,3 PREP 01530
011130 5300473723 01540 SA2 AREAA+7,7,3,4 PREP 01540
011135 6000001701 01550 AC 017,1 PREP 01550
011142 6000006310 01560 AC 063,8 PREP 01560
011147 7400006315 01570 CT 063,13 PREP 01570
* 011154 3001116642 01580 JE SCAN2 PREP 01580
* 011161 3001111100 01590 J FIXA PREP 01590
011166 2600006300 01600 SCAN2 PD 063,16 CLEAR IRS 1,2,3 PREP 01600
011173 2000300013 01610 FT 1536,11 1 SET CHAR 3RD OVF TRK TO IR3PREP 01610
011200 5600014603 01620 BA1 OP22-1,3,3 U,T,H OF LOW. LIM. MODIFIED PREP 01620
011205 7020071443 01630 SRCH CB1 HSTRY+3,3,3,1 PREP 01630
* 011212 3001124342 01640 JE LOADA PREP 01640
011217 6000004710 01650 NXT AC 047,8 PREP 01650
011224 7400004713 01660 CT 047,11 PREP 01660
* 011231 3001142442 01670 JE WRITE PREP 01670
* 011236 3001120000 01680 J SRCH-5 PREP 01680
011243 2600005304 01690 LOADA PD 053,4 PREP 01690
011250 2000100014 01700 FT 512,12 PREP 01700
011255 5620071525 01710 BA2 HSTRY+4,4,5,1 PREP 01710
011262 7040473465 01720 SRCHA CB2 AREAA+4,4,5,2 TEST 5 CHAR. OF OUF EQ ANY PREP 01720
* 011267 3001135442 01730 JE PDA 5 CHAR IN AREA A PREP 01730
011274 6000005310 01740 AC 053,8 INCREMENT IR2 PREP 01740
011301 7400005314 01750 CT 053,12 PREP 01750
* 011306 3001132042 01760 JE LOST PREP 01760
* 011313 3001126200 01770 J SRCHA PREP 01770
011320 5601136210 01780 LOST BA1 X2+7,8 PREP 01780
011325 5201412410 01790 SA1 ERRCD,8 8 PREP 01790
* 011332 1001372400 01800 JR PRTSP PREP 01800
* 011337 3000775500 01810 JC START PREP 01810
011353 LOST 01820 X2 +8 _LOST _ PREP 01820
011354 5620072030 01830 PDA BA2 HSTRY+7,7,8,1 PREP 01830
011361 5201724630 01840 SA2 KEYOR+7,7,8 PREP 01840
011366 5601723610 01850 BA1 SPUT,8 PREP 01850
011373 5201412410 01860 SA1 ERRCD,8 8 PREP 01860
* 011400 1001703000 01870 JR EDITX PREP 01870
* 011405 1001372400 01880 JR PRTSP PREP 01880
011412 2640473710 01890 PD AREAA+7,7,8,2 PREP 01890
* 011417 3001121700 01900 J NXT PREP 01900
011424 2000473070 01910 WRITE FT AREAA,5656 SET BASE ADDRESS PREP 01910
011431 4400034020 01920 SC 0340,16 6 SET SECTOR COUNT PREP 01920
011436 1400775040 01930 LC OP5-3,04040 SKIP WRITES, OPTION T PREP 01930
* 011443 3001145542 01940 JC $+10,34 4 PREP 01940
011450 4140662000 01950 W1 XF 066,0200000,0,6 WRITE DRUM PREP PREP 01950
011455 5600016001 01960 BA1 OP1-3,1 1 PREP 01960
011462 5400001704 01970 LP 017,4 PREP 01970
011467 3400001704 01980 CC 017,4 PREP 01980
* 011474 3001150642 01990 JE TRCTR WRITE ONLY PREP 01990
* 011501 1001555600 02000 JR COMPX PREP 02000
011506 2600001702 02010 TRCTR PD 017,2 PREP 02010
011513 7000014341 02020 CB1 OP11,1 PREP 02020
* 011520 3001157542 02030 JE SFCTR PREP 02030
011525 4400001701 02040 SC 017,1 TEST TRACK REPEAT CNTR PREP 02040
011532 7200014341 02050 SB1 OP11,1 PREP 02050
011537 4400001700 02060 SC 017,0 PREP 02060
011544 7000014341 02070 CB1 OP11,1 PREP 02070
* 011551 3001157542 02080 JE SFCTR PREP 02080
011556 3401177140 02090 REP CC TLIM+4,3,32 PREP 02090
* 011563 3001104642 02100 JE WRGEN PREP 02100
* 011570 3001223700 02110 J LOTA PREP 02110
011575 5600016302 02120 SFCTR BA1 OP1,2 RESET TRACK REPEAT CNTR PREP 02120
011602 5200014302 02130 SA1 OP11,2 PREP 02130
011607 3400014100 02140 CC OP11-2,0,0 PREP 02140
* 011614 3001174142 02150 JE RSSFT PREP 02150
011621 6000014177 02160 AC OP11-2,6,63 PREP 02160
011626 5600016001 02170 BA1 OP1-3,1 1 PREP 02170
011633 5200014001 02180 SA1 OP11-3,1,1 PREP 02180
011640 5600015603 02190 BA1 OP44-1,3,3 PREP 02190
011645 1600001771 02200 BC3 017,1 PREP 02200
011652 5200015603 02210 SA1 OP44-1,3,3 PREP 02210
* 011657 3001155600 02220 J REP PREP 02220
011664 5601551630 02230 IP BA2 LM,8 PREP 02230
011671 5201412430 02240 SA2 ERRCD,8 8 PREP 02240
011676 4401412404 02250 SC ERRCD,4 4 PREP 02250
* 011703 1001372400 02260 JR PRTSP PREP 02260
011710 5600016001 02270 BA1 OP1-3,1 1 PREP 02270
011715 5400001710 02280 LP 017,010 0 PREP 02280
011722 3400001710 02290 CC 017,010 0 PREP 02290
* 011727 3001210542 02300 JE ENDD PREP 02300
* 011734 3001220600 02310 J OPREP PREP 02310
011741 5600016101 02320 RSSFT BA1 OP1-2,1 1 PREP 02320
011746 5200014101 02330 SA1 OP11-2,1,1 PREP 02330
011753 5600017603 02340 BA1 OP4-1,3 3 PREP 02340
011760 5200015603 02350 SA1 OP44-1,3,3 PREP 02350
* 011765 3001236440 02360 TLIM JC OLIM,32 2 PREP 02360
011772 5600014603 02370 BA1 OP22-1,3,3 TEST UPPER EQ. LOWER PREP 02370
011777 7000015243 02380 CB1 OP33-1,3,3 PREP 02380
* 012004 3001166442 02390 JE IP PREP 02390
012011 3400014637 02400 CC OP22-1,3,31 PREP 02400
* 012016 3001204742 02410 JE RSH PREP 02410
012023 3400014677 02420 CC OP22-1,6,63 PREP 02420
* 012030 3001206642 02430 JE RSHH PREP 02430
012035 6000014601 02440 AC OP22-1,1,1 PREP 02440
* 012042 3001104600 02450 J WRGEN PREP 02450
012047 4400014600 02460 RSH SC OP22-1,0,0 PREP 02460
012054 6000014501 02470 AC OP22-2,1,1 PREP 02470
* 012061 3001104600 02480 J WRGEN PREP 02480
012066 4400014640 02490 RSHH SC OP22-1,3,32 PREP 02490
012073 6000014501 02500 AC OP22-2,1,1 PREP 02500
* 012100 3001104600 02510 J WRGEN PREP 02510
012105 5601551630 02520 ENDD BA2 LM,8 PREP 02520
012112 5201412430 02530 SA2 ERRCD,8 8 PREP 02530
012117 4401412405 02540 SC ERRCD,5 5 PREP 02540
* 012124 1001372400 02550 JR PRTSP PREP 02550
* 012131 3000000560 02560 CHOSE JD 05 PREP 02560
* 012136 3001057562 02570 JC MAN+5,5050 PREP 02570
* 012143 3001220600 02580 J OPREP PREP 02580
* 012150 3000000000 02590 SETW J 0 PREP 02590
012155 5601554005 02600 BA1 WRTO+4,5,5 PREP 02600
012162 5201145405 02610 SA1 W1+4,5 PREP 02610
012167 5601555205 02620 BA1 RDO+4,5 5 PREP 02620
012174 5201560305 02630 SA1 R1+4,5 PREP 02630
* 012201 3001215000 02640 J SETW PREP 02640
* 012206 1001215300 02650 OPREP JR SETW SET WRITE WITH OUF BIT PREP 02650
012213 4600071026 02660 BT HSTR+8,2,22 PREP 02660
012220 4600372427 02670 BT HSTRY+151547,23 PREP 02670
012225 4401177100 02680 SC TLIM+4,0,0 PREP 02680
012232 2600011300 02690 PD 0113,16 6 PREP 02690
012237 2000100022 02700 LOTA FT 512,18 PREP 02700
012244 2000473020 02710 FT AREAA,1616 PREP 02710
012251 2560071101 02720 TFR HSTRY,1,1,7 PREP 02720
012256 4600013371 02730 BT 0133,57 7 PREP 02730
* 012263 3001142400 02740 L J WRITE PREP 02740
* 012270 3000000000 02750 FXLIM J 0 JUMP HERE FROM DIZE PREP 02750
012275 5600016401 02760 BA1 OP2-3,1 1 PREP 02760
012302 5400001774 02770 LP 017,074 4 PREP 02770
012307 5200013001 02780 SA1 0130,1 SET UNIT OT OVF,LOWER PREP 02780
012314 5200013401 02790 SA1 0134,1 DITTO UPPER PREP 02790
012321 2000000026 02800 FT 0,22 SET LOWER OVF LIMIT OT ZERO PREP 02800
012326 4400013700 02810 SC 0137,0 SET UPPER LIM OVF,SECTOR PREP 02810
012333 4400013600 02820 SC 0136,0 DITTO HEAD PREP 02820
012340 4400013503 02830 SC 0135,3 DITTO TRACK PREP 02830
012345 2600013303 02840 PD 0133,3 TO 95 PREP 02840
* 012352 3001227000 02850 J FXLIM PREP 02850
* 012357 3001150600 02860 RDGEN J TRCTR PREP 02860
012364 7400013327 02870 OLIM CT 0133,23 3 PREP 02870
* 012371 3001253642 02880 JE DONE PREP 02880
012376 3400013220 02890 CC 0132,02020 PREP 02890
* 012403 3001244142 02900 JE FOR PREP 02900
012410 3400013260 02910 CC 0132,06060 PREP 02910
* 012415 3001244142 02920 JE FOR PREP 02920
012422 6000013210 02930 UPX AC 0132,01010 PREP 02930
012427 2160100017 02940 FT 512,15,7,7 PREP 02940
* 012434 3001223700 02950 J LOTA PREP 02950
012441 2160001417 02960 FOR FT 12,15,7 7 PREP 02960
* 012446 3001242200 02970 J UPX PREP 02970
* 012453 3001245360 02980 WHOA JD WHOA PREP 02980
* 012460 3000000000 02990 DIZE J 0 PREP 02990
012465 5600007700 03000 BA1 077,16 PREP 03000
012472 5201550600 03010 SA1 SVIR7,1616 PREP 03010
012477 5600005700 03020 BA1 057,16 PREP 03020
012504 5201546600 03030 SA1 SVIR5,1616 PREP 03030
* 012511 3001246025 03040 JC DIZE,21 1 PREP 03040
012525 0000000000000000 03050 SV31 +8 0 PREP 03050
012535 CLOSE 03060 CLSE +8 _CLOSE _ PREP 03060
* 012536 3001254300 03070 DONE JC TD PREP 03070
012543 1400016002 03080 TD LC OP1-3,2 2 PREP 03080
012550 4401301000 03090 SC YES,0 PREP 03090
* 012555 3001257443 03100 JC STP4,35 5 PREP 03100
012562 4401301077 03110 SC YES,63 PREP 03110
* 012567 3001262500 03120 J TP2 PREP 03120
012574 5601253510 03130 STP4 BA1 CLSE,8 PREP 03130
012601 5201412410 03140 SA1 ERRCD,8 8 PREP 03140
* 012606 1001372400 03150 JR PRTSP PREP 03150
* 012613 3000000460 03160 STOP4 JD 04 PREP 03160
* 012620 3001263700 03170 J TST2 PREP 03170
* 012625 1001525000 03180 TP2 JR T2 PREP 03180
* 012632 3001257400 03190 J STP4 PREP 03190
* 012637 3001277163 03200 TST2 JC FINSH,5151 PREP 03200
012644 3401301077 03210 CC YES,63 PREP 03210
* 012651 3001274542 03220 JE FIN PREP 03220
* 012656 3001270700 03230 JC XYZ,0 PREP 03230
012663 3400016677 03240 CC OP2-1,07077 PREP 03240
* 012670 3001271442 03250 JE UU1 PREP 03250
012675 4400016640 03260 FH SC OP2-1,04040 PREP 03260
012702 4400017277 03270 SC OP3-1,07077 PREP 03270
* 012707 3000775500 03280 XYZ J START PREP 03280
012714 6000016400 03290 UU1 AC OP1+1,0 0 MAKE 1 WHEN SYSTEM PREP 03290
012721 6000017000 03300 AC OP2+1,0 0 HAS MORE THAN 1 UNIT PREP 03300
012726 4400016600 03310 SC OP2-1,0 0 PREP 03310
012733 4400017237 03320 SC OP3-1,03037 PREP 03320
* 012740 3001270700 03330 J XYZ PREP 03330
012745 1400016002 03340 FIN LC OP1-3,2 2 PREP 03340
* 012752 3000775543 03350 JU START PREP 03350
* 012757 1001530600 03360 JR T3 PREP 03360
* 012764 3000775500 03370 J START PREP 03370
012771 3401301077 03380 FINSH CC YES,63 PREP 03380
* 012776 3001057542 03390 JE MAN+5 PREP 03390
* 013003 3001057000 03400 J MAN PREP 03400
013010 00 03410 YES +1 0 PREP 03410
* 013011 3000000000 03420 FOVF4 J 0 PREP 03420
013016 2600005310 03430 PD 053,8 PREP 03430
013023 4401311100 03440 SC SSX+4,0 0 PREP 03440
013030 2000100012 03450 FT 512,10 PREP 03450
013035 5600015623 03460 BA2 OP44-1,3,3 PREP 03460
013042 5600014401 03470 BA1 OP22-3,1,1 PREP 03470
013047 5400001774 03480 LP 017,074 4 PREP 03480
013054 5220372601 03490 LPX SA1 OVF4+1,1,1,1 PREP 03490
013061 4420372514 03500 SC OVF4,01414,1 PREP 03500
013066 4420372700 03510 SC OVF4+2,0,0,1 PREP 03510
013073 5220373423 03520 SA2 OVF4+7,3,3,1 PREP 03520
013100 4420373030 03530 HEAD SC OVF4+3,0,030,1 PREP 03530
013105 4420373100 03540 SSX SC OVF4+4,0,0,1 PREP 03540
013112 6000004710 03550 AC 047,8 PREP 03550
013117 7400004712 03560 CT 047,10 PREP 03560
* 013124 3001301142 03570 JE FOVF4 PREP 03570
013131 6001311101 03580 AC SSX+4,1 1 PREP 03580
* 013136 3001304200 03590 J LPX-10 PREP 03590
003725 03600 OVF4 EQU HSTRY+151548 PREP 03600
* 013143 3000000000 03610 GENH J 0 PREP 03610
013150 4400071177 03620 SC HSTRY,07077 PREP 03620
013155 2600011314 03630 PD 0113,12 2 CLEOR TET 16,17,18 PREP 03630
013162 2000071220 03640 FT HSTRY+1,1,16 PREP 03640
013167 2400071121 03650 TFI HSTRY PREP 03650
013174 2000101322 03660 FT 523,18 PREP 03660
013201 2400071121 03670 TFI HSTRY PREP 03670
* 013206 1001323000 03680 JR CWAGN PREP 03680
* 013213 1001301400 03690 JR FOVF4 PREP 03690
* 013220 3001314300 03700 J GENH PREP 03700
* 013225 3000000000 03710 CWAGN J 0 PREP 03710
013232 2600071004 03720 PD HSTRY-1,1,4 PREP 03720
013237 5600016401 03730 BA1 OP2-3,1 1 PREP 03730
013244 5400001774 03740 LP 017,074 4 PREP 03740
013251 5200070501 03750 SA1 HSTRY-4,4,1 PREP 03750
013256 3400015240 03760 CC OP33-1,3,32 PREP 03760
* 013263 3001332641 03770 JC SET30,3333 PREP 03770
013270 4400070740 03780 SC HSTRY-2,2,040 PREP 03780
013275 2600372404 03790 PD OVF4-1,4,4 PREP 03790
013302 4400372370 03800 SC OVF4-2,0,070 PREP 03800
013307 4401310470 03810 SC HEAD+4,0,070 PREP 03810
013314 5200372101 03820 SU4 SA1 OVF4-4,1,1 PREP 03820
* 013321 3001322500 03830 J CWAGN PREP 03830
013326 2600372404 03840 SET30 PD OVF4-1,4,4 PREP 03840
013333 4400372330 03850 SC OVF4-2,0,030 PREP 03850
013340 4400071000 03860 SC HSTRY-1,1,0 PREP 03860
013345 4401310430 03870 SC HEAD+4,0,030 PREP 03870
* 013352 3001331400 03880 J SU4 PREP 03880
013362 77777773 03890 MIN5 +4 07777777773 MINUS 5 PREP 03890
013370 TAPE 03900 TP1 +6 _TAPE _ _ CH 4 OR CH5 ERROR PRINTOUT PREP 03900
* 013371 3000000031 03910 JC 0,25 PREP 03910
013400 013435 03920 +3 IPT4 PREP 03920
* 013401 3000000031 03930 JC 0,25 PREP 03930
013410 013675 03940 IE45 +3 IPT5 ERROR PRINT OUTS PREP 03940
013412 41 03950 TER1 +2 _41_ NON RCOV EN CH 4, RESTART PREP 03950
013414 42 03960 TER2 +2 _42_ PARITY ERROR CH4 , CONTINU PREP 03960
013416 43 03970 TER3 +2 _43_ ID ERROR, RESTART PREP 03970
013420 01 03980 TER4 +2 _01_ REVISION ERROR,CONTINUE PREP 03980
013422 51 03990 TER5 +2 _51_ NON RCOV CH5, RESTART PREP 03990
013426 PREP 04000 IDD +4 _PREP_ PREP 04000
013427 37 04010 AB +1 037 BLOCKS TO BE READ PREP 04010
013432 000000 04020 LL +3 0000000 0 UUUUTTTTTTTTHHHHHH PREP 04020
013434 02 04030 TER6 +2 _02_ 1PT OCCURRED, NO ERRORS PREP 04030
013435 5600044303 04040 IPT4 BA1 0443,3 CH 4 INTERRUPT ROUTINE PREP 04040
013442 5201346403 04050 SA1 XY+3,3 SET EXIT PREP 04050
013447 4100007777 04060 XF 0,07777,7,0,4 PREP 04060
* 013454 3001346653 04070 JC ERCH4,4343 JUMP IF ANY INDICATORS SET PREP 04070
* 013461 3000000031 04080 XY JC 0,25 IE+5 PREP 04080
013466 4100002000 04090 ERCH4 XF 0,02000,0,0,4 PREP 04090
* 013473 3001353653 04100 JC BSY4,43 3 JUMP IF BUSY (REWINDING� PREP 04100
013500 4100000040 04110 XF 0,00040,0,0,4 PREP 04110
* 013505 3001355053 04120 JC RCOV4,4343 JUMP IF PARITY (RECOVERABL PREP 04120
013512 5601341202 04130 BA1 TER1,2 NON RECOVERABLE ERROR PREP 04130
013517 5201412402 04140 SA1 ERRCD,2 2 ERROR PRINT OUT PREP 04140
* 013524 1001372400 04150 JR PRTSP ENTER PRINT STOP ROUTINE PREP 04150
* 013531 3001002500 04160 JC STRT RESTART PREP 04160
013536 4100402000 04170 BSY4 XF 040,0200000,0,4 RESET BUSY PREP 04170
* 013543 3001361300 04180 JC LES5 EXIT TO REISSUE REWIND PREP 04180
013550 5601341402 04190 RCOV4 BA1 TER2,2 PARITY ERROR IS RECOVERABL PREP 04190
013555 5201412402 04200 SA1 ERRCD,2 2 PREP 04200
* 013562 1001372400 04210 JR PRTSP PREP 04210
013567 4100407777 04220 XF 32,0777777,0,4 RESET ERRORS PREP 04220
013574 5600030703 04230 BA1 0307,3 SAVE OLD BLOCK LENGTH PREP 04230
013601 2000000061 04240 FT 0,49 BLOCK LENGTH OF ZERO FOR PREP 04240
013606 4100611000 04250 XF 061,0100000,0,4 READ BACKWARD,0 CHAR. PREP 04250
013613 5601336204 04260 LES5 BA1 MIN5,4 REISSUE INSTRUCTION BY PREP 04260
013620 7601346403 04270 AT XY+3,3 EXITING TO IE -5 PREP 04270
013625 5201346403 04280 SA1 XY+3,3 PREP 04280
* 013632 3001346100 04290 JC XY PREP 04290
* 013637 3000000000 04300 RWIND JC 0 PREP 04300
013644 4100640000 04310 XF 064,0,0,0,4 PREP 04310
013651 4100640000 04320 XF 064,0,0,0,4 REWIND SERVO 0 PREP 04320
013656 4101640000 04330 XF 064,0,1,1,4 PREP 04330
013663 4101640000 04340 XF 064,0,1,1,4 REWIND SERVO 1 PREP 04340
* 013670 3001363700 04350 JC RWIND PREP 04350
013675 5601342202 04360 IPT5 BA1 TER5,2 PREP 04360
013702 5201412402 04370 SA1 ERRCD,2 2 PREP 04370
* 013707 1001372400 04380 JR PRTSP PREP 04380
* 013714 3001002500 04390 JC STRT PREP 04390
* 013721 3000000000 04400 PRTSP JC 0 PRINT STOP ROUTINE PREP 04400
013726 1400016040 04410 LC OP1-3,04040 PREP 04410
* 013733 3001377643 04420 JC STPCH,3535 PREP 04420
013740 2001410040 04430 FT PRNT,32 2 PRINT OUT, BASE ADD PREP 04430
013745 4400020702 04440 SC 0207,2 PREP 04440
013752 5601432110 04450 BA1 IE0,8 PREP 04450
013757 5200040710 04460 SA1 0407,8 PREP 04460
013764 4000620000 04470 XF 062,0000000,0,0 PREP 04470
013771 4000640000 04480 XF 064,0,0,0,0 PREP 04480
013776 1400016020 04490 STPCH LC OP1-3,02020 PREP 04490
* 014003 3001401543 04500 JC $+10,35 5 PREP 04500
* 014010 3000000160 04510 STOPB JC 01,48 OPTION B STOP PREP 04510
014015 4401410000 04520 SC PRNT,0 PREP 04520
014022 2001410120 04530 FT PRNT+1,1,16 PREP 04530
014027 2000017722 04540 FT 127,18 PREP 04540
014034 2401410001 04550 TFR PRNT PREP 04550
* 014041 3001372100 04560 JC PRTSP PREP 04560
014100 04570 ORIG $,64 PREP 04570
014100 200 04580 PRNT AREA 128,B,0 0 PREP 04580
014300 4000407777 04590 IPT0 XF 040,0777777,0,0 PREP 04590
* 014305 3000040000 04600 JC 0400 PREP 04600
* 014312 3000000031 04610 JC 0,25 PREP 04610
014321 014300 04620 IE0 +3 IPT0 PREP 04620
014124 04630 ERRCD EQU PRNT+20 0 PREP 04630
014277 04640 ERRPD EQU PRNT+12727 PREP 04640
014322 5601446106 04650 IPT6 BA1 DER4,6 PREP 04650
014327 5201412206 04660 SA1 ERRCD-2,2,6 PREP 04660
014334 4140000077 04670 XF 0,00077,7,0,6 PREP 04670
* 014341 3001441153 04680 JC DRCOV,4343 PREP 04680
014346 4140007700 04690 XF 0,07700,0,0,6 PREP 04690
* 014353 3001442353 04700 JC DNRCV,4343 PREP 04700
014360 5601446302 04710 BA1 DER3,2 IPT WITH NO IND SET PREP 04710
014365 5201412402 04720 DCOV SA1 ERRCD,2 2 PREP 04720
* 014372 1001372400 04730 JR PRTSP PREP 04730
014377 4140407777 04740 XF 32,0777777,0,6 PREP 04740
* 014404 3000046000 04750 JC 0460 PREP 04750
014411 5601446502 04760 DRCOV BA1 DER2,2 PREP 04760
* 014416 3001436500 04770 JC DCOV PREP 04770
014423 5601446702 04780 DNRCV BA1 DER1,2 PREP 04780
014430 5201412402 04790 SA1 ERRCD,2 2 PREP 04790
* 014435 1001372400 04800 JR PRTSP PREP 04800
* 014442 3000004060 04810 STP40 JD 040 PREP 04810
* 014447 3001057500 04820 JC MAN+5 PREP 04820
014461 DRUM 04830 DER4 +6 _DRUM _ _ PREP 04830
014463 03 04840 DER3 +2 _03_ NO DURM ERROR BUT INTERUPT PREP 04840
014465 02 04850 DER2 +2 _02_ RECOVERABLE DRUM ERROR PREP 04850
014467 01 04860 DER1 +2 _01_ NON-RECOVERABLE DRUM ERROR PREP 04860
* 014470 3000000000 04870 BIZE JC 0 PREP 04870
014475 5600774710 04880 BA1 IE6,8 PREP 04880
014502 5200046710 04890 SA1 0467,8 PREP 04890
* 014507 3001447000 04900 JC BIZE PREP 04900
* 014514 3000000000 04910 T1 JC 0 AR2 UUUUTT TTTTTT HHHHHH PREP 04910
014521 5601337006 04920 BA1 TP1,6 SET UP PRINT AREA PREP 04920
014526 5201412206 04930 SA1 ERRCD-2,2,6 PREP 04930
014533 4100407777 04940 XF 32,0777777,0,4 RESET ERRORS PREP 04940
014540 4120407777 04950 XF 32,0777777,0,5 PREP 04950
014545 5601341000 04960 BA1 IE45,16 6 INTERRUPT ENTRIES PREP 04960
014552 5200045700 04970 SA1 0457,16 6 PREP 04970
* 014557 1001364200 04980 JR RWIND REWIND SERVO 0 AND 1 PREP 04980
014564 2000070160 04990 FT HSTR+1,4,48 PREP 04990
014571 2000007461 05000 FT 074,49 BLOCK 1 IS L0 CHARACTERS PREP 05000
014576 4100612000 05010 XF 061,0200000,0,4 READ FIRST BLOCK, SHC MODE PREP 05010
014603 5600071104 05020 BA1 HSTR+9,4,4 ID PREP 05020
014610 7001342644 05030 CB1 IDD,4 PREP 05030
* 014615 3001464642 05040 JC IDOK,34 4 PREP 05040
014622 5601341602 05050 BA1 TER3,2 ID ERROR PREP 05050
014627 5201412402 05060 SA1 ERRCD,2 2 PREP 05060
* 014634 1001372400 05070 JR PRTSP ENTER PRINT STOP PREP 05070
* 014641 3001002500 05080 JC STRT RESTART(NON-STOP� PREP 05080
014646 5600071704 05090 IDOK BA1 HSTR+15,5,4 PREP 05090
014653 7000021344 05100 CB1 RVIS,4 FROM OPERATOR WITH TAPE PREP 05100
* 014660 3001470442 05110 JC REVOK,3434 PREP 05110
014665 5601342002 05120 BA1 TER4,2 REVISION NUMBER ERROR PREP 05120
014672 5201412402 05130 SA1 ERRCD,2 2 PREP 05130
* 014677 1001372400 05140 JR PRTSP CONTINUE PREP 05140
014704 5201724604 05150 REVOK SA1 KEYOR+7,7,4 PREP 05150
014711 6000071701 05160 AC HSTR+15,5,01 PREP 05160
014716 6001724601 05170 AC KEYOR+7,7,01 PREP 05170
014723 2601724204 05180 PD KEYOR+3,3,4 PREP 05180
* 014730 1001703000 05190 JR EDITX PREP 05190
* 014735 1001372400 05200 JR PRTSP PREP 05200
014742 1600003555 05210 BC1 29,5 PREP 05210
014747 5400003536 05220 LP 29,036 0NNNN0 BLOCKS TO BE READ PREP 05220
014754 6000003501 05230 AC 29,01 READ FIRST BLOCK PREP 05230
014761 2000070164 05240 FT HSTR+1,5,52 PREP 05240
014766 2000007465 05250 FT 074,53 PREP 05250
014773 5600775441 05260 BD1 IN1,1 PREP 05260
015000 6600071704 05270 AD1 HSTR+15,5,4 PREP 05270
015005 5200071704 05280 SA1 HSTR+15,5,4 PREP 05280
015012 4121622000 05290 XF 062,0200000,1,5 WRITE FIRST BLOCK PREP 05290
015017 4401503501 05300 SC CT+4,01 1 SET BLOCK COUNT PREP 05300
* 015024 1001512300 05310 AGAIN JR RD READ TWO DATA BLOCKS PREP 05310
015031 3400003500 05320 CT CC 29,0 PREP 05320
* 015036 3001505542 05330 JC AORB,34 4 PREP 05330
* 015043 1001517300 05340 JR WR WRITE TWO DATA BLOCKS PREP 05340
* 015050 3001502400 05350 JC AGAIN PREP 05350
015055 5201506621 05360 AORB SA2 CC+4,1 HHHHHH /31 PREP 05360
015062 3401342700 05370 CC CC AB,0 DRUM A OR B PREP 05370
* 015067 3001510141 05380 JC DRUMB,3333 DRUM B IF GREATER THAN PREP 05380
* 015074 3001451400 05390 JC T1 PREP 05390
* 015101 1001517300 05400 DRUMB JR WR WRITE DRUM A BLOCK PREP 05400
* 015106 1001512300 05410 JR RD READ DRUM B BLOCK PREP 05410
* 015113 3001451400 05420 JC T1 PREP 05420
* 015120 3000000000 05430 RD JC 0 READ TWO BLOCKS PREP 05430
015125 2000301461 05440 FT 1548,49 9 PREP 05440
015132 2000070160 05450 FT HSTR+1,4,48 PREP 05450
015137 4100610000 05460 XF 061,0,0,0,4 PREP 05460
015144 2000101461 05470 FT 524,49 PREP 05470
015151 2000371560 05480 FT HSTR+154549,48 PREP 05480
015156 4100610000 05490 XF 061,0,0,0,4 PREP 05490
* 015163 3001512000 05500 JC RD PREP 05500
* 015170 3000000000 05510 WR JC 0 WRITE TWO BLOCKS PREP 05510
015175 2000070164 05520 FT HSTR+1,5,52 PREP 05520
015202 2000301465 05530 FT 1548,53 3 PREP 05530
015207 4121620000 05540 XF 062,0,1,1,5 PREP 05540
015214 2000371564 05550 FT HSTR+154549,52 PREP 05550
015221 2000101465 05560 FT 524,53 PREP 05560
015226 4121620000 05570 XF 062,0,1,1,5 PREP 05570
015233 6001503502 05580 AC CT+4,02 2 PREP 05580
* 015240 3001517000 05590 JC WR PREP 05590
* 015245 3000000000 05600 T2 JC 0 PREP 05600
* 015252 1001517300 05610 JR WR WRITE OVERFLOW BLOCK FOR PREP 05610
015257 3401503540 05620 CC CT+4,04040 DRUM JUST PREPED PREP 05620
* 015264 3001524542 05630 JC T2,34 PREP 05630
* 015271 1001512300 05640 JR RD READ DRUM B PREP 05640
* 015276 3001524500 05650 JC T2 PREP 05650
* 015303 3000000000 05660 T3 JC 0 COPY REST OF TAPE AND PREP 05660
* 015310 1001512300 05670 REED JR RD REWIND, READ PREP 05670
015315 5400070160 05680 LP HSTR+1,0,060 SENTINEL BLOCK PREP 05680
015322 3400070160 05690 CC HSTR+1,0,060 PREP 05690
* 015327 3001534642 05700 JC ZBLK,34 4 PREP 05700
* 015334 1001517300 05710 JR WR WRITE DATA BLOCK PREP 05710
* 015341 3001531000 05720 JC REED PREP 05720
015346 2000000061 05730 ZBLK FT 0,49 SENTINEL BLOCK SO BACKSPAC PREP 05730
015353 4100611000 05740 XF 061,0100000,0,4 READ IN 5 CHAR MODE , WRIT PREP 05740
015360 4100611000 05750 XF 061,0100000,0,4 PREP 05750
015365 2000000565 05760 FT 05,53 AND REWIND PREP 05760
015372 2000000561 05770 FT 05,49 PREP 05770
015377 2000070160 05780 FT HSTR+1,4,48 PREP 05780
015404 2000070164 05790 FT HSTR+1,5,52 PREP 05790
015411 4100610200 05800 XF 061,020000,0,4 READ PREP 05800
015416 4121622000 05810 XF 062,0200000,1,5 PREP 05810
015423 4100612000 05820 XF 061,0200000,0,4 READ PREP 05820
015430 4121622000 05830 XF 062,0200000,1,5 PREP 05830
* 015435 1001364200 05840 JR RWIND PREP 05840
* 015442 3001530300 05850 JC T3 PREP 05850
015456 0000000000000000 05860 +8 000 PREP 05860
015466 0000000000000000 05870 SVIR5 +8 000 PREP 05870
015476 0000000000000000 05880 +8 000 PREP 05880
015506 0000000000000000 05890 SVIR7 +8 000 PREP 05890
015516 LIMIT 05900 LM +8 _LIMIT _ PREP 05900
015526 7777777777777777 05910 SEVNS +8 0777777777777777777 PREP 05910 7
015527 4140662000 05920 WRTN XF 066,0200000,0,6 PREP 05920
015534 4140666000 05930 WRTO XF 066,0600000,0,6 PREP 05930
015541 4140652000 05940 RDN XF 065,0200000,0,6 PREP 05940
015546 4140656000 05950 RDO XF 065,0600000,0,6 PREP 05950
* 015553 3000000000 05960 COMPX JC 0 PREP 05960
* 015560 1001616600 05970 CIZEE JR CIZE INITIALIZE COMPARE PREP 05970
015565 2000573070 05980 CONTT FT AREAB,5656 PREP 05980
015572 2600007304 05990 PD 073,4 PREP 05990
015577 4000000000 06000 R1 XF 0,0,0,0 0 PREP 06000
015604 6001567301 06010 AC RDCNT,0101 PREP 06010
015611 3540473014 06020 CNT CC AREAA,01014,6 PREP 06020
015616 5601572706 06030 BA1 CCC0,6 COMP TO PRINT AREA PREP 06030
015623 5201412206 06040 SA1 ERRCD-2,2,6 PREP 06040
015630 5740473710 06050 BA1 AREAA+7,7,8,6 PREP 06050
015635 5201724610 06060 SA1 KEYOR+7,7,8 PREP 06060
* 015642 3001574242 06070 JC GOOD,34 4 Z OF A ) 148 (IR7� PREP 06070
015647 5740473405 06080 BA1 AREAA+4,4,5,6 PREP 06080
015654 7001571045 06090 CB1 ONESX,5 5 PREP 06090
* 015661 3001622642 06100 JC GUN,34 PREP 06100
* 015666 3001627100 06110 JC BAD PREP 06110
015673 00 06120 RDCNT +1 0 PREP 06120
015675 08 06130 CCC8 +2 _08_ PREP 06130
015677 09 06140 CCC9 +2 _09_ PREP 06140
015701 07 06150 CCC7 +2 _07_ PREP 06150
015703 06 06160 CCC6 +2 _06_ PREP 06160
015710 7777777777 06170 ONESX +5 0777777777777 PREP 06170
015714 00000760 06180 FV12 +4 00000076760 PREP 06180
015721 0000000000 06190 ZRO +5 0 PREP 06190
015727 COMP 06200 CCC0 +6 _COMP _ _ PREP 06200
015731 05 06210 CCC5 +2 _05_ PREP 06210
015733 04 06220 CCC4 +2 _04_ PREP 06220
015735 03 06230 CCC3 +2 _03_ PREP 06230
015737 02 06240 CCC2 +2 _02_ PREP 06240
015741 01 06250 CCC1 +2 _01_ PREP 06250
015742 3540573014 06260 GOOD CC AREAB,01014,6 PREP 06260
* 015747 3001646643 06270 JC COM01,3535 PREP 06270
015754 5740573404 06280 BA1 AREAB+4,4,4,6 AR1 UTHS PREP 06280
015761 7140473444 06290 CB1 AREAA+4,4,4,6 PREP 06290
* 015766 3001675543 06300 JC COM02,3535 PREP 06300
015773 5740573702 06310 BA1 AREAB+7,7,2,6 PREP 06310
016000 7001572141 06320 CB1 ZRO,1 PREP 06320
* 016005 3001676743 06330 JC COM03,3535 PREP 06330
016012 6000007310 06340 ADV AC 073,8 PREP 06340
016017 2601417614 06350 PD ERRCD+4242,12 PREP 06350
016024 2601420406 06360 PD ERRCD+4848,6 PREP 06360
016031 7401571416 06370 CT FV12,14 4 PREP 06370
* 016036 3001561143 06380 JC CNT,35 PREP 06380
* 016043 3001606765 06390 JC $+20,53 3 PREP 06390
016050 1400775010 06400 LC OP5-3,01010 PREP 06400
* 016055 3001057542 06410 JC MAN+5,3434 PREP 06410
* 016062 3001555300 06420 JC COMPX PREP 06420
016067 5601567301 06430 BA1 RDCNT,1 1 STORE RBAD COUNT PREP 06430
016074 5201610501 06440 SA1 SOP3+4,1,1 PREP 06440
016101 3400017700 06450 SOP3 CC OP4,0 PREP 06450
* 016106 3001612042 06460 JC $+10,34 4 PREP 06460
* 016113 3001556500 06470 JC CONTT PREP 06470
* 016120 3001555325 06480 JC COMPX,2121 PREP 06480
* 016125 3000000000 06490 CLRB JC 0 PREP 06490
016132 2000573021 06500 FT AREAB,1717 FIX ORIGIN PREP 06500
016137 4400573000 06510 SC AREAB,0 0 PREP 06510
016144 2000077722 06520 FT 511,18 FIX LENGTH PREP 06520
016151 2400573141 06530 TTR AREAB+1 1 PREP 06530
* 016156 3001612500 06540 JC CLRB PREP 06540
* 016163 3000000000 06550 CIZE JC 0 PREP 06550
016170 2600007304 06560 PD 073,4 CLEAR IR7 PREP 06560
* 016175 1001613000 06570 JR CLRB PREP 06570
016202 4401641040 06580 SC B+4,040 0 SET B TO 1 PREP 06580
016207 4401567300 06590 SC RDCNT,0 0 PREP 06590
016214 2600006304 06600 PD 063,4 PREP 06600
* 016221 3001616325 06610 JC CIZE,21 1 PREP 06610
016226 5740573405 06620 GUN BA1 AREAB+4,4,5,6 AREAA GOOD BUT UNUSED PREP 06620
016233 7001571045 06630 CB1 ONESX,5 5 PREP 06630
* 016240 3001700143 06640 JC COM04,3535 GOOD BUT UNUSED PREP 06640
016245 5740573702 06650 BA1 AREAB+7,7,2,6 PREP 06650
016252 7001572141 06660 CB1 ZRO,1 PREP 06660
* 016257 3001701343 06670 JC COM05,3535 PREP 06670
* 016264 3001601200 06680 JC ADV PREP 06680
016271 3540573014 06690 BAD CC AREAB,01014,6 BAD SENTINEL READ PREP 06690
* 016276 3001636542 06700 JC COM07,3434 BACK GOOD PREP 06700
016303 5740573702 06710 BA1 AREAB+7,7,2,6 PREP 06710
016310 7001572141 06720 CB1 ZRO,1 PREP 06720
* 016315 3001632742 06730 JC COM06,3434 DATA OF BAD SECTOR READ PREP 06730
* 016322 3001601200 06740 JC ADV BACK GOOD PREP 06740
016327 5601570302 06750 COM06 BA1 CCC6,2 PREP 06750
016334 5201412402 06760 SA1 ERRCD,2 2 PREP 06760
016341 5740573404 06770 BA1 AREAB+4,4,4,6 PREP 06770
016346 7001572144 06780 CB1 ZRO,4 PREP 06780
* 016353 3001601243 06790 JC ADV,35 PREP 06790
* 016360 3001601200 06800 JC ADV PREP 06800
016365 5601570102 06810 COM07 BA1 CCC7,2 PREP 06810
016372 5201412402 06820 SA1 ERRCD,2 2 PREP 06820
* 016377 1001372400 06830 JR PRTSP PREP 06830
* 016404 3001773100 06840 B JC B2 PREP 06840
016411 5601145405 06850 WW2 BA1 W1+4,5 PREP WRITE TO STORAGE PREP 06850
016416 5201644605 06860 SA1 W2+4,5 PREP 06860
016423 2000473070 06870 FT AREAA,5656 PREP 06870
016430 1400775040 06880 LC OP5-3,04040 PREP 06880
* 016435 3001644742 06890 JC $+10,34 4 PREP 06890
016442 4000000000 06900 W2 XF 0,0,0,0 0 PREP 06900
* 016447 1001616600 06910 JR CIZE PREP 06910
016454 4401641000 06920 SC B+4,0 PREP 06920
* 016461 3001556500 06930 JC CONTT PREP 06930
016466 5601574102 06940 COM01 BA1 CCC1,2 NEW BAD SPOT IN SENTINEL PREP 06940
016473 5201412402 06950 BSPOT SA1 ERRCD,2 2 DIGITS PREP 06950
016500 5740473710 06960 BA1 AREAA+7,7,8,6 PREP 06960
016505 5201724610 06970 SA1 KEYOR+7,7,8 PREP 06970
* 016512 1001703000 06980 JR EDITX PREP 06980
* 016517 1001372400 06990 JR PRTSP PREP 06990
* 016524 3001741400 07000 BADSP J CNTL PREP 07000
* 016531 3001655000 07010 C JC NEW NEW BAD SPOT PREP 07010
* 016536 3001641100 07020 D JC WW2 REPEAT READ AND WRITE PREP 07020
* 016543 3001556500 07030 JC CONTT REPEAT READ PREP 07030
016550 3401177100 07040 NEW CC TLIM+4,0,0 PREP 07040
* 016555 3001660142 07050 JC OFLO,34 4 BAD JUMP IF OVERFLOW PREP 07050
016562 5740473710 07060 BA1 AREAA+7,7,8,6 PREP 07060
016567 5200673710 07070 SA1 KEYAR+7,7,8 PREP 07070
* 016574 3001057500 07080 JC MAN+5 (IR7� 0, 512,1024,1548 PREP 07080
016601 2000071115 07090 OFLO FT HSTRY,1313 HSTRY TO IR5 PREP 07090
016606 7600007715 07100 AT 077,13 HSTRY + IR 7 TO IR5 PREP 07100
016613 7600007415 07110 AT 074,13 IR5+IR6 TO IR5 PREP 07110
016620 2720000710 07120 PD 7,8,5 CLEAR BAD SECTOR ITEM PREP 07120
016625 5740473703 07130 BA1 AREAA+7,7,3,6 PREP 07130
016632 5320000703 07140 SA1 7,3,5 PREP 07140
016637 2601724610 07150 PD KEYOR+7,7,8 PREP 07150
016644 5600006703 07160 BA1 067,3 PREP 07160
016651 5201724603 07170 SA1 KEYOR+7,7,3 PREP 07170
016656 5601675410 07180 BA1 OFERR,8 8 PREP 07180
016663 5201412410 07190 SA1 ERRCD,8 8 PREP 07190
* 016670 1001703000 07200 JR EDITX PREP 07200
* 016675 1001372400 07210 JR PRTSP PREP 07210
016702 5740473405 07220 BA1 AREAA+4,4,5,6 PREP 07220
016707 7001571045 07230 CB1 ONESX,5 5 PREP 07230
* 016714 3001220642 07240 JC OPREP,3434 PREP 07240
016721 5740473710 07250 BA1 AREAA+7,7,8,6 PREP 07250
016726 5200673710 07260 SA1 KEYAR+7,7,8 PREP 07260
* 016733 1001007300 07270 JR SCAN1 PREP 07270
* 016740 3001220600 07280 JC OPREP PREP 07280
016754 OFLO ERR 07290 OFERR +8 _OFLO ERERR_ PREP 07290
016755 5601573702 07300 COM02 BA1 CCC2,2 PREP 07300
* 016762 3001647300 07310 JC BSPOT PREP 07310
016767 5601573502 07320 COM03 BA1 CCC3,2 PREP 07320
* 016774 3001647300 07330 JC BSPOT PREP 07330
017001 5601573302 07340 COM04 BA1 CCC4,2 PREP 07340
* 017006 3001647300 07350 JC BSPOT PREP 07350
017013 5601573102 07360 COM05 BA1 CCC5,2 PREP 07360
* 017020 3001647300 07370 JC BSPOT PREP 07370
* 017025 3000000000 07380 EDITX JC 0 PREP 07380
017032 5601723701 07390 BA1 KEYOR,1 1 PREP 07390
* 017037 1001725200 07400 JR TRNS PREP 07400
017044 5201416402 07410 SA1 ERRCD+3232,2 PREP 07410
017051 5601724001 07420 BA1 KEYOR+1,1,1 UUUUTT PREP 07420
* 017056 1001725200 07430 JR TRNS PREP 07430
017063 5201416602 07440 SA1 ERRCD+3434,2 STORE UNIT ADDRESS PREP 07440
017070 5601724101 07450 BA1 KEYOR+2,2,1 TTTTTT PREP 07450
* 017075 1001725200 07460 JR TRNS PREP 07460
017102 5201417002 07470 SA1 ERRCD+3636,2 PREP 07470
017107 5601724201 07480 BA1 KEYOR+3,3,1 HHHHHH PREP 07480
* 017114 1001725200 07490 JR TRNS PREP 07490
017121 5201417202 07500 SA1 ERRCD+3838,2 PREP 07500
017126 5601724301 07510 BA1 KEYOR+4,4,1 SSSSSS PREP 07510
* 017133 1001725200 07520 JR TRNS PREP 07520
017140 5201417402 07530 SA1 ERRCD+4040,2 PREP 07530
017145 5601724401 07540 BA1 KEYOR+5,5,1 PREP 07540
* 017152 1001725200 07550 JR TRNS PREP 07550
017157 5201417602 07560 SA1 ERRCD+4242,2 PREP 07560
017164 5601724501 07570 BA1 KEYOR+6,6,1 FIX D2 PREP 07570
* 017171 1001725200 07580 JR TRNS PREP 07580
017176 5201420002 07590 SA1 ERRCD+4444,2 PREP 07590
017203 5601724601 07600 BA1 KEYOR+7,7,1 PREP 07600
* 017210 1001725200 07610 JR TRNS PREP 07610
017215 5201420202 07620 SA1 ERRCD+4646,2 PREP 07620
* 017222 3001702500 07630 JC EDITX PREP 07630
017236 INSERT 07640 SPUT +8 _INSERT T _ PREP 07640
017237 10 07650 KEYOR AREA 8 PREP 07650
* 017247 3000000000 07660 TRNS JC 0 AR1 ABCDEF PREP 07660
017254 4400001600 07670 SC 14,0 000000 ABCDEF PREP 07670
017261 1600001763 07680 BC2 15,3 000ABCDEF000 PREP 07680
017266 1600001753 07690 BC1 15,3 000 ABC 000DEF PREP 07690
017273 6000001603 07700 AC 14,03 PREP 07700
017300 6000001703 07710 AC 15,03 PREP 07710
* 017305 3001724700 07720 JC TRNS PREP 07720
017315 00000000 07730 SLOT1 +4 0 PREP 07730
017316 74 07740 SLOT2 AREA 60,B,0 PREP 07740
017413 11 07750 CM11 +2 _11_ PREP 07750
017414 1400775020 07760 CNTL LC OP5-3,02020 PREP 07760
* 017421 3001655042 07770 JC NEW,34 PREP 07770
* 017426 3001745265 07780 JC $+20,53 3 PREP 07780
017433 4401567300 07790 SC RDCNT,0 0 PREP 07790
017440 4201731516 07800 ST SLOT1,1414 PREP 07800
* 017445 3001556522 07810 JC CONTT,1818 PREP 07810
017452 2600005704 07820 PD 057,4 CLEAR LIST FULL COUNTER, PREP 07820
017457 5600006301 07830 BA1 063,1 IR3 PREP 07830
017464 5201747501 07840 SA1 $+9,1 IR4 TO OPTION I PREP 07840
017471 3400016200 07850 CC OP1-1,0 0 JUMP IF LIST NOT FULL PREP 07850
* 017476 3001764743 07860 JC NFUL,35 5 PREP 07860
017503 3400016200 07870 CC OP1-1,0 0 PREP 07870
* 017510 3001755342 07880 JC MAYB,34 4 OPTION I IS 0 PREP 07880
017515 5601567702 07890 COM09 BA1 CCC9,2 LIST FULL PREP 07890
017522 5201412402 07900 SA1 ERRCD,2 2 PREP 07900
* 017527 1001703000 07910 JR EDITX PREP 07910
* 017534 1001372400 07920 JR PRTSP PREP 07920
* 017541 3000003060 07930 STP30 JC 030,48 LIST FULL STOP PREP 07930
* 017546 3001057500 07940 JC MAN+5 TEST TRACK AGAIN PREP 07940
017553 7401731516 07950 MAYB CT SLOT1,1414 IR6 /SLOT 1 PREP 07950
* 017560 3001655042 07960 JC NEW,34 NEW BAD SPOT PREP 07960
017565 5601741302 07970 COM11 BA1 CM11,2 MAYBE NEW BAD SPOT PREP 07970
017572 5201412402 07980 SA1 ERRCD,2 2 PREP 07980
* 017577 1001703000 07990 JR EDITX PREP 07990
* 017604 1001372400 08000 JR PRTSP PRINT 2ND BAD SECTOR PREP 08000
017611 4601731516 08010 BT SLOT1,1414 PRINT 1ST BAD SECTOR PREP 08010
017616 5740473710 08020 BA1 AREAA+7,7,8,6 PREP 08020
017623 5201724610 08030 SA1 KEYOR+7,7,8 PREP 08030
* 017630 1001703000 08040 JR EDITX PREP 08040
* 017635 1001372400 08050 JR PRTSP PREP 08050
* 017642 3001057500 08060 JC MAN+5 RETEST CURRENT TRACK PREP 08060
017647 7461731516 08070 NFUL CT SLOT1,1414,3 PREP 08070
* 017654 3001655042 08080 JC NEW,34 PREP 08080
017661 7400006313 08090 CT 063,11 IR4 TO IR3 PREP 08090
* 017666 3001770542 08100 JC INCK,34 4 PREP 08100
017673 6000005704 08110 AC 057,04 PREP 08110
* 017700 3001764700 08120 JC NFUL PREP 08120
017705 6000006304 08130 INCK AC 063,04 PREP 08130
017712 4401567300 08140 SC RDCNT,0 0 PREP 08140
017717 4301731516 08150 ST SLOT1,1414,4 PREP 08150
* 017724 3001556500 08160 JC CONTT PREP 08160
017731 3540473077 08170 B2 CC AREAA,07077,6 Z TO 77 PREP 08170
* 017736 3001775542 08180 JC COM08,3434 PREP 08180
017743 6140473001 08190 AC AREAA,0101,6 PREP 08190
* 017750 3001641100 08200 JC WW2 PREP 08200
017755 5601567502 08210 COM08 BA1 CCC8,2 PREP 08210
017762 5201412402 08220 SA1 ERRCD,2 2 PREP 08220
* 017767 1001372400 08230 JR PRTSP PREP 08230
* 017774 3000002060 08240 STP20 JC 020,48 PREP 08240
* 020001 3001641100 08250 JC B+5 PREP 08250
3000775500 08260 END START PREP 08260
{-- tape mark --}
019925 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 --}
020915 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 --}