title	Module from library INTEGER_1 : NEGI32
	name	('NEGI32')
	maclib	baselib.lib

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

;		Version 1.0 October 1989

; Negate 32 bit integer

; ENTRY	Regs HL,BC hold number

; EXIT	Number holds negated value

	entry	$neg32

$neg32:
	ex	de,hl
	ld	hl,0
	or	a
	sbc	hl,bc		; Negate it
	ld	b,h
	ld	c,l
	ld	hl,0		; .. hi part, too
	sbc	hl,de
	ret

	end