mirror of
https://github.com/mgcaret/of816.git
synced 2024-05-28 14:41:27 +00:00
fix stack notation for $2VALUE
This commit is contained in:
parent
d2e032a559
commit
3657b78e33
|
@ -5783,7 +5783,7 @@ dword IS_USER_WORD,"(IS-USER-WORD)"
|
||||||
EXIT
|
EXIT
|
||||||
eword
|
eword
|
||||||
|
|
||||||
; H: ( n str len ) create a definition that pushes the first cell of the body, initially n
|
; H: ( n str len -- ) create a definition that pushes the first cell of the body, initially n
|
||||||
dword dVALUE,"$VALUE"
|
dword dVALUE,"$VALUE"
|
||||||
jsr _3parm ; avoid dictionary corruption from stack underflow
|
jsr _3parm ; avoid dictionary corruption from stack underflow
|
||||||
jsr _mkentry
|
jsr _mkentry
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
# Forth Dictionary
|
# Forth Dictionary
|
||||||
|
|
||||||
Updated: 2020-01-21 23:37:36 -0800
|
Updated: 2020-01-21 23:40:51 -0800
|
||||||
|
|
||||||
## !
|
## !
|
||||||
|
|
||||||
|
@ -106,7 +106,7 @@ by an existing buffer, free it.
|
||||||
|
|
||||||
## $VALUE
|
## $VALUE
|
||||||
|
|
||||||
( n str len ) create a definition that pushes the first cell of the body, initially n
|
_( n str len -- )_ create a definition that pushes the first cell of the body, initially n
|
||||||
|
|
||||||
## '
|
## '
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user