title	CEXIT
	subttl	Module from library C_6 : CEXIT
	maclib	SYSEQU.LIB

; FILE:	EXIT.MAC
; DATE: 820819:1550
; FOR:	Close all channels & quit

; Close all fifteen i/o channels and return to CP/M

	entry	cexit

	ext	cclose

cexit:
	ld	c,15		; Set max
.exit:
	call	cclose		; .. close
	dec	c
	jr	nz,.exit	; .. loop
	jp	boot

	end