title	NEGH
	subttl	Module from library C_1 : NEGH
	maclib	SYSEQU.LIB

; FILE:	NEGH.MAC
; DATE: 820818:1310
; FOR:	-HL -> HL

; ENTRY	: Reg HL holds 16 bit value
; EXIT	: Reg HL holds negated value

	entry	negh

negh:
	push	af		; Preserve accu
	xor	a
	sub	l		; .. negate
	ld	l,a
	sbc	a,h
	sub	l
	ld	h,a
	pop	af
	ret

	end