From 494bd41b64a6cf9c1404a7716af40d2266771d1e Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Fri, 10 Nov 2023 07:37:06 -0500 Subject: msp430: lpm support; . uses base; expand dict size --- forth/msp430.fth | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'forth') diff --git a/forth/msp430.fth b/forth/msp430.fth index 1b3ab40..ef8bf60 100644 --- a/forth/msp430.fth +++ b/forth/msp430.fth @@ -1,18 +1,19 @@ -: vector! 10 sys ; -: reg! 11 sys ; -: reg@ 12 sys ; -: 2reg! 13 sys ; -: 2reg@ 14 sys ; -: sr+ 15 sys ; -: sr- 16 sys ; +: vector! 10 sys ; +: byte! 11 sys ; +: byte@ 12 sys ; +: reg! 13 sys ; +: reg@ 14 sys ; +: sr+ 15 sys ; +: sr- 16 sys ; +: lpm-exit 17 sys ; : reg [ ' reg@ ' reg! ] literal literal ; -: 2reg [ ' 2reg@ ' 2reg! ] literal literal ; +: byte [ ' byte@ ' byte! ] literal literal ; -: set ( b r reg/wreg -- ) +: set ( b r reg/byte -- ) >r over r> execute >r rot r> | -rot execute ; -: clear ( b r reg/wreg -- ) +: clear ( b r reg/byte -- ) >r over r> execute >r rot invert r> & -rot execute ; -: toggle ( b r reg/wreg -- ) +: toggle ( b r reg/byte -- ) >r over r> execute >r rot r> ^ -rot execute ; -- cgit v1.2.3