FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 139

4538 07244 100040 SZE 4539 07245 0 01 07130 JMP CA04 4540 07246 0 02 00061 LDA P 4541 07247 0 07 00737 SUB K103 4542 07250 101400 SMI 4543 07251 0 01 07370 JMP CA39 4544 07252 0 02 07122 LDA T1CA 4545 07253 0 07 00061 SUB P 4546 07254 100040 SZE 4547 07255 0 02 00735 LDA K101 GO TO 4548 07256 141206 AOA P = - OR + 4549 07257 0 04 00061 STA P 4550 07260 0 35 00626 CA18 LDX I 4551 07261 1 02 17402 CA20 LDA DP+2,1 4552 07262 1 04 17400 STA DP,1 AOIN(J) = AOIN(J+2) 4553 07263 1 02 17403 LDA DP+3,1 4554 07264 1 04 17401 STA DP+1,1 4555 07265 140100 SSP 4556 07266 101040 SNZ 4557 07267 0 01 07273 JMP CA22 4558 07270 0 12 00000 IRS 0 J = J+2 4559 07271 0 12 00000 IRS 0 4560 07272 0 01 07261 JMP CA20 4561 07273 0 35 00626 CA22 LDX I 4562 07274 1 02 17401 LDA DP+1,1 4563 07275 140100 SSP IF 0 (I) = , 4564 07276 0404 67 LGR 9 4565 07277 0 11 00061 CAS P 4566 07300 0 01 07304 JMP CA24 4567 07301 0 11 00754 CAS K134 4568 07302 0 01 07304 JMP CA24 4569 07303 0 01 07332 JMP CA30 GO TO CA30 4570 07304 0 10 07411 CA24 JST ST00 TRIAD SEARCH 4571 07305 0 02 00061 LDA P 4572 07306 0 11 00677 CAS K132 IF P = +;*, AND, OR 4573 07307 0 01 07330 JMP CA28 4574 07310 0 01 07355 JMP CA37 GO TO CA37 4575 07311 0 11 00743 CAS K107 4576 07312 0 01 07330 JMP CA28 ELSE, GO TO CA26 4577 07313 0 01 07355 JMP CA37 4578 07314 0 11 00742 CAS K106 4579 07315 0 01 07330 JMP CA28 4580 07316 0 01 07355 JMP CA37 4581 07317 0 11 00737 CAS K103 4582 07320 0 01 07330 JMP CA28 4583 07321 0 01 07355 JMP CA37 4584 07322 0 11 00735 CAS K101 4585 07323 0 01 07325 JMP CA26 4586 * 4587 *