BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 55

1950 * FLOATING POINT OUTPUT EDITOR 1951 * 1952 * 1953 * CALLING SEQUENCE 1954 * 1955 * LDA CHAR SURPRESSION CHARACTER...SEE BELOW 1956 * JST PCVL 1957 * ......RETURN 1958 * 1959 * THE FLOATING POINT VALUE CONTAINED IN THE ACCUMULATOR 1960 * CVAL IS PRINTED IN THE FOLLOWING FORMAT: 1961 * 1962 * 1) IF CVAL = 0 OR .1<=ABS(CVAL)<10000 1963 * 1964 * SXXXX.XXXXXX 1965 * 1966 * 2) IF NOT IN ABOVE RANGE 1967 * 1968 * S.XXXXXXESYY 1969 * 1970 * LEADING AND TRAILING ZEROS ARE REPLACED WITH SPACES. THE 1971 * SIGN 1S FLOATED RIGHT TO THE LEFT OF THE FIRST SIGNIFICANT 1972 * DIGIT OR THE DECIMAL POINT, WHICHEVER OCCURS FIRST. IF IN 1973 * FORMAT 1 AND THE FRACTIONAL PART IS ZERO, THE DECIMAL 1974 * POINT WILL BE REPLACED WITH 1975 * A SPACE. IF IN FORMAT 2, THE EXPONENT FIELD WILL BE 1976 * FLOATED LEFT TO THE RIGHT OF THE LAST NONZERO DIGIT. THE 1977 * SIGN WILL BE PRINTED AS ' ' IS CVAL > 0, OR '-' IF CVAL < 0. 1978 * WHEN PRINTING, EACH CHARACTER TO BE OUTPUT WILL BE COMPARED 1979 * WITH THE INITIAL A REGISTER CONTENTS. IF THEY MATCH, THE 1980 * CHARACTER WILL NOT BE PRINTED. THIS WILL NORMALLY BE USED 1981 * TO SURPRESS SPACES FOR A PACKED LISTING. 1982 * 1983 * 1984 * 1985 02154 0 000000 PCVL DAC ** 1986 02155 0 04 00341 STA INHC SAVE THE SURPRESSION CHARACTER 1987 02156 0 35 00467 LDX M21 FILL THE WORK 1988 02157 0 02 00420 LDA C260 AREA WITH ASCII 1989 02160 1 04 00252 STA WORK+'21,1 ZEROS ('261) 1990 02161 0 12 00000 IRS 0 X 1991 02162 0 01 02160 JMP *-2 X 1992 02163 0 04 00340 STA ECTR INITIALIZE CNTR FOR EXP CONVERSION 1993 02164 140040 CRA CLEAR EXPONENT STORAGE IN 1994 02165 0 04 00337 STA EXP CASE CVAL=0 1995 02166 0 10 03203 JST LCVL GET VALUE TO BE PRINTED 1996 02167 0 04 00336 STA SIGN SAVE ORIGINAL SIGN 1997 02170 100400 SPL GET ABSOULUTE VALUE OF IT 1998 02171 0 10 00000 JST N$22 X 1999 02172 101040 SNZ IF VALUE IS ZERO,