Lines Matching defs:d
60 fstack_t d;
63 d = POP(DS);
64 TOS += d;
70 fstack_t d;
73 d = POP(DS);
74 TOS -= d;
80 fstack_t d;
83 d = POP(DS);
84 TOS *= d;
90 fstack_t d, o, t, rem;
94 d = POP(DS);
97 if (d == 0) {
100 sign = ((d ^ t) < 0);
101 if (d < 0) {
102 d = -d;
104 t += (d-1);
109 t -= (d-1);
113 t = t / d;
115 rem = (t * d) + o;
117 rem = o - (t*d);
163 fstack_t d;
166 d = POP(DS);
167 TOS &= d;
173 fstack_t d;
176 d = POP(DS);
177 TOS |= d;
183 fstack_t d;
186 d = POP(DS);
187 TOS ^= d;
200 fstack_t d;
203 d = POP(DS);
204 TOS = TOS << d;
210 fstack_t d;
213 d = POP(DS);
214 TOS = ((ufstack_t)TOS) >> d;
220 fstack_t d;
223 d = POP(DS);
224 TOS = ((s_lforth_t)TOS) >> d;
244 fstack_t d;
247 d = POP(DS);
248 if (d < TOS) TOS = d;
254 fstack_t d;
257 d = POP(DS);
258 if (d > TOS) TOS = d;
345 fstack_t d;
348 d = POP(DS);
349 TOS = COMPARE(LESSTHAN, d);
355 fstack_t d;
358 d = POP(DS);
359 TOS = COMPARE(GREATERTHAN, d);
365 fstack_t d;
368 d = POP(DS);
369 TOS = COMPARE(EQUALS, d);
375 fstack_t d;
378 d = POP(DS);
379 TOS = COMPARE(NOTEQUALS, d);
386 ufstack_t d;
389 d = POP(DS);
390 TOS = UCOMPARE(GREATERTHAN, d);
396 ufstack_t d;
399 d = POP(DS);
400 TOS = UCOMPARE(LESSEQUALS, d);
406 ufstack_t d;
409 d = POP(DS);
410 TOS = UCOMPARE(LESSTHAN, d);
416 ufstack_t d;
419 d = POP(DS);
420 TOS = UCOMPARE(GREATEREQUALS, d);
426 fstack_t d;
429 d = POP(DS);
430 TOS = COMPARE(GREATEREQUALS, d);
436 fstack_t d;
439 d = POP(DS);
440 TOS = COMPARE(LESSEQUALS, d);
484 token_t *d = *ORDER;
487 env->order[++env->order_depth] = d;
488 debug_msg(DEBUG_CONTEXT, "CONTEXT:also: %d/%p/%p\n",
491 log_message(MSG_WARN, "Vocabulary search order exceeds: %d\n",
500 debug_msg(DEBUG_CONTEXT, "CONTEXT:previous: %d/%p/%p\n",
533 } d;
537 d.l_lf = POP(DS);
539 PUSH(DS, d.l_wf[(FW_PER_FL - 1) - i]);
548 } d;
553 d.l_wf[i] = POP(DS);
554 PUSH(DS, d.l_lf);
563 } d, c;
567 d.l_lf = POP(DS);
569 c.l_wf[i] = d.l_wf[(FW_PER_FL - 1) - i];
579 } d;
583 d.l_lf = POP(DS);
585 PUSH(DS, d.l_bytes[(sizeof (lforth_t) - 1) - i]);
594 } d;
599 d.l_bytes[i] = POP(DS);
600 PUSH(DS, (fstack_t)d.l_lf);
609 } d, c;
613 d.l_lf = POP(DS);
615 c.l_bytes[i] = d.l_bytes[(sizeof (lforth_t) - 1) - i];
625 } d;
629 d.w_wf = POP(DS);
631 PUSH(DS, d.w_bytes[(sizeof (wforth_t) - 1) - i]);
640 } d;
645 d.w_bytes[i] = POP(DS);
646 PUSH(DS, d.w_wf);
655 } c, d;
659 d.w_wf = POP(DS);
661 c.w_bytes[i] = d.w_bytes[(sizeof (wforth_t) - 1) - i];
737 dforth_t d;
742 d = u1 * u2;
743 push_double(env, d);
747 * um/mod (d.lo d.hi u -- urem uquot)
752 u_dforth_t d;
757 d = pop_double(env);
758 urem = d % u;
759 uquot = d / u;
765 * d+ (d1.lo d1.hi d2.lo d2.hi -- dsum.lo dsum.hi)
772 CHECK_DEPTH(env, 4, "d+");
780 * d- (d1.lo d1.hi d2.lo d2.hi -- ddif.lo ddif.hi)
787 CHECK_DEPTH(env, 4, "d-");
1208 fstack_t d;
1211 d = TOS;
1212 PUSH(DS, d);
1218 fstack_t d;
1221 d = DS[-1];
1222 PUSH(DS, d);
1228 fstack_t d;
1231 d = DS[-1];
1233 DS[0] = d;
1240 fstack_t d;
1243 d = DS[-2];
1246 TOS = d;
1252 fstack_t d;
1255 d = TOS;
1258 DS[-2] = d;
1264 fstack_t d;
1267 d = TOS;
1269 PUSH(DS, d);
1283 fstack_t d;
1286 d = TOS;
1287 if (d)
1288 PUSH(DS, d);
1294 fstack_t d;
1296 d = DS - env->ds0;
1297 PUSH(DS, d);
1308 forth_abort(env, "pick: invalid pick value: %d\n", (int)p);
1316 fstack_t d, r;
1321 forth_abort(env, "roll: invalid roll value: %d\n", (int)r);
1323 d = DS[-r];
1328 TOS = d;
1437 fstack_t d;
1440 d = POP(DS);
1441 TOS += d * sizeof (char);
1447 fstack_t d;
1450 d = POP(DS);
1451 TOS += d * sizeof (wforth_t);
1457 fstack_t d;
1460 d = POP(DS);
1461 TOS += d * sizeof (lforth_t);
1467 fstack_t d;
1470 d = POP(DS);
1471 TOS += d * sizeof (fstack_t);
1532 variable_t *d;
1535 d = (variable_t *)POP(DS);
1536 *d = -1;
1542 variable_t *d;
1545 d = (variable_t *)POP(DS);
1546 *d = 0;
1637 variable_t *d;
1640 d = (variable_t *)POP(DS);
1641 PUSH(DS, (fstack_t)(d + 1));
1643 PUSH(DS, (fstack_t)d);
1650 variable_t *d;
1653 d = (variable_t *)POP(DS);
1654 PUSH(DS, (fstack_t)d);
1656 PUSH(DS, (fstack_t)(d + 1));
1735 fstack_t d = POP(RS);
1742 PUSH(DS, d);
1750 set_here(env, (uchar_t *)d, "temporary_execute");
1789 fstack_t d;
1792 d = POP(DS);
1793 if (d == TOS) {
1838 fstack_t d;
1841 d = POP(DS);
1842 loop_inc(env, d);
2068 debug_msg(DEBUG_CONTEXT, "CONTEXT:definitions: %d/%p/%p\n",
2150 debug_msg(DEBUG_CONTEXT, "CONTEXT:vocabulary: %d/%p/%p\n",
2168 debug_msg(DEBUG_CONTEXT, "CONTEXT:forth: %d/%p/%p\n",
2290 debug_msg(DEBUG_ACTIONS, "make_common_access:%s '%s', %d\n",
2302 debug_msg(DEBUG_ACTIONS, "Data: %p, offset %d\n", (char *)dptr,
2635 ANSI(0x0d8, 0, "d+", d_plus);
2636 ANSI(0x0d9, 0, "d-", d_minus);