$AFB1/44977:   Evaluate String Function

AFB1: 20 FA AE  JSR $AEFA     ; Test '('
AFB4: 20 9E AD  JSR $AD9E     ; Evaluate Expression in Text
AFB7: 20 FD AE  JSR $AEFD     ; Test ','
AFBA: 20 8F AD  JSR $AD8F     ; Confirm Result
AFBD: 68        PLA
AFBE: AA        TAX
AFBF: A5 65     LDA $65       ; FAC Mantissa
AFC1: 48        PHA
AFC2: A5 64     LDA $64       ; FAC Mantissa
AFC4: 48        PHA
AFC5: 8A        TXA
AFC6: 48        PHA
AFC7: 20 9E B7  JSR $B79E     ; Evaluate Text to 1 Byte in XR
AFCA: 68        PLA
AFCB: A8        TAY
AFCC: 8A        TXA
AFCD: 48        PHA
AFCE: 4C D6 AF  JMP $AFD6     ; Evaluate Numeric Function

    Previous Page / Next Page