1 files changed, 76 insertions, 0 deletions

diff --git a/v4.0/src/CMD/COMMAND/TPARSE.ASM b/v4.0/src/CMD/COMMAND/TPARSE.ASM
new file mode 100644
index 0000000..9268017
--- /dev/null
+++ b/v4.0/src/CMD/COMMAND/TPARSE.ASM
@@ -0,0 +1,76 @@
+ page 80,132
+;       SCCSID = @(#)tparse.asm 4.1 87/04/28
+;       SCCSID = @(#)tparse.asm 4.1 87/04/28
+TITLE   COMMAND interface to SYSPARSE
+
+.xlist
+.xcref
+        INCLUDE comseg.asm              ;AN000;
+.list
+.cref
+
+TRANSPACE       SEGMENT PUBLIC BYTE     ;AN000;
+
+        CmpxSW  equ     0               ;AN000; do not check complex list
+        KeySW   equ     0               ;AN000; do not support keywords
+        Val2SW  equ     0               ;AN000; do not Support value definition 2
+        IncSW   equ     0               ;AN000; do not include psdata.inc
+        QusSW   equ     0               ;AN025; do not include quoted string
+        LFEOLSW equ     0               ;AN044; do not use 0ah as line terminator
+
+.xlist
+.xcref
+
+include psdata.inc                      ;AN000;
+
+.list
+.cref
+
+TRANSPACE       ENDS                    ;AN000;
+
+TRANCODE        SEGMENT PUBLIC BYTE     ;AN000;
+
+ASSUME  CS:TRANGROUP,DS:NOTHING,ES:NOTHING,SS:NOTHING    ;AN054;
+
+; ****************************************************************
+; *
+; * ROUTINE:     CMD_PARSE
+; *
+; * FUNCTION:    Interface for transient COMMAND to invoke
+; *              SYSPARSE.
+; *
+; * INPUT:       inputs to SYSPARSE
+; *
+; * OUTPUT:      outputs from SYSPARSE
+; *
+; ****************************************************************
+
+        public  Cmd_parse               ;AN000;
+
+.xlist
+.xcref
+        INCLUDE parse.asm               ;AN000;
+.list
+.cref
+
+Cmd_parse       Proc  near              ;AN000;
+
+        call    sysparse                ;AN000;
+
+        ret                             ;AN000;
+
+Cmd_parse       endp                    ;AN000;
+
+        public  Append_parse            ;AN010;
+
+Append_parse    Proc  Far               ;AN010;
+
+        call    sysparse                ;AN010;
+
+        ret                             ;AN010;
+
+Append_parse    endp                    ;AN010;
+
+trancode    ends                        ;AN000;
+            end                         ;AN000;
+
\ No newline at end of file