YmDOSVER02COM DOSVER02Z80 \ ; ; DOSVER - a quick program which displays the version number of the ; currently-running ZRDOS. The original DOSVER did not display the ; version number correctly in Z-System implementations such as the DT42 ; "hyperspace" system (which was v2.0). ; ; Released by: D. McCord, 25 June 1987 ; vers equ 02 ; version of this program dos equ 5 ; dos entry point return$zrdos$ver equ 48 ; dos function # extrn pafdc,print ; SYSLIB functions start: ld c,return$zrdos$ver call dos ; get dos ver # ld a,l or h ; is it 0? jr z,not$zrdos ex de,hl ; save version # call print db 'ZRDOS version ',0 ld a,e and 0f0h ; strip low nybble rrc a ; move to proper position rrc a rrc a rrc a call pafdc ; print first digit call print db '.',0 ; period ld a,e and 0fh ; strip high nybble call pafdc ; print second digit call print db ' is currently running',0 ret ; exit program not$zrdos: call print db 'ZRDOS is not currently running',0 ret ; exit program 0}(FrZRDOS version {r.{r is currently runningrZRDOS is not currently runningx~# ʶ  ʣ ʨʨʬ}} }y} }yG>GO> 6}d 06 _y{y06{ 6666 6 6>^6@6O*. E#\~#Ͷj+~> v͓ Œѯ~ʈ##