  PROCEDURE [XREF] osp$fetch_spi_lock
    (VAR i: integer);

