FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 175

5784 * 5785 * 5786 * 5787 * 5788 * 5789 * 5790 * 5791 * *************************** 5792 * *TRACE STATEMENT PROCESSOR* 5793 * *************************** 5794 * SETS TRACE TAG ON VARIABLES OR SETS TRACE FLAG 5795 11315 0 10 02346 TRAC JST XN00 EXAMINE NEXT CHARACTER 5796 11316 100040 SZE SKIP IF CHAR. WAS A DIGIT 5797 11317 0 01 11324 JMP TRAD JUMP IF CHAR. WAS A LETTER 5798 11320 0 10 02264 JST IS00 INPUT STATEMENT NO. 5799 11321 0 02 00625 LDA A STATEMENT NO. POINTER 5800 11322 0 04 00645 STA TRF SET TRACE FLAG ON 5801 11323 0 01 03637 JMP A1 TEST FOR (CR) AND EXIT 5802 * 5803 11324 0 10 02242 TRAD JST NA00 INPUT NAME 5804 11325 0 35 00625 LDX A SET INDEX TO NAME ENTRY 5805 11326 1 02 17404 LDA DP+4,1 TT(A) TRACE TAG 5806 11327 140024 CHS 5807 11330 1 04 17404 STA DP+4,1 5808 11331 0 01 10132 JMP B1 (,) OR (CR) TEST 5809 EJCT