NOLIST
DateStamp      MACRO           ; 11 Jan 88
*------------------------------; Start of DateStamp macro.
     MOVE.L #Time.ds_Days,D1   ; Make D1 point to the date stamp buffer.
     NOLIST
     IFND Time.ds_Days         ; If the date stamp buffer is not defined,
     LIST
     SECTION BSS_Section,BSS   ; Create the date stamp buffer.
     CNOP 0,2
Time.ds_Days:
     DS.L 1
Time.ds_Minute:
     DS.L 1
Time.ds_Tick:
     DS.L 1
     SECTION   "",CODE
     NOLIST
     ENDC
     LIST
     CallLib DateStamp,dos     ; Call DateStamp.
*------------------------------; End of DateStamp macro.
     ENDM
     LIST