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

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

5037 10776 0 10 10672 JST SC00 INPUT SUBSCRIPTS 5038 10777 0 10 03656 JST FA00 FETCH ASSIGNS 5039 11000 0 02 00571 LDA ND IF ND = NS 5040 11001 0 07 00572 SUB NS 5041 11002 100040 SZE S1 = D* (S1 + D1* (S2+D2*S3) 5042 11003 0 01 11022 JMP IL10 ELSE, GO TO IL10 5043 11004 0 02 00606 LDA S3 5044 11005 000201 IAB 5045 11006 0 02 00635 LDA D2 5046 11007 0 10 02703 JST IM00 5047 11010 0 06 00605 ADD S2 5048 11011 000201 IAB 5049 11012 0 02 00634 LDA D1 5050 11013 0 10 02703 JST IM00 5051 11014 0 06 00604 ADD S1 5052 11015 000201 IAB 5053 11016 0 02 00633 LDA D0 5054 11017 0 10 02703 JST IM00 5055 11020 0 04 00604 STA S1 5056 11021 -0 01 10761 JMP* IL00 RETURN 5057 11022 0 02 00572 IL10 LDA NS IF NS NOT 1 5058 11023 0 07 00717 SUB K101 5059 11024 100040 SZE 5060 11025 0 01 11034 JMP IL20 GO TO IL20 5061 11026 0 02 00604 LDA S1 ELSE, 20 5062 11027 000201 IAB S1 * D0*S1 5063 11030 0 02 00633 LDA D0 5064 11031 0 10 02703 JST IM00 5065 11032 0 04 00604 IL18 STA S1 5066 11033 -0 01 10761 JMP* IL00 RETURN 5067 11034 0 10 03116 IL20 JST ER00 5068 11035 147304 BCI 1,ND WRONG NUMBER OF DIMENSIONS IN ARRAY ELEMENT 5069 11036 -0 01 10761 JMP* IL00 RETURN 5070 11037 0 10 03642 IL30 JST TV00 TAG VARIABLE 5071 11040 140040 CRA S1 = 0 5072 11041 0 01 11032 JMP IL18 RETURN 5073 * 5074 * 5075 * ************ 5076 * *FUNCTION * 5077 * *SUBROUTINE* 5078 * ************ 5079 * IF LSTF IS ZERO, THE STATEMENT IS OUT OF ORDER 5080 * FUNCTIONS ARE CHECKED TO ENSURE ARGUMENTS 5081 11042 0 02 00717 R1 LDA K101 5082 11043 0 04 00046 STA SFF SFF = 1 5083 11044 0 02 00072 R2 LDA LSTF 5084 11045 100040 SZE IF LSTF = 0 5085 11046 0 01 11051 JMP R2A 5086 11047 0 10 03116 JST ER00 ILLEGAL STATEMENT