1 files changed, 130 insertions, 0 deletions

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