title	Module from library BASE_3 : TRNREC
	name	('TRNREC')
	maclib	baselib.lib

; Get truncated record 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 1990

; ENTRY	Reg pair HL holds 16 bit number

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

	entry	trnrec

	extrn	modrec

trnrec:
	call	modrec		; Get record
	ld	a,c
	or	b		; Test remainder
	ret	z
	inc	hl		; Fix if > 0
	ret

	end