|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3840 (0xf00)
Types: TextFile
Names: »testopenlst«
└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
└─⟦72244f0ef⟧
└─⟦this⟧ »testopenlst«
\f
testopenlst 80.12.01. 15.10. page 1
10 1 PREFIX testopen;
20 2 PROCEDURE testopen (
30 3 VAR z: zone;
40 4 modulename: alfa;
50 5 ps: ^semaphore);
60 6
70 7 TYPE
80 8 opbuftype= RECORD
90 9 ! first,
100 10 ! last,
110 11 ! next: integer;
120 12 ! name: alfa;
130 13 ! data: ARRAY (1..80) OF char;
140 14 END (* opbuftype *);
150 15
160 16 VAR
170 17 opref: reference;
180 18 opbuf: opbuftype;
190 19 i: integer;
200 20
\f
testopenlst 80.12.01. 15.10. page 2
1010 21 BEGIN
1020 22 1 ! z.opsem:= ps;
1030 23 2 !
1040 24 3 ! WHILE openpool(z.testoutpool) DO
1050 25 4 ! BEGIN
1060 26 5 ! ! alloc (opref, z.testoutpool, z.testoutsem);
1070 27 6 ! ! opref^.u1:= 2;
1080 28 7 ! !
1090 29 8 ! ! LOCK opref AS opbuf: opbuftype DO
1100 30 9 ! ! WITH opbuf DO
1110 31 10 ! ! BEGIN
1120 32 11 ! ! ! first:= 6+alfalength;
1130 33 12 ! ! ! next:= 1;
1140 34 13 ! ! !
1150 35 14 ! ! ! name:= modulename;
1160 36 15 ! ! END (* with opbuf do *);
1170 37 16 ! ! return(opref);
1180 38 17 ! END; (* while openpool *)
1190 39 18 END (* testopen *);
1200 40 .
\f
testopenlst 80.12.01. 15.10. page 3
1 13* 33
2 27
6 32
80 13*
alfa 4* 12*
alfalength 32
alloc 26
as 29:
char 13*
data 13*
first 9* 32=
i 19*
integer 11* 19*
last 10*
lock 29:
modulename 4* 35
name 12* 35=
next 11* 33=
opbuf 18* 29: 30
opbuftype 8* 18* 29
openpool 24
opref 17* 26 27 29: 37
opsem 22=
prefix 1*
ps 5* 22
reference 17*
return 37
semaphore 5*
testopen 1* 2*
testoutpool 24 26
testoutsem 26
u1 27=
z 3* 22 24 26 26
zone 3*
\f
testopenlst 80.12.01. 15.10. page 4
ARRAY 1
BEGIN 3
DO 3
END 4
OF 1
PROCEDURE 1
RECORD 1
TYPE 1
VAR 2
WHILE 1
WITH 1
pascal testopen
80.12.01. 15.10. pascal80 version 1980.11.28
file does not exist: alarmenv9
occured in 1040 = line 148 of readcall 413416 1754 rel of segm 22 of program
called from 2469 = line 15 of readline 413344 148 rel of segm 50 of program
called from 2508 = line 7 of inchar 413278 70 rel of segm 51 of program
called from 2713 = line 6 of lexical 413202 32 rel of segm 59 of program
called from 3193 = line 6 of parse 412964 46 rel of segm 71 of program
called from 3204 = line 5 of parser 403916 74 rel of segm 72 of program
called from 3211 = line 5 of platonpass1 380164 76 rel of segm 73 of program
blocksread = 54
▶EOF◀