v4.0/src/CMD/COMP/COMPMS.INC


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

;:util COMP                 ;utility name                                       ;AN000;
;:class 1                   ;DOS extended errors:                               ;AN000;
;:class 2                   ;parse errors:                                      ;AN000;
;;                                                                              ;AN000;
;:class A                   ;system messages                                    ;AN000;
;                                                                               ;AN000;
;:use 1 COMMON1             ;"Incorrect DOS version"                            ;AN000;
;:use 2 EXTEND8             ;"Insufficient memory"                              ;AN000;
;:use 3 PARSE10             ;"Invalid parameter"                                ;AN000;
;:def 4 "10 Mismatches - ending compare",CR,LF                                  ;AN000;
;:use 5 EXTEND15            ;"Invalid drive specification"                      ;AN000;
;:def 6 "Compare error at OFFSET %1",CR,LF                                      ;AN000;
;:def 7 "File 1 = %1",CR,LF                                                     ;AN000;
;:def 8 "File 2 = %1",CR,LF                                                     ;AN000;
;:def 9 "Eof mark not found",CR,LF                                              ;AN000;
;:def 10 "Files compare ok",CR,LF                                               ;AN000;
;:use 11 EXTEND2            ;"File not found"                                   ;AN000;
;:use 12 COMMON25           ;"Invalid path"                                     ;AN000;
;:use 13 EXTEND32           ;"Sharing violation"                                ;AN000;
;:use 14 EXTEND4            ;"Too many open files"                              ;AN000;
;:def 15 CR,LF,CR,LF,"Enter primary file name",CR,LF                            ;AN000;
;:def 16 CR,LF,CR,LF,"Enter 2nd file name or drive id",CR,LF                    ;AN000;
;:def 17 "Files are different sizes",CR,LF                                      ;AN000;
;:def 18 "Compare more files? (Y/N)",CR,LF                                      ;AN000;
;:def 19 "%1 and %2",CR,LF                                                      ;AN000;
;:def 20 CR,LF                                                                  ;AN000;
;:use 21 EXTEND5            ;"Access Denied"                                    ;AN000;
;:use 22 EXTEND37           ;"Code page mismatch"                               ;AN000;
;:DEF 23 "Files compare ok",CR,LF                                               ;AN000;
;:end                                                                           ;AN000;
; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =       ;AN000;
            IF1                                                                 ;AN000;
                %OUT    COMPONENT=COMP, MODULE=COMPMS.INC...                    ;AN000;
            ENDIF                                                               ;AN000;
;               $SALUT (0,13,18,22)                                             ;AN000;
;                                                                               ;AN000;
; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =       ;AN000;
            HEADER <MESSAGE DESCRIPTORS FOR SPECIFIC MESSAGES>                  ;AN000;
;                                                                               ;AN000;
;           THE NEXT GROUP ARE ADDITIONAL CLASS "A" MESSAGES                    ;AN000;
;           SPECIFICALLY DEFINED FOR THE COMP UTILITY                           ;AN000;
; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =       ;AN000;
;                                                                               ;AN000;
; THIS IS SUBLIST FOR  MSGNUM_EXTERR (A CLASS 1 MESSAGE)                        ;AN000;
SUBLIST_EXTERR SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
            PUBLIC SUBLIST_EXTERR                                               ;AN000;
;                                                                               ;AN000;
;           "Insufficient memory"                                               ;AN000;
MSGNUM_MEM  MSG_DESC <2>                                                        ;AN000;
            PUBLIC MSGNUM_MEM                                                   ;AN000;
;                                                                               ;AN000;
;           "invalid parameter"                                                 ;AN000;
MSGNUM_PARA MSG_DESC <3>                                                        ;AN000;
            PUBLIC MSGNUM_PARA                                                  ;AN000;
;                                                                               ;AN000;
;           "10 Mismatches - ending compare",CR,LF                              ;AN000;
MSGNUM_TENMSG MSG_DESC <4>                                                      ;AN000;
            PUBLIC MSGNUM_TENMSG                                                ;AN000;
;                                                                               ;AN000;
;           "Invalid drive specification",CR,LF                                 ;AN000;
MSGNUM_BADDRV MSG_DESC <5,STDOUT>                                               ;AN000;
            PUBLIC MSGNUM_BADDRV                                                ;AN000;
;                                                                               ;AN000;
;           "Compare error at OFFSET %1",CR,LF                                  ;AN000;
MSGNUM_BAD  MSG_DESC <6,,SUBLIST_6,ONE_SUBS>                                    ;AN000;
SUBLIST_6   SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_LEFT,,SF_DWORD,SF_UN_BH>,MAX_0,MIN_1> ;AN000;
;           NOTE: ERROR NUMBER IS DWORD                                         ;AN000;
            PUBLIC MSGNUM_BAD,SUBLIST_6                                         ;AN000;
;                                                                               ;AN000;
;           "File 1 = %1",CR,LF                                                 ;AN000;
MSGNUM_ADR  MSG_DESC <7,,SUBLIST_7,ONE_SUBS>                                    ;AN000;
SUBLIST_7   SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_LEFT,,SF_BYTE,SF_UN_BH>,MAX_0,MIN_1> ;AN000;
            PUBLIC MSGNUM_ADR,SUBLIST_7                                         ;AN000;
;                                                                               ;AN000;
;           "File 2 = %1",CR,LF                                                 ;AN000;
MSGNUM_BDR  MSG_DESC <8,,SUBLIST_8,ONE_SUBS>                                    ;AN000;
SUBLIST_8   SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_LEFT,,SF_BYTE,SF_UN_BH>,MAX_0,MIN_1> ;AN000;
            PUBLIC MSGNUM_BDR,SUBLIST_8                                         ;AN000;
;                                                                               ;AN000;
;           "Eof mark not found",CR,LF                                          ;AN000;
MSGNUM_EOR  MSG_DESC <9>                                                        ;AN000;
            PUBLIC MSGNUM_EOR                                                   ;AN000;
;                                                                               ;AN000;
;           "Files compare ok",CR,LF                                            ;AN000;
MSGNUM_DONE MSG_DESC <10>                                                       ;AN000;
            PUBLIC MSGNUM_DONE                                                  ;AN000;
;                                                                               ;AN000;
;           "%1 - File not found",CR,LF                                         ;AN000;
MSGNUM_FNF  MSG_DESC <11,,SUBLIST_11,ONE_SUBS>                                  ;AN000;
SUBLIST_11  SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
            PUBLIC MSGNUM_FNF,SUBLIST_11                                        ;AN000;
;                                                                               ;AN000;
;           "%1 - Invalid path",CR,LF                                           ;AN000;
MSGNUM_BAD_PATH MSG_DESC <12,,SUBLIST_12,ONE_SUBS>                              ;AN000;
SUBLIST_12  SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
            PUBLIC MSGNUM_BAD_PATH,SUBLIST_12                                   ;AN000;
;                                                                               ;AN000;
;           "%1 - File sharing conflict",CR,LF                                  ;AN000;
MSGNUM_SHARE MSG_DESC <13,,SUBLIST_13,ONE_SUBS>                                 ;AN000;
SUBLIST_13  SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
            PUBLIC MSGNUM_SHARE,SUBLIST_13                                      ;AN000;
;                                                                               ;AN000;
;           "Too many files open",CR,LF                                         ;AN000;
MSGNUM_TOO_MANY MSG_DESC <14>                                                   ;AN000;
            PUBLIC MSGNUM_TOO_MANY                                              ;AN000;
;                                                                               ;AN000;
;           CR,LF,CR,LF,"Enter primary file name",CR,LF                         ;AN000;
MSGNUM_PRINAM MSG_DESC <15,,,,(CLASS_A SHL 8) OR DOS_BUF_KEYB_INP>              ;AN000;
            DW     ?             ;DEFINE EXTRA WORD FOR PTR TO INPUT BUFFER     ;AN000;
                                 ;IT WILL BE ACCESSED AS A FIELD OF THE ABOVE STRUCT ;AN000;
            PUBLIC MSGNUM_PRINAM                                                ;AN000;
;                                                                               ;AN000;
;           CR,LF,CR,LF,"Enter 2nd file name or drive id",CR,LF                 ;AN000;
MSGNUM_SECNAM MSG_DESC <16,,,,(CLASS_A SHL 8) OR DOS_BUF_KEYB_INP>              ;AN000;
            DW     ?             ;DEFINE EXTRA WORD FOR PTR TO INPUT BUFFER     ;AN000;
                                 ;IT WILL BE ACCESSED AS A FIELD OF THE ABOVE STRUCT ;AN000;
            PUBLIC MSGNUM_SECNAM                                                ;AN000;
;                                                                               ;AN000;
;           "Files are different sizes",CR,LF                                   ;AN000;
MSGNUM_BADSIZ MSG_DESC <17>                                                     ;AN000;
            PUBLIC MSGNUM_BADSIZ                                                ;AN000;
;                                                                               ;AN000;
;           "Compare more files (Y/N) ?",CR,LF                                  ;AN000;
MSGNUM_NOTHER MSG_DESC <18,STDOUT,,,(CLASS_A SHL 8) OR 0C1H>                    ;AC210;;AD176;
            PUBLIC MSGNUM_NOTHER                                                ;AN000;
;                                                                               ;AN000;
;           "%1 and %2",CR,LF                                                   ;AN000;
MSGNUM_AND_MSG MSG_DESC <19,,SUBLIST_19A,TWO_SUBS>                              ;AN000;
SUBLIST_19A SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
SUBLIST_19B SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_2,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
            PUBLIC MSGNUM_AND_MSG,SUBLIST_19A,SUBLIST_19B                       ;AN000;
;                                                                               ;AN000;
;           CR,LF                                                               ;AN000;
MSGNUM_CRLF MSG_DESC <20>                                                       ;AN000;
            PUBLIC MSGNUM_CRLF                                                  ;AN000;
;                                                                               ;AN000;
;           "%1 - Access Denied",CR,LF                                          ;AN000;
MSGNUM_ACCESSDENIED MSG_DESC <21,,SUBLIST_21,ONE_SUBS>                          ;AN000;
SUBLIST_21  SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
            PUBLIC MSGNUM_ACCESSDENIED,SUBLIST_21                               ;AN000;
;                                                                               ;AN000;
;           "Code page mismatch"                                                ;AN000;
MSGNUM_CP_MISMATCH MSG_DESC <22>                                                ;AN000;
            PUBLIC MSGNUM_CP_MISMATCH                                           ;AN000;
;                                                                               ;AN000;
;           "Files compare ok"                                                  ;AN000;
MSGNUM_OK   MSG_DESC <23>                                                       ;AN000;
            PUBLIC MSGNUM_OK                                                    ;AN000;
;
;
MSGNUM_PPARSE MSG_DESC <,STDERR,SUBLIST_24,ONE_SUBS,(CLASS_2 SHL 8)>            ;AN000;
SUBLIST_24  SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_0,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
            PUBLIC MSGNUM_PPARSE,SUBLIST_24                                      ;AN000;

;                                                                               ;AN000;
;end of COMPMS.INC                                                              ;AN000;