Time of Day Service

CLOCK is a domain which converts the value of the system time of day clock into any of a variety of useful formats. It supports multiple time zone conversions and may someday support virtual time instead of real time.

The time zone is determined by the databyte of the entry key which invokes CLOCK. A value of 8 indicates the 8th time zone past UT (Universal Time, same as Greenwich Mean Time) and is thus particularly useful for Pacific Standard Time. (9 for PDT.)

If TOD_clock is an 8 byte character string in the form of the system time of day clock, the value will be converted according to the following specifications. If TOD_clock is omitted from the parameter string, the current value is fetched from the system clock, and interpreted.

CLOCK(0,(8,TOD_clock);==>c,((4,time_of_day),(4,day_of_year));) returns the time and date where time_of_day is in units of 26.0144 microseconds since midnight and day_of_year is in the packed decimal form 00YYJJJF where YY represents the last two digits of the year and JJJ is the julian date. F is the sign character which may be useful if the day and year are to be reformatted using the UNPACK instruction.

CLOCK(1,(8,TOD_clock);==>c,((4,time_of_day),(4,day_of_year));) is the same, except that the time_of_day is in units of 1/100 of a second.

CLOCK(2,(8,TOD_clock);==>c,((4,time_of_day),(4,day_of_year));) is the same, except that the time_of_day is in the form HHMMSShh in packed decimal and where HH is hours, MM is minutes, and SShh is seconds and hundredths.

CLOCK(3,(8,TOD_clock);==>c,((8,time_of_day_clock),(4,day_of_year) ); )is the same, except that time_of_day_clock contains clock ticks (i.e. bit 12 = 1 microsecond) since midnight.

CLOCK(4,(8,TOD_clock);==>c,((8,time_of_day_clock),(4,day_of_year) ); ) is the same, except that time_of_day_clock contains clock ticks {i.e., bit 12 = 1 microsecond} since 00:00:00 January 1,1900 UT.

CLOCK(5,(8,TOD_clock);==>c,(31,time_and_date);) returns an EBCDIC string in the form MM/DD/YYHH:MM:SS.hhZZZwwwwwwwww where MDYHMSh are all defined above. ZZZ is the time zone {e.g., PST}, left-justified and padded with blank if necessary. wwwwwwwww is the name of the day of the week {in English} left-justified with trailing blanks.

For 0<=n<=5, CLOCK(100+n;...) returns the same values in UT instead of local time.

CLOCK(1000,(4,timezone);==>c,;TIMEX1) produces a new CLOCK key with the designated time zone, and c=0 if timezone is less than 25. If timezone is greater or equal to 25, c will be 1, and the system default time zone will be used in place of timezone for the new TIMEX1 key.

{arcane}Design Note: The 1000 order code serves kind of like a creator. Should there be a separate creator key?

CLOCK(KT;==>c) returns x'12' in c.

Programming note: order code 105 may be used to convert a time interval (calculated by subtracting one TOD_clock value from another) into readable characters.

The keys WAITC and WAIT provide the means for general programs to delay.

WAITCC

WAITCC(0;SB,M,WAIT; ==>c;WAITC) "Create Multiplexor"
WAITCC creates a multiplexor (waitc) using the wait object WAIT (wait). Return code of 1 means that SB is not prompt and return code of 2 means that there is insufficient space in SB to create the multiplexor.

WAITCC(kt; ==> x'225')

WAITC
WAITC is no longer available. See (kor,waitf) which provides better function but is incompatible.

WAITC(0; ==> c;WAIT) "Create WAIT Key"

WAITC allocates a WAIT object with an initial timer value of 0. Return code of 4 means that no more objects are available.

WAITC(1; ==> 0;((4,cnt),(4,max cnt))) "Query Counts"
"cnt" is the number of wait objects that have been created and not deleted. "max cnt" is the maximum of "cnt" since WAITC was created. The storage requirements for WAITC depend on both of these numbers.

WAITC(kt; ==> X'0125')

WAITC(kt+4; ==> 0;) destroys the multiplexor and restarts all waiting domains with a return code of kt+1.

WAIT
WAIT(0; ==> c;) "Wait"
Returns with c=0 when the real clock exceeds the timer value. If the timer value for this key has a value less than the real clock then return is immediate. Returns immediately with c=1 if there is already a domain waiting.

WAIT(1,(8,tod); ==> 0;) "Set time"
The timer value is set to tod. If tod is less than the real clock it returns immediately. As with the real clock, the timer value is in units of 1/2**12 microseconds.

The above calls are the same as for BWAIT {(p2,bwait)}.

WAIT(2,(8,INTVAL); ==> 0;)

The timer value is set to the current time plus INTVAL in microseconds. INTVAL is a 64 bit number with the least significant bit equal to 1 microsecond. {This call is prompt!}
{arcane}Perhaps this should be in standard tod units.

WAIT(kt; ==> X'25')

WAIT(kt+4; ==> 0;)

Return the WAIT key. Restart any waiting domain with kt+1.