FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 132

4223 06573 0 02 00625 LDA A A(I) = A 4224 06574 1 04 17400 STA DP,1 4225 06575 0 02 00054 LDA NT 4226 06576 100040 SZE 4227 06577 0 01 06755 JMP EX68 CONSTANT ENCOUNTERED 4228 06600 0 10 01152 JST UC00 UNINPUT COLUMN 4229 06601 0 10 01350 JST DN00 INPUT DO NOT ASSIGN 4230 06602 101040 SNZ 4231 06603 0 01 06611 JMP EX57 IM = O 4232 06604 0 07 00735 SUB K101 4233 06605 101040 SNZ 4234 06606 0 01 06611 JMP EX57 IM = INTEGER 4235 06607 0 10 02615 JST ER00 4236 06610 151725 BCI 1,SU SUBSCRIPT INCREMENTER NOT A CONSTANT 4237 06611 0 35 00626 EX57 LDX I 4238 06612 0 02 00735 LDA K101 4239 06613 0414 67 LGL 9 4240 06614 0 06 06221 ADD T3EX 4241 06615 0 06 00747 ADD K127 4242 06616 1 04 17401 STA DP+1,1 O(I) = +, I(I) = T3+11 4243 06617 0 10 07106 JST EX99 DATA POOL CHECK 4244 06620 0 02 06224 EX58 LDA T9EX 4245 06621 0 04 00030 STA D0 RESET D(O) 4246 06622 0 02 00774 LDA ID SUBSCRIPT SIZE 4247 06623 0 07 00735 SUB K101 ID = ID-1 4248 06624 0 04 00774 STA ID 4249 06625 101040 SNZ IF ZERO, GO TO EX60 4250 06626 0 01 06640 JMP EX60 4251 06627 0 35 07117 LDX K 4252 06630 1 02 00030 LDA D0,1 D(K) = O 4253 06631 101040 SNZ 4254 06632 0 01 06742 JMP EX67 YES - (DUMMY DIMENSION) 4255 06633 000201 IAB 4256 06634 0 02 00774 LDA ID 4257 06635 0 10 02462 JST IM00 4258 06636 0 06 06220 ADD T2EX 4259 06637 0 04 06220 STA T2EX T2 = T2+ID*D(K) 4260 06640 0 02 06224 EX60 LDA T9EX 4261 06641 0 04 00030 STA D0 RESET D(O) 4262 06642 0 35 07117 LDX K 4263 06643 1 02 00073 LDA X+2,1 X(K+2) = O 4264 06644 101040 SNZ 4265 06645 0 01 06656 JMP EX62 YES - FINISHED 4266 06646 0 02 00754 LDA K134 =17 4267 06647 0 10 02352 JST TS00 COMMA TEST 4268 06650 1 02 00031 LDA D0+1,1 4269 06651 000201 IAB 4270 06652 1 02 00030 LDA D0,1 4271 06653 0 10 02462 JST IM00 4272 06654 1 04 00031 STA D0+1,1 D(K+1) = D(K+1)*D(K)