$AFE6/45030: Perform [or], [and]
AFE6: A0 FF LDY #$FF
AFE8: 2C .BYTE $2C
AFE9: A0 00 LDY #$00
AFEB: 84 0B STY $0B ; Input Buffer Pointer/Number of Subscripts
AFED: 20 BF B1 JSR $B1BF ; FAC#1 to Positive Integer
AFF0: A5 64 LDA $64 ; FAC Mantissa
AFF2: 45 0B EOR $0B ; Input Buffer Pointer/Number of Subscripts
AFF4: 85 07 STA $07 ; Temporary Integer during OR/AND
AFF6: A5 65 LDA $65 ; FAC Mantissa
AFF8: 45 0B EOR $0B ; Input Buffer Pointer/Number of Subscripts
AFFA: 85 08 STA $08 ; Flag: Scan for Quote at end of String
AFFC: 20 FC BB JSR $BBFC ; Copy FAC#2 into FAC#1
AFFF: 20 BF B1 JSR $B1BF ; FAC#1 to Positive Integer
B002: A5 65 LDA $65 ; FAC Mantissa
B004: 45 0B EOR $0B ; Input Buffer Pointer/Number of Subscripts
B006: 25 08 AND $08 ; Flag: Scan for Quote at end of String
B008: 45 0B EOR $0B ; Input Buffer Pointer/Number of Subscripts
B00A: A8 TAY
B00B: A5 64 LDA $64 ; FAC Mantissa
B00D: 45 0B EOR $0B ; Input Buffer Pointer/Number of Subscripts
B00F: 25 07 AND $07 ; Temporary Integer during OR/AND
B011: 45 0B EOR $0B ; Input Buffer Pointer/Number of Subscripts
B013: 4C 91 B3 JMP $B391 ; Convert Integer in (AC/YR) to Flpt
Previous Page / Next Page