FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 190

6378 12306 0 02 00630 OM14 LDA MFL SET MFL.IM AS DIGITS INTO NAMF 6379 12307 0415 70 ALS 8 6380 12310 0 06 00706 ADD IM 6381 12311 0 05 12615 ERA OM90 ADD '0''0' 6382 12312 0 04 00052 STA NAMF+1 6383 12313 0 35 00762 LDX K130 =-6 6384 12314 0 02 12241 LDA T0OM 6385 12315 1 11 12431 CAS OM50+6,1 CHECK FOR SPECIAL OPERATOR 6386 12316 0 01 12320 JMP *+2 6387 12317 -1 01 12437 JMP* OM52+6,1 'P'='Q',',','O','A'F', OR 'E' 6388 12320 0 12 00000 IRS 0 6389 12321 0 01 12315 JMP *-4 6390 12322 0 02 00630 LDA MFL 6391 12323 101040 SNZ 6392 12324 0 01 12452 JMP OM62 SPECIAL LIBRARY FIX FOR ( A= ) 6393 12325 0 11 00706 CAS IM CHECK FOR MODE MIXING 6394 12326 0 01 12330 JMP *+2 6395 12327 0 01 12623 JMP OMA1 ITEM MODE SAME AS CURRENT MODE 6396 12330 0 02 00737 OM20 LDA K103 6397 12331 0 10 12411 JST OM44 CHECK MODE FOR LOG 6398 12332 0 02 00736 LDA K102 =2 (MODE CODE FOR REAL) 6399 12333 0 11 00630 CAS MFL MODE OF EXPRESSION 6400 12334 0 01 12336 JMP *+2 6401 12335 0 01 12343 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING 6402 12336 0 11 00706 CAS IM MODE OF ITEM 6403 12337 0 01 12341 JMP *+2 6404 12340 0 01 12343 JMP OM26 IF MODE=REAL, ALLOW COMPLEX MODE MIXING 6405 12341 0 02 00741 LDA K105 6406 12342 0 10 12411 JST OM44 TEST FOR MODE= COMPLEX 6407 12343 0 02 12241 OM26 LDA T0OM OPERATOR BEING PROCESSED 6408 12344 0 11 00753 CAS K153 6409 12345 0 01 12347 JMP *+2 6410 12346 0 01 12372 JMP OM36 T(0)='=' (ALLOW INTEGER MODE) 6411 12347 0 02 00735 LDA K101 6412 12350 0 10 12411 JST OM44 TEST FOR MODE=INTEGER 6413 12351 0 02 00706 LDA IM 6414 12352 0 11 00630 CAS MFL 6415 12353 0 01 12374 JMP OM38 CONVERT MODE OF ACCUMULATOR 6416 12354 0 01 12355 JMP *+1 6417 12355 0 10 02501 OM30 JST NF00 SET LBJF+2 10 SPACES 6418 12356 0 35 12241 LDX T0OM 6419 12357 1 02 14426 LDA A9X4,1 PICK-UP PRINT CODE FOR 'P' OPERATOR 6420 12360 0405 72 ARS 6 6421 12361 141050 CAL ='377 6422 12362 101040 SNZ 6423 12363 0 01 12421 JMP OM46 MODE MIXING ERROR 6424 12364 0414 70 LGL 8 6425 12365 0 05 00662 ERA K15 ADD '$' 6426 12366 0 04 00051 STA NAMF 6427 12367 0 02 00754 LDA K134