title	Module from library BASE_1 : NEGDE
	name	('NEGDE')
	maclib	baselib.lib

; Negate 16 bit number

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-2000 Hamburg 20
;		Tel.:040/4223247

;		Version 1.0, August 1986

; ENTRY	DE holds hex number

; EXIT	DE holds two's complement of hex number

	entry	negde

negde:
	ld	a,d
	cpl			; Negate
	ld	d,a
	ld	a,e
	cpl
	ld	e,a
	inc	de		; Complement
	ret

	end