Simple Module ExamplesFixed_Delay Module
PORT (Data_Input, Data_Output : INOUT Token;
Architecture Ar_FD of FD IS
WAIT UNTIL Token_Present(Data_Input) AND Token_Removed(Data_Output);
Place_Token(Data_Output,Delay); -- Note use of overloaded procedure
WAIT UNTIL Token_Acked(Data_Output);
WAIT UNTIL Token_Released(Data_Input);
A simplified version of the Fixed_Delay module form the ADEPT library is shown above. In this case, the module waits for a token to arrive at its input and then places a token on its output using an overloaded version of the place_token procedure that includes a delay parameter. After the output token is acknowledge, the module acknowledges its input token and releases its output token as it begins to prepare for the arrival of the next token on its input by continuing with the token status sequence defined by protocol .