;*******************************
; CBCLR - CB CLEAR
;
; by Dave Heyliger - AMUS Staff
;
; Clears CB.SYS if CB.SYS gets
; mucked up.
;
;*******************************

SEARCH SYS
SEARCH SYSSYM

.OFINI
.OFDEF	CBSYS,14
.OFSIZ	IMPSIZ

GETIMP	IMPSIZ,A3

LEA	A2,BUFFER
LEA	A4,CBSYS(A3)
FILNAM	@A4
SRCH	@A4,A1
MOVB	#777,D4
LOOP:	MOVB	#0,(A1)+
	DECB	D4
	BNE	LOOP
EXIT

BUFFER:	ASCII	/CB.SYS/
	EVEN
END

.