$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