$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