FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 153

4932 * 4933 * 4934 * ******************** 4935 * *INPUT LIST ELEMENT* 4936 * ******************** 4937 * IF THE ITEM IS AN ARRAY. PROCESS THE SUBSCRIPT 4938 07755 0 000000 IL00 DAC ** 4939 07756 0 10 02242 JST NA00 INPUT NAME 4940 07757 0 02 00026 LDA AT 4941 07760 0 07 00741 SUB K105 NON-DUMMMY TEST 4942 07761 100040 SZE 4943 07762 0 01 07765 JMP *+3 4944 07763 0 10 02615 JST ER00 USAGE ERROR 4945 07764 142304 BCI 1,DD DUMMY ITEM IN AN EQUIV. OR DATA LIST 4946 07765 0 02 00710 LDA IU IF IU NOT APR. 4947 07766 0 07 00737 SUB K103 4948 07767 100040 SZE 4949 07770 0 01 10026 JMP IL30 GO TO IL30 4950 07771 0 02 00737 LDA K103 4951 07772 0 10 07666 JST SC00 INPUT SUBSCRIPTS 4952 07773 0 10 03317 JST FA00 FETCH ASSIGNS 4953 07774 0 02 00076 LDA ND IF ND = NS 4954 07775 0 07 00053 SUB NS 4955 07776 100040 SZE S1 = D* S1 + D1* (S2+D2*D3) 4956 07777 0 01 10016 JMP IL10 ELSE, GO TO IL10 4957 10000 0 02 00066 LDA S3 4958 10001 000201 IAB 4959 10002 0 02 00032 LDA D2 4960 10003 0 10 02462 JST IM00 4961 10004 0 06 00065 ADD S2 4962 10005 000201 IAB 4963 10006 0 02 00031 LDA D1 4964 10007 0 10 02462 JST IM00 4965 10010 0 06 00064 ADD S1 4966 10011 000201 IL16 IAB 4967 10012 0 02 00030 LDA D0 4968 10013 0 10 02462 JST IM00 4969 10014 0 04 00064 IL18 STA S1 4970 10015 -0 01 07755 JMP* IL00 RETURN 4971 10016 0 02 00053 IL10 LDA NS IF NS NOT 1 4972 10017 0 07 00735 SUB K101 4973 10020 100040 SZE 4974 10021 0 01 10024 JMP IL20 GO TO IL20 4975 10022 0 02 00064 LDA S1 ELSE, 20 4976 10023 0 01 10011 JMP IL16 4977 10024 0 10 02615 IL20 JST ER00 4978 10025 147304 BCI 1,ND WRONG NUMBER OF DIMENSIONS IN ARRAY 4979 10026 0 10 03274 IL30 JST TV00 TAG VARIABLE 4980 10027 140040 CRA S1 = 0 4981 10030 0 01 10014 JMP IL18 RETURN