	.title	fdel
	.globl	.dlfnb
	.mcall	fdof$l
	fdof$l			; define fdb offsets locally
fdb=2
ap=%5
fdel::			; entry point
	mov	@fdb(ap),r0	; FDB address in r0
	call	.dlfnb		; delete file
	bcs	10$		; c set => error
	clr	r0		; return 0 as value of function upon success
	return
10$:	mov	f.err(r0),r0	; put error code in r0
	swab	r0		; make it negative
	return
        .end
