14 FORCE NEW RECORD
00004 0 01303 0 03533 2HTRX−1,0,LOCREC CARD FOR DE
01303 3ORGLOCREC
TD01303 3 00000 0 00004 4TXH4 1 DOUBLE PRIME
01304−0 53400 1 00030 5LXD24,1 IN DEC OF 24,1 NUMBER OF ENTRIES
01305 2 00001 1 01307 6TIXA,1,1 MADE BY NON-ARITHMETIC DIAGNOSTIC
01306−0 53400 1 01232 7LXDZERO,1
01307−0 63400 1 01334 8A SXDNXTER,1 SET END OF ERROR LIST TEST
01310−0 53400 1 01232 9LXDZERO,1
01311 0 76600 0 00361 10AB WPR SPACE BETWEEN ERROR COMMENTS
01312−0 53400 2 01232 11LXDZERO,2
01313 0 50000 1 77777 12CLALIST,1
01314−0 32000 0 01230 13ANADECMSK
01315 0 40200 0 01234 14SUBPREFX1 GET UNCOMPLIMENTED LOCATION
01316−0 32000 0 01230 15ANADECMSK
01317 0 34000 2 03532 16AE CASER1PRM,2 2 WORD ENTRIES IN THIS LIST
01320 0 02000 0 01322 17TRAAC
01321 0 02000 0 01325 18TRABHAV
01322 1 00002 2 01323 19AC TXIAD,2,2
01323−3 00076 2 01317 20AD TXLAE,2,62 62 STOPS IN LIST SO FAR
01324 0 02000 0 01330 21TRANO CANNOT IDENTIFY
01325 0 50000 2 03533 22BHAV CLAER1PRM+1,2
01326 0 62100 0 01327 23STABA
A01327 0 02000 0 00000 24BA TRA
01330 0 76400 0 00201 25NO BST1 SPACE BACK TO PRINT RECORD ZERO
01331 0 76400 0 00201 26BST1
01332 0 60100 0 01235 27STOERWORD AND SAVE OCTAL LOCATION
01333 0 02000 0 00137 28TRALXDA
01334−3 00000 1 01311 29NXTER TXLAB,1,0 NUMBER OF ERROR ENTRIES MINUS 1
01335 0 76600 0 00361 30WPR FINISHED WITH ERROR LIST, SPACE PRINTER
01336 0 50000 0 00316 31CLAHTR4
01337 0 60100 0 00271 32STODONE+3
01340 0 02000 0 00272 33TRASPEND
01341 0 50000 1 77776 34TEIFNO CLALIST−1,1 BETA, WHICH IS DUPLICATED IN SOURCE
01342−0 32000 0 01227 35ANAADDMSK PROGRAM, IS IN ADDRESS 0F LIST
01343 0 07400 4 00676 36TSXBINDEC,4
01344 0 60200 0 01355 37SLWTBETA
01345 0 07400 4 00740 38TSXPRINT,4
01346 0 01365 0 01350 39HTRPRTEIF,0,PRTEIF+13
01347 1 00002 1 01334 40TXINXTER,1,2 2WORD ENTRIES IN ERROR LIST
01350 606060606060 41PRTEIF BCD2␣␣␣␣␣␣␣␣␣␣␣␣
01351 606060606060 42
01352 633025602646 43BCD3THE␣FORMULA␣NUMBER
01353 514464432160 44
01354 456444222551 45
A01355 0 00000 0 00000 46TBETA HTR
01356 603162602464 47BCD7␣IS␣DUPLICATED␣IN␣THE␣SOURCE␣PROGRAM␣␣␣␣␣␣
01357 474331232163 48
01360 252460314560 49
01361 633025606246 50
01362 645123256047 51
01363 514627512144 52
01364 606060606060 53
01365 0 50000 0 01541 54MINB1 CLAADTMI SELECT ADDRESS OF PARTICULAR TIFGO ENTRY
01366 0 73400 4 00000 55PAX0,4 FOR PRINT ROUTINE
01367 0 62100 0 01504 56STAWHICHA
01370−0 50000 0 01445 57CALN1 AND PICK UP BCD FOR COMMENT
01371 1 00042 4 01451 58TXIBETAPR,4,34 ADD LENGTH OF COMMENT TO ADDRESS
01372 0 50000 0 01541 59MINB2 CLAADTMI
01373 0 73400 4 00000 60PAX0,4
01374 0 62100 0 01504 61STAWHICHA
01375−0 50000 0 01446 62CALN2
01376 1 00042 4 01451 63TXIBETAPR,4,34
01377 0 50000 0 01541 64MINB3 CLAADTMI
01400 0 73400 4 00000 65PAX0,4
01401 0 62100 0 01504 66STAWHICHA
01402−0 50000 0 01447 67CALN3
01403 1 00042 4 01451 68TXIBETAPR,4,34
01404 0 50000 0 01542 69TSXTFO CLAADTZR
01405 0 73400 4 00000 70PAX0,4
01406 0 62100 0 01504 71STAWHICHA
01407−0 50000 0 01444 72CALN
01410 1 00042 4 01451 73TXIBETAPR,4,34
01411 0 50000 0 01543 74BTIFG1 CLAADT1
01412 0 73400 4 00000 75PAX0,4
01413 0 62100 0 01504 76STAWHICHA
01414−0 50000 0 01443 77CALSOMN
01415 1 00042 4 01451 78TXIBETAPR,4,34
01416 0 50000 0 01544 79BTIFG2 CLAADT2
01417 0 02000 0 01412 80TRABTIFG1+1
01420 0 50000 0 01545 81B1TIF3 CLAADT3
01421 0 02000 0 01366 82TRAMINB1+1
01422 0 50000 0 01545 83B2TIF3 CLAADT3
01423 0 02000 0 01373 84TRAMINB2+1
01424 0 50000 0 01546 85B1TIF4 CLAADT4
01425 0 02000 0 01366 86TRAMINB1+1
01426 0 50000 0 01546 87B2TIF4 CLAADT4
01427 0 02000 0 01373 88TRAMINB2+1
01430 0 50000 0 01547 89B1TIF5 CLAADT5
01431 0 02000 0 01366 90TRAMINB1+1
01432 0 50000 0 01547 91B2TIF5 CLAADT5
01433 0 02000 0 01373 92TRAMINB2+1
01434 0 50000 0 01550 93TIF6B CLAADT6
01435 0 02000 0 01405 94TRATSXTFO+1
01436 0 50000 0 01551 95DONOBT CLAADDO SAME PROCESS AS FOR TIFGO ENTRIES
01437 0 73400 4 00000 96PAX0,4
01440 0 62100 0 01504 97STAWHICHA
01441−0 50000 0 01450 98CALB
01442 1 00016 4 01451 99TXIBETAPR,4,14
01443 624644256045 100SOMN BCD1SOME␣N
01444 456060606060 101N BCD1N␣␣␣␣␣
01445 450160606060 102N1 BCD1N1␣␣␣␣
01446 450260606060 103N2 BCD1N2␣␣␣␣
01447 450360606060 104N3 BCD1N3␣␣␣␣
01450 226060606060 105B BCD1B␣␣␣␣␣
01451−0 63400 4 01504 106BETAPR SXDWHICHA,4 SOME TIFGO, OR DO, STATEMENT REFERS TO
01452 0 60200 0 01526 107SLWBETAWD A NONEXISTANT BETA
01453 0 56000 0 01526 108LDQBETAWD MOVE WORD INTO COMMENT
01454−0 50000 0 01525 109CALBETAWD−1
01455 0 77100 0 00022 110ARS18
01456−0 76300 0 00022 111LGL18
01457 0 60200 0 01525 112SLWBETAWD−1
01460−0 76300 0 00022 113LGL18
01461 0 56000 0 00717 114LDQBLANKS
01462−0 76300 0 00022 115LGL18
01463 0 60200 0 01526 116SLWBETAWD
01464 0 50000 1 77777 117CLALIST,1
01465 0 07400 4 00613 118TSXEXBETA,4
01466 0 07400 4 00602 119TSXLAJUST,4
01467 0 60200 0 01513 120SLWFORMNB
01470 0 56000 0 01513 121LDQFORMNB MOVE EXTERNAL FORMULA NUMBER
01471−0 50000 0 01512 122CALFORMNB−1 INTO COMMENT
01472 0 77100 0 00006 123ARS6
01473−0 76300 0 00006 124LGL6
01474 0 60200 0 01512 125SLWFORMNB−1
01475−0 76300 0 00036 126LGL30
01476 0 56000 0 00717 127LDQBLANKS
01477−0 76300 0 00006 128LGL6
01500 0 60200 0 01513 129SLWFORMNB
01501 0 07400 4 00740 130TSXPRINT,4
01502 0 01541 0 01506 131HTRNOBETA,0,NOBETA+27
01503 0 07400 4 00740 132TSXPRINT,4
01504 0 00000 0 00000 133WHICHA
01505 1 00001 1 01334 134TXINXTER,1,1 1 WORD ENTRY IN ERROR LIST
01506 606060606060 135NOBETA BCD2␣␣␣␣␣␣␣␣␣␣␣␣
01507 606060606060 136
01510 626321632544 137BCD3STATEMENT␣NUMBER␣␣
01511 254563604564 138
01512 442225516060 139
A01513 0 00000 0 00000 140FORMNB HTR
01514 512526255162 141BCD REFERS␣TO␣A␣NON-EXISTENT␣FORMULA␣NUMBER␣CORRESPONDING␣TO␣␣␣␣
01515 606346602160 142
01516 454645402567 143
01517 316263254563 144
01520 602646514464 145
01521 432160456444 146
01522 222551602346 147
01523 515125624746 148
01524 452431452760 149
01525 634660606060 150
01526 606060606060 151BETAWD BCD6␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01527 606060606060 152
01530 606060606060 153
01531 606060606060 154
01532 606060606060 155
01533 606060606060 156
01534 314560633025 157BCD5IN␣THE␣TYPE␣OF␣STATEMENT␣␣␣␣␣␣
01535 606370472560 158
01536 462660626321 159
01537 632544254563 160
01540 606060606060 161
01541 0 00000 0 01552 162ADTMI HTRTISMIN
01542 0 00000 0 01614 163ADTZR HTRTISZRO
01543 0 00000 0 01656 164ADT1 HTRTIS1
01544 0 00000 0 01720 165ADT2 HTRTIS2
01545 0 00000 0 01762 166ADT3 HTRTIS3
01546 0 00000 0 02024 167ADT4 HTRTIS4
01547 0 00000 0 02066 168ADT5 HTRTIS5
01550 0 00000 0 02130 169ADT6 HTRTIS6
01551 0 00000 0 02172 170ADDO HTRDOS
01552 606060606060 171TISMIN BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01553 606060606060 172
01554 606060606060 173
01555 606060606060 174
01556 602160603126 175BCD ␣A␣␣IF␣(␣E␣)␣N1,␣N2,␣N3␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01557 607460256034 176
01560 604501736045 177
01561 027360450360 178
01562 606060606060 179
01563 606060606060 180
01564 606060606060 181
01565 606060606060 182
01566 606060606060 183
01567 606060606060 184
01570 606060606060 185BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01571 606060606060 186
01572 606060606060 187
01573 606060606060 188
01574 606060606060 189
01575 606060606060 190
01576 606060606060 191
01577 606060606060 192
01600 606060606060 193
01601 606060606060 194
01602 606060606060 195BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01603 606060606060 196
01604 606060606060 197
01605 606060606060 198
01606 606060606060 199
01607 606060606060 200
01610 606060606060 201
01611 606060606060 202
01612 606060606060 203
01613 606060606060 204
01614 606060606060 205TISZRO BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01615 606060606060 206
01616 606060606060 207
01617 606060606060 208
01620 602160602746 209BCD ␣A␣␣GO␣TO␣N␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01621 606346604560 210
01622 606060606060 211
01623 606060606060 212
01624 606060606060 213
01625 606060606060 214
01626 606060606060 215
01627 606060606060 216
01630 606060606060 217
01631 606060606060 218
01632 606060606060 219BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01633 606060606060 220
01634 606060606060 221
01635 606060606060 222
01636 606060606060 223
01637 606060606060 224
01640 606060606060 225
01641 606060606060 226
01642 606060606060 227
01643 606060606060 228
01644 606060606060 229BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01645 606060606060 230
01646 606060606060 231
01647 606060606060 232
01650 606060606060 233
01651 606060606060 234
01652 606060606060 235
01653 606060606060 236
01654 606060606060 237
01655 606060606060 238
01656 606060606060 239TIS1 BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01657 606060606060 240
01660 606060606060 241
01661 606060606060 242
01662 602160602746 243BCD ␣A␣␣GO␣TO␣L␣(␣N1,␣N2,␣NM␣)␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01663 606346604360 244
01664 746045017360 245
01665 450273604544 246
01666 603460606060 247
01667 606060606060 248
01670 606060606060 249
01671 606060606060 250
01672 606060606060 251
01673 606060606060 252
01674 606060606060 253BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01675 606060606060 254
01676 606060606060 255
01677 606060606060 256
01700 606060606060 257
01701 606060606060 258
01702 606060606060 259
01703 606060606060 260
01704 606060606060 261
01705 606060606060 262
01706 606060606060 263BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01707 606060606060 264
01710 606060606060 265
01711 606060606060 266
01712 606060606060 267
01713 606060606060 268
01714 606060606060 269
01715 606060606060 270
01716 606060606060 271
01717 606060606060 272
01720 606060606060 273TIS2 BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01721 606060606060 274
01722 606060606060 275
01723 606060606060 276
01724 602160602746 277BCD ␣A␣␣GO␣TO␣(␣N1,␣N2,␣NM␣)␣J␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01725 606346607460 278
01726 450173604502 279
01727 736045446034 280
01730 604160606060 281
01731 606060606060 282
01732 606060606060 283
01733 606060606060 284
01734 606060606060 285
01735 606060606060 286
01736 606060606060 287BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01737 606060606060 288
01740 606060606060 289
01741 606060606060 290
01742 606060606060 291
01743 606060606060 292
01744 606060606060 293
01745 606060606060 294
01746 606060606060 295
01747 606060606060 296
01750 606060606060 297BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01751 606060606060 298
01752 606060606060 299
01753 606060606060 300
01754 606060606060 301
01755 606060606060 302
01756 606060606060 303
01757 606060606060 304
01760 606060606060 305
01761 606060606060 306
01762 606060606060 307TIS3 BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01763 606060606060 308
01764 606060606060 309
01765 606060606060 310
01766 602160603126 311BCD ␣A␣␣IF␣(␣SENSE␣SWITCH␣K␣)␣N1,␣N2␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
01767 607460622545 312
01770 622560626631 313
01771 632330604260 314
01772 346045017360 315
01773 450260606060 316
01774 606060606060 317
01775 606060606060 318
01776 606060606060 319
01777 606060606060 320
02000 606060606060 321BCD9␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02001 606060606060 322
02002 606060606060 323
02003 606060606060 324
02004 606060606060 325
02005 606060606060 326
02006 606060606060 327
02007 606060606060 328
02010 606060606060 329
02011 465160606060 330BCD1OR␣␣␣␣
02012 602160603126 331BCD ␣A␣␣IF␣(␣SENSE␣LIGHT␣K␣)␣N1,␣N2␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02013 607460622545 332
02014 622560433127 333
02015 306360426034 334
02016 604501736045 335
02017 026060606060 336
02020 606060606060 337
02021 606060606060 338
02022 606060606060 339
02023 606060606060 340
02024 606060606060 341TIS4 BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02025 606060606060 342
02026 606060606060 343
02027 606060606060 344
02030 602160603126 345BCD ␣A␣␣IF␣DIVIDE␣CHECK␣N1,␣N2␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02031 602431653124 346
02032 256023302523 347
02033 426045017360 348
02034 450260606060 349
02035 606060606060 350
02036 606060606060 351
02037 606060606060 352
02040 606060606060 353
02041 606060606060 354
02042 606060606060 355BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02043 606060606060 356
02044 606060606060 357
02045 606060606060 358
02046 606060606060 359
02047 606060606060 360
02050 606060606060 361
02051 606060606060 362
02052 606060606060 363
02053 606060606060 364
02054 606060606060 365BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02055 606060606060 366
02056 606060606060 367
02057 606060606060 368
02060 606060606060 369
02061 606060606060 370
02062 606060606060 371
02063 606060606060 372
02064 606060606060 373
02065 606060606060 374
02066 606060606060 375TIS5 BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02067 606060606060 376
02070 606060606060 377
02071 606060606060 378
02072 602160603126 379BCD ␣A␣␣IF␣ACCUMULATOR␣OVERFLOW␣N1,␣N2␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02073 602123236444 380
02074 644321634651 381
02075 604665255126 382
02076 434666604501 383
02077 736045026060 384
02100 606060606060 385
02101 606060606060 386
02102 606060606060 387
02103 606060606060 388
02104 606060606060 389BCD9␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02105 606060606060 390
02106 606060606060 391
02107 606060606060 392
02110 606060606060 393
02111 606060606060 394
02112 606060606060 395
02113 606060606060 396
02114 606060606060 397
02115 465160606060 398BCD1OR␣␣␣␣
02116 602160603126 399BCD ␣A␣␣IF␣QUOTIENT␣OVERFLOW␣N1,␣N2␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02117 605064466331 400
02120 254563604665 401
02121 255126434666 402
02122 604501736045 403
02123 026060606060 404
02124 606060606060 405
02125 606060606060 406
02126 606060606060 407
02127 606060606060 408
02130 606060606060 409TIS6 BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02131 606060606060 410
02132 606060606060 411
02133 606060606060 412
02134 602160602162 413BCD ␣A␣␣ASSIGN␣K␣TO␣N␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02135 623127456042 414
02136 606346604560 415
02137 606060606060 416
02140 606060606060 417
02141 606060606060 418
02142 606060606060 419
02143 606060606060 420
02144 606060606060 421
02145 606060606060 422
02146 606060606060 423BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02147 606060606060 424
02150 606060606060 425
02151 606060606060 426
02152 606060606060 427
02153 606060606060 428
02154 606060606060 429
02155 606060606060 430
02156 606060606060 431
02157 606060606060 432
02160 606060606060 433BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02161 606060606060 434
02162 606060606060 435
02163 606060606060 436
02164 606060606060 437
02165 606060606060 438
02166 606060606060 439
02167 606060606060 440
02170 606060606060 441
02171 606060606060 442
02172 606060606060 443DOS BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02173 606060606060 444
02174 606060606060 445
02175 606060606060 446
02176 602160602446 447BCD ␣A␣␣DO␣B␣I␣=␣N1,␣N2,␣N3␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02177 602260316013 448
02200 604501736045 449
02201 027360450360 450
02202 606060606060 451
02203 606060606060 452
02204 606060606060 453
02205 606060606060 454
02206 606060606060 455
02207 606060606060 456
02210−0 53400 4 02256 457TSXH LXDXTABLE,4 FIND THE KIND OF TIFGO ENTRY WHICH
02211 0 50000 1 77777 458CLALIST,1 IS TRYING TO TURN CONTROL OVER TO A
02212 0 76700 0 00022 459ALS18 NON-EXECUTABLE STATEMENT
02213−0 32000 0 01230 460ANADECMSK
02214 0 40200 0 01234 461SUBPREFX1
02215−0 32000 0 01230 462ANADECMSK
02216 0 34000 4 02256 463TSHCAS CASXTABLE,4
02217 0 02000 0 02221 464TRATSXH1
02220 0 02000 0 02223 465TRAHVNOX
02221 2 00002 4 02216 466TSXH1 TIXTSHCAS,4,2
02222 0 02000 0 01330 467TRANO CANNOT IDENTIFY, PRINT OCTAL LOCATION
02223 0 50000 4 02257 468HVNOX CLAXTABLE+1,4
02224 0 62100 0 02225 469STATSHTRA
A02225 0 02000 0 00000 470TSHTRA TRA
02226+000316000000 471OCT000316000000
02227 0 00000 0 02257 472HTRSAVEB1
02230+000327000000 473OCT000327000000
02231 0 00000 0 02261 474HTRSAVEB2
02232+000337000000 475OCT000337000000
02233 0 00000 0 02262 476HTRSAVEB3
02234+000352000000 477OCT000352000000
02235 0 00000 0 02263 478HTRTIFOB
02236+000374000000 479OCT000374000000
02237 0 00000 0 02265 480HTRTRADX1
02240+000421000000 481OCT000421000000
02241 0 00000 0 02267 482HTRTRADX2
02242+000443000000 483OCT000443000000
02243 0 00000 0 02271 484HTRTIF3B1
02244+000453000000 485OCT000453000000
02245 0 00000 0 02273 486HTRTIF3B2
02246+000467000000 487OCT000467000000
02247 0 00000 0 02274 488HTRTIF4B1,
02250+000477000000 489OCT000477000000
02251 0 00000 0 02276 490HTRTIF4B2
02252+000513000000 491OCT000513000000
02253 0 00000 0 02277 492HTRTIF5B1
02254+000523000000 493OCT000523000000
02255 0 00000 0 02300 494HTRTIF5B2
02256 0 00030 0 00000 495XTABLE HTR0,0,24
02257 0 50000 0 01541 496SAVEB1 CLAADTMI
02260 0 02000 0 02301 497TRANOXBTA
02261 0 02000 0 02257 498SAVEB2 TRASAVEB1
02262 0 02000 0 02257 499SAVEB3 TRASAVEB1
02263 0 50000 0 01542 500TIFOB CLAADTZR
02264 0 02000 0 02301 501TRANOXBTA
02265 0 50000 0 01543 502TRADX1 CLAADT1
02266 0 02000 0 02301 503TRANOXBTA
02267 0 50000 0 01544 504TRADX2 CLAADT2
02270 0 02000 0 02301 505TRANOXBTA
02271 0 50000 0 01545 506TIF3B1 CLAADT3
02272 0 02000 0 02301 507TRANOXBTA
02273 0 02000 0 02271 508TIF3B2 TRATIF3B1
02274 0 50000 0 01546 509TIF4B1 CLAADT4
02275 0 02000 0 02301 510TRANOXBTA
02276 0 02000 0 02274 511TIF4B2 TRATIF4B1
02277 0 02000 0 02300 512TIF5B1 TRATIF5B2
02300 0 50000 0 01547 513TIF5B2 CLAADT5
02301 0 62100 0 02343 514NOXBTA STAADDTD A TIFGO STATEMENT HAS ATTEMPTED TO
02302 0 40000 0 02401 515ADDDEC34 TURN OVER CONTROL OF THE PROGRAM TO A
02303 0 76700 0 00022 516ALS18 NON EXECUTABLE STATEMENT
02304 0 62200 0 02343 517STDADDTD
02305 0 50000 1 77776 518CLALIST−1,1 GET EXTERNAL NUMBER OF TIFGO ENTRY
02306 0 07400 4 00613 519TSXEXBETA,4
02307 0 07400 4 00602 520TSXLAJUST,4
02310 0 60200 0 01257 521SLWERAS
02311−0 50000 0 02364 522CALTIFOR
02312 0 77100 0 00014 523ARS12
02313 0 56000 0 01257 524LDQERAS
02314−0 76300 0 00014 525LGL12
02315 0 60200 0 02364 526SLWTIFOR
02316−0 76300 0 00030 527LGL24
02317 0 56000 0 00717 528LDQBLANKS
02320−0 76300 0 00014 529LGL12
02321 0 60200 0 02365 530SLWTIFOR+1
02322 0 50000 1 77776 531CLALIST−1,1 GET EXTERNAL NUMBER OF STATEMENT
02323 0 77100 0 00022 532ARS18 WHICH IS NOT EXECUTABLE
02324 0 07400 4 00613 533TSXEXBETA,4
02325 0 07400 4 00602 534TSXLAJUST,4
02326 0 60200 0 01257 535SLWERAS
02327−0 50000 0 02351 536CALNONB−1
02330 0 56000 0 01257 537LDQERAS
02331 0 77100 0 00006 538ARS6
02332−0 76300 0 00006 539LGL6
02333 0 60200 0 02351 540SLWNONB−1
02334−0 76300 0 00036 541LGL30
02335 0 56000 0 00717 542LDQBLANKS
02336−0 76300 0 00006 543LGL6
02337 0 60200 0 02352 544SLWNONB
02340 0 07400 4 00740 545TSXPRINT,4
02341 0 02401 0 02345 546HTRBTNONX,0,BTNONX+28
02342 0 07400 4 00740 547TSXPRINT,4
A02343 0 00000 0 00000 548ADDTD HTR
02344 1 00002 1 01334 549TXINXTER,1,2 2WORD ENTRY IN ERROR LIST
02345 606060606060 550BTNONX BCD2␣␣␣␣␣␣␣␣␣␣␣␣
02346 606060606060 551
02347 626321632544 552BCD2STATEMENT␣NU
02350 254563604564 553
02351 442225516060 554BCD1MBER␣␣
A02352 0 00000 0 00000 555NONB HTR
02353 316260454663 556BCD9IS␣NOT␣EXECUTABLE.␣␣IT␣IS␣REFERRED␣TO␣BY␣STATEMENT␣NUM
02354 602567252364 557
02355 632122432533 558
02356 606031636031 559
02357 626051252625 560
02360 515125246063 561
02361 466022706062 562
02362 632163254425 563
02363 456360456444 564
02364 222551606060 565TIFOR BCD7BER␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02365 606060606060 566
02366 606060606060 567
02367 606060606060 568
02370 606060606060 569
02371 606060606060 570
02372 606060606060 571
02373 663031233060 572BCD6WHICH␣IS␣OF␣THE␣FOLLOWING␣TYPE␣␣␣␣␣␣
02374 316260462660 573
02375 633025602646 574
02376 434346663145 575
02377 276063704725 576
02400 606060606060 577
02401 0 00000 0 00042 578DEC34 HTR34
02402 0 50000 1 77776 579DOBTNX CLALIST−1,1 BETA IS NOT AN EXECUTABLE STATEMENT
02403 0 60100 0 00527 580STOALFBET IN ALPHA DO BETA
02404 0 50000 1 77775 581CLALIST−2,1
02405 0 60100 0 00530 582STOSYM
02406 0 07400 4 00740 583TSXPRINT,4
02407 0 02426 0 02412 584HTRDOBTX,0,DOBTX+12
02410 0 07400 4 00505 585TSXFX4PR,4 PRINT DO STATEMENT
02411 1 00003 1 01334 586TXINXTER,1,3 3 WORD ENTRY IN ERROR LIST
02412 606060606060 587DOBTX BCD2␣␣␣␣␣␣␣␣␣␣␣␣
02413 606060606060 588
02414 633025605121 589BCD THE␣RANGE␣OF␣THIS␣DO␣ENDS␣WITH␣A␣NON-EXECUTABLE␣STATEMENT␣␣␣
02415 452725604626 590
02416 606330316260 591
02417 244660254524 592
02420 626066316330 593
02421 602160454645 594
02422 402567252364 595
02423 632122432560 596
02424 626321632544 597
02425 254563606060 598
02426 0 50000 1 77776 599CONBET CLALIST−1,1 IN ALPHA DO BETA, BETA IS A CONDITIONAL
02427 0 60100 0 00527 600STOALFBET TRANSFER, THAT IS, A TIFGO ENTRY
02430 0 50000 1 77775 601CLALIST−2,1
02431 0 60100 0 00530 602STOSYM
02432 0 07400 4 00740 603TSXPRINT,4
02433 0 02453 0 02436 604HTRCONBT,0,CONBT+13
02434 0 07400 4 00505 605TSXFX4PR,4 PRINT DO STATEMENT
02435 1 00003 1 01334 606TXINXTER,1,3 3 WORD ENTRY IN ERROR LIST
02436 606060606060 607CONBT BCD2␣␣␣␣␣␣␣␣␣␣␣␣
02437 606060606060 608
02440 633025605121 609BCD THE␣RANGE␣OF␣THIS␣DO␣ENDS␣WITH␣A␣CONDITIONAL␣TRANSFER␣STATEM
02441 452725604626 610
02442 606330316260 611
02443 244660254524 612
02444 626066316330 613
02445 602160234645 614
02446 243163314645 615
02447 214360635121 616
02450 456226255160 617
02451 626321632544 618
02452 254563606060 619BCD1ENT␣␣␣
02453 0 50000 1 77776 620DOALNX CLALIST−1,1 ALPHA PLUS 1, IN ALPHA D0 BETA,
02454 0 60100 0 00527 621STOALFBET IS NOT EXECUTABLE
02455 0 50000 1 77775 622CLALIST−2,1
02456 0 60100 0 00530 623STOSYM
02457 0 07400 4 00740 624TSXPRINT,4
02460 0 02502 0 02463 625HTRDOALX,0,DOALX+15
02461 0 07400 4 00505 626TSXFX4PR,4 PRINT DO STATEMENT
02462 1 00003 1 01334 627TXINXTER,1,3 3 WORD ENTRIES IN ERROR LIST
02463 606060606060 628DOALX BCD2␣␣␣␣␣␣␣␣␣␣␣␣
02464 606060606060 629
02465 633025606263 630BCD THE␣STATEMENT␣IMMEDIATELY␣FOLLOWING␣THIS␣DO␣IS␣NOT␣AN␣EXECUT
02466 216325442545 631
02467 636031444425 632
02470 243121632543 633
02471 706026464343 634
02472 466631452760 635
02473 633031626024 636
02474 466031626045 637
02475 466360214560 638
02476 256725236463 639
02477 212243256062 640BCD3ABLE␣STATEMENT␣␣␣␣
02500 632163254425 641
02501 456360606060 642
02502 0 50000 1 77777 643CHBTSX CLALIST,1 THE SYMBOL, OR A VARIABLE IN A DO STATEMENT
02503 0 76700 0 00022 644ALS18 DOES NOT BEGIN WITH I J K ETC
02504−0 32000 0 01230 645ANADECMSK
02505 0 40200 0 01234 646SUBPREFX1 CONVERT TSX TO NUMBER OF STOP WHERE THIS
02506−0 32000 0 01230 647ANADECMSK
02507 0 53400 4 01232 648LXAZERO,4 WAS PICKED UP
02510 0 34000 4 02621 649CHBCAS CASBLIST−1,4 DETERMINE WHETHER SYMBOL, N1, N2 OR N3
02511 0 02000 0 02513 650TRACHBTXI
02512 0 02000 0 02516 651TRAHVCHB
02513 1 00002 4 02514 652CHBTXI TXICHBTXL,4,2
02514−3 00006 4 02510 653CHBTXL TXLCHBCAS,4,6
02515 0 02000 0 01330 654TRANO CANNOT IDENTIFY, PRINT ERROR RECORD ZERO
02516−0 50000 4 02622 655HVCHB CALBLIST,4 BCD FOR N1,N2 OR N3, BUT INDEXING
02517 0 10000 0 02623 656TZECHBDO SYMBOL IS ZERO, WILL BE PROCESS BY ITSELF
02520 0 56000 4 02622 657LDQBLIST,4
02521−0 50000 0 02602 658CALTHE MOVE PARAMETER INTO COMMENT
02522 0 77100 0 00014 659ARS12
02523−0 76300 0 00014 660LGL12
02524 0 60200 0 02602 661SLWTHE
02525−0 76300 0 00006 662LGL6
02526 0 56000 0 02603 663LDQTHE+1
02527−0 77300 0 00006 664RQL6 SHIFT FIRST BLANK OUT OF MQ
02530−0 76300 0 00036 665LGL30
02531 0 60200 0 02603 666SLWTHE+1
02532 0 50000 1 77775 667CLALIST−2,1 ARRANGE TO PRINT DO STATEMENT
02533 0 60100 0 00527 668STOALFBET
02534 0 50000 1 77774 669CLALIST−3,1
02535 0 60100 0 00530 670STOSYM
02536−0 50000 1 77776 671CALLIST−1,1 REMOVE ZEROS FROM VARIABLE NAME AND
02537 0 07400 4 00543 672TSXZEROUT,4 ADJUST TO RIGHT
02540 0 07400 4 00565 673TSXRAJUST,4
02541 0 60200 0 01257 674SLWERAS
02542 0 56000 0 01257 675LDQERAS
02543−0 50000 0 02606 676CALDOPRAM PUT HALF OF WORD IN COMMENT
02544 0 77100 0 00014 677ARS12
02545−0 76300 0 00014 678LGL12
02546 0 60200 0 02606 679SLWDOPRAM
02547−0 76300 0 00030 680LGL24
02550 0 56000 0 02607 681LDQDOPRAM+1 PUT IN OTHER HALF
02551−0 77300 0 00030 682RQL24
02552−0 76300 0 00014 683LGL12
02553 0 60200 0 02607 684SLWDOPRAM+1
02554 0 07400 4 00740 685TSXPRINT,4
02555 0 02600 0 02562 686HTRVRBL,0,VRBL+14
02556 0 07400 4 00505 687TSXFX4PR,4 PRINT DO STATEMENT
02557 0 07400 4 00740 688TSXPRINT,4
02560 0 02613 0 02600 689HTRVRPR,0,VRPR+11
02561 1 00004 1 01334 690TXINXTER,1,4 4 WORD ENTRIES IN ERROR LIST
02562 606060606060 691VRBL BCD2␣␣␣␣␣␣␣␣␣␣␣␣
02563 606060606060 692
02564 214560314563 693BCD AN␣INTEGER␣VARIABLE␣MUST␣BEGIN␣WITH␣I␣J␣K␣L␣M␣OR␣N.␣␣IN␣THE␣
02565 252725516065 694
02566 215131212243 695
02567 256044646263 696
02570 602225273145 697
02571 606631633060 698
02572 316041604260 699
02573 436044604651 700
02574 604533606031 701
02575 456063302560 702
02576 244660626321 703BCD2DO␣STATEMENT
02577 632544254563 704
02600 606060606060 705VRPR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
02601 606060606060 706
02602 633025606060 707THE BCD1THE␣␣␣
02603 606031452425 708BCD3␣␣INDEXING␣PARAMET
02604 673145276047 709
02605 215121442563 710
02606 255173606060 711DOPRAM BCD1ER,␣␣␣
02607 606060607360 712BCD4␣␣␣␣,␣IS␣INCORRECT.␣␣␣␣␣
02610 316260314523 713
02611 465151252363 714
02612 336060606060 715
02613+000716000000 716OCT000716000000
02614 035124606060 717BCD13RD␣␣␣ IJKN3 IN NON-ARITH DIAG
02615+000703000000 718OCT000703000000
02616 024524606060 719BCD12ND␣␣␣ IJKN2
02617+000670000000 720OCT000670000000
02620 016263606060 721BCD11ST␣␣␣ IJKN1
02621+000656000000 722OCT000656000000 IJKSYM
02622 0 00000 0 00000 723BLIST HTR0 ZERO INDICATES TO PR0GRAM THIS IS SYMBOL
02623 0 50000 1 77775 724CHBDO CLALIST−2,1 ARRANGE TO PRINT DO STATEMENT
02624 0 60100 0 00527 725STOALFBET
02625 0 50000 1 77774 726CLALIST−3,1
02626 0 60100 0 00530 727STOSYM
02627 0 07400 4 00740 728TSXPRINT,4
02630 0 02656 0 02633 729HTRCHDOPR,0,CHDOPR+19
02631 0 07400 4 00505 730TSXFX4PR,4
02632 1 00004 1 01334 731TXINXTER,1,4 4 WORD ENTRIES IN ERROR LIST
02633 606060606060 732CHDOPR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
02634 606060606060 733
02635 214560314563 734BCD AN␣INTEGER␣VARIABLE␣MUST␣BEGIN␣WITH␣I␣J␣K␣L␣M␣OR␣N.␣␣THE␣IND
02636 252725516065 735
02637 215131212243 736
02640 256044646263 737
02641 602225273145 738
02642 606631633060 739
02643 316041604260 740
02644 436044604651 741
02645 604533606063 742
02646 302560314524 743
02647 256760627044 744BCD7EX␣SYMBOL␣IS␣INCORRECT␣IN␣THE␣STATEMENT␣␣␣
02650 224643603162 745
02651 603145234651 746
02652 512523636031 747
02653 456063302560 748
02654 626321632544 749
02655 254563606060 750
02656−0 53400 2 01232 751CHATSX LXDZERO,2 AN ILLEGAL CHARACTER HAS BEEN FOUND IN
02657 0 50000 1 77777 752CLALIST,1 SOME NAME
02660 0 76700 0 00022 753ALS18 UNCOMPLIMENTED LOCATION WILL SHOW
02661−0 32000 0 01230 754ANADECMSK KIND OF STATEMENT USING THIS NAME
02662 0 40200 0 01234 755SUBPREFX1
02663−0 32000 0 01230 756ANADECMSK
02664 0 34000 2 02704 757CB CASCHA2WD,2 IS THIS FROM ONE OF THE SIZ, COMMON
02665 0 02000 0 02667 758TRATXIC FUNCTION ETC., STATEMENTS
02666 0 02000 0 02717 759TRAPR2WD
02667 1 00002 2 02670 760TXIC TXICA,2,2
02670−3 00006 2 02664 761CA TXLCB,2,6
02671 0 34000 2 02716 762CC CASCHA3WD,2 OR DOES THE NAME APPEAR IN A D0 STATEMENT
02672 0 02000 0 02674 763TRACTIX
02673 0 02000 0 03020 764TRAPR3WD
02674 2 00002 2 02671 765CTIX TIXCC,2,2
02675 0 02000 0 01330 766TRANO PRINT UNIDENTIFYABLE STOP
02676+000131000000 767OCT000131000000
02677 0 00000 0 03000 768HTRFRSB TSXA IN NON ARITH DIAG
02700+000143000000 769OCT000143000000
02701 0 00000 0 02770 770HTRSZ TSXB
02702+000163000000 771OCT000163000000
02703 0 00000 0 03010 772HTRSBAR TSXC
02704+000175000000 773CHA2WD OCT000175000000
02705 0 00000 0 02760 774HTRCMON TSXD
02706+000653000000 775OCT000653000000
02707 0 00000 0 00000 776HTR0 PUNSYN
02710+000665000000 777OCT000665000000
02711 600162636031 778BCD1␣1ST␣I PUNN1
02712+000700000000 779OCT000700000000
02713 600245246031 780BCD1␣2ND␣I PUNN2
02714+000713000000 781OCT000713000000
02715 600351246031 782BCD1␣3RD␣I PUNN3
02716 0 00000 0 00000 783CHA3WD
02717 0 50000 2 02705 784PR2WD CLACHA2WD+1,2 PRINT IDENTIFICATION OF STATEMENT
02720 0 62100 0 02722 785STACHACLA IN WHICH NAME WAS FOUND
02721−0 53400 2 01232 786LXDZERO,2 TRANSFER 8 WORDS ABOUT STATEMENT
02722 0 50000 2 00000 787CHACLA CLA0,2 INTO COMMENT
02723 0 60100 2 02750 788STODA,2
02724 1 77777 2 02725 789TXICHATXH,2,−1
02725 3 77770 2 02722 790CHATXH TXHCHACLA,2,−8
02726−0 50000 1 77776 791CALLIST−1,1
02727 0 07400 4 00543 792TSXZEROUT,4 UNPACK NAME AND MOVE TO RIGHT
02730 0 07400 4 00565 793TSXRAJUST,4
02731 0 60200 0 02741 794SLWD
02732 0 07400 4 00740 795TSXPRINT,4
02733 0 02760 0 02735 796HTRPRCHA,0,PRCHA+19
02734 1 00002 1 01334 797TXINXTER,1,2 2 WORD ENTRY IN ERROR LIST
02735 606060606060 798PRCHA BCD2␣␣␣␣␣␣␣␣␣␣␣␣
02736 606060606060 799
02737 633025606270 800BCD2THE␣SYMBOL,␣
02740 442246437360 801
A02741 0 00000 0 00000 802D HTR
02742 736023464563 803BCD6,␣CONTAINS␣AN␣ILLEGAL␣CHARACTER.␣␣IT
02743 213145626021 804
02744 456031434325 805
02745 272143602330 806
02746 215121236325 807
02747 513360603163 808
02750 606060606060 809DA BCD8␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02751 606060606060 810
02752 606060606060 811
02753 606060606060 812
02754 606060606060 813
02755 606060606060 814
02756 606060606060 815
02757 606060606060 816
02760 602147472521 817CMON BCD8␣APPEARS␣IN␣A␣COMMON␣STATEMENT.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02761 516260314560 818
02762 216023464444 819
02763 464560626321 820
02764 632544254563 821
02765 336060606060 822
02766 606060606060 823
02767 606060606060 824
02770 602147472521 825SZ BCD8␣APPEARS␣IN␣A␣DIMENSION␣STATEMENT.␣␣␣␣␣␣␣␣␣␣␣␣␣␣
02771 516260314560 826
02772 216024314425 827
02773 456231464560 828
02774 626321632544 829
02775 254563336060 830
02776 606060606060 831
02777 606060606060 832
03000 602147472521 833FRSB BCD8␣APPEARS␣AS␣THE␣NAME␣OF␣A␣FORTRAN␣FUNCTION.␣␣␣␣␣
03001 516260216260 834
03002 633025604521 835
03003 442560462660 836
03004 216026465163 837
03005 512145602664 838
03006 452363314645 839
03007 336060606060 840
03010 602147472521 841SBAR BCD8␣APPEARS␣AS␣AN␣ARGUMENT␣OF␣A␣SUBROUTINE.␣␣␣␣␣␣␣␣
03011 516260216260 842
03012 214560215127 843
03013 644425456360 844
03014 462660216062 845
03015 642251466463 846
03016 314525336060 847
03017 606060606060 848
03020 0 50000 2 02717 849PR3WD CLACHA3WD+1,2 1ST,2ND,OR 3RD PARAMETER
03021 0 10000 0 03060 850TZESYMDO ZERO IF SYMBOL REFERED TO
03022 0 60100 0 03047 851STOPAR
03023−0 50000 1 77776 852CALLIST−1,1 UNPACK NAME AND MOVE TO RIGHT
03024 0 07400 4 00543 853TSXZEROUT,4
03025 0 07400 4 00565 854TSXRAJUST,4
03026 0 60200 0 03053 855SLWWRPAR
03027 0 07400 4 00740 856TSXPRINT,4
03030 0 03060 0 03037 857HTRPARAPR,0,PARAPR+17
03031 0 50000 1 77775 858CLALIST−2,1 PRINT ALPHA TO BETA STATEMENT AND
03032 0 60100 0 00527 859STOALFBET SYMBOL
03033 0 50000 1 77774 860CLALIST−3,1
03034 0 60100 0 00530 861STOSYM
03035 0 07400 4 00505 862TSXFX4PR,4
03036 1 00004 1 01334 863TXINXTER,1,4 4 WORD ENTRIES IN ERROR LIST
03037 606060606060 864PARAPR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
03040 606060606060 865
03041 633025512560 866BCD6THERE␣IS␣AN␣ILLEGAL␣CHARACTER␣IN␣THE
03042 316260214560 867
03043 314343252721 868
03044 436023302151 869
03045 212363255160 870
03046 314560633025 871
A03047 0 00000 0 00000 872PAR HTR
03050 452425673145 873BCD3NDEXING␣PARAMETER␣
03051 276047215121 874
03052 442563255160 875
A03053 0 00000 0 00000 876WRPAR HTR
03054 736046266063 877BCD4,␣OF␣THE␣DO␣STATEMENT␣␣␣
03055 302560244660 878
03056 626321632544 879
03057 254563606060 880
03060 0 07400 4 00740 881SYMDO TSXPRINT,4
03061 0 03106 0 03070 882HTRSYMDPR,0,SYMDPR+14
03062 0 50000 1 77775 883CLALIST−2,1
03063 0 60100 0 00527 884STOALFBET PRINT ALPHA DO BETA FOR SYMBOL
03064 0 50000 1 77774 885CLALIST−3,1 WITH ILLEGAL CHARACTER
03065 0 60100 0 00530 886STOSYM
03066 0 07400 4 00505 887TSXFX4PR,4
03067 1 00004 1 01334 888TXINXTER,1,4 4 WORD ENTRIES IN ERROR LIST
03070 606060606060 889SYMDPR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
03071 606060606060 890
03072 633025512560 891BCD THERE␣IS␣AN␣ILLEGAL␣CHARACTER␣IN␣THE␣INDEXING␣SYMBOL␣OF␣THE␣
03073 316260214560 892
03074 314343252721 893
03075 436023302151 894
03076 212363255160 895
03077 314560633025 896
03100 603145242567 897
03101 314527606270 898
03102 442246436046 899
03103 266063302560 900
03104 244660626321 901BCD2DO␣STATEMENT
03105 632544254563 902
03106 0 50000 1 77777 903NOTRA CLALIST,1 ALPHA+1,INTERNAL FORMULA NUMBER,
03107−0 32000 0 01227 904ANAADDMSK IN ADDRESS OF LIST. THIS IS NUMBER OF AN
03110 0 07400 4 00613 905TSXEXBETA,4 EXECUTABLE STATEMENT WHICH FOLLOWS A
03111 0 07400 4 00602 906TSXLAJUST,4 TIFGO ENTRY OR A STOP, BUT WHICH IS NEVER
03112 0 60200 0 03137 907SLWEXTN1 TRANSFERED TO IN THE FLOW OF THE PROBLEM
03113 0 07400 4 00740 908TSXPRINT,4
03114 0 03140 0 03116 909HTRPRNOTR,0,PRNOTR+18
03115 1 00001 1 01334 910TXINXTER,1,1 1 WORD ENTRY IN ERROR LIST
03116 606060606060 911PRNOTR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
03117 606060606060 912
03120 216047215163 913BCD A␣PART␣OF␣THE␣PROGRAM␣CANNOT␣BE␣REACHED.␣␣IT␣IS␣LOCATED␣AT␣O
03121 604626606330 914
03122 256047514627 915
03123 512144602321 916
03124 454546636022 917
03125 256051252123 918
03126 302524336060 919
03127 316360316260 920
03130 434623216325 921
03131 246021636046 922
03132 516041646263 923BCD5R␣JUST␣BELOW␣STATEMENT␣NUMBER␣
03133 602225434666 924
03134 606263216325 925
03135 442545636045 926
03136 644422255160 927
A03137 0 00000 0 00000 928EXTN1 HTR
03140 0 50000 1 77777 929FRETIF CLALIST,1 INTERNAL FORMULA NUMBER
03141 0 07400 4 00613 930TSXEXBETA,4 IN ADDRESS OF LIST. SECTION 4 WILL STOP
03142 0 07400 4 00602 931TSXLAJUST,4 WHEN THERE ARE MORE BRANCHES THAN
03143 0 60200 0 03165 932SLWFRALFA NECESSARY FOR A TIFGO ENTRY.
03144 0 07400 4 00740 933TSXPRINT,4
03145 0 03166 0 03147 934HTRPRFREQ,0,PRFREQ+15
03146 1 00001 1 01334 935TXINXTER,1,1 1 WORD ENTRY IN ERROR LIST
03147 606060606060 936PRFREQ BCD2␣␣␣␣␣␣␣␣␣␣␣␣
03150 606060606060 937
03151 216026512550 938BCD A␣FREQUENCY␣STATEMENT␣CONTAINS␣TOO␣MANY␣BRANCHES␣FOR␣THE␣FOR
03152 642545237060 939
03153 626321632544 940
03154 254563602346 941
03155 456321314562 942
03156 606346466044 943
03157 214570602251 944
03160 214523302562 945
03161 602646516063 946
03162 302560264651 947
03163 446443216045 948BCD2MULA␣NUMBER␣
03164 644422255160 949
A03165 0 00000 0 00000 950FRALFA HTR
03166−0 50000 1 77776 951NOTEQV CALLIST−1,1 THIS IS STILL IN BCD FORM, BUT MAY BE
03167 0 07400 4 00543 952TSXZEROUT,4 FOLLOWED BY 1 BLANK AND ZEROS. THIS NAME
03170 0 60200 0 03221 953SLWEQWD HAS BEEN ASSIGNED INCONSISTANT VALUES IN
03171 0 56000 0 03221 954LDQEQWD EQUIVALENCE STATEMENTS
03172−0 50000 0 03220 955CALEQWD−1
03173 0 77100 0 00014 956ARS12 MOVE WORD INTO REST OF COMMENT
03174−0 76300 0 00014 957LGL12
03175 0 60200 0 03220 958SLWEQWD−1
03176−0 76300 0 00030 959LGL24
03177 0 56000 0 00717 960LDQBLANKS
03200−0 76300 0 00014 961LGL12
03201 0 60200 0 03221 962SLWEQWD
03202 0 07400 4 00740 963TSXPRINT,4
03203 0 03222 0 03205 964HTRPREQ,0,PREQ+13
03204 1 00002 1 01334 965TXINXTER,1,2 2 WORD ENTRIES IN ERROR LIST
03205 606060606060 966PREQ BCD2␣␣␣␣␣␣␣␣␣␣␣␣
03206 606060606060 967
03207 214560314523 968BCD AN␣INCONSISTENT␣EQUIVALENCE␣STATEMENT␣HAS␣BEEN␣MADE␣ABOUT␣␣␣
03210 464562316263 969
03211 254563602550 970
03212 643165214325 971
03213 452325606263 972
03214 216325442545 973
03215 636030216260 974
03216 222525456044 975
03217 212425602122 976
03220 466463606060 977
A03221 0 00000 0 00000 978EQWD HTR
03222 0 07400 4 00740 979BADWC TSXPRINT,4
03223 0 01244 0 01237 980HTRMACHIN,0,MACHIN+5
03224 0 50000 1 77776 981CLALIST−1,1
03225 0 07400 4 00730 982TSXOCTBCD,4
03226 0 60200 0 01257 983SLWERAS
03227 0 56000 0 01257 984LDQERAS
03230−0 50000 0 03314 985CALBDWD
03231 0 77100 0 00030 986ARS24
03232−0 76300 0 00030 987LGL24
03233 0 60200 0 03314 988SLWBDWD
03234−0 76300 0 00014 989LGL12
03235 0 56000 0 00717 990LDQBLANKS
03236−0 76300 0 00030 991LGL24
03237 0 60200 0 03315 992SLWBDWD+1
03240 0 07400 4 00740 993TSXPRINT,4
03241 0 03410 0 03300 994HTRPRBDWC,0,PRBDWC+72
03242 0 02000 0 03275 995TRAENDMAC
03243 0 07400 4 00740 996NOIDEN TSXPRINT,4
03244 0 01244 0 01237 997HTRMACHIN,0,MACHIN+5
03245 0 50000 1 77776 998CLALIST−1,1
03246 0 07400 4 00730 999TSXOCTBCD,4
03247 0 60200 0 01257 1000SLWERAS
03250 0 56000 0 01257 1001LDQERAS
03251−0 50000 0 03423 1002CALIDENWD
03252 0 77100 0 00022 1003ARS18
03253−0 76300 0 00022 1004LGL18
03254 0 60200 0 03423 1005SLWIDENWD
03255−0 76300 0 00022 1006LGL18
03256 0 56000 0 03424 1007LDQIDENWD+1
03257−0 77300 0 00022 1008RQL18
03260−0 76300 0 00022 1009LGL18
03261 0 60200 0 03424 1010SLWIDENWD+1
03262 0 07400 4 00740 1011TSXPRINT,4
03263 0 03431 0 03410 1012HTRPRNOI,0,PRNOI+17
03264 0 07400 4 00740 1013TSXPRINT,4
03265 0 03410 0 03350 1014HTRMACHER,0,MACHER+32
03266 0 02000 0 03275 1015TRAENDMAC
03267 0 07400 4 00740 1016WHATIF TSXPRINT,4
03270 0 01244 0 01237 1017HTRMACHIN,0,MACHIN+5
03271 0 07400 4 00740 1018TSXPRINT,4
03272 0 03446 0 03431 1019HTRNOTIF,0,NOTIF+13
03273 0 07400 4 00740 1020TSXPRINT,4
03274 0 03364 0 03350 1021HTRMACHER,0,MACHER+12
03275 0 50000 0 00316 1022ENDMAC CLAHTR4 SET RETURN SO PROBLEM CAN BE
03276 0 60100 0 00266 1023STODONE RE-RUN FOR MACHINE ERROR
03277 0 02000 0 00230 1024TRARESTRT
03300 606060606060 1025PRBDWC BCD2␣␣␣␣␣␣␣␣␣␣␣␣
03301 606060606060 1026
03302 255151465160 1027BCD ERROR␣IN␣READING␣RECORD␣FROM␣TAPE␣2.␣␣RECORD␣IDENTIFICATION␣
03303 314560512521 1028
03304 243145276051 1029
03305 252346512460 1030
03306 265146446063 1031
03307 214725600233 1032
03310 606051252346 1033
03311 512460312425 1034
03312 456331263123 1035
03313 216331464560 1036
03314 316260606060 1037BDWD BCD IS␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
03315 606060606060 1038
03316 606060606060 1039
03317 606060606060 1040
03320 606060606060 1041
03321 606060606060 1042
03322 606060606060 1043
03323 606060606060 1044
03324 606060606060 1045
03325 606060606060 1046
03326 664651246023 1047BCD WORD␣COUNT␣DOES␣NOT␣AGREE␣WITH␣COUNT␣IN␣RECORD.␣␣␣␣␣␣␣␣␣␣␣␣␣
03327 466445636024 1048
03330 462562604546 1049
03331 636021275125 1050
03332 256066316330 1051
03333 602346644563 1052
03334 603145605125 1053
03335 234651243360 1054
03336 606060606060 1055
03337 606060606060 1056
03340 606060606060 1057BCD8␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
03341 606060606060 1058
03342 606060606060 1059
03343 606060606060 1060
03344 606060606060 1061
03345 606060606060 1062
03346 606060606060 1063
03347 606060606060 1064
03350 606060606060 1065MACHER BCD2␣␣␣␣␣␣␣␣␣␣␣␣
03351 606060606060 1066
03352 475146222122 1067BCD PROBABLY␣MACHINE␣ERROR␣WHEN␣TABLE␣WAS␣COMPILED␣BY␣1␣PRIME.␣␣
03353 437060442123 1068
03354 303145256025 1069
03355 515146516066 1070
03356 302545606321 1071
03357 224325606621 1072
03360 626023464447 1073
03361 314325246022 1074
03362 706001604751 1075
03363 314425336060 1076
03364 606060606060 1077BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
03365 606060606060 1078
03366 606060606060 1079
03367 606060606060 1080
03370 606060606060 1081
03371 606060606060 1082
03372 606060606060 1083
03373 606060606060 1084
03374 606060606060 1085
03375 606060606060 1086
03376 263165256021 1087BCD FIVE␣ATTEMPTS␣HAVE␣BEEN␣MADE␣TO␣READ␣THIS␣RECORD␣CORRECTLY.␣
03377 636325444763 1088
03400 626030216525 1089
03401 602225254560 1090
03402 442124256063 1091
03403 466051252124 1092
03404 606330316260 1093
03405 512523465124 1094
03406 602346515125 1095
03407 236343703360 1096
03410 606060606060 1097PRNOI BCD2␣␣␣␣␣␣␣␣␣␣␣␣
03411 606060606060 1098
03412 512523465124 1099BCD9RECORD␣FROM␣TAPE␣2␣CANNOT␣BE␣IDENTIFIED.␣␣THIS␣RECORD␣
03413 602651464460 1100
03414 632147256002 1101
03415 602321454546 1102
03416 636022256031 1103
03417 242545633126 1104
03420 312524336060 1105
03421 633031626051 1106
03422 252346512460 1107
03423 302162606060 1108IDENWD BCD1HAS␣␣␣
03424 606060603145 1109BCD5␣␣␣␣IN␣ADDRESS␣OF␣FIRST␣WORD.␣
03425 602124245125 1110
03426 626260462660 1111
03427 263151626360 1112
03430 664651243360 1113
03431 606060606060 1114NOTIF BCD2␣␣␣␣␣␣␣␣␣␣␣␣
03432 606060606060 1115
03433 254563517060 1116BCD ENTRY␣IN␣TIFGO,␣RECORD␣6,␣FILE␣5,␣TAPE␣2,␣CANNOT␣BE␣IDENTIFI
03434 314560633126 1117
03435 274673605125 1118
03436 234651246006 1119
03437 736026314325 1120
03440 600573606321 1121
03441 472560027360 1122
03442 232145454663 1123
03443 602225603124 1124
03444 254563312631 1125
03445 252433606060 1126BCD1ED.␣␣␣
03446+000301000000 1127OCT000301000000
03447 0 00000 0 03267 1128HTRWHATIF
03450+001125000000 1129OCT001125000000
03451 0 00000 0 02502 1130HTRCHBTSX
03452+000650000000 1131OCT000650000000
03453 0 00000 0 02453 1132HTRDOALNX
03454+000641000000 1133OCT000641000000
03455 0 00000 0 02402 1134HTRDOBTNX
03456+000727000000 1135OCT000727000000
03457 0 00000 0 02426 1136HTRCONBET
03460+000623000000 1137OCT000623000000
03461 0 00000 0 01436 1138HTRDONOBT
03462+001062000000 1139OCT001062000000
03463 0 00000 0 02210 1140HTRTSXH
03464+000534000000 1141OCT000534000000
03465 0 00000 0 01434 1142HTRTIF6B
03466+000521000000 1143OCT000521000000
03467 0 00000 0 01432 1144HTRB2TIF5
03470+000511000000 1145OCT000511000000
03471 0 00000 0 01430 1146HTRB1TIF5
03472+000475000000 1147OCT000475000000
03473 0 00000 0 01426 1148HTRB2TIF4
03474+000465000000 1149OCT000465000000
03475 0 00000 0 01424 1150HTRB1TIF4
03476+000451000000 1151OCT000451000000
03477 0 00000 0 01422 1152HTRB2TIF3
03500+000441000000 1153OCT000441000000
03501 0 00000 0 01420 1154HTRB1TIF3
03502+000417000000 1155OCT000417000000
03503 0 00000 0 01416 1156HTRBTIFG2
03504+000372000000 1157OCT000372000000
03505 0 00000 0 01411 1158HTRBTIFG1
03506+000350000000 1159OCT000350000000
03507 0 00000 0 01404 1160HTRTSXTFO
03510+000335000000 1161OCT000335000000
03511 0 00000 0 01377 1162HTRMINB3
03512+000325000000 1163OCT000325000000
03513 0 00000 0 01372 1164HTRMINB2
03514+000314000000 1165OCT000314000000
03515 0 00000 0 01365 1166HTRMINB1
03516+000775000000 1167OCT000775000000
03517 0 00000 0 03166 1168HTRNOTEQV
03520+000762000000 1169OCT000762000000
03521 0 00000 0 03140 1170HTRFRETIF
03522+000070000000 1171OCT000070000000
03523 0 00000 0 03222 1172HTRBADWC
03524+000110000000 1173OCT000110000000
03525 0 00000 0 03243 1174HTRNOIDEN
03526+000576000000 1175OCT000576000000
03527 0 00000 0 03106 1176HTRNOTRA
03530+000212000000 1177OCT000212000000
03531 0 00000 0 01341 1178HTRTEIFNO IE.,TSXE FROM NON-ARITH DIAP
03532+001110000000 1179ER1PRM OCT001110000000
03533 0 00000 0 02656 1180HTRCHATSX
03534 0 00000 0 00000 1181X