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

(limited to 'v4.0/src/CMD/COMMAND/TPARSE.ASM')

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
-- 
cgit v1.2.3