
  PROCEDURE [INLINE] iop$clear_queue_lockword
    (VAR queue_lockword: iot$lockword);

?? PUSH (LISTEXT := ON) ??

    VAR
      actual_lock: iot$lockword,
      result: 0 .. 2;

    result := 2;
    WHILE result = 2 DO
      #COMPARE_SWAP (queue_lockword, iov$queue_lock_set,
            iov$initial_queue_lock, actual_lock, result);
    WHILEND;

    IF result <> 0 THEN
      result := 2;
      WHILE result = 2 DO
        #COMPARE_SWAP (queue_lockword, iov$queue_lock_set_2,
              iov$initial_queue_lock, actual_lock, result);
      WHILEND;
      IF result <> 0 THEN
        mtp$error_stop ('IO04 - invalid queue lockword');
      IFEND;
    IFEND;

  PROCEND iop$clear_queue_lockword;

*copyc iot$unit_interface_table
*copyc mtp$error_stop
*copyc iov$initial_queue_lock
*copyc iov$queue_lock_set
*copyc iov$queue_lock_set_2
?? POP ??
