FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 86

2472 * 2473 * 2474 * ********** 2475 * *CONTINUE* 2476 * ********** 2477 * WRAPUP LOGICAL IF, CHECK TRACE STOP AND SEARCH 2478 * DO TABLE FOR DO TERMINATION 2479 * NOTE COMMENT LINE AFTER A1 ON PRECEEDING PAGE 2480 03641 0 02 00650 C6 LDA LIF 2481 03642 100040 SZE IF LIF NON-ZERO. 2482 03643 0 01 03703 JMP C6H GO TO 2483 03644 0 02 00651 C6A LDA LSTN IF LSTN NON-ZERO. 2484 03645 100040 SZE GO TO 2485 03646 0 01 03651 JMP C6C 2486 03647 0 04 00652 C6B STA LSTF LSTF = 0 2487 03650 0 01 03723 JMP C7 GO TO STATEMENT INPUT 2488 03651 0 07 00645 C6C SUB TRF TRACE FLAG 2489 03652 101040 SNZ SKIP IF NOT END OF TRACE ZONE 2490 03653 0 04 00645 STA TRF SET TRF TO ZERO (TURN FLAG OFF) 2491 03654 0 02 00655 LDA DO START OF DO TABLE 2492 03655 0 06 00642 ADD D 2493 03656 0 04 00626 C6D STA I I = DO + D 2494 03657 0 35 00626 LDX I 2495 03660 0 07 00655 SUB DO 2496 03661 101040 SNZ 2497 03662 0 01 03647 JMP C6B GO TO C6B - FINISHED DO 2498 03663 1 02 17374 LDA DP-4,1 2499 03664 0 07 00651 SUB LSTN 2500 03665 100040 SZE 2501 03666 0 01 03677 JMP C6E 2502 03667 0 02 00652 LDA LSTF 2503 03670 100040 SZE 2504 03671 0 01 03721 JMP C6K 2505 03672 0 10 06155 JST DQ00 DO TERMINATION 2506 03673 0 02 00642 LDA D 2507 03674 0 07 00741 SUB K105 2508 03675 0 04 00642 STA D D = D-5 2509 03676 0 02 00652 LDA LSTF 2510 03677 0 04 00652 C6E STA LSTF 2511 03700 0 02 00626 LDA I 2512 03701 0 07 00741 SUB K105 2513 03702 0 01 03656 JMP C6D I = I-5 - CONTINUE DO LOOP 2514 03703 0 02 00636 C6H LDA IFF 2515 03704 0 04 00625 STA A 2516 03705 101040 SNZ 2517 03706 0 01 03714 JMP C6J 2518 03707 0410 60 LLL 16 2519 03710 0 02 13026 LDA OMI5 (A) = JMP INSTRUCTION 2520 03711 0 10 11471 JST OB00 OUTPUT OA 2521 03712 140040 CRA