000001 C641 STAKER CODEDIT SOURCE 08/65 -C C 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 --}