;: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;
