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