996
|
1 Here's a program that we found and added to the pit (with the author's
|
|
2 permission). This is an Unlambda interpreter; see
|
|
3 http://esolangs.org/wiki/Unlambda for more information about
|
|
4 Unlambda. (This must have been a doubly difficult program to write;
|
|
5 INTERCAL is known for being hard to write programs in, and Unlambda is
|
|
6 in part known for being hard to write interpreters for, among its
|
|
7 other claims to fame.) This should run under C-INTERCAL with no
|
|
8 command-line options given, although I recommend -b, -O and -f. It's
|
|
9 valid INTERCAL-72 except for Turing Tape IO and COME FROM label.
|
|
10
|
|
11 What follows is the original version of the program, with the author's
|
|
12 comments interspersed.
|
|
13
|
|
14 # Copyright (C) 2001 Ørjan Johansen
|
|
15
|
|
16 # This program is free software; you can redistribute it and/or modify
|
|
17 # it under the terms of the GNU General Public License as published by
|
|
18 # the Free Software Foundation; either version 2 of the License, or
|
|
19 # (at your option) any later version.
|
|
20
|
|
21 # This program is distributed in the hope that it will be useful,
|
|
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
24 # GNU General Public License for more details.
|
|
25
|
|
26 # You should have received a copy of the GNU General Public License
|
|
27 # along with this program; if not, write to the Free Software
|
|
28 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
29
|
|
30 PLEASE .200 <- #8 PLEASE NOTE AMOUNT OF INITIAL MEMORY
|
|
31 PLEASE .80 <- #80 PLEASE NOTE END-OF-LINE CHARACTER
|
|
32
|
|
33 DO (100) NEXT PLEASE NOTE IO SETUP
|
|
34 DO (200) NEXT PLEASE NOTE MEMORY SETUP
|
|
35 DO (300) NEXT PLEASE NOTE REFERENCE COUNTING SETUP
|
|
36 DO (400) NEXT PLEASE NOTE PARSER TABLE SETUP
|
|
37
|
|
38 DO (401) NEXT PLEASE NOTE PARSING
|
|
39 DON'T (404) NEXT PLEASE NOTE PRINTING PROGRAM
|
|
40 DO (501) NEXT PLEASE NOTE EVALUATION
|
|
41 DON'T (404) NEXT PLEASE NOTE PRINTING RESULT
|
|
42 DON'T (203) NEXT PLEASE NOTE MEMORY MAP
|
|
43 PLEASE GIVE UP
|
|
44
|
|
45 PLEASE NOTE DIPLOMATIC RELATIONS
|
|
46 PLEASE NOTE .101=LAST READ .102=LAST WRITTEN
|
|
47 # Character array
|
|
48 (100) DO ,101 <- #1
|
|
49 PLEASE DO .101 <- #0
|
|
50 DO .102 <- #0
|
|
51 DO RESUME #1
|
|
52 # Read a new character
|
|
53 PLEASE READ ME A STORY
|
|
54 (101) DO (3101) NEXT
|
|
55 DO .101 <- .1
|
|
56 PLEASE REINSTATE (3101)
|
|
57 DO RESUME #1
|
|
58 (3101) DON'T THINK YOU CAN HAVE YOUR CAKE AND EAT IT
|
|
59 DO WRITE IN ,101
|
|
60 PLEASE .1 <- ,101SUB#1
|
|
61 DO .2 <- .101
|
|
62 DO (1000) NEXT
|
|
63 PLEASE DO .101 <- .3~#255
|
|
64 PLEASE RESUME '?.1$#512'~'#256$#256'
|
|
65 # Reverse bits in .2
|
|
66 (102) DO .2 <- !2~#15'$!2~#240'
|
|
67 DO .2 <- !2~#15'$!2~#240'
|
|
68 DO .2 <- !2~#15'$!2~#240'
|
|
69 PLEASE RESUME #1
|
|
70 # Write a new revchar (from .2)
|
|
71 (103) PLEASE .1 <- .102
|
|
72 DO .102 <- .2
|
|
73 DO (1010) NEXT
|
|
74 DO ,101SUB#1 <- .3
|
|
75 PLEASE READ OUT ,101
|
|
76 DO RESUME #1
|
|
77
|
|
78 DO ASSERT TERRITORIAL CLAIMS
|
|
79 # Memory initialization, uses value of .200.
|
|
80 # .204 = items per cell, not used for the (?202) loops!
|
|
81 (200) DO .204 <- #7
|
|
82 DO ,201 <- .200 BY #32767 BY .204
|
|
83 (3200) PLEASE DO .201 <- #0
|
|
84 DO .202 <- #16383
|
|
85 PLEASE RESUME #1
|
|
86
|
|
87 PLEASE LET THEM EAT CAKE
|
|
88 PLEASE NOTE .201+.202=MEMORY TOP
|
|
89 # Allocate new cell, .201 (high) and .202 (low) will contain new address.
|
|
90 # May also be used to traverse memory.
|
|
91 (201) DO (3201) NEXT
|
|
92 (5201) DON'T (202) NEXT
|
|
93 DO COME FROM (7202)
|
|
94 PLEASE .1 <- .201
|
|
95 DO (4201) NEXT
|
|
96 PLEASE REINSTATE (5201)
|
|
97 DO RESUME #1
|
|
98 (4201) DO (1020) NEXT
|
|
99 DO FORGET '#65535~"'?.1$.200'~'#0$#65535'"'~#1
|
|
100 DO .201 <- .1
|
|
101 PLEASE RESUME #1
|
|
102 DON'T STEP ON THE GALOIS FIELD MINES
|
|
103 (3201) DO .202 <- "?.202$!202~#16384'"~'#16383$#1'
|
|
104 PLEASE RESUME "?!202~.202'$#32768"~"#16384$#16384"
|
|
105 # Uncontrolled unary operators:
|
|
106 # "?.1$!1~#16384'"~'#16383$#1'
|
|
107 # "?#0$'"?.1$!1~#2'"~"#0$#65535"'"~'#49151$#0'
|
|
108
|
|
109 PLEASE STAND BY FOR ASSIMILATION
|
|
110 # Handle memory enlargement.
|
|
111 (202) PLEASE DON'T RESUME #3
|
|
112 DO REINSTATE (202)
|
|
113 DO FORGET #1
|
|
114 PLEASE STASH .203+,202
|
|
115 # Calculate the new memory size
|
|
116 DO .203 <- '.200$#0'~'#65535$#1'
|
|
117 # Temporarily copy memory
|
|
118 DON'T TELL ME WE HAVE TO MOVE IT ALL?
|
|
119 DO ,202 <- .200 BY #32767 BY .204
|
|
120 DO (3200) NEXT
|
|
121 DO ABSTAIN FROM (5201)
|
|
122 PLEASE DO (3202) NEXT
|
|
123 # Enlarge memory and copy back
|
|
124 DO ,201 <- .203 BY #32767 BY .204
|
|
125 DO (3200) NEXT
|
|
126 PLEASE ABSTAIN FROM (5201)
|
|
127 PLEASE DO (5202) NEXT
|
|
128 # Clean up and return
|
|
129 DO .200 <- .203
|
|
130 DO ABSTAIN FROM (5201)
|
|
131 DO ABSTAIN FROM (202)
|
|
132 (7202) DO RETRIEVE .203+,202
|
|
133 (9202) DO RESUME '?#32768$.203'~'#16384$#32768'
|
|
134 (3202) DO COME FROM (4202)
|
|
135 PLEASE DO (201) NEXT
|
|
136 DO ,202SUB.201.202#1 <- ,201SUB.201.202#1
|
|
137 DO ,202SUB.201.202#2 <- ,201SUB.201.202#2
|
|
138 DO ,202SUB.201.202#3 <- ,201SUB.201.202#3
|
|
139 DO ,202SUB.201.202#4 <- ,201SUB.201.202#4
|
|
140 DO ,202SUB.201.202#5 <- ,201SUB.201.202#5
|
|
141 DO ,202SUB.201.202#6 <- ,201SUB.201.202#6
|
|
142 (4202) DO ,202SUB.201.202#7 <- ,201SUB.201.202#7
|
|
143 # Remember to expand if .204 changes!
|
|
144 (5202) DO COME FROM (6202)
|
|
145 PLEASE DO (201) NEXT
|
|
146 DO ,201SUB.201.202#1 <- ,202SUB.201.202#1
|
|
147 DO ,201SUB.201.202#2 <- ,202SUB.201.202#2
|
|
148 DO ,201SUB.201.202#3 <- ,202SUB.201.202#3
|
|
149 DO ,201SUB.201.202#4 <- ,202SUB.201.202#4
|
|
150 DO ,201SUB.201.202#5 <- ,202SUB.201.202#5
|
|
151 DO ,201SUB.201.202#6 <- ,202SUB.201.202#6
|
|
152 (6202) DO ,201SUB.201.202#7 <- ,202SUB.201.202#7
|
|
153 # Remember to expand if .204 changes!
|
|
154 # List memory and some important addresses
|
|
155 DO TELL ME ALL ABOUT YOURSELF
|
|
156 (203) DO READ OUT .201+.202+.301+.302+.311+.312
|
|
157 DO (3200) NEXT
|
|
158 PLEASE REINSTATE (202)
|
|
159 DO ABSTAIN FROM (5201)
|
|
160 DO (3203) NEXT
|
|
161 PLEASE GIVE UP
|
|
162 PLEASE COME FROM (4203)
|
|
163 (3203) DO (201) NEXT
|
|
164 DO READ OUT .201+.202
|
|
165 DO READ OUT ,201SUB.201.202#1
|
|
166 DO READ OUT ,201SUB.201.202#2
|
|
167 DO READ OUT ,201SUB.201.202#3
|
|
168 DO READ OUT ,201SUB.201.202#4
|
|
169 DO READ OUT ,201SUB.201.202#5
|
|
170 DO READ OUT ,201SUB.201.202#6
|
|
171 (4203) DO READ OUT ,201SUB.201.202#7
|
|
172
|
|
173 # Reference count memory model
|
|
174 PLEASE NOTE
|
|
175 #1+#2=REFERENCE COUNT
|
|
176 #3+#4=CAR
|
|
177 #5+#6=CDR
|
|
178 #7=TYPE (TAG$DATA)
|
|
179
|
|
180 PLEASE WELCOME TO THE BAZAAR
|
|
181 # Initialize recycle bin
|
|
182 (300) PLEASE DO .301 <- #0
|
|
183 DO .302 <- #0
|
|
184 PLEASE NOTE NIL=.303+.304
|
|
185 DO (303) NEXT
|
|
186 DO ,201SUB.311.312#1 <- #0
|
|
187 PLEASE ,201SUB.311.312#2 <- #0
|
|
188 DO ,201SUB.311.312#3 <- .311
|
|
189 DO ,201SUB.311.312#4 <- .312
|
|
190 DO ,201SUB.311.312#5 <- .311
|
|
191 DO ,201SUB.311.312#6 <- .312
|
|
192 DO ,201SUB.311.312#7 <- #0
|
|
193 PLEASE .303 <- .311
|
|
194 DO .304 <- .312
|
|
195 DO RESUME #1
|
|
196
|
|
197 # Increment reference count of cell pointed to by .311+.312.
|
|
198 PLEASE REPORT NEW PURCHASES HERE
|
|
199 (301) PLEASE .1 <- ,201SUB.311.312#2
|
|
200 DO .1 <- "?.1$!1~#16384'"~'#16383$#1'
|
|
201 DO ,201SUB.311.312#2 <- .1
|
|
202 DO (3301) NEXT
|
|
203 PLEASE .1 <- ,201SUB.311.312#1
|
|
204 DO .1 <- "?.1$!1~#16384'"~'#16383$#1'
|
|
205 DO ,201SUB.311.312#1 <- .1
|
|
206 DO (3301) NEXT
|
|
207 PLEASE NOTE THAT IMMORTALITY IS TREASON
|
|
208 DO ,201SUB.311.312#2 <- #0
|
|
209 DO RESUME #1
|
|
210 (3301) PLEASE RESUME "?!1~.1'$#32768"~"#16384$#16384"
|
|
211
|
|
212 PLEASE STAND IN LINE FOR TERMINATION
|
|
213 DO COME FROM (4302)
|
|
214 # Decrement reference count of cell pointed to by .311+.312.
|
|
215 (302) PLEASE .1 <- ,201SUB.311.312#2
|
|
216 DO .1 <- "?#0$'"?.1$!1~#2'"~"#0$#65535"'"~'#49151$#0'
|
|
217 DO ,201SUB.311.312#2 <- .1
|
|
218 DO (3302) NEXT
|
|
219 PLEASE .1 <- ,201SUB.311.312#1
|
|
220 DO .1 <- "?#0$'"?.1$!1~#2'"~"#0$#65535"'"~'#49151$#0'
|
|
221 DO ,201SUB.311.312#1 <- .1
|
|
222 DO (3302) NEXT
|
|
223 # Count reached zero, release cell
|
|
224 PLEASE .1 <- .311
|
|
225 DO .2 <- .312
|
|
226 DO .311 <- ,201SUB.1.2#3
|
|
227 DO .312 <- ,201SUB.1.2#4
|
|
228 DO ,201SUB.1.2#3 <- .301
|
|
229 DO ,201SUB.1.2#4 <- .302
|
|
230 PLEASE .301 <- .1
|
|
231 (4302) DO .302 <- .2
|
|
232 (3302) PLEASE RESUME "?'#65535~"'?.1$#16383'~'#0$#65535'"'$#1"~#3
|
|
233
|
|
234 PLEASE LET ME INTRODUCE YOU TO .311+.312
|
|
235 # Receive pointer to cell, possibly recycled, in .311+.312
|
|
236 (303) PLEASE (3303) NEXT
|
|
237 DO .1 <- .301
|
|
238 DO .2 <- .302
|
|
239 DO .301 <- ,201SUB.1.2#3
|
|
240 DO .302 <- ,201SUB.1.2#4
|
|
241 PLEASE STASH .1+.2
|
|
242 DO .311 <- ,201SUB.1.2#5
|
|
243 DO .312 <- ,201SUB.1.2#6
|
|
244 DO (302) NEXT
|
|
245 PLEASE RETRIEVE .1+.2
|
|
246 DO .311 <- .1
|
|
247 DO .312 <- .2
|
|
248 DO (5303) NEXT
|
|
249 (3303) PLEASE DO (4303) NEXT
|
|
250 DO (201) NEXT
|
|
251 DO .311 <- .201
|
|
252 DO .312 <- .202
|
|
253 (5303) DO ,201SUB.311.312#1 <- #32767
|
|
254 PLEASE ,201SUB.311.312#2 <- #32767
|
|
255 # Initialize pointers to null so errors are (hopefully) caught easier.
|
|
256 DO ,201SUB.311.312#3 <- #0
|
|
257 DO ,201SUB.311.312#5 <- #0
|
|
258 PLEASE RESUME #2
|
|
259 (4303) DO RESUME "?!301~.301'$#1"~#3
|
|
260 # As (303), but set CDR to NIL
|
|
261 (304) PLEASE (303) NEXT
|
|
262 DO ,201SUB.311.312#5 <- .303
|
|
263 DO ,201SUB.311.312#6 <- .304
|
|
264 DO RESUME #1
|
|
265 # As (304), but also set CAR to NIL
|
|
266 (305) PLEASE (304) NEXT
|
|
267 DO ,201SUB.311.312#3 <- .303
|
|
268 DO ,201SUB.311.312#4 <- .304
|
|
269 DO RESUME #1
|
|
270
|
|
271 # ,401+,402 is a table of pointers to the parameterless
|
|
272 # primitive functions.
|
|
273 PLEASE NOTE `=#1 K=#2 K1=#3 S=#4 S1=#5 S2=#6 I=#7 V=#8 C=#9
|
|
274 CONT=#10 D=#11 D1=#12 .=#13 E=#14 @=#15 ?=#16
|
|
275 |=#17 (R=#18=#13$.80)
|
|
276 (3400) PLEASE STASH .1
|
|
277 PLEASE (305) NEXT
|
|
278 PLEASE RETRIEVE .1
|
|
279 DO ,201SUB.311.312#2 <- #0
|
|
280 DO ,201SUB.311.312#7 <- .1$#0
|
|
281 DO ,401SUB.1 <- .311
|
|
282 DO ,402SUB.1 <- .312
|
|
283 DO RESUME #1
|
|
284 (400) PLEASE ,401 <- #18
|
|
285 DO ,402 <- #18
|
|
286 DO .1 <- #2 DO (3400) NEXT
|
|
287 DO .1 <- #4 DO (3400) NEXT
|
|
288 DO .1 <- #7 DO (3400) NEXT
|
|
289 DO .1 <- #8 DO (3400) NEXT
|
|
290 DO .1 <- #9 DO (3400) NEXT
|
|
291 DO .1 <- #11 DO (3400) NEXT
|
|
292 DO .1 <- #14 DO (3400) NEXT
|
|
293 DO .1 <- #15 DO (3400) NEXT
|
|
294 DO .1 <- #17 DO (3400) NEXT
|
|
295 DO .1 <- #18 DO (3400) NEXT
|
|
296 PLEASE ,201SUB.311.312#7 <- #13$.80
|
|
297 # ,400 is a character table.
|
|
298 PLEASE NOTE 7=ILLEGAL 6=BLANK 5=COMMENT
|
|
299 4=PRIMITIVE 3=KRAPS 2=WHAT 1=SPOT
|
|
300 (410) PLEASE ,400 <- #127
|
|
301 PLEASE .1 <- #127
|
|
302 PLEASE (3410) NEXT
|
|
303 DO ,400SUB#8 <- #6 $ #0
|
|
304 DO ,400SUB#10 <- #6 $ #0
|
|
305 DO ,400SUB#13 <- #6 $ #0
|
|
306 DO ,400SUB#32 <- #6 $ #0
|
|
307 DO ,400SUB#35 <- #5 $ #0
|
|
308 DO ,400SUB#46 <- #1 $ #13
|
|
309 DO ,400SUB#63 <- #2 $ #16
|
|
310 DO ,400SUB#64 <- #4 $ #15
|
|
311 DO ,400SUB#67 <- #4 $ #9
|
|
312 DO ,400SUB#68 <- #4 $ #11
|
|
313 DO ,400SUB#69 <- #4 $ #14
|
|
314 DO ,400SUB#73 <- #4 $ #7
|
|
315 DO ,400SUB#75 <- #4 $ #2
|
|
316 DO ,400SUB#82 <- #4 $ #18
|
|
317 DO ,400SUB#83 <- #4 $ #4
|
|
318 DO ,400SUB#86 <- #4 $ #8
|
|
319 DO ,400SUB#96 <- #3 $ #0
|
|
320 DO ,400SUB#99 <- #4 $ #9
|
|
321 DO ,400SUB#100 <- #4 $ #11
|
|
322 DO ,400SUB#101 <- #4 $ #14
|
|
323 DO ,400SUB#105 <- #4 $ #7
|
|
324 DO ,400SUB#107 <- #4 $ #2
|
|
325 DO ,400SUB#114 <- #4 $ #18
|
|
326 DO ,400SUB#115 <- #4 $ #4
|
|
327 DO ,400SUB#118 <- #4 $ #8
|
|
328 (5410) DO ,400SUB#124 <- #4 $ #17
|
|
329 PLEASE COME FROM (3410)
|
|
330 (3410) PLEASE (4410) NEXT
|
|
331 (4410) PLEASE ,400SUB.1 <- #7
|
|
332 DO .1 <- "?.1$!1~#64'"~'#63$#1'
|
|
333 DO RESUME "?!1~.1'$#64"~"#64$#64"
|
|
334 DO COME FROM (5410)
|
|
335 # ,403 is a character table the other way.
|
|
336 PLEASE NOTE KSIVCDE@|=#7 K1,S1,D1=#6 S2=#5
|
|
337 CONT=#4 KRAPS=#3 WHAT=#2 SPOT=#1
|
|
338 (420) PLEASE ,403 <- #17
|
|
339 DO ,403SUB#1 <- #3 $ #6
|
|
340 DO ,403SUB#2 <- #7 $ #210
|
|
341 DO ,403SUB#3 <- #6 $ #210
|
|
342 DO ,403SUB#4 <- #7 $ #202
|
|
343 DO ,403SUB#5 <- #6 $ #202
|
|
344 DO ,403SUB#6 <- #5 $ #202
|
|
345 DO ,403SUB#7 <- #7 $ #146
|
|
346 DO ,403SUB#8 <- #7 $ #106
|
|
347 DO ,403SUB#9 <- #7 $ #194
|
|
348 DO ,403SUB#10 <- #4 $ #0
|
|
349 DO ,403SUB#11 <- #7 $ #34
|
|
350 DO ,403SUB#12 <- #6 $ #34
|
|
351 DO ,403SUB#13 <- #1 $ #116
|
|
352 DO ,403SUB#14 <- #7 $ #162
|
|
353 DO ,403SUB#15 <- #7 $ #2
|
|
354 DO ,403SUB#16 <- #2 $ #252
|
|
355 DO ,403SUB#17 <- #7 $ #62
|
|
356 PLEASE RESUME #1
|
|
357
|
|
358 # Parser continuation stack cell types
|
|
359 PLEASE NOTE 3=TOP 2=BOTH 1=LAST
|
|
360 # Generate stack top in .401+.402
|
|
361 (401) DO (305) NEXT
|
|
362 DO .401 <- .311
|
|
363 DO .402 <- .312
|
|
364 DO ,201SUB.401.402#7 <- #3
|
|
365 PLEASE (402) NEXT
|
|
366 PLEASE ABSTAIN FROM SUCH MEANINGLESS LANGUAGE
|
|
367 (4402) DO RESUME '?"?!101~#128'$!101~.101'"$#2'~#3
|
|
368 (3402) DO (3101) NEXT
|
|
369 DOG ATE END OF MY ESSAY
|
|
370 # Parse expression and send to continuation
|
|
371 DO COME FROM (5402)
|
|
372 (402) DO (3402) NEXT
|
|
373 PLEASE (4402) NEXT
|
|
374 (5402) DO (412) NEXT
|
|
375 # Comments
|
|
376 DON'T COMMENT
|
|
377 (412) PLEASE (422) NEXT
|
|
378 DO COME FROM (4412)
|
|
379 DO (3402) NEXT
|
|
380 (4412) PLEASE (3412) NEXT
|
|
381 (3412) DO FORGET "?'#255~"'?.101$#10'~'#0$#65535'"'$#1"~#1
|
|
382 DO FORGET "?'#255~"'?.101$#13'~'#0$#65535'"'$#1"~#1
|
|
383 DO RESUME #1
|
|
384 # Primitive functions
|
|
385 DO YOU THINK _THIS_ IS PRIMITIVE?
|
|
386 (422) PLEASE (432) NEXT
|
|
387 DO .311 <- ,401SUB!410~"#0$#31"'
|
|
388 DO .312 <- ,402SUB!410~"#0$#31"'
|
|
389 DO FORGET #1
|
|
390 PLEASE (403) NEXT
|
|
391 # Application
|
|
392 PLEASE FILL OUT THE APPLICATION FORM
|
|
393 (432) PLEASE (442) NEXT
|
|
394 DO (305) NEXT
|
|
395 DO ,201SUB.311.312#5 <- .401
|
|
396 DO ,201SUB.311.312#6 <- .402
|
|
397 DO ,201SUB.311.312#7 <- #2
|
|
398 PLEASE .401 <- .311
|
|
399 DO .402 <- .312
|
|
400 DO RESUME #3
|
|
401 # ?x
|
|
402 DO WHAT?
|
|
403 (442) PLEASE (452) NEXT
|
|
404 DO (3402) NEXT
|
|
405 DO (305) NEXT
|
|
406 DO ,201SUB.311.312#7 <- !410~"#0$#31"'$.101
|
|
407 DO FORGET #3
|
|
408 PLEASE (403) NEXT
|
|
409 # .x
|
|
410 DOT OR SPOT, WE'RE ALL CIVILIZED PEOPLE HERE
|
|
411 (452) PLEASE (462) NEXT
|
|
412 DO (3402) NEXT
|
|
413 DO (305) NEXT
|
|
414 DO .2 <- .101
|
|
415 PLEASE (102) NEXT
|
|
416 DO ,201SUB.311.312#7 <- !410~"#0$#31"'$.2
|
|
417 DO FORGET #4
|
|
418 PLEASE (403) NEXT
|
|
419 (462) DO .410 <- ,400SUB.101
|
|
420 DO RESUME .410~'#7$#0'
|
|
421
|
|
422 # Handle a parsed expression in .311+.312
|
|
423 # Remember to resume one extra level afterwards if continuing.
|
|
424 # First top expression
|
|
425 DO YOU KNOW THE TOP MAN FOR THIS OPERATION?
|
|
426 DO COME FROM (3423)
|
|
427 (403) PLEASE (413) NEXT
|
|
428 DO STASH .311+.312
|
|
429 DO .311 <- .401
|
|
430 DO .312 <- .402
|
|
431 PLEASE (302) NEXT
|
|
432 DO RETRIEVE .311+.312
|
|
433 # Return all the way from (401)
|
|
434 DO RESUME #4
|
|
435 # Still one subexpression remaining
|
|
436 PLEASE CAN I HAVE SOME MORE?
|
|
437 (413) PLEASE (423) NEXT
|
|
438 DO ,201SUB.401.402#3 <- .311
|
|
439 DO ,201SUB.401.402#4 <- .312
|
|
440 DO ,201SUB.401.402#7 <- #1
|
|
441 PLEASE RESUME #3
|
|
442 # Application constructed
|
|
443 DOUBLE APPLICATION FORM RECEIVED
|
|
444 (423) PLEASE (433) NEXT
|
|
445 DO .1 <- ,201SUB.401.402#5
|
|
446 DO .2 <- ,201SUB.401.402#6
|
|
447 DO ,201SUB.401.402#5 <- .311
|
|
448 DO ,201SUB.401.402#6 <- .312
|
|
449 DO ,201SUB.401.402#7 <- #1$#0
|
|
450 DO .311 <- .401
|
|
451 PLEASE .312 <- .402
|
|
452 DO .401 <- .1
|
|
453 DO .402 <- .2
|
|
454 (3423) DO FORGET #2
|
|
455 (433) PLEASE RESUME ,201SUB.401.402#7
|
|
456
|
|
457 # Unparsing .311+.312
|
|
458 DO YOU WANT A REPORT?
|
|
459 (404) DO STASH .311+.312
|
|
460 PLEASE (6404) NEXT
|
|
461 DO RETRIEVE .311+.312
|
|
462 DO .2 <- .80 DO (103) NEXT
|
|
463 DO RESUME #1
|
|
464 # Uses weak pointer stack in .401+.402 with NIL at bottom (which is of type 0)
|
|
465 (6404) DO .401 <- .303
|
|
466 DO .402 <- .304
|
|
467 DO COME FROM (4404)
|
|
468 PLEASE DO (5404) NEXT
|
|
469 # Unparse the remainder of the stack
|
|
470 PLEASE (3404) NEXT
|
|
471 DO .311 <- ,201SUB.401.402#3
|
|
472 DO .312 <- ,201SUB.401.402#4
|
|
473 PLEASE STASH .311+.312
|
|
474 DO .1 <- ,201SUB.401.402#5
|
|
475 DO .2 <- ,201SUB.401.402#6
|
|
476 DO ,201SUB.401.402#3 <- .303
|
|
477 DO ,201SUB.401.402#4 <- .304
|
|
478 DO ,201SUB.401.402#5 <- .303
|
|
479 DO ,201SUB.401.402#6 <- .304
|
|
480 DO .311 <- .401
|
|
481 DO .312 <- .402
|
|
482 DO .401 <- .1
|
|
483 DO .402 <- .2
|
|
484 PLEASE DO (302) NEXT
|
|
485 (4404) DO RETRIEVE .311+.312
|
|
486 (3404) DO RESUME "?"#65535~',201SUB.401.402#7'"$#2"~#3
|
|
487 DO COME FROM (5404)
|
|
488 (5404) PLEASE DO (414) NEXT
|
|
489 # Primitives
|
|
490 PLEASE DON'T BRING AUSTRALOPITHECI INTO THE HOUSE
|
|
491 (414) PLEASE DO (424) NEXT
|
|
492 DO .2 <- .411~'#0$#255'
|
|
493 DO (103) NEXT
|
|
494 DO RESUME #2
|
|
495 # Single parameter
|
|
496 (424) PLEASE DO (434) NEXT
|
|
497 DO .2 <- #6 DO (103) NEXT
|
|
498 DO .2 <- .411~'#0$#255'
|
|
499 DO (103) NEXT
|
|
500 PLEASE COME FROM (4434)
|
|
501 (3424) DO .1 <- ,201SUB.311.312#3
|
|
502 DO .312 <- ,201SUB.311.312#4
|
|
503 DO .311 <- .1
|
|
504 DO RESUME #2
|
|
505 # Two-parameter
|
|
506 DOUBLE DOUBLE TOIL AND TROUBLE
|
|
507 (434) PLEASE DO (444) NEXT
|
|
508 DO .2 <- #6 DO (103) NEXT DO (103) NEXT
|
|
509 DO .2 <- .411~'#0$#255'
|
|
510 DO (103) NEXT
|
|
511 DO COME FROM (3454)
|
|
512 (3434) PLEASE STASH .311+.312
|
|
513 PLEASE DO (303) NEXT
|
|
514 DO ,201SUB.311.312#5 <- .401
|
|
515 DO ,201SUB.311.312#6 <- .402
|
|
516 DO ,201SUB.311.312#7 <- #1
|
|
517 DO .401 <- .311 DO .402 <- .312
|
|
518 PLEASE RETRIEVE .311+.312
|
|
519 DO ,201SUB.401.402#3 <- ,201SUB.311.312#5
|
|
520 DO ,201SUB.401.402#4 <- ,201SUB.311.312#6
|
|
521 (4434) DO FORGET #1
|
|
522 # Continuations
|
|
523 DO CONTINUATIONS DREAM OF MONADIC SHEEP
|
|
524 (444) PLEASE DO (454) NEXT
|
|
525 PLEASE DO .2 <- #60 DO (103) NEXT
|
|
526 PLEASE DO .2 <- #194 DO (103) NEXT
|
|
527 PLEASE DO .2 <- #242 DO (103) NEXT
|
|
528 PLEASE DO .2 <- #114 DO (103) NEXT
|
|
529 PLEASE DO .2 <- #42 DO (103) NEXT
|
|
530 PLEASE DO .2 <- #124 DO (103) NEXT
|
|
531 PLEASE RESUME #5
|
|
532 # Applications
|
|
533 (454) PLEASE DO (464) NEXT
|
|
534 PLEASE FORGET #2
|
|
535 DO .2 <- #6
|
|
536 (3454) DO (103) NEXT
|
|
537 # ?x
|
|
538 DON'T LOOK LIKE A QUESTION MARK
|
|
539 (464) PLEASE DO (474) NEXT
|
|
540 DO .2 <- .411~'#0$#255' DO (103) NEXT
|
|
541 PLEASE DO .2 <- .410~'#0$#255'
|
|
542 DO (102) NEXT DO (103) NEXT
|
|
543 DO RESUME #7
|
|
544 # .x
|
|
545 PLEASE CAN YOU SPOT THE DIFFERENCE?
|
|
546 (474) PLEASE DO (484) NEXT
|
|
547 DO .2 <- .411~'#0$#255'
|
|
548 DO .410 <- .410~'#0$#255'
|
|
549 DO .411 <- #7$#74
|
|
550 PLEASE DO (3474) NEXT
|
|
551 DO (103) NEXT
|
|
552 PLEASE DO .2 <- .410
|
|
553 DO (103) NEXT
|
|
554 DO RESUME #8
|
|
555 # Resume 1 or 7 times
|
|
556 (3474) DO RESUME '"?"#255~'"?.410$.80"~"#0$#65535"'"$#3"$#1'~#11
|
|
557 (484) DO .410 <- ,201SUB.311.312#7
|
|
558 DO .411 <- ,403SUB!410~"#31$#0"'
|
|
559 PLEASE RESUME .411~'#7$#0'
|
|
560
|
|
561 PLEASE WELCOME TO THE PITS OF EVAL
|
|
562 # May use up the reference to .311+.312.
|
|
563 (501) DO .511 <- .311
|
|
564 DO .512 <- .312
|
|
565 PLEASE DO (3501) NEXT
|
|
566 DO .311 <- .511
|
|
567 DO .312 <- .512
|
|
568 # Continuation types
|
|
569 PLEASE NOTE EVAL2=1 APPLY=2
|
|
570 PLEASE NOTE
|
|
571 .601=CURRENT CHARACTER
|
|
572 .501+.502=CURRENT CONTINUATION
|
|
573 .511+.512=CURRENT EXPRESSION
|
|
574 (3501) DO .601 <- #256
|
|
575 DO (304) NEXT
|
|
576 DO ,201SUB.311.312#3 <- ,401SUB#14
|
|
577 DO ,201SUB.311.312#4 <- ,402SUB#14
|
|
578 DO ,201SUB.311.312#7 <- #2
|
|
579 DO .501 <- .311
|
|
580 DO .502 <- .312
|
|
581 # Evaluate .511+.512 with the continuation given in .501+.502.
|
|
582 PLEASE COME FROM (3622)
|
|
583 PLEASE COME FROM (7503)
|
|
584 (502) DO (3502) NEXT
|
|
585 DO (503) NEXT
|
|
586 (4502) PLEASE RESUME "?'#15~"',201SUB.511.512#7'~'#30$#0'"'$#1"~#3
|
|
587 DO NOTE KRAPS
|
|
588 PLEASE COME FROM (5502)
|
|
589 (3502) DO (4502) NEXT
|
|
590 PLEASE (303) NEXT
|
|
591 DO ,201SUB.311.312#5 <- .501
|
|
592 DO ,201SUB.311.312#6 <- .502
|
|
593 DO ,201SUB.311.312#7 <- #1
|
|
594 DO .501 <- .311
|
|
595 DO .502 <- .312
|
|
596 DO .311 <- ,201SUB.511.512#5
|
|
597 DO .312 <- ,201SUB.511.512#6
|
|
598 PLEASE DO (301) NEXT
|
|
599 DO ,201SUB.501.502#3 <- .311
|
|
600 DO ,201SUB.501.502#4 <- .312
|
|
601 DO .311 <- ,201SUB.511.512#3
|
|
602 DO .312 <- ,201SUB.511.512#4
|
|
603 PLEASE DO (301) NEXT
|
|
604 PLEASE STASH .311+.312
|
|
605 DO .311 <- .511
|
|
606 DO .312 <- .512
|
|
607 DO (302) NEXT
|
|
608 PLEASE RETRIEVE .311+.312
|
|
609 DO .511 <- .311
|
|
610 (5502) DO .512 <- .312
|
|
611 # Send .511+.512 to the current continuation.
|
|
612 PLEASE NOTE THAT WE ARE CURRENTLY PROCESSING YOUR APPLICATION
|
|
613 (503) DO FORGET #1
|
|
614 PLEASE (3503) NEXT
|
|
615 DO .311 <- ,201SUB.501.502#3
|
|
616 DO .312 <- ,201SUB.501.502#4
|
|
617 DO (301) NEXT
|
|
618 PLEASE STASH .311+.312
|
|
619 DO .311 <- .501
|
|
620 DO .312 <- .502
|
|
621 PLEASE STASH .311+.312
|
|
622 DO .311 <- ,201SUB.501.502#5
|
|
623 DO .312 <- ,201SUB.501.502#6
|
|
624 DO (301) NEXT
|
|
625 DO .501 <- .311
|
|
626 DO .502 <- .312
|
|
627 PLEASE RETRIEVE .311+.312
|
|
628 DO (302) NEXT
|
|
629 (8503) PLEASE RETRIEVE .311+.312
|
|
630 (4503) PLEASE RESUME ,201SUB.501.502#7
|
|
631 PLEASE STAY WITH US FOR THE SECOND HALF OF THE SHOW
|
|
632 (3503) PLEASE (4503) NEXT
|
|
633 DO (5503) NEXT
|
|
634 DO FORGET #1
|
|
635 DO .311 <- .501
|
|
636 DO .312 <- .502
|
|
637 PLEASE STASH .311+.312
|
|
638 DO .311 <- ,201SUB.501.502#3
|
|
639 DO .312 <- ,201SUB.501.502#4
|
|
640 DO (301) NEXT
|
|
641 PLEASE STASH .311+.312
|
|
642 DO .311 <- ,201SUB.501.502#5
|
|
643 DO .312 <- ,201SUB.501.502#6
|
|
644 PLEASE DO (301) NEXT
|
|
645 DO STASH .311+.312
|
|
646 DO (304) NEXT
|
|
647 DO ,201SUB.311.312#3 <- .511
|
|
648 DO ,201SUB.311.312#4 <- .512
|
|
649 DO ,201SUB.311.312#7 <- #2
|
|
650 DO .501 <- .311
|
|
651 DO .502 <- .312
|
|
652 PLEASE RETRIEVE .311+.312
|
|
653 DO ,201SUB.501.502#5 <- .311
|
|
654 DO ,201SUB.501.502#6 <- .312
|
|
655 PLEASE RETRIEVE .311+.312
|
|
656 DO .511 <- .311
|
|
657 DO .512 <- .312
|
|
658 PLEASE RETRIEVE .311+.312
|
|
659 (7503) DO (302) NEXT
|
|
660 DO D DO DAH
|
|
661 (6503) PLEASE RESUME
|
|
662 "?'#15~"'?"',201SUB.511.512#7'~'#31$#0'"$#11'
|
|
663 ~"#0$#65535""'$#1"~#3
|
|
664 (5503) DO (6503) NEXT
|
|
665 DO FORGET #2
|
|
666 DO .311 <- ,201SUB.501.502#3
|
|
667 DO .312 <- ,201SUB.501.502#4
|
|
668 DO (301) NEXT
|
|
669 PLEASE STASH .311+.312
|
|
670 DO (304) NEXT
|
|
671 DO ,201SUB.311.312#7 <- #12$#0
|
|
672 DO .511 <- .311
|
|
673 DO .512 <- .312
|
|
674 PLEASE RETRIEVE .311+.312
|
|
675 DO ,201SUB.511.512#3 <- .311
|
|
676 DO ,201SUB.511.512#4 <- .312
|
|
677 DO .311 <- ,201SUB.501.502#5
|
|
678 DO .312 <- ,201SUB.501.502#6
|
|
679 PLEASE DO (301) NEXT
|
|
680 DO STASH .311+.312
|
|
681 DO .311 <- .501
|
|
682 DO .312 <- .502
|
|
683 PLEASE DO (302) NEXT
|
|
684 DO RETRIEVE .311+.312
|
|
685 DO .501 <- .311
|
|
686 DO .502 <- .312
|
|
687 DO (503) NEXT
|
|
688
|
|
689 PLEASE LEARN THE DIFFERENCE BETWEEN APPLYS AND ORANGUTANS
|
|
690 # Apply .311+.312 to .511+.512 with the current continuation .501+.502
|
|
691 PLEASE COME FROM (8503)
|
|
692 DO COME FROM (603)
|
|
693 (601) PLEASE DO (627) NEXT
|
|
694 DO (503) NEXT
|
|
695 PLEASE DON'T CLIMB INTO THE PIPES
|
|
696 (627) PLEASE DO (626) NEXT
|
|
697 DO .311 <- .511
|
|
698 DO .312 <- .512
|
|
699 PLEASE DO (3627) NEXT
|
|
700 DO STASH .311+.312
|
|
701 PLEASE DO (305) NEXT
|
|
702 DO .2 <- .601
|
|
703 DO (102) NEXT
|
|
704 DO ,201SUB.311.312#7 <- #13$.2
|
|
705 DO .511 <- .311
|
|
706 DO .512 <- .312
|
|
707 DO RETRIEVE .311+.312
|
|
708 PLEASE DO (603) NEXT
|
|
709 (3627) PLEASE DO (4627) NEXT
|
|
710 DO FORGET #1
|
|
711 DO .511 <- ,401SUB#8
|
|
712 DO .512 <- ,402SUB#8
|
|
713 PLEASE DO (603) NEXT
|
|
714 (4627) PLEASE RESUME '?.601$#512'~'#256$#256'
|
|
715 PLEASE WHAT DID YOU SAY?
|
|
716 (626) PLEASE DO (625) NEXT
|
|
717 DO .602 <- ',201SUB.311.312#7'~'#0$#255'
|
|
718 DO (302) NEXT
|
|
719 DO .311 <- .511
|
|
720 DO .312 <- .512
|
|
721 PLEASE DO (3626) NEXT
|
|
722 DO FORGET #1
|
|
723 DO .511 <- ,401SUB#7
|
|
724 DO .512 <- ,402SUB#7
|
|
725 PLEASE DO (603) NEXT
|
|
726 (3626) PLEASE DO (4626) NEXT
|
|
727 DO FORGET #2
|
|
728 DO .511 <- ,401SUB#8
|
|
729 DO .512 <- ,402SUB#8
|
|
730 PLEASE DO (603) NEXT
|
|
731 (4626) DO RESUME "?'#255~"'?.601$.602'~'#0$#255'"'$#2"~#3
|
|
732 DON'T FALL INTO THE WHIRLPOOL
|
|
733 (625) PLEASE DO (624) NEXT
|
|
734 DO .311 <- .511
|
|
735 DO .312 <- .512
|
|
736 DO (3625) NEXT
|
|
737 DO FORGET #2
|
|
738 DO .601 <- .101
|
|
739 DO .511 <- ,401SUB#7
|
|
740 DO .512 <- ,402SUB#7
|
|
741 PLEASE DO (603) NEXT
|
|
742 (3625) DO (3101) NEXT
|
|
743 PLEASE REINSTATE (3101)
|
|
744 DO FORGET #3
|
|
745 DO .601 <- #256
|
|
746 DO .511 <- ,401SUB#8
|
|
747 DO .512 <- ,402SUB#8
|
|
748 PLEASE DO (603) NEXT
|
|
749 DO YOU THINK THIS IS THE END?
|
|
750 (624) PLEASE DO (623) NEXT
|
|
751 DO RESUME #5
|
|
752 PLEASE STAY IN ONE SPOT SO I CAN HIT YOU
|
|
753 (623) PLEASE DO (622) NEXT
|
|
754 DO .2 <- ',201SUB.311.312#7'~'#0$#255'
|
|
755 DO (103) NEXT
|
|
756 DO (302) NEXT
|
|
757 DO RESUME #5
|
|
758 DON'T PROMISE WHAT YOU CAN'T KEEP
|
|
759 (622) PLEASE DO (621) NEXT
|
|
760 DO FORGET #6
|
|
761 DO STASH .311+.312
|
|
762 PLEASE DO (303) NEXT
|
|
763 DO ,201SUB.311.312#3 <- .511
|
|
764 DO ,201SUB.311.312#4 <- .512
|
|
765 DO ,201SUB.311.312#5 <- .501
|
|
766 DO ,201SUB.311.312#6 <- .502
|
|
767 DO ,201SUB.311.312#7 <- #1
|
|
768 DO .501 <- .311
|
|
769 DO .502 <- .312
|
|
770 PLEASE RETRIEVE .311+.312
|
|
771 DO STASH .311+.312
|
|
772 DO .1 <- ,201SUB.311.312#3
|
|
773 DO .312 <- ,201SUB.311.312#4
|
|
774 DO .311 <- .1
|
|
775 DO (301) NEXT
|
|
776 DO .511 <- .311
|
|
777 DO .512 <- .312
|
|
778 PLEASE RETRIEVE .311+.312
|
|
779 (3622) DO (302) NEXT
|
|
780 DO EXPECT SOME DELAY
|
|
781 (621) PLEASE DO (620) NEXT
|
|
782 DO RESUME #7
|
|
783 PLEASE CONTINUE, NOTHING TO SEE HERE...
|
|
784 (620) PLEASE DO (619) NEXT
|
|
785 DO STASH .311+.312
|
|
786 DO .311 <- .501
|
|
787 DO .312 <- .502
|
|
788 DO (302) NEXT
|
|
789 PLEASE RETRIEVE .311+.312
|
|
790 DO STASH .311+.312
|
|
791 DO .1 <- ,201SUB.311.312#3
|
|
792 DO .312 <- ,201SUB.311.312#4
|
|
793 DO .311 <- .1
|
|
794 DO (301) NEXT
|
|
795 PLEASE .501 <- .311
|
|
796 PLEASE .502 <- .312
|
|
797 PLEASE RETRIEVE .311+.312
|
|
798 DO (302) NEXT
|
|
799 DO RESUME #8
|
|
800 DO CALL ME ANY TIME
|
|
801 (619) PLEASE DO (618) NEXT
|
|
802 DO FORGET #8
|
|
803 DO .311 <- .511
|
|
804 DO .312 <- .512
|
|
805 DO STASH .311+.312
|
|
806 DO .311 <- .501
|
|
807 DO .312 <- .502
|
|
808 DO (301) NEXT
|
|
809 PLEASE DO (304) NEXT
|
|
810 DO ,201SUB.311.312#3 <- .501
|
|
811 DO ,201SUB.311.312#4 <- .502
|
|
812 DO ,201SUB.311.312#7 <- #10$#0
|
|
813 DO .511 <- .311
|
|
814 DO .512 <- .312
|
|
815 PLEASE RETRIEVE .311+.312
|
|
816 DO (603) NEXT
|
|
817 DON'T LOOK INTO THE ABYSS OR THE ABYSS LOOKS BACK INTO YOU
|
|
818 (618) PLEASE DO (617) NEXT
|
|
819 DO STASH .311+.312
|
|
820 DO .311 <- .511
|
|
821 DO .312 <- .512
|
|
822 DO (302) NEXT
|
|
823 PLEASE RETRIEVE .311+.312
|
|
824 DO .511 <- .311
|
|
825 DO .512 <- .312
|
|
826 DO RESUME #10
|
|
827 DOESN'T REALLY DO MUCH
|
|
828 (617) PLEASE DO (616) NEXT
|
|
829 DO RESUME #11
|
|
830 DO WATCH OUT FOR SUBSTITUTES
|
|
831 (616) PLEASE DO (615) NEXT
|
|
832 DO FORGET #11
|
|
833 DO STASH .311+.312+.511+.512
|
|
834 DO .311 <- .511
|
|
835 DO .312 <- .512
|
|
836 DO (301) NEXT
|
|
837 PLEASE DO (303) NEXT
|
|
838 DO ,201SUB.311.312#5 <- .501
|
|
839 DO ,201SUB.311.312#6 <- .502
|
|
840 DO ,201SUB.311.312#7 <- #1
|
|
841 DO .501 <- .311
|
|
842 DO .502 <- .312
|
|
843 PLEASE DO (303) NEXT
|
|
844 DO ,201SUB.311.312#5 <- .511
|
|
845 DO ,201SUB.311.312#6 <- .512
|
|
846 DO ,201SUB.311.312#7 <- #1$#0
|
|
847 DO ,201SUB.501.502#3 <- .311
|
|
848 DO ,201SUB.501.502#4 <- .312
|
|
849 DO .511 <- .311
|
|
850 DO .512 <- .312
|
|
851 PLEASE RETRIEVE .311+.312
|
|
852 DO STASH .311+.312
|
|
853 DO .1 <- ,201SUB.311.312#5
|
|
854 DO .312 <- ,201SUB.311.312#6
|
|
855 DO .311 <- .1
|
|
856 DO (301) NEXT
|
|
857 DO ,201SUB.511.512#3 <- .311
|
|
858 DO ,201SUB.511.512#4 <- .312
|
|
859 PLEASE RETRIEVE .311+.312
|
|
860 DO STASH .311+.312
|
|
861 DO .1 <- ,201SUB.311.312#3
|
|
862 DO .312 <- ,201SUB.311.312#4
|
|
863 DO .311 <- .1
|
|
864 PLEASE DO (301) NEXT
|
|
865 DO .511 <- .311
|
|
866 DO .512 <- .312
|
|
867 PLEASE RETRIEVE .311+.312
|
|
868 DO (302) NEXT
|
|
869 DO .311 <- .511
|
|
870 DO .312 <- .512
|
|
871 PLEASE RETRIEVE .511+.512
|
|
872 DO (603) NEXT
|
|
873 (615) PLEASE DO (614) NEXT
|
|
874 DO STASH .311+.312
|
|
875 DO (303) NEXT
|
|
876 DO ,201SUB.311.312#5 <- .511
|
|
877 DO ,201SUB.311.312#6 <- .512
|
|
878 DO ,201SUB.311.312#7 <- #6$#0
|
|
879 DO .511 <- .311
|
|
880 DO .512 <- .312
|
|
881 PLEASE RETRIEVE .311+.312
|
|
882 DO STASH .311+.312
|
|
883 DO .1 <- ,201SUB.311.312#3
|
|
884 DO .312 <- ,201SUB.311.312#4
|
|
885 DO .311 <- .1
|
|
886 PLEASE DO (301) NEXT
|
|
887 DO ,201SUB.511.512#3 <- .311
|
|
888 DO ,201SUB.511.512#4 <- .312
|
|
889 PLEASE RETRIEVE .311+.312
|
|
890 DO (302) NEXT
|
|
891 PLEASE RESUME #13
|
|
892 (614) PLEASE DO (613) NEXT
|
|
893 DO FORGET #13
|
|
894 DO .602 <- #5$#0
|
|
895 DO (602) NEXT
|
|
896 DON'T WORRY ABOUT THE CONSTANT NOISE
|
|
897 (613) PLEASE DO (612) NEXT
|
|
898 DO STASH .311+.312
|
|
899 DO .311 <- .511
|
|
900 DO .312 <- .512
|
|
901 DO (302) NEXT
|
|
902 PLEASE RETRIEVE .311+.312
|
|
903 DO STASH .311+.312
|
|
904 DO .1 <- ,201SUB.311.312#3
|
|
905 DO .312 <- ,201SUB.311.312#4
|
|
906 DO .311 <- .1
|
|
907 DO (301) NEXT
|
|
908 DO .511 <- .311
|
|
909 DO .512 <- .312
|
|
910 PLEASE RETRIEVE .311+.312
|
|
911 DO (302) NEXT
|
|
912 PLEASE RESUME #15
|
|
913 (612) PLEASE DO (611) NEXT
|
|
914 DO FORGET #15
|
|
915 DO .602 <- #3$#0
|
|
916 DO (602) NEXT
|
|
917 (611) PLEASE DO (610) NEXT
|
|
918 PLEASE HOW DID YOU GET HERE?
|
|
919 (610) PLEASE RESUME ',201SUB.311.312#7'~'#31$#0'
|
|
920 # Only for primitives!
|
|
921 (602) DO (304) NEXT
|
|
922 DO ,201SUB.311.312#3 <- .511
|
|
923 DO ,201SUB.311.312#4 <- .512
|
|
924 DO ,201SUB.311.312#7 <- .602
|
|
925 DO .511 <- .311
|
|
926 DO .512 <- .312
|
|
927 PLEASE RESUME #2
|
|
928 (603) PLEASE FORGET #2
|