{
{    The purpose of this procedure is to set a defined compare_swap lock
{  when the user knows the initial contents fo the lock.
{
{          IOP$SET_QUEUE_LOCKWORD (QUEUE_LOCKWORD, INITIAL_VALUE, FINAL_VALUE,
{                          ACTUAL_VALUE, LCOK_SET)
{
{  LOCK_SET: (output)  This parameter specifies whether the queue lock was
{                      successfully set or not.
{
