Routines
Prev: BC1B Up: Map Next: BC39
BC2B: get FAC1 sign
Used by the routines at A742, B9EA, BC39, BC5B and E097.
return A = $FF, Cb = 1/-ve A = $01, Cb = 0/+ve, A = $00, Cb = ?/0
BC2B A5 61 LDA $61 get FAC1 exponent
BC2D F0 09 BEQ $BC38 exit if zero (already correct SGN(0)=0)
This entry point is used by the routine at BC5B.
return A = $FF, Cb = 1/-ve A = $01, Cb = 0/+ve
no = 0 check
BC2F A5 66 LDA $66 else get FAC1 sign (b7)
This entry point is used by the routine at BC5B.
return A = $FF, Cb = 1/-ve A = $01, Cb = 0/+ve
no = 0 check, sign in A
BC31 2A ROL A move sign bit to carry
BC32 A9 FF LDA #$FF set byte for -ve result
BC34 B0 02 BCS $BC38 return if sign was set (-ve)
BC36 A9 01 LDA #$01 else set byte for +ve result
BC38 60 RTS
Prev: BC1B Up: Map Next: BC39