;	TITLE	"SMTH10 - Syslib 4.0"
	NAME	('NEGH')
;=================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;-----------------------------------------------------------------
; Author  : Harold F. Bower
;		Derived from SMTH10.Z80 Ver 1.1 by Richard Conn
; Date    : 17 Sep 89
; Version : 1.2
; Module  : SMTH10
; Abstract:  This module contains the routine NEGH which returns
;	the Two's Complement of the 16-bit value in the HL register.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Module Entry Points

	PUBLIC		NEGH

; From SYSLIB Get..

	EXT		CMPH

	.Z80
	CSEG
;===============================================================
; NAME - NEGH
; Entry: HL - The value to be 2's complemented
; Exit : HL - The complemented value
; Uses : HL
; Special Requirements: None
;===============================================================
NEGH:	CALL	CMPH		; 1'S Comp of HL
	INC	HL		; Add 1 for 2'S Complement
	RET

	END