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

(limited to 'v4.0/src/CMD/DISKCOMP/DCOMPP.ASM')

diff --git a/v4.0/src/CMD/DISKCOMP/DCOMPP.ASM b/v4.0/src/CMD/DISKCOMP/DCOMPP.ASM
new file mode 100644
index 0000000..369434b
--- /dev/null
+++ b/v4.0/src/CMD/DISKCOMP/DCOMPP.ASM
@@ -0,0 +1,123 @@
+	PAGE	90,132			;AN000;A2
+	TITLE	DCOMPP.SAL - DISKCOMP SYSTEM COMMAND LINE PARSER
+;****************** START OF SPECIFICATIONS *****************************
+; MODULE NAME: DCOMPP.SAL
+;
+; DESCRIPTIVE NAME: Include the DOS system PARSER in the SEGMENT
+;		    configuration expected by the modules of DISKCOMP.
+;
+;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 DCOMPP,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,
+;	 DISKCOMP.SAL.
+;
+;****************** END OF SPECIFICATIONS *****************************
+	IF1				;AN000;
+	    %OUT    COMPONENT=DISKCOMP, MODULE=DCOMPP.SAL... ;AN000;
+	ENDIF				;AN000;
+; =  =	=  =  =  =  =  =  =  =	=  =
+	INCLUDE PATHMAC.INC		;AN013;
+CSEG	SEGMENT PARA PUBLIC 'CODE'	;AN000;
+	ASSUME	CS:CSEG,DS:CSEG,ES:CSEG,SS:CSEG ;AN000;
+
+	PUBLIC	SYSPARSE		;AN000;SUBROUTINE ENTRY POINT
+
+INCSW	EQU	0			;AC013;DO NOT INCLUDE PSDATA.INC
+FARSW	EQU	0			;AN000;CALL THE PARSER BY NEAR CALL
+DATESW	EQU	0			;AN000;SUPPRESS DATE CHECKING
+TIMESW	EQU	0			;AN000;SUPPRESS TIME CHECKING
+FILESW	EQU	0			;AN000;SUPPRESS CHECK FILE SPECIFICATION
+CAPSW	EQU	0			;AN000;SUPPRESS FILE TABLE CAPS
+CMPXSW	EQU	0			;AN000;SUPPRESS CHECKING COMPLEX LIST
+DRVSW	EQU	1			;AN000;DO SUPPORT DRIVE ONLY FORMAT
+QUSSW	EQU	0			;AN000;SUPPRESS SUPPORT OF QUOTED STRING FORMAT
+NUMSW	EQU	0			;AN000;SUPPRESS CHECKING NUMERIC VALUE
+KEYSW	EQU	0			;AN000;SUPPRESS KEYWORD SUPPORT
+SWSW	EQU	1			;AN000;DO SUPPORT SWITCHES
+VAL1SW	EQU	0			;AN000;SUPPRESS SUPPORT OF VALUE DEFINITION 1
+VAL2SW	EQU	0			;AN000;SUPPRESS SUPPORT OF VALUE DEFINITION 2
+VAL3SW	EQU	0			;AN000;SUPPRESS SUPPORT OF VALUE DEFINITION 3
+BASESW	EQU	1			;AN012;SPECIFY, PSDATA POINTED TO BY "DS"
+	INCLUDE PSDATA.INC		;AN013;PARSER DATA AREA
+	PATHLABL DCOMPP 		;AN013;
+;.XLIST 				 ;AN000;
+;.XCREF 				 ;AN000;
+	INCLUDE PARSE.ASM		;AN000;
+.LIST					;AN000;
+.CREF					;AN000;
+	PATHLABL DCOMPP 		;AN013;
+CSEG	ENDS				;AN000;
+	END				;AN000;
+
\ No newline at end of file
-- 
cgit v1.2.3