$A94B/43339: Perform [on]
A94B: 20 9E B7 JSR $B79E ; Evaluate Text to 1 Byte in XR
A94E: 48 PHA
A94F: C9 8D CMP #$8D
A951: F0 04 BEQ $A957
Jump from $A97D:
A953: C9 89 CMP #$89
A955: D0 91 BNE $A8E8 ; Perform [return]
Jump from $A951, $A967:
A957: C6 65 DEC $65 ; FAC Mantissa
A959: D0 04 BNE $A95F
A95B: 68 PLA
A95C: 4C EF A7 JMP $A7EF ; Perform BASIC Keyword
Jump from $A959:
A95F: 20 73 00 JSR $0073 ; CHRGET: Get next Byte of BASIC Text
A962: 20 6B A9 JSR $A96B ; Fetch linnum From BASIC
A965: C9 2C CMP #$2C
A967: F0 EE BEQ $A957
A969: 68 PLA
Jump from $A971:
A96A: 60 RTS
Previous Page / Next Page