![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to meander.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 meander.u1 CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples |
1.1 root 1: proc main
2: local 0,000020,line
3: local 1,000020,alpha
4: local 2,000020,n
5: local 3,000000,read
6: local 4,000000,tab
7: local 5,000000,upto
8: local 6,000000,move
9: local 7,000000,integer
10: local 8,000000,write
11: local 9,000000,meander
12: con 0,020000,1,072
13: con 1,002000,1
14: con 2,002000,0
15: con 3,010000,15,145,162,162,157,156,145,157,165,163,040,151,156,160,165,164
16: declend
17: file meander.icn
18: line 9
19: mark L1
20: lab L2
21: line 11
22: mark L0
23: pnull
24: var 0
25: var 3
26: pnull
27: invoke 1
28: asgn
29: unmark 1
30: mark L2
31: var 0
32: line 12
33: bscan
34: mark L5
35: pnull
36: var 1
37: var 4
38: var 5
39: cset 0
40: invoke 1
41: invoke 1
42: asgn
43: unmark 1
44: mark L7
45: var 6
46: int 1
47: line 13
48: invoke 1
49: unmark 1
50: lab L7
51: mark L8
52: pnull
53: var 2
54: var 7
55: var 4
56: int 2
57: line 14
58: invoke 1
59: invoke 1
60: asgn
61: unmark 1
62: var 8
63: var 9
64: var 1
65: var 2
66: invoke 2
67: invoke 1
68: goto L9
69: lab L8
70: var 8
71: str 3
72: line 15
73: invoke 1
74: lab L9
75: goto L6
76: lab L5
77: var 8
78: str 3
79: line 17
80: invoke 1
81: lab L6
82: line 12
83: escan
84: lab L3
85: unmark 1
86: goto L2
87: lab L4
88: unmark 1
89: lab L1
90: pnull
91: line 19
92: pfail
93: end
94: proc meander
95: local 0,001000,alpha
96: local 1,001000,n
97: local 2,000020,result
98: local 3,000020,t
99: local 4,000020,i
100: local 5,000020,c
101: local 6,000020,k
102: local 7,000000,repl
103: local 8,000000,find
104: con 0,002000,1
105: con 1,002000,0
106: declend
107: file meander.icn
108: line 21
109: mark L1
110: pnull
111: var 4
112: pnull
113: var 6
114: pnull
115: var 0
116: line 23
117: size
118: asgn
119: asgn
120: unmark 1
121: lab L1
122: mark L2
123: pnull
124: var 3
125: pnull
126: var 1
127: int 0
128: line 24
129: minus
130: asgn
131: unmark 1
132: lab L2
133: mark L3
134: pnull
135: var 2
136: var 7
137: pnull
138: var 0
139: int 0
140: line 25
141: subsc
142: var 3
143: invoke 2
144: asgn
145: unmark 1
146: lab L3
147: mark L4
148: lab L5
149: line 26
150: mark L0
151: pnull
152: var 5
153: pnull
154: var 0
155: var 4
156: subsc
157: asgn
158: unmark 1
159: mark L5
160: mark L8
161: var 8
162: pnull
163: pnull
164: var 2
165: pnull
166: var 3
167: line 27
168: neg
169: int 1
170: sect
171: var 5
172: cat
173: var 2
174: invoke 2
175: unmark 1
176: pnull
177: var 4
178: dup
179: int 0
180: line 28
181: minus
182: asgn
183: goto L9
184: lab L8
185: mark L10
186: pnull
187: var 2
188: dup
189: var 5
190: line 29
191: cat
192: asgn
193: unmark 1
194: lab L10
195: pnull
196: var 4
197: var 6
198: asgn
199: lab L9
200: lab L6
201: unmark 1
202: goto L5
203: lab L7
204: unmark 1
205: lab L4
206: mark L11
207: mark L12
208: var 2
209: line 31
210: pret
211: lab L12
212: line 31
213: pfail
214: unmark 1
215: lab L11
216: pnull
217: line 32
218: pfail
219: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.