48 lines
1.3 KiB
Plaintext
48 lines
1.3 KiB
Plaintext
MYDTIM.MAC - Emulate EXEC DAYTIME command
|
|
|
|
PUBLIC:<CONTRIB>MYDTIM.MAC
|
|
PUBLIC:<CONTRIB>MYDTIM.EXE
|
|
PUBLIC:<CONTRIB>MYDTIM.TXT
|
|
|
|
Contributed by David Meyer <papa@twenex.org>/<papa@sdf.org>
|
|
March 9, 2022
|
|
|
|
MACRO assembly language source demonstrating use of GTAD and ODTIM JSYS
|
|
to get system date/time, then format and print it like the EXEC command
|
|
DAYTIME.
|
|
|
|
GTAD
|
|
Gets the current system date/time word (the format of which is a
|
|
story for another day) and stores it in AC1.
|
|
|
|
ODTIM
|
|
Format and print a date/time.
|
|
INPUTS:
|
|
AC1: Output destination (.PRIOU for primary output)
|
|
AC2: Date/time word (-1 to use current system date/time)
|
|
AC3: Date format (-1 for "Weekday, Month dd, yyyy hh:mm:ss"
|
|
(like DAYTIME))[*]
|
|
|
|
(Since ODTIM can be instructed to use the current system date/time by
|
|
storing -1 in AC2, the lines:
|
|
|
|
GTAD
|
|
MOVE 2,1
|
|
|
|
... could be replaced with:
|
|
|
|
HRROI 2,-1
|
|
|
|
... eliminating the need to call GTAD directly.)
|
|
|
|
|
|
[*] For more format options, see "ODTIM JSYS 220", TOPS-20 Monitor Calls
|
|
Reference Manual, p. 3-295.
|
|
|
|
|
|
Reference:
|
|
|
|
TOPS-20 Monitor Calls Reference Manual. Nashua, NH: Digital Equipment
|
|
Corporation, 1982. Available: Bitsavers' Computing Archive,
|
|
http://bitsavers.org/pdf/dec/pdp10/TOPS20/AA-4166E-TM_TOPS-20_Monitor_Calls_Reference_Ver_5_Dec82.pdf [Accessed March 9, 2022].
|