%%%
%%%		Special routines for the wait list.
%%%
:WaitFirst	STTU	     :time,C,:NextTime Insert $C$ first in Wait List
		SET	     P,:Wait
		JMP	     2F
%%%
tC		IS	     $3			
tP		IS	     $4
t		IS	     $5
%%%
:WaitSorted	ADD	     tC,$1,:time	 Add delay to current Time.
		STTU	     tC,C,:NextTime
		SET	     P,:Wait
1H		LDOU	     P,P,:Left
		LDTU	     tP,P,:NextTime-:WaitList
		CMP	     t,tP,tC
		BP	     t,1B
2H		ADDU	     C,C,:WaitList	Convert to a Wait list.
		JMP	     :InsertRight
%%%
		PREFIX	     :
%%off