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

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

;		Version 1.0 October 1989

; Convert 32 bit signed number to 16 bits

; ENTRY	Reg DE points to location holding 32 bits

; EXIT	Reg HL holds signed number

	entry	c3216

c3216:
	ex	de,hl
	inc	hl
	inc	hl
	ld	d,(hl)		; Get the part
	inc	hl
	ld	e,(hl)
	ex	de,hl
	ret

	end