FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 192

6478 12442 1 02 17401 LDA DP+1,1 6479 12443 0404 62 LGR 14 SET UV=IU(A) 6480 12444 0 04 00710 STA IU 6481 12445 0 35 00626 LDX I 6482 12446 1 02 17402 LDA DP+2,1 P(I) 6483 12447 0 03 00764 ANA K133 ='77 6484 12450 101040 SNZ 6485 12451 0 01 12466 JMP OM64 (POSSIBLE DUMMY ARRAY FETCH) 6486 12452 0 02 00706 OM62 LDA IM 6487 12453 0 04 00630 STA MFL SET CURRENT MODE TO ITEM MODE 6488 12454 0414 70 LGL 8 6489 12455 0 06 00706 ADD IM 6490 12456 0 05 12615 ERA OM90 6491 12457 0 04 00052 STA NAMF+1 6492 12460 0 02 00710 LDA IU 6493 12461 0 07 00735 SUB K101 CHECK FOR IU=1 (SUBROUTINE) 6494 12462 100040 SZE 6495 12463 0 01 12623 JMP OMA1 6496 12464 0 02 13023 LDA OMI2 SET T(1) = JST 6497 12465 0 01 12475 JMP OM66 6498 12466 0 02 00710 OM64 LDA IU 6499 12467 0 07 00737 SUB K103 CHECK FOR IV=3 (ARRAY) 6500 12470 100040 SZE 6501 12471 0 01 12452 JMP OM62 6502 12472 0 02 00735 LDA K101 SET CURRENT MODE TO INTEGER 6503 12473 0 04 00630 STA MFL 6504 12474 0 02 13024 LDA OMI3 SET T(1) = LDA* 6505 12475 0 04 12242 OM66 STA T1OM 6506 12476 0 01 12703 JMP OMB3 6507 * 6508 12477 0 02 00735 OM70 LDA K101 6509 12500 0 11 00706 CAS IM CHECK ITEM MODE EQUALS INTEGER 6510 12501 0 01 12503 JMP *+2 6511 12502 0 01 12506 JMP OM74 6512 12503 0 02 00741 LDA K105 CHECK FOR MODE = COMPLEX 6513 12504 0 10 12411 JST OM44 6514 12505 0 01 12330 JMP OM20 6515 12506 0 02 00737 OM74 LDA K103 CHECK FOR MODE = LOGICAL 6516 12507 0 10 12411 JST OM44 6517 12510 0 01 12355 JMP OM30 OUTPUT SUBROUTINE CALL 6518 * 6519 12511 0 35 00625 OM76 LDX A 6520 12512 1 02 17400 LDA DP,1 O2(A) 6521 12513 0 04 12243 STA T2OM T(2)=O2(A) 6522 12514 1 02 17402 LDA DP+2,1 P(A) 6523 12515 0 03 00764 ANA K133 ='77 6524 12516 101040 SNZ 6525 12517 0 01 12563 JMP OM84 P(A)='0' (SUBSCRIPTED VARIABLE) 6526 12520 0 11 00701 CAS K139 6527 12521 0 01 12523 JMP *+2