github.com/kenrector.sds-kit
1
0
Fork 0
mirror of https://github.com/kenrector/sds-kit.git synced 2026-01-13 15:18:12 +00:00
Code Issues Projects Releases Wiki Activity
kenrector.sds-kit/symbol/section-5.lo
kenr 528f2430ca Initial commit
2021-02-15 21:10:40 -08:00

1180 lines
125 KiB
Plaintext
Raw Blame History

1
2 * S2
00000000 3 S9300 EQU 0
00000000 4 X0 EQU S9300
00000002 5 X2 EQU 2-S9300
D 16400000 6 CAB OPD 016400000
D 16500000 7 CBA OPD 016500000
D 16600000 8 CAX OPD 016600000
D 15700000 9 CXA OPD 015700000
D 17000000 10 CBX OPD 017000000
D 17100000 11 CNA OPD 017100000
D 17200000 12 SKE OPD 017200000
D 17300000 13 SKR OPD 017300000
D 17400000 14 MUL OPD 017400000
D 17500000 15 DIV OPD 017500000
D 17500000 16 ADM OPD 017500000
D 17700000 17 XMA OPD 017700000
00000 0 00 00035 18 $LSYM HLT SM1
00001 19 $MLOC RES 1
00002 20 $SCNX RES 1
00003 21 $LOP RES 1
00004 22 $LITM RES 1
00005 23 $SCIX RES 1
00006 23305101 24 CHR1 TEXT 4,CHR1
00007 23305102 25 CHR2 TEXT 4,CHR2
00010 26 LREF RES 1
00011 23452363 27 CNCT TEXT 4,CNCT
00012 28 TEMP RES 2
* 00014 0 00 00000 29 LLT HLT TPL LOCATION OF LITERAL TABLE PACKET
* 00015 0 00 00000 30 LLTR HLT LTR1 LOCATION OF LTR1
* 00016 0 00 00000 31 SCNO HLT SOT SCAN STORAGE LIMIT
00017 32 B1 RES 0
00017 20000000 33 B1 DATA 020000000
00020 70000000 34 A0 DATA 070000000
00021 00007000 35 A4 DATA 07000
00022 00000700 36 A5 DATA 0700
00023 00040000 37 B9 DATA 040000
00024 77000000 38 C0 DATA 077000000
00025 00007700 39 C2 DATA 07700
00026 77007700 40 C02 DATA 077007700
00027 00000105 41 P69 DATA 69
00030 00000057 42 P47 DATA 47
00031 00000011 43 P9 DATA 011
00032 00000005 44 P5 DATA 5
00033 00000202 45 RRM DATA 0202
00034 2 00 37777 46 XADR HLT -1,X2
00035 47 $SM1 RES 1
00036 62440260 48 SM2 TEXT 4,SM2
00037 62440360 49 SM3 TEXT 4,SM3
00040 67257001 50 KEY1 TEXT 4,XEY1
00041 42257002 51 KEY2 TEXT 4,KEY2
00042 43420160 52 LKI TEXT 4,LK1
00043 43424460 53 LKM TEXT 4,LKM
00044 43424760 54 LKP TEXT 4,LKP
00045 43426260 55 LKS TEXT 4,LKS
00046 43426360 56 LKT TEXT 4,LKT
00047 57 SIGN RES 1
00050 58 DPSIGN RES 1
00051 59 BEXP RES 1
00052 60 $SCALE RES 1
00053 61 DEXP RES 1
00054 62 FFLG RES 1
00055 63 MULT1 RES 1
00056 64 MULT2 RES 1
00057 0 00 04522 65 AP HLT PCON PRODUCT CONNECTER
66 KF1 FORM 7,17
67 KF2 FORM 13,11
00060 112 000000 68 K1 KF1 10-0100,0
00061 10144 0000 69 K2 KF2 100-010000,0
00062 00011610 70 K3 DATA 5000
00063 110 000000 71 KF1 010-0100,0
00064 10100 0000 72 KF2 0100-010000,0
00065 00004000 73 DATA 010000/2
00066 74 B23 RES 0
00066 75 ONE RES 0
00066 00000001 76 FIVES DATA 1
00067 00000005 77 DATA 5
00070 00000031 78 DATA 25
00071 00000175 79 DATA 125
00072 00001161 80 DATA 625
00073 00006065 81 DATA 3125
00074 00036411 82 DATA 15625
00075 00230455 83 DATA 78125
00076 01372741 84 DATA 390625
00077 07346545 85 DATA 1953125
00100 86 M2 RES 0
00100 77777776 87 LOM DATA 077777776
00101 00000777 88 FEM DATA 0777
00102 77777000 89 FMM DATA 077777000
00103 00007777 90 MK12 DATA 07777
00104 00770077 91 MK6 DATA 0770077
00105 07070707 92 MK3 DATA 07070707
06000000 93 XYZ OPD 06000000
04000000 94 ITM OPD 04000000 ITEM
02000000 95 CON OPD 02000000 CONNECTER
05400000 96 STM OPD 05400000 SYMBOL,LABEL,ITEM
04600000 97 DTM OPD 04600000 DECIMAL,SYMBOL,ITEM
04700000 98 OTM OPD 04700000 OCTAL,DECIMAL,SYMBOL,ITEM
00106 99 $CTT RES 0
00106 0 47 00443 100 OTM SCO
00107 0 47 00443 101 OTM SCD 1 01
00110 0 47 00443 102 OTM SCD 2 02
00111 0 47 00443 103 OTM SCD 3 03
00112 0 47 00443 104 OTM SCD 4 04
00113 0 47 00443 105 OTM SCD 5 05
00114 0 47 00443 106 OTM SCD 6 06
00115 0 47 00443 107 OTM SCD 7 07
00116 0 47 00443 108 OTM SCD 8 10
00117 0 47 00443 109 OTM SCD 9 11
00120 0 00 00000 110 Z HLT 0
00121 0 00 00077 111 C3 HLT 077
00122 0 40 00577 112 ITM SCA ' 14
00123 40000000 113 B0 DATA 040000000
00124 0 00 00002 114 B22 HLT 2
00125 0 00 00030 115 P24 HLT 24
00126 0 20 03310 116 CON SCON + 20
00127 0 54 00443 117 STM SCS A 21
00130 0 54 00443 118 STM SCS B 22
00131 0 54 00443 119 STM SCS C 23
00132 0 54 00443 120 STM SCS D 24
00133 0 54 00443 121 STM SCS E 25
00134 0 54 00443 122 STM SCS F 26
00135 0 54 00443 123 STM SCS G 27
00136 0 54 00443 124 STM SCS H 30
00137 0 54 00443 125 STM SCS I 31
00140 0 00 00013 126 ECHR HLT '='
00141 0 00 00040 127 MCHR HLT '-'
00142 0 20 00020 128 CON RCON ) 34
00143 0 00 00007 129 A7 HLT 7
00144 0 00 00003 130 P3 HLT 3
00145 0 00 00100 131 B17 HLT 0100
00146 0 20 03411 132 CON DCON - 40
00147 0 54 00443 133 STM SCS J 41
00150 0 54 00443 134 STM SCS K 42
00151 0 54 00443 135 STM SCS L 43
00152 0 54 00443 136 STM SCS M 44
00153 0 54 00443 137 STM SCS N 45
00154 0 54 00443 138 STM SCS O 45
00155 0 54 00443 139 STM SCS P 47
00156 0 54 00443 140 STM SCS Q 50
00157 0 54 00443 141 STM SCS R 51
00160 0 00 00020 142 PLUS HLT '+'
00161 0 40 00555 143 ITM SCL $ 53
00162 0 60 00555 144 XYZ SCL * 54
00163 0 00 00033 145 PCHR HLT '.'
00164 0 00 00014 146 QCHR HLT 014
00165 0 00 00034 147 RCHR HLT ')'
00166 0 20 00000 148 CON BCON 60
00167 0 20 04647 149 CON QCON / 61
00170 0 54 00443 150 STM SCS S 62
00171 0 54 00443 151 STM SCS T 63
00172 0 54 00443 152 STM SCS L 64
00173 0 54 00443 153 STM SCS V 65
00174 0 54 00443 154 STM SCS W 66
00175 0 54 00443 155 STM SCS X 67
00176 0 54 00443 156 STM SCS Y 70
00177 0 54 00443 157 STM SCS Z 71
00200 0 00 00000 158 HLT 0
00201 0 20 00100 159 CON CCON , 73
00202 0 40 00621 160 ITM SCX ( 74
00203 0 00 00022 161 HB HLT 'B'
00204 0 00 00025 162 HE HLT 'E'
00205 2 00 00000 163 X2W HLT 0,X2
00206 0 00 00000 164 $SCNL HLT 0
* 00207 0 76 00000 165 LDA CHR
00210 0 50 00140 166 SKE ECHR TEST FOR =
00211 0 01 00245 167 BRU SCR1 NOT LITERAL
* 00212 0 43 00000 168 BRM GET SKIP =
00213 0 43 00315 169 BRM SCAN
00214 0 43 00216 170 BRM SCNM
00215 0 51 00206 171 BRR SCNL EXIT SCNL
00216 0 00 00000 172 $SCNM HLT 0
* 00217 0 35 00015 173 SCKS STA LTR1
* 00220 0 53 00000 174 SKN PASS
00221 0 51 00216 175 BRR SCNM EXIT
00222 0 76 00015 176 LDA LLTR
* 00223 0 36 00000 177 STB LTR2 STORE LITERAL
00224 0 75 00014 178 LDB LLT
00225 0 43 01103 179 BRM SRCH SEARCH FOR LITERAL
00226 0 01 00237 180 BRU SCK2 NOT IN TABLE
00227 2 76 00002 181 LDA 2,X2 LOCATION OF LITERAL
00230 0 75 00120 182 SCK3 LDB Z
* 00231 0 72 00000 183 SKA B8
* 00232 0 75 00000 184 LDB RELM
* 00233 0 14 00000 185 ETR ADDR
* 00234 0 35 00000 186 STA VALU
* 00235 0 36 00000 187 STB MODE
00236 0 51 00216 188 BRR SCNM EXIT SCNM
* 00237 0 76 00000 189 SCK2 LDA LADD
* 00240 0 35 00000 190 STA LTR3
* 00241 0 61 00237 191 MIN LADD INCREMENT LITERAL LOCATION
00242 0 43 01205 192 BRM MOVE INSERT LITERAL IN TABLE
* 00243 0 76 00240 193 LDA LTR3 LOCATION OF LITERAL
00244 0 01 00230 194 BRU SCK3
00245 0 43 00247 195 SCR1 BRM SCNR GET EXPRESSION OR REFERENCE
00246 0 51 00206 196 BRR SCNL
00247 0 00 00000 197 SCNR HLT 0
00250 0 43 00315 198 BRM SCAN GET EXPRESSION
* 00251 0 76 00000 199 LDA VERR UNDEFINED FLAG
00252 0 73 00120 200 SKG Z
00253 0 01 00313 201 BRU SCR2 ALL SYMBOL DEFINED
00254 0 76 00006 202 LDA CHR1
00255 0 50 00120 203 SKE Z TEST FOR NO CONNECTERS
00256 0 01 00313 204 BRU SCR2 UNDEFINED ITEM
00257 0 76 00120 205 LDA Z REFERENCE
* 00260 0 53 00220 206 SKN PASS
00261 0 51 00247 207 BRR SCNR
* 00262 0 35 00251 208 STA VERR RESET UNDEFINED FLAG
* 00263 0 61 00000 209 MIN XERR SET EXTERNALFLAG
00264 0 76 00000 210 LDA LSYM
* 00265 0 75 00000 211 LDB LRT
00266 0 43 01103 212 BRM SRCH SEARCH FOR REFERENCE
00267 0 01 00307 213 BRU SCR3 NOT INTABLE
* 00270 0 14 00233 214 SCR4 ETR ADDR
* 00271 0 35 00234 215 STA VALU
* 00272 0 36 00235 216 STB MODE
* 00273 0 76 00000 217 LDA LOC
* 00274 0 75 00000 218 LDB REFM
* 00275 0 72 00231 219 SKA B8
00276 0 75 00033 220 LDB RRM
00277 2 35 00002 221 STA 2,X2
00300 2 76 00001 222 LDA 1,X2
00301 0 14 02064 223 ETR =077770000
00302 2 36 00001 224 STB 1,X2
00303 2 63 00001 225 ADM 1,X2
* 00304 0 76 00271 226 LDA VALU
* 00305 0 75 00272 227 LDB MODE
00306 0 51 00247 228 BRR SCNR EXIT
00307 0 35 00037 229 SCR3 STA SM3 NO PREVIOUS REF
00310 0 43 01205 230 BRM MOVE INSERT REFERENCE
00311 0 46 30003 231 CLR
00312 0 01 00270 232 BRU SCR4
* 00313 0 76 00304 233 SCR2 LDA VALU NO REF OR LIT
00314 0 51 00247 234 BRR SCNR EXIT
00315 0 00 00000 235 $SCAN HLT 0
00316 0 46 30003 236 CLR
00317 0 35 40003 237 STA *LOP 0 TO BASE CONECTER
* 00320 0 35 00313 238 STA VALU 0 TO VALUE
* 00321 0 35 00305 239 STA MODE 0 TO MODE
00322 0 35 00006 240 STA CHR1 RESET
* 00323 0 71 00207 241 LDX CHR,X0
00324 2 75 00106 242 LDB CTT,X2
* 00325 0 43 00000 243 BRM SKB
* 00326 0 00 00000 244 HLT IC
00327 0 01 00337 245 BRU SCN1 NOT CONECTER
00330 0 01 00345 246 BRU SCN8
00331 0 61 00003 247 SCN3 MIN LOP INCR OP
00332 0 61 00004 248 MIN LITM INCR ITEM
* 00333 0 76 00321 249 LDA MODE
00334 0 35 40003 250 STA *LOP STORE OP
* 00335 0 76 00320 251 LDA VALU
00336 0 35 40004 252 STA *LITM STORE ITEM
* 00337 0 76 00323 253 SCN1 LDA CHR
00340 0 46 00400 254 CAX
00341 0 43 00431 255 BRM SCI GET NEXT ITEM
* 00342 0 35 00335 256 STA VALU
* 00343 0 36 00333 257 STB MODE
* 00344 0 71 00337 258 LDX CHR,X0
00345 0 43 00660 259 SCN8 BRM SCC GET NEXT CONECTER
* 00346 0 35 00343 260 STA MODE
00347 0 75 00021 261 SCN7 LDB A4 HIERARCHY MASK
00350 0 73 40003 262 SKG *LOP MODE IS IN A
00351 0 01 00354 263 BRU SCN2 LEVEL NOT GREATER
00352 0 70 40003 264 SKM *LOP
00353 0 01 00331 265 BRU SCN3 LEVEL GREATER
00354 0 76 40003 266 SCN2 LDA *LOP LAST CONECTER
00355 0 70 00120 267 SKM Z TEST FOR TERMINATER
00356 0 01 00400 268 BRU SCN4 DO OPERATION
* 00357 0 76 00346 269 LDA MODE
00360 0 14 00121 270 ETR C3 MASK MODE
00361 0 46 00004 271 CAB MODE TO B
00362 0 76 00002 272 LDA SCNX
* 00363 0 50 00000 273 SKE LSXT TEST P LEVEL
00364 0 01 00371 274 BRU SCN11 NOT 0
00365 0 76 00165 275 LDA RCHR
* 00366 0 50 00000 276 SKE TERM ERROR IF )
00367 0 01 00376 277 BRU SCN12
00370 0 01 00373 278 BRU SCN13
00371 0 76 00165 279 SCN11 LDA RCHR
* 00372 0 50 00366 280 SKE TERM
* 00373 0 61 00000 281 SCN13 MIN PERR SET P ERROR
* 00374 0 76 00342 282 SCN14 LDA VALU
00375 0 51 00315 283 BRR SCAN EXIT SCAN
00376 0 43 02041 284 SCN12 BRM GNF SKIP TO NEXT FIELD
00377 0 01 00374 285 BRU SCN14
00400 0 75 00021 286 SCN4 LDB A4
00401 0 70 02065 287 SKM =05000
00402 0 14 00022 288 ETR A5
00403 0 14 02066 289 ETR =01700
00404 0 66 00006 290 RSH 6
00405 0 46 00400 291 CAX OP NUMBER TO X
00406 0 75 40003 292 LDB *LOP
00407 0 02 20001 293 ROV
00410 0 76 40004 294 LDA *LITM
00411 2 01 40412 295 BRU *SCN5,X2 BRANCH TO OP CODE
00412 0 01 00734 296 SCN5 BRU CLS LOSICALSUM
00413 0 01 00752 297 BRU CLD LOGICAL DIFFERENCE
00414 0 01 00754 298 BRU CLP LOGICAL PRODUCT
00415 0 01 00756 299 BRU CAS ARITHMETIC SUM
00416 0 01 00762 300 BRU CAD ARITHMETIC DIFFERENCE
00417 0 01 00770 301 BRU CAP ARITHMETIC PRODUCT
00420 0 01 00776 302 BRU CXQ EXCLUSIVE QUOTIENT
00421 0 01 00774 303 BRU CEQ INCLUSIE QUOTIENT
00422 0 01 01001 304 BRU CDS
00423 0 01 01025 305 BRU CBS
* 00424 0 76 00000 306 SCN6 LDA M1
00425 0 63 00003 307 ADM LOP DECR OP
00426 0 63 00004 308 ADM LITM DECR ITEM
* 00427 0 76 00357 309 LDA MODE
00430 0 01 00347 310 BRU SCN7 TEST PREVIOUS OP
00431 0 00 00000 311 SCI HLT 0
* 00432 0 75 00326 312 SCI2 LDB IC
* 00433 0 43 00325 313 BRM SKB
00434 2 00 00106 314 HLT CTT,X2
00435 0 01 00442 315 BRU SCI1
* 00436 0 61 00000 316 MIN EERR SET EFLAG
* 00437 0 43 00212 317 BRM GET SKIP CHAR
00440 0 46 30003 318 CLR
00441 0 51 00431 319 BRR SCI EXIT
00442 2 01 40106 320 SCI1 BRU *CTT,X2
00000443 321 SCS EQU $
00000443 322 SCO EQU $
00000443 323 SCD EQU $
00443 0 75 00143 324 SCIT LDB A7
* 00444 0 36 00000 325 STB CNTR MAX CHARACTER COUNT
00445 0 35 00007 326 STA CHR2 SAVE LEAD CHAR
00446 0 50 00120 327 SKE Z
00447 0 01 00457 328 BRU SCIT7
* 00450 0 43 00437 329 BRM GET SKIP 0
* 00451 0 75 00000 330 LDB SC
* 00452 0 43 00433 331 BRM SKB
00453 2 00 00106 332 HLT CTT,X2
00454 0 01 00457 333 BRU SCIT7 VALID SYMBOL CHARACTER
00455 0 46 30003 334 CLR
00456 0 51 00431 335 BRR SCI EXIT WITH ZERO
00457 0 75 00120 336 SCIT7 LDB Z
00460 0 01 00465 337 BRU SCIT1
00461 0 75 00036 338 SCIT3 LDB SM2
00462 0 62 00035 339 XMA SM1
00463 0 67 20006 340 LCY 6
00464 0 16 00035 341 MRG SM1 INSERT NEW CHARACTER
00465 0 35 00035 342 SCIT1 STA SM1
00466 0 36 00036 343 STB SM2
* 00467 0 75 00451 344 LDB SC
* 00470 0 43 00000 345 BRM TCHR TEST FOR ALPHANUMERIC
00471 0 01 00474 346 BRU SCIT2 END OF SYMBOLIC ITEM
* 00472 0 60 00444 347 SKR CNTR TEST FOR MAX SIZE
00473 0 01 00461 348 BRU SCIT3
00474 0 76 00035 349 SCIT2 LDA SM1
00475 0 16 00036 350 MRG SM2
* 00476 0 72 00000 351 SKA DLY1 TEST ZONE BITS
00477 0 01 00526 352 BRU SCIT4 SYMBOL
00500 0 71 00120 353 LDX Z,X0
00501 0 75 00007 354 LDB CHR2
* 00502 0 43 00452 355 BRM SKB
* 00503 0 00 00000 356 HLT OCTF
00504 0 01 00510 357 BRU SCIT21
00505 0 71 00144 358 LDX P3,X0
00506 0 72 02067 359 SKA =010101010
* 00507 0 61 00436 360 MIN EERR
00510 0 76 00036 361 SCIT21 LDA SM2 HIGH ORDER HALF
00511 0 43 01321 362 BRM CNVRT CONVERT
00512 2 64 00062 363 MUL K3,X2 TIMES BASE TO THE 4TH
00513 0 36 00036 364 STB SM2 PARTIAL RESULT
00514 0 50 00120 365 SKE Z
* 00515 0 61 00000 366 MIN TERR SET TRUNCATION ERROR
00516 0 76 00035 367 LDA SM1 LOW ORDER HALF
00517 0 43 01321 368 BRM CNVRT CONVERT
00520 0 02 20001 369 ROV
00521 0 55 00036 370 ADD SM2
00522 0 40 20001 371 OVT
* 00523 0 61 00515 372 MIN TERR SET TRUNCATION ERROR
00524 0 75 00120 373 LDB Z 0 TO MODE
00525 0 51 00431 374 BRR SCI EXIT
00526 0 76 00035 375 SCIT4 LDA SM1
00527 0 75 00036 376 LDB SM2
00530 0 01 00533 377 BRU SCIT5
00531 0 67 20006 378 SCIT6 LCY 6 ADDUST
* 00532 0 16 00000 379 MRG BCHR INSERT BLANK
* 00533 0 60 00472 380 SCIT5 SKR CNTR TEST FOR SYMBOL ADJUSTED
00534 0 01 00531 381 BRU SCIT6
00535 0 14 02064 382 ETR =077770000
00536 0 35 00036 383 STA SM2
00537 0 36 00035 384 STB SM1
00540 0 76 00000 385 LDA LSYM LOCATION OF SYMBOL
* 00541 0 75 00000 386 LDB LST LOCATION OF SYMBOL TABLE
00542 0 43 01103 387 BRM SRCH SEARCH
* 00543 0 61 00262 388 MIN VERR NOT FOUND
00544 0 46 00014 389 XAB
00545 0 72 00145 390 SKA B17
* 00546 0 61 00000 391 MIN DERR
00547 0 14 00121 392 ETR C3 SAVE MODE
00550 0 46 00014 393 XAB
* 00551 0 43 00502 394 BRM SKB
* 00552 0 00 00232 395 HLT RELM
* 00553 0 14 00270 396 ETR ADDR
00554 0 51 00431 397 BRR SCI EXIT
* 00555 0 76 00344 398 SCL LDA CHR
* 00556 0 50 00000 399 SKE SCHR TEST FOR *
00557 0 01 00570 400 BRU SCL1 $ IS ALWAYS LOCATION COUNTER
* 00560 0 43 00450 401 BRM GET
00561 0 46 00400 402 CAX
* 00562 0 75 00000 403 LDB CC
* 00563 0 43 00551 404 BRM SKB
00564 2 00 00106 405 HLT CTT,X2
00565 0 01 00571 406 BRU SCL2
* 00566 0 61 00000 407 MIN IFLG
00567 0 01 00432 408 BRU SCI2
* 00570 0 43 00560 409 SCL1 BRM GET
* 00571 0 76 00273 410 SCL2 LDA LOC
00572 0 75 00120 411 LDB Z
* 00573 0 72 00275 412 SKA B8
* 00574 0 75 00552 413 LDB RELM
* 00575 0 14 00553 414 ETR ADDR
00576 0 51 00431 415 BRR SCI EXIT
00577 0 76 00120 416 SCA LDA Z
00600 0 01 00610 417 BRU SCA2
* 00601 0 76 00374 418 SCA1 LDA VALU
00602 0 72 00024 419 SKA C0
* 00603 0 61 00523 420 MIN TERR
00604 0 72 00024 421 SKA C0
00605 0 01 00615 422 BRU SCA3
00606 0 67 00006 423 LSH 6
* 00607 0 16 00555 424 MRG CHR INSERT NEW CHAR
* 00610 0 35 00601 425 SCA2 STA VALU
* 00611 0 43 00570 426 BRM GET GET CHAR
00612 0 75 00120 427 LDB Z
00613 0 50 00164 428 SKE QCHR TEST FOR QUOTE
00614 0 01 00601 429 BRU SCA1
* 00615 0 43 00611 430 SCA3 BRM GET
00616 0 75 00120 431 LDB Z
* 00617 0 76 00610 432 LDA VALU
00620 0 51 00431 433 BRR SCI EXIT
00621 0 76 00016 434 SCX LDA SCNO
00622 0 73 00002 435 SKG SCNX
00623 0 01 00651 436 BRU SCX1 TOO MANY LEYELS
00624 0 76 00315 437 LDA SCAN
00625 0 35 40002 438 STA *SCNX SAVE EXIT
00626 0 76 00431 439 LDA SCI
00627 0 35 40005 440 STA *SCIX
00630 0 61 00005 441 MIN SCIX
00631 0 61 00002 442 MIN SCNX INCR
00632 0 61 00003 443 MIN LOP
00633 0 61 00004 444 MIN LITM
* 00634 0 43 00615 445 BRM GET SKIP (
00635 0 43 00315 446 BRM SCAN GET SUB-EXPRESSION
* 00636 0 76 00424 447 LDA M1
00637 0 63 00002 448 ADM SCNX DECR
00640 0 63 00003 449 ADM LOP
00641 0 63 00004 450 ADM LITM
00642 0 63 00005 451 ADM SCIX
00643 0 76 40005 452 LDA *SCIX
00644 0 35 00431 453 STA SCI
00645 0 76 40002 454 LDA *SCNX
00646 0 35 00315 455 STA SCAN RESTORE EXIT
* 00647 0 76 00617 456 LDA VALU
00650 0 51 00431 457 BRR SCI EXIT
* 00651 0 61 00373 458 SCX1 MIN PERR SET P FLAG
* 00652 0 43 00634 459 SCX2 BRM GET
00653 0 50 00165 460 SKE RCHR
00654 0 01 00652 461 BRU SCX2 SKIP SUB+EXPRESSIDN
* 00655 0 43 00652 462 BRM GET SKIP )
00656 0 46 30003 463 CLR
00657 0 51 00431 464 BRR SCI EXIT
00660 0 00 00000 465 SCC HLT 0
* 00661 0 75 00562 466 LDB CC
* 00662 0 43 00563 467 BRM SKB
00663 2 00 00106 468 HLT CTT,X2
00664 0 01 00672 469 BRU SCC1
* 00665 0 35 00372 470 STA TERM
* 00666 0 61 00507 471 MIN EERR SET E FLAG
* 00667 0 43 00655 472 BRM GET SKIP CHAR
* 00670 0 76 00427 473 LDA MODE
00671 0 51 00660 474 BRR SCC EXIT
00672 0 46 00200 475 SCC1 CXA
* 00673 0 50 00556 476 SKE SCHR CONECTER IS AP IF *
00674 0 01 00711 477 BRU SCC7
00675 0 35 00006 478 STA CHR1
* 00676 0 43 00667 479 BRM GET
00677 0 50 02070 480 SKE ='+'
00700 0 01 00703 481 BRU SCC5
00701 0 75 02065 482 LDB =05000
00702 0 01 00732 483 BRU SCC8
00703 0 75 00057 484 SCC5 LDB AP
00704 0 36 00011 485 STB CNCT
00705 0 50 02071 486 SKE ='/'
00706 0 01 00727 487 BRU SCC6
00707 0 75 02072 488 LDB =05100
00710 0 01 00732 489 BRU SCC8
00711 2 75 00106 490 SCC7 LDB CTT,X2
00712 0 36 00011 491 STB CNCT SAVE CONECTER
* 00713 0 43 00662 492 BRM SKB
00714 0 00 00021 493 HLT A4
00715 0 01 00724 494 BRU SCC2 NOT TERMTNATER
* 00716 0 37 00665 495 STX TERM,X0 SAVE TERMINATER
* 00717 0 43 00676 496 SCC4 BRM GET POSITION AT NEXT CHAR
00720 0 76 00011 497 SCC3 LDA CNCT
00721 0 14 00025 498 ETR C2 EXTRACT CONNECTER
* 00722 0 16 00670 499 MRG MODE
00723 0 51 00660 500 BRR SCC EXIT
00724 0 35 00006 501 SCC2 STA CHR1 SAVE CHAR
* 00725 0 43 00717 502 BRM GET GET NEXT CHAR
00726 0 75 00011 503 LDB CNCT
00727 0 50 00006 504 SCC6 SKE CHR1
00730 0 01 00720 505 BRU SCC3
00731 0 67 00006 506 LSH 6 USE ALTERNATE CONNECTER
00732 0 36 00011 507 SCC8 STB CNCT
00733 0 01 00717 508 BRU SCC4
* 00734 0 16 00647 509 CLS MRG VALU V = L++V
* 00735 0 35 00734 510 CLS1 STA VALU
* 00736 0 76 00722 511 LDA MODE
00737 0 16 40003 512 MRG *LOP ERROR IF EITHER ARE REL
* 00740 0 72 00574 513 CLS2 SKA RELM
* 00741 0 61 00000 514 MIN RERR
00742 0 40 20001 515 OVT
* 00743 0 61 00603 516 MIN TERR SET TRUNCATION ERROR
* 00744 0 76 00736 517 LDA MODE
* 00745 0 17 00740 518 EOR RELM
00746 0 46 00014 519 XAB
* 00747 0 72 00745 520 SKA RELM
* 00750 0 36 00744 521 STB MODE
00751 0 01 00424 522 BRU SCN6
* 00752 0 17 00735 523 CLD EOR VALU V=L--V
00753 0 01 00735 524 BRU CLS1
* 00754 0 14 00752 525 CLP ETR VALU V=L**V
00755 0 01 00735 526 BRU CLS1
* 00756 0 63 00754 527 CAS ADM VALU V=L+V
* 00757 0 76 00750 528 LDA MODE
00760 0 14 40003 529 ETR *LOP ERROR IF BOTH ARE REL
00761 0 01 00740 530 BRU CLS2
* 00762 0 54 00756 531 CAD SUB VALU
* 00763 0 35 00762 532 STA VALU V=L-V
00764 0 76 40003 533 LDA *LOP
* 00765 0 17 00636 534 EOR M1 COMPLEMENT OF UMODE
* 00766 0 14 00757 535 ETR MODE ERROR IF V REL AND U NOT
00767 0 01 00740 536 BRU CLS2 ERROR IF V IS REL
* 00770 0 64 00763 537 CAP MUL VALU
00771 0 67 00027 538 LSH 23 V=L*Y
00772 0 75 40003 539 CAP1 LDB *LOP RESTORE B
00773 0 01 00735 540 BRU CLS1
* 00774 0 55 00765 541 CEQ ADD M1
* 00775 0 55 00770 542 ADD VALU L+V-1
00776 0 66 00027 543 CXQ RSH 23
* 00777 0 65 00775 544 DIV VALU L/V OR (L+Y-1)/V
01000 0 01 00772 545 BRU CAP1
* 01001 0 76 00777 546 CDS LDA VALU
* 01002 0 73 00774 547 SKG M1
01003 0 46 01000 548 CNA
01004 0 73 00031 549 SKG P9
01005 0 01 01007 550 BRU $+2
* 01006 0 61 00743 551 MIN TERR
01007 0 46 00400 552 CAX
01010 0 75 00120 553 LDB Z
01011 0 02 20001 554 ROV
01012 2 76 00066 555 LDA FIVES,X2
01013 2 67 00000 556 LSH 0,X2
01014 0 40 20001 557 OVT
* 01015 0 61 01006 558 MIN TERR
* 01016 0 62 01001 559 XMA VALU
* 01017 0 73 01002 560 SKG M1
01020 0 01 01023 561 BRU CDS1
01021 0 76 40004 562 LDA *LITM
01022 0 01 00770 563 BRU CAP
01023 0 76 40004 564 CDS1 LDA *LITM
01024 0 01 00776 565 BRU CXQ
* 01025 0 76 01016 566 CBS LDA VALU
* 01026 0 53 01025 567 SKN VALU
01027 0 01 01043 568 BRU CBS1
01030 0 46 01000 569 CNA
01031 0 46 00400 570 CAX
01032 0 75 00120 571 LDB Z
01033 0 76 40004 572 LDA *LITM
01034 2 66 00000 573 RSH 0,X2
* 01035 0 43 00713 574 BRM SKB
* 01036 0 00 01017 575 HLT M1
01037 0 73 40004 576 SKG *LITM
01040 0 01 00772 577 BRU CAP1
01041 0 55 00066 578 ADD ONE
01042 0 01 00772 579 BRU CAP1
01043 0 46 00400 580 CBS1 CAX
01044 0 75 00120 581 LDB Z
01045 0 76 40004 582 LDA *LITM
01046 2 67 00000 583 LSH 0,X2
01047 0 01 00772 584 BRU CAP1
01050 0 00 00000 585 $SYM HLT 0
01051 0 75 00120 586 LDB Z
01052 0 35 00035 587 SYM2 STA SM1
01053 0 36 00036 588 STB SM2
* 01054 0 75 00467 589 LDB SC
* 01055 0 43 00470 590 BRM TCHR TEST FOR SYMBOL CHAR
01056 0 01 01067 591 BRU SYM1 END SYMBOL
01057 0 75 00036 592 LDB SM2
01060 0 62 00035 593 XMA SM1
* 01061 0 43 01035 594 BRM SKB
01062 0 00 00025 595 HLT C2
01063 0 01 01077 596 BRU SYM3
01064 0 67 20006 597 LCY 6
01065 0 16 00035 598 MRG SM1
01066 0 01 01052 599 BRU SYM2
01067 0 75 00036 600 SYM1 LDB SM2
01070 0 76 00035 601 LDA SM1
* 01071 0 43 01061 602 SYM4 BRM SKB
01072 0 00 00025 603 HLT C2
01073 0 01 01077 604 BRU SYM3
01074 0 67 20006 605 LCY 6
* 01075 0 16 00532 606 MRG BCHR
01076 0 01 01071 607 BRU SYM4
01077 0 66 20014 608 SYM3 RCY 12
01100 0 35 00035 609 STA SM1
01101 0 36 00036 610 STB SM2
01102 0 51 01050 611 BRR SYM EXIT
01103 0 00 00000 612 $SRCH HLT 0
01104 0 35 00042 613 STA LKI SAVE ITEM LOC
01105 0 36 00046 614 STB LKT SAVE PACKET LOC
01106 0 46 00400 615 CAX LOC OF ITEM
01107 2 76 00000 616 LDA 0,X2
01110 0 35 00040 617 STA KEY1
01111 2 76 00001 618 LDA 1,X2
01112 0 46 00020 619 CBX
01113 2 14 00003 620 ETR 3,X2
01114 0 35 00041 621 STA KEY2 STORE KEY
01115 2 76 00000 622 LDA 0,X2 T = END OF TABLE
01116 0 35 00045 623 STA LKS S=T
01117 2 76 00001 624 LDA 1,X2 F = LOC OF 1ST ITEM
01120 2 75 00003 625 LDB 3,X2
01121 0 36 00043 626 STB LKM MASK FOR 2ND KEY WORD
01122 2 75 00002 627 LDB 2,X2 I = INITIAL INCR
01123 0 01 01132 628 BRU LK1
01124 0 66 00001 629 LK3 RSH 1
01125 2 76 00000 630 LDA 0,X2 K(X)
01126 0 73 00040 631 SKG KEY1 COMPARE WITH K(L)
01127 0 01 01142 632 BRU LK2 K(L) GREATER OR EQUAL
01130 0 46 00010 633 LK7 CBA
01131 0 55 00045 634 ADD LKS
01132 0 46 00400 635 LK1 CAX
01133 0 76 00120 636 LDA Z
* 01134 0 43 01071 637 BRM SKB
01135 0 00 00100 638 HLT M2
01136 0 01 01124 639 BRU LK3
01137 0 46 30003 640 CLR NOT FOUND
01140 0 71 00045 641 LDX LKS,X0
01141 0 01 01153 642 BRU LK5
01142 0 50 00040 643 LK2 SKE KEY1
01143 0 01 01155 644 BRU LK4 KEYS NOT EQUAL
01144 2 76 00001 645 LDA 1,X2 2ND WORD OF KEY
01145 0 14 00043 646 ETR LKM MASK OUT MODE
01146 0 50 00041 647 SKE KEY2 TEST FOR EQUAL KEYS
01147 0 01 01154 648 BRU LK6 KEYS NOT EQUAL
01150 0 61 01103 649 MIN SRCH TAPE FOUND EX1T
01151 2 75 00001 650 LDB 1,X2 MODE
01152 2 76 00002 651 LDA 2,X2 VALUE
01153 0 51 01103 652 LK5 BRR SRCH EXIT
01154 0 73 00041 653 LK6 SKG KEY2 COMPARE 2ND WORDS
01155 0 37 00045 654 LK4 STX LKS,X0 K(L) GREATER, S = X
01156 0 01 01130 655 BRU LK7
01157 0 00 00000 656 $NSRT HLT 0
01160 0 43 01103 657 BRM SRCH SEARCH FOR ITEM
01161 0 01 01201 658 BRU NS3 NOT FOUND
01162 0 61 00042 659 MIN LKI
01163 0 76 40042 660 LDA *LKI
01164 0 61 00042 661 MIN LKI
01165 0 75 40042 662 LDB *LKI
01166 2 50 00001 663 SKE 1,X2
01167 0 01 01174 664 BRU NS1 1ST WORD NOT EQUAL
01170 0 46 00014 665 XAB
01171 2 50 00002 666 SKE 2,X2
01172 0 01 01174 667 BRU NS1 2ND WORDS NOT EQUAL
01173 0 51 01157 668 BRR NSRT EXIT
* 01174 0 76 00000 669 NS1 LDA DUPM
01175 2 16 00001 670 MRG 1,X2 SET DUP FLAG
01176 2 35 00001 671 STA 1,X2
* 01177 0 61 00546 672 MIN DERR SET DUP ERROR
01200 0 51 01157 673 BRR NSRT EXIT
01201 0 43 01205 674 NS3 BRM MOVE MOVE ITEM TO TABLE
01202 0 51 01157 675 BRR NSRT EXIT
* 01203 0 61 00000 676 OFLO MIN OERR
01204 0 51 01205 677 BRR MOVE
01205 0 00 00000 678 MOVE HLT 0
01206 0 76 00144 679 LDA P3
* 01207 0 63 00000 680 ADM LIMT -(M-3) TO M
* 01210 0 53 01207 681 SKN LIMT
01211 0 01 01203 682 BRU OFLO
01212 0 37 00044 683 STX LKP,X0 SAVE P
01213 0 71 00046 684 LDX LKT,X0 PACKET LOCATION
01214 0 76 00205 685 LDA X2W CONSTRUCTION INDIRECT WORD
01215 0 16 00044 686 MRG LKP P,X2
01216 2 53 00005 687 SKN 5,X2 TYPE (UP OR DOWN)
01217 0 01 01274 688 BRU MOV1 MOVE UP
01220 0 35 00043 689 STA LKM P,X2 (TO)
01221 0 55 00144 690 ADD P3 P+3,X2 (FORM)
01222 0 35 00045 691 STA LKS P+3,X2 IFORM)
01223 2 76 00000 692 LDA 0,X2 B
01224 0 54 00044 693 SUB LKP NO, OF WORDS TO MOYE
01225 0 55 02073 694 ADD =0177777
01226 0 46 00400 695 CAX
01227 0 01 01232 696 BRU MOV2
01230 0 76 40045 697 MOV3 LDA *LKS
01231 0 35 40043 698 STA *LKM MOVE ONE WORD DOWN
01232 0 41 01230 699 MOV2 BRX MOV3,X0
01233 0 71 02074 700 MV1 LDX =00200000-3,X0
01234 0 76 00045 701 LDA LKS
01235 0 54 00144 702 SUB P3
01236 0 35 00044 703 STA LKP LOCATIONOF INSERTED ITEM
01237 0 76 40042 704 MOV4 LDA *LKI
01240 0 35 40045 705 STA *LKS INSERT NEW ITEM
01241 0 61 00042 706 MIN LKI
01242 0 41 01237 707 BRX MOV4,X0
01243 0 71 00046 708 LDX LKT,X0 PACKET LOCATION
01244 0 76 00144 709 LDA P3
01245 2 63 00004 710 ADM 4,X2 N+3 TO N
01246 2 76 00002 711 LDA 2,X2 M
01247 2 73 00004 712 SKG 4,X2 M:N
01250 0 01 01263 713 BRU MOV5 M=N
01251 2 53 00005 714 SKN 5,X2 TYPE
01252 0 01 01257 715 BRU MOV8 UP TABLE
01253 2 76 00000 716 LDA 0,X2
01254 0 54 00144 717 MV2 SUB P3
01255 2 35 00000 718 STA 0,X2 B-3 TO B
01256 0 01 01261 719 BRU MV3
01257 0 76 00144 720 MOV8 LDA P3
01260 2 63 00001 721 ADM 1,X2 F+3 TO F
01261 0 71 00044 722 MV3 LDX LKP,X0 LOCATION OF INSERTED ITEM
01262 0 51 01205 723 BRR MOVE EXIT
01263 0 75 00120 724 MOV5 LDB Z
01264 2 55 00004 725 ADD 4,X2 M+N TO M
01265 2 35 00002 726 STA 2,X2
01266 2 36 00004 727 STB 4,X2 0 TO N
01267 2 76 00000 728 LDA 0,X2 B
01270 2 53 00005 729 SKN 5,X2
01271 0 55 00144 730 ADD P3 B + 3 TO B
01272 2 35 00001 731 STA 1,X2 B TO F
01273 0 01 01254 732 BRU MV2
01274 0 55 00124 733 MOV1 ADD B22
01275 0 14 00034 734 ETR XADR CONSTRUCT INDIRECT WORD
01276 0 35 00045 735 STA LKS P+2,X2 (FROM)
01277 0 55 00144 736 ADD P3
01300 0 35 00043 737 STA LKM P+5,X2 (TO)
01301 2 76 00000 738 LDA 0,X2 B
01302 2 55 00002 739 ADD 2,X2 B+M
01303 2 55 00004 740 ADD 4,X2 B+M+N
01304 0 54 00044 741 SUB LKP B+M+N-P
01305 0 73 00120 742 SKG Z NO OF WORDS TO MOVE
01306 0 01 01315 743 BRU MOV6 0 WORDS
01307 0 16 02075 744 MRG =040000*/S9300
01310 0 46 00400 745 CAX
01311 0 76 40045 746 MOV7 LDA *LKS
01312 0 35 40043 747 STA *LKM MOVE ONE WORD UP 3
01313 2 77 37776 748 EAX -2,X2
01314 0 41 01311 749 BRX MOV7,X0
01315 0 76 00043 750 MOV6 LDA LKM P+5,X2
01316 0 55 00066 751 ADD B23 P+6,X2
01317 0 35 00045 752 STA LKS
01320 0 01 01233 753 BRU MV1
01321 0 00 00000 754 CNVRT HLT 0
* 01322 0 35 01026 755 STA VALU
01323 0 14 00026 756 ETR C02 MASK 1ST AND 3RD CHARACTERS
01324 2 64 00060 757 MUL K1,X2 T1MES BASE - 64
* 01325 0 55 01322 758 ADD VALU
* 01326 0 35 01325 759 STA VALU
01327 0 14 02064 760 ETR =077770000
01330 2 64 00061 761 MUL K2,X2 TIMES BASE SQUARED - 4096
* 01331 0 55 01326 762 ADD VALU RESULT
01332 0 51 01321 763 BRR CNVRT EXIT
01333 0 00 00000 764 SSIGN HLT 0
* 01334 0 76 00607 765 LDA CHR
* 01335 0 35 00716 766 STA TERM
01336 0 75 00120 767 LDB Z
01337 0 36 00047 768 STB SIGN + TO SIGN
01340 0 50 00141 769 SKE MCHR TEST FOR -
01341 0 01 01345 770 BRU SSIGN1
* 01342 0 75 01036 771 LDB M1
01343 0 36 00047 772 STB SIGN - TO SIGN
01344 0 01 01347 773 BRU SSIGN2
01345 0 50 00160 774 SSIGN1 SKE PLUS TEST FOR +
01346 0 01 01350 775 BRU SSIGN3
* 01347 0 43 00725 776 SSIGN2 BRM GET SKIP + OR -
01350 0 51 01333 777 SSIGN3 BRR SSIGN EXIT
01351 0 00 00000 778 DPMT HLT 0
* 01352 0 36 00000 779 STB WORD LOW
01353 0 64 00032 780 MUL P5 10*HOW TO B
* 01354 0 76 01352 781 LDA WORD LOW
* 01355 0 36 01354 782 STB WORD
01356 0 66 20001 783 RCY 1 MUL CLEARS B23
01357 0 64 02076 784 MUL =10
01360 0 02 20001 785 ROV
* 01361 0 55 01355 786 ADD WORD 10*HIGH + CARRY
01362 0 40 20001 787 OVT
* 01363 0 61 01015 788 MIN TERR SET TRUNCATION ERROR
01364 0 51 01351 789 BRR DPMT EXIT
01365 0 00 00000 790 DPA HLT 0
01366 0 35 00012 791 STA TEMP
* 01367 0 76 00000 792 LDA WRD2
01370 0 14 00100 793 ETR M2
01371 0 66 00001 794 RSH 1
01372 0 14 02077 795 ETR =037777777
01373 0 36 00013 796 STB TEMP+1
01374 0 55 00013 797 ADD TEMP+1
01375 0 66 00027 798 RSH 23
01376 0 14 00066 799 ETR ONE
01377 0 02 20001 800 ROV
01400 0 55 00012 801 ADD TEMP
* 01401 0 55 00000 802 ADD WRD1
01402 0 40 20001 803 OVT
* 01403 0 61 01363 804 MIN TERR SET TRUNCATION ERROR
01404 0 51 01365 805 BRR DPA EXIT
01405 0 00 00000 806 DPNM HLT 0
* 01406 0 76 01401 807 LDA WRD1
* 01407 0 75 01367 808 LDB WRD2
* 01410 0 36 01361 809 STB WORD X2
01411 0 64 00055 810 MUL MULT1
* 01412 0 62 01406 811 XMA WRD1 X1 TO A, SAVE H
* 01413 0 36 01407 812 STB WRD2 SAVE L
01414 0 64 00056 813 MUL MULT2
01415 0 66 00027 814 RSH 23
01416 0 14 00066 815 ETR ONE
01417 0 43 01365 816 BRM DPA AB + HL TO AB
* 01420 0 35 01412 817 STA WRD1 SAVE H
* 01421 0 36 01413 818 STB WRD2 SAVEL
* 01422 0 76 01410 819 LDA WORD X2
01423 0 66 00001 820 RSH 1
01424 0 14 02077 821 ETR =037777777
01425 0 64 00055 822 MUL MULT1
01426 0 66 00027 823 RSH 23
01427 0 14 00066 824 ETR ONE
01430 0 43 01365 825 BRM DPA AB + HL TO AB
* 01431 0 35 01420 826 STA WRD1
* 01432 0 36 01421 827 STB WRD2
01433 0 51 01405 828 BRR DPNM EXIT
01434 0 00 00000 829 $DPW HLT 0
01435 0 76 00052 830 LDA SCALE
01436 0 35 00051 831 STA BEXP SCALING (IF NOT SPECIFIED
01437 0 75 00120 832 LDB Z
* 01440 0 36 01431 833 STB WRD1 CLEAR HOW
* 01441 0 36 01432 834 STB WRD2 CLEAR LOW
* 01442 0 75 01342 835 LDB M1
01443 0 36 00054 836 STB FFLG RESET FLOATING FLAG
01444 0 36 00053 837 STB DEXP -1 TO DECIMAL EXPONNET
01445 0 43 01333 838 BRM SSIGN SET SIGN
01446 0 75 00047 839 LDB SIGN
01447 0 36 00050 840 STB DPSIGN SET DP SIGN
01450 0 50 00163 841 DPW3 SKE PCHR TEST FOR .
01451 0 01 01472 842 BRU DPW4
01452 0 61 00054 843 MIN FFLG SET FLOAT FLAG
01453 0 01 01465 844 BRU DPW2
* 01454 0 55 01334 845 DPW1 ADD CHR 2*CHR TO A
* 01455 0 62 01441 846 XMA WRD2 2*CHR TO L
01456 0 46 20005 847 ABC L TO B
* 01457 0 62 01440 848 XMA WRD1 H TO A, 0 TO H
01460 0 43 01351 849 BRM DPMT 10*AB TO AB
01461 0 43 01365 850 BRM DPA 10*AB+CHR TO AB
* 01462 0 35 01457 851 STA WRD1 SAVE H
* 01463 0 36 01455 852 STB WRD2 SAVE L
01464 0 53 00053 853 SKN DEXP SKIP UNLESS PERIOED SEEN
01465 0 61 00053 854 DPW2 MIN DEXP INCR DECIMAL EXPONENT
* 01466 0 75 00000 855 LDB DC
* 01467 0 43 01055 856 BRM TCHR TEST FOR DECIMAL DIGIT
01470 0 01 01450 857 BRU DPW3
01471 0 01 01454 858 BRU DPW1
01472 0 46 00400 859 DPW4 CAX
* 01473 0 75 01466 860 LDB DC
* 01474 0 43 01134 861 BRM SKB
01475 2 00 00106 862 HLT CTT,X2
01476 0 01 01454 863 BRU DPW1
01477 0 76 00120 864 LDA Z
01500 0 53 00053 865 SKN DEXP TEST FOR PERIOD
01501 0 54 00053 866 SUB DEXP DECIMAL EXPONENT
01502 0 35 00053 867 STA DEXP
* 01503 0 76 01454 868 LDA CHR
01504 0 50 00204 869 DECK2 SKE HE
01505 0 01 01512 870 BRU DECK3
* 01506 0 43 01347 871 BRM GET
01507 0 43 02007 872 BRM DECW
01510 0 63 00053 873 DECK6 ADM DEXP
* 01511 0 76 01503 874 LDA CHR
01512 0 50 00203 875 DECK3 SKE HB
01513 0 01 01524 876 BRU DECK4
* 01514 0 43 01506 877 BRM GET
01515 0 43 02007 878 BRM DECW
01516 0 46 01000 879 CNA
01517 0 35 00051 880 DECK8 STA BEXP
* 01520 0 76 01442 881 LDA M1
01521 0 35 00054 882 STA FFLG
* 01522 0 76 01511 883 LDA CHR
01523 0 01 01504 884 BRU DECK2
01524 0 50 02100 885 DECK4 SKE ='*'
01525 0 01 01543 886 BRU DECK5
* 01526 0 43 01514 887 BRM GET
01527 0 50 00020 888 SKE '+'
01530 0 01 01535 889 BRU DECK7
* 01531 0 43 01526 890 BRM GET
01532 0 43 00431 891 BRM SCI
01533 0 63 00053 892 ADM DEXP
01534 0 01 01503 893 BRU DECK2-1
01535 0 50 02071 894 DECK7 SKE ='/'
01536 0 01 01543 895 BRU DECK5
* 01537 0 43 01531 896 BRM GET
01540 0 43 00431 897 BRM SCI
01541 0 55 00051 898 ADD BEXP
01542 0 01 01517 899 BRU DECK8
* 01543 0 76 01462 900 DECK5 LDA WRD1
* 01544 0 75 01463 901 LDB WRD2
01545 0 71 00120 902 LDX Z,X0
01546 0 67 10056 903 NOD 46 NORMALIIE
* 01547 0 35 01543 904 STA WRD1
* 01550 0 36 01544 905 STB WRD2
01551 0 46 00200 906 CXA
01552 0 67 20011 907 LCY 9
01553 0 66 00011 908 RSH 9
01554 0 73 02101 909 SKG =-46
01555 0 76 02101 910 LDA =-46
01556 0 53 00053 911 SKN DEXP
01557 0 55 00125 912 ADD P24
01560 0 63 00051 913 ADM BEXP MODIFY B1NARY EXPONENT
01561 0 53 00053 914 SKN DEXP TEST SIGN OF DECIMAL EXPONENT
01562 0 01 01655 915 BRU DPW5A
01563 0 46 30003 916 CLR
01564 0 54 00053 917 SUB DEXP
01565 0 01 01571 918 BRU DPW9
01566 0 76 02101 919 DPW91 LDA =-46
01567 0 63 00051 920 ADM BEXP
01570 0 76 00053 921 LDA DEXP
01571 0 75 00120 922 DPW9 LDB Z
01572 0 36 00053 923 STB DEXP 0 TO D
01573 0 73 00031 924 SKG P9 TEST RANGE
01574 0 01 01600 925 BRU DPW6
01575 0 54 00031 926 SUB P9
01576 0 35 00053 927 STA DEXP D-9 TO D
01577 0 76 00031 928 LDA P9
01600 0 46 00400 929 DPW6 CAX
01601 0 46 01000 930 CNA
01602 0 63 00051 931 ADM BEXP MODIFY BINARY EXPONENT
01603 2 75 00066 932 LDB FIVES,X2 POWER OF 5
01604 0 76 00120 933 LDA Z
01605 0 71 00120 934 LDX Z,X0
01606 0 67 10056 935 NOD 46 NORMALIZE POWER OF F1VE
* 01607 0 35 01422 936 STA WORD
01610 0 46 00200 937 CXA
01611 0 67 20011 938 LCY 9
01612 0 66 00011 939 RSH 9
01613 0 46 01000 940 CNA
01614 0 63 00051 941 ADM BEXP BINARY EXPONENT
01615 0 76 00017 942 LDA B1
01616 0 75 00120 943 LDB Z
* 01617 0 65 01607 944 DIV WORD
01620 0 35 00055 945 STA MULT1 1ST WORD OF RECIPRICAL
01621 0 46 10012 946 BAC
* 01622 0 65 01617 947 DIV WORD
01623 0 55 00066 948 ADD ONE
01624 0 35 00056 949 STA MULT2 2ND WORD OF RECIPRICAL
01625 0 43 01405 950 BRM DPNM DATA TIMES POWER OF 5
01626 0 76 00053 951 LDA DEXP
01627 0 50 00120 952 SKE Z TEST FOR DECIMAL SCALING DONE
01630 0 01 01566 953 BRU DPW91
* 01631 0 76 01547 954 DPW10 LDA WRD1
01632 0 53 00054 955 SKN FFLG TEST FOR FLOATING PO1NT
01633 0 01 01706 956 BRU DPF
01634 0 02 20001 957 ROV
01635 0 71 00051 958 LDX BEXP,X0
01636 0 53 00051 959 SKN BEXP
01637 0 01 01646 960 BRU DPW12
01640 0 62 00051 961 XMA BEXP
01641 0 46 01000 962 CNA
01642 0 62 00051 963 XMA BEXP
01643 0 71 00051 964 LDX BEXP,X0
01644 2 66 00000 965 RSH 0,X2
01645 0 01 01651 966 BRU DPW13
01646 2 67 00000 967 DPW12 LSH 0,X2
01647 0 40 20001 968 OVT
* 01650 0 61 01403 969 MIN TERR SET TRUNCATION ERROR
* 01651 0 35 01631 970 DPW13 STA WRD1
* 01652 0 36 01550 971 DPW14 STB WRD2
01653 0 43 01737 972 BRM DPSS COMPLEMENT IF NEG
01654 0 01 01730 973 BRU DPW20
01655 0 76 02102 974 DPW5A LDA =22
01656 0 63 00051 975 ADM BEXP
01657 0 75 00120 976 DPW5 LDB Z
01660 0 76 00053 977 LDA DEXP
01661 0 36 00053 978 STB DEXP 0 TO B
01662 0 73 00031 979 SKG P9 TEST RANGE
01663 0 01 01667 980 BRU DPW11
01664 0 54 00031 981 SUB P9
01665 0 35 00053 982 STA DEXP
01666 0 76 00031 983 LDA P9
01667 0 46 00400 984 DPW11 CAX
01670 0 63 00051 985 ADM BEXP MODIFY BINARY EXPONENT
01671 2 75 00066 986 LDB FIVES,X2 PWER OF 5
01672 0 76 00120 987 LDA Z
01673 0 71 00030 988 LDX P47,X0
01674 0 67 10056 989 NOD 46
01675 0 35 00055 990 STA MULT1 NORMALIZED POWER OF 5
01676 0 46 00200 991 CXA
01677 0 63 00051 992 ADM BEXP MODIFY B
01700 0 36 00056 993 STB MULT2 CLEAR LOW ORDER WORD
01701 0 43 01405 994 BRM DPNM DATA TIMES POWER OF 5
01702 0 76 00053 995 LDA DEXP
01703 0 73 00120 996 SKG Z
01704 0 01 01631 997 BRU DPW10 FINISHED
01705 0 01 01657 998 BRU DPW5
01706 0 43 01737 999 DPF BRM DPSS COMPLEMENT IF NEG
01707 0 71 00030 1000 LDX P47,X0
01710 0 67 10057 1001 NOD 47
* 01711 0 35 01651 1002 STA WRD1
01712 0 46 00200 1003 CXA
01713 0 72 00102 1004 SKA FMM
01714 0 76 00120 1005 LDA Z
01715 0 50 00120 1006 SKE Z
01716 0 55 00051 1007 ADD BEXP MODIFY BINARY EXPONENT
01717 0 35 00051 1008 STA BEXP
01720 0 67 00017 1009 LSH 15
01721 0 66 00017 1010 RSH 15
01722 0 50 00051 1011 SKE BEXP
* 01723 0 61 01650 1012 MIN TERR SET TRUNCATION ERROR
01724 0 67 20017 1013 LCY 15
01725 0 46 00004 1014 CAB
01726 0 66 20017 1015 RCY 15
* 01727 0 36 01652 1016 STB WRD2
* 01730 0 76 01522 1017 DPW20 LDA CHR
* 01731 0 35 01335 1018 STA TERM SET TERMINATIR
* 01732 0 43 01537 1019 BRM GET SKIP ,
01733 0 43 02041 1020 BRM GNF
* 01734 0 75 01727 1021 LDB WRD2
* 01735 0 76 01711 1022 LDA WRD1
01736 0 51 01434 1023 BRR DPW EXIT
01737 0 00 00000 1024 DPSS HLT 0
01740 0 53 00050 1025 SKN DPSIGN TEST DP SIGN
01741 0 51 01737 1026 BRR DPSS EXIT
01742 0 46 00014 1027 XAB
* 01743 0 17 01520 1028 EOR M1
* 01744 0 54 01743 1029 SUB M1
01745 0 46 00014 1030 XAB
* 01746 0 55 01744 1031 ADD M1
* 01747 0 43 01474 1032 BRM SKB
* 01750 0 00 01746 1033 HLT M1
* 01751 0 54 01750 1034 SUB M1
* 01752 0 17 01751 1035 EOR M1
* 01753 0 35 01735 1036 STA WRD1
* 01754 0 36 01734 1037 STB WRD2
01755 0 51 01737 1038 BRR DPSS EXIT
01756 0 00 00000 1039 $OCTW HLT 0
01757 0 43 01333 1040 BRM SSIGN SET SIGN
01760 0 73 00143 1041 SKG A7
01761 0 01 01764 1042 BRU OCT1
* 01762 0 61 00666 1043 MIN EERR NOT OCTAL CHAR
01763 0 51 01756 1044 BRR OCTW EXIT
* 01764 0 35 01331 1045 OCT1 STA VALU
* 01765 0 75 00000 1046 LDB OC
* 01766 0 43 01467 1047 BRM TCHR TEST FOR OCTAL CHAR
01767 0 01 01776 1048 BRU OCT2
01770 0 66 00003 1049 RSH 3
* 01771 0 76 01764 1050 LDA VALU
01772 0 72 00020 1051 SKA A0
* 01773 0 61 01723 1052 MIN TERR
01774 0 67 00003 1053 LSH 3 INSERT NEW CHAR
01775 0 01 01764 1054 BRU OCT1 TRY NEXT CHAR
* 01776 0 35 01731 1055 OCT2 STA TERM
* 01777 0 43 01732 1056 BRM GET
02000 0 43 02041 1057 BRM GNF
* 02001 0 76 01771 1058 LDA VALU
02002 0 17 00123 1059 EOR B0
02003 0 53 00047 1060 SKN SIGN TEST FOR PRECEDING MINUS
02004 0 17 00123 1061 EOR B0 NO PRECEDING MUNUS
* 02005 0 35 02001 1062 STA VALU RESULT
02006 0 51 01756 1063 BRR OCTW EXIT
02007 0 00 00000 1064 $DECW HLT 0
02010 0 43 01333 1065 BRM SSIGN SET SIGN
02011 0 73 00031 1066 SKG P9
02012 0 01 02015 1067 BRU DEC1
02013 0 76 00120 1068 LDA Z
02014 0 01 02034 1069 BRU DEC3
* 02015 0 35 02005 1070 DEC1 STA VALU
* 02016 0 75 01473 1071 LDB DC
* 02017 0 43 01766 1072 BRM TCHR
02020 0 01 02033 1073 BRU DEC2
* 02021 0 76 02015 1074 LDA VALU
02022 0 75 00120 1075 LDB Z
02023 0 02 20001 1076 ROV
02024 0 67 00002 1077 LSH 2
* 02025 0 55 02021 1078 ADD VALU
02026 0 67 00001 1079 LSH 1
* 02027 0 55 01730 1080 ADD CHR
02030 0 40 20001 1081 OVT
* 02031 0 61 01773 1082 MIN TERR SET TRUNCATION ERROR
02032 0 01 02015 1083 BRU DEC1
* 02033 0 76 02025 1084 DEC2 LDA VALU
02034 0 46 01000 1085 DEC3 CNA
02035 0 53 00047 1086 SKN SIGN TEST FOR PRECEDING M1NUS
02036 0 46 01000 1087 CNA
* 02037 0 35 02033 1088 STA VALU RESULT
02040 0 51 02007 1089 BRR DECW EXIT
02041 0 00 00000 1090 GNF HLT 0
* 02042 0 76 01776 1091 GNF1 LDA TERM
* 02043 0 50 00000 1092 SKE CCHR TEST FOR COMMA
* 02044 0 53 01752 1093 SKN M1 ALWAYS SKIP
02045 0 51 02041 1094 BRR GNF EXIT
* 02046 0 50 01075 1095 SKE BCHR TEST FOR BLANK
* 02047 0 53 02044 1096 SKN M1 ALWAYS SKIP
02050 0 51 02041 1097 BRR GNF EXIT IF BLANK
* 02051 0 61 01762 1098 MIN EERR ILLEGAL CHARACTER
* 02052 0 76 02027 1099 LDA CHR
* 02053 0 35 02042 1100 STA TERM
* 02054 0 43 01777 1101 BRM GET SKIP CHARACTER
02055 0 01 02042 1102 BRU GNF1
02056 0 00 00000 1103 $MAXL HLT 0
02057 0 76 00001 1104 LDA MLOC OLD MAX
* 02060 0 73 00571 1105 SKG LOC
* 02061 0 76 02060 1106 LDA LOC
02062 0 35 00001 1107 STA MLOC NEW MAX
02063 0 51 02056 1108 BRR MAXL
00000000 1109 BCON EQU 0 BLANK CONNECTER CODE
00000100 1110 CCON EQU 0100 , CONNECTER CODE
00000020 1111 RCON EQU 020 ) CONNECTER CODE
00003310 1112 SCON EQU 03310 + ++ CONNECTER CODES
00003411 1113 DCON EQU 03411 - -- CONNECTER CDDES
00004522 1114 PCON EQU 04522 * ** CONNECTER CODES
00004647 1115 QCON EQU 04647 / // CONNECTER CODES
1116 END
02064 77770000
02065 00005000
02066 00001700
02067 10101010
02070 00000020
02071 00000061
02072 00005100
02073 00177777
02074 00177775
02075 00040000
02076 00000012
02077 37777777
02100 00000054
02101 77777722
02102 00000026
00241 LADD
01210 LIMT
02061 LOC
00265 LRT
00541 LST
00363 LSXT
00217 LTR1
00223 LTR2
00243 LTR3
02047 M1
00766 MODE
01765 OC
00503 OCTF
01203 OERR
00260 PASS
00651 PERR
00274 REFM
00747 RELM
00741 RERR
00673 SCHR
01054 SC
01747 SKB
00016 SOT
02017 TCHR
02053 TERM
02031 TERR
00014 TPL
02037 VALU
00543 VERR
01622 WORD
01753 WRD1
01754 WRD2
00263 XERR
00575 ADDR
00573 B8
02046 BCHR
02043 CCHR
00661 CC
02052 CHR
00533 CNTR
02016 DC
01177 DERR
00476 DLY1
01174 DUPM
02051 EERR
02054 GET
00432 IC
00566 IFLG
Reference in New Issue View Git Blame Copy Permalink