Category : Assembly Language Source Code
Archive   : ASPIC.ZIP
Filename : DATE.ASM

 
Output of file : DATE.ASM contained in archive : ASPIC.ZIP
***************************************************************
* DATE AND TIME STAMP DEMONSTRATON
***************************************************************
* Current date and time are put into the constants
* _year, _month, _day, _hour, _min, _sec
* File MODIFICATION date and time are put into the variables
* .._year, .._month, .._day, .._hour, .._min, .._sec
***************************************************************

***************************************************************
* MACRO TO PRINT A MESSAGE AND A DATE
* Usage:
* ECHODATE Message,f[ile] ;file date
* ECHODATE Message,c[urrent] ;current date
* ECHO$D Message,(y),(m),(d),(h),(m) ;used by both
***************************************************************

ECHO$D .MACRO [0],[1],[2] ;print msg,y,m,d,h,m
.MXP ON ;Put expanded line into listing
.ECHO [0] [1.1.2]-[1.3.2]-[1.5.2] [2.2.2]:[2.4.2]
.MXP OFF
.ENDM

ECHODATE .MACRO *msg,[1] ;Print f[ile] or c[urrent] date/time with msg
.switch '[1.0.1]' ;switch on first char of mode
.case 'C' ;C[urrent]
.case 'c'
ECHO$D msg,((_year*$10000)+(_month*$100)+_day),(_hour*$100+_minute+$10000) ;Print in BCD
.else
.case 'F' ;F[ile]
.case 'f'
ECHO$D msg,((.._year*$10000)+(.._month*$100)+.._day),(.._hour*$100+.._minute+$10000) ;Print in BCD
.else
.case (other)
.ERROR Bad date mode
.endif
.ENDM

***************************************************************
* Print current and file dates and times CALCULATED
***************************************************************

ECHODATE Current time: ,Current
ECHODATE File last modified: ,File

****************************************************************
* Print Date and Time pseudo environment STRINGS
****************************************************************

.echo " _TIME = ",#_TIME,$a ;Current date/time string
.echo " _FTIME = ",#_FTIME,$a ;Current file date/time string

.end



  3 Responses to “Category : Assembly Language Source Code
Archive   : ASPIC.ZIP
Filename : DATE.ASM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/