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