000001 C641 STAKER CODEDIT SOURCE 12/65 -C D T3834394-6466 001500 00010 T640 BEGIN 01500 STAKER00010 00020 *LOAD 0700,TAPAPE,,PRELD 00020 L * 001500 3007010660 * JD 070106 * * 001505 3000150000 * J $-5 * SEGMENT-ID T641 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 T642 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2000111611 * FT 0700+021216,9,0 * 000457 2000070060 * FT 0700,48,8,0 * 000464 2000024261 * FT 162,49 * * 000471 3000053000 * J 0530 * 000477 0000 * +2 0 * * 000500 3000000020 * JC 0,16 * 000507 000440 * +3 0440 * * 000510 3000000020 * JC 0,16 * 000517 000510 * +3 0510 * * 000520 3000052020 * JHJ $ * 000527 000440 * +3 0440 * 000530 5600052710 * BA1 $-1,8 * 000535 5200044710 * SA1 0447,8 * 000542 4100610100 * XF 061,010000,0,4 * 000547 2000111660 * FT 0700+021216,48,0 * 000554 2000024261 * FT 162,49 * 000561 4100610100 * XF 061,010000,0,4 * * 000566 3200056102 * JL $-5,2 * 000573 2000000103 * FT 1,3 * * 000600 3000074000 * J 0700+04040,0 * 000740 * ORIG 0700+04040 * 000740 4100610100 * XF 061,010000,0,4 * 000745 6000001701 * AC 15,1 * 000752 3420022211 * CC 146,9,1 1 * * 000757 3000106542 * JE $+70 * 000764 2600004104 * PD 041,4 * 000771 3620021700 * CS 143,0,1 1 * 000776 3620011700 * CS 79,0,1 * 001003 3620001712 * CS 15,10,1 1 * 001010 1600004166 * BC2 041,6 * 001015 3620022102 * CS 145,2,1 1 * 001022 7000004162 * CB2 041,2 * * 001027 3000104142 * JE $+10 * * 001034 3007010460 * JD 070104 * 001041 4620003520 * BT 29,16,1 1 * 001046 4620003722 * BT 31,18,1 1 * 001053 2420004001 * TFR 32,,1 * * 001060 3000074000 * J $-80 * 001065 7020004642 * CB1 38,2,1 * * 001072 3020004042 * JE 32,1 * * 001077 3007010560 * JD 070105 * * 001104 3020004000 * J 32,1 * 001111 245 * AREA 165 * SEGMENT-ID T643 3000135600 * SEGJP $ * * 001356 3000007760 00030 START JD 63 STAKER00030 001363 5600330700 00040 BA1 IE2,16 STAKER00040 001370 5200051700 00050 SA1 0517,16 6 STAKER00050 001375 5600332700 00060 BA1 IERP,16 6 STAKER00060 001402 5200041700 00070 SA1 0417,16 6 STAKER00070 001407 2000470040 00080 FT PAR,32 PRINTER IMAGE STAKER00080 001414 2000700044 00090 FT IMG,36 READER IMAGE STAKER00090 001421 2000470120 00100 FT PAR+1,1616 STAKER00100 001426 2600707732 00110 PD0 IMG+63,1,10 SET UP FOR READER TYPE TEST STAKER00110 001433 2600713132 00120 PD0 IMG+89,1,10 STAKER00120 001440 2600006300 00130 PD X4,16 STAKER00130 001445 4400207440 00140 SC SW1+4,3232 INITIALIZE ALL SWITCHES STAKER00140 001452 4400223305 00150 SC SW2+4,5 5 STAKER00150 001457 4400224506 00160 SC SW3+4,6 6 STAKER00160 001464 4400227112 00170 SC SW4+4,1010 STAKER00170 001471 4400302740 00180 SC SW5+4,3232 STAKER00180 * 001476 3000150325 00190 JC $+5,21 RE-SET SI1 STAKER00190 * 001503 3000151026 00200 JC $+5,22 SI2 STAKER00200 * 001510 3000151527 00210 JC $+5,23 SI3 STAKER00210 001515 4400176001 00220 SC PASS1+8,8,1 STAKER00220 001522 4400210511 00230 SC TEST1+3,3,011 STAKER00230 001527 4400216201 00240 SC INT-7,1 1 STAKER00240 001534 4400234501 00250 SC PASS2+1818,1 STAKER00250 * 001541 3000155362 00260 JC $+10,50 0 SS 1- 72 COL. READ STAKER00260 * 001546 3000157700 00270 J $+25 STAKER00270 001553 6400176004 00280 LS PASS1+8,8,4 SET BIT FOR 72 COL. READ STAKER00280 001560 6400210504 00290 LS TEST1+3,3,4 STAKER00290 001565 6400216204 00300 LS INT-7,4 4 STAKER00300 001572 6400234504 00310 LS PASS2+1818,4 STAKER00310 * 001577 1000357263 00320 JR SORT,51 1 SS 2- SORT FOR ID IN COL. 1 STAKER00320 001604 5600337663 00330 BD2 D200,3 SET TIME DELAY FOR 200 MS STAKER00330 001611 2000161626 00340 FT $+5,22 STAKER00340 001616 4020610100 00350 XF 061,010000,0,1 STAKER00350 001623 4020010100 00360 XF 1,0100,0,0,1 CHECK RDR SPEED FOR STAKER00360 * 001630 1000316022 00370 JR TDLY,18 8 800,600 OR 400 CPM STAKER00370 * 001635 3000000360 00380 JD 3 NO INT. FROM RDR STAKER00380 001642 2620340143 00390 CKDLY CD1 D85,3,1 1 D85,D125,D175 STAKER00390 * 001647 3000166644 00400 JS STD STAKER00400 001654 6000004703 00410 AC X1,3 STAKER00410 * 001661 3000164200 00420 J CKDLY STAKER00420 001666 5620341263 00430 STD BD2 D25,3,1 1 SET TIME,DELAY FOR STAKER00430 * 001673 3000170025 00440 JC $+5,21 25,45 OR 65 MS STAKER00440 001700 2600001732 00450 PD0 15,10 TEST FOR 80 OR 90 ROW OR STAKER00450 001705 7000707752 00460 CB1 IMG+63,1,10 SERIAL READER STAKER00460 * 001712 3000173143 00470 JU $+15 STAKER00470 001717 2000003514 00480 FT 29,X4 SET UP FOR 90 SERIAL STAKER00480 * 001724 3000175000 00490 J PASS1 STAKER00490 001731 7000713152 00500 CB1 IMG+89,1,10 STAKER00500 * 001736 3000175042 00510 JE PASS1 STAKER00510 001743 2000001214 00520 FT 10,X4 SET UP FOR 90 ROW STAKER00520 001750 2000175526 00530 PASS1 FT $+5,22 STAKER00530 001755 4020010100 00540 XF 1,0100,0,0,1 STAKER00540 * 001762 3000176223 00550 JC $,19 WAIT FOR INT. STAKER00550 001767 3400700053 00560 CKID CC IMG,_Q_ _ CHECK CARD ID STAKER00560 * 001774 3000203742 00570 JE LEFT STAKER00570 * 002001 3000304762 00580 JC NOID,50 0 SS 1 STAKER00580 002006 3500711353 00590 CC IMG+75,_,_Q_,4 STAKER00590 * 002013 3000304743 00600 JU NOID STAKER00600 002020 5700711703 00610 BA1 IMG+79,3,3,4 ID ON RIGHT SIDE STAKER00610 002025 5240367503 00620 SA1 KEY+2,3,3,2 STAKER00620 * 002032 3000205100 00630 J $+15 STAKER00630 002037 5600700503 00640 LEFT BA1 IMG+5,3 3 ID ON LEFT SIDE STAKER00640 002044 5240367503 00650 SA1 KEY+2,3,3,2 STORE ID ON SELECTION LIST STAKER00650 002051 5240367722 00660 SA2 KEY+4,2,2,2 STORE TIME DELAY STAKER00660 002056 6000005305 00670 AC X2,5 STAKER00670 * 002063 1000316026 00680 JR TDLY,22 2 STAKER00680 * 002070 3000212140 00690 SW1 JC TEST2-5,5,32 STAKER00690 002075 2000210226 00700 FT $+5,22 STAKER00700 002102 4020011100 00710 TEST1 XF 1,01100,0,0,1 FEED AND SELECT STACKER STAKER00710 * 002107 1000323000 00720 JR INC INCREMENT DELAY FOR NEXT S/S STAKER00720 * 002114 3000211400 00730 J $ WAIT FOR INT. STAKER00730 002121 2000212626 00740 FT $+5,22 STAKER00740 002126 4020041100 00750 TEST2 XF 4,01100,0,0,1 S/S NO FEED STAKER00750 * 002133 1000323000 00760 JR INC STAKER00760 * 002140 1000316000 00770 JR TDLY ARBITRARY DELAY BEFORE FEED STAKER00770 002145 6440367240 00780 LS KEY-1,3232,2 INDICATE S/S ONLY STAKER00780 002152 2000215726 00790 FT $+5,22 STAKER00790 002157 4020010100 00800 XF 1,0100,0,0,1 FEED NO S/S STAKER00800 * 002164 3000216400 00810 J $ WAIT FOR INT STAKER00810 * 002171 3000217631 00820 INT JC $+5,25 STAKER00820 002176 4020007777 00830 XF 0,07777,7,0,1 CHECK FOR ERRORS STAKER00830 * 002203 3000310553 00840 JC ERINT,4343 STAKER00840 * 002210 3000176766 00850 JC CKID,54 4 STAKER00850 * 002215 3000164265 00860 JC CKDLY,5353 STAKER00860 * 002222 3000307367 00870 JC ERI,55 INT. OCCURED ON S/S ONLY STAKER00870 * 002227 3200175005 00880 SW2 JL PASS1,5 5 STAKER00880 002234 4400207424 00890 SC SW1+4,2020 STAKER00890 * 002241 3200175006 00900 SW3 JL PASS1,6 6 STAKER00900 002246 4400207440 00910 SC SW1+4,3232 STAKER00910 002253 4400223305 00920 SC SW2+4,5 5 STAKER00920 002260 4400224506 00930 SC SW3+4,6 6 STAKER00930 * 002265 3200175012 00940 SW4 JL PASS1,1010 STAKER00940 002272 5600343212 00950 BA1 MS1,10 INITIALIZE PASS2 STAKER00950 002277 5200471212 00960 SA1 PAR+10,1,10 STAKER00960 * 002304 1000277000 00970 JR PRT STAKER00970 002311 2600003700 00980 PD 31,16 STAKER00980 * 002316 3000000460 00990 JD 4 HIT RUN TO START PASS2 STAKER00990 002323 2600005304 01000 PASS2 PD X2,4 STAKER01000 002330 4400302700 01010 SC SW5+4,0 0 STAKER01010 002335 2000234226 01020 FT $+5,22 STAKER01020 002342 4020610100 01030 XF 061,010000,0,1 STAKER01030 002347 4020041100 01040 XF 4,01100,0,0,1 STAKER01040 002354 7000701760 01050 CB2 IMG+15,1,16 CHECK FOR END OF RUN STAKER01050 * 002361 3000260242 01060 JE ANAL ANALIZE SELECTION LIST STAKER01060 002366 2000000511 01070 FT 5,X1 STAKER01070 002373 3400700053 01080 CC IMG,_Q_ _ STAKER01080 * 002400 3000243142 01090 JE COMP STAKER01090 * 002405 3000255662 01100 JC EXCD,50 0 SS 1 STAKER01100 002412 3500711353 01110 CC IMG+75,_,_Q_,4 STAKER01110 * 002417 3000255643 01120 JU EXCD EXTRA CARD SELECTED STAKER01120 002424 2100011711 01130 FT 79,X1,4 4 STAKER01130 002431 5620700003 01140 COMP BA1 IMG,3,1 1 STAKER01140 002436 7040367543 01150 CB1 KEY+2,3,3,2 CHECK IF CARD IS ON STAKER01150 * 002443 3000247442 01160 JE CKSEQ SELECTION LIST STAKER01160 002450 6000005305 01170 AC X2,5 STAKER01170 002455 7400337012 01180 CT B500,X2 2 STAKER01180 * 002462 3000255642 01190 JE EXCD CARD NOT ON SELECTION LIST STAKER01190 * 002467 3000243600 01200 J COMP+5 STAKER01200 002474 2640367705 01210 CKSEQ PD KEY+4,5,5,2 DELETE CARD FROM SELECT LIST STAKER01210 002501 7400005712 01220 CT X3,X2 CHECK IF SELECTED CARD IS IN STAKER01220 * 002506 3000252544 01230 JS SEQER PROPER SEQUENCE STAKER01230 002513 4200005712 01240 ST X3,X2 STAKER01240 * 002520 3000232300 01250 J PASS2 STAKER01250 002525 5600356616 01260 SEQER BA1 MS7,14 SEQUENCE ERROR-CARDS WERE STAKER01260 002532 5200471616 01270 SA1 PAR+14,1,14 SHUFFLED STAKER01270 * 002537 1000277000 01280 JR PRT STAKER01280 002544 4200005712 01290 ST X3,X2 STAKER01290 * 002551 3000232300 01300 J PASS2 STAKER01300 002556 2000002322 01310 EXCD FT 19,18 EXTRA CARD SELECTED STAKER01310 002563 2400352601 01320 TFR MS6 STAKER01320 * 002570 1000277000 01330 JR PRT STAKER01330 * 002575 3000232300 01340 J PASS2 STAKER01340 002602 7040367765 01350 ANAL CB2 KEY+4,5,5,2 PRINT OUT ALL CARDS NOT STAKER01350 * 002607 1000267443 01360 JR SET,35 DELETED FROM SELECTION LIST STAKER01360 002614 6000005305 01370 AC X2,5 STAKER01370 002621 7400337012 01380 CT B500,X2 2 STAKER01380 * 002626 3000264042 01390 JE FIN STAKER01390 * 002633 3000260200 01400 J ANAL STAKER01400 002640 5600352112 01410 FIN BA1 MS3,10 END PASS2 STAKER01410 002645 5200471212 01420 SA1 PAR+10,1,10 STAKER01420 002652 4400302740 01430 SC SW5+4,3232 STAKER01430 * 002657 1000277000 01440 JR PRT STAKER01440 * 002664 3000135600 01450 J START STAKER01450 * 002671 3000267100 01460 SET J $ STAKER01460 002676 2000005522 01470 FT 45,18 STAKER01470 002703 2400343301 01480 TFR MS2 STAKER01480 002710 1440367740 01490 LC KEY+4,3232,2 CHECK IF S/S ONLY IS SET STAKER01490 * 002715 3000273443 01500 JU $+15 STAKER01500 002722 5600352504 01510 BA1 MS4,4 STAKER01510 002727 5200475504 01520 SA1 PAR+45,4,4 STAKER01520 002734 5640367702 01530 BA1 KEY+4,2,2,2 GET TIME DELAY FOR ERR CARD STAKER01530 002741 5400001737 01540 LP 15,31 STAKER01540 002746 5200473202 01550 SA1 PAR+26,2,2 STAKER01550 * 002753 1000277000 01560 JR PRT PRINT OUT CARD NOT SELECTED STAKER01560 * 002760 3000267100 01570 J SET STAKER01570 * 002765 3000276500 01580 PRT J $ STAKER01580 002772 4400020702 01590 SC 0207,2 STAKER01590 002777 4000620400 01600 PO XF 062,0040400,0,0 STAKER01600 003004 4400470000 01610 SC PAR,0 STAKER01610 003011 2000007722 01620 FT 63,18 STAKER01620 003016 2400470001 01630 TFR PAR CLEAR PRINT AREA STAKER01630 * 003023 3000276540 01640 SW5 JC PRT,32 NO FORM ADVANCE STAKER01640 003030 4400020736 01650 SC 0207,30 0 STAKER01650 003035 4000640000 01660 XF 064,0,0,0,0 ADV. FORM STAKER01660 * 003042 3000276500 01670 J PRT STAKER01670 003047 5600367215 01680 NOID BA1 MS8,13 WRONG CARD ID STAKER01680 003054 5200471515 01690 SA1 PAR+13,1,13 STAKER01690 * 003061 1000277000 01700 JR PRT STAKER01700 * 003066 3000175020 01710 JHJ PASS1 STAKER01710 * 003073 3000000560 01720 ERI JD 5 INT. OCCURED ON S/S ONLY STAKER01720 * 003100 3000041000 01730 J 0410 STAKER01730 * 003105 3000000660 01740 ERINT JD 6 READER ERROR-HIT START STAKER01740 003112 4020407777 01750 XF 32,0777777,0,1 TO REPEAT READ ORDER STAKER01750 003117 5600013303 01760 BA1 0133,3 STAKER01760 003124 5200041303 01770 SA1 0413,3 STAKER01770 * 003131 3000041000 01780 J 0410 STAKER01780 * 003136 3000000760 01790 IPT0 JD 7 PRINTER INT. HIT START STAKER01790 003143 4000407777 01800 XF 32,0777777,0,0 TO REPEAT PRINT ORDER STAKER01800 * 003150 3000277731 01810 JC PO,25 STAKER01810 * 003155 3000315500 01820 TDLY J $ VARIABLE TIME DELAY STAKER01820 003162 5600336443 01830 BD1 D0,3 STAKER01830 003167 4400320023 01840 LOOP SC $+9,19 1 MS LOOP STAKER01840 * 003174 3200317423 01850 JL $,19 STAKER01850 003201 6600335603 01860 AD1 D1,3 STAKER01860 003206 2600003743 01870 CD1 31,3 AR2 HAS NUMBER OF MS STAKER01870 * 003213 3000316743 01880 JU LOOP STAKER01880 * 003220 3000315527 01890 JC TDLY,23 3 STAKER01890 * 003225 3000322500 01900 INC J $ INCREMENT TIME DELAY STAKER01900 003232 3400003703 01910 CC 31,3 STAKER01910 * 003237 3000325642 01920 JE $+15 STAKER01920 003244 6600335623 01930 AD2 D1,3 STAKER01930 * 003251 3000322500 01940 J INC STAKER01940 003256 6600336163 01950 SD2 D5,3 STAKER01950 * 003263 3000322500 01960 J INC STAKER01960 * 003270 3000000160 01970 I1 JD 1 CLASS 1 INT. STAKER01970 003277 003270 01980 +3 I1 STAKER01980 * 003300 3000000260 01990 JD 2 STAKER01990 003307 003330 02000 IE2 +3 IP2 STAKER02000 * 003310 3000331031 02010 JC $,25 STAKER02010 003317 003136 02020 +3 IPT0 STAKER02020 * 003320 3000332031 02030 JC $,25 STAKER02030 003327 002171 02040 IERP +3 INT STAKER02040 * 003330 3000334254 02050 IP2 JC $+10,44 4 OPERATOR REQUEST STAKER02050 * 003335 3000000260 02060 JD 2 CLASS 2 INT. STAKER02060 * 003342 3000334735 02070 JC $+5,29 STAKER02070 * 003347 3000135616 02080 JC START,1414 STAKER02080 003356 001 02090 D1 +3 _001_ STAKER02090 003361 005 02100 D5 +3 _005_ STAKER02100 003364 000 02110 D0 +3 _000_ STAKER02110 003370 00000764 02120 B500 +4 500 STAKER02120 003373 000005 02130 B5 +3 5 STAKER02130 003376 200 02140 D200 +3 _200_ STAKER02140 003401 085 02150 D85 +3 _085_ STAKER02150 003404 125 02160 +3 _125_ STAKER02160 003407 175 02170 +3 _175_ STAKER02170 003412 035 02180 D25 +3 _035_ STAKER02180 003415 045 02190 +3 _045_ STAKER02190 003420 065 02200 +3 _065_ STAKER02200 000047 02210 X1 EQU 39 STAKER02210 000053 02220 X2 EQU 43 STAKER02220 000057 02230 X3 EQU 47 STAKER02230 000063 02240 X4 EQU 51 STAKER02240 003432 END PASS 1 02250 MS1 +10 _END PASASS 1_ STAKER02250 003433 02260 MS2 EQU $ STAKER02260 003452 CARD NOT SELECTE 02270 +16 _CARD NONOT SELECTE_ STAKER02270 C 003472 D AFTER MS DEL 02280 +16 _D AFTERER MS DEL_ STAKER02280 D 003507 AY S/S FEED 02290 +13 _AY S/S/S FEED_ STAKER02290 _ 003521 END PASS 2 02300 MS3 +10 _END PASASS 2_ STAKER02300 003525 ONLY 02310 MS4 +4 _ONLY_ STAKER02310 003526 02320 MS6 EQU $ STAKER02320 003545 EXTRA CARD SELEC 02330 +16 _EXTRA C CARD SELEC_ STAKER02330 L 003550 TED 02340 +3 _TED_ STAKER02340 003566 SEQUENCE ERROR 02350 MS7 +14 _SEQUENCNCE ERROR_ STAKER02350 R * 003567 3000356700 02360 SORT J $ SORT- ALL CARDS WITH ID IN STAKER02360 * 003574 3000360663 02370 JC $+10,51 1 COL. 75 WILL BE IN ERR STKR STAKER02370 * 003601 3000356700 02380 J SORT STAKER02380 003606 2000361326 02390 FT $+5,22 STAKER02390 003613 4020610100 02400 XF 061,010000,0,1 STAKER02400 003620 3400700053 02410 CHEK CC IMG,_Q_ _ STAKER02410 * 003625 3000357442 02420 JE SORT+5 STAKER02420 003632 2000363726 02430 FT $+5,22 STAKER02430 003637 4020611100 02440 XF 061,0110100,0,1 ERROR STKR. STAKER02440 * 003644 3000362063 02450 JC CHEK,51 1 STAKER02450 * 003651 3000356700 02460 J SORT STAKER02460 003672 WRONG CARD ID 02470 MS8 +13 _WRONG C CARD ID_ STAKER02470 _ 003673 764 02480 KEY AREA 500 STAKER02480 004700 02490 ORIG $,64 STAKER02490 004700 100 02500 PAR AREA 64,B,0 STAKER02500 007000 02510 IMG EQU 07000 STAKER02510 0000 ERROR LINES 3000135600 02520 END START STAKER02520 {-- tape mark --} 000643 C591 DSP1 CODEDIT SOURCE 08/65 - T3834394-59 001350 00010 T590 BEGIN 01350 DSPT1 00010 *LOAD 017300,T,TAPE,R,PRELD P * 001350 3007010660 * JD 070106 * * 001355 3000135000 * J $-5 * SEGMENT-ID T591 3000135000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T592 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2001751611 * FT 017300+0+0216,9,0 * 0 000457 2001730060 * FT 017300,4,48,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 2001751660 * FT 017300+0+0216,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 3001734000 * J 017300+0+040,0 * 017340 * ORIG 017300+0+040 * 017340 4100610100 * XF 061,010000,0,4 * 017345 6000001701 * AC 15,1 * 017352 3420022211 * CC 146,9,1 1 * * 017357 3001746542 * JE $+70 * 017364 2600004104 * PD 041,4 * 017371 3620021700 * CS 143,0,1 1 * 017376 3620011700 * CS 79,0,1 * 017403 3620001712 * CS 15,10,1 1 * 017410 1600004166 * BC2 041,6 * 017415 3620022102 * CS 145,2,1 1 * 017422 7000004162 * CB2 041,2 * * 017427 3001744142 * JE $+10 * * 017434 3007010460 * JD 070104 * 017441 4620003520 * BT 29,16,1 1 * 017446 4620003722 * BT 31,18,1 1 * 017453 2420004001 * TFR 32,,1 * * 017460 3001734000 * J $-80 * 017465 4100640000 * XF 064,0,0,0,4 * 017472 7020004642 * CB1 38,2,1 * * 017477 3020004042 * JE 32,1 * * 017504 3007010560 * JD 070105 * * 017511 3020004000 * J 32,1 * 017516 245 * AREA 165 * SEGMENT-ID T593 3001776300 * SEGJP $ * 001350 00020 ORIG 01350 DSPT1 00020 001350 2001126003 00030 STRT FT MSIZE,3 3 DSPT1 00030 001355 5200050703 00040 SA1 0507,3 DSPT1 00040 001362 5603000001 00050 BA1 030000,1,1 TEST MEM FOR 16K DSPT1 00050 001367 5600136502 00060 START BA1 START-2,2,2 RESTORE ORIG UNIT 00060 S 001374 5201244402 00070 SA1 UFST-3,2,2 DSPT1 00070 001401 5601244705 00080 BA1 UFST,5 LU UU FS WR ODD EVEN DSPT1 00080 U * 001406 3000141320 00090 JHJ $+5 DSPT1 00090 001413 5201244705 00100 SA1 UFST,5 DSPT1 00100 001420 4400212600 00110 SC WRCOD-9,9,0 DSPT1 00110 001425 4400223606 00120 SC FXALL-7,7,6 DSPT1 00120 001432 3401244513 00130 CC UFST-2,0,013 DSPT1 00130 * 001437 3000241642 00140 JE FBFS1 DSPT1 00140 001444 3401244523 00150 CC UFST-2,0,023 DSPT1 00150 * 001451 3000250542 00160 JE FBFS2 DSPT1 00160 001456 5601237020 00170 LMITS BA2 BLLF2,1616 00000000 02773700 FS2A DSPT1 00170 0 001463 3401244501 00180 CC UFST-2,1,1 DSPT1 00180 * 001470 3000166042 00190 JE SETF1 DSPT1 00190 001475 3401244500 00200 CC UFST-2,0,0 DSPT1 00200 * 001502 3000171142 00210 JE SETHV DSPT1 00210 001507 5201237020 00220 SA2 BLLF2,1616 00004000 02777700 FS2B DSPT1 00220 0 001514 6400002101 00230 MKODD LS 021,1 00000000 00573700 HFSA DSPT1 00230 0 001521 6400003101 00240 LS 031,1 00004000 00577700 HFSB DSPT1 00240 0 001526 5201221020 00250 SA2 FDF2B,1616 DSPT1 00250 001533 5400002100 00260 LP 021,0 TRACK 00 DSPT1 00260 C 001540 5400003100 00270 LP 031,0 DSPT1 00270 001545 5400002576 00280 LP 025,076 6 EVEN TRACK DSPT1 00280 N 001552 5400003576 00290 LP 035,076 6 DSPT1 00290 001557 5201223020 00300 LLMTS SA2 FVF2B,1616 DSPT1 00300 001564 5601244402 00310 BA1 UFST-3,2,2 DSPT1 00310 001571 5200136502 00320 SA1 START-2,2,2 00320 001576 7001244341 00330 CB1 UFST-4,1,1 DSPT1 00330 001603 1601244422 00340 BS2 UFST-3,2,2 DSPT1 00340 * 001610 3000174243 00350 JU UNITS DSPT1 00350 * 001615 1000175700 00360 JR FUNIT FIXES STARTING UNIT IF OR NOT ZERO DSPT1 00360 001622 3401244700 00370 ODEVN CC UFST,0 $ LU EQUALS UU UNITS DSPT1 00370 * 001627 3000206742 00380 JE EVEN DSPT1 00380 001634 3401244701 00390 CC UFST,1 DSPT1 00390 * 001641 3000206242 00400 JE ODD DSPT1 00400 * 001646 3000000260 00410 JD 002 NO ODD OR EVEN TRACKS SELECTED DSPT1 00410 O * 001653 3000136700 00420 J START DSPT1 00420 001660 4400002401 00430 SETF1 SC 024,1 DSPT1 00430 001665 4400002537 00440 SC 025,037 7 01373700 DSPT1 00440 7 001672 4400003401 00450 SC 034,1 DSPT1 00450 001677 4400003537 00460 SC 035,037 7 DSPT1 00460 * 001704 3000150700 00470 J MKODD-5 5 DSPT1 00470 001711 4400002400 00480 SETHV SC 024,0 DSPT1 00480 001716 4400002557 00490 SC 025,057 7 DSPT1 00490 001723 4400003400 00500 SC 034,0 DSPT1 00500 001730 4400003557 00510 SC 035,057 7 DSPT1 00510 * 001735 3000150700 00520 J MKODD-5 5 DSPT1 00520 * 001742 1000175700 00530 UNITS JR FUNIT DSPT1 00530 * 001747 3000162200 00540 J ODEVN DSPT1 00540 * 001754 3000000000 00550 FUNIT J 0 DSPT1 00550 001761 5601244301 00560 BA1 UFST-4,1,1 DSPT1 00560 001766 5200203501 00570 SA1 CUNIT+4,4,1 CURRENT OR STARTING UNIT DSPT1 00570 001773 2600006704 00580 PD 067,4 DSPT1 00580 002000 5521217103 00590 LPUNT LP FSHOD-3,3,3,5 DSPT1 00590 002005 6000006704 00600 AC X5,4 DSPT1 00600 002012 7401216115 00610 CT K54,13 DSPT1 00610 * 002017 3000200043 00620 JU LPUNT DSPT1 00620 002024 2600006704 00630 PD 067,4 CLEAR IR5 DSPT1 00630 002031 6521217100 00640 CUNIT LS FSHOD-3,3,0,5 DSPT1 00640 002036 6000006704 00650 AC X5,4 DSPT1 00650 002043 7401216115 00660 CT K54,13 DSPT1 00660 * 002050 3000203143 00670 JU CUNIT DSPT1 00670 * 002055 3000175400 00680 J FUNIT DSPT1 00680 * 002062 3000207422 00690 ODD JC EVEN+5,1,18 $ SET SI 1 ODD OPTION DSPT1 00690 * 002067 3000207425 00700 EVEN JC $+5,21 $ SSI 1 RESET IS EVEN OPT DSPT1 00700 * 002074 1000764200 00710 JR SETCN SET CONTNUOUS DSPT1 00710 O 002101 3401244677 00720 CC UFST-1,0,077 WRC DSPT1 00720 * 002106 3000213742 00730 JE WRCOD STRAIGHT OPT NO CHANGES DSPT1 00730 002113 3401244661 00740 CC UFST-1,0,061 SEQUENTIAL READ ONLY NO COMPARE DSPT1 00740 * 002120 3000213742 00750 JE WRCOD DSPT1 00750 * 002125 3000000560 00760 JD 05 NO WRC OP SELECTED DSPT1 00760 W * 002132 3000136700 00770 J START DSPT1 00770 002137 3401244502 00780 WRCOD CC UFST-2,2,2 FS2 DSPT1 00780 * 002144 3000215665 00790 JC $+10,53 3 DSPT1 00790 * 002151 3000532142 00800 JE VNFS2 DSPT1 00800 * 002156 3000230342 00810 JE FXOD2 DSPT1 00810 002163 3401244501 00820 CC UFST-2,1,1 DSPT1 00820 * 002170 3000237242 00830 JE ODFS1 DSPT1 00830 002175 3401244500 00840 CC UFST-2,0,0 DSPT1 00840 * 002202 3000234642 00850 JE ODHFS DSPT1 00850 002207 3401244503 00860 CC UFST-2,3,3 FASTBANDS DSPT1 00860 * 002214 3000222665 00870 JC $+10,53 3 DSPT1 00870 * 002221 3000325042 00880 JE EVFSB EV FASTBANDS DSPT1 00880 * 002226 3000276442 00890 JE ODFSB ODD FASTBANDS DSPT1 00890 * 002233 3000000660 00900 JD 06 WRONG FS SELECTED DSPT1 00900 N * 002240 3000136725 00910 JC START,2121 DSPT1 00910 * 002245 3000000000 00920 FXALL J 0 DSPT1 00920 002252 5601246605 00930 BA1 FSWHA+4,4,5 DSPT1 00930 002257 5200355705 00940 SA1 SWHDA+4,4,5 DSPT1 00940 002264 5200511605 00950 SA1 SRHDA+4,4,5 CC 016,32 DSPT1 00950 002271 4401135100 00960 SC FRSTE,0 0 INITIALY DSPT1 00960 A * 002276 3000224500 00970 J FXALL DSPT1 00970 002303 5601140303 00980 FXOD2 BA1 FS2,3 DSPT1 00980 002310 4400725602 00990 SC KFS+4,2 2 DSPT1 00990 002315 4401244502 01000 SC UFST-2,2,2 DSPT1 01000 002322 5201142403 01010 SA1 FA2NC,3 3 DSPT1 01010 002327 3401244661 01020 CC UFST-1,0,061 DSPT1 01020 * 002334 3000744742 01030 JE RONLY DSPT1 01030 * 002341 3000253600 01040 J ODFS2 DSPT1 01040 002346 5601141103 01050 ODHFS BA1 HFS,3 DSPT1 01050 002353 4400725600 01060 SC KFS+4,0 0 DSPT1 01060 002360 4400212700 01070 SC WRCOD-8,8,0 DSPT1 01070 * 002365 3000231500 01080 J FXOD2+1010 DSPT1 01080 002372 5601140603 01090 ODFS1 BA1 FS1,3 DSPT1 01090 002377 4400725601 01100 SC KFS+4,1 1 DSPT1 01100 002404 4400212701 01110 SC WRCOD-8,8,1 DSPT1 01110 * 002411 3000231500 01120 J FXOD2+1010 DSPT1 01120 002416 5601140603 01130 FBFS1 BA1 FS1,3 INIT DO FSBANDS 1ST DSPT1 01130 T 002423 5201142403 01140 SA1 FA2NC,3 3 DSPT1 01140 002430 5601244501 01150 BA1 UFST-2,1,1 DSPT1 01150 002435 5200223601 01160 SA1 FXALL-7,7,1 13 OR 23 DSPT1 01160 O 002442 5200002001 01170 SA1 020,1 001011 IN 020 DSPT1 01170 0 002447 5400001703 01180 LP 017,03 SAVE 03 BITS DSPT1 01180 E 002454 5201244501 01190 SA1 UFST-2,1,1 03 TO ORIGINAL MEM LOC DSPT1 01190 T 002461 2600001704 01200 PD 017,4 DSPT1 01200 002466 1600002023 01210 BS2 020,3 000001 IN 017 DSPT1 01210 0 002473 5200223501 01220 SA1 FXALL-8,8,1 01 OR 02 FOR FS1 OR 2 DSPT1 01220 O * 002500 3000145600 01230 J LMITS DSPT1 01230 002505 5601140303 01240 FBFS2 BA1 FS2,3 DSPT1 01240 * 002512 3000242300 01250 J FBFS1+5 5 DSPT1 01250 002517 6400001277 01260 FXDB LS 012,077 7 DSPT1 01260 002524 6400001677 01270 LS 016,077 7 DSPT1 01270 * 002531 3000265100 01280 J ALLIN+2525 DSPT1 01280 002536 5601221000 01290 ODFS2 BA1 FDF2B,1616 DSPT1 01290 002543 5201231000 01300 SA1 UPLMB,1616 DSPT1 01300 002550 5201241000 01310 SA1 UPERB,1616 DSPT1 01310 002555 5601136705 01320 BA1 FAGLS+4,4,5 LS 016,32 DSPT1 01320 0 002562 5200333605 01330 SA1 LSODD-1111,5 DSPT1 01330 002567 5200462505 01340 SA1 LSR-11,5,5 DSPT1 01340 002574 5601250505 01350 BA1 JEOL2+4,4,5 DSPT1 01350 002601 5200504105 01360 SA1 JE+14,5 5 DSPT1 01360 002606 5601142403 01370 BA1 FA2NC,3 3 FS2,1,OR HFV DSPT1 01370 , * 002613 1000372700 01380 JR FS1N2 DSPT1 01380 * 002620 1000225000 01390 ALLIN JR FXALL DSPT1 01390 002625 5601242010 01400 BA1 FVLMA,8 8 00013700 ODLMA DSPT1 01400 7 * 002632 3000251762 01410 JC FXDB,50 0 DSPT1 01410 002637 5201244010 01420 SA1 EVLMA,8 8 00003700 EVLMA DSPT1 01420 7 002644 4400344266 01430 SC WRIT+2,0,066 WRITE'POSITION DSPT1 01430 I 002651 4400466665 01440 SC READ+2,0,065 READ'POS DSPT1 01440 A 002656 4400502740 01450 SC JE+4,04040 FOR RD ODD REINIT DSPT1 01450 R 002663 4400507740 01460 SC CFSB-1,0,040 NOOP EVLMA COPARE ON ALLREAD DSPT1 01460 O 002670 4400546552 01470 SC SA1,052 2 DSPT1 01470 002675 4400547105 01480 SC SA1+4,0505 DSPT1 01480 002702 4400547752 01490 SC SA2,052 2 DSPT1 01490 002707 4400550305 01500 SC SA2+4,5 5 DSPT1 01500 * 002714 3000272125 01510 JC $+5,21 DSPT1 01510 * 002721 1000521600 01520 JR TRLSD DSPT1 01520 * 002726 1000610100 01530 JR NOPCC DSPT1 01530 002733 5601250005 01540 BA1 CTUPA+4,4,5 CT UPERA,57 DSPT1 01540 U 002740 5200502205 01550 SA1 JE-1,5 DSPT1 01550 002745 5601247305 01560 ALLBA BA1 FCTDA+4,4,5 CT UPODA,57 DSPT1 01560 U 002752 5200345605 01570 SA1 WRIT+14,4,5 DSPT1 01570 * 002757 3000326700 01580 J NIT DSPT1 01580 * 002764 3000277125 01590 ODFSB JC $+5,21 DSPT1 01590 002771 4400725603 01600 SC KFS+4,3 3 DSPT1 01600 002776 3401244661 01610 CC UFST-1,0,061 DSPT1 01610 * 003003 3000744742 01620 JE RONLY DSPT1 01620 003010 5601225000 01630 BA1 FDFSB,1616 FIX LIMITS DSPT1 01630 003015 5201231000 01640 SA1 UPLMB,1616 DSPT1 01640 003022 4400504140 01650 SC JE+14,04040 DSPT1 01650 003027 4401135100 01660 SC FRSTE,0 0 INITIALY DSPT1 01660 A 003034 5601133605 01670 BA1 FCFSB+4,4,5 DSPT1 01670 003041 5200502205 01680 SA1 JE-1,5 J CTFSB DSPT1 01680 T 003046 5601133105 01690 BA1 FFSBR+4,4,5 INIT ODD FSBANDS READ DA DSPT1 01690 003053 5200511605 01700 SA1 SRHDA+4,4,5 DSPT1 01700 003060 4400346342 01710 SC WRIT+19,9,042 DSPT1 01710 003065 4400344262 01720 SC WRIT+2,0,062 DSPT1 01720 003072 4400466661 01730 SC READ+2,0,061 DSPT1 01730 003077 4400660214 01740 SC CCFBS+4,4,014 DSPT1 01740 003104 4400661400 01750 SC FBSCC+4,4,0 DSPT1 01750 003111 4400662626 01760 SC FBSCC+1414,026 DSPT1 01760 * 003116 1000625200 01770 JR STHAB DSPT1 01770 * 003123 1000613200 01780 JR LSNOP DSPT1 01780 003130 5601135005 01790 BA1 NOPLS+4,4,5 DSPT1 01790 003135 5200470205 01800 SA1 CC+4,5 DSPT1 01800 003142 5200475205 01810 SA1 CCJC+4,5,5 DSPT1 01810 003147 5601251705 01820 BA1 FJLSD+4,4,5 DSPT1 01820 003154 5200333605 01830 SA1 LSODD-1111,5 DSPT1 01830 003161 5601252405 01840 BA1 FJLSR+4,4,5 DSPT1 01840 003166 5200462505 01850 SA1 LSR-11,5,5 DSPT1 01850 * 003173 3000274500 01860 J ALLBA DSPT1 01860 003200 5601231010 01870 INITB BA1 UPLMB,8 8 DSPT1 01870 003205 5201230010 01880 SA1 UPODA,8 8 DSPT1 01880 003212 3401244503 01890 CC UFST-2,3,3 DSPT1 01890 * 003217 3000324342 01900 JE $+20 DSPT1 01900 003224 5201243404 01910 SA1 ODLMA,4 4 DSPT1 01910 003231 5401243174 01920 LP ODLMA-3,3,074 DSPT1 01920 003236 5401243201 01930 LP ODLMA-2,2,1 DSPT1 01930 * 003243 3000425300 01940 J BGO DSPT1 01940 003250 5601227000 01950 EVFSB BA1 FVFSB,1616 DSPT1 01950 003255 5201233000 01960 SA1 UPEVB,1616 DSPT1 01960 * 003262 3000277600 01970 J ODFSB+1010 DSPT1 01970 * 003267 1000417400 01980 NIT JR INIT DSPT1 01980 * 003274 1000427500 01990 JNITW JR INITW DSPT1 01990 003301 2600013704 02000 PD T23,4 DSPT1 02000 003306 5601230404 02010 AGEN BA1 ODLOB,4 4 ADDR GEN FOR WRITE DSPT1 02010 * 003313 3000332565 02020 JC $+10,53 3 JC REP-5,53 FOR DB POSTN DSPT1 02020 P 003320 5601227404 02030 BA1 ODLOA,4 4 DSPT1 02030 003325 2600001701 02040 PD 017,1 DSPT1 02040 003332 6400001640 02050 LS 016,32 J LSODD FASTBANDS DSPT1 02050 S * 003337 3000335165 02060 JC $+10,53 3 DSPT1 02060 003344 5400001637 02070 LP 016,31 DSPT1 02070 003351 6400001501 02080 LSODD LS 015,1 STRT ODD TRACKS NOOP FOR EVN DSPT1 02080 003356 5200034704 02090 SA1 0347,4 DSPT1 02090 003363 5241324704 02100 REP SA1 AREA+16767,4,2 DSPT1 02100 003370 7601215012 02110 AT ADV,X2 DSPT1 02110 003375 7601131427 02120 AT ONE,23 DSPT1 02120 003402 7401132027 02130 CT SEC,23 DSPT1 02130 * 003407 3000342642 02140 JE $+15 DSPT1 02140 003414 6000001701 02150 AC 017,1 DSPT1 02150 * 003421 3000336300 02160 J REP DSPT1 02160 003426 2600013704 02170 PD T23,4 DSPT1 02170 003433 2600005304 02180 PD X2,4 DSPT1 02180 003440 4140660000 02190 WRIT XF 066,0,0,0,6 DSPT1 02190 003445 2601215101 02200 PD FOUR,1 RESET ERROR COUNT DSPT1 02200 003452 7401230071 02210 CT UPODA,5757 J NPOST DSPT1 02210 O * 003457 3000453242 02220 JE ODRID DSPT1 02220 003464 7401232071 02230 CT UPEVA,5757 01363600 LAST EVN TRACK A DSPT1 02230 * 003471 3000453242 02240 JE ODRID DSPT1 02240 003476 7401240071 02250 CT UPERA,5757 DSPT1 02250 * 003503 3000455642 02260 JE ENDWA LAST TRACK A DSPT1 02260 003510 7401241071 02270 CT UPERB,5757 DSPT1 02270 * 003515 3000456342 02280 JE ENDWB LAST TRACK B DSPT1 02280 003522 7401243471 02290 CT ODLMA,5757 DSPT1 02290 * 003527 3000360442 02300 JE FSTOD DSPT1 02300 003534 7401244071 02310 CT EVLMA,5757 DSPT1 02310 * 003541 3000360442 02320 JE FSTOD DSPT1 02320 003546 6000001701 02330 AC 017,1 DSPT1 02330 003553 3400001600 02340 SWHDA CC 016,0 J FSBHA SWITCH HEADS DA'B FS1'2 DSPT1 02340 S * 003560 3000357265 02350 JC $+10,53 3 DB DSPT1 02350 003565 3400001640 02360 CC 016,32 DA DSPT1 02360 * 003572 3000335643 02370 REPM5 JU REP-5 DSPT1 02370 * 003577 3000415765 02380 JC TMB,53 DB DSPT1 02380 * 003604 1000362100 02390 FSTOD JR PRWFS DSPT1 02390 * 003611 3000457500 02400 NTFSR J RGEN DSPT1 02400 * 003616 3000000000 02410 PRWFS J 0 PRINT FS1 OR 2 WRITE TRACK DSPT1 02410 N 003623 5601210420 02420 BA2 WRODB DSPT1 02420 * 003630 3000364265 02430 JC $+10,53 3 DSPT1 02430 003635 5601206420 02440 BA2 WRODA DSPT1 02440 * 003642 1001100400 02450 JR PRT DSPT1 02450 003647 5601217041 02460 BD1 DD2,1 DSPT1 02460 * 003654 3000367365 02470 JC $+15,53 3 DSPT1 02470 003661 6201205503 02480 AM1 WRODA-7,7,3 DSPT1 02480 * 003666 3000370000 02490 JC $+10 DSPT1 02490 003673 6201207503 02500 AM1 WRODB-7,7,3 DSPT1 02500 003700 3401216700 02510 CC FRSTR,0 0 DSPT1 02510 * 003705 3000361143 02520 JU NTFSR DSPT1 02520 003712 4401216701 02530 SC FRSTR,1 1 DSPT1 02530 * 003717 3000361600 02540 J PRWFS DSPT1 02540 * 003724 3000000000 02550 FS1N2 J 0 DSPT1 02550 003731 5201206103 02560 SA1 WRODA-3,3,3 DSPT1 02560 003736 5201210103 02570 SA1 WRODB-3,3,3 DSPT1 02570 003743 5201212103 02580 SA1 RDODA-3,3,3 DSPT1 02580 003750 5201214103 02590 SA1 RDODB-3,3,3 DSPT1 02590 003755 5601141603 02600 BA1 WR,3 DSPT1 02600 003762 5201205503 02610 SA1 WRODA-7,7,3 DSPT1 02610 003767 5201207503 02620 SA1 WRODB-7,7,3 DSPT1 02620 003774 5201211503 02630 SA1 RDODA-7,7,3 DSPT1 02630 004001 5201213503 02640 SA1 RDODB-7,7,3 DSPT1 02640 * 004006 3000372400 02650 J FS1N2 DSPT1 02650 * 004013 1000407300 02660 RETWR JR PRRFS DSPT1 02660 004020 6001243202 02670 AC ODLMA-2,2,2 DSPT1 02670 * 004025 3000405165 02680 JC $+20,53 3 DSPT1 02680 004032 6001227202 02690 AC ODLOA-2,2,2 DSPT1 02690 004037 5601227404 02700 BA1 ODLOA,4 4 DSPT1 02700 * 004044 3000327400 02710 J JNITW DSPT1 02710 004051 6001230202 02720 AC ODLOB-2,2,2 DSPT1 02720 004056 5601230404 02730 BA1 ODLOB,4 4 DSPT1 02730 * 004063 3000327400 02740 J JNITW DSPT1 02740 * 004070 3000000000 02750 PRRFS J 0 PRINT FS1 OR 2 READ TRACK DSPT1 02750 N 004075 5601214420 02760 BA2 RDODB DSPT1 02760 * 004102 3000411465 02770 JC $+10,53 3 DSPT1 02770 004107 5601212420 02780 BA2 RDODA DSPT1 02780 * 004114 1001100400 02790 JR PRT DSPT1 02790 004121 5601217041 02800 BD1 DD2,1 DSPT1 02800 * 004126 3000414565 02810 JC $+15,53 3 DSPT1 02810 004133 6201211503 02820 AM1 RDODA-7,7,3 DSPT1 02820 * 004140 3000415200 02830 JC $+10 DSPT1 02830 004145 6201213503 02840 AM1 RDODB-7,7,3 DSPT1 02840 * 004152 3000407000 02850 J PRRFS DSPT1 02850 004157 4400001640 02860 TMB SC 016,32 DSPT1 02860 * 004164 3000335600 02870 J REP-5 DSPT1 02870 * 004171 3000000000 02880 INIT J 0 DSPT1 02880 004176 5601255410 02890 BA1 IE6,8 DSPT1 02890 004203 5200046710 02900 SA1 0467,8 DSPT1 02900 004210 5601256410 02910 BA1 IE0,8 DSPT1 02910 004215 5200040710 02920 SA1 0407,8 DSPT1 02920 004222 5601260400 02930 BA1 IE2,16 DSPT1 02930 004227 5200051700 02940 SA1 0517,16 6 DSPT1 02940 * 004234 3000424122 02950 JC $+5,18 DSPT1 02950 * 004241 3000320062 02960 JC INITB,5050 SET DRUMB DSPT1 02960 * 004246 3000425325 02970 JC $+5,21 DSPT1 02970 004253 2601215101 02980 BGO PD FOUR,1 RESET ERROR COUNT DSPT1 02980 E 004260 2600001700 02990 PD 017,16 DSPT1 02990 * 004265 3000417100 03000 J INIT DSPT1 03000 * 004272 3000000000 03010 INITW J 0 DSPT1 03010 004277 2600013704 03020 PD T23,4 DSPT1 03020 004304 2600006300 03030 PD X4,16 DSPT1 03030 004311 2001300070 03040 FT AREA,56 6 SECTOR COUNT 64 OR 32 DSPT1 03040 004316 4400034020 03050 SCNT SC 0340,16 6 DEPENDING ON MEM SIZE DSPT1 03050 004323 4400001700 03060 PAT SC 017,0 PATTERN GENERATOR DSPT1 03060 004330 5221300001 03070 PGEN SA1 AREA,1,1,1 DSPT1 03070 004335 6000001701 03080 AC 017,1 DSPT1 03080 004342 6000004701 03090 AC X1,1 DSPT1 03090 * 004347 3200433077 03100 JL PGEN,63 3 DSPT1 03100 * 004354 3200433077 03110 JL PGEN,63 3 DSPT1 03110 * 004361 3200433050 03120 JL PGEN,40 0 DSPT1 03120 004366 4400435377 03130 SC $-11,63 3 DSPT1 03130 004373 4400436077 03140 SC $-11,63 3 DSPT1 03140 004400 4400436550 03150 SC $-11,40 0 DSPT1 03150 004405 6000004704 03160 AC X1,4 DSPT1 03160 004412 7601131427 03170 AT ONE,23 DSPT1 03170 004417 7401132027 03180 CT SEC,23 DSPT1 03180 * 004424 3000432343 03190 JU PAT DSPT1 03190 * 004431 3000427200 03200 J INITW DSPT1 03200 004436 3400001700 03210 FSBHA CC 017,0 DSPT1 03210 * 004443 3000335643 03220 JU REP-5 DSPT1 03220 004450 6000001601 03230 AC 016,1 DSPT1 03230 004455 3400001631 03240 CC 016,031 1 DB DSPT1 03240 * 004462 3000447465 03250 JC $+10,53 3 DSPT1 03250 004467 3400001615 03260 CC 016,015 5 DSPT1 03260 * 004474 3000335643 03270 JU REP-5 DSPT1 03270 004501 5601172420 03280 PRFSB BA2 WEVFB,1616 DSPT1 03280 004506 3401135100 03290 CC FRSTE,0 0 DSPT1 03290 * 004513 3000452543 03300 JU $+10 I IF NOT EQU TIS EVN HEADS DSPT1 03300 E 004520 5601170420 03310 BA2 WHFSB,1616 ODD WR FSB DSPT1 03310 * 004525 3000457026 03320 JC ENDWB+5,5,22 DSPT1 03320 004532 3401244503 03330 ODRID CC UFST-2,3,3 DSPT1 03330 * 004537 3000450142 03340 JE PRFSB DSPT1 03340 * 004544 3000520100 03350 J RLSTR DSPT1 03350 * 004551 3000455120 03360 JHJ $ DSPT1 03360 * 004556 3000360400 03370 ENDWA J FSTOD DSPT1 03370 * 004563 3000360400 03380 ENDWB J FSTOD DSPT1 03380 * 004570 1001100400 03390 JR PRT DSPT1 03390 004575 5601230404 03400 RGEN BA1 ODLOB,4 4 GEN ADDR FOR READ DSPT1 03400 * 004602 3000461465 03410 JC $+10,53 3 DSPT1 03410 004607 5601227404 03420 BA1 ODLOA,4 4 DSPT1 03420 004614 2600001701 03430 PD 017,1 DSPT1 03430 004621 6400001640 03440 LS 016,32 DSPT1 03440 * 004626 3000464065 03450 JC $+10,53 3 DSPT1 03450 004633 5400001637 03460 LP 016,31 DSPT1 03460 004640 6400001501 03470 LSR LS 015,1 NOOP FOR EVEN TRACKS DSPT1 03470 004645 2001300070 03480 FT AREA,56 6 DSPT1 03480 004652 4400034020 03490 RSCNT SC 0340,16 6 FOR READING 64 SECTORS DSPT1 03490 004657 5200034704 03500 SA1 0347,4 DSPT1 03500 004664 4140650000 03510 READ XF 065,0,0,0,6 DSPT1 03510 004671 2601215101 03520 PD FOUR,1 RESET ERROR COUNT DSPT1 03520 * 004676 3000470340 03530 CC JC $+5,040 0 JR FBCC,19 SI2 SET FOR NO COMP FBSH DSPT1 03530 F 004703 7061324744 03540 COMP CB1 AREA+16767,4,3 COMP LAST 4 DATA CHARACTERS DSPT1 03540 * 004710 1001110043 03550 JR CMPER,3535 OF EACH SECTOR TO GEN ADDRESS DSPT1 03550 004715 7601215013 03560 NOCOM AT ADV,X3 DSPT1 03560 004722 7601131427 03570 AT ONE,23 DSPT1 03570 004727 7401132027 03580 CT SEC,23 DSPT1 03580 * 004734 3000476042 03590 JE $+20 DSPT1 03590 004741 6000001701 03600 AC 017,1 DSPT1 03600 * 004746 3000467666 03610 CCJC JC CC,54 IF SI2 SET GO CC EVN H ONLY DSPT1 03610 S * 004753 3000470300 03620 J COMP DSPT1 03620 004760 2600013704 03630 PD T23,4 DSPT1 03630 004765 2600005704 03640 PD X3,4 DSPT1 03640 004772 4401103602 03650 SC SP+4,2 DSPT1 03650 004777 2600003700 03660 PD 31,16 DSPT1 03660 * 005004 1001100467 03670 JR PRT,55 DSPT1 03670 * 005011 3000501627 03680 JC $+5,23 DSPT1 03680 005016 7401240071 03690 CT UPERA,5757 J CTFSB FOR FSB,RESTORE FOR RDALL DSPT1 03690 T * 005023 3000674242 03700 JE JE ENDRA 0 040 FOR RD ODD REINITIALIZE DSPT1 03700 005030 7401230071 03710 CT UPODA,5757 DSPT1 03710 * 005035 3000540342 03720 JE OLRF2 FIX THIS FOR FS1+FS2 DSPT1 03720 005042 7401243471 03730 CT ODLMA,5757 DSPT1 03730 * 005047 3000401342 03740 JE RETWR ODD TRACKS DSPT1 03740 005054 7401241071 03750 CT UPERB,5757 DSPT1 03750 * 005061 3000674242 03760 JE ENDRA DSPT1 03760 005066 7401244071 03770 CT EVLMA,5757 DSPT1 03770 * 005073 3000401342 03780 JE RETWR EVEN TRACKS DSPT1 03780 * 005100 3000510540 03790 CFSB JC $+5,040 0 NOOP OR JR CTFSB DSPT1 03790 005105 6000001701 03800 AC 017,1 DSPT1 03800 005112 3400001600 03810 SRHDA CC 016,0 J RFBHA FOR FSB DSPT1 03810 F * 005117 3000513165 03820 JC $+10,53 3 DB THIS DSPT1 03820 005124 3400001640 03830 CC 016,32 DA CODING DSPT1 03830 * 005131 3000465743 03840 JU READ-5 IS DSPT1 03840 * 005136 3000516265 03850 JC $+20,53 3 DSPT1 03850 005143 2600001702 03860 PD 017,2 DSPT1 03860 005150 6000001501 03870 TM AC 015,1 DSPT1 03870 * 005155 3000465700 03880 J READ-5 DSPT1 03880 005162 4400001640 03890 SC 016,32 WHY HALF,FS1, DSPT1 03890 005167 4400001700 03900 SC 017,0 DSPT1 03900 * 005174 3000465700 03910 J READ-5 DSPT1 03910 * 005201 1000362100 03920 RLSTR JR PRWFS NIT PRINT LAST TRACK WRITTEN RD ALL FS2 DSPT1 03920 * 005206 3000457500 03930 J RGEN READ LAST LIMIT TRACK DSPT1 03930 D * 005213 3000000000 03940 TRLSD J 0 DSPT1 03940 005220 5601134305 03950 BA1 FXLSD+4,4,5 LS 015,1 FOR ODD TRACKS DSPT1 03950 005225 5200335505 03960 SA1 LSODD+4,4,5 DSPT1 03960 005232 5200464405 03970 SA1 LSR+4,5 5 DSPT1 03970 * 005237 3000521300 03980 J TRLSD DSPT1 03980 005244 7401224071 03990 CTFSB CT DFSB,57 7 03001300 UPPER LMT FSBANDS DA DSPT1 03990 0 * 005251 3000616042 04000 JE DFSBR HAVE READ ODD DA FSBANDS DSPT1 04000 005256 7401225071 04010 CT FDFSB,5757 FX EVN WRITE ALL READ DSPT1 04010 * 005263 3000616042 04020 JE DFSBR DSPT1 04020 005270 7401226071 04030 CT VFSB,57 7 UPPER LMT DA DSPT1 04030 * 005275 3000636742 04040 JE VRDBA READ ALL EVN SET ALL READ DSPT1 04040 005302 7401227071 04050 CT FVFSB,5757 DSPT1 04050 * 005307 3000636742 04060 JE VRDBA DSPT1 04060 * 005314 3000510500 04070 J SRHDA-5 5 AC 017,1 FOR H INCREMENT DSPT1 04070 0 005321 5601223000 04080 VNFS2 BA1 FVF2B,1616 DSPT1 04080 * 005326 3000254300 04090 J ODFS2+5 5 DSPT1 04090 005333 3400001700 04100 RFBHA CC 017,0 DSPT1 04100 * 005340 3000465743 04110 JU READ-5 DSPT1 04110 005345 6000001601 04120 AC 016,1 DSPT1 04120 005352 3400001631 04130 CC 016,031 1 DSPT1 04130 * 005357 3000537165 04140 JC $+10,53 3 DB DSPT1 04140 005364 3400001615 04150 CC 016,015 5 DSPT1 04150 * 005371 3000465743 04160 JU READ-5 DSPT1 04160 * 005376 3000616500 04170 J DFSBR+5 5 DSPT1 04170 * 005403 1000407300 04180 OLRF2 JR PRRFS DSPT1 04180 005410 5601237000 04190 BA1 BLLF2,1616 J $ FOR ALL READ FS2 DSPT1 04190 F 005415 5201231000 04200 SA1 UPLMB,1616 DSPT1 04200 005422 5201241000 04210 SA1 UPERB,1616 DSPT1 04210 * 005427 3000556162 04220 JC OLRFX,5050 DSPT1 04220 005434 5601246605 04230 TSNOC BA1 FSWHA+4,4,5 CC 016,0 DSPT1 04230 005441 5200511605 04240 SA1 SRHDA+4,4,5 DSPT1 04240 005446 3401244661 04250 CC UFST-1,0,061 DSPT1 04250 * 005453 3000551142 04260 JE SA2+10 DSPT1 04260 005460 5601251205 04270 BA1 JC+4,5 DSPT1 04270 005465 5200475205 04280 SA1 SA1 CCJC+4,5,5 NOP FOR LAST READ ALL DRUM DSPT1 04280 005472 5601245405 04290 BA1 FCVTR+4,4,5 JR NCEVN TRACKS FS1'2 DSPT1 04290 N 005477 5200470205 04300 SA2 SA1 CC+4,5 NOP FOR LAST READ ALL DRUM DSPT1 04300 R * 005504 1000613200 04310 JR LSNOP DSPT1 04310 005511 4400502742 04320 SC JE+4,04242 FOR ENDRA DSPT1 04320 O 005516 4400504140 04330 SC JE+14,04040 FOR NOCOMP OLRF12 AGAIN DSPT1 04330 O 005523 4401243140 04340 SC ODLMA-3,3,040 DSPT1 04340 005530 4401243540 04350 SC EVLMA-3,3,040 FOR NO GO RETWR DSPT1 04350 O 005535 2600014704 04360 PD 0147,4 DSPT1 04360 005542 4400466665 04370 SC READ+2,0,065 READ'POSITION DSPT1 04370 D 005547 4400344266 04380 SC WRIT+2,0,066 WRITE'POSITION DSPT1 04380 T * 005554 3000457500 04390 JC RGEN DSPT1 04390 005561 5201230010 04400 OLRFX SA1 UPODA,8 8 DSPT1 04400 * 005566 3000543400 04410 J TSNOC DSPT1 04410 * 005573 3000000000 04420 NCEVN J 0 DSPT1 04420 005600 5200015304 04430 SA1 0153,4 DSPT1 04430 005605 2600015302 04440 PD 0153,2 DSPT1 04440 005612 7400015331 04450 CT 0153,25 5 DSPT1 04450 * 005617 3000567442 04460 JE INC25 EVN TRACKS DSPT1 04460 * 005624 3000557340 04470 NOP JC NCEVN,04040 DSPT1 04470 005631 6000014502 04480 AC 0145,2 DSPT1 04480 005636 4400563026 04490 SC $-6,026 6 DSPT1 04490 005643 7401215531 04500 CT T300,25 5 DSPT1 04500 * 005650 3000566242 04510 JE LIMIT TRACK 300 EVN DSPT1 04510 C * 005655 3000557300 04520 JC NCEVN DSPT1 04520 005662 2600014704 04530 LIMIT PD 0147,4 CLEAR T25 DSPT1 04530 A * 005667 3000557300 04540 JC NCEVN DSPT1 04540 005674 4400563040 04550 INC25 SC NOP+4,04040 DSPT1 04550 * 005701 3000471500 04560 J NOCOM DSPT1 04560 005706 5201230010 04570 BEVFX SA1 UPODA,8 8 DSPT1 04570 * 005713 3000574400 04580 J EVFS2+2020 DSPT1 04580 005720 5601223000 04590 EVFS2 BA1 FVF2B,1616 DSPT1 04590 005725 5201231000 04600 SA1 UPLMB,1616 DSPT1 04600 005732 5201233000 04610 SA1 UPEVB,1616 DSPT1 04610 * 005737 3000570662 04620 JC BEVFX,5050 DSPT1 04620 005744 4400546530 04630 SC SA1,030 0 DSPT1 04630 005751 4400547140 04640 SC SA1+4,04040 DSPT1 04640 005756 4400547730 04650 SC SA2,030 0 DSPT1 04650 005763 4400550340 04660 SC SA2+4,04040 DSPT1 04660 005770 4400504142 04670 SC JE+14,04042 JE OLRF2 DSPT1 04670 * 005775 1000613200 04680 JR LSNOP DSPT1 04680 006002 5200475205 04690 SA1 CCJC+4,5,5 DSPT1 04690 006007 5200470205 04700 SA1 CC+4,5 DSPT1 04700 006014 5601142103 04710 BA1 RDD,3 DSPT1 04710 006021 5201207503 04720 SA1 WRODB-7,7,3 DSPT1 04720 006026 5201205503 04730 SA1 WRODA-7,7,3 DSPT1 04730 006033 5201213503 04740 SA1 RDODB-7,7,3 DSPT1 04740 006040 5201211503 04750 SA1 RDODA-7,7,3 DSPT1 04750 006045 5601243004 04760 BA1 BEVLM,4 4 DSPT1 04760 * 006052 3000606465 04770 JC $+10,53 3 DSPT1 04770 006057 5601242004 04780 BA1 FVLMA,4 4 00003700 DSPT1 04780 0 006064 5201243404 04790 SA1 ODLMA,4 4 DSPT1 04790 * 006071 3000327400 04800 JC JNITW DSPT1 04800 * 006076 3000000000 04810 NOPCC J 0 DSPT1 04810 006103 5601135005 04820 BA1 NOPLS+4,4,5 DSPT1 04820 006110 5200510405 04830 SA1 CFSB+4,5,5 NOOP DSPT1 04830 006115 5200470205 04840 SA1 CC+4,5 DSPT1 04840 * 006122 3000607600 04850 J NOPCC DSPT1 04850 * 006127 3000000000 04860 LSNOP J 0 NOOP FOR EVEN TRACKS DSPT1 04860 006134 5601135005 04870 BA1 NOPLS+4,4,5 DSPT1 04870 006141 5200335505 04880 SA1 LSODD+4,4,5 DSPT1 04880 006146 5200464405 04890 SA1 LSR+4,5 5 DSPT1 04890 * 006153 3000612700 04900 J LSNOP DSPT1 04900 006160 4400502742 04910 DFSBR SC JE+4,04242 INIT ENDRA ALL RD NO COMP DSPT1 04910 006165 5601135605 04920 BA1 FXCC+4,5,5 JR FBCC,19 NO COMP EVN HEADS DSPT1 04920 B 006172 5200470205 04930 SA1 CC+4,5 DSPT1 04930 * 006177 1000613200 04940 JR LSNOP NOOP LSODD W'R DSPT1 04940 006204 4400060077 04950 SC 0600,07777 DSPT1 04950 006211 5601174420 04960 BA2 RHFSB,1616 READ ODD FSB DSPT1 04960 * 006216 1001100400 04970 PRALL JR PRT DSPT1 04970 * 006223 1000627600 04980 JR RDALL DSPT1 04980 006230 5601251205 04990 BA1 JC+4,5 DSPT1 04990 006235 5200475205 05000 SA1 CCJC+4,5,5 FOR FSB RDALL NOCOMP DSPT1 05000 * 006242 3000457526 05010 JC RGEN,22 2 RESET SI2 SAVE NLY FOR EVN RIDSPT1 05010 * 006247 3000000000 05020 STHAB J 0 DSPT1 05020 006254 5601246105 05030 BA1 ADVHA+4,4,5 DSPT1 05030 006261 5200355705 05040 SA1 SWHDA+4,4,5 DSPT1 05040 * 006266 3000624700 05050 J STHAB DSPT1 05050 * 006273 3000000000 05060 RDALL J 0 DSPT1 05060 006300 5601235000 05070 BA1 BLLFB,1616 HAVE RD ODD SET ALL READ DSPT1 05070 006305 5201231000 05080 SA1 UPLMB,1616 DSPT1 05080 006312 5201241000 05090 SA1 UPERB,1616 DSPT1 05090 * 006317 3000635562 05100 JC ALLB,50 0 DSPT1 05100 006324 5601246605 05110 BALL BA1 FSWHA+4,4,5 DSPT1 05110 006331 5200511605 05120 SA1 SRHDA+4,4,5 DSPT1 05120 006336 5601250005 05130 BA1 CTUPA+4,4,5 CT UPERA,57 DSPT1 05130 U 006343 5200502205 05140 SA1 JE-1,5 DSPT1 05140 * 006350 3000627300 05150 J RDALL DSPT1 05150 006355 5201230010 05160 ALLB SA1 UPODA,8 8 DSPT1 05160 * 006362 3000632400 05170 J BALL DSPT1 05170 006367 5601176420 05180 VRDBA BA2 REVFB,1616 SET ALL READ COMPARE DSPT1 05180 A * 006374 1001100400 05190 JR PRT DSPT1 05190 006401 4400502742 05200 SC JE+4,04242 DSPT1 05200 * 006406 1000627600 05210 JR RDALL DSPT1 05210 * 006413 3000457500 05220 J RGEN DSPT1 05220 006420 3401244503 05230 SETEV CC UFST-2,3,3 DSPT1 05230 * 006425 3000646342 05240 JE VNFBS DSPT1 05240 006432 3401244502 05250 CC UFST-2,2,2 DSPT1 05250 * 006437 3000572042 05260 JE EVFS2 DSPT1 05260 * 006444 3000644420 05270 JHJ $ DSPT1 05270 006451 5201232010 05280 BVNFB SA1 UPEVA,8 8 DSPT1 05280 * 006456 3000650700 05290 J VNFBS+2020 DSPT1 05290 006463 5601227000 05300 VNFBS BA1 FVFSB,1616 SET EVEN FASTBANDS DSPT1 05300 006470 5201231000 05310 SA1 UPLMB,1616 DSPT1 05310 006475 5201233000 05320 SA1 UPEVB,1616 DSPT1 05320 * 006502 3000645162 05330 JC BVNFB,5050 DSPT1 05330 006507 5601133105 05340 BA1 FFSBR+4,4,5 INIT ODD FSBANDS READ DA DSPT1 05340 006514 5200511605 05350 SA1 SRHDA+4,4,5 DSPT1 05350 006521 4400346340 05360 SC WRIT+19,9,040 DSPT1 05360 * 006526 1000625200 05370 JR STHAB DSPT1 05370 * 006533 1000613200 05380 JR LSNOP DSPT1 05380 006540 5200475205 05390 SA1 CCJC+4,5,5 NOOP AS RDALL CCJC IS J NOCOM DSPT1 05390 006545 5200470205 05400 SA1 CC+4,5 WANT TO COMPARE DSPT1 05400 O 006552 5601133605 05410 BA1 FCFSB+4,4,5 DSPT1 05410 006557 5200502205 05420 SA1 JE-1,5 J CTFSB WAS SKIP FOR RDALL DSPT1 05420 T * 006564 3000327400 05430 J JNITW DSPT1 05430 * 006571 3000000000 05440 FBCC J 0 DSPT1 05440 006576 3400001614 05450 CCFBS CC 016,014 4 STRT OF DB FSB DSPT1 05450 * 006603 3000661565 05460 JC $+10,53 3 DB IF SI1 SET DSPT1 05460 006610 3400001600 05470 FBSCC CC 016,0 DSPT1 05470 * 006615 3000673042 05480 JE PNOCO DSPT1 05480 * 006622 3000666500 05490 JU JC ACFBS DSPT1 05490 006627 3400660226 05500 CC CCFBS+4,4,026 DSPT1 05500 * 006634 3000664665 05510 JC $+10,53 3 DSPT1 05510 006641 3400661412 05520 CC FBSCC+4,4,012 DSPT1 05520 * 006646 3000671642 05530 JE ZHISN WAS NOT INC DSPT1 05530 006653 3401132400 05540 CC HWSIN,0 0 DSPT1 05540 * 006660 3000671143 05550 JU $+25 DSPT1 05550 006665 4400662640 05560 ACFBS SC JU+4,04040 NOP JU DSPT1 05560 P 006672 6000660202 05570 AC CCFBS+4,4,2 DSPT1 05570 006677 6000661402 05580 AC FBSCC+4,4,2 ERE ZTOCC DSPT1 05580 006704 4401132407 05590 SC HWSIN,7 7 DSPT1 05590 * 006711 3000657126 05600 JC FBCC,22 2 RESET SI2 WHEN H IS ODD DSPT1 05600 E 006716 4401132400 05610 ZHISN SC HWSIN,0 0 DSPT1 05610 * 006723 3000471500 05620 J NOCOM DSPT1 05620 006730 4400662643 05630 PNOCO SC JU+4,04343 DSPT1 05630 * 006735 3000471500 05640 J NOCOM DSPT1 05640 006742 3401244503 05650 ENDRA CC UFST-2,3,3 FS BANDS DSPT1 05650 * 006747 3000710642 05660 JE EFSBA DSPT1 05660 006754 3401244502 05670 CC UFST-2,2,2 FS2 DSPT1 05670 * 006761 3000677342 05680 JE EFS2A DSPT1 05680 * 006766 3000676620 05690 JHJ $ DSPT1 05690 006773 5601144420 05700 EFS2A BA2 MESSB,1616 READ ALL DB DSPT1 05700 D 007000 3401135100 05710 CC FRSTE,0 0 DSPT1 05710 * 007005 3000702465 05720 JC BLAST,5353 DSPT1 05720 007012 5601146420 05730 BA2 MESSA,1616 DA DSPT1 05730 * 007017 3000731043 05740 JU LASTA DSPT1 05740 * 007024 3000744243 05750 BLAST JU LASTB DSPT1 05750 007031 4400020704 05760 SC207 SC 0207,4 DSPT1 05760 007036 4000640000 05770 XF 064,0,0,0,0 FEED PAPER DSPT1 05770 D * 007043 1001100400 05780 JR PRT PRINTS 1ST MESS A OR B OR FBNDS DSPT1 05780 N 007050 4400020702 05790 SC 0207,2 DSPT1 05790 007055 4401103604 05800 SC SP+4,4 DSPT1 05800 007062 5601150420 05810 BA2 MESS2,1616 THEN J GO ON DSPT1 05810 N 007067 3401244503 05820 CC UFST-2,3,3 DSPT1 05820 * 007074 3000714442 05830 JE PKFB2 DSPT1 05830 * 007101 3000715100 05840 J GOON DSPT1 05840 007106 5601152420 05850 EFSBA BA2 MEFBB,1616 DSPT1 05850 007113 3401135100 05860 CC FRSTE,0 0 ONLY 1ST RDALL EQUAL TO ZERO DSPT1 05860 1 * 007120 3000713265 05870 JC $+10,53 3 FOR DB DSPT1 05870 D 007125 5601154420 05880 BA2 MEFBA,1616 DSPT1 05880 * 007132 3000731043 05890 JU LASTA DA DSPT1 05890 * 007137 3000703100 05900 J SC207 DSPT1 05900 007144 5601156420 05910 PKFB2 BA2 MEFB2,1616 DSPT1 05910 * 007151 1001100400 05920 GOON JR PRT FIRST ALL LAST READ DA DSPT1 05920 007156 4401103602 05930 SC SP+4,2 DSPT1 05930 007163 4401135101 05940 SC FRSTE,1 1 FOR 2ND ENDRA WITH COMPARE DSPT1 05940 N 007170 4400060000 05950 SC 0600,0 DSPT1 05950 * 007175 3000642000 05960 J SETEV H HAVE RD ALL DRUM A OR B NO COMP EVN H DSPT1 05960 007202 5601202420 05970 ENDRB BA2 ERB END READ PASS DSPT1 05970 * 007207 1001100400 05980 JR PRT DSPT1 05980 007214 6000432701 05990 AC PAT+4,1 1 INCRIMENT DATA PATTERN IF DSPT1 05990 007221 3400432777 06000 CC PAT+4,6363 RUNNING IN CONT MODE DSPT1 06000 * 007226 3000724043 06010 JU $+10 DSPT1 06010 007233 4400432700 06020 SC PAT+4,0 0 DSPT1 06020 007240 5601241000 06030 BA1 UPERB,1616 DSPT1 06030 * 007245 3000206264 06040 JC ODD,52 DSPT1 06040 007252 4401244500 06050 KFS SC UFST-2,0,0 IF FS2 EQU 2,FS1 EQU 1 DSPT1 06050 F 007257 4400432700 06060 SC PAT+4,0 0 DSPT1 06060 007264 3400223606 06070 CC FXALL-7,7,6 IF NOT EQU TIS 13 OR 23 DSPT1 06070 * 007271 3000736043 06080 JU FXFSK HAV DONE FSBANDS 1ST DSPT1 06080 * 007276 3000162260 06090 JD ODEVN DSPT1 06090 * 007303 3000136700 06100 JC START R REPEAT TST OR REINIT NEW OPION DSPT1 06100 T 007310 5601200420 06110 LASTA BA2 ERA FRST E IS 0 DSPT1 06110 * 007315 1000764200 06120 JR SETCN DSPT1 06120 007322 3401244503 06130 CC UFST-2,3,3 DSPT1 06130 * 007327 3000735343 06140 JU $+20 DSPT1 06140 007334 5601166420 06150 BA2 EFBRB END RD FSB B DSPT1 06150 * 007341 3000735365 06160 JC $+10,53 3 DSPT1 06160 007346 5601164420 06170 BA2 EFBRA END RD FSB A DSPT1 06170 * 007353 3000720700 06180 J ENDRB+5 5 DSPT1 06180 007360 3400212600 06190 FXFSK CC WRCOD-9,9,0 DONE FSB DO FS1 OR FS2 DSPT1 06190 E * 007365 3000741642 06200 JE XFSK DSPT1 06200 007372 4400212600 06210 SC WRCOD-9,9,0 WAS 1 GO REINIT 13 OR 23 OPTION DSPT1 06210 007377 5600223601 06220 BA1 FXALL-7,7,1 DSPT1 06220 007404 5201244501 06230 SA1 UFST-2,1,1 DSPT1 06230 * 007411 3000142000 06240 J START+2525 DSPT1 06240 007416 5600223501 06250 XFSK BA1 FXALL-8,8,1 DSPT1 06250 007423 4400212601 06260 SC WRCOD-9,9,1 WAS 0 GO DO FS1 OR FS2 DSPT1 06260 S 007430 5201244501 06270 SA1 UFST-2,1,1 DSPT1 06270 * 007435 3000145600 06280 J LMITS DSPT1 06280 * 007442 3000720200 06290 LASTB J ENDRB DSPT1 06290 * 007447 1000610100 06300 RONLY JR NOPCC DSPT1 06300 007454 4401135101 06310 SC FRSTE,1 1 DSPT1 06310 007461 5601216605 06320 BA1 FRDLY+4,4,5 J NOCOM ALL HEADS DSPT1 06320 O 007466 5200470205 06330 SA1 CC+4,5 DSPT1 06330 007473 5200475205 06340 SA1 CCJC+4,5,5 IS JC CC,54 FOR NO COMP EVN HFSB DSPT1 06340 J * 007500 1000613200 06350 JR LSNOP DSPT1 06350 * 007505 1000417400 06360 JR INIT DSPT1 06360 007512 3401244503 06370 CC UFST-2,3,3 DSPT1 06370 * 007517 3000754342 06380 JE ORFSB DSPT1 06380 007524 3401244502 06390 CC UFST-2,2,2 DSPT1 06390 * 007531 3000541042 06400 JE OLRF2+5 5 DSPT1 06400 * 007536 3000753620 06410 JHJ $ DSPT1 06410 * 007543 1000627600 06420 ORFSB JR RDALL FSB DSPT1 06420 007550 4400466661 06430 SC READ+2,0,061 DSPT1 06430 007555 5601252405 06440 BA1 FJLSR+4,4,5 DSPT1 06440 007562 5200462505 06450 SA1 LSR-11,5,5 DSPT1 06450 * 007567 3000457500 06460 JC RGEN DSPT1 06460 007574 5601244301 06470 UNITK BA1 UFST-4,1,1 DSPT1 06470 007601 7001244441 06480 CB1 UFST-3,1,1 DSPT1 06480 * 007606 3000762043 06490 JU $+10 DSPT1 06490 * 007613 3000136700 06500 J START REPEAT TST DSPT1 06500 007620 6000001704 06510 AC 017,4 DSPT1 06510 007625 5201244301 06520 SA1 UFST-4,1,1 DSPT1 06520 * 007632 3000174200 06530 J UNITS DSPT1 06530 * 007637 3000000000 06540 SETCN J 0 DSPT1 06540 * 007644 3000766363 06550 JC S2S3,51 1 SW2 SET MODIFY CONT OPS DSPT1 06550 007651 4400730260 06560 SC LASTA-6,6,060 DSPT1 06560 * 007656 3000763700 06570 J SETCN DSPT1 06570 007663 4400730200 06580 S2S3 SC LASTA-6,6,0 DSPT1 06580 * 007670 3000763700 06590 J SETCN DSPT1 06590 * 007675 3000040060 06600 IPT0 JD 0400 CNGE TO 3000040000 IF NO PRINTER DSPT1 06600 007702 4000407777 06610 XF 040,0777777,0,0 DSPT1 06610 007707 5601132323 06620 BA2 FIVE,3 DSPT1 06620 007714 7200040363 06630 SB2 0403,3 DSPT1 06630 * 007721 3000040000 06640 J 0400 DSPT1 06640 007726 5601254420 06650 IPT6 BA2 ER6,16 DSPT1 06650 007733 4140000001 06660 XF 0,01,0,6,6 DSPT1 06660 * 007740 1001052053 06670 JR D1,43 DSPT1 06670 007745 4140000002 06680 XF 0,02,0,6,6 DSPT1 06680 * 007752 1001053753 06690 JR D2,43 DSPT1 06690 007757 4140000004 06700 XF 0,04,0,6,6 DSPT1 06700 * 007764 1001055653 06710 JR D3,43 DSPT1 06710 007771 4140000010 06720 XF 0,010,0,0,6 DSPT1 06720 * 007776 1001057553 06730 JR D4,43 DSPT1 06730 010003 4140000020 06740 XF 0,020,0,0,6 DSPT1 06740 * 010010 1001061453 06750 JR D5,43 DSPT1 06750 010015 4140000040 06760 XF 0,040,0,0,6 DSPT1 06760 * 010022 1001063353 06770 JR D6,43 DSPT1 06770 010027 4140000100 06780 XF 0,0100,0,0,6 DSPT1 06780 * 010034 1001065253 06790 JR D7,43 DSPT1 06790 010041 4140000200 06800 XF 0,0200,0,0,6 DSPT1 06800 * 010046 1001067153 06810 JR D8,43 DSPT1 06810 010053 4140000400 06820 XF 0,0400,0,0,6 DSPT1 06820 * 010060 1001071053 06830 JR D9,43 DSPT1 06830 010065 4140001000 06840 XF 0,01000,0,0,6 DSPT1 06840 * 010072 1001072753 06850 JR D10,43 DSPT1 06850 010077 4140002000 06860 XF 0,02000,0,0,6 DSPT1 06860 * 010104 1001074653 06870 JR D11,43 DSPT1 06870 010111 4140004000 06880 XF 0,04000,0,0,6 DSPT1 06880 * 010116 1001076553 06890 JR D12,43 DSPT1 06890 010123 6000006304 06900 AC X4,4 DSPT1 06900 010130 4140407777 06910 XF 040,0777777,0,6 DSPT1 06910 010135 4600035737 06920 BT 0357,31 1 DSPT1 06920 010142 5200004321 06930 SA2 043,1 IF MISSING SECTOR ERROR DSPT1 06930 * 010147 3001110723 06940 JC SET,19 DSPT1 06940 * 010154 3001016126 06950 RET JC $+5,22 DSPT1 06950 010161 5600004321 06960 BA2 043,1 DSPT1 06960 * 010166 1001100400 06970 JR PRT DSPT1 06970 010173 2600006304 06980 PD X4,4 DSPT1 06980 010200 3400003504 06990 CC AC+13,4 4 DSPT1 06990 * 010205 3001021743 07000 JU CY DSPT1 07000 * 010212 3001021260 07010 NR JD NR DSPT1 07010 010217 5601132323 07020 CY BA2 FIVE,3 DSPT1 07020 010224 7200046363 07030 SB2 0463,3 DSPT1 07030 010231 3401215103 07040 CC FOUR,3 CHECK FOR 4 CONSECUTIVE ERRS DSPT1 07040 * 010236 3001035143 07050 JU ADD DSPT1 07050 * 010243 3000000460 07060 JD 4 DSPT1 07060 010250 2601215101 07070 PD FOUR,1 RESET ERROR COUNT DSPT1 07070 010255 5600046323 07080 RECVR BA2 0463,3 SKIP ERROR TRACK DSPT1 07080 010262 2000466426 07090 FT READ,22 2 DSPT1 07090 010267 7000013363 07100 CB2 0133,3 DSPT1 07100 * 010274 3001032542 07110 JE ADD-20 DSPT1 07110 010301 2000344026 07120 FT WRIT,22 2 DSPT1 07120 010306 7000013363 07130 CB2 0133,3 DSPT1 07130 * 010313 3000046043 07140 JU 0460 DSPT1 07140 * 010320 3000335631 07150 JC REP-5,2525 DSPT1 07150 010325 3400060077 07160 CC 0600,07777 DSPT1 07160 * 010332 3001036342 07170 JE THKS DSPT1 07170 010337 6000001601 07180 AC 016,1 DSPT1 07180 * 010344 3000465731 07190 JC READ-5,2,25 DSPT1 07190 010351 6001215101 07200 ADD AC FOUR,1 INCRIMENT ERROR COUNT DSPT1 07200 * 010356 3000046000 07210 J 0460 DSPT1 07210 010363 3401244502 07220 THKS CC UFST-2,2,2 DSPT1 07220 * 010370 3001045742 07230 JE THNCV DSPT1 07230 010375 3400660226 07240 CC CCFBS+4,4,026 ITS FSB DSPT1 07240 T * 010402 3001041465 07250 JC $+10,53 3 DSPT1 07250 010407 3400661412 07260 CC FBSCC+4,4,012 DSPT1 07260 * 010414 3001044542 07270 JE HISNZ DSPT1 07270 010421 6000660202 07280 AC CCFBS+4,4,2 DSPT1 07280 010426 6000661402 07290 AC FBSCC+4,4,2 DSPT1 07290 010433 4401132407 07300 SC HWSIN,7 7 DSPT1 07300 * 010440 3001032500 07310 J ADD-20 DSPT1 07310 010445 4401132400 07320 HISNZ SC HWSIN,0 0 DSPT1 07320 * 010452 3001032500 07330 J ADD-20 DSPT1 07330 010457 6000014502 07340 THNCV AC 0145,2 DSPT1 07340 010464 7401215531 07350 CT T300,25 5 DSPT1 07350 * 010471 3001050342 07360 JE TIMIL DSPT1 07360 * 010476 3001032500 07370 J ADD-20 DSPT1 07370 010503 2600014704 07380 TIMIL PD 0147,4 DSPT1 07380 * 010510 3001032500 07390 J ADD-20 DSPT1 07390 000020 07400 AC EQU 020 DSPT1 07400 * 010515 3000000000 07410 D1 J 0 DSPT1 07410 010522 4400002404 07420 SC AC+4,4 DSPT1 07420 * 010527 3001051500 07430 J D1 DSPT1 07430 * 010534 3000000000 07440 D2 J 0 DSPT1 07440 010541 4400002504 07450 SC AC+5,4 DSPT1 07450 * 010546 3001053400 07460 J D2 DSPT1 07460 * 010553 3000000000 07470 D3 J 0 DSPT1 07470 010560 4400002604 07480 SC AC+6,4 DSPT1 07480 * 010565 3001055300 07490 J D3 DSPT1 07490 * 010572 3000000000 07500 D4 J 0 DSPT1 07500 010577 4400002704 07510 SC AC+7,4 DSPT1 07510 * 010604 3001057200 07520 J D4 DSPT1 07520 * 010611 3000000000 07530 D5 J 0 DSPT1 07530 010616 4400003004 07540 SC AC+8,4 DSPT1 07540 * 010623 3001061100 07550 J D5 DSPT1 07550 * 010630 3000000000 07560 D6 J 0 DSPT1 07560 010635 4400003104 07570 SC AC+9,4 DSPT1 07570 * 010642 3001063000 07580 J D6 DSPT1 07580 * 010647 3000000000 07590 D7 J 0 DSPT1 07590 010654 4400003204 07600 SC AC+10,4 4 DSPT1 07600 * 010661 3001064700 07610 J D7 DSPT1 07610 * 010666 3000000000 07620 D8 J 0 DSPT1 07620 010673 4400003304 07630 SC AC+11,4 4 DSPT1 07630 * 010700 3001066600 07640 J D8 DSPT1 07640 * 010705 3000000000 07650 D9 J 0 DSPT1 07650 010712 4400003404 07660 SC AC+12,4 4 DSPT1 07660 * 010717 3001070500 07670 J D9 DSPT1 07670 * 010724 3000000000 07680 D10 J 0 DSPT1 07680 010731 4400003504 07690 SC AC+13,4 4 DSPT1 07690 * 010736 3001072400 07700 J D10 DSPT1 07700 * 010743 3000000000 07710 D11 J 0 DSPT1 07710 010750 4400003604 07720 SC AC+14,4 4 DSPT1 07720 * 010755 3001074300 07730 J D11 DSPT1 07730 * 010762 3000000000 07740 D12 J 0 DSPT1 07740 010767 4400003704 07750 SC AC+15,4 4 DSPT1 07750 * 010774 3001076200 07760 J D12 DSPT1 07760 * 011001 3000000000 07770 PRT J 0 DSPT1 07770 011006 5201272520 07780 SA2 PRTAR+2121,16 DSPT1 07780 011013 2001270040 07790 FT PRTAR,3232 DSPT1 07790 011020 4400020701 07800 SC 0207,1 DSPT1 07800 011025 4000620400 07810 XF 062,0040400,0,0 DSPT1 07810 011032 4400020702 07820 SP SC 0207,2 DSPT1 07820 011037 4000640000 07830 XF 064,0,0,0,0 DSPT1 07830 011044 4401270000 07840 SC PRTAR,0 0 DSPT1 07840 011051 2001270120 07850 FT PRTAR+1,1,16 DSPT1 07850 011056 2000007722 07860 FT 63,18 DSPT1 07860 011063 2401270001 07870 TFR PRTAR DSPT1 07870 * 011070 3001100100 07880 J PRT DSPT1 07880 * 011075 3000000000 07890 CMPER J 0 DSPT1 07890 011102 4600001737 07900 BT 017,31 DSPT1 07900 011107 2600017301 07910 SET PD SH,1 EDIT DRUM ADDRESSES FOR DSPT1 07910 011114 1600017423 07920 BS2 SH+1,3 ERROR PRINT OUT DSPT1 07920 011121 6000017303 07930 AC SH,3 DSPT1 07930 011126 5600017321 07940 BA2 SH,1 DSPT1 07940 011133 5301272621 07950 SA2 PRTAR+2222,1,4 DSPT1 07950 011140 6000006301 07960 AC X4,1 DSPT1 07960 * 011145 3201110702 07970 JL SET,2 DSPT1 07970 011152 4401115102 07980 SC $-1,2 DSPT1 07980 011157 1600017706 07990 BS4 SH+4,6 DSPT1 07990 * 011164 3201110704 08000 JL SET,4 DSPT1 08000 011171 4401117004 08010 SC $-1,4 DSPT1 08010 * 011176 3001015466 08020 JC RET,54 DSPT1 08020 011203 6000006304 08030 AC X4,4 DSPT1 08030 011210 4661324737 08040 BTC BT AREA+16767,31,3 OR BT AREA,31,3 FOR PREPRD DSPT1 08040 * 011215 3201110702 08050 JL SET,2 DSPT1 08050 011222 4401122102 08060 SC $-1,2 DSPT1 08060 011227 2600006304 08070 PD X4,4 DSPT1 08070 011234 5601204420 08080 BA2 CERR,16 6 DSPT1 08080 011241 4401103600 08090 SC SP+4,0 DSPT1 08090 * 011246 1001100424 08100 JR PRT,20 DSPT1 08100 * 011253 3001107500 08110 J CMPER DSPT1 08110 000173 08120 SH EQU 0173 DSPT1 08120 011260 4400432210 08130 MSIZE SC SCNT+4,8,8 SET UP FOR 32 SECTOR WRITE DSPT1 08130 011265 4400465610 08140 SC RSCNT+4,4,8 DSPT1 08140 011272 4401132040 08150 SC SEC,32 AND READ IF LESS THAN 16K MEM DSPT1 08150 011277 4401131700 08160 SC SEC-1,0 0 DSPT1 08160 * 011304 3000136736 08170 JC START,3030 DSPT1 08170 000137 08180 T23 EQU 0137 DSPT1 08180 011314 00000001 08190 ONE +4 1 DSPT1 08190 011320 00000100 08200 SEC +4 64 DSPT1 08200 011323 000005 08210 FIVE +3 05 DSPT1 08210 011324 00 08220 HWSIN +1 0 DSPT1 08220 * 011325 3000533300 08230 FFSBR J RFBHA DSPT1 08230 * 011332 3000524400 08240 FCFSB J CTFSB DSPT1 08240 011337 6400001501 08250 FXLSD LS 015,1 DSPT1 08250 * 011344 3001134440 08260 NOPLS JC $,040 DSPT1 08260 011351 00 08270 FRSTE +1 0 DSPT1 08270 * 011352 1000657423 08280 FXCC JR FBCC,19 9 NO COMP EVN HEADS DSPT1 08280 011362 03001200 08290 XVFSB +4 00300120200 DSPT1 08290 011363 6400001640 08300 FAGLS LS 016,32 DSPT1 08300 * 011370 3000332565 08310 FAGEN JC AGEN+15,5,53 DSPT1 08310 011400 00000000 08320 STORE +4 00 DSPT1 08320 011403 FS2 08330 FS2 +3 _FS2_ DSPT1 08330 011406 FS1 08340 FS1 +3 _FS1_ DSPT1 08340 011411 HFS 08350 HFS +3 _HFS_ DSPT1 08350 011413 AB 08360 AB +2 _AB_ DSPT1 08360 011416 001 08370 WR +3 _001_ DSPT1 08370 011421 000 08380 RDD +3 _000_ DSPT1 08380 011424 FS2 08390 FA2NC +3 _FS2_ DSPT1 08390 011444 READ ALL DRUM B 08400 MESSB +16 _READ ALALL DRUM B _ DSPT1 08400 011464 READ ALL DRUM A 08410 MESSA +16 _READ ALALL DRUM A _ DSPT1 08410 011504 EVN TRS NOT COMP 08420 MESS2 +16 _EVN TRSRS NOT COMP_ DSPT1 08420 O 011524 READ ALL FBNDS B 08430 MEFBB +16 _READ ALALL FBNDS B_ DSPT1 08430 S 011544 READ ALL FBNDS A 08440 MEFBA +16 _READ ALALL FBNDS A_ DSPT1 08440 S 011564 EVN HDS NOT COMP 08450 MEFB2 +16 _EVN HDSDS NOT COMP_ DSPT1 08450 O 011604 END WR FSBANDS A 08460 EFBWA +16 _END WR R FSBANDS A_ DSPT1 08460 S 011624 END WR FSBANDS B 08470 EFBWB +16 _END WR R FSBANDS B_ DSPT1 08470 S 011644 END RD FSBANDS A 08480 EFBRA +16 _END RD D FSBANDS A_ COMPARES DSPT1 08480 S 011664 END RD FSBANDS B 08490 EFBRB +16 _END RD D FSBANDS B_ DSPT1 08490 S 011704 WR ODD HEADS FSB 08500 WHFSB +16 _WR ODD D HEADS FSB_ DSPT1 08500 F 011724 WR EVN HEADS FSB 08510 WEVFB +16 _WR EVN N HEADS FSB_ DSPT1 08510 F 011744 RD ODD HEADS FSB 08520 RHFSB +16 _RD ODD D HEADS FSB_ DSPT1 08520 F 011764 RD EVN HEADS FSB 08530 REVFB +16 _RD EVN N HEADS FSB_ DSPT1 08530 F 012004 END READ DRUM A 08540 ERA +16 _END REAEAD DRUM A _ DSPT1 08540 012024 END READ DRUM B 08550 ERB +16 _END REAEAD DRUM B _ DSPT1 08550 012044 COMP ERROR 08560 CERR +16 _COMP ERERROR _ DSPT1 08560 012064 WR TR 001 FS2 DA 08570 WRODA +16 _WR TR 0 001 FS2 DA_ DSPT1 08570 012104 WR TR 001 FS2 DB 08580 WRODB +16 _WR TR 0 001 FS2 DB_ DSPT1 08580 012124 RD TR 001 FS2 DA 08590 RDODA +16 _RD TR 0 001 FS2 DA_ DSPT1 08590 012144 RD TR 001 FS2 DB 08600 RDODB +16 _RD TR 0 001 FS2 DB_ DSPT1 08600 012150 00000250 08610 ADV +4 168 DSPT1 08610 012151 00 08620 FOUR +1 0 DSPT1 08620 012155 03000000 08630 T300 +4 0300000000 DSPT1 08630 000047 08640 X1 EQU 047 DSPT1 08640 000053 08650 X2 EQU 053 DSPT1 08650 000057 08660 X3 EQU 057 DSPT1 08660 000063 08670 X4 EQU 063 DSPT1 08670 000067 08680 X5 EQU 067 DSPT1 08680 012161 00000244 08690 K54 +4 0244 DSPT1 08690 * 012162 3000471500 08700 FRDLY J NOCOM F FOR RD ONLY DSPT1 08700 O 012167 00 08710 FRSTR +1 0 DSPT1 08710 012170 05 08720 DD2 +1 05 DSPT1 08720 012174 00010000 08730 FSHOD +4 00001000000 DSPT1 08730 012200 02773700 08740 +4 00277370700 DSPT1 08740 012204 00014000 08750 +4 00001400000 DSPT1 08750 012210 02777700 08760 FDF2B +4 00277770700 ODD FS2 DA DB DSPT1 08760 012214 00000000 08770 +4 00 DSPT1 08770 012220 02763700 08780 +4 00276370700 DSPT1 08780 012224 00004000 08790 +4 00000400000 DSPT1 08790 012230 02767700 08800 FVF2B +4 00276770700 EVEN FS2 DA DB DSPT1 08800 012234 03770100 08810 +4 0377010000 ODD TRACK +HEADS DSPT1 08810 012240 03771300 08820 DFSB +4 0377130000 DRUM A DSPT1 08820 R 012244 03771500 08830 +4 0377150000 DSPT1 08830 012250 03772700 08840 FDFSB +4 0377270000 FASTBANDS DRUM B DSPT1 08840 A 012254 03770000 08850 +4 0377000000 DSPT1 08850 012260 03771200 08860 VFSB +4 0377120000 (VEN TRACKS + HEADS DSPT1 08860 N 012264 03771400 08870 +4 0377140000 DSPT1 08870 012270 03772600 08880 FVFSB +4 0377260000 DSPT1 08880 012274 00010000 08890 ODLOA +4 00001000000 SET FOR FS1 DSPT1 08890 012300 01373700 08900 UPODA +4 00137370700 FS2 LMTA 02773700 ODD DSPT1 08900 012304 00014000 08910 ODLOB +4 00001400000 DSPT1 08910 012310 01377700 08920 UPLMB +4 00137770700 02777700 DSPT1 08920 012314 00000000 08930 EVLOA +4 00 DSPT1 08930 012320 01363700 08940 UPEVA +4 00136370700 02763700 EVEN DSPT1 08940 012324 00004000 08950 EVLOB +4 00000400000 DSPT1 08950 012330 01367700 08960 UPEVB +4 00136770700 02767700 DSPT1 08960 012334 03770000 08970 +4 0377000000 DSPT1 08970 012340 03771300 08980 ALLFB +4 0377130000 A DRUM DSPT1 08980 D 012344 03771400 08990 +4 0377140000 DSPT1 08990 012350 03772700 09000 BLLFB +4 0377270000 B DRUM DSPT1 09000 D 012354 00000000 09010 +4 00 DSPT1 09010 012360 02773700 09020 ALLF2 +4 00277370700 DA FS2 DSPT1 09020 F 012364 00004000 09030 +4 00000400000 DSPT1 09030 012370 02777700 09040 BLLF2 +4 00277770700 DB FS2 DSPT1 09040 F 012374 00000000 09050 LOERA +4 0 DSPT1 09050 012400 01373700 09060 UPERA +4 00137370700 DSPT1 09060 012404 00000000 09070 LOERB +4 0 DSPT1 09070 012410 01377700 09080 UPERB +4 00137770700 DSPT1 09080 012414 00013700 09090 FDLMA +4 00001370700 DSPT1 09090 012420 00003700 09100 FVLMA +4 00000370700 DSPT1 09100 012424 00017700 09110 BODLM +4 017700 DSPT1 09110 012430 00007700 09120 BEVLM +4 007700 DSPT1 09120 012434 00000077 09130 ODLMA +4 077 DSPT1 09130 012440 00000077 09140 EVLMA +4 077 FOR NO COMP ON NU START FSB DSPT1 09140 012442 0275 09150 K275 +2 00275 DSPT1 09150 012447 0000016101 09160 UFST +5 016101 09160 * 012450 1000557623 09170 FCVTR JR NCEVN,02023 DSPT1 09170 * 012455 3000443600 09180 ADVHA J FSBHA ADVANCE FASTBAND OPT TRACK'HEAD DSPT1 09180 A 012462 3400001600 09190 FSWHA CC 016,0 DSPT1 09190 012467 7401230071 09200 FCTDA CT UPODA,5757 DSPT1 09200 012474 7401240071 09210 CTUPA CT UPERA,5757 DSPT1 09210 * 012501 3000540342 09220 JEOL2 JE OLRF2 DSPT1 09220 * 012506 3000467666 09230 JC JC CC,54 DSPT1 09230 * 012513 3000335100 09240 FJLSD J LSODD DSPT1 09240 * 012520 3000464000 09250 FJLSR J LSR DSPT1 09250 012544 ER6 000000000000 09260 ER6 +16 _ER6 00000000000000_ DSPT1 09260 0 * 012545 3000000031 09270 JC 0,25 DSPT1 09270 012554 007726 09280 IE6 +3 IPT6 DSPT1 09280 * 012555 3000000031 09290 JC 0,25 DSPT1 09290 012564 007675 09300 IE0 +3 IPT0 DSPT1 09300 * 012565 3000000160 09310 IPT1 JD 1 DSPT1 09310 012574 012565 09320 +3 IPT1 DSPT1 09320 * 012575 3000000260 09330 I2 JD 2 DSPT1 09330 012604 012575 09340 IE2 +3 I2 DSPT1 09340 012700 09350 ORIG $,64 DSPT1 09350 012700 100 09370 PRTAR AREA 64,B,0 DSPT1 09370 013000 09380 AREA EQU $ DSPT1 09380 0000 ERROR LINES 3000135000 09390 END STRT DSPT1 09390 {-- tape mark --} 002661 C601 DSP2 CODEDIT SOURCE 08/65 - T3834394-60 001350 00010 T600 BEGIN 01350 DSPT2 00010 *LOAD 017300,T,TAPE,R,PRELD P * 001350 3007010660 * JD 070106 * * 001355 3000135000 * J $-5 * SEGMENT-ID T601 3000135000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T602 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2001751611 * FT 017300+0+0216,9,0 * 0 000457 2001730060 * FT 017300,4,48,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 2001751660 * FT 017300+0+0216,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 3001734000 * J 017300+0+040,0 * 017340 * ORIG 017300+0+040 * 017340 4100610100 * XF 061,010000,0,4 * 017345 6000001701 * AC 15,1 * 017352 3420022211 * CC 146,9,1 1 * * 017357 3001746542 * JE $+70 * 017364 2600004104 * PD 041,4 * 017371 3620021700 * CS 143,0,1 1 * 017376 3620011700 * CS 79,0,1 * 017403 3620001712 * CS 15,10,1 1 * 017410 1600004166 * BC2 041,6 * 017415 3620022102 * CS 145,2,1 1 * 017422 7000004162 * CB2 041,2 * * 017427 3001744142 * JE $+10 * * 017434 3007010460 * JD 070104 * 017441 4620003520 * BT 29,16,1 1 * 017446 4620003722 * BT 31,18,1 1 * 017453 2420004001 * TFR 32,,1 * * 017460 3001734000 * J $-80 * 017465 4100640000 * XF 064,0,0,0,4 * 017472 7020004642 * CB1 38,2,1 * * 017477 3020004042 * JE 32,1 * * 017504 3007010560 * JD 070105 * * 017511 3020004000 * J 32,1 * 017516 245 * AREA 165 * SEGMENT-ID T603 3001776300 * SEGJP $ * 001350 00020 ORIG 01350 DSPT2 00020 001350 2001016603 00030 STRT FT MSIZE,3 3 DSPT2 00030 001355 5200050703 00040 SA1 0507,3 DSPT2 00040 001362 5603000001 00050 BA1 030000,1,1 TEST MEM FOR 16K DSPT2 00050 001367 5600136502 00060 START BA1 START-2,2,2 RESTORE ORIG UNIT 00060 S 001374 5201156402 00070 SA1 UFST-3,2,2 DSPT2 00070 001401 5601156705 00080 BA1 UFST,5 LU UU FS WR ODD EVEN DSPT2 00080 * 001406 3000141320 00090 JHJ $+5 DSPT2 00090 001413 5201156705 00100 SA1 UFST,5 DSPT2 00100 001420 5601156402 00110 BA1 UFST-3,2,2 DSPT2 00110 001425 5200136502 00120 SA1 START-2,2,2 00120 001432 7001156341 00130 CB1 UFST-4,1,1 DSPT2 00130 001437 1601156422 00140 BS2 UFST-3,2,2 DSPT2 00140 * 001444 3000151443 00150 JU UNITS DSPT2 00150 * 001451 1000153100 00160 JR FUNIT FIXES STARTING UNIT IF OR NOT ZERO DSPT2 00160 001456 3401156700 00170 ODEVN CC UFST,0 $ LU EQUALS UU UNITS DSPT2 00170 * 001463 3000161042 00180 JE EVEN DSPT2 00180 001470 3401156701 00190 CC UFST,1 DSPT2 00190 * 001475 3000160342 00200 JE ODD DSPT2 00200 * 001502 3000000260 00210 JD 002 NO ODD OR EVEN TRACKS SELECTED DSPT2 00210 O * 001507 3000136700 00220 J START DSPT2 00220 * 001514 1000153100 00230 UNITS JR FUNIT DSPT2 00230 * 001521 3000145600 00240 J ODEVN DSPT2 00240 * 001526 3000000000 00250 FUNIT J 0 DSPT2 00250 001533 5601156301 00260 BA1 UFST-4,1,1 DSPT2 00260 001540 5200155601 00270 SA1 CUNIT+4,4,1 CURRENT OR STARTING UNIT DSPT2 00270 001545 2600006704 00280 PD 067,4 CLEAR IR5 DSPT2 00280 001552 6521074100 00290 CUNIT LS ANFS1-3,3,0,5 DSPT2 00290 001557 6000006704 00300 AC X5,4 DSPT2 00300 001564 7401035115 00310 CT K54,13 DSPT2 00310 * 001571 3000155243 00320 JU CUNIT DSPT2 00320 * 001576 3000152600 00330 J FUNIT DSPT2 00330 * 001603 3000161522 00340 ODD JC EVEN+5,1,18 $ SET SI 1 ODD OPTION DSPT2 00340 * 001610 3000161525 00350 EVEN JC $+5,21 $ SSI 1 RESET IS EVEN OPT DSPT2 00350 * 001615 1000662000 00360 JR SETCN SET CONTNUOUS DSPT2 00360 O 001622 3401156675 00370 CC UFST-1,0,075 POST READ ONLY DSPT2 00370 O * 001627 3000221442 00380 JE RONLY DSPT2 00380 001634 3401156666 00390 CC UFST-1,0,066 POSITION ' WRITE DSPT2 00390 S * 001641 3000215142 00400 JE POSTN DSPT2 00400 001646 3401156665 00410 CC UFST-1,0,065 POSITION ' READ DSPT2 00410 S * 001653 3000574442 00420 JE PREPR DSPT2 00420 001660 3401156667 00430 CC UFST-1,0,067 DSPT2 00430 * 001665 3000215142 00440 JE POSTN DSPT2 00440 * 001672 3000000360 00450 JD 003 NO WRC OP SELECTED DSPT2 00450 * 001677 3000136700 00460 J START DSPT2 00460 001704 5601162005 00470 DRMAB BA1 RPSTD+4,4,5 J RPOSI DSPT2 00470 R 001711 5200547605 00480 SA1 INIT-1,5,5 DSPT2 00480 001716 5601031222 00490 BA2 AB,2 DSPT2 00490 001723 5201044722 00500 SA2 PTST,2 DSPT2 00500 001730 5601161305 00510 BA1 BOTHD+4,4,5 J RPOST DSPT2 00510 * 001735 3000325500 00520 J DRAB DSPT2 00520 001742 3401160500 00530 BPOST CC WPOSB,0 0 DSPT2 00530 * 001747 3000200043 00540 JU WDOA DSPT2 00540 001754 2600001701 00550 PD 017,1 DSPT2 00550 001761 6400001640 00560 LS 016,040 0 DSPT2 00560 001766 4401160542 00570 SC WPOSB,04042 DSPT2 00570 * 001773 3000511700 00580 J REP-5 DSPT2 00580 002000 4401160500 00590 WDOA SC WPOSB,0 0 DSPT2 00590 * 002005 3000334400 00600 J NPOST DSPT2 00600 002012 3401160600 00610 RPOSI CC RPOSB,0 0 DSPT2 00610 * 002017 3000205043 00620 JU RDOA DSPT2 00620 002024 4400001700 00630 SC 017,0 DSPT2 00630 002031 6400001640 00640 LS 016,040 0 DSPT2 00640 002036 4401160641 00650 SC RPOSB,04041 DSPT2 00650 * 002043 3000533300 00660 J READ-5 DSPT2 00660 002050 4401160600 00670 RDOA SC RPOSB,0 0 DSPT2 00670 002055 5400001637 00680 LP 016,037 7 RESTORE AR1 TO DRUMA DSPT2 00680 O * 002062 3000414500 00690 J RDPOS DSPT2 00690 * 002067 3000000000 00700 BTCOM J 0 DSPT2 00700 002074 6400003560 00710 LS 035,060 0 DSPT2 00710 002101 5200536223 00720 SA2 COMP+3,3,3 DSPT2 00720 002106 5201012123 00730 SA2 BTC+3,3 3 DSPT2 00730 * 002113 3000206700 00740 J BTCOM DSPT2 00740 * 002120 3000000000 00750 RWINT J 0 DSPT2 00750 002125 4400534300 00760 SC READ+3,0,0 DSPT2 00760 002132 4400520366 00770 SC WRIT+2,0,066 WRITE'POSITION DSPT2 00770 T 002137 4400534265 00780 SC READ+2,0,065 READ'POSITION DSPT2 00780 D * 002144 3000212000 00790 J RWINT DSPT2 00790 002151 3401156502 00800 POSTN CC UFST-2,2,2 FS2 DSPT2 00800 * 002156 3000253642 00810 JE F2POS DSPT2 00810 002163 3401156501 00820 CC UFST-2,1,1 DSPT2 00820 * 002170 3000224542 00830 JE F1POS DSPT2 00830 002175 3401156500 00840 CC UFST-2,0,0 HALF DRUM DSPT2 00840 F * 002202 3000233442 00850 JE FHPOS DSPT2 00850 * 002207 3000220720 00860 JHJ $ WRONG FS SELECTION DSPT2 00860 N 002214 4400213665 00870 RONLY SC RWINT+1414,065 DSPT2 00870 002221 4400271365 00880 SC FXR+4,06065 DSPT2 00880 002226 5600301303 00890 BA1 HINC-2,3,3 FX POS ADDR DSPT2 00890 P 002233 5200365203 00900 SA1 FXW2-2,3,3 DSPT2 00900 * 002240 3000215100 00910 J POSTN TO FIND DRUM TYPE H,1,2 LMITS DSPT2 00910 F 002245 5601120000 00920 F1POS BA1 ILF1B,1616 DSPT2 00920 002252 5201130000 00930 SA1 WLF2B,1616 DSPT2 00930 002257 5201143000 00940 SA1 UPLMB,1616 PREWRITE DSPT2 00940 R 002264 5601122000 00950 BA1 IUP1B,1616 DSPT2 00950 002271 5201132000 00960 SA1 WUP2B,1616 DSPT2 00960 002276 5601076000 00970 BA1 BTFS1,1616 DSPT2 00970 002303 5601053123 00980 BA2 TFS1-4,3,3 136 DSPT2 00980 002310 5201060323 00990 SA2 TRKS-5,3,3 DSPT2 00990 002315 5601025023 01000 BA2 FS1,3 DSPT2 01000 002322 5201024223 01010 FXFF2 SA2 FFS2,3 DSPT2 01010 * 002327 3000262000 01020 J STBKF DSPT2 01020 002334 5601124000 01030 FHPOS BA1 ILHVB,1616 DSPT2 01030 002341 5201130000 01040 SA1 WLF2B,1616 DSPT2 01040 002346 5201143000 01050 SA1 UPLMB,1616 PREWRITE DSPT2 01050 R 002353 5601126000 01060 BA1 IPHVB,1616 DSPT2 01060 002360 5201132000 01070 SA1 WUP2B,1616 DSPT2 01070 002365 5601054423 01080 BA2 THFS-4,3,3 056 DSPT2 01080 002372 5201060323 01090 SA2 TRKS-5,3,3 DSPT2 01090 002377 5601024523 01100 BA2 HFS,3 DSPT2 01100 002404 5601102000 01110 BA1 BTHVF,1616 DSPT2 01110 * 002411 3000232200 01120 J FXFF2 DSPT2 01120 002416 5601052233 01130 POSF2 BA2 TFS2,11 1 275,276,277 DSPT2 01130 , 002423 5201050733 01140 SA2 PREWR,1111 DSPT2 01140 002430 5201066133 01150 SA2 TN-7,11 1 DSPT2 01150 002435 5601024223 01160 BA2 FFS2,3 DSPT2 01160 002442 5201044423 01170 SA2 PTST-3,3,3 DSPT2 01170 002447 5601100000 01180 BA1 BKFS2,1616 DSPT2 01180 002454 5201112000 01190 SA1 BNFS2,1616 DSPT2 01190 002461 3401156675 01200 CC UFST-1,0,075 IS IT RONLY DSPT2 01200 I * 002466 3000464042 01210 JE FXPRT FXFX PRINTOUT FOR RD DSPT2 01210 O 002473 4400271366 01220 SC FXR+4,06066 RESTORE FOR RIGT DSPT2 01220 O 002500 5600441503 01230 BA1 RDINT+3,3,3 DSPT2 01230 002505 5200365203 01240 SA1 FXW2-2,3,3 RESTOR J INTRD FOR W+R DSPT2 01240 R 002512 5600477503 01250 BA1 RDPRT-2,2,3 DSPT2 01250 002517 5200364503 01260 SA1 FXW2-7,3,3 RESTORE JR WRPRJ DSPT2 01260 R 002524 6000364503 01270 AC FXW2-7,3,3 DSPT2 01270 * 002531 3000316600 01280 J INT64 DSPT2 01280 002536 5601114000 01290 F2POS BA1 ILF2B,1616 DSPT2 01290 002543 5201130000 01300 SA1 WLF2B,1616 DSPT2 01300 002550 5201143000 01310 SA1 UPLMB,1616 PREWRITE DSPT2 01310 R 002555 5601116000 01320 BA1 IUP2B,1616 DSPT2 01320 002562 5201132000 01330 SA1 WUP2B,1616 DSPT2 01330 002567 5601051623 01340 BA2 TFS2-4,3,3 276 DSPT2 01340 002574 5201060323 01350 SA2 TRKS-5,3,3 DSPT2 01350 002601 5601025303 01360 BA1 FS2,3 DSPT2 01360 002606 5201024203 01370 SA1 FFS2,3 DSPT2 01370 002613 5601137000 01380 BA1 BTFS2,1616 DSPT2 01380 002620 5201100000 01390 STBKF SA1 BKFS2,1616 DSPT2 01390 002625 5601035605 01400 BA1 FJSIX+4,4,5 J TRSIX DO 0,1,2,275,276,7 DSPT2 01400 R 002632 5200525005 01410 SA1 RGEN-1,5,5 DSPT2 01410 002637 3401156675 01420 CC UFST-1,0,075 IS IT RONLY DSPT2 01420 I * 002644 3000270742 01430 JE FXR DSPT2 01430 002651 4400271366 01440 SC FXR+4,06066 RESTORE FOR RIGT DSPT2 01440 O 002656 5600441503 01450 BA1 RDINT+3,3,3 DSPT2 01450 002663 5200365203 01460 SA1 FXW2-2,3,3 RESTOR J INTRD FOR W+R DSPT2 01460 R 002670 5600477503 01470 BA1 RDPRT-2,2,3 DSPT2 01470 002675 5200364503 01480 SA1 FXW2-7,3,3 RESTORE JR WRPRJ DSPT2 01480 R 002702 6000364503 01490 AC FXW2-7,3,3 DSPT2 01490 002707 4400520366 01500 FXR SC WRIT+2,0,066 RESTORE FOR NOT OPT 75 DSPT2 01500 S 002714 2001234707 01510 FT AREA+16767,7 DSPT2 01510 * 002721 1000207200 01520 JR BTCOM DSPT2 01520 * 002726 3000505400 01530 J NIT DSPT2 01530 002733 3401156667 01540 TRSIX CC UFST-1,0,067 DSPT2 01540 * 002740 3000307742 01550 JE FXBTH FIX BOTH DRUMS A+B DSPT2 01550 002745 7401127071 01560 CT LF2A,57 7 DSPT2 01560 * 002752 3000365442 01570 JE FXW2 FIX WUP2A DSPT2 01570 002757 7401130071 01580 CT WLF2B,5757 DSPT2 01580 * 002764 3000365442 01590 JE FXW2 DONE DA OR DB LOWER DSPT2 01590 E 002771 7401131071 01600 CT WUP2A,5757 DSPT2 01600 * 002776 3000367342 01610 JE FXPOS FIX NPOSTA CONTINUATION DSPT2 01610 003003 7401132071 01620 CT WUP2B,5757 DSPT2 01620 * 003010 3000367342 01630 JE FXPOS FIX NPOSTB CONT DSPT2 01630 003015 6000001701 01640 HINC AC 017,1 INC HEAD DSPT2 01640 003022 3400001600 01650 CC 016,0 DSPT2 01650 * 003027 3000304165 01660 JC $+10,53 3 DSPT2 01660 003034 3400001640 01670 CC 016,32 DSPT2 01670 * 003041 3000511743 01680 JU REP-5 DSPT2 01680 003046 4400001640 01690 SC 016,32 DB DSPT2 01690 * 003053 3000306565 01700 JC $+10,53 3 DSPT2 01700 003060 4400001600 01710 SC 016,0 DA DSPT2 01710 003065 6000001501 01720 AC 015,1 IN C TRACK DSPT2 01720 C * 003072 3000511700 01730 J REP-5 DSPT2 01730 003077 3401160500 01740 FXBTH CC WPOSB,0 0 DSPT2 01740 003104 4400001700 01750 SC 017,0 DSPT2 01750 * 003111 3000313543 01760 JU PREA DSPT2 01760 003116 6400001640 01770 LS 016,040 0 DSPT2 01770 003123 4401160567 01780 SC WPOSB,06067 DSPT2 01780 * 003130 3000511700 01790 J REP-5 GO WRITE B DRUM DSPT2 01790 W 003135 4401160500 01800 PREA SC WPOSB,0 0 DSPT2 01800 003142 5400001637 01810 LP 016,037 7 DSPT2 01810 003147 5200034704 01820 SA1 0347,4 RESTORE T57 TO DA FOR COMP DSPT2 01820 T 003154 4400001777 01830 SC 017,077 7 GO INC HEAD DSPT2 01830 I * 003161 3000274500 01840 J TRSIX+1010 DSPT2 01840 003166 5601112000 01850 INT64 BA1 BNFS2,1616 TS R 00 277 A ' B DRUMS DSPT2 01850 003173 5201143000 01860 SA1 UPLMB,1616 DSPT2 01860 003200 5601025522 01870 BA2 DB,2 _DB_ PICKED DSPT2 01870 _ * 003205 3000321762 01880 JC $+10,50 0 DSPT2 01880 003212 5601025722 01890 BA2 DA,2 _DA_ DSPT2 01890 _ 003217 5201044722 01900 SA2 PTST,2 DSPT2 01900 003224 5601160005 01910 BA1 FXRPS+4,4,5 J RDPOS DSPT2 01910 D 003231 5200547605 01920 SA1 INIT-1,5,5 DSPT2 01920 003236 3401156667 01930 CC UFST-1,0,067 DSPT2 01930 * 003243 3000170442 01940 JE DRMAB DSPT2 01940 003250 5601027605 01950 BA1 FNPST+4,4,5 DSPT2 01950 003255 5200525005 01960 DRAB SA1 RGEN-1,5,5 DSPT2 01960 * 003262 1000212300 01970 JR RWINT DSPT2 01970 003267 2601134404 01980 PD ODLMA,4 4 DSPT2 01980 003274 5601112004 01990 BA1 BNFS2,4 4 DSPT2 01990 003301 5201135004 02000 SA1 EVLMA,4 4 00004000 DB HEAD 32 DSPT2 02000 0 003306 4400336265 02010 SC PS53+4,0,065 K 53 FOR DB TST DSPT2 02010 5 003313 2600034704 02020 PD 0347,4 DSPT2 02020 003320 4140640000 02030 XF 064,0,0,0,6 POSITION TO Z TRACK DSPT2 02030 I 003325 5601026505 02040 BA1 FXH1+4,5,5 DSPT2 02040 003332 5200335505 02050 SA1 PS53-1,5,5 DSPT2 02050 * 003337 3000505400 02060 J NIT DSPT2 02060 003344 3401026000 02070 NPOST CC FRSTE,0 0 DSPT2 02070 * 003351 3000352243 02080 JU KNH1 JUJU KNPOS ALL HEADS BUT Z HEAD DSPT2 02080 * 003356 3000344065 02090 PS53 JC FXPSB,5353 MAKE SKIP AFTER DB REINIT DSPT2 02090 003363 5601134404 02100 BA1 ODLMA,4 4 CASE 2 ODLOA 0 ODLMA 277 DSPT2 02100 2 003370 5201142004 02110 SA1 UPODA,4 4 DSPT2 02110 003375 5601141404 02120 BA1 ODLOA,4 4 UPODA 0 DSPT2 02120 003402 5201134404 02130 SA1 ODLMA,4 4 DSPT2 02130 003407 5601142004 02140 BA1 UPODA,4 4 DSPT2 02140 003414 5201141404 02150 SA1 ODLOA,4 4 DSPT2 02150 003421 4400001700 02160 SC 017,0 DSPT2 02160 003426 4401026004 02170 SC FRSTE,4 4 POSTN BIT DSPT2 02170 * 003433 3000511700 02180 J REP-5 DSPT2 02180 003440 5601112010 02190 FXPSB BA1 BNFS2,8 8 DSPT2 02190 003445 5201111010 02200 SA1 ANFS2,8 8 DSPT2 02200 003452 4400336240 02210 SC PS53+4,0,040 MAKE SKIP DSPT2 02210 K * 003457 3000336300 02220 J PS53+5 DSPT2 02220 003464 5601143010 02230 INITB BA1 UPLMB,8 8 DSPT2 02230 003471 5201142010 02240 SA1 UPODA,8 8 DSPT2 02240 003476 5201134404 02250 SA1 ODLMA,4 4 DSPT2 02250 003503 5401134174 02260 LP ODLMA-3,3,074 DSPT2 02260 003510 5401134201 02270 LP ODLMA-2,2,1 DSPT2 02270 * 003515 3000556100 02280 J BGO DSPT2 02280 003522 5601110404 02290 KNH1 BA1 AP1F2,4 4 UPODA 277 DSPT2 02290 003527 6000001601 02300 AC 016,1 DSPT2 02300 003534 5201110404 02310 SA1 AP1F2,4 4 DSPT2 02310 003541 5201134404 02320 SA1 ODLMA,4 4 DSPT2 02320 003546 5201142004 02330 SA1 UPODA,4 4 DSPT2 02330 003553 5601111004 02340 BA1 ANFS2,4 4 DSPT2 02340 003560 6000001601 02350 AC 016,1 I INC TO HEAD 1 DSPT2 02350 H 003565 5201111004 02360 SA1 ANFS2,4 4 DSPT2 02360 003572 5201141404 02370 SA1 ODLOA,4 4 ODLOA 0 ODLMA 277 DSPT2 02370 003577 4401026000 02380 SC FRSTE,0 0 DSPT2 02380 003604 3400001600 02390 CC 016,0 D DB DSPT2 02390 * 003611 3000362365 02400 JC $+10,53 3 DSPT2 02400 003616 3400001640 02410 CC 016,32 DA DO 31ST HEAD DSPT2 02410 3 * 003623 3000511743 02420 JU REP-5 DSPT2 02420 003630 5201137404 02430 SA1 TMDWA,4 4 DSPT2 02430 * 003635 1000431400 02440 JR PSPRT DSPT2 02440 * 003642 1000471300 02450 JR WRPRT O OR PRDLY DSPT2 02450 Y * 003647 3000376200 02460 J INTRD J FXPOS FOR RONLY DSPT2 02460 X 003654 5601132000 02470 FXW2 BA1 WUP2B,1616 DSPT2 02470 003661 5201143000 02480 SA1 UPLMB,1616 DSPT2 02480 * 003666 3000505400 02490 J NIT DSPT2 02490 003673 3401156502 02500 FXPOS CC UFST-2,2,2 DSPT2 02500 * 003700 3000241642 02510 JE POSF2 DSPT2 02510 003705 3401156501 02520 CC UFST-2,1,1 DSPT2 02520 * 003712 3000373642 02530 JE POSF1 DSPT2 02530 003717 3401156500 02540 CC UFST-2,0,0 DSPT2 02540 * 003724 3000375042 02550 JE POSHV DSPT2 02550 * 003731 3000373120 02560 JHJ $ DSPT2 02560 003736 5601053533 02570 POSF1 BA2 TFS1,11 1 DSPT2 02570 * 003743 3000242300 02580 J POSF2+5 5 DSPT2 02580 003750 5601055033 02590 POSHV BA2 THFS,11 1 DSPT2 02590 * 003755 3000242300 02600 J POSF2+5 5 DSPT2 02600 003762 5601104000 02610 INTRD BA1 RPOS1,1616 DSPT2 02610 003767 5201143000 02620 SA1 UPLMB,1616 DSPT2 02620 003774 5601107004 02630 BA1 BMXR1,4 4 00027700 DSPT2 02630 2 * 004001 3000401365 02640 JC $+10,53 3 DB DSPT2 02640 004006 5601106404 02650 BA1 MAXR1,4 4 00023700 DSPT2 02650 2 004013 5201134404 02660 SA1 ODLMA,4 4 DSPT2 02660 004020 3401156500 02670 CC UFST-2,0,0 DSPT2 02670 * 004025 3000407542 02680 JE FXMXH DSPT2 02680 004032 3401156501 02690 CC UFST-2,1,1 DSPT2 02690 * 004037 3000412142 02700 JE FXMX1 DSPT2 02700 004044 5601145000 02710 BA1 POSD2,1616 FS2 DSPT2 02710 004051 5201106000 02720 SA1 RPOS2,1616 DSPT2 02720 004056 5601146010 02730 BA1 MXR2,8 DSPT2 02730 004063 5201110010 02740 SXR2 SA1 BMXR2,8 8 DSPT2 02740 * 004070 3000525100 02750 J RGEN DSPT2 02750 004075 5601150000 02760 FXMXH BA1 POSDH,1616 HFS DSPT2 02760 004102 5201106000 02770 SA1 RPOS2,1616 DSPT2 02770 004107 5601151010 02780 BA1 MXR2H,8 8 DSPT2 02780 * 004114 3000406300 02790 J SXR2 DSPT2 02790 004121 5601153000 02800 FXMX1 BA1 POSD1,1616 DSPT2 02800 004126 5201106000 02810 SA1 RPOS2,1616 DSPT2 02810 004133 5601154010 02820 BA1 MXR21,8 8 DSPT2 02820 * 004140 3000406300 02830 J SXR2 DSPT2 02830 004145 7401106471 02840 RDPOS CT MAXR1,5757 0023700 DA DSPT2 02840 3 * 004152 3000434742 02850 JE NTAR2 INIT RDPOS 2 DA DSPT2 02850 T 004157 7401107071 02860 CT BMXR1,5757 00027700 DB DSPT2 02860 2 * 004164 3000434742 02870 JE NTAR2 INIT RDPOS 2 DB DSPT2 02870 T 004171 7401107471 02880 CT MAXR2,5757 02773700 DA DSPT2 02880 7 * 004176 3000436642 02890 JE NDAR2 DSPT2 02890 004203 7401110071 02900 CT BMXR2,5757 02777700 DB DSPT2 02900 7 * 004210 3000436642 02910 JE NDAR2 DSPT2 02910 004215 6000001701 02920 AC 017,1 DSPT2 02920 004222 3400001600 02930 CC 016,0 DSPT2 02930 * 004227 3000424165 02940 JC $+10,53 3 DB DSPT2 02940 004234 3400001640 02950 CC 016,32 DSPT2 02950 * 004241 3000533343 02960 JU READ-5 DSPT2 02960 * 004246 3000427265 02970 JC $+20,53 3 DSPT2 02970 004253 2600001702 02980 PD 017,2 DSPT2 02980 004260 6000001501 02990 TM AC 015,1 DSPT2 02990 * 004265 3000533300 03000 J READ-5 DSPT2 03000 004272 4400001640 03010 SC 016,32 DSPT2 03010 004277 4400001700 03020 SC 017,0 DSPT2 03020 * 004304 3000533300 03030 J READ-5 DSPT2 03030 * 004311 3000000000 03040 PSPRT J 0 DSPT2 03040 004316 4400774402 03050 SC SP+4,2 DSPT2 03050 004323 5601044720 03060 BA2 PTST DSPT2 03060 * 004330 1000771200 03070 JR PRT DSPT2 03070 004335 4400774404 03080 SC SP+4,4 DSPT2 03080 * 004342 3000431100 03090 J PSPRT DSPT2 03090 004347 5601106000 03100 NTAR2 BA1 RPOS2,1616 INIT NTRACK READ DSPT2 03100 T 004354 5201143000 03110 SA1 UPLMB,1616 DSPT2 03110 * 004361 3000525100 03120 J RGEN DSPT2 03120 * 004366 1000431440 03130 NDAR2 JR PSPRT,04040 DSPT2 03130 * 004373 1000500200 03140 JR RDPRT DSPT2 03140 * 004400 1000662000 03150 JR SETCN DSPT2 03150 * 004405 3000367360 03160 JD FXPOS D DOESNT PREWRITE POSTN DOES DSPT2 03160 * 004412 3000376260 03170 RDINT JD INTRD DSPT2 03170 * 004417 3000215160 03180 JD POSTN HIT M TO RESTART POS TST DSPT2 03180 * 004424 3000574460 03190 JD PREPR DSPT2 03190 * 004431 3000655260 03200 JD UNITK DSPT2 03200 * 004436 3000136700 03210 J START STOPS AT START+5 DSPT2 03210 P * 004443 3000444300 03220 PRDLY J $ DSPT2 03220 004450 4400774402 03230 SC SP+4,2 DSPT2 03230 004455 5601071020 03240 BA2 RDNLY DSPT2 03240 * 004462 1000771200 03250 JR PRT DSPT2 03250 004467 5601064635 03260 BA2 TS-2,13 3 DSPT2 03260 004474 5201202235 03270 SA2 PRTAR+1818,13 DSPT2 03270 004501 5601071424 03280 BA2 ONCE,4 ONCE DSPT2 03280 004506 5201204224 03290 SA2 PRTAR+3434,4 DSPT2 03290 004513 3401156500 03300 CC UFST-2,0,0 HFS DSPT2 03300 * 004520 3000466442 03310 JE PKHFS DSPT2 03310 004525 3401156501 03320 CC UFST-2,1,1 FS1 DSPT2 03320 * 004532 3000467642 03330 JE PKF1K DSPT2 03330 004537 5601052233 03340 BA2 TFS2,11 1 TIS FS2 DSPT2 03340 2 004544 5201203533 03350 RDCOM SA2 PRTAR+2929,11 COMMON FOR FS1 + HFS DSPT2 03350 O 004551 5601202520 03360 BA2 PRTAR+2121,16 03360 * 004556 1000771200 03370 JR PRT DSPT2 03370 004563 5601060720 03380 BA2 TRKS-1 DSPT2 03380 004570 5201206320 03390 SA2 PRTAR+5151,16 DSPT2 03390 004575 5601073236 03400 BA2 CYC,14 DSPT2 03400 004602 5201202336 03410 SA2 PRTAR+1919,14 DSPT2 03410 004607 5601202520 03420 BA2 PRTAR+2121,16 03420 * 004614 1000771200 03430 JR PRT DSPT2 03430 004621 4400020704 03440 SC 0207,4 DSPT2 03440 004626 4000640000 03450 XF 064,0,0,0,0 DSPT2 03450 * 004633 3000444300 03460 PRLY J PRDLY DSPT2 03460 004640 5600463603 03470 FXPRT BA1 PRLY+3,3,3 FX JR PRDLY DSPT2 03470 R 004645 5200364503 03480 SA1 FXW2-7,3,3 DSPT2 03480 004652 6000364503 03490 AC FXW2-7,3,3 DSPT2 03490 * 004657 3000316600 03500 J INT64 DSPT2 03500 004664 5601055033 03510 PKHFS BA2 THFS,11 1 DSPT2 03510 * 004671 3000454400 03520 J RDCOM DSPT2 03520 004676 5601053533 03530 PKF1K BA2 TFS1,11 1 DSPT2 03530 * 004703 3000454400 03540 J RDCOM DSPT2 03540 * 004710 3000471000 03550 WRPRT J $ DSPT2 03550 004715 5601050720 03560 BA2 PREWR DSPT2 03560 004722 5201204520 03570 SA2 PRTAR+3737,16 DSPT2 03570 004727 5601046720 03580 BA2 PWR DSPT2 03580 * 004734 1000771200 03590 JR PRT DSPT2 03590 004741 5601061020 03600 BA2 TRKS DSPT2 03600 004746 5201204520 03610 SA2 PRTAR+3737,16 DSPT2 03610 004753 5601057020 03620 BA2 PT DSPT2 03620 004760 4400774404 03630 SC SP+4,4 OR 30 DSPT2 03630 R * 004765 1000771200 03640 JR PRT DSPT2 03640 * 004772 3000471000 03650 J WRPRT DSPT2 03650 * 004777 3000477700 03660 RDPRT J $ DSPT2 03660 005004 5601067020 03670 BA2 TN,16 DSPT2 03670 005011 5201206520 03680 SA2 PRTAR+5353,16 DSPT2 03680 005016 5601065020 03690 BA2 TS,16 DSPT2 03690 005023 5201204520 03700 SA2 PRTAR+3737,16 DSPT2 03700 005030 5601063020 03710 BA2 RC,16 DSPT2 03710 005035 4400774406 03720 SC SP+4,6 DSPT2 03720 * 005042 1000771200 03730 JR PRT READ MESSAGE DSPT2 03730 E * 005047 3000477700 03740 J RDPRT DSPT2 03740 * 005054 1000550200 03750 NIT JR INIT DSPT2 03750 * 005061 1000560300 03760 JNITW JR INITW DSPT2 03760 005066 2600013704 03770 PD T23,4 DSPT2 03770 005073 5601142404 03780 AGEN BA1 ODLOB,4 4 ADDR GEN FOR WRITE DSPT2 03780 * 005100 3000511265 03790 JC $+10,53 3 JC REP-5,53 FOR DB POSTN DSPT2 03790 P 005105 5601141404 03800 BA1 ODLOA,4 4 DSPT2 03800 005112 2600001701 03810 PD 017,1 DSPT2 03810 005117 5200034704 03820 SA1 0347,4 DSPT2 03820 005124 5241234704 03830 REP SA1 AREA+16767,4,2 DSPT2 03830 005131 7601034412 03840 AT ADV,X2 DSPT2 03840 005136 7601022227 03850 AT ONE,23 DSPT2 03850 005143 7401022627 03860 CT SEC,23 DSPT2 03860 * 005150 3000516742 03870 JE $+15 DSPT2 03870 005155 6000001701 03880 AC 017,1 DSPT2 03880 * 005162 3000512400 03890 J REP DSPT2 03890 005167 2600013704 03900 PD T23,4 DSPT2 03900 005174 2600005304 03910 PD X2,4 DSPT2 03910 005201 4140660000 03920 WRIT XF 066,0,0,0,6 DSPT2 03920 005206 2601034501 03930 PD FOUR,1 RESET ERROR COUNT DSPT2 03930 005213 5201157304 03940 SA1 STORE,4 4 DSPT2 03940 005220 6000001701 03950 AC 017,1 DSPT2 03950 005225 3400001700 03960 CC 017,0 IF 0 HAVE DONE 64 SECTORS DSPT2 03960 0 * 005232 3000511743 03970 JU REP-5 DSPT2 03970 005237 5601157304 03980 BA1 STORE,4 4 DSPT2 03980 * 005244 3000334400 03990 J NPOST DSPT2 03990 005251 5601142404 04000 RGEN BA1 ODLOB,4 4 GEN ADDR FOR READ DSPT2 04000 * 005256 3000527065 04010 JC $+10,53 3 DSPT2 04010 005263 5601141404 04020 BA1 ODLOA,4 4 DSPT2 04020 005270 2600001701 04030 PD 017,1 DSPT2 04030 005275 6400001640 04040 LS 016,32 DSPT2 04040 * 005302 3000531465 04050 JC $+10,53 3 DSPT2 04050 005307 5400001637 04060 LP 016,31 DSPT2 04060 005314 6400001501 04070 LSR LS 015,1 NOOP FOR EVEN TRACKS DSPT2 04070 005321 2001210070 04080 FT AREA,56 6 DSPT2 04080 005326 4400034020 04090 RSCNT SC 0340,16 6 FOR READING 64 SECTORS DSPT2 04090 005333 5200034704 04100 SA1 0347,4 DSPT2 04100 005340 4140650000 04110 READ XF 065,0,0,0,6 DSPT2 04110 005345 2601034501 04120 PD FOUR,1 RESET ERROR COUNT DSPT2 04120 * 005352 3000535740 04130 CC JC $+5,040 0 JR FBCC,19 SI2 SET FOR NO COMP FBSH DSPT2 04130 F 005357 7061234744 04140 COMP CB1 AREA+16767,4,3 COMP LAST 4 DATA CHARACTERS DSPT2 04140 * 005364 1001000643 04150 JR CMPER,3535 OF EACH SECTOR TO GEN ADDRESS DSPT2 04150 005371 7601034413 04160 NOCOM AT ADV,X3 DSPT2 04160 005376 7601022227 04170 AT ONE,23 DSPT2 04170 005403 7401022627 04180 CT SEC,23 DSPT2 04180 * 005410 3000543442 04190 JE $+20 DSPT2 04190 005415 6000001701 04200 AC 017,1 DSPT2 04200 * 005422 3000535266 04210 CCJC JC CC,54 IF SI2 SET GO CC EVN H ONLY DSPT2 04210 S * 005427 3000535700 04220 J COMP DSPT2 04220 005434 2600013704 04230 PD T23,4 DSPT2 04230 005441 2600005704 04240 PD X3,4 DSPT2 04240 005446 4400774402 04250 SC SP+4,2 DSPT2 04250 005453 2600003700 04260 PD 31,16 DSPT2 04260 * 005460 1000771267 04270 JR PRT,55 DSPT2 04270 * 005465 3000547227 04280 JC $+5,23 DSPT2 04280 * 005472 3000201200 04290 J RPOSI J J ADVTR FOR PREPR DSPT2 04290 F * 005477 3000000000 04300 INIT J 0 DSPT2 04300 005504 5601165510 04310 BA1 IE6,8 DSPT2 04310 005511 5200046710 04320 SA1 0467,8 DSPT2 04320 005516 5601166510 04330 BA1 IE0,8 DSPT2 04330 005523 5200040710 04340 SA1 0407,8 DSPT2 04340 005530 5601170500 04350 BA1 IE2,16 DSPT2 04350 005535 5200051700 04360 SA1 0517,16 6 DSPT2 04360 * 005542 3000554722 04370 JC $+5,18 DSPT2 04370 * 005547 3000346462 04380 JC INITB,5050 SET DRUMB DSPT2 04380 * 005554 3000556125 04390 JC $+5,21 DSPT2 04390 005561 2601034501 04400 BGO PD FOUR,1 RESET ERROR COUNT DSPT2 04400 E 005566 2600001700 04410 PD 017,16 DSPT2 04410 * 005573 3000547700 04420 J INIT DSPT2 04420 * 005600 3000000000 04430 INITW J 0 DSPT2 04430 005605 2600013704 04440 PD T23,4 DSPT2 04440 005612 2600006300 04450 PD X4,16 DSPT2 04450 005617 2001210070 04460 FT AREA,56 6 SECTOR COUNT 64 OR 32 DSPT2 04460 005624 4400034020 04470 SCNT SC 0340,16 6 DEPENDING ON MEM SIZE DSPT2 04470 005631 4400001700 04480 PAT SC 017,0 PATTERN GENERATOR DSPT2 04480 005636 5221210001 04490 PGEN SA1 AREA,1,1,1 DSPT2 04490 005643 6000001701 04500 AC 017,1 DSPT2 04500 005650 6000004701 04510 AC X1,1 DSPT2 04510 * 005655 3200563677 04520 JL PGEN,63 3 DSPT2 04520 * 005662 3200563677 04530 JL PGEN,63 3 DSPT2 04530 * 005667 3200563650 04540 JL PGEN,40 0 DSPT2 04540 005674 4400566177 04550 SC $-11,63 3 DSPT2 04550 005701 4400566677 04560 SC $-11,63 3 DSPT2 04560 005706 4400567350 04570 SC $-11,40 0 DSPT2 04570 005713 6000004704 04580 AC X1,4 DSPT2 04580 005720 7601022227 04590 AT ONE,23 DSPT2 04590 005725 7401022627 04600 CT SEC,23 DSPT2 04600 * 005732 3000563143 04610 JU PAT DSPT2 04610 * 005737 3000560000 04620 J INITW DSPT2 04620 * 005744 1000550200 04630 PREPR JR INIT DSPT2 04630 005751 2601034404 04640 PD ADV,4 DSPT2 04640 005756 4401034410 04650 SC ADV,8 DSPT2 04650 005763 4401026000 04660 SC FRSTE,0 0 DSPT2 04660 005770 2600013704 04670 PD T23,4 DSPT2 04670 005775 2600006300 04680 PD X4,16 DSPT2 04680 006002 4400534265 04690 SC READ+2,0,065 DSPT2 04690 006007 4400534320 04700 SC READ+3,0,020 DSPT2 04700 006014 2001210407 04710 FT AREA+4,7,7 AR2 DSPT2 04710 * 006021 1000207200 04720 JR BTCOM DSPT2 04720 006026 5601023725 04730 BA2 PRTRS+4,4,5 J ADVTR PREP READ DSPT2 04730 D 006033 5200547625 04740 SA2 INIT-1,5,5 DSPT2 04740 006040 5601036722 04750 BA2 H40,2 DSPT2 04750 * 006045 3000605765 04760 JC $+10,53 3 DSPT2 04760 006052 5601032022 04770 BA2 RDD,2 DSPT2 04770 006057 5201042322 04780 SA2 NDPRB-4,4,2 H00 DSPT2 04780 006064 5601025522 04790 BA2 DB,2 DSPT2 04790 * 006071 3000610365 04800 JC $+10,53 3 DSPT2 04800 006076 5601025722 04810 BA2 DA,2 DSPT2 04810 006103 5201044722 04820 SA2 PTST,2 DSPT2 04820 006110 5601133004 04830 BA1 UTHSB,4 4 0000 DSPT2 04830 0 * 006115 3000612765 04840 JC $+10,53 3 DSPT2 04840 006122 5601132404 04850 BA1 UTHSA,4 4 ODLOA 0 ODLMA 277 DSPT2 04850 O 006127 5201141404 04860 SA1 ODLOA,4 4 UPODA 0 DSPT2 04860 D 006134 5201142004 04870 SA1 UPODA,4 4 DSPT2 04870 006141 3401156500 04880 CC UFST-2,0,0 HFS DSPT2 04880 * 006146 3000624242 04890 JE PRH DSPT2 04890 006153 3401156501 04900 CC UFST-2,1,1 FS1 DSPT2 04900 * 006160 3000626642 04910 JE PRF1 DSPT2 04910 006165 5601025323 04920 BA2 FS2,3 DSPT2 04920 006172 5201044423 04930 SA2 PTST-3,3,3 DSPT2 04930 006177 5601155030 04940 BA2 PREP1,8 8 277,137 DSPT2 04940 , * 006204 3000622365 04950 PREPN JC $+15,53 3 DSPT2 04950 006211 5201135030 04960 SA2 EVLMA,8 8 DSPT2 04960 * 006216 3000532100 04970 J RSCNT-5 5 DSPT2 04970 006223 6400003640 04980 LS 036,040 0 DSPT2 04980 006230 6400003240 04990 LS 032,040 0 FIX ODLMA FOR DRUM B DSPT2 04990 * 006235 3000621100 05000 J $-20 DSPT2 05000 006242 5601024523 05010 PRH BA2 HFS,3 DSPT2 05010 006247 5201044423 05020 SA2 PTST-3,3,3 DSPT2 05020 006254 5601156030 05030 BA2 PREPH+4,4,8 057 030 DSPT2 05030 5 * 006261 3000620400 05040 J PREPN DSPT2 05040 006266 5601025023 05050 PRF1 BA2 FS1,3 DSPT2 05050 006273 5201044423 05060 SA2 PTST-3,3,3 DSPT2 05060 006300 5601155430 05070 BA2 PREPH,8 8 057,030 DSPT2 05070 7 * 006305 3000620400 05080 J PREPN DSPT2 05080 * 006312 1000431400 05090 NDPRP JR PSPRT DSPT2 05090 006317 5601042720 05100 BA2 NDPRB DSPT2 05100 006324 5201204520 05110 SA2 PRTAR+3737,16 DSPT2 05110 006331 5601040720 05120 BA2 NDPRA DSPT2 05120 * 006336 1000771200 05130 JR PRT DSPT2 05130 * 006343 1000662000 05140 JR SETCN DSPT2 05140 * 006350 3000442400 05150 J RDINT+1010 DSPT2 05150 006355 3401026000 05160 ADVTR CC FRSTE,0 0 ADV TRACK ONLY DSPT2 05160 * 006362 3000644443 05170 JU SHFTR DONE 0'277 HEAD 0 DSPT2 05170 E 006367 5601134404 05180 BA1 ODLMA,4 4 277 2ND TIME 0 DSPT2 05180 006374 5201142004 05190 SA1 UPODA DSPT2 05190 006401 5601141404 05200 BA1 ODLOA,4 4 0 DSPT2 05200 006406 5201134404 05210 SA1 ODLMA,4 4 DSPT2 05210 006413 5601142004 05220 BA1 UPODA,4 4 DSPT2 05220 006420 5201141404 05230 SA1 ODLOA,4 4 DSPT2 05230 006425 2600001701 05240 PD 017,1 CLEAR S DSPT2 05240 S 006432 4401026002 05250 SC FRSTE,2 2 PREP BIT DSPT2 05250 P * 006437 3000532100 05260 J RSCNT-5 5 AR,CORRECT DATA DSPT2 05260 C 006444 7401135071 05270 SHFTR CT EVLMA,5757 DSPT2 05270 * 006451 3000631242 05280 JE NDPRP DSPT2 05280 006456 5601134404 05290 BA1 ODLMA,4 4 0 MAKE TR 01 NOW DSPT2 05290 006463 6000001501 05300 AC 015,1 DSPT2 05300 006470 5201142004 05310 SA1 UPODA,4 4 WAS 0 NOW TR 01 DSPT2 05310 006475 2600001704 05320 PD 017,4 DSPT2 05320 006502 4400001701 05330 SC 017,1 DSPT2 05330 006507 7201141242 05340 SB1 ODLOA-2,2,2 DSPT2 05340 006514 5601141404 05350 BA1 ODLOA DSPT2 05350 006521 5201134404 05360 SA1 ODLMA DSPT2 05360 006526 5601142004 05370 BA1 UPODA DSPT2 05370 006533 5201141404 05380 SA1 ODLOA DSPT2 05380 006540 4401026000 05390 SC FRSTE,0 0 DSPT2 05390 * 006545 3000532100 05400 J RSCNT-5 5 DSPT2 05400 006552 5601156301 05410 UNITK BA1 UFST-4,1,1 DSPT2 05410 006557 7001156441 05420 CB1 UFST-3,1,1 DSPT2 05420 * 006564 3000657643 05430 JU $+10 DSPT2 05430 * 006571 3000136700 05440 J START REPEAT TST DSPT2 05440 006576 6000001704 05450 AC 017,4 DSPT2 05450 006603 5201156301 05460 SA1 UFST-4,1,1 DSPT2 05460 * 006610 3000151400 05470 J UNITS DSPT2 05470 * 006615 3000000000 05480 SETCN J 0 DSPT2 05480 * 006622 3000664663 05490 JC S2CS3,5151 SW2 SET SEE IF SW3 SET DSPT2 05490 006627 4400441160 05500 SC RDINT-1,1,060 SW2 RESET DSPT2 05500 W 006634 4400443060 05510 SC RDINT+1414,060 DSPT2 05510 * 006641 3000661500 05520 J SETCN DSPT2 05520 006646 3401156675 05530 S2CS3 CC UFST-1,0,075 SW2 SET DSPT2 05530 2 * 006653 3000662742 05540 JE SETCN+1010 ITS READ ONLY DSPT2 05540 006660 3401156665 05550 CC UFST-1,0,065 DSPT2 05550 * 006665 3000672342 05560 JE FXPRE FX PREP READ DSPT2 05560 P 006672 3401156666 05570 CC UFST-1,0,066 DSPT2 05570 * 006677 3000673542 05580 JE FXPWR DSPT2 05580 006704 3401156667 05590 CC UFST-1,0,067 DSPT2 05590 * 006711 3000673542 05600 JE FXPWR DSPT2 05600 * 006716 3000671620 05610 JHJ $ ERROR DSPT2 05610 O 006723 4400443000 05620 FXPRE SC RDINT+1414,0 DSPT2 05620 * 006730 3000661500 05630 J SETCN DSPT2 05630 006735 4400441100 05640 FXPWR SC RDINT-1,1,0 DSPT2 05640 * 006742 3000661500 05650 J SETCN DSPT2 05650 * 006747 3000040060 05660 IPT0 JD 0400 CNGE TO 3000040000 IF NO PRINTER DSPT2 05660 006754 4000407777 05670 XF 040,0777777,0,0 DSPT2 05670 006761 5601023123 05680 BA2 FIVE,3 DSPT2 05680 006766 7200040363 05690 SB2 0403,3 DSPT2 05690 * 006773 3000040000 05700 J 0400 DSPT2 05700 007000 5601164520 05710 IPT6 BA2 ER6,16 DSPT2 05710 007005 4140000001 05720 XF 0,01,0,6,6 DSPT2 05720 * 007012 1000742653 05730 JR D1,43 DSPT2 05730 007017 4140000002 05740 XF 0,02,0,6,6 DSPT2 05740 * 007024 1000744553 05750 JR D2,43 DSPT2 05750 007031 4140000004 05760 XF 0,04,0,6,6 DSPT2 05760 * 007036 1000746453 05770 JR D3,43 DSPT2 05770 007043 4140000010 05780 XF 0,010,0,0,6 DSPT2 05780 * 007050 1000750353 05790 JR D4,43 DSPT2 05790 007055 4140000020 05800 XF 0,020,0,0,6 DSPT2 05800 * 007062 1000752253 05810 JR D5,43 DSPT2 05810 007067 4140000040 05820 XF 0,040,0,0,6 DSPT2 05820 * 007074 1000754153 05830 JR D6,43 DSPT2 05830 007101 4140000100 05840 XF 0,0100,0,0,6 DSPT2 05840 * 007106 1000756053 05850 JR D7,43 DSPT2 05850 007113 4140000200 05860 XF 0,0200,0,0,6 DSPT2 05860 * 007120 1000757753 05870 JR D8,43 DSPT2 05870 007125 4140000400 05880 XF 0,0400,0,0,6 DSPT2 05880 * 007132 1000761653 05890 JR D9,43 DSPT2 05890 007137 4140001000 05900 XF 0,01000,0,0,6 DSPT2 05900 * 007144 1000763553 05910 JR D10,43 DSPT2 05910 007151 4140002000 05920 XF 0,02000,0,0,6 DSPT2 05920 * 007156 1000765453 05930 JR D11,43 DSPT2 05930 007163 4140004000 05940 XF 0,04000,0,0,6 DSPT2 05940 * 007170 1000767353 05950 JR D12,43 DSPT2 05950 007175 6000006304 05960 AC X4,4 DSPT2 05960 007202 4140407777 05970 XF 040,0777777,0,6 DSPT2 05970 007207 4600035737 05980 BT 0357,31 1 DSPT2 05980 007214 5200004321 05990 SA2 043,1 IF MISSING SECTOR ERROR DSPT2 05990 * 007221 3001001523 06000 JC SET,19 DSPT2 06000 * 007226 3000723326 06010 RET JC $+5,22 DSPT2 06010 007233 5600004321 06020 BA2 043,1 DSPT2 06020 * 007240 1000771200 06030 JR PRT DSPT2 06030 007245 2600006304 06040 PD X4,4 DSPT2 06040 007252 3400003504 06050 CC AC+13,4 4 DSPT2 06050 * 007257 3000727143 06060 JU CY DSPT2 06060 * 007264 3000726460 06070 NR JD NR DSPT2 06070 007271 5601023123 06080 CY BA2 FIVE,3 DSPT2 06080 007276 7200046363 06090 SB2 0463,3 DSPT2 06090 007303 3401034503 06100 CC FOUR,3 CHECK FOR 4 CONSECUTIVE ERRS DSPT2 06100 * 007310 3000741143 06110 JU ADD DSPT2 06110 * 007315 3000000460 06120 JD 4 DSPT2 06120 007322 2601034501 06130 PD FOUR,1 RESET ERROR COUNT DSPT2 06130 007327 5600046323 06140 RECVR BA2 0463,3 SKIP ERROR TRACK DSPT2 06140 007334 2000534026 06150 FT READ,22 2 DSPT2 06150 007341 7000013363 06160 CB2 0133,3 DSPT2 06160 * 007346 3000737742 06170 JE ADD-10 DSPT2 06170 007353 2000520126 06180 FT WRIT,22 2 DSPT2 06180 007360 7000013363 06190 CB2 0133,3 DSPT2 06190 * 007365 3000046043 06200 JU 0460 DSPT2 06200 * 007372 3000511731 06210 JC REP-5,2525 DSPT2 06210 007377 6000001601 06220 AC 016,1 DSPT2 06220 * 007404 3000533331 06230 JC READ-5,2,25 DSPT2 06230 007411 6001034501 06240 ADD AC FOUR,1 INCRIMENT ERROR COUNT DSPT2 06240 * 007416 3000046000 06250 J 0460 DSPT2 06250 000020 06260 AC EQU 020 DSPT2 06260 * 007423 3000000000 06270 D1 J 0 DSPT2 06270 007430 4400002404 06280 SC AC+4,4 DSPT2 06280 * 007435 3000742300 06290 J D1 DSPT2 06290 * 007442 3000000000 06300 D2 J 0 DSPT2 06300 007447 4400002504 06310 SC AC+5,4 DSPT2 06310 * 007454 3000744200 06320 J D2 DSPT2 06320 * 007461 3000000000 06330 D3 J 0 DSPT2 06330 007466 4400002604 06340 SC AC+6,4 DSPT2 06340 * 007473 3000746100 06350 J D3 DSPT2 06350 * 007500 3000000000 06360 D4 J 0 DSPT2 06360 007505 4400002704 06370 SC AC+7,4 DSPT2 06370 * 007512 3000750000 06380 J D4 DSPT2 06380 * 007517 3000000000 06390 D5 J 0 DSPT2 06390 007524 4400003004 06400 SC AC+8,4 DSPT2 06400 * 007531 3000751700 06410 J D5 DSPT2 06410 * 007536 3000000000 06420 D6 J 0 DSPT2 06420 007543 4400003104 06430 SC AC+9,4 DSPT2 06430 * 007550 3000753600 06440 J D6 DSPT2 06440 * 007555 3000000000 06450 D7 J 0 DSPT2 06450 007562 4400003204 06460 SC AC+10,4 4 DSPT2 06460 * 007567 3000755500 06470 J D7 DSPT2 06470 * 007574 3000000000 06480 D8 J 0 DSPT2 06480 007601 4400003304 06490 SC AC+11,4 4 DSPT2 06490 * 007606 3000757400 06500 J D8 DSPT2 06500 * 007613 3000000000 06510 D9 J 0 DSPT2 06510 007620 4400003404 06520 SC AC+12,4 4 DSPT2 06520 * 007625 3000761300 06530 J D9 DSPT2 06530 * 007632 3000000000 06540 D10 J 0 DSPT2 06540 007637 4400003504 06550 SC AC+13,4 4 DSPT2 06550 * 007644 3000763200 06560 J D10 DSPT2 06560 * 007651 3000000000 06570 D11 J 0 DSPT2 06570 007656 4400003604 06580 SC AC+14,4 4 DSPT2 06580 * 007663 3000765100 06590 J D11 DSPT2 06590 * 007670 3000000000 06600 D12 J 0 DSPT2 06600 007675 4400003704 06610 SC AC+15,4 4 DSPT2 06610 * 007702 3000767000 06620 J D12 DSPT2 06620 * 007707 3000000000 06630 PRT J 0 DSPT2 06630 007714 5201202520 06640 SA2 PRTAR+2121,16 DSPT2 06640 007721 2001200040 06650 FT PRTAR,3232 DSPT2 06650 007726 4400020701 06660 SC 0207,1 DSPT2 06660 007733 4000620400 06670 XF 062,0040400,0,0 DSPT2 06670 007740 4400020702 06680 SP SC 0207,2 DSPT2 06680 007745 4000640000 06690 XF 064,0,0,0,0 DSPT2 06690 007752 4401200000 06700 SC PRTAR,0 0 DSPT2 06700 007757 2001200120 06710 FT PRTAR+1,1,16 DSPT2 06710 007764 2000007722 06720 FT 63,18 DSPT2 06720 007771 2401200001 06730 TFR PRTAR DSPT2 06730 * 007776 3000770700 06740 J PRT DSPT2 06740 * 010003 3000000000 06750 CMPER J 0 DSPT2 06750 010010 4600001737 06760 BT 017,31 DSPT2 06760 010015 2600017301 06770 SET PD SH,1 EDIT DRUM ADDRESSES FOR DSPT2 06770 010022 1600017423 06780 BS2 SH+1,3 ERROR PRINT OUT DSPT2 06780 010027 6000017303 06790 AC SH,3 DSPT2 06790 010034 5600017321 06800 BA2 SH,1 DSPT2 06800 010041 5301202621 06810 SA2 PRTAR+2222,1,4 DSPT2 06810 010046 6000006301 06820 AC X4,1 DSPT2 06820 * 010053 3201001502 06830 JL SET,2 DSPT2 06830 010060 4401005702 06840 SC $-1,2 DSPT2 06840 010065 1600017706 06850 BS4 SH+4,6 DSPT2 06850 * 010072 3201001504 06860 JL SET,4 DSPT2 06860 010077 4401007604 06870 SC $-1,4 DSPT2 06870 * 010104 3000722666 06880 JC RET,54 DSPT2 06880 010111 6000006304 06890 AC X4,4 DSPT2 06890 010116 4661234737 06900 BTC BT AREA+16767,31,3 OR BT AREA,31,3 FOR PREPRD DSPT2 06900 * 010123 3201001502 06910 JL SET,2 DSPT2 06910 010130 4401012702 06920 SC $-1,2 DSPT2 06920 010135 2600006304 06930 PD X4,4 DSPT2 06930 010142 5601034020 06940 BA2 CERR,16 6 DSPT2 06940 010147 4400774400 06950 SC SP+4,0 DSPT2 06950 * 010154 1000771224 06960 JR PRT,20 DSPT2 06960 * 010161 3001000300 06970 J CMPER DSPT2 06970 000173 06980 SH EQU 0173 DSPT2 06980 010166 4400563010 06990 MSIZE SC SCNT+4,8,8 SET UP FOR 32 SECTOR WRITE DSPT2 06990 010173 4400533210 07000 SC RSCNT+4,4,8 DSPT2 07000 010200 4401022640 07010 SC SEC,32 AND READ IF LESS THAN 16K MEM DSPT2 07010 010205 4401022500 07020 SC SEC-1,0 0 DSPT2 07020 * 010212 3000136736 07030 JC START,3030 DSPT2 07030 000137 07040 T23 EQU 0137 DSPT2 07040 010222 00000001 07050 ONE +4 1 DSPT2 07050 010226 00000100 07060 SEC +4 64 DSPT2 07060 010231 000005 07070 FIVE +3 05 DSPT2 07070 010232 00 07080 HWSIN +1 0 DSPT2 07080 * 010233 3000635500 07090 PRTRS J ADVTR DSPT2 07090 010242 FS2 07100 FFS2 +3 _FS2_ DSPT2 07100 010245 HFS 07110 HFS +3 _HFS_ DSPT2 07110 010250 FS1 07120 FS1 +3 _FS1_ DSPT2 07120 010253 FS2 07130 FS2 +3 _FS2_ DSPT2 07130 010255 DB 07140 DB +2 _DB_ DSPT2 07140 010257 DA 07150 DA +2 _DA_ DSPT2 07150 010260 00 07160 FRSTE +1 0 DSPT2 07160 * 010261 3000352243 07170 FXH1 JU KNH1 DSPT2 07170 010271 03001200 07180 XVFSB +4 00300120200 DSPT2 07180 * 010272 3000334400 07190 FNPST J NPOST DSPT2 07190 010277 6400001640 07200 FAGLS LS 016,32 DSPT2 07200 * 010304 3000511265 07210 FAGEN JC AGEN+15,5,53 DSPT2 07210 010312 AB 07220 AB +2 _AB_ DSPT2 07220 010315 001 07230 WR +3 _001_ DSPT2 07230 010320 000 07240 RDD +3 _000_ DSPT2 07240 010340 COMP ERROR 07250 CERR +16 _COMP ERERROR _ DSPT2 07250 010344 00000250 07260 ADV +4 168 DSPT2 07260 010345 00 07270 FOUR +1 0 DSPT2 07270 000047 07280 X1 EQU 047 DSPT2 07280 000053 07290 X2 EQU 053 DSPT2 07290 000057 07300 X3 EQU 057 DSPT2 07300 000063 07310 X4 EQU 063 DSPT2 07310 000067 07320 X5 EQU 067 DSPT2 07320 010351 00000620 07330 K54 +4 0620 DSPT2 07330 * 010352 3000273300 07340 FJSIX J TRSIX DSPT2 07340 * 010357 3000537100 07350 FRDLY J NOCOM F FOR RD ONLY DSPT2 07350 O 010364 00 07360 FRSTR +1 0 DSPT2 07360 010365 05 07370 DD2 +1 05 DSPT2 07370 010367 40 07380 H40 +2 _40_ DSPT2 07380 010407 PREP READ ALL TR 07390 NDPRA +16 _PREP REREAD ALL TR_ DSPT2 07390 010427 ACKS HEAD 00 07400 NDPRB +16 _ACKS HEHEAD 00 _ DSPT2 07400 010447 POS. TEST FS2 DA 07410 PTST +16 _POS. TETEST FS2 DA_ DSPT2 07410 010467 PREWRITE TRACK 0 07420 PWR +16 _PREWRITITE TRACK 0_ DSPT2 07420 K 010507 ,1,2,275,276,277 07430 PREWR +16 _,1,2,27275,276,277_ DSPT2 07430 2 010522 275,276,277 07440 TFS2 +11 _275,27676,277_ DSPT2 07440 010535 135,136,137 07450 TFS1 +11 _135,13636,137_ DSPT2 07450 010550 055,056,057 07460 THFS +11 _055,05656,057_ DSPT2 07460 010570 POSITION WRITE T 07470 PT +16 _POSITIOION WRITE T_ DSPT2 07470 E 010610 RACKS 1,276 07480 TRKS +16 _RACKS 1 1,276 _ DSPT2 07480 010630 READ AND COMPARE 07490 RC +16 _READ ANAND COMPARE_ DSPT2 07490 A 010650 TRACKS 0,1,2,27 07500 TS +16 _ TRACKSKS 0,1,2,27_ DSPT2 07500 , 010670 5,276,277 07510 TN +16 _5,276,2,277 _ DSPT2 07510 010710 READ ONLY 07520 RDNLY +16 _READ ONONLY _ DSPT2 07520 010714 ONCE 07530 ONCE +4 _ ONCE____ DSPT2 07530 010732 AND CYCLES ON 07540 CYC +14 _AND CYCYCLES ON _ DSPT2 07540 010734 F1 07550 F1 +2 _F1_ DSPT2 07550 010736 F2 07560 F2 +2 _F2_ DSPT2 07560 010740 HV 07570 HV +2 _HV_ DSPT2 07570 010744 01360000 07580 ANFS1 +4 0136000000 FS1 DSPT2 07580 010750 00010000 07590 ATFS1 +4 010000 DSPT2 07590 010754 01364000 07600 BNFS1 +4 0136400000 DSPT2 07600 010760 00014000 07610 BTFS1 +4 014000 DSPT2 07610 010764 02760000 07620 APFS2 +4 0276000000 FS2 DSPT2 07620 010770 00010000 07630 AKFS2 +4 010000 DSPT2 07630 010774 02764000 07640 BPFS2 +4 0276400000 DSPT2 07640 011000 00014000 07650 BKFS2 +4 014000 DSPT2 07650 011004 00560000 07660 ANHVF +4 00056000000 HALF DRUM DSPT2 07660 F 011010 00010000 07670 ATHVF +4 010000 DSPT2 07670 011014 00564000 07680 BNHVF +4 00056400000 DSPT2 07680 011020 00014000 07690 BTHVF +4 014000 DSPT2 07690 011024 00000000 07700 +4 00 DA LOWER TRACKS DSPT2 07700 L 011030 00003700 07710 +4 00000370700 DSPT2 07710 011034 00004000 07720 +4 00000400000 DB LOWER TRACKS DSPT2 07720 L 011040 00007700 07730 RPOS1 +4 00000770700 DSPT2 07730 011044 02750000 07740 +4 00275000000 DA UPPER TRACKS DSPT2 07740 U 011050 02753700 07750 +4 00275370700 DSPT2 07750 011054 02754000 07760 +4 00275400000 DB UPPER TRACKS DSPT2 07760 U 011060 02757700 07770 RPOS2 +4 00275770700 DSPT2 07770 011064 00023700 07780 MAXR1 +4 00002370700 DA MAX DSPT2 07780 M 011070 00027700 07790 BMXR1 +4 00002770700 DB MAX DSPT2 07790 M 011074 02773700 07800 MAXR2 +4 00277370700 DSPT2 07800 011100 02777700 07810 BMXR2 +4 00277770700 DSPT2 07810 011104 02770000 07820 AP1F2 +4 00277000000 N LIMIT FRST DSPT2 07820 I 011110 00000000 07830 ANFS2 +4 00000000000 191 DEC DSPT2 07830 011114 02774000 07840 BP1F2 +4 00277400000 DSPT2 07840 011120 00004000 07850 BNFS2 +4 00000400000 DSPT2 07850 011124 00000000 07860 +4 00 DSPT2 07860 011130 00023700 07870 +4 00002370700 DSPT2 07870 011134 00004000 07880 +4 00000400000 DSPT2 07880 011140 00027700 07890 ILF2B +4 00002770700 DSPT2 07890 011144 02750000 07900 +4 0275000000 DSPT2 07900 011150 02773700 07910 +4 0277370000 DSPT2 07910 011154 02754000 07920 +4 0275400000 DSPT2 07920 011160 02777700 07930 IUP2B +4 00277770700 DSPT2 07930 011164 00000000 07940 +4 00 DSPT2 07940 011170 00023700 07950 +4 023700 DSPT2 07950 011174 00004000 07960 +4 04000 DSPT2 07960 011200 00027700 07970 ILF1B +4 00002770700 DSPT2 07970 011204 01350000 07980 +4 0135000000 DSPT2 07980 011210 01373700 07990 +4 0137370000 DSPT2 07990 011214 01354000 08000 +4 0135400000 DSPT2 08000 011220 01377700 08010 IUP1B +4 0137770000 DSPT2 08010 011224 00000000 08020 +4 00 DSPT2 08020 011230 00023700 08030 +4 023700 DSPT2 08030 011234 00024000 08040 +4 024000 DSPT2 08040 011240 00027700 08050 ILHVB +4 00002770700 DSPT2 08050 011244 00550000 08060 +4 0550000 0 DSPT2 08060 011250 00573700 08070 +4 0573700 0 DSPT2 08070 011254 00554000 08080 +4 0554000 0 DSPT2 08080 011260 00577700 08090 IPHVB +4 00057770700 DSPT2 08090 011264 00000000 08100 +4 00 DSPT2 08100 011270 00023700 08110 LF2A +4 00002370700 DSPT2 08110 011274 00004000 08120 +4 00000400000 DSPT2 08120 011300 00027700 08130 WLF2B +4 00002770700 DSPT2 08130 011304 02750000 08140 +4 00275000000 DSPT2 08140 011310 02773700 08150 WUP2A +4 00277370700 DSPT2 08150 011314 02754000 08160 +4 00275400000 DSPT2 08160 011320 02777700 08170 WUP2B +4 00277770700 DSPT2 08170 011324 00000000 08180 UTHSA +4 00 DSPT2 08180 011330 00004000 08190 UTHSB +4 04000 DSPT2 08190 011334 00013700 08200 FDLMA +4 00001370700 DSPT2 08200 011340 00003700 08210 FVLMA +4 00000370700 DSPT2 08210 011344 00000000 08220 ODLMA +4 00 DSPT2 08220 011350 00000000 08230 EVLMA +4 00 DSPT2 08230 011354 02760000 08240 +4 0276000000 DSPT2 08240 011360 00010000 08250 +4 010000 DSPT2 08250 011364 02764000 08260 +4 0276400000 DSPT2 08260 011370 00014000 08270 BTFS2 +4 014000 DSPT2 08270 011374 00000000 08280 TMDWA +4 00 DSPT2 08280 011400 00000000 08290 TMDWB +4 00 DSPT2 08290 011404 00000000 08300 TMDRA +4 00 DSPT2 08300 011410 00000000 08310 TMDRB +4 00 DSPT2 08310 011414 00010000 08320 ODLOA +4 00001000000 SET FOR FS1 DSPT2 08320 011420 01373700 08330 UPODA +4 00137370700 FS2 LMTA 02773700 ODD DSPT2 08330 011424 00014000 08340 ODLOB +4 00001400000 DSPT2 08340 011430 01377700 08350 UPLMB +4 00137770700 02777700 DSPT2 08350 011434 02750000 08360 +4 00275000000 DSPT2 08360 011440 02753700 08370 +4 00275370700 DSPT2 08370 011444 02754000 08380 +4 00275400000 DSPT2 08380 011450 02757700 08390 POSD2 +4 00275770700 DSPT2 08390 011454 02773700 08400 +4 00277370700 DSPT2 08400 011460 02777700 08410 MXR2 +4 00277770700 DSPT2 08410 011464 00550000 08420 +4 00055000000 DSPT2 08420 011470 00553700 08430 +4 00055370700 DSPT2 08430 011474 00554000 08440 +4 00055400000 DSPT2 08440 011500 00557700 08450 POSDH +4 00055770700 DSPT2 08450 011504 00573700 08460 +4 00057370700 DSPT2 08460 011510 00577700 08470 MXR2H +4 00057770700 DSPT2 08470 011514 01350000 08480 +4 00135000000 DSPT2 08480 011520 01353700 08490 +4 00135370700 DSPT2 08490 011524 01354000 08500 +4 00135400000 DSPT2 08500 011530 01357700 08510 POSD1 +4 00135770700 DSPT2 08510 011534 01373700 08520 +4 00137370700 DSPT2 08520 011540 01377700 08530 MXR21 +4 00137770700 DSPT2 08530 011544 02770000 08540 PREP2 +4 0277000000 DSPT2 08540 011550 01370000 08550 PREP1 +4 0137000000 DSPT2 08550 011554 00570000 08560 PREPH +4 0057000000 DSPT2 08560 011560 00300000 08570 +4 0030000000 DSPT2 08570 011562 0275 08580 K275 +2 00275 DSPT2 08580 011567 0000017501 08590 UFST +5 017501 08590 011573 00000000 08600 STORE +4 00 DSPT2 08600 * 011574 3000414500 08610 FXRPS J RDPOS DSPT2 08610 011604 00000250 08620 K168 +4 0250 DSPT2 08620 011605 00 08630 WPOSB +1 00 DSPT2 08630 011606 00 08640 RPOSB +1 00 DSPT2 08640 * 011607 3000174200 08650 BOTHD J BPOST DSPT2 08650 * 011614 3000201200 08660 RPSTD J RPOSI DSPT2 08660 * 011621 3000535266 08670 JC JC CC,54 DSPT2 08670 011645 ER6 000000000000 08680 ER6 +16 _ER6 00000000000000_ DSPT2 08680 0 * 011646 3000000031 08690 JC 0,25 DSPT2 08690 011655 007000 08700 IE6 +3 IPT6 DSPT2 08700 * 011656 3000000031 08710 JC 0,25 DSPT2 08710 011665 006747 08720 IE0 +3 IPT0 DSPT2 08720 * 011666 3000000160 08730 IPT1 JD 1 DSPT2 08730 011675 011666 08740 +3 IPT1 DSPT2 08740 * 011676 3000000260 08750 I2 JD 2 DSPT2 08750 011705 011676 08760 IE2 +3 I2 DSPT2 08760 012000 08770 ORIG $,64 DSPT2 08770 012000 100 08780 PRTAR AREA 64,B,0 DSPT2 08780 012100 08790 AREA EQU $ DSPT2 08790 0000 ERROR LINES 3000135000 08800 END STRT DSPT2 08800 {-- tape mark --} 004563 C611 MOD1 CODEDIT SOURCE 08/65 - T3834394-61 001350 00010 T610 BEGIN 01350 MOD1 00010 *LOAD 017300,T,TAPE,R,PRELD P * 001350 3007010660 * JD 070106 * * 001355 3000135000 * J $-5 * SEGMENT-ID T611 3000135000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T612 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2001751611 * FT 017300+0+0216,9,0 * 0 000457 2001730060 * FT 017300,4,48,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 2001751660 * FT 017300+0+0216,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 3001734000 * J 017300+0+040,0 * 017340 * ORIG 017300+0+040 * 017340 4100610100 * XF 061,010000,0,4 * 017345 6000001701 * AC 15,1 * 017352 3420022211 * CC 146,9,1 1 * * 017357 3001746542 * JE $+70 * 017364 2600004104 * PD 041,4 * 017371 3620021700 * CS 143,0,1 1 * 017376 3620011700 * CS 79,0,1 * 017403 3620001712 * CS 15,10,1 1 * 017410 1600004166 * BC2 041,6 * 017415 3620022102 * CS 145,2,1 1 * 017422 7000004162 * CB2 041,2 * * 017427 3001744142 * JE $+10 * * 017434 3007010460 * JD 070104 * 017441 4620003520 * BT 29,16,1 1 * 017446 4620003722 * BT 31,18,1 1 * 017453 2420004001 * TFR 32,,1 * * 017460 3001734000 * J $-80 * 017465 4100640000 * XF 064,0,0,0,4 * 017472 7020004642 * CB1 38,2,1 * * 017477 3020004042 * JE 32,1 * * 017504 3007010560 * JD 070105 * * 017511 3020004000 * J 32,1 * 017516 245 * AREA 165 * SEGMENT-ID T613 3001776300 * SEGJP $ * 001350 00020 ORIG 01350 MOD1 00020 001350 2001114503 00030 STRT FT MSIZE,3 3 MOD1 00030 001355 5200050703 00040 SA1 0507,3 MOD1 00040 001362 5603000001 00050 BA1 030000,1,1 TEST MEM FOR 16K MOD1 00050 001367 5600064102 00060 START BA1 0641,2 LU UU FS WR ODD EVEN MOD1 00060 001374 5201213002 00070 SA1 UFST-3,2,2 MOD1 00070 001401 5601213305 00080 BA1 UFST,5 MOD1 00080 * 001406 3000141320 00090 JHJ $+5 MOD1 00090 001413 5201213305 00100 SA1 UFST,5 MOD1 00100 001420 4400173100 00110 SC WRCOD-9,9,0 MOD1 00110 001425 4400201506 00120 SC FXALL-7,7,6 MOD1 00120 001432 3401213113 00130 CC UFST-2,0,013 MOD1 00130 * 001437 3000212042 00140 JE FBFS1 MOD1 00140 001444 5601213002 00150 CONTD BA1 UFST-3,2,2 MOD1 00150 001451 5200064102 00160 SA1 0641,2 MOD1 00160 001456 7001212741 00170 CB1 UFST-4,1,1 MOD1 00170 001463 1601213022 00180 BS2 UFST-3,2,2 MOD1 00180 * 001470 3000154043 00190 JU UNITS MOD1 00190 * 001475 1000155500 00200 JR FUNIT FIXES STARTING UNIT IF OR NOT ZERO MOD1 00200 001502 3401213300 00210 ODEVN CC UFST,0 $ LU EQUALS UU UNITS MOD1 00210 * 001507 3000167242 00220 JE EVEN MOD1 00220 001514 3401213301 00230 CC UFST,1 MOD1 00230 * 001521 3000166542 00240 JE ODD MOD1 00240 * 001526 3000000260 00250 JD 002 NO ODD OR EVEN TRACKS SELECTED MOD1 00250 O * 001533 3000136700 00260 J START MOD1 00260 * 001540 1000155500 00270 UNITS JR FUNIT MOD1 00270 * 001545 3000150200 00280 J ODEVN MOD1 00280 * 001552 3000000000 00290 FUNIT J 0 MOD1 00290 001557 5601212701 00300 BA1 UFST-4,1,1 MOD1 00300 001564 5200164001 00310 SA1 CUNIT+4,4,1 CURRENT OR STARTING UNIT MOD1 00310 001571 5200472101 00320 SA1 NCEVN+9,9,1 FOR T25 MOD1 00320 O 001576 2600006704 00330 PD 067,4 MOD1 00330 001603 5521177103 00340 LPUNT LP FSHOD-3,3,3,5 MOD1 00340 001610 6000006704 00350 AC X5,4 MOD1 00350 001615 7401176115 00360 CT K54,13 MOD1 00360 * 001622 3000160343 00370 JU LPUNT MOD1 00370 001627 2600006704 00380 PD 067,4 CLEAR IR5 MOD1 00380 001634 6521177100 00390 CUNIT LS FSHOD-3,3,0,5 MOD1 00390 001641 6000006704 00400 AC X5,4 MOD1 00400 001646 7401176115 00410 CT K54,13 MOD1 00410 * 001653 3000163443 00420 JU CUNIT MOD1 00420 * 001660 3000155200 00430 J FUNIT MOD1 00430 * 001665 3000167722 00440 ODD JC EVEN+5,1,18 $ SET SI 1 ODD OPTION MOD1 00440 * 001672 3000167725 00450 EVEN JC $+5,21 $ SSI 1 RESET IS EVEN OPT MOD1 00450 * 001677 1000663200 00460 JR SETCN SET CONTINUOUS MOD1 00460 001704 3401213277 00470 CC UFST-1,0,077 WRC MOD1 00470 * 001711 3000174242 00480 JE WRCOD STRAIGHT OPT NO CHANGES MOD1 00480 001716 3401213261 00490 CC UFST-1,0,061 SEQUENTIAL READ ONLY NO COMPARE MOD1 00490 * 001723 3000174242 00500 JE WRCOD MOD1 00500 * 001730 3000000560 00510 JD 05 NO WRC OP SELECTED MOD1 00510 W * 001735 3000136700 00520 J START MOD1 00520 001742 3401213115 00530 WRCOD CC UFST-2,0,015 MOD FS MOD1 00530 * 001747 3000176165 00540 JC $+10,53 3 MOD1 00540 * 001754 3000443642 00550 JE VNFS2 MOD1 00550 * 001761 3000206742 00560 JE FXOD2 MOD1 00560 001766 3401213103 00570 CC UFST-2,3,3 FASTBANDS MOD1 00570 * 001773 3000200565 00580 JC $+10,53 3 MOD1 00580 * 002000 3000257442 00590 JE EVFSB EV FASTBANDS MOD1 00590 * 002005 3000241642 00600 JE ODFSB ODD FASTBANDS MOD1 00600 * 002012 3000000660 00610 JD 06 WRONG FS SELECTION MOD1 00610 N * 002017 3000136725 00620 JC START,2121 MOD1 00620 * 002024 3000000000 00630 FXALL J 0 MOD1 00630 002031 5601216205 00640 BA1 FSWHA+4,4,5 SA1 TMDWA,4 MOD1 00640 002036 5200304005 00650 SA1 SWHDA+4,4,5 MOD1 00650 002043 6000001604 00660 AC 016,4 MOD1 00660 002050 5200430305 00670 SA1 SRHDA+4,4,5 MOD1 00670 002055 4401123200 00680 SC FRSTE,0 0 INITIALY MOD1 00680 A * 002062 3000202400 00690 J FXALL MOD1 00690 002067 4400627215 00700 FXOD2 SC KFS+4,01015 MOD1 00700 002074 4401213115 00710 SC UFST-2,0,015 MOD1 00710 002101 3401213261 00720 CC UFST-1,0,061 MOD1 00720 * 002106 3000645142 00730 JE RONLY MOD1 00730 * 002113 3000214400 00740 J ODFS2 MOD1 00740 002120 5601213101 00750 FBFS1 BA1 UFST-2,1,1 13 OPTION TO BE DONE MOD1 00750 O 002125 5200201501 00760 SA1 FXALL-7,7,1 MOD1 00760 002132 4401213103 00770 SC UFST-2,3,3 DO FSB 1ST MOD1 00770 F * 002137 3000144400 00780 J CONTD MOD1 00780 002144 5601200010 00790 ODFS2 BA1 FDFSM,8 8 MOD1 00790 002151 5201204010 00800 SA1 UPODA,8 8 MOD1 00800 002156 5201210010 00810 SA1 UPERA,8 8 MOD1 00810 002163 5601220505 00820 BA1 JEOL2+4,4,5 MOD1 00820 002170 5200424005 00830 SA1 JE+14,5 5 MOD1 00830 002175 2601171503 00840 PD WRODA-7,7,3 MOD1 00840 002202 2601173503 00850 PD RDODA-7,7,3 MOD1 00850 002207 2601130404 00860 PD STORE,4 4 MOD1 00860 002214 4401130401 00870 SC STORE,1 1 MOD1 00870 * 002221 1000202700 00880 ALLIN JR FXALL MOD1 00880 002226 5601220004 00890 BA1 K168,4 MOD1 00890 002233 5201175004 00900 SA1 ADV,4 MOD1 00900 002240 5601211010 00910 BA1 FVLMA,8 8 00013700 ODLMA MOD1 00910 7 002245 5201212010 00920 SA1 EVLMA,8 8 00003700 EVLMA MOD1 00920 7 * 002252 1000237500 00930 JR RWINT MOD1 00930 002257 4400422640 00940 SC JE+4,04040 FOR RD ODD REINIT MOD1 00940 R 002264 4400426440 00950 SC CFSB-1,0,040 NOOP EVLMA COPARE ON ALLREAD MOD1 00950 O 002271 4400461452 00960 SC SA1,052 2 MOD1 00960 002276 4400462005 00970 SC SA1+4,0505 MOD1 00970 002303 4400462652 00980 SC SA2,052 2 MOD1 00980 002310 4400463205 00990 SC SA2+4,5 5 MOD1 00990 002315 4400432742 01000 SC WRET+4,0,042 MOD1 01000 * 002322 3000232725 01010 JC $+5,21 MOD1 01010 * 002327 1000435700 01020 JR TRLSD MOD1 01020 * 002334 1000517200 01030 JR NOPCC MOD1 01030 002341 5601217405 01040 ALLBA BA1 CTUPA+4,4,5 CT UPERA,57 MOD1 01040 U 002346 5200422105 01050 SA1 JE-1,5 MOD1 01050 002353 5601216705 01060 BA1 FCTDA+4,4,5 CT UPODA,57 MOD1 01060 U 002360 5200275105 01070 SA1 WRIT+14,4,5 MOD1 01070 * 002365 3000261300 01080 J NIT MOD1 01080 * 002372 3000000000 01090 RWINT J 0 MOD1 01090 002377 4400273566 01100 SC WRIT+2,0,066 WRITE'POSITION MOD1 01100 T 002404 4400406565 01110 SC READ+2,0,065 READ'POSITION MOD1 01110 D * 002411 3000237200 01120 J RWINT MOD1 01120 * 002416 3000242325 01130 ODFSB JC $+5,21 MOD1 01130 002423 4400627203 01140 SC KFS+4,3 3 MOD1 01140 002430 3401213261 01150 CC UFST-1,0,061 MOD1 01150 * 002435 3000645142 01160 JE RONLY MOD1 01160 002442 5601202010 01170 BA1 DFSB,8 FS LIMITS MOD1 01170 L 002447 5201204010 01180 SA1 UPODA,8 8 MOD1 01180 002454 4400424040 01190 SC JE+14,04040 MOD1 01190 002461 4401123200 01200 SC FRSTE,0 0 INITIALY MOD1 01200 A 002466 5601123105 01210 BA1 FCFSB+4,4,5 MOD1 01210 002473 5200422105 01220 SA1 JE-1,5 J CTFSB MOD1 01220 T 002500 5601122405 01230 BA1 FFSBR+4,4,5 J RFBHA MOD1 01230 F 002505 5200430305 01240 SA1 SRHDA+4,4,5 MOD1 01240 002512 4400275642 01250 SC WRIT+19,9,042 MOD1 01250 002517 4400273562 01260 SC WRIT+2,0,062 MOD1 01260 002524 4400406561 01270 SC READ+2,0,061 MOD1 01270 002531 4400566600 01280 SC FBSCC+4,4,0 MOD1 01280 002536 4400570026 01290 SC FBSCC+1414,026 MOD1 01290 * 002543 1000534300 01300 JR STHAB MOD1 01300 * 002550 1000522300 01310 JR LSNOP MOD1 01310 002555 5200410105 01320 SA1 CC+4,5 MOD1 01320 002562 5200415105 01330 SA1 CCJC+4,5,5 MOD1 01330 * 002567 3000235300 01340 J ALLBA+1010 MOD1 01340 002574 5601203010 01350 EVFSB BA1 VFSB,8 MOD1 01350 002601 5201205010 01360 SA1 UPEVA,8 8 MOD1 01360 * 002606 3000243000 01370 J ODFSB+1010 MOD1 01370 * 002613 1000340500 01380 NIT JR INIT MOD1 01380 * 002620 1000350100 01390 JNITW JR INITW MOD1 01390 002625 2600013704 01400 PD T23,4 MOD1 01400 002632 5601203404 01410 AGEN BA1 ODLOA,4 4 MOD1 01410 002637 5400001740 01420 LP 017,040 0 CLEAR SSSSS MOD1 01420 A 002644 6400001610 01430 LSODD LS 016,010 0 T HHH HSSSSS TRACK 1 MOD1 01430 H 002651 5200034704 01440 SA1 0347,4 MOD1 01440 002656 5241264704 01450 REP SA1 AREA+16767,4,2 MOD1 01450 002663 7601175012 01460 AT ADV,X2 MOD1 01460 002670 7601120127 01470 AT ONE,23 MOD1 01470 002675 7401120527 01480 CT SEC,23 MOD1 01480 * 002702 3000272142 01490 JE $+15 MOD1 01490 002707 6000001701 01500 AC 017,1 MOD1 01500 * 002714 3000265600 01510 J REP MOD1 01510 002721 2600013704 01520 PD T23,4 MOD1 01520 002726 2600005304 01530 PD X2,4 MOD1 01530 002733 4140660000 01540 WRIT XF 066,0,0,0,6 MOD1 01540 002740 2601175101 01550 PD FOUR,1 RESET ERROR COUNT MOD1 01550 002745 7401204071 01560 CT UPODA,5757 J NPOST MOD1 01560 O * 002752 3000375042 01570 JE ODRID MOD1 01570 002757 7401205071 01580 CT UPEVA,5757 01363600 LAST EVN TRACK A MOD1 01580 * 002764 3000375042 01590 JE ODRID MOD1 01590 002771 7401210071 01600 CT UPERA,5757 MOD1 01600 * 002776 3000375042 01610 JE ODRID MOD1 01610 003003 7401211471 01620 CT ODLMA,5757 MOD1 01620 * 003010 3000307742 01630 JE FSTOD MOD1 01630 003015 7401212071 01640 CT EVLMA,5757 MOD1 01640 * 003022 3000307742 01650 JE FSTOD MOD1 01650 003027 6000001701 01660 AC 017,1 MOD1 01660 003034 5201213704 01670 SWHDA SA1 TMDWA,4 4 J FSBHA FASTBANDS MOD1 01670 F 003041 5400001607 01680 LP 016,07 TTT HHH HSSSSS MOD1 01680 003046 1600001721 01690 BS2 017,1 MOD1 01690 003053 3400001600 01700 CC 016,0 LAST H EQUALS 17 OR 0740 MOD1 01700 T * 003060 3000307742 01710 JE FSTOD MOD1 01710 003065 5601213704 01720 BA1 TMDWA,4 4 MOD1 01720 * 003072 3000265100 01730 J REP-5 MOD1 01730 * 003077 1000311400 01740 FSTOD JR PRWFS MOD1 01740 * 003104 3000402500 01750 NTFSR J RGEN MOD1 01750 * 003111 3000000000 01760 PRWFS J 0 PRINT FS1 OR 2 WRITE TRACK MOD1 01760 N * 003116 1000331100 01770 JR ODCML MOD1 01770 003123 5201171503 01780 SA1 WRODA-7,7,3 MOD1 01780 003130 5601172420 01790 BA2 WRODA MOD1 01790 * 003135 1001067100 01800 JR PRT MOD1 01800 003142 3401176700 01810 CC FRSTR,0 0 MOD1 01810 * 003147 3000310443 01820 JU NTFSR MOD1 01820 003154 4401176701 01830 SC FRSTR,1 1 MOD1 01830 * 003161 3000311100 01840 J PRWFS MOD1 01840 * 003166 1000321500 01850 RETWR JR PRRFS MOD1 01850 003173 6001203320 01860 AC ODLOA-1,1,020 MOD1 01860 003200 5601203404 01870 BA1 ODLOA,4 4 MOD1 01870 * 003205 3000262000 01880 J JNITW MOD1 01880 * 003212 3000000000 01890 PRRFS J 0 PRINT FS1 OR 2 READ TRACK MOD1 01890 N * 003217 1000331100 01900 JR ODCML MOD1 01900 003224 5201173503 01910 SA1 RDODA-7,7,3 MOD1 01910 003231 5601174420 01920 BA2 RDODA MOD1 01920 * 003236 1001067100 01930 JR PRT MOD1 01930 003243 6001130402 01940 AC STORE,2 2 MOD1 01940 003250 7401204071 01950 CT UPODA,5757 MOD1 01950 * 003255 3000326742 01960 FXPR JE FX MOD1 01960 * 003262 3000321200 01970 J PRRFS MOD1 01970 003267 4400424040 01980 FX SC JE+14,04040 MOD1 01980 003274 4400432740 01990 SC WRET+4,0,040 MOD1 01990 * 003301 3000326200 02000 J FXPR+5 MOD1 02000 * 003306 3000000000 02010 ODCML J 0 MOD1 02010 003313 5601130404 02020 BA1 STORE,4 4 MOD1 02020 003320 5200002102 02030 SA1 021,2 0277 IN 20,21 MOD1 02030 7 003325 1600002136 02040 BS3 021,6 02 IN 17 77 IN 20 MOD1 02040 I 003332 6000001703 02050 AC 017,3 MOD1 02050 003337 1600001726 02060 BS2 017,6 02 IN 16 CLEARS 017 MOD1 02060 I 003344 1600002023 02070 BS2 020,3 07 IN 17 70 IN 20 MOD1 02070 I 003351 6000001703 02080 AC 017,3 MOD1 02080 003356 1600001736 02090 BS3 017,6 02 IN 15 07 IN 16 CLEAR 17 MOD1 02090 I 003363 1600002023 02100 BS2 020,3 07 IN 17 MOD1 02100 I 003370 6000001703 02110 AC 017,3 MOD1 02110 * 003375 3000330600 02120 J ODCML MOD1 02120 * 003402 3000000000 02130 INIT J 0 MOD1 02130 003407 5601224210 02140 BA1 IE6,8 MOD1 02140 003414 5200046710 02150 SA1 0467,8 MOD1 02150 003421 5601225210 02160 BA1 IE0,8 MOD1 02160 003426 5200040710 02170 SA1 0407,8 MOD1 02170 003433 5601227200 02180 BA1 IE2,16 MOD1 02180 003440 5200051700 02190 SA1 0517,16 6 MOD1 02190 * 003445 3000345222 02200 JC $+5,18 MOD1 02200 * 003452 3000345725 02210 JC $+5,21 MOD1 02210 003457 2601175101 02220 BGO PD FOUR,1 RESET ERROR COUNT MOD1 02220 E 003464 2600001700 02230 PD 017,16 MOD1 02230 * 003471 3000340200 02240 J INIT MOD1 02240 * 003476 3000000000 02250 INITW J 0 MOD1 02250 003503 2600013704 02260 PD T23,4 MOD1 02260 003510 2600006300 02270 PD X4,16 MOD1 02270 003515 2001240070 02280 FT AREA,56 6 SECTOR COUNT 64 OR 32 MOD1 02280 003522 4400034010 02290 SCNT SC 0340,8 32 SECOT READ MOD1 02290 S 003527 4400001700 02300 PAT SC 017,0 PATTERN GENERATOR MOD1 02300 003534 5221240001 02310 PGEN SA1 AREA,1,1,1 MOD1 02310 003541 6000001701 02320 AC 017,1 MOD1 02320 003546 6000004701 02330 AC X1,1 MOD1 02330 * 003553 3200353477 02340 JL PGEN,63 3 MOD1 02340 * 003560 3200353477 02350 JL PGEN,63 3 MOD1 02350 * 003565 3200353450 02360 JL PGEN,40 0 MOD1 02360 003572 4400355777 02370 SC $-11,63 3 MOD1 02370 003577 4400356477 02380 SC $-11,63 3 MOD1 02380 003604 4400357150 02390 SC $-11,40 0 MOD1 02390 003611 6000004704 02400 AC X1,4 MOD1 02400 003616 7601120127 02410 AT ONE,23 MOD1 02410 003623 7401120527 02420 CT SEC,23 MOD1 02420 * 003630 3000352743 02430 JU PAT MOD1 02430 * 003635 3000347600 02440 J INITW MOD1 02440 003642 6000001740 02450 FSBHA AC 017,040 0 INC H MOD1 02450 003647 5201213704 02460 SA1 TMDWA,4 4 MOD1 02460 003654 5400001607 02470 LP 016,7 MOD1 02470 003661 1600001721 02480 BS2 017,1 MOD1 02480 003666 3400001620 02490 CC 016,020 0 EVN FSB MOD1 02490 * 003673 3000371742 02500 JE PRFSB MOD1 02500 003700 3400001621 02510 CC 016,021 1 ODD FSB MOD1 02510 003705 5601213704 02520 BA1 TMDWA,4 4 FOR UNEQUAL MOD1 02520 * 003712 3000265143 02530 JU REP-5 MOD1 02530 003717 5601152420 02540 PRFSB BA2 WEVFB,1616 MOD1 02540 003724 3401123200 02550 CC FRSTE,0 0 MOD1 02550 * 003731 3000374343 02560 JU $+10 MOD1 02560 003736 5601150420 02570 BA2 WHFSB,1616 MOD1 02570 * 003743 3000402026 02580 JC ENDWB+5,5,22 MOD1 02580 003750 3401213103 02590 ODRID CC UFST-2,3,3 MOD1 02590 * 003755 3000371742 02600 JE PRFSB MOD1 02600 * 003762 3000434200 02610 J RLSTR MOD1 02610 * 003767 3000376760 02620 JD $ MOD1 02620 * 003774 3000376720 02630 JHJ $-5 SHOULD NOT OCCUR MOD1 02630 004001 5601160420 02640 ENDWA BA2 EWA MOD1 02640 * 004006 3000402000 02650 J $+10 MOD1 02650 004013 5601162420 02660 ENDWB BA2 EWB MOD1 02660 * 004020 1001067100 02670 JR PRT MOD1 02670 004025 5601203404 02680 RGEN BA1 ODLOA,4 4 MOD1 02680 004032 5400001740 02690 LP 017,040 0 MOD1 02690 004037 6400001610 02700 LSR LS 016,010 0 MOD1 02700 004044 2001240070 02710 FT AREA,56 6 MOD1 02710 004051 4400034010 02720 RSCNT SC 0340,8 READS 32 SECTORS MOD1 02720 D 004056 5200034704 02730 SA1 0347,4 MOD1 02730 004063 4140650000 02740 READ XF 065,0,0,0,6 MOD1 02740 004070 2601175101 02750 PD FOUR,1 RESET ERROR COUNT MOD1 02750 * 004075 3000410240 02760 CC JC $+5,040 0 JR FBCC,19 SI2 SET FOR NO COMP FBSH MOD1 02760 F 004102 7061264744 02770 COMP CB1 AREA+16767,4,3 COMP LAST 4 DATA CHARACTERS MOD1 02770 * 004107 1001076543 02780 JR CMPER,3535 OF EACH SECTOR TO GEN ADDRESS MOD1 02780 004114 7601175013 02790 NOCOM AT ADV,X3 MOD1 02790 004121 7601120127 02800 AT ONE,23 MOD1 02800 004126 7401120527 02810 CT SEC,23 MOD1 02810 * 004133 3000415742 02820 JE $+20 MOD1 02820 004140 6000001701 02830 AC 017,1 MOD1 02830 * 004145 3000407566 02840 CCJC JC CC,54 IF SI2 SET GO CC EVN H ONLY MOD1 02840 S * 004152 3000410200 02850 J COMP MOD1 02850 004157 2600013704 02860 PD T23,4 MOD1 02860 004164 2600005704 02870 PD X3,4 MOD1 02870 004171 4401072302 02880 SC SP+4,2 MOD1 02880 004176 2600003700 02890 PD 31,16 MOD1 02890 * 004203 1001067167 02900 JR PRT,55 MOD1 02900 * 004210 3000421527 02910 JC $+5,23 MOD1 02910 004215 7401210071 02920 CT UPERA,5757 J CTFSB FOR FSB,RESTORE FOR RDALL MOD1 02920 T * 004222 3000600742 02930 JE JE ENDRA 0 040 FOR RD ODD REINITIALIZE MOD1 02930 004227 7401204071 02940 CT UPODA,5757 MOD1 02940 * 004234 3000453242 02950 JE OLRF2 FIX THIS FOR FS1+FS2 MOD1 02950 004241 7401211471 02960 CT ODLMA,5757 MOD1 02960 * 004246 3000316642 02970 JE RETWR ODD TRACKS MOD1 02970 004253 7401212071 02980 CT EVLMA,5757 MOD1 02980 * 004260 3000316642 02990 JE RETWR EVEN TRACKS MOD1 02990 * 004265 3000427240 03000 CFSB JC $+5,040 0 NOOP OR JR CTFSB MOD1 03000 004272 6000001701 03010 AC 017,1 MOD1 03010 004277 5201214304 03020 SRHDA SA1 TMDRA,4 4 J RFBHA FASTBANDS MOD1 03020 F 004304 5400001607 03030 LP 016,07 TTT HHH HSSSSS MOD1 03030 004311 1600001721 03040 BS2 017,1 MOD1 03040 004316 3400001600 03050 CC 016,0 MOD1 03050 * 004323 3000316642 03060 WRET JE RETWR NOP FOR READ ALL MOD1 03060 004330 5601214304 03070 BA1 TMDRA,4 4 MOD1 03070 * 004335 3000405600 03080 J READ-5 MOD1 03080 * 004342 1000311400 03090 RLSTR JR PRWFS NIT PRINT LAST TRACK WRITTEN RD ALL FS2 MOD1 03090 * 004347 3000402500 03100 J RGEN READ LAST LIMIT TRACK MOD1 03100 D * 004354 3000000000 03110 TRLSD J 0 MOD1 03110 004361 5601125005 03120 BA1 FXLSD+4,4,5 LS 015,1 FOR ODD TRACKS MOD1 03120 004366 5200265005 03130 SA1 LSODD+4,4,5 MOD1 03130 004373 5200404305 03140 SA1 LSR+4,5 5 MOD1 03140 * 004400 3000435400 03150 J TRLSD MOD1 03150 004405 7401202071 03160 CTFSB CT DFSB,57 7 03001300 UPPER LMT FSBANDS DA MOD1 03160 0 * 004412 3000525142 03170 JE DFSBR HAVE READ ODD DA FSBANDS MOD1 03170 004417 7401203071 03180 CT VFSB,57 7 UPPER LMT DA MOD1 03180 * 004424 3000545342 03190 JE VRDBA READ ALL EVN SET ALL READ MOD1 03190 * 004431 3000427200 03200 J SRHDA-5 5 AC 017,1 FOR H INCREMENT MOD1 03200 0 004436 5601201010 03210 VNFS2 BA1 FVFSM,8 8 MOD1 03210 * 004443 3000215100 03220 J ODFS2+5 5 MOD1 03220 004450 6000001740 03230 RFBHA AC 017,040 0 MOD1 03230 004455 5201214304 03240 SA1 TMDRA,4 4 MOD1 03240 004462 5400001607 03250 LP 016,7 MOD1 03250 004467 1600001721 03260 BS2 017,1 MOD1 03260 004474 3400001620 03270 CC 016,020 0 EVEN H FSB MOD1 03270 N * 004501 3000525642 03280 JE DFSBR+5 5 MOD1 03280 004506 3400001621 03290 CC 016,021 1 MOD1 03290 004513 5601214304 03300 BA1 TMDRA,4 4 MOD1 03300 * 004520 3000405643 03310 JU READ-5 MOD1 03310 * 004525 3000525600 03320 J DFSBR+5 5 MOD1 03320 * 004532 1000321500 03330 OLRF2 JR PRRFS MOD1 03330 004537 5601207010 03340 BA1 ALLF2,8 8 MOD1 03340 004544 5201204010 03350 SA1 UPODA,8 8 MOD1 03350 004551 5201210010 03360 SA1 UPERA,8 8 MOD1 03360 004556 5601216205 03370 TSNOC BA1 FSWHA+4,4,5 CC 016,0 MOD1 03370 004563 6000001604 03380 AC 016,4 MOD1 03380 004570 5200430305 03390 SA1 SRHDA+4,4,5 MOD1 03390 004575 3401213261 03400 CC UFST-1,0,061 MOD1 03400 * 004602 3000464042 03410 JE SA2+10 MOD1 03410 004607 5601221205 03420 BA1 JC+4,5 MOD1 03420 004614 5200415105 03430 SA1 SA1 CCJC+4,5,5 NOP FOR LAST READ ALL DRUM MOD1 03430 004621 5601215005 03440 BA1 FCVTR+4,4,5 JR NCEVN TRACKS FS1'2 MOD1 03440 N 004626 5200410105 03450 SA2 SA1 CC+4,5 NOP FOR LAST READ ALL DRUM MOD1 03450 R * 004633 1000522300 03460 JR LSNOP MOD1 03460 004640 4400422642 03470 SC JE+4,04242 FOR ENDRA MOD1 03470 O 004645 4400424040 03480 SC JE+14,04040 FOR NOCOMP OLRF12 AGAIN MOD1 03480 O 004652 4401211140 03490 SC ODLMA-3,3,040 MOD1 03490 004657 4401211540 03500 SC EVLMA-3,3,040 FOR NO GO RETWR MOD1 03500 O 004664 2600014703 03510 PD 0147,3 MOD1 03510 004671 4400432740 03520 SC WRET+4,0,040 MOD1 03520 * 004676 1000237500 03530 JR RWINT MOD1 03530 * 004703 3000402500 03540 JC RGEN MOD1 03540 * 004710 3000000000 03550 NCEVN J 0 MOD1 03550 004715 6400014420 03560 LS 0144,02020 MOD1 03560 004722 5200015304 03570 SA1 0153,4 MOD1 03570 004727 4400015300 03580 SC 0153,0 MOD1 03580 004734 5400015270 03590 LP 0152,07070 MOD1 03590 004741 7400015331 03600 CT 0153,25 5 MOD1 03600 * 004746 3000502342 03610 JE INC25 EVN TRACKS MOD1 03610 * 004753 3000471040 03620 NOP JC NCEVN,04040 MOD1 03620 004760 6000014620 03630 AC 0146,02020 MOD1 03630 004765 4400475726 03640 SC $-6,026 6 MOD1 03640 004772 7401212431 03650 CT CTKNS,2525 MOD1 03650 * 004777 3000501142 03660 JE LIMIT TRACK 300 EVN MOD1 03660 C * 005004 3000471000 03670 JC NCEVN MOD1 03670 005011 2600014703 03680 LIMIT PD 0147,3 CLEAR T27 PARTLY MOD1 03680 * 005016 3000471000 03690 JC NCEVN MOD1 03690 005023 4400475740 03700 INC25 SC NOP+4,04040 MOD1 03700 * 005030 3000411400 03710 J NOCOM MOD1 03710 005035 5601201010 03720 EVFS2 BA1 FVFSM,8 8 MOD1 03720 005042 5201204010 03730 SA1 UPODA,8 8 MOD1 03730 005047 5201205010 03740 SA1 UPEVA,8 8 MOD1 03740 005054 4400461430 03750 SC SA1,030 0 MOD1 03750 005061 4400462040 03760 SC SA1+4,04040 MOD1 03760 005066 4400462630 03770 SC SA2,030 0 MOD1 03770 005073 4400463240 03780 SC SA2+4,04040 MOD1 03780 005100 4400424042 03790 SC JE+14,04042 JE OLRF2 MOD1 03790 * 005105 1000522300 03800 JR LSNOP MOD1 03800 005112 5200415105 03810 SA1 CCJC+4,5,5 MOD1 03810 005117 5200410105 03820 SA1 CC+4,5 MOD1 03820 005124 2601130404 03830 PD STORE,4 4 MOD1 03830 005131 2601171503 03840 PD WRODA-7,7,3 MOD1 03840 005136 2601173503 03850 PD RDODA-7,7,3 MOD1 03850 005143 5601211004 03860 BA1 FVLMA,4 4 00003700 MOD1 03860 0 005150 5201211404 03870 SA1 ODLMA,4 4 MOD1 03870 005155 4400432742 03880 SC WRET+4,0,042 MOD1 03880 * 005162 3000262000 03890 JC JNITW MOD1 03890 * 005167 3000000000 03900 NOPCC J 0 MOD1 03900 005174 5601121705 03910 BA1 NOPLS+4,4,5 MOD1 03910 005201 5200427105 03920 SA1 CFSB+4,5,5 NOOP MOD1 03920 005206 5200410105 03930 SA1 CC+4,5 MOD1 03930 * 005213 3000516700 03940 J NOPCC MOD1 03940 * 005220 3000000000 03950 LSNOP J 0 NOOP FOR EVEN TRACKS MOD1 03950 005225 5601121705 03960 BA1 NOPLS+4,4,5 MOD1 03960 005232 5200265005 03970 SA1 LSODD+4,4,5 MOD1 03970 005237 5200404305 03980 SA1 LSR+4,5 5 MOD1 03980 * 005244 3000522000 03990 J LSNOP MOD1 03990 005251 4400422642 04000 DFSBR SC JE+4,04242 INIT ENDRA ALL RD NO COMP MOD1 04000 005256 5601123705 04010 BA1 FXCC+4,5,5 JR FBCC,19 NO COMP EVN HEADS MOD1 04010 B 005263 5200410105 04020 SA1 CC+4,5 MOD1 04020 005270 5601154420 04030 BA2 RHFSB,1616 READ ODD FSB MOD1 04030 * 005275 1001067100 04040 PRALL JR PRT MOD1 04040 * 005302 1000536700 04050 JR RDALL MOD1 04050 005307 4401211177 04060 SC ODLMA-3,3,63 MOD1 04060 005314 4401211577 04070 SC EVLMA-3,3,63 MOD1 04070 005321 5601221205 04080 BA1 JC+4,5 MOD1 04080 005326 5200415105 04090 SA1 CCJC+4,5,5 FOR FSB RDALL NOCOMP MOD1 04090 * 005333 3000402526 04100 JC RGEN,22 2 RESET SI2 SAVE NLY FOR EVN RIMOD1 04100 * 005340 3000000000 04110 STHAB J 0 MOD1 04110 005345 5601215505 04120 BA1 ADVHA+4,4,5 MOD1 04120 005352 5200304005 04130 SA1 SWHDA+4,4,5 MOD1 04130 * 005357 3000534000 04140 J STHAB MOD1 04140 * 005364 3000000000 04150 RDALL J 0 MOD1 04150 005371 5601206010 04160 BA1 ALLFB,8 8 MOD1 04160 005376 5201204010 04170 SA1 UPODA,8 8 MOD1 04170 005403 5201210010 04180 SA1 UPERA,8 8 MOD1 04180 005410 5601216205 04190 BALL BA1 FSWHA+4,4,5 MOD1 04190 005415 6000001604 04200 AC 016,4 MOD1 04200 005422 5200430305 04210 SA1 SRHDA+4,4,5 MOD1 04210 005427 5601217405 04220 BA1 CTUPA+4,4,5 CT UPERA,57 MOD1 04220 U 005434 5200422105 04230 SA1 JE-1,5 MOD1 04230 * 005441 1000522300 04240 JR LSNOP NOOP LSODD W'R MOD1 04240 * 005446 3000536400 04250 J RDALL MOD1 04250 005453 5601156420 04260 VRDBA BA2 REVFB,1616 SET ALL READ COMPARE MOD1 04260 A * 005460 1001067100 04270 JR PRT MOD1 04270 005465 4400422642 04280 SC JE+4,04242 MOD1 04280 * 005472 1000536700 04290 JR RDALL MOD1 04290 * 005477 3000402500 04300 J RGEN MOD1 04300 005504 3401213103 04310 SETEV CC UFST-2,3,3 MOD1 04310 * 005511 3000553542 04320 JE VNFBS MOD1 04320 005516 3401213115 04330 CC UFST-2,0,015 M MOD1 04330 * 005523 3000503542 04340 JE EVFS2 MOD1 04340 * 005530 3000553020 04350 JHJ $ MOD1 04350 005535 5601203010 04360 VNFBS BA1 VFSB,8 SET EVEN FASTBANDS MOD1 04360 005542 5201204010 04370 SA1 UPODA,8 8 MOD1 04370 005547 5201205010 04380 SA1 UPEVA,8 8 MOD1 04380 005554 5601122405 04390 BA1 FFSBR+4,4,5 INIT ODD FSBANDS READ DA MOD1 04390 005561 5200430305 04400 SA1 SRHDA+4,4,5 MOD1 04400 005566 4400275640 04410 SC WRIT+19,9,040 MOD1 04410 * 005573 1000534300 04420 JR STHAB MOD1 04420 * 005600 1000522300 04430 JR LSNOP MOD1 04430 005605 5200415105 04440 SA1 CCJC+4,5,5 NOOP AS RDALL CCJC IS J NOCOM MOD1 04440 005612 5200410105 04450 SA1 CC+4,5 WANT TO COMPARE MOD1 04450 O 005617 5601123105 04460 BA1 FCFSB+4,4,5 MOD1 04460 005624 5200422105 04470 SA1 JE-1,5 J CTFSB WAS SKIP FOR RDALL MOD1 04470 T * 005631 3000262000 04480 J JNITW MOD1 04480 * 005636 3000000000 04490 FBCC J 0 MOD1 04490 005643 5201175504 04500 SA1 MONE,4 MOD1 04500 005650 5400001607 04510 LP 016,7 MOD1 04510 005655 1600001721 04520 BS2 017,1 HHHH IN 16 MOD1 04520 H 005662 3400001600 04530 FBSCC CC 016,0 MOD1 04530 * 005667 3000577042 04540 JE PNOCO MOD1 04540 * 005674 3000572500 04550 JU JC ACFBS MOD1 04550 005701 3400566616 04560 CC FBSCC+4,4,016 MOD1 04560 * 005706 3000575642 04570 JE ZHISN WAS NOT INC MOD1 04570 005713 3401121100 04580 CC HWSIN,0 0 MOD1 04580 * 005720 3000574443 04590 JU $+20 MOD1 04590 005725 4400570040 04600 ACFBS SC JU+4,04040 NOP JU MOD1 04600 P 005732 6000566602 04610 AC FBSCC+4,4,2 ERE ZTOCC MOD1 04610 005737 4401121107 04620 SC HWSIN,7 7 MOD1 04620 005744 5601175504 04630 BA1 MONE,4 MOD1 04630 * 005751 3000563626 04640 JC FBCC,22 2 RESET SI2 WHEN H IS ODD MOD1 04640 E 005756 4401121100 04650 ZHISN SC HWSIN,0 0 MOD1 04650 * 005763 3000411400 04660 J NOCOM MOD1 04660 005770 4400570043 04670 PNOCO SC JU+4,04343 MOD1 04670 005775 5601175504 04680 BA1 MONE,4 MOD1 04680 * 006002 3000411400 04690 J NOCOM MOD1 04690 006007 3401213103 04700 ENDRA CC UFST-2,3,3 FS BANDS MOD1 04700 * 006014 3000613442 04710 JE EFSBA MOD1 04710 006021 3401213115 04720 CC UFST-2,0,015 M MOD1 04720 * 006026 3000604042 04730 JE EFS2A MOD1 04730 * 006033 3000603320 04740 JHJ $ ERROR MOD1 04740 O 006040 5601136420 04750 EFS2A BA2 MESSA,1616 MOD1 04750 006045 3401123200 04760 CC FRSTE,0 0 MOD1 04760 * 006052 3000632443 04770 BLAST JU LASTA MOD1 04770 006057 4400020704 04780 SC207 SC 0207,4 MOD1 04780 006064 4000640000 04790 XF 064,0,0,0,0 FEED PAPER MOD1 04790 D * 006071 1001067100 04800 JR PRT PRINT MESS A OR FSBANDS MOD1 04800 N 006076 4400020702 04810 SC 0207,2 MOD1 04810 006103 4401072304 04820 SC SP+4,4 MOD1 04820 006110 5601140420 04830 BA2 MESS2,1616 THEN J GO ON MOD1 04830 N 006115 3401213103 04840 CC UFST-2,3,3 MOD1 04840 * 006122 3000616042 04850 JE PKFB2 MOD1 04850 * 006127 3000616500 04860 J GOON MOD1 04860 006134 5601142420 04870 EFSBA BA2 MEFBA,1616 MOD1 04870 006141 3401123200 04880 CC FRSTE,0 0 ONLY 1ST RDALL EQUAL TO ZERO MOD1 04880 1 * 006146 3000632443 04890 JU LASTA DA MOD1 04890 * 006153 3000605700 04900 J SC207 MOD1 04900 006160 5601144420 04910 PKFB2 BA2 MEFB2,1616 MOD1 04910 * 006165 1001067100 04920 GOON JR PRT FIRST ALL LAST READ DA MOD1 04920 006172 4401072302 04930 SC SP+4,2 MOD1 04930 006177 4401123201 04940 SC FRSTE,1 1 FOR 2ND ENDRA WITH COMPARE MOD1 04940 N * 006204 3000550400 04950 J SETEV H HAVE RD ALL DRUM A OR B NO COMP EVN H MOD1 04950 006211 5601166420 04960 ENDRB BA2 ERB END READ PASS MOD1 04960 * 006216 1001067100 04970 JR PRT MOD1 04970 006223 4401123201 04980 SC FRSTE,1 1 MOD1 04980 006230 6000353301 04990 AC PAT+4,1 1 INCRIMENT DATA PATTERN IF MOD1 04990 006235 3400353377 05000 CC PAT+4,6363 RUNNING IN CONT MODE MOD1 05000 * 006242 3000625443 05010 JU $+10 MOD1 05010 006247 4400353300 05020 SC PAT+4,0 0 MOD1 05020 006254 5601210010 05030 BA1 UPERA,8 8 MOD1 05030 * 006261 3000166564 05040 JC ODD,52 MOD1 05040 006266 4401213115 05050 KFS SC UFST-2,0,015 MODULAR 03 EQUALS FSB MOD1 05050 U 006273 4400353300 05060 SC PAT+4,0 0 MOD1 05060 006300 3400201506 05070 CC FXALL-7,7,6 MOD1 05070 * 006305 3000636743 05080 JU FXFSK HAV DONE FSBANDS 1ST MOD1 05080 * 006312 3000150260 05090 JD ODEVN MOD1 05090 * 006317 3000136700 05100 JC START R REPEAT TST OR REINIT NEW OPION MOD1 05100 T 006324 5601164420 05110 LASTA BA2 ERA FRST E IS 0 MOD1 05110 * 006331 1000663200 05120 JR SETCN MOD1 05120 006336 3401213103 05130 CC UFST-2,3,3 MOD1 05130 * 006343 3000621643 05140 JU ENDRB+5 5 MOD1 05140 006350 5601146420 05150 BA2 EFBRA END RD FSB A MOD1 05150 * 006355 3000621600 05160 J ENDRB+5 5 MOD1 05160 * 006362 3000621100 05170 LASTB J ENDRB MOD1 05170 006367 3400173100 05180 FXFSK CC WRCOD-9,9,0 DONE FSB 1ST DO M NOW MOD1 05180 E * 006374 3000643242 05190 JE XFSK MOD1 05190 006401 4400173100 05200 SC WRCOD-9,9,0 WAS 15 REINIT OPTION 13 MOD1 05200 006406 4401213113 05210 SC UFST-2,0,013 REINIT 13 OPTION MOD1 05210 N 006413 5600064102 05220 BA1 0641,2 MOD1 05220 006420 5201213002 05230 SA1 UFST-3,2,2 MOD1 05230 * 006425 3000142000 05240 J START+2525 MOD1 05240 006432 4400173115 05250 XFSK SC WRCOD-9,9,015 MOD1 05250 006437 4401213115 05260 SC UFST-2,0,015 MOD1 05260 * 006444 3000150200 05270 J ODEVN GO DO M OPTION MOD1 05270 D * 006451 1000517200 05280 RONLY JR NOPCC MOD1 05280 006456 4401123201 05290 SC FRSTE,1 1 MOD1 05290 006463 5601176605 05300 BA1 FRDLY+4,4,5 J NOCOM ALL HEADS MOD1 05300 O 006470 5200410105 05310 SA1 CC+4,5 MOD1 05310 006475 5200415105 05320 SA1 CCJC+4,5,5 IS JC CC,54 FOR NO COMP EVN HFSB MOD1 05320 J * 006502 1000522300 05330 JR LSNOP MOD1 05330 * 006507 1000340500 05340 JR INIT MOD1 05340 006514 3401213103 05350 CC UFST-2,3,3 MOD1 05350 * 006521 3000654542 05360 JE ORFSB MOD1 05360 006526 3401213115 05370 CC UFST-2,0,015 M MOD1 05370 * 006533 3000453742 05380 JE OLRF2+5 5 MOD1 05380 * 006540 3000654020 05390 JHJ $ MOD1 05390 * 006545 1000536700 05400 ORFSB JR RDALL FSB MOD1 05400 006552 4400406561 05410 SC READ+2,0,061 MOD1 05410 * 006557 3000402500 05420 JC RGEN MOD1 05420 006564 5601212701 05430 UNITK BA1 UFST-4,1,1 MOD1 05430 006571 7001213041 05440 CB1 UFST-3,1,1 MOD1 05440 * 006576 3000661043 05450 JU $+10 MOD1 05450 * 006603 3000136700 05460 J START REPEAT TST MOD1 05460 006610 6000001704 05470 AC 017,4 MOD1 05470 006615 5201212701 05480 SA1 UFST-4,1,1 MOD1 05480 * 006622 3000154000 05490 J UNITS MOD1 05490 * 006627 3000000000 05500 SETCN J 0 MOD1 05500 * 006634 3000665363 05510 JC S2S3,51 1 SW2 SET MODIFY CONT OPS MOD1 05510 006641 4400631660 05520 SC LASTA-6,6,060 MOD1 05520 * 006646 3000662700 05530 J SETCN MOD1 05530 006653 4400631600 05540 S2S3 SC LASTA-6,6,0 MOD1 05540 * 006660 3000662700 05550 J SETCN MOD1 05550 * 006665 3000666500 05560 ED579 J $ MOD1 05560 006672 5600035701 05570 T5 BA1 0357,1 S T59 OR 57 MOD1 05570 006677 5400001737 05580 LP 017,037 7 H6 OUT 37S MAX MOD1 05580 O 006704 5200002001 05590 SA1 020,1 037 IN 020 MOD1 05590 006711 2600001704 05600 PD 017,4 MOD1 05600 006716 1600002023 05610 BS2 020,3 03 IN 017 070 IN 020 MOD1 05610 I 006723 6000001703 05620 AC 017,3 ALPHA 3 IN 017 MOD1 05620 H 006730 5201127701 05630 SA1 S-1,1 MOD1 05630 006735 4400001700 05640 SC 017,0 MOD1 05640 006742 1600002023 05650 BS2 020,3 07 IN 017 NOW MOD1 05650 I 006747 6000001703 05660 AC 017,3 ALPHA 7 IN 017 NOW MOD1 05660 H 006754 5201130001 05670 SA1 S,1 MOD1 05670 006761 5600035702 05680 T7 BA1 0357,2 THS MOD1 05680 006766 5400001607 05690 LP 016,07 T BITS OUT SAVE H BITS MOD1 05690 I 006773 5200002102 05700 SA1 021,2 MOD1 05700 007000 4400001700 05710 SC 017,0 MOD1 05710 007005 1600002134 05720 BS3 021,4 SHIFT H1 INTO 017 FOR POS 017 HEAD MOD1 05720 H 007012 6000001703 05730 AC 017,3 MOD1 05730 007017 5201127301 05740 SA1 H-1,1 SHOULD BE 1 OR 0 MOD1 05740 U 007024 4400001700 05750 SC 017,0 MOD1 05750 007031 1600002023 05760 BS2 020,3 07 IN 017 MOD1 05760 I 007036 6000001703 05770 AC 017,3 MOD1 05770 007043 5201127401 05780 SA1 H,1 MOD1 05780 007050 5600035602 05790 T57 BA1 0356,2 GET TTTTTTTHHH 16+17 MOD1 05790 T 007055 5400001617 05800 LP 016,017 7 SAVE TTTT MOD1 05800 E 007062 5200002102 05810 SA1 021,2 MOD1 05810 007067 2600001702 05820 PD 017,2 MOD1 05820 007074 1600002133 05830 BS3 021,3 01 IN 017 TTTTTT IN 020 MOD1 05830 I 007101 6000001703 05840 AC 017,3 MOD1 05840 007106 5201126601 05850 SA1 T-2,1 MOD1 05850 007113 2600001701 05860 PD 017,1 MOD1 05860 007120 1600002023 05870 BS2 020,3 TTT000 IN 020 000TTT IN 017 MOD1 05870 0 007125 6000001703 05880 AC 017,3 MOD1 05880 007132 5201126701 05890 SA1 T-1,1 MOD1 05890 007137 2600001701 05900 PD 017,1 MOD1 05900 007144 1600002023 05910 BS2 020,3 MOD1 05910 007151 6000001703 05920 AC 017,3 MOD1 05920 007156 5201127001 05930 SA1 T,1 MOD1 05930 007163 5600035502 05940 T59 BA1 0355,2 UUUUFMMMTTTT IN 16+17 MOD1 05940 M 007170 5400001601 05950 LP 016,1 SAVE M3 MOD1 05950 E 007175 5200002002 05960 SA1 020,2 0M IN 017 MMTTTT IN 020 MOD1 05960 I 007202 1600002022 05970 BS2 020,2 000MMM IN 017 MOD1 05970 M 007207 6000001703 05980 AC 017,3 MOD1 05980 007214 5201126301 05990 SA1 M,1 MOD1 05990 007221 5600035401 06000 T9 BA1 0354,1 MOD1 06000 007226 5200002101 06010 SA1 021,1 MOD1 06010 007233 5400001774 06020 LP 017,074 4 SAVE UUUU00 MOD1 06020 E 007240 5200002001 06030 SA1 020,1 MOD1 06030 007245 4400001700 06040 SC 017,0 MOD1 06040 007252 1600002024 06050 BS2 020,4 MOD1 06050 007257 6000001703 06060 AC 017,3 MOD1 06060 007264 5201125301 06070 SA1 U,1 MOD1 06070 007271 5400002102 06080 LP 021,2 SAVE FSB BIT MOD1 06080 S 007276 1600002137 06090 BS3 021,7 MOD1 06090 007303 1600002024 06100 BS2 020,4 MOD1 06100 007310 6000001703 06110 AC 017,3 MOD1 06110 007315 5201126001 06120 SA1 FSB,1 MOD1 06120 007322 5601127000 06130 BA1 T,16 MOD1 06130 007327 5201236500 06140 SA1 PRTAR+5353,16 MOD1 06140 007334 5601130010 06150 BA1 S,8 MOD1 06150 007341 5201237510 06160 SA1 PRTAR+6161,8 MOD1 06160 * 007346 3000666500 06170 J ED579 MOD1 06170 007353 4400667547 06180 STTAG SC T5+3,04747 MOD1 06180 007360 4400676447 06190 SC T7+3,04747 MOD1 06190 007365 4400705346 06200 SC T57+3,04046 MOD1 06200 007372 4400716645 06210 SC T59+3,04045 MOD1 06210 007377 4400722444 06220 SC T9+3,04444 MOD1 06220 007404 4600034737 06230 BT 0347,31 1 MOD1 06230 007411 5200004321 06240 SA2 043,1 MOD1 06240 * 007416 3001077423 06250 JC SET,19 MOD1 06250 * 007423 3000040060 06260 IPT0 JD 0400 CNGE TO 3000040000 IF NO PRINTER MOD1 06260 007430 4000407777 06270 XF 040,0777777,0,0 MOD1 06270 007435 5601121023 06280 BA2 FIVE,3 MOD1 06280 007442 7200040363 06290 SB2 0403,3 MOD1 06290 * 007447 3000040000 06300 J 0400 MOD1 06300 007454 5601223220 06310 IPT6 BA2 ER6,16 MOD1 06310 007461 4140000001 06320 XF 0,01,0,6,6 MOD1 06320 * 007466 1001036653 06330 JR D1,43 MOD1 06330 007473 4140000002 06340 XF 0,02,0,6,6 MOD1 06340 * 007500 1001041253 06350 JR D2,43 MOD1 06350 007505 4140000004 06360 XF 0,04,0,6,6 MOD1 06360 * 007512 1001043653 06370 JR D3,43 MOD1 06370 007517 4140000010 06380 XF 0,010,0,0,6 MOD1 06380 * 007524 1001046253 06390 JR D4,43 MOD1 06390 007531 4140000020 06400 XF 0,020,0,0,6 MOD1 06400 * 007536 1001050153 06410 JR D5,43 MOD1 06410 007543 4140000040 06420 XF 0,040,0,0,6 MOD1 06420 * 007550 1001052053 06430 JR D6,43 MOD1 06430 007555 4140000100 06440 XF 0,0100,0,0,6 MOD1 06440 * 007562 1001053753 06450 JR D7,43 MOD1 06450 007567 4140000200 06460 XF 0,0200,0,0,6 MOD1 06460 * 007574 1001055653 06470 JR D8,43 MOD1 06470 007601 4140000400 06480 XF 0,0400,0,0,6 MOD1 06480 * 007606 1001057553 06490 JR D9,43 MOD1 06490 007613 4140001000 06500 XF 0,01000,0,0,6 MOD1 06500 * 007620 1001061453 06510 JR D10,43 MOD1 06510 007625 4140002000 06520 XF 0,02000,0,0,6 MOD1 06520 * 007632 1001063353 06530 JR D11,43 MOD1 06530 007637 4140004000 06540 XF 0,04000,0,0,6 MOD1 06540 * 007644 1001065253 06550 JR D12,43 MOD1 06550 007651 6000006304 06560 AC X4,4 MOD1 06560 007656 4140407777 06570 XF 040,0777777,0,6 MOD1 06570 007663 4600035737 06580 BT 0357,31 1 MOD1 06580 007670 1401121204 06590 LC DMMY,4 MOD1 06590 * 007675 3000772642 06600 JE ARROW MOD1 06600 007702 1401121202 06610 LC DMMY,2 MOD1 06610 * 007707 3000772642 06620 JE ARROW MOD1 06620 007714 3401121201 06630 CC DMMY,1 MOD1 06630 * 007721 3000735342 06640 JE STTAG MOD1 06640 007726 5200004321 06650 ARROW SA2 043,1 IF MISSING SECTOR ERROR MOD1 06650 007733 4400667557 06660 SC T5+3,05757 MOD1 06660 007740 4400676457 06670 SC T7+3,05757 MOD1 06670 007745 4400705356 06680 SC T57+3,05056 MOD1 06680 007752 4400716655 06690 SC T59+3,05055 MOD1 06690 007757 4400722454 06700 SC T9+3,05454 MOD1 06700 007764 4401121200 06710 SC DMMY,0 MOD1 06710 * 007771 3001077423 06720 JC SET,19 MOD1 06720 * 007776 3001000326 06730 RET JC $+5,22 MOD1 06730 010003 5200061700 06740 SA1 0617,16 6 MOD1 06740 010010 5200063720 06750 SA2 0637,16 6 MOD1 06750 * 010015 1000667000 06760 JR ED579 MOD1 06760 010022 5600061700 06770 BA1 0617,16 6 MOD1 06770 010027 5600063720 06780 BA2 0637,16 6 MOD1 06780 010034 5600004321 06790 BA2 043,1 MOD1 06790 * 010041 1001067100 06800 JR PRT MOD1 06800 010046 2600006304 06810 PD X4,4 MOD1 06810 010053 3400003504 06820 CC AC+13,4 4 MOD1 06820 * 010060 3001007243 06830 JU CY MOD1 06830 * 010065 3001006560 06840 NR JD NR MOD1 06840 010072 5601121023 06850 CY BA2 FIVE,3 MOD1 06850 010077 7200046363 06860 SB2 0463,3 MOD1 06860 010104 3401175103 06870 CC FOUR,3 CHECK FOR 4 CONSECUTIVE ERRS MOD1 06870 * 010111 3001030643 06880 JU ADD MOD1 06880 * 010116 3000000460 06890 JD 4 MOD1 06890 010123 2601175101 06900 PD FOUR,1 RESET ERROR COUNT MOD1 06900 010130 5600046323 06910 RECVR BA2 0463,3 SKIP ERROR TRACK MOD1 06910 010135 2000406326 06920 FT READ,22 2 MOD1 06920 010142 7000013363 06930 CB2 0133,3 MOD1 06930 * 010147 3001027442 06940 JE TAG MOD1 06940 010154 2000273326 06950 FT WRIT,22 2 MOD1 06950 010161 7000013363 06960 CB2 0133,3 MOD1 06960 * 010166 3000046043 06970 JU 0460 MOD1 06970 010173 5600034722 06980 BA2 0347,2 TTTHHHHSSSSS MOD1 06980 H 010200 5400003607 06990 LP 036,7 MOD1 06990 010205 1600003721 07000 BS2 037,1 MOD1 07000 010212 3401213103 07010 CC UFST-2,3,3 MOD1 07010 * 010217 3001032042 07020 JE FSBHD MOD1 07020 010224 3400003674 07030 CC 036,074 4 H16 MOD1 07030 * 010231 3001025542 07040 JE SKIPT MOD1 07040 010236 5600034704 07050 BA1 0347,4 MOD1 07050 010243 6000001740 07060 AC 017,040 0 MOD1 07060 * 010250 3000265131 07070 JC REP-5,2525 MOD1 07070 010255 4400001700 07080 SKIPT SC 017,0 MOD1 07080 010262 6000001620 07090 AC 016,020 0 MOD1 07090 * 010267 3000265131 07100 JC REP-5,2525 MOD1 07100 010274 6000001740 07110 TAG AC 017,040 0 SKIP EROR TRACK MOD1 07110 I * 010301 3000405631 07120 JC READ-5,2,25 MOD1 07120 010306 6001175101 07130 ADD AC FOUR,1 INCRIMENT ERROR COUNT MOD1 07130 * 010313 3000046000 07140 J 0460 MOD1 07140 010320 3400003674 07150 FSBHD CC 036,074 4 H17 MOD1 07150 * 010325 3001035642 07160 JE SKIPH MOD1 07160 010332 3400003670 07170 CC 036,070 0 H16 MOD1 07170 * 010337 3001035642 07180 JE SKIPH MOD1 07180 010344 6000001741 07190 AC 017,041 1 INC H BY 2 MOD1 07190 * 010351 3000265131 07200 JC REP-5,2525 MOD1 07200 * 010356 3000371731 07210 SKIPH JC PRFSB,2525 HAVE DONE ODD OR EVEN MOD1 07210 E 000020 07220 AC EQU 020 MOD1 07220 * 010363 3000000000 07230 D1 J 0 MOD1 07230 010370 4400002404 07240 SC AC+4,4 MOD1 07240 010375 6401121204 07250 LS DMMY,4 MOD1 07250 * 010402 3001036300 07260 J D1 MOD1 07260 * 010407 3000000000 07270 D2 J 0 MOD1 07270 010414 4400002504 07280 SC AC+5,4 MOD1 07280 010421 6401121202 07290 LS DMMY,2 MOD1 07290 * 010426 3001040700 07300 J D2 MOD1 07300 * 010433 3000000000 07310 D3 J 0 MOD1 07310 010440 4400002604 07320 SC AC+6,4 MOD1 07320 010445 6401121201 07330 LS DMMY,1 MOD1 07330 * 010452 3001043300 07340 J D3 MOD1 07340 * 010457 3000000000 07350 D4 J 0 MOD1 07350 010464 4400002704 07360 SC AC+7,4 MOD1 07360 * 010471 3001045700 07370 J D4 MOD1 07370 * 010476 3000000000 07380 D5 J 0 MOD1 07380 010503 4400003004 07390 SC AC+8,4 MOD1 07390 * 010510 3001047600 07400 J D5 MOD1 07400 * 010515 3000000000 07410 D6 J 0 MOD1 07410 010522 4400003104 07420 SC AC+9,4 MOD1 07420 * 010527 3001051500 07430 J D6 MOD1 07430 * 010534 3000000000 07440 D7 J 0 MOD1 07440 010541 4400003204 07450 SC AC+10,4 4 MOD1 07450 * 010546 3001053400 07460 J D7 MOD1 07460 * 010553 3000000000 07470 D8 J 0 MOD1 07470 010560 4400003304 07480 SC AC+11,4 4 MOD1 07480 * 010565 3001055300 07490 J D8 MOD1 07490 * 010572 3000000000 07500 D9 J 0 MOD1 07500 010577 4400003404 07510 SC AC+12,4 4 MOD1 07510 * 010604 3001057200 07520 J D9 MOD1 07520 * 010611 3000000000 07530 D10 J 0 MOD1 07530 010616 4400003504 07540 SC AC+13,4 4 MOD1 07540 * 010623 3001061100 07550 J D10 MOD1 07550 * 010630 3000000000 07560 D11 J 0 MOD1 07560 010635 4400003604 07570 SC AC+14,4 4 MOD1 07570 * 010642 3001063000 07580 J D11 MOD1 07580 * 010647 3000000000 07590 D12 J 0 MOD1 07590 010654 4400003704 07600 SC AC+15,4 4 MOD1 07600 * 010661 3001064700 07610 J D12 MOD1 07610 * 010666 3000000000 07620 PRT J 0 MOD1 07620 010673 5201232520 07630 SA2 PRTAR+2121,16 MOD1 07630 010700 2001230040 07640 FT PRTAR,3232 MOD1 07640 010705 4400020701 07650 SC 0207,1 MOD1 07650 010712 4000620400 07660 XF 062,0040400,0,0 MOD1 07660 010717 4400020702 07670 SP SC 0207,2 MOD1 07670 010724 4000640000 07680 XF 064,0,0,0,0 MOD1 07680 010731 4401230000 07690 SC PRTAR,0 0 MOD1 07690 010736 2001230120 07700 FT PRTAR+1,1,16 MOD1 07700 010743 2000007722 07710 FT 63,18 MOD1 07710 010750 2401230001 07720 TFR PRTAR MOD1 07720 * 010755 3001066600 07730 J PRT MOD1 07730 * 010762 3000000000 07740 CMPER J 0 MOD1 07740 010767 4600001737 07750 BT 017,31 MOD1 07750 010774 2600017301 07760 SET PD SH,1 EDIT DRUM ADDRESSES FOR MOD1 07760 011001 1600017423 07770 BS2 SH+1,3 ERROR PRINT OUT MOD1 07770 011006 6000017303 07780 AC SH,3 MOD1 07780 011013 5600017321 07790 BA2 SH,1 MOD1 07790 011020 5301232621 07800 SA2 PRTAR+2222,1,4 MOD1 07800 011025 6000006301 07810 AC X4,1 MOD1 07810 * 011032 3201077402 07820 JL SET,2 MOD1 07820 011037 4401103602 07830 SC $-1,2 MOD1 07830 011044 1600017706 07840 BS4 SH+4,6 MOD1 07840 * 011051 3201077404 07850 JL SET,4 MOD1 07850 011056 4401105504 07860 SC $-1,4 MOD1 07860 * 011063 3000777666 07870 JC RET,54 MOD1 07870 011070 6000006304 07880 AC X4,4 MOD1 07880 011075 4661264737 07890 BTC BT AREA+16767,31,3 OR BT AREA,31,3 FOR PREPRD MOD1 07890 * 011102 3201077402 07900 JL SET,2 MOD1 07900 011107 4401110602 07910 SC $-1,2 MOD1 07910 011114 2600006304 07920 PD X4,4 MOD1 07920 011121 5601170420 07930 BA2 CERR,16 6 MOD1 07930 011126 4401072300 07940 SC SP+4,0 MOD1 07940 * 011133 1001067124 07950 JR PRT,20 MOD1 07950 * 011140 3001076200 07960 J CMPER MOD1 07960 000173 07970 SH EQU 0173 MOD1 07970 011145 4400352610 07980 MSIZE SC SCNT+4,8,8 SET UP FOR 32 SECTOR WRITE MOD1 07980 011152 4400405510 07990 SC RSCNT+4,4,8 MOD1 07990 011157 4401120540 08000 SC SEC,32 AND READ IF LESS THAN 16K MEM MOD1 08000 011164 4401120400 08010 SC SEC-1,0 0 MOD1 08010 * 011171 3000136736 08020 JC START,3030 MOD1 08020 000137 08030 T23 EQU 0137 MOD1 08030 011201 00000001 08040 ONE +4 1 MOD1 08040 011205 00000040 08050 SEC +4 040 32 SECTORS MOD1 08050 S 011210 000005 08060 FIVE +3 05 MOD1 08060 011211 00 08070 HWSIN +1 0 MOD1 08070 011212 00 08080 DMMY +1 00 MOD1 08080 * 011213 3001121340 08090 NOPLS JC $,040 MOD1 08090 * 011220 3000445000 08100 FFSBR J RFBHA MOD1 08100 * 011225 3000440500 08110 FCFSB J CTFSB MOD1 08110 011232 00 08120 FRSTE +1 0 MOD1 08120 * 011233 1000564123 08130 FXCC JR FBCC,19 9 NO COMP EVN HEADS MOD1 08130 011243 03001200 08140 XVFSB +4 00300120200 MOD1 08140 011244 6400001610 08150 FXLSD LS 016,010 0 MOD1 08150 011253 U00 08160 U +3 _U00_ MOD1 08160 011260 FSB0 08170 FSB +5 _ FSB0_ _ MOD1 08170 011263 M0 08180 M +3 _ M0_ MOD1 08180 011270 T000 08190 T +5 _ T000_ _ MOD1 08190 011274 H00 08200 H +4 _ H00_ MOD1 08200 011300 S00 08210 S +4 _ S00_ MOD1 08210 011304 00000000 08220 STORE +4 00 MOD1 08220 011324 END WR FSBANDS A 08230 EFBWA +16 _END WR R FSBANDS A_ MOD1 08230 S 011344 END WR FSBANDS B 08240 EFBWB +16 _END WR R FSBANDS B_ MOD1 08240 S 011364 READ ALL MOD FS 08250 MESSA +16 _READ ALALL MOD FS _ MOD1 08250 F 011404 EVN TRS NOT COMP 08260 MESS2 +16 _EVN TRSRS NOT COMP_ MOD1 08260 O 011424 READ ALL MOD FSB 08270 MEFBA +16 _READ ALALL MOD FSB_ MOD1 08270 F 011444 EVN HDS NOT COMP 08280 MEFB2 +16 _EVN HDSDS NOT COMP_ MOD1 08280 O 011464 END READ MOD FSB 08290 EFBRA +16 _END REAEAD MOD FSB_ MOD1 08290 F 011504 WR ODD HDS MDFSB 08300 WHFSB +16 _WR ODD D HDS MDFSB_ MOD1 08300 F 011524 WR EVN HDS MDFSB 08310 WEVFB +16 _WR EVN N HDS MDFSB_ MOD1 08310 F 011544 RD ODD HDS MDFSB 08320 RHFSB +16 _RD ODD D HDS MDFSB_ MOD1 08320 F 011564 RD EVN HDS MDFSB 08330 REVFB +16 _RD EVN N HDS MDFSB_ MOD1 08330 F 011604 END WRITE DRUM A 08340 EWA +16 _END WRIRITE DRUM A_ MOD1 08340 M 011624 END WRITE DRUM B 08350 EWB +16 _END WRIRITE DRUM B_ MOD1 08350 M 011644 END READ MOD FS 08360 ERA +16 _END REAEAD MOD FS _ MOD1 08360 F 011664 END READ DRUM B 08370 ERB +16 _END REAEAD DRUM B _ MOD1 08370 011704 COMP ERROR 08380 CERR +16 _COMP ERERROR _ MOD1 08380 011724 WR TR 000 MOD FS 08390 WRODA +16 _WR TR 0 000 MOD FS_ MOD1 08390 011744 RD TR 000 MOD FS 08400 RDODA +16 _RD TR 0 000 MOD FS_ MOD1 08400 011750 00000250 08410 ADV +4 168 MOD1 08410 011751 00 08420 FOUR +1 0 MOD1 08420 011755 77777777 08430 MONE +4 07777777777 MOD1 08430 000047 08440 X1 EQU 047 MOD1 08440 000053 08450 X2 EQU 053 MOD1 08450 000057 08460 X3 EQU 057 MOD1 08460 000063 08470 X4 EQU 063 MOD1 08470 000067 08480 X5 EQU 067 MOD1 08480 011761 00000134 08490 K54 +4 0134 MOD1 08490 * 011762 3000411400 08500 FRDLY J NOCOM F FOR RD ONLY MOD1 08500 O 011767 00 08510 FRSTR +1 0 MOD1 08510 011770 05 08520 DD2 +1 05 MOD1 08520 011774 00001000 08530 FSHOD +4 01000 TTTTTTT HHHH SSSSS MOD1 08530 T 012000 00177740 08540 FDFSM +4 0017774040 MOD1 08540 012004 00000000 08550 +4 00 MOD1 08550 012010 00176740 08560 FVFSM +4 0017674040 MOD1 08560 012014 02177040 08570 +4 0217704040 ODD HEADS MOD1 08570 D 012020 02177740 08580 DFSB +4 0217774040 H17 MOD1 08580 1 012024 02177000 08590 +4 0217700000 MOD1 08590 012030 02177700 08600 VFSB +4 0217770000 H16 MOD1 08600 012034 00001000 08610 ODLOA +4 01000 M TRACK 1 MOD1 08610 R 012040 00017740 08620 UPODA +4 0017740 0 M LIMIT ODD MOD1 08620 I 012044 00000000 08630 EVLOA +4 00 MOD1 08630 012050 00000000 08640 UPEVA +4 00 MOD1 08640 012054 02177000 08650 +4 0217700000 MOD1 08650 012060 02177740 08660 ALLFB +4 0217774040 H17 MOD1 08660 012064 00000000 08670 +4 00 MOD1 08670 012070 00177740 08680 ALLF2 +4 0017774040 MOD1 08680 012074 00000000 08690 LOERA +4 0 MOD1 08690 012100 01373700 08700 UPERA +4 00137370700 MOD1 08700 012104 00001740 08710 FDLMA +4 01740 MOD1 08710 012110 00000740 08720 FVLMA +4 00740 MOD1 08720 012114 00000000 08730 ODLMA +4 00 MOD1 08730 012120 00000000 08740 EVLMA +4 00 MOD1 08740 012124 00200000 08750 CTKNS +4 0020000000 MOD1 08750 012126 0275 08760 K275 +2 00275 MOD1 08760 012133 0000156101 08770 UFST +5 0000015656101 LU UU MODFS WR ODEVN MOD1 08770 U 012137 00000000 08780 TMDWA +4 00 MOD1 08780 012143 00000000 08790 TMDRA +4 00 MOD1 08790 * 012144 1000471323 08800 FCVTR JR NCEVN,02023 MOD1 08800 * 012151 3000364200 08810 ADVHA J FSBHA ADVANCE FASTBAND OPT TRACK'HEAD MOD1 08810 A 012156 5201213704 08820 FSWHA SA1 TMDWA,4 4 MOD1 08820 012163 7401204071 08830 FCTDA CT UPODA,5757 MOD1 08830 012170 7401210071 08840 CTUPA CT UPERA,5757 MOD1 08840 012200 00000250 08850 K168 +4 0250 MOD1 08850 * 012201 3000453242 08860 JEOL2 JE OLRF2 MOD1 08860 * 012206 3000407566 08870 JC JC CC,54 MOD1 08870 012232 ER6 000000000000 08880 ER6 +16 _ER6 00000000000000_ MOD1 08880 0 * 012233 3000000031 08890 JC 0,25 MOD1 08890 012242 007454 08900 IE6 +3 IPT6 MOD1 08900 * 012243 3000000031 08910 JC 0,25 MOD1 08910 012252 007423 08920 IE0 +3 IPT0 MOD1 08920 * 012253 3000000160 08930 IPT1 JD 1 MOD1 08930 012262 012253 08940 +3 IPT1 MOD1 08940 * 012263 3000000260 08950 I2 JD 2 MOD1 08950 012272 012263 08960 IE2 +3 I2 MOD1 08960 012300 08970 ORIG $,64 MOD1 08970 012300 100 08980 PRTAR AREA 64,B,0 MOD1 08980 012400 08990 AREA EQU $ MOD1 08990 0000 ERROR LINES 3000135000 09000 END STRT MOD1 09000 {-- tape mark --} 006505 C621 MOD2 CODEDIT SOURCE 08/65 - T3834394-62 001350 00010 T620 BEGIN 01350 MOD2 00010 *LOAD 017300,T,TAPE,R,PRELD P * 001350 3007010660 * JD 070106 * * 001355 3000135000 * J $-5 * SEGMENT-ID T621 3000135000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T622 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2001751611 * FT 017300+0+0216,9,0 * 0 000457 2001730060 * FT 017300,4,48,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 2001751660 * FT 017300+0+0216,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 3001734000 * J 017300+0+040,0 * 017340 * ORIG 017300+0+040 * 017340 4100610100 * XF 061,010000,0,4 * 017345 6000001701 * AC 15,1 * 017352 3420022211 * CC 146,9,1 1 * * 017357 3001746542 * JE $+70 * 017364 2600004104 * PD 041,4 * 017371 3620021700 * CS 143,0,1 1 * 017376 3620011700 * CS 79,0,1 * 017403 3620001712 * CS 15,10,1 1 * 017410 1600004166 * BC2 041,6 * 017415 3620022102 * CS 145,2,1 1 * 017422 7000004162 * CB2 041,2 * * 017427 3001744142 * JE $+10 * * 017434 3007010460 * JD 070104 * 017441 4620003520 * BT 29,16,1 1 * 017446 4620003722 * BT 31,18,1 1 * 017453 2420004001 * TFR 32,,1 * * 017460 3001734000 * J $-80 * 017465 4100640000 * XF 064,0,0,0,4 * 017472 7020004642 * CB1 38,2,1 * * 017477 3020004042 * JE 32,1 * * 017504 3007010560 * JD 070105 * * 017511 3020004000 * J 32,1 * 017516 245 * AREA 165 * SEGMENT-ID T623 3001776300 * SEGJP $ * 001350 00020 ORIG 01350 MOD2 00020 001350 2001034403 00030 STRT FT MSIZE,3 3 MOD2 00030 001355 5200050703 00040 SA1 0507,3 MOD2 00040 001362 5603000001 00050 BA1 030000,1,1 TEST MEM FOR 16K MOD2 00050 001367 5600064102 00060 START BA1 0641,2 RESTORE ORIG UNIT MOD2 00060 E 001374 5201172502 00070 SA1 UFST-3,2,2 MOD2 00070 001401 5601173005 00080 BA1 UFST,5 MOD2 00080 * 001406 3000141320 00090 JHJ $+5 MOD2 00090 001413 5201173005 00100 SA1 UFST,5 MOD2 00100 001420 5601172502 00110 BA1 UFST-3,2,2 MOD2 00110 001425 5200064102 00120 SA1 0641,2 MOD2 00120 001432 7001172441 00130 CB1 UFST-4,1,1 MOD2 00130 001437 1601172522 00140 BS2 UFST-3,2,2 MOD2 00140 * 001444 3000151443 00150 JU UNITS MOD2 00150 * 001451 1000153100 00160 JR FUNIT FIXES STARTING UNIT IF OR NOT ZERO MOD2 00160 001456 3401173000 00170 ODEVN CC UFST,0 $ LU EQUALS UU UNITS MOD2 00170 * 001463 3000164142 00180 JE EVEN MOD2 00180 001470 3401173001 00190 CC UFST,1 MOD2 00190 * 001475 3000163442 00200 JE ODD MOD2 00200 * 001502 3000000260 00210 JD 002 NO ODD OR EVEN TRACKS SELECTED MOD2 00210 O * 001507 3000136700 00220 J START MOD2 00220 * 001514 1000153100 00230 UNITS JR FUNIT MOD2 00230 * 001521 3000145600 00240 J ODEVN MOD2 00240 * 001526 3000000000 00250 FUNIT J 0 MOD2 00250 001533 5601172401 00260 BA1 UFST-4,1,1 MOD2 00260 001540 5200160701 00270 SA1 CUNIT+4,4,1 CURRENT OR STARTING UNIT MOD2 00270 001545 2600006704 00280 PD 067,4 MOD2 00280 001552 5521110203 00290 LPUNT LP ANFS1-3,3,3,5 MOD2 00290 001557 6000006704 00300 AC X5,4 MOD2 00300 001564 7401052015 00310 CT K54,13 MOD2 00310 * 001571 3000155243 00320 JU LPUNT MOD2 00320 001576 2600006704 00330 PD 067,4 CLEAR IR5 MOD2 00330 001603 6521110200 00340 CUNIT LS ANFS1-3,3,0,5 MOD2 00340 001610 6000006704 00350 AC X5,4 MOD2 00350 001615 7401052015 00360 CT K54,13 MOD2 00360 * 001622 3000160343 00370 JU CUNIT MOD2 00370 * 001627 3000152600 00380 J FUNIT MOD2 00380 * 001634 3000164622 00390 ODD JC EVEN+5,1,18 $ SET SI 1 ODD OPTION MOD2 00390 * 001641 3000164625 00400 EVEN JC $+5,21 $ SSI 1 RESET IS EVEN OPT MOD2 00400 * 001646 1000601700 00410 JR SETCN SET CONTNUOUS MOD2 00410 O 001653 3401172775 00420 CC UFST-1,0,075 POST READ ONLY MOD2 00420 O * 001660 3000205042 00430 JE RONLY MOD2 00430 001665 3401172766 00440 CC UFST-1,0,066 POSITION ' WRITE MOD2 00440 S * 001672 3000200542 00450 JE POSTN MOD2 00450 001677 3401172765 00460 CC UFST-1,0,065 POSITION ' READ MOD2 00460 S * 001704 3000526342 00470 JE PREPR MOD2 00470 * 001711 3000000360 00480 JD 003 NO WRC OP SELECTED MOD2 00480 * 001716 3000136700 00490 J START MOD2 00490 * 001723 3000000000 00500 BTCOM J 0 MOD2 00500 001730 6400003560 00510 LS 035,060 0 MOD2 00510 001735 5200471323 00520 SA2 COMP+3,3,3 MOD2 00520 001742 5201027723 00530 SA2 BTC+3,3 3 MOD2 00530 * 001747 3000172300 00540 J BTCOM MOD2 00540 * 001754 3000000000 00550 RWINT J 0 MOD2 00550 001761 4400470100 00560 SC READ+3,0,0 MOD2 00560 001766 4400463066 00570 SC WRIT+2,0,066 WRITE'POSITION MOD2 00570 T 001773 4400470065 00580 SC READ+2,0,065 READ'POSITION MOD2 00580 D * 002000 3000175400 00590 J RWINT MOD2 00590 002005 3401172615 00600 POSTN CC UFST-2,0,015 M MOD2 00600 * 002012 3000235342 00610 JE F2POS MOD2 00610 002017 3401172601 00620 CC UFST-2,1,1 MOD2 00620 * 002024 3000210142 00630 JE F1POS MOD2 00630 002031 3401172600 00640 CC UFST-2,0,0 HALF DRUM MOD2 00640 F * 002036 3000216342 00650 JE FHPOS MOD2 00650 * 002043 3000204320 00660 JHJ $ WRONG FS SELECTION MOD2 00660 N 002050 4400177265 00670 RONLY SC RWINT+1414,065 MOD2 00670 002055 4400251665 00680 SC FXR+4,06065 MOD2 00680 002062 5600260403 00690 BA1 HINC-2,3,3 FX POS ADDR MOD2 00690 P 002067 5200321503 00700 SA1 FXW2-2,3,3 MOD2 00700 * 002074 3000200500 00710 J POSTN TO FIND DRUM TYPE H,1,2 LMITS MOD2 00710 F 002101 5601134100 00720 F1POS BA1 ILF1B,1616 MOD2 00720 002106 5201144100 00730 SA1 WLF2B,1616 MOD2 00730 002113 5201157100 00740 SA1 UPLMB,1616 PREWRITE MOD2 00740 R 002120 5601136100 00750 BA1 IUP1B,1616 MOD2 00750 002125 5201146100 00760 SA1 WUP2B,1616 MOD2 00760 002132 5601112100 00770 BA1 BTFS1,1616 MOD2 00770 002137 5601070023 00780 BA2 TFS1-4,3,3 136 MOD2 00780 002144 5201075223 00790 SA2 TRKS-5,3,3 MOD2 00790 002151 4400370401 00800 SC RDINT-6,6,1 MOD2 00800 * 002156 3000242300 00810 J STBKF MOD2 00810 002163 5601140100 00820 FHPOS BA1 ILHVB,1616 MOD2 00820 002170 5201144100 00830 SA1 WLF2B,1616 MOD2 00830 002175 5201157100 00840 SA1 UPLMB,1616 PREWRITE MOD2 00840 R 002202 5601142100 00850 BA1 IPHVB,1616 MOD2 00850 002207 5201146100 00860 SA1 WUP2B,1616 MOD2 00860 002214 5601071323 00870 BA2 THFS-4,3,3 056 MOD2 00870 002221 5201075223 00880 SA2 TRKS-5,3,3 MOD2 00880 002226 5601116100 00890 BA1 BTHVF,1616 MOD2 00890 002233 4400370400 00900 SC RDINT-6,6,0 MOD2 00900 * 002240 3000242300 00910 J STBKF MOD2 00910 002245 5601067133 00920 POSF2 BA2 TFS2,11 1 175,176,177 MOD2 00920 , 002252 5201065633 00930 SA2 PREWR,1111 MOD2 00930 002257 5201103033 00940 SA2 TN-7,11 1 MOD2 00940 002264 5601114100 00950 BA1 BKFS2,1616 MOD2 00950 002271 5201126100 00960 SA1 BNFS2,1616 MOD2 00960 002276 3401172775 00970 CC UFST-1,0,075 IS IT RONLY MOD2 00970 I * 002303 3000422242 00980 JE FXPRT FXFX PRINTOUT FOR RD MOD2 00980 O 002310 4400251666 00990 SC FXR+4,06066 RESTORE FOR RIGT MOD2 00990 O 002315 5600371503 01000 BA1 RDINT+3,3,3 MOD2 01000 002322 5200321503 01010 SA1 FXW2-2,3,3 RESTOR J INTRD FOR W+R MOD2 01010 R 002327 5600443403 01020 BA1 RDPRT-2,2,3 MOD2 01020 002334 5200321003 01030 SA1 FXW2-7,3,3 RESTORE JR WRPRJ MOD2 01030 R 002341 6000321003 01040 AC FXW2-7,3,3 MOD2 01040 * 002346 3000265600 01050 J INT64 MOD2 01050 002353 5601130100 01060 F2POS BA1 ILF2B,1616 MOD2 01060 002360 5201144100 01070 SA1 WLF2B,1616 MOD2 01070 002365 5201157100 01080 SA1 UPLMB,1616 PREWRITE MOD2 01080 R 002372 5601132100 01090 BA1 IUP2B,1616 MOD2 01090 002377 5201146100 01100 SA1 WUP2B,1616 MOD2 01100 002404 5601066523 01110 BA2 TFS2-4,3,3 276 MOD2 01110 002411 5201075223 01120 SA2 TRKS-5,3,3 MOD2 01120 002416 5601153100 01130 BA1 BTFS2,1616 MOD2 01130 002423 5201114100 01140 STBKF SA1 BKFS2,1616 MOD2 01140 002430 5601052505 01150 BA1 FJSIX+4,4,5 J TRSIX DO 0,1,2,275,276,7 MOD2 01150 R 002435 5200464405 01160 SA1 RGEN-1,5,5 MOD2 01160 002442 3401172775 01170 CC UFST-1,0,075 IS IT RONLY MOD2 01170 I * 002447 3000251242 01180 JE FXR MOD2 01180 002454 4400251666 01190 SC FXR+4,06066 RESTORE FOR RIGT MOD2 01190 O 002461 5600371503 01200 BA1 RDINT+3,3,3 MOD2 01200 002466 5200321503 01210 SA1 FXW2-2,3,3 RESTOR J INTRD FOR W+R MOD2 01210 R 002473 5600443403 01220 BA1 RDPRT-2,2,3 MOD2 01220 002500 5200321003 01230 SA1 FXW2-7,3,3 RESTORE JR WRPRJ MOD2 01230 R 002505 6000321003 01240 AC FXW2-7,3,3 MOD2 01240 002512 4400463066 01250 FXR SC WRIT+2,0,066 RESTORE FOR NOT OPT 75 MOD2 01250 S 002517 2001244707 01260 FT AREA+16767,7 MOD2 01260 * 002524 1000172600 01270 JR BTCOM MOD2 01270 * 002531 3000451300 01280 J NIT MOD2 01280 002536 7401143171 01290 TRSIX CT LF2A,57 7 MOD2 01290 * 002543 3000321742 01300 JE FXW2 FIX WUP2A MOD2 01300 002550 7401144171 01310 CT WLF2B,5757 MOD2 01310 * 002555 3000321742 01320 JE FXW2 DONE DA OR DB LOWER MOD2 01320 E 002562 7401145171 01330 CT WUP2A,5757 MOD2 01330 * 002567 3000323642 01340 JE FXPOS FIX NPOSTA CONTINUATION MOD2 01340 002574 7401146171 01350 CT WUP2B,5757 MOD2 01350 * 002601 3000323642 01360 JE FXPOS FIX NPOSTB CONT MOD2 01360 002606 6000001701 01370 HINC AC 017,1 INC HEAD MOD2 01370 002613 5201153504 01380 SA1 TMDWA,4 4 MOD2 01380 002620 5400001607 01390 LP 016,7 TTTHHHH HSSSSS MOD2 01390 H 002625 1600001721 01400 BS2 017,1 MOD2 01400 002632 3400001600 01410 CC 016,0 MOD2 01410 002637 5601153504 01420 BA1 TMDWA,4 4 MOD2 01420 * 002644 3000454443 01430 JU REP-5 MOD2 01430 * 002651 3000454400 01440 J REP-5 MOD2 01440 002656 5601126100 01450 INT64 BA1 BNFS2,1616 TS R 00 277 A ' B DRUMS MOD2 01450 002663 5201157100 01460 SA1 UPLMB,1616 MOD2 01460 002670 5601174105 01470 BA1 FXRPS+4,4,5 J RDPOS MOD2 01470 D 002675 5200502205 01480 SA1 INIT-1,5,5 MOD2 01480 002702 5601043105 01490 BA1 FNPST+4,4,5 MOD2 01490 002707 5200464405 01500 SA1 RGEN-1,5,5 MOD2 01500 * 002714 1000175700 01510 JR RWINT MOD2 01510 002721 2601150503 01520 PD ODLMA,3 3 MOD2 01520 002726 4401150410 01530 SC ODLMA-1,1,8 MOD2 01530 002733 2600034703 01540 PD 0347,3 MOD2 01540 002740 4140640000 01550 XF 064,0,0,0,6 POSITION TO Z TRACK MOD2 01550 I 002745 5601042405 01560 BA1 FXH1+4,5,5 MOD2 01560 002752 5200277505 01570 SA1 NPOST+9,9,5 MOD2 01570 * 002757 3000451300 01580 J NIT MOD2 01580 002764 3401041700 01590 NPOST CC FRSTE,0 0 MOD2 01590 * 002771 3000305343 01600 JU KNH1 JUJU KNPOS ALL HEADS BUT Z HEAD MOD2 01600 002776 5601150504 01610 BA1 ODLMA,4 4 CASE 2 ODLOA 0 ODLMA 277 MOD2 01610 2 003003 5201156104 01620 SA1 UPODA,4 4 MOD2 01620 003010 5601155504 01630 BA1 ODLOA,4 4 UPODA 0 MOD2 01630 003015 5201150504 01640 SA1 ODLMA,4 4 MOD2 01640 003022 5601156104 01650 BA1 UPODA,4 4 MOD2 01650 003027 5201155504 01660 SA1 ODLOA,4 4 MOD2 01660 003034 5400001740 01670 LP 017,040 0 MOD2 01670 003041 4401041704 01680 SC FRSTE,4 4 POSTN BIT MOD2 01680 * 003046 3000454400 01690 J REP-5 MOD2 01690 003053 5601124504 01700 KNH1 BA1 AP1F2,4 4 UPODA 277 MOD2 01700 003060 6000001740 01710 AC 017,040 0 MOD2 01710 003065 5201124504 01720 SA1 AP1F2,4 4 MOD2 01720 003072 5201150504 01730 SA1 ODLMA,4 4 MOD2 01730 003077 5201156104 01740 SA1 UPODA,4 4 MOD2 01740 003104 5601125104 01750 BA1 ANFS2,4 4 MOD2 01750 003111 6000001740 01760 AC 017,040 0 MOD2 01760 003116 5201125104 01770 SA1 ANFS2,4 4 MOD2 01770 003123 5201155504 01780 SA1 ODLOA,4 4 ODLOA 0 ODLMA 277 MOD2 01780 003130 4401041700 01790 SC FRSTE,0 0 MOD2 01790 003135 5201153504 01800 SA1 TMDWA,4 4 MOD2 01800 003142 5400001607 01810 LP 016,07 TTTHHHHSSSSS MOD2 01810 H 003147 1600001721 01820 BS2 017,1 MOD2 01820 003154 3400001600 01830 CC 016,0 MOD2 01830 * 003161 3000320042 01840 JE $+15 MOD2 01840 003166 5601153504 01850 BA1 TMDWA,4 4 MOD2 01850 * 003173 3000454400 01860 J REP-5 MOD2 01860 * 003200 1000357000 01870 JR PSPRT MOD2 01870 * 003205 1000435200 01880 JR WRPRT O OR PRDLY MOD2 01880 Y * 003212 3000332500 01890 J INTRD J FXPOS RONLY JMOPTN MRD NLY MOD2 01890 S 003217 5601146100 01900 FXW2 BA1 WUP2B,1616 MOD2 01900 003224 5201157100 01910 SA1 UPLMB,1616 MOD2 01910 * 003231 3000451300 01920 J NIT MOD2 01920 003236 3401172615 01930 FXPOS CC UFST-2,0,015 M MOD2 01930 * 003243 3000224542 01940 JE POSF2 MOD2 01940 003250 3401172601 01950 CC UFST-2,1,1 MOD2 01950 * 003255 3000330142 01960 JE POSF1 MOD2 01960 003262 3401172600 01970 CC UFST-2,0,0 MOD2 01970 * 003267 3000331342 01980 JE POSHV MOD2 01980 * 003274 3000327420 01990 JHJ $ MOD2 01990 003301 5601070433 02000 POSF1 BA2 TFS1,11 1 MOD2 02000 * 003306 3000225200 02010 J POSF2+5 5 MOD2 02010 003313 5601071733 02020 POSHV BA2 THFS,11 1 MOD2 02020 * 003320 3000225200 02030 J POSF2+5 5 MOD2 02030 003325 5601120100 02040 INTRD BA1 RPOS1,1616 MOD2 02040 003332 5201157100 02050 SA1 UPLMB,1616 MOD2 02050 003337 5601122504 02060 BA1 MAXR1,4 4 00023700 MOD2 02060 2 003344 5201150504 02070 SA1 ODLMA,4 4 MOD2 02070 003351 3401172600 02080 CC UFST-2,0,0 MOD2 02080 * 003356 3000342642 02090 JE FXMXH MOD2 02090 003363 3401172601 02100 CC UFST-2,1,1 MOD2 02100 * 003370 3000345242 02110 JE FXMX1 MOD2 02110 003375 5601161100 02120 BA1 POSD2,1616 FS2 MOD2 02120 003402 5201122100 02130 SA1 RPOS2,1616 MOD2 02130 003407 5601162110 02140 BA1 MXR2,8 MOD2 02140 003414 5201124110 02150 SXR2 SA1 BMXR2,8 8 MOD2 02150 * 003421 3000464500 02160 J RGEN MOD2 02160 003426 5601164100 02170 FXMXH BA1 POSDH,1616 HFS MOD2 02170 003433 5201122100 02180 SA1 RPOS2,1616 MOD2 02180 003440 5601165110 02190 BA1 MXR2H,8 8 MOD2 02190 * 003445 3000341400 02200 J SXR2 MOD2 02200 003452 5601167100 02210 FXMX1 BA1 POSD1,1616 MOD2 02210 003457 5201122100 02220 SA1 RPOS2,1616 MOD2 02220 003464 5601170110 02230 BA1 MXR21,8 8 MOD2 02230 * 003471 3000341400 02240 J SXR2 MOD2 02240 003476 7401122571 02250 RDPOS CT MAXR1,5757 0023700 DA MOD2 02250 3 * 003503 3000363542 02260 JE NTAR2 INIT RDPOS 2 DA MOD2 02260 T 003510 7401123171 02270 CT BMXR1,5757 00027700 DB MOD2 02270 2 * 003515 3000363542 02280 JE NTAR2 INIT RDPOS 2 DB MOD2 02280 T 003522 7401123571 02290 CT MAXR2,5757 02773700 DA MOD2 02290 7 * 003527 3000365442 02300 JE NDAR2 MOD2 02300 003534 7401124171 02310 CT BMXR2,5757 02777700 DB MOD2 02310 7 * 003541 3000365442 02320 JE NDAR2 MOD2 02320 003546 6000001701 02330 AC 017,1 MOD2 02330 003553 5201154504 02340 SA1 TMDRA,4 4 MOD2 02340 * 003560 3000467100 02350 J READ-5 MOD2 02350 * 003565 3000000000 02360 PSPRT J 0 MOD2 02360 003572 4400020704 02370 SC 0207,4 MOD2 02370 003577 4000640000 02380 XF 064,0,0,0,0 MOD2 02380 003604 4401012202 02390 SC SP+4,2 MOD2 02390 003611 5601061620 02400 BA2 PTST MOD2 02400 * 003616 1001007000 02410 JR PRT MOD2 02410 003623 4401012204 02420 SC SP+4,4 MOD2 02420 * 003630 3000356500 02430 J PSPRT MOD2 02430 003635 5601122100 02440 NTAR2 BA1 RPOS2,1616 INIT NTRACK READ MOD2 02440 T 003642 5201157100 02450 SA1 UPLMB,1616 MOD2 02450 * 003647 3000464500 02460 J RGEN MOD2 02460 * 003654 1000357040 02470 NDAR2 JR PSPRT,04040 NOP FOR PRINTOUT MOD2 02470 P * 003661 1000444100 02480 JR RDPRT MOD2 02480 * 003666 1000601700 02490 JR SETCN MOD2 02490 * 003673 3000374362 02500 JC MOPTN,5050 SW1 DOES 15,1,0,15,, MOD2 02500 003700 4401172615 02510 SC UFST-2,0,015 MOD2 02510 * 003705 3000323660 02520 JD FXPOS D DOESNT PREWRITE POSTN DOES MOD2 02520 * 003712 3000332560 02530 RDINT JD INTRD MOD2 02530 * 003717 3000200560 02540 JD POSTN HIT M TO RESTART POS TST MOD2 02540 * 003724 3000526360 02550 JD PREPR MOD2 02550 * 003731 3000575160 02560 JD UNITK MOD2 02560 * 003736 3000136700 02570 J START STOPS AT START+5 MOD2 02570 P 003743 3401172615 02580 MOPTN CC UFST-2,0,015 MOD2 02580 * 003750 3000400142 02590 JE DO1 MOD2 02590 003755 3401172601 02600 CC UFST-2,1,1 MOD2 02600 * 003762 3000401342 02610 JE DO0 MOD2 02610 003767 4401172615 02620 SC UFST-2,0,015 DO 15 MOD2 02620 1 * 003774 3000145600 02630 J ODEVN MOD2 02630 004001 4401172601 02640 DO1 SC UFST-2,1,1 MOD2 02640 * 004006 3000145600 02650 J ODEVN MOD2 02650 004013 4401172600 02660 DO0 SC UFST-2,0,0 MOD2 02660 * 004020 3000145600 02670 J ODEVN MOD2 02670 * 004025 3000402500 02680 PRDLY J $ MOD2 02680 004032 4401012202 02690 SC SP+4,2 MOD2 02690 004037 5601105720 02700 BA2 RDNLY MOD2 02700 * 004044 1001007000 02710 JR PRT MOD2 02710 004051 5601101535 02720 BA2 TS-2,13 3 MOD2 02720 004056 5201212235 02730 SA2 PRTAR+1818,13 MOD2 02730 * 004063 3000410262 02740 JC $+15,50 0 LEAVE ONCE OUT OF MESSAGE MOD2 02740 004070 5601106324 02750 BA2 ONCE,4 ONCE MOD2 02750 004075 5201214224 02760 SA2 PRTAR+3434,4 MOD2 02760 004102 3401172600 02770 CC UFST-2,0,0 HFS MOD2 02770 * 004107 3000432342 02780 JE PKHFS MOD2 02780 004114 3401172601 02790 CC UFST-2,1,1 FS1 MOD2 02790 * 004121 3000433542 02800 JE PKF1K MOD2 02800 004126 5601067133 02810 BA2 TFS2,11 1 TIS FS2 MOD2 02810 2 004133 5201213533 02820 RDCOM SA2 PRTAR+2929,11 COMMON FOR FS1 + HFS MOD2 02820 O 004140 5601212520 02830 BA2 PRTAR+2121,16 MOD2 02830 * 004145 1001007000 02840 JR PRT MOD2 02840 004152 5601075620 02850 BA2 TRKS-1 MOD2 02850 004157 5201216320 02860 SA2 PRTAR+5151,16 MOD2 02860 * 004164 3000427262 02870 SW1FX JC SW1PR,5050 MOD2 02870 004171 5601110136 02880 BA2 CYC,14 MOD2 02880 004176 5201212336 02890 SA2 PRTAR+1919,14 MOD2 02890 004203 5601212520 02900 BA2 PRTAR+2121,16 MOD2 02900 * 004210 1001007000 02910 JR PRT MOD2 02910 * 004215 3000402500 02920 PRLY J PRDLY MOD2 02920 004222 5600422003 02930 FXPRT BA1 PRLY+3,3,3 FX JR PRDLY MOD2 02930 R 004227 5200321003 02940 SA1 FXW2-7,3,3 MOD2 02940 004234 6000321003 02950 AC FXW2-7,3,3 MOD2 02950 * 004241 3000425362 02960 JC FXRM2,5050 MOD2 02960 * 004246 3000265600 02970 J INT64 MOD2 02970 004253 5600367604 02980 FXRM2 BA1 NDAR2+1818,4 JC MOPTN MOD2 02980 004260 5200321504 02990 SA1 FXW2-2,4,4 MOD2 02990 * 004265 3000265600 03000 J INT64 MOD2 03000 004272 5601073031 03010 SW1PR BA2 PT-7,9 POSITION MOD2 03010 O 004277 5201211631 03020 SA2 PRTAR+1414,9 MOD2 03020 004304 5601076324 03030 BA2 RC-12,4 4 READ MOD2 03030 D 004311 5201212224 03040 SA2 PRTAR+1818,4 MOD2 03040 * 004316 3000420300 03050 J SW1FX+1515 MOD2 03050 004323 5601071733 03060 PKHFS BA2 THFS,11 1 MOD2 03060 * 004330 3000413300 03070 J RDCOM MOD2 03070 004335 5601070433 03080 PKF1K BA2 TFS1,11 1 MOD2 03080 * 004342 3000413300 03090 J RDCOM MOD2 03090 * 004347 3000434700 03100 WRPRT J $ MOD2 03100 004354 5601065620 03110 BA2 PREWR MOD2 03110 004361 5201214520 03120 SA2 PRTAR+3737,16 MOD2 03120 004366 5601063620 03130 BA2 PWR MOD2 03130 * 004373 1001007000 03140 JR PRT MOD2 03140 004400 5601075720 03150 BA2 TRKS MOD2 03150 004405 5201214520 03160 SA2 PRTAR+3737,16 MOD2 03160 004412 5601073720 03170 BA2 PT MOD2 03170 004417 4401012204 03180 SC SP+4,4 OR 30 MOD2 03180 R * 004424 1001007000 03190 JR PRT MOD2 03190 * 004431 3000434700 03200 J WRPRT MOD2 03200 * 004436 3000443600 03210 RDPRT J $ MOD2 03210 004443 5601103720 03220 BA2 TN,16 MOD2 03220 004450 5201216520 03230 SA2 PRTAR+5353,16 MOD2 03230 004455 5601101720 03240 BA2 TS,16 MOD2 03240 004462 5201214520 03250 SA2 PRTAR+3737,16 MOD2 03250 004467 5601077720 03260 BA2 RC,16 MOD2 03260 004474 4401012206 03270 SC SP+4,6 MOD2 03270 * 004501 1001007000 03280 JR PRT READ MESSAGE MOD2 03280 E * 004506 3000443600 03290 J RDPRT MOD2 03290 * 004513 1000502600 03300 NIT JR INIT MOD2 03300 * 004520 1000512200 03310 JNITW JR INITW MOD2 03310 004525 2600013704 03320 PD T23,4 MOD2 03320 004532 5601155504 03330 AGEN BA1 ODLOA,4 4 MOD2 03330 004537 5400001740 03340 LP 017,040 0 CLEAR HSSSSS MOD2 03340 A 004544 5200034704 03350 SA1 0347,4 MOD2 03350 004551 5241244704 03360 REP SA1 AREA+16767,4,2 MOD2 03360 004556 7601051312 03370 AT ADV,X2 MOD2 03370 004563 7601040027 03380 AT ONE,23 MOD2 03380 004570 7401040427 03390 CT SEC,23 MOD2 03390 * 004575 3000461442 03400 JE $+15 MOD2 03400 004602 6000001701 03410 AC 017,1 MOD2 03410 * 004607 3000455100 03420 J REP MOD2 03420 004614 2600013704 03430 PD T23,4 MOD2 03430 004621 2600005304 03440 PD X2,4 MOD2 03440 004626 4140660000 03450 WRIT XF 066,0,0,0,6 MOD2 03450 004633 2601051401 03460 PD FOUR,1 RESET ERROR COUNT MOD2 03460 * 004640 3000276400 03470 J NPOST MOD2 03470 004645 5601155504 03480 RGEN BA1 ODLOA,4 4 MOD2 03480 004652 5400001740 03490 LP 017,040 0 MOD2 03490 004657 2001220070 03500 FT AREA,56 6 MOD2 03500 004664 4400034010 03510 RSCNT SC 0340,8 READ 32 SECTORS MOD2 03510 D 004671 5200034704 03520 SA1 0347,4 MOD2 03520 004676 4140650000 03530 READ XF 065,0,0,0,6 MOD2 03530 004703 2601051401 03540 PD FOUR,1 RESET ERROR COUNT MOD2 03540 004710 7061244744 03550 COMP CB1 AREA+16767,4,3 COMP LAST 4 DATA CHARACTERS MOD2 03550 * 004715 1001016443 03560 JR CMPER,3535 OF EACH SECTOR TO GEN ADDRESS MOD2 03560 004722 7601051313 03570 NOCOM AT ADV,X3 MOD2 03570 004727 7601040027 03580 AT ONE,23 MOD2 03580 004734 7401040427 03590 CT SEC,23 MOD2 03590 * 004741 3000476042 03600 JE $+15 MOD2 03600 004746 6000001701 03610 AC 017,1 MOD2 03610 * 004753 3000471000 03620 J COMP MOD2 03620 004760 2600013704 03630 PD T23,4 MOD2 03630 004765 2600005704 03640 PD X3,4 MOD2 03640 004772 4401012202 03650 SC SP+4,2 MOD2 03650 004777 2600003700 03660 PD 31,16 MOD2 03660 * 005004 1001007067 03670 JR PRT,55 MOD2 03670 * 005011 3000501627 03680 JC $+5,23 MOD2 03680 * 005016 3000347600 03690 J RDPOS J ADVTR FOR PREPR MOD2 03690 D * 005023 3000000000 03700 INIT J 0 MOD2 03700 005030 5601177710 03710 BA1 IE6,8 MOD2 03710 005035 5200046710 03720 SA1 0467,8 MOD2 03720 005042 5601200710 03730 BA1 IE0,8 MOD2 03730 005047 5200040710 03740 SA1 0407,8 MOD2 03740 005054 5601202700 03750 BA1 IE2,16 MOD2 03750 005061 5200051700 03760 SA1 0517,16 6 MOD2 03760 * 005066 3000507322 03770 JC $+5,18 MOD2 03770 * 005073 3000510025 03780 JC $+5,21 MOD2 03780 005100 2601051401 03790 BGO PD FOUR,1 RESET ERROR COUNT MOD2 03790 E 005105 2600001700 03800 PD 017,16 MOD2 03800 * 005112 3000502300 03810 J INIT MOD2 03810 * 005117 3000000000 03820 INITW J 0 MOD2 03820 005124 2600013704 03830 PD T23,4 MOD2 03830 005131 2600006300 03840 PD X4,16 MOD2 03840 005136 2001220070 03850 FT AREA,56 6 SECTOR COUNT 64 OR 32 MOD2 03850 005143 4400034010 03860 SCNT SC 0340,8 MOD2 03860 005150 4400001700 03870 PAT SC 017,0 PATTERN GENERATOR MOD2 03870 005155 5221220001 03880 PGEN SA1 AREA,1,1,1 MOD2 03880 005162 6000001701 03890 AC 017,1 MOD2 03890 005167 6000004701 03900 AC X1,1 MOD2 03900 * 005174 3200515577 03910 JL PGEN,63 3 MOD2 03910 * 005201 3200515577 03920 JL PGEN,63 3 MOD2 03920 * 005206 3200515550 03930 JL PGEN,40 0 MOD2 03930 005213 4400520077 03940 SC $-11,63 3 MOD2 03940 005220 4400520577 03950 SC $-11,63 3 MOD2 03950 005225 4400521250 03960 SC $-11,40 0 MOD2 03960 005232 6000004704 03970 AC X1,4 MOD2 03970 005237 7601040027 03980 AT ONE,23 MOD2 03980 005244 7401040427 03990 CT SEC,23 MOD2 03990 * 005251 3000515043 04000 JU PAT MOD2 04000 * 005256 3000511700 04010 J INITW MOD2 04010 * 005263 1000502600 04020 PREPR JR INIT MOD2 04020 005270 2601051304 04030 PD ADV,4 MOD2 04030 005275 4401051310 04040 SC ADV,8 MOD2 04040 005302 4401041700 04050 SC FRSTE,0 0 MOD2 04050 005307 2600013704 04060 PD T23,4 MOD2 04060 005314 2600006300 04070 PD X4,16 MOD2 04070 005321 4400470065 04080 SC READ+2,0,065 MOD2 04080 005326 4400470120 04090 SC READ+3,0,020 MOD2 04090 005333 2001220407 04100 FT AREA+4,7,7 AR2 MOD2 04100 * 005340 1000172600 04110 JR BTCOM MOD2 04110 005345 5601041625 04120 BA2 PRTRS+4,4,5 J ADVTR PREP READ MOD2 04120 D 005352 5200502225 04130 SA2 INIT-1,5,5 MOD2 04130 005357 5601043722 04140 BA2 RDD,2 MOD2 04140 005364 5201057222 04150 SA2 NDPRB-4,4,2 H00 MOD2 04150 005371 5601146504 04160 BA1 UTHSA,4 4 ODLOA 0 ODLMA 277 MOD2 04160 O 005376 5201155504 04170 SA1 ODLOA,4 4 UPODA 0 MOD2 04170 D 005403 5201156104 04180 SA1 UPODA,4 4 MOD2 04180 005410 3401172600 04190 CC UFST-2,0,0 HFS MOD2 04190 * 005415 3000546042 04200 JE PRH MOD2 04200 005422 3401172601 04210 CC UFST-2,1,1 FS1 MOD2 04210 * 005427 3000547242 04220 JE PRF1 MOD2 04220 005434 5601171130 04230 BA2 PREP1,8 8 277,137 MOD2 04230 , 005441 5201151130 04240 PREPN SA2 EVLMA,8 8 MOD2 04240 005446 5201151130 04250 SA2 EVLMA,8 8 MOD2 04250 * 005453 3000465700 04260 J RSCNT-5 5 MOD2 04260 005460 5601172130 04270 PRH BA2 PREPH+4,4,8 057 030 MOD2 04270 * 005465 3000544100 04280 J PREPN MOD2 04280 005472 5601171530 04290 PRF1 BA2 PREPH,8 8 137 057 MOD2 04290 * 005477 3000544100 04300 J PREPN MOD2 04300 * 005504 1000357000 04310 NDPRP JR PSPRT MOD2 04310 005511 5601057620 04320 BA2 NDPRB MOD2 04320 005516 5201214520 04330 SA2 PRTAR+3737,16 MOD2 04330 005523 5601055620 04340 BA2 NDPRA MOD2 04340 * 005530 1001007000 04350 JR PRT MOD2 04350 * 005535 1000601700 04351 JR SETCN 04351 * 005542 3000374362 04352 JC MOPTN,5050 04352 * 005547 3000372400 04360 J RDINT+1010 MOD2 04360 005554 3401041700 04370 ADVTR CC FRSTE,0 0 ADV TRACK ONLY MOD2 04370 * 005561 3000564343 04380 JU SHFTR DONE 0'277 HEAD 0 MOD2 04380 E 005566 5601150504 04390 BA1 ODLMA,4 4 277 2ND TIME 0 MOD2 04390 005573 5201156104 04400 SA1 UPODA MOD2 04400 005600 5601155504 04410 BA1 ODLOA,4 4 0 MOD2 04410 005605 5201150504 04420 SA1 ODLMA,4 4 MOD2 04420 005612 5601156104 04430 BA1 UPODA,4 4 MOD2 04430 005617 5201155504 04440 SA1 ODLOA,4 4 MOD2 04440 005624 5400001740 04450 LP 017,040 0 MOD2 04450 005631 4401041702 04460 SC FRSTE,2 2 PREP BIT MOD2 04460 P * 005636 3000465700 04470 J RSCNT-5 5 AR,CORRECT DATA MOD2 04470 C 005643 7401151171 04480 SHFTR CT EVLMA,5757 MOD2 04480 * 005650 3000550442 04490 JE NDPRP MOD2 04490 005655 5601150504 04500 BA1 ODLMA,4 4 0 MAKE TR 01 NOW MOD2 04500 005662 6000001610 04510 AC 016,010 0 MOD2 04510 005667 5201156104 04520 SA1 UPODA,4 4 WAS 0 NOW TR 01 MOD2 04520 005674 2600001704 04530 PD 017,4 MOD2 04530 005701 4400001710 04540 SC 017,010 0 MOD2 04540 005706 7201155442 04550 SB1 ODLOA-1,1,2 MOD2 04550 005713 5601155504 04560 BA1 ODLOA MOD2 04560 005720 5201150504 04570 SA1 ODLMA MOD2 04570 005725 5601156104 04580 BA1 UPODA MOD2 04580 005732 5201155504 04590 SA1 ODLOA MOD2 04590 005737 4401041700 04600 SC FRSTE,0 0 MOD2 04600 * 005744 3000465700 04610 J RSCNT-5 5 MOD2 04610 005751 5601172401 04620 UNITK BA1 UFST-4,1,1 MOD2 04620 005756 7001172541 04630 CB1 UFST-3,1,1 MOD2 04630 * 005763 3000577543 04640 JU $+10 MOD2 04640 * 005770 3000136700 04650 J START REPEAT TST MOD2 04650 005775 6000001704 04660 AC 017,4 MOD2 04660 006002 5201172401 04670 SA1 UFST-4,1,1 MOD2 04670 * 006007 3000151400 04680 J UNITS MOD2 04680 * 006014 3000000000 04690 SETCN J 0 MOD2 04690 * 006021 3000604563 04700 JC S2CS3,5151 SW2 SET SEE IF SW3 SET MOD2 04700 006026 4400371160 04710 SC RDINT-1,1,060 SW2 RESET MOD2 04710 W 006033 4400373060 04720 SC RDINT+1414,060 MOD2 04720 * 006040 3000601400 04730 J SETCN MOD2 04730 006045 3401172775 04740 S2CS3 CC UFST-1,0,075 SW2 SET MOD2 04740 2 * 006052 3000602642 04750 JE SETCN+1010 ITS READ ONLY MOD2 04750 006057 3401172765 04760 CC UFST-1,0,065 MOD2 04760 * 006064 3000612242 04770 JE FXPRE FX PREP READ MOD2 04770 P 006071 3401172766 04780 CC UFST-1,0,066 MOD2 04780 * 006076 3000613442 04790 JE FXPWR MOD2 04790 006103 3401172767 04800 CC UFST-1,0,067 MOD2 04800 * 006110 3000613442 04810 JE FXPWR MOD2 04810 * 006115 3000611520 04820 JHJ $ ERROR MOD2 04820 O 006122 4400373000 04830 FXPRE SC RDINT+1414,0 MOD2 04830 * 006127 3000601400 04840 J SETCN MOD2 04840 006134 4400371100 04850 FXPWR SC RDINT-1,1,0 MOD2 04850 * 006141 3000601400 04860 J SETCN MOD2 04860 * 006146 3000614600 04870 ED579 J $ MOD2 04870 006153 5600035701 04880 T5 BA1 0357,1 S T59 MOD2 04880 006160 5400001737 04890 LP 017,037 7 H6 OUT 37S MAX MOD2 04890 O 006165 5200002001 04900 SA1 020,1 037 IN 020 MOD2 04900 006172 2600001704 04910 PD 017,4 MOD2 04910 006177 1600002023 04920 BS2 020,3 03 IN 017 070 IN 020 MOD2 04920 I 006204 6000001703 04930 AC 017,3 ALPHA 3 IN 017 MOD2 04930 H 006211 5201046601 04940 SA1 S-1,1 MOD2 04940 006216 4400001700 04950 SC 017,0 MOD2 04950 006223 1600002023 04960 BS2 020,3 07 IN 017 NOW MOD2 04960 I 006230 6000001703 04970 AC 017,3 ALPHA 7 IN 017 NOW MOD2 04970 H 006235 5201046701 04980 SA1 S,1 MOD2 04980 006242 5600035702 04990 T7 BA1 0357,2 THS MOD2 04990 006247 5400001607 05000 LP 016,07 T BITS OUT SAVE H BITS MOD2 05000 I 006254 5200002102 05010 SA1 021,2 000HHH HSSSSS 07 IN 017 077 IN 20 MOD2 05010 H 006261 4400001700 05020 SC 017,0 MOD2 05020 006266 1600002134 05030 BS3 021,4 SHIFT H1 INTO 017 FOR POS 017 HEAD MOD2 05030 F 006273 6000001703 05040 AC 017,3 MOD2 05040 006300 5201046201 05050 SA1 H-1,1 SHOULD BE 1 OR 0 MOD2 05050 U 006305 4400001700 05060 SC 017,0 MOD2 05060 006312 1600002023 05070 BS2 020,3 07 IN 017 MOD2 05070 I 006317 6000001703 05080 AC 017,3 MOD2 05080 006324 5201046301 05090 SA1 H,1 MOD2 05090 006331 5600035602 05100 T57 BA1 0356,2 GET TTTTTTTHHH 16+17 MOD2 05100 T 006336 5400001617 05110 LP 016,017 7 SAVE TTTT MOD2 05110 E 006343 5200002102 05120 SA1 021,2 MOD2 05120 006350 2600001702 05130 PD 017,2 MOD2 05130 006355 1600002133 05140 BS3 021,3 01 IN 017 TTTTTT IN 020 MOD2 05140 I 006362 6000001703 05150 AC 017,3 MOD2 05150 006367 5201045501 05160 SA1 T-2,1 MOD2 05160 006374 2600001701 05170 PD 017,1 MOD2 05170 006401 1600002023 05180 BS2 020,3 TTT000 IN 020 000TTT IN 017 MOD2 05180 0 006406 6000001703 05190 AC 017,3 MOD2 05190 006413 5201045601 05200 SA1 T-1,1 MOD2 05200 006420 2600001701 05210 PD 017,1 MOD2 05210 006425 1600002023 05220 BS2 020,3 MOD2 05220 006432 6000001703 05230 AC 017,3 MOD2 05230 006437 5201045701 05240 SA1 T,1 MOD2 05240 006444 5600035502 05250 T59 BA1 0355,2 UUUUFMMMTTTT IN 16+17 MOD2 05250 F 006451 5400001601 05260 LP 016,1 SAVE M3 MOD2 05260 E 006456 5200002002 05270 SA1 020,2 0M IN 017 MMTTTT IN 020 MOD2 05270 I 006463 1600002022 05280 BS2 020,2 000MMM IN 017 MOD2 05280 M 006470 6000001703 05290 AC 017,3 MOD2 05290 006475 5201045201 05300 SA1 M,1 MOD2 05300 006502 5600035401 05310 T9 BA1 0354,1 MOD2 05310 006507 5200002101 05320 SA1 021,1 MOD2 05320 006514 5400001774 05330 LP 017,074 4 SAVE UUUU00 MOD2 05330 E 006521 5200002001 05340 SA1 020,1 MOD2 05340 006526 4400001700 05350 SC 017,0 MOD2 05350 006533 1600002024 05360 BS2 020,4 MOD2 05360 006540 6000001703 05370 AC 017,3 MOD2 05370 006545 5201044201 05380 SA1 U,1 MOD2 05380 006552 5400002102 05390 LP 021,2 SAVE FSB BIT MOD2 05390 S 006557 1600002137 05400 BS3 021,7 MOD2 05400 006564 1600002024 05410 BS2 020,4 MOD2 05410 006571 6000001703 05420 AC 017,3 MOD2 05420 006576 5201044701 05430 SA1 FSB,1 MOD2 05430 006603 5601045700 05440 BA1 T,16 MOD2 05440 006610 5201216500 05450 SA1 PRTAR+5353,16 MOD2 05450 006615 5601046710 05460 BA1 S,8 MOD2 05460 006622 5201217510 05470 SA1 PRTAR+6161,8 MOD2 05470 * 006627 3000614600 05480 J ED579 MOD2 05480 006634 4400615647 05490 STTAG SC T5+3,04747 MOD2 05490 006641 4400624547 05500 SC T7+3,04747 MOD2 05500 006646 4400633446 05510 SC T57+3,04046 MOD2 05510 006653 4400644745 05520 SC T59+3,04045 MOD2 05520 006660 4400650544 05530 SC T9+3,04444 MOD2 05530 006665 4600034737 05540 BT 0347,31 1 MOD2 05540 006672 5200004321 05550 SA2 043,1 MOD2 05550 * 006677 3001017323 05560 JC SET,19 MOD2 05560 * 006704 3000040060 05570 IPT0 JD 0400 CNGE TO 3000040000 IF NO PRINTER MOD2 05570 006711 4000407777 05580 XF 040,0777777,0,0 MOD2 05580 006716 5601040723 05590 BA2 FIVE,3 MOD2 05590 006723 7200040363 05600 SB2 0403,3 MOD2 05600 * 006730 3000040000 05610 J 0400 MOD2 05610 006735 5601176720 05620 IPT6 BA2 ER6,16 MOD2 05620 006742 4140000001 05630 XF 0,01,0,6,6 MOD2 05630 * 006747 1000756553 05640 JR D1,43 MOD2 05640 006754 4140000002 05650 XF 0,02,0,6,6 MOD2 05650 * 006761 1000761153 05660 JR D2,43 MOD2 05660 006766 4140000004 05670 XF 0,04,0,6,6 MOD2 05670 * 006773 1000763553 05680 JR D3,43 MOD2 05680 007000 4140000010 05690 XF 0,010,0,0,6 MOD2 05690 * 007005 1000766153 05700 JR D4,43 MOD2 05700 007012 4140000020 05710 XF 0,020,0,0,6 MOD2 05710 * 007017 1000770053 05720 JR D5,43 MOD2 05720 007024 4140000040 05730 XF 0,040,0,0,6 MOD2 05730 * 007031 1000771753 05740 JR D6,43 MOD2 05740 007036 4140000100 05750 XF 0,0100,0,0,6 MOD2 05750 * 007043 1000773653 05760 JR D7,43 MOD2 05760 007050 4140000200 05770 XF 0,0200,0,0,6 MOD2 05770 * 007055 1000775553 05780 JR D8,43 MOD2 05780 007062 4140000400 05790 XF 0,0400,0,0,6 MOD2 05790 * 007067 1000777453 05800 JR D9,43 MOD2 05800 007074 4140001000 05810 XF 0,01000,0,0,6 MOD2 05810 * 007101 1001001353 05820 JR D10,43 MOD2 05820 007106 4140002000 05830 XF 0,02000,0,0,6 MOD2 05830 * 007113 1001003253 05840 JR D11,43 MOD2 05840 007120 4140004000 05850 XF 0,04000,0,0,6 MOD2 05850 * 007125 1001005153 05860 JR D12,43 MOD2 05860 007132 6000006304 05870 AC X4,4 MOD2 05870 007137 4140407777 05880 XF 040,0777777,0,6 MOD2 05880 007144 4600035737 05890 BT 0357,31 1 MOD2 05890 007151 1401041104 05900 LC DMMY,4 MOD2 05900 * 007156 3000720742 05910 JE ARROW MOD2 05910 007163 1401041102 05920 LC DMMY,2 MOD2 05920 * 007170 3000720742 05930 JE ARROW MOD2 05930 007175 3401041101 05940 CC DMMY,1 MOD2 05940 * 007202 3000663442 05950 JE STTAG MOD2 05950 007207 5200004321 05960 ARROW SA2 043,1 IF MISSING SECTOR ERROR MOD2 05960 007214 4400615657 05970 SC T5+3,05757 MOD2 05970 007221 4400624557 05980 SC T7+3,05757 MOD2 05980 007226 4400633456 05990 SC T57+3,05056 MOD2 05990 007233 4400644755 06000 SC T59+3,05055 MOD2 06000 007240 4400650554 06010 SC T9+3,05454 MOD2 06010 007245 4401041100 06020 SC DMMY,0 MOD2 06020 * 007252 3001017323 06030 JC SET,19 MOD2 06030 * 007257 3000726426 06040 RET JC $+5,22 MOD2 06040 007264 5200061700 06050 SA1 0617,16 6 MOD2 06050 007271 5200063720 06060 SA2 0637,16 6 MOD2 06060 * 007276 1000615100 06070 JR ED579 MOD2 06070 007303 5600061700 06080 BA1 0617,16 6 MOD2 06080 007310 5600063720 06090 BA2 0637,16 6 MOD2 06090 007315 5600004321 06100 BA2 043,1 MOD2 06100 * 007322 1001007000 06110 JR PRT MOD2 06110 007327 2600006304 06120 PD X4,4 MOD2 06120 007334 3400003504 06130 CC AC+13,4 4 MOD2 06130 * 007341 3000735343 06140 JU CY MOD2 06140 * 007346 3000734660 06150 NR JD NR MOD2 06150 007353 5601040723 06160 CY BA2 FIVE,3 MOD2 06160 007360 7200046363 06170 SB2 0463,3 MOD2 06170 007365 3401051403 06180 CC FOUR,3 CHECK FOR 4 CONSECUTIVE ERRS MOD2 06180 * 007372 3000755043 06190 JU ADD MOD2 06190 * 007377 3000000460 06200 JD 4 MOD2 06200 007404 2601051401 06210 PD FOUR,1 RESET ERROR COUNT MOD2 06210 007411 5600046323 06220 RECVR BA2 0463,3 SKIP ERROR TRACK MOD2 06220 007416 2000467626 06230 FT READ,22 2 MOD2 06230 007423 7000013363 06240 CB2 0133,3 MOD2 06240 * 007430 3000753642 06250 JE ADD-10 MOD2 06250 007435 2000462626 06260 FT WRIT,22 2 MOD2 06260 007442 7000013363 06270 CB2 0133,3 MOD2 06270 * 007447 3000046043 06280 JU 0460 MOD2 06280 007454 5600034722 062801 BA2 0347,2 TTTHHHHSSSSS 062801H 007461 5400003607 06281 LP 036,7 06281 007466 1600003721 06282 BS2 037,1 06282 007473 3400003674 06283 CC 036,074 4 H16 06283 * 007500 3000752442 06284 JE SKIPT 06284 007505 5600034704 06285 BA1 0347,4 06285 007512 6000001740 06286 AC 017,040 0 06286 * 007517 3000454431 06287 JC REP-5,2525 06287 007524 4400001700 06288 SKIPT SC 017,0 06288 * 007531 3000454431 06290 JC REP-5,2525 MOD2 06290 007536 6000001740 06300 AC 017,040 0 INC H'1 TO SKIP ERROR TRACK MOD2 06300 1 * 007543 3000467131 06310 JC READ-5,2,25 MOD2 06310 007550 6001051401 06320 ADD AC FOUR,1 INCRIMENT ERROR COUNT MOD2 06320 * 007555 3000046000 06330 J 0460 MOD2 06330 000020 06340 AC EQU 020 MOD2 06340 * 007562 3000000000 06350 D1 J 0 MOD2 06350 007567 4400002404 06360 SC AC+4,4 MOD2 06360 007574 6401041104 06370 LS DMMY,4 MOD2 06370 * 007601 3000756200 06380 J D1 MOD2 06380 * 007606 3000000000 06390 D2 J 0 MOD2 06390 007613 4400002504 06400 SC AC+5,4 MOD2 06400 007620 6401041102 06410 LS DMMY,2 MOD2 06410 * 007625 3000760600 06420 J D2 MOD2 06420 * 007632 3000000000 06430 D3 J 0 MOD2 06430 007637 4400002604 06440 SC AC+6,4 MOD2 06440 007644 6401041101 06450 LS DMMY,1 MOD2 06450 * 007651 3000763200 06460 J D3 MOD2 06460 * 007656 3000000000 06470 D4 J 0 MOD2 06470 007663 4400002704 06480 SC AC+7,4 MOD2 06480 * 007670 3000765600 06490 J D4 MOD2 06490 * 007675 3000000000 06500 D5 J 0 MOD2 06500 007702 4400003004 06510 SC AC+8,4 MOD2 06510 * 007707 3000767500 06520 J D5 MOD2 06520 * 007714 3000000000 06530 D6 J 0 MOD2 06530 007721 4400003104 06540 SC AC+9,4 MOD2 06540 * 007726 3000771400 06550 J D6 MOD2 06550 * 007733 3000000000 06560 D7 J 0 MOD2 06560 007740 4400003204 06570 SC AC+10,4 4 MOD2 06570 * 007745 3000773300 06580 J D7 MOD2 06580 * 007752 3000000000 06590 D8 J 0 MOD2 06590 007757 4400003304 06600 SC AC+11,4 4 MOD2 06600 * 007764 3000775200 06610 J D8 MOD2 06610 * 007771 3000000000 06620 D9 J 0 MOD2 06620 007776 4400003404 06630 SC AC+12,4 4 MOD2 06630 * 010003 3000777100 06640 J D9 MOD2 06640 * 010010 3000000000 06650 D10 J 0 MOD2 06650 010015 4400003504 06660 SC AC+13,4 4 MOD2 06660 * 010022 3001001000 06670 J D10 MOD2 06670 * 010027 3000000000 06680 D11 J 0 MOD2 06680 010034 4400003604 06690 SC AC+14,4 4 MOD2 06690 * 010041 3001002700 06700 J D11 MOD2 06700 * 010046 3000000000 06710 D12 J 0 MOD2 06710 010053 4400003704 06720 SC AC+15,4 4 MOD2 06720 * 010060 3001004600 06730 J D12 MOD2 06730 * 010065 3000000000 06740 PRT J 0 MOD2 06740 010072 5201212520 06750 SA2 PRTAR+2121,16 MOD2 06750 010077 2001210040 06760 FT PRTAR,3232 MOD2 06760 010104 4400020701 06770 SC 0207,1 MOD2 06770 010111 4000620400 06780 XF 062,0040400,0,0 MOD2 06780 010116 4400020702 06790 SP SC 0207,02 2 06790 010123 4000640000 06800 XF 064,0,0,0,0 MOD2 06800 010130 4401210000 06810 SC PRTAR,0 0 MOD2 06810 010135 2001210120 06820 FT PRTAR+1,1,16 MOD2 06820 010142 2000007722 06830 FT 63,18 MOD2 06830 010147 2401210001 06840 TFR PRTAR MOD2 06840 * 010154 3001006500 06850 J PRT MOD2 06850 * 010161 3000000000 06860 CMPER J 0 MOD2 06860 010166 4600001737 06870 BT 017,31 MOD2 06870 010173 2600017301 06880 SET PD SH,1 EDIT DRUM ADDRESSES FOR MOD2 06880 010200 1600017423 06890 BS2 SH+1,3 ERROR PRINT OUT MOD2 06890 010205 6000017303 06900 AC SH,3 MOD2 06900 010212 5600017321 06910 BA2 SH,1 MOD2 06910 010217 5301212621 06920 SA2 PRTAR+2222,1,4 MOD2 06920 010224 6000006301 06930 AC X4,1 MOD2 06930 * 010231 3201017302 06940 JL SET,2 MOD2 06940 010236 4401023502 06950 SC $-1,2 MOD2 06950 010243 1600017706 06960 BS4 SH+4,6 MOD2 06960 * 010250 3201017304 06970 JL SET,4 MOD2 06970 010255 4401025404 06980 SC $-1,4 MOD2 06980 * 010262 3000725766 06990 JC RET,54 MOD2 06990 010267 6000006304 07000 AC X4,4 MOD2 07000 010274 4661244737 07010 BTC BT AREA+16767,31,3 OR BT AREA,31,3 FOR PREPRD MOD2 07010 * 010301 3201017302 07020 JL SET,2 MOD2 07020 010306 4401030502 07030 SC $-1,2 MOD2 07030 010313 2600006304 07040 PD X4,4 MOD2 07040 010320 5601050720 07050 BA2 CERR,16 6 MOD2 07050 010325 4401012200 07060 SC SP+4,0 MOD2 07060 * 010332 1001007024 07070 JR PRT,20 MOD2 07070 * 010337 3001016100 07080 J CMPER MOD2 07080 000173 07090 SH EQU 0173 MOD2 07090 010344 4400514710 07100 MSIZE SC SCNT+4,8,8 SET UP FOR 32 SECTOR WRITE MOD2 07100 010351 4400467010 07110 SC RSCNT+4,4,8 MOD2 07110 010356 4401040440 07120 SC SEC,32 AND READ IF LESS THAN 16K MEM MOD2 07120 010363 4401040300 07130 SC SEC-1,0 0 MOD2 07130 * 010370 3000136736 07140 JC START,3030 MOD2 07140 000137 07150 T23 EQU 0137 MOD2 07150 010400 00000001 07160 ONE +4 1 MOD2 07160 010404 00000040 07170 SEC +4 040 MOD2 07170 010407 000005 07180 FIVE +3 05 MOD2 07180 010410 00 07190 HWSIN +1 0 MOD2 07190 010411 00 07200 DMMY +1 00 MOD2 07200 * 010412 3000555400 07210 PRTRS J ADVTR MOD2 07210 010417 00 07220 FRSTE +1 0 MOD2 07220 * 010420 3000305343 07230 FXH1 JU KNH1 MOD2 07230 * 010425 3000276400 07240 FNPST J NPOST MOD2 07240 010434 001 07250 WR +3 _001_ MOD2 07250 010437 000 07260 RDD +3 _000_ MOD2 07260 010442 U00 07270 U +3 _U00_ MOD2 07270 010447 FSB0 07280 FSB +5 _ FSB0_ _ MOD2 07280 010452 M0 07290 M +3 _ M0_ MOD2 07290 010457 T000 07300 T +5 _ T000_ _ MOD2 07300 010463 H00 07310 H +4 _ H00_ MOD2 07310 010467 S00 07320 S +4 _ S00_ MOD2 07320 010507 COMP ERROR 07330 CERR +16 _COMP ERERROR _ MOD2 07330 010513 00000250 07340 ADV +4 168 MOD2 07340 010514 00 07350 FOUR +1 0 MOD2 07350 000047 07360 X1 EQU 047 MOD2 07360 000053 07370 X2 EQU 053 MOD2 07370 000057 07380 X3 EQU 057 MOD2 07380 000063 07390 X4 EQU 063 MOD2 07390 000067 07400 X5 EQU 067 MOD2 07400 010520 00000620 07410 K54 +4 0620 MOD2 07410 * 010521 3000253600 07420 FJSIX J TRSIX MOD2 07420 * 010526 3000472200 07430 FRDLY J NOCOM F FOR RD ONLY MOD2 07430 O 010533 00 07440 FRSTR +1 0 MOD2 07440 010534 05 07450 DD2 +1 05 MOD2 07450 010536 40 07460 H40 +2 _40_ MOD2 07460 010556 PREP READ ALL TR 07470 NDPRA +16 _PREP REREAD ALL TR_ MOD2 07470 010576 ACKS HEAD 00 07480 NDPRB +16 _ACKS HEHEAD 00 _ MOD2 07480 010616 POS. TEST MOD FS 07490 PTST +16 _POS. TETEST MOD FS_ MOD2 07490 010636 PREWRITE TRACK 0 07500 PWR +16 _PREWRITITE TRACK 0_ MOD2 07500 K 010656 ,1,2,175,176,177 07510 PREWR +16 _,1,2,17175,176,177_ MOD2 07510 1 010671 175,176,177 07520 TFS2 +11 _175,17676,177_ MOD2 07520 010704 135,136,137 07530 TFS1 +11 _135,13636,137_ MOD2 07530 010717 055,056,057 07540 THFS +11 _055,05656,057_ MOD2 07540 010737 POSITION WRITE T 07550 PT +16 _POSITIOION WRITE T_ MOD2 07550 E 010757 RACKS 1,176 07560 TRKS +16 _RACKS 1 1,176 _ MOD2 07560 010777 READ AND COMPARE 07570 RC +16 _READ ANAND COMPARE_ MOD2 07570 A 011017 TRACKS 0,1,2,17 07580 TS +16 _ TRACKSKS 0,1,2,17_ MOD2 07580 , 011037 5,176,177 07590 TN +16 _5,176,1,177 _ MOD2 07590 011057 READ ONLY 07600 RDNLY +16 _READ ONONLY _ MOD2 07600 011063 ONCE 07610 ONCE +4 _ ONCE____ MOD2 07610 011101 AND CYCLES ON 07620 CYC +14 _AND CYCYCLES ON _ MOD2 07620 011105 00136000 07630 ANFS1 +4 0136000 0 FS1 MOD2 07630 011111 00001000 07640 ATFS1 +4 01000 MOD2 07640 011115 01364000 07650 BNFS1 +4 0136400000 MOD2 07650 011121 00014000 07660 BTFS1 +4 014000 MOD2 07660 011125 00176000 07670 APFS2 +4 0176000 0 FS2 MOD2 07670 011131 00001000 07680 AKFS2 +4 01000 MOD2 07680 011135 02764000 07690 BPFS2 +4 0276400000 MOD2 07690 011141 00014000 07700 BKFS2 +4 014000 MOD2 07700 011145 00056000 07710 ANHVF +4 056000 HV MOD2 07710 011151 00001000 07720 ATHVF +4 01000 MOD2 07720 011155 00564000 07730 BNHVF +4 00056400000 MOD2 07730 011161 00014000 07740 BTHVF +4 014000 MOD2 07740 011165 00000000 07750 +4 00 DA LOWER TRACKS MOD2 07750 L 011171 00000740 07760 +4 0740 T0 H17 MOD2 07760 H 011175 00004000 07770 +4 00000400000 DB LOWER TRACKS MOD2 07770 L 011201 00007700 07780 RPOS1 +4 00000770700 MOD2 07780 011205 00175000 07790 +4 0175000 0 MOD2 07790 011211 00017540 07800 +4 017540 MOD2 07800 011215 02754000 07810 +4 00275400000 DB UPPER TRACKS MOD2 07810 U 011221 02757700 07820 RPOS2 +4 00275770700 MOD2 07820 011225 00002740 07830 MAXR1 +4 02740 LOWER MAX MOD2 07830 E 011231 00027700 07840 BMXR1 +4 00002770700 DB MAX MOD2 07840 M 011235 00177740 07850 MAXR2 +4 0177740 0 UPPER MAX MOD2 07850 E 011241 02777700 07860 BMXR2 +4 00277770700 MOD2 07860 011245 00177000 07870 AP1F2 +4 0177000 0 MOD2 07870 011251 00000000 07880 ANFS2 +4 00000000000 191 DEC MOD2 07880 011255 02774000 07890 BP1F2 +4 00277400000 MOD2 07890 011261 00004000 07900 BNFS2 +4 00000400000 MOD2 07900 011265 00000000 07910 +4 00 MOD2 07910 011271 00002740 07920 +4 02740 MOD2 07920 011275 00004000 07930 +4 00000400000 MOD2 07930 011301 00027700 07940 ILF2B +4 00002770700 MOD2 07940 011305 00175000 07950 +4 0175000 0 MOD2 07950 011311 00177740 07960 +4 0177740 0 MOD2 07960 011315 02754000 07970 +4 0275400000 MOD2 07970 011321 02777700 07980 IUP2B +4 00277770700 MOD2 07980 011325 00000000 07990 +4 00 MOD2 07990 011331 00002740 08000 +4 02740 MOD2 08000 011335 00004000 08010 +4 04000 MOD2 08010 011341 00027700 08020 ILF1B +4 00002770700 MOD2 08020 011345 00135000 08030 +4 0135000 0 MOD2 08030 011351 00137740 08040 +4 0137740 0 MOD2 08040 011355 01354000 08050 +4 0135400000 MOD2 08050 011361 01377700 08060 IUP1B +4 0137770000 MOD2 08060 011365 00000000 08070 +4 00 MOD2 08070 011371 00002740 08080 +4 02740 MOD2 08080 011375 00024000 08090 +4 024000 MOD2 08090 011401 00027700 08100 ILHVB +4 00002770700 MOD2 08100 011405 00055000 08110 +4 055000 MOD2 08110 011411 00057740 08120 +4 057740 MOD2 08120 011415 00554000 08130 +4 0554000 0 MOD2 08130 011421 00577700 08140 IPHVB +4 00057770700 MOD2 08140 011425 00000000 08150 +4 00 MOD2 08150 011431 00002740 08160 LF2A +4 02740 MOD2 08160 011435 00004000 08170 +4 00000400000 MOD2 08170 011441 00027700 08180 WLF2B +4 00002770700 MOD2 08180 011445 00175000 08190 +4 0175000 0 MOD2 08190 011451 00177740 08200 WUP2A +4 0177740 0 MOD2 08200 011455 02754000 08210 +4 00275400000 MOD2 08210 011461 02777700 08220 WUP2B +4 00277770700 MOD2 08220 011465 00000000 08230 UTHSA +4 00 MOD2 08230 011471 00004000 08240 UTHSB +4 04000 MOD2 08240 011475 00001740 08250 FDLMA +4 01740 MOD2 08250 011501 00000740 08260 FVLMA +4 0740 MOD2 08260 011505 00000000 08270 ODLMA +4 00 MOD2 08270 011511 00000000 08280 EVLMA +4 00 MOD2 08280 011515 00176000 08290 +4 0176000 0 MOD2 08290 011521 00001000 08300 +4 01000 MOD2 08300 011525 02764000 08310 +4 0276400000 MOD2 08310 011531 00014000 08320 BTFS2 +4 014000 MOD2 08320 011535 00000000 08330 TMDWA +4 00 MOD2 08330 011541 00000000 08340 TMDWB +4 00 MOD2 08340 011545 00000000 08350 TMDRA +4 00 MOD2 08350 011551 00000000 08360 TMDRB +4 00 MOD2 08360 011555 00001000 08370 ODLOA +4 01000 MOD2 08370 011561 00137740 08380 UPODA +4 0137740 0 MOD2 08380 011565 00014000 08390 ODLOB +4 00001400000 MOD2 08390 011571 01377700 08400 UPLMB +4 00137770700 02777700 MOD2 08400 011575 00175000 08410 +4 0175000 0 MOD2 08410 011601 00175740 08420 +4 0175740 0 MOD2 08420 011605 02754000 08430 +4 00275400000 MOD2 08430 011611 02757700 08440 POSD2 +4 00275770700 MOD2 08440 011615 00177740 08450 +4 0177740 0 MOD2 08450 011621 02777700 08460 MXR2 +4 00277770700 MOD2 08460 011625 00055000 08470 +4 055000 MOD2 08470 011631 00055740 08480 +4 055740 MOD2 08480 011635 00554000 08490 +4 00055400000 MOD2 08490 011641 00557700 08500 POSDH +4 00055770700 MOD2 08500 011645 00057740 08510 +4 057740 MOD2 08510 011651 00577700 08520 MXR2H +4 00057770700 MOD2 08520 011655 00135000 08530 +4 0135000 0 MOD2 08530 011661 00135740 08540 +4 0135740 0 MOD2 08540 011665 01354000 08550 +4 00135400000 MOD2 08550 011671 01357700 08560 POSD1 +4 00135770700 MOD2 08560 011675 00137740 08570 +4 0137740 0 MOD2 08570 011701 01377700 08580 MXR21 +4 00137770700 MOD2 08580 011705 00177000 08590 PREP2 +4 0177000 0 MOD2 08590 011711 00100000 08600 PREP1 +4 0100000 0 MOD2 08600 011715 00057000 08610 PREPH +4 057000 MOD2 08610 011721 00030000 08620 +4 030000 MOD2 08620 011723 0275 08630 K275 +2 00275 MOD2 08630 011730 0000157501 08640 UFST +5 0157501 1 MOD2 08640 011734 00000000 08650 STORE +4 00 MOD2 08650 * 011735 3000347600 08660 FXRPS J RDPOS MOD2 08660 011745 00000250 08670 K168 +4 0250 MOD2 08670 011746 00 08680 WPOSB +1 00 MOD2 08680 011747 00 08690 RPOSB +1 00 MOD2 08690 011767 ER6 000000000000 08700 ER6 +16 _ER6 00000000000000_ MOD2 08700 0 * 011770 3000000031 08710 JC 0,25 MOD2 08710 011777 006735 08720 IE6 +3 IPT6 MOD2 08720 * 012000 3000000031 08730 JC 0,25 MOD2 08730 012007 006704 08740 IE0 +3 IPT0 MOD2 08740 * 012010 3000000160 08750 IPT1 JD 1 MOD2 08750 012017 012010 08760 +3 IPT1 MOD2 08760 * 012020 3000000260 08770 I2 JD 2 MOD2 08770 012027 012020 08780 IE2 +3 I2 MOD2 08780 012100 08790 ORIG $,64 MOD2 08790 012100 100 08800 PRTAR AREA 64,B,0 MOD2 08800 012200 08810 AREA EQU $ MOD2 08810 0000 ERROR LINES 3000135000 08820 END STRT MOD2 08820 {-- tape mark --} 008433 C631 LOCK CODEDIT SOURCE 08/65 - T3834394-63 001350 00010 T630 BEGIN 01350 LOCK 00010 *LOAD 017300,T,TAPE,R,PRELD P * 001350 3007010660 * JD 070106 * * 001355 3000135000 * J $-5 * SEGMENT-ID T631 3000135000 * SEGJP $-10 * 017000 * ORIG 017000 * * 017000 3001700020 * JHJ $ * 017007 000500 * +3 0500 * * 017010 3001701020 * JHJ $ * 017017 000510 * +3 0510 * * 017020 3001702020 * JHJ $ * 017027 000440 * +3 0440 * 017030 5601701700 * BA1 017000+1+15,16 * 017035 5200051700 * SA1 0517,16 6 * 017042 5601702710 * BA1 017000+2+23,8 * 017047 5200044710 * SA1 0447,8 * 017054 2000000361 * FT 3,49 * 017061 2000040060 * FT 0400,48 8 * 017066 4100610100 * XF 061,010000,0,4 * 017073 2000024261 * FT 162,49 * 017100 4100610100 * XF 061,010000,0,4 * * 017105 3000044000 * J 0440 * SEGMENT-ID T632 3001703000 * SEGJP $-50 * 000440 * ORIG 0440 * * 000440 3000044536 * JC $+5,036 6 * 000445 6000050740 * AC 0507,04040 * 000452 2001751611 * FT 017300+0+0216,9,0 * 0 000457 2001730060 * FT 017300,4,48,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 2001751660 * FT 017300+0+0216,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 3001734000 * J 017300+0+040,0 * 017340 * ORIG 017300+0+040 * 017340 4100610100 * XF 061,010000,0,4 * 017345 6000001701 * AC 15,1 * 017352 3420022211 * CC 146,9,1 1 * * 017357 3001746542 * JE $+70 * 017364 2600004104 * PD 041,4 * 017371 3620021700 * CS 143,0,1 1 * 017376 3620011700 * CS 79,0,1 * 017403 3620001712 * CS 15,10,1 1 * 017410 1600004166 * BC2 041,6 * 017415 3620022102 * CS 145,2,1 1 * 017422 7000004162 * CB2 041,2 * * 017427 3001744142 * JE $+10 * * 017434 3007010460 * JD 070104 * 017441 4620003520 * BT 29,16,1 1 * 017446 4620003722 * BT 31,18,1 1 * 017453 2420004001 * TFR 32,,1 * * 017460 3001734000 * J $-80 * 017465 4100640000 * XF 064,0,0,0,4 * 017472 7020004642 * CB1 38,2,1 * * 017477 3020004042 * JE 32,1 * * 017504 3007010560 * JD 070105 * * 017511 3020004000 * J 32,1 * 017516 245 * AREA 165 * SEGMENT-ID T633 3001776300 * SEGJP $ * 001350 00030 ORIG 01350 DSPT1 00030 * 001350 3000000060 00040 STOP0 JD 00 LOCK 00040 001355 4400230201 00050 SC LOAD,1 DUMP DRUM DATA AFTER STORE LOCK 00050 001362 2600143603 00060 PD MFR,3 LOCK 00060 001367 4400501365 00070 SC XF+2,06565 00070 001374 2600142700 00080 PD TPAD,16 6 PAD PROGRAM INDICATORS LOCK 00080 * 001401 3000241425 00090 JC INIT,21 1 LOCK 00090 001411 00000000 00100 +4 0 LOCK 00100 001412 00 00110 FLIM +1 0 ULIM1 EQUALS FILE LIMIT LOCK 00110 001413 00 00120 DAM1 +1 0 SUB. 1 FROM TRACK ADDRESS LOCK 00120 001414 00 00130 WB0A +1 0 RESTORE LOCKED SECTOR TO 00 LOCK 00130 001415 00 00140 WG0A +1 0 RESTORE GOOD SECTOR TO 00 LOCK 00140 001416 00 00150 DMP +1 0 DUMP DATA AREA LOCK 00150 001417 00 00160 STR +1 00 INITIAL READ LOCK 00160 001420 00 00170 REST +1 00 RESTORE LOCK 00170 001421 00 00180 WB +1 00 LOCKOUT WRITE LOCK 00180 001422 00 00190 RB +1 00 READ AFTER LOCKOUT WRITE LOCK 00190 001423 00 00200 WG +1 00 WRITE NOT LOCKOUT LOCK 00200 001424 00 00210 RG +1 00 READ AFTER WRITE WG LOCK 00210 001425 00 00220 FB1 +1 00 TESTING FASTBANDS LOCK 00220 001426 00 00230 WG0 +1 00 WRITE 00 ON SECTORS LOCK 00230 001427 00 00240 TPAD +1 00 ASSEMBLE TWO TRACK PRINTOUTS LOCK 00240 001433 00000000 00250 ULIM2 +4 00 SHIFTED ONCE EACH READ LOCK 00250 000017 00260 AR1 EQU 017 LOCK 00260 000037 00270 AR2 EQU 037 LOCK 00270 000063 00280 X4 EQU 063 LOCK 00280 001434 00 00290 LIMI +1 00 SHIFT LIMIT INDICATOR LOCK 00290 001435 00 00300 FB +1 00 FASTBAND TEST LOCK 00300 001436 00 00310 MFR +1 0 MODULAR FASTRAND TEST LOCK 00310 001500 00320 ORIG $,64 LOCK 00320 001500 00330 PEI1 EQU $ LOCK 00330 001517 000000000000 00340 +16 _00000000000000 _ LOCK 00340 001537 WRITE ALLOWED 00350 WA +16 _WRITE A ALLOWED _ LOCK 00350 001557 ON TRACK 000 WIT 00360 +16 _ON TRACACK 000 WIT_ LOCK 00360 W 001577 H 000 TRACKS LOC 00370 +16 _H 000 T TRACKS LOC_ LOCK 00370 L 001600 00380 PEI3 EQU $ LOCK 00380 001617 000000000000 00390 +16 _00000000000000 _ LOCK 00390 001637 IND. SET ON 00400 IS0 +16 _IND. SESET ON _ LOCK 00400 001657 LOCKOUT WRITE 00410 LW +16 _LOCKOUTUT WRITE _ LOCK 00410 001677 00420 +16 _ _ LOCK 00420 001717 IND SET ON WRITE 00430 ISW +16 _IND SETET ON WRITE_ LOCK 00430 I 001724 READ 00440 R +5 _ READ_ _ 00440 001744 INITIAL READ 00450 IR +16 _INITIALAL READ _ LOCK 00450 001764 RESTORE READ 00460 RR +16 _RESTORERE READ _ LOCK 00460 002004 RESTORE WRITE 00470 RW +16 _RESTORERE WRITE _ LOCK 00470 002024 READ AFTER LOCKO 00480 +16 _READ AFAFTER LOCKO_ LOCK 00480 C 002044 UT WRITE 00490 RLW +16 _UT WRITITE _ LOCK 00490 002064 COULD NOT WRITE 00500 CNW +16 _COULD N NOT WRITE_ LOCK 00500 T 002104 INITIAL WRITE 00510 IW +16 _INITIALAL WRITE _ LOCK 00510 002124 DATA RECORD 00520 DR +16 _DATA RERECORD_ LOCK 00520 002136 FASTBANDS 00530 FBP +10 _ FASTBABANDS_ LOCK 00530 002200 00540 ORIG $,64 LOCK 00540 002200 100 00550 PBA AREA 64,B,0 PRINTOUT AREA LOCK 00550 002300 14 00560 COUNT +1 12 LOCK 00560 002301 01 00570 ONE +1 1 LOCK 00570 002302 01 00580 LOAD +1 1 LOCK 00580 002303 05 00590 FIVE +1 5 LOCK 00590 002304 12 00600 TEN +1 10 LOCK 00600 002305 53 00610 FT +1 43 LOCK 00610 002306 64 00620 FTWO +1 52 LOCK 00620 002307 02 00630 TWO +1 2 LOCK 00630 002327 NO INTERRUPT 00640 NI +16 _NO INTETERRUPT _ LOCK 00640 002333 00000000 00650 ULIM +4 00 UPPER LIMIT NOT SHIFTED LOCK 00650 002337 00000000 00660 ULIM1 +4 00 SHIFTED ONCE EACH TEST LOCK 00660 002343 00000300 00670 SECT +4 00000030300 LOCK 00670 002347 00000253 00680 SEC +4 171 LOCK 00680 002353 00000000 00690 TANK +4 0 LOCK 00690 002373 DRUM AD 00000000 00700 DRAD +16 _DRUM ADAD 00000000_ LOCK 00700 0 002413 RESTOR TEST DATA 00710 RTD +16 _RESTOR R TEST DATA_ LOCK 00710 A 002414 5600252430 00720 INIT BA2 IE6,8 CLASS 1,2 INT. LOAD LOCK 00720 002421 5200046730 00730 SA2 0467,8 LOCK 00730 002426 5600253430 00740 BA2 IE0,8 LOCK 00740 002433 5200040730 00750 SA2 0407,8 LOCK 00750 002440 5600255420 00760 BA2 IC2,16 LOCK 00760 002445 5200051720 00770 SA2 0517,16 6 LOCK 00770 002452 4401270000 00780 SC RDI0+030300,0 LOCK 00780 002457 2000000022 00790 FT 0,18 RDI0 THRU RDI0+4K LOCK 00790 002464 2001270120 00800 FT RDI0+030301,16 LOCK 00800 002471 2401270021 00810 TFI RDI0+030300 LOCK 00810 002476 2401270021 00820 TFI RDI0+030300 LOCK 00820 002503 2401270021 00830 TFI RDI0+030300 LOCK 00830 * 002510 3000261331 00840 JC ULS,25 0 TO IR3 LOCK 00840 * 002515 3000000031 00850 JC 0,25 LOCK 00850 002524 006502 00860 IE6 +3 IPT6 LOCK 00860 * 002525 3000000031 00870 JC 0,25 LOCK 00870 002534 010407 00880 IE0 +3 INT0 LOCK 00880 * 002535 3000000060 00890 JD 0 LOCK 00890 002544 002601 00900 IC1 +3 EIC1 LOCK 00900 * 002545 3000000060 00910 JD 0 LOCK 00910 002554 002555 00920 IC2 +3 EIC2 LOCK 00920 * 002555 3000200060 00930 EIC2 JD 02000 LOCK 00930 * 002562 3000256754 00940 JC $+5,44 LOCK 00940 * 002567 3000257416 00950 JC $+5,14 LOCK 00950 * 002574 3000135035 00960 JC STOP0,2929 LOCK 00960 * 002601 3000100060 00970 EIC1 JD 01000 LOCK 00970 * 002606 3000135036 00980 JC STOP0,3030 LOCK 00980 002613 5600000724 00990 ULS BA2 007,4 STORE UPPER LIMIT LOCK 00990 002620 5200233324 01000 SA2 ULIM,4 LOCK 01000 002625 5200143324 01010 SA2 ULIM2,4 4 LOCK 01010 002632 3400000301 01020 CC 3,1 LOCK 01020 * 002637 3000273342 01030 JE MFRS LOCK 01030 002644 5400143003 01040 LP ULIM2-3,3,3 LOCK 01040 002651 3400143003 01050 CC ULIM2-3,3,3 LOCK 01050 * 002656 3000267042 01060 JE $+10 LOCK 01060 * 002663 3000267543 01070 JU $+10 LOCK 01070 002670 4400143501 01080 SC FB,1 FASTBAND TEST LOCK 01080 002675 3400143177 01090 CC ULIM2-2,2,077 LOCK 01090 * 002702 3000302242 01100 JE LIMS3 _FASTRAND II TEST LOCK 01100 002707 3400143137 01110 CC ULIM2-2,2,037 LOCK 01110 * 002714 3000303442 01120 JE LIMS2 FASTRAND I TEST LOCK 01120 * 002721 3000000160 01130 JD 1 UPPER LIMIT INCORRECT LOCK 01130 * 002726 3000135000 01140 J STOP0 LOCK 01140 002733 4400143601 01150 MFRS SC MFR,1 LOCK 01150 002740 5400143002 01160 LP ULIM2-3,3,2 LOCK 01160 002745 3400143002 01170 CC ULIM2-3,3,2 LOCK 01170 * 002752 3000276443 01180 JU $+10 LOCK 01180 002757 4400143501 01190 SC FB,1 LOCK 01190 002764 4400143420 01200 SC LIMI,02020 LOCK 01200 * 002771 3000304100 01210 J FAD LOCK 01210 002776 2600233302 01220 MFRAD PD ULIM,2 LOCK 01220 003003 5400233160 01230 LP ULIM-2,0,060 LOCK 01230 003010 5400233075 01240 LP ULIM-3,0,075 LOCK 01240 * 003015 3000310400 01250 J MFRC LOCK 01250 003022 4400143404 01260 LIMS3 SC LIMI,4 LOCK 01260 * 003027 3000304100 01270 J FAD LOCK 01270 003034 4400143402 01280 LIMS2 SC LIMI,2 LOCK 01280 003041 4400141701 01290 FAD SC STR,1 LOCK 01290 * 003046 3000306000 01300 J $+10 LOCK 01300 * 003053 3000000000 01310 FAD1 J 00 FASTRAND ADDRESS GEN. LOCK 01310 003060 3400143601 01320 CC MFR,1 LOCK 01320 * 003065 3000277642 01330 JE MFRAD LOCK 01330 003072 2600233303 01340 PD ULIM,3 LOCK 01340 003077 5400233074 01350 LP ULIM-3,0,074 LOCK 01350 003104 5600233324 01360 MFRC BA2 ULIM,4 LOCK 01360 003111 5200233724 01370 SA2 ULIM1,4 4 LOCK 01370 003116 5200143324 01380 SA2 ULIM2,4 4 LOCK 01380 003123 5200034724 01390 SA2 DA,4 LOCK 01390 000347 01400 DA EQU 0347 LOCK 01400 000343 01410 MA EQU 0343 LOCK 01410 003130 3400142601 01420 CC WG0,1 LOCK 01420 * 003135 3000314742 01430 JE $+10 LOCK 01430 003142 2001240070 01440 FT RDI0,56 6 LOCK 01440 003147 6400034120 01450 LS MA-2,02020 LOCK 01450 003154 4400034000 01460 SC MA-3,0 LOCK 01460 * 003161 1000472500 01470 JR STORE STORE DATA TRACK 00 LOCK 01470 003166 3400143601 01480 CC MFR,1 LOCK 01480 * 003173 3000342142 01490 JE MFR1 LOCK 01490 003200 4400143101 01500 SC ULIM2-2,2,1 LOCK 01500 * 003205 3000321200 01510 MFR2 J SHIFF LOCK 01510 003212 3400143601 01520 SHIFF CC MFR,1 LOCK 01520 * 003217 3000343342 01530 JE MFR3 LOCK 01530 003224 3400141301 01540 CC DAM1,1 LOCK 01540 * 003231 3000330642 01550 JE MFR27 LOCK 01550 003236 5400143003 01560 LP ULIM2-3,3,3 LOCK 01560 003243 1600143121 01570 BS2 ULIM2-2,2,1 LOCK 01570 003250 5600143421 01580 BA2 LIMI,1 LOCK 01580 003255 7000143061 01590 CB2 ULIM2-3,3,1 LOCK 01590 * 003262 3000354142 01600 JE FBT LOCK 01600 003267 5600233021 01610 BA2 ULIM-3,1,1 LOCK 01610 003274 5200332421 01620 SA2 LSI1+4,1,1 LOCK 01620 003301 5200571221 01630 SA2 LSI9+4,1,1 LOCK 01630 003306 5600143324 01640 MFR27 BA2 ULIM2,4 4 LOCK 01640 003313 5200034724 01650 SA2 DA,4 LOCK 01650 003320 6400034400 01660 LSI1 LS DA-3,00 0 LOCK 01660 003325 3400142601 01670 MFR4 CC WG0,1 LOCK 01670 * 003332 3000335142 01680 JE $+15 LOCK 01680 003337 5600234324 01690 BA2 SECT,4 LOCK 01690 003344 7200034324 01700 AB2 MA,4 LOCK 01700 003351 3400141301 01710 CC DAM1,1 LOCK 01710 * 003356 3000340742 01720 JE MFR21 LOCK 01720 003363 4400141301 01730 SC DAM1,1 LOCK 01730 * 003370 1000453500 01740 JR DAM LOCK 01740 * 003375 1000472500 01750 MFR22 JR STORE LOCK 01750 * 003402 3000321200 01760 J SHIFF LOCK 01760 003407 4400141300 01770 MFR21 SC DAM1,0 LOCK 01770 * 003414 3000337500 01780 J MFR22 LOCK 01780 003421 4400143210 01790 MFR1 SC ULIM2-1,1,010 LOCK 01790 * 003426 3000320500 01800 J MFR2 LOCK 01800 003433 3400141301 01810 MFR3 CC DAM1,1 LOCK 01810 * 003440 3000351542 01820 JE MFR28 LOCK 01820 003445 5400143117 01830 LP ULIM2-2,2,017 LOCK 01830 003452 1600143221 01840 BS2 ULIM2-1,1,1 LOCK 01840 003457 5600143421 01850 BA2 LIMI,1 LOCK 01850 003464 7000143161 01860 CB2 ULIM2-2,2,1 LOCK 01860 * 003471 3000354142 01870 JE FBT LOCK 01870 003476 5600233121 01880 BA2 ULIM-2,1,1 LOCK 01880 003503 5200353321 01890 SA2 LSIM+4,1,1 LOCK 01890 003510 5200611421 01900 SA2 LSI8+4,1,1 LOCK 01900 003515 5600143324 01910 MFR28 BA2 ULIM2,4 4 LOCK 01910 003522 5200034724 01920 SA2 DA,4 LOCK 01920 003527 6400034500 01930 LSIM LS DA-2,0 LOCK 01930 * 003534 3000332500 01940 J MFR4 LOCK 01940 003541 3400143501 01950 FBT CC FB,1 STORE FASTBAND DATA LOCK 01950 * 003546 3000376742 01960 JE FBS LOCK 01960 003553 4400141700 01970 STR0 SC STR,0 LOCK 01970 003560 3400230200 01980 CC LOAD,0 LOCK 01980 * 003565 3000367342 01990 JE REST0 LOCK 01990 003572 4400230200 02000 SC LOAD,0 LOCK 02000 003577 2000220040 02010 FT PBA,32 LOCK 02010 003604 2600227700 02020 PD PBA+63,1,16 LOCK 02020 003611 2600225700 02030 PD PBA+47,1,16 LOCK 02030 003616 2600223700 02040 PD PBA+31,1,16 LOCK 02040 003623 5600212420 02050 BA2 DR,16 LOCK 02050 003630 5200221720 02060 SA2 PBA+15,1,16 LOCK 02060 * 003635 1001031600 02070 JR PRINT LOCK 02070 003642 2000366107 02080 FT $+15,7 LOCK 02080 003647 5201046223 02090 SA2 SNAP+23,3,3 LOCK 02090 * 003654 3001043300 02100 J SNAP DUMP DRUM DATA LOCK 02100 003661 2001031307 02110 FT PRINT,7 7 LOCK 02110 003666 5201046223 02120 SA2 SNAP+23,3,3 LOCK 02120 003673 3400142000 02130 REST0 CC REST,0 LOCK 02130 * 003700 3000371242 02140 JE $+10 LOCK 02140 * 003705 3000305300 02150 J FAD1 LOCK 02150 003712 3400142601 02160 CC WG0,1 LOCK 02160 * 003717 3000374342 02170 JE WGR LOCK 02170 003724 4400142601 02180 SC WG0,1 LOCK 02180 003731 2001265470 02190 FT WG0I+4,5,56 02190 * 003736 3000306000 02200 J FAD1+5 LOCK 02200 003743 4400142600 02210 WGR SC WG0,00 LOCK 02210 003750 4400501365 02220 SC XF+2,06565 LOCK 02220 003755 4400501400 02230 SC XF+3,00000 LOCK 02230 * 003762 3000417100 02240 J STOP2 LOCK 02240 003767 3400142601 02250 FBS CC WG0,1 LOCK 02250 * 003774 3000400642 02260 JE $+10 LOCK 02260 004001 2002010070 02270 FT RDI30,5656 LOCK 02270 004006 6400034120 02280 LS MA-2,02020 LOCK 02280 004013 4400034000 02290 SC MA-3,0 LOCK 02290 004020 5600233324 02300 BA2 ULIM,4 LOCK 02300 004025 5200034724 02310 SA2 DA,4 LOCK 02310 004032 5400501373 02320 LP XF+2,07373 DELETE POSITION BIT 02320 004037 3400143601 02330 CC MFR,1 LOCK 02330 * 004044 3000410242 02340 JE MFR5 LOCK 02340 004051 6400034403 02350 LS DA-3,3 LOCK 02350 004056 4400034577 02360 SC DA-2,07777 02360 * 004063 1000472500 02370 MFR6 JR STORE LOCK 02370 004070 6400501304 02380 LS XF+2,4 02380 * 004075 3000355300 02390 J STR0 LOCK 02390 004102 6400034402 02400 MFR5 LS DA-3,2 LOCK 02400 004107 6400034517 02410 LS DA-2,01717 02410 004114 6400034670 02420 LS DA-1,07070 02420 * 004121 3000406300 02430 J MFR6 LOCK 02430 004126 4400233610 02440 MFR7 SC ULIM1-1,1,010 LOCK 02440 * 004133 3000424100 02450 J CT LOCK 02450 004140 6400034402 02460 MFR9 LS DA-3,2 LOCK 02460 004145 6400034517 02470 LS DA-2,01717 02470 004152 6400034670 02480 LS DA-1,07070 02480 004157 6400233402 02490 LS ULIM1-3,3,2 LOCK 02490 * 004164 3000432300 02500 J MFR8 LOCK 02500 * 004171 3000000260 02510 STOP2 JD 2 INCREMENT SWITCH SETTING LOCK 02510 004176 5600233324 02520 BA2 ULIM,4 SET FASTBAND WRITE LOCKOUT LOCK 02520 004203 5200233724 02530 SA2 ULIM1,4 4 LOCK 02530 004210 5200143324 02540 SA2 ULIM2,4 4 LOCK 02540 004215 4400141200 02541 SC FLIM,0 02541 004222 3400143601 02550 CC MFR,1 LOCK 02550 * 004227 3000412642 02560 JE MFR7 LOCK 02560 004234 4400233501 02570 SC ULIM1-2,2,1 LOCK 02570 004241 4400142101 02580 CT SC WB,1 CONTINUE TEST LOCK 02580 004246 5600233724 02590 BA2 ULIM1,4 4 LOCK 02590 004253 5200034724 02600 SA2 DA,4 LOCK 02600 004260 3400142500 02610 CC FB1,0 LOCK 02610 * 004265 3000432342 02620 JE MFR8 LOCK 02620 004272 3400143601 02630 CC MFR,1 LOCK 02630 * 004277 3000414042 02640 JE MFR9 LOCK 02640 004304 6400034403 02650 LS DA-3,3 LOCK 02650 004311 4400034577 02660 SC DA-2,07777 02660 004316 6400233403 02670 LS ULIM1-3,3,3 LOCK 02670 004323 2001267070 02680 MFR8 FT WBI,56 LOCK 02680 004330 4400034001 02690 SC MA-3,1 LOCK 02690 004335 3400141201 02700 CC FLIM,1 LOCK 02700 * 004342 3000435442 02710 JE $+10 LOCK 02710 * 004347 1000453500 02720 JR DAM LOCK 02720 * 004354 3000436122 02730 JC $+5,18 SET SI1 LOCK 02730 * 004361 1000512700 02740 JR XFB LOCK 02740 * 004366 3000446200 02750 J TSI1 LOCK 02750 * 004373 3000000000 02760 BAL1 J 0 ASSEMBLE BLOCK TRANS. PEI1 TOLOCK 02760 004400 2000220020 02770 FT PBA,16 LOCK 02770 004405 2000220040 02780 FT PBA,32 LOCK 02780 004412 4400011201 02790 SC 74,1 LOCK 02790 004417 4400011300 02800 SC 75,0 LOCK 02800 004424 2400150001 02810 TFR PEI1 LOCK 02810 * 004431 3000437300 02820 J BAL1 LOCK 02820 * 004436 3000000000 02830 BAL2 J 0 ASSEMBLE COULD NOT WRITE LOCK 02830 004443 5600206420 02840 BA2 CNW,16 LOCK 02840 004450 5200223620 02850 SA2 PBA+30,1,16 LOCK 02850 * 004455 3000443600 02860 J BAL2 LOCK 02860 * 004462 3000447465 02870 TSI1 JC $+10,53 3 TEST SI1 FOR INT. LOCK 02870 * 004467 3000522000 02880 J SRB AFTER LOCKOUT WRITE LOCK 02880 * 004474 1000437600 02890 JR BAL1 LOCK 02890 004501 5600232720 02900 BA2 NI,16 LOCK 02900 004506 5200223720 02910 SA2 PBA+31,1,16 LOCK 02910 * 004513 1000776200 02920 JR TPA LOCK 02920 * 004520 1001031600 02930 JR PRINT LOCK 02930 * 004525 3000522000 02940 J SRB LOCK 02940 * 004532 3000000000 02950 DAM J 0 SUBTRACT 1 FROM TRACK ADD. LOCK 02950 004537 5600034704 02960 BA1 DA,4 LOCK 02960 004544 5200004104 02970 SA1 AR2+2,4 4 LOCK 02970 004551 3400143601 02980 CC MFR,1 LOCK 02980 * 004556 3000463342 02990 JE MFR20 LOCK 02990 004563 5400003603 03000 LP AR2-1,3 3 LOCK 03000 004570 4400001701 03010 SC AR1,1 LOCK 03010 004575 7200003742 03020 SB1 AR2,2 LOCK 03020 004602 5200034522 03030 SA2 DA-2,2 LOCK 03030 004607 5600233001 03040 BA1 ULIM-3,1,1 LOCK 03040 004614 5200462501 03050 SA1 LSI5+4,1,1 LOCK 03050 004621 6400034400 03060 LSI5 LS DA-3,0 LOCK 03060 * 004626 3000453200 03070 J DAM LOCK 03070 004633 4400003600 03080 MFR20 SC AR2-1,0 0 LOCK 03080 004640 5400003717 03090 LP AR2,017 7 LOCK 03090 004645 1600004033 03100 BS3 AR2+1,3 3 LOCK 03100 004652 4400001701 03110 SC AR1,1 LOCK 03110 004657 7200003742 03120 SB1 AR2,2 LOCK 03120 004664 1600003733 03130 BS3 AR2,3 LOCK 03130 004671 5200034622 03140 SA2 DA-1,2 LOCK 03140 004676 5600233101 03150 BA1 ULIM-2,1,1 LOCK 03150 004703 5200471401 03160 SA1 LSI4+4,1,1 LOCK 03160 004710 6400034500 03170 LSI4 LS DA-2,0 LOCK 03170 * 004715 3000453200 03180 J DAM LOCK 03180 * 004722 3000000000 03190 STORE J 0 STORE OR RESTORE DATA LOCK 03190 004727 4400501400 03200 SC XF+3,0 LOCK 03200 004734 3400142001 03210 CC REST,1 LOCK 03210 * 004741 3000476542 03220 JE SXFW LOCK 03220 004746 3400142601 03230 CC WG0,1 LOCK 03230 * 004753 3000477743 03240 JU XFRES LOCK 03240 004760 4400501410 03250 SC XF+3,01010 LOCK 03250 004765 5400501376 03260 SXFW LP XF+2,07676 03260 004772 6400501302 03270 LS XF+2,2 03270 004777 4140407777 03280 XFRES XF 040,0777777,0,6 LOCK 03280 * 005004 1000504000 03290 JR SDA LOCK 03290 005011 4140650000 03300 XF XF 065,0000000,0,6 LOCK 03300 005016 4400756606 03310 SC JLI+4,6 6 LOCK 03310 005023 4400735206 03320 SC JLI3+4,6,6 LOCK 03320 * 005030 3000472200 03330 J STORE LOCK 03330 * 005035 3000000000 03340 SDA J 0 STORE DRUM ADDRESS IN LOCK 03340 005042 5600234724 03350 BA2 SEC,4 DATA PRINTOUT AREA LOCK 03350 005047 5200235324 03360 SA2 TANK,4 LOCK 03360 005054 5600034323 03370 BA2 MA,3 LOCK 03370 005061 5400003507 03380 LP AR2-2,7 7 LOCK 03380 005066 7200235323 03390 AB2 TANK,3 LOCK 03390 005073 5600235323 03400 BA2 TANK,3 LOCK 03400 005100 5200511523 03410 SA2 SDAI+3,3,3 LOCK 03410 005105 5600034724 03420 BA2 DA,4 LOCK 03420 005112 5200000024 03430 SDAI SA2 0,4 LOCK 03430 * 005117 3000503500 03440 J SDA LOCK 03440 * 005124 3000000000 03450 XFB J 0 LOCK 03450 005131 6400521002 03460 LS XFW+2,2 2 03460 005136 5400521076 03470 LP XFW+2,07076 03470 005143 3400142101 03480 CC WB,1 LOCK 03480 * 005150 3000520142 03490 JE $+25 03490 005155 3400142301 03500 CC WG,1 LOCK 03500 * 005162 3000520142 03510 JE $+15 03510 005167 6400521001 03520 LS XFW+2,1 1 03520 005174 5400521075 03530 LP XFW+2,07075 03530 005201 4140407777 03540 XF 040,0777777,0,6 LOCK 03540 005206 4140661000 03550 XFW XF 066,0100000,0,6 LOCK 03550 * 005213 3000512400 03560 J XFB LOCK 03560 005220 4400142100 03570 SRB SC WB,0 READ ON LOCKOUT ADDRESS LOCK 03570 005225 4400142201 03580 SC RB,1 LOCK 03580 005232 2601266730 03590 PD0 RIA+7,8 8 LOCK 03590 005237 2001266070 03600 FT RIA,56 LOCK 03600 005244 4400034001 03610 SC MA-3,1 LOCK 03610 * 005251 1000512700 03620 JR XFB LOCK 03620 * 005256 1000644200 03630 JR COMP LOCK 03630 * 005263 3000533342 03640 JE RBR LOCK 03640 * 005270 1000437600 03650 JR BAL1 LOCK 03650 * 005275 1000776200 03660 JR TPA LOCK 03660 * 005302 1001031600 03670 JR PRINT LOCK 03670 005307 4400141401 03680 SC WB0A,1 RESTORE 00 TO LOCKOUT ADD. LOCK 03680 005314 4400142200 03690 SC RB,0 LOCK 03690 * 005321 1000626400 03700 JR W0A LOCK 03700 005326 4400141400 03710 SC WB0A,0 LOCK 03710 005333 4400142200 03720 RBR SC RB,0 LOCK 03720 005340 6400521004 03730 LS XFW+2,4 4 03730 005345 3400142501 03740 CC FB1,1 LOCK 03740 * 005352 3000632442 03750 JE FB1R LOCK 03750 005357 3400141201 03760 CC FLIM,1 LOCK 03760 * 005364 3000564342 03770 JE MFR13 LOCK 03770 005371 5600233724 03780 BA2 ULIM1,4 4 LOCK 03780 005376 5200143324 03790 SA2 ULIM2,4 4 LOCK 03790 005403 5600143324 03800 LOOP BA2 ULIM2,4 4 SHIFT ULIM2 NOT LIMIT LOCK 03800 005410 5200034724 03810 SA2 DA,4 LOCK 03810 005415 3400143601 03820 CC MFR,1 LOCK 03820 * 005422 3000577542 03830 JE MFR10 LOCK 03830 005427 5600332401 03840 BA1 LSI1+4,1,1 LOCK 03840 005434 5200544501 03850 SA1 $+9,1 LOCK 03850 005441 6400034400 03860 LS DA-3,00 0 LOCK 03860 005446 2001267070 03870 MFR11 FT WBI,56 LOCK 03870 005453 4400034001 03880 SC MA-3,1 LOCK 03880 005460 4400142301 03890 SC WG,1 LOCK 03890 * 005465 1000512700 03900 JR XFB LOCK 03900 005472 4400142300 03910 SC WG,0 LOCK 03910 005477 4400142401 03920 SC RG,1 LOCK 03920 005504 2001266070 03930 FT RIA,56 LOCK 03930 005511 4400034001 03940 SC MA-3,1 LOCK 03940 005516 2601266710 03950 PD RIA+7,8 8 LOCK 03950 * 005523 1000512700 03960 JR XFB LOCK 03960 * 005530 1000644200 03970 JR COMP LOCK 03970 * 005535 3000621142 03980 JE WG0AS LOCK 03980 * 005542 1000437600 03990 JR BAL1 LOCK 03990 * 005547 1000444100 04000 JR BAL2 LOCK 04000 005554 4400142701 04010 SC TPAD,1 LOCK 04010 * 005561 1000776200 04020 JR TPA LOCK 04020 * 005566 1001031600 04030 JR PRINT LOCK 04030 005573 3400143601 04040 LP1 CC MFR,1 LOCK 04040 * 005600 3000602142 04050 JE MFR12 LOCK 04050 005605 5400143003 04060 LP ULIM2-3,3,3 LOCK 04060 005612 4400142400 04070 SC RG,0 LOCK 04070 005617 1600143121 04080 BS2 ULIM2-2,2,1 LOCK 04080 005624 5600143421 04090 BA2 LIMI,1 LOCK 04090 005631 7000143061 04100 CB2 ULIM2-3,3,1 LOCK 04100 * 005636 3000540343 04110 JU LOOP LOCK 04110 * 005643 3000424163 04120 MFR13 JC CT,51 LOCK 04120 005650 3400143601 04130 CC MFR,1 LOCK 04130 * 005655 3000606442 04140 JE MFR14 LOCK 04140 005662 5400233403 04150 LP ULIM1-3,3,3 LOCK 04150 005667 1600233521 04160 BS2 ULIM1-2,2,1 LOCK 04160 005674 5600143421 04170 BA2 LIMI,1 LOCK 04170 005701 7000233461 04180 CB2 ULIM1-3,3,1 LOCK 04180 005706 6400233400 04190 LSI9 LS ULIM1-3,3,0 LOCK 04190 * 005713 3000616543 04200 JU MFR26 LOCK 04200 005720 3400143500 04210 MFR15 CC FB,0 LOCK 04210 * 005725 3000633142 04220 JE STOP4 LOCK 04220 005732 3400142501 04230 CC FB1,1 LOCK 04230 * 005737 3000632442 04240 JE FB1R LOCK 04240 005744 5400521073 04250 LP XFW+2,07073 04250 005751 4400142501 04260 SC FB1,1 LOCK 04260 005756 5600233304 04270 BA1 ULIM,4 LOCK 04270 005763 5200233704 04280 SA1 ULIM1,4 4 LOCK 04280 * 005770 3000424100 04290 J CT LOCK 04290 005775 5600353301 04300 MFR10 BA1 LSIM+4,1,1 LOCK 04300 006002 5200601301 04310 SA1 $+9,1 LOCK 04310 006007 6400034500 04320 LS DA-2,0 LOCK 04320 * 006014 3000544600 04330 J MFR11 LOCK 04330 006021 5400143117 04340 MFR12 LP ULIM2-2,2,017 LOCK 04340 006026 4400142400 04350 SC RG,0 LOCK 04350 006033 1600143221 04360 BS2 ULIM2-1,1,1 LOCK 04360 006040 5600143421 04370 BA2 LIMI,1 LOCK 04370 006045 7000143161 04380 CB2 ULIM2-2,2,1 LOCK 04380 * 006052 3000540343 04390 JU LOOP LOCK 04390 * 006057 3000564300 04400 J MFR13 LOCK 04400 006064 5400233517 04410 MFR14 LP ULIM1-2,2,017 LOCK 04410 006071 1600233621 04420 BS2 ULIM1-1,1,1 LOCK 04420 006076 5600143421 04430 BA2 LIMI,1 LOCK 04430 006103 7000233561 04440 CB2 ULIM1-2,2,1 LOCK 04440 006110 6400233500 04450 LSI8 LS ULIM1-2,2,0 LOCK 04450 * 006115 3000612743 04460 JU MFR25 LOCK 04460 * 006122 3000572000 04470 J MFR15 LOCK 04470 006127 5600233501 04480 MFR25 BA1 ULIM1-2,2,1 LOCK 04480 006134 5400001710 04490 LP AR1,010 0 LOCK 04490 006141 3400001710 04500 CC AR1,010 0 LOCK 04500 * 006146 3000635043 04510 JU STOP3 LOCK 04510 006153 4400141201 04520 SC FLIM,1 LOCK 04520 * 006160 3000635000 04530 J STOP3 LOCK 04530 006165 3400233401 04540 MFR26 CC ULIM1-3,3,1 LOCK 04540 * 006172 3000624243 04550 JU MFR32 LOCK 04550 006177 4400141201 04560 SC FLIM,1 LOCK 04560 * 006204 3000635000 04570 J STOP3 LOCK 04570 006211 4400141501 04580 WG0AS SC WG0A,1 RESTORE 00 TO UNLOCKED LOCK 04580 006216 4400142200 04590 SC RB,0 LOCK 04590 * 006223 1000626400 04600 JR W0A SECTOR AFTER SUCCESSFUL LOCK 04600 006230 4400141500 04610 SC WG0A,0 READ LOCK 04610 * 006235 3000557300 04620 J LP1 LOCK 04620 006242 3400141201 04630 MFR32 CC FLIM,1 LOCK 04630 * 006247 3000635043 04640 JU STOP3 LOCK 04640 * 006254 3000424100 04650 J CT LOCK 04650 * 006261 3000000000 04660 W0A J 0 RESTORE TEST DATA LOCK 04660 006266 2001265470 04670 FT WG0I+4,5,56 04670 006273 4400034001 04680 SC MA-3,1 OR SUCCESSFUL WRITE LOCK 04680 006300 4140407777 04690 XF 040,0777777,0,6 ON UNLOCKED SECTOR LOCK 04690 006305 4140621000 04700 XF 062,0100000,0,6 04700 006312 4400703506 04710 SC JLI2+4,6,6 LOCK 04710 * 006317 3000626100 04720 J W0A LOCK 04720 006324 4400142500 04730 FB1R SC FB1,0 LOCK 04730 * 006331 3000000460 04740 STOP4 JD 4 SET WRITE LOCKOUT SWITCH OFF LOCK 04740 * 006336 3000417162 04750 JC STOP2,5050 SS1 SET REPEAT ALL TESTS LOCK 04750 * 006343 3000636700 04760 J REST1 LOCK 04760 * 006350 3000000360 04770 STOP3 JD 3 INC WRITE LOCKOUT SWITCH LOCK 04770 * 006355 3000424100 04780 J CT LOCK 04780 006362 2600142700 04790 PD TPAD,16 6 LOCK 04790 006367 4400142001 04800 REST1 SC REST,1 RESTORE DATA LOCK 04800 006374 6400501304 04810 LS XF+2,4 04810 * 006401 1000305600 04820 JR FAD1 LOCK 04820 006406 4400501365 04830 SC XF+2,06565 LOCK 04830 006413 4400142002 04840 SC REST,2 LOCK 04840 * 006420 1000305600 04850 JR FAD1 LOCK 04850 * 006425 3000000560 04860 JD 5 TEST COMPLETE DATA RESTORED LOCK 04860 * 006432 3000135000 04870 J STOP0 LOCK 04870 * 006437 3000000000 04880 COMP J 0 COMPARE DATA LOCK 04880 006444 5601265724 04890 BA2 WG0I+7,4,4 04890 006451 3400142201 04900 CC RB,1 LOCK 04900 * 006456 3000647042 04910 JE $+10 LOCK 04910 006463 5601267324 04920 BA2 WBI+3,4 4 LOCK 04920 006470 7001266364 04930 CB2 RIA+3,4 4 LOCK 04930 * 006475 3000643700 04940 J COMP LOCK 04940 006502 2000220020 04950 IPT6 FT PBA,16 DRUM INTERRUPT LOCK 04950 006507 2000220040 04960 FT PBA,32 LOCK 04960 006514 4400011300 04970 SC 75,0 LOCK 04970 006521 4400011201 04980 SC 74,1 LOCK 04980 006526 3400142101 04990 CC WB,1 WB TEST LOCK 04990 * 006533 3000674243 05000 JU W0T LOCK 05000 006540 2400160001 05010 TFR PEI3 LOCK 05010 * 006545 1000743300 05020 JR PDA LOCK 05020 006552 4140000004 05030 XF 000,0000004,0,6 TEST TAG ERROR LOCK 05030 * 006557 3000657153 05040 JC $+10,05353 LOCK 05040 * 006564 3000664100 05050 J TEST LOCK 05050 006571 4140000020 05060 XF 000,0002020,0,6 TEST HEAD OVERFLOW LOCK 05060 * 006576 3000661053 05070 JC $+10,05353 LOCK 05070 * 006603 3000664100 05080 J TEST LOCK 05080 006610 4140007753 05090 XF 000,0775753,0,6 TEST ALL OTHERS LOCK 05090 * 006615 3000664153 05100 JC TEST,05353 LOCK 05100 * 006622 3000662725 05110 RET JC $+5,21 ZERO TO SI1 LOCK 05110 006627 4140407777 05120 XF 040,0777777,0,6 RESET ALL LOCK 05120 * 006634 3000046000 05130 J 0460 EXIT INTERRUPT LOCK 05130 006641 2000220014 05140 TEST FT PBA,12 LOCK 05140 006646 6000006313 05150 AC X4,11 PBA+11 TO X4 LOCK 05150 006653 4140000001 05160 XFT XF 000,0000001,0,6 LOCK 05160 006660 4500000004 05170 SC 0,04,X4 4 LOCK 05170 * 006665 3000667753 05180 JC $+10,05353 LOCK 05180 006672 4500000003 05190 SC 0,03,X4 4 LOCK 05190 006677 5600230101 05200 BA1 ONE,1 LOCK 05200 006704 7200006341 05210 SB1 X4,1 LOCK 05210 006711 1600665761 05220 BC2 XFT+4,1 1 LOCK 05220 006716 3400665701 05230 CC XFT+4,1 1 LOCK 05230 * 006723 3000665343 05240 JU XFT LOCK 05240 * 006730 1001031600 05250 JR PRINT LOCK 05250 * 006735 3000662200 05260 J RET LOCK 05260 006742 3400141401 05270 W0T CC WB0A,1 LOCK 05270 * 006747 3000676642 05280 JE WG0P LOCK 05280 006754 3400141501 05290 CC WG0A,1 LOCK 05290 * 006761 3000706243 05300 JU RBT LOCK 05300 006766 2400160001 05310 WG0P TFR PEI3 LOCK 05310 006773 5600241320 05320 BA2 RTD,16 LOCK 05320 007000 5200225620 05330 SA2 PBA+46,1,16 LOCK 05330 * 007005 1000743300 05340 JR PDA LOCK 05340 007012 2600003704 05350 PD AR2,4 LOCK 05350 007017 5600230321 05360 BA2 FIVE,1 LOCK 05360 007024 7200046363 05370 SB2 0463,3 LOCK 05370 * 007031 3200664106 05380 JLI2 JL TEST,6 AFTER INTERRUPT LOCK 05380 007036 4400703506 05390 SC JLI2+4,6,6 LOCK 05390 * 007043 3000001060 05400 JD 8 CANNOT RESTORE TEST DATA LOCK 05400 05410 . HIT START-ROUTINE E WILL ATTEMPT TO RESTORE DATA ON THE DRUM LOCK 05410 T * 007050 3000636231 05420 JC REST1-5,5,25 LOCK 05420 * 007055 3000664100 05430 J TEST LOCK 05430 007062 3400142201 05440 RBT CC RB,1 READ BAD TEST LOCK 05440 * 007067 3000713743 05450 JU WGT LOCK 05450 007074 2400160001 05460 TFR PEI3 LOCK 05460 007101 5600202420 05470 BA2 RW+16,1616 LOCK 05470 007106 5200225720 05480 SA2 PBA+47,1,16 LOCK 05480 * 007113 1000743300 05490 JR PDA LOCK 05490 007120 5600203430 05500 BA2 RLW-8,8 8 LOCK 05500 007125 5200226730 05510 SA2 PBA+55,8,8 LOCK 05510 * 007132 3000664100 05520 J TEST LOCK 05520 007137 3400142301 05530 WGT CC WG,1 WRITE GOOD TEST LOCK 05530 * 007144 3000720743 05540 JU RGT LOCK 05540 007151 2400150001 05550 TFR PEI1 LOCK 05550 007156 5600171720 05560 BA2 ISW,16 LOCK 05560 007163 5200223620 05570 SA2 PBA+30,1,16 LOCK 05570 007170 4400142701 05580 SC TPAD,1 LOCK 05580 * 007175 1000776200 05590 JR TPA TRACK PRINTOUT LOCK 05590 * 007202 3000664100 05600 J TEST LOCK 05600 007207 3400142401 05610 RGT CC RG,1 READ GOOD TEST LOCK 05610 * 007214 3000727143 05620 JU WG0T LOCK 05620 007221 2400150001 05630 TFR PEI1 LOCK 05630 007226 5600171720 05640 BA2 ISW,16 LOCK 05640 007233 5200223620 05650 SA2 PBA+30,1,16 LOCK 05650 007240 5600172425 05660 BA2 R,5 LOCK 05660 007245 5200223625 05670 SA2 PBA+30,5,5 LOCK 05670 007252 4400142701 05680 SC TPAD,1 LOCK 05680 * 007257 1000776200 05690 JR TPA LOCK 05690 * 007264 3000664100 05700 J TEST LOCK 05700 007271 3400142601 05710 WG0T CC WG0,1 TEST WRITE 00 ON SECTORS LOCK 05710 * 007276 3000737243 05720 JU INTA LOCK 05720 007303 2400160001 05730 TFR PEI3 LOCK 05730 007310 5600210420 05740 BA2 IW,16 LOCK 05740 007315 5200225720 05750 SA2 PBA+47,1,16 LOCK 05750 * 007322 1000743300 05760 JR PDA LOCK 05760 007327 2600003704 05770 PD AR2,4 LOCK 05770 007334 5600230321 05780 BA2 FIVE,1 LOCK 05780 007341 7200046363 05790 SB2 0463,3 LOCK 05790 * 007346 3200664106 05800 JLI3 JL TEST,6 LOCK 05800 007353 4400735206 05810 SC JLI3+4,6,6 LOCK 05810 * 007360 3000001160 05820 JD 011 TEST ABORTED, CANNOT WRITE TEST DATA. LOCK 05820 T * 007365 3000636231 05830 JC REST1-5,5,25 JUMP TO RESTORE DATA LOCK 05830 007372 2000472707 05840 INTA FT STORE+5,5,7 RETURN TO STORE LOCK 05840 007377 5200046323 05850 SA2 0463,3 ON DATA STORE INT. LOCK 05850 007404 2400160001 05860 TFR PEI3 LOCK 05860 007411 4400141601 05870 SC DMP,1 DUMP DATA AREA LOCK 05870 * 007416 1000743300 05880 JR PDA LOCK 05880 * 007423 3000756200 05890 J JLI LOCK 05890 * 007430 3000000000 05900 PDA J 0 PRINT DRUM ADDRESS LOCK 05900 007435 5600237320 05910 BA2 DRAD,16 6 ASSEMBLE DRUM ADDRESS LOCK 05910 007442 5200227720 05920 SA2 PBA+63,1,16 PRINTOUT ON DATA STORE LOCK 05920 007447 5600034421 05930 BDA2 BA2 DA-3,1 OR RESTORE ERROR LOCK 05930 007454 4400003600 05940 SC AR2-1,0 0 LOCK 05940 007461 1600003723 05950 BS2 AR2,3 LOCK 05950 007466 1600003753 05960 BC1 AR2,3 LOCK 05960 007473 6000003703 05970 AC AR2,3 LOCK 05970 007500 6000003603 05980 AC AR2-1,3 3 LOCK 05980 007505 5200227122 05990 SDA2 SA2 PBA+57,2,2 LOCK 05990 007512 3400751077 06000 CC SDA2+3,6,63 LOCK 06000 * 007517 3000754342 06010 JE RDAC LOCK 06010 007524 6000745201 06020 AC BDA2+3,1,1 LOCK 06020 007531 6000751002 06030 AC SDA2+3,2,2 LOCK 06030 * 007536 3000744700 06040 J BDA2 LOCK 06040 007543 4400745244 06050 RDAC SC BDA2+3,0,044 LOCK 06050 007550 4400751071 06060 SC SDA2+3,5,57 LOCK 06060 * 007555 3000743000 06070 J PDA LOCK 06070 * 007562 3200763206 06080 JLI JL STRT,6 LOCK 06080 007567 4400756606 06090 SC JLI+4,6 6 3 CONSECUTIVE ERROR LOCK 06090 007574 3400141701 06100 CC STR,1 LOCK 06100 * 007601 3000762042 06110 JE STOP7 LOCK 06110 * 007606 3000000660 06120 JD 6 INT. IN STORE OR RESTORE LOCK 06120 * 007613 3000763200 06130 J STRT MODE LOCK 06130 * 007620 3000000760 06140 STOP7 JD 7 TEST ABORTED CANNOT LOCK 06140 * 007625 3000135000 06150 J STOP0 STORE DATA LOCK 06150 007632 3400141701 06160 STRT CC STR,1 LOCK 06160 * 007637 3000766343 06170 JU RESTT LOCK 06170 007644 5600174420 06180 BA2 IR,16 LOCK 06180 007651 5200225720 06190 SA2 PBA+47,1,16 LOCK 06190 * 007656 3000664100 06200 J TEST LOCK 06200 007663 3400142001 06210 RESTT CC REST,1 LOCK 06210 * 007670 3000771443 06220 JU RESW LOCK 06220 007675 5600200420 06230 BA2 RW,16 LOCK 06230 007702 5200225720 06240 SA2 PBA+47,1,16 LOCK 06240 * 007707 3000664100 06250 J TEST LOCK 06250 007714 3400142002 06260 RESW CC REST,2 LOCK 06260 * 007721 3000774543 06270 JU STOPI LOCK 06270 007726 5600176420 06280 BA2 RR,16 LOCK 06280 007733 5200225720 06290 SA2 PBA+47,1,16 LOCK 06290 * 007740 3000664100 06300 J TEST LOCK 06300 * 007745 3000001260 06310 STOPI JD 012 NO PROGRAM INDICATOR SET ON INTERRUPT LOCK 06310 P * 007752 3000636231 06320 JC REST1-5,5,25 ATTEMPT TO RESTORE DATA LOCK 06320 * 007757 3000000000 06330 TPA J 0 TRACK ADDRESS PRINTOUT LOCK 06330 007764 4400142701 06340 SC TPAD,1 LOCK 06340 007771 3400142501 06350 CC FB1,1 LOCK 06350 * 007776 3001021242 06360 JE FBTP LOCK 06360 010003 2000220014 06370 FT PBA,12 LOCK 06370 010010 6000006351 06380 AC X4,41 LOCK 06380 010015 5600034704 06390 BA1 DA,4 LOCK 06390 010022 3400143601 06400 TPA2 CC MFR,1 LOCK 06400 * 010027 3001023642 06410 JE MFR16 LOCK 06410 010034 5400001403 06420 LP AR1-3,3 3 LOCK 06420 010041 4400001300 06430 SC AR1-4,0 0 LOCK 06430 010046 1600001523 06440 BS2 AR1-2,3 3 LOCK 06440 010053 1600001423 06450 BS2 AR1-3,3 3 LOCK 06450 010060 1600001553 06460 BC1 AR1-2,3 3 LOCK 06460 010065 1600001453 06470 BC1 AR1-3,3 3 LOCK 06470 010072 6000001503 06480 MFR30 AC AR1-2,3 3 LOCK 06480 010077 6000001403 06490 AC AR1-3,3 3 LOCK 06490 010104 6000001303 06500 AC AR1-4,3 3 LOCK 06500 010111 5200004305 06510 SA1 AR2+4,5 5 LOCK 06510 010116 5300000021 06520 MFR31 SA2 0,1,X4 LOCK 06520 010123 1600004136 06530 BS3 AR2+2,6 6 LOCK 06530 010130 6000006301 06540 AC X4,1 LOCK 06540 * 010135 3201011603 06550 JL MFR31,3 3 LOCK 06550 010142 4401014103 06560 SC $-1,3 LOCK 06560 010147 3400142701 06570 MFR17 CC TPAD,1 LOCK 06570 * 010154 3000775743 06580 JU TPA LOCK 06580 010161 4400142700 06590 SC TPAD,0 LOCK 06590 010166 2000220014 06600 TPA0 FT PBA,12 LOCK 06600 010173 6000006362 06610 AC X4,50 LOCK 06610 010200 5600233704 06620 BA1 ULIM1,4 4 LOCK 06620 * 010205 3001002200 06630 J TPA2 LOCK 06630 010212 5600213632 06640 FBTP BA2 FBP,10 LOCK 06640 010217 5200225332 06650 SA2 PBA+43,1,10 LOCK 06650 010224 5200227332 06660 SA2 PBA+59,1,10 LOCK 06660 * 010231 3000775700 06670 J TPA LOCK 06670 010236 4400001300 06680 MFR16 SC AR1-4,0 0 LOCK 06680 010243 4400001400 06690 SC AR1-3,0 0 LOCK 06690 010250 5400001517 06700 LP AR1-2,01017 LOCK 06700 010255 1600001633 06710 BS3 AR1-1,3 3 LOCK 06710 010262 1600001533 06720 BS3 AR1-2,3 3 LOCK 06720 010267 1600001423 06730 BS2 AR1-3,3 3 LOCK 06730 010274 1600001553 06740 BC1 AR1-2,3 3 LOCK 06740 010301 1600001453 06750 BC1 AR1-3,3 3 LOCK 06750 * 010306 3001007200 06760 J MFR30 LOCK 06760 * 010313 3000000031 06770 PRINT JC 0,25 LOCK 06770 010320 4401041305 06780 SC INT0+4,5,5 PRINT ORDER LOCK 06780 * 010325 3001033231 06790 PRINI JC $+5,25 LOCK 06790 010332 4000407777 06800 XF 040,0777777,0,0 LOCK 06800 010337 4400020702 06810 SC 0207,2 LINE COUNT LOCK 06810 010344 4000660400 06820 XF 066,0040400,0,0 PRINT HALF LINE LOCK 06820 * 010351 3001036364 06830 JC $+10,52 2 LOCK 06830 * 010356 3000001360 06840 JD 013 STOP AFTER PRINTOUT IF SS3 LOCK 06840 010363 3400141601 06850 CC DMP,1 LOCK 06850 010370 4400141600 06860 SC DMP,0 LOCK 06860 * 010375 3001043342 06870 JE SNAP LOCK 06870 * 010402 3001031300 06880 J PRINT LOCK 06880 * 010407 3201032505 06890 INT0 JL PRINI,5 5 PRINTER INTERRUPT LOCK 06890 010414 4401041305 06900 SC $-1,5 LOCK 06900 * 010421 3000010060 06910 JD 64 CANNOT PRINT ERRORS LOCK 06910 * 010426 3001031300 06920 J PRINT LOCK 06920 06930 SNAP SNAP RDI0,RDIDI30+175,T LOCK 06930 , * 010433 1001053200 * SNAP JR XDS * 010440 2001240005 * FT RDI0,5 * 010445 2002035706 * FT RDI30+17175,6 * * 010452 1001135100 * JR XDUMP * * 010457 3001031300 06940 J PRINT LOCK 06940 06950 DUMP LOCK 06950 * 010464 1001053200 * JR XDS * * 010471 1001135100 * JR XDUMP * * 010476 3001046420 * JHJ $-10 * * 010503 3001050300 * XCTAD J $ * * 010510 1001060200 * JR XDCLR * * 010515 1001071000 * JR XDPR * * 010522 3001050300 * J XCTAD * 000207 * XADVC EQU 0207 * * 010527 3001052700 * XDS J $ * * 010534 3001071751 * JC XD2-10,4,41 * 010541 5201223761 * SAR XDR0+31 1 * 010546 2600003714 * PD 31,12 * 010553 2000052005 * FT 0520,5 * 010560 2007777706 * FT 077777,6,6 * 010565 4401135202 * SC XDUMP+4,4,2 * * 010572 3001052700 * J XDS * * 010577 3001057700 * XDCLR J $ * 010604 4401063410 * SC $+24,8 * 010611 2000030315 * FT 0303,13 3 * 010616 2721151400 * PD XDAR+15-5-0303,16,5 * 6 010623 6000006720 * AC 067,16 * * 010630 3201061600 * JL $-10,0 * 010635 2001200015 * FT XDAR,13 3 * * 010642 3001057700 * J XDCLR * 010647 4400020702 * SC XADVC,2 2 * 010654 2001200040 * FT XDAR,32 2 * * 010661 3001066631 * JC $+5,25 * 010666 4000407777 * XF 32,0777777,0,0 * 010673 4000620000 * XF 062,0,0,0,0 * * 010700 1001060200 * JR XDCLR * * 010705 3001070500 * XDPR J $ * * 010712 3001064700 * J XDPR-30 0 * 010723 0000000073 * +5 59 * * 010724 1001071042 * JR XDPR,34 4 * * 010731 3001073100 * XD2 J $ * 010736 4401113700 * SC $+129,0 0 * 010743 4401113204 * SC $+119,4 4 * 010750 4401130303 * SC XD1+64,3,3 * 010755 4401122170 * SC XD1+14,5,56 * 010762 2000006116 * FT 061,14 * * 010767 1001120600 * JR XD1 * 010774 2337777041 * ZS -8,1,5 * 011001 4401112502 * SC $+84,2 * 011006 4401130300 * SC XD1+64,0,0 * 011013 4401122100 * SC XD1+14,0,0 * 011020 4600006316 * BT 063,14 * 011025 7401072316 * CT XD2-6,1414 * 011032 5601101201 * BA1 XD2+49,1,1 * 011037 2600001602 * PD 14,2 * 011044 7200006303 * AB1 063,3 * * 011051 1001120641 * JR XD1,33 * 011056 2141220016 * FT XDR0,14,4,6 * * 011063 1001120644 * JR XD1,36 * 011070 5737777512 * BA1 -3,10,5 5 * 011075 7001231152 * CB1 XDR0+73,3,10 * * 011102 3001112142 * JE $+15 * 011107 4401113770 * SC $+24,56 6 * 011114 5201231112 * SA1 XDR0+73,3,10 * * 011121 3201100600 * JL $-75,0 * * 011126 3201075000 * JL XD2+15,0,0 * * 011133 3001115700 * JC $+20,0 * * 011140 1001071000 * JR XDPR * 011145 4401116300 * SC $+14,0 * * 011152 3001073600 * J XD2+5 * * 011157 1001050600 * JR XCTAD,0 0 * 011164 4401116370 * SC $-1,56 * * 011171 1001060200 * JR XDCLR * * 011176 3001073600 * J XD2+5 * * 011203 3001120300 * XD1 J $ * 011210 5740000001 * BA1 0,1,6 * * 011215 3001131600 * JC $+65,0 * 011222 2600001601 * PD 14,1 * 011227 1600001723 * BS2 15,3 * 011234 1600001753 * BC1 15,3 * 011241 2720000122 * PD0 1,2,5 * 011246 7320000102 * AB1 1,2,5 * 011253 6000006702 * AC 067,2 * 011260 7400007313 * CT 073,11 * * 011265 3001072442 * JE XD2-5 * 011272 6000007301 * AC 073,1 * * 011277 3201121000 * JL $-55,0 * 011304 6000006702 * AC 067,2 * * 011311 3001120300 * J XD1 * 011316 5320000001 * SA1 0,1,5 * 011323 6000006701 * AC 067,1 * * 011330 3001126000 * J $-40 * 011345 END PRINT * +9 _END PRIRINT_ * * 011346 3001134602 * XDUMP JC $,2 * * 011353 3001171440 * JC XDUEX,3232 * 011360 5600005700 * BA1 057,16 * 011365 5200005734 * SA2 057,12 * 011372 5600007720 * BA2 077,16 * 011377 5201227761 * SAR XDR0+63 3 * 011404 2600007314 * PD 073,12 * * 011411 1001060200 * JR XDCLR * 011416 5600040730 * BA2 0407,8 * 011423 4600020705 * BT 0207,5 * 011430 4600020304 * BT 0203,4 * 011435 2001064703 * FT XDPR-30,0,3 * 011442 5200040703 * SA1 0407,3 * 011447 4401101770 * SC XD2+54,5,56 * 011454 1401135204 * LC XDUMP+4,4,4 * * 011461 3001150542 * JE $+20 * 011466 1401135202 * LC XDUMP+4,4,2 * * 011473 3001152443 * JU $+25 * 011500 2000042013 * FT 0420,11 1 * 011505 2060007713 * FT 077,11,3,3 * 011512 4401101204 * SC XD2+49,4,4 * * 011517 1001073400 * JR XD2 * 011524 4600004714 * BT 047,12 * 011531 4600005313 * BT 053,11 * 011536 4401101205 * SC XD2+49,5,5 * 011543 1401135201 * LC XDUMP+4,4,1 * * 011550 3001156743 * JU $+15 * 011555 4401101212 * SC XD2+49,1,10 * 011562 4401101700 * SC XD2+54,0,0 * * 011567 1001073400 * JR XD2 * 011574 2000004516 * FT 045,14 * 011601 4401122170 * SC XD1+14,5,56 * 011606 4401130307 * SC XD1+64,7,7 * * 011613 1001120600 * JR XD1 * 011620 2737776702 * PD -9,2,5 * 011625 5601134511 * BA1 XDUMP-1,1,9 * 011632 5320001011 * SA1 8,9,5 * * 011637 1001071000 * JR XDPR * * 011644 1001050600 * JR XCTAD * * 011651 3001071752 * JC XD2-10,4,42 * 011656 5200040730 * SA2 0407,8 * 011663 4200020705 * ST 0207,5 * 011670 4200020304 * ST 0203,4 * 011675 5601225700 * BA1 XDR0+05757,16 * 011702 5601227720 * BA2 XDR0+07777,16 * 011707 5200007761 * SAR 077 * 011714 5601221700 * XDUEX BA1 XDR0+01717,16 * 011721 5601223720 * BA2 XDR0+03737,16 * * 011726 3001134600 * J XDUMP * 012000 * ORIG $,64 * 012000 200 * XDAR AREA 0200 * 012200 112 * XDR0 AREA 74 * 012400 06960 ORIG $,64 LOCK 06960 012400 250 06970 RDI0 AREA 0250,B,0,00 DATA STORAGE LOCK 06970 012650 10 06980 WG0I AREA 8,B,00 00 TO SECTORS LOCK 06980 012660 10 06990 RIA AREA 8,B,00 LOCK 06990 012670 10 07000 WBI AREA 8,B,003 3 03 TO SECTORS LOCK 07000 020100 07010 ORIG RDI0+0555500 FASTBAND DATA STORAGE LOCK 07010 020100 250 07020 RDI30 AREA 0250,B,0,00 LOCK 07020 0000 ERROR LINES 3000135000 07030 END STOP0 LOCK 07030 {-- tape mark --} {-- tape mark --} 015505 C581 FLINT CODEDIT SOURCE A T3834394-58 001400 00010 T580 BEGIN 01400 FLINT 00010 *LOAD 0700,TAPAPE,R,PRELD E * 001400 3007010660 * JD 070106 * * 001405 3000140000 * J $-5 * SEGMENT-ID T581 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 T582 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 T583 3000136300 * SEGJP $ * 001400 ORIG 01400 010000 000101IM EQU 010000 000101 001400 2600001700 00020 STR PD 017,0 FLINT 00020 001405 2600003700 00030 PD 037,0 FLINT 00030 001412 2600005700 00040 PD 057,0 FLINT 00040 001417 2620007700 00050 PD 077,0,1 1 FLINT 00050 001424 6000004720 00060 AC 047,16 FLINT 00060 * 001431 3200141721 00070 JL $-10,17 7 FLINT 00070 001436 4400143521 00080 SC $-1,17 FLINT 00080 001443 5601740500 00090 BA1 CL2,16 FLINT 00090 001450 5200051700 00100 SA1 0517,16 6 FLINT 00100 001455 5601752310 00110 BA1 CH0,8 FLINT 00110 001462 5200041710 00120 SA1 0417,8 FLINT 00120 * 001467 3000147426 00130 JC $+5,22 FLINT 00130 * 001474 3000150127 00140 JC $+5,23 FLINT 00140 001501 4401667000 00150 SC REC1+4,0,0 FLINT 00150 001506 4401672643 00160 SC REC+14,0,043 FLINT 00160 001513 5401606201 00170 LP EXR1+2,1,1 FLINT 00170 * 001520 3000000360 00180 JD 03 FLINT 00180 001525 2600154703 00190 PD TRZ+3,3 3 FLINT 00190 001532 6000154701 00200 TRZ1 AC TRZ+3,1 1 FLINT 00200 * 001537 3000154471 00210 JC $+5,57 FLINT 00210 * 001544 3000000040 00220 TRZ JC 0,040 FLINT 00220 * 001551 3000160271 00230 JC TRZ2,57 7 FLINT 00230 001556 3400154610 00240 CC TRZ+2,8 8 FLINT 00240 * 001563 3000153243 00250 JU TRZ1 FLINT 00250 * 001570 3007007760 00260 JD 070077 NOT IN PROC TRACE OR FLINT 00260 * 001575 3000152500 00270 J TRZ1-5 FLINT 00270 001602 5600154703 00280 TRZ2 BA1 TRZ+3,3 3 FLINT 00280 001607 5202055203 00290 SA1 SEL,3 FLINT 00290 001614 4400172105 00300 SC SL2+4,5 5 FLINT 00300 001621 4400165601 00310 SC SL1+4,1 1 FLINT 00310 001626 2000173417 00320 FT TSS1,15 5 FLINT 00320 001633 3402055200 00330 CC SEL,0 FLINT 00330 * 001640 3000165243 00340 JU $+10 FLINT 00340 001645 4402055277 00350 SC SEL,63 FLINT 00350 001652 1402055201 00360 SL1 LC SEL,1 FLINT 00360 * 001657 3000167643 00370 JU $+15 FLINT 00370 001664 4560000400 00380 SC 4,0,7 FLINT 00380 * 001671 3000170300 00390 J $+10 FLINT 00390 001676 4560000440 00400 SC 4,040,7 7 FLINT 00400 001703 1600165651 00410 BC1 SL1+4,1 1 FLINT 00410 001710 6000007705 00420 AC 077,5 FLINT 00420 * 001715 3200165204 00430 SL2 JL SL1,4 FLINT 00430 * 001722 1000207600 00440 JR CHS,0 FLINT 00440 * 001727 1002050324 00450 JR REW,20 FLINT 00450 * 001734 1000242000 00460 TSS1 JR TST1 WRITE TEST-ZERO IND+BUSY FLINT 00460 * 001741 1000344700 00470 JR TST2 READ AND IND TEST FLINT 00470 * 001746 1002176200 00480 JR TST3 FLINT 00480 * 001753 1002075200 00490 JR TST4 CLUTCH-EOT-NON-READY FLINT 00490 * 001760 1000177500 00500 JR TST5 FLINT 00500 * 001765 3000140000 00510 J STR FLINT 00510 * 001772 3000000000 00520 TST5 J 0 FLINT 00520 * 001777 3000201160 00530 JD $+10 WRITE RING TEST BRING SERVO TO LOAD POINT FLINT 00530 E * 002004 3000177200 00540 J $-10 DEPRESS M AND START FLINT 00540 002011 2000300037 00550 FT 03000,3131 FLINT 00550 002016 2000410117 00560 FT 04101,1515 FLINT 00560 * 002023 1000763424 00570 JR EXW,20 FLINT 00570 * 002030 1001615200 00580 JR EXT FLINT 00580 * 002035 3000050160 00590 JD 0501 FLINT 00590 * 002042 3000204700 00600 J $+5 FLINT 00600 002047 2000000037 00610 FT 0,31 FLINT 00610 * 002054 1001631600 00620 JR EXRC FLINT 00620 * 002061 1002050324 00630 JR REW,20 FLINT 00630 * 002066 3000177200 00640 J TST5 FLINT 00640 * 002073 3000000000 00650 CHS J 0 FLINT 00650 002100 4402055107 00660 SC SEL-1,7 7 FLINT 00660 002105 5602055121 00670 BA2 SEL-1,1 1 FLINT 00670 002112 1600003753 00680 BC1 037,3 FLINT 00680 002117 6400003707 00690 LS 037,7 FLINT 00690 002124 5601654310 00700 BA1 IE,8 FLINT 00700 002131 5200214121 00710 SA2 $+8,1 FLINT 00710 002136 5200040710 00720 SA1 0407,8 FLINT 00720 002143 2600001702 00730 PD 017,2 FLINT 00730 002150 5602055104 00740 BA1 SEL-1,4 4 FLINT 00740 002155 1600001724 00750 BS2 017,4 FLINT 00750 002162 6400001640 00760 LS 016,040 0 FLINT 00760 002167 2001616617 00770 FT EXT1,15 5 TEST ORDER FLINT 00770 002174 5360000102 00780 SA1 1,2,7 FLINT 00780 002201 2000770117 00790 FT EXW1,15 5 WRITE ORDER FLINT 00790 002206 5360000102 00800 SA1 1,2,7 FLINT 00800 002213 2001636317 00810 FT EXRC1,1515 RESET COMPLIMENT FLINT 00810 002220 5360000102 00820 SA1 1,2,7 FLINT 00820 002225 2001652217 00830 FT EXTC1,1515 TEST COMPLIMENT FLINT 00830 002232 5360000102 00840 SA1 1,2,7 FLINT 00840 002237 2001721317 00850 FT I02,15 IO REISSUE FLINT 00850 002244 5360000102 00860 SA1 1,2,7 FLINT 00860 002251 2001630117 00870 FT EXRO1,1515 RESET ORDER FLINT 00870 002256 5360000102 00880 SA1 1,2,7 FLINT 00880 002263 2001623617 00890 FT EXTT1,1515 NOT RESET TEST FLINT 00890 002270 5360000102 00900 SA1 1,2,7 FLINT 00900 002275 2001606017 00910 FT EXR1,15 5 READ ORDER FLINT 00910 002302 5360000102 00920 SA1 1,2,7 FLINT 00920 002307 2002050517 00930 FT REW1,15 5 REWIND ORDER FLINT 00930 002314 5360000102 00940 SA1 1,2,7 FLINT 00940 002321 2002053117 00950 FT RW1,15 REWIND INT. FLINT 00950 002326 5360000102 00960 SA1 1,2,7 FLINT 00960 002333 2001613517 00970 FT EXTX1,1515 FLINT 00970 002340 5360000102 00980 SA1 1,2,7 FLINT 00980 002345 2001716217 00990 FT I03,15 FLINT 00990 002352 5360000102 01000 SA1 1,2,7 FLINT 01000 002357 2001727017 01010 FT I04,15 FLINT 01010 002364 5360000102 01020 SA1 1,2,7 FLINT 01020 002371 5602055101 01030 BA1 SEL-1,1 1 FLINT 01030 002376 1600001713 01040 BS1 017,3 FLINT 01040 002403 5201670601 01050 SA1 REC4+3,1,1 IE EXIT FLINT 01050 * 002410 3000207300 01060 J CHS FLINT 01060 * 002415 3000000000 01070 TST1 J 0 FLINT 01070 002422 2602056026 01080 PD0 BCNT,6 FLINT 01080 002427 4401641300 01090 SC IMM1+4,0,0 FLINT 01090 * 002434 1001640000 01100 JR IMM FILL TO 0 FLINT 01100 002441 2000000037 01110 FT 0,31 ERROR MASK FLINT 01110 002446 2000410117 01120 FT 04101,1515 256 BIN. 0 FLINT 01120 * 002453 1000763424 01130 JR EXW,20 FLINT 01130 002460 2000010117 01140 FT 0101,15 5 FLINT 01140 * 002465 1000763424 01150 JR EXW,20 3072 BIN. 0 FLINT 01150 002472 4401641377 01160 SC IMM1+4,6,63 FLINT 01160 * 002477 1001640000 01170 JR IMM FILL TO 77 FLINT 01170 002504 2000410117 01180 FT 04101,1515 FLINT 01180 * 002511 1000763424 01190 JR EXW,20 256 BIN. 77 FLINT 01190 002516 2000010117 01200 FT 0101,15 5 FLINT 01200 * 002523 1000763424 01210 JR EXW,20 3072 BIN. 0 FLINT 01210 002530 2000400117 01220 FT 04001,1515 256 BCD 77 FLINT 01220 * 002535 1000763424 01230 JR EXW,20 FLINT 01230 002542 2000000117 01240 FT 001,15 FLINT 01240 * 002547 1000763424 01250 JR EXW,20 3072 BCD 77 FLINT 01250 002554 2000040037 01260 FT 0400,31 1 FLINT 01260 002561 4401000600 01270 SC IM+6,0 FLINT 01270 002566 2000400117 01280 FT 04001,1515 256 BCD ZERO IND FLINT 01280 * 002573 1000763424 01290 JR EXW,20 SHOULD GET SET FLINT 01290 * 002600 1001615200 01300 JR EXT FLINT 01300 * 002605 3000010160 01310 JD 0101 ZERO IND NOT SET FLINT 01310 * 002612 3000341300 01320 J STR1 FLINT 01320 * 002617 1001631600 01330 JR EXRC FLINT 01330 * 002624 1001615200 01340 JR EXT FLINT 01340 * 002631 3000010260 01350 JD 0102 ZERO IND RESET BY FLINT 01350 * 002636 3000341300 01360 J STR1 WRONG BITS FLINT 01360 * 002643 1001626500 01370 JR EXRO FLINT 01370 * 002650 1001622200 01380 JR EXTT FLINT 01380 * 002655 3000010360 01390 JD 0103 ZERO IND. NOT RESET FLINT 01390 * 002662 3000341300 01400 J STR1 FLINT 01400 002667 4401000677 01410 SC IM+6,63 3 FLINT 01410 002674 4401037700 01420 SC IM+255,0,0 FLINT 01420 * 002701 1000763424 01430 JR EXW,20 FLINT 01430 * 002706 1001615200 01440 JR EXT FLINT 01440 * 002713 3000010460 01450 JD 0104 ZERO IND NOT SET BY FLINT 01450 * 002720 3000341300 01460 J STR1 256 CHAR. FLINT 01460 002725 2000240037 01470 FT 02400,3131 FLINT 01470 002732 2000000117 01480 FT 01,15 FLINT 01480 002737 4401037777 01490 SC IM+255,6,63 FLINT 01490 002744 4401577700 01500 SC IM+3071,1,0 FLINT 01500 * 002751 1000763424 01510 JR EXW,20 FLINT 01510 002756 2000200037 01520 FT 02000,3131 FLINT 01520 * 002763 1001615200 01530 JR EXT FLINT 01530 * 002770 3000010560 01540 JD 0105 BUSY NOT SET WHEN FLINT 01540 * 002775 3000341300 01550 J STR1 IO ORDER GIVEN WITH IND FLINT 01550 * 003002 1001631600 01560 JR EXRC ZERO SET FLINT 01560 * 003007 1001615200 01570 JR EXT FLINT 01570 * 003014 3000010660 01580 JD 0106 BUSY RESET BY WRONG FLINT 01580 * 003021 3000341300 01590 J STR1 BITS. FLINT 01590 * 003026 1001626500 01600 JR EXRO FLINT 01600 * 003033 1001622200 01610 JR EXTT FLINT 01610 * 003040 3000010760 01620 JD 0107 CANNOT RESET BUSY FLINT 01620 * 003045 3000341300 01630 J STR1 FLINT 01630 003052 5602057042 01640 BD1 D8,2 FLINT 01640 003057 5202056002 01650 SA1 BCNT,2 FLINT 01650 003064 2000040037 01660 FT 0400,31 1 FLINT 01660 * 003071 1000763424 01670 JR EXW,20 FLINT 01670 * 003076 1001615200 01680 JR EXT FLINT 01680 * 003103 3000011060 01690 JD 0110 ZERO IND NOT SET ON FLINT 01690 * 003110 3000341300 01700 J STR1 3072 CHAR. FLINT 01700 * 003115 1001626500 01710 JR EXRO FLINT 01710 003122 4401641300 01720 SC IMM1+4,0,0 WRITE BLOCK OF ALL FLINT 01720 * 003127 1001640000 01730 JR IMM ZERO_S IN BCD 10 FLINT 01730 * 003134 1000763424 01740 JR EXW,20 FLINT 01740 * 003141 1001626500 01750 JR EXRO FLINT 01750 003146 4400323406 01760 SC WT2+4,6 6 FLINT 01760 003153 4400316401 01770 SC $+9,1 THIS LOOP WILL WRITE FLINT 01770 003160 4401641301 01780 WT1 SC IMM1+4,1,1 6 BLKS. IN BCD. THEY FLINT 01780 * 003165 1001640000 01790 JR IMM ARE 01-02-04-10-20-40 FLINT 01790 003172 2000400117 01800 FT 04001,1515 IF ANY OF THESE SETS FLINT 01800 * 003177 1000763424 01810 JR EXW,20 ZERO IN A 77XX STOP FLINT 01810 * 003204 1001622200 01820 JR EXTT WILL OCCUR. XX WILL FLINT 01820 * 003211 3000324200 01830 J WT2+10 BE COMB. THAT SET FLINT 01830 * 003216 3000341300 01840 J STR1 ZERO IND. FLINT 01840 003223 1600316411 01850 BS1 WT1+4,1 1 FLINT 01850 * 003230 3200316006 01860 WT2 JL WT1,6 FLINT 01860 * 003235 3000326600 01870 J $+25 FLINT 01870 003242 5601000701 01880 BA1 IM+7,1 FLINT 01880 003247 5200325701 01890 SA1 $+8,1 FLINT 01890 * 003254 3000770060 01900 JD 07700 FLINT 01900 * 003261 3000341300 01910 J STR1 FLINT 01910 003266 4401641377 01920 SC IMM1+4,0,077 FLINT 01920 * 003273 1001640000 01930 JR IMM FLINT 01930 003300 2000040037 01940 FT 0400,31 1 FLINT 01940 003305 2000400117 01950 FT 04001,1515 FLINT 01950 003312 4401000600 01960 SC IM+6,0 FLINT 01960 * 003317 1000763400 01970 JR EXW FLINT 01970 * 003324 1001622200 01980 JR EXTT FLINT 01980 * 003331 3000335000 01990 J $+15 FLINT 01990 * 003336 3000341300 02000 J STR1 FLINT 02000 * 003343 3000332400 020001 J $-15 FLINT 020001 * 003350 1001626500 02010 JR EXRO FLINT 02010 * 003355 1001615200 02020 JR EXT FLINT 02020 * 003362 3000011160 02030 JD 0111 RESET ERROR WHEN NOT IN PC 00 FLINT 02030 E * 003367 3000341300 02040 J STR1 FLINT 02040 * 003374 3000340124 02050 JC $+5,20 FLINT 02050 * 003401 3000340167 02060 JC $,55 FLINT 02060 * 003406 1001626500 02070 JR EXRO FLINT 02070 003413 2000777737 02080 STR1 FT 07777,3131 FLINT 02080 * 003420 1001626500 02090 JR EXRO FLINT 02090 * 003425 1002050324 02100 JR REW,20 FLINT 02100 * 003432 3000242262 02110 JC TST1+5,5,50 FLINT 02110 * 003437 3000241500 02120 J TST1 FLINT 02120 * 003444 3000000000 02130 TST2 J 0 FLINT 02130 003451 2602056026 02140 PD0 BCNT,6 FLINT 02140 003456 4401641377 02150 SC IMM1+4,6,63 CLEAR TO 77 FLINT 02150 * 003463 1001640000 02160 JR IMM FLINT 02160 003470 2000000037 02170 RD1 FT 0,31 FLINT 02170 003475 2000410117 02180 FT 04101,1515 FLINT 02180 * 003502 1001603724 02190 JR EXR,20 FLINT 02190 003507 2601000546 02200 CD1 IM+5,6 FLINT 02200 * 003514 3000353342 02210 JE $+15 FLINT 02210 * 003521 3000020160 02220 JD 0201 1ST BLK NOT READ FLINT 02220 * 003526 3000716700 02230 J STR2 FLINT 02230 003533 3401040077 02240 CC IM+256,6,63 FLINT 02240 * 003540 3000355742 02250 JE $+15 FLINT 02250 * 003545 3000020260 02260 JD 0202 READ TO MANY CHAR FLINT 02260 * 003552 3000716700 02270 J STR2 WROTE 256 FLINT 02270 003557 5602063000 02280 BA1 BZ,0 FLINT 02280 003564 2001037716 02290 FT IM+255,1,14 IR6 FLINT 02290 * 003571 1001757200 02300 JR COMP FLINT 02300 * 003576 3000020360 02310 JD 0203 COMP ERR IR2 HAS FLINT 02310 * 003603 3000716700 02320 J STR2 LOC OF CHAR FROM TAPE FLINT 02320 003610 4401641377 02330 RD2 SC IMM1+4,6,63 AR1 HAS SHOULD BE CHAR FLINT 02330 * 003615 1001640000 02340 JR IMM FLINT 02340 003622 2000010117 02350 FT 0101,15 5 FLINT 02350 * 003627 1001603724 02360 JR EXR,20 FLINT 02360 003634 2601000546 02370 CD1 IM+5,6 FLINT 02370 * 003641 3000366042 02380 JE $+15 FLINT 02380 * 003646 3000020460 02390 JD 0204 BLK ERR. BLK2 FLINT 02390 * 003653 3000716700 02400 J STR2 FLINT 02400 003660 3401600077 02410 CC IM+3072,2,63 FLINT 02410 * 003665 3000370442 02420 JE $+15 FLINT 02420 * 003672 3000020560 02430 JD 0205 TOO MANY CHAR WROTE FLINT 02430 * 003677 3000716700 02440 J STR2 + READ 3072 FLINT 02440 003704 5602063000 02450 BA1 BZ,0 FLINT 02450 003711 2001577716 02460 FT IM+3071,1,14 FLINT 02460 * 003716 1001757200 02470 JR COMP FLINT 02470 * 003723 3000020660 02480 JD 0206 COMP ERR. FLINT 02480 * 003730 3000716700 02490 J STR2 FLINT 02490 003735 4401641300 02500 RD3 SC IMM1+4,0,0 FLINT 02500 * 003742 1001640000 02510 JR IMM FLINT 02510 003747 2000010117 02520 FT 0101,15 5 FLINT 02520 003754 2000001037 02530 FT 010,31 FLINT 02530 * 003761 1001603724 02540 JR EXR,20 FLINT 02540 * 003766 1001615200 02550 JR EXT FLINT 02550 * 003773 3000020760 02560 JD 0207 LESS THAN NOT SET FLINT 02560 * 004000 3000716700 02570 J STR2 FLINT 02570 * 004005 1001631600 02580 JR EXRC FLINT 02580 * 004012 1001615200 02590 JR EXT FLINT 02590 * 004017 3000021060 02600 JD 0210 LESS THAN RESET BY FLINT 02600 * 004024 3000716700 02610 J STR2 WRONG BITS. FLINT 02610 004031 5602056066 02620 BD2 BCNT,6 FLINT 02620 004036 2601000566 02630 CD2 IM+5,6 FLINT 02630 * 004043 3000406242 02640 JE $+15 FLINT 02640 * 004050 3000021160 02650 JD 0211 BLK CNT. ERR. BLK 3 FLINT 02650 * 004055 3000716700 02660 J STR2 FLINT 02660 004062 2000201037 02670 FT 02010,3131 FLINT 02670 * 004067 1001603724 02680 JR EXR,20 FLINT 02680 004074 2000200037 02690 FT 02000,3131 FLINT 02690 * 004101 1001615200 02700 JR EXT FLINT 02700 * 004106 3000021260 02710 JD 0212 SYNC NOT INT. BY FLINT 02710 * 004113 3000716700 02720 J STR2 LESS IND. FLINT 02720 004120 2601000566 02730 CD2 IM+5,6 FLINT 02730 * 004125 3000414442 02740 JE $+15 FLINT 02740 * 004132 3000021360 02750 JD 0213 READ EVEN THOUGH BUSY FLINT 02750 * 004137 3000716700 02760 J STR2 AND LESS WERE SET FLINT 02760 004144 2000201037 02770 FT 02010,3131 FLINT 02770 * 004151 1001626500 02780 JR EXRO FLINT 02780 * 004156 1001622200 02790 JR EXTT FLINT 02790 * 004163 3000021460 02800 JD 0214 LESS THAN NOT RESET FLINT 02800 * 004170 3000716700 02810 J STR2 FLINT 02810 004175 5202056026 02820 SA2 BCNT,6 FLINT 02820 004202 5602061000 02830 BA1 B77,0 FLINT 02830 004207 3401040000 02840 CC IM+256,0,0 FLINT 02840 * 004214 3000423342 02850 JE $+15 FLINT 02850 * 004221 3000021560 02860 JD 0215 TO MANY CHAR WROTE FLINT 02860 * 004226 3000716700 02870 J STR2 256 READ 3076 FLINT 02870 004233 2001037716 02880 FT IM+255,1,14 FLINT 02880 * 004240 1001757200 02890 JR COMP COMP. ERROR SHOULD FLINT 02890 * 004245 3000021660 02900 JD 0216 BE 77 FLINT 02900 * 004252 3000716700 02910 J STR2 FLINT 02910 004257 2000000437 02920 RD4 FT 04,31 FLINT 02920 004264 2000410117 02930 FT 04101,1515 FLINT 02930 * 004271 1001603724 02940 JR EXR,20 FLINT 02940 * 004276 1001615200 02950 JR EXT FLINT 02950 * 004303 3000021760 02960 JD 0217 GREATER NOT SET FLINT 02960 * 004310 3000716700 02970 J STR2 FLINT 02970 * 004315 1001631600 02980 JR EXRC FLINT 02980 * 004322 1001615200 02990 JR EXT FLINT 02990 * 004327 3000022060 03000 JD 0220 GREATER RESET BY WRONG FLINT 03000 * 004334 3000716700 03010 J STR2 BITS FLINT 03010 004341 2001577716 03020 FT IM+3071,1,14 FLINT 03020 004346 5602061000 03030 BA1 B77,0 FLINT 03030 * 004353 1001757200 03040 JR COMP FLINT 03040 * 004360 3000022160 03050 JD 0221 DID NOT READ IN FLINT 03050 * 004365 3000716700 03060 J STR2 3072 CHAR. ASKED FLINT 03060 004372 5602056066 03070 BD2 BCNT,6 FOR 256 WROTE 3072 FLINT 03070 004377 2000200437 03080 FT 02004,3131 FLINT 03080 * 004404 1001603724 03090 JR EXR,20 FLINT 03090 004411 2000200037 03100 FT 02000,3131 FLINT 03100 * 004416 1001615200 03110 JR EXT BUSY NOT SET GAVE FLINT 03110 * 004423 3000022260 03120 JD 0222 IO ORDER WITH GREAT. SET FLINT 03120 * 004430 3000716700 03130 J STR2 FLINT 03130 004435 2000200437 03140 FT 02004,3131 FLINT 03140 * 004442 1001626500 03150 JR EXRO FLINT 03150 * 004447 1001622200 03160 JR EXTT GREATER NOT RESET FLINT 03160 * 004454 3000022360 03170 JD 0223 FLINT 03170 * 004461 3000716700 03180 J STR2 FLINT 03180 004466 4400451604 03190 BK1 SC BK2+4,4 4 FLINT 03190 004473 2000000037 03200 FT 0,31 FLINT 03200 004500 2000100017 03210 FT 01000,1515 FLINT 03210 * 004505 1001603724 03220 JR EXR,20 FLINT 03220 * 004512 3200450504 03230 BK2 JL $-5,4 FLINT 03230 004517 2602056026 03240 PD0 BCNT,6 FLINT 03240 004524 2000410117 03250 RD1X FT 04101,1515 FLINT 03250 * 004531 1001603724 03260 JR EXR,20 FLINT 03260 004536 2601000546 03270 CD1 IM+5,6 FLINT 03270 * 004543 3000456242 03280 JE $+15 FLINT 03280 * 004550 3000022460 03290 JD 0224 DID NOT DO 4 BACK FLINT 03290 * 004555 3000716700 03300 J STR2 SPACES FLINT 03300 004562 2000010117 03310 FT 0101,15 5 FLINT 03310 * 004567 1001603700 03320 RD2X JR EXR FLINT 03320 004574 2000200037 03330 FT 02000,3131 FLINT 03330 * 004601 1001603724 03340 JR EXR,20 FLINT 03340 004606 5602063766 03350 BD2 D1,6 FLINT 03350 004613 2601000566 03360 CD2 IM+5,6 FLINT 03360 * 004620 3000463742 03370 JE $+15 FLINT 03370 * 004625 3000022560 03380 JD 0225 DID NOT GET IMMEDIATE FLINT 03380 * 004632 3000716700 03390 J STR2 INTERRUPT FROM BUSY FLINT 03390 * 004637 1001615200 03400 JR EXT FLINT 03400 * 004644 3000022660 03410 JD 0226 BUSY NOT SET BY FLINT 03410 Y * 004651 3000716700 03420 J STR2 TWO I.O. FLINT 03420 * 004656 3000466324 03430 JC $+5,20 FLINT 03430 * 004663 3000466367 03440 JC $,55 FLINT 03440 004670 5602064566 03450 BD2 D2,6 FLINT 03450 004675 2601000566 03460 CD2 IM+5,6 FLINT 03460 * 004702 3000472142 03470 JE $+15 FLINT 03470 * 004707 3000022760 03480 JD 0227 DID NOT READ BLK 2 FLINT 03480 * 004714 3000716700 03490 J STR2 FLINT 03490 004721 2000410117 03500 FT 04101,1515 FLINT 03500 * 004726 1001603724 03510 JR EXR,20 FLINT 03510 004733 2601000566 03520 CD2 IM+5,6 FLINT 03520 * 004740 3000475742 03530 JE $+15 FLINT 03530 * 004745 3000023060 03540 JD 0230 SHOULD NOT HAVE READ FLINT 03540 * 004752 3000716700 03550 J STR2 BUSY STILL SET FLINT 03550 * 004757 1001626500 03560 JR EXRO FLINT 03560 004764 2000004037 03570 RDX3 FT 040,31 FLINT 03570 004771 2000400117 03580 FT 04001,1515 FLINT 03580 * 004776 1001603724 03590 JR EXR,20 FLINT 03590 * 005003 1001615200 03600 JR EXT FLINT 03600 * 005010 3000023160 03610 JD 0231 NO TAPE PARITY WROTE FLINT 03610 * 005015 3000716700 03620 J STR2 BIN READ BCD FLINT 03620 * 005022 3000502726 03630 JC $+5,22 FLINT 03630 005027 5602065366 03640 BD2 D3,6 FLINT 03640 005034 2601000566 03650 CD2 IM+5,6 FLINT 03650 * 005041 3000506066 03660 JC $+15,54 4 FLINT 03660 * 005046 3000027760 03670 JD 0277 FLINT 03670 * 005053 3000716700 03680 J STR2 WHEN COMP. IS MADE FLINT 03680 005060 5602061000 03690 BA1 B77,0 FLINT 03690 005065 2001037716 03700 FT IM+255,1,14 FLINT 03700 * 005072 1001757200 03710 JR COMP DID NOT COMPLETE FLINT 03710 * 005077 3000023260 03720 JD 0232 TRANSFER AFTER FLINT 03720 * 005104 3000716700 03730 J STR2 TPE ERROR FLINT 03730 * 005111 1001631600 03740 JR EXRC FLINT 03740 * 005116 1001615200 03750 JR EXT FLINT 03750 * 005123 3000023360 03760 JD 0233 TPERESET BY WRONG BITS FLINT 03760 * 005130 3000716700 03770 J STR2 FLINT 03770 005135 2000204037 03780 FT 02040,3131 FLINT 03780 * 005142 1001603724 03790 JR EXR,20 FLINT 03790 005147 2000200037 03800 FT 02000,3131 FLINT 03800 * 005154 1001615200 03810 JR EXT SHOULD NOT HAVE READ FLINT 03810 * 005161 3000023460 03820 JD 0234 IO GIVEN WITH TPE SET FLINT 03820 * 005166 3000716700 03830 J STR2 FLINT 03830 005173 2000204037 03840 FT 02040,3131 FLINT 03840 * 005200 1001626500 03850 JR EXRO FLINT 03850 * 005205 1001622200 03860 JR EXTT FLINT 03860 * 005212 3000023560 03870 JD 0235 TPE NOT RESET FLINT 03870 * 005217 3000716700 03880 J STR2 FLINT 03880 005224 2000000037 03890 RD4X FT 0,31 FLINT 03890 005231 2000010117 03900 FT 0101,15 5 FLINT 03900 * 005236 1001603724 03910 JR EXR,20 FLINT 03910 005243 5602066142 03920 RD5 BD1 D4,2 FLINT 03920 005250 5202056002 03930 SA1 BCNT,2 FLINT 03930 005255 4401641300 03940 SC IMM1+4,0,0 FLINT 03940 * 005262 1001640000 03950 JR IMM FLINT 03950 005267 2000400117 03960 FT 04001,1515 FLINT 03960 * 005274 1001603724 03970 JR EXR,20 FLINT 03970 005301 2601000546 03980 CD1 IM+5,6 FLINT 03980 * 005306 3000532542 03990 JE $+15 FLINT 03990 * 005313 3000023660 04000 JD 0236 BLK. ERR BLK5 FLINT 04000 * 005320 3000716700 04010 J STR2 THIS IS FIRST TIME FLINT 04010 005325 3401040000 04020 CC IM+256,0,0 BCD IS READ FLINT 04020 * 005332 3000535142 04030 JE $+15 FLINT 04030 * 005337 3000023760 04040 JD 0237 TOO MANY CHAR. FLINT 04040 * 005344 3000716700 04050 J STR2 FLINT 04050 005351 2001037716 04060 FT IM+255,1,14 FLINT 04060 005356 5602061000 04070 BA1 B77,0 FLINT 04070 * 005363 1001757200 04080 JR COMP FLINT 04080 * 005370 3000024060 04090 JD 0240 COMP ERR. ON BCD FLINT 04090 * 005375 3000716700 04100 J STR2 READ FLINT 04100 005402 2000000117 04110 RD6 FT 01,15 FLINT 04110 * 005407 1001603724 04120 JR EXR,20 FLINT 04120 005414 2601000546 04130 CD1 IM+5,6 FLINT 04130 * 005421 3000544042 04140 JE $+15 FLINT 04140 * 005426 3000024160 04150 JD 0241 BLK ERR ON BLK6 FLINT 04150 * 005433 3000716700 04160 J STR2 FLINT 04160 005440 3401600000 04170 CC IM+3072,2,0 FLINT 04170 * 005445 3000546442 04180 JE $+15 FLINT 04180 * 005452 3000024260 04190 JD 0242 TO MANY CHAR. FLINT 04190 * 005457 3000716700 04200 J STR2 FLINT 04200 005464 2001577716 04210 FT IM+3071,1,14 FLINT 04210 005471 5602061000 04220 BA1 B77,0 FLINT 04220 * 005476 1001757200 04230 JR COMP FLINT 04230 * 005503 3000024360 04240 JD 0243 COMP ERR ON LARGE BLK FLINT 04240 * 005510 3000716700 04250 J STR2 BCD. FLINT 04250 005515 2000400117 04260 RD7 FT 04001,1515 FLINT 04260 * 005522 1001603724 04270 JR EXR,20 FLINT 04270 005527 3401000620 04280 CC IM+6,02020 FLINT 04280 * 005534 3000555342 04290 JE $+15 FLINT 04290 * 005541 3000024460 04300 JD 0244 DID NOT TRANSLATE FLINT 04300 * 005546 3000716700 04310 J STR2 0 TO 20 FLINT 04310 * 005553 1001603724 04320 RD8 JR EXR,20 FLINT 04320 005560 3401037720 04330 CC IM+255,0,020 FLINT 04330 * 005565 3000560442 04340 JE $+15 FLINT 04340 * 005572 3000024560 04350 JD 0245 DID NOT TRANSLATE LAST FLINT 04350 * 005577 3000716700 04360 J STR2 CHAR. FLINT 04360 005604 5602061000 04370 BA1 B77,0 FLINT 04370 005611 2001037616 04380 FT IM+254,1,14 FLINT 04380 * 005616 1001757200 04390 JR COMP FLINT 04390 * 005623 3000024660 04400 JD 0246 TRANSLATED MORE THAN FLINT 04400 * 005630 3000716700 04410 J STR2 ONE CHAR. FLINT 04410 005635 2000000117 04420 RD9 FT 01,15 FLINT 04420 * 005642 1001603724 04430 JR EXR,20 FLINT 04430 005647 3401577720 04440 CC IM+3071,1,020 FLINT 04440 * 005654 3000567342 04450 JE $+15 FLINT 04450 * 005661 3000024760 04460 JD 0247 DID NOT TRANSLATE FLINT 04460 * 005666 3000716700 04470 J STR2 3072 CHAR. FLINT 04470 * 005673 1001603724 04480 RD10 JR EXR,20 FLINT 04480 005700 2601000546 04490 CD1 IM+5,6 FLINT 04490 * 005705 3000572442 04500 JE $+15 FLINT 04500 * 005712 3000025060 04510 JD 0250 BLK. ERR. BLK10 FLINT 04510 * 005717 3000716700 04520 J STR2 FLINT 04520 005724 5601735700 04530 BA1 B20,0 FLINT 04530 005731 2001577716 04540 FT IM+3071,1,14 FLINT 04540 * 005736 1001757200 04550 JR COMP FLINT 04550 * 005743 3000025160 04560 JD 0251 DID NOT TRANSLATE FLINT 04560 * 005750 3000716700 04570 J STR2 ENTIRE BLK. FLINT 04570 * 005755 3000576226 04580 RD11 JC $+5,22 FLINT 04580 005762 4402000000 04590 SC 020000,0,0 FLINT 04590 005767 2000400217 04600 FT 04002,1515 8K. FLINT 04600 * 005774 1001603724 04610 JR EXR,20 FLINT 04610 006001 7002000546 04620 CB1 020005,6,6 FLINT 04620 * 006006 3000603242 04630 JE $+20 FLINT 04630 * 006013 3000603266 04640 JC $+15,54 4 FLINT 04640 * 006020 3000025260 04650 JD 0252 DID NOT READ INTO FLINT 04650 * 006025 3000716700 04660 J STR2 STK.2 CHECK Z2 TO SYNC FLINT 04660 * 006032 3000603726 04670 RD12 JC $+5,22 FLINT 04670 006037 4404000000 04680 SC 040000,0,0 FLINT 04680 006044 2000400417 04690 FT 04004,1515 FLINT 04690 * 006051 1001603724 04700 JR EXR,20 FLINT 04700 006056 7004000546 04710 CB1 040005,6,6 FLINT 04710 * 006063 3000610742 04720 JE $+20 FLINT 04720 * 006070 3000610766 04730 JC $+15,54 4 FLINT 04730 * 006075 3000025360 04740 JD 0253 DID NOT READ INTO FLINT 04740 * 006102 3000716700 04750 J STR2 STK4 FLINT 04750 006107 4400615603 04760 RD13 SC RD13A+4,4,3 FLINT 04760 006114 2000400117 04770 FT 04001,1515 FLINT 04770 * 006121 1001603724 04780 JR EXR,20 FLINT 04780 006126 2601000546 04790 CD1 IM+5,6 FLINT 04790 * 006133 3000615242 04800 JE $+15 FLINT 04800 * 006140 3000025460 04810 JD 0254 BLK ERROR ON BLK FLINT 04810 * 006145 3000716700 04820 J STR2 FLINT 04820 * 006152 3200611403 04830 RD13A JL RD13+5,3,3 13-14-15-16. FLINT 04830 006157 2000004037 04840 FT 040,31 FLINT 04840 006164 2000410117 04850 FT 04101,1515 FLINT 04850 * 006171 1001603724 04860 JR EXR,20 FLINT 04860 * 006176 1001615200 04870 JR EXT FLINT 04870 * 006203 3000027360 04880 JD 0273 DID NOT SET T.P.E. FLINT 04880 I * 006210 3000716700 04890 J STR2 FLINT 04890 * 006215 1001626500 04900 JR EXRO FLINT 04900 * 006222 3000622726 04910 JC $+5,22 FLINT 04910 006227 3401000000 04920 CC IM,0 FLINT 04920 * 006234 3000625366 04930 JC $+15,54 4 FLINT 04930 * 006241 3000025560 04940 JD 0255 DID NOT PUT BAD PARITY FLINT 04940 * 006246 3000716700 04950 J STR2 IN MEM. ON BIN. READ OF FLINT 04950 006253 2000014037 04960 FT 0140,31 1 FLINT 04960 * 006260 1000763424 04970 JR EXW,20 FLINT 04970 006265 2000004037 04980 FT 040,31 FLINT 04980 * 006272 1001615200 04990 JR EXT FLINT 04990 * 006277 3000027660 05000 JD 0276 FLINT 05000 * 006304 3000716700 05010 J STR2 FLINT 05010 * 006311 1001626500 05020 JR EXRO FLINT 05020 006316 2000010037 05030 FT 0100,31 1 FLINT 05030 * 006323 1001615200 05040 JR EXT FLINT 05040 * 006330 3000025660 05050 JD 0256 MEM. PARITY NOT SET FLINT 05050 * 006335 3000716700 05060 J STR2 FLINT 05060 * 006342 1001631600 05070 JR EXRC FLINT 05070 * 006347 1001615200 05080 JR EXT FLINT 05080 * 006354 3000025760 05090 JD 0257 MEM. PARITY RESET BY FLINT 05090 * 006361 3000716700 05100 J STR2 WRONG BITS. FLINT 05100 006366 2000210037 05110 FT 02100,3131 FLINT 05110 * 006373 1000763424 05120 JR EXW,20 FLINT 05120 006400 2000200037 05130 FT 02000,3131 FLINT 05130 * 006405 1001615200 05140 JR EXT FLINT 05140 * 006412 3000026060 05150 JD 0260 SHOULD GET BUSY-ORDER FLINT 05150 * 006417 3000716700 05160 J STR2 GIVEN WITH MPE SET FLINT 05160 006424 2000000037 05170 FT 0,31 FLINT 05170 * 006431 1001631600 05180 JR EXRC FLINT 05180 * 006436 1001622200 05190 JR EXTT FLINT 05190 * 006443 3000026160 05200 JD 0261 MPE NOT RESET FLINT 05200 * 006450 3000716700 05210 J STR2 FLINT 05210 006455 4401641300 05220 SC IMM1+4,0,0 FLINT 05220 * 006462 1001640000 05230 JR IMM FLINT 05230 006467 4400654305 05240 SC BSP1+4,5,5 FLINT 05240 006474 2000100017 05250 BSP FT 01000,1515 FLINT 05250 * 006501 1001603724 05260 JR EXR,20 FLINT 05260 * 006506 1001603724 05270 JR EXR,20 FLINT 05270 * 006513 1001603724 05280 JR EXR,20 FLINT 05280 006520 2000400117 05290 FT 04001,1515 FLINT 05290 * 006525 1001603724 05300 JR EXR,20 FLINT 05300 * 006532 1001603724 05310 JR EXR,20 FLINT 05310 * 006537 3200647405 05320 BSP1 JL BSP,5 FLINT 05320 006544 5601736546 05330 BD1 D12,6 FLINT 05330 006551 2601000546 05340 CD1 IM+5,6 FLINT 05340 * 006556 3000657542 05350 JE $+15 FLINT 05350 * 006563 3000026260 05360 JD 0262 DID NOT BACK SPACE FLINT 05360 * 006570 3000716700 05370 J STR2 PROPERLY. FLINT 05370 006575 4400662005 05380 SC $+19,5 FLINT 05380 006602 2000100017 05390 FT 01000,1515 FLINT 05390 * 006607 1001603724 05400 JR EXR,20 FLINT 05400 * 006614 3200660706 05410 JL $-5,6 FLINT 05410 006621 2000400117 05420 ER1 FT 04001,1515 FLINT 05420 * 006626 1001603724 05430 JR EXR,20 FROM 12 TO 8 FLINT 05430 006633 5602057046 05440 BD1 D8,6 FLINT 05440 006640 2601000546 05450 CD1 IM+5,6 FLINT 05450 * 006645 3000666442 05460 JE $+15 FLINT 05460 * 006652 3000026360 05470 JD 0263 FLINT 05470 * 006657 3000716700 05480 J STR2 FLINT 05480 006664 5202056006 05490 SA1 BCNT,6 FLINT 05490 006671 2000000117 05500 FT 1,15 FLINT 05500 006676 2000000037 05510 FT 0,31 FLINT 05510 * 006703 1001603724 05520 JR EXR,20 FLINT 05520 * 006710 1001603724 05530 JR EXR,20 READ 9 FLINT 05530 R 006715 2000400117 05540 FT 04001,1515 FLINT 05540 006722 4400674006 05550 SC $+14,6 FLINT 05550 * 006727 1001603724 05560 JR EXR,20 FLINT 05560 * 006734 3200672706 05570 JL $-5,6 FLINT 05570 006741 2601000546 05580 CD1 IM+5,6 FLINT 05580 * 006746 3000676542 05590 JE $+15 FLINT 05590 * 006753 3000027560 05600 JD 0275 NOT BLK 16 FLINT 05600 * 006760 3000716700 05610 J STR2 FLINT 05610 006765 2000040117 05620 FT 0401,15 5 FLINT 05620 * 006772 1000763424 05630 JR EXW,20 ERASE FLINT 05630 * 006777 1000763424 05640 JR EXW,20 ERASE FLINT 05640 * 007004 1000763424 05650 JR EXW,20 ERASE FLINT 05650 007011 2602056026 05660 PD0 BCNT,6 FLINT 05660 007016 2000400117 05670 FT 04001,1515 FLINT 05670 * 007023 1000763424 05680 JR EXW,20 FLINT 05680 007030 2000100017 05690 RK1 FT 01000,1515 FLINT 05690 * 007035 1001603724 05700 JR EXR,20 FLINT 05700 * 007042 1001603724 05710 JR EXR,20 FLINT 05710 007047 2000400117 05720 FT 04001,1515 FLINT 05720 * 007054 1001603724 05730 JR EXR,20 FLINT 05730 007061 5602067546 05740 BD1 D16,6 FLINT 05740 007066 2601000546 05750 CD1 IM+5,6 LOST BLK WHILE ROCK FLINT 05750 * 007073 3000711242 05760 JE $+15 FLINT 05760 * 007100 3000026460 05770 JD 0264 FLINT 05770 * 007105 3000716700 05780 J STR2 FLINT 05780 * 007112 1001603724 05790 JR EXR,20 FLINT 05790 * 007117 3200703006 05800 JL RK1,6 FLINT 05800 007124 4400712306 05810 SC $-1,6 FLINT 05810 007131 5602063746 05820 BD1 D1,6 FLINT 05820 007136 2601000546 05830 CD1 IM+5,6 FLINT 05830 * 007143 3000716242 05840 JE $+15 FLINT 05840 * 007150 3000026560 05850 JD 0265 DID NOT ERASE FLINT 05850 * 007155 3000716700 05860 J STR2 FLINT 05860 * 007162 1000722363 05870 JR MOA,51 SS2 SET FLINT 05870 007167 2000777737 05880 STR2 FT 07777,3131 MEMORY OVERLOAD TEST FLINT 05880 * 007174 1001626500 05890 JR EXRO FLINT 05890 * 007201 1002050324 05900 JR REW,20 FLINT 05900 * 007206 3000345162 05910 JC TST2+5,5,50 FLINT 05910 * 007213 3000344400 05920 J TST2 FLINT 05920 * 007220 3000000000 05930 MOA J 0 FLINT 05930 007225 4020407777 05940 XF 040,0777777,0,1 FLINT 05940 007232 4402063112 05950 SC PSW,10 FLINT 05950 * 007237 1002050324 05960 JR REW,20 FLINT 05960 * 007244 1002050324 05970 JR REW,20 FLINT 05970 007251 2000070044 05980 FT 0700,36 6 FLINT 05980 007256 2000070045 05990 FT 0700,37 7 FLINT 05990 007263 2000410117 06000 FT 04101,1515 FLINT 06000 007270 2000600037 06010 FT 06000,3131 FLINT 06010 007275 4020010100 06020 XF 01,0100,0,0,1 FLINT 06020 * 007302 1001603724 06030 JR EXR,20 FLINT 06030 007307 2000200037 06040 FT 02000,3131 FLINT 06040 * 007314 1001615200 06050 JR EXT FLINT 06050 * 007321 3000027460 06060 JD 0274 BUSY NOT SET WITH M.O.A. FLINT 06060 U * 007326 3000716700 06070 J STR2 FLINT 06070 007333 2000400037 06080 FT 04000,3131 FLINT 06080 * 007340 1001615200 06090 JR EXT FLINT 06090 * 007345 3000026660 06100 JD 0266 MOA NOT SET FLINT 06100 * 007352 3000716700 06110 J STR2 FLINT 06110 * 007357 1001631600 06120 JR EXRC FLINT 06120 * 007364 1001615200 06130 JR EXT FLINT 06130 * 007371 3000026760 06140 JD 0267 MOA RESET BY WRONG BITS FLINT 06140 * 007376 3000716700 06150 J STR2 FLINT 06150 007403 2000200037 06160 FT 02000,3131 FLINT 06160 * 007410 1001626500 06170 JR EXRO FLINT 06170 007415 3402063100 06180 CC PSW,0 FLINT 06180 * 007422 3000741543 06190 JU $-5 FLINT 06190 007427 2000600037 06200 FT 06000,3131 FLINT 06200 * 007434 1001603724 06210 JR EXR,20 FLINT 06210 007441 2000200037 06220 FT 02000,3131 FLINT 06220 * 007446 1001615200 06230 JR EXT FLINT 06230 * 007453 3000027060 06240 JD 0270 BUSY NOT SET WHEN FLINT 06240 * 007460 3000716700 06250 J STR2 ORDER GIVEN WITH MOA FLINT 06250 007465 2000600037 06260 FT 06000,3131 SET. FLINT 06260 * 007472 1001626500 06270 JR EXRO FLINT 06270 * 007477 1001622200 06280 JR EXTT FLINT 06280 * 007504 3000027160 06290 JD 0271 MOA NOT RESET FLINT 06290 * 007511 3000716700 06300 J STR2 FLINT 06300 007516 2000000037 06310 FT 0,31 FLINT 06310 007523 4402063112 06320 SC PSW,10 FLINT 06320 * 007530 1001603700 06330 JR EXR FLINT 06330 007535 4020210300 06340 XF 021,030000,0,1 FLINT 06340 * 007542 3000754724 06350 JC $+5,20 FLINT 06350 007547 3402063100 06360 CC PSW,0 FLINT 06360 * 007554 3000754743 06370 JU $-5 FLINT 06370 * 007561 3000756167 06380 JC $,55 FLINT 06380 007566 2000110003 06390 FT 01100,3 3 FLINT 06390 007573 7000022343 06400 CB1 0223,3 FLINT 06400 * 007600 3000761741 06410 JG $+15 FLINT 06410 * 007605 3000027260 06420 JD 0272 B.A. ADVANCED-NO FLINT 06420 * 007612 3000716700 06430 J STR2 MOA ON PRINTER FLINT 06430 007617 4020610100 06440 XF 061,010000,0,1 FLINT 06440 * 007624 3000722000 06450 J MOA FLINT 06450 * 007631 3000000000 06460 EXW J 0 WRITE SUBROUTINE FLINT 06460 007636 5600007702 06470 BA1 077,2 FLINT 06470 007643 5200770502 06480 SA1 EXW1+4,2,2 TO WRITE INSTRUCTION FLINT 06480 007650 5602056046 06490 BD1 BCNT,6 AND ADD 1 TO CNT. FLINT 06490 007655 6602063706 06500 AD1 D1,6 FLINT 06500 007662 5201000506 06510 SA1 IM+5,6 FLINT 06510 007667 5202056006 06520 SA1 BCNT,6 FLINT 06520 007674 4600770535 06530 BT $+9,29 FLINT 06530 007701 4100020000 06540 EXW1 XF 2,0,0,CHCH FLINT 06540 * 007706 3000770667 06550 JC $,55 WAIT TILL INT. FLINT 06550 * 007713 3000763100 06560 J EXW FLINT 06560 016034 065601 ORIG IM+3100 0 FLINT 065601 * 016034 3000000000 06570 EXR J 0 READ SUBROUTINE FLINT 06570 016041 5600007702 06580 BA1 077,2 FLINT 06580 016046 5201606402 06590 SA1 $+14,2 BRING FUNCTION BITS FLINT 06590 016053 4601606435 06600 BT $+9,29 TO READ ORDER FLINT 06600 016060 4100010000 06610 EXR1 XF 1,0,0,CHCH FLINT 06610 016065 5602056046 06620 BD1 BCNT,6 FLINT 06620 016072 6602063706 06630 AD1 D1,6 ADD 1 FOR COUNT FLINT 06630 016077 5202056006 06640 SA1 BCNT,6 FLINT 06640 * 016104 3001610467 06650 JC $,55 WAIT TILL INT. FLINT 06650 * 016111 3001603400 06660 J EXR FLINT 06660 * 016116 3000000000 06690 EXTX J 0 FLINT 06690 016123 5600017702 06700 BA1 0177,2 TEST ONLY LEAVE FLINT 06700 016130 5201614102 06710 SA1 $+9,2 IOS 3 SET FLINT 06710 016135 4100000000 06720 EXTX1 XF 0,0,0,CHCH FLINT 06720 * 016142 3001611600 06730 J EXTX FLINT 06730 * 016147 3000000000 06740 EXT J 0 TEST IND. TEST FLINT 06740 016154 5600017702 06750 BA1 0177,2 +10 TO JR. ENTRY FLINT 06750 016161 5201617202 06760 SA1 $+9,2 IF RIGHT IND. IS FLINT 06760 016166 4100000000 06770 EXT1 XF 0,0,0,CHCH SET. BRING FUNCT. FLINT 06770 * 016173 3001620553 06780 JC $+10,43 3 BIT TO ORDER FROM FLINT 06780 * 016200 3001614700 06790 J EXT T31 FLINT 06790 016205 6001615212 06800 AC EXT+3,1010 FLINT 06800 * 016212 3001614700 06810 J EXT FLINT 06810 * 016217 3000000000 06820 EXTT J 0 TEST IND RESET TEST FLINT 06820 016224 5600017702 06830 BA1 0177,2 +10 TO JR. ENTRY FLINT 06830 016231 5201624202 06840 SA1 $+9,2 IF STILL SET. FLINT 06840 016236 4100000000 06850 EXTT1 XF 0,0,0,CHCH FLINT 06850 * 016243 3001621753 06860 JC EXTT,43 3 FLINT 06860 016250 6001622212 06870 AC EXTT+3,1,10 FLINT 06870 * 016255 3001621700 06880 J EXTT FLINT 06880 * 016262 3000000000 06890 EXRO J 0 RESET IND. FLINT 06890 016267 5600017702 06900 BA1 0177,2 BRING FUNCTIONS FLINT 06900 016274 5201630502 06910 SA1 $+9,2 FROM T31 FLINT 06910 016301 4100400000 06920 EXRO1 XF 040,0,0,0,CH FLINT 06920 * 016306 3001626200 06930 J EXRO FLINT 06930 * 016313 3000000000 06940 EXRC J 0 RESET IND. COMPLIMENT FLINT 06940 016320 5600017702 06950 BA1 0177,2 OF ONE BEING TESTED FLINT 06950 016325 4400004077 06960 SC 040,63 FLINT 06960 016332 4400004177 06970 SC 041,63 FLINT 06970 016337 3600001702 06980 CS 017,2 FLINT 06980 016344 5600004102 06990 BA1 041,2 FLINT 06990 016351 1600001766 07000 BC2 017,6 FLINT 07000 016356 5201636702 07010 SA1 $+9,2 FLINT 07010 016363 4100400000 07020 EXRC1 XF 040,0,0,0,CH FLINT 07020 * 016370 3001631300 07030 J EXRC FLINT 07030 * 016375 3000000000 07040 IMM J 0 FLINT 07040 016402 2701000001 07050 PD IM,1,4 IR4 FOR STACK FLINT 07050 016407 4501000000 07060 IMM1 SC IM,0,4 1-2-3 FLINT 07060 016414 4401644403 07070 SC IMM2+4,3,3 FLINT 07070 016421 2000000022 07080 FT 0,18 FLINT 07080 016426 2001000120 07090 FT IM+1,16 6 FLINT 07090 016433 2501000021 07100 TFI IM,,4 FLINT 07100 * 016440 3201643303 07110 IMM2 JL $-5,3 FLINT 07110 * 016445 3001637500 07120 J IMM FLINT 07120 * 016452 3000000000 07130 EXTC J 0 FLINT 07130 016457 5600017702 07140 BA1 0177,2 TEST COMPLIMENT FLINT 07140 016464 4400004077 07150 SC 040,63 OF IND. BEING FLINT 07150 016471 4400004177 07160 SC 041,63 TESTED LEAVE IOS1 FLINT 07160 016476 3600001702 07170 CS 017,2 SET. FLINT 07170 016503 5600004102 07180 BA1 041,2 FLINT 07180 016510 1600001766 07190 BC2 017,6 FLINT 07190 016515 5201652602 07200 SA1 $+9,2 FLINT 07200 016522 4100000000 07210 EXTC1 XF 0,0,0,CHCH FLINT 07210 * 016527 3001645200 07220 J EXTC FLINT 07220 * 016534 3000000031 07230 JC 0,25 FLINT 07230 016543 016544 07240 IE +3 IE1 FLINT 07240 * 016544 3002067651 07250 IE1 JC SI,41 FLINT 07250 016551 5202070610 07260 SA1 STAR,8 FLINT 07260 016556 5600007710 07270 BA1 077,8 FLINT 07270 016563 5202071610 07280 SA1 STAR1,8 8 FLINT 07280 016570 4202072310 07290 ST MSK-3,8 8 FLINT 07290 016575 4202072637 07300 ST MSK,31 FLINT 07300 016602 4202073235 07310 ST MSK1,29 9 FLINT 07310 * 016607 1001645500 07320 REC3 JR EXTC FLINT 07320 * 016614 3001671053 07330 JC REC,43 FLINT 07330 016621 5602071610 07340 RSTR BA1 STAR1,8 8 FLINT 07340 016626 5200007710 07350 SA1 077,8 FLINT 07350 016633 5602070610 07360 BA1 STAR,8 FLINT 07360 016640 4602072310 07370 BT MSK-3,8 8 FLINT 07370 016645 4602072637 07380 BT MSK,31 FLINT 07380 016652 4602073235 07390 BT MSK1,29 9 FLINT 07390 * 016657 3002067652 07400 JC SI,42 FLINT 07400 * 016664 3201670300 07410 REC1 JL $+15,0 FLINT 07410 016671 2602056202 07420 PD CNT,2 FLINT 07420 * 016676 3001670327 07430 JC $+5,23 FLINT 07430 * 016703 3000040000 07440 REC4 J 0400 FLINT 07440 016710 4401667003 07450 REC SC REC1+4,3,3 FLINT 07450 016715 7400017736 07460 CT 0177,30 0 FLINT 07460 * 016722 3001712443 07470 JU REC2 FLINT 07470 016727 2000004037 07480 FT 040,31 FLINT 07480 * 016734 1001612100 07490 JR EXTX FLINT 07490 * 016741 3001713653 07500 JC TPE,43 FLINT 07500 * 016746 3007000760 07510 JD 070007 UNEXPECTED ERROR OTHER FLINT 07510 016753 4401667000 07520 SC REC1+4,0,0 FLINT 07520 016760 2000000137 07530 DISP FT 1,31 FLINT 07530 016765 4401707202 07540 SC DP1+4,2 2 FLINT 07540 016772 2000000011 07550 FT 0,9 FLINT 07550 016777 2600003702 07560 PD 037,2 FLINT 07560 017004 4401704101 07570 SC DP2+4,1 1 FLINT 07570 017011 4401706006 07580 SC DP3+4,6 6 FLINT 07580 * 017016 1001612100 07590 JR EXTX FLINT 07590 * 017023 3001703553 07600 JC $+10,43 3 FLINT 07600 * 017030 3001704200 07610 JC $+10 FLINT 07610 017035 6420003701 07620 DP2 LS 037,1,1 1 FLINT 07620 017042 1620017761 07630 BC2 0177,1,1,1 FLINT 07630 017047 1601704151 07640 BC1 DP2+4,1 1 FLINT 07640 * 017054 3201701606 07650 DP3 JL DP2-15,6,6 FLINT 07650 017061 2037777711 07660 FT -1,9,1 FLINT 07660 * 017066 3201701102 07670 DP1 JL DP2-20,2,2 FLINT 07670 017073 5201710322 07680 SA2 $+8,2 FLINT 07680 * 017100 3000000060 07690 JD 0 FLINT 07690 017105 2000000037 07700 FT 0,31 FLINT 07700 * 017112 1001631600 07710 JR EXRC FLINT 07710 * 017117 3000140031 07720 JC STR,25 FLINT 07720 * 017124 3007001060 07730 REC2 JD 070010 GOT UNEXPECTED ERROR FLINT 07730 * 017131 3001675300 07740 J DISP-5 FLINT 07740 017136 3402056203 07750 TPE CC CNT,3 FLINT 07750 * 017143 3001732642 07760 JE TST FLINT 07760 * 017150 1001626500 07770 JR EXRO RESET TPE FLINT 07770 017155 4201721735 07780 ST I02+4,2929 FLINT 07780 017162 4100011000 07790 I03 XF 01,0100000,0,CH FLINT 07790 017167 2000200037 07800 FT 02000,3131 BUSY FLINT 07800 017174 1401721502 07810 LC I02+2,2 2 FLINT 07810 * 017201 3001726342 07820 JE ERSE FLINT 07820 * 017206 1001626500 07830 JR EXRO RESET BUSY FLINT 07830 017213 4100000000 07840 I02 XF 0,0,0,CHCH FLINT 07840 * 017220 1001645500 07850 JR EXTC ALL EXCEPT BUSY FLINT 07850 * 017225 3001724453 07860 JC $+15,43 3 FLINT 07860 * 017232 1001612100 07870 JR EXTX FLINT 07870 * 017237 3001720653 07880 JC I02-5,4343 TEST BUSY IF SET REISSUE FLINT 07880 017244 4602072637 07890 BT MSK,31 FLINT 07890 017251 6002056201 07900 AC CNT,1 FLINT 07900 * 017256 3001660700 07910 J REC3 FLINT 07910 * 017263 1001626500 07920 ERSE JR EXRO RESET BUSY FLINT 07920 017270 4100020400 07930 I04 XF 02,0400,0,0,CH FLINT 07930 * 017275 1001645500 07940 JR EXTC TEST ALL EXCEPT BUSY FLINT 07940 * 017302 3001724453 07950 JC ERSE-15,5,43 FLINT 07950 * 017307 1001612100 07960 JR EXTX FLINT 07960 * 017314 3001726353 07970 JC ERSE,43 3 FLINT 07970 * 017321 3001720600 07980 J I02-5 FLINT 07980 * 017326 3007333360 07990 TST JD 073333 FLINT 07990 * 017333 3001713100 08000 J REC2+5 FLINT 08000 017347 2020202020202020 08010 +8 0202020202020202020 FLINT 08010 0 017357 2020202020202020 08020 B20 +8 0202020202020202020 FLINT 08020 0 017365 000012 08030 D12 +6 _000012_2_ FLINT 08030 * 017366 3000000036 08040 JC 0,30 FLINT 08040 017375 017406 08050 CL1 +3 CL1A FLINT 08050 * 017376 3000000035 08060 JC 0,29 FLINT 08060 017405 017413 08070 CL2 +3 CL2A FLINT 08070 * 017406 3000050023 08080 CL1A JC 0500,19 9 FLINT 08080 * 017413 3001743254 08090 CL2A JC $+15,44 4 FLINT 08090 * 017420 3002222260 08100 JD 022222 FLINT 08100 * 017425 3000051050 08110 JC 0510,40 0 FLINT 08110 * 017432 3001743716 08120 JC $+5,14 FLINT 08120 * 017437 3201743777 08130 JL $,63 FLINT 08130 017444 4401744377 08140 SC $-1,63 FLINT 08140 * 017451 3201743777 08150 JL $-10,63 3 FLINT 08150 017456 4401745577 08160 SC $-1,63 FLINT 08160 017463 4000407777 08170 XF 040,0777777,0,0 FLINT 08170 017470 2000777737 08180 FT 07777,3131 FLINT 08180 * 017475 1001626500 08190 JR EXRO FLINT 08190 * 017502 3001750731 08200 JC $+5,25 FLINT 08200 * 017507 3000140035 08210 JC STR,29 FLINT 08210 * 017514 3000000031 08220 JC 0,25 FLINT 08220 017523 017524 08230 CH0 +3 CH01 FLINT 08230 017524 4020001777 08240 CH01 XF 0,01777,7,0,1 FLINT 08240 * 017531 3001755553 08250 JC $+20,43 3 FLINT 08250 017536 4020407777 08260 XF 040,0777777,0,1 FLINT 08260 017543 4402063100 08270 SC PSW,0 FLINT 08270 * 017550 3000041000 08280 J 0410 FLINT 08280 * 017555 3007000060 08290 JD 070000 FLINT 08290 * 017562 3001753600 08300 J $-20 FLINT 08300 * 017567 3000000000 08310 COMP J 0 FLINT 08310 017574 2001000512 08320 FT IM+5,10 0 IR2 FLINT 08320 017601 5340002000 08330 SA1 16,0,6 FLINT 08330 017606 7040002040 08340 CB1 16,0,2 FLINT 08340 * 017613 3001765143 08350 JU CER FLINT 08350 017620 2040002012 08360 FT 16,10,2 2 FLINT 08360 017625 7400007312 08370 CT 073,10 FLINT 08370 * 017632 3001760644 08380 JS $-20 FLINT 08380 017637 6001757212 08390 AC COMP+3,1,10 FLINT 08390 * 017644 3001756700 08400 J COMP FLINT 08400 017651 4401770120 08410 CER SC $+24,16 6 FLINT 08410 017656 7040000141 08420 CB1 1,1,2 FLINT 08420 * 017663 3001756743 08430 JU COMP FLINT 08430 017670 2040000112 08440 FT 1,10,2 FLINT 08440 * 017675 3201765620 08450 JL $-15,16 6 FLINT 08450 * 017702 3007070760 08460 JD 070707 FLINT 08460 * 017707 3000140000 08470 J STR FLINT 08470 020500 08480 ORIG 020500 FLINT 08480 * 020500 3000000000 08490 REW J 0 FLINT 08490 020505 4100040000 08500 REW1 XF 04,0,0,C,CH FLINT 08500 * 020512 3002051267 08510 JC $,55 FLINT 08510 * 020517 3002050000 08520 J REW FLINT 08520 * 020524 3000000000 08530 RW J 0 FLINT 08530 020531 4100100000 08540 RW1 XF 010,0,0,0,CH FLINT 08540 * 020536 3002053667 08550 JC $,55 FLINT 08550 * 020543 3002052400 08560 J RW FLINT 08560 020552 000000 08570 SEL +3 0 FLINT 08570 020560 000000000000 08580 BCNT +6 0 FLINT 08580 020562 0000 08590 CNT +2 0 FLINT 08590 020570 000008 08600 D8 +6 _000008_8_ FLINT 08600 020600 7777777777777777 08610 +8 0777777777777777777 FLINT 08610 7 020610 7777777777777777 08620 B77 +8 0777777777777777777 FLINT 08620 7 020620 0000000000000000 08630 +8 0000000000000000000 FLINT 08630 0 020630 0000000000000000 08640 BZ +8 0000000000000000000 FLINT 08640 0 020631 00 08650 PSW +1 0 FLINT 08650 020637 000001 08660 D1 +6 _000001_1_ FLINT 08660 020645 000002 08670 D2 +6 _000002_2_ FLINT 08670 020653 000003 08680 D3 +6 _000003_3_ FLINT 08680 020661 000004 08690 D4 +6 _000004_4_ FLINT 08690 020667 000005 08700 D5 +6 _000005_5_ FLINT 08700 020675 000016 08710 D16 +6 _000016_6_ FLINT 08710 000004 08720 CH EQU 4 FLINT 08720 020676 00 08730 SI +1 0 FLINT 08730 020706 0000000000000000 08740 STAR +8 0 FLINT 08740 020716 0000000000000000 08750 STAR1 +8 0 FLINT 08750 020726 0000000000000000 08760 MSK +8 0 FLINT 08760 020732 00000000 08770 MSK1 +4 0 FLINT 08770 020740 000500 08780 D500 +6 _000500_0_ FLINT 08780 020746 000000 08790 D501 +6 _000000_0_ FLINT 08790 * 020747 3000000000 08800 TST4 J 0 FLINT 08800 020754 4401672640 08810 SC REC+14,0,040 FLINT 08810 020761 2602056026 08820 PD0 BCNT,6 FLINT 08820 020766 4401641377 08830 SC IMM1+4,6,63 FLINT 08830 * 020773 1001640000 08840 JR IMM FLINT 08840 021000 4402170140 08850 SC DEL1+4,0,040 FLINT 08850 021005 2600006710 08860 PD 067,8 FLINT 08860 021012 2000000237 08870 FT 2,31 FLINT 08870 021017 2000010117 08880 FT 0101,15 5 WRITE UNTIL END FLINT 08880 * 021024 1000763424 08890 EOT1 JR EXW,20 OF TAPE. THEN FLINT 08890 * 021031 1001622200 08900 JR EXTT TEST EOT FLIP FLINT 08900 * 021036 3002106200 08910 J $+20 FLOP FOR RESET FLINT 08910 * 021043 3002161300 08920 J STR4 AND INTERLOCK. FLINT 08920 * 021050 1002164700 08930 JR DEL FLINT 08930 * 021055 3002102400 08940 J EOT1 FLINT 08940 021062 5601000506 08950 BA1 IM+5,6 FLINT 08950 021067 5202074606 08960 SA1 D501,6 FLINT 08960 * 021074 1001631600 08970 JR EXRC FLINT 08970 * 021101 1001615200 08980 JR EXT FLINT 08980 * 021106 3000040160 08990 JD 0401 EOT RESET BY WRONG FLINT 08990 * 021113 3002161300 09000 J STR4 BITS. FLINT 09000 021120 2000200237 09010 FT 02002,3131 FLINT 09010 * 021125 1000763424 09020 JR EXW,20 FLINT 09020 021132 2000200037 09030 FT 02000,3131 FLINT 09030 * 021137 1001615200 09040 JR EXT GAVE IO ORDER WITH FLINT 09040 * 021144 3000040260 09050 JD 0402 EOT SET DID NOT FLINT 09050 * 021151 3002161300 09060 J STR4 GET BUSY BACK. FLINT 09060 021156 2000200237 09070 FT 02002,3131 FLINT 09070 * 021163 1001626500 09080 JR EXRO FLINT 09080 * 021170 1001622200 09090 JR EXTT FLINT 09090 * 021175 3000040360 09100 JD 0403 DID NOT RESET EOT FLINT 09100 * 021202 3002161300 09110 J STR4 FLINT 09110 021207 2000100017 09120 FT 01000,1515 FLINT 09120 * 021214 1001603724 09130 JR EXR,20 FLINT 09130 * 021221 1001622200 09140 JR EXTT FLINT 09140 * 021226 3000040460 09150 JD 0404 EOT SET ON READ FLINT 09150 * 021233 3002161300 09160 J STR4 FLINT 09160 * 021240 1002050324 09170 JR REW,20 FLINT 09170 * 021245 1002050300 09180 JR REW FLINT 09180 021252 2000200037 09190 FT 02000,3131 FLINT 09190 * 021257 1002050300 09200 JR REW FLINT 09200 * 021264 1001615200 09210 JR EXT SHOULD STORE 2ND REW. FLINT 09210 * 021271 3000040560 09220 JD 0405 3RD SHOLD GINE BUSY. FLINT 09220 * 021276 3002161300 09230 J STR4 FLINT 09230 * 021303 1001626500 09240 JR EXRO FLINT 09240 * 021310 3002131524 09250 JC $+5,20 FLINT 09250 * 021315 3002131567 09260 JC $,55 FLINT 09260 021322 2602056026 09270 PD0 BCNT,6 FLINT 09270 021327 2600006710 09280 PD 067,8 FLINT 09280 021334 2000200014 09290 FT 02000,1212 FLINT 09290 021341 4402170100 09300 SC DEL1+4,0,0 FLINT 09300 021346 2000000037 09310 FT 0,31 FLINT 09310 021353 2000010117 09320 FT 0101,15 5 FLINT 09320 * 021360 1001603724 09330 JR EXR,20 FLINT 09330 021365 2601000546 09340 CD1 IM+5,6 FLINT 09340 * 021372 3002141142 09350 JE $+15 FLINT 09350 * 021377 3000040660 09360 JD 0406 MISSED BLOCK. FLINT 09360 * 021404 3002161300 09370 J STR4 FLINT 09370 * 021411 1002164700 09380 JR DEL FLINT 09380 021416 2602074046 09390 CD1 D500,6 FLINT 09390 * 021423 3002144242 09400 JE $+15 FLINT 09400 021430 2602074646 09410 CD1 D501,6 FLINT 09410 * 021435 3002136043 09420 JU $-45 FLINT 09420 * 021442 1002052724 09430 JR RW,20 FLINT 09430 021447 2000100037 09440 FT 01000,3131 FLINT 09440 * 021454 1002050324 09450 JR REW,20 FLINT 09450 * 021461 1001615200 09460 JR EXT FLINT 09460 * 021466 3000040760 09470 JD 0407 SHOULD HAVE REWOUND TO FLINT 09470 * 021473 3002161300 09480 J STR4 LOAD TAPE NEXT REWIND FLINT 09480 * 021500 1001631600 09490 JR EXRC FLINT 09490 * 021505 1001615200 09500 JR EXT FLINT 09500 * 021512 3000041060 09510 JD 0410 NON-READY RESET BY FLINT 09510 * 021517 3002161300 09520 J STR4 WRONG BITS. FLINT 09520 021524 2000300037 09530 FT 03000,3131 SHOULD SET NON READY FLINT 09530 * 021531 1001603724 09540 JR EXR,20 FLINT 09540 021536 2000200037 09550 FT 02000,3131 FLINT 09550 * 021543 1001615200 09560 JR EXT FLINT 09560 * 021550 3000041160 09570 JD 0411 BUSY BECAUSE IO GIVEN FLINT 09570 * 021555 3002161300 09580 J STR4 WITH NON-READY SET. FLINT 09580 021562 2000210037 09590 FT 02100,3131 FLINT 09590 * 021567 1001626500 09600 JR EXRO FLINT 09600 * 021574 1001622200 09610 JR EXTT FLINT 09610 * 021601 3000041260 09620 JD 0412 NON-READY NOT RESET. FLINT 09620 * 021606 3002161300 09630 J STR4 FLINT 09630 021613 2000777737 09640 STR4 FT 07777,3131 FLINT 09640 * 021620 1001626500 09650 JR EXRO FLINT 09650 021625 4401672643 09660 SC REC+14,0,043 FLINT 09660 * 021632 3002075462 09670 JC TST4+5,5,50 FLINT 09670 * 021637 3002074700 09680 J TST4 FLINT 09680 * 021644 3000000000 09690 DEL J 0 FLINT 09690 021651 2120000415 09700 FT 4,13,5 FLINT 09700 021656 7400006714 09710 CT 067,12 FLINT 09710 * 021663 3002165141 09720 JG $-10 FLINT 09720 021670 2600006704 09730 PD 067,4 FLINT 09730 * 021675 3002172640 09740 DEL1 JC FAST,04040 FLINT 09740 021702 2100001014 09750 FT 8,12,4 FLINT 09750 021707 3400006220 09760 CC 062,16 FLINT 09760 * 021714 3002164443 09770 JU DEL FLINT 09770 021721 4402170100 09780 SC DEL1+4,0,0 FLINT 09780 021726 2117777014 09790 FAST FT -8,12,4 4 FLINT 09790 021733 7400006336 09800 CT 063,30 FLINT 09800 * 021740 3002164443 09810 JU DEL FLINT 09810 021745 4402170140 09820 SC DEL1+4,0,040 FLINT 09820 * 021752 3002164400 09830 J DEL FLINT 09830 * 021757 3000000000 09840 TST3 J 0 FLINT 09840 021764 4401641377 09850 SC IMM1+4,6,63 FLINT 09850 * 021771 1001640000 09860 JR IMM FLINT 09860 021776 2000410117 09870 FT 04101,1515 FLINT 09870 * 022003 1000763424 09880 JR EXW,20 FLINT 09880 * 022010 1002050324 09890 JR REW,20 FLINT 09890 022015 2602056026 09900 PD0 BCNT,6 FLINT 09900 022022 2000100017 09910 FT 01000,1515 FLINT 09910 022027 2000100037 09920 FT 01000,3131 FLINT 09920 * 022034 1001603724 09930 JR EXR,20 FLINT 09930 * 022041 1001615200 09940 JR EXT FLINT 09940 * 022046 3000030160 09950 JD 0301 NON READY NOT FLINT 09950 * 022053 3002361400 09960 J STR3 SET WHEN BACKSPACE FLINT 09960 * 022060 1001631600 09970 JR EXRC FROM LOAD POINT FLINT 09970 * 022065 1001615200 09980 JR EXT FLINT 09980 * 022072 3000030260 09990 JD 0302 NON READY RESET BY FLINT 09990 * 022077 3002361400 10000 J STR3 WRONG BITS FLINT 10000 022104 2000300037 10010 FT 03000,3131 FLINT 10010 * 022111 1001603724 10020 JR EXR,20 FLINT 10020 022116 2000200037 10030 FT 02000,3131 FLINT 10030 * 022123 1001615200 10040 JR EXT BUSY NOT SET WHEN FLINT 10040 * 022130 3000030360 10050 JD 0303 IO GIVEN WITH NON- FLINT 10050 * 022135 3002361400 10060 J STR3 READY SET. FLINT 10060 022142 2000300037 10070 FT 03000,3131 FLINT 10070 * 022147 1001626500 10080 JR EXRO FLINT 10080 * 022154 1001622200 10090 JR EXTT FLINT 10090 * 022161 3000030460 10100 JD 0304 NON-READY NOT RESET FLINT 10100 * 022166 3002361400 10110 J STR3 FLINT 10110 022173 2000000037 10120 FT 0,31 FLINT 10120 022200 2000410117 10130 FT 04101,1515 FLINT 10130 * 022205 1001603724 10140 JR EXR,20 READ ONE BLK. FROM FLINT 10140 022212 2000100017 10150 FT 01000,1515 LOAD POINT. FLINT 10150 022217 2000100037 10160 FT 01000,3131 FLINT 10160 * 022224 1001603724 10170 JR EXR,20 BACKSPACE FLINT 10170 * 022231 1001603724 10180 JR EXR,20 BACKSPACE FLINT 10180 * 022236 1001615200 10190 JR EXT FLINT 10190 * 022243 3000030560 10200 JD 0305 POINT NO NON READY FLINT 10200 * 022250 3002361400 10210 J STR3 FLINT 10210 * 022255 1001626500 10220 JR EXRO FLINT 10220 * 022262 1002050324 10230 JR REW,20 FLINT 10230 * 022267 1002050324 10240 JR REW,20 FLINT 10240 022274 2000000037 10250 FT 0,31 FLINT 10250 022301 2000410117 10260 FT 04101,1515 FLINT 10260 * 022306 1000763400 10270 JR EXW FLINT 10270 * 022313 1002365024 10280 JR FBD,20 FIRST BLK. DELAY FLINT 10280 * 022320 3000030660 10290 JD 0306 NOT LONG ENOUGH. FLINT 10290 * 022325 3002361400 10300 J STR3 FLINT 10300 * 022332 1002050324 10310 JR REW,20 FLINT 10310 022337 2602056026 10320 PD0 BCNT,6 FLINT 10320 022344 2000004037 10330 FT 040,31 FLINT 10330 022351 4402247076 10340 SC PL4+4,07076 FLINT 10340 022356 4402236701 10350 SC $+9,1 FLINT 10350 022363 4401641301 10360 PL1 SC IMM1+4,1,1 FLINT 10360 * 022370 1001640000 10370 JR IMM FLINT 10370 022375 2000410117 10380 FT 04101,1515 FLINT 10380 * 022402 1000763424 10390 JR EXW,20 FLINT 10390 * 022407 1001622200 10400 JR EXTT FLINT 10400 * 022414 1002250100 10410 JR ODD FLINT 10410 * 022421 3002361400 10420 J STR3 FLINT 10420 022426 2000400117 10430 FT 04001,1515 FLINT 10430 * 022433 1000763424 10440 JR EXW,20 FLINT 10440 * 022440 1001622200 10450 JR EXTT FLINT 10450 * 022445 1002254400 10460 JR EVEN FLINT 10460 * 022452 3002361400 10470 J STR3 FLINT 10470 022457 6002236701 10480 AC PL1+4,1 1 FLINT 10480 * 022464 3202236376 10490 PL4 JL PL1,076 6 FLINT 10490 * 022471 3002260400 10500 J CON FLINT 10500 * 022476 3000000000 10510 ODD J 0 FLINT 10510 * 022503 1001626500 10520 JR EXRO FLINT 10520 022510 5601000701 10530 BA1 IM+7,1 CAN NOT WRITE FLINT 10530 022515 5202252501 10540 SA1 $+8,1 ODD PARITY X BITS FLINT 10540 * 022522 3000710060 10550 JD 07100 ARE COMBINATION THAT FLINT 10550 022527 6002250105 10560 AC ODD+3,5 5 FAILED. FLINT 10560 * 022534 3002247600 10570 J ODD FLINT 10570 * 022541 3000000000 10580 EVEN J 0 FLINT 10580 * 022546 1001626500 10590 JR EXRO FLINT 10590 022553 5601000701 10600 BA1 IM+7,1 CAN NOT WRITE FLINT 10600 022560 5202257001 10610 SA1 $+8,1 EVEN PARITY X BITS FLINT 10610 * 022565 3000720060 10620 JD 07200 ARE COMBINATION THAT FLINT 10620 022572 6002254405 10630 AC EVEN+3,5,5 FAILED. FLINT 10630 * 022577 3002254100 10640 J EVEN FLINT 10640 * 022604 1002050324 10650 CON JR REW,20 FLINT 10650 022611 2000000037 10660 FT 0,31 FLINT 10660 022616 4400003701 10670 SC 037,1 FLINT 10670 022623 4402273576 10680 SC PL41+4,0,076 FLINT 10680 022630 2000410117 10690 FT 04101,1515 FLINT 10690 * 022635 1001603724 10700 JR EXR,20 FLINT 10700 022642 7001000761 10710 CB2 IM+7,1 FLINT 10710 * 022647 3002266642 10720 JE $+15 FLINT 10720 022654 5202266421 10730 SA2 $+8,1 FLINT 10730 * 022661 3000730060 10740 JD 07300 COMPARE ERROR WHEN READING FLINT 10740 022666 2000400117 10750 FT 04001,1515 ODD PARITY X- BITS COMBI. FLINT 10750 * 022673 1001603724 10760 JR EXR,20 THAT FAILED FLINT 10760 022700 7001000761 10770 CB2 IM+7,1 FLINT 10770 * 022705 3002272442 10780 JE $+15 FLINT 10780 022712 5202272221 10790 SA2 $+8,1 FLINT 10790 * 022717 3000740060 10800 JD 07400 COMPARE ERROR WHEN READING EVEN PARITY FLINT 10800 022724 6000003701 10810 AC 037,1 X- BITS COMBI. THAT FAILED FLINT 10810 * 022731 3202263076 10820 PL41 JL CON+20,0,076 FLINT 10820 * 022736 1002050324 10830 JR REW,20 FLINT 10830 022743 2000004037 10840 FT 040,31 FLINT 10840 022750 4402306776 10850 SC PL42+4,0,076 FLINT 10850 022755 4400003701 10860 SC 037,1 FLINT 10860 022762 2000400117 10870 FT 04001,1515 FLINT 10870 * 022767 1001603724 10880 JR EXR,20 FLINT 10880 * 022774 1001615200 10890 JR EXT FLINT 10890 * 023001 1002310000 10900 JR ODDX FLINT 10900 * 023006 3002301300 10910 J $+5 FLINT 10910 * 023013 1001626500 10920 JR EXRO FLINT 10920 023020 2000410117 10930 FT 04101,1515 FLINT 10930 * 023025 1001603724 10940 JR EXR,20 FLINT 10940 * 023032 1001615200 10950 JR EXT FLINT 10950 * 023037 1002313100 10960 JR EVENX FLINT 10960 * 023044 3002305100 10970 J $+5 FLINT 10970 * 023051 1001626500 10980 JR EXRO FLINT 10980 023056 6000003701 10990 AC 037,1 FLINT 10990 * 023063 3202276277 11000 PL42 JL PL41+25,5,63 FLINT 11000 * 023070 3002315700 11010 J CON1 FLINT 11010 * 023075 3000000000 11020 ODDX J 0 FLINT 11020 * 023102 1001626500 11030 JR EXRO FLINT 11030 023107 5202311721 11040 SA2 $+8,1 FLINT 11040 * 023114 3000750060 11050 JD 07500 WROTE ODD READ EVEN DID NOT SET FLINT 11050 * 023121 3002307500 11060 J ODDX TPE X- BITS COMBI. THAT FAILED FLINT 11060 * 023126 3000000000 11070 EVENX J 0 FLINT 11070 * 023133 1001626500 11080 JR EXRO FLINT 11080 023140 5202315021 11090 SA2 $+8,1 WROTE EVEN READ ODD DID NOT TPE FLINT 11090 O * 023145 3000760060 11100 JD 07600 X- BITS COMBI. THAT FAILED FLINT 11100 X * 023152 3002312600 11110 J EVENX FLINT 11110 * 023157 1002050324 11120 CON1 JR REW,20 FLINT 11120 023164 2602056026 11130 PD0 BCNT,6 FLINT 11130 023171 6401606202 11140 LS EXR1+2,2,2 FLINT 11140 023176 2000000037 11150 FT 0,31 FLINT 11150 023203 2000410117 11160 FT 04101,1515 FLINT 11160 * 023210 1001603724 11170 JR EXR,20 FLINT 11170 023215 2601000546 11180 CD1 IM+5,6 FLINT 11180 * 023222 3002324142 11190 JE $+15 GAVE IO WITH READ FLINT 11190 * 023227 3000030760 11200 JD 0307 AND WRITE SHOULD READ FLINT 11200 * 023234 3002361400 11210 J STR3 FLINT 11210 023241 2000440117 11220 FT 04401,1515 FLINT 11220 * 023246 1001603724 11230 JR EXR,20 FLINT 11230 023253 5602064546 11240 BD1 D2,6 GAVE IO WITH READ FLINT 11240 023260 2601000546 11250 CD1 IM+5,6 WRITE AND ERASE FLINT 11250 * 023265 3002330442 11260 JE $+15 SHOULD READ FLINT 11260 * 023272 3000031060 11270 JD 0310 FLINT 11270 * 023277 3002361400 11280 J STR3 FLINT 11280 023304 2000004037 11290 FT 040,31 FLINT 11290 023311 2000500117 11300 FT 05001,1515 FLINT 11300 * 023316 1001603724 11310 JR EXR,20 GAVE READ WRITE FLINT 11310 * 023323 1001622200 11320 JR EXTT AND BACKSPACE FLINT 11320 * 023330 3000031160 11330 JD 0311 SHOULD BACKSPACE FLINT 11330 * 023335 3002361400 11340 J STR3 FLINT 11340 023342 2000550117 11350 FT 05501,1515 FLINT 11350 * 023347 1001603724 11360 JR EXR,20 GAVE READ WRITE FLINT 11360 * 023354 1001622200 11370 JR EXTT BACKSPACE AND ERASE FLINT 11370 * 023361 3000031260 11380 JD 0312 SHOULD BACKSPACE FLINT 11380 * 023366 3002361400 11390 J STR3 FLINT 11390 023373 5401606201 11400 LP EXR1+2,1,1 FLINT 11400 023400 2000440117 11410 FT 04401,1515 FLINT 11410 * 023405 1001603724 11420 JR EXR,20 GAVE READ AND ERASE SHOULD READ FLINT 11420 * 023412 1001615200 11430 JR EXT FLINT 11430 * 023417 3000031360 11440 JD 0313 FLINT 11440 * 023424 3002361400 11450 J STR3 FLINT 11450 * 023431 1001626500 11460 JR EXRO FLINT 11460 * 023436 1002050324 11470 JR REW,20 FLINT 11470 023443 2000500117 11480 FT 05001,1515 FLINT 11480 023450 2000014037 11490 FT 0140,31 1 GAVE WRITE WITH BACKSPACE SHOULD FLINT 11490 A 023455 4401000600 11500 SC IM+6,0 FLINT 11500 * 023462 1000763424 11510 JR EXW,20 WRITE FLINT 11510 * 023467 1001615200 11520 JR EXT FLINT 11520 * 023474 3000031460 11530 JD 0314 FLINT 11530 * 023501 3002361400 11540 J STR3 FLINT 11540 * 023506 1001626500 11550 JR EXRO FLINT 11550 023513 2000100017 11560 FT 01000,1515 FLINT 11560 * 023520 1001603724 11570 JR EXR,20 FLINT 11570 023525 2000000037 11580 FT 0,31 FLINT 11580 023532 2000040017 11590 FT 0400,15 5 FLINT 11590 * 023537 1000763424 11600 JR EXW,20 FLINT 11600 * 023544 1000763424 11610 JR EXW,20 ERASE FROM LOADPOINT THEN BACKSPACE FLINT 11610 E 023551 2000100017 11620 FT 01000,1515 SHOULD GET NON READY FLINT 11620 023556 2000100037 11630 FT 01000,3131 FLINT 11630 * 023563 1001603724 11640 JR EXR,20 FLINT 11640 * 023570 1001615200 11650 JR EXT FLINT 11650 * 023575 3000031560 11660 JD 0315 FLINT 11660 * 023602 3002361400 11670 J STR3 FLINT 11670 * 023607 1001626500 11680 JR EXRO FLINT 11680 023614 2000000037 11690 STR3 FT 0,31 FLINT 11690 * 023621 1001631600 11700 JR EXRC FLINT 11700 * 023626 1002050324 11710 JR REW,20 FLINT 11710 * 023633 3002176462 11720 JC TST3+5,5,50 FLINT 11720 * 023640 3002175700 11730 J TST3 FLINT 11730 * 023645 3000000000 11740 FBD J 0 FLINT 11740 023652 2600001704 11750 PD 017,4 FLINT 11750 023657 4400001701 11760 SC 017,1 FLINT 11760 023664 2600003704 11770 PD 037,4 FLINT 11770 023671 2001000020 11780 FT IM,16 FLINT 11780 023676 2000172222 11790 FT 978,18 FLINT 11790 023703 2401000001 11800 TFR IM,, FLINT 11800 023710 7200003704 11810 AB1 037,4 FLINT 11810 * 023715 3002370367 11820 JC $-10,55 5 FLINT 11820 023722 7002376162 11830 CB2 B18,2 FLINT 11830 * 023727 3002364544 11840 JS FBD FLINT 11840 023734 7002376362 11850 CB2 B22,2 FLINT 11850 * 023741 3002364541 11860 JG FBD FLINT 11860 023746 6002365012 11870 AC FBD+3,1010 FLINT 11870 * 023753 3002364500 11880 J FBD FLINT 11880 023761 0025 11890 B18 +2 00025 FLINT 11890 023763 0030 11900 B22 +2 00030 FLINT 11900 3000140000 11910 END STR FLINT 11910 {-- tape mark --} 018033 C481 FILOD CODEDIT SOURCE - T3834394-48 001400 00010 T480 BEGIN 01400 FILOD 00010 *LOAD 0700,TAPAPE,R,PRELD E * 001400 3007010660 * JD 070106 * * 001405 3000140000 * J $-5 * SEGMENT-ID T481 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 T482 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 T483 3000136300 * SEGJP $ * 001400 ORIG 01400 001400 2600001700 00020 STR PD 017,0 FILOD 00020 001405 2600003700 00030 PD 037,0 FILOD 00030 001412 2600005700 00040 PD 057,0 FILOD 00040 001417 2620007700 00050 PD 077,0,1 1 FILOD 00050 001424 6000004720 00060 AC 047,16 FILOD 00060 * 001431 3200141721 00070 JL $-10,17 7 FILOD 00070 001436 4400143521 00080 SC $-1,17 FILOD 00080 001443 5600666700 00090 BA1 CL2,0 FILOD 00090 001450 5200051700 00100 SA1 0517,0 FILOD 00100 001455 4400661140 00110 SC CL1A+4,0,040 FILOD 00110 001462 5600700010 00120 BA1 CH0,8 FILOD 00120 001467 5200040710 00130 SA1 0407,8 FILOD 00130 * 001474 3000150125 00140 JC $+5,21 FILOD 00140 * 001501 3000150626 00150 JC $+5,22 FILOD 00150 * 001506 3000151327 00160 JC $+5,23 FILOD 00160 001513 4400474200 00170 SC IE2+4,0 0 FILOD 00170 001520 2602015425 00180 PD0 BLK,5 FILOD 00180 001525 4400474740 00190 SC IE2+9,04040 FILOD 00190 001532 4400475440 00200 SC IE2+14,0,040 FILOD 00200 001537 4400476140 00210 SC IE2+19,0,040 FILOD 00210 001544 2600747727 00220 PD0 TOTAL,7 7 FILOD 00220 001551 2600743523 00230 PD0 RERD+3,3,3 FILOD 00230 001556 2600745223 00240 PD0 RWIT,3 FILOD 00240 * 001563 3000770060 00250 JD 07700 FILOD 00250 001570 2600161203 00260 PD TRZ+3,3 3 FILOD 00260 001575 6000161201 00270 TRZ1 AC TRZ+3,1 1 FILOD 00270 * 001602 3000160771 00280 JC $+5,57 FILOD 00280 * 001607 3000000040 00290 TRZ JC 0,040 FILOD 00290 * 001614 3000164571 00300 JC TRZ2,57 7 FILOD 00300 001621 3400161177 00310 CC TRZ+2,6363 FILOD 00310 * 001626 3000157543 00320 JU TRZ1 FILOD 00320 * 001633 3007007760 00330 JD 070077 FILOD 00330 * 001640 3000157000 00340 J TRZ1-5 FILOD 00340 001645 5600161203 00350 TRZ2 BA1 TRZ+3,3 3 FILOD 00350 001652 5202015703 00360 SA1 SEL,3 FILOD 00360 001657 4400176404 00370 SC SL2+4,4 4 FILOD 00370 001664 4400172101 00380 SC SL1+4,1 1 FILOD 00380 001671 2000177717 00390 FT TSS1,15 5 FILOD 00390 001676 3402015700 00400 CC SEL,0 FILOD 00400 * 001703 3000171543 00410 JU $+10 FILOD 00410 001710 4402015777 00420 SC SEL,63 FILOD 00420 001715 1402015701 00430 SL1 LC SEL,1 FILOD 00430 * 001722 3000174143 00440 JU $+15 FILOD 00440 001727 4560000400 00450 SC 4,0,7 FILOD 00450 * 001734 3000174600 00460 J $+10 FILOD 00460 001741 4560000440 00470 SC 4,040,7 7 FILOD 00470 001746 1600172151 00480 BC1 SL1+4,1 1 FILOD 00480 001753 6000007705 00490 AC 077,5 FILOD 00490 * 001760 3200171504 00500 SL2 JL SL1,4 FILOD 00500 * 001765 1000203300 00510 JR CHS FILOD 00510 * 001772 1000710500 00520 JR REW FILOD 00520 * 001777 1000221100 00530 TSS1 JR TST1 SMALL BLK ODD FILOD 00530 * 002004 1000314400 00540 JR TST2 SMALL BLK EVEN FILOD 00540 * 002011 1000324500 00550 JR TST3 LARGE BLK ODD FILOD 00550 * 002016 1000335300 00560 JR TST4 LARGE BLK EVEN FILOD 00560 * 002023 3000177700 00570 J $-20 FILOD 00570 * 002030 3000000000 00580 CHS J 0 FILOD 00580 002035 4402015507 00590 SC SEL-2,7 7 FILOD 00590 002042 4602015517 00600 BT SEL-2,1515 FILOD 00600 002047 2600007603 00610 PD 076,3 FILOD 00610 002054 1600007753 00620 BC1 077,3 FILOD 00620 002061 5600466010 00630 BA1 IE,8 FILOD 00630 002066 5360040710 00640 SA1 0407,8,7,7 FILOD 00640 002073 2600001702 00650 PD 017,2 FILOD 00650 002100 5602015501 00660 BA1 SEL-2,1 1 FILOD 00660 002105 1600001724 00670 BS2 017,4 FILOD 00670 002112 6400001640 00680 LS 016,040 0 FILOD 00680 002117 5200717702 00690 SA1 I0+1,2 IO ORDER FILOD 00690 002124 5200711502 00700 SA1 REW1+1,2,2 REWIND FILOD 00700 002131 5200714102 00710 SA1 BSP1+1,2,2 BACKSPACE FILOD 00710 002136 5200716002 00720 SA1 ERS1+1,2,2 ERASE FILOD 00720 002143 5200726102 00730 SA1 TEST1+1,1,2 TEST FILOD 00730 002150 5200733602 00740 SA1 TESC1+1,1,2 TEST COMPLIMENT FILOD 00740 002155 5200723002 00750 SA1 RES1+1,2,2 RESET FILOD 00750 002162 5602015501 00760 BA1 SEL-2,1 1 FILOD 00760 002167 1600001713 00770 BS1 017,3 FILOD 00770 002174 5200504201 00780 SA1 IE3+3,1 1 IE EXIT FILOD 00780 * 002201 3000203000 00790 J CHS FILOD 00790 * 002206 3000000000 00800 TST1 J 0 FILOD 00800 * 002213 3000222023 00810 JC $+5,19 SI 2 SET SMALL BLK. FILOD 00810 * 002220 3000222527 00820 JC $+5,23 SI 3 RESET ODD PARITY FILOD 00820 002225 4400740504 00830 SC TSX,4 FILOD 00830 002232 4400720141 00840 SC I0+3,04141 DETAIL BITS FILOD 00840 * 002237 1000231200 00850 JR TW1 FILOD 00850 * 002244 1000271100 00860 JR TR1 FILOD 00860 * 002251 1000247000 00870 JR TB1 FILOD 00870 002256 5600741345 00880 BD1 BPP,5 FILOD 00880 002263 6200747707 00890 AM1 TOTAL,7 7 FILOD 00890 002270 2000740040 00900 FT PCOM,32 2 FILOD 00900 * 002275 1002030400 00910 JR PRINT FILOD 00910 * 002302 3000220600 00920 J TST1 FILOD 00920 * 002307 3000000000 00930 TW1 J 0 FILOD 00930 002314 2602015405 00940 PD BLK,5 FILOD 00940 002321 4400720002 00950 SC I0+2,2 FILOD 00950 002326 4402027400 00960 SC END,0 FILOD 00960 * 002333 1000346100 00970 JR SLW FILOD 00970 * 002340 1000357400 00980 JR PASEL FILOD 00980 * 002345 1000366300 00990 JR BLKS FILOD 00990 002352 1402015740 01000 LC SEL,040 0 FILOD 01000 * 002357 3000230742 01010 JE TW1 FILOD 01010 002364 4400474700 01020 SC IE2+9,0 0 FILOD 01020 * 002371 1000440200 01030 JR M3 FILOD 01030 002376 7402010336 01040 W1 CT MK1,30 FILOD 01040 * 002403 3000243442 01050 JE W2 FILOD 01050 002410 4602010317 01060 BT MK1,15 FILOD 01060 * 002415 1000410400 01070 JR MKE FILOD 01070 * 002422 1000430132 01080 JR MOV,26 FILOD 01080 * 002427 3000243433 01090 JC $+5,27 FILOD 01090 002434 3402027400 01100 W2 CC END,0 FILOD 01100 * 002441 3000237642 01110 JE W1 FILOD 01110 002446 4400474740 01120 SC IE2+9,04040 FILOD 01120 * 002453 1000710500 01130 JR REW FILOD 01130 * 002460 3000230700 01140 J TW1 FILOD 01140 * 002465 3000000000 01150 TB1 J 0 FILOD 01150 002472 2602015405 01160 PD BLK,5 FILOD 01160 002477 4400720001 01170 SC I0+2,1 FILOD 01170 002504 6400720110 01180 LS I0+3,01010 FILOD 01180 002511 4402027400 01190 SC END,0 FILOD 01190 002516 4400476100 01200 SC IE2+19,0,0 FILOD 01200 * 002523 1000717400 01210 JR I0X FILOD 01210 002530 3402027400 01220 CC END,0 FILOD 01220 * 002535 3000253042 01230 JE $-5 FILOD 01230 002542 5400720167 01240 LP I0+3,06767 FILOD 01240 002547 2601000404 01250 PD IM+4,4 FILOD 01250 002554 4400476140 01260 SC IE2+19,0,040 FILOD 01260 * 002561 1000717422 01270 JR I0X,18 FILOD 01270 * 002566 3000256665 01280 JC $,53 FILOD 01280 002573 5601000445 01290 BD1 IM+4,5 FILOD 01290 002600 2602000445 01300 CD1 D1,5 FILOD 01300 * 002605 3000261742 01310 JE $+10 FILOD 01310 * 002612 1000263400 01320 JR BSPP FILOD 01320 * 002617 1000710500 01330 JR REW FILOD 01330 * 002624 3000246500 01340 J TB1 FILOD 01340 * 002631 3000000000 01350 BSPP J 0 FILOD 01350 002636 5203157205 01360 SA1 BSPA,5 FILOD 01360 002643 2003150040 01370 FT BSPX,32 2 FILOD 01370 * 002650 1002030400 01380 JR PRINT FILOD 01380 * 002655 1002661000 01390 JR SPACE FILOD 01390 * 002662 3000267463 01400 JC $+10,51 1 FILOD 01400 * 002667 3000263100 01410 J BSPP FILOD 01410 * 002674 3000000360 01420 JD 03 BACK SPACE ERROR FILOD 01420 * 002701 3000266700 01430 J $-10 DID NOT READ BLK. 1. FILOD 01430 * 002706 3000000000 01440 TR1 J 0 FILOD 01440 002713 4402027400 01450 SC END,0 FILOD 01450 002720 4400303240 01460 SC R4+4,04040 FILOD 01460 002725 4400475400 01470 SC IE2+14,0,0 FILOD 01470 002732 2602015405 01480 PD BLK,5 FILOD 01480 002737 4400720001 01490 SC I0+2,1 FILOD 01490 * 002744 1000357400 01500 JR PASEL FILOD 01500 * 002751 1000445700 01510 JR SLR FILOD 01510 002756 7402010336 01520 R1 CT MK1,30 FILOD 01520 * 002763 3000275642 01530 JE $-5 FILOD 01530 002770 2001710017 01540 FT IM3,15 FILOD 01540 * 002775 1000410400 01550 JR MKE FILOD 01550 003002 2001710017 01560 FT IM3,15 SHOULD BE FILOD 01560 003007 4602010316 01570 BT MK1,14 READ FROM TAPE FILOD 01570 * 003014 1000554700 01580 JR COMP FILOD 01580 * 003021 1000430132 01590 JR MOV,26 FILOD 01590 * 003026 3000305740 01600 R4 JC R3-5,04040 50 BLK. FORCE NEXT FILOD 01600 003033 7402013336 01610 CT TP2,30 READ FILOD 01610 * 003040 3000306442 01620 JE $+20 FILOD 01620 * 003045 3000305233 01630 JC $+5,27 FILOD 01630 * 003052 3000275600 01640 J R1 FILOD 01640 003057 4400303240 01650 SC R4+4,04040 FILOD 01650 * 003064 3000307133 01660 R3 JC $+5,27 FILOD 01660 003071 3402027400 01670 CC END,0 FILOD 01670 * 003076 3000311543 01680 JU $+15 FILOD 01680 * 003103 1000717400 01690 JR I0X FILOD 01690 * 003110 3000275600 01700 J R1 FILOD 01700 003115 7402010336 01710 R2 CT MK1,30 FILOD 01710 * 003122 3000277043 01720 JU R1+10 FILOD 01720 003127 4400475440 01730 SC IE2+14,0,040 FILOD 01730 * 003134 3000270600 01740 J TR1 FILOD 01740 * 003141 3000000000 01750 TST2 J 0 FILOD 01750 * 003146 3000315323 01760 JC $+5,19 SET SI2 FILOD 01760 * 003153 3000316024 01770 JC $+5,20 SET SI3 FILOD 01770 003160 4400740505 01780 SC TSX,5 FILOD 01780 003165 4400720140 01790 SC I0+3,04040 FILOD 01790 * 003172 1000231200 01800 JR TW1 FILOD 01800 * 003177 1000271100 01810 JR TR1 FILOD 01810 * 003204 1000247000 01820 JR TB1 FILOD 01820 003211 5600741345 01830 BD1 BPP,5 FILOD 01830 003216 6200747707 01840 AM1 TOTAL,7 7 FILOD 01840 003223 2000740040 01850 FT PCOM,32 2 FILOD 01850 * 003230 1002030400 01860 JR PRINT FILOD 01860 * 003235 3000314100 01870 J TST2 FILOD 01870 * 003242 3000000000 01880 TST3 J 0 FILOD 01880 * 003247 3000325426 01890 JC $+5,22 FILOD 01890 * 003254 3000326127 01900 JC $+5,23 FILOD 01900 003261 4400740506 01910 SC TSX,6 FILOD 01910 003266 4400720101 01920 SC I0+3,1 FILOD 01920 * 003273 1002610300 01930 JR DATA FILOD 01930 * 003300 1000231200 01940 JR TW1 FILOD 01940 * 003305 1000271100 01950 JR TR1 FILOD 01950 * 003312 1000247000 01960 JR TB1 FILOD 01960 003317 5600741345 01970 BD1 BPP,5 FILOD 01970 003324 6200747707 01980 AM1 TOTAL,7 7 FILOD 01980 003331 2000740040 01990 FT PCOM,32 2 FILOD 01990 * 003336 1002030400 02000 JR PRINT FILOD 02000 * 003343 3000324200 02010 J TST3 FILOD 02010 * 003350 3000000000 02020 TST4 J 0 FILOD 02020 * 003355 3000336226 02030 JC $+5,22 FILOD 02030 * 003362 3000336724 02040 JC $+5,20 FILOD 02040 003367 4400740507 02050 SC TSX,7 FILOD 02050 003374 4400720100 02060 SC I0+3,0 FILOD 02060 * 003401 1002610300 02070 JR DATA FILOD 02070 * 003406 1000231200 02080 JR TW1 FILOD 02080 * 003413 1000271100 02090 JR TR1 FILOD 02090 * 003420 1000247000 02100 JR TB1 FILOD 02100 003425 5600741345 02110 BD1 BPP,5 FILOD 02110 003432 6200747707 02120 AM1 TOTAL,7 7 FILOD 02120 003437 2000740040 02130 FT PCOM,32 2 FILOD 02130 * 003444 1002030400 02140 JR PRINT FILOD 02140 * 003451 3000335000 02150 J TST4 FILOD 02150 * 003456 3000000000 02160 SLW J 0 FILOD 02160 003463 2602011700 02170 PD MK4,0 FILOD 02170 003470 2602013700 02180 PD TP3,0 FILOD 02180 003475 2602014710 02190 PD TP5,8 FILOD 02190 003502 2001610003 02200 FT IM1,3 FILOD 02200 003507 5202012703 02210 SA1 TP1,3 FILOD 02210 003514 2001650003 02220 FT IM2,3 FILOD 02220 003521 5202013303 02230 SA1 TP2,3 FILOD 02230 003526 2001710003 02240 FT IM3,3 FILOD 02240 003533 5202013703 02250 SA1 TP3,3 FILOD 02250 003540 2002014303 02260 FT TP4,3 FILOD 02260 003545 5202014703 02270 SA1 TP5,3 FILOD 02270 003552 2002010303 02280 FT MK1,3 FILOD 02280 003557 5202012303 02290 SA1 MK5,3 FILOD 02290 * 003564 3000345600 02300 J SLW FILOD 02300 * 003571 3000000000 02310 PASEL J 0 FILOD 02310 003576 2602016304 02320 PD PAC,4 FILOD 02320 003603 2600004700 02330 PD 047,0 FILOD 02330 003610 4400004704 02340 SC 047,4 FILOD 02340 003615 2002770007 02350 FT PAT1,7 FILOD 02350 003622 5222005425 02360 SA2 PAD,5,1 1 FILOD 02360 003627 6000003604 02370 AC 036,4 FILOD 02370 003634 6000004705 02380 AC 047,5 FILOD 02380 * 003641 3200362203 02390 JL $-15,3 FILOD 02390 003646 4400364503 02400 SC $-1,3 FILOD 02400 * 003653 3000357100 02410 J PASEL FILOD 02410 * 003660 3000000000 02420 BLKS J 0 FILOD 02420 003665 4400373401 02430 SC XB+4,1 FILOD 02430 003672 4400376006 02440 SC XB1+4,6 6 FILOD 02440 003677 2600004704 02450 PD 047,4 FILOD 02450 003704 5602001145 02460 BD1 D50,5 FILOD 02460 003711 3402015600 02470 CC SEL-1,0 0 FILOD 02470 * 003716 3000376142 02480 JE XB1+5 FILOD 02480 003723 5622001645 02490 BD1 D20,5,1 1 FILOD 02490 003730 1402015601 02500 XB LC SEL-1,1 1 FILOD 02500 * 003735 3000376142 02510 JE XB1+5 FILOD 02510 003742 6000004705 02520 AC 047,5 FILOD 02520 003747 1600373411 02530 BS1 XB+4,1 FILOD 02530 * 003754 3200372306 02540 XB1 JL XB-5,6 FILOD 02540 003761 5200741305 02550 SA1 BPP,5 BLKS. PER PASS FILOD 02550 * 003766 3000366000 02560 J BLKS FILOD 02560 * 003773 3000000000 02570 IPC J 0 FILOD 02570 004000 4602016311 02580 BT PAC,9 FILOD 02580 004005 6000004705 02590 AC 047,5 FILOD 02590 004012 3400004724 02600 CC 047,20 FILOD 02600 * 004017 3000403141 02610 JG $+10 FILOD 02610 004024 4400004705 02620 SC 047,5 FILOD 02620 004031 4202016311 02630 ST PAC,9 FILOD 02630 004036 6022005001 02640 AC PAD-4,1,1,1 FILOD 02640 * 004043 3000377300 02650 J IPC FILOD 02650 * 004050 3000000000 02660 COUNT J 0 FILOD 02660 004055 5602015465 02670 BD2 BLK,5 FILOD 02670 004062 6602000425 02680 AD2 D1,5 FILOD 02680 004067 5202015425 02690 SA2 BLK,5 FILOD 02690 * 004074 3000405000 02700 J COUNT FILOD 02700 * 004101 3000000000 02710 MKE J 0 FILOD 02710 * 004106 1000377600 02720 JR IPC,0 FILOD 02720 * 004113 1000405300 02730 JR COUNT FILOD 02730 004120 5622005305 02740 BA1 PAD-1,5,5,1 FILOD 02740 004125 5200007303 02750 SA1 073,3 START OF PAT FILOD 02750 004132 5360000425 02760 SA2 4,5,7 BLK NUM. FILOD 02760 004137 6000007705 02770 AC 077,5 FILOD 02770 004144 2000037307 02780 FT 251,7 FILOD 02780 004151 2600001703 02790 PD 017,3 FILOD 02790 004156 5600001402 02800 BA1 014,2 FILOD 02800 004163 7000001763 02810 CB2 017,3 FILOD 02810 * 004170 3000420741 02820 JG $+15 FILOD 02820 004175 2600001703 02830 PD 017,3 FILOD 02830 004202 5222005002 02840 SA1 PAD-4,2,2,1 FILOD 02840 004207 4600007315 02850 BT 073,13 IR6 TO IR5 FILOD 02850 004214 7200006703 02860 AB1 067,3 PAT START+SHIFT FILOD 02860 004221 7200003743 02870 SB1 037,3 246 MINUS SHIFT FILOD 02870 004226 5200011322 02880 SA2 0113,2 TO CHAR COUNT. FILOD 02880 004233 2160000020 02890 FT 0,16,7 FILOD 02890 004240 2520000021 02900 TFI 0,,5 FILOD 02900 004245 7000017342 02910 CB1 0173,2 ZERO COUNT FILOD 02910 * 004252 3000427142 02920 JE $+15 FILOD 02920 004257 5200011302 02930 SA1 0113,2 FILOD 02930 004264 2540000001 02940 TFR 0,,6 FILOD 02940 * 004271 3000410100 02950 J MKE FILOD 02950 * 004276 3000000000 02960 MOV JC 0 FILOD 02960 004303 4602014717 02970 BT TP5,15 FILOD 02970 004310 5602010324 02980 BA2 MK1,4 FILOD 02980 004315 5602011714 02990 BA1 MK4,12 FILOD 02990 004322 5202011314 03000 SA1 MK3,12 FILOD 03000 004327 2602011704 03010 PD MK4,4 FILOD 03010 004334 5602030004 03020 BA1 B4,4 FILOD 03020 004341 7202012344 03030 SB1 MK5,4 FILOD 03030 004346 3402027400 03040 CC END,0 FILOD 03040 * 004353 3000427643 03050 JU MOV FILOD 03050 004360 5360000024 03060 SA2 0,4,7 FILOD 03060 004365 7202014704 03070 AB1 TP5,4 FILOD 03070 * 004372 3000427600 03080 J MOV FILOD 03080 * 004377 3000000000 03090 M3 J 0 FILOD 03090 004404 4602012717 03100 BT TP1,15 FILOD 03100 * 004411 1000410400 03110 JR MKE FILOD 03110 004416 4602013317 03120 BT TP2,15 FILOD 03120 * 004423 1000410400 03130 JR MKE FILOD 03130 004430 4602013717 03140 BT TP3,15 FILOD 03140 * 004435 1000410400 03150 JR MKE FILOD 03150 * 004442 1000457200 03160 JR DMW FILOD 03160 * 004447 3000437700 03170 J M3 FILOD 03170 * 004454 3000000000 03180 SLR J 0 FILOD 03180 004461 2602011700 03190 PD MK4,0 FILOD 03190 004466 2602013700 03200 PD TP3,0 FILOD 03200 004473 2602014710 03210 PD TP5,8 FILOD 03210 004500 2001610003 03220 FT COMP1,3 3 FILOD 03220 004505 5202012703 03230 SA1 TP1,3 FILOD 03230 004512 2003170003 03240 FT COMP2,3 3 FILOD 03240 004517 5202013303 03250 SA1 TP2,3 FILOD 03250 004524 2002013703 03260 FT TP3,3 FILOD 03260 004531 5202014703 03270 SA1 TP5,3 FILOD 03270 004536 2002010303 03280 FT MK1,3 FILOD 03280 004543 5202012303 03290 SA1 MK5,3 FILOD 03290 004550 4400720001 03300 SC I0+2,1 FILOD 03300 * 004555 1000717400 03310 JR I0X FILOD 03310 * 004562 3000445400 03320 J SLR FILOD 03320 * 004567 3000000000 03330 DMW J 0 FILOD 03330 004574 4602012717 03340 BT TP1,15 FILOD 03340 004601 2000040022 03350 FT 256,18 FILOD 03350 004606 2001000020 03360 FT IM,16 FILOD 03360 004613 2560000001 03370 TFR 0,,7 FILOD 03370 * 004620 3000463766 03380 JC $+15,54 4 FILOD 03380 004625 2001540020 03390 FT IM+2816,6,16 FILOD 03390 004632 2560000001 03400 TFR 0,,7 FILOD 03400 * 004637 1000717400 03410 JR I0X FILOD 03410 * 004644 3000456700 03420 J DMW FILOD 03420 * 004651 3000000031 03430 JC 0,25 FILOD 03430 004660 004661 03440 IE +3 IE1 FILOD 03440 * 004661 3002016451 03450 IE1 JC SI,41 FILOD 03450 004666 5202022461 03460 SAR STAR FILOD 03460 004673 5600011320 03470 BA2 0113,0 FILOD 03470 004700 5600007300 03480 BA1 073,0 FILOD 03480 004705 5202026461 03490 SAR STAR1 FILOD 03490 004712 4202027037 03500 ST MSK,31 FILOD 03500 004717 2000777737 03510 FT 07777,3131 FILOD 03510 * 004724 1000724400 03520 JR TEST FILOD 03520 * 004731 3002663653 03530 JC ER,43 FILOD 03530 * 004736 3200477402 03540 IE2 JL $+30,2 FILOD 03540 * 004743 1000504740 03550 JR WIE,040 0 FILOD 03550 * 004750 1000512440 03560 JR RIE,040 0 FILOD 03560 * 004755 1000522540 03570 JR BIE,040 0 FILOD 03570 004762 2602027101 03580 PD CNT,1 FILOD 03580 * 004767 3000477425 03590 JC $+5,21 FILOD 03590 004774 4602027037 03600 EXIT BT MSK,31 FILOD 03600 005001 5602024400 03610 BA1 STAR1-1616,0 FILOD 03610 005006 5602026420 03620 BA2 STAR1,0 0 FILOD 03620 005013 5200011361 03630 SAR 0113 FILOD 03630 005020 5602020400 03640 BA1 STAR-16,6,0 FILOD 03640 005025 5602022420 03650 BA2 STAR,0 FILOD 03650 * 005032 3002016452 03660 JC SI,42 FILOD 03660 * 005037 3000040000 03670 IE3 J 0400 FILOD 03670 * 005044 3000000000 03680 WIE J 0 FILOD 03680 * 005051 1000527500 03690 JR MIT FILOD 03690 005056 7402012736 03700 CT TP1,30 FILOD 03700 * 005063 3000510743 03710 JU $+20 FILOD 03710 005070 3402027400 03720 CC END,0 FILOD 03720 * 005075 3000511443 03730 JU $+15 FILOD 03730 * 005102 3007722260 03740 JD 077222 FILOD 03740 * 005107 1000457200 03750 JR DMW FILOD 03750 * 005114 3000504400 03760 J WIE FILOD 03760 * 005121 3000000000 03770 RIE J 0 FILOD 03770 * 005126 1000542700 03780 JR DMR FILOD 03780 * 005133 1000527500 03790 JR MIT FILOD 03790 005140 3402027400 03800 CC END,0 FILOD 03800 * 005145 3000512143 03810 JU RIE FILOD 03810 * 005152 3000517666 03820 JC $+20,54 4 FILOD 03820 005157 2001000017 03830 FT IM,15 FILOD 03830 * 005164 1000547200 03840 JR LB5 CK FOR MULTI OF 50 FILOD 03840 * 005171 3000512100 03850 J RIE IF NO +5 TO ENTRY FILOD 03850 005176 7402012736 03860 CT TP1,30 FILOD 03860 * 005203 3000512142 03870 JE RIE FILOD 03870 * 005210 1000717400 03880 JR I0X FILOD 03880 * 005215 3000512100 03890 J RIE FILOD 03890 * 005222 3000000000 03900 BIE J 0 FILOD 03900 * 005227 1000405300 03910 JR COUNT FILOD 03910 005234 2600741365 03920 CD2 BPP,5 FILOD 03920 * 005241 3000526042 03930 JE $+15 FILOD 03930 * 005246 1000717400 03940 JR I0X FILOD 03940 * 005253 3000522200 03950 J BIE FILOD 03950 005260 4402027477 03960 SC END,63 FILOD 03960 * 005265 3000522200 03970 J BIE FILOD 03970 * 005272 3000000000 03980 MIT J 0 FILOD 03980 005277 4602012317 03990 BT MK5,15 FILOD 03990 005304 4602012716 04000 BT TP1,14 FILOD 04000 005311 5602014314 04010 BA1 TP4,12 FILOD 04010 005316 5202013714 04020 SA1 TP3,12 FILOD 04020 005323 2602014304 04030 PD TP4,4 FILOD 04030 005330 4360000016 04040 ST 0,14,7 FILOD 04040 005335 5602030004 04050 BA1 B4,4 FILOD 04050 005342 7202012304 04060 AB1 MK5,4 FILOD 04060 005347 7202014744 04070 SB1 TP5,4 FILOD 04070 005354 5601000445 04080 BD1 IM+4,5 FILOD 04080 005361 2600741345 04090 CD1 BPP,5 FILOD 04090 * 005366 3000527243 04100 JU MIT FILOD 04100 005373 4402027477 04110 SC END,63 FILOD 04110 005400 2602014300 04120 PD TP4,0 FILOD 04120 005405 2002012703 04130 FT TP1,3 FILOD 04130 005412 5202014703 04140 SA1 TP5,3 FILOD 04140 * 005417 3000527200 04150 J MIT FILOD 04150 * 005424 3000000000 04160 DMR J 0 FILOD 04160 005431 4602012720 04170 BT TP1,16 FILOD 04170 005436 2000040022 04180 FT 256,18 FILOD 04180 005443 2401000021 04190 TFI IM,, FILOD 04190 * 005450 3000546266 04200 JC $+10,54 4 FILOD 04200 005455 2401540001 04210 TFR IM+2816,6,, FILOD 04210 * 005462 3000542400 04220 J DMR FILOD 04220 * 005467 3000000000 04230 LB5 J 0 FILOD 04230 005474 5602001145 04240 BD1 D50,5 FILOD 04240 005501 2760000445 04250 CD1 4,5,7 FILOD 04250 * 005506 3000546742 04260 JE LB5 FILOD 04260 * 005513 3000553241 04270 JG $+15 FILOD 04270 005520 6602001105 04280 AD1 D50,5 FILOD 04280 * 005525 3000550100 04290 J LB5+10 FILOD 04290 005532 6000547205 04300 AC LB5+3,5 5 FILOD 04300 * 005537 3000546700 04310 J LB5 FILOD 04310 * 005544 3000000000 04320 COMP J 0 FILOD 04320 005551 5740000445 04330 BD1 4,5,6 WAS FILOD 04330 005556 2602015445 04340 CD1 BLK,5 SHOULD FILOD 04340 * 005563 3000642743 04350 JU SEQR FILOD 04350 005570 4400602200 04360 SC RC2+4,0 0 FILOD 04360 005575 4600007711 04370 BT 077,9 IR1 SHOULD FILOD 04370 005602 4600007312 04380 BT 073,10 IR2 WAS FILOD 04380 005607 4600007713 04390 BT 077,11 IR3 START LOC. FILOD 04390 005614 4402027200 04400 SC G2,0 FILOD 04400 * 005621 1000574400 04410 JR COMPX FILOD 04410 * 005626 3000554466 04420 JC COMP,54 4 SMALL BLK FILOD 04420 005633 4600007711 04430 BT 077,9 FILOD 04430 005640 4402027277 04440 SC G2,63 FILOD 04440 * 005645 1000574400 04450 JR COMPX FILOD 04450 * 005652 1000547200 04460 JR LB5 FILOD 04460 * 005657 3000567100 04470 J $+10 FILOD 04470 * 005664 3000554400 04480 J COMP NOT MULTI. OF 50 FILOD 04480 005671 4400602212 04490 SC RC2+4,1010 FILOD 04490 005676 4402027200 04500 SC G2,0 FILOD 04500 005703 2002040011 04510 FT 020400,9,9 SHOULD FILOD 04510 005710 2001040012 04520 FT IM+256,1,10 WAS FILOD 04520 005715 2002000013 04530 FT 020000,1,11 START FILOD 04530 * 005722 1000574400 04540 JR COMPX FILOD 04540 005727 4400303200 04550 SC R4+4,0 FORCE READ FILOD 04550 * 005734 3000554400 04560 J COMP FILOD 04560 * 005741 3000000000 04570 COMPX J 0 FILOD 04570 * 005746 3000574164 04580 JC $-5,52 SS3 NO COMP. FILOD 04580 005753 4400601520 04590 SC LP+4,16 6 FILOD 04590 005760 5620001700 04600 R11 BA1 017,0,1 1 FILOD 04600 005765 7040001740 04610 CB1 017,0,2 2 WAS FILOD 04610 * 005772 3000603043 04620 JU S1 FILOD 04620 005777 2020002011 04630 FT 16,9,1 FILOD 04630 006004 2040002012 04640 FT 16,10,2 2 FILOD 04640 * 006011 3200576020 04650 LP JL R11,16 FILOD 04650 * 006016 3200575300 04660 RC2 JL R11-5,0 0 FILOD 04660 * 006023 3000574100 04670 J COMPX FILOD 04670 006030 4400607220 04680 S1 SC LP1+4,1616 FILOD 04680 006035 5620000001 04690 BA1 0,1,1 SHOULD FILOD 04690 006042 7040000041 04700 CB1 0,1,2 WAS FILOD 04700 * 006047 3000610043 04710 JU SS1 FILOD 04710 006054 6000004701 04720 AC 047,1 FILOD 04720 006061 6000005301 04730 AC 053,1 FILOD 04730 * 006066 3200603520 04740 LP1 JL S1+5,16 6 FILOD 04740 * 006073 3000601100 04750 J LP FILOD 04750 006100 5200627301 04760 SS1 SA1 CRS+3,1 1 FILOD 04760 * 006105 1002650700 04770 JR EDIT FILOD 04770 006112 5203146202 04780 SA1 CW-6,2 FILOD 04780 006117 5640000001 04790 BA1 0,1,2 FILOD 04790 006124 5200627201 04800 SA1 CRS+2,1 1 FILOD 04800 * 006131 1002650700 04810 JR EDIT FILOD 04810 006136 5203144502 04820 SA1 CCR+7,2 2 FILOD 04820 006143 5760000405 04830 BA1 4,5,7 FILOD 04830 006150 5203147505 04840 SA1 CCH,5 FILOD 04840 006155 4200037711 04850 ST 0377,9 FILOD 04850 006162 5600005703 04860 BA1 057,3 FILOD 04860 006167 7200037743 04870 SB1 0377,3 FILOD 04870 006174 6000037701 04880 AC 0377,1 FILOD 04880 * 006201 1000630500 04890 JR BTOD FILOD 04890 006206 3402027200 04900 CC G2,0 FILOD 04900 * 006213 3000622542 04910 JE $+10 FILOD 04910 006220 6602005304 04920 AD1 D2815,4 4 FILOD 04920 006225 5203143604 04930 SA1 CCR,4 FILOD 04930 006232 2003140040 04940 FT COP,32 FILOD 04940 * 006237 1002030432 04950 JR PRINT,2626 FILOD 04950 * 006244 3000625663 04960 JC $+10,51 1 SS 2 FILOD 04960 * 006251 3000605400 04970 J SS1-20 FILOD 04970 006256 4603143600 04980 BT CCR,0 CHAR. NUMBER IN FILOD 04980 * 006263 3000000560 04990 JD 05 00 01 02 03 FILOD 04990 * 006270 3000000060 05000 CRS JD 0 X BITS SHOULD FILOD 05000 * 006275 3000625100 05010 J $-20 Y BITS WAS FILOD 05010 * 006302 3000000000 05020 BTOD J 0 FILOD 05020 006307 2600003730 05030 PD0 037,8 FILOD 05030 006314 2600001730 05040 PD0 017,8 FILOD 05040 006321 2600006304 05050 PD 063,4 FILOD 05050 006326 4400003704 05060 SC 037,4 FILOD 05060 006333 4400642102 05070 SC LOP1+4,2,2 FILOD 05070 006340 4400640706 05080 SC LOP+4,6 6 FILOD 05080 006345 4400635601 05090 SC $+9,1 FILOD 05090 006352 1500037701 05100 LC 0377,1,4,4 FILOD 05100 * 006357 3000637143 05110 JU $+10 FILOD 05110 006364 6200001724 05120 AM2 017,4 FILOD 05120 006371 6600003724 05130 AD2 037,4 FILOD 05130 006376 1600635651 05140 BC1 $-16,1 FILOD 05140 * 006403 3200635206 05150 LOP JL $-25,6 FILOD 05150 006410 2117777714 05160 FT -1,12,4 4 FILOD 05160 * 006415 3200634002 05170 LOP1 JL $-45,2 FILOD 05170 * 006422 3000630200 05180 J BTOD FILOD 05180 006427 5200757205 05190 SEQR SA1 SQE,5 BLK FROM TAPE FILOD 05190 006434 5602015445 05200 BD1 BLK,5 FILOD 05200 006441 5200755105 05210 SA1 SQB,5 EXPECTED FILOD 05210 006446 2000750040 05220 FT SQ,32 FILOD 05220 * 006453 1002030432 05230 JR PRINT,2626 FILOD 05230 * 006460 1002661032 05240 JR SPACE,2626 FILOD 05240 * 006465 3000647763 05250 JC $+10,51 1 FILOD 05250 * 006472 3000650400 05260 J $+10 FILOD 05260 * 006477 3000000460 05270 JD 04 SEQ ERROR FILOD 05270 * 006504 3000653066 05280 JC $+20,54 4 FILOD 05280 006511 4600007317 05290 BT 073,15 FILOD 05290 * 006516 1000547200 05300 JR LB5 FILOD 05300 006523 4400303200 05310 SC R4+4,0 FILOD 05310 006530 5602015445 05320 BD1 BLK,5 FILOD 05320 006535 2740000445 05330 CD1 4,5,6 FILOD 05330 * 006542 3000657341 05340 JG SEQR1 FILOD 05340 * 006547 3000554442 05350 JE COMP FILOD 05350 * 006554 1000377600 05360 JR IPC FILOD 05360 * 006561 1000405300 05370 JR COUNT FILOD 05370 * 006566 3000653000 05380 J $-30 FILOD 05380 * 006573 3000010060 05390 SEQR1 JD 0100 FILOD 05390 * 006600 3000670700 05400 J I2A+15 FILOD 05400 * 006605 3000663140 05410 CL1A JC $+20,04040 FILOD 05410 006612 5600050303 05420 BA1 0503,3 FILOD 05420 006617 5200662703 05430 SA1 $+8,3 FILOD 05430 * 006624 3000000020 05440 JC 0,020 FILOD 05440 006631 2601000425 05450 PD0 IM+4,5 FILOD 05450 006636 2600003725 05460 PD0 037,5 FILOD 05460 * 006643 3000050000 05470 J 0500 FILOD 05470 * 006650 3000000036 05480 JC 0,30 FILOD 05480 006657 006605 05490 +3 CL1A FILOD 05490 * 006660 3000000035 05500 JC 0,29 FILOD 05500 006667 006670 05510 CL2 +3 I2A FILOD 05510 * 006670 3000670754 05520 I2A JC $+15,44 4 FILOD 05520 * 006675 3002222260 05530 JD 022222 FILOD 05530 * 006702 3000051050 05540 JC 0510,40 0 FILOD 05540 * 006707 3000671416 05550 JC $+5,14 FILOD 05550 * 006714 3200671477 05560 JL $,63 FILOD 05560 006721 4400672077 05570 SC $-1,63 FILOD 05570 * 006726 3200671477 05580 JL $-10,63 3 FILOD 05580 006733 4400673277 05590 SC $-1,63 FILOD 05590 006740 4000407777 05600 XF 040,0777777,0,0 FILOD 05600 006745 2000777737 05610 FT 07777,3131 FILOD 05610 * 006752 1000721300 05620 JR RES FILOD 05620 * 006757 3000676431 05630 JC $+5,25 FILOD 05630 * 006764 3000140035 05640 JC STR,29 FILOD 05640 * 006771 3000677131 05650 JC $,25 FILOD 05650 007000 007001 05660 CH0 +3 CH01 FILOD 05660 007001 4000007777 05670 CH01 XF 0,07777,7,0,0 FILOD 05670 * 007006 3000702053 05680 JC $+10,43 3 FILOD 05680 * 007013 3000040000 05690 JC 0400 FILOD 05690 007020 4000004000 05700 XF 0,04000,0,0,0 FILOD 05700 * 007025 3000703753 05710 JC $+10,43 3 FILOD 05710 * 007032 3007000060 05720 JD 070000 FILOD 05720 007037 4000407777 05730 XF 040,0777777,0,0 FILOD 05730 007044 3400020702 05740 CC 0207,2 FILOD 05740 * 007051 3000707043 05750 JU $+15 FILOD 05750 007056 4000620400 05760 XF 062,040000,0,0 FILOD 05760 * 007063 3000700100 05770 J CH01 FILOD 05770 007070 4000640000 05780 XF 064,0,0,0,0 FILOD 05780 * 007075 3000700100 05790 J CH01 FILOD 05790 * 007102 3000000000 05800 REW J 0 FILOD 05800 * 007107 3000711422 05810 JC $+5,18 FILOD 05810 007114 4160040000 05820 REW1 XF 04,0,0,C,CH REWIND ORDER FILOD 05820 * 007121 3000712165 05830 JC $,53 FILOD 05830 * 007126 3000710200 05840 J REW FILOD 05840 * 007133 3000000000 05850 BSP J 0 FILOD 05850 007140 4160011000 05860 BSP1 XF 01,0100000,0,CH BACK SPACE FILOD 05860 * 007145 3000713300 05870 J BSP FILOD 05870 * 007152 3000000000 05880 ERS J 0 FILOD 05880 007157 4160020400 05890 ERS1 XF 02,0400,0,0,CH ERASE FILOD 05890 * 007164 3000715200 05900 J ERS FILOD 05900 * 007171 3000000000 05910 I0X J 0 FILOD 05910 007176 4160000001 05920 I0 XF 0,01,0,C,CH IO ORDER READ FILOD 05920 * 007203 3000717100 05930 J I0X WRITE OR BACK SPACE FILOD 05930 * 007210 3000000000 05940 RES J 0 FILOD 05940 007215 5600017702 05950 BA1 0177,2 FILOD 05950 007222 5200723302 05960 SA1 $+9,2 RESET ORDER FILOD 05960 007227 4160400000 05970 RES1 XF 040,0,0,0,CH FILOD 05970 * 007234 3000721000 05980 J RES FILOD 05980 * 007241 3000000000 05990 TEST J 0 FILOD 05990 007246 5600017702 06000 BA1 0177,2 FILOD 06000 007253 5200726402 06010 SA1 $+9,2 TEST ORDER FILOD 06010 007260 4160000000 06020 TEST1 XF 0,0,0,CHCH FILOD 06020 * 007265 3000724100 06030 J TEST FILOD 06030 * 007272 3000000000 06040 TESC J 0 FILOD 06040 007277 4400004077 06050 SC 040,63 FILOD 06050 007304 4400004177 06060 SC 041,63 FILOD 06060 007311 3600017702 06070 CS 0177,2 FILOD 06070 007316 5600004102 06080 BA1 041,2 FILOD 06080 007323 1600001766 06090 BC2 017,6 FILOD 06090 007330 5200734102 06100 SA1 $+9,2 FILOD 06100 007335 4160000000 06110 TESC1 XF 0,0,0,CHCH FILOD 06110 * 007342 3000727200 06120 J TESC FILOD 06120 007400 06130 ORIG $,64 FILOD 06130 007400 06140 PCOM EQU $ FILOD 06140 007413 TEST 1 06150 BPP +12 _TEST 1 1 _ FILOD 06150 007432 BLKS. REREADS 06160 RERD +15 _ BLKS. . REREADS _ FILOD 06160 S 007452 REWRITES 06170 RWIT +16 _ REWEWRITES _ FILOD 06170 007467 TOTAL BLKS. 06180 +13 _ TOTAL L BLKS. _ FILOD 06180 _ 007477 06190 TOTAL +8 _ _ FILOD 06190 007405 06200 TSX EQU PCOM+5 FILOD 06200 007500 06210 SQ EQU $ FILOD 06210 007517 TEST 1 SEQUENCE 06220 +16 _TEST 1 1 SEQUENCE _ FILOD 06220 C 007536 ERROR EXPECTED 06230 +15 _ERROR E EXPECTED _ FILOD 06230 D 007551 BLOCK 06240 SQB +11 _BLOCK _ FILOD 06240 007565 READ BLOCK 06250 +12 _ READ B BLOCK _ FILOD 06250 007572 06260 SQE +5 _ _ _ FILOD 06260 007577 06270 +5 _ _ FILOD 06270 010000 06280 IM EQU 010000 FILOD 06280 016100 06290 IM1 EQU 016100 FILOD 06290 016500 06300 IM2 EQU 016500 FILOD 06300 017100 06310 IM3 EQU 017100 FILOD 06310 016100 06320 COMP1 EQU IM1 FILOD 06320 020000 06330 ORIG 020000 FILOD 06330 020004 00001 06340 D1 +5 _00001_ _ FILOD 06340 020011 00050 06350 D50 +5 _00050_ _ FILOD 06350 020016 00200 06360 D20 +5 _00200_ _ FILOD 06360 020023 00500 06370 +5 _00500_ _ FILOD 06370 020030 01000 06380 +5 _01000_ _ FILOD 06380 020035 05000 06390 +5 _05000_ _ FILOD 06390 020042 10000 06400 +5 _10000_ _ FILOD 06400 020047 20000 06410 +5 _20000_ _ FILOD 06410 020053 2816 06420 D2815 +4 _2816_ FILOD 06420 020054 24 06430 PAD AREA 20,B,0 FILOD 06430 020100 50 06440 AREA 40,B,0 FILOD 06440 020103 4 06450 MK1 - 4 FILOD 06450 020107 4 06460 MK2 - 4 FILOD 06460 020113 4 06470 MK3 - 4 FILOD 06470 020117 4 06480 MK4 - 4 FILOD 06480 020123 4 06490 MK5 - 4 FILOD 06490 020127 4 06500 TP1 - 4 FILOD 06500 020133 4 06510 TP2 - 4 FILOD 06510 020137 4 06520 TP3 - 4 FILOD 06520 020143 4 06530 TP4 - 4 FILOD 06530 020147 4 06540 TP5 - 4 FILOD 06540 020154 00000 06550 BLK +5 _00000_ _ FILOD 06550 020157 000000 06560 SEL +3 0 FILOD 06560 020163 00000000 06570 PAC +4 0 FILOD 06570 020164 110 06580 AREA 72,B,0 FILOD 06580 020164 1 06590 SI - 1 FILOD 06590 020224 06600 STAR - 32 FILOD 06600 020264 06610 STAR1 - 32 FILOD 06610 020270 4 06620 MSK - 4 FILOD 06620 020271 1 06630 CNT - 1 FILOD 06630 020272 1 06640 G2 - 1 FILOD 06640 020274 00 06650 END +1 0 FILOD 06650 020300 00000004 06660 B4 +4 00000000004 FILOD 06660 * 020301 3000000033 06670 PRINT JC 0,27 FILOD 06670 * 020306 3002030162 06680 JC $-5,50 SS1 NO PRINT FILOD 06680 020313 4600020314 06690 BT 0203,12 2 FILOD 06690 020320 4600740532 06700 BT TSX,26 FILOD 06700 020325 4300000532 06710 ST 5,26,4 FILOD 06710 020332 4400020702 06720 SC 0207,2 FILOD 06720 020337 4000620400 06730 XF 062,040000,0,0 FILOD 06730 * 020344 3002030100 06740 J PRINT FILOD 06740 000007 06750 CH EQU 7 FILOD 06750 026100 06760 ORIG 026100 FILOD 06760 * 026100 3000000000 06770 DATA J 0 FILOD 06770 026105 2601000001 06780 PD IM,1 CLEAR AREA IN CASE FILOD 06780 026112 2000000022 06790 FT 0,18 FILOD 06790 026117 2001000120 06800 FT IM+1,16 6 OF MPE FROM TPE FILOD 06800 026124 2401000021 06810 TFI IM,, FILOD 06810 026131 2401000001 06820 TFR IM,, FILOD 06820 026136 2600006300 06830 PD 063,0 FILOD 06830 026143 4402627407 06840 SC DA3+4,7 7 7 TIMES FILOD 06840 026150 5662647221 06850 D11 BA2 DTX2,1,3,3 = OF CHAR. IN PAT. FILOD 06850 026155 5202623621 06860 SA2 DA2+4,1 1 FILOD 06860 026162 5642647521 06870 D2 BA2 DTX1,1,2,2 OF TIMES EACH CHAR FILOD 06870 026167 5202622421 06880 SA2 DA1+4,1 1 FILOD 06880 026174 5622643401 06890 BA1 DTX,1,1 1 INFO. FILOD 06890 026201 5202621201 06900 SA1 $+9,1 FILOD 06900 026206 4501040000 06910 SC IM+256,0,0,4 DEST. FILOD 06910 026213 6000006301 06920 AC 063,1 +1 IR4 FILOD 06920 * 026220 3202620607 06930 DA1 JL $-10,7 FILOD 06930 026225 6000004701 06940 AC 047,1 +1 TO IR 1 FILOD 06940 * 026232 3202616213 06950 DA2 JL D2,11 FILOD 06950 026237 3402627401 06960 CC DA3+4,1 1 FILOD 06960 * 026244 3002627042 06970 JE DA3 FILOD 06970 026251 6000005301 06980 AC 053,1 +1 TO IR 2 FILOD 06980 026256 5662647221 06990 BA2 DTX2,1,3,3 FILOD 06990 026263 7200004761 07000 SB2 047,1 FILOD 07000 * 026270 3202615007 07010 DA3 JL D11,7 FILOD 07010 026275 6000005701 07020 AC 057,1 NEXT NO. OF CHAR. FILOD 07020 026302 2600005304 07030 PD 053,4 FILOD 07030 026307 3400005703 07040 CC 057,3 FILOD 07040 * 026314 3002614343 07050 JU D11-5 FILOD 07050 026321 2001211020 07060 FT IM+1096,6,16 DEST. FILOD 07060 026326 2000151022 07070 FT 840,18 CH. COUNT FILOD 07070 026333 4402635102 07080 SC $+14,2 FILOD 07080 026340 2401040021 07090 TFI IM+256,,,, FILOD 07090 * 026345 3202634002 07100 JL $-5,2 FILOD 07100 026352 2000005022 07110 FT 40,18 FILOD 07110 026357 2401040001 07120 TFR IM+256,,,, FILOD 07120 026364 2000151022 07130 FT 840,18 FILOD 07130 026371 2002040020 07140 FT 020400,1,16 FILOD 07140 026376 4402641403 07150 SC $+14,3 FILOD 07150 026403 2401040021 07160 TFI IM+256,,,, FILOD 07160 * 026410 3202640303 07170 JL $-5,3 FILOD 07170 026415 2000005022 07180 FT 40,18 FILOD 07180 026422 2401040001 07190 TFR IM+256,,,, FILOD 07190 * 026427 3002610000 07200 J DATA FILOD 07200 026434 07210 DTX EQU $ FILOD 07210 026443 7737170703010307 07220 +8 0773717070703010307 FILOD 07220 3 026446 173777 07230 +3 0173777 7 FILOD 07230 026456 7776747060406070 07240 +8 0777674747060406070 FILOD 07240 0 026461 747677 07250 +3 0747677 7 FILOD 07250 026471 7736140410143677 07260 +8 0773614040410143677 FILOD 07260 6 026472 07270 DTX2 EQU $ FILOD 07270 026474 131310 07280 +3 0131310 0 FILOD 07280 026475 07290 DTX1 EQU $ FILOD 07290 026503 07060504030201 07300 +7 00706050504030201 FILOD 07300 1 * 026504 3000000000 07310 EDIT J 0 FILOD 07310 026511 2600001601 07320 PD 016,1 FILOD 07320 026516 1600001723 07330 BS2 017,3 FILOD 07330 026523 1600001753 07340 BC1 017,3 FILOD 07340 026530 2000030307 07350 FT 0303,7 FILOD 07350 026535 7200001722 07360 AB2 017,2 FILOD 07360 * 026542 3002650400 07370 J EDIT FILOD 07370 * 026547 3000000000 07380 STOP4 J 0 FILOD 07380 026554 5602743002 07390 BA1 STOP+8,2,2 FILOD 07390 026561 5202657602 07400 SA1 $+13,2 FILOD 07400 * 026566 3000000660 07410 JD 06 STOP ON ERROR INT. FILOD 07410 * 026573 3000000060 07420 JD 0 BECAUSE SS2 IS SET FILOD 07420 * 026600 3002654700 07430 J STOP4 FILOD 07430 * 026605 3000000033 07440 SPACE JC 0,27 FILOD 07440 * 026612 3002660562 07450 JC $-5,50 FILOD 07450 026617 4400020704 07460 SC 0207,4 FILOD 07460 026624 4000640000 07470 XF 064,0,0,0,0 FILOD 07470 * 026631 3002660500 07480 J SPACE FILOD 07480 026636 5602750706 07490 ER BA1 WRIT,6 FILOD 07490 026643 3400474700 07500 CC IE2+9,0 0 FILOD 07500 * 026650 3002670142 07510 JE $+25 FILOD 07510 026655 5602753706 07520 BA1 RED,6 FILOD 07520 026662 3400475400 07530 CC IE2+14,0,0 FILOD 07530 * 026667 3002670142 07540 JE $+10 FILOD 07540 026674 5602756106 07550 BA1 BKZ,6 FILOD 07550 026701 5203162606 07560 SA1 TYP,6 FILOD 07560 026706 2002750715 07570 FT WRIT,13 3 FILOD 07570 026713 2602743002 07580 PD STOP+8,2,2 FILOD 07580 026720 2000000137 07590 FT 1,31 FILOD 07590 026725 4402676214 07600 SC RH1+4,1212 FILOD 07600 * 026732 1000724400 07610 XXX JR TEST FILOD 07610 * 026737 1002732753 07620 JR PIE,43 FILOD 07620 026744 1600017721 07630 BS2 0177,1 FILOD 07630 026751 6000006706 07640 AC 067,6 FILOD 07640 * 026756 3202673214 07650 RH1 JL XXX,12 FILOD 07650 * 026763 1002661000 07660 JR SPACE FILOD 07660 026770 2000100037 07670 FT 01000,3131 FILOD 07670 * 026775 1000724400 07680 JR TEST FILOD 07680 * 027002 3002742053 07690 JC STOP,43 3 FILOD 07690 027007 2000000237 07700 FT 2,31 FILOD 07700 * 027014 1000724400 07710 JR TEST FILOD 07710 * 027021 3002730053 07720 JC CEOT,43 3 FILOD 07720 * 027026 1002655263 07730 JR STOP4,5151 FILOD 07730 027033 2000077537 07740 FT 0775,31 1 FILOD 07740 * 027040 1000724400 07750 JR TEST FILOD 07750 * 027045 3002706453 07760 JC $+15,43 3 FILOD 07760 027052 2000600037 07770 FT 06000,3131 FILOD 07770 * 027057 3002723000 07780 J RDER+10 0 FILOD 07780 027064 3402027103 07790 CC CNT,3 FILOD 07790 * 027071 3002743742 07800 JE STOP3 FILOD 07800 027076 2000777737 07810 FT 07777,3131 FILOD 07810 * 027103 1000721300 07820 JR RES FILOD 07820 027110 6002027101 07830 AC CNT,1 FILOD 07830 * 027115 1000713600 07840 JR BSP FILOD 07840 027122 2000200037 07850 FT 02000,3131 FILOD 07850 027127 1400720001 07860 LC I0+2,1 READ FILOD 07860 * 027134 3002721642 07870 JE RDER FILOD 07870 027141 5602000463 07880 BD2 D1,3 FILOD 07880 027146 6200745223 07890 AM2 RWIT,3 FILOD 07890 * 027153 1000721300 07900 JR RES FILOD 07900 * 027160 1000715500 07910 JR ERS FILOD 07910 * 027165 1000727500 07920 JR TESC FILOD 07920 * 027172 3002663653 07930 JC ER,43 FILOD 07930 * 027177 1000724400 07940 JR TEST FILOD 07940 * 027204 3002715353 07950 JC $-25,43 3 FILOD 07950 * 027211 3002723000 07960 J $+15 FILOD 07960 027216 5602000463 07970 RDER BD2 D1,3 FILOD 07970 027223 6200743523 07980 AM2 RERD+3,3,3 FILOD 07980 * 027230 1000721300 07990 JR RES FILOD 07990 * 027235 1000717400 08000 JR I0X FILOD 08000 * 027242 1000727500 08010 JR TESC FILOD 08010 * 027247 1002664153 08020 JR ER,43 FILOD 08020 * 027254 1000724400 08030 JR TEST FILOD 08030 * 027261 3002723053 08040 JC $-25,43 3 FILOD 08040 027266 4400474202 08050 SC IE2+4,2 2 FILOD 08050 * 027273 3000477400 08060 J EXIT FILOD 08060 027300 5601000405 08070 CEOT BA1 IM+4,5 FILOD 08070 027305 5200741305 08080 SA1 BPP,5 FILOD 08080 * 027312 1000721300 08090 JR RES FILOD 08090 * 027317 3000474300 08100 J IE2+5 FILOD 08100 * 027324 3000000000 08110 PIE J 0 FILOD 08110 027331 7202743002 08120 AB1 STOP+8,2,2 FILOD 08120 027336 5720000026 08130 BA2 0,6,5 FILOD 08130 027343 5203164226 08140 SA2 ERIN,6 FILOD 08140 027350 4400661100 08150 SC CL1A+4,0,0 FILOD 08150 027355 5601000425 08160 BA2 IM+4,5 FILOD 08160 027362 4400661140 08170 SC CL1A+4,0,040 FILOD 08170 027367 5203166225 08180 SA2 EPPB,5 FILOD 08180 027374 2003160040 08190 FT EPP,32 FILOD 08190 * 027401 1002030400 08200 JR PRINT FILOD 08200 * 027406 3002732400 08210 J PIE FILOD 08210 * 027413 3002732400 08220 J PIE FILOD 08220 * 027420 3007070760 08230 STOP JD 070707 FILOD 08230 * 027425 3000000060 08240 JD 0 FILOD 08240 * 027432 3000670700 08250 J I2A+15 FILOD 08250 * 027437 3002746361 08260 STOP3 JC $+20,49 9 FILOD 08260 * 027444 3007333360 082601 JD 073333 FILOD 082601 * 027451 3002746361 082602 JC $+10,49 9 FILOD 082602 * 027456 3002742500 08270 J STOP+5 FILOD 08270 027463 2000055437 082701 FT 0554,31 1 T. TO HAVE PROGRAM LEAVE BAD FILOD 082701 * 027470 1000721300 082702 JR RES BLOCK ON WRITE AND TO COMP. ON READ SET FILOD 082702O * 027475 3000471700 082703 J IE2-15 CLASS 1 TO IGNORE 082703S 027507 WRITE 08280 WRIT +6 _WRITE _ _ FILOD 08280 027515 E.O.T. 08290 +6 _E.O.T._._ FILOD 08290 027523 GREAT. 08300 +6 _GREAT._._ FILOD 08300 027531 LESS 08310 +6 _ LESS _ _ FILOD 08310 027537 READ 08320 RED +6 _ READ _ _ FILOD 08320 027545 T.P.E. 08330 +6 _T.P.E._._ FILOD 08330 027553 M.P.E. 08340 +6 _M.P.E._._ FILOD 08340 027561 BK.SP. 08350 BKZ +6 _BK.SP._._ FILOD 08350 027567 P.E.Z. 08360 +6 _P.E.Z._._ FILOD 08360 027575 N.RDY. 08370 +6 _N.RDY._._ FILOD 08370 027603 BUSY 08380 +6 _ BUSY _ _ FILOD 08380 027611 M.O.A. 08390 +6 _M.O.A._._ FILOD 08390 027700 08400 ORIG $,64 FILOD 08400 027700 08410 PAT1 EQU $ FILOD 08410 027707 0102030405060710 08420 +8 0010203030405060710 FILOD 08420 7 027717 1112131415161720 08430 +8 0111213131415161720 FILOD 08430 7 027727 2122232425262730 08440 +8 0212223232425262730 FILOD 08440 7 027737 3132333435363740 08450 +8 0313233333435363740 FILOD 08450 7 027747 4142434445464750 08460 +8 0414243434445464750 FILOD 08460 7 027757 5152535455565760 08470 +8 0515253535455565760 FILOD 08470 7 027767 6162636465666770 08480 +8 0616263636465666770 FILOD 08480 7 027777 7172737475767777 08490 +8 0717273737475767777 FILOD 08490 7 030007 7777767574737271 08500 +8 0777776767574737271 FILOD 08500 2 030017 7067666564636261 08510 +8 0706766666564636261 FILOD 08510 2 030027 6057565554535251 08520 +8 0605756565554535251 FILOD 08520 2 030037 5047464544434241 08530 +8 0504746464544434241 FILOD 08530 2 030047 4037363534333231 08540 +8 0403736363534333231 FILOD 08540 2 030057 3027272524232231 08550 +8 0302727272524232231 FILOD 08550 2 030067 2017161514131211 08560 +8 0201716161514131211 FILOD 08560 2 030077 1007060504030201 08570 +8 0100706060504030201 FILOD 08570 2 030100 100 08580 AREA 64,B,63 3 FILOD 08580 030200 100 08590 AREA 64,B,30 0 FILOD 08590 030300 08600 ORIG $,64 FILOD 08600 030300 08610 PAT2 EQU $ FILOD 08610 030317 PBPBPBPBPBPBPBPB 08620 +16 _PBPBPBPBPBPBPBPBPB_ 25-52 FILOD 08620 B 030337 PBPBPBPBPBPBPBPB 08630 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08630 B 030357 PBPBPBPBPBPBPBPB 08640 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08640 B 030377 PBPBPBPBPBPBPBPB 08650 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08650 B 030417 PBPBPBPBPBPBPBPB 08660 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08660 B 030437 PBPBPBPBPBPBPBPB 08670 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08670 B 030457 PBPBPBPBPBPBPBPB 08680 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08680 B 030477 PBPBPBPBPBPBPBPB 08690 +16 _PBPBPBPBPBPBPBPBPB_ FILOD 08690 B 030517 V4V4V4V4V4V4V4V4 08700 +16 _V4V4V4V4V4V4V4V4V4_ 70-07 FILOD 08700 4 030537 V4V4V4V4V4V4V4V4 08710 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08710 4 030557 V4V4V4V4V4V4V4V4 08720 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08720 4 030577 V4V4V4V4V4V4V4V4 08730 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08730 4 030617 V4V4V4V4V4V4V4V4 08740 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08740 4 030637 V4V4V4V4V4V4V4V4 08750 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08750 4 030657 V4V4V4V4V4V4V4V4 08760 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08760 4 030677 V4V4V4V4V4V4V4V4 08770 +16 _V4V4V4V4V4V4V4V4V4_ FILOD 08770 4 030700 08780 ORIG $,64 FILOD 08780 030700 08790 PAT3 EQU $ FILOD 08790 030707 1623337336225020 08800 +8 0162333737336225020 FILOD 08800 0 030717 1114100710526671 08810 +8 0111410000710526671 FILOD 08810 6 030727 6733506675721015 08820 +8 0673350606675721015 FILOD 08820 0 030737 1042213150146235 08830 +8 0104221313150146235 FILOD 08830 2 030747 1146222037723151 08840 +8 0114622222037723151 FILOD 08840 1 030757 7720310270012714 08850 +8 0772031010270012714 FILOD 08850 7 030767 3545553343731601 08860 +8 0354555353343731601 FILOD 08860 6 030777 6410512041204102 08870 +8 0641051212041204102 FILOD 08870 1 031007 1107062577241505 08880 +8 0110706262577241505 FILOD 08880 5 031017 1004134012203103 08890 +8 0100413434012203103 FILOD 08890 1 031027 7261436042534716 08900 +8 0726143636042534716 FILOD 08900 7 031037 2212260331211427 08910 +8 0221226060331211427 FILOD 08910 4 031047 1071174762213504 08920 +8 0107117474762213504 FILOD 08920 5 031057 0612253236155217 08930 +8 0061225353236155217 FILOD 08930 2 031067 2436123526076621 08940 +8 0243612323526076621 FILOD 08940 6 031077 6646141273312130 08950 +8 0664614141273312130 FILOD 08950 1 031107 6345711013216536 08960 +8 0634571111013216536 FILOD 08960 5 031117 6246500704111305 08970 +8 0624650000704111305 FILOD 08970 3 031127 1005570701645136 08980 +8 0100557070701645136 FILOD 08980 1 031137 1217022223161501 08990 +8 0121702222223161501 FILOD 08990 5 031140 240 09000 AREA 160,B,1 1 FILOD 09000 031400 09010 ORIG $,64 FILOD 09010 031400 09020 COP EQU $ FILOD 09020 031416 TEST 1 COMPARE 09030 +15 _TEST 1 1 COMPARE _ FILOD 09030 E 031436 ERROR CHAR. 09040 CCR +16 _ERROR C CHAR. _ FILOD 09040 031456 WAS SHOULD B 09050 +16 _ WAS SHOULD B_ FILOD 09050 D 031470 E BLK. 09060 CW +10 _E BLBLK. _ FILOD 09060 031475 09070 CCH +5 _ _ _ FILOD 09070 031477 09080 +2 _ _ FILOD 09080 031500 09090 BSPX EQU $ FILOD 09090 031517 TEST 1 BACKSPACE 09100 +16 _TEST 1 1 BACKSPACE_ FILOD 09100 A 031537 ERROR EXPECTED 09110 +16 _ ERROR R EXPECTED _ FILOD 09110 E 031557 BLOCK 00001 READ 09120 +16 _BLOCK 0 00001 READ_ FILOD 09120 E 031572 BLOCK 09130 BSPA +11 _BLOCK _ FILOD 09130 031577 09140 +5 _ _ FILOD 09140 031600 09150 EPP EQU $ FILOD 09150 031617 TEST 1 INTERRUPT 09160 +16 _TEST 1 1 INTERRUPT_ FILOD 09160 U 031626 XXXXXX 09170 TYP +7 _ XXXXXXXX_ FILOD 09170 031642 WITH XXXXXX 09180 ERIN +12 _ WITH X XXXXXX_ FILOD 09180 031655 SET BLOCK 09190 +11 _ SET BLBLOCK _ FILOD 09190 031662 XXXXX 09200 EPPB +5 _XXXXX_ _ FILOD 09200 031677 09210 +13 _ _ FILOD 09210 031700 09220 COMP2 EQU EPPB+14 4 FILOD 09220 3000140000 09230 END STR FILOD 09230 {-- tape mark --}