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/BIOS/PSOPTION.INC | 63 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 v4.0/src/BIOS/PSOPTION.INC

(limited to 'v4.0/src/BIOS/PSOPTION.INC')

diff --git a/v4.0/src/BIOS/PSOPTION.INC b/v4.0/src/BIOS/PSOPTION.INC
new file mode 100644
index 0000000..d7f56d4
--- /dev/null
+++ b/v4.0/src/BIOS/PSOPTION.INC
@@ -0,0 +1,63 @@
+;*******************************************************************
+; Parser Options set for IBMBIO SYSCONF module
+;*******************************************************************
+;
+;**** Default assemble swiches definition **************************
+
+IFNDEF	FarSW
+FarSW	equ	0	; Near call expected
+ENDIF
+
+IFNDEF	DateSW
+DateSW	equ	0	; Check date format
+ENDIF
+
+IFNDEF	TimeSW
+TimeSW	equ	0	; Check time format
+ENDIF
+
+IFNDEF	FileSW
+FileSW	equ	1	; Check file specification
+ENDIF
+
+IFNDEF	CAPSW
+CAPSW	equ	0	; Perform CAPS if specified
+ENDIF
+
+IFNDEF	CmpxSW
+CmpxSW	equ	0	; Check complex list
+ENDIF
+
+IFNDEF	NumSW
+NumSW	equ	1	; Check numeric value
+ENDIF
+
+IFNDEF	KeySW
+KeySW	equ	0	; Support keywords
+ENDIF
+
+IFNDEF	SwSW
+SwSW	equ	1	; Support switches
+ENDIF
+
+IFNDEF	Val1SW
+Val1SW	equ	1	; Support value definition 1
+ENDIF
+
+IFNDEF	Val2SW
+Val2SW	equ	0	; Support value definition 2
+ENDIF
+
+IFNDEF	Val3SW
+Val3SW	equ	1	; Support value definition 3
+ENDIF
+
+IFNDEF	DrvSW
+DrvSW	equ	1	; Support drive only format
+ENDIF
+
+IFNDEF	QusSW
+QusSW	equ	0	; Support quoted string format
+ENDIF
+
+
\ No newline at end of file
-- 
cgit v1.2.3