TOPS-10 Monitor Calls Manual Volume 2 AA-K039D ... - Trailing-Edge

DATE [CALLI 14]
22.21 DATE [CALLI 14]
FUNCTION
Returns a code giving the system date.
by the formula:
The code is an
integer given
code = 31[12(year-1964)+(month-1) ]+(day-l)
You can obtain the current day, month, and year using the formulas:
day
month
year
mod(code,31)+1
mod(code/31,12)+1
(code/372)+1964
The DATE call is equivalent to using GETTAB to obtain item %CNDAT.
The day, month, and year are stored in GETTAB items %CNDAY, %CNMON,
and %CNYER, respectively. Your program can avoid the computations
needed to interpret the data returned from the DATE call by GETTABing
the specific items, but the efficient program will avoid performing
three separate GETTAB calls by GETTABing %CNDAT and then dividing the
data into its appropriate components.
CALLING SEQUENCE
DATE
return
ac,
EXAMPLE
The following macro computes the current day, month, and year.
DEFINE
CURDAT(DAY,MONTH,YEAR)<
DATE T1,
IDIVI T1,AD31
ADDI T2,1
MOVEM
IDIVI
T2,DAY
Tl,AD12
ADDI T2,1
MOVEM
ADDI
T2,MONTH
TI,AD1964
MOVEM T1,YEAR
>
RELATED CALLS
TIMER
22-48