![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to y_tab.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / b / bin / as|
Return to y_tab.c CVS log | Up to [MW Coherent from dump] / coherent / b / bin / as |
1.1 root 1:
2: #line 1 "asm.y"
3:
4: #include <asm.h>
5: /*
6: * count macro parms.
7: */
8: static
9: parmCt()
10: {
11: if(NULL == trueMac) {
12: yyerror(".parmct not in macro");
13: /* \fB.parmct\fR returns the number of
14: * parameters in the current macro. */
15: return(0);
16: }
17: else
18: return(countList(trueMac->parms));
19: }
20:
21: /*
22: * Verify that 2 symbols have the same segment.
23: */
24: static void
25: ckseg(s1, s2)
26: sym *s1, *s2;
27: {
28: if(s1->sg != s2->sg)
29: yyerror("Arithmetic between addresses on different segments");
30: /* You may only add or subtract addresses if they
31: * are in the same segment. */
32: }
33:
34: /*
35: * Create Immediate exps.
36: */
37: static expr *
38: setImm(val, symRef)
39: long val;
40: sym *symRef;
41: {
42: register expr *oper;
43: register short w;
44:
45: oper = xalloc();
46: oper->mode = T_IMM;
47: if (NULL != (oper->ref = symRef))
48: oper->ref = symRef->ref;
49: w = oper->exp = val;
50: if(w == val)
51: oper->size = 2;
52: else
53: oper->size = 4;
54: return(oper);
55: }
56:
57: /*
58: * Set up for most addressing modes.
59: */
60: static expr *
61: qbild(val, mode, r1, r2, scale, symRef)
62: long val;
63: int mode;
64: psym *r1, *r2;
65: long scale;
66: sym *symRef;
67: {
68: register expr *oper;
69: char i;
70:
71: if (NULL != r1 && T_R != mode) {
72: switch((int)r1->size) {
73: case 2:
74: lflags |= A_SHORT;
75: if (!scale)
76: break;
77: case 1:
78: regerror(r1);
79: break;
80: case 4:
81: lflags |= A_LONG;
82: break;
83: }
84:
85: if (ORD_REG != r1->flag) /* cant ind via ctl regs */
86: regerror(r1);
87:
88: if (NULL != r2) {
89: if (ORD_REG != r2->flag)
90: regerror(r2);
91: if (r1->size != r2->size)
92: yyerror("Mixed length addressing registers");
93: /* Addressing registers must both be the same length. */
94: }
95: }
96: else if ((T_R == mode) && (r1->flag == ORD_REG)) {
97: switch ((int)r1->size) {
98: case 4:
99: lflags |= O_LONG;
100: break;
101: case 2:
102: lflags |= O_SHORT;
103: }
104: }
105:
106: oper = xalloc();
107: oper->exp = val;
108: oper->r1 = r1;
109: oper->r2 = r2;
110: oper->mode = mode;
111:
112: i = scale;
113: if (i != scale)
114: i = 3; /* set a bad scale */
115:
116: switch (i) {
117: case 0:
118: case 1: /* for generated code */
119: oper->scale = 0; break;
120: case 2:
121: oper->scale = 1; break;
122: case 4:
123: oper->scale = 2; break;
124: case 8:
125: oper->scale = 3; break;
126: default:
127: yyerror("Bad scale");
128: /* Address scale must be 0, 1, 2, 4, or 8. */
129: }
130:
131: if (NULL != (oper->ref = symRef))
132: oper->ref = symRef->ref;
133: return(oper);
134: }
135:
136: /*
137: * Floating point register expr.
138: */
139: static expr *
140: fbild(regno)
141: long regno;
142: {
143: register expr *oper;
144:
145: if (regno < 0 || regno > 7) {
146: regno &= 7;
147: yyerror("Invalid floating point register number"); /**/
148: }
149:
150: oper = xalloc();
151: oper->exp = regno;
152: oper->mode = T_FP;
153: return (oper);
154: }
155:
156: /*
157: * Report register error.
158: */
159: regerror(rg)
160: psym *rg;
161: {
162: yyerror("%s is an improper register in this context", rg->name); /**/
163: }
164:
165: /*
166: * Concatinate strings.
167: */
168: static char *
169: concat(s1, s2)
170: char *s1, *s2;
171: {
172: long l;
173: unsigned short u;
174: char *res;
175:
176: u = l = (long)strlen(s1) + (long)strlen(s2) + 1;
177: if(u != l) {
178: yyerror("Length %ld string range exceeded", l);
179: /* Strings may not exceed 32 kilobytes. */
180: return(galloc(1));
181: }
182: res = galloc(u);
183: sprintf(res, "%s%s", s1, s2);
184: return(res);
185: }
186:
187: /*
188: * Substring.
189: * Assumes that all strings are created from unsigned lengths.
190: */
191: static char *
192: substr(s, from, len)
193: char *s;
194: long from, len;
195: {
196: register char *p, *res;
197: unsigned short l;
198:
199: l = strlen(s);
200: s += from;
201: from = l - from; /* from now len to end */
202:
203: if(len > from)
204: len = from; /* since strlen fit unsigned len must */
205: if(len < 0)
206: len = 0;
207:
208: for(p = res = galloc((unsigned)(len + 1)); len--; )
209: *p++ = *s++;
210: return(res);
211: }
212:
213: /*
214: * String search.
215: */
216: static
217: stringSearch(s1, s2)
218: char *s1, *s2;
219: {
220: char *p;
221:
222: if(NULL == (p = strstr(s1, s2)))
223: return(-1);
224: return(p - s1);
225: }
226:
227: /*
228: * Do long comparisons.
229: * < > <= >= != == compare operator
230: * 1 2 5 6 3 4 t
231: */
232: static
233: compare(t, v)
234: int t;
235: long v;
236: {
237: return(((v < 0) ? t : (v > 0) ? (t >> 1) : (t >> 2)) & 1);
238: }
239:
240: /*
241: * Do double comparisons.
242: * < > <= >= != == compare operator
243: * 1 2 5 6 3 4 t
244: */
245: static
246: fcompare(t, v)
247: int t;
248: double v;
249: {
250: return(((v < 0.0) ? t : (v > 0.0) ? (t >> 1) : (t >> 2)) & 1);
251: }
252:
253: static void
254: unmatched(c)
255: {
256: yyerror("Unmatched '%c'", c);
257: /* A delimeter, [, (, ), or ] is unmatched in this command. */
258: }
259:
260:
261: #include "y_tab.h"
262: #define YYCLEARIN yychar = -1000
263: #define YYERROK yyerrflag = 0
264: extern int yychar;
265: extern short yyerrflag;
266: #ifndef YYMAXDEPTH
267: #define YYMAXDEPTH 150
268: #endif
269: YYSTYPE yyval, yylval;
270: #ifdef YYTNAMES
271: struct yytname yytnames[50] =
272: {
273: "$end", -1,
274: "error", -2,
275: "PC", 256,
276: "NUMBER", 257,
277: "FNUM", 258,
278: "COMPARISON", 312,
279: "OP", 260,
280: "DATA", 261,
281: "CMD", 262,
282: "DCMD", 263,
283: "ICMD", 264,
284: "NCMD", 265,
285: "ECMD", 266,
286: "ECMDX", 267,
287: "IDENTIFIER", 268,
288: "REG", 269,
289: "DEFINED", 320,
290: "SIZEOF", 321,
291: "SEGMENT", 322,
292: "LOCATION", 323,
293: "PLUS", 315,
294: "MINUS", 316,
295: "TIMES", 317,
296: "DIVIDE", 318,
297: "REM", 319,
298: "LSHIFT", 313,
299: "RSHIFT", 314,
300: "AND", 311,
301: "OR", 309,
302: "XOR", 310,
303: "COMMA", 305,
304: "LPAREN", 328,
305: "RPAREN", 286,
306: "LBRACK", 329,
307: "RBRACK", 288,
308: "AT", 307,
309: "D_SIGN", 290,
310: "NOT", 324,
311: "BANG", 326,
312: "COLON", 306,
313: "PARMCT", 294,
314: "TOSTRING", 330,
315: "TONUMBER", 331,
316: "TOFLOAT", 332,
317: "FSTACK", 298,
318: "NL", 333,
319: "TOKEN", 327,
320: "P_SIGN", 308,
321: "LEN", 325,
322: NULL
323: } ;
324: #endif
325: #define YYACTSH 13
326: #define YYAMASK 017777
327: #define YYSHIFTACT 0
328: #define YYREDACT 1
329: #define YYACCEPTACT 2
330: #define YYERRACT 3
331: #define YYGOTO 4
332: #define YYPACTION 5
333: #define YYEOFVAL (-1)
334: #define YYERRVAL (-2)
335: #define YYOTHERS (-1000)
336:
337: unsigned char yypdnt[108] = {
338: 0, 1, 1, 2, 2, 2, 2, 2,
339: 2, 2, 2, 2, 2, 2, 2, 7,
340: 7, 7, 6, 6, 6, 6, 6, 4,
341: 4, 4, 5, 3, 3, 8, 8, 8,
342: 8, 13, 13, 14, 14, 14, 14, 14,
343: 14, 14, 14, 14, 14, 14, 14, 14,
344: 14, 14, 14, 14, 14, 14, 14, 14,
345: 14, 9, 9, 9, 9, 9, 11, 11,
346: 11, 11, 11, 11, 11, 11, 11, 11,
347: 11, 11, 11, 11, 11, 11, 11, 11,
348: 11, 11, 11, 11, 11, 11, 11, 11,
349: 11, 11, 11, 11, 12, 12, 12, 12,
350: 12, 12, 12, 10, 10, 10, 10, 10,
351: 10, 10, 10, 10
352: };
353: unsigned char yypn[108] = {
354: 2, 1, 2, 4, 4, 6, 6, 3,
355: 3, 4, 4, 4, 4, 2, 2, 3,
356: 1, 0, 1, 1, 1, 1, 3, 1,
357: 3, 0, 1, 0, 1, 3, 1, 2,
358: 0, 1, 3, 1, 1, 4, 3, 5,
359: 6, 5, 7, 4, 6, 7, 6, 8,
360: 4, 6, 7, 6, 8, 1, 1, 2,
361: 2, 1, 3, 3, 3, 3, 1, 3,
362: 3, 3, 3, 3, 3, 2, 2, 2,
363: 2, 2, 1, 3, 3, 3, 3, 3,
364: 3, 3, 3, 3, 3, 2, 2, 2,
365: 4, 3, 2, 2, 1, 3, 3, 6,
366: 4, 2, 2, 1, 3, 3, 3, 3,
367: 3, 2, 2, 2
368: };
369: unsigned char yypgo[15] = {
370: 0, 0, 2, 6, 8, 14, 20, 28,
371: 34, 38, 76, 114, 198, 228, 232
372: };
373: unsigned int yygo[236] = {
374: YYOTHERS, 0x3, 0x3, 0x8, YYOTHERS, 0x4, YYOTHERS, 0x5,
375: 0xc, 0x38, 0x7d, 0xb2, YYOTHERS, 0x36, 0xf, 0x3c,
376: 0x10, 0x3d, YYOTHERS, 0x37, 0xd, 0x39, 0x7b, 0xb1,
377: 0x80, 0xb3, YYOTHERS, 0x2f, 0x79, 0xb0, 0x81, 0xb4,
378: YYOTHERS, 0x30, 0x78, 0xaf, YYOTHERS, 0x28, 0x9, 0x29,
379: 0xa, 0x31, 0xd, 0x31, 0x18, 0x42, 0x19, 0x44,
380: 0x1a, 0x45, 0x1c, 0x29, 0x1d, 0x4a, 0x1f, 0x50,
381: 0x3f, 0x29, 0x5e, 0x90, 0x60, 0x92, 0x68, 0x9c,
382: 0x78, 0x29, 0x79, 0x31, 0x7b, 0x31, 0x80, 0x31,
383: 0x81, 0x31, YYOTHERS, 0x46, 0xa, 0x32, 0xd, 0x32,
384: 0x1b, 0x47, 0x1d, 0x4b, 0x23, 0x54, 0x24, 0x58,
385: 0x56, 0x8c, 0x57, 0x8d, 0x62, 0x96, 0x63, 0x97,
386: 0x64, 0x98, 0x65, 0x99, 0x66, 0x9a, 0x79, 0x32,
387: 0x7b, 0x32, 0x80, 0x32, 0x81, 0x32, 0x8b, 0x8d,
388: YYOTHERS, 0x2a, 0x9, 0x2b, 0x18, 0x43, 0x19, 0x43,
389: 0x1a, 0x43, 0x1b, 0x48, 0x1c, 0x2b, 0x1d, 0x4c,
390: 0x1f, 0x51, 0x20, 0x52, 0x21, 0x53, 0x23, 0x55,
391: 0x25, 0x5a, 0x3f, 0x2b, 0x5c, 0x8f, 0x5e, 0x43,
392: 0x5f, 0x91, 0x60, 0x93, 0x67, 0x9b, 0x68, 0x9d,
393: 0x69, 0x9e, 0x6a, 0x9f, 0x6b, 0xa0, 0x6c, 0xa1,
394: 0x6d, 0xa2, 0x6e, 0xa3, 0x6f, 0xa4, 0x70, 0xa5,
395: 0x71, 0xa6, 0x75, 0xac, 0x76, 0xad, 0x78, 0x2b,
396: 0x88, 0xb6, 0xb7, 0xc7, 0xb9, 0xc9, 0xbc, 0xcc,
397: 0xbf, 0xce, 0xc4, 0xcf, 0xca, 0xd4, 0xcd, 0xd8,
398: 0xd1, 0xdb, 0xd5, 0xdd, YYOTHERS, 0x33, 0xa, 0x34,
399: 0xd, 0x34, 0x1d, 0x4d, 0x24, 0x59, 0x25, 0x5b,
400: 0x57, 0x8e, 0x73, 0xaa, 0x74, 0xab, 0x77, 0xae,
401: 0x79, 0x34, 0x7b, 0x34, 0x80, 0x34, 0x81, 0x34,
402: 0xa9, 0x8e, YYOTHERS, 0x2c, 0x1c, 0x49, YYOTHERS, 0x2d,
403: 0x3f, 0x83, YYOTHERS, 0x2e
404: };
405: unsigned short yypa[225] = {
406: 0, 22, 26, 28, 52, 54, 74, 76,
407: 80, 82, 128, 162, 162, 166, 200, 204,
408: 210, 214, 216, 218, 220, 224, 226, 230,
409: 166, 166, 166, 166, 236, 166, 278, 166,
410: 166, 166, 284, 166, 286, 166, 300, 304,
411: 306, 310, 320, 332, 358, 370, 374, 376,
412: 380, 384, 392, 404, 430, 442, 444, 448,
413: 452, 456, 460, 462, 464, 468, 472, 474,
414: 516, 518, 520, 522, 546, 548, 550, 558,
415: 560, 562, 564, 574, 588, 614, 628, 634,
416: 638, 646, 670, 672, 674, 676, 678, 688,
417: 702, 704, 706, 708, 166, 710, 166, 166,
418: 166, 712, 678, 678, 678, 678, 678, 166,
419: 166, 166, 166, 166, 166, 166, 166, 166,
420: 166, 166, 718, 724, 724, 166, 166, 732,
421: 740, 128, 784, 166, 786, 162, 788, 790,
422: 166, 128, 792, 794, 796, 798, 800, 802,
423: 804, 840, 842, 678, 558, 846, 858, 866,
424: 892, 898, 906, 908, 916, 922, 926, 936,
425: 942, 948, 950, 952, 968, 970, 978, 986,
426: 988, 990, 992, 1004, 1016, 1034, 1056, 1076,
427: 1082, 732, 1086, 1092, 1096, 1124, 1150, 1156,
428: 1158, 1160, 1162, 1164, 1168, 1172, 1178, 166,
429: 1204, 1206, 1242, 1244, 1248, 1284, 1286, 166,
430: 1290, 1292, 1294, 1296, 166, 1298, 1300, 1302,
431: 1328, 1334, 166, 1360, 1366, 166, 1392, 1418,
432: 1444, 166, 1446, 1448, 1450, 166, 1476, 1478,
433: 1480, 1506, 1508, 1510, 1536, 1538, 1564, 1566,
434: 1568
435: };
436: unsigned int yyact[1570] = {
437: 0x2, 0x147, 0x201b, 0x104, 0x201b, 0x105, 0x201b, 0x106,
438: 0x201b, 0x107, 0x201b, 0x108, 0x201b, 0x109, 0x201b, 0x10a,
439: 0x201b, 0x10b, 0x201b, 0x14d, 0x1, YYOTHERS, 0x6, 0x14d,
440: 0x6000, YYOTHERS, 0x201c, YYOTHERS, 0x7, YYEOFVAL, 0x2, 0x147,
441: 0x201b, 0x104, 0x201b, 0x105, 0x201b, 0x106, 0x201b, 0x107,
442: 0x201b, 0x108, 0x201b, 0x109, 0x201b, 0x10a, 0x201b, 0x10b,
443: 0x201b, 0x14d, 0x1, YYOTHERS, 0x2001, YYOTHERS, 0x9, 0x104,
444: 0xa, 0x105, 0xb, 0x106, 0xc, 0x107, 0xd, 0x108,
445: 0xe, 0x109, 0xf, 0x10a, 0x10, 0x10b, 0x11, 0x14d,
446: 0x6000, YYOTHERS, 0x200e, YYOTHERS, 0x4000, YYEOFVAL, 0x6000, YYOTHERS,
447: 0x2002, YYOTHERS, 0x12, 0x101, 0x13, 0x102, 0x14, 0x104,
448: 0x15, 0x10c, 0x16, 0x10d, 0x17, 0x140, 0x18, 0x141,
449: 0x19, 0x142, 0x1a, 0x143, 0x1b, 0x13c, 0x1c, 0x13d,
450: 0x1d, 0x148, 0x1e, 0x149, 0x1f, 0x122, 0x20, 0x144,
451: 0x21, 0x146, 0x22, 0x126, 0x23, 0x14a, 0x24, 0x14b,
452: 0x25, 0x14c, 0x26, 0x12a, 0x27, 0x147, 0x2020, YYOTHERS,
453: 0x12, 0x101, 0x13, 0x102, 0x15, 0x10c, 0x17, 0x140,
454: 0x18, 0x141, 0x19, 0x142, 0x1a, 0x143, 0x1b, 0x13c,
455: 0x1d, 0x148, 0x20, 0x144, 0x21, 0x146, 0x22, 0x126,
456: 0x23, 0x14a, 0x24, 0x14b, 0x25, 0x14c, 0x27, 0x147,
457: 0x2011, YYOTHERS, 0x35, 0x147, 0x2019, YYOTHERS, 0x12, 0x101,
458: 0x13, 0x102, 0x15, 0x10c, 0x17, 0x140, 0x18, 0x141,
459: 0x19, 0x142, 0x1a, 0x143, 0x1b, 0x13c, 0x1d, 0x148,
460: 0x20, 0x144, 0x21, 0x146, 0x22, 0x126, 0x23, 0x14a,
461: 0x24, 0x14b, 0x25, 0x14c, 0x27, 0x147, 0x6000, YYOTHERS,
462: 0x3a, 0x14d, 0x6000, YYOTHERS, 0x3b, 0x14d, 0x35, 0x147,
463: 0x6000, YYOTHERS, 0x35, 0x147, 0x6000, YYOTHERS, 0x200d, YYOTHERS,
464: 0x203e, YYOTHERS, 0x2063, YYOTHERS, 0x3e, 0x14d, 0x6000, YYOTHERS,
465: 0x2039, YYOTHERS, 0x3f, 0x132, 0x2023, YYOTHERS, 0x40, 0x101,
466: 0x41, 0x10c, 0x6000, YYOTHERS, 0x12, 0x101, 0x13, 0x102,
467: 0x15, 0x10c, 0x16, 0x10d, 0x17, 0x140, 0x18, 0x141,
468: 0x19, 0x142, 0x1a, 0x143, 0x1b, 0x13c, 0x1d, 0x148,
469: 0x1e, 0x149, 0x1f, 0x122, 0x20, 0x144, 0x21, 0x146,
470: 0x22, 0x126, 0x23, 0x14a, 0x24, 0x14b, 0x25, 0x14c,
471: 0x26, 0x12a, 0x27, 0x147, 0x6000, YYOTHERS, 0x4e, 0x10d,
472: 0x4f, 0x131, 0x6000, YYOTHERS, 0x204a, YYOTHERS, 0x13, 0x102,
473: 0x56, 0x13c, 0x57, 0x148, 0x23, 0x14a, 0x25, 0x14c,
474: 0x27, 0x147, 0x6000, YYOTHERS, 0x5c, 0x149, 0x2024, YYOTHERS,
475: 0x205c, YYOTHERS, 0x5d, 0x14d, 0x6000, YYOTHERS, 0x5e, 0x138,
476: 0x5f, 0x13b, 0x60, 0x13c, 0x61, 0x149, 0x2035, YYOTHERS,
477: 0x62, 0x138, 0x63, 0x13b, 0x64, 0x13c, 0x65, 0x13d,
478: 0x66, 0x13e, 0x6000, YYOTHERS, 0x67, 0x138, 0x68, 0x13b,
479: 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f,
480: 0x6d, 0x139, 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135,
481: 0x71, 0x136, 0x72, 0x149, 0x2036, YYOTHERS, 0x73, 0x138,
482: 0x74, 0x13b, 0x75, 0x148, 0x76, 0x149, 0x77, 0x133,
483: 0x6000, YYOTHERS, 0x78, 0x131, 0x201e, YYOTHERS, 0x2021, YYOTHERS,
484: 0x79, 0x131, 0x2010, YYOTHERS, 0x7a, 0x14d, 0x6000, YYOTHERS,
485: 0x5e, 0x138, 0x5f, 0x13b, 0x60, 0x13c, 0x2012, YYOTHERS,
486: 0x62, 0x138, 0x63, 0x13b, 0x64, 0x13c, 0x65, 0x13d,
487: 0x66, 0x13e, 0x2013, YYOTHERS, 0x67, 0x138, 0x68, 0x13b,
488: 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f,
489: 0x6d, 0x139, 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135,
490: 0x71, 0x136, 0x7b, 0x134, 0x2014, YYOTHERS, 0x73, 0x138,
491: 0x74, 0x13b, 0x75, 0x148, 0x76, 0x149, 0x77, 0x133,
492: 0x2015, YYOTHERS, 0x201a, YYOTHERS, 0x7c, 0x14d, 0x6000, YYOTHERS,
493: 0x7d, 0x131, 0x2017, YYOTHERS, 0x7e, 0x14d, 0x6000, YYOTHERS,
494: 0x7f, 0x14d, 0x6000, YYOTHERS, 0x2008, YYOTHERS, 0x2007, YYOTHERS,
495: 0x80, 0x131, 0x6000, YYOTHERS, 0x81, 0x131, 0x6000, YYOTHERS,
496: 0x200c, YYOTHERS, 0x12, 0x101, 0x13, 0x102, 0x15, 0x10c,
497: 0x82, 0x10d, 0x17, 0x140, 0x18, 0x141, 0x19, 0x142,
498: 0x1a, 0x143, 0x1b, 0x13c, 0x1d, 0x148, 0x1e, 0x149,
499: 0x1f, 0x122, 0x20, 0x144, 0x21, 0x146, 0x22, 0x126,
500: 0x23, 0x14a, 0x24, 0x14b, 0x25, 0x14c, 0x26, 0x12a,
501: 0x27, 0x147, 0x6000, YYOTHERS, 0x2049, YYOTHERS, 0x2048, YYOTHERS,
502: 0x2045, YYOTHERS, 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c,
503: 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139,
504: 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135, 0x71, 0x136,
505: 0x6000, YYOTHERS, 0x2047, YYOTHERS, 0x2046, YYOTHERS, 0x5e, 0x138,
506: 0x5f, 0x13b, 0x60, 0x13c, 0x6000, YYOTHERS, 0x2069, YYOTHERS,
507: 0x2055, YYOTHERS, 0x201f, YYOTHERS, 0x5e, 0x138, 0x5f, 0x13b,
508: 0x60, 0x13c, 0x84, 0x11e, 0x6000, YYOTHERS, 0x62, 0x138,
509: 0x63, 0x13b, 0x64, 0x13c, 0x65, 0x13d, 0x66, 0x13e,
510: 0x85, 0x11e, 0x6000, YYOTHERS, 0x67, 0x138, 0x68, 0x13b,
511: 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f,
512: 0x6d, 0x139, 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135,
513: 0x71, 0x136, 0x86, 0x11e, 0x6000, YYOTHERS, 0x73, 0x138,
514: 0x74, 0x13b, 0x75, 0x148, 0x87, 0x11e, 0x76, 0x149,
515: 0x77, 0x133, 0x6000, YYOTHERS, 0x88, 0x131, 0x89, 0x120,
516: 0x6000, YYOTHERS, 0x8a, 0x10d, 0x6000, YYOTHERS, 0x5e, 0x138,
517: 0x5f, 0x13b, 0x60, 0x13c, 0x2038, YYOTHERS, 0x67, 0x138,
518: 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e,
519: 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a, 0x6f, 0x137,
520: 0x70, 0x135, 0x71, 0x136, 0x2037, YYOTHERS, 0x2057, YYOTHERS,
521: 0x2056, YYOTHERS, 0x2062, YYOTHERS, 0x2061, YYOTHERS, 0x13, 0x102,
522: 0x56, 0x13c, 0x8b, 0x148, 0x25, 0x14c, 0x6000, YYOTHERS,
523: 0x13, 0x102, 0x56, 0x13c, 0x57, 0x148, 0x23, 0x14a,
524: 0x25, 0x14c, 0x27, 0x147, 0x6000, YYOTHERS, 0x205b, YYOTHERS,
525: 0x205a, YYOTHERS, 0x206b, YYOTHERS, 0x206a, YYOTHERS, 0x200b, YYOTHERS,
526: 0x94, 0x10d, 0x95, 0x131, 0x6000, YYOTHERS, 0xa7, 0x10d,
527: 0xa8, 0x131, 0x6000, YYOTHERS, 0xa9, 0x148, 0x23, 0x14a,
528: 0x27, 0x147, 0x6000, YYOTHERS, 0xa9, 0x148, 0x23, 0x14a,
529: 0x27, 0x147, 0x6000, YYOTHERS, 0x12, 0x101, 0x13, 0x102,
530: 0x15, 0x10c, 0x16, 0x10d, 0x17, 0x140, 0x18, 0x141,
531: 0x19, 0x142, 0x1a, 0x143, 0x1b, 0x13c, 0x1c, 0x13d,
532: 0x1d, 0x148, 0x1e, 0x149, 0x1f, 0x122, 0x20, 0x144,
533: 0x21, 0x146, 0x22, 0x126, 0x23, 0x14a, 0x24, 0x14b,
534: 0x25, 0x14c, 0x26, 0x12a, 0x27, 0x147, 0x2020, YYOTHERS,
535: 0x200a, YYOTHERS, 0x2003, YYOTHERS, 0x2004, YYOTHERS, 0x2009, YYOTHERS,
536: 0x2023, YYOTHERS, 0x2022, YYOTHERS, 0x203a, YYOTHERS, 0x2064, YYOTHERS,
537: 0x203f, YYOTHERS, 0x205d, YYOTHERS, 0x12, 0x101, 0x13, 0x102,
538: 0x15, 0x10c, 0xb5, 0x10d, 0x17, 0x140, 0x18, 0x141,
539: 0x19, 0x142, 0x1a, 0x143, 0x1b, 0x13c, 0x1d, 0x148,
540: 0x20, 0x144, 0x21, 0x146, 0x22, 0x126, 0x23, 0x14a,
541: 0x24, 0x14b, 0x25, 0x14c, 0x27, 0x147, 0x6000, YYOTHERS,
542: 0x2026, YYOTHERS, 0xb7, 0x131, 0x6000, YYOTHERS, 0x63, 0x13b,
543: 0x64, 0x13c, 0x65, 0x13d, 0x66, 0x13e, 0x85, 0x11e,
544: 0x6000, YYOTHERS, 0x74, 0x13b, 0x75, 0x148, 0x87, 0x11e,
545: 0x6000, YYOTHERS, 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c,
546: 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139,
547: 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135, 0x71, 0x136,
548: 0xb8, 0x120, 0x6000, YYOTHERS, 0x5f, 0x13b, 0x60, 0x13c,
549: 0x2041, YYOTHERS, 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f,
550: 0x203b, YYOTHERS, 0x2040, YYOTHERS, 0x6a, 0x13d, 0x6b, 0x13e,
551: 0x6c, 0x13f, 0x203c, YYOTHERS, 0xb9, 0x131, 0xba, 0x120,
552: 0x6000, YYOTHERS, 0xbb, 0x10d, 0x6000, YYOTHERS, 0x63, 0x13b,
553: 0x64, 0x13c, 0x65, 0x13d, 0x66, 0x13e, 0x2044, YYOTHERS,
554: 0x65, 0x13d, 0x66, 0x13e, 0x2065, YYOTHERS, 0x65, 0x13d,
555: 0x66, 0x13e, 0x2066, YYOTHERS, 0x2067, YYOTHERS, 0x2068, YYOTHERS,
556: 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e,
557: 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a, 0x2042, YYOTHERS,
558: 0x203d, YYOTHERS, 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f,
559: 0x204b, YYOTHERS, 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f,
560: 0x204c, YYOTHERS, 0x204d, YYOTHERS, 0x204e, YYOTHERS, 0x204f, YYOTHERS,
561: 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e,
562: 0x6c, 0x13f, 0x2050, YYOTHERS, 0x68, 0x13b, 0x69, 0x13c,
563: 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f, 0x2051, YYOTHERS,
564: 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d,
565: 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a,
566: 0x2052, YYOTHERS, 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c,
567: 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139,
568: 0x6e, 0x13a, 0x6f, 0x137, 0x71, 0x136, 0x2053, YYOTHERS,
569: 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d,
570: 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a,
571: 0x6f, 0x137, 0x2054, YYOTHERS, 0xbc, 0x131, 0xbd, 0x120,
572: 0x6000, YYOTHERS, 0xbe, 0x10d, 0x6000, YYOTHERS, 0x74, 0x13b,
573: 0x75, 0x148, 0x2043, YYOTHERS, 0x75, 0x148, 0x205e, YYOTHERS,
574: 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d,
575: 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a,
576: 0x6f, 0x137, 0x70, 0x135, 0x71, 0x136, 0xbf, 0x131,
577: 0xc0, 0x11e, 0x6000, YYOTHERS, 0x67, 0x138, 0x68, 0x13b,
578: 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f,
579: 0x6d, 0x139, 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135,
580: 0x71, 0x136, 0xc1, 0x120, 0x6000, YYOTHERS, 0x74, 0x13b,
581: 0x75, 0x148, 0x2059, YYOTHERS, 0x201d, YYOTHERS, 0x200f, YYOTHERS,
582: 0x2016, YYOTHERS, 0x2018, YYOTHERS, 0xc2, 0x14d, 0x6000, YYOTHERS,
583: 0xc3, 0x14d, 0x6000, YYOTHERS, 0xc4, 0x131, 0xc5, 0x120,
584: 0x6000, YYOTHERS, 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c,
585: 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139,
586: 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135, 0x71, 0x136,
587: 0xc6, 0x120, 0x6000, YYOTHERS, 0x2025, YYOTHERS, 0x12, 0x101,
588: 0x13, 0x102, 0x15, 0x10c, 0xc8, 0x10d, 0x17, 0x140,
589: 0x18, 0x141, 0x19, 0x142, 0x1a, 0x143, 0x1b, 0x13c,
590: 0x1d, 0x148, 0x20, 0x144, 0x21, 0x146, 0x22, 0x126,
591: 0x23, 0x14a, 0x24, 0x14b, 0x25, 0x14c, 0x27, 0x147,
592: 0x6000, YYOTHERS, 0x2030, YYOTHERS, 0xca, 0x131, 0x6000, YYOTHERS,
593: 0x12, 0x101, 0x13, 0x102, 0x15, 0x10c, 0xcb, 0x10d,
594: 0x17, 0x140, 0x18, 0x141, 0x19, 0x142, 0x1a, 0x143,
595: 0x1b, 0x13c, 0x1d, 0x148, 0x20, 0x144, 0x21, 0x146,
596: 0x22, 0x126, 0x23, 0x14a, 0x24, 0x14b, 0x25, 0x14c,
597: 0x27, 0x147, 0x6000, YYOTHERS, 0x202b, YYOTHERS, 0xcd, 0x131,
598: 0x6000, YYOTHERS, 0x2060, YYOTHERS, 0x2058, YYOTHERS, 0x2005, YYOTHERS,
599: 0x2006, YYOTHERS, 0x2029, YYOTHERS, 0x2027, YYOTHERS, 0x67, 0x138,
600: 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e,
601: 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a, 0x6f, 0x137,
602: 0x70, 0x135, 0x71, 0x136, 0xd0, 0x120, 0x6000, YYOTHERS,
603: 0xd1, 0x131, 0xd2, 0x120, 0x6000, YYOTHERS, 0x67, 0x138,
604: 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e,
605: 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a, 0x6f, 0x137,
606: 0x70, 0x135, 0x71, 0x136, 0xd3, 0x120, 0x6000, YYOTHERS,
607: 0xd5, 0x131, 0xd6, 0x120, 0x6000, YYOTHERS, 0x67, 0x138,
608: 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e,
609: 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a, 0x6f, 0x137,
610: 0x70, 0x135, 0x71, 0x136, 0xd7, 0x120, 0x6000, YYOTHERS,
611: 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d,
612: 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a,
613: 0x6f, 0x137, 0x70, 0x135, 0x71, 0x136, 0xd9, 0x11e,
614: 0x6000, YYOTHERS, 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c,
615: 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139,
616: 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135, 0x71, 0x136,
617: 0xda, 0x120, 0x6000, YYOTHERS, 0x2028, YYOTHERS, 0x2033, YYOTHERS,
618: 0x2031, YYOTHERS, 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c,
619: 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139,
620: 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135, 0x71, 0x136,
621: 0xdc, 0x120, 0x6000, YYOTHERS, 0x202e, YYOTHERS, 0x202c, YYOTHERS,
622: 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d,
623: 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a,
624: 0x6f, 0x137, 0x70, 0x135, 0x71, 0x136, 0xde, 0x120,
625: 0x6000, YYOTHERS, 0x205f, YYOTHERS, 0x202a, YYOTHERS, 0x67, 0x138,
626: 0x68, 0x13b, 0x69, 0x13c, 0x6a, 0x13d, 0x6b, 0x13e,
627: 0x6c, 0x13f, 0x6d, 0x139, 0x6e, 0x13a, 0x6f, 0x137,
628: 0x70, 0x135, 0x71, 0x136, 0xdf, 0x120, 0x6000, YYOTHERS,
629: 0x2032, YYOTHERS, 0x67, 0x138, 0x68, 0x13b, 0x69, 0x13c,
630: 0x6a, 0x13d, 0x6b, 0x13e, 0x6c, 0x13f, 0x6d, 0x139,
631: 0x6e, 0x13a, 0x6f, 0x137, 0x70, 0x135, 0x71, 0x136,
632: 0xe0, 0x120, 0x6000, YYOTHERS, 0x202d, YYOTHERS, 0x2034, YYOTHERS,
633: 0x202f, YYOTHERS
634: };
635:
636:
637: #define YYNOCHAR (-1000)
638: #define yyerrok yyerrflag=0
639: #define yyclearin yylval=YYNOCHAR
640: int yystack[YYMAXDEPTH];
641: YYSTYPE yyvstack[YYMAXDEPTH], *yyv;
642: int yychar;
643:
644: #ifdef YYDEBUG
645: int yydebug = 1; /* No sir, not in the BSS */
646: #include <stdio.h>
647: #endif
648:
649: short yyerrflag;
650: int *yys;
651:
652: yyparse()
653: {
654: register YYSTYPE *yypvt;
655: int act;
656: register unsigned *ip, yystate;
657: int pno;
658: yystate = 0;
659: yychar = YYNOCHAR;
660: yyv = &yyvstack[-1];
661: yys = &yystack[-1];
662:
663: stack:
664: if( ++yys >= &yystack[YYMAXDEPTH] ) {
665: write(2, "Stack overflow\n", 15);
666: exit(1);
667: }
668: *yys = yystate;
669: *++yyv = yyval;
670: #ifdef YYDEBUG
671: if( yydebug )
672: fprintf(stdout, "Stack state %d, char %d\n", yystate, yychar);
673: #endif
674:
675: read:
676: ip = &yyact[yypa[yystate]];
677: if( ip[1] != YYNOCHAR ) {
678: if( yychar == YYNOCHAR ) {
679: yychar = yylex();
680: #ifdef YYDEBUG
681: if( yydebug )
682: fprintf(stdout, "lex read char %d, val %d\n", yychar, yylval);
683: #endif
684: }
685: while (ip[1]!=YYNOCHAR) {
686: if (ip[1]==yychar)
687: break;
688: ip += 2;
689: }
690: }
691: act = ip[0];
692: switch( act>>YYACTSH ) {
693: case YYSHIFTACT:
694: if( ip[1]==YYNOCHAR )
695: goto YYerract;
696: if( yychar != -1 )
697: yychar = YYNOCHAR; /* dont throw away EOF */
698: yystate = act&YYAMASK;
699: yyval = yylval;
700: #ifdef YYDEBUG
701: if( yydebug )
702: fprintf(stdout, "shift %d\n", yystate);
703: #endif
704: if( yyerrflag )
705: --yyerrflag;
706: goto stack;
707:
708: case YYACCEPTACT:
709: #ifdef YYDEBUG
710: if( yydebug )
711: fprintf(stdout, "accept\n");
712: #endif
713: return(0);
714:
715: case YYERRACT:
716: YYerract:
717: switch (yyerrflag) {
718: case 0:
719: yyerror("Syntax error");
720:
721: case 1:
722: case 2:
723:
724: yyerrflag = 3;
725: while( yys >= & yystack[0] ) {
726: ip = &yyact[yypa[*yys]];
727: while( ip[1]!=YYNOCHAR )
728: ip += 2;
729: if( (*ip&~YYAMASK) == (YYSHIFTACT<<YYACTSH) ) {
730: yystate = *ip&YYAMASK;
731: goto stack;
732: }
733: #ifdef YYDEBUG
734: if( yydebug )
735: fprintf(stderr, "error recovery leaves state %d, uncovers %d\n", *yys, yys[-1]);
736: #endif
737: yys--;
738: yyv--;
739: }
740: #ifdef YYDEBUG
741: if( yydebug )
742: fprintf(stderr, "no shift on error; abort\n");
743: #endif
744: return(1);
745:
746: case 3:
747: #ifdef YYDEBUG
748: if( yydebug )
749: fprintf(stderr, "Error recovery clobbers char %o\n", yychar);
750: #endif
751: if( yychar==YYEOFVAL )
752: return(1);
753: yychar = YYNOCHAR;
754: goto read;
755: }
756:
757: case YYREDACT:
758: pno = act&YYAMASK;
759: #ifdef YYDEBUG
760: if( yydebug )
761: fprintf(stdout, "reduce %d\n", pno);
762: #endif
763: yypvt = yyv;
764: yyv -= yypn[pno];
765: yys -= yypn[pno];
766: yyval = yyv[1];
767: switch(pno) {
768:
769: case 3: {
770:
771: #line 352 "asm.y"
772: /* assembler command with parms */
773: docmd(yypvt[-3].p, yypvt[-2].o, yypvt[-1].p); }break;
774:
775: case 4: {
776:
777: #line 354 "asm.y"
778: /* a command with string parms */
779: docmd(yypvt[-3].p, yypvt[-2].o, yypvt[-1].p); }break;
780:
781: case 5: {
782:
783: #line 356 "asm.y"
784: /* command with a name & an expr */
785: ecmd(yypvt[-5].p, yypvt[-4].o, yypvt[-3].p, yypvt[-1].d); }break;
786:
787: case 6: {
788:
789: #line 359 "asm.y"
790:
791: ecmd(yypvt[-5].p, yypvt[-4].o, yypvt[-3].p, yypvt[-1].d); }break;
792:
793: case 7: {
794:
795: #line 361 "asm.y"
796:
797: ecmd(yypvt[-2].p, yypvt[-1].o, NULL, NULL); }break;
798:
799: case 8: {
800:
801: #line 363 "asm.y"
802: /* assembler command takes no parms */
803: docmd(yypvt[-2].p, yypvt[-1].o, (parm *)NULL); }break;
804:
805: case 9: {
806:
807: #line 365 "asm.y"
808: /* assembler command with data parm */
809: ncmd(yypvt[-3].p, yypvt[-2].o, yypvt[-1].d); }break;
810:
811: case 10: {
812:
813: #line 367 "asm.y"
814: /* data list */
815: dcmd(yypvt[-3].p, yypvt[-2].o, yypvt[-1].d); }break;
816:
817: case 11: {
818:
819: #line 369 "asm.y"
820: /* opcode operands */
821: buildind(yypvt[-3].p, yypvt[-2].o, yypvt[-1].e); }break;
822:
823: case 12: {
824:
825: #line 371 "asm.y"
826: /* built by rep instr */
827: buildind(yypvt[-3].p, yypvt[-2].o, NULL);
828: buildind(NULL, yypvt[-1].o, NULL ); }break;
829:
830: case 13: {
831:
832: #line 374 "asm.y"
833: /* label alone on line */
834: buildlab(yypvt[-1].p); }break;
835:
836: case 14: {
837:
838: #line 376 "asm.y"
839: /* syntax error */
840: if (bcnt > 0)
841: unmatched('[');
842: if (bcnt < 0)
843: unmatched(']');
844: if (pcnt > 0)
845: unmatched('(');
846: if (pcnt < 0)
847: unmatched(')');
848: yyerrok; }break;
849:
850: case 15: {
851:
852: #line 387 "asm.y"
853:
854: yyval.d = yypvt[-2].d;
855: yyval.d->next = yypvt[0].d; }break;
856:
857: case 16: {
858:
859: #line 390 "asm.y"
860:
861: yyval.d = yypvt[0].d; }break;
862:
863: case 17: {
864:
865: #line 392 "asm.y"
866:
867: yyval.d = NULL; }break;
868:
869: case 18: {
870:
871: #line 395 "asm.y"
872:
873: yyval.d = gitem('y');
874: yyval.d->d.y = yypvt[0].s; }break;
875:
876: case 19: {
877:
878: #line 398 "asm.y"
879:
880: yyval.d = gitem('d');
881: yyval.d->d.d = yypvt[0].dbl; }break;
882:
883: case 20: {
884:
885: #line 401 "asm.y"
886:
887: yyval.d = gitem('l');
888: yyval.d->d.l = yypvt[0].val; }break;
889:
890: case 21: {
891:
892: #line 404 "asm.y"
893:
894: yyval.d = gitem('s');
895: yyval.d->d.s = yypvt[0].t; }break;
896:
897: case 22: {
898:
899: #line 407 "asm.y"
900:
901: yyval.d = yypvt[0].d;
902: yyval.d->count = yypvt[-2].val; }break;
903:
904: case 23: {
905:
906: #line 411 "asm.y"
907: /* start parm list */
908: yyval.p = yypvt[0].p; }break;
909:
910: case 24: {
911:
912: #line 413 "asm.y"
913: /* chain parm list */
914: yyval.p = yypvt[-2].p;
915: yyval.p->next = yypvt[0].p; }break;
916:
917: case 25: {
918:
919: #line 416 "asm.y"
920:
921: yyval.p = NULL; }break;
922:
923: case 26: {
924:
925: #line 419 "asm.y"
926: /* start a parm */
927: yyval.p = (parm *)gcpy(yypvt[0].t, offset(parm, str)); }break;
928:
929: case 27: {
930:
931: #line 422 "asm.y"
932:
933: yyval.p = NULL; }break;
934:
935: case 28: {
936:
937: #line 424 "asm.y"
938:
939: yyval.p = (parm *)gcpy(yypvt[0].t, offset(parm, str)); }break;
940:
941: case 29: {
942:
943: #line 428 "asm.y"
944:
945: yyval.e = yypvt[-2].e;
946: yyval.e->next = yypvt[0].e; }break;
947:
948: case 30: {
949:
950: #line 431 "asm.y"
951:
952: yyval.e = yypvt[0].e; }break;
953:
954: case 31: {
955:
956: #line 433 "asm.y"
957:
958: lflags |= A_INDIR;
959: yyval.e = yypvt[0].e; }break;
960:
961: case 32: {
962:
963: #line 436 "asm.y"
964:
965: yyval.e = NULL; }break;
966:
967: case 33: {
968:
969: #line 439 "asm.y"
970:
971: yyval.e->sg = -1;
972: yyval.e = yypvt[0].e; }break;
973:
974: case 34: {
975:
976: #line 442 "asm.y"
977:
978: yyval.e = yypvt[0].e;
979: if (yypvt[-2].s->flag != SEG_REG)
980: regerror(yypvt[-2].s);
981: yyval.e->sg = yypvt[-2].s->loc; }break;
982:
983: case 35: {
984:
985: #line 449 "asm.y"
986:
987: yyval.e = qbild(0L, T_R, yypvt[0].s, NULL, 0L, NULL); }break;
988:
989: case 36: {
990:
991: #line 452 "asm.y"
992:
993: yyval.e = fbild(0L); }break;
994:
995: case 37: {
996:
997: #line 455 "asm.y"
998:
999: yyval.e = fbild(yypvt[-1].val); }break;
1000:
1001: case 38: {
1002:
1003: #line 458 "asm.y"
1004:
1005: yyval.e = qbild(0L, T_RI, yypvt[-1].s, NULL, 0L, NULL); }break;
1006:
1007: case 39: {
1008:
1009: #line 461 "asm.y"
1010:
1011: yyval.e = qbild(0L, T_RIS, yypvt[-3].s, NULL, yypvt[-1].val, NULL); }break;
1012:
1013: case 40: {
1014:
1015: #line 464 "asm.y"
1016:
1017: yyval.e = qbild(0L, T_RIS, yypvt[-3].s, NULL, yypvt[-1].val, NULL); }break;
1018:
1019: case 41: {
1020:
1021: #line 467 "asm.y"
1022:
1023: yyval.e = qbild(0L, T_RIX, yypvt[-3].s, yypvt[-1].s, 0L, NULL); }break;
1024:
1025: case 42: {
1026:
1027: #line 470 "asm.y"
1028:
1029: yyval.e = qbild(0L, T_RIXS, yypvt[-5].s, yypvt[-3].s, yypvt[-1].val, NULL); }break;
1030:
1031: case 43: {
1032:
1033: #line 473 "asm.y"
1034:
1035: yyval.e = qbild(yypvt[-3].val, T_RID, yypvt[-1].s, NULL, 0L, NULL); }break;
1036:
1037: case 44: {
1038:
1039: #line 476 "asm.y"
1040:
1041: yyval.e = qbild(yypvt[-5].val, T_RIDS, yypvt[-3].s, NULL, yypvt[-1].val, NULL); }break;
1042:
1043: case 45: {
1044:
1045: #line 479 "asm.y"
1046:
1047: yyval.e = qbild(yypvt[-6].val, T_RIDS, yypvt[-3].s, NULL, yypvt[-1].val, NULL); }break;
1048:
1049: case 46: {
1050:
1051: #line 482 "asm.y"
1052:
1053: yyval.e = qbild(yypvt[-5].val, T_RIXD, yypvt[-3].s, yypvt[-1].s, 0L, NULL); }break;
1054:
1055: case 47: {
1056:
1057: #line 485 "asm.y"
1058:
1059: yyval.e = qbild(yypvt[-7].val, T_RIXDS, yypvt[-5].s, yypvt[-3].s, yypvt[-1].val, NULL); }break;
1060:
1061: case 48: {
1062:
1063: #line 488 "asm.y"
1064:
1065: yyval.e = qbild(yypvt[-3].s->loc, T_RID, yypvt[-1].s, NULL, 0L, yypvt[-3].s); }break;
1066:
1067: case 49: {
1068:
1069: #line 491 "asm.y"
1070:
1071: yyval.e = qbild(yypvt[-5].s->loc, T_RIDS, yypvt[-3].s, NULL, yypvt[-1].val, yypvt[-5].s); }break;
1072:
1073: case 50: {
1074:
1075: #line 494 "asm.y"
1076:
1077: yyval.e = qbild(yypvt[-6].s->loc, T_RIDS, yypvt[-3].s, NULL, yypvt[-1].val, yypvt[-6].s); }break;
1078:
1079: case 51: {
1080:
1081: #line 497 "asm.y"
1082:
1083: yyval.e = qbild(yypvt[-5].s->loc, T_RIXD, yypvt[-3].s, yypvt[-1].s, 0L, yypvt[-5].s); }break;
1084:
1085: case 52: {
1086:
1087: #line 500 "asm.y"
1088:
1089: yyval.e = qbild(yypvt[-7].s->loc, T_RIXDS, yypvt[-5].s, yypvt[-3].s, yypvt[-1].val, yypvt[-7].s); }break;
1090:
1091: case 53: {
1092:
1093: #line 503 "asm.y"
1094:
1095: yyval.e = qbild(yypvt[0].s->loc, T_D, NULL, NULL, 0L, yypvt[0].s); }break;
1096:
1097: case 54: {
1098:
1099: #line 506 "asm.y"
1100:
1101: yyval.e = qbild(yypvt[0].val, T_D, NULL, NULL, 0L, NULL); }break;
1102:
1103: case 55: {
1104:
1105: #line 509 "asm.y"
1106:
1107: yyval.e = setImm(yypvt[0].val, (sym *)NULL); }break;
1108:
1109: case 56: {
1110:
1111: #line 512 "asm.y"
1112:
1113: yyval.e = setImm(yypvt[0].s->loc, yypvt[0].s); }break;
1114:
1115: case 57: {
1116:
1117: #line 518 "asm.y"
1118: yyval.s = yypvt[0].s; }break;
1119:
1120: case 58: {
1121:
1122: #line 519 "asm.y"
1123: yyval.s=yypvt[-1].s; }break;
1124:
1125: case 59: {
1126:
1127: #line 520 "asm.y"
1128: yyval.s = copySym(yypvt[-2].s); yyval.s->loc += yypvt[0].val; }break;
1129:
1130: case 60: {
1131:
1132: #line 521 "asm.y"
1133: yyval.s = copySym(yypvt[-2].s); yyval.s->loc -= yypvt[0].val; }break;
1134:
1135: case 61: {
1136:
1137: #line 522 "asm.y"
1138: yyval.s = copySym(yypvt[0].s); yyval.s->loc += yypvt[-2].val; }break;
1139:
1140: case 62: {
1141:
1142: #line 525 "asm.y"
1143:
1144: yyval.val = yypvt[0].val; }break;
1145:
1146: case 63: {
1147:
1148: #line 527 "asm.y"
1149:
1150: yyval.val = yypvt[-1].val; }break;
1151:
1152: case 64: {
1153:
1154: #line 529 "asm.y"
1155:
1156: ckseg(yypvt[-2].s, yypvt[0].s); yyval.val = yypvt[-2].s->loc - yypvt[0].s->loc; }break;
1157:
1158: case 65: {
1159:
1160: #line 531 "asm.y"
1161:
1162: ckseg(yypvt[-2].s, yypvt[0].s); yyval.val = compare((int)yypvt[-1].val, yypvt[-2].s->loc - yypvt[0].s->loc); }break;
1163:
1164: case 66: {
1165:
1166: #line 533 "asm.y"
1167:
1168: yyval.val = compare((int)yypvt[-1].val, yypvt[-2].val - yypvt[0].val); }break;
1169:
1170: case 67: {
1171:
1172: #line 535 "asm.y"
1173:
1174: yyval.val = compare((int)yypvt[-1].val, (long)strcmp(yypvt[-2].t, yypvt[0].t)); }break;
1175:
1176: case 68: {
1177:
1178: #line 537 "asm.y"
1179:
1180: yyval.val = fcompare((int)yypvt[-1].val, yypvt[-2].dbl - yypvt[0].dbl); }break;
1181:
1182: case 69: {
1183:
1184: #line 540 "asm.y"
1185:
1186: yyval.val = yypvt[0].s->size; }break;
1187:
1188: case 70: {
1189:
1190: #line 543 "asm.y"
1191:
1192: yyval.val = yypvt[0].s->loc; }break;
1193:
1194: case 71: {
1195:
1196: #line 546 "asm.y"
1197:
1198: yyval.val = yypvt[0].s->sg + 1; }break;
1199:
1200: case 72: {
1201:
1202: #line 549 "asm.y"
1203:
1204: yyval.val = yypvt[0].s->statement && (statement >= yypvt[0].s->statement); }break;
1205:
1206: case 73: {
1207:
1208: #line 551 "asm.y"
1209:
1210: yyval.val = 1; }break;
1211:
1212: case 74: {
1213:
1214: #line 553 "asm.y"
1215:
1216: yyval.val = parmCt(); }break;
1217:
1218: case 75: {
1219:
1220: #line 556 "asm.y"
1221:
1222: yyval.val = yypvt[-2].val + yypvt[0].val; }break;
1223:
1224: case 76: {
1225:
1226: #line 558 "asm.y"
1227:
1228: yyval.val = yypvt[-2].val - yypvt[0].val; }break;
1229:
1230: case 77: {
1231:
1232: #line 560 "asm.y"
1233:
1234: yyval.val = yypvt[-2].val * yypvt[0].val; }break;
1235:
1236: case 78: {
1237:
1238: #line 562 "asm.y"
1239:
1240: yyval.val = yypvt[-2].val / yypvt[0].val; }break;
1241:
1242: case 79: {
1243:
1244: #line 564 "asm.y"
1245:
1246: yyval.val = yypvt[-2].val % yypvt[0].val; }break;
1247:
1248: case 80: {
1249:
1250: #line 567 "asm.y"
1251:
1252: yyval.val = yypvt[-2].val << yypvt[0].val; }break;
1253:
1254: case 81: {
1255:
1256: #line 569 "asm.y"
1257:
1258: yyval.val = yypvt[-2].val >> yypvt[0].val; }break;
1259:
1260: case 82: {
1261:
1262: #line 573 "asm.y"
1263:
1264: yyval.val = yypvt[-2].val & yypvt[0].val; }break;
1265:
1266: case 83: {
1267:
1268: #line 575 "asm.y"
1269:
1270: yyval.val = yypvt[-2].val | yypvt[0].val; }break;
1271:
1272: case 84: {
1273:
1274: #line 577 "asm.y"
1275:
1276: yyval.val = yypvt[-2].val ^ yypvt[0].val; }break;
1277:
1278: case 85: {
1279:
1280: #line 579 "asm.y"
1281:
1282: yyval.val = - yypvt[0].val; }break;
1283:
1284: case 86: {
1285:
1286: #line 581 "asm.y"
1287:
1288: yyval.val = !yypvt[0].val; }break;
1289:
1290: case 87: {
1291:
1292: #line 583 "asm.y"
1293:
1294: yyval.val = ~yypvt[0].val; }break;
1295:
1296: case 88: {
1297:
1298: #line 586 "asm.y"
1299:
1300: yyval.val = (yypvt[-1].val > strlen(yypvt[-3].t)) ? 0 : yypvt[-3].t[(short)yypvt[-1].val]; }break;
1301:
1302: case 89: {
1303:
1304: #line 588 "asm.y"
1305:
1306: yyval.val = stringSearch(yypvt[-2].t, yypvt[0].t); }break;
1307:
1308: case 90: {
1309:
1310: #line 590 "asm.y"
1311:
1312: yyval.val = atol(yypvt[0].t); }break;
1313:
1314: case 91: {
1315:
1316: #line 592 "asm.y"
1317:
1318: yyval.val = yypvt[0].dbl; }break;
1319:
1320: case 92: {
1321:
1322: #line 595 "asm.y"
1323:
1324: yyval.t = gcpy(yypvt[0].t, 0); }break;
1325:
1326: case 93: {
1327:
1328: #line 597 "asm.y"
1329:
1330: yyval.t = yypvt[-1].t; }break;
1331:
1332: case 94: {
1333:
1334: #line 599 "asm.y"
1335:
1336: yyval.t = concat(yypvt[-2].t, yypvt[0].t); }break;
1337:
1338: case 95: {
1339:
1340: #line 601 "asm.y"
1341:
1342: yyval.t = substr(yypvt[-5].t, yypvt[-3].val, yypvt[-1].val); }break;
1343:
1344: case 96: {
1345:
1346: #line 603 "asm.y"
1347:
1348: yyval.t = substr(yypvt[-3].t, yypvt[-1].val, strlen(yypvt[-3].t) - yypvt[-1].val); }break;
1349:
1350: case 97: {
1351:
1352: #line 605 "asm.y"
1353:
1354: yyval.t = galloc(12);
1355: sprintf(yyval.t, "%ld", yypvt[0].val); }break;
1356:
1357: case 98: {
1358:
1359: #line 608 "asm.y"
1360:
1361: yyval.t = galloc(20);
1362: sprintf(yyval.t, "%g", yypvt[0].dbl); }break;
1363:
1364: case 99: {
1365:
1366: #line 613 "asm.y"
1367:
1368: yyval.dbl = yypvt[0].dbl; }break;
1369:
1370: case 100: {
1371:
1372: #line 615 "asm.y"
1373:
1374: yyval.dbl = yypvt[-1].dbl; }break;
1375:
1376: case 101: {
1377:
1378: #line 617 "asm.y"
1379:
1380: yyval.dbl = yypvt[-2].dbl + yypvt[0].dbl; }break;
1381:
1382: case 102: {
1383:
1384: #line 619 "asm.y"
1385:
1386: yyval.dbl = yypvt[-2].dbl - yypvt[0].dbl; }break;
1387:
1388: case 103: {
1389:
1390: #line 621 "asm.y"
1391:
1392: yyval.dbl = yypvt[-2].dbl * yypvt[0].dbl; }break;
1393:
1394: case 104: {
1395:
1396: #line 623 "asm.y"
1397:
1398: yyval.dbl = yypvt[-2].dbl / yypvt[0].dbl; }break;
1399:
1400: case 105: {
1401:
1402: #line 625 "asm.y"
1403:
1404: yyval.dbl = - yypvt[0].dbl; }break;
1405:
1406: case 106: {
1407:
1408: #line 627 "asm.y"
1409:
1410: yyval.dbl = strtod(yypvt[0].t, (char **)NULL); }break;
1411:
1412: case 107: {
1413:
1414: #line 629 "asm.y"
1415:
1416: yyval.dbl = yypvt[0].val; }break;
1417:
1418: }
1419: ip = &yygo[ yypgo[yypdnt[pno]] ];
1420: while( *ip!=*yys && *ip!=YYNOCHAR )
1421: ip += 2;
1422: yystate = ip[1];
1423: goto stack;
1424: }
1425: }
1426:
1427:
1428:
1429:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.