␣␣␣␣␣A = 1
  1. Definition
    188 F1BM1450
    189PRINT CONTROL SUBROUTINE. F1BM1460
    00001 190 A EQU1 F1BM1470
␣␣␣␣␣B = 2
  1. Definition
    00002 191 B EQU2 F1BM1480
␣␣␣␣␣C = 4
  1. Definition
    00004 192 C EQU4 F1BM1490
  2. References (7)
    00063 0 07400 4 00332 31TSXPRINT,C FIRST STATEMENT OF CURRENT SOURCE PROGRAM F1BM0310
    00172 0 07400 4 00332 102TSXPRINT,C F1BM0980
    00174 0 07400 4 00332 104TSXPRINT,C F1BM1000
    00347 0 07400 4 00401 207TSXWOT,C F1BM1640
    00370 0 07400 4 00401 224TSXWOT,C F1BM1810
    00372−0 53400 4 00376 226LXDRNC,C F1BM1830
    00373 0 02000 4 00002 227TRA2,C F1BM1840
␣␣␣␣␣D = 431
  1. Definition
    00657 385 D BES9 F1BM3420
  2. References (8)
    00522−0 60200 3 00657 316 CI5 ORSD,3 STORE DIGIT F1BM2730
    00532−0 60200 2 00647 324ORSD−8,2 AND 3 ROWS AND F1BM2810
    00533−0 60200 2 00654 325ORSD−3,2 MOVE 8.4 AND 8.3 F1BM2820
    00536−0 60200 2 00647 328ORSD−8,2 X F1BM2850
    00537−0 60200 2 00653 329ORSD−4,2 X F1BM2860
    00546−0 60200 3 00657 336ORSD,3 STORE DIGIT F1BM2930
    00554−0 60200 3 00657 342ORSD,3 STORE DIGIT F1BM2990
    00561−0 60200 3 00657 347ORSD,3 STORE DIGIT F1BM3040
␣␣␣␣␣X = 432
  1. Definition
    00660 387 X BSS1 F1BM3440
  2. Reference
    00555−0 60200 2 00660 343 XZ2 ORSX,2 STORE X-ZONE F1BM3000
␣␣␣␣␣Y = 433
  1. Definition
    00661 388 Y BSS1 F1BM3450
  2. References (2)
    00547−0 60200 2 00661 337 YZ2 ORSY,2 STORE Y-ZONE F1BM2940
    00662 389 LT SYNY+1 F1BM3460
␣␣␣␣␣Z = 431
  1. Definition
    00657 386 Z BSS1 F1BM3430
  2. Reference
    00560−0 60200 2 00657 346 OZ1 ORSZ,2 STORE 0-ZONE F1BM3030
␣␣␣␣BK = 288
  1. Definition
    00440 0 34000 0 00616 266 BK CASBNK TEST FOR BLANK F1BM2230
  2. Reference
    TD00436−3 00000 0 00440 264TXLBK NO F1BM2210
␣␣␣␣L2 = 389
  1. Definition
    00605 0 02000 4 00002 367 L2 TRA2,4 X F1BM3240
␣␣␣␣LT = 434
  1. Definition
    00662 389 LT SYNY+1 F1BM3460
  2. References (4)
    00503 0 60200 1 00662 301 PR4 SLWLT,1 X F1BM2580
    00570 0 32000 1 00662 354 ANS ANSLT,1 X F1BM3110
    00573 0 70000 1 00646 357 CRAN CPYLT−12,1 F1BM3140
    00644 390 8.4L SYNLT−14 F1BM3470
␣␣␣␣MK = 293
  1. Definition
    00445 0 73400 1 00017 271 MK PAX15,1 OBTAIN SPR COMBINATION F1BM2280
  2. Reference
    00444−0 32000 0 00445 270ANAMK MASK OUT ZONE F1BM2270
␣␣␣␣N2 = 295
  1. Definition
    00447−2 00010 1 00451 273 N2 TNXN3,1,8 X F1BM2300
  2. Reference
    00446 1 00001 1 00447 272TXIN2,1,1 X F1BM2290
␣␣␣␣N3 = 297
  1. Definition
    00451−2 00004 1 00453 275 N3 TNXN4,1,4 X F1BM2320
  2. Reference
    00447−2 00010 1 00451 273 N2 TNXN3,1,8 X F1BM2300
␣␣␣␣N4 = 299
  1. Definition
    00453−2 00002 1 00455 277 N4 TNXN5,1,2 X F1BM2340
  2. Reference
    00451−2 00004 1 00453 275 N3 TNXN4,1,4 X F1BM2320
␣␣␣␣N5 = 301
  1. Definition
    00455−2 00001 1 00457 279 N5 TNXRPR,1,1 X F1BM2360
  2. Reference
    00453−2 00002 1 00455 277 N4 TNXN5,1,2 X F1BM2340
␣␣␣␣Q6 = 332
  1. Definition
    00514−0 76300 0 00006 310 Q6 LGL6 F1BM2670
  2. Reference
    00512 0 53400 4 00514 308LXAQ6,4 SET CHARACTER COUNT F1BM2650
␣␣␣␣RT = 418
  1. Definition
    00642 380 RT BES16 F1BM3370
  2. References (3)
    00504 0 60200 1 00642 302SLWRT,1 X F1BM2590
    00574 0 70000 1 00626 358CPYRT−12,1 X F1BM3150
    00624 391 8.4R SYNRT−14 F1BM3480
␣␣␣␣S3 = 280
  1. Definition
    00430 0 50200 0 00564 258 S3 CLSWP SET SWITCH FOR MASKING F1BM2150
  2. Reference
    TD00424−3 00000 0 00430 254 Z2 TXLS3 F1BM2110
␣␣␣␣T2 = 382
  1. Definition
    00576 3 77764 1 00573 360 T2 TXHCRAN,1,−12 F1BM3170
  2. Reference
    00575 1 77777 1 00576 359TXIT2,1,−1 F1BM3160
␣␣␣␣T4 = 275
  1. Definition
    00423 0 76600 0 00361 253 T4 WPR F1BM2100
  2. Reference
    TD00422 3 00000 0 00423 252 PR6 TXHT4 F1BM2090
␣␣␣␣T5 = 282
  1. Definition
    00432−0 50000 0 00432 260 T5 CAL* OBTAIN FIRST CHARACTER F1BM2170
  2. Reference
    00404 0 62100 0 00432 238STAT5 X F1BM1950
␣␣␣␣WP = 372
  1. Definition
    TD00564 3 00000 0 00566 350 WP TXHWP9 INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL F1BM3070
  2. References (8)
    00420−0 50000 0 00564 250CALWP INITIALIZE SWITCH F1BM2070
    00421 0 60100 0 00564 251STOWP X F1BM2080
    00430 0 50200 0 00564 258 S3 CLSWP SET SWITCH FOR MASKING F1BM2150
    00431 0 60100 0 00564 259STOWP CHARACTER FROM TYPE WHEEL 1 F1BM2160
    D00541−3 00000 4 00564 331 CI8 TXLWP,4 TEST FOR END F1BM2880
    00542 3 00017 2 00564 332TXHWP,2,15 TEST FOR RIGHT HALF F1BM2890
    00577−0 50000 0 00564 361CALWP RESET SWITCH FOR SECOND CYCLE F1BM3180
    00600 0 60100 0 00564 362STOWP X F1BM3190
␣␣␣␣X1 = 361
  1. Definition
    TD00551−3 00000 0 00524 339 X1 TXLCI3 OBTAIN NEXT GROUP F1BM2960
  2. References (2)
    00401−0 63400 1 00551 235 WOT SXDX1,1 F1BM1920
    00602−0 53400 1 00551 364LXDX1,1 NO, RELOAD INDEX REGISTERS AND RETURN F1BM3210
␣␣␣␣X2 = 367
  1. Definition
    TD00557−3 00000 0 00524 345 X2 TXLCI3 OBTAIN NEXT GROUP F1BM3020
  2. References (2)
    00402−0 63400 2 00557 236SXDX2,2 F1BM1930
    00603−0 53400 2 00557 365LXDX2,2 X F1BM3220
␣␣␣␣X4 = 396
  1. Definition
    A00614 0 00000 0 00000 374 X4 HTR F1BM3310
  2. References (4)
    00405 0 62200 0 00614 239STDX4 X F1BM1960
    00407 0 40000 0 00614 241ADDX4 X F1BM1980
    00415−0 63400 4 00614 247SXDX4,4 F1BM2040
    00604−0 53400 4 00614 366 WT2 LXDX4,4 X F1BM3230
␣␣␣␣Z2 = 276
  1. Definition
    TD00424−3 00000 0 00430 254 Z2 TXLS3 F1BM2110
  2. Reference
    00572−0 53400 1 00424 356 WP7 LXDZ2,1 COPY LOOP F1BM3130
␣␣␣8.2 = 421
  1. Definition
    00645 384 8.2 BSS1 F1BM3410
  2. Reference
    00534 0 60200 2 00645 326SLW8.2,2 ROWS F1BM2830
␣␣␣8.3 = 420
  1. Definition
    00644 383 8.3 BSS1 F1BM3400
  2. References (2)
    00531−0 50000 2 00644 323 CI7 CAL8.3,2 FORM TRUE 8.4 F1BM2800
    00540 0 60200 2 00644 330SLW8.3,2 X F1BM2870
␣␣␣8.4 = 419
  1. Definition
    00643 382 8.4 BSS1 F1BM3390
  2. Reference
    00535−0 50000 2 00643 327CAL8.4,2 FORM TRUE 8.4 F1BM2840
␣␣␣8.5 = 418
  1. Definition
    00642 381 8.5 BSS1 F1BM3380
␣␣␣ANS = 376
  1. Definition
    00570 0 32000 1 00662 354 ANS ANSLT,1 X F1BM3110
  2. Reference
    00571 2 00001 1 00570 355TIXANS,1,1 X F1BM3120
␣␣␣BNK = 398
  1. Definition
    00616+000000000060 376 BNK OCT60 F1BM3330
  2. Reference
    00440 0 34000 0 00616 266 BK CASBNK TEST FOR BLANK F1BM2230
␣␣␣CI1 = 331
  1. Definition
    T00513−0 75400 0 00000 309 CI1 PXD F1BM2660
  2. References (4)
    00523 2 00001 4 00513 317 CI4 TIXCI1,4,1 COUNT CHARACTERS F1BM2740
    00550 2 00001 4 00513 338TIXCI1,4,1 COUNT CHARACTERS F1BM2950
    00556 2 00001 4 00513 344TIXCI1,4,1 COUNT CHARACTERS F1BM3010
    00562 2 00001 4 00513 348TIXCI1,4,1 COUNT CHARACTERS F1BM3050
␣␣␣CI2 = 327
  1. Definition
    00507 0 60200 0 00621 305 CI2 SLWCOL X F1BM2620
  2. Reference
    00530−0 10000 0 00507 322TNZCI2 TEST FOR END OF ROW F1BM2790
␣␣␣CI3 = 340
  1. Definition
    00524 0 77100 0 00001 318 CI3 ARS1 SHIFT AND TEST COLUMN F1BM2750
  2. References (3)
    TD00551−3 00000 0 00524 339 X1 TXLCI3 OBTAIN NEXT GROUP F1BM2960
    TD00557−3 00000 0 00524 345 X2 TXLCI3 OBTAIN NEXT GROUP F1BM3020
    TD00563−3 00000 0 00524 349TXLCI3 F1BM3060
␣␣␣CI4 = 339
  1. Definition
    00523 2 00001 4 00513 317 CI4 TIXCI1,4,1 COUNT CHARACTERS F1BM2740
  2. References (2)
    00462−0 53400 4 00523 284LXDCI4,4 X F1BM2410
    00553 3 00017 1 00523 341TXHCI4,1,15 TEST FOR BLANK F1BM2980
␣␣␣CI5 = 338
  1. Definition
    00522−0 60200 3 00657 316 CI5 ORSD,3 STORE DIGIT F1BM2730
␣␣␣CI6 = 343
  1. Definition
    D00527−3 00000 4 00531 321 CI6 TXLCI7,4 TEST FOR LAST NON-BLANK GROUP F1BM2780
  2. References (2)
    00467−0 63400 4 00527 289 PR1 SXDCI6,4 STORE END TEST F1BM2460
    00526 1 77777 4 00527 320TXICI6,4,−1 COUNT GROUPS F1BM2770
␣␣␣CI7 = 345
  1. Definition
    00531−0 50000 2 00644 323 CI7 CAL8.3,2 FORM TRUE 8.4 F1BM2800
  2. Reference
    D00527−3 00000 4 00531 321 CI6 TXLCI7,4 TEST FOR LAST NON-BLANK GROUP F1BM2780
␣␣␣CI8 = 353
  1. Definition
    D00541−3 00000 4 00564 331 CI8 TXLWP,4 TEST FOR END F1BM2880
  2. Reference
    00470−0 63400 4 00541 290SXDCI8,4 X F1BM2470
␣␣␣CI9 = 328
  1. Definition
    00510 0 56000 4 00000 306 CI9 LDQ0,4 OBTAIN GROUP F1BM2630
  2. Reference
    00411 0 62100 0 00510 243STACI9 X F1BM2000
␣␣␣CIR = 326
  1. Definition
    00506−0 50000 0 00620 304 CIR CALCOL1 INITIALIZE COLUMN INDICATOR F1BM2610
  2. Reference
    00543 1 00020 2 00506 333TXICIR,2,16 INITIALIZE RIGHT HALF F1BM2900
␣␣␣COL = 401
  1. Definition
    00621 379 COL BSS1 F1BM3360
  2. References (2)
    00507 0 60200 0 00621 305 CI2 SLWCOL X F1BM2620
    00516−0 50000 0 00621 312CALCOL POSITION COLUMN INDICATOR F1BM2690
␣␣␣L11 = 270
  1. Definition
    00416 0 73400 4 00013 248 L11 PAX11,4 F1BM2050
␣␣␣MK2 = 399
  1. Definition
    00617+377777777777 377 MK2 OCT377777777777 F1BM3340
  2. Reference
    00567−0 50000 0 00617 353CALMK2 X F1BM3100
␣␣␣OZ1 = 368
  1. Definition
    00560−0 60200 2 00657 346 OZ1 ORSZ,2 STORE 0-ZONE F1BM3030
  2. Reference
    00552 2 00020 1 00560 340 XZ1 TIXOZ1,1,16 TEST FOR 32/CH/48 F1BM2970
␣␣␣OZ2 = 277
  1. Definition
    ATD00425−3 00000 0 00000 255 OZ2 TXL F1BM2120
  2. References (2)
    00511−0 63400 4 00425 307SXDOZ2,4 STORE GROUP COUNT F1BM2640
    00525−0 53400 4 00425 319LXDOZ2,4 RESTORE GROUP COUNT F1BM2760
␣␣␣PR1 = 311
  1. Definition
    00467−0 63400 4 00527 289 PR1 SXDCI6,4 STORE END TEST F1BM2460
  2. References (2)
    00464 1 77777 4 00467 286TXIPR1,4,−1 X F1BM2430
    00466 1 77777 4 00467 288TXIPR1,4,−1 X F1BM2450
␣␣␣PR2 = 307
  1. Definition
    00463 0 34000 4 00000 285 PR2 CAS0,4 X F1BM2420
  2. References (3)
    00410 0 62100 0 00463 242STAPR2 X F1BM1990
    00465 1 00001 4 00463 287TXIPR2,4,1 X F1BM2440
    TD00607−3 00000 0 00461 369TXLPR2−2 F1BM3260
␣␣␣PR3 = 319
  1. Definition
    00477−0 53400 4 00422 297 PR3 LXDPR6,4 INITIALIZE GROUP COUNT F1BM2540
  2. Reference
    00475−3 00014 4 00477 295TXLPR3,4,12 F1BM2520
␣␣␣PR4 = 323
  1. Definition
    00503 0 60200 1 00662 301 PR4 SLWLT,1 X F1BM2580
  2. Reference
    00505 2 00001 1 00503 303TIXPR4,1,1 X F1BM2600
␣␣␣PR5 = 320
  1. Definition
    00500 0 53400 2 00502 298 PR5 LXAPR7,2 INITIALIZE LEFT SETUP F1BM2550
  2. References (2)
    D00474−2 00000 4 00500 294 PR8 TNXPR5,4 F1BM2510
    00612−3 00014 0 00500 372 WP2 TXLPR5,0,12 CONVERT REST OF LINE F1BM3290
␣␣␣PR6 = 274
  1. Definition
    TD00422 3 00000 0 00423 252 PR6 TXHT4 F1BM2090
  2. References (3)
    00417−0 63400 4 00422 249SXDPR6,4 F1BM2060
    00473−0 53400 4 00422 293LXDPR6,4 X F1BM2500
    00477−0 53400 4 00422 297 PR3 LXDPR6,4 INITIALIZE GROUP COUNT F1BM2540
␣␣␣PR7 = 322
  1. Definition
    T00502−0 75400 0 00000 300 PR7 PXD X F1BM2570
  2. Reference
    00500 0 53400 2 00502 298 PR5 LXAPR7,2 INITIALIZE LEFT SETUP F1BM2550
␣␣␣PR8 = 316
  1. Definition
    D00474−2 00000 4 00500 294 PR8 TNXPR5,4 F1BM2510
  2. Reference
    00471−0 63400 4 00474 291SXDPR8,4 X F1BM2480
␣␣␣RAN = 218
  1. Definition
    00332 0 50000 4 00001 194 RAN CLA1,4 F1BM1510
␣␣␣RNA = 252
  1. Definition
    A00374 0 00000 0 00000 228 RNA HTR F1BM1850
  2. References (5)
    00333 0 62100 0 00374 195STARNA F1BM1520
    00337 0 50000 0 00374 199 RN40 CLARNA F1BM1560
    00345 0 40000 0 00374 205ADDRNA F1BM1620
    00357 0 62100 0 00374 215STARNA F1BM1720
    00366 0 40000 0 00374 222ADDRNA F1BM1790
␣␣␣RNB = 253
  1. Definition
    A00375 0 00000 0 00000 229 RNB HTR F1BM1860
  2. References (3)
    00335 0 60100 0 00375 197STORNB F1BM1540
    00341 0 34000 0 00375 201CASRNB F1BM1580
    00364 0 50000 0 00375 220 RN50 CLARNB F1BM1770
␣␣␣RNC = 254
  1. Definition
    A00376 0 00000 0 00000 230 RNC HTR F1BM1870
  2. References (2)
    00336−0 63400 4 00376 198SXDRNC,4 F1BM1550
    00372−0 53400 4 00376 226LXDRNC,C F1BM1830
␣␣␣RND = 255
  1. Definition
    00377 0 00000 0 00024 231 RND HTR20 F1BM1880
  2. Reference
    00340 0 40000 0 00377 200ADDRND F1BM1570
␣␣␣RNE = 256
  1. Definition
    00400 0 00000 0 00001 232 RNE HTR1 F1BM1890
  2. References (2)
    00353 0 40200 0 00400 211SUBRNE F1BM1680
    00355 0 40200 0 00400 213SUBRNE F1BM1700
␣␣␣RPR = 303
  1. Definition
    00457 0 76600 0 00361 281 RPR WPR F1BM2380
  2. References (4)
    TD00427−3 00000 0 00461 257TXLRPR+2 F1BM2140
    TD00437−3 00000 0 00460 265TXLRPR+1 SUPPRESS SPACE F1BM2220
    TD00442−3 00000 0 00461 268TXLRPR+2 BLANK F1BM2250
    00455−2 00001 1 00457 279 N5 TNXRPR,1,1 X F1BM2360
␣␣␣SP4 = 278
  1. Definition
    00426 0 76000 0 00364 256 SP4 SPR4 F1BM2130
  2. Reference
    00434 0 10000 0 00426 262TZESP4 DOUBLE SPACE IF ZERO F1BM2190
␣␣␣WOT = 257
  1. Definition
    233 F1BM1900
    234PRINT SUBROUTINE. F1BM1910
    00401−0 63400 1 00551 235 WOT SXDX1,1 F1BM1920
  2. References (2)
    00347 0 07400 4 00401 207TSXWOT,C F1BM1640
    00370 0 07400 4 00401 224TSXWOT,C F1BM1810
␣␣␣WP2 = 394
  1. Definition
    00612−3 00014 0 00500 372 WP2 TXLPR5,0,12 CONVERT REST OF LINE F1BM3290
  2. Reference
    00566−0 53400 1 00612 352 WP9 LXDWP2,1 MASK OUT FIRST COL. OF CARD IMAGE F1BM3090
␣␣␣WP4 = 385
  1. Definition
    D00601 3 00000 4 00610 363 WP4 TXHWP5,4 F1BM3200
  2. Reference
    00472−0 63400 4 00601 292SXDWP4,4 X F1BM2490
␣␣␣WP5 = 392
  1. Definition
    00610 0 76600 0 00361 370 WP5 WPR F1BM3270
  2. Reference
    D00601 3 00000 4 00610 363 WP4 TXHWP5,4 F1BM3200
␣␣␣WP7 = 378
  1. Definition
    00572−0 53400 1 00424 356 WP7 LXDZ2,1 COPY LOOP F1BM3130
  2. Reference
    TD00565−3 00000 0 00572 351TXLWP7 NO PROGRAM F1BM3080
␣␣␣WP9 = 374
  1. Definition
    00566−0 53400 1 00612 352 WP9 LXDWP2,1 MASK OUT FIRST COL. OF CARD IMAGE F1BM3090
  2. Reference
    TD00564 3 00000 0 00566 350 WP TXHWP9 INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL F1BM3070
␣␣␣WT2 = 388
  1. Definition
    00604−0 53400 4 00614 366 WT2 LXDX4,4 X F1BM3230
␣␣␣XZ1 = 362
  1. Definition
    00552 2 00020 1 00560 340 XZ1 TIXOZ1,1,16 TEST FOR 32/CH/48 F1BM2970
  2. Reference
    00544 2 00020 1 00552 334 YZ1 TIXXZ1,1,16 TEST FOR 16/CH/32 F1BM2910
␣␣␣XZ2 = 365
  1. Definition
    00555−0 60200 2 00660 343 XZ2 ORSX,2 STORE X-ZONE F1BM3000
  2. Reference
    00545 3 00017 1 00555 335TXHXZ2,1,15 TEST FOR X-ZONE F1BM2920
␣␣␣YZ1 = 356
  1. Definition
    00544 2 00020 1 00552 334 YZ1 TIXXZ1,1,16 TEST FOR 16/CH/32 F1BM2910
  2. References (2)
    00501−0 53400 1 00544 299LXDYZ1,1 CLEAR CARD IMAGE F1BM2560
    00520 2 00020 1 00544 314TIXYZ1,1,16 TEST FOR DIGIT F1BM2710
␣␣␣YZ2 = 359
  1. Definition
    00547−0 60200 2 00661 337 YZ2 ORSY,2 STORE Y-ZONE F1BM2940
  2. Reference
    00521 3 00017 1 00547 315TXHYZ2,1,15 TEST FOR Y-ZONE F1BM2720
␣␣8.4L = 420
  1. Definition
    00644 390 8.4L SYNLT−14 F1BM3470
␣␣8.4R = 404
  1. Definition
    00624 391 8.4R SYNRT−14 F1BM3480
␣␣COL1 = 400
  1. Definition
    00620−0 00000 0 00000 378 COL1 MZE F1BM3350
  2. Reference
    00506−0 50000 0 00620 304 CIR CALCOL1 INITIALIZE COLUMN INDICATOR F1BM2610
␣␣CRAN = 379
  1. Definition
    00573 0 70000 1 00646 357 CRAN CPYLT−12,1 F1BM3140
  2. Reference
    00576 3 77764 1 00573 360 T2 TXHCRAN,1,−12 F1BM3170
␣␣DIGF = 291
  1. Definition
    00443 0 76000 0 00372 269 DIGF SPR10 SET CHANNEL SKIP F1BM2260
  2. Reference
    TD00441−3 00000 0 00443 267TXLDIGF NO F1BM2240
␣␣ENDA = 218
  1. Definition
    00332 187ENDA BSS0 F1BM1430
  2. Reference
    00173 0 00332 0 00315 103REMA,0,ENDA F1BM0990
␣␣L(() = 170
  1. Definition
    00252 000000000074 137L(() BCD100000( F1BM1320
  2. Reference
    00127 0 40200 0 00252 67SUBL(() TEST FOURTH CHAR FOR ( F1BM0640
␣␣L(3) = 158
  1. Definition
    00236 0 00000 0 00003 125L(3) 3 F1BM1200
␣␣L(5) = 159
  1. Definition
    00237 0 00000 0 00005 126L(5) 5 F1BM1210
  2. Reference
    00033 0 53400 4 00237 7ADD01 LXAL(5),4 COUNTER FOR 5 TRIES TO READ TAPE 5. F1BM0070
␣␣L(6) = 160
  1. Definition
    00240 0 00000 0 00006 127L(6) 6 F1BM1220
  2. Reference
    00202 0 53400 2 00240 110LXAL(6),2 F1BM1060
␣␣L(7) = 161
  1. Definition
    00241 0 00000 0 00007 128L(7) 7 F1BM1230
  2. Reference
    00111 0 53400 2 00241 53LXAL(7),2 FORTRAN STATEMENT. PREPARE TO TEST F1BM0500
␣␣L(C) = 164
  1. Definition
    00244 000000000023 131L(C) BCD100000C F1BM1260
  2. Reference
    00100 0 40200 0 00244 44SUBL(C) F1BM0410
␣␣L(D) = 169
  1. Definition
    00251 000000000024 136L(D) BCD100000D F1BM1310
  2. Reference
    00124 0 40200 0 00251 64SUBL(D) TEST THIRD CHAR FOR D F1BM0610
␣␣L(E) = 167
  1. Definition
    00247 000000000025 134L(E) BCD100000E F1BM1290
  2. Reference
    00116 0 40200 0 00247 58SUBL(E) TEST FIRST CHAR FOR E F1BM0550
␣␣L(N) = 168
  1. Definition
    00250 000000000045 135L(N) BCD100000N F1BM1300
  2. Reference
    00121 0 40200 0 00250 61SUBL(N) TEST SECOND CHAR FOR N F1BM0580
␣␣REMA = 205
  1. Definition
    00315 016060606060 174REMA BCD71␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ F1BM1410
  2. Reference
    00173 0 00332 0 00315 103REMA,0,ENDA F1BM0990
␣␣RN20 = 241
  1. Definition
    A00361 0 60100 0 00000 217 RN20 STO F1BM1740
  2. Reference
    00354 0 62100 0 00361 212STARN20 F1BM1690
␣␣RN30 = 242
  1. Definition
    A00362 0 60100 0 00000 218 RN30 STO F1BM1750
  2. Reference
    00356 0 62100 0 00362 214STARN30 F1BM1710
␣␣RN40 = 223
  1. Definition
    00337 0 50000 0 00374 199 RN40 CLARNA F1BM1560
  2. Reference
    00363 0 02000 0 00337 219TRARN40 F1BM1760
␣␣RN50 = 244
  1. Definition
    00364 0 50000 0 00375 220 RN50 CLARNB F1BM1770
  2. Reference
    00343 0 02000 0 00364 203TRARN50 F1BM1600
␣␣RN60 = 249
  1. Definition
    A00371 0 00000 0 00000 225 RN60 HTR F1BM1820
  2. Reference
    00367 0 60100 0 00371 223STORN60 F1BM1800
␣␣RPR2 = 390
  1. Definition
    00606 0 76600 0 00361 368 RPR2 WPR F1BM3250
␣␣SUB1 = 128
  1. Definition
    00200−0 75400 0 00000 108SUB1 PXD0,0 SUBROUTINE TO BRING NEXT NON BLANK F1BM1040
  2. References (11)
    00115 0 07400 4 00200 57TSXSUB1,4 F1BM0540
    00120 0 07400 4 00200 60TSXSUB1,4 F1BM0570
    00123 0 07400 4 00200 63TSXSUB1,4 F1BM0600
    00126 0 07400 4 00200 66TSXSUB1,4 F1BM0630
    00131 0 07400 4 00200 69TSXSUB1,4 F1BM0660
    00132 0 07400 4 00200 70TSXSUB1,4 F1BM0670
    00135 0 07400 4 00200 73TSXSUB1,4 F1BM0700
    00136 0 07400 4 00200 74TSXSUB1,4 F1BM0710
    00141 0 07400 4 00200 77TSXSUB1,4 F1BM0740
    00142 0 07400 4 00200 78TSXSUB1,4 F1BM0750
    00210 0 02000 0 00200 116TRASUB1 F1BM1120
␣ADD01 = 27
  1. Definition
    00033 0 53400 4 00237 7ADD01 LXAL(5),4 COUNTER FOR 5 TRIES TO READ TAPE 5. F1BM0070
  2. References (10)
    00101 0 10000 0 00033 45TZEADD01 YES, GO READ NEXT TAPE RECORD F1BM0420
    00107−0 10000 0 00033 51TNZADD01 YES, GO READ NEXT TAPE RECORD F1BM0480
    00117−0 10000 0 00033 59TNZADD01 F1BM0560
    00122−0 10000 0 00033 62TNZADD01 F1BM0590
    00125−0 10000 0 00033 65TNZADD01 F1BM0620
    00130−0 10000 0 00033 68TNZADD01 F1BM0650
    00134−0 10000 0 00033 72TNZADD01 F1BM0690
    00140−0 10000 0 00033 76TNZADD01 F1BM0730
    00144−0 10000 0 00033 80TNZADD01 F1BM0770
    00213 0 02000 0 00033 119TRAADD01 F1BM1150
␣ADD02 = 35
  1. Definition
    00043 0 70000 1 00234 15ADD02 CPYBUFFER,1 F1BM0150
  2. Reference
    00047 2 00001 1 00043 19ADD03 TIXADD02,1,1 F1BM0190
␣ADD03 = 39
  1. Definition
    00047 2 00001 1 00043 19ADD03 TIXADD02,1,1 F1BM0190
  2. Reference
    00044 0 02000 0 00047 16TRAADD03 F1BM0160
␣ADD04 = 40
  1. Definition
    00050 0 77100 0 00377 20ADD04 ARS255 F1BM0200
  2. Reference
    00046 0 02000 0 00050 18TRAADD04 EOR F1BM0180
␣ADD05 = 45
  1. Definition
    00055 0 70000 2 00234 25ADD05 CPYBUFFER,2 F1BM0250
  2. Reference
    00056 2 00001 2 00055 26TIXADD05,2,1 F1BM0260
␣ADD06 = 72
  1. Definition
    00110 0 53400 1 00242 52ADD06 LXAL(12),1 THIS RECORD IS OF FIRST CARD OF F1BM0490
  2. Reference
    00105 0 10000 0 00110 49TZEADD06 TEST FOR CONTINUATION CARD F1BM0460
␣ADD50 = 133
  1. Definition
    00205−0 76300 0 00006 113ADD50 LGL6 F1BM1090
  2. References (2)
    00201 2 00001 2 00205 109TIXADD50,2,1 CHAR OF BUFFER REGION TO AC. F1BM1050
    00204 1 77777 1 00205 112TXIADD50,1,−1 F1BM1080
␣ADD51 = 137
  1. Definition
    00211 0 34000 0 00235 117ADD51 CASENDMK F1BM1130
  2. Reference
    00207 0 02000 0 00211 115TRAADD51 F1BM1110
␣ADD70 = 50
  1. Definition
    D00062 3 00000 0 00074 30ADD70 TXHADD71,0 ROUTINE TO RESTORE PRINTER CARRIAGE AND PRINTF1BM0300
  2. References (2)
    00072 0 50200 0 00062 38CLSADD70 CHANGE TXH TO TXL F1BM0350
    00073 0 60100 0 00062 39STOADD70 F1BM0360
␣ADD71 = 60
  1. Definition
    00074 0 76000 0 00141 40ADD71 SLN1 SL1-ON IF AT LEAST 1 SOURCE STATMENT ON TP 2 F1BM0370
  2. Reference
    D00062 3 00000 0 00074 30ADD70 TXHADD71,0 ROUTINE TO RESTORE PRINTER CARRIAGE AND PRINTF1BM0300
␣ADD80 = 104
  1. Definition
    00150 0 76400 0 00205 84ADD80 BST5 TAPE ERROR F1BM0810
  2. Reference
    00053 0 02000 0 00150 23TRAADD80 ON, PREPARE TO READ AGAIN F1BM0230
␣ADD90 = 113
  1. Definition
    00161−0 76000 0 00141 93ADD90 SLT1 IS THERE A PROBLEM TO BE COMPILED F1BM0900
  2. Reference
    00045 0 02000 0 00161 17TRAADD90 EOF F1BM0170
␣ADD91 = 119
  1. Definition
    00167 0 76400 0 00201 99ADD91 BST1 F1BM0970
  2. Reference
    00162 0 02000 0 00167 94TRAADD91 FINISHED, REWIND ALL TYPES F1BM0910
␣ADD93 = 101
  1. Definition
    00145 0 77000 0 00202 81ADD93 WEF2 THIS IS END CARD, TERMINATE FILE F1BM0780
  2. Reference
    00031 0 02000 0 00146 5TRAADD93+1 SKIP OVER MACHINE ERROR RECORD AND GO TO SEC1F1BM0050
␣BLANK = 166
  1. Definition
    00246 000000000060 133BLANK BCD100000␣ F1BM1280
  2. References (2)
    00106 0 40200 0 00246 50SUBBLANK F1BM0470
    00206 0 34000 0 00246 114CASBLANK F1BM1100
␣BLNKS = 395
  1. Definition
    00613 606060606060 373 BLNKS BCD1␣␣␣␣␣␣ F1BM3300
  2. References (2)
    00360 0 50000 0 00613 216CLABLNKS F1BM1730
    00461 0 50000 0 00613 283CLABLNKS FIND LAST NON-BLANK GROUP F1BM2400
␣COMMA = 171
  1. Definition
    00253 000000000073 138COMMA BCD100000, F1BM1330
  2. References (3)
    00133 0 40200 0 00253 71SUBCOMMA TEST SIXTH CHAR FOR , F1BM0680
    00137 0 40200 0 00253 75SUBCOMMA TEST EIGHTH CHAR FOR , F1BM0720
    00143 0 40200 0 00253 79SUBCOMMA TEST TENTH CHAR FOR , F1BM0760
␣ENDCD = 193
  1. Definition
    00301 006060606060 161ENDCD BCD90␣␣␣␣␣END␣CARD␣MISSING␣OR␣MISPUNCHED␣FOR␣LAST␣SUBPROGR F1BM1380
  2. Reference
    00164 0 00315 0 00301 96ENDCD,0,CDTEND F1BM0930
␣ENDMK = 157
  1. Definition
    00235+000000000077 124ENDMK OCT77 F1BM1190
  2. Reference
    00211 0 34000 0 00235 117ADD51 CASENDMK F1BM1130
␣L(12) = 162
  1. Definition
    00242 0 00000 0 00014 129L(12) 12 F1BM1240
  2. Reference
    00110 0 53400 1 00242 52ADD06 LXAL(12),1 THIS RECORD IS OF FIRST CARD OF F1BM0490
␣L(14) = 163
  1. Definition
    00243 0 00000 0 00016 130L(14) 14 F1BM1250
  2. Reference
    00042 0 53400 3 00243 14LXAL(14),3 ASSUME 14 WORDS PER RECORD F1BM0140
␣PRINT = 218
  1. Definition
    00332 193PRINT BSS0 F1BM1500
  2. References (5)
    00063 0 07400 4 00332 31TSXPRINT,C FIRST STATEMENT OF CURRENT SOURCE PROGRAM F1BM0310
    00152 0 07400 4 00332 86TSXPRINT,4 F1BM0830
    00163 0 07400 4 00332 95TSXPRINT,4 F1BM0920
    00172 0 07400 4 00332 102TSXPRINT,C F1BM0980
    00174 0 07400 4 00332 104TSXPRINT,C F1BM1000
␣RAN10 = 232
  1. Definition
    A00350 0 00000 0 00000 208 RAN10 HTR F1BM1650
  2. References (2)
    00346 0 60100 0 00350 206STORAN10 F1BM1630
    00351 0 50000 0 00350 209CLARAN10 F1BM1660
␣RESTR = 141
  1. Definition
    00215 016060606060 121RESTR BCD11␣␣␣␣␣ F1BM1165
  2. References (2)
    00064 0 00234 0 00215 32PZERESTR,0,BUFFER F1BM0320
    00175 0 00216 0 00215 105HTRRESTR,0,RESTR+1 F1BM1010
␣START = 24
  1. Definition
    00030 0 76000 0 00166 4START SWT6 TEST SW6, UP = SINGLE PROBLEM, F1BM0040
␣YZONE = 397
  1. Definition
    00615+000000000020 375 YZONE OCT20 F1BM3320
  2. Reference
    00435 0 34000 0 00615 263CASYZONE TEST FOR SPACE SUPPRESS F1BM2200
ADD015 = 33
  1. Definition
    00041 0 76200 0 00205 13ADD015 RTD5 F1BM0130
  2. Reference
    00151 2 00001 4 00041 85TIXADD015,4,1 F1BM0820
BLANKS = 165
  1. Definition
    00245 606060606060 132BLANKS BCD1␣␣␣␣␣␣ F1BM1270
  2. Reference
    00034−0 50000 0 00245 8CALBLANKS F1BM0080
BSTRTN = 109
  1. Definition
    00155 0 76400 0 00201 89BSTRTN BST1 TROUBLE. F1BM0860
  2. Reference
    00177 0 02000 0 00155 107TRABSTRTN F1BM1030
BUFFER = 156
  1. Definition
    00234 122BUFFER BES14 F1BM1170
  2. References (10)
    00035 0 60200 0 00233 9SLWBUFFER−1 F1BM0090
    00036 0 60200 0 00232 10SLWBUFFER−2 F1BM0100
    00043 0 70000 1 00234 15ADD02 CPYBUFFER,1 F1BM0150
    00055 0 70000 2 00234 25ADD05 CPYBUFFER,2 F1BM0250
    00064 0 00234 0 00215 32PZERESTR,0,BUFFER F1BM0320
    00076 0 56000 0 00216 42LDQBUFFER−14 TEST FOR COMMENT CARD F1BM0390
    00112 0 50000 0 00234 54CLABUFFER FOR END(..,..,..,..,..) CARD F1BM0510
    00113 0 60100 0 00232 55STOBUFFER−2 POSITION ENDMARK F1BM0520
    00114 0 56000 0 00217 56LDQBUFFER−13 F1BM0530
    00203 0 56000 1 00234 111LDQBUFFER,1 F1BM1070
CDTEND = 205
  1. Definition
    00315 173CDTEND BSS0 F1BM1400
  2. Reference
    00164 0 00315 0 00301 96ENDCD,0,CDTEND F1BM0930
SPROER = 108
  1. Definition
    00154 0 76000 0 00143 88SPROER SLN3 SL3-ON IF TAPE CANNOT BE READ OR END CARD F1BM0850
  2. Reference
    00166 0 02000 0 00154 98TRASPROER F1BM0950
TP5END = 193
  1. Definition
    00301 160TP5END BSS0 F1BM1370
  2. Reference
    00153 0 00301 0 00254 87TP5ERR,0,TP5END F1BM0840
TP5ERR = 172
  1. Definition
    00254 006060606060 139TP5ERR BCD90␣␣␣␣␣TAPE␣5␣CONTAINING␣SOURCE␣SUBPROGRAM␣READ␣5␣TIMES F1BM1340
  2. Reference
    00153 0 00301 0 00254 87TP5ERR,0,TP5END F1BM0840