![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prim.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / misc|
Return to prim.fs CVS log | Up to [gforth] / gforth / arch / misc |
| version 1.4, 1999/05/20 13:38:28 | version 1.5, 1999/12/31 21:40:01 |
|---|---|
| Line 740 SP 2* Constant SP | Line 740 SP 2* Constant SP |
| UP 2* Constant UP | UP 2* Constant UP |
| IP 2* Constant IP | IP 2* Constant IP |
| c: sp! 2/ sp ! ; | \ c: sp! 2/ sp ! ; |
| c: sp@ sp @ 1+ 2* ; | \ c: sp@ sp @ 1+ 2* ; |
| c: rp@ rp @ 2* ; | \ c: rp@ rp @ 2* ; |
| c: rp! r> swap 2/ rp ! >r ; | \ c: rp! r> swap 2/ rp ! >r ; |
| c: up@ up @ ; | : up@ up @ ; |
| c: up! up ! ; | : up! up ! ; |
| include ./key.fs | include ./key.fs |