home *** CD-ROM | disk | FTP | other *** search
- .key trgt
- .def trgt MSDOS_FileSystem:
- .bra {
- .ket }
-
- failat 100 ; return FAIL
-
- echo "Install a copy of the CrossDOS installation disk in one of the drives."
- echo "All patches are to be made to this disk."
- assign M: "{trgt}"
- if ERROR
- echo "CrossDOS installation disk not found."
- skip EXIT
- endif
-
- makedir ram:P
- assign P: ram:P
- copy c:copy to P:
- path >NIL: P: add
- copy c:delete to P:
- copy c:makedir to P:
- copy M:Diag/lpatch to P:
- copy >NIL: c:echo to P:
- copy >NIL: c:if to P:
- copy >NIL: c:endif to P:
-
- ; Patch MSDOS_FileSystem:L/MSDOSFileSystem and MSDOS_FileSystem:DEVS/mfm.device
- copy M:L/MSDOSFileSystem to P:
- copy M:DEVS/mfm.device to P:
-
- ; Patch from V4.01a to V4.02
- echo ""
- echo "Try to patch to V4.02"
- P:lpatch -oP:MSDOSFileSystem.new -pMFS402.pch P:MSDOSFileSystem
- if NOT WARN
- copy P:MSDOSFileSystem.new P:MSDOSFileSystem
- endif
- P:lpatch -oP:mfm.device.new -pMDV402.pch P:mfm.device
- if NOT WARN
- copy P:mfm.device.new P:mfm.device
- endif
-
- ; Patch from V4.02 to V4.02a
- echo ""
- echo "Try to patch to V4.02a"
- P:lpatch -oP:MSDOSFileSystem.new -pMFS402a.pch P:MSDOSFileSystem
- if NOT WARN
- copy P:MSDOSFileSystem.new P:MSDOSFileSystem
- endif
-
- ; copy P: versions to installation disk
- echo ""
- copy P:MSDOSFileSystem to M:L/MSDOSFileSystem
- copy P:mfm.device to M:DEVS/mfm.device
-
- delete P:#?
- assign P:
-
- lab EXIT
- assign M:
-