$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