$A38A/41866:   Find FOR/GOSUB Entry on Stack

Jump from $A749, $A8D8, $AD2B:

A38A: BA        TSX
A38B: E8        INX
A38C: E8        INX
A38D: E8        INX
A38E: E8        INX

Jump from $A3B5:

A38F: BD 01 01  LDA $0101,X   ; 6510 Hardware Stack Area
A392: C9 81     CMP #$81
A394: D0 21     BNE $A3B7
A396: A5 4A     LDA $4A       ; Pointer: Index Variable for FOR/NEXT loop
A398: D0 0A     BNE $A3A4
A39A: BD 02 01  LDA $0102,X   ; 6510 Hardware Stack Area
A39D: 85 49     STA $49       ; Pointer: Index Variable for FOR/NEXT loop
A39F: BD 03 01  LDA $0103,X   ; 6510 Hardware Stack Area
A3A2: 85 4A     STA $4A       ; Pointer: Index Variable for FOR/NEXT loop

Jump from $A398:

A3A4: DD 03 01  CMP $0103,X   ; 6510 Hardware Stack Area
A3A7: D0 07     BNE $A3B0
A3A9: A5 49     LDA $49       ; Pointer: Index Variable for FOR/NEXT loop
A3AB: DD 02 01  CMP $0102,X   ; 6510 Hardware Stack Area
A3AE: F0 07     BEQ $A3B7

Jump from $A3A7:

A3B0: 8A        TXA
A3B1: 18        CLC
A3B2: 69 12     ADC #$12
A3B4: AA        TAX
A3B5: D0 D8     BNE $A38F

Jump from $A394, $A3AE:

A3B7: 60        RTS

    Previous Page / Next Page