mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
896 B
65 lines
896 B
; 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
|
|
|