;*DDK*************************************************************************/
;
; COPYRIGHT    Copyright (C) 1995 IBM Corporation
;
;    The following IBM OS/2 WARP source code is provided to you solely for
;    the purpose of assisting you in your development of OS/2 WARP device
;    drivers. You may use this code in accordance with the IBM License
;    Agreement provided in the IBM Device Driver Source Kit for OS/2. This
;    Copyright statement may not be removed.;
;*****************************************************************************/
           .386
           .MODEL FLAT,SYSCALL
;/*****************************************************************************
;*
;* SOURCE FILE NAME = DATE.ASM
;*
;* DESCRIPTIVE NAME = Strings for date and time
;*
;*
;* VERSION      V2.0
;*
;* DATE        
;*
;* DESCRIPTION 
;*
;* FUNCTIONS    NONE
;*              
;*
;* NOTES        NONE
;*
;* STRUCTURES   NONE
;*
;* EXTERNAL REFERENCES
;*
;*              NONE
;*
;* EXTERNAL FUNCTIONS
;*
;*              NONE
;*
;* CHANGE ACTIVITY =
;*   DATE      FLAG        APAR   CHANGE DESCRIPTION
;*   --------  ----------  -----  --------------------------------------
;*   mm/dd/yy  @Vr.mpppxx  xxxxx  xxxxxxx
;*
;*****************************************************************************/
.DATA

% ECHO @Date @Time

PUBLIC vga32date,vgadate

ASMDATE TEXTEQU @Date
ASMTIME TEXTEQU @Time

COMPOSE_STRING MACRO mystring
FORC mychar,<mystring>
        DB '&mychar'
ENDM
ENDM

vgadate                 BYTE 10,13
ifdef FIREWALLS
                        BYTE "NOT a 16bit driver",10,13
                        BYTE "USAGE: da vga32date",10,13
                        BYTE "This is:"
endif
vga32date               BYTE 10,13
ifdef FIREWALLS
                        BYTE '* IBM OS/2 VGA32 DEBUG *',10,13
                        BYTE 'Date: '
                        COMPOSE_STRING <%ASMDATE>
                        BYTE ' Time: '
                        COMPOSE_STRING <%ASMTIME>
                        BYTE 10,13,10,13,0
endif

END



