.title	closdr
;+
;	subroutine closdr(desc)
;-
ap=%5
desc=2
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
closdr::
	mov	@desc(ap),r1		; RFDB address
	mov	#rf.clo,(r1)		; mark RFDB as closed
	return
	.end