From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 11 Feb 2019 11:49:19 +0100
Subject: Add source files from Michael

---
 system/dos/1986/src/open | 51 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 system/dos/1986/src/open

(limited to 'system/dos/1986/src/open')

diff --git a/system/dos/1986/src/open b/system/dos/1986/src/open
new file mode 100644
index 0000000..92e81e9
--- /dev/null
+++ b/system/dos/1986/src/open
@@ -0,0 +1,51 @@
+PACKET open DEFINES                             (* Copyright (C) 1986 *)
+                                                (* Frank Klapper      *)
+  open  action,                                 (* 20.03.86           *)
+  close action,
+  action opened,
+  action closed,
+  init check rerun,
+  check rerun:
+
+BOOL VAR open;
+INT VAR old session;
+
+INITFLAG VAR packet := FALSE;
+
+PROC open action:
+  open := TRUE
+
+END PROC open action;
+
+PROC close action:
+  open := FALSE
+
+END PROC close action;
+
+BOOL PROC action opened:
+  IF NOT initialized (packet)
+    THEN close action
+  FI;
+  open
+
+END PROC action opened;
+
+BOOL PROC action closed:
+  NOT action opened
+
+END PROC action closed;
+
+PROC init check rerun:
+  old session := session
+
+END PROC init check rerun;
+
+PROC check rerun:
+  IF session <> old session
+    THEN close action;
+         error stop ("Diskettenzugriff im RERUN")
+  FI.
+
+END PROC check rerun;
+
+END PACKET open;
-- 
cgit v1.2.3