macro/mydtim.txt
2022-03-10 20:40:38 +09:00

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].