![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pdco.u1 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples|
Return to pdco.u1 CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples |
1.1 root 1: proc main
2: local 0,000000,write
3: local 1,000000,Galt
4: local 2,000000,Seqimage
5: local 3,000000,star
6: local 4,000000,Limit
7: local 5,000000,Ranseq
8: con 0,002000,1
9: con 1,002000,10
10: con 2,010000,4,141,142,143,144
11: con 3,010000,3,141,142,143
12: con 4,002000,1000
13: con 5,002000,5
14: con 6,010000,3,055,055,055
15: con 7,002000,100
16: con 8,002000,3
17: con 9,010000,4,010,055,055,055
18: declend
19: file pdco.icn
20: line 9
21: mark L1
22: mark L0
23: var 0
24: var 1
25: pnull
26: goto L6
27: lab L4
28: pop
29: mark L5
30: pnull
31: int 0
32: int 1
33: push1
34: line 10
35: toby
36: incres
37: coret
38: efail
39: lab L5
40: line 10
41: cofail
42: goto L5
43: lab L6
44: line 10
45: create L4
46: goto L9
47: lab L7
48: pop
49: mark L8
50: pnull
51: str 2
52: bang
53: incres
54: coret
55: efail
56: lab L8
57: line 10
58: cofail
59: goto L8
60: lab L9
61: line 10
62: create L7
63: goto L12
64: lab L10
65: pop
66: mark L11
67: pnull
68: int 0
69: int 1
70: push1
71: toby
72: incres
73: coret
74: efail
75: lab L11
76: line 10
77: cofail
78: goto L11
79: lab L12
80: line 10
81: create L10
82: llist 3
83: invoke 1
84: invoke 1
85: pop
86: lab L2
87: efail
88: lab L3
89: unmark 1
90: lab L1
91: mark L13
92: var 0
93: var 2
94: pnull
95: goto L16
96: lab L14
97: pop
98: mark L15
99: int 1
100: line 11
101: limit
102: mark L0
103: var 3
104: str 3
105: invoke 1
106: lsusp
107: incres
108: coret
109: efail
110: lab L15
111: line 11
112: cofail
113: goto L15
114: lab L16
115: line 11
116: create L14
117: llist 1
118: invoke 1
119: invoke 1
120: unmark 1
121: lab L13
122: mark L17
123: var 0
124: var 2
125: pnull
126: goto L20
127: lab L18
128: pop
129: mark L19
130: pnull
131: int 0
132: int 4
133: push1
134: line 12
135: toby
136: incres
137: coret
138: efail
139: lab L19
140: line 12
141: cofail
142: goto L19
143: lab L20
144: line 12
145: create L18
146: goto L23
147: lab L21
148: pop
149: mark L22
150: int 5
151: incres
152: coret
153: efail
154: lab L22
155: line 12
156: cofail
157: goto L22
158: lab L23
159: line 12
160: create L21
161: llist 2
162: invoke 1
163: invoke 1
164: unmark 1
165: lab L17
166: mark L24
167: var 0
168: str 6
169: line 13
170: invoke 1
171: unmark 1
172: lab L24
173: mark L25
174: mark L0
175: var 0
176: var 4
177: pnull
178: goto L30
179: lab L28
180: pop
181: mark L29
182: pnull
183: int 0
184: int 7
185: push1
186: line 14
187: toby
188: incres
189: coret
190: efail
191: lab L29
192: line 14
193: cofail
194: goto L29
195: lab L30
196: line 14
197: create L28
198: goto L33
199: lab L31
200: pop
201: mark L32
202: int 8
203: incres
204: coret
205: efail
206: lab L32
207: line 14
208: cofail
209: goto L32
210: lab L33
211: line 14
212: create L31
213: llist 2
214: invoke 1
215: invoke 1
216: pop
217: lab L26
218: efail
219: lab L27
220: unmark 1
221: lab L25
222: mark L34
223: var 0
224: str 9
225: line 15
226: invoke 1
227: unmark 1
228: lab L34
229: mark L35
230: mark L0
231: var 0
232: var 5
233: pnull
234: goto L40
235: lab L38
236: pop
237: mark L39
238: pnull
239: str 2
240: line 16
241: bang
242: incres
243: coret
244: efail
245: lab L39
246: line 16
247: cofail
248: goto L39
249: lab L40
250: line 16
251: create L38
252: goto L43
253: lab L41
254: pop
255: mark L42
256: pnull
257: int 0
258: int 1
259: push1
260: toby
261: incres
262: coret
263: efail
264: lab L42
265: line 16
266: cofail
267: goto L42
268: lab L43
269: line 16
270: create L41
271: llist 2
272: invoke 1
273: invoke 1
274: pop
275: lab L36
276: efail
277: lab L37
278: unmark 1
279: lab L35
280: pnull
281: line 17
282: pfail
283: end
284: proc star
285: local 0,001000,s
286: local 1,000000,star
287: con 0,010000,0
288: declend
289: file pdco.icn
290: line 19
291: mark L1
292: mark L0
293: mark L2
294: str 0
295: esusp
296: goto L3
297: lab L2
298: pnull
299: var 1
300: var 0
301: line 20
302: invoke 1
303: pnull
304: var 0
305: bang
306: cat
307: lab L3
308: psusp
309: efail
310: unmark 1
311: lab L1
312: pnull
313: line 21
314: pfail
315: end
316: proc Galt
317: local 0,001000,a
318: local 1,000020,e
319: declend
320: file pdco.icn
321: line 23
322: mark L1
323: mark L0
324: pnull
325: var 1
326: pnull
327: var 0
328: line 25
329: bang
330: asgn
331: pop
332: mark L0
333: mark L0
334: lab L4
335: mark L0
336: pnull
337: var 1
338: coact
339: chfail L4
340: esusp
341: psusp
342: efail
343: unmark 1
344: lab L2
345: efail
346: lab L3
347: unmark 1
348: lab L1
349: pnull
350: line 26
351: pfail
352: end
353: proc Limit
354: local 0,001000,a
355: local 1,000020,i
356: local 2,000020,x
357: con 0,002000,2
358: con 1,002000,1
359: declend
360: file pdco.icn
361: line 28
362: mark L1
363: lab L2
364: line 30
365: mark L0
366: pnull
367: var 1
368: pnull
369: pnull
370: var 0
371: int 0
372: subsc
373: coact
374: asgn
375: unmark 1
376: mark L2
377: mark L5
378: pnull
379: pnull
380: var 0
381: int 1
382: line 31
383: subsc
384: pnull
385: pnull
386: var 0
387: int 1
388: subsc
389: refresh
390: asgn
391: unmark 1
392: lab L5
393: mark L0
394: pnull
395: int 1
396: var 1
397: push1
398: line 32
399: toby
400: pop
401: mark L0
402: mark L8
403: pnull
404: var 2
405: pnull
406: pnull
407: var 0
408: int 1
409: line 33
410: subsc
411: coact
412: asgn
413: unmark 1
414: mark L0
415: var 2
416: psusp
417: efail
418: goto L9
419: lab L8
420: unmark 2
421: pnull
422: goto L7
423: lab L9
424: unmark 1
425: lab L6
426: efail
427: lab L7
428: lab L3
429: unmark 1
430: goto L2
431: lab L4
432: unmark 1
433: lab L1
434: pnull
435: line 36
436: pfail
437: end
438: proc Ranseq
439: local 0,001000,a
440: local 1,000020,x
441: declend
442: file pdco.icn
443: line 38
444: mark L1
445: lab L2
446: line 40
447: mark L0
448: pnull
449: var 1
450: pnull
451: pnull
452: var 0
453: random
454: coact
455: asgn
456: unmark 1
457: mark L2
458: mark L0
459: var 1
460: psusp
461: efail
462: lab L3
463: unmark 1
464: goto L2
465: lab L4
466: unmark 1
467: lab L1
468: pnull
469: line 41
470: pfail
471: end
472: proc Seqimage
473: local 0,001000,a
474: local 1,000020,seq
475: local 2,000020,result
476: local 3,000020,i
477: local 4,000000,image
478: con 0,010000,0
479: con 1,002000,2
480: con 2,002000,1
481: con 3,010000,5,054,040,056,056,056
482: con 4,010000,2,054,040
483: con 5,010000,1,173
484: con 6,002000,3
485: con 7,002000,0
486: con 8,010000,1,175
487: con 9,010000,2,173,175
488: declend
489: file pdco.icn
490: line 43
491: mark L1
492: pnull
493: var 1
494: str 0
495: line 45
496: asgn
497: unmark 1
498: lab L1
499: mark L2
500: pnull
501: var 3
502: pnull
503: pnull
504: var 0
505: int 1
506: line 46
507: subsc
508: coact
509: asgn
510: unmark 1
511: lab L2
512: mark L3
513: lab L4
514: line 47
515: mark L0
516: pnull
517: var 2
518: var 4
519: pnull
520: pnull
521: var 0
522: int 2
523: subsc
524: coact
525: invoke 1
526: asgn
527: unmark 1
528: mark L4
529: mark L7
530: pnull
531: pnull
532: pnull
533: var 0
534: int 2
535: line 48
536: subsc
537: size
538: pnull
539: var 3
540: nonnull
541: numgt
542: unmark 1
543: mark L9
544: pnull
545: var 1
546: dup
547: str 3
548: line 49
549: cat
550: asgn
551: unmark 1
552: lab L9
553: unmark 1
554: pnull
555: goto L6
556: goto L8
557: lab L7
558: pnull
559: var 1
560: dup
561: pnull
562: str 4
563: var 2
564: line 52
565: cat
566: cat
567: asgn
568: lab L8
569: lab L5
570: unmark 1
571: goto L4
572: lab L6
573: unmark 1
574: lab L3
575: mark L10
576: mark L11
577: mark L12
578: pnull
579: pnull
580: str 5
581: pnull
582: var 1
583: int 6
584: int 7
585: line 53
586: sect
587: cat
588: str 8
589: cat
590: esusp
591: goto L13
592: lab L12
593: str 9
594: lab L13
595: pret
596: lab L11
597: line 53
598: pfail
599: unmark 1
600: lab L10
601: pnull
602: line 54
603: pfail
604: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.