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

; Shift rigth 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	$shr32

$shr32:	
	srl	(ix+0)		; Shift four bytes
	rr	(ix+1)
	rr	(ix+2)
	rr	(ix+3)
	ret

	end