FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 151

4870 * 4871 * 4872 * ***************** 4873 * *INPUT SUBSCRIPT* 4874 * ***************** 4875 07665 0 00 00000 SCT0 PZE 0 4876 07666 0 000000 SC00 DAC ** 4877 07667 0 04 07665 STA SCT0 TO = (A) 4878 07670 140040 CRA 4879 07671 0 04 00053 STA NS 4880 07672 0 04 00065 STA S2 NS = S2 = S3 = 0 4881 07673 0 04 00066 STA S3 4882 07674 0 02 14474 LDA K17 (-TEST 4883 07675 0 10 02352 JST TS00 4884 07676 0 02 00654 SC10 LDA EBAR 4885 07677 101400 SMI 4886 07700 0 01 07704 JMP SC15 EBAR . GR. 0 4887 07701 0 10 02346 JST XN00 EXAMINE NEXT CHAR. 4888 07702 100040 SZE 4889 07703 0 01 07741 JMP SC70 IF (A) NON ZERO, 4890 07704 0 10 07645 SC15 JST IG00 GO TO SC70 4891 07705 0 02 07665 LDA SCT0 INPUT INTEGER 4892 07706 100040 SZE 4893 07707 100400 SPL 4894 07710 0 01 07714 JMP SC60 4895 07711 0 02 00774 LDA ID 4896 07712 0 07 00735 SUB K101 4897 07713 0 01 07716 JMP SC30 4898 07714 0 10 02762 SC60 JST AS00 ASSIGN ITEM 4899 07715 0 02 00625 SC20 LDA A S (NS+1) = A 4900 07716 000201 SC30 IAB 4901 07717 0 02 07753 LDA SC90 4902 07720 0 06 00053 ADD NS 4903 07721 0 04 07754 STA SC91 4904 07722 000201 IAB S(NS+1) = A 4905 07723 -0 04 07754 STA* SC91 4906 07724 0 02 00053 LDA NS 4907 07725 141206 AOA 4908 07726 0 04 00053 STA NS NS = NS + 1 4909 07727 0 07 00737 SUB K103 4910 07730 100040 SZE 4911 07731 0 01 07734 JMP SC50 MORE SUBSCRIPTS PERMITTED 4912 07732 0 10 02360 SC40 JST IP00 )-INPUT OPERATOR 4913 07733 -0 01 07666 JMP* SC00 RETURN 4914 07734 0 02 00067 SC50 LDA TC 4915 07735 0 07 00754 SUB K134 4916 07736 100040 SZE 4917 07737 0 01 07732 JMP SC40 TEPMINATOR NOT A COMMA 4918 07740 0 01 07676 JMP SC10 GO TO SC10 4919 07741 0 10 02260 SC70 JST IR00 INPUT INT VARIABLE