BASIC-16A

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

2000 02173 0 01 02253 JMP ED01 DO NOT GO THROUGH BREAKDOWN LOOP 2001 02174 0 10 03207 JST SCVL SAVE THE VALUE 2002 02175 0 02 00472 LDA M6 SET UP LOOP TO EXTRACT 2003 02176 0 04 00076 STA TMP1 SIX DIGITS 2004 02177 0 02 00513 LDA WKD7 POINTER TO 7TH WORD OF WORK AREA 2005 02200 0 04 00077 STA TMP2 SIX ASCII DIGITS TO WORK(6-11. 2006 02201 0 10 00000 JST LOGF GET LOG BASE 10 OF VALUE 2007 02202 0 000041 DAC CVAL FOR EXPONENT 2008 02203 0 10 00000 JST D$22 X 2009 02204 0 000457 DAC LE10 =LN(10) 2010 02205 0 10 00000 JST IFLT INTERGERIZE BASE 10 EXPONENT 2011 02206 000000 OCT 0 OVERFLOW IS IMPOSSIBLE 2012 02207 141206 AOA ADJUST IT S0 THINGS COME OUT RIGHT 2013 02210 0 04 00337 STA EXP AND SAVE IT. 2014 02211 0 07 00371 SUB C1 RESTORE TO UNADJUSTED VALUE 2015 02212 0 10 00000 JST FINT FLOAT IT 2016 02213 0 10 00000 JST H$22 USE IT TO REDUCE CVAL 2017 02214 0 000043 DAC LVAL TO RANGE OF 1 TO 10 BY 2018 02215 0 10 00000 JST L$22 CVAL=CVAL/10.**A, WHERE 2019 02216 0 000446 DAC F10 A IS INT(ALOG10(CVAL)) 2020 02217 0 10 00000 JST E$22 X 2021 02220 0 000043 DAC LVAL X 2022 02221 0 10 00000 JST H$22 X 2023 02222 0 000043 DAC LVAL X 2024 02223 0 10 03203 JST LCVL X 2025 02224 0 10 00000 JST D$22 X 2026 02225 0 000043 DAC LVAL X 2027 02226 0 10 00000 JST A$22 ADD IN .000005 TO ROUND UP 2028 02227 0 000474 DAC ROND X 2029 02230 0 10 03207 ED02 JST SCVL SAVE WORKING VALUE 2030 02231 0 10 00000 JST IFLT EXTRACT INTEGER PART 2031 02232 000000 OCT 0 OVERFLOW IS IMPOSSIBLE 2032 02233 0 04 00100 STA TMP3 SAVE FOR LATER REFERENCE 2033 02234 0 11 00373 CAS C11 SEE IF WE ROUNDED FROM 9.999... TO 10 2034 02235 0 01 02420 JMP ED10 YES...SPECIAL ACTION REQUIRED 2035 02236 101000 NOP NO PROBLEM 2036 02237 0 06 00420 ED11 ADD C260 CONVERT TO ASCII 2037 02240 -0 04 00077 STA* TMP2 PLACE DIGIT IN WORK AREA 2038 02241 0 02 00100 LDA TMP3 RETRIEVE CURRENT DIGIT 2039 02242 0 10 00000 JST FINT FLOAT IT 2040 02243 0 10 00000 JST S$22 EXTRACT IT FROM CVAL 2041 02244 0 000041 DAC CVAL X 2042 02245 0 10 00000 JST N$22 X 2043 02246 0 10 00000 JST M$22 POSITION NEXT DIGIT 2044 02247 0 000446 DAC F10 X 2045 02250 0 12 00077 IRS TMP2 BUMP POINTER TO WORK AREA 2046 02251 0 12 00076 IRS TMP1 BUMP ITERATION COUNTER 2047 02252 0 01 02230 JMP ED02 CONTINUE EXTRACTION 2048 * 2049 02253 0 10 02425 ED01 JST FRNG SEE IF IT WILL FIT IN F FORMAT