blob: 92e81e9364fee5363c6e27beea73a213c36d8fcb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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;
|
