Previous File Previous Page Single Page Next Page Next File

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 132

6386 13232 0 10 13313 JST OM44 CHECK MODE FOR LOG 6387 13233 0 02 00720 LDA K102 =2 (MODE CODE FOR REAL) 6388 13234 0 11 00045 CAS MFL MODE OF EXPRESSION 6389 13235 0 01 13237 JMP *+2 6390 13236 0 01 13244 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING 6391 13237 0 11 00653 CAS IM MODE OF ITEM 6392 13240 0 01 13242 JMP *+2 6393 13241 0 01 13244 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING 6394 13242 0 02 00723 LDA K105 6395 13243 0 10 13313 JST OM44 TEST FOR MODE = COMPLEX 6396 13244 0 02 13141 OM26 LDA T0OM OPERATOR BEING PROCESSED 6397 13245 0 11 02702 CAS K153 6398 13246 0 01 13250 JMP *+2 6399 13247 0 01 13274 JMP OM36 T(0)='=' (ALLOW INTEGER MODE) 6400 13250 0 02 00717 LDA K101 6401 13251 0 10 13313 JST OM44 TEST FOR MODE=INTEGER 6402 13252 0 02 00653 LDA IM 6403 13253 0 11 00045 CAS MFL 6404 13254 0 01 13276 JMP OM38 CONVERT MODE OF ACCUMULATOR 6405 13255 0 01 13256 JMP *+1 6406 13256 0 10 02722 OM30 JST NF00 SET LBUF+2 TO SPACES 6407 13257 0 02 13141 LDA T0OM 6408 13260 0 04 00000 STA 0 6409 13261 1 02 05032 LDA A9X4,1 PICK-UP PRINT CODE FOR 'P' OPERATOR 6410 13262 0405 72 ARS 6 6411 13263 0 03 00727 ANA K100 ='377 6412 13264 101040 SNZ 6413 13265 0 01 13323 JMP OM46 MODE MIXING ERROR 6414 13266 0414 70 LGL 8 6415 13267 0 05 13517 ERA OM91 ADD '$' 6416 13270 0 04 00570 STA NAMF 6417 13271 0 02 00752 LDA K134 6418 13272 0 04 13141 STA T0OM T(0)=',' 6419 13273 0 01 13303 JMP OM40 6420 * 6421 13274 0 02 00723 OM36 LDA K105 6422 13275 0 10 13313 JST OM44 CHECK FOR MODE=COMPLEX 6423 13276 0 02 00653 OM38 LDA IM 6424 13277 0 04 00045 STA MFL 6425 13300 0 10 02722 JST NF00 SET LBUF+2 TO SPACES 6426 13301 0 02 13520 LDA OM92 'C$' 6427 13302 0 04 00570 STA NAMF 6428 13303 0 10 12363 OM40 JST CN00 OUTPUT....CALL NAMF 6429 13304 0 02 00045 LDA MFL 6430 13305 0 04 00653 STA IM SET ITEM MODE TO CURRENT MODE 6431 13306 0 02 00570 LDA NAMF 6432 13307 0 11 13524 CAS OM96 6433 13310 0 01 13206 JMP OM14 6434 13311 -0 01 13147 JMP* OM00 6435 13312 0 01 13206 JMP OM14 OUTPUT ARGUMENT ADDRESS
Previous File Previous Page Single Page Next Page Next File