.TITLE ^^.D$TIM - ASCII DATE AND TIME.\\
.PAGE
.INDENT 50
^^.D$TIM\\
.CENTER
  
.SKIP 2
.CENTER
^^.D$TIM - ASCII DATE AND TIME\\
.SKIP 3
.LEFT MARGIN 10
.INDENT -10
^^ROUTINE NAME: .D$TIM\\
.SKIP 2
.INDENT -10
^^PURPOSE:\\ ^TO SUPPLY THE DATE AND TIME AS AN
^^ASCII\\ STRING.
.SKIP 2
.INDENT -10
^^CALLABLE\\: ^ASSEMBLER ONLY
.SKIP 2
.INDENT -10
^^PARAMETERS:\\ ^PRESET REGISTERS.
.SKIP 1
.LEFT MARGIN 15
.INDENT -5
^INPUTS: ^R0 = ADDRESS OF THE USER BUFFER TO CONTAIN
THE DATE/TIME STRING.
.SKIP 1
.INDENT -5
^OUTPUTS: ^R0 = UPDATED PAST THE STRING.
.BREAK
.INDENT 5
^R1 = THE LENGTH OF THE STRING.
.SKIP 1
.INDENT 5
^THE FORMAT OF THE STRING:
.SKIP 1
.CENTER
^^"<CR><LF>DD-MMM-YY HH:MM:SS.S"
.LEFT MARGIN 10
.SKIP 2
.INDENT -10
^^ROUTINES USED\\: ^^$TIM, $DAT\\
.SKIP 2
.INDENT -10
^^EXAMPLE:\\
.NOFILL
.SKIP 1
^^MOV	_#BUF,R0		;GET BUFFER ADDRESS
CALL	.D$TIM		;FILL WITH DATE AND TIME
TTYOUT	_#BUF,R1		;PRINT AT TERMINAL\\
.FILL
.SKIP 2
^THE ABOVE EXAMPLE CAUSES THE DATE AND TIME TO BE PRINTED
AT THE TERMINAL.
.SKIP 2
.INDENT -10
^^FEATURES:\\ ^THE DATE AND TIME AS PLACED IN THE
USER DEFINED BUFFER, IS PRECEDED WITH A CARRIAGE RETURN
AND LINE FEED COMBINATION. ^IF THIS IS NOT DESIRED,
THE PROGRAMMER NEED ONLY ACCESS THE BUFFER AT _#^^BUF\\+2.
.LEFT MARGIN 0
.SKIP 1