$A883/43139:   Perform [gosub]

A883: A9 03     LDA #$03
A885: 20 FB A3  JSR $A3FB     ; Check Stack Depth
A888: A5 7B     LDA $7B       ; Pointer: Current Byte of BASIC Text
A88A: 48        PHA
A88B: A5 7A     LDA $7A       ; Pointer: Current Byte of BASIC Text
A88D: 48        PHA
A88E: A5 3A     LDA $3A       ; Current BASIC Line number
A890: 48        PHA
A891: A5 39     LDA $39       ; Current BASIC Line number
A893: 48        PHA
A894: A9 8D     LDA #$8D
A896: 48        PHA

Jump from $A880:

A897: 20 79 00  JSR $0079     ; CHRGOT: Get same Byte again
A89A: 20 A0 A8  JSR $A8A0     ; Perform [goto]
A89D: 4C AE A7  JMP $A7AE     ; BASIC Warm Start

    Previous Page / Next Page