IN:CLNUPX.MAC/AU:72./-BF=LB1:[13,10]CLNUP.MAC
-1,1,/;DSM01/
	$BEGIN	CLNUP,7223,<CLEANUP FROM ERROR EXIT>
;
; Daniel S. McCoy	19-nov-79	Changed for dual-porting
;
-54,56,/;DSM01/
	.WORD	0		; 23	EXTEND FILE
	.WORD	.CLCRE		; 24	CREATE FILE
	.WORD	0		; 25	MARK FILE FOR DELETE
-73,80,/;DSM01/
; dsm ; removed routine
;-
/