FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 131

4173 06511 0 02 00036 LDA B YES- B = B+16 4174 06512 0 06 00666 ADD K109 4175 06513 0 04 00036 STA B 4176 06514 0 02 00710 LDA IU IU = ARR 4177 06515 0 07 00737 SUB K103 4178 06516 100040 SZE 4179 06517 0 01 07023 JMP EX75 NO, GO TO EX75 4180 06520 1 04 17400 STA DP,1 A(I) = 0 4181 06521 0 04 00075 STA X4 X4 = 0 4182 06522 0 04 06221 STA T3EX T3 = 0 4183 06523 0 04 07117 STA K T5 = A 4184 06524 0 02 00030 LDA D0 4185 06525 0 04 06224 STA T9EX T9 = D0 4186 06526 0 02 00625 LDA A 4187 06527 0 04 06222 STA T5EX T5 = A 4188 06530 0 02 00026 LDA AT 4189 06531 0 07 00741 SUB K105 AT = DUM 4190 06532 100040 SZE 4191 06533 0 01 07020 JMP EX74 NO, GO TO EX74 4192 06534 0 04 06220 STA T2EX YES, T (0) = 0 4193 06535 0 10 07106 JST EX99 DATA POOL CHECK 4194 06536 0 35 00626 LDX I 4195 06537 0 02 00625 LDA A 4196 06540 1 04 17400 STA DP,1 A(I) = A 4197 06541 0 02 00677 LDA K132 OI (I) = A, 11 4198 06542 0414 67 LGL 9 4199 06543 0 06 00745 ADD K124 4200 06544 1 04 17401 STA DP+1,1 I=9 4201 06545 0 02 00030 EX54 LDA D0 IF D0 = 1, GO TO EX56 4202 06546 0 07 00735 SUB K101 4203 06547 101040 SNZ 4204 06550 0 01 06570 JMP EX56 4205 06551 0 10 07106 JST EX99 DATA POOL CHECK 4206 06552 0 01 06554 JMP *+2 4207 06553 0 12 07117 EX55 IRS K K = K+1 4208 06554 0 35 07117 LDX K 4209 06555 1 02 00071 LDA X,1 4210 06556 0 35 00626 LDX I 4211 06557 1 04 17400 STA DP,1 O(I) = * 4212 06560 0 02 00737 LDA K103 I (I) = T3+13 4213 06561 0414 67 LGL 9 T3 = T3+16 4214 06562 0 06 06221 ADD T3EX A (A) = T6 4215 06563 0 06 00751 ADD K129 =13 4216 06564 1 04 17401 STA DP+1,1 4217 06565 0 03 00673 ANA K118 4218 06566 0 06 00737 ADD K103 4219 06567 0 04 06221 STA T3EX T3 = A(A) 4220 06570 0 10 02253 EX56 JST IV00 INPUT INTEGER VARIABLE 4221 06571 0 10 07106 EX59 JST EX99 DATA POOL CHECK 4222 06572 0 35 00626 LDX I