From 2d04cacc5322951f187bb17e017c12920ac8ebe2 Mon Sep 17 00:00:00 2001 From: Mark Zbikowski Date: Thu, 25 Apr 2024 21:24:10 +0100 Subject: MZ is back! --- v4.0/src/CMD/COMP/COMPMS.INC | 156 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 156 insertions(+) create mode 100644 v4.0/src/CMD/COMP/COMPMS.INC (limited to 'v4.0/src/CMD/COMP/COMPMS.INC') 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 @@ +;: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; -- cgit v1.2.3