;
; Ullrich von Bassewitz, 05.08.1998
;
; CC65 runtime: sub ints reversed
;

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

;
; AX = AX - TOS
;

tosrsuba0:
        ldx     #0
tosrsubax:
        ldy     #0
        sec
        sbc     (sp),y          ; lo byte
        sta     tmp1            ; save lo byte
        txa
        iny
        sbc     (sp),y          ; hi byte
        tax
        lda     tmp1
        jmp     addysp1         ; drop TOS, set condition codes