
  PROCEDURE [INLINE] iop$clear_queue_lockword_sc
    (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_sc,
            iov$initial_queue_lock_sc, actual_lock, result);
    WHILEND;

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

  PROCEND iop$clear_queue_lockword_sc;

*copyc iot$unit_interface_table
*copyc mtp$error_stop
*copyc osp$end_system_activity
*copyc iov$initial_queue_lock_sc
*copyc iov$queue_lock_set_2_sc
*copyc iov$queue_lock_set_sc
?? POP ??

