;
; Ullrich von Bassewitz, 29.12.1999
;
; CC65 runtime: Increment eax by value in Y
;

        .export         inceaxy
        .importzp       ptr4, sreg

.proc   inceaxy

        sty     ptr4
        clc
        adc     ptr4
        bcc     @L9
        inx
        bne     @L9
        inc     sreg
        bne     @L9
        inc     sreg+1
@L9:    rts

.endproc