;: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 ;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,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,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,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,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,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,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,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,MAX_0,MIN_1> ;AN000; SUBLIST_19B SUBLIST <,,FILL_OFF,FILL_SEG,PC_ID_2,SF_BITS,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,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,MAX_0,MIN_1> ;AN000; PUBLIC MSGNUM_PPARSE,SUBLIST_24 ;AN000; ; ;AN000; ;end of COMPMS.INC ;AN000;