- ld b,h
- ld c,l
- call .divu16
-
- ld l,c
- ld h,b
-
- ret
-
-__moduint_rrx_s::
- ld hl,#2+3
- add hl,sp
-
- ld d,(hl)
- dec hl
- ld e,(hl)
- dec hl
- ld a,(hl)
- dec hl
- ld l,(hl)
- ld h,a
- ;; Fall through
-
-__moduint_rrx_hds::
- ld b,h
- ld c,l
-
- call .divu16
-
- ld l,e
- ld h,d
-
- ret
-
-.div8::
-.mod8::
- LD A,C ; Sign extend
- RLCA
- SBC A
- LD B,A
- LD A,E ; Sign extend
- RLCA
- SBC A
- LD D,A
-
- ; Fall through to .div16
-
- ;; 16-bit division
- ;;
- ;; Entry conditions
- ;; BC = dividend
- ;; DE = divisor
- ;;
- ;; Exit conditions
- ;; BC = quotient
- ;; DE = remainder
- ;; If divisor is non-zero, carry=0
- ;; If divisor is 0, carry=1 and both quotient and remainder are 0
- ;;
- ;; Register used: AF,BC,DE,HL
-.div16::
-.mod16::
- ;; Determine sign of quotient by xor-ing high bytes of dividend
- ;; and divisor. Quotient is positive if signs are the same, negative
- ;; if signs are different
- ;; Remainder has same sign as dividend
- LD A,B ; Get high byte of dividend
- LD (.srem),A ; Save as sign of remainder
- XOR D ; Xor with high byte of divisor
- LD (.squot),A ; Save sign of quotient
- ;; Take absolute value of divisor
- BIT 7,D
- jp Z,.chkde ; Jump if divisor is positive
- SUB A ; Substract divisor from 0
- SUB E
- LD E,A
- SBC A ; Propagate borrow (A=0xFF if borrow)
- SUB D
- LD D,A
- ;; Take absolute value of dividend
-.chkde:
- BIT 7,B
- jp Z,.dodiv ; Jump if dividend is positive
- SUB A ; Substract dividend from 0
- SUB C
- LD C,A
- SBC A ; Propagate borrow (A=0xFF if borrow)
- SUB B
- LD B,A
- ;; Divide absolute values
-.dodiv:
- CALL .divu16
- RET C ; Exit if divide by zero
- ;; Negate quotient if it is negative
- LD A,(.squot)
- AND #0x80
- jp Z,.dorem ; Jump if quotient is positive
- SUB A ; Substract quotient from 0
- SUB C
- LD C,A
- SBC A ; Propagate borrow (A=0xFF if borrow)
- SUB B
- LD B,A
-.dorem:
- ;; Negate remainder if it is negative
- LD A,(.srem)
- AND #0x80
- RET Z ; Return if remainder is positive
- SUB A ; Substract remainder from 0
- SUB E
- LD E,A
- SBC A ; Propagate remainder (A=0xFF if borrow)
- SUB D
- LD D,A
- RET
-
-.divu8::
-.modu8::
- LD B,#0x00
- LD D,B
- ; Fall through to divu16
-
-.divu16::
-.modu16::
- ;; Check for division by zero
- LD A,E
- OR D
- jp NZ,.divide ; Branch if divisor is non-zero
- LD BC,#0x00 ; Divide by zero error
- LD D,B
- LD E,C
- SCF ; Set carry, invalid result
- RET
-.divide:
- ld hl,#0
-; LD L,C ; L = low byte of dividend/quotient
-; LD H,B ; H = high byte of dividend/quotient
-; LD BC,#0x00 ; BC = remainder
- OR A ; Clear carry to start
- ex af,af
- LD A,#16 ; 16 bits in dividend