From 6ef7f7ce8548f6e6c60d3b444a087722f354a53f Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Mon, 20 Feb 2023 17:32:35 -0500 Subject: create, does>, variables --- core.fth | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) (limited to 'core.fth') diff --git a/core.fth b/core.fth index eb41948..8c57e6d 100644 --- a/core.fth +++ b/core.fth @@ -30,10 +30,13 @@ : chars ; : base 0 ; -: state 2 ; +: _latest 1 cells ; +: state 2 cells ; : decimal 1 1+ base ! 1010 base ! ; -: postpone 1 4 ! ; imm +: imm _latest @ dup @ 1 5 << | swap ! ; + +: postpone 1 3 cells ! ; imm : ['] ' postpone literal ; imm : [ 0 state ! ; imm : ] 1 state ! ; @@ -101,3 +104,16 @@ : type begin dup 0 > while swap dup c@ emit char+ swap 1- repeat ; : ." [char] " word count type ; + +: create align here bl word count nip cell+ allot align + ['] _lit , here 3 cells + , ['] exit , 0 , + dup @ 31 & over _latest @ - 6 << or over ! _latest ! ; +: does> _latest @ + dup @ 31 & + cell+ aligned + 2 cells + + ['] _jmp over ! cell+ + here swap ! ] ; + +: variable create 1 cells allot ; +: constant create , does> ['] @ , postpone ; ; +( TODO fix compile-time does>... above should simply be "does> @ ;" ) -- cgit v1.2.3