FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 191

6428 12370 0 04 12241 STA T0OM T(0)=',' 6429 12371 0 01 12401 JMP OM40 6430 * 6431 12372 0 02 00741 OM36 LDA K105 6432 12373 0 10 12411 JST OM44 CHECK FOR MODE=COMPLEX 6433 12374 0 02 00706 OM38 LDA IM 6434 12375 0 04 00630 STA MFL 6435 12376 0 10 02501 JST NF00 SET L=JF+2 TO SRACES 6436 12377 0 02 12616 LDA OM92 'C$' 6437 12400 0 04 00051 STA NAMF 6438 12401 0 10 11363 OM40 JST CN00 OUTPUT....CALL NAMF 6439 12402 0 02 00630 LDA MFL 6440 12403 0 04 00706 STA IM SET ITEM MODE TO CURRENT MODE 6441 12404 0 02 00051 LDA NAMF 6442 12405 0 11 12622 CAS OM96 6443 12406 0 01 12306 JMP OM14 6444 12407 -0 01 12247 JMP* OM00 6445 12410 0 01 12306 JMP OM14 OUTPUT ARGUMENT ADDRESS 6446 * 6447 *-----SUBROUTINE TO CHECK FOR ILLEGAL IM OR MFL MODES. 6448 12411 0 000000 OM44 DAC ** RETURN ADDR. 6449 12412 0 11 00706 CAS IM CHECK FOR IMO(A) 6450 12413 0 01 12415 JMP *+2 6451 12414 0 01 12421 JMP OM46 ERROR 6452 12415 0 11 00630 CAS MFL CHECK FOR MFL=(A) 6453 12416 -0 01 12411 JMP* OM44 6454 12417 0 01 12421 JMP OM46 ERROR 6455 12420 -0 01 12411 JMP* OM44 6456 12421 0 10 02615 OM46 JST ER00 NON-RECOVERABLE ERROR...... 6457 12422 146715 BCI 1,MM MODE MIXING ERROR 6458 * 6459 *------SPECIAL 'P' OPERATOR TABLE 6460 12423 000032 OM50 OCT 32 'Q' 6461 12424 000017 OCT 17 ',' 6462 12425 000000 OCT 00 '0' 6463 12426 000022 OCT 22 'A' 6464 12427 000031 K152 OCT 31 'F' 6465 12430 000020 OCT 20 'E' 6466 12431 0 012703 OM52 DAC OMB3 ('Q') 6467 12432 0 012703 DAC OMB3 (',') 6468 12433 0 012703 DAC OMB3 ('0') 6469 12434 0 012437 DAC OM56 ('A') 6470 12435 0 012441 DAC OM60 ('F') 6471 12436 0 012477 DAC OM70 ('E') 6472 * 6473 * 6474 12437 0 02 13022 OM56 LDA OMI1 SET T(1) = ADD* 6475 12440 0 01 12701 JMP OMB1 6476 * 6477 12441 0 35 00625 OM60 LDX A