mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
65 lines
896 B
Plaintext
65 lines
896 B
Plaintext
; 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
|
||
|