title	Module from library BASE_4 : DIVSGN
	name	('DIVSGN')
	maclib	baselib.lib

; Divide signed numbers

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0, August 1986

; ENTRY	DE holds dividend
;	HL holds divisor

; EXIT	HL holds quotient
;	DE holds remainder
;	Carry set on zero divisor

	entry	divsgn

	extrn	@nmpos,divide,@nmfix,negde,@sign1

divsgn:
	call	@nmpos		; Make >0
	call	divide		; Divide
	ret	c
	ld	a,(@sign1)	; Test dividend sign
	or	a
	call	m,negde		; Negate remainder
	call	@nmfix		; Adjust result
	or	a
	ret

	end