![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sim.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 sim.fs CVS log | Up to [gforth] / gforth / arch / misc |
| version 1.3, 1999/12/31 21:40:01 | version 1.4, 2002/10/02 15:32:43 |
|---|---|
| Line 32 constant mem | Line 32 constant mem |
| : ram> 2* mem + dup c@ 8 lshift swap char+ c@ or ; | : ram> 2* mem + dup c@ 8 lshift swap char+ c@ or ; |
| : >ram 2* mem + over 8 rshift over c! char+ c! ; | : >ram dup $4000 u< ABORT" Memory below $4000 is read-only" |
| 2* mem + over 8 rshift over c! char+ c! ; | |
| \ IO | \ IO |