title	Module from library BASE_2 : NUMPOS
	name	('NUMPOS')
	maclib	baselib.lib

; Set numbers >0

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

;		Version 1.0, August 1986

; ENTRY	DE,HL hold hex numbers

; EXIT	DE,HL hold numbers >0
;	Locations SIGN1,SIGN2 hold sign of each number

	entry	@nmpos,@sign1,@sign2

	extrn	negde,neghl

@nmpos:
	ld	a,d
	and	msb
	ld	(@sign1),a	; Get 1st sign
	call	nz,negde	; Make >0 if necessary
	ld	a,h
	and	msb
	ld	(@sign2),a	; Same for 2nd number
	call	nz,neghl
	ret

	dseg

@sign1:
	ds	1
@sign2:
	ds	1

	end