title	Module from library INTEGER_1 : SHLI32
	name	('SHLI32')
	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 IX points to number

; EXIT	Number set to shifted value

	entry	$shl32

$shl32:	
	sla	(ix+3)		; Shift four bytes
	rl	(ix+2)
	rl	(ix+1)
	rl	(ix+0)
	ret

	end