Routines
Prev: B8D2 Up: Map Next: B8F7
B8D7: normalise FAC1
Used by the routines at B8D2, BB0F and E097.
B8D7 A0 00 LDY #$00 clear Y
B8D9 98 TYA clear A
B8DA 18 CLC clear carry for add
B8DB A6 62 LDX $62 get FAC1 mantissa 1
B8DD D0 4A BNE $B929 if not zero normalise FAC1
B8DF A6 63 LDX $63 get FAC1 mantissa 2
B8E1 86 62 STX $62 save FAC1 mantissa 1
B8E3 A6 64 LDX $64 get FAC1 mantissa 3
B8E5 86 63 STX $63 save FAC1 mantissa 2
B8E7 A6 65 LDX $65 get FAC1 mantissa 4
B8E9 86 64 STX $64 save FAC1 mantissa 3
B8EB A6 70 LDX $70 get FAC1 rounding byte
B8ED 86 65 STX $65 save FAC1 mantissa 4
B8EF 84 70 STY $70 clear FAC1 rounding byte
B8F1 69 08 ADC #$08 add x to exponent offset
B8F3 C9 20 CMP #$20 compare with $20, max offset, all bits would be = 0
B8F5 D0 E4 BNE $B8DB loop if not max
Prev: B8D2 Up: Map Next: B8F7