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/COMPP.ASM | 130 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 130 insertions(+)
 create mode 100644 v4.0/src/CMD/COMP/COMPP.ASM

(limited to 'v4.0/src/CMD/COMP/COMPP.ASM')

diff --git a/v4.0/src/CMD/COMP/COMPP.ASM b/v4.0/src/CMD/COMP/COMPP.ASM
new file mode 100644
index 0000000..9f2bbba
--- /dev/null
+++ b/v4.0/src/CMD/COMP/COMPP.ASM
@@ -0,0 +1,130 @@
+	PAGE	,132			;
+	TITLE	COMPP.SAL - COMP SYSTEM COMMAND LINE PARSER
+;****************** START OF SPECIFICATIONS *****************************
+; MODULE NAME: COMPP.SAL
+;
+; DESCRIPTIVE NAME: Include the DOS system PARSER in the SEGMENT
+;		    configuration expected by the modules of COMP.
+;
+;FUNCTION: The common code of the DOS command line PARSER is optimized by
+;	   the setting of certain switches that cause the conditional
+;	   assembly of only the required portions of the common PARSER.
+;	   The segment registers are ASSUMED according to the type .COM.
+;	   The Common PARSER is then INCLUDEd.
+;
+; ENTRY POINT: SYSPARSE, near
+;
+; INPUT:
+;	ES - has seg id of the SEGMENT
+;	     that contains the input control blocks,
+;	     defined below.
+;
+;	DI - offset into ES of the PARMS INPUT BLOCK
+;
+;	DS - has seg id of the SEGMENT
+;	     that contains the DOS input COMMAND
+;	     string, which is originally presented at 81h
+;	     in the PSP.
+;
+;	SI - offset into DS of the text of the DOS input COMMAND string
+;	     as originally presented at 81H in the PSP.
+;
+;	DX - zero
+;
+;	CX - ordinal value, intially zero, updated on each subsequent call
+;	     to the value returned in CX on the previous call.
+;
+;	CS - points to the segment containing the
+;	     INCLUDE PARSE.ASM statement
+;
+;	DS - also points to the segment containing the INCLUDE
+;	     PARSE.ASM statement.
+;
+; EXIT-NORMAL:	Output registers:
+;	 AX - return code:
+;	    RC_No_Error     equ     0	 ; No error
+;	    RC_EOL	    equ     -1	 ; End of command line
+;
+;	 DX - Offset into ES of the selected RESULT BLOCK.
+;	 BL - terminated delimiter code
+;	 CX - new operand ordinal
+;	 SI - set past scanned operand
+;
+; EXIT-ERROR: Output registers:
+;	 AX - return code:
+;	    RC_Too_Many     equ     1	 ; Too many operands
+;	    RC_Op_Missing   equ     2	 ; Required operand missing
+;	    RC_Not_In_SW    equ     3	 ; Not in switch list provided
+;	    RC_Not_In_Key   equ     4	 ; Not in keyword list provided
+;	    RC_Out_Of_Range equ     6	 ; Out of range specified
+;	    RC_Not_In_Val   equ     7	 ; Not in value list provided
+;	    RC_Not_In_Str   equ     8	 ; Not in string list provided
+;	    RC_Syntax	    equ     9	 ; Syntax error
+;
+; INTERNAL REFERENCES:
+;    ROUTINES: SYSPARSE:near (INCLUDEd in PARSE.ASM)
+;
+;    DATA AREAS: none
+;
+; EXTERNAL REFERENCES:
+;    ROUTINES: none
+;
+;    DATA AREAS: control blocks pointed to by input registers.
+;
+; NOTES:
+;	 This module should be processed with the SALUT preprocessor
+;	 with the re-alignment not requested, as:
+;
+;		SALUT COMPP,NUL,;
+;
+;	 To assemble these modules, the alphabetical or sequential
+;	 ordering of segments may be used.
+;
+;	 For LINK instructions, refer to the PROLOG of the main module,
+;	 COMP1.ASM.
+;
+; REVISION HISTORY: A000 Version 4.00: add PARSER, System Message Handler,
+;		  Add compare of code page extended attribute, if present.
+;
+; COPYRIGHT: "The DOS COMP Utility"
+;	     "Version 4.0  (C)Copyright 1988 Microsoft"
+;	     "Licensed Material - Property of Microsoft"
+;
+;PROGRAM AUTHOR: DOS 4.0  Edwin M. K., Bill L.
+;
+;****************** END OF SPECIFICATIONS *****************************
+	IF1				;AN000;
+	    %OUT    COMPONENT=COMP, MODULE=COMPP.SAL... ;AN000;
+	ENDIF				;AN000;
+
+CSEG	SEGMENT PARA PUBLIC  'CODE'	;AN000;
+	ASSUME	CS:CSEG,DS:CSEG,ES:CSEG,SS:CSEG ;AN000;
+
+	PUBLIC	SYSPARSE		;SUBROUTINE ENTRY POINT 		 ;AN000;
+
+FARSW	EQU	0			;CALL THE PARSER BY NEAR CALL		 ;AN000;
+DATESW	EQU	0			;SUPPRESS DATE CHECKING 		 ;AN000;
+TIMESW	EQU	0			;SUPPRESS TIME CHECKING 		 ;AN000;
+FILESW	EQU	1			;DO CHECK FILE SPECIFICATION		 ;AN000;
+CAPSW	EQU	1			;DO USE FILE TABLE CAPS 		 ;AN000;
+CMPXSW	EQU	0			;SUPPRESS CHECKING COMPLEX LIST 	 ;AN000;
+DRVSW	EQU	1			;DO SUPPORT DRIVE ONLY FORMAT		 ;AN000;
+QUSSW	EQU	0			;SUPPRESS SUPPORT OF QUOTED STRING FORMT ;AN000;
+NUMSW	EQU	0			;SUPPRESS CHECKING NUMERIC VALUE	 ;AN000;
+KEYSW	EQU	0			;SUPPRESS KEYWORD SUPPORT		 ;AN000;
+SWSW	EQU	1			;DO SUPPORT SWITCHES			 ;AN000;
+VAL1SW	EQU	0			;SUPPRESS SUPPORT OF VALUE DEFINITION 1  ;AN000;
+VAL2SW	EQU	0			;SUPPRESS SUPPORT OF VALUE DEFINITION 2  ;AN000;
+VAL3SW	EQU	0			;SUPPRESS SUPPORT OF VALUE DEFINITION 3  ;AN000;
+INCSW	EQU	0			;DON'T INCLUDE PSDATA.INC
+BASESW	EQU	1			;use DS to index off of for PSDATA
+
+	IF1				;AN000;
+	    %OUT    COMPONENT=COMP, SUBCOMPONENT=PARSE, INCLUDED PARSE.ASM... ;AN000;
+	ENDIF				;AN000;
+
+	INCLUDE PSDATA.INC		;AN000;
+	INCLUDE PARSE.ASM		;AN000;
+CSEG	ENDS				;AN000;
+	END				;AN000;
+
\ No newline at end of file
-- 
cgit v1.2.3