FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 71

2086 * 2087 * 2088 * 2089 * 2090 * **************** 2091 * *TAG SUBPROGRAM* 2092 * **************** 2093 * TAG ITEM AS A SUBPROGRAM, CHECK TO SEE IF 2094 * NAME IS IN IMPLICIT MODE TABLE AND SET 2095 * MODE ACCORDINGLY 2096 * 2097 03222 0 000000 TG00 DAC ** 2098 03223 0 02 00710 LDA IU 2099 03224 0 07 00735 SUB K101 IF IU = SUB 2100 03225 101040 SNZ 2101 03226 -0 01 03222 JMP* TG00 RETURN, ELSE 2102 03227 0 10 02401 JST NU00 NO - USAGE TEST 2103 03230 0 35 03270 LDX TG22 2104 03231 0 02 00775 TG04 LDA ID+1 CHARACTERS 3 AND 4 2105 03232 1 11 14217 CAS TGT2+21,1 IMPLICIT MODE SUBR. NAME TABLE 2106 03233 0 01 03235 JMP *+2 2107 03234 0 01 03250 JMP TG10 2108 03235 0 12 00000 TG06 IRS 0 2109 03236 0 01 03231 JMP TG04 NOT DONE WITH TABLE 2110 03237 0 02 00735 TG08 LDA K101 =1 (IU=SUBR.) 2111 03240 0 04 00710 STA IU 2112 03241 0 35 00625 LDX A 2113 03242 1 02 17401 LDA DP+1,1 IU(A) = SUB 2114 03243 0414 77 LGL 1 2115 03244 140500 SSM 2116 03245 0404 77 LGR 1 2117 03246 1 04 17401 STA DP+1,1 2118 03247 -0 01 03222 JMP* TG00 RETURN 2119 * 2120 03250 0 02 00774 TG10 LDA ID CHARACTERS 1 AND 2 2121 03251 0 03 00670 ANA K111 ='37777 2122 03252 0 06 00703 ADD HBIT ='140000 2123 03253 1 07 14172 SUB TGT1+21,1 2124 03254 100040 SZE 2125 03255 0 01 03235 JMP TG06 CONTINUE SEARCH 2126 03256 0 02 00776 LDA ID+2 CHARACTERS 5 AND 6 2127 03257 1 07 14244 SUB TGT3+21,1 2128 03260 100040 SZE 2129 03261 0 01 03235 JMP TG06 CONTINUE SEARCH 2130 03262 1 02 14172 LDA TGT1+21,1 2131 03263 141140 ICL 2132 03264 0 03 00743 ANA K107 =7 (=3 IF CPX, 4 IF DBL) 2133 03265 0 06 00736 ADD K102 =2 (=5 IF CPX. 6 IF DBL) 2134 03266 0 10 03464 JST DM00 DEFINE IM 2135 03267 0 01 03237 JMP TG08