␣␣␣D21 = 324
  1. Definition
    00504 0 00000 0 00000 157 D21 HTR0 F6S01540
  2. References (2)
    00335 0 60200 1 00504 93SLWD21,1 F6S00900
    00417 0 70000 1 00504 143CPYD21,1 F6S01400
␣␣␣D22 = 325
  1. Definition
    00505 0 00000 0 00000 158 D22 HTR0 F6S01550
  2. Reference
    00366−0 50000 2 00505 118CALD22,2 F6S01150
␣␣␣D23 = 326
  1. Definition
    00506 0 00000 0 00000 159 D23 HTR0 F6S01560
  2. References (2)
    00362−0 50000 2 00506 114 I232 CALD23,2 FORM TRUE 8,4 F6S01110
    00371 0 60200 2 00506 121SLWD23,2 F6S01180
␣␣␣D24 = 327
  1. Definition
    00507 0 00000 0 00000 160 D24 HTR0 F6S01570
  2. Reference
    00365 0 60200 2 00507 117SLWD24,2 ROWS. F6S01140
␣␣␣D25 = 328
  1. Definition
    00510 0 00000 0 00000 161 D25 HTR0 F6S01580
␣␣␣D26 = 329
  1. Definition
    00511 0 00000 0 00000 162 D26 HTR0 F6S01590
  2. References (2)
    00363−0 60200 2 00511 115ORSD26,2 AND 3 ROWS AND F6S01120
    00367−0 60200 2 00511 119ORSD26,2 F6S01160
␣␣␣D27 = 330
  1. Definition
    00512 0 00000 0 00000 163 D27 HTR0 F6S01600
␣␣␣D30 = 331
  1. Definition
    00513 0 00000 0 00000 164 D30 HTR0 F6S01610
␣␣␣D31 = 332
  1. Definition
    00514 0 00000 0 00000 165 D31 HTR0 F6S01620
␣␣␣D32 = 333
  1. Definition
    00515 0 00000 0 00000 166 D32 HTR0 F6S01630
  2. Reference
    00370−0 60200 2 00515 120ORSD32,2 F6S01170
␣␣␣D33 = 334
  1. Definition
    00516 0 00000 0 00000 167 D33 HTR0 F6S01640
  2. Reference
    00364−0 60200 2 00516 116ORSD33,2 MOVE 8,4 AND 8,3 F6S01130
␣␣␣D34 = 335
  1. Definition
    00517 0 00000 0 00000 168 D34 HTR0 F6S01650
␣␣␣D35 = 336
  1. Definition
    00520 0 00000 0 00000 169 D35 HTR0 F6S01660
␣␣␣D36 = 337
  1. Definition
    00521 0 00000 0 00000 170 D36 HTR0 F6S01670
  2. References (5)
    00353−0 60200 3 00521 107ORSD36,3 STORE DIGIT. F6S01040
    00377−0 60200 3 00521 127ORSD36,3 STORE DIGIT. F6S01240
    00405−0 60200 3 00521 133ORSD36,3 STORE DIGIT. F6S01300
    00411−0 60200 2 00521 137 I261 ORSD36,2 STORE 0-ZONE. F6S01340
    00412−0 60200 3 00521 138ORSD36,3 STORE DIGIT. F6S01350
␣␣␣D37 = 338
  1. Definition
    00522 0 00000 0 00000 171 D37 HTR0 F6S01680
  2. Reference
    00406−0 60200 2 00522 134 I256 ORSD37,2 STORE X-ZONE. F6S01310
␣␣␣D40 = 339
  1. Definition
    00523 0 00000 0 00000 172 D40 HTR0 F6S01690
  2. Reference
    00400−0 60200 2 00523 128 I250 ORSD40,2 STORE Y-ZONE. F6S01250
␣␣␣D41 = 340
  1. Definition
    00524 0 00000 0 00000 173 D41 HTR0 F6S01700
  2. References (3)
    00257 0 00000 0 00525 47 I130 HTRD41+1 F6S00440
    00334 0 60200 1 00524 92 I204 SLWD41,1 CLEAR CARD IMAGE. F6S00890
    00416 0 70000 1 00524 142 I266 CPYD41,1 CARD IMAGE COPIES. F6S01390
␣␣␣D65 = 361
  1. Definition
    00551 174 D65 BES20 F6S01710
  2. References (2)
    00245 0 70000 2 00551 37 I116 CPYD65,2 AND COPY RECORD. F6S00340
    00260−3 00551 0 00241 48 I131 TXLME9,0,D65 F6S00450
␣␣␣ME8 = 158
  1. Definition
    00236 0 00000 0 00005 30 ME8 HTR5 F6S00270
  2. Reference
    00241−0 53400 4 00236 33 ME9 LXDME8,4 F6S00300
␣␣␣ME9 = 161
  1. Definition
    00241−0 53400 4 00236 33 ME9 LXDME8,4 F6S00300
  2. Reference
    00260−3 00551 0 00241 48 I131 TXLME9,0,D65 F6S00450
␣␣I113 = 162
  1. Definition
    00242−0 53400 2 00246 34 I113 LXDI117,2 SET RECORD LENGTH EQUAL 20 F6S00310
  2. Reference
    00266−3 00000 0 00242 54TXLI113,0,0 F6S00510
␣␣I116 = 165
  1. Definition
    00245 0 70000 2 00551 37 I116 CPYD65,2 AND COPY RECORD. F6S00340
  2. Reference
    00261 2 00001 2 00245 49 I132 TIXI116,2,1 NEXT WORD BUT NO F6S00460
␣␣I117 = 166
  1. Definition
    00246−3 00024 0 00261 38 I117 TXLI132,,20 F6S00350
  2. Reference
    00242−0 53400 2 00246 34 I113 LXDI117,2 SET RECORD LENGTH EQUAL 20 F6S00310
␣␣I121 = 168
  1. Definition
    00250 1 00001 2 00251 40 I121 TXII122,2,1 F6S00370
␣␣I122 = 169
  1. Definition
    00251−0 75400 2 00000 41 I122 PXD0,2 F6S00380
  2. References (2)
    00250 1 00001 2 00251 40 I121 TXII122,2,1 F6S00370
    00262−3 00000 0 00251 50TXLI122,0,0 MORE THEN 20. F6S00470
␣␣I125 = 172
  1. Definition
    00254 0 40000 0 00260 44 I125 ADDI131 PRINT THIS RECORD. F6S00410
␣␣I130 = 175
  1. Definition
    00257 0 00000 0 00525 47 I130 HTRD41+1 F6S00440
  2. Reference
    00255 0 62200 0 00257 45STDI130 F6S00420
␣␣I131 = 176
  1. Definition
    00260−3 00551 0 00241 48 I131 TXLME9,0,D65 F6S00450
  2. Reference
    00254 0 40000 0 00260 44 I125 ADDI131 PRINT THIS RECORD. F6S00410
␣␣I132 = 177
  1. Definition
    00261 2 00001 2 00245 49 I132 TIXI116,2,1 NEXT WORD BUT NO F6S00460
  2. Reference
    00246−3 00024 0 00261 38 I117 TXLI132,,20 F6S00350
␣␣I134 = 179
  1. Definition
    00263 2 00001 4 00265 51 I134 TIXI136,4,1 TEST FOR ANOTHER TRY. F6S00480
  2. Reference
    00253−3 00000 0 00263 43TXLI134,0,0 ERROR. F6S00400
␣␣I136 = 181
  1. Definition
    00265 0 76400 0 00202 53 I136 BST2 TRY AGAIN. F6S00500
  2. Reference
    00263 2 00001 4 00265 51 I134 TIXI136,4,1 TEST FOR ANOTHER TRY. F6S00480
␣␣I143 = 183
  1. Definition
    00267 0 50000 4 00001 55 I143 CLA1,4 SUBSTITUTE CODING. F6S00520
  2. Reference
    00256 0 07400 4 00267 46TSXI143,4 F6S00430
␣␣I155 = 193
  1. Definition
    00301 3 00301 0 00000 65 I155 TXH0,0,* F6S00620
  2. References (3)
    00300−0 63400 4 00301 64SXDI155,4 F6S00610
    00315−0 53400 4 00301 77LXDI155,4 F6S00740
    00321−0 53400 4 00301 81 I175 LXDI155,4 INITIALIZE GROUP COUNT. F6S00780
␣␣I161 = 197
  1. Definition
    00305 0 34000 4 00305 69 I161 CAS*,4 F6S00660
  2. References (2)
    00273 0 62100 0 00305 59STAI161 F6S00560
    00307 1 00001 4 00305 71 I163 TXII161,4,1 F6S00680
␣␣I163 = 199
  1. Definition
    00307 1 00001 4 00305 71 I163 TXII161,4,1 F6S00680
␣␣I165 = 201
  1. Definition
    00311−0 63400 4 00360 73 I165 SXDI230,4 STORE END TEST. F6S00700
  2. References (2)
    00306 1 77777 4 00311 70TXII165,4,−1 F6S00670
    00310 1 77777 4 00311 72TXII165,4,−1 F6S00690
␣␣I172 = 206
  1. Definition
    D00316−2 00000 4 00322 78 I172 TNXI176,4 F6S00750
  2. Reference
    00313−0 63400 4 00316 75SXDI172,4 F6S00720
␣␣I175 = 209
  1. Definition
    00321−0 53400 4 00301 81 I175 LXDI155,4 INITIALIZE GROUP COUNT. F6S00780
  2. Reference
    00317−3 00014 4 00321 79TXLI175,4,12 F6S00760
␣␣I176 = 210
  1. Definition
    00322 0 53400 2 00333 82 I176 LXAI203,2 INITIALIZE LEFT SETUP. F6S00790
  2. References (2)
    D00316−2 00000 4 00322 78 I172 TNXI176,4 F6S00750
    00430−3 00014 0 00322 152 I300 TXLI176,0,12 CONVERT REST OF LINE F6S01490
␣␣I201 = 217
  1. Definition
    00331−3 00331 0 00333 89 I201 TXLI203,0,* F6S00860
  2. References (3)
    00326 0 02000 0 00331 86TRAI201 F6S00830
    00342−0 63400 4 00331 98SXDI201,4 STORE GROUP COUNT. F6S00950
    00356−0 53400 4 00331 110LXDI201,4 RESTORE GROUP COUNT. F6S01070
␣␣I203 = 219
  1. Definition
    T00333−0 75400 0 00000 91 I203 PXD F6S00880
  2. References (2)
    00322 0 53400 2 00333 82 I176 LXAI203,2 INITIALIZE LEFT SETUP. F6S00790
    00331−3 00331 0 00333 89 I201 TXLI203,0,* F6S00860
␣␣I204 = 220
  1. Definition
    00334 0 60200 1 00524 92 I204 SLWD41,1 CLEAR CARD IMAGE. F6S00890
  2. Reference
    00336 2 00001 1 00334 94TIXI204,1,1 F6S00910
␣␣I207 = 223
  1. Definition
    00337−0 50000 0 00433 95 I207 CALI303 INITIALIZE COLUMN INDICATOR. F6S00920
  2. Reference
    00374 1 00020 2 00337 124TXII207,2,16 INITIALIZE RIGHT HALF. F6S01210
␣␣I210 = 224
  1. Definition
    00340 0 60200 0 00000 96 I210 SLW0 F6S00930
  2. Reference
    00361−0 10000 0 00340 113TNZI210 TEST FOR END OF ROW. F6S01100
␣␣I211 = 225
  1. Definition
    00341 0 56000 4 00341 97 I211 LDQ*,4 OBTAIN GROUP. F6S00940
  2. Reference
    00274 0 62100 0 00341 60STAI211 F6S00570
␣␣I214 = 228
  1. Definition
    T00344−0 75400 0 00000 100 I214 PXD F6S00970
  2. References (4)
    00354 2 00001 4 00344 108 I224 TIXI214,4,1 COUNT CHARACTERS. F6S01050
    00401 2 00001 4 00344 129TIXI214,4,1 COUNT CHARACTERS. F6S01260
    00407 2 00001 4 00344 135TIXI214,4,1 COUNT CHARACTERS. F6S01320
    00413 2 00001 4 00344 139TIXI214,4,1 COUNT CHARACTERS. F6S01360
␣␣I215 = 229
  1. Definition
    00345−0 76300 0 00006 101 I215 LGL6 F6S00980
  2. Reference
    00343 0 53400 4 00345 99LXAI215,4 SET CHARACTER COUNT. F6S00960
␣␣I224 = 236
  1. Definition
    00354 2 00001 4 00344 108 I224 TIXI214,4,1 COUNT CHARACTERS. F6S01050
  2. References (2)
    00304−0 53400 4 00354 68LXDI224,4 F6S00650
    00404 3 00017 1 00354 132TXHI224,1,15 TEST FOR BLANK. F6S01290
␣␣I225 = 237
  1. Definition
    00355 0 77100 0 00001 109 I225 ARS1 SHIFT AND TEST COLUMN. F6S01060
  2. References (3)
    TD00402−3 00000 0 00355 130 I252 TXLI225 OBTAIN NEXT GROUP. F6S01270
    TD00410−3 00000 0 00355 136 I260 TXLI225 OBTAIN NEXT GROUP. F6S01330
    TD00414−3 00000 0 00355 140TXLI225 F6S01370
␣␣I230 = 240
  1. Definition
    D00360−3 00000 4 00362 112 I230 TXLI232,4 TEST FOR LAST NON-BLANK GROUP. F6S01090
  2. References (2)
    00311−0 63400 4 00360 73 I165 SXDI230,4 STORE END TEST. F6S00700
    00357 1 77777 4 00360 111TXII230,4,−1 COUNT GROUPS. F6S01080
␣␣I232 = 242
  1. Definition
    00362−0 50000 2 00506 114 I232 CALD23,2 FORM TRUE 8,4 F6S01110
  2. Reference
    D00360−3 00000 4 00362 112 I230 TXLI232,4 TEST FOR LAST NON-BLANK GROUP. F6S01090
␣␣I242 = 250
  1. Definition
    D00372−3 00000 4 00415 122 I242 TXLI265,4 TEST FOR END. F6S01190
  2. Reference
    00312−0 63400 4 00372 74SXDI242,4 F6S00710
␣␣I245 = 253
  1. Definition
    00375 2 00020 1 00403 125 I245 TIXI253,1,16 TEST FOR 16/CH/32 F6S01220
  2. References (2)
    00323−0 53400 1 00375 83LXDI245,1 F6S00800
    00351 2 00020 1 00375 105TIXI245,1,16 TEST FOR DIGIT. F6S01020
␣␣I250 = 256
  1. Definition
    00400−0 60200 2 00523 128 I250 ORSD40,2 STORE Y-ZONE. F6S01250
  2. Reference
    00352 3 00017 1 00400 106TXHI250,1,15 TEST FOR Y-Z ONE F6S01030
␣␣I252 = 258
  1. Definition
    TD00402−3 00000 0 00355 130 I252 TXLI225 OBTAIN NEXT GROUP. F6S01270
  2. Reference
    00422−0 53400 1 00402 146LXDI252,1 NO, RELOAD INDEX REGISTERS F6S01430
␣␣I253 = 259
  1. Definition
    00403 2 00020 1 00411 131 I253 TIXI261,1,16 TEST FOR 32/CH/48. F6S01280
  2. Reference
    00375 2 00020 1 00403 125 I245 TIXI253,1,16 TEST FOR 16/CH/32 F6S01220
␣␣I256 = 262
  1. Definition
    00406−0 60200 2 00522 134 I256 ORSD37,2 STORE X-ZONE. F6S01310
  2. Reference
    00376 3 00017 1 00406 126TXHI256,1,15 TEST FOR X-ZONE F6S01230
␣␣I260 = 264
  1. Definition
    TD00410−3 00000 0 00355 136 I260 TXLI225 OBTAIN NEXT GROUP. F6S01330
  2. Reference
    00423−0 53400 2 00410 147LXDI260,2 AND RETURN. F6S01440
␣␣I261 = 265
  1. Definition
    00411−0 60200 2 00521 137 I261 ORSD36,2 STORE 0-ZONE. F6S01340
  2. Reference
    00403 2 00020 1 00411 131 I253 TIXI261,1,16 TEST FOR 32/CH/48. F6S01280
␣␣I265 = 269
  1. Definition
    00415−0 53400 1 00430 141 I265 LXDI300,1 COPY LOOP. F6S01380
  2. References (2)
    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
␣␣I266 = 270
  1. Definition
    00416 0 70000 1 00524 142 I266 CPYD41,1 CARD IMAGE COPIES. F6S01390
  2. Reference
    00420 2 00001 1 00416 144TIXI266,1,1 COUNT COPIES. F6S01410
␣␣I271 = 273
  1. Definition
    D00421 3 00000 4 00426 145 I271 TXHI276,4 TEST FOR SECOND CYCLE. F6S01420
  2. Reference
    00314−0 63400 4 00421 76SXDI271,4 F6S00730
␣␣I276 = 278
  1. Definition
    00426 0 76600 0 00361 150 I276 WPR SELECT PRINTER AGAIN. F6S01470
  2. Reference
    D00421 3 00000 4 00426 145 I271 TXHI276,4 TEST FOR SECOND CYCLE. F6S01420
␣␣I300 = 280
  1. Definition
    00430−3 00014 0 00322 152 I300 TXLI176,0,12 CONVERT REST OF LINE F6S01490
  2. Reference
    00415−0 53400 1 00430 141 I265 LXDI300,1 COPY LOOP. F6S01380
␣␣I301 = 281
  1. Definition
    00431 606060606060 153 I301 BCD1␣␣␣␣␣␣ F6S01500
  2. Reference
    00303 0 50000 0 00431 67CLAI301 FIND LAST NON-BLANK GROUP. F6S00640
␣␣I302 = 282
  1. Definition
    00432 0 00000 0 00001 154 I302 HTR1 F6S01510
  2. References (4)
    00270 0 62200 0 00432 56STDI302 F6S00530
    00272 0 40000 0 00432 58ADDI302 F6S00550
    00276−0 63400 4 00432 62SXDI302,4 F6S00590
    00424−0 53400 4 00432 148LXDI302,4 F6S01450
␣␣I303 = 283
  1. Definition
    00433−0 00000 0 00000 155 I303 MZE F6S01520
  2. Reference
    00337−0 50000 0 00433 95 I207 CALI303 INITIALIZE COLUMN INDICATOR. F6S00920
␣␣LIB1 = 143
  1. Definition
    M00217−2 00001 1 00234 15 LIB1 TNXCARDS,1,1 UP, ANY FILES TO DO. GO RETURN TO LOADER IF NOT F6S00120
  2. Reference
    M00214 0 02000 0 00217 12TRALIB1 UP F6S00090
␣␣LIB2 = 150
  1. Definition
    M00226−0 63400 1 00231 22 LIB2 SXDCOUNT,1 SWITCH THREE DOWN. F6S00190
  2. Reference
    M00223 0 02000 0 00226 19TRALIB2 DOWN F6S00160
␣␣LIB5 = 218
  1. Definition
    M00332 0 76100 0 00000 90 LIB5 NOP F6S00870
  2. Reference
    M00327 0 02000 0 00332 87TRALIB5 F6S00840
␣ASKER = 144
  1. Definition
    00220 0 50000 0 00162 16 ASKER CLAONE SWITCH 2 DOWN (OR UP BUT FILES TO DO) F6S00130
  2. References (2)
    00215 0 02000 0 00220 13TRAASKER DOWN F6S00100
    00233 2 00001 1 00220 27TIXASKER,1,1 F6S00240
␣CARDS = 156
  1. Definition
    00234 0 76200 0 00221 28 CARDS RTB1 RETURN TO LOADER F6S00250
  2. References (2)
    M00217−2 00001 1 00234 15 LIB1 TNXCARDS,1,1 UP, ANY FILES TO DO. GO RETURN TO LOADER IF NOT F6S00120
    00225 1 00003 0 00234 21 FILES TXICARDS,,3 UP, GO RETURN TO LOADER F6S00180
␣COUNT = 153
  1. Definition
    TD00231 1 00000 0 00237 25 COUNT TXIPRINT F6S00220
  2. References (2)
    M00226−0 63400 1 00231 22 LIB2 SXDCOUNT,1 SWITCH THREE DOWN. F6S00190
    00232−0 53400 1 00231 26 PARTS LXDCOUNT,1 F6S00230
␣FILES = 149
  1. Definition
    00225 1 00003 0 00234 21 FILES TXICARDS,,3 UP, GO RETURN TO LOADER F6S00180
  2. References (2)
    00211−0 53400 1 00225 9LXDFILES,1 F6S00060
    00222 0 02000 0 00225 18TRAFILES UP, GO TO RETURN TO LOADER F6S00150
␣PARTS = 154
  1. Definition
    00232−0 53400 1 00231 26 PARTS LXDCOUNT,1 F6S00230
  2. Reference
    00247 0 02000 0 00232 39TRAPARTS END OF FILE. F6S00360
␣PRINT = 159
  1. Definition
    00237−0 76000 0 00012 31 PRINT RTT F6S00280
  2. Reference
    TD00231 1 00000 0 00237 25 COUNT TXIPRINT F6S00220