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

        .export         deceaxy
        .importzp       sreg, tmp1

deceaxy:
        sty     tmp1
        sec
        sbc     tmp1
        sta     tmp1
        txa
        sbc     #0
        tax
        lda     sreg
        sbc     #0
        sta     sreg
        lda     sreg+1
        sbc     #0
        sta     sreg+1
        lda     tmp1
        rts