home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / ZCPR33 / A-R / DOSVER03.LBR / DOSVER03.ZZ0 / DOSVER03.Z80
Text File  |  2000-06-30  |  2KB  |  75 lines
  1. ; version:    02
  2. ; author:    D. McCord
  3. ; date:        06/25/87 
  4. ; DOSVER - a quick program which displays the version number of the
  5. ; currently-running ZRDOS.  The original DOSVER did not display the
  6. ; version number correctly in Z-System implementations such as the DT42
  7. ; "hyperspace" system (which was v2.0).
  8. ;
  9. ; version:    03
  10. ; author:    Steven Gold
  11. ; date:        05/25/88
  12. ;     
  13. ;  added support for ZSDOS/ZDDOS as well as ZRDOS
  14. ;
  15. vers            equ    03    ; version of this program
  16. dos            equ    5    ; dos entry point
  17. return$zrdos$ver    equ    48    ; dos function #
  18.  
  19.     extrn    pafdc,print        ; SYSLIB functions
  20.  
  21. start:
  22.     ld     c,return$zrdos$ver
  23.     call    dos            ; get dos version #
  24.     ld    a,h
  25.     or    h            ; is it 0 ?
  26.     ex     de,hl            ; save version #
  27.     jr    z,zrdos 
  28.     cp    'D'            ; is it 'D' ?
  29.     ex    de,hl            ; save version #
  30.     jr    z,zddos
  31.     cp    'S'            ; is it 'S' ? 
  32.     ex    de,hl            ; save version #
  33.     jr    z,zsdos
  34.     jr    z,not$dos
  35.  
  36. dosver:
  37.     ld    a,e
  38.     and    0f0h            ; strip low nybble
  39.     rrc    a            ; move to proper position
  40.     rrc    a
  41.     rrc    a
  42.     rrc    a
  43.     call    pafdc            ; print first digit
  44.     call    print
  45.     db    '.',0            ; period
  46.     ld    a,e
  47.     and    0fh            ; strip high nybble
  48.     call    pafdc            ; print second digit
  49.     call    print
  50.     db    ' is currently running',0
  51.     ret
  52.  
  53. ZRDOS:    
  54.     call     print
  55.     db    'ZRDOS version ',0
  56.     jp    dosver
  57.     ret
  58.  
  59. ZDDOS:    
  60.     call     print
  61.     db    'ZDDOS version ',0
  62.     jp     dosver
  63.     ret
  64.  
  65. ZSDOS:    
  66.     call    print
  67.     db    'ZSDOS version ',0
  68.     jp     dosver
  69.     ret
  70.  
  71. not$dos:
  72.     call    print
  73.     db    'Enhanced DOS is not currently running',0
  74.     ret                ; exit program
  75.