From 4a1ec245925b007f02396c30a67d726a1fceb0bb Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Thu, 2 Nov 2023 21:37:34 -0400 Subject: msp430: include core-ext and tools --- forth/msp430.fth | 1 + forth/tools.fth | 11 ----------- 2 files changed, 1 insertion(+), 11 deletions(-) (limited to 'forth') diff --git a/forth/msp430.fth b/forth/msp430.fth index 9ba88bf..9fb041f 100644 --- a/forth/msp430.fth +++ b/forth/msp430.fth @@ -840,3 +840,4 @@ : UCB1IV_H 05AF ; decimal + diff --git a/forth/tools.fth b/forth/tools.fth index 8992d48..b27955d 100644 --- a/forth/tools.fth +++ b/forth/tools.fth @@ -11,14 +11,3 @@ >r cell+ rot drop r> @ then -rot swap type space \ lt adv over _begin <> while - repeat 2drop ; - -( xt -- caddr u ) -: _nameof _latest @ begin \ xt lt - 2dup < while \ xt lt - dup @ \ xt lt l - dup 6 >> 1023 < if \ xt lt l - 6 >> - else - drop dup cell+ @ - then \ xt lt - repeat nip \ lt - dup @ swap cell+ over 31 & \ l lt len - rot 6 >> 1023 = if swap cell+ swap then ; \ lt len -- cgit v1.2.3