.TITLE	CC300
	.IDENT	/X01/

	.NLIST	BEX

;
; C COMPILER
; WRAPUP
;
; VERSION X01
;
; DAVID G. CONROY	13-JAN-78
;

	.GLOBL	CC300

	.MCALL	RETURN
	.MCALL	DELET$
	.MCALL	CLOSE$

;+
; ** CC300 - WRAPUP
;
; THIS OVERLAY WRAPS UP THE COMPILATION. THE ERROR FILE IS CLOSED. THE
; EXPANDED SOURCE FILE IS DELETED IF THE -S OPTION WAS NOT  SPECIFIED,
; ELSE IT IS CLOSED. THE ASM OUTPUT FILE IS DELETED IF THERE WERE  ANY
; ERRORS, ELSE IT IS CLOSED. THE PHASE 1 TO PHASE 2 INTERMEDIATE  FILE
; IS DELETED IF THE -I OPTION WAS NOT SPECIFIED, ELSE IT IS CLOSED.
;-

CC300:	CLOSE$	#EFDB		;ERRORS

	MOV	#SFDB,R0	;GET PTR TO EXPANDED SOURCE FDB
	TSTB	SFLAG		;-S
	BNE	10$		;
	DELET$			;NO,  DELETE IT
	BR	20$		;
10$:	CLOSE$			;YES, KEEP IT

20$:	MOV	#AFDB,R0	;GET PTR TO ASM OUTPUT FDB
	TST	NERRS		;ANY ERRORS
	BEQ	30$		;
	DELET$			;YES, DELETE IT
	BR	40$		;
30$:	CLOSE$			;NO,  KEEP IT

40$:	MOV	#IFDB,R0	;GET PTR TO INTERMEDIATE FDB
	TSTB	IFLAG		;-I
	BNE	50$		;
	DELET$			;NO,  DELETE IT
	BR	60$		;
50$:	CLOSE$			;YES, KEEP IT

60$:	RETURN			;TO CC0RT

	.END