$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