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

; Increment random record number - 24 bit value

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

;		Version 1.0 September 1991

; ENTRY	Accu and reg pair HL hold value
;	Accu holds high byte

; EXIT	Accu and reg pair HL hold value incremented by one

	entry	incrrn

incrrn:
	bit	7,h		; Mark sign of middle byte
	inc	hl		; Increment low and middle
	ret	z		; .. end on ole bit reset
	bit	7,h		; Test carry
	ret	nz		; .. nope
	inc	a		; Bump
	ret

	end