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
|