MZ is back!HEADmain

1 files changed, 39 insertions, 0 deletions

diff --git a/v4.0/src/SELECT/MPARSE.ASM b/v4.0/src/SELECT/MPARSE.ASM
new file mode 100644
index 0000000..141df62
--- /dev/null
+++ b/v4.0/src/SELECT/MPARSE.ASM
@@ -0,0 +1,39 @@
+.ALPHA                                  ;AN000;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;
+;       DUMMY DATA SEGMENT
+;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+DATA    SEGMENT BYTE PUBLIC 'DATA'      ;AN000;
+DATA           ENDS                     ;AN000;DATA
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;
+;       PARSER INFORMATION
+;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+.XLIST                                  ;AN000;
+FARSW   EQU     1                       ;AN000;
+DATESW  EQU     0                       ;AN000;
+TIMESW  EQU     0                       ;AN000;
+FILESW  EQU     0                       ;AN000;
+CAPSW   EQU     0                       ;AN000;
+CMPXSW  EQU     0                       ;AN000;
+DRVSW   EQU     0                       ;AN000;
+QUSSW   EQU     0                       ;AN000;
+KEYSW   EQU     1                       ;AN000;
+SWSW    EQU     0                       ;AN000;
+VAL1SW  EQU     1                       ;AN000;
+VAL2SW  EQU     1                       ;AN000;
+VAL3SW  EQU     1                       ;AN000;
+.LIST                                   ;AN000;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+PARSER  SEGMENT PARA PUBLIC 'PARSER'    ;AN000;
+        ASSUME  CS:PARSER,DS:DATA,ES:DATA;AN000;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+        PUBLIC  SYSPARSE                ;AN000;
+PAGE                                    ;AN000;
+        INCLUDE PARSE.ASM               ;AN000;
+
+PARSER  ENDS                            ;AN000;
+        END                             ;AN000;
+
\ No newline at end of file