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

; Shift right 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	shr32

	extrn	$shr32

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

	end