|
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: 3072 (0xc00)
Types: TextFile
Names: »allist«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »allist«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »allist«
*testren=pascal list.yes
80.12.20. 10.42. pascal hcø version 1980.12.03
1
2 (*$C+*)
3 program pap(input,output);
4 var i,j,k: integer;
5 n1,n2: alfa;
6 value k=5;
7 0 begin
8 1 n1:='alw';
9 2 n2:='alw1';
10 3 k:=renameentry(n1,n2);
11 4 writeln(k);
12 5 k:=renameentry('alx','alz');
13 6 writeln(k);
14 end.
pascal pass2 hcø version 1980.12.18
s.w. PAP segment: 1
0: 6170646 rs w2 x2-2026
2: 3440644 jl. w0 4 6
4: 5 aw w0 5
6: 5279742 rl. w0 -2 4
8: 6039586 rs w0 x2-2014
10: 5308482 rl w1 66
12: 5312534 rl w1 x1+22
14: 3084698 al w3 x1+410
16: 6236184 rs w3 x2-2024
18: 2953576 al w1 x1+360
20: 6105114 rs w1 x2-2022
22: 2981992 al. w1 104 126
24: -2617342 dl w0 x1+2
26: -2349010 ds w0 x2-2002
28: -2617338 dl w0 x1+6
30: -2349006 ds w0 x2-1998
32: 2981974 al. w1 86 118
34: -2617342 dl w0 x1+2
36: -2349018 ds w0 x2-2010
38: -2617338 dl w0 x1+6
40: -2349014 ds w0 x2-2006
42: -2545618 dl w1 x2-2002
44: 6039604 rs w0 x2-1996
46: -2545626 dl w1 x2-2010
48: 2893868 al w0 x2-2004
50: 2959396 al w1 x2-2012
52: 3631117 jl w3 (x2-2035)
54: 32824 aw. w0 56 110
56: 6039586 rs w0 x2-2014
58: 5318680 rl w1 x2-2024
60: 5253154 rl w0 x2-2014
62: 3631117 jl w3 (x2-2035)
64: 20483 aw w0 (x1+3)
66: 32770 aw. w0 2 68
68: 2359298 am w0 2
70: -2523096 dl. w1 40 110
72: 6039606 rs w0 x2-1994
74: 2359298 am w0 2
76: -2523110 dl. w1 26 102
78: 2893878 al w0 x2-1994
80: 2981910 al. w1 22 102
82: 3631117 jl w3 (x2-2035)
84: 32824 aw. w0 56 140
86: 6039586 rs w0 x2-2014
88: 5318680 rl w1 x2-2024
90: 5253154 rl w0 x2-2014
92: 3631117 jl w3 (x2-2035)
94: 20483 aw w0 (x1+3)
96: 32770 aw. w0 2 98
98: 2949120 al w1 0
100: 3631119 jl w3 (x2-2033)
102: 6384762 wd w1 (x2-902)
104: 2105376 ws w0 x2+32
106: 2105376 ws w0 x2+32
108: 2105376 ws w0 x2+32
110: 6384760 wd w1 (x2-904)
112: 2105376 ws w0 x2+32
114: 2105376 ws w0 x2+32
116: 2105376 ws w0 x2+32
118: 6384759 wd w1 (x2-905)
120: 3219488 ri w1 x2+32
122: 2105376 ws w0 x2+32
124: 2105376 ws w0 x2+32
126: 6384759 wd w1 (x2-905)
128: 2105376 ws w0 x2+32
130: 2105376 ws w0 x2+32
132: 2105376 ws w0 x2+32
e.
\f
procedure table
nr name line segm length stack alarm
0 PAP 7 1 134 -1948 0
information segment: 4
0 1 3 2
Code: 0K + 134 Halfwords
end
blocksread = 84
*if ok.yes
*testren
0
6
end
blocksread = 6
*scope day testren
*o c
▶EOF◀