summaryrefslogtreecommitdiff
path: root/system/std.zusatz/1.7.3/src/EMU16.ELA
blob: a8e1292e49d78b0e49bfe74f3d61f7a0f06e76fb (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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
PACKET emulator 16 DEFINES                     (* Autor:  J.Liedtke *)
                                               (* Stand:  11.10.83  *)
  killer ,                                     (* F. Klapper, 26.03.84 *) 
  command handler ,
  set command ,
  to archive, 
  from archive, 
  load archive, 
  save archive, 
  list archive, 
  release archive: 
 
PROC list archive: 
  list (archive) 
 
END PROC list archive; 
 
PROC release archive: 
  release (archive) 
 
END PROC release archive; 
 
PROC to archive: 
  save (last param, archive) 
 
END PROC to archive; 
 
PROC to archive (TEXT CONST t): 
  save (t, archive) 
 
END PROC to archive; 
 
PROC from archive (TEXT CONST t): 
  fetch (t, archive) 
 
END PROC from archive; 
 
PROC load archive: 
  fetch all (archive) 
 
END PROC load archive; 
 
PROC save to archive (THESAURUS CONST thes): 
  disable stop; 
  all to archive (thes); 
  IF is error 
  THEN put error; 
       line; 
       clear error; 
       IF yes ("naechste Archivfloppy eingelegt") 
       THEN save to archive (remainder) 
       FI 
   FI; 
   enable stop 
 
END PROC save to archive; 
 
PROC all to archive (THESAURUS CONST thes): 
  enable stop; 
  save (thes, archive) 
 
END PROC all to archive; 
 
PROC save archive: 
  save to archive (ALL myself) 
 
END PROC save archive; 
 
PROC save archive (TEXT CONST liste): 
  save to archive (ALL liste) 
 
END PROC save archive; 
 
PROC killer :
  forget (ALL myself)

ENDPROC killer ;

TEXT VAR command line;
INT VAR permitted type := 0 ;

PROC set command (TEXT CONST command text, INT CONST type) :

  command line := command text;
  permitted type := type

ENDPROC set command ;

PROC command handler (TEXT CONST command list, 
                      INT VAR command index , number of params ,
                      TEXT VAR param 1, param 2) :

  analyze command (command list, command line, permitted type, command index,
                   number of params, param 1, param 2) 

ENDPROC command handler ;
 
PROC command handler (TEXT CONST command list, 
                      INT VAR command index , number of params ,
                      TEXT VAR param 1, param 2,
                      TEXT CONST command text) :
 
  get command (command text, command line) ;
  analyze command (command list, command line, 0,
                   command index, number of params, param 1, param 2) 

ENDPROC command handler ;

ENDPACKET emulator 16 ;