FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 174

5771 * ********************************* 5772 * *BLOCK DATA SUBPROGRAM PROCESSOR* 5773 * ********************************* 5774 * SET BLOCK DATA FLAG AND OUTPUT FORCE LOAD CODE 5775 11305 0 02 00652 R3 LDA LSTF =0 IF FIRST STATEMENT IN THE SUBPROGRAM 5776 11306 100040 SZE 5777 11307 0 01 11312 JMP *+3 5778 11310 0 10 02615 JST ER00 ERROR...NOT FIRST STATEMENT 5779 11311 141314 BCI 1,BL 'BLOCK DATA' NOT FIRST STATEMENT 5780 11312 0 04 00644 STA BDF SET BLOCK DATA FLAG ON (NON-ZERO) 5781 11313 0 10 01157 JST CH00 INPUT NEXT CHARACTER 5782 11314 0 01 03637 JMP A1 CHECK FOR (CR) AND EXIT 5783 EJCT