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 |