$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 |