$A8A0/43168: Perform [goto]
Jump from $A81A, $A89A, $A945:
A8A0: 20 6B A9 JSR $A96B ; Fetch linnum From BASIC
A8A3: 20 09 A9 JSR $A909 ; Search for Next Statement / Line
A8A6: 38 SEC
A8A7: A5 39 LDA $39 ; Current BASIC Line number
A8A9: E5 14 SBC $14 ; Temporary: Integer value
A8AB: A5 3A LDA $3A ; Current BASIC Line number
A8AD: E5 15 SBC $15 ; Temporary: Integer value
A8AF: B0 0B BCS $A8BC
A8B1: 98 TYA
A8B2: 38 SEC
A8B3: 65 7A ADC $7A ; Pointer: Current Byte of BASIC Text
A8B5: A6 7B LDX $7B ; Pointer: Current Byte of BASIC Text
A8B7: 90 07 BCC $A8C0
A8B9: E8 INX
A8BA: B0 04 BCS $A8C0
Jump from $A8AF:
A8BC: A5 2B LDA $2B ; Pointer: Start of BASIC Text Area
A8BE: A6 2C LDX $2C ; Pointer: Start of BASIC Text Area
Jump from $A8B7, $A8BA:
A8C0: 20 17 A6 JSR $A617 ; Search for Line Number
A8C3: 90 1E BCC $A8E3 ; Perform [return]
A8C5: A5 5F LDA $5F ; Temporary storage for FLPT value
A8C7: E9 01 SBC #$01
A8C9: 85 7A STA $7A ; Pointer: Current Byte of BASIC Text
A8CB: A5 60 LDA $60 ; Temporary storage for FLPT value
A8CD: E9 00 SBC #$00
A8CF: 85 7B STA $7B ; Pointer: Current Byte of BASIC Text
Jump from $A8D2:
A8D1: 60 RTS
Previous Page / Next Page