.text; .even; .globl _UnLockRecord

_UnLockRecord:
	moveml #0x3002,sp@-
	movel _DOSBase,a6
	movel sp@(16),d1
	movel sp@(20),d2
	movel sp@(24),d3
#APP
	jsr a6@(-0x11a)
#NO_APP
	extl d0
	moveml sp@+,#0x400c
	rts