NOLIST
UnLock      MACRO              ; 10 Jan 88
*------------------------------; Start of UnLock macro.
                               ; Put the lock in D1.
     MOVE.L \1,D1
     CallLib UnLock,dos        ; Call UnLock to remove the lock.

*------------------------------; End of UnLock macro.
     ENDM
     LIST