TITLE	VER
	SUBTTL	Print operating system release and version

	.Z80
BDOS	EQU	5

VER:	LD	C,12	;Return version number
	CALL	BDOS
	PUSH	HL
	LD	A,H
	OR	A
	LD	DE,CPMMSG
	JR	Z,PRTREL
	DEC	A
	LD	DE,MPMMSG
	JR	Z,PRTREL
	LD	DE,RELMSG
	CALL	PRINT$
	POP	HL
	PUSH	HL
	LD	A,H
	ADD	A,"0"
	CALL	CONOUT
	LD	A,","
	CALL	CONOUT
	JR	PRTVER
PRTREL:	CALL	PRINT$
PRTVER:	LD	DE,VERMSG
	CALL	PRINT$
	POP	HL
	PUSH	HL
	LD	A,L
	RRA
	RRA
	RRA
	RRA
	AND	0FH
	ADD	A,"0"
	CALL	CONOUT
	LD	A,"."
	CALL	CONOUT
	POP	HL
	LD	A,L
	AND	0FH
	ADD	A,"0"

CONOUT:	LD	E,A
	LD	C,2	;Console output
	JP	BDOS

PRINT$:	LD	C,9	;Print string
	JP	BDOS

CPMMSG:	DEFB	"CP/M$"
MPMMSG:	DEFB	"MP/M$"
RELMSG:	DEFB	"Release $"
VERMSG:	DEFB	" version $"
	END	VER