collapseos/apps/forth/core.fth

: H HERE @ ;
: -^ SWAP - ;
: ? @ . ;
: +! SWAP OVER @ + SWAP ! ;
: ALLOT HERE +! ;
: VARIABLE CREATE 2 ALLOT ;
: CONSTANT CREATE H ! DOES> @ ;
: , H ! 2 ALLOT ;
: C, H C! 1 ALLOT ;
: IF ['] (fbr?) , H 0 C, ; IMMEDIATE
: THEN DUP H -^ SWAP C! ; IMMEDIATE
: ELSE ['] (fbr) , 0 C, DUP H -^ SWAP C! H 1 - ; IMMEDIATE
: NOT IF 0 ELSE 1 THEN ;
: = CMP NOT ;
: < CMP 0 1 - = ;
: > CMP 1 = ;
forth: Forth-ify IF and ELSE Now, I really need comments... 2020-03-13 12:49:10 +11:00			`: H HERE @ ;`
			`: -^ SWAP - ;`
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 ;`
forth: Forth-ify IF and ELSE Now, I really need comments... 2020-03-13 12:49:10 +11:00			`: CONSTANT CREATE H ! DOES> @ ;`
			`: , H ! 2 ALLOT ;`
			`: C, H C! 1 ALLOT ;`
			`: IF ['] (fbr?) , H 0 C, ; IMMEDIATE`
			`: THEN DUP H -^ SWAP C! ; IMMEDIATE`
			`: ELSE ['] (fbr) , 0 C, DUP H -^ SWAP C! H 1 - ; 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 = ;`