22 lines
525 B
Plaintext
22 lines
525 B
Plaintext
TITLE MYDTIM - Emulate EXEC DAYTIME command
|
|
Comment $
|
|
Contributed by David Meyer <papa@twenex.org>/<papa@sdf.org>
|
|
March 9, 2022
|
|
$
|
|
SEARCH MONSYM
|
|
|
|
START: RESET
|
|
HRROI 1,[ASCIZ " "] ;Compile single space string and print
|
|
PSOUT ; at beginning of line (because DAYTIME
|
|
; does)
|
|
GTAD ;Set AC1 to current system date/time word
|
|
MOVE 2,1 ;Copy date/time from AC1 to AC2
|
|
|
|
MOVEI 1,.PRIOU ;Set AC1 to output destination (.PRIOU =
|
|
; primary output)
|
|
HRROI 3,-1 ;Set AC3 to format option
|
|
ODTIM
|
|
|
|
HALTF
|
|
END START
|