C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 121

5837 * 5838 * 5839 * ********************************* 5840 * *BLOCK DATA SUBPROGRAM PROCESSOR* 5841 * ********************************* 5842 * SET BLOCK DATA FLAG AND OUTPUT FORCE LOAD CODE 5843 12303 0 02 00072 R3 LDA LSTF =0 IF FIRST STATEMENT IN THE SUBPROGRAM 5844 12304 100040 SZE 5845 12305 0 01 12310 JMP *+3 5846 12306 0 10 03116 JST ER00 ERROR...NOT FIRST STATEMENT 5847 12307 141314 BCI 1,BL 'BLOCK DATA' NOT FIRST STATEMENT 5848 12310 0 04 00061 STA BDF SET BLOCK DATA FLAG ON (NON-ZERO) 5849 12311 0 10 01256 JST CH00 INPUT NEXT CHARACTER 5850 12312 0 01 04266 JMP A1 CHECK FOR (CR) AND EXIT 5851 * 5852 * 5853 * 5854 * 5855 * 5856 * 5857 * 5858 * *************************** 5859 * *TRACE STATEMENT PROCESSOR* 5860 * *************************** 5861 * SETS TRACE TAG ON VARIABLES OR SETS TRACE FLAG 5862 12313 0 10 02525 TRAC JST XN00 EXAMINE NEXT CHARACTER 5863 12314 100040 SZE SKIP IF CHAR, WAS A DIGIT 5864 12315 0 01 12322 JMP TRAD JUMP IF CHAR. WAS A LETTER 5865 12316 0 10 02443 JST IS00 INPUT STATEMENT NO. 5866 12317 0 02 00040 LDA A STATEMENT NO. POINTER 5867 12320 0 04 00065 STA TRF SET TRACE FLAG ON 5868 12321 0 01 04266 JMP A1 TEST FOR (CR) AND EXIT 5869 * 5870 12322 0 10 02373 TRAD JST NA00 INPUT NAME 5871 12323 0 10 02672 JST STXA SET INDEX TO NAME ENTRY 5872 12324 1 02 15404 LDA DP+4,1 TT(A) TRACE TAG 5873 12325 140024 CHS 5874 12326 1 04 15404 STA DP+4,1 5875 12327 0 01 02567 JMP B1 (,) OR (CR) TEST 5876 * (RETURN TO TRAC IF (,) ) 5877 * 5878 * 5879 * 5880 * ******************** 5881 * *OUTPUT OBJECT LINK* 5882 * ******************** 5883 12330 0 000000 OL00 DAC ** 5884 12331 0 10 12363 JST CN00 CALL NAME 5885 12332 140040 CRA 5886 12333 0 04 00640 STA DF DF = 0