FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 88

2532 * 2533 * ***************** 2534 * *STATEMENT INPUT* 2535 * **************** 2536 * SET UP PROCESSING OF NEXT SOURCE STATEMENT 2537 * PROCESS STATEMENT NUMBER IF PRESENT 2538 * WRAPUP ANY OUTSTANDING ARITHMETIC IF 2539 03723 140040 C7 CRA 2540 03724 0 04 00651 STA LSTN LSTN = O 2541 03725 0 04 00077 STA IFLG IFLG = O 2542 03726 0 04 00650 STA LIF LIF = O 2543 03727 0 10 00000 JST OPST PREPARE OP-16 STMT PROCESSORS 2544 03730 0 02 00113 LDA L0 L = L (O) 2545 03731 0 04 00627 STA L 2546 03732 0 02 14040 LDA CI CHECK CARD COLUMN 1 2547 03733 141140 ICL FOR $ CHARACTER 2548 03734 0 11 00662 CAS K15 ='$' 2549 03735 100000 SKP X 2550 03736 0 01 04007 JMP CCRD CONTROL CARD 2551 03737 0 11 00755 CAS K49 TEST FOR INLINE ASSEMBLY 2552 03740 100000 SKP NO 2553 03741 0 01 00000 JMP ASMB YES ... GO PROCESS IT 2554 03742 0 10 02346 JST XN00 EXAMINE NEXT CHAR 2555 03743 100040 SZE 2556 03744 0 01 03751 JMP C71 2557 03745 0 10 02264 JST IS00 INPUT STATEMENT = 2558 03746 0 02 00625 LDA A 2559 03747 0 04 00651 STA LSTN LSTN = A 2560 03750 0 04 00653 STA LSTP 2561 03751 0 02 00636 C71 LDA IFF CHECK FOR IFF=0 2562 03752 101040 SNZ 2563 03753 0 01 03760 JMP C7B GO TO C7B 2564 03754 0 07 00651 SUB LSTN IF = LSTN 2565 03755 100040 SZE 2566 03756 0 01 03762 JMP C7C 2567 03757 0 04 00636 C7A STA IFF IFF = 0 2568 03760 0 10 03771 C7B JST C7LT LINE TEST 2569 03761 0 01 04032 JMP C8 2570 03762 0 02 00636 C7C LDA IFF IFF = A 2571 03763 0 04 00625 STA A 2572 03764 0400 40 LRL 32 2573 03765 0 02 13026 LDA K201 (A) = JMP INSTRUCTION 2574 03766 0 10 11471 JST OB00 OUTPUT OA 2575 03767 140040 CRA 2576 03770 0 01 03757 JMP C7A GO TO C7A 2577 03771 0 000000 C7LT DAC ** LINE TEST 2578 03772 0 02 14042 LDA CI+2 CI = BLANK 2579 03773 0 03 00672 ANA K116 LIST LINE 2580 03774 0 06 00660 ADD K8 RETURN 2581 03775 0 04 14042 STA CI+2