.title	fdel
;+
;	integer function fdel(int)
;-
ap=%5
int=2
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
fdel::
	mov	@int(ap),r0		; rat4 unit
	call	r$gfbk			; get RFDB address in r1
	mov	r.fdb(r1),r0		; FDB address
	call	.dlfnb			; delete file
	mov	#ok,r0			; assume OK
	bcc	10$			; c clear => success
	mov	#err,r0			; return ERR
10$:
	return
	.end