Prev: BBD0 Up: Map Next: BBFC
BBD4: pack FAC1 into (XY)
Used by the routines at B3F4, BBCA, BF7B and E0F6.
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