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

; Shift left 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 shifted left

	entry	shl32

	extrn	$shl32

shl32:
	push	ix
	push	hl
	pop	ix		; Copy pointer
	call	$shl32		; Go shift
	pop	ix
	ret

	end