Prev: BD67 Up: Map Next: BD7E
BD6A: do unsigned FAC1*10+number
Used by the routine at BCF3.
BD6A 48 PHA save character
BD6B 24 5F BIT $5F test decimal point flag
BD6D 10 02 BPL $BD71 skip exponent increment if not set
BD6F E6 5D INC $5D else increment number exponent
BD71 20 E2 BA JSR $BAE2 multiply FAC1 by 10
BD74 68 PLA restore character
BD75 38 SEC set carry for subtract
BD76 E9 30 SBC #"0" convert to binary
BD78 20 7E BD JSR $BD7E evaluate new ASCII digit
BD7B 4C 0A BD JMP $BD0A go do next character
Prev: BD67 Up: Map Next: BD7E