1 2 * S D S F O R T R A N I I R U N T I M E 3 * 4 * D E C E M B E R O , 1 O 6 3 5 * 6 * 7 * PUNCH OUT RUNTIME FROM 1 TO 1,T 1, TO 15T. 8 * AND FROM 250 TO FOLLONING ADDRESS: D 00002674 9 PUNCH2 EQU LAST 10 * 11 * 12 * 00001 13 BORG 1 00001 0 01 00365 14 BRU SYSINI SYSTEM INITIALIZE 00076 15 BORG 76 00076 00000001 16 FPONE DEC 1 00077 20000000 17 TAGBIT OCT 20000000 TAG BIT 18 * 19 * P R O G R A M M E D O P E R A T O R S 20 * 00100 0 01 01212 21 BRU XSDPOP 100 FIXED SET UF DUMMY 00101 0 01 01214 22 BRU FSDPOP 101 FLBATING SETUP DUMMY 00102 0 01 00102 23 BRU * 102 (SKR - O10) 00103 0 01 00103 24 BRU * 103 (SKE - O10) 00104 0 01 01014 25 BRU XSTPOP 104 FIX AND STORE 00105 0 01 01023 26 BRU FSTPOP 105 FLOAT AND STORE 00106 0 01 00106 27 BRU * 106 (XMA - O10) 00107 0 01 01373 28 BRU STDPOP 107 STORE DOUBLE PRECISION 00110 0 01 01151 29 BRU DOXPOP 110 DO FIXED 00111 0 01 01167 30 BRU DOFPOP 111 DO FLOATING 00112 0 01 01316 31 BRU AGXPOP 112 ASSIGNED GO TO FIXED 00113 0 01 01314 32 BRU AGFPOP 113 ASSIGNED GO TO FLOATING 00114 0 01 01237 33 BRU XFAPOP 114 FIXED FIRST ARGUMENT 00115 0 01 01234 34 BRU FFAPOP 11S FLOATING FIRST ARGUMENT 00116 0 01 01255 35 BRU XNAPOP 116 FIXED NEXT ARGUMENT 00117 0 01 01252 36 BRU FNAPOP 11T FLOATING NEXT ARGUMENT 00120 0 01 01332 37 BRU XIOPOP 120 FIXED INPUT/OUTPUT 00121 0 01 01334 38 BRU FIOPOP 121 FLOATING INPUT/OUT *UT 00122 0 01 01072 39 BRU LTFPOP 122 LBAD THEN FLAT 00123 0 01 01000 40 BRU LTXPOP 123 LBAD THEN FIX 00124 0 01 00124 41 BRU * 124 (MUL + O1D) 00125 0 01 01362 42 BRU LDPPOP 125 LOAD DOUBLE PRECISION 00126 0 01 01105 43 BRU FTAPOP 126 FLOAT THEN ADD 00127 0 01 00127 44 BRU * 12T (DIY - 910) 00130 0 01 00130 45 BRU * 130 (SKB - 910) 00131 0 01 00423 46 BRU FLAPOP 131 FLOATING ADD 00132 0 01 01115 47 BRU FTSPOP 132 FLOAT THEN SUBTRACT 00133 0 01 00133 48 BRU * 133 IADM 10) 00134 0 01 00134 49 BRU * 134 (CA( + O1) 00135 0 01 00571 50 BRU FLSPOP 135 FLOATING SUBTRACT 00136 0 01 01127 51 BRU FTMPOP 136 FLOAT THEN MULTIPLY 00137 0 01 00137 52 BRU * 13T (CXA - 910) 00140 0 01 01005 53 BRU XMPPOP 140 FIXED MULTIPLY 00141 0 01 00600 54 BRU FLMPOP 141 FLOATING MULTIPLY 00142 0 01 01137 55 BRU FTDPOP 142 FLOAT THEN DIVIDE 00143 0 01 00143 56 BRU * 143 (STE - 910) 00144 0 01 01011 57 BRU XDVPOP 144 FIXED DIVIDE 00145 0 01 00647 58 BRU FLDPOP 145 FLOATING DIVIDE 00146 0 01 00146 59 BRU * 146 (CHA - 910) 00147 0 01 00714 60 BRU FLNPOP 147 FLOATING NEGATE 00150 0 01 01305 61 BRU ALXPOP 150 ASSIQN LABEL TO FIXED 00151 0 01 01303 62 BRU ALFPOP 151 ASSIQN LABEL TO FLOATING 00152 0 01 00152 63 BRU * 152 (LDE - 91O) 00153 0 01 01416 64 BRU DPSPOP 153 DOUBLE PRECISION SUBTRACT 00154 0 01 01406 65 BRU DPAPOP 154 DOUBLE PRECISION ADD 00155 0 01 00747 66 BRU DPMPOP 155 DOUBLE PRECISION MULTIPLY 00156 0 01 00156 67 BRU * 156 (CBX - 910) 00157 0 01 00157 68 BRU * 157 (CXB - 910) 69 PAGE 00250 70 BORG 250 71 *DEC 24 00250 00000030 72 DEC24 DEC 24 73 *FOUR 00251 00000004 74 FOUR DEC 4 75 *S 14 BIT 00252 00001000 76 S14BIT OCT 1000 77 *LIVE SKS MOP 00253 0 40 20000 78 SKSMOP SKS 20000 20000 79 *FLOAT IND 00254 01000000 80 FLIND OCT 1000000 81 *END FIELD CHAR 00000255 82 ENDFLD EQU * 83 *CAR RETURN 00255 52000000 84 CARRET OCT 52000000 85 *CHAR 4 MASK 00256 00000077 86 CH4MSK OCT 77 00257 77777754 87 DEC -20 00260 00000052 88 OCT 00000052 89 *DEC 79 00261 00000117 90 DEC79 DEC 79 00262 00000203 91 DEC 131 92 *LIVE BRU MOP 00263 0 01 00000 93 BRUMOP BRU 0 00264 0 00 02217 94 HLT LNIOR LINE IN/OUT AND RETURN 95 *ERROR LINK 00265 0 00 00401 96 ERRLNK HLT ERROR ERROR 97 *FIX SPROG LINK 00266 0 00 01031 98 FIXL HLT FXBNDA FIX BANDA 99 *FLOAT SPROG LINK 00267 0 00 01075 100 FLOATL HLT FLOATA FLOAT A 101 *UNDEFINED LABEL 00270 0 43 40265 102 UNDEF BRM* ERRLNK ERRR LINK 00271 43212243 103 BCI 1,LABL 00272 0 01 00270 104 BRU UNDEF UNDEFINED LABEL 105 *COUNT TEST LINK 00273 0 00 00000 106 CNTTLN HLT 107 *ONE AND TAG BIT 00274 20000001 108 TAGONE OCT 20000001 00275 0 00 02166 109 HLT STIFOK STO IO CHAR IF OK 00276 0 00 02451 110 HLT DBLXMP DOUBLE FIXED MULT 00277 0 01 01534 111 BRU CNTTST COUNT TEST 112 *IO BUFFER 00300 113 IOBUF BSS 33 114 *END BUFFR 00000341 115 ENDBUF EQU * 116 *CHARACTERISTIC 00341 0 00 00000 117 CHARIS HLT 118 *WIDTH 00342 0 00 00000 119 WDTH HLT 120 *4 IF E OUT 00343 0 00 00000 121 4IFEOT HLT 122 *INPUT WORD 1 00344 0 00 00000 123 INWRD1 HLT 124 *INPUT WORD2 00345 0 00 00000 125 INWRD2 HLT 126 *END FIELD FLAG 00346 0 00 00000 127 ENDFFL HLT 128 *CENTRAL 1 00347 0 00 00000 129 CENRL1 HLT 130 *CENTRAL2 00350 0 00 00000 131 CENRL2 HLT 132 *THREE 00351 00000003 133 THREE DEC 3 134 *BLANK 00352 12000000 135 BLANK OCT 12000000 136 *PERI3D 00353 33000000 137 PERIOD BCI 1,.000 138 *LARGEST POS MANTISA 00000354 139 BIGP EQU * 140 *ALL BUT S 00354 37777777 141 ALBUTS OCT 37777777 142 *CHARIS UPPER POS LIMIT 00000355 143 OCT377 EQU * 144 *POS LIMIT 00355 00000377 145 OCT 00000377 146 *M ARG ADR 00356 0 00 00000 147 MARGAD HLT 148 *MINUS 5 00357 77777773 149 MINUS5 OCT 77777773 00360 43462124 150 BCI 1,LOAD 00361 31452712 151 OCT 31452712 00362 23464447 152 BCI 1,COMP 00363 43256325 153 BCI 1,LETE 00364 12121252 154 OCT 12121252 155 PAGE 156 *SYSTEM INITIALIZE 00365 0 46 00001 157 SYSINI CLA 00366 0 35 00075 158 STA SENSLW SENSE LIGHT WORD 00367 0 35 00017 159 STA OVFIND OVERFLOW IND 00370 0 02 20004 160 DIR 20004 00371 0 02 02641 161 TYPW 1,4 EOM 2641 00372 0 71 00357 162 LDX MINUS5 MINUS 5 00373 2 12 00365 163 Q1 MIW SYSINI,2 SYSTEM INITIALIZE 00374 0 41 00373 164 BRX Q1 $1 00375 0 02 14000 165 TOPW 14000 00376 0 00 00000 166 HLT 00377 2 20 10000 167 NOP 4096,2 10000 00400 0 01 03216 168 BRU MNPRST MAIN PROG START 169 *ERROR 00401 0 00 00000 170 ERROR HLT 00402 0 35 00415 171 STA Q2 $1 00403 0 76 02660 172 LDA NEGBEX NEG EXP BIT 00404 0 72 40401 173 SKA* ERROR ERROR 00405 0 76 02614 174 LDA NOPMOP LIV NOP MOP 00406 0 62 00415 175 XMA Q2 $1 00407 0 61 00401 176 MIN ERROR ERROR 00410 0 02 02641 177 TYPW 1,4 EOM 2641 00411 0 12 00421 178 MIW Q4 $3 00412 0 12 40401 179 MIW* ERROR ERROR 00413 0 12 00422 180 MIW Q5 $4 00414 0 02 14000 181 TOPW 00415 0 00 00000 182 Q2 HLT 00416 0 40 21000 183 Q3 BRTW 21000 00417 0 01 00416 184 BRU Q3 $2 00420 0 51 00401 185 BRR ERROR ERROR 00421 25515112 186 Q4 BCI 1,ERR 00422 12121252 187 Q5 OCT 12121252 00423 0 37 02677 188 FLAPOP STX XREG 00424 0 35 00012 189 STA TEMPA A,B NON ZERO 00425 0 46 00200 190 CXA 00426 0 36 00021 191 STB ZM B 00427 0 46 00122 192 STE 00430 0 37 00010 193 STX ZE SIGN EXTENDED EXP(A,B) 00431 0 55 02677 194 ADD XREG DOUBLE X 00432 0 46 00401 195 AXC 00433 0 77 40000 196 EAX* 0 PROCURE ARGUMENT ADDRESS 00434 2 50 00001 197 SKE 1,2 00435 0 01 00440 198 BRU Q5B 00436 0 46 30003 199 CLR M=ZERO 00437 0 01 00525 200 BRU FLAD 00440 0 50 00012 201 Q5B SKE TEMPA 00441 0 01 00444 202 BRU Q5A 00442 0 46 30003 203 CLR A,B=ZERO 00443 0 01 00461 204 BRU FLAC 00444 0 46 00200 205 Q5A CXA M NON ZERO 00445 2 75 00000 206 LDB 0,2 00446 0 46 00122 207 STE EXTEND SIGN OF EXP (4) 20S 00447 0 46 00600 208 XXA 00450 0 54 00010 209 SUB ZE EXP (M)-EXP(A) 00451 0 73 00026 210 SKG ONES 00452 0 01 00516 211 BRU FLAGM /A/ .GR. /M/ 00453 0 72 02644 212 SKA M770 /A/ .LE. /M/ 00454 0 76 02643 213 LDA 39D MAX SHIFT = 39 00455 0 62 00012 214 XMA TEMPA 00456 0 75 00021 215 LDB ZM 00457 0 66 40012 216 RSH* TEMPA ALIGN FRACTIONS 00460 0 46 00014 217 XAB 00461 0 53 00577 218 FLAC SKN FLAG FLAG NEGATIVE IFF FLS 00462 0 01 00471 219 BRU Q5C FLA 00463 0 16 00777 220 MRG 0777 FLS 00464 2 54 00000 221 SUB 0,2 00465 0 17 00777 222 EOR 0777 00466 0 46 00014 223 XAB 00467 2 56 00001 224 SUC 1,2 00470 0 01 00475 225 BRU FLAF 00471 0 46 00101 226 Q5C RCH 101 CLA(E) 00472 2 55 00000 227 ADD 0,2 00473 0 46 00014 228 XAB 00474 2 57 00001 229 ADC 1,2 00475 0 46 00122 230 FLAF STE 00476 0 40 20001 231 FLAOVT OVT 00477 0 01 00543 232 BRU OFSET RIGHT NORMALIZE 00500 0 67 10046 233 NOD 38 LEFT NORMALIZE 00501 0 72 00026 234 SKA ONES 00502 0 01 00504 235 BRU FLANZ 00503 2 46 00000 236 CLX 00504 0 46 00600 237 FLANZ XXA 00505 0 73 02663 238 SKG M2570 TEST FOR EXPONENT UNDERFLOW 00506 4 51 00506 239 FLAOF BRR FLAOF,4 00507 0 46 00600 240 FLAOK XXA 00510 2 46 00140 241 FLAX LDE 0,2 LDE,CLX 00511 0 37 00577 242 STX FLAG RESET FLA/FLS FLAG 00512 0 71 02677 243 LDX XREG 00513 0 40 20001 244 OVT 00514 0 01 00555 245 BRU OFLO 00515 0 51 00000 246 BRR 0 00516 0 46 01000 247 FLAGM CNA FORCE EXP DIFF POSITIVE 00517 0 72 02644 248 SKA M770 SKIP IF LESS THAN 64 00520 0 76 02643 249 LDA 39D 00521 2 71 00001 250 LDX 1,2 00522 0 46 00600 251 XXA 00523 2 66 00000 252 RSH 0,2 ALIGN FRACTIONS 00524 0 46 00102 253 RCH 102 00525 0 53 00577 254 FLAD SKN FLAG 00526 0 01 00536 255 BRU Q5D FLA 00527 0 62 00012 256 XMA TEMPA FLS 00530 0 46 00014 257 XAB 00531 0 62 00021 258 XMA ZM 00532 0 54 00021 259 SUB ZM 00533 0 46 00014 260 XAB 00534 0 56 00012 261 SUC TEMPA 00535 0 01 00475 262 BRU FLAF 00536 0 46 00014 263 Q5D XAB FLA 00537 0 55 00021 264 ADD ZM 00540 0 46 00014 265 XAB 00541 0 57 00012 266 ADC TEMPA 00542 0 01 00475 267 BRU FLAF 00543 0 66 00001 268 OFSET RSH 1 RIGHT NORMALIZE 00544 0 17 00025 269 EOR MINUS 00545 0 41 00510 270 BRX FLAX 00546 0 46 00600 271 XXA 00547 0 73 00355 272 SKG 255D CHECK FOR OVERFLOW 00550 0 01 00507 273 BRU FLAOK 00551 0 51 00506 274 BRR FLAOF 00552 0 76 00012 275 DIVOF LDA TEMPA 00553 2 17 00001 276 EOR 1,2 DETERMINE SIGN OF QUOTIENT 00554 0 01 00562 277 BRU Q5E OVERFLOW 00555 0 46 00122 278 OFLO STE 00556 0 41 00562 279 BRX Q5E OVERFLOW 00557 0 46 30003 280 CLR UNDERFLOW 00560 0 71 02677 281 LDX XREG 00561 0 51 00000 282 BRR 0 00562 0 71 00025 283 Q5E LDX SIGN SET OVERFLOW INDICATOR 00563 0 37 00017 284 STX OFFLAG 00564 0 17 00025 285 EOR MINUS 00565 0 66 00047 286 RSH 39 00566 0 17 00025 287 EOR MINUS 00567 0 77 00377 288 EAX 255 00570 0 01 00510 289 BRU FLAX 00571 0 35 00577 290 FLSPOP STA FLAG 00572 0 72 00025 291 SKA MINUS 00573 0 01 00423 292 BRU FLAPOP 00574 0 17 00026 293 EOR ONES 00575 0 62 00577 294 XMA FLAG 00576 0 01 00423 295 BRU FLAPOP 00577 0 00 00000 296 FLAG PZE 0 00600 0 37 02677 297 FLMPOP STX XREG 00601 0 35 00012 298 STA TEMPA AH 00602 0 46 00200 299 CXA 00603 0 46 00122 300 STE EXTEND EXP (A,B) 00604 0 37 00010 301 STX ZE 00605 0 46 00022 302 BXC 00606 0 67 20001 303 LCY 1 DOUBLE X 00607 0 46 00600 304 XXA 00610 0 77 40000 305 EAX* 0 00611 0 46 24002 306 LGR 2 FORCE + 00612 2 64 00001 307 MUL 1,2 00613 0 35 00021 308 STA ZM AL * MH 00614 2 76 00000 309 LDA 0,2 00615 0 46 00040 310 CXB 00616 0 46 00501 311 AXCE AXC(E) KENR 00617 0 46 00600 312 XXA EXTEND EXP (M) 00620 0 63 00010 313 ADM ZE AE+ME = EXP (BSSULT) 00621 0 46 00222 314 BXAC CXA, BXC 00622 0 46 24002 315 LGR 2 FORCE + 00623 0 64 00012 316 MUL TEMPA AH * ML 00624 0 55 00021 317 ADD ZM AH * ML + AL * MH 00625 0 64 02627 318 MUL TWO SCALE 00626 0 36 00021 319 STB ZM 00627 0 62 00012 320 XMA TEMPA 00630 2 64 00001 321 MUL 1,2 AH * MH 00631 0 46 00014 322 XAB 00632 0 55 00021 323 ADD ZM 00633 0 46 00014 324 XAB 00634 0 57 00012 325 ADC TEMPA 00635 0 71 00010 326 LDX ZE EXP (BSSULT) 00636 0 72 00354 327 SKA MAXPOS 00637 0 01 00730 328 BRU FLCOM ALL RIGHT TO NORMALIZE 00640 0 52 02672 329 SKB MLONES 00641 0 01 00730 330 BRU FLCOM NOT -1 OR 0 00642 0 50 00025 331 SKE MINUS SEPARATE -1 FROM 0 00643 0 01 00737 332 BRU FLMX 0, EXIT 00644 0 66 20001 333 RCY 1 -1, RIGHT NORMALIZE 00645 0 41 00730 334 BRX FLCOM 00646 0 01 00730 335 BRU FLCOM 00647 0 37 02677 336 FLDPOP STX XREG 00650 0 35 00012 337 STA TEMPA 00651 0 46 00200 338 CXA 00652 0 46 00122 339 STE EXTEND EXP (A,B) 00653 0 37 00010 340 STX ZE 00654 0 46 00022 341 BXC 00655 0 67 20001 342 LCY 1 (AH+AL)/(MH+ML)= 00656 0 75 00012 343 LDB TEMPA ((AH+AL)/MH)*(1-ML/MH)= 00657 0 46 00450 344 AXBA (Q+R/MH)*(1-ML/MH)= 00660 0 77 40000 345 EAX* 0 Q+(R-Q*ML)/MH 00661 0 66 00002 346 RSH 2 00662 2 65 00001 347 DIV 1,2 00663 0 40 20001 348 OVT 00664 0 01 00552 349 BRU DIVOF OVERFLOW IFF DIVISOR =0 00665 0 35 00021 350 STA ZM SINGLE PRECISION QUOTIENT=Q 00666 0 46 10012 351 BAC 00667 0 66 00001 352 RSH 1 00670 0 35 00012 353 STA TEMPA REMAINDER = R 00671 2 75 00000 354 LDB 0,2 00672 0 46 00200 355 CXA 00673 0 46 00122 356 STE EXTEND EXP (M) 00674 0 46 00600 357 XXA 00675 0 46 01000 358 CNA EXP(BSSULT)=EXP(A)+2-EXP(M) 00676 0 55 02627 359 ADD TWO 00677 0 63 00010 360 ADM ZE 00700 0 46 10012 361 BAC 00701 0 66 20002 362 RCY 2 00702 0 46 01000 363 CNA -ML 00703 0 64 00021 364 MUL ZM Q 00704 0 55 00012 365 ADD TEMPA R- Q*ML 00705 2 65 00001 366 DIV 1,2 (R-Q*ML)/MH 00706 0 64 02627 367 MUL TWO SCALE 00707 0 55 00021 368 ADD ZM Q+(R-Q*ML)/MH 00710 0 71 00010 369 LDX ZE EXP(BSSULT) 00711 0 72 00026 370 SKA ONES 00712 0 01 00730 371 BRU FLCOM 00713 0 01 00737 372 BRU FLMX 00714 0 37 02677 373 FLNPOP STX XREG 00715 0 52 02672 374 SKB MLONES 00716 0 01 00741 375 BRU FLNA LESS SIG. HALF NON ZERO 00717 0 46 01000 376 CNA 00720 0 50 00023 377 SKE ZERO 00721 0 72 02674 378 SKA QQQ1S 00722 0 51 00000 379 BRR 0 00723 0 46 00122 380 STE 00724 0 50 00025 381 SKE MINUS PLACE SIGN BIT IN B 00725 0 01 00730 382 BRU FLCOM 00726 0 66 20001 383 RCY 1 SIGN BIT TO A 00727 0 41 00731 384 BRX Q5F 00730 0 67 10004 385 FLCOM NOD 4 NORMALIZE RESULT 00731 0 46 00600 386 Q5F XXA 00732 0 73 00355 387 SKG 255D CHICK FOR EXPONENT 00733 0 73 02663 388 SKG M2570 OVERFLOW/UNDERFLOW 00734 0 01 00506 389 BRU FLAOF 00735 0 46 00600 390 XXA 00736 0 46 00140 391 FLNB LDE 00737 0 71 02677 392 FLMX LDX XREG 00740 0 51 00000 393 BRR 0 00741 0 46 00122 394 FLNA STE 00742 0 46 00014 395 XAB 00743 0 46 01000 396 CNA 00744 0 46 00014 397 XAB 00745 0 17 00026 398 EOR ONES 00746 0 01 00736 399 BRU FLNB 400 *DPM POP 00747 0 37 02677 401 DPMPOP STX XREG 00750 0 77 40000 402 EAX* 0 00751 0 35 00011 403 STA XM 00752 0 46 10012 404 BAC 00753 0 66 20002 405 RCY 2 00754 2 64 00001 406 MUL 1,2 00755 0 35 00021 407 STA ZM 00756 2 76 00000 408 LDA 0,2 00757 0 46 24002 409 LGR 2 00760 0 64 00011 410 MUL XM 00761 0 55 00021 411 ADD ZM 00762 0 64 02627 412 MUL TWO 00763 0 36 00021 413 STB ZM 00764 0 62 00011 414 XMA XM 00765 2 64 00001 415 MUL 1,2 00766 0 46 00014 416 XAB 00767 0 55 00021 417 ADD ZM 00770 0 46 00014 418 XAB 00771 0 57 00011 419 ADC XM 00772 0 71 02677 420 LDX XREG 00773 0 73 00025 421 SKG MINUS 00774 0 52 00026 422 Q28 SKB ONES 00775 0 51 00000 423 BRR 0 00776 0 51 00777 424 BRR Q29 *2 00777 0 00 00774 425 Q29 HLT Q28 426 *LTX POP 01000 0 76 00000 427 LTXPOP LDA 0 01001 0 35 00063 428 STA EXIT 01002 1 25 40063 429 LDP* EXIT 01003 0 43 01031 430 BRM FXBNDA FIX BANDA 01004 0 51 00063 431 BRR EXIT 432 *XMP POP 01005 0 64 40000 433 XMPPOP MUL* 0 0 01006 0 66 00001 434 RSH 1 1 01007 0 46 00014 435 XAB NO 01010 0 51 00000 436 BRR 0 0 437 *XDV POP 01011 0 64 00024 438 XDVPOP MUL RTSH23 RT SHIFTER 23 01012 0 65 40000 439 DIV* 0 0 01013 0 51 00000 440 BRR 0 0 441 *XST POP 01014 0 37 00062 442 XSTPOP STX REG 01015 0 71 00000 443 LDX 0 01016 0 37 00063 444 STX EXIT 01017 0 43 01031 445 BRM FXBNDA FIX B AND A 01020 0 71 00062 446 LDX REG 01021 0 35 40063 447 STA* EXIT 01022 0 51 00063 448 BRR EXIT 449 *FST POP 01023 0 75 00000 450 FSTPOP LDB 0 01024 0 36 00063 451 STB EXIT 01025 0 46 00002 452 CLB 01026 0 43 01075 453 BRM FLOATA FLOAT A 01027 1 07 40063 454 STD* EXIT 01030 0 51 00063 455 BRR EXIT 456 *FIX BANDA 01031 0 00 00000 457 FXBNDA HLT 01032 0 37 00061 458 STX FXBAXR FIX BANDA XREG 01033 0 35 02713 459 STA FIXTP2 FIX TEMP 2 01034 0 71 00000 460 LDX 0 0 01035 0 72 00025 461 SKA SIGN SIGN 01036 1 47 00000 462 FLN 01037 0 37 00000 463 STX 0 0 01040 0 52 02660 464 SKB NEGBEX NEG EXP BIT 01041 0 01 01057 465 BRU Q31 01042 0 52 02661 466 SKB EXB78 EXP BITS 7AND8 01043 0 01 01057 467 BRU Q31 01044 0 46 00122 468 STE 01045 0 35 00005 469 STA FIXTMP FIX TEMP 01046 0 46 00200 470 CXA 01047 0 46 01000 471 CNA 01050 0 55 02662 472 ADD OCT27 OCT27 01051 0 73 02663 473 SKG SMALNG SMALLEST NEGATIVE 01052 0 01 01061 474 BRU Q32 01053 0 46 00400 475 CAX 01054 0 76 00005 476 LDA FIXTMP FIX TEMP 01055 2 66 00000 477 RSH 0,2 01056 0 01 01065 478 BRU Q33 $4 01057 0 46 30003 479 Q31 CLR 01060 0 01 01065 480 BRU Q33 01061 0 46 01000 481 Q32 CNA 01062 0 46 00400 482 CAX 01063 0 76 00005 483 LDA FIXTMP 01064 2 67 00000 484 LSH 0,2 01065 0 53 02713 485 Q33 SKN FIXTP2 FIX TEMP 2 01066 0 01 01070 486 BRU Q34 $5 01067 0 46 01000 487 CNA 01070 0 71 00061 488 Q34 LDX FXBAXR FIX BANDA XREG 01071 0 51 01031 489 BRR FXBNDA 490 *LTF POP 01072 0 76 40000 491 LTFPOP LDA* 0 01073 0 43 01075 492 BRM FLOATA FLOAT A 01074 0 51 00000 493 BRR 0 0 494 *FLOAT A 01075 0 00 00000 495 FLOATA HLT 01076 0 37 00061 496 STX FLAXRG FLOAT A XREG 01077 0 46 00002 497 CLB 01100 0 77 00027 498 EAX 23 01101 0 67 10027 499 NOD 23 27 01102 0 46 00140 500 LDE 01103 0 71 00061 501 LDX FLAXRG FLOAT A XREG 01104 0 51 01075 502 BRR FLOATA FLOAT A 503 *FTA POP 01105 0 36 00035 504 FTAPOP STB PART1 01106 0 35 00036 505 STA PART2 01107 0 76 00000 506 LDA 0 0 01110 0 35 00063 507 STA EXIT 01111 0 76 40000 508 LDA* 0 0 01112 0 43 01075 509 BRM FLOATA FLOAT A 01113 1 31 00035 510 FLA PART1 01114 0 51 00063 511 BRR EXIT 512 * FTS POP 01115 0 36 00035 513 FTSPOP STB PART1 01116 0 35 00036 514 STA PART2 01117 0 76 00000 515 LDA 0 0 01120 0 35 00063 516 STA EXIT 01121 0 76 40000 517 LDA* 0 0 01122 0 43 01075 518 BRM FLOATA FLOAT A 01123 1 07 00055 519 STD FLTEMP 01124 1 25 00035 520 LDP PART1 01125 1 35 00055 521 FLS FLTEMP 01126 0 51 00063 522 BRR EXIT 523 *FTM POP 01127 0 36 00035 524 FTMPOP STB PART1 01130 0 35 00036 525 STA PART2 01131 0 76 00000 526 LDA 0 01132 0 35 00063 527 STA EXIT 01133 0 76 40000 528 LDA* 0 01134 0 43 01075 529 BRM FLOATA FLOAT A 01135 1 41 00035 530 FLM PART1 01136 0 51 00063 531 BRR EXIT 532 *FTD POP 01137 0 36 00035 533 FTDPOP STB PART1 01140 0 35 00036 534 STA PART2 01141 0 76 00000 535 LDA 0 01142 0 35 00063 536 STA EXIT 01143 0 76 40000 537 LDA* 0 0 01144 0 43 01075 538 BRM FLOATA FLOAT A 01145 1 07 00055 539 STD FLTEMP 01146 1 25 00035 540 LDP PART1 01147 1 45 00055 541 FLD FLTEMP 01150 0 51 00063 542 BRR EXIT 543 *DOX POP 01151 0 75 00000 544 DOXPOP LDB 0 0 01152 0 36 00037 545 STB DOXTEM DOX TEMP 01153 0 61 00000 546 MIN 0 0 01154 0 63 40000 547 ADM* 0 O 01155 0 72 00025 548 SKA SIGNBT SIGN BIT 01156 0 01 01163 549 BRU Q35 $1 01157 0 76 40000 550 LDA* 0 O 01160 0 73 40037 551 SKG* DOXTEM DOX TEMP 01161 0 61 00000 552 MIN 0 0 01162 0 51 00000 553 BRR 0 0 01163 0 76 40037 554 Q35 LDA* DOXTEM DOX TEMP 01164 0 73 40000 555 SKG* 0 O 01165 0 61 00000 556 MIN 0 0 01166 0 51 00000 557 BRR 0 O 558 *DOF POP 01167 0 35 00037 559 DOFPOP STA DOFTEM DOF TEMP 01170 0 76 00000 560 LDA 0 0 01171 0 35 00004 561 STA DOFTAD DOF TEMP ADR 01172 0 55 00024 562 ADD ONE ONE 01173 0 35 00060 563 STA DOFXIT DOF EXIT 01174 0 76 00037 564 LDA DOFTEM DOF TEMP 01175 1 31 40060 565 FLA* DOFXIT DOF EXIT 01176 1 07 40060 566 STD* DOFXIT DOF EXIT 01177 0 53 00037 567 SKN DOFTEM DOF TEMP 01200 0 01 01206 568 BRU Q36 *1 01201 1 25 40004 569 LDP* DOFTAD DOF TEMP ADR 01202 1 35 40060 570 FLS* DOFXIT DOF EXIT 01203 0 73 00023 571 SKG ZERO ZERO 01204 0 61 00060 572 MIN DOFXIT DOF EXIT 01205 0 51 00060 573 BRR DOFXIT DOF EXIT 01206 1 35 40004 574 Q36 FLS* DOFTAD DOF TEMP ADR 01207 0 73 00023 575 SKG ZERO ZERO 01210 0 61 00060 576 MIN DOFXIT DOF EXIT 01211 0 51 00060 577 BRR DOFXIT DOF EXIT 578 *XSD POP 01212 0 46 00001 579 XSDPOP CLA 01213 0 01 01215 580 BRU Q37 *1 581 *FSD POP 01214 0 76 00254 582 FSDPOP LDA FLIND FLOAT IND 01215 0 75 00254 583 Q37 LDB FLIND FLOAT IND 01216 0 37 02677 584 STX XREG XREG 01217 0 77 40000 585 EAX* 0 0 01220 0 70 40016 586 SKM* EADR2 EADR 2 01221 0 01 01231 587 BRU Q39 *2 01222 0 16 40016 588 Q38 MRG* EADR2 EADR 2 01223 0 61 00016 589 MIN EADR2 EADR 2 01224 2 35 00000 590 STA 0,2 0 01225 0 16 00077 591 MRG TAGBIT TAG BIT 01226 2 35 00001 592 STA 1,2 1 01227 0 71 02677 593 LDX XREG XREG 01230 0 51 00000 594 BRR 0 0 01231 0 43 40265 595 Q39 BRM* ERRLNK ERROR LINK 01232 21512744 596 BCI 1,ARGM 01233 0 01 01222 597 BRU Q38 598 *FFA POP 01234 0 43 01273 599 FFAPOP BRM DBLXRG DOUBLE XREG 01235 0 76 00254 600 LDA FLIND FLOAT IND 01236 0 01 01241 601 BRU Q40 *1 602 *XFA POP 01237 0 46 00001 603 XFAPOP CLA 01240 0 37 02677 604 STX XREG XREG 01241 0 75 00071 605 Q40 LDB EOADR EO ADR 01242 0 36 00015 606 STB EADR1 EADR 1 01243 0 75 00072 607 LDB EOSIZE EO SIZE 01244 0 36 00072 608 STB EOSIZE EO SIZE TEMP 01245 0 60 00072 609 SKR EOSIZE EO SIZE TEMP 01246 0 01 01257 610 BRU Q41 $2 01247 0 43 40265 611 BRM* ERRLNK ERROR LINK 01250 62317125 612 BCI 1,SIZE 01251 0 01 01257 613 BRU Q41 614 *FNA POP 01252 0 43 01273 615 FNAPOP BRM DBLXRG DOUBLE XREG 01253 0 76 00254 616 LDA FLIND FLOAT IND 01254 0 01 01257 617 BRU Q41 *2 618 *XNA POP 01255 0 46 00001 619 XNAPOP CLA 01256 0 37 02677 620 STX XREG XREG 01257 0 35 40015 621 Q41 STA* EADR1 EADR 1 01260 0 77 40000 622 EAX* 0 0 01261 0 46 00200 623 CXA 01262 0 14 00027 624 ETR ADRMSK ADR MASK 01263 0 63 40015 625 ADM* EADR1 EADR 1 01264 0 61 00015 626 MIN EADR1 EADR 1 01265 0 71 02677 627 LDX XREG XREG 01266 0 60 00034 628 SKR E0SIZT E0 SIZE TEMP 01267 0 51 00000 629 BRR 0 0 01270 0 43 40265 630 BRM* ERRLNK ERROR LINK 01271 62317125 631 BCI 1,SIZE 01272 0 51 00000 632 BRR 0 0 633 *DOUBLE XREG 01273 0 00 00000 634 DBLXRG HLT 01274 0 37 02677 635 STX XREG XREG 01275 0 35 00012 636 STA TEMPA TEMPA 01276 0 46 00061 637 RCH 61 XXB+CLA 01277 0 67 20001 638 LCY 1 01300 0 46 00060 639 XXB 01301 0 76 00012 640 LDA TEMPA TEMPA 01302 0 51 01273 641 BRR DBLXRG DOUBLE XREG 642 *ALF POP 01303 0 43 01273 643 ALFPOP BRM DBLXRG DOUBLE XREG 01304 0 01 01306 644 BRU Q42 $1 645 *ALX POP 01305 0 37 02677 646 ALXPOP STX XREG XREG 01306 0 76 00000 647 Q42 LDA 0 0 01307 0 14 00027 648 ETR ADRMSK ADR MASK 01310 0 35 40000 649 STA* 0 0 01311 0 71 02677 650 LDX XREG XREG 01312 0 61 00000 651 MIN 0 0 01313 0 51 00000 652 BRR 0 0 653 *AGF POP 01314 0 43 01273 654 AGFPOP BRM DBLXRG DOUBLE XREG 01315 0 01 01317 655 BRU Q43 *3 656 *AGX POP 01316 0 37 02677 657 AGXPOP STX XREG XREG 01317 0 71 40000 658 Q43 LDX* 0 0 01320 2 76 00000 659 LDA 0,2 0 01321 0 75 02665 660 LDB POPADR POP ADR MASK 01322 0 70 02666 661 SKM APOPCD ASN POP CODE 01323 0 01 01327 662 BRU Q45 *1 01324 0 37 00064 663 Q44 STX AGTTP1 AGT TEMP 1 01325 0 71 02677 664 LDX XREG XREG 01326 0 51 00064 665 BRR AGTTP1 AGT TEMP 1 01327 0 43 40265 666 Q45 BRM* ERRLNK ERROR LINK 01330 21276346 667 BCI 1,AGTO 01331 0 01 01324 668 BRU Q44 *2 669 *XIO POP 01332 0 75 00251 670 XIOPOP LDB FOUR FOUR 01333 0 01 01335 671 BRU Q46 $1 672 *FIO POP 01334 0 75 02642 673 FIOPOP LDB EIGHT EIGHT 01335 0 36 00053 674 Q46 STB 8OR4 8 IF DOUBLE ELSE 4 01336 0 37 00041 675 STX MSAVEX M SAVE XR 01337 0 76 00000 676 LDA 0 0 01340 0 35 00042 677 STA MRETAD M RETURN ADR 01341 0 76 02627 678 LDA TWO TWO 01342 0 16 02712 679 MRG NOARGF NO ARG FLAG 01343 0 35 02712 680 STA NOARGF NO ARG FLAG 01344 0 37 00356 681 STX MARGAD M ARG ADR 01345 0 46 00200 682 CXA 01346 0 55 00356 683 ADD MARGAD M ARG ADR 01347 0 46 00014 684 XAB 01350 0 73 00251 685 SKG FOUR FOUR 01351 0 75 00356 686 LDB MARGAD M ARG ADR 01352 0 46 00020 687 CBX 01353 0 77 40000 688 EAX* 0 0 01354 0 46 00200 689 CXA 01355 0 14 00027 690 ETR ADRMSK ADR MASK 01356 0 35 00356 691 STA MARGAD M ARG ADR 01357 1 25 40356 692 LDP* MARGAD M ARG ADR 01360 1 07 00344 693 STD INWRD1 INPUT WORD 1 01361 0 01 00273 694 BRU CNTTLN COUNT TEST LINK 695 *LDP POP 01362 0 37 00014 696 LDPPOP STX DPTMP1 01363 0 46 00200 697 CXA 01364 0 55 00014 698 ADD DPTMP1 01365 0 46 00400 699 CAX 01366 0 77 40000 700 EAX* 0 0 01367 2 76 00001 701 LDA 1,2 1 01370 2 75 00000 702 LDB 0,2 0 01371 0 71 00014 703 LDX DPTMP1 01372 0 51 00000 704 BRR 0 0 705 *STDPOP 01373 0 37 00014 706 STDPOP STX DPTMP1 01374 0 35 00022 707 STA STDT2 01375 0 46 00200 708 CXA 01376 0 55 00014 709 ADD DPTMP1 01377 0 46 00400 710 CAX 01400 0 76 00022 711 LDA STDT2 01401 0 77 40000 712 EAX* 0 0 01402 2 35 00001 713 STA 1,2 1 01403 2 36 00000 714 STB 0,2 0 01404 0 71 00014 715 LDX DPTMP1 01405 0 51 00000 716 BRR 0 0 717 *DPA POP 01406 0 37 00014 718 DPAPOP STX DPTMP1 01407 0 77 40000 719 EAX* 0 0 01410 0 46 00014 720 XAB 01411 2 55 00000 721 ADD 0,2 0 01412 0 46 00014 722 XAB 01413 2 57 00001 723 ADC 1,2 1 01414 0 71 00014 724 LDX DPTMP1 01415 0 51 00000 725 BRR 0 0 726 *DPS POP 01416 0 37 00014 727 DPSPOP STX DPTMP1 01417 0 77 40000 728 EAX* 0 0 01420 0 46 00014 729 XAB 01421 2 54 00000 730 SUB 0,2 0 01422 0 46 00014 731 XAB 01423 2 56 00001 732 SUC 1,2 1 01424 0 71 00014 733 LDX DPTMP1 01425 0 51 00000 734 BRR 0 0 735 PAGE 736 *NEXT SKN 01426 0 43 02441 737 NXCHAR BRM INSCAN INT SCAN 01427 0 36 00045 738 STB COUNT COUNT 01430 0 60 00045 739 SKR COUNT COUNT 01431 0 20 00000 740 NOP 01432 0 71 02637 741 LDX M14 MINUS 14 01433 0 76 00021 742 LDA CHAR CHAR 01434 2 50 02614 743 Q47 SKE CHTABL,2 CHAR TABLE 01435 0 41 01434 744 BRX Q47 $1 01436 0 37 02705 745 STX CHXSAV CHAR INDEX SAVE 01437 2 01 02573 746 BRU BRUITB,2 BRUI TABLE 747 *HAVE L PAREN 01440 0 76 00045 748 HAVELP LDA COUNT COUNT 01441 0 35 02706 749 STA GROUPC GROUP COUNT 01442 0 61 00052 750 MIN PARENC PAREN COUNT 01443 0 76 00052 751 LDA PARENC PAREN COUNT 01444 0 72 02627 752 SKA TWO TWO 01445 0 01 02573 753 BRU BRUITB BRUI TABLE 01446 0 35 02710 754 STA PRENCS PAREN COUNT SAVE 01447 0 76 00046 755 LDA FSCANX F SCAN X 01450 0 35 02707 756 STA SCANXS SCAN X SAVE 01451 0 01 01426 757 BRU NXCHAR NEXT CHAR 758 *HAVE P 01452 0 36 00050 759 HAVEP STB PEXPSV P EXP SAVE 01453 0 53 00051 760 SKN PMINFG P MINUS FLAG 01454 0 01 01426 761 BRU NXCHAR NEXT CHAR 01455 0 46 00001 762 CLA 01456 0 35 00051 763 STA PMINFG P MINUS FLAG 01457 0 54 00050 764 SUB PEXPSV P EXP SAVE 01460 0 35 00050 765 STA PEXPSV P EXP SAVE 01461 0 01 01426 766 BRU NXCHAR NEXT CHAR 767 *HAVE R PAREN 01462 0 60 02706 768 HAVERP SKR GROUPC GROUP COUNT 01463 0 01 01465 769 BRU Q48 $3 01464 0 01 01470 770 BRU Q49 $2 01465 0 76 02707 771 Q48 LDA SCANXS SCAN X SAVE 01466 0 35 00046 772 STA FSCANX F SCAN X 01467 0 01 01426 773 BRU NXCHAR NEXT CHAR 01470 0 60 00052 774 Q49 SKR PARENC PAREN COUNT 01471 0 01 01426 775 BRU NXCHAR NEXT CHAR 01472 0 76 02712 776 LDA NOARGF NO ARG FLAG 01473 0 50 02627 777 SKE TWO TWO 01474 0 01 01476 778 BRU Q50 $4 01475 0 43 40265 779 BRM* ERRLNK ERROR LINK 01476 0 53 00054 780 Q50 SKN PIFEND PLUS IF END LIST 01477 0 01 02476 781 BRU LASTLN LAST LINE OUT 01500 0 43 02217 782 BRM LNIOR LINE IN/OUT AND RETURN 01501 0 76 02710 783 LDA PRENCS PAREN COUNT SAVE 01502 0 35 00052 784 STA PARENC PAREN COUNT 01503 0 01 01465 785 BRU Q48 $3 786 *HAVE EFIAOG 01504 0 76 00024 787 HAVEEF LDA ONE ONE 01505 0 16 02712 788 MRG NOARGF NP ARG FLAG 01506 0 35 02712 789 STA NOARGF NO ARG FLAG 01507 0 43 02441 790 BRM INSCAN INT SCAN 01510 0 36 00342 791 STB WDTH WDTH 01511 0 46 00001 792 CLA 01512 0 35 00066 793 STA DECPNT DEC PNT 01513 0 35 00067 794 STA PEXP P EXP 01514 0 35 00343 795 STA 4IFEOT 4 IF E OUT 01515 0 35 00051 796 STA PMINFG P MINUS FLAG 01516 0 76 00021 797 LDA CHAR CHAR 01517 0 50 00353 798 SKE PERIOD PERIOD 01520 0 01 01525 799 BRU Q51 $4 01521 0 43 02441 800 BRM INSCAN INT SCAN 01522 0 36 00066 801 STB DECPNT DEC PNT 01523 0 76 00050 802 LDA PEXPSV P EXP SAVE 01524 0 35 00067 803 STA PEXP P EXP 01525 0 60 00046 804 Q51 SKR FSCANX F SCAN X 805 *IO TEST 01526 0 71 02705 806 IOTEST LDX CHXSAV CHAR INDEX SAVE 01527 0 53 00040 807 SKN IOFLAG IO FLAG 01530 2 77 37770 808 EAX -8,2 -10 01531 0 37 02705 809 STX CHXSAV CHAR INDEX SAVE 01532 0 37 02676 810 STX NOCOMA NO COMMA FLG 01533 2 01 02555 811 BRU BRU2TB,2 BRU2 TABLE 812 *COUNT TEST 01534 0 76 00025 813 CNTTST LDA SIGNBT SIGN BIT 01535 0 35 02676 814 STA NOCOMA NO COMMA FLAGTLG 815 *COUNT TEST NO SET 01536 0 71 02705 816 CNTTNS LDX CHXSAV CHAR INDEX SAVE 01537 0 60 00045 817 SKR COUNT COUNT 01540 2 01 02555 818 BRU BRU2TB,2 BRU2 TABLE 01541 0 01 01426 819 BRU NXCHAR NEXT CHAR 820 *HAVE MINUS 01542 0 76 00025 821 HAVEMI LDA SIGNBT SIGN BIT 01543 0 35 00051 822 STA PMINFG P MINUS FLAG 01544 0 01 01426 823 BRU NXCHAR NEXT CHAR 824 PAGE 825 *DLR IN 01545 0 43 02052 826 DLRIN BRM GNFCIB GET NEXT FOR CHAR INCL BLNK 01546 0 50 02612 827 SKE DLR DLR 01547 0 01 01551 828 BRU Q52 $1 01550 0 01 01426 829 BRU NXCHAR NEXT CHAR 01551 0 60 00046 830 Q52 SKR FSCANX F SCAN X 01552 0 43 02107 831 BRM GNICIC GET NEXT IO CHAR INCL COMMA 01553 0 50 02612 832 SKE DLR DLR 01554 0 01 01556 833 BRU Q53 $2 01555 0 76 00352 834 LDA BLANK BLANK 01556 0 43 02143 835 Q53 BRM STOFCH STO FOR CHAR 01557 0 01 01545 836 BRU DLRIN DLR IN 837 *DLROUT 01560 0 43 02052 838 DLROUT BRM GNFCIB GET NEXT FOR CHAR INCL BLNK 01561 0 50 02612 839 SKE DLR DLR 01562 0 01 01564 840 BRU Q54 $1 01563 0 01 01426 841 BRU NXCHAR NEXT CHAR 01564 0 43 02150 842 Q54 BRM STOICH STO IO CHAR 01565 0 01 01560 843 BRU DLROUT DLR OUT 844 *X IN 01566 0 43 02107 845 XIN BRM GNICIC GET NEXT ICHAR INGLCOMMA 44 01567 0 01 01536 846 BRU CNTTNS COUNT TEST NO SET 847 *X OUT 01570 0 76 00352 848 XOUT LDA BLANK 5LANX 01571 0 43 02150 849 BRM STOICH STO IO CHAR 01572 0 01 01536 850 BRU CNTTNS COUNT TEST NO SET 851 *HIN 01573 0 43 02107 852 HIN BRM GNICIC GET NEXT IO CHAR INCL COMMA 01574 0 43 02143 853 BRM STOFCH STO FOR CHAR 01575 0 01 01536 854 BRU CNTTNS COUNT TE3T NO SET 855 *H OUT 01576 0 43 02052 856 HOUT BRM GNFCIB GET NEXT FOR CHAR INCL BLNK 01577 0 43 02150 857 BRM STOICH STO IO CHAR 01600 0 01 01536 858 BRU CNTTNS COUNT TEST NO SET 859 *AOUT 01601 0 53 00054 860 AOUT SKN PIFEND PLUS IF END LIST 01602 0 01 02476 861 BRU LASTLN LAST LINE OUT 01603 0 76 00342 862 LDA WDTH WDTH 01604 0 73 00053 863 SKG 8OR4 8 IF DOUBLE ELSE 4 01605 0 01 01607 864 BRU Q55 $1 01606 0 76 00053 865 LDA 8OR4 8 IF DOUBLE ELSE 4 01607 0 35 00063 866 Q55 STA OUTFSZ OUTPUT FIELD SIZE 01610 0 76 00342 867 LDA WDTH WDTH 01611 0 55 00047 868 ADD RSCANX R SCAN X 01612 0 35 00064 869 STA RSCNXF R SCAN X LIMIT FIELD 01613 1 25 00344 870 LDP INWRD1 INPUT WORD 1 01614 0 67 20022 871 LCY 18 22 01615 1 07 00347 872 STD CENRL1 CENTRAL 1 01616 1 25 00347 873 Q56 LDP CENRL1 CENTRAL 1 01617 0 67 20006 874 LCY 6 01620 1 07 00347 875 STD CENRL1 CENTRAL 1 01621 0 43 02166 876 BRM STIFOK STO IO CHAR IF OK 01622 0 53 00346 877 SKN ENDFFL END FIELD FLAG 01623 0 01 01616 878 BRU Q56 $2 01624 0 01 02502 879 BRU RETMPR RETURN TO MAIN PROG 880 *AIN 01625 0 53 00054 881 AIN SKN PIFEND PLUS IF END LIST 01626 0 01 02502 882 BRU RETMPR RETURN TO MAIN PROG 01627 0 76 00053 883 LDA 8OR4 8 IF DOUBLE ELSE 4 01630 0 35 00004 884 STA AINTP1 A IN TEMP 1 01631 0 73 00342 885 SKG WDTH WDTH 01632 0 01 01634 886 BRU Q57 $1 01633 0 76 00342 887 LDA WDTH WDTH 01634 0 35 00005 888 Q57 STA AINTP2 A IN TEMP 2 01635 0 76 00342 889 LDA WDTH WDTH 01636 0 54 00053 890 SUB 8OR4 8 IF DOUBLE ELSE 4 01637 0 72 00025 891 SKA SIGNBT SIGN BIT 01640 0 46 00001 892 CLA 01641 0 63 00047 893 ADM RSCANX R SCAN X 01642 0 01 01657 894 BRU Q60 $3 01643 0 76 00352 895 Q58 LDA BLANK BLANK 01644 0 60 00005 896 SKR AINTP2 A IN TEMP 2 01645 0 43 02107 897 BRM GNICIC GET NEXT IO CHAR INCL COMMA 01646 0 50 00255 898 SKE CARRET CAR RETURN 01647 0 01 01651 899 BRU Q59 $2 01650 0 76 00352 900 LDA BLANK BLANK 01651 0 35 00006 901 Q59 STA AINTP3 A IN TEMP 3 01652 1 25 00347 902 LDP CENRL1 CENTRAL1 01653 0 14 02631 903 ETR CH234 CHAR234 MASK 01654 0 16 00006 904 MRG AINTP3 A IN TEMP 3 01655 0 67 20006 905 LCY 6 01656 1 07 00347 906 STD CENRL1 CENTRAL 1 01657 0 60 00004 907 Q60 SKR AINTP1 A IN TEMP 1 01660 0 01 01643 908 BRU Q58 $4 01661 0 71 00356 909 LDX MARGAD M ARG ADR 01662 2 36 00000 910 STB 0,2 0 01663 0 46 00004 911 CAB 01664 0 76 02634 912 LDA FIVE FIVE 01665 0 73 00053 913 SKG 8OR4 8 IF DOUBLE ELSE 4 01666 0 01 01670 914 BRU Q61 $5 01667 0 01 02502 915 BRU RETMPR RETURN TO MAIN PROG 01670 0 46 00010 916 Q61 CBA 01671 2 62 00000 917 XMA 0,2 0 01672 2 35 00001 918 STA 1,2 01673 0 01 02502 919 BRU RETMPR RETURN TO MAIN PROG 920 *EFGIN 01674 0 53 00054 921 EFGIN SKN PIFEND PLUS IF END LIST 01675 0 01 02502 922 BRU RETMPR RETURN TO MAIN PROG 01676 0 43 02273 923 BRM CONSCN CONST SCAN 01677 0 43 00237 924 BRM FLCMKL FL CONST MAKER LINK 01700 0 71 00356 925 LDX MARGAD M ARG ADR 01701 1 25 00347 926 LDP CENRL1 CENTRAL 1 01702 1 07 40356 927 STD* MARGAD M ARG ADR 01703 0 01 02502 928 BRU RETMPR RETURN TO MAIN PROG 929 *I IN 01704 0 53 00054 930 IIN SKN PIFEND PLUS IF END LIST 01705 0 01 02502 931 BRU RETMPR RETURN TO MAIN PROG 01706 0 43 02273 932 BRM CONSCN CONST SCAN 01707 0 43 40237 933 BRM* FLCMKL FL CONST MAKER LINK 01710 0 43 02530 934 BRM FIX FIX 01711 0 71 00356 935 LDX MARGAD M ARG ADR 01712 2 35 00000 936 STA 0,2 01713 0 01 02502 937 BRU RETMPR RETURN TO MAIN PROG 938 *I OUT 01714 0 53 00054 939 IOUT SKN PIFEND PLUS IF END LIST 01715 0 01 02476 940 BRU LASTLN LAST LTNE OUT 01716 0 76 00344 941 LDA INWRD1 INPUT WORD 1 01717 0 43 40267 942 BRM* FLOATL FLOAT SPROG LINK 01720 1 07 00344 943 STD INWRD1 INPUT WORD 1 01721 0 76 00026 944 LDA MINUS1 MINUS ONE 01722 0 35 00066 945 STA DECPNT DEC PNT 946 *F OUT 01723 0 53 00054 947 FOUT SKN PIFEND PLUS IF END LIST 01724 0 01 02476 948 BRU LASTLN LAST LINEUT 01725 0 43 40240 949 BRM* CONV3W CONV TO 3 WORDS LINK 01726 0 43 40236 950 BRM* BCDLNK BIN TO BCD CONV LINK 01727 0 01 02502 951 BRU RETMPR RETURN TO MAIN PPROG 952 *E OUT 01730 0 53 00054 953 EOUT SKN PIFEND PLUS IF END LIST 01731 0 01 02476 954 BRU LASTLN LAST LINE OUT 01732 0 43 40240 955 BRM* CONV3W CONV TO 3 WORDS LINK 01733 0 76 00251 956 LDA FOUR FOUR 01734 0 35 00343 957 STA 4IFEOT 4 IF E OUT 01735 0 76 00347 958 LDA CENRL1 CENTRAL1 01736 0 16 00350 959 MRG CENRL2 CENTRAL2 01737 0 50 00023 960 SKE ZERO ZERO 01740 0 01 01742 961 BRU Q62 $5 01741 0 01 01745 962 BRU Q63 $6 01742 0 76 00341 963 Q62 LDA CHARIS CHARACTERISTIC 01743 0 54 00067 964 SUB PEXP P EXP 01744 0 55 00024 965 ADD ONE ONE 01745 0 35 02703 966 Q63 STA EEXP E EXP 01746 0 76 00026 967 LDA MINUS1 MINUS ONE 01747 0 35 00341 968 STA CHARIS CHARACTERISTIC 01750 0 43 40236 969 BRM* BCDLNK BIN TO BCD CONV LINK 01751 0 76 00251 970 LDA FOUR FOUR 01752 0 35 00063 971 STA OUTFSZ OUTPUT FIELD SIZE 01753 0 63 00064 972 ADM RSCNXF R SCAN X LIMIT FIELD 01754 0 76 02604 973 LDA E E 01755 0 43 02166 974 BRM STIFOK STO IO CHAR IF OK 01756 0 76 00352 975 LDA BLANK BLANK 01757 0 53 02703 976 SKN EEXP E EXP 01760 0 01 01765 977 BRU Q64 $1 01761 0 76 02703 978 LDA EEXP E EXP 01762 0 46 01000 979 CNA 01763 0 35 02703 980 STA EEXP E EXP 01764 0 76 00025 981 LDA MINUS MINUS 01765 0 43 02166 982 Q64 BRM STIFOK STO IO CHAR IF OK 01766 0 76 02703 983 LDA EEXP E EXP 01767 0 73 02632 984 SKG NINE NINE 01770 0 01 01777 985 BRU Q65 $2 01771 0 73 02633 986 SKG DEC99 DEC 99 01772 0 01 02001 987 BRU Q66 $3 01773 0 43 00401 988 BRM ERROR 01774 46256747 989 BCI 1,OEXP 01775 0 46 00001 990 CLA 01776 0 01 02001 991 BRU Q66 $3 01777 0 46 00001 992 Q65 CLA 02000 0 01 02006 993 BRU Q67 $4 02001 0 46 20005 994 Q66 ABC 02002 0 67 00001 995 LSH 1 02003 0 65 02635 996 DIV TEN TEN 02004 0 36 02703 997 STB EEXP EEXP 02005 0 67 00022 998 LSH 18 22 02006 0 43 02166 999 Q67 BRM STIFOK STO IO CHAR IF OK 02007 0 76 02703 1000 LDA EEXP E EXP 02010 0 67 00022 1001 LSH 18 22 02011 0 43 02166 1002 BRM STIFOK STO IO CHAT IF OK 02012 0 01 02502 1003 BRU RETMPR RETURN TO MAIN PROG 1004 PAGE 1005 *GET NEXT CHAR 02013 0 00 00000 1006 GNCHAR HLT 02014 0 37 02701 1007 STX SAVEX SAVE X 02015 0 76 40065 1008 LDA* SCANX SCAN X 02016 0 73 42702 1009 SKG* SCANXL SCAN X LIMIT 02017 0 01 02023 1010 BRU Q68 $1 02020 0 76 00255 1011 LDA ENDFLD END FIELD CHAR 02021 0 35 00021 1012 STA CHAR CHAR 02022 0 51 02013 1013 BRR GNCHAR GET NEXT CHAR 02023 0 66 20002 1014 Q68 RCY 2 02024 0 46 00401 1015 AXC 02025 0 67 20002 1016 LCY 2 02026 0 64 00351 1017 MUL THREE THREE 02027 0 76 42700 1018 LDA* TAGST TAGGED START ADR 02030 0 46 00020 1019 CBX 02031 2 67 00000 1020 LSH 0,2 02032 0 14 02630 1021 ETR CH1MSK CHAR1 MASK 02033 0 50 02655 1022 SKE IBMBLNK IBM BLANK 02034 0 01 02036 1023 BRU Q69 $2 02035 0 76 00352 1024 LDA BLANK BLANK 02036 0 35 00021 1025 Q69 STA CHAR CHAR 02037 0 61 40065 1026 MIN* SCANX SCAN X 02040 0 71 02701 1027 LDX SAVEX SAVE X 02041 0 50 00255 1028 SKE CARRET CAR RETURN 02042 0 51 02013 1029 BRR GNCHAR GET NEXT CHAR 02043 0 60 40065 1030 SKR* SCANX SCAN X 02044 0 51 02013 1031 BRR GNCHAR GET NEXT CHAR 1032 *GET NEXT FOR CHAR 02045 0 00 00000 1033 GNFRCH HLT 02046 0 43 02052 1034 Q70 BRM GNFCIB GET NEXT FOR CHAR INCL BLNK 02047 0 50 00352 1035 SKE BLANK BLANK 02050 0 51 02045 1036 BRR GNFRCH GET NEXT FOR CHAR 02051 0 01 02046 1037 BRU Q70 $1 1038 *GET NEXT FOR CHAR INCL BLNK 02052 0 00 00000 1039 GNFCIB HLT 02053 0 46 00002 1040 CLB 02054 0 43 02506 1041 BRM INITSC INITIALIZE SCANS 02055 0 43 02013 1042 BRM GNCHAR GET NEXT CHAR 02056 0 51 02052 1043 BRR GNFCIB GET NEXT FOR CHAR INCL BLANK 1044 *GET NEXT IO CHAR INCL BLNK 02057 0 00 00000 1045 GNICIB HLT 02060 0 76 00255 1046 Q71 LDA ENDFLD END FIELD CHAR 02061 0 35 00021 1047 STA CHAR CHAR 02062 0 53 02676 1048 SKN NOCOMA NO COMMA FLAG 02063 0 51 02057 1049 BRR GNICIB GET NEXT IO CHAR INCL BLNK 02064 0 43 02107 1050 BRM GNICIC GET NEXT IO CHAR INVL COMMA 02065 0 50 02601 1051 SKE COMMA COMMA 02066 0 51 02057 1052 BRR GNICIB GET NEXT IO CHAR INCL BLNK 02067 0 46 00001 1053 CLA 02070 0 35 02676 1054 STA NOCOMA NO COMMA FLAG 02071 0 01 02060 1055 BRU Q71 $1 1056 *GET NEXT IO CHAR 02072 0 00 00000 1057 GNIOCH HLT 02073 0 76 00064 1058 LDA RSCNXF R SCAN X LIMIT FIELD 02074 0 73 00047 1059 SKG RSCANX R SCAN X 02075 0 01 02077 1060 BRU Q72 $1 02076 0 01 02101 1061 BRU Q73 $2 02077 0 76 00255 1062 Q72 LDA ENDFLD ENDFIELD CHAR 02100 0 01 02105 1063 BRU Q74 $3 02101 0 43 02057 1064 Q73 BRM GNICIB GET NET IO CHAR INCL BLNK 02102 0 50 00352 1065 SKE BLANK BLANK 02103 0 51 02072 1066 BRR GNIOCH GET NEXT IO CHAR 02104 0 76 00024 1067 LDA ONE ONE 02105 0 35 00021 1068 Q74 STA CHAR CHAR 02106 0 51 02072 1069 BRR GNIOCH GET NEX IO CHAR 1070 *GET NEXT IO CHAR INCL COMMA 02107 0 00 00000 1071 GNICIC HLT 02110 0 75 00351 1072 LDB THREE THREE 02111 0 43 02506 1073 BRM INITSC INITIALIZE SCANS 02112 0 43 02013 1074 BRM GNCHAR GET NEXT CHAR 02113 0 51 02107 1075 BRR GNICIC GET NEXT IO CHAR INCL COMMA 1076 PAGE 1077 *STO CHAR 02114 0 00 00000 1078 STOCH HLT 02115 0 35 00034 1079 STA ARGSAV ARG SAVE 02116 0 37 02701 1080 STX SAVEX SAVE X 02117 0 76 40065 1081 LDA* SCANX SCANX 02120 0 73 42702 1082 SKG* SCANXL SCAN X LIMIT 02121 0 01 02123 1083 BRU Q75 $1 02122 0 01 02140 1084 BRU Q76 $2 02123 0 66 20002 1085 Q75 RCY 2 2 02124 0 46 00401 1086 AXC 401 02125 0 67 20002 1087 LCY 2 2 02126 0 64 00351 1088 MUL THREE THREE 02127 0 76 42700 1089 LDA* TAGST TAGGED START AOR 02130 0 37 00035 1090 STX SCHT1 STO CHAR TEMP 1 02131 0 46 00020 1091 CBX 02132 2 67 20000 1092 LCY 0,2 0 02133 0 14 02631 1093 ETR CH234 CHAR234 MASK 02134 0 16 00034 1094 MRG ARGSAV ARG SAVE 02135 2 66 20000 1095 RCY 0,2 02136 0 71 00035 1096 LDX SCHT1 STO CHAR TEMP 1 02137 0 35 42700 1097 STA* TAGST TAGGED START ADR 02140 0 61 40065 1098 Q76 MIN* SCANX SCAN X 02141 0 71 02701 1099 LDX SAVEX SAVE X 02142 0 51 02114 1100 BRR STOCH STO CHAR 1101 *STO FOR CHAR 02143 0 00 00000 1102 STOFCH HLT 02144 0 46 00002 1103 CLB 02145 0 43 02506 1104 BRM INITSC INITIALIZE SCANS 02146 0 43 02114 1105 BRM STOCH STO CHAR 02147 0 51 02143 1106 BRR STOFCH STO FOR CHAR 1107 *STO IO CHAR 02150 0 00 00000 1108 STOICH HLT 02151 0 75 00351 1109 LDB THREE THREE 02152 0 43 02506 1110 BRM INITSC INITIALIZE SCANS 02153 0 14 02630 1111 ETR CH1MSK CHAR 1 MASK 02154 0 50 00352 1112 SKE BLANK BLANK 02155 0 01 02163 1113 BRU Q77 $1 02156 0 76 00043 1114 LDA RSCNXL R SCAN LIMIT 02157 0 73 00261 1115 SKG DEC79 DEC 79 02160 0 01 02163 1116 BRU Q77 $2 02161 0 76 02655 1117 LDA IBMBLN IBM BLANK 02162 0 01 02164 1118 BRU Q78 $1 02163 0 76 00352 1119 Q77 LDA BLANK BLANK 02164 0 43 02114 1120 Q78 BRM STOCH STO CHAR 02165 0 51 02150 1121 BRR STOICH STO 19 CHAR 1122 *STO IO CHAR IF OK 02166 0 00 00000 1123 STIFOK HLT 02167 0 35 02711 1124 STA SIFOK1 STO IF OK TEMP 1 02170 0 46 00001 1125 CLA 02171 0 35 00346 1126 STA ENDFFL END FIELD FLAG 02172 0 76 00047 1127 Q79 LDA RSCANX R SCAN X5,A ( 02173 0 55 00024 1128 ADD ONE ONE 02174 0 73 00064 1129 SKG RSCNXF P SCAN X LIMIT FIELD 02175 0 01 02201 1130 BRU Q80 $1 02176 0 76 00025 1131 LDA SIGNBT SIGN BIT 02177 0 35 00346 1132 STA ENDFFL END FIELD FLAG 02200 0 51 02166 1133 BRR STIFOK STO IO CHAR IF OK 02201 0 76 00047 1134 Q80 LDA RSCANX R SCAN X 02202 0 55 00063 1135 ADD OUTFSZ OUTPUT FIELD SIZE 02203 0 54 00064 1136 SUB RSCNXF R SCAN X LIMIT FIELD 02204 0 72 00025 1137 SKA SIGNBT SIGN BIT 02205 0 01 02214 1138 BRU Q81 $2 02206 0 60 00063 1139 SKR OUTFSZ OUTPUT FIELD SIIE 02207 0 50 00023 1140 SKE ZERO ZERO 02210 0 51 02166 1141 BRR STIFOK STO IO CHAR IF OK 02211 0 76 02711 1142 LDA SIFOK1 STO IF OK TEMP 1 02212 0 43 02150 1143 BRM STOICH STO IO CHAR 02213 0 51 02166 1144 BRR STIFOK STO IO CHAR IF OK 02214 0 76 00352 1145 Q81 LDA BLANK BLANK 02215 0 43 02150 1146 BRM STOICH STO IO CHAR 02216 0 01 02172 1147 BRU Q79 1148 PAGE 1149 *LINE IN/OUT AND RETURN 02217 0 00 00000 1150 LNIOR HLT 02220 0 75 02217 1151 LDB LNIOR LINE IN/OUT AND RETURN 02221 0 76 00261 1152 LDA DEC79 DEC 79 02222 0 50 00043 1153 SKE RSCNXL R SCAN X LIMIT 02223 0 43 40040 1154 BRM* UNITAD UNIT ADR 02224 0 76 00255 1155 LDA CARRET CAR RETURN 02225 0 43 02150 1156 BRM STOICH STO CHAR 02226 0 46 00001 1157 CLA 02227 0 35 00047 1158 STA RSCANX R SCAN X 02230 0 53 00040 1159 SKN IOFLAG IO FLAG 02231 0 01 02350 1160 BRU Q95 $3 02232 0 43 40040 1161 BRM* UNITAD UNIT ADR 02233 0 43 02013 1162 Q82 BRM GNCHAR GET NEXT CHAR 02234 0 12 00021 1163 MIW CHAR CHAR 02235 0 76 00021 1164 LDA CHAR CHAR 02236 0 50 00255 1165 SKE CARRET CAR RETURN 02237 0 01 02233 1166 BRU Q82 $1 02240 0 02 14000 1167 TOPW 14000 02241 0 40 21000 1168 Q83 BRTW 21000 02242 0 01 02241 1169 BRU Q83 $4 02243 0 01 02264 1170 BRU Q89 $2 02244 0 50 02630 1171 Q84 SKE CODDEL CODE DELETE 02245 0 43 02114 1172 BRM STOCH STO CHAR 02246 0 01 02253 1173 BRU Q87 $7 02247 0 71 02654 1174 Q85 LDX DECM33 DEC -33 02250 0 76 02656 1175 LDA BLANKS ALL BLANKS 02251 2 35 00341 1176 Q86 STA ENDBUF,2 END SUFFER 02252 0 41 02251 1177 BRX Q86 $5 02253 0 43 40040 1178 Q87 BRM* UNITAD UNIT ADR 02254 0 40 20010 1179 BETW 02255 0 01 02267 1180 BRU Q90 $8 02256 0 75 00021 1181 Q88 LDB CHAR CHAR 02257 0 46 00001 1182 CLA 02260 0 66 20006 1183 RCY 6 02261 0 50 00255 1184 SKE CARRET CAR RETURN 02262 0 01 02244 1185 BRU Q84 $6 02263 0 02 00000 1186 DISW 02264 0 46 00001 1187 Q89 CLA 02265 0 35 00047 1188 STA RSCANX R SCAN X 02266 0 51 02217 1189 BRR LNIOR LINE IN/OUT AND RETURN 02267 0 02 00000 1190 Q90 DISW 02270 0 43 40265 1191 BRM* ERRLNK ERRR LINK 02271 22516370 1192 BCI 1,BRTY 02272 0 01 02256 1193 BRU Q88 $9 1194 PAGE 1195 *CONST SCAN 02273 0 00 00000 1196 CONSCN HLT 02274 0 76 00047 1197 LDA RSCANX R SCAN X 02275 0 55 00342 1198 ADD WDTH WDTH 02276 0 35 00064 1199 STA RSCNXF R SCAN X LIMIT FIELD 02277 0 43 02364 1200 BRM DIGCVI DIGIT CONV INITIAL 02300 0 46 00001 1201 CLA 02301 0 35 00341 1202 STA CHARIS CHARACTERISTIC 02302 0 35 00037 1203 STA PERFLG PERIOD FLAG 02303 0 43 02374 1204 BRM TSSIGN TEST SIGN 02304 0 35 00055 1205 STA INPTWS INPUT WORD SIGN 02305 0 43 02410 1206 BRM DIGCVS DIGIT CONV SCAN 02306 0 76 00036 1207 LDA DIGSCT DIGITS SCANNED CNT 02307 0 35 00341 1208 STA CHARIS CHARACTERISTIC 02310 0 76 00021 1209 LDA CHAR CHAR 02311 0 50 00353 1210 SKE PERIOD PERIOD 02312 0 01 02315 1211 BRU Q91 $1 02313 0 35 00037 1212 STA PERFLG PERIOD FLA 02314 0 43 02410 1213 BRM DIGCVS DIGIT CONV SCAN 02315 0 46 00001 1214 Q91 CLA 02316 0 50 00037 1215 SKE PERFLG PERIOD FLAG 02317 0 01 02321 1216 BRU Q92 $3 02320 0 54 00066 1217 SUB DECPNT DEC PNT 02321 0 55 00341 1218 Q92 ADD CHARIS CHARACTERISTIC 02322 0 54 00067 1219 SUB PEXP P EXP 02323 0 54 00020 1220 SUB DIGUCT DIGITS USED CNT 02324 0 35 00341 1221 STA CHARIS CHARACTERISTIC 02325 0 76 00021 1222 LDA CHAR 02326 0 50 00255 1223 SKE ENDFLD END FIELD CHAR 02327 0 01 02331 1224 BRU Q93 $2 02330 0 51 02273 1225 BRR CONSCN CONST SCAN 02331 1 25 00347 1226 Q93 LDP CENRL1 CENTRAL 1 02332 1 07 00010 1227 STD CENRL3 CENTRAL 3 02333 0 76 00021 1228 LDA CHAR CHAR 02334 0 50 02604 1229 SKE E E 02335 0 60 00047 1230 SKR RSCANX R SCAN X 02336 0 43 02374 1231 BRM TSSIGN TEST SIGN 02337 0 35 00057 1232 STA MXPOFG MINUS XPON FLAG 02340 0 43 02364 1233 BRM DIGCVI DIGIT CONV INITIAL 02341 0 43 02410 1234 BRM DIGCVS DIGIT CONV SCAN 02342 0 46 30003 1235 CLR 02343 0 53 00057 1236 SKN MXPOFG MINUS XPON FLAG 02344 0 01 02347 1237 BRU Q94 $6 02345 1 53 00347 1238 DPS CENRL1 CENTRAL 1 02346 0 36 00347 1239 STB CENRL1 CENTRAL 1 02347 0 76 00347 1240 Q94 LDA CENRL1 CENTRAL 1 02350 0 55 00341 1241 Q95 ADD CHARIS CHARACTERISTIC 02351 0 55 00067 1242 ADD PEXP P EXP 02352 0 35 00341 1243 STA CHARIS CHARACTERISTIC 02353 1 25 00010 1244 LDP CENRL3 CENTRAL 3 02354 1 07 00347 1245 STD CENRL1 CENTRAL 1 02355 0 76 00021 1246 LDA CHAR CHAR 02356 0 50 00255 1247 SKE ENDFLD END FIELD CHAR 02357 0 01 02361 1248 BRU Q96 $8 02360 0 51 02273 1249 BRR CONSCN CONST SCAN 02361 0 43 40265 1250 Q96 BRM* ERRLNK ERROR LINK 02362 31233051 1251 BCI 1,ICHR 02363 0 51 02273 1252 BRR CONSCN CONST SCAN 1253 *DIGIT CONV INITIAL 02364 0 00 00000 1254 DIGCVI HLT 02365 0 46 30003 1255 CLR 02366 0 35 00036 1256 STA DIGSCT DIGITS SCANNED CNT 02367 0 35 00020 1257 STA DIGUCT DIQITS USED CNT 02370 1 07 00347 1258 STD CENRL1 CENTRAL 1 02371 0 76 02622 1259 LDA GNICHA GET NEXT IO CHAR ADR 02372 0 35 00062 1260 STA GETFR GET F OR R CHAR 02373 0 51 02364 1261 BRR DIGCVI DIGIT CONV INITIAL 1262 *TEST SIGN 02374 0 00 00000 1263 TSSIGN HLT 02375 0 43 02072 1264 Q97 BRM GNIOCH GET NEXT IO CHAR 02376 0 50 00024 1265 SKE ONE (MEANS BLANK) 02377 0 01 02401 1266 BRU Q98 $2 02400 0 01 02375 1267 BRU Q97 $1 02401 0 50 00025 1268 Q98 SKE MINUS MINUS 02402 0 01 02404 1269 BRU Q99 $3 02403 0 51 02374 1270 BRR TSSIGN TEST SIGN 02404 0 50 02576 1271 Q99 SKE PLUS PLUS 02405 0 60 00047 1272 SKR RSCANX R SCAN X 02406 0 46 00001 1273 CLA 02407 0 51 02374 1274 BRR TSSIGN TEST SIGN 1275 *DIGIT CONV SCAN 02410 0 00 00000 1276 DIGCVS HLT 02411 0 43 02432 1277 Q100 BRM TSDIG TEST DIGIT 02412 0 51 02410 1278 BRR DIGCVS DIGIT CONV SCAN 02413 0 64 02623 1279 MUL RTSH18 RIGHT SHIFTER 18 02414 0 14 00256 1280 ETR CH4MSK CHAR 4 MASK 02415 0 35 02667 1281 STA DGCVT1 DIGIT CONV TEMP 1 02416 0 61 00036 1282 MIN DIGSCT DIGITS SCANNED CNT 02417 1 25 00347 1283 LDP CENRL1 CENTRAL 1 02420 0 72 02624 1284 SKA TOP500 TOP 5 BITS ONE 02421 0 01 02411 1285 BRU Q100 $1 02422 0 67 00004 1286 LSH 4 4 02423 1 07 00347 1287 STD CENRL1 CENTRAL 1 02424 1 25 02620 1288 LDP TENB4 TEN B4 EXACT 02425 0 43 02451 1289 BRM DBLXMP DOUBLE FIXED MULT 02426 1 04 02667 1290 DPA DGCVT1 DIGIT CONV TEMP 1 02427 1 07 00347 1291 STD CENRL1 CENTRAL 1 02430 0 61 00020 1292 MIN DIGUCT DIGITS USED CNT 02431 0 01 02411 1293 BRU Q100 $1 1294 *TEST DIGIT 02432 0 00 00000 1295 TSDIG HLT 02433 0 43 40062 1296 BRM* GETFR GET R OR R CHAR 02434 0 72 00025 1297 SKA SIGNBT SIGN BIT 02435 0 51 02432 1298 BRR TSDIG TEST DIGIT 02436 0 73 02636 1299 SKG NINEAT NINE AT TOP 02437 0 61 02432 1300 MIN TSDIG TEST DIGIT 02440 0 51 02432 1301 BRR TSDIG TEST DIGIT 1302 *INT SCAN 02441 0 00 00000 1303 INSCAN HLT 02442 0 76 02626 1304 LDA GNFCHA GET NEXT FOR CHAR ADR 02443 0 35 00062 1305 STA GETFR GET F OR R CHAR 02444 0 46 30003 1306 CLR 02445 1 07 00347 1307 STD CENRL1 CENTRAL 1 02446 0 43 02410 1308 BRM DIGCVS DIQIT CONV SCAN 02447 0 75 00347 1309 LDB CENRL1 CENTRAL 1 02450 0 51 02441 1310 BRR INSCAN INT SCAN 1311 *DOUBLE FIXED MULT 02451 0 00 00000 1312 DBLXMP HLT 02452 1 07 00004 1313 STD DFMPT1 DBL FX MPY TEMP 1 02453 0 76 00347 1314 LDA CENRL1 CENTRAL 1 02454 0 46 00002 1315 CLB 02455 0 66 20001 1316 RCY 1 02456 0 64 00006 1317 MUL DFMPT32 DBL FX MPY TEMP 2 02457 0 66 00027 1318 RSH 23 02460 1 07 00006 1319 STD DFMPT3 DBL FX MPY TEMP 3 02461 0 76 00004 1320 LDA DFMPT1 DBL FX MPY TEMP 1 02462 0 46 00002 1321 CLB 02463 0 66 20001 1322 RCY 1 1 02464 0 64 00350 1323 MUL CENRL2 CENTRAL 2 02465 0 66 00027 1324 RSH 23 27 02466 1 04 00006 1325 DPA DFMPT3 DBL FX MPY TEMP 3 02467 1 07 00006 1326 STD DFMPT3 DBL FX MPY TEMP 3 02470 0 76 00350 1327 LDA CENRL2 CENTRAL 2 02471 0 64 00005 1328 MUL DFMPT2 DBL FIX MPY TEMP 2 02472 1 04 00006 1329 DPA DFMPT3 DBL FIX MPY TEMP 3 02473 0 51 02451 1330 BRR DBLXMP DOUBLE FIXED MULT 1331 PAGE 1332 *LINE IN/OUT 02474 0 43 02217 1333 LNIO BRM LNIOR LINE IN/OUT AND RETURN 02475 0 01 01534 1334 BRU CNTTST COUNT TEST 1335 *LAST LINE OUT 02476 0 53 00040 1336 LASTLN SKN IOFLAG IOFLAG 02477 0 01 02502 1337 BRU RETMPR RETURN TO MAIN PROG 02500 0 43 02217 1338 BRM LNIOR LINE IN/OUT AND RETURN 02501 0 01 02502 1339 BRU RETMPR RETURN TO MAIN PROG 1340 *RETURN TO MAIN PROG 02502 0 40 20001 1341 RETMPR OVT 02503 0 20 00000 1342 NOP 02504 0 71 00041 1343 LDX MSAVEX M SAVE XR 02505 0 51 00042 1344 BRR MRETAD M RETURN ADR 1345 *INITIALIZE SCANS 02506 0 00 00000 1346 INITSC HLT 02507 0 35 00034 1347 STA ARGSAV ARG SAVE 02510 0 46 10012 1348 BAC 02511 0 73 00024 1349 SKG ONE ONE 02512 0 01 02520 1350 BRU Q101 $1 02513 0 76 02650 1351 LDA RSCNXA R SCAN X ADR 02514 0 35 00065 1352 STA SCANX SCAN 02515 0 76 02651 1353 LDA RTAGST R TAGGED START ADR 02516 0 75 02652 1354 LDB RSCXLA R SCAN X LIMIT ADR 02517 0 01 02524 1355 BRU Q102 $2 02520 0 76 02646 1356 Q101 LDA FSCNXA F SCAN X ADR 02521 0 35 00065 1357 STA SCANX SCANX 02522 0 76 00044 1358 LDA FTAGST F TAGGED START ADR 02523 0 75 02647 1359 LDB FSXLMA F SCAN X LIMIT ADP 02524 0 35 02700 1360 Q102 STA TAGST TAGGED START ADR 02525 0 36 02702 1361 STB SCANXL SCAN X LIMIT 02526 0 76 00034 1362 LDA ARGSAV ARG SAVE 02527 0 51 02506 1363 BRR INITSC INITIALIZE SCANS 1364 *FIX 02530 0 00 00000 1365 FIX HLT 02531 1 25 00347 1366 LDP CENRL1 CENTRAL 1 02532 0 43 01031 1367 BRM FXBNDA FIX BANDA 02533 0 35 00347 1368 STA CENRL1 CENTRAL 1 02534 0 51 02530 1369 BRR FIX FIX 1370 PAGE 02535 0 01 01674 1371 BRU EFGIN EFG IN E 02536 0 01 01674 1372 BRU EFGIN EFG IN F 02537 0 01 01704 1373 BRU IIN I IN I 02540 0 01 01573 1374 BRU HIN H IN H 02541 0 01 01566 1375 BRU XIN X N X 02542 0 01 02474 1376 BRU LNIO LINE IN/OUT / 02543 0 01 01545 1377 BRU DLRIN DLR IN $ 02544 0 01 01625 1378 BRU AIN A IN A 02545 0 01 01730 1379 BRU EOUT E OUT E 02546 0 01 01723 1380 BRU FOUT F OUT F 02547 0 01 01714 1381 BRU IOUT I OUT I 02550 0 01 01576 1382 BRU HOUT H OUT H 02551 0 01 01570 1383 BRU XOUT X OUT X 02552 0 01 02474 1384 BRU LNIO LINE INT/OUT / 02553 0 01 01560 1385 BRU DLROUT DLR OUT $ 02554 0 01 01601 1386 BRU AOUT A OUT A 1387 *BRU2 TABLE 02555 0 01 01426 1388 BRU2TB BRU NXCHAR NEXT CHAR + 02556 0 01 01542 1389 BRU HAVEMI HAVE MINUS - 02557 0 01 01440 1390 BRU HAVELP HAVE L PAREN ( 02560 0 01 01426 1391 BRU NXCHAR NEXT CHAR . 02561 0 01 01452 1392 BRU HAVEP HAVE P P 02562 0 01 01462 1393 BRU HAVERP HAVE R PAREN ) 02563 0 01 01504 1394 BRU HAVEEF HAVE EFIAOG E 02564 0 01 01504 1395 BRU HAVEEF HAVE EFIAOG F 02565 0 01 01504 1396 BRU HAVEEF HAVE EFIAOG I 02566 0 01 01526 1397 BRU IOTEST IO TEST H 02567 0 01 01526 1398 BRU IOTEST IO TEST X 02570 0 01 01526 1399 BRU IOTEST IO TEST / 02571 0 01 01526 1400 BRU IOTEST IO TEST $ 02572 0 01 01504 1401 BRU HAVEEF HAVE EFIAOG A 1402 *BRUI TABLE 02573 0 43 40265 1403 BRUITB BRM* ERRLNK ERROR LINK 02574 26233051 1404 BCI 1,FCHR 02575 0 01 01426 1405 BRU NXCHAR NEXT CHAR 1406 *PLUS 02576 20000000 1407 PLUS BCI 1,+000 02577 40000000 1408 BCI 1,-000 02600 35000000 1409 OCT 35000000 L BRAKET 1410 *COMMA 02601 73464646 1411 COMMA BCI 1,,OOO 02602 47464646 1412 BCI 1,POOO 02603 55000000 1413 OCT 55000000 R BRAKET 1414 *E 02604 25000000 1415 E BCI 1,E000 02605 26000000 1416 BCI 1,F000 02606 31000000 1417 BCI 1,I000 02607 30000000 1418 BCI 1,H000 02610 67000000 1419 BCI 1,X000 02611 61000000 1420 BCI 1,/000 1421 *DLR 02612 53000000 1422 DLR BCI 1,$000 02613 21000000 1423 BCI 1,A000 1424 *CHAR TABLE 00002614 1425 CHTABL EQU * 1426 PAGE 1427 *LIVE NOP MOP 02614 2 20 00000 1428 NOPMOP NOP 0,2 1429 *DEC 22 02615 00000026 1430 DEC22 DEC 22 1431 *DEC 23 00002616 1432 DEC23 EQU * 1433 *TWENTY THREE 02616 00000027 1434 DEC 23 1435 *IND BIT 02617 0 00 40000 1436 INDBIT HLT* 1437 *TEN B4 EXACT 02620 00000000 1438 TENB4 OCT 00000000 02621 24000000 1439 OCT 24000000 1440 *GET NEXT IO CHAR ADR 02622 0 00 02072 1441 GNICHA HLT GNIOCH GET NEXT IO CHAR 1442 *RIGHT SHIFTER 18 02623 00000040 1443 RTSH18 OCT 00000040 1444 *TOP 5 BITS ONE 02624 76000000 1445 TOP500 OCT 76000000 1446 *ONE TENTH FULL SCALE 02625 02314630 1447 1TENTH OCT 02314630 1448 *GET NEXT FOR CHAR ADR 02626 0 00 02045 1449 GNFCHA HLT GNFRCH GET NEXT FOR CHAR 1450 *TWO 02627 00000002 1451 TWO DEC 2 1452 *CODE DELETE 00002630 1453 CODDEL EQU * 1454 *CHAR1 MASK 02630 77000000 1455 CH1MSK OCT 77000000 1456 *CHAR234 MASK 02631 00777777 1457 CH234 OCT 00777777 1458 *NINE 02632 00000011 1459 NINE DEC 9 1460 *DEC 99 02633 00000143 1461 DEC99 DEC 99 1462 *FIVE 02634 00000005 1463 FIVE DEC 5 1464 *TEN 02635 00000012 1465 TEN DEC 10 1466 *NINE AT TOP 02636 11000000 1467 NINEAT OCT 11000000 1468 *MINUS 14 02637 77777762 1469 M14 DEC -14 1470 *ONE HALF DOUBLE 02640 00000000 1471 HALFDB OCT 0 02641 20000000 1472 OCT 20000000 1473 *EIGHT 02642 00000010 1474 EIGHT DEC 8 02643 00000047 1475 39D DEC 39 02644 77777700 1476 M770 OCT 77777700 02645 00001000 1477 LSB OCT 1000 1478 *F SCAN X ADR 02646 0 00 00046 1479 FSCNXA HLT FSCANX F SCAN X ADR 1480 *F SCAN X LIMIT ADR 02647 0 00 02653 1481 FSXLMA HLT FSXLIM F SCANX LIMIT 1482 *R SCAN X ADR 02650 0 00 00047 1483 RSCNXA HLT RSCANX R SCAN X 1484 *R TAGGED START ADR 02651 2 00 00300 1485 RTAGST HLT IOBUF,2 IO BUFFER 1486 *R SCAN X LIMIT ADR 02652 0 00 00043 1487 RSCXLA HLT RSCNXL R SCAN XLIMIT 1488 *F SCAN X LIMIT 02653 00165140 1489 FSXLIM DEC 60000 1490 *DEC -33 02654 77777737 1491 DECM33 DEC -33 1492 *IBM BLANK 02655 60000000 1493 IBMBLN OCT 60000000 1494 *ALL BLANKS 02656 12121212 1495 BLANKS OCT 12121212 1496 *TAG BIT AND FLOAT IND 02657 21000000 1497 TAGFLI OCT 21000000 1498 *NEG EXP BIT 02660 00000400 1499 NEGBEX OCT 400 1500 *EXP BITS 7AND8 02661 00000300 1501 EXB78 OCT 300 1502 *OCT 27 02662 00000027 1503 OCT27 OCT 27 1504 *SMALLEST NEGATIYE 00002663 1505 SMALNG EQU * 1506 *NEG LIMIT 02663 77777377 1507 NEGLIM OCT 77777377 1508 *LOW 9 BITS 02664 00000777 1509 LOW9 OCT 777 1510 *POP ADR MASK 02665 17600000 1511 POPADR OCT 17600000 1512 *ASN POP CODE 02666 15000000 1513 APOPCD OCT 15000000 1514 *DIGIT CONV TEMP 1 02667 0 00 00000 1515 DGCVT1 HLT 1516 *DIGIT CONV TEMP 2 02670 00000000 1517 DGCVT2 DEC 0 MUST STAY ZERO 1518 *EMASK 02671 00000700 1519 EMASK OCT 700 1520 *MLONES 02672 77777000 1521 MLONES OCT 77777000 1522 *NEG EXP LIMIT 02673 77777400 1523 NEGEXL OCT 77777400 1524 *ALL BUT S1 02674 17777777 1525 ALBTS1 OCT 17777777 1526 * MEMORY USED FOR CODE 00002674 1527 LAST EQU *-1 1528 * 1529 * 1530 * 1531 * T E M P O R A R Y S T O R A G E 1532 *ERRO SAVE A 02675 0 00 00000 1533 ERSAVA HLT 1534 *NO COMMA FLAG 02676 0 00 00000 1535 NOCOMA HLT 1536 *X REGE 02677 0 00 00000 1537 XREG HLT 1538 *TAGGED START ADR 02700 0 00 00000 1539 TAGST HLT 1540 *SAVE X 02701 0 00 00000 1541 SAVEX HLT 1542 *SCAN X LIMIT 02702 0 00 00000 1543 SCANXL HLT 1544 *E EXP 02703 0 00 00000 1545 EEXP HLT 1546 *NUMBER DIGITS OUT -1 02704 0 00 00000 1547 NDIGM1 HLT 1548 *CHAR INDEX SAVE 02705 0 00 00000 1549 CHXSAV HLT 1550 *GROUP COUNT 02706 0 00 00000 1551 GROUPC HLT 1552 *SCAN X SAVE 02707 0 00 00000 1553 SCANXS HLT 1554 *PAREN COUNT SAVE 02710 0 00 00000 1555 PRENCS HLT 1556 *STO IF OK TEMP 02711 0 00 00000 1557 SIFOK1 HLT 1558 *NO ARG FLAG 02712 0 00 00000 1559 NOARGF HLT 1560 *FIX TEMP 2 02713 0 00 00000 1561 FIXTP2 HLT 1562 * 1563 * TOTAL MEMORY USED BT RUN-TIME 00002714 1564 USEDM EQU * 00002715 1565 XXX EQU *+1 1566 *MNPRST EQU XXX/8*8 00003216 1567 MNPRST EQU 1678 1568 PAGE B O O L D E F I N I T I O N S 1569 *IOTBLL 00000002 1570 IOTBLL BOOL 2 1571 *FIX TEMP 1 00000003 1572 FIXTP1 BOOL 3 1573 *DOF TEMP ADR 00000004 1574 DOFTAD BOOL 4 1575 *A IN TEMP 1 00000004 1576 AINTP1 BOOL 4 1577 *DBL FX MPY TEMP 1 00000004 1578 DFMPT1 BOOL 4 1579 *FIX TEMP 00000005 1580 FIXTMP BOOL 5 1581 *A IN TEMP 2 00000005 1582 AINTP2 BOOL 5 1583 *DBL FX MPY TEMP 2 00000005 1584 DFMPT2 BOOL 5 1585 *XE 00000006 1586 XE BOOL 6 1587 *DBL FX MPY TEMP 3 00000006 1588 DFMPT3 BOOL 6 1589 *A IN TEMP 3 00000006 1590 AINTP3 BOOL 6 1591 *YE 00000007 1592 YE BOOL 7 1593 *DBL FX MPY TEMP 4 00000007 1594 DFMPT4 BOOL 7 1595 *ZE 00000010 1596 ZE BOOL 10 1597 *CENTRAL 3 00000010 1598 CENRL3 BOOL 10 1599 *XM 00000011 1600 XM BOOL 11 1601 *CENTRAL M 00000011 1602 CENRL4 BOOL 11 1603 *TEMP A 00000012 1604 TEMPA BOOL 12 00000014 1605 DPTMP1 BOOL 14 DP TEMP 1 1606 *EADR 1 00000015 1607 EADR1 BOOL 15 1608 *EADR 2 00000016 1609 EADR2 BOOL 16 1610 *OVERFLOW IND 00000017 1611 OVFIND BOOL 17 1612 *YM 00000020 1613 YM BOOL 20 1614 *DIGITS USED CNT 00000020 1615 DIGUCT BOOL 20 1616 *ZM 00000021 1617 ZM BOOL 21 1618 *CHAR 00000021 1619 CHAR BOOL 21 00000022 1620 STDT2 BOOL 22 STD TEMP 2 00000023 1621 ZERO BOOL 23 00000024 1622 ONE BOOL 24 00000024 1623 RTSH23 BOOL 24 RT SHIFTER 23 00000025 1624 SIGN BOOL 25 00000025 1625 SIGNBT BOOL 25 SIQN BIT 00000025 1626 NEGSGN BOOL 25 NEG SIGN 00000025 1627 MINUS BOOL 25 00000026 1628 ONES BOOL 26 ALL ONES 00000026 1629 MINUS1 BOOL 26 MINUS ONE 00000027 1630 ADRMSK BOOL 27 ADR MASK 1631 *E0 SIZE TEMP 00000034 1632 E0SIZT BOOL 34 1633 *ARG SAVE 00000034 1634 ARGSAV BOOL 34 00000035 1635 PART1 BOOL 35 1636 *STO CHAR TEMP 1 00000035 1637 SCHT1 BOOL 35 00000036 1638 PART2 BOOL 36 1639 *DIGITS SCANNED CNT 00000036 1640 DIGSCT BOOL 36 1641 *DOF TEMP 00000037 1642 DOFTEM BOOL 37 1643 *DOX TEMP 00000037 1644 DOXTEM BOOL 37 1645 *PERIOD FLAG 00000037 1646 PERFLG BOOL 37 1647 *IO FLAG 00000040 1648 IOFLAG BOOL 40 1649 *UNIT ADR 00000040 1650 UNITAD BOOL 40 1651 *M SAVE XR 00000041 1652 MSAVEX BOOL 41 1653 *M RETURN ADR 00000042 1654 MRETAD BOOL 42 1655 *R SCAN X LIMIT 00000043 1656 RSCNXL BOOL 43 1657 *F TAGGED START ADR 00000044 1658 FTAGST BOOL 44 1659 *COUNT 00000045 1660 COUNT BOOL 45 1661 *F SCAN X 00000046 1662 FSCANX BOOL 46 1663 *R SCAN X 00000047 1664 RSCANX BOOL 47 1665 *P EXP SAVE 00000050 1666 PEXPSV BOOL 50 1667 *P MINUS FLAG 00000051 1668 PMINFG BOOL 51 1669 *PAREN COUNT 00000052 1670 PARENC BOOL 52 1671 *8 IF DOUBLE ELSE 4 00000053 1672 8OR4 BOOL 53 1673 *PLUS IF END LIST 00000054 1674 PIFEND BOOL 54 00000055 1675 FLTEMP BOOL 55 1676 *INPUT WORD SIGN 00000055 1677 INPTWS BOOL 55 1678 *MINUS XPON FLAG 00000057 1679 MXPOFG BOOL 57 1680 *DOF EXIT 00000060 1681 DOFXIT BOOL 60 1682 *FLOAT A XREG 00000061 1683 FLAXRG BOOL 61 1684 *FIX BANDA XREG 00000061 1685 FXBAXR BOOL 61 00000062 1686 REG BOOL 62 1687 *GET F OR R CHAR 00000062 1688 GETFR BOOL 62 00000063 1689 EXIT BOOL 63 1690 *OUTPUT FIELD SIZE 00000063 1691 OUTFSZ BOOL 63 1692 *AGT TEMP 1 00000064 1693 AGTTP1 BOOL 64 1694 *R SCANX LIMIT FIELD 00000064 1695 RSCNXF BOOL 64 1696 *SCAN X 00000065 1697 SCANX BOOL 65 1698 *DEC PNT 00000066 1699 DECPNT BOOL 66 1700 *P EXP 00000067 1701 PEXP BOOL 67 00000071 1702 EOADR BOOL 71 E0 ADR 00000072 1703 EOSIZE BOOL 72 E0 SIZE 00000073 1704 EOTAG BOOL 73 EO+ ADR 00000074 1705 EOIND BOOL 74 E0* ADR 1706 *SENSE LIGHT WORD 00000075 1707 SENSLW BOOL 75 00000076 1708 RUNTOP BOOL 76 RUN-TIME TOP MEMORY 1709 *BIN TO BCD CONV LINK 00000236 1710 BCDLNK BOOL 236 1711 *FL CONST MAKER LINK 00000237 1712 FLCMKL BOOL 237 1713 *CONV TO 3 WORDS LTNK 00000240 1714 CONV3W BOOL 240 00000354 1715 MAXPOS EQU ALBUTS 00002674 1716 QQQ1S EQU ALBTS1 00000355 1717 255D EQU OCT377 00002663 1718 M2570 EQU NEGLIM 00000017 1719 OFFLAG EQU OVFIND 00002664 1720 O777 EQU LOW9 04600401 1721 AXC OPD 04600401 04600022 1722 BXC OPD 04600022 04624000 1723 LGR OPD 04624000 04600501 1724 AXCE OPD 04600501 AXC(E) KENR 04600222 1725 BXAC OPD 04600222 04600450 1726 AXBA OPD 04600450 04601100 1727 CNAE OPD 04601100 CNA(E) KENR 24600000 1728 CLX OPD 24600000 10400000 1729 DPA OPD 10400000 10700000 1730 STD OPD 10700000 11000000 1731 DOX OPD 11000000 11100000 1732 DOF OPD 11100000 12500000 1733 LDP OPD 12500000 14700000 1734 FLN OPD 14700000 13100000 1735 FLA OPD 13100000 13500000 1736 FLS OPD 13500000 14100000 1737 FLM OPD 14100000 14500000 1738 FLD OPD 14500000 15300000 1739 DPS OPD 15300000 1740 END