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

; Make page boundary

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 April 1986

; ENTRY	Reg HL holds address

; EXIT	Reg HL holds address on page boundary

	entry	bound

bound:
	inc	l
	dec	l		; Test already on boundary
	ret	z		; Yeap
	ld	l,0		; Else make boundary
	inc	h
	ret

	end