;
; Christian Krueger, 24-May-2018
;
; CC65 runtime: division for signed ints
;

; When negating values, we will ignore the possibility here, that one of the
; values is $8000, in which case the negate will fail.

        .export         tosdiva0, tosdivax
        .import         absvaludiv, negax
        .importzp       sp, ptr1, tmp1

tosdiva0:
        ldx     #0
tosdivax:
        pha                         ; check if high-bytes indicate
        txa                         ; different sign, so that we
        ldy     #1                  ; negate the result after the operation
        eor     (sp),y              ; eor with lhs high byte
        sta     tmp1                ; save post negation indicator to tmp1
        pla                         ; back to entry accu
        jsr     absvaludiv
        ldx     ptr1+1
        lda     ptr1
        ldy     tmp1                ; fetch idicator
        bmi     negate
        rts
negate: jmp     negax