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 CL2 PROCT 13830 L * 016161 1000307226 13840 JR NEXT,22 2 RESET SI2 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 CL2 PROCT 15060 L * 017330 1000304126 15070 JR EXIT,22 2 RESET SI2 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 --}