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

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

diff --git a/v4.0/src/CMD/COMMAND/IPARSE.ASM b/v4.0/src/CMD/COMMAND/IPARSE.ASM
new file mode 100644
index 0000000..5205fe9
--- /dev/null
+++ b/v4.0/src/CMD/COMMAND/IPARSE.ASM
@@ -0,0 +1,38 @@
+ page 80,132
+;	SCCSID = @(#)iparse.asm 4.1 87/04/28
+;	SCCSID = @(#)iparse.asm 4.1 87/04/28
+TITLE	COMMAND interface to SYSPARSE
+
+.xlist
+.xcref
+	INCLUDE comseg.asm		;AN000;
+.list
+.cref
+
+
+INIT		SEGMENT PUBLIC PARA	;AN000;
+
+ASSUME	CS:RESGROUP,DS:RESGROUP,ES:NOTHING,SS:NOTHING	;AN000;
+
+
+;AD054; public	SYSPARSE		;AN000;
+
+	DateSW	equ	0		;AN000; do not Check date format
+	TimeSW	equ	0		;AN000; do not Check time format
+	CmpxSW	equ	0		;AN000; do not check complex list
+	KeySW	equ	0		;AN025; do not support keywords
+	Val2SW	equ	0		;AN025; do not Support value definition 2
+	Val3SW	equ	0		;AN000; do not Support value definition 3
+	QusSW	equ	0		;AN025; do not include quoted string
+	DrvSW	equ	0		;AN025; do not include drive only
+
+.xlist
+.xcref
+;AD054; INCLUDE parse.asm		;AN000;
+.list
+.cref
+
+
+INIT	    ends			;AN000;
+	    end 			;AN000;
+
\ No newline at end of file
-- 
cgit v1.2.3