FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 28

0951 * 0952 * *********** 0953 * *INPUT DNA* 0954 * *********** 0955 * BASIC INPUT ROUTINE, HANDLES FOLLOWING - 0956 * CONSTANT CONVERSION 0957 * MODE TYPING (CONSTANTS, IMPLIED/VARIABLES) 0958 * ALL OPERATORS (TERMINATE ITEM) 0959 * 0960 01333 IBUF BSS 3 3-WORD BUF 0961 01336 177727 K155 OCT 177727 -41 0962 01337 024000 K156 OCT 024000 1085 0963 01340 007777 K157 OCT 007777 0964 01341 074000 K158 OCT 074000 0965 01342 0 00 00000 F1 PZE 0 SIGN FLAG 0966 01343 0 00 00000 F2 PZE 0 0967 01344 0 00 00000 F3 PZE 0 INPUT EXPONENT 0968 01345 0 00 00000 F4 PZE 0 NO. FRAC. POSITIONS 0969 01346 0 00 00000 F6 PZE 0 0970 01347 0 00 00000 HOLF PZE 0 HOLLERITH FLAG 0971 01350 0 000000 DN00 DAC ** 0972 01351 140040 DN01 CRA 0973 01352 0 04 01347 STA HOLF SET HOLF =0 0974 01353 0 04 01345 STA F4 F4 = 0 0975 01354 0 04 00710 STA IU 0976 01355 0 04 00054 STA NT IU=NT=NTID=0 0977 01356 0 04 00056 STA NTID 0978 01357 0 10 02510 JST BLNK CLEAR OUT TID = ID (3 WORDS ONLY) 0979 01360 0 000774 DAC TID 0980 01361 0 10 02510 JST BLNK 0981 01362 0 001342 DAC F1 F1,F2,F3 = 0 0982 01363 140040 DN06 CRA 0983 01364 0 04 00706 STA IM 0984 01365 0 10 01240 DN07 JST ID00 INPUT DIGIT 0985 01366 100040 SZE 0986 01367 0 01 01435 JMP DN14 (A) NON-ZERO, GO TO DL14 0987 01370 0 02 00067 LDA TC IT'S A DIGIT, BUT WHICH ONE 0988 01371 0 11 01237 CAS K772 IS IT A COLON 0989 01372 100000 SKP 0990 01373 0 01 01554 JMP DNOC IF SO, PROCESS OCTAL CONSTANT 0991 01374 0 02 00776 DN10 LDA TID+2 CHECK FOR OVERFLOW AND ADJUST 0992 01375 0 03 01341 ANA K158 POSITION COUNT IF NECESSARY. 0993 01376 100040 SZE 0994 01377 0 01 01427 JMP SKIP 0995 01400 0 06 00706 ADD IM 0996 01401 0405 77 ARS 1 0997 01402 0 06 01345 ADD F4 F4 = F4+1 IF NO OVERFLOW 0998 01403 0 04 01345 STA F4 AND IM ALREADY SET TO REAL 0999 01404 0 02 00735 LDA K101 1000 01405 0 04 00054 STA NT NT=1