4 #include <machine/cpufunc.h>
8 * Store a byte to I/O port number port#
11 ficlOutb(FICL_VM *pVM)
16 port=stackPopUNS(pVM->pStack);
17 c=(u_char)stackPopINT(pVM->pStack);
23 * Fetch a byte from I/O port number port#
31 port=stackPopUNS(pVM->pStack);
33 stackPushINT(pVM->pStack,c);
37 * Glue function to add the appropriate forth words to access x86 special cpu
40 static void ficlCompileCpufunc(FICL_SYSTEM *pSys)
42 FICL_DICT *dp = pSys->dp;
45 dictAppendWord(dp, "outb", ficlOutb, FW_DEFAULT);
46 dictAppendWord(dp, "inb", ficlInb, FW_DEFAULT);
49 FICL_COMPILE_SET(ficlCompileCpufunc);