| C64 ROM | Routines |
| Prev: BA8C | Up: Map | Next: BAD4 |
| BAB7 | A5 69 | LDA $69 | get FAC2 exponent | |
|
This entry point is used by the routine at E000.
|
||||
| BAB9 | F0 1F | BEQ $BADA | branch if FAC2 = $00 (handle underflow) | |
| BABB | 18 | CLC | clear carry for add | |
| BABC | 65 61 | ADC $61 | add FAC1 exponent | |
| BABE | 90 04 | BCC $BAC4 | branch if sum of exponents < $0100 | |
| BAC0 | 30 1D | BMI $BADF | do overflow error | |
| BAC2 | 18 | CLC | clear carry for the add | |
| BAC3 | .BYTE $2C | makes next line BIT $1410 | ||
| BAC4 | 10 14 | BPL $BADA | if +ve go handle underflow | |
| BAC6 | 69 80 | ADC #$80 | adjust exponent | |
| BAC8 | 85 61 | STA $61 | save FAC1 exponent | |
| BACA | D0 03 | BNE $BACF | branch if not zero | |
| BACC | 4C FB B8 | JMP $B8FB | save FAC1 sign and return | |
| BACF | A5 6F | LDA $6F | get sign compare (FAC1 EOR FAC2) | |
| BAD1 | 85 66 | STA $66 | save FAC1 sign (b7) | |
| BAD3 | 60 | RTS | ||
| Prev: BA8C | Up: Map | Next: BAD4 |