$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