words.c (42634) | words.c (42679) |
---|---|
1/******************************************************************* 2** w o r d s . c 3** Forth Inspired Command Language 4** ANS Forth CORE word-set written in C 5** Author: John Sadler (john_sadler@alum.mit.edu) 6** Created: 19 July 1997 7** 8*******************************************************************/ --- 4372 unchanged lines hidden (view full) --- 4381 dictAppendWord(dp, "fread", pfread, FW_DEFAULT); 4382 dictAppendWord(dp, "fload", pfload, FW_DEFAULT); 4383 dictAppendWord(dp, "fkey", fkey, FW_DEFAULT); 4384 dictAppendWord(dp, "key", key, FW_DEFAULT); 4385 dictAppendWord(dp, "key?", keyQuestion, FW_DEFAULT); 4386 dictAppendWord(dp, "ms", ms, FW_DEFAULT); 4387 dictAppendWord(dp, "seconds", pseconds, FW_DEFAULT); 4388#ifdef __i386__ | 1/******************************************************************* 2** w o r d s . c 3** Forth Inspired Command Language 4** ANS Forth CORE word-set written in C 5** Author: John Sadler (john_sadler@alum.mit.edu) 6** Created: 19 July 1997 7** 8*******************************************************************/ --- 4372 unchanged lines hidden (view full) --- 4381 dictAppendWord(dp, "fread", pfread, FW_DEFAULT); 4382 dictAppendWord(dp, "fload", pfload, FW_DEFAULT); 4383 dictAppendWord(dp, "fkey", fkey, FW_DEFAULT); 4384 dictAppendWord(dp, "key", key, FW_DEFAULT); 4385 dictAppendWord(dp, "key?", keyQuestion, FW_DEFAULT); 4386 dictAppendWord(dp, "ms", ms, FW_DEFAULT); 4387 dictAppendWord(dp, "seconds", pseconds, FW_DEFAULT); 4388#ifdef __i386__ |
4389 dictAppendWord(dp, "pc!", pc_store, FW_DEFAULT); 4390 dictAppendWord(dp, "pc@", pc_fetch, FW_DEFAULT); | 4389#ifndef TESTMAIN 4390 dictAppendWord(dp, "outb", ficlOutb, FW_DEFAULT); 4391 dictAppendWord(dp, "inb", ficlInb, FW_DEFAULT); 4392#endif |
4391 ficlSetEnv("arch-i386", FICL_TRUE); 4392#else 4393 ficlSetEnv("arch-i386", FICL_FALSE); 4394#endif 4395 4396 /* 4397 ** Set CORE environment query values 4398 */ --- 144 unchanged lines hidden --- | 4393 ficlSetEnv("arch-i386", FICL_TRUE); 4394#else 4395 ficlSetEnv("arch-i386", FICL_FALSE); 4396#endif 4397 4398 /* 4399 ** Set CORE environment query values 4400 */ --- 144 unchanged lines hidden --- |