; version.lib 1/30/2012 dwg - version and date macros

disp$vers macro
	lxi	h,A$RMJ
	call	pr$d$word
	conout	'.'
	lxi	h,A$RMN
	call	pr$d$word
	conout	'.'
	lxi	h,A$RUP
	call	pr$d$word
	conout	'.'
	lxi	h,A$RTP
	call	pr$d$word
	endm

disp$date macro
	lxi	h,A$MONTH
	call	pr$d$word
	conout	'/'
	lxi	h,A$DAY
	call	pr$d$word
	conout	'/'
	lxi	h,A$YEAR
	call	pr$d$word
	endm

version	macro 	wrnmsg,errmsg
	local 	rmj$ok,rmn$ok,rup$ok,rtp$ok
	lxi	h,RMJ
	mvi	a,A$RMJ
	cmp	m
	jz	rmj$ok
	print	errmsg
	mvi	a,FAILURE
	jmp	fini
rmj$ok:	
	inx	h
	mvi	a,A$RMN
	cmp	m
	jz	rmn$ok
	print	errmsg
	mvi	a,FAILURE
	jmp	fini																					
rmn$ok:	
	inx	h
	mvi	a,A$RUP
	cmp	m
	jz	rup$ok
	print	wrnmsg
	jmp	was$ok
rup$ok:	
	inx	h
	mvi	a,A$RTP
	cmp	m
	jz	was$ok
	print	wrnmsg
	; fall through	
was$ok:	
	mvi	a,SUCCESS
fini:
	endm

; eof - version.lib