;*******************************
; 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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.