$A8D2/43218: Perform [return] A8D2: D0 FD BNE $A8D1 ; Perform [goto] A8D4: A9 FF LDA #$FF A8D6: 85 4A STA $4A ; Pointer: Index Variable for FOR/NEXT loop A8D8: 20 8A A3 JSR $A38A ; Find FOR/GOSUB Entry on Stack A8DB: 9A TXS A8DC: C9 8D CMP #$8D A8DE: F0 0B BEQ $A8EB A8E0: A2 0C LDX #$0C A8E2: 2C .BYTE $2C Jump from $A8C3: A8E3: A2 11 LDX #$11 A8E5: 4C 37 A4 JMP $A437 ; Error Routine Jump from $A955: A8E8: 4C 08 AF JMP $AF08 ; Output ?SYNTAX Error Jump from $A8DE: A8EB: 68 PLA A8EC: 68 PLA A8ED: 85 39 STA $39 ; Current BASIC Line number A8EF: 68 PLA A8F0: 85 3A STA $3A ; Current BASIC Line number A8F2: 68 PLA A8F3: 85 7A STA $7A ; Pointer: Current Byte of BASIC Text A8F5: 68 PLA A8F6: 85 7B STA $7B ; Pointer: Current Byte of BASIC Text Previous Page / Next Page |