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

; Negate 16 bit number

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

;		Version 1.0, August 1986

; ENTRY	HL holds hex number

; EXIT	HL holds two's complement of hex number

	entry	neghl

neghl:
	ld	a,h
	cpl			; Negate
	ld	h,a
	ld	a,l
	cpl
	ld	l,a
	inc	hl		; Complement
	ret

	end