! @[$] lock.s 2.1 09/12/83 11:41:58 - 87wega3.2 !
lock module
external
cerror procedure
global
_lock procedure
entry
ld r0,r7
xor r4,r4
sc #53
ld r2,r4
ret nc
jp cerror
end _lock
end lock