FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 26

0885 * 0886 * 0887 * ********************** 0888 * *INPUT (A) CHARACTERS* 0889 * ********************** 0890 * CHAR COUNT IN XR, TERMINATES WITH EITHER 0891 * 1. CHAR COUNT -1 = ZERO OR 0892 * 2. LAST CHAR IS A DELIMITER 0893 * 0894 01253 0 000000 IA00 DAC ** 0895 01254 140407 TCA SET COUNTER 0896 01255 0 04 01305 STA IA99 0897 01256 0 10 01272 JST IA50 EXCHANGE IBUF AND ID 0898 01257 140040 CRA 0899 01260 0 04 00056 STA NTID NTID = 0 0900 01261 0 10 01157 IA10 JST CH00 INPUT A CHARACTER 0901 01262 0 10 02555 JST PACK 0902 01263 0 02 00037 LDA DFL IF DFL NOT ZERO, 0903 01264 100040 SZE CONTINUE 0904 01265 0 01 01270 JMP IA20 ELSE, 0905 01266 0 12 01305 IRS IA99 TEST COUNTER 0906 01267 0 01 01261 JMP IA10 MORE CHARACTERS TO INPUT 0907 01270 0 10 01272 IA20 JST IA50 EXCHANGE ID AND IBUF 0908 01271 -0 01 01253 JMP* IA00 RETURN 0909 01272 0 000000 IA50 DAC ** EXCHANGE IBUF AND ID 0910 01273 0 15 01306 STX IAXS SAVE INDEX 0911 01274 0 35 00756 LDX IA90 0912 01275 1 02 01336 LDA IBUF+3,1 0913 01276 1 13 00777 IMA ID+3,1 0914 01277 1 04 01336 STA IBUF+3,1 0915 01300 0 12 00000 IRS 0 0916 01301 0 01 01275 JMP *-4 0917 01302 0 35 01306 LDX IAXS RESTORE INDEX 0918 01303 0 02 00056 LDA NTID 0919 01304 -0 01 01272 JMP* IA50 0920 01305 0 00 00000 IA99 PZE 0 0921 01306 IAXS BSS 1 TEMP STORAGE FOR INDEX 0922 EJCT