BASIC-16A

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

2150 * 2151 02420 0 02 00421 ED10 LDA C261 INSERT '10' IN WORK ARRAY 2152 02421 -0 04 00077 STA* TMP2 X 2153 02422 0 12 00337 IRS EXP BUMP EXPONENT TO ACCOUNT FOR EXTRA DIGIT 2154 02423 101000 NOP NOP IN CASE EXP GOES TO ZERO 2155 02424 0 01 02253 JMP ED01 EXTRACTION COMPLETE, NOW FORMAT THE RESULT 2156 * 2157 * 2158 02425 0 000000 FRNG DAC ** TEST FOR F FORMAT 2159 02426 0 02 00337 LDA EXP GET EXPONENT 2160 02427 0 11 00462 CAS M1 EXPONENTS IN RANGE 0-4 2161 02430 0 11 00437 CAS C5 ARE PRINTED IN F FORMAT 2162 02431 -0 01 02425 JMP* FRNG E FORMAT 2163 02432 -0 01 02425 JMP* FRNG E FORMAT 2164 02433 0 12 02425 IRS FRNG F FORMAT 2165 02434 -0 01 02425 JMP* FRNG X 2166 * 2167 * 2168 02435 0 000000 SGN DAC ** GET SIGN CHARACTER 2169 02436 140320 CSA SET C IF NO. IS MINUS 2170 02437 0 02 00405 LDA C240 A SPACE FOR PLUS 2171 02440 100001 SRC TEST SIGN 2172 02441 0 02 00415 LDA C255 '-' FOR NEGITIVE 2173 02442 -0 01 02435 JMP* SGN RETURN 2174 * 2175 * 2176 * 2177 * 2178 EJCT