;
; Ullrich von Bassewitz, 05.08.1998
; Christian Krueger, 11-Mar-2017, added 65SC02 optimization
;
; CC65 runtime: sub ints reversed
;

        .export         tosrsuba0, tosrsubax
        .import         addysp1
        .importzp       c_sp, tmp1

;
; AX = AX - TOS
;

tosrsuba0:
        ldx     #0
tosrsubax:
        sec
.if .cap(CPU_HAS_ZPIND)
        sbc     (c_sp)
        ldy     #1
.else
        ldy     #0
        sbc     (c_sp),y        ; lo byte
        iny
.endif
        sta     tmp1            ; save lo byte
        txa
        sbc     (c_sp),y        ; hi byte
        tax
        lda     tmp1
        jmp     addysp1         ; drop TOS, set condition codes