FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 90

2592 * 2593 * 2594 * 2595 * ************************ 2596 * *CONTROL CARD PROCESSOR* 2597 * ************************ 2598 04007 0 10 13531 CCRD JST FS00 FLUSH BUFFER IF NECESSARY 2599 04010 0 10 02745 JST LIST LIST CARD 2600 04011 0 02 14040 LDA CI WORD CONTAINING COLUMN 1 2601 04012 0414 64 LGL 12 2602 04013 101040 SNZ 2603 04014 0 02 04030 LDA CCRK ='030000 (EOJ CODE = 3) 2604 04015 0404 72 LGR 6 TRUNCATE TO A DIGIT 2605 04016 0 04 13650 STA OCI 2606 04017 0 02 00742 LDA K106 =6 2607 04020 0 04 00063 STA OCNT SET BUFFER WORD COUNT TO 3 2608 04021 0 10 13531 JST FS00 FLUSH BUFFER 2609 04022 0 02 14040 LDA CI 2610 04023 0414 64 LGL 12 CHECK COLUMN 1 FOR CONTROL CODE 0 2611 04024 100040 SZE 2612 04025 0 01 02666 JMP ER20 SKIP TO NEXT CARD (NOT CONTROL CARD) 2613 04026 0 10 00000 CALL F4$END CLOSE-OUT I/O DEVICES AND STOP 2614 04027 0 01 01001 JMP A0 RESTART NEW COMPILATION 2615 04030 030000 CCRK OCT 030000 EOJ CONTROL CODE 2616 EJCT