move comment words \ and ( to myforth.S for earlier commenting
This commit is contained in:
parent
35c42fa895
commit
09afabc21c
|
|
@ -1179,6 +1179,12 @@ defword COMPILE
|
|||
.int EXECUTE,EXIT
|
||||
2: .int COMMA,EXIT
|
||||
|
||||
defword SLASH,"\\",F_IMMED
|
||||
0: .int KEY,LIT,10,EQU,ZBRANCH,(0b - .),EXIT
|
||||
|
||||
defword PAREN,"(",F_IMMED
|
||||
0: .int KEY,LIT,')',EQU,ZBRANCH,(0b - .),EXIT
|
||||
|
||||
defword QUIT
|
||||
.int R0,RSPSTORE
|
||||
0: .int STATE,FETCH,ZBRANCH,(1f - .)
|
||||
|
|
|
|||
|
|
@ -24,9 +24,6 @@
|
|||
: BEGIN HERE ; IMMEDIATE
|
||||
: AGAIN ['] BRANCH , HERE - , ; IMMEDIATE
|
||||
|
||||
: \ BEGIN KEY 10 = IF EXIT THEN AGAIN ; IMMEDIATE
|
||||
: ( BEGIN KEY [ CHAR ) ] LITERAL = IF EXIT THEN AGAIN ; IMMEDIATE
|
||||
|
||||
CREATE VAR 123 , DOES> @ ;
|
||||
: VAR! [ ' VAR >BODY ] LITERAL ! ;
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue