collapseos/apps/forth/core.fth

: ? @ . ;
: +! SWAP OVER @ + SWAP ! ;
: ALLOT HERE +! ;
: VARIABLE CREATE 2 ALLOT ;
: CONSTANT CREATE HERE @ ! DOES> @ ;
: , HERE @ ! 2 ALLOT ;
: C, HERE @ C! 1 ALLOT ;
: THEN DUP HERE @ SWAP - SWAP C! ; IMMEDIATE
: NOT IF 0 ELSE 1 THEN ;
: = CMP NOT ;
: < CMP 0 1 - = ;
: > CMP 1 = ;
forth: add bin dict compilation stage! Big one. This allows us to write higher order words directly in Forth, which is much more convenient than writing post-immediate (see "NOT" structure in diff if you want to see what I mean) structures in ASM. These structures can then be written to ROM (rather than loaded in RAM for definitions loaded at run-time). That's quite a bit of tooling that was added, 2 compilations stages, but I think it's well worth it. 2020-03-12 15:14:44 +11:00			`: ? @ . ;`
			`: +! SWAP OVER @ + SWAP ! ;`
			`: ALLOT HERE +! ;`
			`: VARIABLE CREATE 2 ALLOT ;`
			`: CONSTANT CREATE HERE @ ! DOES> @ ;`
forth: implement THEN in Forth Also, add "," and "C," 2020-03-13 04:52:27 +11:00			`: , HERE @ ! 2 ALLOT ;`
			`: C, HERE @ C! 1 ALLOT ;`
			`: THEN DUP HERE @ SWAP - SWAP C! ; IMMEDIATE`
forth: add bin dict compilation stage! Big one. This allows us to write higher order words directly in Forth, which is much more convenient than writing post-immediate (see "NOT" structure in diff if you want to see what I mean) structures in ASM. These structures can then be written to ROM (rather than loaded in RAM for definitions loaded at run-time). That's quite a bit of tooling that was added, 2 compilations stages, but I think it's well worth it. 2020-03-12 15:14:44 +11:00			`: NOT IF 0 ELSE 1 THEN ;`
			`: = CMP NOT ;`
			`: < CMP 0 1 - = ;`
			`: > CMP 1 = ;`