| C64 ROM | Routines |
| Prev: BAD4 | Up: Map | Next: BAF9 |
| BAE2 | 20 0C BC | JSR $BC0C | round and copy FAC1 to FAC2 | |
| BAE5 | AA | TAX | copy exponent (set the flags) | |
| BAE6 | F0 10 | BEQ $BAF8 | exit if zero | |
| BAE8 | 18 | CLC | clear carry for add | |
| BAE9 | 69 02 | ADC #$02 | add two to exponent (*4) | |
| BAEB | B0 F2 | BCS $BADF | do overflow error if > $FF | |
|
This entry point is used by the routine at A9A5.
FAC1 = (FAC1 + FAC2) * 2
|
||||
| BAED | A2 00 | LDX #$00 | clear byte | |
| BAEF | 86 6F | STX $6F | clear sign compare (FAC1 EOR FAC2) | |
| BAF1 | 20 77 B8 | JSR $B877 | add FAC2 to FAC1 (*5) | |
| BAF4 | E6 61 | INC $61 | increment FAC1 exponent (*10) | |
| BAF6 | F0 E7 | BEQ $BADF | if exponent now zero go do overflow error | |
| BAF8 | 60 | RTS | ||
| Prev: BAD4 | Up: Map | Next: BAF9 |