1AST
2************* FORTRAN II SECTION SIX ************************F6S00010
3FORTRAN 2 RECORD 005 - ON-LINE PRINT. F6S00011
4 F6S00012
5MODIFICATIONS TO TPH1 TO PRINT WITH F6S00020
6SENSE SWITCH CHANGES F6S00030
00210 7ORG136 F6S00040
00210 0 77200 0 00202 8REW2 F6S00050
00211−0 53400 1 00225 9LXDFILES,1 F6S00060
00212 0 50000 0 00162 10CLAONE F6S00070
00213 0 34000 0 00200 11CASSW2 TEST SENSE SWITCH TWO. F6S00080
M00214 0 02000 0 00217 12TRALIB1 UP F6S00090
00215 0 02000 0 00220 13TRAASKER DOWN F6S00100
00216 0 76000 0 00162 14SWT2 F6S00110
M00217−2 00001 1 00234 15 LIB1 TNXCARDS,1,1 UP, ANY FILES TO DO. GO RETURN TO LOADER IF NOT F6S00120
00220 0 50000 0 00162 16 ASKER CLAONE SWITCH 2 DOWN (OR UP BUT FILES TO DO) F6S00130
00221 0 34000 0 00201 17CASSW3 TEST SENSE SWITCH THREE. F6S00140
00222 0 02000 0 00225 18TRAFILES UP, GO TO RETURN TO LOADER F6S00150
M00223 0 02000 0 00226 19TRALIB2 DOWN F6S00160
00224 0 76000 0 00163 20SWT3 F6S00170
00225 1 00003 0 00234 21 FILES TXICARDS,,3 UP, GO RETURN TO LOADER F6S00180
M00226−0 63400 1 00231 22 LIB2 SXDCOUNT,1 SWITCH THREE DOWN. F6S00190
00227 0 76600 0 00361 23WPR TO PRINT FILE OF TAPE TWO. F6S00200
00230 0 76000 0 00361 24SPR1 F6S00210
TD00231 1 00000 0 00237 25 COUNT TXIPRINT F6S00220
00232−0 53400 1 00231 26 PARTS LXDCOUNT,1 F6S00230
00233 2 00001 1 00220 27TIXASKER,1,1 F6S00240
00234 0 76200 0 00221 28 CARDS RTB1 RETURN TO LOADER F6S00250
00235 0 02000 0 00004 29TRA4 F6S00260
00236 0 00000 0 00005 30 ME8 HTR5 F6S00270
00237−0 76000 0 00012 31 PRINT RTT F6S00280
00240 0 76100 0 00000 32NOP F6S00290
00241−0 53400 4 00236 33 ME9 LXDME8,4 F6S00300
00242−0 53400 2 00246 34 I113 LXDI117,2 SET RECORD LENGTH EQUAL 20 F6S00310
00243 0 76000 0 00141 35SLN1 TURN ON SENSE LIGHT 1 F6S00320
00244 0 76200 0 00202 36RTD2 SELECT TAPE TWO IN BCD MODE F6S00330
00245 0 70000 2 00551 37 I116 CPYD65,2 AND COPY RECORD. F6S00340
00246−3 00024 0 00261 38 I117 TXLI132,,20 F6S00350
00247 0 02000 0 00232 39TRAPARTS END OF FILE. F6S00360
00250 1 00001 2 00251 40 I121 TXII122,2,1 F6S00370
00251−0 75400 2 00000 41 I122 PXD0,2 F6S00380
00252−0 76000 0 00012 42RTT TEST TAPE CHECK. F6S00390
00253−3 00000 0 00263 43TXLI134,0,0 ERROR. F6S00400
00254 0 40000 0 00260 44 I125 ADDI131 PRINT THIS RECORD. F6S00410
00255 0 62200 0 00257 45STDI130 F6S00420
00256 0 07400 4 00267 46TSXI143,4 F6S00430
00257 0 00000 0 00525 47 I130 HTRD41+1 F6S00440
00260−3 00551 0 00241 48 I131 TXLME9,0,D65 F6S00450
00261 2 00001 2 00245 49 I132 TIXI116,2,1 NEXT WORD BUT NO F6S00460
00262−3 00000 0 00251 50TXLI122,0,0 MORE THEN 20. F6S00470
00263 2 00001 4 00265 51 I134 TIXI136,4,1 TEST FOR ANOTHER TRY. F6S00480
00264 0 07400 4 00004 52TSX4,4 F6S00490
00265 0 76400 0 00202 53 I136 BST2 TRY AGAIN. F6S00500
00266−3 00000 0 00242 54TXLI113,0,0 F6S00510
00267 0 50000 4 00001 55 I143 CLA1,4 SUBSTITUTE CODING. F6S00520
00270 0 62200 0 00432 56STDI302 F6S00530
00271 0 77100 0 00022 57ARS18 F6S00540
00272 0 40000 0 00432 58ADDI302 F6S00550
00273 0 62100 0 00305 59STAI161 F6S00560
00274 0 62100 0 00341 60STAI211 F6S00570
00275 0 40200 4 00001 61SUB1,4 F6S00580
00276−0 63400 4 00432 62SXDI302,4 F6S00590
00277 0 73400 4 00000 63PAX0,4 F6S00600
00300−0 63400 4 00301 64SXDI155,4 F6S00610
00301 3 00301 0 00000 65 I155 TXH0,0,* F6S00620
00302 0 76600 0 00361 66WPR SELECT PRINTER F6S00630
00303 0 50000 0 00431 67CLAI301 FIND LAST NON-BLANK GROUP. F6S00640
00304−0 53400 4 00354 68LXDI224,4 F6S00650
00305 0 34000 4 00305 69 I161 CAS*,4 F6S00660
00306 1 77777 4 00311 70TXII165,4,−1 F6S00670
00307 1 00001 4 00305 71 I163 TXII161,4,1 F6S00680
00310 1 77777 4 00311 72TXII165,4,−1 F6S00690
00311−0 63400 4 00360 73 I165 SXDI230,4 STORE END TEST. F6S00700
00312−0 63400 4 00372 74SXDI242,4 F6S00710
00313−0 63400 4 00316 75SXDI172,4 F6S00720
00314−0 63400 4 00421 76SXDI271,4 F6S00730
00315−0 53400 4 00301 77LXDI155,4 F6S00740
D00316−2 00000 4 00322 78 I172 TNXI176,4 F6S00750
00317−3 00014 4 00321 79TXLI175,4,12 F6S00760
00320 0 76000 0 00370 80SPR8 FIRST CYCLE. F6S00770
00321−0 53400 4 00301 81 I175 LXDI155,4 INITIALIZE GROUP COUNT. F6S00780
00322 0 53400 2 00333 82 I176 LXAI203,2 INITIALIZE LEFT SETUP. F6S00790
00323−0 53400 1 00375 83LXDI245,1 F6S00800
00324 0 50000 0 00162 84CLAONE F6S00810
00325 0 34000 0 00202 85CASSW4 F6S00820
00326 0 02000 0 00331 86TRAI201 F6S00830
M00327 0 02000 0 00332 87TRALIB5 F6S00840
00330 0 76000 0 00164 88SWT4 F6S00850
00331−3 00331 0 00333 89 I201 TXLI203,0,* F6S00860
M00332 0 76100 0 00000 90 LIB5 NOP F6S00870
T00333−0 75400 0 00000 91 I203 PXD F6S00880
00334 0 60200 1 00524 92 I204 SLWD41,1 CLEAR CARD IMAGE. F6S00890
00335 0 60200 1 00504 93SLWD21,1 F6S00900
00336 2 00001 1 00334 94TIXI204,1,1 F6S00910
00337−0 50000 0 00433 95 I207 CALI303 INITIALIZE COLUMN INDICATOR. F6S00920
00340 0 60200 0 00000 96 I210 SLW0 F6S00930
00341 0 56000 4 00341 97 I211 LDQ*,4 OBTAIN GROUP. F6S00940
00342−0 63400 4 00331 98SXDI201,4 STORE GROUP COUNT. F6S00950
00343 0 53400 4 00345 99LXAI215,4 SET CHARACTER COUNT. F6S00960
T00344−0 75400 0 00000 100 I214 PXD F6S00970
00345−0 76300 0 00006 101 I215 LGL6 F6S00980
00346 0 73400 1 00000 102PAX0,1 F6S00990
00347−0 50000 0 00000 103CAL0 POSITION COLUMN INDICATOR. F6S01000
00350 0 77100 4 00006 104ARS6,4 F6S01010
00351 2 00020 1 00375 105TIXI245,1,16 TEST FOR DIGIT. F6S01020
00352 3 00017 1 00400 106TXHI250,1,15 TEST FOR Y-Z ONE F6S01030
00353−0 60200 3 00521 107ORSD36,3 STORE DIGIT. F6S01040
00354 2 00001 4 00344 108 I224 TIXI214,4,1 COUNT CHARACTERS. F6S01050
00355 0 77100 0 00001 109 I225 ARS1 SHIFT AND TEST COLUMN. F6S01060
00356−0 53400 4 00331 110LXDI201,4 RESTORE GROUP COUNT. F6S01070
00357 1 77777 4 00360 111TXII230,4,−1 COUNT GROUPS. F6S01080
D00360−3 00000 4 00362 112 I230 TXLI232,4 TEST FOR LAST NON-BLANK GROUP. F6S01090
00361−0 10000 0 00340 113TNZI210 TEST FOR END OF ROW. F6S01100
00362−0 50000 2 00506 114 I232 CALD23,2 FORM TRUE 8,4 F6S01110
00363−0 60200 2 00511 115ORSD26,2 AND 3 ROWS AND F6S01120
00364−0 60200 2 00516 116ORSD33,2 MOVE 8,4 AND 8,3 F6S01130
00365 0 60200 2 00507 117SLWD24,2 ROWS. F6S01140
00366−0 50000 2 00505 118CALD22,2 F6S01150
00367−0 60200 2 00511 119ORSD26,2 F6S01160
00370−0 60200 2 00515 120ORSD32,2 F6S01170
00371 0 60200 2 00506 121SLWD23,2 F6S01180
D00372−3 00000 4 00415 122 I242 TXLI265,4 TEST FOR END. F6S01190
00373 3 00017 2 00415 123TXHI265,2,15 TEST FOR RIGHT HALF. F6S01200
00374 1 00020 2 00337 124TXII207,2,16 INITIALIZE RIGHT HALF. F6S01210
00375 2 00020 1 00403 125 I245 TIXI253,1,16 TEST FOR 16/CH/32 F6S01220
00376 3 00017 1 00406 126TXHI256,1,15 TEST FOR X-ZONE F6S01230
00377−0 60200 3 00521 127ORSD36,3 STORE DIGIT. F6S01240
00400−0 60200 2 00523 128 I250 ORSD40,2 STORE Y-ZONE. F6S01250
00401 2 00001 4 00344 129TIXI214,4,1 COUNT CHARACTERS. F6S01260
TD00402−3 00000 0 00355 130 I252 TXLI225 OBTAIN NEXT GROUP. F6S01270
00403 2 00020 1 00411 131 I253 TIXI261,1,16 TEST FOR 32/CH/48. F6S01280
00404 3 00017 1 00354 132TXHI224,1,15 TEST FOR BLANK. F6S01290
00405−0 60200 3 00521 133ORSD36,3 STORE DIGIT. F6S01300
00406−0 60200 2 00522 134 I256 ORSD37,2 STORE X-ZONE. F6S01310
00407 2 00001 4 00344 135TIXI214,4,1 COUNT CHARACTERS. F6S01320
TD00410−3 00000 0 00355 136 I260 TXLI225 OBTAIN NEXT GROUP. F6S01330
00411−0 60200 2 00521 137 I261 ORSD36,2 STORE 0-ZONE. F6S01340
00412−0 60200 3 00521 138ORSD36,3 STORE DIGIT. F6S01350
00413 2 00001 4 00344 139TIXI214,4,1 COUNT CHARACTERS. F6S01360
TD00414−3 00000 0 00355 140TXLI225 F6S01370
00415−0 53400 1 00430 141 I265 LXDI300,1 COPY LOOP. F6S01380
00416 0 70000 1 00524 142 I266 CPYD41,1 CARD IMAGE COPIES. F6S01390
00417 0 70000 1 00504 143CPYD21,1 F6S01400
00420 2 00001 1 00416 144TIXI266,1,1 COUNT COPIES. F6S01410
D00421 3 00000 4 00426 145 I271 TXHI276,4 TEST FOR SECOND CYCLE. F6S01420
00422−0 53400 1 00402 146LXDI252,1 NO, RELOAD INDEX REGISTERS F6S01430
00423−0 53400 2 00410 147LXDI260,2 AND RETURN. F6S01440
00424−0 53400 4 00432 148LXDI302,4 F6S01450
00425 0 02000 4 00002 149TRA2,4 F6S01460
00426 0 76600 0 00361 150 I276 WPR SELECT PRINTER AGAIN. F6S01470
00427 0 76000 0 00371 151SPR9 SECOND CYCLE. F6S01480
00430−3 00014 0 00322 152 I300 TXLI176,0,12 CONVERT REST OF LINE F6S01490
00431 606060606060 153 I301 BCD1␣␣␣␣␣␣ F6S01500
00432 0 00000 0 00001 154 I302 HTR1 F6S01510
00433−0 00000 0 00000 155 I303 MZE F6S01520
00504 156BES40 F6S01530
00504 0 00000 0 00000 157 D21 HTR0 F6S01540
00505 0 00000 0 00000 158 D22 HTR0 F6S01550
00506 0 00000 0 00000 159 D23 HTR0 F6S01560
00507 0 00000 0 00000 160 D24 HTR0 F6S01570
00510 0 00000 0 00000 161 D25 HTR0 F6S01580
00511 0 00000 0 00000 162 D26 HTR0 F6S01590
00512 0 00000 0 00000 163 D27 HTR0 F6S01600
00513 0 00000 0 00000 164 D30 HTR0 F6S01610
00514 0 00000 0 00000 165 D31 HTR0 F6S01620
00515 0 00000 0 00000 166 D32 HTR0 F6S01630
00516 0 00000 0 00000 167 D33 HTR0 F6S01640
00517 0 00000 0 00000 168 D34 HTR0 F6S01650
00520 0 00000 0 00000 169 D35 HTR0 F6S01660
00521 0 00000 0 00000 170 D36 HTR0 F6S01670
00522 0 00000 0 00000 171 D37 HTR0 F6S01680
00523 0 00000 0 00000 172 D40 HTR0 F6S01690
00524 0 00000 0 00000 173 D41 HTR0 F6S01700
00551 174 D65 BES20 F6S01710
175AST10,1