Prev: A871 Up: Map Next: A8A0
A883: perform GOSUB
A883 A9 03 LDA #$03 need 6 bytes for GOSUB
A885 20 FB A3 JSR $A3FB check room on stack for 2*A bytes
A888 A5 7B LDA $7B get BASIC execute pointer high byte
A88A 48 PHA save it
A88B A5 7A LDA $7A get BASIC execute pointer low byte
A88D 48 PHA save it
A88E A5 3A LDA $3A get current line number high byte
A890 48 PHA save it
A891 A5 39 LDA $39 get current line number low byte
A893 48 PHA save it
A894 A9 8D LDA #$8D token for GOSUB
A896 48 PHA save it
This entry point is used by the routine at A871.
A897 20 79 00 JSR $0079 scan memory
A89A 20 A0 A8 JSR $A8A0 perform GOTO
A89D 4C AE A7 JMP $A7AE go do interpreter inner loop
Prev: A871 Up: Map Next: A8A0