AB16-12T3

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 52

1953 04205 0 12 04261 IRS V$O4 BUMP ZERO SUPPRESS COUNTER 1954 04206 0 01 04155 JMP V$OO 1955 04207 140040 CRA 1956 04210 0 04 04263 STA V$O6 CLEAR ACCUMULATOR 1957 04211 0 02 04257 LDA V$O2 LOAD THE INTEGER 1958 04212 -0 07 04262 V$OU SUB* V$O5 SUBTRACT THE CONVERSION FACTOR 1959 04213 100400 SPL 1960 04214 0 01 04217 JMP V$OV IF NEG., GO TO LAST DIGIT ROUTINE 1961 04215 0 12 04263 IRS V$O6 BUMP ACCUM. 1962 04216 0 01 04212 JMP V$OU 1963 * 1964 04217 0 02 04263 V$OV LDA V$O6 LAST TIME ACCUM. 1965 04220 0 06 04270 ADD ='260 LAST DECIMAL BYTE 1966 04221 0 10 04320 JST V$SB TRANSFER LAST DIGIT TO BYTE STRING 1967 04222 000000 HLT 1968 04223 0 02 04256 LDA V$O1 1969 04224 101400 SMI TEST IF THE NO. WAS NEGATIVE 1970 04225 -0 01 04123 JMP* V$OD IF PLUS, THEN FINISHED. 1971 04226 0 02 04135 LDA V$OD+10 MINUS SIGN ROUTINE 1972 04227 0416 77 ALR 1 RIGHT-MOST BYTE 1973 04230 0 07 04271 SUB =5 SIXTH BYTE FROM RIGHT 1974 04231 0 06 04255 ADD V$OY BYTE FOR FLOATING MINUS SIGN 1975 04232 0406 77 ARR 1 DCA OF WORD FOR MINUS SIGN 1976 04233 0 04 04236 STA *+3 1977 04234 0 10 04273 JST V$SI 1978 04235 000001 DEC 1 1979 04236 0 000000 DAC ** 1980 04237 0 02 04272 LDA ='255 PUT MINUS SIGN 1981 04240 0 10 04320 JST V$SB 1982 04241 000000 HLT 1983 04242 -0 01 04123 JMP* V$OD RETURN 1984 * 1985 04243 140040 V$OW CRA 1986 04244 0 04 04260 STA V$O3 SET FLAG =0 1987 04245 0 02 04263 LDA V$O6 1988 04246 0 01 04201 JMP V$OT 1989 * 1990 04247 0 004250 V$OX DAC *+1 1991 04250 023420 DEC 10000 CONVERSION FACTORS 1992 04251 001750 DEC 1000 1993 04252 000144 DEC 100 1994 04253 000012 DEC 10 1995 04254 000001 DEC 1 1996 04255 000000 V$OY BSZ 1 NUMBER OF ZEROS ACTUALLY SUPPRESSED 1997 04256 000000 V$O1 BSZ 1 SIGNED OCTAL WORD 1998 04257 000000 V$O2 BSZ 1 WORKING STORAGE 1999 04260 000000 V$O3 BSZ 1 FLAG =-'20 OR =0 2000 04261 000000 V$O4 BSZ 1 COUNTER FOR MAX. ZERO SUPPRESS 2001 04262 000000 V$O5 BSZ 1 FLD POINTER FOR CONVERSION FACTORS 2002 04263 000000 V$O6 BSZ 1 ACCUMULATOR