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

   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;
  45 SUBLIST_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;
  49 MSGNUM_MEM  MSG_DESC <2>                                                        ;AN000;
  50             PUBLIC MSGNUM_MEM                                                   ;AN000;
  51 ;                                                                               ;AN000;
  52 ;           "invalid parameter"                                                 ;AN000;
  53 MSGNUM_PARA MSG_DESC <3>                                                        ;AN000;
  54             PUBLIC MSGNUM_PARA                                                  ;AN000;
  55 ;                                                                               ;AN000;
  56 ;           "10 Mismatches - ending compare",CR,LF                              ;AN000;
  57 MSGNUM_TENMSG MSG_DESC <4>                                                      ;AN000;
  58             PUBLIC MSGNUM_TENMSG                                                ;AN000;
  59 ;                                                                               ;AN000;
  60 ;           "Invalid drive specification",CR,LF                                 ;AN000;
  61 MSGNUM_BADDRV MSG_DESC <5,STDOUT>                                               ;AN000;
  62             PUBLIC MSGNUM_BADDRV                                                ;AN000;
  63 ;                                                                               ;AN000;
  64 ;           "Compare error at OFFSET %1",CR,LF                                  ;AN000;
  65 MSGNUM_BAD  MSG_DESC <6,,SUBLIST_6,ONE_SUBS>                                    ;AN000;
  66 SUBLIST_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;
  71 MSGNUM_ADR  MSG_DESC <7,,SUBLIST_7,ONE_SUBS>                                    ;AN000;
  72 SUBLIST_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;
  76 MSGNUM_BDR  MSG_DESC <8,,SUBLIST_8,ONE_SUBS>                                    ;AN000;
  77 SUBLIST_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;
  81 MSGNUM_EOR  MSG_DESC <9>                                                        ;AN000;
  82             PUBLIC MSGNUM_EOR                                                   ;AN000;
  83 ;                                                                               ;AN000;
  84 ;           "Files compare ok",CR,LF                                            ;AN000;
  85 MSGNUM_DONE MSG_DESC <10>                                                       ;AN000;
  86             PUBLIC MSGNUM_DONE                                                  ;AN000;
  87 ;                                                                               ;AN000;
  88 ;           "%1 - File not found",CR,LF                                         ;AN000;
  89 MSGNUM_FNF  MSG_DESC <11,,SUBLIST_11,ONE_SUBS>                                  ;AN000;
  90 SUBLIST_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;
  94 MSGNUM_BAD_PATH MSG_DESC <12,,SUBLIST_12,ONE_SUBS>                              ;AN000;
  95 SUBLIST_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;
  99 MSGNUM_SHARE MSG_DESC <13,,SUBLIST_13,ONE_SUBS>                                 ;AN000;
 100 SUBLIST_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;
 104 MSGNUM_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;
 108 MSGNUM_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;
 114 MSGNUM_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;
 120 MSGNUM_BADSIZ MSG_DESC <17>                                                     ;AN000;
 121             PUBLIC MSGNUM_BADSIZ                                                ;AN000;
 122 ;                                                                               ;AN000;
 123 ;           "Compare more files (Y/N) ?",CR,LF                                  ;AN000;
 124 MSGNUM_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;
 128 MSGNUM_AND_MSG MSG_DESC <19,,SUBLIST_19A,TWO_SUBS>                              ;AN000;
 129 SUBLIST_19A SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_1,SF_BITS<SF_LEFT,,SF_ASCIIZ,SF_CHAR>,MAX_0,MIN_1> ;AN000;
 130 SUBLIST_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;
 134 MSGNUM_CRLF MSG_DESC <20>                                                       ;AN000;
 135             PUBLIC MSGNUM_CRLF                                                  ;AN000;
 136 ;                                                                               ;AN000;
 137 ;           "%1 - Access Denied",CR,LF                                          ;AN000;
 138 MSGNUM_ACCESSDENIED MSG_DESC <21,,SUBLIST_21,ONE_SUBS>                          ;AN000;
 139 SUBLIST_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;
 143 MSGNUM_CP_MISMATCH MSG_DESC <22>                                                ;AN000;
 144             PUBLIC MSGNUM_CP_MISMATCH                                           ;AN000;
 145 ;                                                                               ;AN000;
 146 ;           "Files compare ok"                                                  ;AN000;
 147 MSGNUM_OK   MSG_DESC <23>                                                       ;AN000;
 148             PUBLIC MSGNUM_OK                                                    ;AN000;
 149 ;
 150 ;
 151 MSGNUM_PPARSE MSG_DESC <,STDERR,SUBLIST_24,ONE_SUBS,(CLASS_2 SHL 8)>            ;AN000;
 152 SUBLIST_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;