mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
156 lines
3.0 KiB
NASM
156 lines
3.0 KiB
NASM
; banner.asm 9/5/2012 dwg - new version semantics - #.#.# (#)
|
||
|
||
maclib portab
|
||
maclib globals
|
||
maclib cpmbios
|
||
maclib cpmbdos
|
||
maclib bioshdr
|
||
maclib printers
|
||
maclib cpmappl
|
||
maclib applvers
|
||
|
||
cseg
|
||
|
||
|
||
; entered with argv in hl
|
||
public x$banner
|
||
x$banner:
|
||
shld argv
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xprog ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xvers ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xprod ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xorig ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xser ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xnam ! xchg
|
||
|
||
|
||
printf '----------------------------------------'
|
||
print crlf
|
||
lhld xprog ! xchg ! mvi c,9 ! call BDOS
|
||
printf ' '
|
||
IF A$MONTH LT 10
|
||
conout ' '
|
||
ENDIF
|
||
IF A$DAY LT 10
|
||
conout ' '
|
||
ENDIF
|
||
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
|
||
printf ' '
|
||
printf 'Version '
|
||
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
|
||
printf ' ('
|
||
lxi h,A$RTP
|
||
call pr$d$word
|
||
conout ')'
|
||
print crlf
|
||
printf 'S/N '
|
||
|
||
lhld xprod ! xchg ! mvi c,9 ! call BDOS
|
||
|
||
conout '-'
|
||
|
||
lhld xorig ! xchg ! mvi c,9 ! call BDOS
|
||
|
||
conout '-'
|
||
|
||
; print xser
|
||
lhld xser ! xchg ! mvi c,9 ! call BDOS
|
||
|
||
printf ' '
|
||
; printf 'All Rights Reserved'
|
||
printf 'Licensed under GPL3'
|
||
print crlf
|
||
printf 'Copyright (C) 2011-12'
|
||
|
||
lhld xnam ! xchg ! mvi c,9 ! call BDOS
|
||
|
||
print crlf
|
||
printf '----------------------------------------'
|
||
print crlf
|
||
|
||
ret
|
||
|
||
|
||
; entered with argv in hl
|
||
public x$sbanner
|
||
x$sbanner:
|
||
shld argv
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xprog ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xvers ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xprod ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xorig ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xser ! xchg
|
||
mov e,m ! inx h ! mov d,m ! inx h ! xchg ! shld xnam ! xchg
|
||
|
||
|
||
; printf '----------------------------------------'
|
||
; print crlf
|
||
lhld xprog ! xchg ! mvi c,9 ! call BDOS
|
||
printf ' '
|
||
IF A$MONTH LT 10
|
||
conout ' '
|
||
ENDIF
|
||
IF A$DAY LT 10
|
||
conout ' '
|
||
ENDIF
|
||
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
|
||
printf ' '
|
||
printf 'Vers. '
|
||
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
|
||
printf ' ( '
|
||
lxi h,A$RTP
|
||
call pr$d$word
|
||
printf ') '
|
||
printf 'COPR Douglas Goodall Licensed w/GPLv3'
|
||
|
||
|
||
print crlf
|
||
|
||
ret
|
||
|
||
|
||
;----------------------------------------------------------------
|
||
|
||
argv ds 2
|
||
;----------------
|
||
xprog ds 2
|
||
xvers ds 2
|
||
xprod ds 2
|
||
xorig ds 2
|
||
xser ds 2
|
||
xnam ds 2
|
||
|
||
crlf db CR,LF,'$'
|
||
|
||
end
|
||
|
||
; eof - banner.asm
|
||
|