![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to primitives CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to primitives CVS log | Up to [gforth] / gforth |
| version 1.67, 1997/03/04 17:49:55 | version 1.68, 1997/03/11 16:00:41 |
|---|---|
| Line 420 n = rp[2]; | Line 420 n = rp[2]; |
| : | : |
| rp@ cell+ cell+ cell+ @ ; | rp@ cell+ cell+ cell+ @ ; |
| k -- n gforth | |
| n = rp[4]; | |
| : | |
| rp@ [ 5 cells ] Literal + @ ; | |
| \ digit is high-level: 0/0% | \ digit is high-level: 0/0% |
| move c_from c_to ucount -- core | move c_from c_to ucount -- core |