FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 23

0806 * 0807 * 0808 * ***************** 0809 * *INPUT CHARACTER* 0810 * ***************** 0811 * INPUT ONE CHARACTER FROM EITHER 0812 * 1. INPUT BUFFER (EBAR POSITIVE) OR 0813 * 2. EQUIVALENCE BUFFER (EBAR NEGATIVE) 0814 * 0815 01157 0 000000 CH00 DAC ** 0816 01160 0 02 00654 LDA EBAR IF EBAR 7 0, 0817 01161 101400 SMI 0818 01162 0 01 01212 JMP CH10 GO TO CH10 0819 01163 0 10 01061 CH03 JST IC00 INPUT COLUMN 0820 01164 0 11 00660 CAS K8 0821 01165 100000 SKP 0822 01166 0 01 01163 JMP CH03 IF BLANK, REPEAT 0823 * 0824 01167 0 11 00755 CH04 CAS K49 ='301 0825 01170 101000 NOP 0826 01171 0 01 01206 JMP CH06 0827 01172 0 11 01237 CAS K772 ='272 0828 01173 0 01 01203 JMP CH05 0829 01174 101000 NOP 0830 01175 0 11 00662 CAS K15 ='244 0831 01176 0 01 01200 JMP *+2 0832 01177 0 01 01202 JMP CH02 0833 01200 0 11 00665 CAS K60 ='260 0834 01201 101000 NOP 0835 01202 140040 CH02 CRA ALPHA NUMERIC CHARACTER 0836 01203 0 04 00037 CH05 STA DFL DELIMITER ENTRY 0837 01204 0 02 00067 LDA TC EXIT WITH TC IN A 0838 01205 -0 01 01157 JMP* CH00 0839 01206 0 11 01236 CH06 CAS K63 ='332 0840 01207 0 01 01203 JMP CH05 0841 01210 101000 NOP 0842 01211 0 01 01202 JMP CH02 0843 01212 0 02 00040 CH10 LDA E IF E = EBAR 0844 01213 0 11 00654 CH11 CAS EBAR 0845 01214 0 01 01216 JMP *+2 0846 01215 0 01 01233 JMP CH12 GO TO CH12 0847 01216 0 04 00000 STA 0 SET E INTO INDEX 0848 01217 0410 60 LLL 16 SET (B) TO ZERO 0849 01220 1 02 17400 LDA DP,1 CURRENT CHARACTER WORD 0850 01221 0412 70 LLR 8 0851 01222 1 04 17400 STA DP,1 SAVE REMAINING CHARACTER IF ANY 0852 01223 000201 IAB 0853 01224 0 04 00067 STA TC TC=LEFTMOST CHARACTER 0854 01225 100040 SZE SKIP IF NEW CHARACTER WORD NEEDED 0855 01226 0 01 01167 JMP CH04