title	Module from library INTEGER_2 : NEG32
	name	('NEG32')
	maclib	baselib.lib

; Negate 32 bit integer

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

;		Version 1.0 October 1989

; ENTRY	Reg pair HL points to number

; EXIT	Number filled with negated value

	entry	neg32

	extrn	$neg32,$lod32,$sto32

neg32:
	push	hl
	call	$lod32		; Load 32 bit
	ex	de,hl
	call	$neg32		; Go negate
	pop	hl
	call	$sto32		; Save result
	ret

	end