mirror of
https://github.com/kenrector/sds-kit.git
synced 2026-01-14 15:36:29 +00:00
1741 lines
192 KiB
Plaintext
1741 lines
192 KiB
Plaintext
|
|
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 |