|
|
1.1 root 1: proc expressions
2: local 0,000020,x
3: local 1,000020,y
4: local 2,000020,z
5: local 3,000040,e1
6: local 4,000000,i
7: local 5,000000,j
8: local 6,000000,c1
9: local 7,000000,c2
10: local 8,000000,s1
11: local 9,000000,s2
12: local 10,000000,a1
13: local 11,000000,a2
14: local 12,000000,k
15: local 13,000000,s
16: local 14,000000,e2
17: local 15,000000,e
18: local 16,000000,size
19: local 17,000000,e3
20: local 18,000000,X_
21: con 0,002000,0
22: con 1,002000,1
23: con 2,010000,3,141,142,143
24: con 3,020000,3,141,142,143
25: con 4,010000,1,012
26: con 5,010000,2,136,141
27: con 6,010000,1,001
28: con 7,002000,999999
29: con 8,002000,36ra1
30: con 9,004000,3.5
31: con 10,004000,2.5e4
32: con 11,004000,4e-10
33: declend
34: file proto.icn
35: line 9
36: init? L1
37: mark L1
38: pnull
39: var 3
40: int 0
41: line 12
42: asgn
43: unmark 1
44: lab L1
45: mark L2
46: pnull
47: unmark 1
48: lab L2
49: mark L3
50: pnull
51: unmark 1
52: lab L3
53: mark L4
54: pnull
55: unmark 1
56: lab L4
57: mark L5
58: pnull
59: unmark 1
60: lab L5
61: mark L6
62: pnull
63: line 16
64: llist 0
65: unmark 1
66: lab L6
67: mark L7
68: pnull
69: pnull
70: pnull
71: line 17
72: llist 2
73: unmark 1
74: lab L7
75: mark L8
76: pnull
77: var 0
78: line 18
79: field y
80: unmark 1
81: lab L8
82: mark L9
83: pnull
84: var 0
85: var 4
86: line 19
87: subsc
88: unmark 1
89: lab L9
90: mark L10
91: pnull
92: var 0
93: var 4
94: var 5
95: line 20
96: sect
97: unmark 1
98: lab L10
99: mark L11
100: pnull
101: var 0
102: var 4
103: dup
104: var 5
105: line 21
106: plus
107: sect
108: unmark 1
109: lab L11
110: mark L12
111: pnull
112: var 0
113: var 4
114: dup
115: var 5
116: line 22
117: minus
118: sect
119: unmark 1
120: lab L12
121: mark L13
122: pushn1
123: pnull
124: pnull
125: pnull
126: pnull
127: line 23
128: invoke 4
129: unmark 1
130: lab L13
131: mark L14
132: var 0
133: pnull
134: pnull
135: pnull
136: pnull
137: line 24
138: invoke 4
139: unmark 1
140: lab L14
141: mark L15
142: mark L16
143: var 0
144: unmark 1
145: efail
146: lab L16
147: pnull
148: unmark 1
149: lab L15
150: mark L17
151: lab L18
152: mark L0
153: var 0
154: chfail L18
155: esusp
156: unmark 1
157: lab L17
158: mark L19
159: pnull
160: var 0
161: line 27
162: bang
163: unmark 1
164: lab L19
165: mark L20
166: pnull
167: var 0
168: line 28
169: size
170: unmark 1
171: lab L20
172: mark L21
173: pnull
174: var 0
175: line 29
176: number
177: unmark 1
178: lab L21
179: mark L22
180: pnull
181: var 0
182: line 30
183: neg
184: unmark 1
185: lab L22
186: mark L23
187: pnull
188: var 0
189: line 31
190: value
191: unmark 1
192: lab L23
193: mark L24
194: pnull
195: var 0
196: line 32
197: null
198: unmark 1
199: lab L24
200: mark L25
201: pnull
202: var 0
203: line 33
204: tabmat
205: unmark 1
206: lab L25
207: mark L26
208: pnull
209: var 0
210: line 34
211: random
212: unmark 1
213: lab L26
214: mark L27
215: pnull
216: var 0
217: line 35
218: nonnull
219: unmark 1
220: lab L27
221: mark L28
222: pnull
223: var 0
224: line 36
225: compl
226: unmark 1
227: lab L28
228: mark L29
229: pnull
230: var 0
231: line 37
232: coact
233: unmark 1
234: lab L29
235: mark L30
236: pnull
237: var 0
238: line 38
239: refresh
240: unmark 1
241: lab L30
242: mark L31
243: var 4
244: line 39
245: limit
246: mark L0
247: var 0
248: lsusp
249: unmark 1
250: lab L31
251: mark L32
252: var 0
253: var 1
254: line 40
255: coact
256: unmark 1
257: lab L32
258: mark L33
259: pnull
260: var 4
261: var 5
262: line 41
263: power
264: unmark 1
265: lab L33
266: mark L34
267: pnull
268: var 4
269: var 5
270: line 42
271: mult
272: unmark 1
273: lab L34
274: mark L35
275: pnull
276: var 4
277: var 5
278: line 43
279: div
280: unmark 1
281: lab L35
282: mark L36
283: pnull
284: var 4
285: var 5
286: line 44
287: mod
288: unmark 1
289: lab L36
290: mark L37
291: pnull
292: var 6
293: var 7
294: line 45
295: inter
296: unmark 1
297: lab L37
298: mark L38
299: pnull
300: var 4
301: var 5
302: line 46
303: plus
304: unmark 1
305: lab L38
306: mark L39
307: pnull
308: var 4
309: var 5
310: line 47
311: minus
312: unmark 1
313: lab L39
314: mark L40
315: pnull
316: var 6
317: var 7
318: line 48
319: unioncs
320: unmark 1
321: lab L40
322: mark L41
323: pnull
324: var 6
325: var 7
326: line 49
327: diff
328: unmark 1
329: lab L41
330: mark L42
331: pnull
332: var 8
333: var 9
334: line 50
335: cat
336: unmark 1
337: lab L42
338: mark L43
339: pnull
340: var 10
341: var 11
342: line 51
343: lconcat
344: unmark 1
345: lab L43
346: mark L44
347: pnull
348: var 4
349: var 5
350: line 52
351: numlt
352: unmark 1
353: lab L44
354: mark L45
355: pnull
356: var 4
357: var 5
358: line 53
359: numle
360: unmark 1
361: lab L45
362: mark L46
363: pnull
364: var 4
365: var 5
366: line 54
367: numeq
368: unmark 1
369: lab L46
370: mark L47
371: pnull
372: var 4
373: var 5
374: line 55
375: numge
376: unmark 1
377: lab L47
378: mark L48
379: pnull
380: var 4
381: var 5
382: line 56
383: numgt
384: unmark 1
385: lab L48
386: mark L49
387: pnull
388: var 4
389: var 5
390: line 57
391: numne
392: unmark 1
393: lab L49
394: mark L50
395: pnull
396: var 8
397: var 9
398: line 58
399: lexlt
400: unmark 1
401: lab L50
402: mark L51
403: pnull
404: var 8
405: var 9
406: line 59
407: lexeq
408: unmark 1
409: lab L51
410: mark L52
411: pnull
412: var 8
413: var 9
414: line 60
415: lexge
416: unmark 1
417: lab L52
418: mark L53
419: pnull
420: var 8
421: var 9
422: line 61
423: lexgt
424: unmark 1
425: lab L53
426: mark L54
427: pnull
428: var 8
429: var 9
430: line 62
431: lexne
432: unmark 1
433: lab L54
434: mark L55
435: pnull
436: var 0
437: var 1
438: line 63
439: eqv
440: unmark 1
441: lab L55
442: mark L56
443: pnull
444: var 0
445: var 1
446: line 64
447: neqv
448: unmark 1
449: lab L56
450: mark L57
451: mark L58
452: var 0
453: esusp
454: goto L59
455: lab L58
456: var 1
457: lab L59
458: unmark 1
459: lab L57
460: mark L60
461: pnull
462: var 4
463: var 5
464: push1
465: line 66
466: toby
467: unmark 1
468: lab L60
469: mark L61
470: pnull
471: var 4
472: var 5
473: var 12
474: line 67
475: toby
476: unmark 1
477: lab L61
478: mark L62
479: pnull
480: var 0
481: var 1
482: line 68
483: asgn
484: unmark 1
485: lab L62
486: mark L63
487: pnull
488: var 0
489: var 1
490: line 69
491: rasgn
492: unmark 1
493: lab L63
494: mark L64
495: pnull
496: var 0
497: var 1
498: line 70
499: swap
500: unmark 1
501: lab L64
502: mark L65
503: pnull
504: var 0
505: var 1
506: line 71
507: rswap
508: unmark 1
509: lab L65
510: mark L66
511: pnull
512: var 4
513: dup
514: var 5
515: line 72
516: plus
517: asgn
518: unmark 1
519: lab L66
520: mark L67
521: pnull
522: var 4
523: dup
524: var 5
525: line 73
526: minus
527: asgn
528: unmark 1
529: lab L67
530: mark L68
531: pnull
532: var 4
533: dup
534: var 5
535: line 74
536: mult
537: asgn
538: unmark 1
539: lab L68
540: mark L69
541: pnull
542: var 4
543: dup
544: var 5
545: line 75
546: div
547: asgn
548: unmark 1
549: lab L69
550: mark L70
551: pnull
552: var 4
553: dup
554: var 5
555: line 76
556: mod
557: asgn
558: unmark 1
559: lab L70
560: mark L71
561: pnull
562: var 4
563: dup
564: var 5
565: line 77
566: power
567: asgn
568: unmark 1
569: lab L71
570: mark L72
571: pnull
572: var 4
573: dup
574: var 5
575: line 78
576: numlt
577: asgn
578: unmark 1
579: lab L72
580: mark L73
581: pnull
582: var 4
583: dup
584: var 5
585: line 79
586: numle
587: asgn
588: unmark 1
589: lab L73
590: mark L74
591: pnull
592: var 4
593: dup
594: var 5
595: line 80
596: numeq
597: asgn
598: unmark 1
599: lab L74
600: mark L75
601: pnull
602: var 4
603: dup
604: var 5
605: line 81
606: numge
607: asgn
608: unmark 1
609: lab L75
610: mark L76
611: pnull
612: var 4
613: dup
614: var 5
615: line 82
616: numne
617: asgn
618: unmark 1
619: lab L76
620: mark L77
621: pnull
622: var 6
623: dup
624: var 7
625: line 83
626: unioncs
627: asgn
628: unmark 1
629: lab L77
630: mark L78
631: pnull
632: var 6
633: dup
634: var 7
635: line 84
636: diff
637: asgn
638: unmark 1
639: lab L78
640: mark L79
641: pnull
642: var 6
643: dup
644: var 7
645: line 85
646: inter
647: asgn
648: unmark 1
649: lab L79
650: mark L80
651: pnull
652: var 8
653: dup
654: var 9
655: line 86
656: cat
657: asgn
658: unmark 1
659: lab L80
660: mark L81
661: pnull
662: var 8
663: dup
664: var 9
665: line 87
666: lexlt
667: asgn
668: unmark 1
669: lab L81
670: mark L82
671: pnull
672: var 8
673: dup
674: var 9
675: line 88
676: lexle
677: asgn
678: unmark 1
679: lab L82
680: mark L83
681: pnull
682: var 8
683: dup
684: var 9
685: line 89
686: lexeq
687: asgn
688: unmark 1
689: lab L83
690: mark L84
691: pnull
692: var 8
693: dup
694: var 9
695: line 90
696: lexge
697: asgn
698: unmark 1
699: lab L84
700: mark L85
701: pnull
702: var 8
703: dup
704: var 9
705: line 91
706: lexgt
707: asgn
708: unmark 1
709: lab L85
710: mark L86
711: pnull
712: var 8
713: dup
714: var 9
715: line 92
716: lexne
717: asgn
718: unmark 1
719: lab L86
720: mark L87
721: pnull
722: var 8
723: sdup
724: line 93
725: bscan
726: var 9
727: escan
728: asgn
729: unmark 1
730: lab L87
731: mark L88
732: pnull
733: var 10
734: dup
735: var 11
736: line 94
737: lconcat
738: asgn
739: unmark 1
740: lab L88
741: mark L89
742: pnull
743: var 0
744: dup
745: var 1
746: line 95
747: eqv
748: asgn
749: unmark 1
750: lab L89
751: mark L90
752: pnull
753: var 0
754: dup
755: var 1
756: line 96
757: neqv
758: asgn
759: unmark 1
760: lab L90
761: mark L91
762: pnull
763: var 0
764: var 1
765: asgn
766: unmark 1
767: lab L91
768: mark L92
769: pnull
770: var 0
771: sdup
772: var 1
773: line 98
774: coact
775: asgn
776: unmark 1
777: lab L92
778: mark L93
779: var 13
780: line 99
781: bscan
782: var 0
783: escan
784: unmark 1
785: lab L93
786: mark L94
787: var 0
788: pop
789: var 1
790: unmark 1
791: lab L94
792: mark L95
793: goto L98
794: lab L96
795: pop
796: mark L97
797: var 0
798: incres
799: line 101
800: coret
801: efail
802: lab L97
803: line 101
804: cofail
805: goto L97
806: lab L98
807: line 101
808: create L96
809: unmark 1
810: lab L95
811: mark L99
812: mark L100
813: pnull
814: line 102
815: pret
816: lab L100
817: line 102
818: pfail
819: unmark 1
820: lab L99
821: mark L101
822: mark L102
823: var 0
824: line 103
825: pret
826: lab L102
827: line 103
828: pfail
829: unmark 1
830: lab L101
831: mark L103
832: mark L0
833: var 0
834: line 104
835: psusp
836: efail
837: unmark 1
838: lab L103
839: mark L104
840: line 105
841: pfail
842: unmark 1
843: lab L104
844: mark L105
845: lab L106
846: line 106
847: mark L0
848: var 3
849: unmark 1
850: mark L106
851: unmark 1
852: pnull
853: goto L108
854: lab L107
855: unmark 1
856: goto L106
857: lab L108
858: unmark 1
859: lab L105
860: mark L109
861: lab L110
862: line 107
863: mark L0
864: var 3
865: unmark 1
866: mark L110
867: unmark 1
868: var 14
869: goto L112
870: lab L111
871: unmark 1
872: goto L110
873: lab L112
874: unmark 1
875: lab L109
876: mark L113
877: lab L114
878: line 108
879: mark L0
880: var 3
881: unmark 1
882: mark L114
883: goto L115
884: lab L115
885: unmark 1
886: goto L114
887: lab L116
888: unmark 1
889: lab L113
890: mark L117
891: mark L0
892: var 15
893: eret
894: mark L119
895: ccase
896: var 0
897: line 110
898: eqv
899: unmark 1
900: pop
901: line 110
902: pfail
903: goto L118
904: lab L119
905: mark L120
906: ccase
907: mark L121
908: pnull
909: var 4
910: var 5
911: line 111
912: numgt
913: esusp
914: goto L122
915: lab L121
916: int 1
917: lab L122
918: eqv
919: unmark 1
920: pop
921: mark L123
922: pnull
923: pret
924: lab L123
925: line 111
926: pfail
927: goto L118
928: lab L120
929: efail
930: lab L118
931: unmark 1
932: lab L117
933: mark L124
934: mark L0
935: var 16
936: var 13
937: line 113
938: invoke 1
939: eret
940: mark L126
941: ccase
942: int 1
943: line 114
944: eqv
945: unmark 1
946: pop
947: int 1
948: goto L125
949: lab L126
950: pop
951: line 115
952: pfail
953: lab L125
954: unmark 1
955: lab L124
956: mark L127
957: mark L0
958: var 3
959: unmark 1
960: var 14
961: unmark 1
962: lab L127
963: mark L128
964: mark L129
965: var 3
966: unmark 1
967: var 14
968: goto L130
969: lab L129
970: var 17
971: lab L130
972: unmark 1
973: lab L128
974: mark L131
975: lab L132
976: line 119
977: mark L132
978: var 15
979: lab L133
980: unmark 1
981: goto L132
982: lab L134
983: unmark 1
984: lab L131
985: mark L135
986: lab L136
987: line 120
988: mark L0
989: var 3
990: lab L137
991: unmark 1
992: goto L136
993: lab L138
994: unmark 1
995: lab L135
996: mark L139
997: lab L140
998: line 121
999: mark L0
1000: var 3
1001: unmark 1
1002: mark L140
1003: var 14
1004: lab L141
1005: unmark 1
1006: goto L140
1007: lab L142
1008: unmark 1
1009: lab L139
1010: mark L143
1011: lab L144
1012: line 122
1013: mark L145
1014: var 3
1015: unmark 1
1016: efail
1017: lab L145
1018: mark L144
1019: pnull
1020: lab L146
1021: unmark 1
1022: goto L144
1023: lab L147
1024: unmark 1
1025: lab L143
1026: mark L148
1027: lab L149
1028: line 123
1029: mark L150
1030: var 3
1031: unmark 1
1032: efail
1033: lab L150
1034: mark L149
1035: var 14
1036: lab L151
1037: unmark 1
1038: goto L149
1039: lab L152
1040: unmark 1
1041: lab L148
1042: mark L153
1043: mark L0
1044: var 3
1045: pop
1046: lab L154
1047: efail
1048: lab L155
1049: unmark 1
1050: lab L153
1051: mark L156
1052: mark L0
1053: var 3
1054: pop
1055: mark L0
1056: var 14
1057: unmark 1
1058: lab L157
1059: efail
1060: lab L158
1061: unmark 1
1062: lab L156
1063: mark L159
1064: var 0
1065: unmark 1
1066: lab L159
1067: mark L160
1068: var 18
1069: unmark 1
1070: lab L160
1071: mark L161
1072: line 128
1073: keywd 3
1074: unmark 1
1075: lab L161
1076: mark L162
1077: line 129
1078: keywd 13
1079: unmark 1
1080: lab L162
1081: mark L163
1082: str 2
1083: unmark 1
1084: lab L163
1085: mark L164
1086: cset 3
1087: unmark 1
1088: lab L164
1089: mark L165
1090: str 4
1091: unmark 1
1092: lab L165
1093: mark L166
1094: str 5
1095: unmark 1
1096: lab L166
1097: mark L167
1098: str 6
1099: unmark 1
1100: lab L167
1101: mark L168
1102: str 6
1103: unmark 1
1104: lab L168
1105: mark L169
1106: int 1
1107: unmark 1
1108: lab L169
1109: mark L170
1110: int 7
1111: unmark 1
1112: lab L170
1113: mark L171
1114: int 8
1115: unmark 1
1116: lab L171
1117: mark L172
1118: real 9
1119: unmark 1
1120: lab L172
1121: mark L173
1122: real 10
1123: unmark 1
1124: lab L173
1125: mark L174
1126: real 11
1127: unmark 1
1128: lab L174
1129: pnull
1130: line 142
1131: pfail
1132: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.