FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 117

3591 * 3592 * 3593 * ******************** 3594 * *STATEMENT FUNCTION* 3595 * ******************** 3596 * OLD ASSIGN VALUES ARE SAVED IN SFTB AND ARE 3597 * RESTORED AT COMPLETION. 3598 05507 0 02 00737 G1 LDA K103 (A) = 3 3599 05510 0 10 04272 JST NP00 FIRST NON-SPEC CHECK 3600 05511 0 10 02341 JST SY00 INPUT SYMBOL 3601 05512 0 10 03604 JST LO00 DEFINE LOCATION 3602 05513 0 02 00737 LDA K103 3603 05514 0 04 00642 STA D INITIALIZE DO PTR. 3604 05515 0 10 07514 JST GE00 GENERATE SUBPROGRAM ENTRANCE 3605 05516 0 02 00753 LDA K153 '=' TEST 3606 05517 0 10 02352 JST TS00 3607 05520 0 10 02224 JST II00 INPUT ITEM 3608 05521 140040 CRA 3609 05522 0 10 06225 JST EX00 EXPRESSION 3610 05523 0 12 00635 IRS TCF TCF = TCF+1 3611 05524 0 02 00642 G1A LDA D LOOP TO RESTORE ASSIGN TABLE ENTRY DATA 3612 05525 0 07 00737 SUB K103 3613 05526 0 04 00642 STA D DECREMENT D 3614 05527 101040 SNZ 3615 05530 0 01 05546 JMP G1B JMP IF DONE 3616 05531 0 06 00655 ADD DO OTHERWISE SET I=DO+D 3617 05532 0 04 00626 STA I 3618 05533 0 04 00000 STA 0 3619 05534 1 02 17401 LDA DP+1,1 3620 05535 0 04 00625 STA A SET A OF ENTRY 3621 05536 1 02 17403 LDA DP+3,1 3622 05537 0 35 00625 LDX A SET R TO A 3623 05540 1 04 17400 STA DP,1 3624 05541 0 35 00626 LDX I SET R TO I 3625 05542 1 02 17402 LDA DP+2,1 3626 05543 0 35 00625 LDX A SET R TO A 3627 05544 1 04 17401 STA DP+1,1 3628 05545 0 01 05524 JMP G1A NO, GO TO G1A 3629 05546 0 02 04271 G1B LDA T1NP RESTORE A TO FUN NAME 3630 05547 0 04 00625 STA A 3631 05550 0410 60 LLL 16 3632 05551 0 02 13033 LDA OMJ1 3633 05552 0 10 11471 JST OB00 3634 05553 0 10 03222 JST TG00 TAG SUBPROGRAM 3635 05554 0 01 03637 JMP A1 GO TO C/R TEST 3636 * - W5 END 3637 EJCT