mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 19:20:55 +11:00
5bf3baff05
Also, add word "C!+" and fix PSP leak in FILL.
18 lines
804 B
Plaintext
18 lines
804 B
Plaintext
Memory
|
|
|
|
@ a -- n Set n to value at address a
|
|
! n a -- Store n in address a
|
|
? a -- Print value of addr a
|
|
+! n a -- Increase value of addr a by n
|
|
C@ a -- c Set c to byte at address a
|
|
C@+ a -- a+1 c Fetch c from a and inc a.
|
|
C! c a -- Store byte c in address a
|
|
C!+ c a -- a+1 Store byte c in a and inc a.
|
|
CURRENT -- a Set a to wordref of last added entry.
|
|
CURRENT* -- a A pointer to active CURRENT*. Useful
|
|
when we have multiple active dicts.
|
|
FILL a n b -- Fill n bytes at addr a with val b.
|
|
HERE -- a Push HERE's address
|
|
H@ -- a HERE @
|
|
(cont.)
|