Routines
Prev: AFE6 Up: Map Next: B016
AFE9: perform AND
AFE9 A0 00 LDY #$00 clear Y for AND
AFEB 84 0B STY $0B set AND/OR invert value
AFED 20 BF B1 JSR $B1BF evaluate integer expression, no sign check
AFF0 A5 64 LDA $64 get FAC1 mantissa 3
AFF2 45 0B EOR $0B EOR low byte
AFF4 85 07 STA $07 save it
AFF6 A5 65 LDA $65 get FAC1 mantissa 4
AFF8 45 0B EOR $0B EOR high byte
AFFA 85 08 STA $08 save it
AFFC 20 FC BB JSR $BBFC copy FAC2 to FAC1, get 2nd value in expression
AFFF 20 BF B1 JSR $B1BF evaluate integer expression, no sign check
B002 A5 65 LDA $65 get FAC1 mantissa 4
B004 45 0B EOR $0B EOR high byte
B006 25 08 AND $08 AND with expression 1 high byte
B008 45 0B EOR $0B EOR result high byte
B00A A8 TAY save in Y
B00B A5 64 LDA $64 get FAC1 mantissa 3
B00D 45 0B EOR $0B EOR low byte
B00F 25 07 AND $07 AND with expression 1 low byte
B011 45 0B EOR $0B EOR result low byte
B013 4C 91 B3 JMP $B391 convert fixed integer AY to float FAC1 and return
Prev: AFE6 Up: Map Next: B016