C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 101

4837 * *GENERATE SUBPRO ENTRANCE* 4838 * ************************** 4839 * OUTPUT SUBPROGRAM ENTRANCE CODE , INCLUDING THE 4840 * CALL TO ARGUMENT ADDRESS TRANSFER. 4841 10524 0 00 00000 T0GE PZE 0 4842 10525 0 000000 GE00 DAC ** 4843 10526 140040 CRA 4844 10527 0 04 10524 STA T0GE 4845 10530 0 02 00702 LDA K17 ( TEST 4846 10531 0 10 02547 JST TS00 4847 10532 0 10 02373 GE10 JST NA00 INPUT NAME 4848 10533 0 02 00041 LDA I IFF I=0, 4849 10534 101040 SNZ 4850 10535 0 01 10564 JMP GE20 GO TO GE20 4851 10536 0 11 10031 CAS K141 4852 10537 101000 NOP 4853 10540 0 01 10621 JMP GE30 MAKE ENTRY IN SFTB TABLE 4854 10541 0 06 00721 ADD K103 4855 10542 0 04 00041 STA I IF FULL, GO TO GE30 4856 10543 0 10 02672 JST STXA SET XR TO A 4857 10544 1 02 15400 LDA DP,1 4858 10545 000201 IAB 4859 10546 0 10 02676 JST STXI ESTABLISH I 4860 10547 000201 IAB 4861 10550 1 04 10460 STA SFTB,1 4862 10551 0 10 02672 JST STXA SET XR TO A 4863 10552 1 02 15401 LDA DP+1,1 4864 10553 000201 IAB 4865 10554 0 10 02676 JST STXI SET XR TO I 4866 10555 000201 IAB 4867 10556 1 04 10461 STA SFTB+1,1 4868 10557 0 02 00040 LDA A 4869 10560 1 04 10462 STA SFTB+2,1 4870 10561 0 10 02672 JST STXA SET XR TO A 4871 10562 140040 CRA 4872 10563 1 04 15401 STA DP+1,1 CLEAR OLD USACE 4873 10564 0 02 00723 GE20 LDA K105 4874 10565 000201 IAB 4875 10566 0 02 00060 LDA RPL 4876 10567 0 06 10524 ADD T0GE 4877 10570 0 06 00721 ADD K103 (B) = DUM 4878 10571 0 10 04214 JST AF00 DEFINE AFT (A=RPL+T0+3) 4879 10572 0 12 10524 IRS T0GE T0 = T0+1 4880 10573 0 02 00752 LDA K134 4881 10574 0 07 00607 SUB TC IF TC = , 4882 10575 101040 SNZ 4883 10576 0 01 10532 JMP GE10 GO TO GE10 4884 10577 0 10 02555 JST IP00 INPUT OPERATOR 4885 10600 140040 CRA 4886 10601 0 04 00640 STA DF