|
|
1.1 root 1: /*
2: * Copyright (c) 1980 Regents of the University of California.
3: * All rights reserved. The Berkeley software License Agreement
4: * specifies the terms and conditions for redistribution.
5: */
6:
7: #ifndef lint
8: static char sccsid[] = "@(#)optab.c 5.2 (Berkeley) 9/30/87";
9: #endif not lint
10:
11: /*
12: * px opcode table
13: */
14:
15: #include "optab.h"
16:
17: OPTAB optab[] ={
18: { "badop0" },
19: { "nodump", PSUBOP, LWORD, HWORD, STRING },
20: #ifdef ADDR32
21: { "beg", PSUBOP, LWORD, LWORD, HWORD, LWORD, STRING },
22: #else
23: { "beg", PSUBOP, LWORD, LWORD, HWORD, HWORD, STRING },
24: #endif
25: { "end" },
26: { "call", DISP, ADDR4 },
27: { "fcall" },
28: { "frtn", PSUBOP },
29: { "fsav", SUBOP, LWORD },
30: { "sdup2" },
31: { "sdup4" },
32: { "tra", ADDR2 },
33: { "tra4", ADDR4 },
34: { "goto", DISP, ADDR4 },
35: { "lino", PSUBOP },
36: { "push", PSUBOP },
37: { "badop15" },
38: { "if", ADDR2 },
39: { "rel2", SUBOP },
40: { "rel4", SUBOP },
41: { "rel24", SUBOP },
42: { "rel42", SUBOP },
43: { "rel8", SUBOP },
44: { "relg", SUBOP, VLEN },
45: { "relt", SUBOP, VLEN },
46: { "rel28", SUBOP },
47: { "rel48", SUBOP },
48: { "rel82", SUBOP },
49: { "rel84", SUBOP },
50: { "and" },
51: { "or" },
52: { "not" },
53: { "badop31" },
54: { "as2" },
55: { "as4" },
56: { "as24" },
57: { "as42" },
58: { "as21" },
59: { "as41" },
60: { "as28" },
61: { "as48" },
62: { "as8" },
63: { "as" },
64: { "inx2p2", PSUBOP },
65: { "inx4p2", PSUBOP },
66: { "inx2", PSUBOP, HWORD, HWORD },
67: { "inx4", PSUBOP, HWORD, HWORD },
68: { "off", PSUBOP },
69: { "nil" },
70: { "add2" },
71: { "add4" },
72: { "add24" },
73: { "add42" },
74: { "add28" },
75: { "add48" },
76: { "add82" },
77: { "add84" },
78: { "sub2" },
79: { "sub4" },
80: { "sub24" },
81: { "sub42" },
82: { "sub28" },
83: { "sub48" },
84: { "sub82" },
85: { "sub84" },
86: { "mul2" },
87: { "mul4" },
88: { "mul24" },
89: { "mul42" },
90: { "mul28" },
91: { "mul48" },
92: { "mul82" },
93: { "mul84" },
94: { "abs2" },
95: { "abs4" },
96: { "abs8" },
97: { "badop75" },
98: { "neg2" },
99: { "neg4" },
100: { "neg8" },
101: { "badop79" },
102: { "div2" },
103: { "div4" },
104: { "div24" },
105: { "div42" },
106: { "mod2" },
107: { "mod4" },
108: { "mod24" },
109: { "mod42" },
110: { "add8" },
111: { "sub8" },
112: { "mul8" },
113: { "dvd8" },
114: { "stoi" },
115: { "stod" },
116: { "itod" },
117: { "itos" },
118: { "dvd2" },
119: { "dvd4" },
120: { "dvd24" },
121: { "dvd42" },
122: { "dvd28" },
123: { "dvd48" },
124: { "dvd82" },
125: { "dvd84" },
126: { "rv1", DISP, ADDR2 },
127: { "rv14", DISP, ADDR2 },
128: { "rv2", DISP, ADDR2 },
129: { "rv24", DISP, ADDR2 },
130: { "rv4", DISP, ADDR2 },
131: { "rv8", DISP, ADDR2 },
132: { "rv", PSUBOP, DISP, ADDR2 },
133: { "lv", DISP, HWORD },
134: { "lrv1", DISP, ADDR4 },
135: { "lrv14", DISP, ADDR4 },
136: { "lrv2", DISP, ADDR4 },
137: { "lrv24", DISP, ADDR4 },
138: { "lrv4", DISP, ADDR4 },
139: { "lrv8", DISP, ADDR4 },
140: { "lrv", PSUBOP, DISP, ADDR4 },
141: { "llv", DISP, ADDR4 },
142: { "ind1" },
143: { "ind14" },
144: { "ind2" },
145: { "ind24" },
146: { "ind4" },
147: { "ind8" },
148: { "ind" },
149: { "badop127" },
150: { "con1", SUBOP },
151: { "con14", SUBOP },
152: { "con2", HWORD },
153: { "con24", HWORD },
154: { "con4", LWORD },
155: { "con8", LWORD, LWORD },
156: { "con", HWORD },
157: { "lvcon", PSUBOP, STRING },
158: { "rang2", HWORD, HWORD },
159: { "rang42", HWORD, HWORD },
160: { "rsng2", HWORD },
161: { "rsng42", HWORD },
162: { "rang4", LWORD, LWORD },
163: { "rang24", LWORD, LWORD },
164: { "rsng4", LWORD },
165: { "rsng24", LWORD },
166: { "stlim" },
167: { "llimit" },
168: { "buff", PSUBOP },
169: { "halt" },
170: { "badop148" },
171: { "badop149" },
172: { "badop150" },
173: { "badop151" },
174: { "*ord2" },
175: { "*cong" },
176: { "*conc" },
177: { "*conc4" },
178: { "*abort" },
179: { "pxpbuf", HWORD },
180: { "count", HWORD },
181: { "badop159" },
182: { "case1op", HWORD },
183: { "case2op", HWORD },
184: { "case4op", HWORD },
185: { "*casebeg" },
186: { "*case1" },
187: { "*case2" },
188: { "*case4" },
189: { "*caseend" },
190: { "addt" },
191: { "subt" },
192: { "mult" },
193: { "inct" },
194: { "cttot", PSUBOP, HWORD, HWORD },
195: { "card", PSUBOP },
196: { "in", PSUBOP, HWORD, HWORD },
197: { "asrt" },
198: { "for1u", HWORD, HWORD, ADDR2 },
199: { "for2u", HWORD, HWORD, ADDR2 },
200: { "for4u", LWORD, LWORD, ADDR2 },
201: { "for1d", HWORD, HWORD, ADDR2 },
202: { "for2d", HWORD, HWORD, ADDR2 },
203: { "for4d", LWORD, LWORD, ADDR2 },
204: { "badop182" },
205: { "badop183" },
206: { "reade", ADDR4 },
207: { "read4" },
208: { "readc" },
209: { "read8" },
210: { "readln" },
211: { "eof" },
212: { "eoln" },
213: { "badop191" },
214: { "writec" },
215: { "writes" },
216: { "writef", PSUBOP },
217: { "writln" },
218: { "page" },
219: { "nam", ADDR4 },
220: { "max", PSUBOP, HWORD },
221: { "min", PSUBOP },
222: { "unit" },
223: { "unitinp" },
224: { "unitout" },
225: { "message" },
226: { "get" },
227: { "put" },
228: { "fnil" },
229: { "badop207" },
230: { "defname" },
231: { "reset" },
232: { "rewrite" },
233: { "file" },
234: { "remove" },
235: { "flush" },
236: { "badop214" },
237: { "badop215" },
238: { "pack", PSUBOP, HWORD, HWORD, HWORD },
239: { "unpack", PSUBOP, HWORD, HWORD, HWORD },
240: { "new", PSUBOP },
241: { "dispose", PSUBOP },
242: { "dfdisp", PSUBOP },
243: { "argc" },
244: { "argv", PSUBOP },
245: { "badop223" },
246: { "clck" },
247: { "wclck" },
248: { "sclck" },
249: { "date" },
250: { "time" },
251: { "undef" },
252: { "badop230" },
253: { "badop231" },
254: { "atan" },
255: { "cos" },
256: { "exp" },
257: { "ln" },
258: { "sin" },
259: { "sqrt" },
260: { "chr2" },
261: { "chr4" },
262: { "odd2" },
263: { "odd4" },
264: { "pred2", HWORD, HWORD },
265: { "pred4", LWORD, LWORD },
266: { "pred24", HWORD, HWORD },
267: { "succ2", HWORD, HWORD },
268: { "succ4", LWORD, LWORD },
269: { "succ24", HWORD, HWORD },
270: { "seed" },
271: { "random" },
272: { "expo" },
273: { "sqr2" },
274: { "sqr4" },
275: { "sqr8" },
276: { "round" },
277: { "trunc" },
278: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.