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
|
PACKET notice DEFINES notice material,
notice heading,
notice operation,
notice result,
notice frequency,
notice runtime,
output mem :
(***************************************************************************)
(* *)
(* Autor: A. Steinmann Copyright (C): HRZ - Unibi *)
(* *)
(***************************************************************************)
FILE VAR mem ;
PROC notice result (TEXT CONST operation, REAL CONST runtime) :
TEXT VAR layout :: "" ;
layout CAT (operation + (40 - LENGTH operation) * " " + text (runtime, 10, 5) + " msec") ;
putline (mem, layout)
END PROC notice result ;
PROC notice material (TEXT CONST name) :
TEXT VAR layout :: "" ;
layout CAT (" " + name) ;
line (mem, 4) ;
putline (mem, layout) ;
layout := " " + LENGTH name * "=" ;
putline (mem, layout) ;
line (mem, 3)
END PROC notice material ;
PROC notice heading (TEXT CONST name) :
TEXT VAR layout :: "" ;
layout CAT (" " + name) ;
line (mem,2) ;
putline (mem, layout) ;
line (mem, 1) ;
display (""6""+code(21)+code(0)) ;
display (""5""13"") ;
display (""15""+" "+name+" "+""14"")
END PROC notice heading ;
PROC notice frequency (INT CONST frequency 1, frequency 2) :
line (mem, 1) ;
put (mem, "Wiederholungsfaktor für schnelle Operationen : "+text (frequency 1)) ;
line (mem, 1) ;
put (mem, "Wiederholungsfaktor für langsame Operationen : "+text (frequency 2)) ;
line (mem, 1)
END PROC notice frequency ;
PROC notice operation (TEXT CONST operation) :
display(""6""+code(22)+code(0)) ;
display (""5""13"") ;
display (""15""+" "+ operation +" "+""14"") ;
END PROC notice operation ;
PROC notice runtime (REAL CONST runtime) :
line (mem, 3) ;
putline (mem, "Gesamtlaufzeit : " + text (runtime)) ;
END PROC notice runtime ;
PROC output mem :
mem := sequential file (output, "memory")
END PROC output mem ;
END PACKET notice ;
|
