diff options
| author |  Mark Zbikowski | 2024-04-25 21:24:10 +0100 |
|---|---|---|
| committer |  Microsoft Open Source | 2024-04-25 22:32:27 +0000 |
| commit | 2d04cacc5322951f187bb17e017c12920ac8ebe2 (patch) | |
| tree | 80ee017efa878dfd5344b44249e6a241f2a7f6e2 /v4.0/src/CMD/COMP/COMP.SKL | |
| parent | Merge pull request #430 from jpbaltazar/typoptbr (diff) | |
| download | ms-dos-main.tar.gz ms-dos-main.tar.xz ms-dos-main.zip | |
Diffstat (limited to 'v4.0/src/CMD/COMP/COMP.SKL')
| -rw-r--r-- | v4.0/src/CMD/COMP/COMP.SKL | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/v4.0/src/CMD/COMP/COMP.SKL b/v4.0/src/CMD/COMP/COMP.SKL new file mode 100644 index 0000000..96a1115 --- /dev/null +++ b/v4.0/src/CMD/COMP/COMP.SKL | |||
| @@ -0,0 +1,30 @@ | |||
| 1 | :util COMP ;utility name ;AN000; | ||
| 2 | |||
| 3 | :class A ;system messages ;AN000; | ||
| 4 | |||
| 5 | :use 1 COMMON1 ;"Incorrect DOS version" ;AN000; | ||
| 6 | :use 2 EXTEND8 ;"Insufficient memory" ;AN000; | ||
| 7 | :use 3 PARSE10 ;"Invalid parameter" ;AN000; | ||
| 8 | |||
| 9 | :def 4 "10 Mismatches - ending compare",CR,LF ;AN000; | ||
| 10 | :use 5 EXTEND15 ;"Invalid drive specification" ;AN000; | ||
| 11 | :def 6 "Compare error at OFFSET %1",CR,LF ;AN000; | ||
| 12 | :def 7 "File 1 = %1",CR,LF ;AN000; | ||
| 13 | :def 8 "File 2 = %1",CR,LF ;AN000; | ||
| 14 | :def 9 "Eof mark not found",CR,LF ;AN000; | ||
| 15 | :def 10 "Files compare ok",CR,LF ;AN000; | ||
| 16 | :use 11 EXTEND2 ;"File not found" ;AN000; | ||
| 17 | :use 12 COMMON25 ;"Invalid path" ;AN000; | ||
| 18 | :use 13 EXTEND32 ;"Sharing violation" ;AN000; | ||
| 19 | :use 14 EXTEND4 ;"Too many open files" ;AN000; | ||
| 20 | :def 15 CR,LF,CR,LF,"Enter primary filename",CR,LF ;AN000; | ||
| 21 | :def 16 CR,LF,CR,LF,"Enter 2nd filename or drive id",CR,LF ;AN000; | ||
| 22 | :def 17 "Files are different sizes",CR,LF ;AN000; | ||
| 23 | :def 18 "Compare more files (Y/N) ?" ;AN000; | ||
| 24 | :def 19 "%1 and %2",CR,LF ;AN000; | ||
| 25 | :def 20 CR,LF ;AN000; | ||
| 26 | :use 21 EXTEND5 ;"Access Denied" ;AN000; | ||
| 27 | :use 22 EXTEND37 ;"Code page mismatch" ;AN000; | ||
| 28 | :DEF 23 "Files compare ok",CR,LF ;AN000; | ||
| 29 | :end ;AN000; | ||
| 30 | \ No newline at end of file | ||