FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 145

4729 * 4730 * 4731 * ************************** 4732 * *GENERATE SUBPRO ENTRANCE* 4733 * ************************** 4734 * OUTPUT SUBPROGRAM ENTRANCE CODE , INCLUDING THE 4735 * CALL TO ARGUMENT ADDRESS TRANSFER. 4736 07513 0 00 00000 T0GE PZE 0 4737 07514 0 000000 GE00 DAC ** 4738 07515 140040 CRA 4739 07516 0 04 07513 STA T0GE 4740 07517 0 02 14474 LDA K17 TEST 4741 07520 0 10 02352 JST TS00 4742 07521 0 10 02242 GE10 JST NA00 INPUT NAME 4743 07522 0 02 00642 LDA D IFF D=0 4744 07523 101040 SNZ 4745 07524 0 01 07546 JMP GE20 GO TO GE20 4746 07525 0 06 00737 ADD K103 4747 07526 0 04 00642 STA D 4748 07527 0 06 00655 ADD DO 4749 07530 0 04 00626 STA I IF FULL, GO TO GE30 4750 07531 0 35 00625 LDX A 4751 07532 1 02 17400 LDA DP,1 4752 07533 0 35 00626 LDX I 4753 07534 1 04 17400 STA DP,1 4754 07535 0 35 00625 LDX A 4755 07536 1 02 17401 LDA DP+1,1 4756 07537 0 35 00626 LDX I 4757 07540 1 04 17377 STA DP-1,1 4758 07541 0 02 00625 LDA A 4759 07542 1 04 17376 STA DP-2,1 4760 07543 0 35 00625 LDX A 4761 07544 140040 CRA 4762 07545 1 04 17401 STA DP+1,1 CLEAR OLD USAGE 4763 07546 0 02 00741 GE20 LDA K105 4764 07547 000201 IAB 4765 07550 0 02 00643 LDA RPL 4766 07551 0 06 07513 ADD T0GE 4767 07552 0 06 00737 ADD K103 (B) = DUM 4768 07553 0 10 03571 JST AF00 DEFINE AFT (A=RPL+T0+3) 4769 07554 0 12 07513 IRS T0GE T0 = T0+1 4770 07555 0 02 00754 LDA K134 4771 07556 0 07 00067 SUB TC IF TC = , 4772 07557 101040 SNZ 4773 07560 0 01 07521 JMP GE10 GO TO GE10 4774 07561 0 10 02360 JST IP00 INPUT OPERATOR 4775 07562 0 10 13243 JST OC00 OUTPUT ABS (0) 4776 07563 0 02 07513 LDA T0GE 4777 07564 0 04 00774 STA ID ID = T0 4778 07565 0 02 07601 LDA K69