diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-02 21:37:34 -0400 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-02 21:37:34 -0400 |
| commit | 4a1ec245925b007f02396c30a67d726a1fceb0bb (patch) | |
| tree | f541a2e127157256e8c1ad12682f19f601b936ce /forth | |
| parent | ea026f8d67c411fc4a0d8b255a2653753258175e (diff) | |
msp430: include core-ext and tools
Diffstat (limited to 'forth')
| -rw-r--r-- | forth/msp430.fth | 1 | ||||
| -rw-r--r-- | forth/tools.fth | 11 |
2 files changed, 1 insertions, 11 deletions
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 |