Prev: BC9B Up: Map Next: BCCC
BCBB: shift FAC1 A times right
Used by the routine at BC9B.
BCBB A8 TAY copy shift count
BCBC A5 66 LDA $66 get FAC1 sign (b7)
BCBE 29 80 AND #%10000000 mask sign bit only (x000 0000)
BCC0 46 62 LSR $62 shift FAC1 mantissa 1
BCC2 05 62 ORA $62 OR sign in b7 FAC1 mantissa 1
BCC4 85 62 STA $62 save FAC1 mantissa 1
BCC6 20 B0 B9 JSR $B9B0 shift FAC1 Y times right
BCC9 84 68 STY $68 clear FAC1 overflow byte
BCCB 60 RTS
Prev: BC9B Up: Map Next: BCCC