
{
{  The purpose of this procedure is to test the signature
{  lock to see if it is unlocked, locked by current task
{  or locked by an alternate task.
{
{    OSP$TEST_SIGNATURE_LOCK (LOCK, LOCK_STATUS, STATUS)
{
{  LOCK: (INPUT) This parameter specifies the lock.
{
{  LOCK_STATUS: (OUTPUT) This parameter specifies the status
{                        of the lock.
{
{  STATUS: (OUTPUT) This parameter specifies the error status.
{
