home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / z3lib / libs45.lbr / LIBVERS.ZZ0 / LIBVERS.Z80
Encoding:
Text File  |  1993-06-07  |  2.1 KB  |  72 lines
  1. ; Print the Version Number and ID Strings from libraries.    16 Aug 90
  2. ;=========================================================================
  3. ; Assemble this, then link with all libraries as:
  4. ;    ZML LIBVERS,DSLIB/,VLIB/,Z3LIB/,SYSLIB/
  5. ; Then Execute the LIBVERS.COM to display the versions of each library.
  6. ;                    Harold F. Bower
  7. ;=========================================================================
  8. ; Routines/Data to be gathered from library modules:
  9.  
  10.     EXT    VERSION        ; SYSLIB Version string
  11.     EXT    Z3LVER        ; Z3LIB Version string
  12.     EXT    VVERS        ; VLIB Version string
  13.     EXT    DVERS        ; DSLIB Version string
  14.  
  15.     EXT    @B2HL,PRINT,PSTR,COUT,CRLF    ; Use these from SYSLIB
  16.  
  17. ; ASCII Character Constants
  18.  
  19. CR    EQU    13        ; Carriage Return
  20. LF    EQU    10        ; Line Feed
  21. TAB    EQU    09        ; Tab character
  22.  
  23. ;........................................................................
  24.  
  25. START:    CALL    PRINT        ; Opening banner
  26.     DEFB    CR,LF,'Versions of selected libraries are:',CR,LF
  27.     DEFB    'SYSLIB --> ',0
  28.  
  29.     CALL    VERSION        ; Get BCD Version of SYSLIB
  30.     CALL    DOBCDV        ; ..and print
  31.     LD    HL,VERSION+4
  32.     CALL    PSTR        ; Print the ID string
  33.  
  34.     CALL    PRINT        ; Now show Z3LIB
  35.     DEFB    CR,LF,'Z3LIB  --> ',0
  36.     CALL    Z3LVER        ; Get BCD Version of Z3LIB
  37.     CALL    DOBCDV        ; ..and print
  38.     LD    HL,Z3LVER+4
  39.     CALL    PSTR        ; Print the ID String
  40.  
  41.     CALL    PRINT        ; Now show VLIB
  42.     DEFB    CR,LF,'VLIB   --> ',0
  43.     CALL    VVERS        ; Get BCD Version of VLIB
  44.     CALL    DOBCDV        ; ..and print
  45.     LD    HL,VVERS+4
  46.     CALL    PSTR        ; Print the ID String
  47.  
  48.     CALL    PRINT        ; Finally show DSLIB
  49.     DEFB    CR,LF,'DSLIB  --> ',0
  50.     CALL    DVERS        ; Get BCD Version of DSLIB
  51.     CALL    DOBCDV        ; ..and print
  52.     LD    HL,DVERS+4
  53.     CALL    PSTR        ; Print the ID String
  54.     JP    CRLF        ; ..and exit on a new line
  55.  
  56. ;.....
  57. ; Print Version number as "n.n" as returned from call, followed by CRLF.
  58.  
  59. DOBCDV:    LD    A,H
  60.     CALL    @B2HL        ; Convert digit to Hex digit
  61.     CALL    COUT        ; .print first digit
  62.     LD    A,'.'
  63.     CALL    COUT
  64.     LD    A,L        ; Get second digit
  65.     CALL    @B2HL        ; .convert to Digit
  66.     CALL    COUT        ; ..and print
  67.     CALL    PRINT        ; Go to a new line and indent
  68.     DEFB    CR,LF,TAB,0
  69.     RET            ; ...and return
  70.  
  71.     END
  72.