home *** CD-ROM | disk | FTP | other *** search
- 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
-