Elliott 803 Algol 60 Compiler (reconstructed)

File: links.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape1.d/links.t2
2 0  ;-----------------
3 0  ;
4 0  ; link definitions
5 0  =32 
6 32 0000000000000Link1:+0; return address @32
7 33 0000000000000Link2:+0; return address @33
8 34  MvCons.lnk=Link1; 
9 34  getchunk.lnk=Link2; 
10 34  getchunka.lnk=Link2; 
11 34  StoreConstF.lnk=Link2; 
12 34  StoreConst.lnk=Link2; 
13 34  =39 
14 39 0000000000000Link3:+0; return address @39
15 40  getowd.lnk=Link3; 
16 40  =387 
17 387 0067200000672Link4:+00067200000672;return address @387
18 388  getchar.lnk=Link4; 
19 388  getchara.lnk=Link4; 
20 388  getcharb.lnk=Link4; 
21 388  getchar2.lnk=Link4; 
22 388  =2916 
23 2916 0000000000000Link5:+0; @2916
24 2917  BoolFactor.lnk=Link5; 
25 2917  =438 
26 438 0122300001223Link6:+00122300001223; return address @438
27 439  packword.lnk=Link6; 
28 439  =468 
29 468 0122600001226Link7:+00122600001226;return address @468
30 469  lookupkw.lnk=Link7; 
31 469  =657 
32 657 0450300004503Link8:+0450300004503;return address
33 658  gettoken.lnk=Link8; 
34 658  L1548.lnk=Link8; 
35 658  L1705.lnk=Link8; 
36 658  L4509.lnk=Link8; 
37 658  =787 
38 787 0000000000000Link9:+0; @787
39 788  ClosePC.lnk=Link9; 
40 788  =793 
41 793 0000000000000Link10:+0; return address @793
42 794  L1026.lnk=Link10; 
43 794  L1029.lnk=Link10; 
44 794  L1070.lnk=Link10; 
45 794  Link10a:; 
46 794 0000000000000 +0; general work / return address @794
47 795  L1077.lnk=Link10a; 
48 795  WrtFilmBlk.lnk=Link10a; 
49 795  WrtFilmWd.lnk=Link10a; 
50 795  Link10b:; 
51 795 0000000000000 +0; @795
52 796  dispwd.lnk=Link10b; 
53 796  dispwda.lnk=Link10b; 
54 796  dispwdb.lnk=Link10b; 
55 796  dispwdc.lnk=Link10b; 
56 796  =830 
57 830 0233300002333Link11:+0233300002333;return address @830
58 831  putcode.lnk=Link11; 
59 831  InitPutCode.lnk=Link11; 
60 831  putFwd.lnk=Link11; 
61 831  putAddr.lnk=Link11; 
62 831  putOpcd.lnk=Link11; 
63 831  putcode5.lnk=Link11; 
64 831  putcode6.lnk=Link11; 
65 831  SkipPLC.lnk=Link11; 
66 831  =927 
67 927 0273700002737Link12:+0273700002737;return address @927
68 928  SetCodePtr.lnk=Link12; 
69 928  GenSetBase.lnk=Link12; 
70 928  GenInst.lnk=Link12; 
71 928  GenInst1.lnk=Link12; 
72 928  GenSkpInst.lnk=Link12; 
73 928  L965.lnk=Link12; 
74 928  L1538P.lnk=Link12; 
75 928  PutLabel.lnk=Link12; 
76 928  GetOpCode.lnk=Link12; 
77 928  GenCall.lnk=Link12; 
78 928  LdVarAddr.lnk=Link12; 
79 928  L3850P.lnk=Link12; 
80 928  =939 
81 939 0247600002476Link13:+0247600002476;return address @939
82 940  putNop.lnk=Link13; 
83 940  L952.lnk=Link13; 
84 940  =957 
85 957 0000000000000Link14:+0; @957
86 958  L958.lnk=Link14; 
87 958  =969 
88 969 0163000001630Link15:+0163000001630;return address @969
89 970  PutInst.lnk=Link15; 
90 970  L1005.lnk=Link15; 
91 970  NopRef.lnk=Link15; 
92 970  =1128 
93 1128  Link15a:; 
94 1128 1745500017455 +01745500017455;*return address @1128
95 1129  declns.lnk=Link15a; 
96 1129  declaration.lnk=Link15a; 
97 1129  =1141 
98 1141  Link15b:; 
99 1141 0000000016034 +7196;* @1141
100 1142  declid.lnk=Link15b; 
101 1142  declid2.lnk=Link15b; 
102 1142  declid1.lnk=Link15b; 
103 1142  getboundexp.lnk=Link15b; 
104 1142  L4510.lnk=Link15b; 
105 1142  =1146 
106 1146  Link15c:; 
107 1146 0000000000000 +0;* @1146
108 1147  L1564.lnk=Link15c; 
109 1147  =1122 
110 1122 0344100003441Link15d:+0344100003441;* @1122
111 1123  statement.lnk=Link15d; 
112 1123  stmtlist.lnk=Link15d; 
113 1123  L4552P.lnk=Link15d; 
114 1123  =1286 
115 1286 0325600003256Link16:+0325600003256; return address @1286
116 1287  addtodic.lnk=Link16; 
117 1287  stack.lnk=Link16; 
118 1287  skipcomment.lnk=Link16; 
119 1287  skipelse.lnk=Link16; 
120 1287  L1419P.lnk=Link16; 
121 1287  =1810 
122 1810 0451200004512Link17:+0451200004512;return address @1810
123 1811  lookupid.lnk=Link17; 
124 1811  =2068 
125 2068 0272400002724Link18:+00272400002724; 02 7488 : 00 1492 @2068
126 2069  gencode.lnk=Link18; 
127 2069  gencode1.lnk=Link18; 
128 2069  L1793.lnk=Link18; 
129 2069  GenXB.lnk=Link18; 
130 2069  L1795.lnk=Link18; 
131 2069  GenEB.lnk=Link18; 
132 2069  GetFnDigit.lnk=Link18; 
133 2069  L3301P.lnk=Link18; 
134 2069  L3303.lnk=Link18; 
135 2069  PrepCall.lnk=Link18; 
136 2069  ExitThunk.lnk=Link18; 
137 2069  L3691.lnk=Link18; 
138 2069  L3692.lnk=Link18; 
139 2069  L3693.lnk=Link18; 
140 2069  L3839.lnk=Link18; 
141 2069  L3840.lnk=Link18; 
142 2069  L3841.lnk=Link18; 
143 2069  L3842.lnk=Link18; 
144 2069  L3843.lnk=Link18; 
145 2069  L3844.lnk=Link18; 
146 2069  L3845.lnk=Link18; 
147 2069  L3846.lnk=Link18; 
148 2069  L3848.lnk=Link18; 
149 2069  L3849.lnk=Link18; 
150 2069  =2072 
151 2072 0000000000000Link19:+0; @2072
152 2073  GenSubr.lnk=Link19; 
153 2073  =2306 
154 2306 0000000000000Link20:+0; @2306
155 2307  assignment.lnk=Link20; 
156 2307  =2370 
157 2370 1745600017456Link21:+01745600017456; return address @2370
158 2371  advance.lnk=Link21; 
159 2371  advance2.lnk=Link21; 
160 2371  Primary.lnk=Link21; 
161 2371  =2454 
162 2454 0000000000000Link22:+0; return address @2454
163 2455  expression.lnk=Link22; 
164 2455  =2550 
165 2550 0000000000000Link23:+0;return address @2550
166 2551  term.lnk=Link23; 
167 2551  push.lnk=Link23; 
168 2551  GenLoad0.lnk=Link23; 
169 2551  GenLoad2.lnk=Link23; 
170 2551  MaskPush.lnk=Link23; 
171 2551  GetAddrExprn.lnk=Link23; 
172 2551  ;L3545P.lnk = Link23
173 2551  =2556 
174 2556 0000000000000Link24:+0; return address @2556
175 2557  TestOpd.lnk=Link24; 
176 2557  Relop.lnk=Link24; 
177 2557  SaveTemp.lnk=Link24; 
178 2557  FreeTemp.lnk=Link24; 
179 2557  SimpleTerm.lnk=Link24; 
180 2557  L2611.lnk=Link24; 
181 2557  TestArithOp.lnk=Link24; 
182 2557  =2623 
183 2623 0000000000000Link25:+0;return address @2623
184 2624  TestPrty.lnk=Link25; 
185 2624  Subscript.lnk=Link25; 
186 2624  =2635 
187 2635 0000000000000Link26:+0;return address @2635
188 2636  TestDefer.lnk=Link26; 
189 2636  =2707 
190 2707 0000000000000Link27:+0; @2707
191 2708  CondExp.lnk=Link27; 
192 2708  compif.lnk=Link27; 
193 2708  =2757 
194 2757 0000000000000Link28:+0;return address @2757
195 2758  OutOper.lnk=Link28; 
196 2758  =2846 
197 2846 0000000000000Link29:+0;return address @2846
198 2847  Variable.lnk=Link29; 
199 2847  GetIntExp2.lnk=Link29; 
200 2847  GetValue.lnk=Link29; 
201 2847  IntExprn.lnk=Link29; 
202 2847  =2913 
203 2913 0000000005604Link30:+2948; @2913
204 2914  compbool.lnk=Link30; 
205 2914  BoolComp.lnk=Link30; 
206 2914  TBoolVar.lnk=Link30; 
207 2914  L3062.lnk=Link30; 
208 2914  BoolOper1.lnk=Link30; 
209 2914  BoolPrim.lnk=Link30; 
210 2914  L3109.lnk=Link30; 
211 2914  L3136.lnk=Link30; 
212 2914  L3158.lnk=Link30; 
213 2914  L3159.lnk=Link30; 
214 2914  L3182.lnk=Link30; 
215 2914  L3212.lnk=Link30; 
216 2914  Link30a:; 
217 2914 0000000000000 +0; @2914
218 2915  L2989.lnk=Link30a; 
219 2915  L3069.lnk=Link30a; 
220 2915  =3227 
221 3227 0000000000000Link31:+0; @3227
222 3228  CallProc.lnk=Link31; 
223 3228  CompStrPtr.lnk=Link31; 
224 3228  CallFunc.lnk=Link31; 
225 3228  =3236 
226 3236  Link31a:; 
227 3236 0000000000000 +0; @3236
228 3237  PkStrChar.lnk=Link31a; 
229 3237  =3612 
230 3612 0000000000000Link32:+0; @3612
231 3613  DesigExprn.lnk=Link32; 
232 3613  L3619.lnk=Link32; 
233 3613  condstat.lnk=Link32; 
234 3613  forstat.lnk=Link32; 
235 3613  =3923 
236 3923 0037370007676Link33:+00037370007676;return address @3923
237 3924  Title.lnk=Link33; 
238 3924  L3893.lnk=Link33; 
239 3924  L3907P.lnk=Link33; 
240 3924  L3855P.lnk=Link33; 
241 3924  comprd.lnk=Link33; 
242 3924  comppr.lnk=Link33; 
243 3924  pause.lnk=Link33; 
244 3924  main.lnk=Link33; 
245 3924  =4499 
246 4499 0000000000000Link33a:+0; @4499
247 4500  L4558P.lnk=Link33a; 
248 4500  =8062 
249 8062 0000000000000Link34:+0; @8062
250 8063  L8051.lnk=Link34; 
251 8063  =8158 
252 8158 0000000000000Link35:+0; @8158
253 8159  BinPut.lnk=Link35; 
254 8159  L8063.lnk=Link35; 
255 8159  L8087.lnk=Link35; 
256 8159  =8111 
257 8111 0000000000000Link36:+0 
258 8112  L8112.lnk=Link36; 
259 8112  L8115P.lnk=Link36; 
260 8112  L8119.lnk=Link36; 
261 8112  L8096.lnk=Link36; 
262 8112  =548 
263 548 0451040004510errlnk:+0451040004510; address used by error routine @548
264 549  L583.lnk=errlnk; 

Page created by Bill Purvis, last updated: January 09 2004