SEARCH SYS
SEARCH TRM
SEARCH SYSSYM
VMAJOR=1.
VMINOR=2.
VSUB=0.
VEDIT=500.
PHDR -1,0,PH$REE!PH$REU!PH$L12
JMP 1$
ASCII /*** Program by Alan J. Cavallaro - Copyright 1984 by Driver-Harris systems, Inc. ***/
1$: EVEN
GETIMP D.DDB,A5,CHKMEM
GETIMP D.DDB,A7,CHKMEM
JMP MEMOK
CHKMEM: TYPECR <Insuffcient memory>
EXIT
MEMOK: LEA A2,F1
FSPEC @A7,SYS
LEA A2,F2
FSPEC @A5,SAV
INIT @A5
INIT @A7
LOOKUP @A7
JNE OHSHIT
LOOKUP @A5
BNE NOTFND
DSKDEL @A5
NOTFND: OPENO @A5
OPENI @A7
LOOP: FILINB @A7
TST D.SIZ(A7)
JEQ CLOSET
FILOTB @A5
JMP LOOP
CLOSET: EVEN
CLOSE @A7
CLOSE @A5
EVEN
EXIT: TYPECR <BADBLK.SYS has been copied to BADBLK.SAV>
EXIT
OHSHIT: TYPECR <BADBLK.SYS not found!>
EXIT
F1: ASCII /BADBLK.SYS/
BYTE 0
F2: ASCII /BADBLK.SAV/
BYTE 0
END