title	Module from library BASE_3 : MULSGN
	name	('MULSGN')
	maclib	baselib.lib

; Multiply signed numbers

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

;		Version 1.0, August 1986

; ENTRY	DE,HL hold multiplier
;	One of which must be an 8 bit number

; EXIT	HL holds product
;	Carry set on overflow

	entry	mulsgn

	extrn	@nmpos,multip,@nmfix

mulsgn:
	call	@nmpos		; Make >0
	call	multip		; Multiply
	ret	c
	call	@nmfix		; Adjust result
	or	a
	ret

	end