FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 138

4488 07162 0 01 07165 JMP CA10 4489 07163 0 01 07165 JMP CA10 4490 07164 0 01 07220 JMP CA14 GO TO CA14 4491 07165 0 15 07124 CA10 STX T9CA 4492 07166 0 02 07121 LDA T0CA 4493 07167 101400 SMI 4494 07170 0 01 07203 JMP CA13 4495 07171 0 35 07120 LDX KM8 4496 07172 0 02 00061 LDA P 4497 07173 1 11 14554 CAS CA90+8,1 4498 07174 0 01 07176 JMP *+2 4499 07175 0 01 07201 JMP *+4 4500 07176 0 12 00000 IRS 0 4501 07177 0 01 07173 JMP *-4 4502 07200 0 01 07400 JMP CA45 4503 07201 1 02 14564 LDA CA91+8,1 4504 07202 0 04 00061 STA P 4505 07203 0 35 00762 CA13 LDX K130 4506 07204 0 02 00061 LDA P 4507 07205 1 11 14554 CAS CA90+8,1 4508 07206 0 01 07210 JMP *+2 4509 07207 0 01 07215 JMP CA50 4510 07210 0 12 00000 IRS 0 4511 07211 0 01 07205 JMP *-4 4512 07212 0 35 07124 LDX T9CA 4513 07213 1 02 17401 LDA DP+1,1 4514 07214 0 01 07216 JMP *+2 4515 07215 140040 CA50 CRA 4516 07216 0 04 07121 STA T0CA 4517 07217 0 35 07124 LDX T9CA 4518 07220 1 02 17400 CA14 LDA DP,1 4519 07221 0 04 00057 STA O1 O1=A(I) 4520 07222 1 02 17402 LDA DP+2,1 4521 07223 0 04 00060 STA O2 O2 = A (I+2) 4522 07224 0 02 07123 LDA T2CA 4523 07225 101040 SNZ 4524 07226 0 01 07355 JMP CA37 IF ZERO, GO TO CA37 4525 07227 1 02 17377 LDA DP-1,1 4526 07230 140100 SSP 4527 07231 0404 67 LGR 9 4528 07232 0 04 07122 STA T1CA 4529 07233 1 02 17377 LDA DP-1,1 4530 07234 0 03 00673 ANA K118 IF T2 .GT. I (I-2) 4531 07235 0 07 07123 SUB T2CA 4532 07236 100400 SPL 4533 07237 0 01 07260 JMP CA18 4534 07240 100040 SZE 4535 07241 0 01 07130 JMP CA04 4536 07242 0 02 00060 LDA O2 4537 07243 0 07 07512 SUB ACCP