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

; Get CP/M validation

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

;		Version 1.2 September 1991

; ENTRY	Location VERNUM set to CP/M version requested
;	(Default : CP/M PLUS)

; EXIT	Reg H holds OS type
;	Reg L holds OS version
;	Carry reset if selected CP/M found
;	Carry set on earlier CP/M versions

	entry	getver,vernum

getver:
	_OSCAL_	.vers		; Get it
	ld	a,(vernum)	; Get what we need
	ld	b,a
	ld	a,l
	cp	b		; Compare
	ret

	dseg
vernum:
	db	@CPM		; *** Default CP/M PLUS

	end