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/MODE/COMMON.STC | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 v4.0/src/CMD/MODE/COMMON.STC

(limited to 'v4.0/src/CMD/MODE/COMMON.STC')

diff --git a/v4.0/src/CMD/MODE/COMMON.STC b/v4.0/src/CMD/MODE/COMMON.STC
new file mode 100644
index 0000000..1212c55
--- /dev/null
+++ b/v4.0/src/CMD/MODE/COMMON.STC
@@ -0,0 +1,36 @@
+;common structures
+
+bogus	 EQU   88H	;totally invalid value
+
+codepage_parms STRUC
+   cp_device	  DW	?
+   des_pack_ptr   DW	?
+   font_filespec  DW	?
+   request_typ	  DW	?
+codepage_parms ENDS
+
+
+parm_list_entry   STRUC 		  ;used by parse_parameters and invoke
+
+parm_type	     DB       bogus
+item_tag	     DB       0FFH
+value1		     DW       bogus	  ;used only for filespecs and code page numbers
+value2		     DW       bogus	  ;used only for filespecs and code page numbers
+keyword_switch_ptr   DW    0
+
+parm_list_entry   ENDS
+
+
+sublist_def  STRUC	   ;used by initialize_sublists
+
+	     db  ?  ;Sublist Length, fixed
+	     db  ?  ;Reserved, not used yet		      ;AN000;
+sublist_off  dw  ?  ;offset
+sublist_seg  dw  ?  ;segment part of pointer to piece of message
+	     db  ?  ;ID, special end of message format ;AN000;
+	     db  ?  ;flags
+	     db  ?
+	     db  ?
+	     db  ?
+
+sublist_def  ENDS
-- 
cgit v1.2.3