4 writeln; writeln(' ================ zmienne ============================');
\r
6 writeln(' strings ', strings);
\r
7 writeln(' ipradr ', ipradr);
\r
8 writeln(' display(fiz) ', display);
\r
9 writeln(' display2 ', display2);
\r
10 writeln(' temporary ',temporary);
\r
11 writeln(' main ', main);
\r
12 writeln(' lower ', lower);
\r
13 writeln(' upper ', upper);
\r
14 writeln(' free ', free);
\r
15 writeln(' freeitem ', freeitem);
\r
16 writeln(' lastused ', lastused);
\r
17 writeln(' headk ', headk);
\r
18 writeln(' headk2 ', headk2);
\r
20 writeln(' element slownika dla none ', m^[0],' ', m^[1]);
\r
22 writeln('================= opisy typow pierwotnych i listy ===============');
\r
24 for i := ipradr to display-1 do
\r
29 write(' ',i:7,'***');
\r
35 writeln('======================= display ===============');
\r
37 for i := 0 to lastprot do
\r
39 write(' ',display+i:7,display2+i:7, '(',i:5,')',m^[display+i], m^[display2+i]);
\r
43 writeln(' ================= obiekt main ================');
\r
46 for k := main to main+i-1 do
\r
51 write(' ',k:7,'***');
\r
57 writeln('===================== obiekty (lower to latused) ==========');
\r
60 for i := lower to lastused do
\r
65 write(' ',i:7,'***');
\r
71 writeln('======================= tablica H (upper downto lastitem) =====');
\r
74 while i>= lastitem do
\r
76 writeln(' ',i:7,'***',m^[i]:9, m^[i+1]:9);
\r
80 writeln('=================================================================');
\r
84 procedure printkind(kind:protkind);
\r
87 class : writeln(' class');
\r
88 lrecord: writeln(' record');
\r
89 coroutine: writeln(' coroutine');
\r
90 process: writeln(' process);
\r
91 block : writeln(' block');
\r
92 prefblock: writeln(' prefblock');
\r
93 lfunction: writeln(' function');
\r
94 lprocedure: writeln(' procedure');
\r
95 handler: writeln(' handler');
\r
99 procedure printprot;
\r
103 writeln('================ prototypes ============== ');
\r
104 writeln(' lastprot ', lastprot);
\r
105 for i := mainblock to lastprot do
\r
106 with prototype[i]^ do
\r
109 write(' prototyp nr ',i);printkind(kind);
\r
110 writeln(' SL ', slprototype);
\r
111 writeln(' codeaddr ', codeaddr);
\r
112 writeln(' appetite ', appetite);
\r
113 writeln(' span ', span);
\r
114 writeln(' reflist ', reflist, lthreflist);
\r
115 writeln(' parlist ', parlist,lthparlist);
\r
116 writeln(' preflist ',preflist, lthpreflist);
\r
117 writeln(' virtlist ', virtlist);
\r
118 if (kind = lfunction) or (kind = lprocedure) then
\r
120 writeln(' pardescr ', pfdescr);
\r
121 if kind = lfunction then
\r
122 writeln(' type ', finaltype);
\r
125 end (* printprot *);
\r