Prev: BB0F Up: Map Next: BBC7
BBA2: unpack memory (AY) into FAC1
Used by the routines at A742, AD1E, AE86, AF28, BB07, BF71, E097 and E2B4.
BBA2 85 22 STA $22 save pointer low byte
BBA4 84 23 STY $23 save pointer high byte
BBA6 A0 04 LDY #$04 5 bytes to do
BBA8 B1 22 LDA ($22),Y get fifth byte
BBAA 85 65 STA $65 save FAC1 mantissa 4
BBAC 88 DEY decrement index
BBAD B1 22 LDA ($22),Y get fourth byte
BBAF 85 64 STA $64 save FAC1 mantissa 3
BBB1 88 DEY decrement index
BBB2 B1 22 LDA ($22),Y get third byte
BBB4 85 63 STA $63 save FAC1 mantissa 2
BBB6 88 DEY decrement index
BBB7 B1 22 LDA ($22),Y get second byte
BBB9 85 66 STA $66 save FAC1 sign (b7)
BBBB 09 80 ORA #$80 set 1xxx xxxx (add normal bit)
BBBD 85 62 STA $62 save FAC1 mantissa 1
BBBF 88 DEY decrement index
BBC0 B1 22 LDA ($22),Y get first byte (exponent)
BBC2 85 61 STA $61 save FAC1 exponent
BBC4 84 70 STY $70 clear FAC1 rounding byte
BBC6 60 RTS
Prev: BB0F Up: Map Next: BBC7