title	Module from library BASE_2 : MODREC
	name	('MODREC')
	maclib	baselib.lib

; Get record and record pointer from 16 bit number using
; 128 byte standard records

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

;		Version 1.0 September 1988

; ENTRY	Reg pair HL holds 16 bit number

; EXIT	Reg pair BC holds record pointer
;	Reg pair HL holds record counter
;	Reg pair DE holds original number

	entry	modrec

	extrn	divrec

modrec:
	call	divrec		; Get record
	ld	a,e		; Compute modulo 128
	and	reclng-1
	ld	c,a
	ld	b,0
	ret

	end