C64 ROM | Routines |
Prev: BBD0 | Up: Map | Next: BBFC |
BBD4 | 20 1B BC | JSR $BC1B | round FAC1 | |
BBD7 | 86 22 | STX $22 | save pointer low byte | |
BBD9 | 84 23 | STY $23 | save pointer high byte | |
BBDB | A0 04 | LDY #$04 | set index | |
BBDD | A5 65 | LDA $65 | get FAC1 mantissa 4 | |
BBDF | 91 22 | STA ($22),Y | store in destination | |
BBE1 | 88 | DEY | decrement index | |
BBE2 | A5 64 | LDA $64 | get FAC1 mantissa 3 | |
BBE4 | 91 22 | STA ($22),Y | store in destination | |
BBE6 | 88 | DEY | decrement index | |
BBE7 | A5 63 | LDA $63 | get FAC1 mantissa 2 | |
BBE9 | 91 22 | STA ($22),Y | store in destination | |
BBEB | 88 | DEY | decrement index | |
BBEC | A5 66 | LDA $66 | get FAC1 sign (b7) | |
BBEE | 09 7F | ORA #$7F | set bits x111 1111 | |
BBF0 | 25 62 | AND $62 | AND in FAC1 mantissa 1 | |
BBF2 | 91 22 | STA ($22),Y | store in destination | |
BBF4 | 88 | DEY | decrement index | |
BBF5 | A5 61 | LDA $61 | get FAC1 exponent | |
BBF7 | 91 22 | STA ($22),Y | store in destination | |
BBF9 | 84 70 | STY $70 | clear FAC1 rounding byte | |
BBFB | 60 | RTS |
Prev: BBD0 | Up: Map | Next: BBFC |