diff options
Diffstat (limited to 'v4.0/src/CMD/CHKDSK/CHKDSK.SKL')
| -rw-r--r-- | v4.0/src/CMD/CHKDSK/CHKDSK.SKL | 82 |
1 files changed, 82 insertions, 0 deletions
diff --git a/v4.0/src/CMD/CHKDSK/CHKDSK.SKL b/v4.0/src/CMD/CHKDSK/CHKDSK.SKL new file mode 100644 index 0000000..cf2f149 --- /dev/null +++ b/v4.0/src/CMD/CHKDSK/CHKDSK.SKL | |||
| @@ -0,0 +1,82 @@ | |||
| 1 | :util CHKDSK ;an000;bgb | ||
| 2 | ;an000;bgb | ||
| 3 | :class A ;an000;bgb | ||
| 4 | :use COMMON1 ;Incorrect DOS version ;an000;bgb | ||
| 5 | :use COMMON2 ;stackmes ;an000;bgb | ||
| 6 | :def 3 "Convert lost chains to files (Y/N)?" ;freemes ;an000;bgb | ||
| 7 | :def 4 "Unrecoverable error in directory" ;ptrandir ;an000;bgb | ||
| 8 | :def 5 "Convert directory to file (Y/N)?" ;ptrandir2 ;an000;bgb | ||
| 9 | :def 7 "%1 bytes total disk space" ;dskspc ;an000;bgb | ||
| 10 | :def 8 "%1 bytes in bad sectors" ;badspc ;an000;bgb | ||
| 11 | :def 9 "%1 bytes in %2 hidden files" ;hidmes ;an000;bgb | ||
| 12 | :def 10 "%1 bytes in %2 directories" ;dirmes ;an000;bgb | ||
| 13 | :def 11 "%1 bytes in %2 user files" ;filemes ;an000;bgb | ||
| 14 | :def 12 "%1 bytes in %2 recovered files" ;orphmes2 ;an000;bgb | ||
| 15 | :def 13 "%1 bytes would be in %2 recovered files" ;orphmes3 ;an000;bgb | ||
| 16 | :def 14 "%1 bytes available on disk" ;frespc ;an000;bgb | ||
| 17 | :def 15 "%1 total bytes memory" ;totmem ;an000;bgb | ||
| 18 | :def 16 "%1 bytes free" ;fremem ;an000;bgb | ||
| 19 | :def 17 "Cannot CHKDSK a network drive" ;no_net_arg ;an000;bgb | ||
| 20 | :def 18 "Cannot CHKDSK a SUBSTed or ASSIGNed drive" ;SubStErr ;an000;bgb | ||
| 21 | :def 19 "Probable non-DOS disk",CR,LF,"Continue (Y/N)?" ;badidbyt ;an018;bgb ;an000;bgb | ||
| 22 | :def 20 "Disk error reading FAT %1",CR,LF ;badr ;an000;bgb | ||
| 23 | ;an000;bgb | ||
| 24 | :class B ;an000;bgb | ||
| 25 | :def 21 "Directory %1" ;direc_arg ;an000;bgb | ||
| 26 | :def 22 "%1 Contains %2 non-contiguous blocks" ;extent_arg ;an000;bgb | ||
| 27 | :def 23 "All specified file(s) are contiguous" ;noext_arg ;an000;bgb | ||
| 28 | :def 24 "Errors found, F parameter not specified",CR,LF,"Corrections will not be written to disk" ;fixmes_arg;an000;bgb | ||
| 29 | :def 25 " Processing cannot continue %1%2" ;fatal_arg ;an000;bgb | ||
| 30 | :def 26 " File allocation table bad, drive %1" ;badrdmes ;an000;bgb | ||
| 31 | :use COMMON2 ;stackmes ;an000;bgb | ||
| 32 | :def 29 " CHDIR .. failed, trying alternate method" ;cdddmes ;an000;bgb | ||
| 33 | :def 30 " Has invalid cluster, file truncated" ;badchain ;an000;bgb | ||
| 34 | :def 31 " Invalid sub-directory entry" ;badsubdir ;an000;bgb | ||
| 35 | :def 32 " Does not exist" ;ndotmes ;an000;bgb | ||
| 36 | :def 33 " First cluster number is invalid, entry truncated" ;nulnz ;an000;bgb | ||
| 37 | :def 34 " Allocation error, size adjusted" ;badclus ;an000;bgb | ||
| 38 | :def 35 " Cannot recover .. entry, processing continued" ;norecdot ;an000;bgb | ||
| 39 | :def 36 " Directory is totally empty, no . or .." ;nuldmes ;an000;bgb | ||
| 40 | :def 37 " Directory is joined" ;joinmes ;an000;bgb | ||
| 41 | :def 38 " Cannot recover .. entry" ;norecddot ;an000;bgb | ||
| 42 | :def 39 " Entry has a bad link" ;norecddot1 ;an000;bgb | ||
| 43 | :def 40 " Entry has a bad attribute" ;norecddot2 ;an000;bgb | ||
| 44 | ;an000;bgb | ||
| 45 | :class C ;an000;bgb | ||
| 46 | :def 41 " Entry has a bad size" ;norecddot3 ;an000;bgb | ||
| 47 | :def 42 " Is cross linked on cluster %1" ;cross_arg ;an000;bgb | ||
| 48 | :def 43 " Cannot CHDIR to %1,",CR,LF,"tree past this point not processed" ;badtarg_ptr;an000;bgb | ||
| 49 | :def 44 " tree past this point not processed" ;badtarg2 ;an000;bgb | ||
| 50 | :def 45 "%1 bytes disk space freed" ;freebymes1 ;an000;bgb | ||
| 51 | :def 46 "%1 bytes disk space would be freed" ;freebymes2 ;an000;bgb | ||
| 52 | :def 47 "Volume %1 created %2 %3",CR,LF ;idmes_arg ;an000;bgb | ||
| 53 | :def 48 "%1 total allocation units on disk" ;idmes1 ;an000;bgb | ||
| 54 | :def 49 "%1 bytes in each allocation unit" ;idmes2 ;an000;bgb | ||
| 55 | ;:def 50 "CHKDSK not available on drive %1" ;msgExecFailure ;an000;bgb | ||
| 56 | :def 51 " Extended Attributes has invalid clusters, attributes truncated" ;Inv_XA_Msg;an000;bgb | ||
| 57 | :def 52 " Extended Attributes allocation error , attributes truncated" ;Alloc_XA_Msg;an000;bgb | ||
| 58 | :def 53 "Invalid parameter" ;badsw_arg ;an000;bgb | ||
| 59 | :use 54 extend15 ;baddrv_arg "invalid drive spec" ;an017;bgb | ||
| 60 | :use 55 extend3 ;invpath_arg "path not found" ;an017;bgb | ||
| 61 | :use 56 extend2 ;opnerr_arg "file not found" ;an017;bgb | ||
| 62 | :def 58 " %1 lost clusters found in %2 chains." ;orph_arg ;an000;bgb | ||
| 63 | :def 59 CR,LF ;crlf_arg ;an000;bgb | ||
| 64 | :def 60 " Cannot CHDIR to root",CR,LF ;badcd_arg ;an000;bgb | ||
| 65 | ;an000;bgb | ||
| 66 | :class D ;an000;bgb | ||
| 67 | :def 61 " Disk error writing FAT %1" ;badw_arg ;an000;bgb | ||
| 68 | :def 62 " %1" ;noisy_arg ;an000;bgb | ||
| 69 | :def 63 "Invalid current directory" ;baddpbdir ;an000;bgb | ||
| 70 | :def 64 "%1",CR,LF ;file_arg ;an000;bgb | ||
| 71 | :def 65 " Insufficient room in root directory",CR,LF," Move files from root directory and repeat CHKDSK" ;creatmes;an000;bgb | ||
| 72 | :def 66 "%1 %2 %3" ;eup_arg ;an000;bgb | ||
| 73 | :def 67 "%1 %2, %3" ;usp_arg ;an000;bgb | ||
| 74 | :def 68 "%1%2%3%4%5" ;oth_arg ;an000;bgb | ||
| 75 | :def 69 "%1%2%3%4" ;time_arg ;an000;bgb | ||
| 76 | :def 70 "%1 available allocation units on disk" ;idmes2 ;an017;bgb | ||
| 77 | :use 71 COMMON36 ;Volume Serial Number is %1-%2 ;an024;bgb | ||
| 78 | :use 72 extend8 ;insufficent memory ;an030;bgb | ||
| 79 | :use 73 extend26 ;invalid media type ;an033;bgb | ||
| 80 | :use 74 extend29 ;write fault error ;an033;bgb | ||
| 81 | |||
| 82 | :end | ||