12 FORCE NEW RECORD
2E HED
00002 0 00036 0 03630 3HTRXZY−1,0,30 CARD FOR DE
00036 4ORG30
TD00036 3 00000 0 00002 5TXH2 MAIN RECORD
77777 6LIST SYN32767
00037 0 53400 1 01227 7LXAADDMSK,1 FIND NUMBER TO SUBTRACT FROM TSX
00040−0 75400 1 00000 8PXD0,1 TO GET ORIGINAL LOCATION
00041 0 40000 0 01233 9ADDDECONE THIS WILL BE USED TO RE-COMPLIMENT ANY
00042 0 60100 0 01234 10STOPREFX1 OF THE TSX S TO THE DIAGNOSTIC
00043−0 75400 4 00000 11PXD0,4 IR 4 HAS BEEN SET BY TSX
00044 0 40200 0 01234 12SUBPREFX1
00045 0 62200 0 01235 13STDERWORD
00046 0 76600 0 00361 14WPR
00047 0 76000 0 00367 15SPR7 TEST FOR SAP BOARD
00050 0 07400 4 00740 16TSXPRINT,4 PRINT TITLE
00051 0 00172 0 00155 17HTRPR1,0,PR1+13
00052 0 76600 0 00361 18WPR
00053 0 76600 0 00361 19WPR
00054 0 76600 0 00361 20WPR
00055 0 76600 0 00361 21WPR
00056 0 76100 0 00000 22NOP
00057 0 76100 0 00000 23NOP
00060 0 50000 0 00002 24CLA2 LOC. 2 HAS NUMBER OF FORTRAN RECORD
00061−0 32000 0 01227 25ANAADDMSK PRECEDING THE CALL IN OF THE DIAG.
00062 0 60100 0 01236 26STORECORD
00063 0 40200 0 00220 27SUBTW13 IF NON-ARITHMETIC HAS CALLED DIAG
00064−0 10000 0 00070 28TNZNOTNA PRINT OTHER HEADER
00065 0 07400 4 00740 29TSXPRINT,4
00066 0 00220 0 00205 30HTRISNONA,0,ISNONA+11
00067 0 02000 0 00117 31TRASEARCH−1
00070 0 50000 0 01236 32NOTNA CLARECORD
00071 0 07400 4 00676 33TSXBINDEC,4 CONVERT TO BCD + LEFT ADJUST WORD
00072 0 07400 4 00602 34TSXLAJUST,4
00073 0 60200 0 00204 35SLWFOREC
00074 0 07400 4 00740 36TSXPRINT,4 PRINT NUMBER OF RECORD IN WHICH
00075 0 00205 0 00172 37HTRPR2,0,FOREC+1 ERROR FOUND
00076 0 50000 0 01235 38CLAERWORD IN DECREMENT
00077 0 77100 0 00022 39ARS18
00100 0 07400 4 00730 40TSXOCTBCD,4
00101 0 60200 0 01257 41SLWERAS
00102−0 50000 0 01255 42CALLOC+3
00103 0 77100 0 00030 43ARS24
00104 0 56000 0 01257 44LDQERAS
00105−0 76300 0 00030 45LGL24
00106 0 60200 0 01255 46SLWLOC+3
00107−0 76300 0 00014 47LGL12
00110 0 56000 0 00717 48LDQBLANKS
00111−0 76300 0 00030 49LGL24
00112 0 60200 0 01256 50SLWLOC+4
00113 0 07400 4 00740 51TSXPRINT,4 PRINT LOCATION OF STOP
00114 0 01257 0 01252 52HTRLOC,0,LOC+5
00115 0 76600 0 00361 53WPR
00116 0 76600 0 00361 54WPR
00117−0 53400 4 02346 55LXDERLIST,4
00120 0 50000 4 02346 56SEARCH CLAERLIST,4 ASSORTED TSX IN DEC FIELD
00121 0 34000 0 01235 57CASERWORD OF FIRST WORD OF LIST
00122 0 02000 0 00124 58TRATIXA
00123 0 02000 0 00130 59TRAHAVE
00124 2 00002 4 00120 60TIXA TIXSEARCH,4,2
00125 0 02000 0 00137 61TRALXDA UNIDENTIFYABLE, BRING IN RECORD ZERO
00126 0 76100 0 00000 62NOP
00127 0 76100 0 00000 63NOP
00130 0 50000 4 02347 64HAVE CLAERLIST+1,4 DUPLICATE STOPS SHOULD BE MARKED MINUS
00131−0 12000 0 00145 65TMIDUP SECOND WORD HAS NUMBER OF RECORDS
00132−0 73400 4 00000 66PD PDX0,4 TO BE SPACED OVER BEFORE READING
00133 2 00003 4 00134 67TIXRTBA,4,3 REDUCE NUMBER IF NOT REC 1, NOW SAME AS
00134 0 76200 0 00221 68RTBA RTB1 EDITOR RECORD NUMBER
00135 0 70000 0 00031 69CPY25
00136 2 00001 4 00134 70TIXRTBA,4,1
00137−0 53400 4 01232 71LXDA LXDZERO,4
00140 0 76200 0 00221 72RTB1
00141 0 70000 4 01303 73CPYREC CPYLOCREC,4 END RECORD SKIP WILL CONTROL
00142 1 77777 4 00141 74TXICPYREC,4,−1 COPY AND TRANSFER
00143 0 76100 0 00000 75NOP NOP
00144 0 02000 0 01304 76TRALOCREC+1 SKIP RECORD NUMBER
00145−0 32000 0 01227 77DUP ANAADDMSK 2ND WORD WILL HAVE CORRECT ERROR RECORD
00146 0 34000 0 01236 78CASRECORD NUMBER IN ADDRESS, FOR CORRECT FORTRAN
00147 0 02000 0 00151 79TRANOTREC RECORD NUMBER IN THE CASE OF
00150 0 02000 0 00153 80TRAHAVREC DUPLICATE STOPS.
00151 2 00002 4 00120 81NOTREC TIXSEARCH,4,2
00152 0 02000 0 00137 82TRALXDA IF END OF LIST, PRINT REC. ZERO
00153 0 50000 4 02347 83HAVREC CLAERLIST+1,4
00154 0 02000 0 00132 84TRAPD
00155 606060606060 85PR1 BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00156 606060606060 86
00157 606060606060 87
00160 606060606060 88
00161 606060606060 89
00162 606060606060 90
00163 606060606060 91
00164 264651635121 92BCD6FORTRAN␣DIAGNOSTIC␣PROGRAM␣RESULTS␣␣
00165 456024312127 93
00166 454662633123 94
00167 604751462751 95
00170 214460512562 96
00171 644363626060 97
00172 606060606060 98PR2 BCD2␣␣␣␣␣␣␣␣␣␣␣␣
00173 606060606060 99
00174 255151465160 100BCD8ERROR␣WHILE␣COMPILING␣IN␣FORTRAN␣RECORD␣NUMBER␣␣
00175 663031432560 101
00176 234644473143 102
00177 314527603145 103
00200 602646516351 104
00201 214560512523 105
00202 465124604564 106
00203 442225516060 107
A00204 0 00000 0 00000 108FOREC HTR
00205 606060606060 109ISNONA BCD2␣␣␣␣␣␣␣␣␣␣␣␣
00206 606060606060 110
00207 255151465160 111BCD9ERROR␣FOUND␣DURING␣SCAN␣OF␣TABLES␣COMPILED␣BY␣1␣PRIME.
00210 264664452460 112
00211 246451314527 113
00212 606223214560 114
00213 462660632122 115
00214 432562602346 116
00215 444731432524 117
00216 602270600160 118
00217 475131442533 119
00220 0 00000 0 00325 120TW13 HTR213
00221−0 53400 2 00000 121DIGRTN LXD0,2 RESET MEMORY
00222 0 50000 0 00314 122CLACPDR LOOP AT LOC. 0,1 AND 2 WILL
00223 0 60100 0 00000 123STO0 COPY 2045 WORDS FROM DRUM 4
00224 0 50000 0 00315 124CLATIXO BEGINNING AT LOC. 3
00225 0 60100 0 00001 125STO1
00226 0 50000 0 00316 126CLAHTR4
00227 0 60100 0 00002 127STO2
00230 0 50000 0 00674 128RESTRT CLAPRTEST SHOULD FOOTNOTE BE PRINTED
00231 0 10000 0 00235 129TZEWPREND
00232 0 76600 0 00361 130WPR YES
00233 0 07400 4 00740 131TSXPRINT,4
00234 0 00505 0 00463 132HTRNEARBT,0,NEARBT+18
00235 0 76600 0 00361 133WPREND WPR
00236 0 76600 0 00361 134WPR
00237 0 76600 0 00361 135WPR
00240 0 76600 0 00361 136WPR
00241 0 77200 0 00202 137REW2 REWIND SO PROBLEM CAN BE RE-RUN
00242 0 77200 0 00201 138REW1
00243 0 76100 0 00000 139NOP J CANNON
00244 0 76100 0 00000 140NOP
00245 0 76000 0 00166 141SIXTST SWT6 SHOULD CHOICE TO NEXT BATCH BE PRINTED
00246 0 02000 0 00251 142TRASPACE1 NO
00247 0 50000 0 00304 143CLAPRALT SURE
00250 0 60100 0 00261 144STOPRNT1
00251 0 76200 0 00221 145SPACE1 RTB1 SPACE OVER FIRST FILE IN SYSTEM
00252 0 70000 0 01257 146CPYERAS
00253 0 02000 0 00251 147TRASPACE1
00254 0 76200 0 00221 148SKIP RTB1 OVER REC 1, FILE 2, OUR TRA 4, THEIR WHO KNOWS
00255 0 76100 0 00000 149NOP
00256 0 07400 4 00740 150TSXPRINT,4
00257 0 00360 0 00320 151HTREND,0,END+32
00260 0 07400 4 00740 152TSXPRINT,4
00261 0 00376 0 00360 153PRNT1 HTREND1,0,END1+14
00262 0 76600 0 00361 154WPR
00263+076000000140 155OCT076000000140 TURN OFF ALL SENSE LIGHTS
00264 0 76600 0 00361 156WPR
00265 0 76000 0 00362 157SPR2 EJECT SHEET
00266 0 76600 0 00333 158DONE IOD
00267−0 76000 0 00012 159RTT
00270 0 76100 0 00000 160NOP
00271 0 02000 0 03534 161TRAENDPCH
00272 0 50000 0 00317 162SPEND CLABST1 BACKSPACE OVER FILE MARK
00273 0 60100 0 00254 163STOSKIP AND OVER SOURCE ERROR RECORD
00274 0 60100 0 00255 164STOSKIP+1
00275 0 76000 0 00166 165SWT6
00276 0 02000 0 00305 166TRANDWP
00277 0 50000 0 00311 167CLAPRNT2
00300 0 60100 0 00261 168STOPRNT1
00301 0 50000 0 00143 169FX6TST CLANOP
00302 0 60100 0 00245 170STOSIXTST
00303 0 02000 0 00221 171TRADIGRTN
00304 0 03631 0 03540 172PRALT HTRMACEN,0,MACEN+57
00305 0 50000 0 00143 173NDWP CLANOP D0 NOT PRINT A LAST COMMENT
00306 0 60100 0 00260 174STOPRNT1−1
00307 0 60100 0 00261 175STOPRNT1
00310 0 02000 0 00301 176TRAFX6TST
00311 0 00417 0 00376 177PRNT2 HTREND2,0,END2+17 MAY CONTINUE NEXT BATCH
00312 0 00463 0 00417 178PRNT4 HTREND3,0,END3+36
00313 0 03775 0 00003 179DRUM HTR3,0,2045
00314 0 70000 4 04000 180CPDR CPY2048,4
00315 2 00001 4 00000 181TIXO TIX0,4,1
00316 0 02000 0 00004 182HTR4 TRA4
00317 0 76400 0 00201 183BST1 BST1
00320 606060606060 184END BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00321 606060606060 185
00322 606060606060 186
00323 606060606060 187
00324 606060606060 188
00325 606060606060 189
00326 606060606060 190
00327 254524604626 191BCD END␣OF␣DIAGNOSTIC␣PROGRAM␣RESULTS.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00330 602431212745 192
00331 466263312360 193
00332 475146275121 194
00333 446051256264 195
00334 436362336060 196
00335 606060606060 197
00336 606060606060 198
00337 606060606060 199
00340 606060606060 200
00341 606060606060 201BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00342 606060606060 202
00343 606060606060 203
00344 606060606060 204
00345 606060606060 205
00346 606060606060 206
00347 606060606060 207
00350 606060606060 208
00351 606060606060 209
00352 606060606060 210
00353 475146275121 211BCD5PROGRAM␣CANNOT␣BE␣CONTINUED.␣␣
00354 446023214545 212
00355 466360222560 213
00356 234645633145 214
00357 642524336060 215
00360 606060606060 216END1 BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00361 606060606060 217
00362 606060606060 218
00363 606060606060 219
00364 606060606060 220
00365 606060606060 221
00366 606060606060 222
00367 475125626260 223BCD7PRESS␣START␣IF␣YOU␣WISH␣TO␣RE-RUN␣PROBLEM.
00370 626321516360 224
00371 312660704664 225
00372 606631623060 226
00373 634660512540 227
00374 516445604751 228
00375 462243254433 229
00376 606060606060 230END2 BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00377 606060606060 231
00400 606060606060 232
00401 606060606060 233
00402 606060606060 234
00403 606060606060 235
00404 606060606060 236
00405 633025606270 237BCD THE␣SYSTEM␣WILL␣CONTINUE␣BATCH␣COMPILING␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00406 626325446066 238
00407 314343602346 239
00410 456331456425 240
00411 602221632330 241
00412 602346444731 242
00413 433145276060 243
00414 606060606060 244
00415 606060606060 245
00416 606060606060 246
00417 606060606060 247END3 BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00420 606060606060 248
00421 606060606060 249
00422 606060606060 250
00423 606060606060 251
00424 606060606060 252
00425 606060606060 253
00426 475125626260 254BCD PRESS␣START␣IF␣YOU␣WISH␣TO␣CONTINUE␣BATCH␣COMPILING,␣OR␣KEY␣
00427 626321516360 255
00430 312660704664 256
00431 606631623060 257
00432 634660234645 258
00433 633145642560 259
00434 222163233060 260
00435 234644473143 261
00436 314527736046 262
00437 516042257060 263
00440 314560000706 264BCD IN␣076000␣000141,␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00441 000000600000 265
00442 000104017360 266
00443 606060606060 267
00444 606060606060 268
00445 606060606060 269
00446 606060606060 270
00447 606060606060 271
00450 606060606060 272
00451 606060606060 273
00452 214524604751 274BCD9AND␣PRESS␣START␣IF␣YOU␣WISH␣TO␣RE-RUN␣PROBLEM.␣␣␣␣␣␣␣␣
00453 256262606263 275
00454 215163603126 276
00455 607046646066 277
00456 316230606346 278
00457 605125405164 279
00460 456047514622 280
00461 432544336060 281
00462 606060606060 282
00463 606060606060 283NEARBT BCD1␣␣␣␣␣␣
00464 546063303162 284BCD *␣THIS␣STATEMENT␣HAS␣NO␣FORMULA␣NUMBER.␣␣THE␣FORMULA␣NUMBER␣
00465 606263216325 285
00466 442545636030 286
00467 216260454660 287
00470 264651446443 288
00471 216045644422 289
00472 255133606063 290
00473 302560264651 291
00474 446443216045 292
00475 644422255160 293
00476 216262312745 294BCD7ASSIGNED␣A␣NEIGHBORING␣STATEMENT␣IS␣GIVEN.
00477 252460216045 295
00500 253127302246 296
00501 513145276062 297
00502 632163254425 298
00503 456360316260 299
00504 273165254533 300
00505−0 63400 4 00531 301FX4PR SXDIR4,4 THIS ROUTINE PRINTS ALPH DO BETA FOR I
00506 0 50000 0 00527 302CLAALFBET GETS ALPHA, OR NEAREST PRECEDING ALPHA,
00507 0 77100 0 00022 303ARS18 AND BETA FROM WORD ALFBET, SYMBOL
00510−0 32000 0 01227 304ANAADDMSK FROM WORD SYM
00511 0 07400 4 00613 305TSXEXBETA,4
00512 0 60200 0 00536 306SLWDOALF BLANKS ARE TO RIGHT OF WORD
00513 0 50000 0 00527 307CLAALFBET
00514−0 32000 0 01227 308ANAADDMSK
00515 0 07400 4 00613 309TSXEXBETA,4
00516 0 07400 4 00602 310TSXLAJUST,4 ADJUST FOR TRAILING BLANKS
00517 0 60200 0 00540 311SLWDOBET
00520−0 50000 0 00530 312CALSYM
00521 0 07400 4 00543 313TSXZEROUT,4 UNPACK WORD
00522 0 60200 0 00542 314SLWDOSYM
00523 0 07400 4 00740 315TSXPRINT,4
00524 0 00543 0 00532 316HTRPRDO,0,PRDO+9
00525−0 53400 4 00531 317LXDIR4,4
00526 0 02000 4 00001 318TRA1,4
A00527 0 00000 0 00000 319ALFBET HTR
A00530 0 00000 0 00000 320SYM HTR
A00531 0 00000 0 00000 321IR4 HTR
00532 606060606060 322PRDO BCD4␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
00533 606060606060 323
00534 606060606060 324
00535 606060606060 325
A00536 0 00000 0 00000 326DOALF HTR
00537 606024466060 327BCD1␣␣DO␣␣
A00540 0 00000 0 00000 328DOBET HTR
00541 602646516060 329BCD1␣FOR␣␣
A00542 0 00000 0 00000 330DOSYM HTR
00543−0 63400 4 00563 331ZEROUT SXDZER6,4 ENTER CAL.BCD WORD WHICH FORTRAN HAS STORED
00544−0 53400 4 00564 332LXDSIX,4 LEFT ADJUSTED, FOLL0WED BY 1 BLANK AND
00545 0 60200 0 00562 333ZER1 SLWZER5 PADDLED OUT WITH ZEROS
00546−0 32000 0 01231 334ANACHMASK IE., OCT 000000000077
00547−0 10000 0 00553 335TNZZER2
00550−0 50000 0 00562 336CALZER5 LAST CHARACTER WAS ZERO
00551 0 77100 0 00006 337ARS6 SHIFT OUT OF AC
00552 2 00001 4 00545 338TIXZER1,4,1
00553−0 50000 0 00562 339ZER2 CALZER5
00554 0 56000 0 00717 340LDQBLANKS
00555 3 00005 4 00560 341ZER3 TXHZER4,4,5
00556−0 76300 0 00006 342LGL6 N0W SHIFT IN A BLANK FOR EVERY 0 TAKEN OUT
00557 1 00001 4 00555 343TXIZER3,4,1
00560−0 53400 4 00563 344ZER4 LXDZER6,4 LEAVE, BCD AND BLANKS, MUST BE SAVED
00561 0 02000 4 00001 345TRA1,4 WITH SLW
A00562 0 00000 0 00000 346ZER5 HTR
A00563 0 00000 0 00000 347ZER6 HTR
00564 0 00006 0 00000 348SIX HTR0,0,6
00565 0 60200 0 00577 349RAJUST SLWRAJ1 ENTER, CAL BCD, LEFT ADJUSTED PLUS BLANKS
00566−0 32000 0 01231 350ANACHMASK IE., OCT 000000000077
00567 0 40200 0 00600 351SUB01BLNK
00570−0 10000 0 00575 352TNZRAJ2
00571−0 50000 0 00577 353CALRAJ1 YES, MOVE WORD AND ADD BLANK AT FRONT
00572 0 77100 0 00006 354ARS6 IS LAST CHARACTER A BLANK
00573 0 36100 0 00601 355ACLRBLNK
00574 0 02000 0 00565 356TRARAJUST
00575−0 50000 0 00577 357RAJ2 CALRAJ1 LEAVES AC WITH LEADING BLANKS, MUST BE
00576 0 02000 4 00001 358TRA1,4 SAVED WITH SLW
A00577 0 00000 0 00000 359RAJ1 HTR
00600 000000000060 36001BLNK BCD100000␣
00601 600000000000 361RBLNK BCD1␣00000
00602 0 56000 0 00612 362LAJUST LDQBLNKO ENTER, CAL BCD NUMBER, LEADING BLANKS
00603 0 14000 0 00604 363LAJ1 TOVLAJ2 TURN OFF INDICATOR
00604−0 76300 0 00001 364LAJ2 LGL1 NUMBER HAS ZERO ZONE, BLANK WILL TURN
00605−0 14000 0 00610 365TNOLAJ3 ON INDICATOR
00606−0 76300 0 00005 366LGL5
00607 0 02000 0 00603 367TRALAJ1
00610 0 77100 0 00001 368LAJ3 ARS1 FIRST BIT FROM Q BACK TO P
00611 0 02000 4 00001 369TRA1,4 EXIT TRAILING BLANKS,MUST BE SAVED WITH SLW
00612 606060606000 370BLNKO BCD1␣␣␣␣␣0 WILL STOP ROUTINE IF WORD IS ALL BLANKS.
371ENTER WITH INTERNAL FORMULA NUMBER IN ADDRESS OF AC
372EXIT WITH EXTERNAL FORMULA NUMBER, OR NEAREST PRECEDING
373EXTERNAL FORMULA NUMBER, IN BCD IN LOGICAL PORTION
374OF AC. THIS MUST BE SAVED WITH SLW. NUMBER WILL
375BE FOLLOWED BY ASTERISK WHEN EXACT MATCH IS NOT FOUND
77013 376TEIFIN SYNLIST−500
00613 0 76700 0 00022 377EXBETA ALS18
00614 0 62200 0 00675 378STDBETAEX
00615−0 63400 4 00671 379SXDXB10,4
00616−0 53400 4 00640 380LXDINCOR,4
00617 3 00000 4 00644 381TXHXB4,4,0 IF TEIFNO IN MEMORY, SKIP READ IN
00620 0 77200 0 00202 382REW2
00621 0 53400 4 00671 383LXAXB10,4 4 FILES TO BE SPACED OVER
00622 0 76200 0 00222 384XB1 RTB2
00623 0 70000 0 77012 385CPYTEIFIN−1
00624 0 02000 0 00622 386TRAXB1 SPACE OVER RECORDS UNTIL END FILE SKIP
00625 2 00001 4 00622 387TIXXB1,4,1
00626 0 53400 4 00640 388LXAINCOR,4
00627 0 76200 0 00222 389XB2 RTB2
00630 0 70000 0 77012 390CPYTEIFIN−1
00631 2 00001 4 00627 391TIXXB2,4,1
00632−0 53400 4 01232 392LXDZERO,4
00633 0 76200 0 00222 393RTB2
00634 0 70000 0 77012 394CPYTEIFIN−1 IGNORE IDENTIFICATION AND WORD COUNT
00635 0 70000 0 77012 395CPYTEIFIN−1
00636 0 70000 4 77012 396XB3 CPYTEIFIN−1,4 READ IN TEIFNO UNTIL END OF RECORD SKIP
00637 1 00001 4 00636 397TXIXB3,4,1
00640 0 00000 0 00004 398INCOR HTR4
00641 3 00000 4 00643 399TXHXB4A,4,0
00642−0 53400 4 01233 400LXDDECONE,4 SET READ IN TO FAIL IF NO TEIFNO ENTRIES
00643−0 63400 4 00640 401XB4A SXDINCOR,4
00644 0 50000 4 77013 402XB4 CLATEIFIN,4 COMPARE INTERNAL FORMULA NUMBERS
00645−0 32000 0 01230 403ANADECMSK
00646 0 34000 0 00675 404CASBETAEX TO THE ONE BEING ASKED FOR
00647 0 02000 0 00665 405TRAXB8
00650 0 02000 0 00667 406TRAXB9
00651 0 50000 0 01227 407XB5 CLAADDMSK SET TEST TO ADD ASTERISK TO END OF NUMBER
00652 0 60100 0 00674 408STOPRTEST SET END OF DIAG TO PRINT FOOTNOTE
00653 0 60100 0 00672 409STOXB11
00654 0 50000 4 77013 410XB6 CLATEIFIN,4 GET EXTERNAL FORMULA NUMBER
00655−0 32000 0 01227 411ANAADDMSK
00656 0 07400 4 00676 412TSXBINDEC,4 CONVERT TO BCD DECIMAL
00657 0 53400 4 00672 413LXAXB11,4
00660 0 56000 0 00673 414LDQASTRSK
00661−3 00000 4 00663 415TXLXB7,4,0 SHOULD ASTERISK BE ADDED
00662−0 76300 0 00006 416LGL6 YES
00663−0 53400 4 00671 417XB7 LXDXB10,4
00664 0 02000 4 00001 418TRA1,4
00665 2 00001 4 00644 419XB8 TIXXB4,4,1 COMPARE TO NEXT, OR
00666 0 02000 0 00651 420TRAXB5 PRINT FIRST ENTRY WITH ASTERISK
00667 0 60000 0 00672 421XB9 STZXB11 SET TEST TO PRINT NUMBER ONLY
00670 0 02000 0 00654 422TRAXB6
00671 0 00000 0 00004 423XB10 HTR4,0,0
00672 0 00000 0 00000 424XB11 HTR0
00673 546060606060 425ASTRSK BCD1*␣␣␣␣␣
00674 0 00000 0 00000 426PRTEST HTR0
00675 0 00000 0 00000 427BETAEX HTR0
428ENTER, BINARY NUMBER IN ADDRESS AC. EXIT DECIMAL
429NUMBER IN BCD IN LOGICAL PORTION OF AC. MUST BE
430SAVED WITH SLW
00676 0 76000 0 00003 431BINDEC SSP JUST IN CASE
00677 0 76500 0 00043 432LRS35
00700−0 63400 4 00720 433SXDBINA,4
00701−0 53400 4 00714 434LXDBINB,4
00702 0 50000 0 00721 435CNV CLATEN IF MQ LESS THAN 10, CONVERSION IS FINISHED
00703 0 04000 0 00710 436TLQFIN
00704−0 75400 0 00000 437PXD0,0
00705 0 22100 0 00721 438DVPTEN
00706 0 60200 4 00730 439SLWDIG,4 SAVE REMAINDER IN 1 WORD OF BLOCK
00707 1 00001 4 00702 440TXICNV,4,1 UP WORD COUNT OF BLOCK
00710−0 60000 4 00730 441FIN STQDIG,4
00711−0 50000 0 00717 442CALBLANKS START WITH BLANKS
00712 0 76700 0 00006 443DEC ALS6 AND BRING IN REMAINDER FROM ABOVE
00713−0 50100 4 00730 444ORADIG,4
00714 2 00001 4 00712 445BINB TIXDEC,4,1
00715−0 53400 4 00720 446LXDBINA,4
00716 0 02000 4 00001 447TRA1,4
00717 606060606060 448BLANKS BCD1␣␣␣␣␣␣
A00720 0 00000 0 00000 449BINA HTR
00721+000000000012 450TEN DEC10
00730 451DIG BES6
452 ENTER WITH OCTAL NUMBER IN ADDRESS 0F AC. EXIT OCTAL
453 CONVERTED TO BCD IN LOGICAL PORTION OF AC. THIS MUST
454 BE SAVED WITH SLW
00730 0 76500 0 00017 455OCTBCD LRS15
00731 0 50000 0 00737 456CLABLANK AC ZERO EXEPT FOR END BLANK
00732−0 14000 0 00733 457TNOOCT TURN OFF INDICATOR
00733 0 76700 0 00003 458OCT ALS3
00734 0 76300 0 00003 459LLS3
00735−0 14000 0 00733 460TNOOCT END BLANK WILL TURN ON INDICATOR
00736 0 02000 4 00001 461TRA1,4
00737 000000000060 462BLANK BCD100000␣
00740 463 PRINT BSS0
00004 464C EQU4
00740 0 50000 4 00001 465 RAN CLA1,4
00741 0 62100 0 00772 466STARNA
00742 0 77100 0 00022 467ARS18
00743 0 60100 0 00773 468STORNB
00744−0 63400 4 00774 469SXDRNC,4
00745 0 50000 0 00772 470 RN40 CLARNA
00746 0 40000 0 00775 471ADDRND
00747 0 34000 0 00773 472CASRNB
00750 0 76100 0 00000 473NOP
00751 0 02000 0 00762 474TRARN50
00752 0 76700 0 00022 475ALS18
00753 0 40000 0 00772 476ADDRNA
00754 0 60100 0 00760 477STORAN10
00755 0 77100 0 00022 478ARS18
00756 0 62100 0 00772 479STARNA
00757 0 07400 4 00776 480TSXWOT,C
A00760 0 00000 0 00000 481 RAN10 HTR
00761 0 02000 0 00745 482TRARN40
00762 0 50000 0 00773 483 RN50 CLARNB
00763 0 76700 0 00022 484ALS18
00764 0 40000 0 00772 485ADDRNA
00765 0 60100 0 00767 486STORN60
00766 0 07400 4 00776 487TSXWOT,C
A00767 0 00000 0 00000 488 RN60 HTR
00770−0 53400 4 00774 489LXDRNC,C
00771 0 02000 4 00002 490TRA2,C
A00772 0 00000 0 00000 491 RNA HTR
A00773 0 00000 0 00000 492 RNB HTR
A00774 0 00000 0 00000 493 RNC HTR
00775 0 00000 0 00024 494 RND HTR20
00776−0 63400 1 01073 495 WOT SXDX1,1
00777−0 63400 2 01101 496SXDX2,2
01000 0 50000 4 00001 497CLA1,4
01001 0 62200 0 01125 498STDX4 X
01002 0 77100 0 00022 499ARS18 X
01003 0 40000 0 01125 500ADDX4 X
01004 0 62100 0 01032 501STACI9 X
01005 0 40200 4 00001 502SUB1,4 B-A+1 IN AC
01006 0 10000 4 00002 503TZE2,4
01007−0 12000 4 00002 504TMI2,4
01010−0 63400 4 01125 505SXDX4,4
01011 0 73400 4 00013 506 L11 PAX11,4
01012−0 63400 4 01123 507SXDPR6,4
01013 0 76600 0 00361 508 RPR WPR
01014 0 76100 0 00000 509NOP
01015−0 53400 4 01123 510LXDPR6,4 X
D01016−2 00000 4 01022 511 PR8 TNXPR5,4
01017−3 00014 4 01021 512TXLPR3,4,12
01020 0 76000 0 00370 513SPR8 FIRST CYCLE
01021−0 53400 4 01123 514 PR3 LXDPR6,4 INITIALIZE GROUP COUNT
01022 0 53400 2 01024 515 PR5 LXAPR7,2 INITIALIZE LEFT SETUP
01023−0 53400 1 01066 516LXDYZ1,1 CLEAR CARD IMAGE
T01024−0 75400 0 00000 517 PR7 PXD X
01025 0 60200 1 01173 518 PR4 SLWLT,1 X
01026 0 60200 1 01153 519SLWRT,1 X
01027 2 00001 1 01025 520TIXPR4,1,1 X
01030−0 50000 0 01131 521 CIR CALCOL1 INITIALIZE COLUMN INDICATOR
01031 0 60200 0 01132 522 CI2 SLWCOL X
01032 0 56000 4 00000 523 CI9 LDQ0,4 OBTAIN GROUP
01033−0 63400 4 01226 524SXDOZ2,4 STORE GROUP COUNT
01034 0 53400 4 01036 525LXAQ6,4 SET CHARACTER COUNT
T01035−0 75400 0 00000 526 CI1 PXD
01036−0 76300 0 00006 527 Q6 LGL6
01037 0 73400 1 00000 528PAX0,1
01040−0 50000 0 01132 529CALCOL POSITION COLUMN INDICATOR
01041 0 77100 4 00006 530ARS6,4 X
01042 2 00020 1 01066 531TIXYZ1,1,16 TEST FOR DIGIT
01043 3 00017 1 01071 532TXHYZ2,1,15 TEST FOR Y-ZONE
01044−0 60200 3 01170 533 CI5 ORSD,3 STORE DIGIT
01045 2 00001 4 01035 534 CI4 TIXCI1,4,1 COUNT CHARACTERS
01046 0 77100 0 00001 535 CI3 ARS1 SHIFT AND TEST COLUMN
01047−0 53400 4 01226 536LXDOZ2,4 RESTORE GROUP COUNT
01050 1 77777 4 01051 537TXICI6,4,−1 COUNT GROUPS
D01051−3 00000 4 01053 538 CI6 TXLCI7,4 TEST FOR LAST NON-BLANK GROUP
01052−0 10000 0 01031 539TNZCI2 TEST FOR END OF ROW
01053−0 50000 2 01155 540 CI7 CAL8.3,2 FORM TRUE 8,4
01054−0 60200 2 01160 541ORSD−8,2 AND 3 ROWS AND
01055−0 60200 2 01165 542ORSD−3,2 MOVE 8.4 AND 8.3
01056 0 60200 2 01156 543SLW8.2,2 ROWS
01057−0 50000 2 01154 544CAL8.4,2 FORM TRUE 8.4
01060−0 60200 2 01160 545ORSD−8,2 X
01061−0 60200 2 01164 546ORSD−4,2 X
01062 0 60200 2 01155 547SLW8.3,2 X
D01063−3 00000 4 01106 548 CI8 TXLWP,4 TEST FOR END
01064 3 00017 2 01106 549TXHWP,2,15 TEST FOR RIGHT HALF
01065 1 00020 2 01030 550TXICIR,2,16 INITIALIZE RIGHT HALF
01066 2 00020 1 01074 551 YZ1 TIXXZ1,1,16 TEST FOR 16/CH/32
01067 3 00017 1 01077 552TXHXZ2,1,15 TEST FOR X-ZONE
01070−0 60200 3 01170 553ORSD,3 STORE DIGIT
01071−0 60200 2 01172 554 YZ2 ORSY,2 STORE Y-ZONE
01072 2 00001 4 01035 555TIXCI1,4,1 COUNT CHARACTERS
TD01073−3 00000 0 01046 556 X1 TXLCI3 OBTAIN NEXT GROUP
01074 2 00020 1 01102 557 XZ1 TIXOZ1,1,16 TEST FOR 32/CH/48
01075 3 00017 1 01045 558TXHCI4,1,15 TEST FOR BLANK
01076−0 60200 3 01170 559ORSD,3 STORE DIGIT
01077−0 60200 2 01171 560 XZ2 ORSX,2 STORE X-ZONE
01100 2 00001 4 01035 561TIXCI1,4,1 COUNT CHARACTERS
TD01101−3 00000 0 01046 562 X2 TXLCI3 OBTAIN NEXT GROUP
01102−0 60200 2 01170 563 OZ1 ORSZ,2 STORE O-ZONE
01103−0 60200 3 01170 564ORSD,3 STORE DIGIT
01104 2 00001 4 01035 565TIXCI1,4,1 COUNT CHARACTERS
TD01105−3 00000 0 01046 566TXLCI3
01106 0 53400 1 01226 567WP7 LXAOZ,1 COPY LOOP
01107 0 70000 1 01157 568 CRAN CPYLT−12,1
01110 0 70000 1 01137 569CPYRT−12,1 X
01111 1 77777 1 01112 570TXIT2,1,−1
01112 3 77764 1 01107 571 T2 TXHCRAN,1,−12
D01113 3 00000 4 01120 572 WP4 TXHWP5,4
01114−0 53400 1 01073 573LXDX1,1 NO, RELOAD INDEX REGISTERS AND RETURN
01115−0 53400 2 01101 574LXDX2,2 X
01116−0 53400 4 01125 575 WT2 LXDX4,4 X
01117 0 02000 4 00002 576 L2 TRA2,4 X
01120 0 76600 0 00361 577 WP5 WPR
01121 0 76000 0 00371 578SPR9 SECOND CYCLE
01122−3 00014 0 01022 579 WP2 TXLPR5,0,12 CONVERT REST OF LINE
A01123 0 00000 0 00000 580PR6 HTR
01124 606060606060 581 BLNKS BCD1␣␣␣␣␣␣
A01125 0 00000 0 00000 582 X4 HTR
01126+000000000020 583 YZONE OCT20
01127+000000000060 584 BNK OCT60
01130+377777777777 585 MK2 OCT377777777777
01131−0 00000 0 00000 586 COL1 MZE
01132 587 COL BSS1
01153 588 RT BES16
01153 589 8.5 BSS1
01154 590 8.4 BSS1
01155 591 8.3 BSS1
01156 592 8.2 BSS1
01170 593 D BES9
01170 594 Z BSS1
01171 595 X BSS1
01172 596 Y BSS1
01173 597 LT SYNY+1
01155 598 8.4L SYNLT−14
01135 599 8.4R SYNRT−14
01173 600BSS27
A01226 0 00000 0 00000 601OZ HTR
01226 602OZ2 SYNOZ
01106 603WP SYNWP7
01227+000000077777 604ADDMSK OCT000000077777
01230+077777000000 605DECMSK OCT077777000000
01231+000000000077 606CHMASK OCT000000000077
01232 0 00000 0 00000 607ZERO HTR0
01233+000001000000 608DECONE OCT000001000000
01234 0 00000 0 00000 609PREFX1 HTR0
01235 0 00000 0 00000 610ERWORD HTR0
01236 0 00000 0 00000 611RECORD
01237 606060606060 612MACHIN BCD2␣␣␣␣␣␣␣␣␣␣␣␣
01240 606060606060 613
01241 442123303145 614BCD3MACHINE␣ERROR␣␣␣␣␣
01242 256025515146 615
01243 516060606060 616
01244 606060606060 617SOURCE BCD2␣␣␣␣␣␣␣␣␣␣␣␣
01245 606060606060 618
01246 624664512325 619BCD4SOURCE␣PROGRAM␣ERROR␣␣␣␣
01247 604751462751 620
01250 214460255151 621
01251 465160606060 622
01252 606060606060 623LOC BCD2␣␣␣␣␣␣␣␣␣␣␣␣
01253 606060606060 624
01254 434623216331 625BCD3LOCATION␣␣␣␣␣␣␣␣␣␣
01255 464560606060 626
01256 606060606060 627
01257 628ERAS BSS20 FOR PATCHING ETC.
01303 0 00000 0 00000 629LOCREC HTR0 ALL ERROR RECORDS READ IN HERE OVER LIST
01304+001017000000 630OCT001017000000 ERROR IN 1 DOUBLE PRIME
01305 0 00001 0 00000 631HTR0,0,1 ERROR RECORD 1
01306+000036000000 632OCT000036000000 53
01307 0 00170 0 00000 633HTR0,0,120 36
01310+000037000000 634OCT000037000000 90
01311 0 00216 0 00000 635HTR0,0,142 37
01312+000041000000 636OCT000041000000 60
01313 0 00047 0 00000 637HTR0,0,39 41
01314+000046000000 638OCT000046000000 90
01315 0 00140 0 00000 639HTR0,0,96 46
01316+000047000000 640OCT000047000000 58
01317 0 00047 0 00000 641HTR0,0,39 47
01320+000051000000 642OCT000051000000 56
01321 0 00163 0 00000 643HTR0,0,115 51
01322+000060000000 644OCT000060000000 56
01323 0 00205 0 00000 645HTR0,0,133 60
01324+000061000000 646OCT000061000000 47
01325 0 00101 0 00000 647HTR0,0,65 61
01326+000062000000 648OCT000062000000 53
01327 0 00174 0 00000 649HTR0,0,124 62
01330+000063000000 650OCT000063000000 53
01331 0 00174 0 00000 651HTR0,0,124 63
01332+000064000000 652OCT000064000000 71
01333 0 00060 0 00000 653HTR0,0,48 64
01334+000066000000 654OCT000066000000 53
01335 0 00174 0 00000 655HTR0,0,124 66
01336+000067000000 656OCT000067000000 53
01337 0 00174 0 00000 657HTR0,0,124 67
01340+000070000000 658OCT000070000000 92
01341 0 00047 0 00000 659HTR0,0,39 70
01342+000072000000 660OCT000072000000 53
01343−0 00174 0 00065 661MZE53,0,124 72
01344+000072000000 662OCT000072000000 60
01345 0 00056 0 00000 663HTR0,0,46 72
01346+000073000000 664OCT000073000000 53
01347 0 00174 0 00000 665HTR0,0,124 73
01350+000074000000 666OCT000074000000 56
01351 0 00112 0 00000 667HTR0,0,74 74
01352+000103000000 668OCT000103000000 67
01353 0 00060 0 00000 669HTR0,0,48 103
01354+000106000000 670OCT000106000000 53
01355 0 00006 0 00000 671HTR0,0,6 106
01356+000107000000 672OCT000107000000 58
01357−0 00050 0 00072 673MZE58,0,40 107
01360+000107000000 674OCT000107000000 92
01361 0 00046 0 00000 675HTR0,0,38 107
01362+000116000000 676OCT000116000000 53
01363 0 00102 0 00000 677HTR0,0,66 116
01364+000123000000 678OCT000123000000 47
01365−0 00047 0 00057 679MZE47,0,39 123
01366+000123000000 680OCT000123000000 53
01367 0 00160 0 00000 681HTR0,0,112 123
01370+000124000000 682OCT000124000000 53
01371 0 00160 0 00000 683HTR0,0,112 124
01372+000132000000 684OCT000132000000 53
01373−0 00102 0 00065 685MZE53,0,66 132
01374+000132000000 686OCT000132000000 60
01375 0 00274 0 00000 687HTR0,0,188 132
01376+000140000000 688OCT000140000000 56
01377 0 00047 0 00000 689HTR0,0,39 140
01400+000141000000 690OCT000141000000 92
01401 0 00142 0 00000 691HTR0,0,98 141
01402+000150000000 692OCT000150000000 75
01403 0 00065 0 00000 693HTR0,0,53 150
01404+000160000000 694OCT000160000000 67
01405 0 00060 0 00000 695HTR0,0,48 160
01406+000161000000 696OCT000161000000 56
01407 0 00050 0 00000 697HTR0,0,40 161
01410+000173000000 698OCT000173000000 60
01411 0 00274 0 00000 699HTR0,0,188 173
01412+000216000000 700OCT000216000000 47
01413 0 00050 0 00000 701HTR0,0,40 216
01414+000222000000 702OCT000222000000 94
01415−0 00066 0 00136 703MZE94,0,54 222
01416+000222000000 704OCT000222000000 105
01417−0 00047 0 00151 705MZE105,0,39 222
01420+000222000000 706OCT000222000000 107
01421−0 00067 0 00153 707MZE107,0,55 222
01422+000222000000 708OCT000222000000 115
01423 0 00047 0 00000 709HTR0,0,39 222
01424+000223000000 710OCT000223000000 113
01425 0 00155 0 00000 711HTR0,0,109 223
01426+000227000000 712OCT000227000000 60
01427 0 00274 0 00000 713HTR0,0,188 227
01430+000230000000 714OCT000230000000 101
01431 0 00047 0 00000 715HTR0,0,39 230
01432+000241000000 716OCT000241000000 107
01433−0 00070 0 00153 717MZE107,0,56 241
01434+000241000000 718OCT000241000000 115
01435 0 00046 0 00000 719HTR0,0,38 241
01436+000245000000 720OCT000245000000 9
01437−0 00147 0 00011 721MZE9,0,103 245
01440+000245000000 722OCT000245000000 105
01441 0 00046 0 00000 723HTR0,0,38 245
01442+000246000000 724OCT000246000000 92
01443 0 00047 0 00000 725HTR0,0,39 246
01444+003672000000 726OCT003672000000 115
01445 0 00222 0 00000 727HTR0,0,146 3672
01446+000247000000 728OCT000247000000 101
01447 0 00046 0 00000 729HTR0,0,38 247
01450+000252000000 730OCT000252000000 60
01451−0 00274 0 00074 731MZE60,0,188 252
01452+000252000000 732OCT000252000000 105
01453 0 00244 0 00000 733HTR0,0,164 252
01454+000255000000 734OCT000255000000 103
01455 0 00156 0 00000 735HTR0,0,110 255
01456+000256000000 736OCT000256000000 73
01457 0 00060 0 00000 737HTR0,0,48 256
01460+000260000000 738OCT000260000000 96
01461−0 00046 0 00140 739MZE96,0,38 260
01462+000260000000 740OCT000260000000 98
01463 0 00046 0 00000 741HTR0,0,38 260
01464+000263000000 742OCT000263000000 67
01465 0 00060 0 00000 743HTR0,0,48 263
01466+000264000000 744OCT000264000000 7
01467 0 00150 0 00000 745HTR0,0,104 264
01470+000270000000 746OCT000270000000 56
01471 0 00017 0 00000 747HTR0,0,15 270
01472+000277000000 748OCT000277000000 92
01473−0 00046 0 00134 749MZE92,0,38 277
01474+000277000000 750OCT000277000000 113
01475 0 00037 0 00000 751HTR0,0,31 277
01476+000301000000 752OCT000301000000 67
01477 0 00247 0 00000 753HTR0,0,167 301
01500+003730000000 754OCT003730000000 115
01501 0 00151 0 00000 755HTR0,0,105 3730
01502+000303000000 756OCT000303000000 73
01503 0 00124 0 00000 757HTR0,0,84 303
01504+000305000000 758OCT000305000000 56
01505−0 00047 0 00070 759MZE56,0,39 305
01506+000305000000 760OCT000305000000 60
01507 0 00274 0 00000 761HTR0,0,188 305
01510+000311000000 762OCT000311000000 9
01511 0 00152 0 00000 763HTR0,0,106 311
01512+000312000000 764OCT000312000000 113
01513 0 00245 0 00000 765HTR0,0,165 312
01514+000314000000 766OCT000314000000 90
01515 0 00167 0 00000 767HTR0,0,119 314
01516+000321000000 768OCT000321000000 90
01517 0 00217 0 00000 769HTR0,0,143 321
01520+000327000000 770OCT000327000000 86
01521 0 00133 0 00000 771HTR0,0,91 327
01522+000330000000 772OCT000330000000 90
01523 0 00141 0 00000 773HTR0,0,97 330
01524+000331000000 774OCT000331000000 58
01525 0 00164 0 00000 775HTR0,0,116 331
01526+000334000000 776OCT000334000000 56
01527−0 00050 0 00070 777MZE56,0,40 334
01530+000334000000 778OCT000334000000 60
01531 0 00274 0 00000 779HTR0,0,188 334
01532+000336000000 780OCT000336000000 86
01533 0 00213 0 00000 781HTR0,0,139 336
01534+000340000000 782OCT000340000000 58
01535 0 00206 0 00000 783HTR0,0,134 340
01536+000341000000 784OCT000341000000 96
01537−0 00040 0 00140 785MZE96,0,32 341
01540+000341000000 786OCT000341000000 67
01541−0 00060 0 00103 787MZE67,0,48 341
01542+000341000000 788OCT000341000000 98
01543 0 00040 0 00000 789HTR0,0,32 341
01544+000345000000 790OCT000345000000 5
01545 0 00242 0 00000 791HTR0,0,162 345
01546+000350000000 792OCT000350000000 58
01547−0 00113 0 00072 793MZE58,0,75 350
01550+000350000000 794OCT000350000000 62
01551 0 00125 0 00000 795HTR0,0,85 350
01552+000352000000 796OCT000352000000 113
01553 0 00041 0 00000 797HTR0,0,33 352
01554+000354000000 798OCT000354000000 64
01555 0 00235 0 00000 799HTR0,0,157 354
01556+000356000000 800OCT000356000000 92
01557 0 00143 0 00000 801HTR0,0,99 356
01560+000357000000 802OCT000357000000 58
01561 0 00165 0 00000 803HTR0,0,117 357
01562+000363000000 804OCT000363000000 60
01563 0 00274 0 00000 805HTR0,0,188 363
01564+000366000000 806OCT000366000000 58
01565 0 00207 0 00000 807HTR0,0,135 366
01566+000375000000 808OCT000375000000 58
01567 0 00114 0 00000 809HTR0,0,76 375
01570+000377000000 810OCT000377000000 56
01571−0 00274 0 00070 811MZE56,0,188 377
01572+000377000000 812OCT000377000000 115
01573 0 00042 0 00000 813HTR0,0,34 377
01574+000410000000 814OCT000410000000 58
01575−0 00115 0 00072 815MZE58,0,77 410
01576+000410000000 816OCT000410000000 96
01577 0 00153 0 00000 817HTR0,0,107 410
01600+000417000000 818OCT000417000000 58
01601 0 00210 0 00000 819HTR0,0,136 417
01602+000424000000 820OCT000424000000 56
01603 0 00274 0 00000 821HTR0,0,188 424
01604+000425000000 822OCT000425000000 67
01605−0 00036 0 00103 823MZE67,0,30 425
01606+000425000000 824OCT000425000000 73
01607−0 00267 0 00111 825MZE73,0,183 425
01610+000425000000 826OCT000425000000 98
01611 0 00046 0 00000 827HTR0,0,38 425
01612+000427000000 828OCT000427000000 96
01613 0 00223 0 00000 829HTR0,0,147 427
01614+000430000000 830OCT000430000000 58
01615 0 00116 0 00000 831HTR0,0,78 430
01616+000434000000 832OCT000434000000 62
01617 0 00023 0 00000 833HTR0,0,19 434
01620+000437000000 834OCT000437000000 84
01621 0 00134 0 00000 835HTR0,0,92 437
01622+000441000000 836OCT000441000000 98
01623 0 00044 0 00000 837HTR0,0,36 441
01624+000442000000 838OCT000442000000 60
01625−0 00274 0 00074 839MZE60,0,188 442
01626+000442000000 840OCT000442000000 96
01627 0 00047 0 00000 841HTR0,0,39 442
01630+000443000000 842OCT000443000000 103
01631 0 00243 0 00000 843HTR0,0,163 443
01632+000446000000 844OCT000446000000 58
01633 0 00117 0 00000 845HTR0,0,79 446
01634+000454000000 846OCT000454000000 62
01635−0 00211 0 00076 847MZE62,0,137 454
01636+000454000000 848OCT000454000000 64
01637 0 00024 0 00000 849HTR0,0,20 454
01640+000460000000 850OCT000460000000 98
01641 0 00154 0 00000 851HTR0,0,108 460
01642+000465000000 852OCT000465000000 96
01643 0 00046 0 00000 853HTR0,0,38 465
01644+000500000000 854OCT000500000000 96
01645 0 00047 0 00000 855HTR0,0,39 500
01646+000510000000 856OCT000510000000 56
01647−0 00120 0 00070 857MZE56,0,80 510
01650+000510000000 858OCT000510000000 73
01651 0 00270 0 00000 859HTR0,0,184 510
01652+000517000000 860OCT000517000000 62
01653 0 00126 0 00000 861HTR0,0,86 517
01654+000520000000 862OCT000520000000 56
01655−0 00121 0 00070 863MZE56,0,81 520
01656+000520000000 864OCT000520000000 113
01657 0 00243 0 00000 865HTR0,0,163 520
01660+000521000000 866OCT000521000000 60
01661 0 00274 0 00000 867HTR0,0,188 521
01662+000524000000 868OCT000524000000 62
01663 0 00166 0 00000 869HTR0,0,118 524
01664+000533000000 870OCT000533000000 92
01665 0 00033 0 00000 871HTR0,0,27 533
01666+000534000000 872OCT000534000000 62
01667 0 00212 0 00000 873HTR0,0,138 534
01670+000544000000 874OCT000544000000 60
01671 0 00274 0 00000 875HTR0,0,188 544
01672+000546000000 876OCT000546000000 2
01673 0 00043 0 00000 877HTR0,0,35 546
01674+000553000000 878OCT000553000000 62
01675 0 00127 0 00000 879HTR0,0,87 553
01676+000556000000 880OCT000556000000 64
01677 0 00237 0 00000 881HTR0,0,159 556
01700+000562000000 882OCT000562000000 92
01701−0 00144 0 00134 883MZE92,0,100 562
01702+000562000000 884OCT000562000000 113
01703 0 00045 0 00000 885HTR0,0,37 562
01704+000604000000 886OCT000604000000 92
01705 0 00034 0 00000 887HTR0,0,28 604
01706+000607000000 888OCT000607000000 60
01707 0 00047 0 00000 889HTR0,0,39 607
01710+000613000000 890OCT000613000000 56
01711 0 00274 0 00000 891HTR0,0,188 613
01712+000624000000 892OCT000624000000 98
01713 0 00224 0 00000 893HTR0,0,148 624
01714+000627000000 894OCT000627000000 60
01715 0 00050 0 00000 895HTR0,0,40 627
01716+000643000000 896OCT000643000000 64
01717 0 00025 0 00000 897HTR0,0,21 643
01720+000654000000 898OCT000654000000 56
01721 0 00274 0 00000 899HTR0,0,188 654
01722+000661000000 900OCT000661000000 75
01723 0 00246 0 00000 901HTR0,0,166 661
01724+000674000000 902OCT000674000000 60
01725 0 00122 0 00000 903HTR0,0,82 674
01726+000707000000 904OCT000707000000 64
01727 0 00024 0 00000 905HTR0,0,20 707
01730+000711000000 906OCT000711000000 62
01731 0 00236 0 00000 907HTR0,0,158 711
01732+000716000000 908OCT000716000000 62
01733 0 00130 0 00000 909HTR0,0,88 716
01734+000720000000 910OCT000720000000 60
01735 0 00123 0 00000 911HTR0,0,83 720
01736+000734000000 912OCT000734000000 45
01737 0 00047 0 00000 913HTR0,0,39 734
01740+000747000000 914OCT000747000000 56
01741 0 00020 0 00000 915HTR0,0,16 747
01742+000750000000 916OCT000750000000 56
01743 0 00020 0 00000 917HTR0,0,16 750
01744+000756000000 918OCT000756000000 64
01745 0 00026 0 00000 919HTR0,0,22 756
01746+000762000000 920OCT000762000000 75
01747 0 00251 0 00000 921HTR0,0,169 762
01750+000765000000 922OCT000765000000 92
01751 0 00145 0 00000 923HTR0,0,101 765
01752+001000000000 924OCT001000000000 56
01753 0 00274 0 00000 925HTR0,0,188 1000
01754+001001000000 926OCT001001000000 24
01755 0 00157 0 00000 927HTR0,0,111 1001
01756+001006000000 928OCT001006000000 45
01757 0 00055 0 00000 929HTR0,0,45 1006
01760+001022000000 930OCT001022000000 75
01761 0 00246 0 00000 931HTR0,0,166 1022
01762+001023000000 932OCT001023000000 64
01763 0 00131 0 00000 933HTR0,0,89 1023
01764+001031000000 934OCT001031000000 24
01765 0 00075 0 00000 935HTR0,0,61 1031
01766+001041000000 936OCT001041000000 64
01767 0 00027 0 00000 937HTR0,0,23 1041
01770+001076000000 938OCT001076000000 45
01771 0 00253 0 00000 939HTR0,0,171 1076
01772+001135000000 940OCT001135000000 62
01773−0 00057 0 00076 941MZE62,0,47 1135
01774+001135000000 942OCT001135000000 92
01775 0 00146 0 00000 943HTR0,0,102 1135
01776+001141000000 944OCT001141000000 45
01777 0 00050 0 00000 945HTR0,0,40 1141
02000+001160000000 946OCT001160000000 22
02001 0 00277 0 00000 947HTR0,0,191 1160
02002+001175000000 948OCT001175000000 62
02003 0 00132 0 00000 949HTR0,0,90 1175
02004+001211000000 950OCT001211000000 75
02005 0 00214 0 00000 951HTR0,0,140 1211
02006+001221000000 952OCT001221000000 22
02007−0 00076 0 00026 953MZE22,0,62 1221
02010+001221000000 954OCT001221000000 75
02011 0 00215 0 00000 955HTR0,0,141 1221
02012+001231000000 956OCT001231000000 45
02013 0 00063 0 00000 957HTR0,0,51 1231
02014+001234000000 958OCT001234000000 62
02015 0 00271 0 00000 959HTR0,0,185 1234
02016+001240000000 960OCT001240000000 75
02017 0 00135 0 00000 961HTR0,0,93 1240
02020+001261000000 962OCT001261000000 62
02021 0 00272 0 00000 963HTR0,0,186 1261
02022+001274000000 964OCT001274000000 22
02023 0 00071 0 00000 965HTR0,0,57 1274
02024+001307000000 966OCT001307000000 22
02025 0 00252 0 00000 967HTR0,0,170 1307
02026+001320000000 968OCT001320000000 56
02027 0 00274 0 00000 969HTR0,0,188 1320
02030+001341000000 970OCT001341000000 92
02031 0 00220 0 00000 971HTR0,0,144 1341
02032+001345000000 972OCT001345000000 22
02033 0 00072 0 00000 973HTR0,0,58 1345
02034+001347000000 974OCT001347000000 92
02035 0 00221 0 00000 975HTR0,0,145 1347
02036+001377000000 976OCT001377000000 22
02037 0 00073 0 00000 977HTR0,0,59 1377
02040+001444000000 978OCT001444000000 22
02041 0 00074 0 00000 979HTR0,0,60 1444
02042+001531000000 980OCT001531000000 56
02043 0 00274 0 00000 981HTR0,0,188 1531
02044+001634000000 982OCT001634000000 75
02045 0 00251 0 00000 983HTR0,0,169 1634
02046+001767000000 984OCT001767000000 56
02047 0 00274 0 00000 985HTR0,0,188 1767
02050+001777000000 986OCT001777000000 75
02051 0 00251 0 00000 987HTR0,0,169 1777
02052+002230000000 988OCT002230000000 75
02053 0 00273 0 00000 989HTR0,0,187 2230
02054+002155000000 990OCT002155000000 56
02055 0 00021 0 00000 991HTR0,0,17 2155
02056+002163000000 992OCT002163000000 56
02057 0 00022 0 00000 993HTR0,0,18 2163
02060+002655000000 994OCT002655000000 75
02061 0 00031 0 00000 995HTR0,0,25 2655
02062+003001000000 996OCT003001000000 88
02063 0 00240 0 00000 997HTR0,0,160 3001
02064+003064000000 998OCT003064000000 65
02065 0 00250 0 00000 999HTR0,0,168 3064
02066+003143000000 1000OCT003143000000 65
02067 0 00060 0 00000 1001HTR0,0,48 3143
02070+003156000000 1002OCT003156000000 65
02071 0 00030 0 00000 1003HTR0,0,24 3156
02072+003253000000 1004OCT003253000000 88
02073 0 00241 0 00000 1005HTR0,0,161 3253
02074+003540000000 1006OCT003540000000 8B
02075 0 00136 0 00000 1007HTR0,0,94 3540
02076+004006000000 1008OCT004006000000 51
02077 0 00053 0 00000 1009HTR0,0,43 4006
02100+004007000000 1010OCT004007000000 51
02101 0 00053 0 00000 1011HTR0,0,43 4007
02102+004026000000 1012OCT004026000000 51
02103 0 00103 0 00000 1013HTR0,0,67 4026
02104+004031000000 1014OCT004031000000 75
02105 0 00251 0 00000 1015HTR0,0,169 4031
02106+004035000000 1016OCT004035000000 51
02107 0 00200 0 00000 1017HTR0,0,128 4035
02110+004040000000 1018OCT004040000000 51
02111 0 00007 0 00000 1019HTR0,0,7 4040
02112+004054000000 1020OCT004054000000 51
02113 0 00104 0 00000 1021HTR0,0,68 4054
02114+004124000000 1022OCT004124000000 51
02115 0 00256 0 00000 1023HTR0,0,174 4124
02116+004155000000 1024OCT004155000000 34
02117 0 00105 0 00000 1025HTR0,0,69 4155
02120+004157000000 1026OCT004157000000 51
02121 0 00257 0 00000 1027HTR0,0,175 4157
02122+004160000000 1028OCT004160000000 34
02123 0 00010 0 00000 1029HTR0,0,8 4160
02124+004161000000 1030OCT004161000000 34
02125 0 00201 0 00000 1031HTR0,0,129 4I61
02126+004303000000 1032OCT004303000000 75
02127 0 00251 0 00000 1033HTR0,0,169 4303
02130+004307000000 1034OCT004307000000 51
02131 0 00064 0 00000 1035HTR0,0,52 430I
02132+004417000000 1036OCT004417000000 88
02133 0 00171 0 00000 1037HTR0,0,121 4417
02134+004405000000 1038OCT004405000000 34
02135 0 00260 0 00000 1039HTR0,0,176 4405
02136+004453000000 1040OCT004453000000 88
02137 0 00137 0 00000 1041HTR0,0,95 4453
02140+004533000000 1042OCT004533000000 51
02141 0 00261 0 00000 1043HTR0,0,177 4533
02142+004570000000 1044OCT004570000000 34
02143 0 00061 0 00000 1045HTR0,0,49 4570
02144+004623000000 1046OCT004623000000 51
02145 0 00254 0 00000 1047HTR0,0,172 4623
02146+004666000000 1048OCT004666000000 51
02147 0 00050 0 00000 1049HTR0,0,40 4666
02150+005037000000 1050OCT005037000000 34
02151 0 00011 0 00000 1051HTR0,0,9 5037
02152+005232000000 1052OCT005232000000 34
02153 0 00255 0 00000 1053HTR0,0,173 5232
02154+005273000000 1054OCT005273000000 34
02155 0 00275 0 00000 1055HTR0,0,189 5273
02156+005560000000 1056OCT005560000000 34
02157 0 00051 0 00000 1057HTR0,0,41 5560
02160+005721000000 1058OCT005721000000 27
02161 0 00262 0 00000 1059HTR0,0,178 5721
02162+005742000000 1060OCT005742000000 27
02163 0 00231 0 00000 1061HTR0,0,153 5742
02164+005763000000 1062OCT005763000000 27
02165 0 00231 0 00000 1063HTR0,0,153 5763
02166+005764000000 1064OCT005764000000 27
02167 0 00231 0 00000 1065HTR0,0,153 5764
02170+005773000000 1066OCT005773000000 51
02171 0 00232 0 00000 1067HTR0,0,154 5773
02172+006004000000 1068OCT006004000000 32
02173 0 00225 0 00000 1069HTR0,0,149 6004
02174+006044000000 1070OCT006044000000 27
02175 0 00012 0 00000 1071HTR0,0,10 6044
02176+006063000000 1072OCT006063000000 32
02177 0 00275 0 00000 1073HTR0,0,189 6063
02200+006065000000 1074OCT006065000000 27
02201 0 00013 0 00000 1075HTR0,0,11 6065
02202+006234000000 1076OCT006234000000 51
02203 0 00014 0 00000 1077HTR0,0,12 6234
02204+006253000000 1078OCT006253000000 32
02205 0 00263 0 00000 1079HTR0,0,179 6253
02206+006256000000 1080OCT006256000000 32
02207 0 00263 0 00000 1081HTR0,0,179 6256
02210+006353000000 1082OCT006353000000 51
02211 0 00233 0 00000 1083HTR0,0,155 6353
02212+006357000000 1084OCT006357000000 29
02213 0 00050 0 00000 1085HTR0,0,40 6357
02214+006373000000 1086OCT006373000000 27
02215 0 00227 0 00000 1087HTR0,0,151 6373
02216+006376000000 1088OCT006376000000 27
02217 0 00230 0 00000 1089HTR0,0,152 6376
02220+006432000000 1090OCT006432000000 27
02221 0 00015 0 00000 1091HTR0,0,13 6432
02222+006475000000 1092OCT006475000000 32
02223 0 00275 0 00000 1093HTR0,0,189 6475
02224+006534000000 1094OCT006534000000 27
02225 0 00012 0 00000 1095HTR0,0,10 6534
02226+006635000000 1096OCT006635000000 27
02227 0 00264 0 00000 1097HTR0,0,180 6635
02230+006710000000 1098OCT006710000000 27
02231 0 00226 0 00000 1099HTR0,0,150 6710
02232+006736000000 1100OCT006736000000 41
02233 0 00161 0 00000 1101HTR0,0,113 6736
02234+006737000000 1102OCT006737000000 41
02235 0 00161 0 00000 1103HTR0,0,113 6737
02236+006744000000 1104OCT006744000000 41
02237 0 00106 0 00000 1105HTR0,0,70 6744
02240+006762000000 1106OCT006762000000 43
02241 0 00050 0 00000 1107HTR0,0,40 6762
02242+006765000000 1108OCT006765000000 37
02243 0 00054 0 00000 1109HTR0,0,44 6765
02244+006767000000 1110OCT006767000000 39
02245 0 00107 0 00000 1111HTR0,0,71 6767
02246+007023000000 1112OCT007023000000 27
02247 0 00265 0 00000 1113HTR0,0,181 7023
02250+007027000000 1114OCT007027000000 37
02251 0 00050 0 00000 1115HTR0,0,40 7027
02252+007045000000 1116OCT007045000000 43
02253 0 00016 0 00000 1117HTR0,0,14 7045
02254+007052000000 1118OCT007052000000 37
02255 0 00202 0 00000 1119HTR0,0,130 7052
02256+007053000000 1120OCT007053000000 37
02257 0 00172 0 00000 1121HTR0,0,122 7053
02260+007056000000 1122OCT007056000000 37
02261 0 00202 0 00000 1123HTR0,0,130 7056
02262+007057000000 1124OCT007057000000 37
02263 0 00172 0 00000 1125HTR0,0,122 7057
02264+007070000000 1126OCT007070000000 37
02265 0 00110 0 00000 1127HTR0,0,72 7070
02266+007073000000 1128OCT007073000000 39
02267 0 00266 0 00000 1129HTR0,0,182 7073
02270+007075000000 1130OCT007075000000 27
02271 0 00175 0 00000 1131HTR0,0,125 7075
02272+007076000000 1132OCT007076000000 27
02273 0 00175 0 00000 1133HTR0,0,125 7076
02274+007100000000 1134OCT007100000000 55
02275 0 00035 0 00000 1135HTR0,0,29 7100
02276+007103000000 1136OCT007103000000 27
02277 0 00203 0 00000 1137HTR0,0,131 7103
02300+007110000000 1138OCT007110000000 43
02301 0 00234 0 00000 1139HTR0,0,156 7110
02302+007112000000 1140OCT007112000000 27
02303 0 00162 0 00000 1141HTR0,0,114 7112
02304+007123000000 1142OCT007123000000 27
02305 0 00111 0 00000 1143HTR0,0,73 7123
02306+007135000000 1144OCT007135000000 27
02307 0 00204 0 00000 1145HTR0,0,132 7135
02310+007143000000 1146OCT007143000000 55
02311 0 00274 0 00000 1147HTR0,0,188 7143
02312+007250000000 1148OCT007250000000 27
02313 0 00173 0 00000 1149HTR0,0,123 7250
02314+007303000000 1150OCT007303000000 41
02315 0 00016 0 00000 1151HTR0,0,14 7303
02316+007320000000 1152OCT007320000000 27 DO NEST
02317 0 00005 0 00000 1153HTR0,0,5 7320 DO NESTING
02320+007454000000 1154OCT007454000000 75
02321 0 00032 0 00000 1155HTR0,0,26 7454
02322+007555000000 1156OCT007555000000 21
02323 0 00177 0 00000 1157HTR0,0,127 7555
02324+007563000000 1158OCT007563000000 21
02325 0 00176 0 00000 1159HTR0,0,126 7563
02326+007620000000 1160OCT007620000000 21
02327 0 00276 0 00000 1161HTR0,0,190 7620
02330+007627000000 1162OCT007627000000 21
02331 0 00100 0 00000 1163HTR0,0,64 7627
02332+007632000000 1164OCT007632000000 36
02333 0 00011 0 00000 1165HTR0,0,9 7632
02334+007720000000 1166OCT007720000000 21
02335 0 00077 0 00000 1167HTR0,0,63 7720
02336+007751000000 1168OCT007751000000 21
02337−0 00300 0 00026 1169MZE22,0,192 7751
02340+007751000000 1170OCT007751000000 36
02341 0 00062 0 00000 1171HTR0,0,50 7751
02342+007760000000 1172OCT007760000000 30
02343 0 00052 0 00000 1173HTR0,0,42 7760
02344+016004000000 1174OCT016004000000 75
02345 0 00032 0 00000 1175HTR0,0,26 16004
02346 0 01042 0 00000 1176ERLIST HTR0,0,ERLIST−1−LOCREC DEC HAS NUMBER OF ENTRIES SO FAR
03534 1177ORG1884 WAS 83534
03534−0 53400 4 00313 1178ENDPCH LXDDRUM,4
03535 0 76200 0 00304 1179RDR4
03536 0 46000 0 00313 1180LDADRUM
03537 0 02000 0 00000 1181TRA0
03540 606060606060 1182MACEN BCD7␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
03541 606060606060 1183
03542 606060606060 1184
03543 606060606060 1185
03544 606060606060 1186
03545 606060606060 1187
03546 606060606060 1188
03547 475125626260 1189BCD PRESS␣START␣IF␣YOU␣WISH␣TO␣RE-RUN␣PROBLEM␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
03550 626321516360 1190
03551 312660704664 1191
03552 606631623060 1192
03553 634660512540 1193
03554 516445604751 1194
03555 462243254460 1195
03556 606060606060 1196
03557 606060606060 1197
03560 606060606060 1198
03561 606060606060 1199BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
03562 606060606060 1200
03563 606060606060 1201
03564 606060606060 1202
03565 606060606060 1203
03566 606060606060 1204
03567 606060606060 1205
03570 606060606060 1206
03571 606060606060 1207
03572 606060606060 1208
03573 465160422570 1209BCD OR␣KEY␣IN␣076000␣000141␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
03574 603145600007 1210
03575 060000006000 1211
03576 000001040160 1212
03577 606060606060 1213
03600 606060606060 1214
03601 606060606060 1215
03602 606060606060 1216
03603 606060606060 1217
03604 606060606060 1218
03605 606060606060 1219BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
03606 606060606060 1220
03607 606060606060 1221
03610 606060606060 1222
03611 606060606060 1223
03612 606060606060 1224
03613 606060606060 1225
03614 606060606060 1226
03615 606060606060 1227
03616 606060606060 1228
03617 214524604751 1229BCD AND␣PRESS␣START␣IF␣YOU␣WISH␣TO␣CONTINUE␣BATCH␣COMPILING␣␣␣␣␣
03620 256262606263 1230
03621 215163603126 1231
03622 607046646066 1232
03623 316230606346 1233
03624 602346456331 1234
03625 456425602221 1235
03626 632330602346 1236
03627 444731433145 1237
03630 276060606060 1238
03631 0 00000 0 00000 1239XZY
1240EXPOSE EXTERNAL SYMBOLS RPC
1241 HED
00740 1242PRINT SYNE$PRINT
00272 1243SPEND SYNE$SPEND
01257 1244ERAS SYNE$ERAS
01232 1245ZERO SYNE$ZERO
00312 1246PRNT4 SYNE$PRNT4
00311 1247PRNT2 SYNE$PRNT2
00316 1248HTR4 SYNE$HTR4
77777 1249LIST SYNE$LIST
00530 1250SYM SYNE$SYM
00505 1251FX4PR SYNE$FX4PR
00137 1252LXDA SYNE$LXDA
00266 1253DONE SYNE$DONE
1254WST10,1