summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/COMP/COMPMS.INC
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/COMP/COMPMS.INC')
-rw-r--r--v4.0/src/CMD/COMP/COMPMS.INC156
1 files changed, 156 insertions, 0 deletions
diff --git a/v4.0/src/CMD/COMP/COMPMS.INC b/v4.0/src/CMD/COMP/COMPMS.INC
new file mode 100644
index 0000000..3ac0844
--- /dev/null
+++ b/v4.0/src/CMD/COMP/COMPMS.INC
@@ -0,0 +1,156 @@
1;:util COMP ;utility name ;AN000;
2;:class 1 ;DOS extended errors: ;AN000;
3;:class 2 ;parse errors: ;AN000;
4;; ;AN000;
5;:class A ;system messages ;AN000;
6; ;AN000;
7;:use 1 COMMON1 ;"Incorrect DOS version" ;AN000;
8;:use 2 EXTEND8 ;"Insufficient memory" ;AN000;
9;:use 3 PARSE10 ;"Invalid parameter" ;AN000;
10;:def 4 "10 Mismatches - ending compare",CR,LF ;AN000;
11;:use 5 EXTEND15 ;"Invalid drive specification" ;AN000;
12;:def 6 "Compare error at OFFSET %1",CR,LF ;AN000;
13;:def 7 "File 1 = %1",CR,LF ;AN000;
14;:def 8 "File 2 = %1",CR,LF ;AN000;
15;:def 9 "Eof mark not found",CR,LF ;AN000;
16;:def 10 "Files compare ok",CR,LF ;AN000;
17;:use 11 EXTEND2 ;"File not found" ;AN000;
18;:use 12 COMMON25 ;"Invalid path" ;AN000;
19;:use 13 EXTEND32 ;"Sharing violation" ;AN000;
20;:use 14 EXTEND4 ;"Too many open files" ;AN000;
21;:def 15 CR,LF,CR,LF,"Enter primary file name",CR,LF ;AN000;
22;:def 16 CR,LF,CR,LF,"Enter 2nd file name or drive id",CR,LF ;AN000;
23;:def 17 "Files are different sizes",CR,LF ;AN000;
24;:def 18 "Compare more files? (Y/N)",CR,LF ;AN000;
25;:def 19 "%1 and %2",CR,LF ;AN000;
26;:def 20 CR,LF ;AN000;
27;:use 21 EXTEND5 ;"Access Denied" ;AN000;
28;:use 22 EXTEND37 ;"Code page mismatch" ;AN000;
29;:DEF 23 "Files compare ok",CR,LF ;AN000;
30;:end ;AN000;
31; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ;AN000;
32 IF1 ;AN000;
33 %OUT COMPONENT=COMP, MODULE=COMPMS.INC... ;AN000;
34 ENDIF ;AN000;
35; $SALUT (0,13,18,22) ;AN000;
36; ;AN000;
37; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ;AN000;
38 HEADER <MESSAGE DESCRIPTORS FOR SPECIFIC MESSAGES> ;AN000;
39; ;AN000;
40; THE NEXT GROUP ARE ADDITIONAL CLASS "A" MESSAGES ;AN000;
41; SPECIFICALLY DEFINED FOR THE COMP UTILITY ;AN000;
42; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ;AN000;
43; ;AN000;
44; THIS IS SUBLIST FOR MSGNUM_EXTERR (A CLASS 1 MESSAGE) ;AN000;
45SUBLIST_EXTERR SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
46 PUBLIC SUBLIST_EXTERR ;AN000;
47; ;AN000;
48; "Insufficient memory" ;AN000;
49MSGNUM_MEM MSG_DESC <2> ;AN000;
50 PUBLIC MSGNUM_MEM ;AN000;
51; ;AN000;
52; "invalid parameter" ;AN000;
53MSGNUM_PARA MSG_DESC <3> ;AN000;
54 PUBLIC MSGNUM_PARA ;AN000;
55; ;AN000;
56; "10 Mismatches - ending compare",CR,LF ;AN000;
57MSGNUM_TENMSG MSG_DESC <4> ;AN000;
58 PUBLIC MSGNUM_TENMSG ;AN000;
59; ;AN000;
60; "Invalid drive specification",CR,LF ;AN000;
61MSGNUM_BADDRV MSG_DESC <5,STDOUT> ;AN000;
62 PUBLIC MSGNUM_BADDRV ;AN000;
63; ;AN000;
64; "Compare error at OFFSET %1",CR,LF ;AN000;
65MSGNUM_BAD MSG_DESC <6,,SUBLIST_6,ONE_SUBS> ;AN000;
66SUBLIST_6 SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_LEFT,,SF_DWORD,SF_UN_BH>,MAX_0,MIN_1> ;AN000;
67; NOTE: ERROR NUMBER IS DWORD ;AN000;
68 PUBLIC MSGNUM_BAD,SUBLIST_6 ;AN000;
69; ;AN000;
70; "File 1 = %1",CR,LF ;AN000;
71MSGNUM_ADR MSG_DESC <7,,SUBLIST_7,ONE_SUBS> ;AN000;
72SUBLIST_7 SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_LEFT,,SF_BYTE,SF_UN_BH>,MAX_0,MIN_1> ;AN000;
73 PUBLIC MSGNUM_ADR,SUBLIST_7 ;AN000;
74; ;AN000;
75; "File 2 = %1",CR,LF ;AN000;
76MSGNUM_BDR MSG_DESC <8,,SUBLIST_8,ONE_SUBS> ;AN000;
77SUBLIST_8 SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_LEFT,,SF_BYTE,SF_UN_BH>,MAX_0,MIN_1> ;AN000;
78 PUBLIC MSGNUM_BDR,SUBLIST_8 ;AN000;
79; ;AN000;
80; "Eof mark not found",CR,LF ;AN000;
81MSGNUM_EOR MSG_DESC <9> ;AN000;
82 PUBLIC MSGNUM_EOR ;AN000;
83; ;AN000;
84; "Files compare ok",CR,LF ;AN000;
85MSGNUM_DONE MSG_DESC <10> ;AN000;
86 PUBLIC MSGNUM_DONE ;AN000;
87; ;AN000;
88; "%1 - File not found",CR,LF ;AN000;
89MSGNUM_FNF MSG_DESC <11,,SUBLIST_11,ONE_SUBS> ;AN000;
90SUBLIST_11 SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
91 PUBLIC MSGNUM_FNF,SUBLIST_11 ;AN000;
92; ;AN000;
93; "%1 - Invalid path",CR,LF ;AN000;
94MSGNUM_BAD_PATH MSG_DESC <12,,SUBLIST_12,ONE_SUBS> ;AN000;
95SUBLIST_12 SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
96 PUBLIC MSGNUM_BAD_PATH,SUBLIST_12 ;AN000;
97; ;AN000;
98; "%1 - File sharing conflict",CR,LF ;AN000;
99MSGNUM_SHARE MSG_DESC <13,,SUBLIST_13,ONE_SUBS> ;AN000;
100SUBLIST_13 SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
101 PUBLIC MSGNUM_SHARE,SUBLIST_13 ;AN000;
102; ;AN000;
103; "Too many files open",CR,LF ;AN000;
104MSGNUM_TOO_MANY MSG_DESC <14> ;AN000;
105 PUBLIC MSGNUM_TOO_MANY ;AN000;
106; ;AN000;
107; CR,LF,CR,LF,"Enter primary file name",CR,LF ;AN000;
108MSGNUM_PRINAM MSG_DESC <15,,,,(CLASS_A SHL 8) OR DOS_BUF_KEYB_INP> ;AN000;
109 DW ? ;DEFINE EXTRA WORD FOR PTR TO INPUT BUFFER ;AN000;
110 ;IT WILL BE ACCESSED AS A FIELD OF THE ABOVE STRUCT ;AN000;
111 PUBLIC MSGNUM_PRINAM ;AN000;
112; ;AN000;
113; CR,LF,CR,LF,"Enter 2nd file name or drive id",CR,LF ;AN000;
114MSGNUM_SECNAM MSG_DESC <16,,,,(CLASS_A SHL 8) OR DOS_BUF_KEYB_INP> ;AN000;
115 DW ? ;DEFINE EXTRA WORD FOR PTR TO INPUT BUFFER ;AN000;
116 ;IT WILL BE ACCESSED AS A FIELD OF THE ABOVE STRUCT ;AN000;
117 PUBLIC MSGNUM_SECNAM ;AN000;
118; ;AN000;
119; "Files are different sizes",CR,LF ;AN000;
120MSGNUM_BADSIZ MSG_DESC <17> ;AN000;
121 PUBLIC MSGNUM_BADSIZ ;AN000;
122; ;AN000;
123; "Compare more files (Y/N) ?",CR,LF ;AN000;
124MSGNUM_NOTHER MSG_DESC <18,STDOUT,,,(CLASS_A SHL 8) OR 0C1H> ;AC210;;AD176;
125 PUBLIC MSGNUM_NOTHER ;AN000;
126; ;AN000;
127; "%1 and %2",CR,LF ;AN000;
128MSGNUM_AND_MSG MSG_DESC <19,,SUBLIST_19A,TWO_SUBS> ;AN000;
129SUBLIST_19A SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
130SUBLIST_19B SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_2,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
131 PUBLIC MSGNUM_AND_MSG,SUBLIST_19A,SUBLIST_19B ;AN000;
132; ;AN000;
133; CR,LF ;AN000;
134MSGNUM_CRLF MSG_DESC <20> ;AN000;
135 PUBLIC MSGNUM_CRLF ;AN000;
136; ;AN000;
137; "%1 - Access Denied",CR,LF ;AN000;
138MSGNUM_ACCESSDENIED MSG_DESC <21,,SUBLIST_21,ONE_SUBS> ;AN000;
139SUBLIST_21 SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
140 PUBLIC MSGNUM_ACCESSDENIED,SUBLIST_21 ;AN000;
141; ;AN000;
142; "Code page mismatch" ;AN000;
143MSGNUM_CP_MISMATCH MSG_DESC <22> ;AN000;
144 PUBLIC MSGNUM_CP_MISMATCH ;AN000;
145; ;AN000;
146; "Files compare ok" ;AN000;
147MSGNUM_OK MSG_DESC <23> ;AN000;
148 PUBLIC MSGNUM_OK ;AN000;
149;
150;
151MSGNUM_PPARSE MSG_DESC <,STDERR,SUBLIST_24,ONE_SUBS,(CLASS_2 SHL 8)> ;AN000;
152SUBLIST_24 SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
153 PUBLIC MSGNUM_PPARSE,SUBLIST_24 ;AN000;
154
155; ;AN000;
156;end of COMPMS.INC ;AN000;
HIC SVNT DRACONES