title	Module from library BASE_1 : SHFRHL
	name	('SHFRHL')
	maclib	baselib.lib

; Shift 16 bit number right (Divide by 2)

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-2000 Hamburg 20
;		Tel.:040/4223247

;		Version 1.2, February 1988

; ENTRY	HL holds hex number

; EXIT	HL holds hex number divided by two
;	Either with carry (@SHRHL) or without (SHFRHL)

	entry	shfrhl,@shrhl

shfrhl:
	or	a		; Reset carry
@shrhl:
	rr	h
	rr	l		; Shift right
	ret

	end