$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