From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/msp430/words/1-minus.asm | 4 -- amforth-6.5/msp430/words/1-plus.asm | 4 -- amforth-6.5/msp430/words/2-r-from.asm | 9 --- amforth-6.5/msp430/words/2-slash.asm | 4 -- amforth-6.5/msp430/words/2-star.asm | 4 -- amforth-6.5/msp430/words/2-to-r.asm | 7 -- amforth-6.5/msp430/words/a-to-info.asm | 5 -- amforth-6.5/msp430/words/align.asm | 4 -- amforth-6.5/msp430/words/aligned.asm | 4 -- amforth-6.5/msp430/words/allot.asm | 4 -- amforth-6.5/msp430/words/and.asm | 4 -- amforth-6.5/msp430/words/bm-clear.asm | 6 -- amforth-6.5/msp430/words/bm-set.asm | 6 -- amforth-6.5/msp430/words/bm-test.asm | 5 -- amforth-6.5/msp430/words/branch.asm | 4 -- amforth-6.5/msp430/words/byte-swap.asm | 4 -- amforth-6.5/msp430/words/c-comma.asm | 10 --- amforth-6.5/msp430/words/c-fetch.asm | 4 -- amforth-6.5/msp430/words/c-store.asm | 6 -- amforth-6.5/msp430/words/cellplus.asm | 5 -- amforth-6.5/msp430/words/cells.asm | 2 - amforth-6.5/msp430/words/cmove-up.asm | 16 ----- amforth-6.5/msp430/words/cmove.asm | 16 ----- amforth-6.5/msp430/words/code.asm | 5 -- amforth-6.5/msp430/words/colon-noname.asm | 6 -- amforth-6.5/msp430/words/comma.asm | 10 --- amforth-6.5/msp430/words/compare.asm | 18 ----- amforth-6.5/msp430/words/d-2slash.asm | 5 -- amforth-6.5/msp430/words/d-2star.asm | 5 -- amforth-6.5/msp430/words/d-minus.asm | 10 --- amforth-6.5/msp430/words/d-plus.asm | 10 --- amforth-6.5/msp430/words/dabs.asm | 4 -- amforth-6.5/msp430/words/dnegate.asm | 5 -- amforth-6.5/msp430/words/do-constant.asm | 10 --- amforth-6.5/msp430/words/do-defer.asm | 16 ----- amforth-6.5/msp430/words/do-do.asm | 25 ------- amforth-6.5/msp430/words/do-does.asm | 28 -------- amforth-6.5/msp430/words/do-loop.asm | 20 ------ amforth-6.5/msp430/words/do-plusloop.asm | 20 ------ amforth-6.5/msp430/words/do-squote.asm | 15 ----- amforth-6.5/msp430/words/do-value.asm | 15 ----- amforth-6.5/msp430/words/do-variable.asm | 11 ---- amforth-6.5/msp430/words/does.asm | 20 ------ amforth-6.5/msp430/words/dp.asm | 4 -- amforth-6.5/msp430/words/drop.asm | 4 -- amforth-6.5/msp430/words/dup.asm | 5 -- amforth-6.5/msp430/words/end-code.asm | 5 -- amforth-6.5/msp430/words/environment.asm | 4 -- amforth-6.5/msp430/words/equal.asm | 7 -- amforth-6.5/msp430/words/execute.asm | 7 -- amforth-6.5/msp430/words/exit.asm | 4 -- amforth-6.5/msp430/words/fetch.asm | 4 -- amforth-6.5/msp430/words/fill.asm | 12 ---- amforth-6.5/msp430/words/fm-mod.asm | 12 ---- amforth-6.5/msp430/words/forth-recognizer.asm | 8 --- amforth-6.5/msp430/words/forth-wordlist.asm | 4 -- amforth-6.5/msp430/words/g-mark.asm | 3 - amforth-6.5/msp430/words/g-resolve.asm | 5 -- amforth-6.5/msp430/words/get-current.asm | 2 - amforth-6.5/msp430/words/greater.asm | 3 - amforth-6.5/msp430/words/header.asm | 14 ---- amforth-6.5/msp430/words/here.asm | 4 -- amforth-6.5/msp430/words/hld.asm | 4 -- amforth-6.5/msp430/words/i-allot.asm | 4 -- amforth-6.5/msp430/words/i-cellplus.asm | 4 -- amforth-6.5/msp430/words/i-fetch.asm | 2 - amforth-6.5/msp430/words/i-here.asm | 4 -- amforth-6.5/msp430/words/i.asm | 8 --- amforth-6.5/msp430/words/ic-fetch.asm | 2 - amforth-6.5/msp430/words/icount.asm | 3 - amforth-6.5/msp430/words/idp.asm | 4 -- amforth-6.5/msp430/words/immediate-q.asm | 15 ----- amforth-6.5/msp430/words/immediate.asm | 4 -- amforth-6.5/msp430/words/infodp.asm | 4 -- amforth-6.5/msp430/words/int-fetch.asm | 4 -- amforth-6.5/msp430/words/int-off.asm | 3 - amforth-6.5/msp430/words/int-on.asm | 3 - amforth-6.5/msp430/words/int-store.asm | 5 -- amforth-6.5/msp430/words/int-trap.asm | 4 -- amforth-6.5/msp430/words/invert.asm | 4 -- amforth-6.5/msp430/words/isr-exec.asm | 7 -- amforth-6.5/msp430/words/itype.asm | 6 -- amforth-6.5/msp430/words/j.asm | 9 --- amforth-6.5/msp430/words/l-0.asm | 3 - amforth-6.5/msp430/words/l-mark.asm | 2 - amforth-6.5/msp430/words/l-resolve.asm | 4 -- amforth-6.5/msp430/words/latest.asm | 3 - amforth-6.5/msp430/words/less.asm | 7 -- amforth-6.5/msp430/words/lit.asm | 8 --- amforth-6.5/msp430/words/lp.asm | 4 -- amforth-6.5/msp430/words/lshift.asm | 10 --- amforth-6.5/msp430/words/m-plus.asm | 6 -- amforth-6.5/msp430/words/m-star.asm | 8 --- amforth-6.5/msp430/words/mcu-sr-fetch.asm | 5 -- amforth-6.5/msp430/words/minus.asm | 6 -- amforth-6.5/msp430/words/n_r_from.asm | 17 ----- amforth-6.5/msp430/words/n_to_r.asm | 15 ----- amforth-6.5/msp430/words/name2flags.asm | 3 - amforth-6.5/msp430/words/negate.asm | 5 -- amforth-6.5/msp430/words/newest.asm | 3 - amforth-6.5/msp430/words/nfa-to-cfa.asm | 5 -- amforth-6.5/msp430/words/nfa-to-lfa.asm | 4 -- amforth-6.5/msp430/words/nip.asm | 4 -- amforth-6.5/msp430/words/or.asm | 4 -- amforth-6.5/msp430/words/over.asm | 8 --- amforth-6.5/msp430/words/pause.asm | 7 -- amforth-6.5/msp430/words/plus-store.asm | 5 -- amforth-6.5/msp430/words/plus.asm | 4 -- amforth-6.5/msp430/words/q-branch.asm | 7 -- amforth-6.5/msp430/words/qdup.asm | 5 -- amforth-6.5/msp430/words/r-0.asm | 3 - amforth-6.5/msp430/words/r-fetch.asm | 6 -- amforth-6.5/msp430/words/r-from.asm | 6 -- amforth-6.5/msp430/words/reg-a.asm | 95 --------------------------- amforth-6.5/msp430/words/restore.asm | 7 -- amforth-6.5/msp430/words/rot.asm | 7 -- amforth-6.5/msp430/words/rp-fetch.asm | 6 -- amforth-6.5/msp430/words/rp-store.asm | 5 -- amforth-6.5/msp430/words/rshift.asm | 11 ---- amforth-6.5/msp430/words/s-0.asm | 3 - amforth-6.5/msp430/words/s-equal.asm | 19 ------ amforth-6.5/msp430/words/scomma.asm | 10 --- amforth-6.5/msp430/words/set-current.asm | 2 - amforth-6.5/msp430/words/slash-mod.asm | 4 -- amforth-6.5/msp430/words/sm-rem.asm | 12 ---- amforth-6.5/msp430/words/sp-fetch.asm | 6 -- amforth-6.5/msp430/words/sp-store.asm | 5 -- amforth-6.5/msp430/words/state.asm | 4 -- amforth-6.5/msp430/words/store.asm | 5 -- amforth-6.5/msp430/words/swap.asm | 6 -- amforth-6.5/msp430/words/to-body.asm | 3 - amforth-6.5/msp430/words/to-r.asm | 5 -- amforth-6.5/msp430/words/turnkey.asm | 5 -- amforth-6.5/msp430/words/u-less.asm | 6 -- amforth-6.5/msp430/words/uinit.asm | 39 ----------- amforth-6.5/msp430/words/um-slash-mod.asm | 31 --------- amforth-6.5/msp430/words/um-star.asm | 38 ----------- amforth-6.5/msp430/words/unloop.asm | 5 -- amforth-6.5/msp430/words/up.asm | 11 ---- amforth-6.5/msp430/words/usart-rx.asm | 10 --- amforth-6.5/msp430/words/usart-rxq.asm | 14 ---- amforth-6.5/msp430/words/usart-tx.asm | 14 ---- amforth-6.5/msp430/words/usart-txq.asm | 15 ----- amforth-6.5/msp430/words/user.asm | 9 --- amforth-6.5/msp430/words/wlscope.asm | 5 -- amforth-6.5/msp430/words/wordlist.asm | 14 ---- amforth-6.5/msp430/words/xor.asm | 5 -- amforth-6.5/msp430/words/zero-equal.asm | 5 -- amforth-6.5/msp430/words/zero-less.asm | 6 -- 149 files changed, 1233 deletions(-) delete mode 100644 amforth-6.5/msp430/words/1-minus.asm delete mode 100644 amforth-6.5/msp430/words/1-plus.asm delete mode 100644 amforth-6.5/msp430/words/2-r-from.asm delete mode 100644 amforth-6.5/msp430/words/2-slash.asm delete mode 100644 amforth-6.5/msp430/words/2-star.asm delete mode 100644 amforth-6.5/msp430/words/2-to-r.asm delete mode 100644 amforth-6.5/msp430/words/a-to-info.asm delete mode 100644 amforth-6.5/msp430/words/align.asm delete mode 100644 amforth-6.5/msp430/words/aligned.asm delete mode 100644 amforth-6.5/msp430/words/allot.asm delete mode 100644 amforth-6.5/msp430/words/and.asm delete mode 100644 amforth-6.5/msp430/words/bm-clear.asm delete mode 100644 amforth-6.5/msp430/words/bm-set.asm delete mode 100644 amforth-6.5/msp430/words/bm-test.asm delete mode 100644 amforth-6.5/msp430/words/branch.asm delete mode 100644 amforth-6.5/msp430/words/byte-swap.asm delete mode 100644 amforth-6.5/msp430/words/c-comma.asm delete mode 100644 amforth-6.5/msp430/words/c-fetch.asm delete mode 100644 amforth-6.5/msp430/words/c-store.asm delete mode 100644 amforth-6.5/msp430/words/cellplus.asm delete mode 100644 amforth-6.5/msp430/words/cells.asm delete mode 100644 amforth-6.5/msp430/words/cmove-up.asm delete mode 100644 amforth-6.5/msp430/words/cmove.asm delete mode 100644 amforth-6.5/msp430/words/code.asm delete mode 100644 amforth-6.5/msp430/words/colon-noname.asm delete mode 100644 amforth-6.5/msp430/words/comma.asm delete mode 100644 amforth-6.5/msp430/words/compare.asm delete mode 100644 amforth-6.5/msp430/words/d-2slash.asm delete mode 100644 amforth-6.5/msp430/words/d-2star.asm delete mode 100644 amforth-6.5/msp430/words/d-minus.asm delete mode 100644 amforth-6.5/msp430/words/d-plus.asm delete mode 100644 amforth-6.5/msp430/words/dabs.asm delete mode 100644 amforth-6.5/msp430/words/dnegate.asm delete mode 100644 amforth-6.5/msp430/words/do-constant.asm delete mode 100644 amforth-6.5/msp430/words/do-defer.asm delete mode 100644 amforth-6.5/msp430/words/do-do.asm delete mode 100644 amforth-6.5/msp430/words/do-does.asm delete mode 100644 amforth-6.5/msp430/words/do-loop.asm delete mode 100644 amforth-6.5/msp430/words/do-plusloop.asm delete mode 100644 amforth-6.5/msp430/words/do-squote.asm delete mode 100644 amforth-6.5/msp430/words/do-value.asm delete mode 100644 amforth-6.5/msp430/words/do-variable.asm delete mode 100644 amforth-6.5/msp430/words/does.asm delete mode 100644 amforth-6.5/msp430/words/dp.asm delete mode 100644 amforth-6.5/msp430/words/drop.asm delete mode 100644 amforth-6.5/msp430/words/dup.asm delete mode 100644 amforth-6.5/msp430/words/end-code.asm delete mode 100644 amforth-6.5/msp430/words/environment.asm delete mode 100644 amforth-6.5/msp430/words/equal.asm delete mode 100644 amforth-6.5/msp430/words/execute.asm delete mode 100644 amforth-6.5/msp430/words/exit.asm delete mode 100644 amforth-6.5/msp430/words/fetch.asm delete mode 100644 amforth-6.5/msp430/words/fill.asm delete mode 100644 amforth-6.5/msp430/words/fm-mod.asm delete mode 100644 amforth-6.5/msp430/words/forth-recognizer.asm delete mode 100644 amforth-6.5/msp430/words/forth-wordlist.asm delete mode 100644 amforth-6.5/msp430/words/g-mark.asm delete mode 100644 amforth-6.5/msp430/words/g-resolve.asm delete mode 100644 amforth-6.5/msp430/words/get-current.asm delete mode 100644 amforth-6.5/msp430/words/greater.asm delete mode 100644 amforth-6.5/msp430/words/header.asm delete mode 100644 amforth-6.5/msp430/words/here.asm delete mode 100644 amforth-6.5/msp430/words/hld.asm delete mode 100644 amforth-6.5/msp430/words/i-allot.asm delete mode 100644 amforth-6.5/msp430/words/i-cellplus.asm delete mode 100644 amforth-6.5/msp430/words/i-fetch.asm delete mode 100644 amforth-6.5/msp430/words/i-here.asm delete mode 100644 amforth-6.5/msp430/words/i.asm delete mode 100644 amforth-6.5/msp430/words/ic-fetch.asm delete mode 100644 amforth-6.5/msp430/words/icount.asm delete mode 100644 amforth-6.5/msp430/words/idp.asm delete mode 100644 amforth-6.5/msp430/words/immediate-q.asm delete mode 100644 amforth-6.5/msp430/words/immediate.asm delete mode 100644 amforth-6.5/msp430/words/infodp.asm delete mode 100644 amforth-6.5/msp430/words/int-fetch.asm delete mode 100644 amforth-6.5/msp430/words/int-off.asm delete mode 100644 amforth-6.5/msp430/words/int-on.asm delete mode 100644 amforth-6.5/msp430/words/int-store.asm delete mode 100644 amforth-6.5/msp430/words/int-trap.asm delete mode 100644 amforth-6.5/msp430/words/invert.asm delete mode 100644 amforth-6.5/msp430/words/isr-exec.asm delete mode 100644 amforth-6.5/msp430/words/itype.asm delete mode 100644 amforth-6.5/msp430/words/j.asm delete mode 100644 amforth-6.5/msp430/words/l-0.asm delete mode 100644 amforth-6.5/msp430/words/l-mark.asm delete mode 100644 amforth-6.5/msp430/words/l-resolve.asm delete mode 100644 amforth-6.5/msp430/words/latest.asm delete mode 100644 amforth-6.5/msp430/words/less.asm delete mode 100644 amforth-6.5/msp430/words/lit.asm delete mode 100644 amforth-6.5/msp430/words/lp.asm delete mode 100644 amforth-6.5/msp430/words/lshift.asm delete mode 100644 amforth-6.5/msp430/words/m-plus.asm delete mode 100644 amforth-6.5/msp430/words/m-star.asm delete mode 100644 amforth-6.5/msp430/words/mcu-sr-fetch.asm delete mode 100644 amforth-6.5/msp430/words/minus.asm delete mode 100644 amforth-6.5/msp430/words/n_r_from.asm delete mode 100644 amforth-6.5/msp430/words/n_to_r.asm delete mode 100644 amforth-6.5/msp430/words/name2flags.asm delete mode 100644 amforth-6.5/msp430/words/negate.asm delete mode 100644 amforth-6.5/msp430/words/newest.asm delete mode 100644 amforth-6.5/msp430/words/nfa-to-cfa.asm delete mode 100644 amforth-6.5/msp430/words/nfa-to-lfa.asm delete mode 100644 amforth-6.5/msp430/words/nip.asm delete mode 100644 amforth-6.5/msp430/words/or.asm delete mode 100644 amforth-6.5/msp430/words/over.asm delete mode 100644 amforth-6.5/msp430/words/pause.asm delete mode 100644 amforth-6.5/msp430/words/plus-store.asm delete mode 100644 amforth-6.5/msp430/words/plus.asm delete mode 100644 amforth-6.5/msp430/words/q-branch.asm delete mode 100644 amforth-6.5/msp430/words/qdup.asm delete mode 100644 amforth-6.5/msp430/words/r-0.asm delete mode 100644 amforth-6.5/msp430/words/r-fetch.asm delete mode 100644 amforth-6.5/msp430/words/r-from.asm delete mode 100644 amforth-6.5/msp430/words/reg-a.asm delete mode 100644 amforth-6.5/msp430/words/restore.asm delete mode 100644 amforth-6.5/msp430/words/rot.asm delete mode 100644 amforth-6.5/msp430/words/rp-fetch.asm delete mode 100644 amforth-6.5/msp430/words/rp-store.asm delete mode 100644 amforth-6.5/msp430/words/rshift.asm delete mode 100644 amforth-6.5/msp430/words/s-0.asm delete mode 100644 amforth-6.5/msp430/words/s-equal.asm delete mode 100644 amforth-6.5/msp430/words/scomma.asm delete mode 100644 amforth-6.5/msp430/words/set-current.asm delete mode 100644 amforth-6.5/msp430/words/slash-mod.asm delete mode 100644 amforth-6.5/msp430/words/sm-rem.asm delete mode 100644 amforth-6.5/msp430/words/sp-fetch.asm delete mode 100644 amforth-6.5/msp430/words/sp-store.asm delete mode 100644 amforth-6.5/msp430/words/state.asm delete mode 100644 amforth-6.5/msp430/words/store.asm delete mode 100644 amforth-6.5/msp430/words/swap.asm delete mode 100644 amforth-6.5/msp430/words/to-body.asm delete mode 100644 amforth-6.5/msp430/words/to-r.asm delete mode 100644 amforth-6.5/msp430/words/turnkey.asm delete mode 100644 amforth-6.5/msp430/words/u-less.asm delete mode 100644 amforth-6.5/msp430/words/uinit.asm delete mode 100644 amforth-6.5/msp430/words/um-slash-mod.asm delete mode 100644 amforth-6.5/msp430/words/um-star.asm delete mode 100644 amforth-6.5/msp430/words/unloop.asm delete mode 100644 amforth-6.5/msp430/words/up.asm delete mode 100644 amforth-6.5/msp430/words/usart-rx.asm delete mode 100644 amforth-6.5/msp430/words/usart-rxq.asm delete mode 100644 amforth-6.5/msp430/words/usart-tx.asm delete mode 100644 amforth-6.5/msp430/words/usart-txq.asm delete mode 100644 amforth-6.5/msp430/words/user.asm delete mode 100644 amforth-6.5/msp430/words/wlscope.asm delete mode 100644 amforth-6.5/msp430/words/wordlist.asm delete mode 100644 amforth-6.5/msp430/words/xor.asm delete mode 100644 amforth-6.5/msp430/words/zero-equal.asm delete mode 100644 amforth-6.5/msp430/words/zero-less.asm (limited to 'amforth-6.5/msp430/words') diff --git a/amforth-6.5/msp430/words/1-minus.asm b/amforth-6.5/msp430/words/1-minus.asm deleted file mode 100644 index 6c71cc7..0000000 --- a/amforth-6.5/msp430/words/1-minus.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C 1- n1/u1 -- n2/u2 subtract 1 from TOS - CODEHEADER(XT_1MINUS,2,"1-") - SUB #1,TOS - NEXT diff --git a/amforth-6.5/msp430/words/1-plus.asm b/amforth-6.5/msp430/words/1-plus.asm deleted file mode 100644 index c9d78d2..0000000 --- a/amforth-6.5/msp430/words/1-plus.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C 1+ n1/u1 -- n2/u2 add 1 to TOS - CODEHEADER(XT_1PLUS,2,"1+") - ADD #1,TOS - NEXT diff --git a/amforth-6.5/msp430/words/2-r-from.asm b/amforth-6.5/msp430/words/2-r-from.asm deleted file mode 100644 index 16ea605..0000000 --- a/amforth-6.5/msp430/words/2-r-from.asm +++ /dev/null @@ -1,9 +0,0 @@ -;C 2R> -- d R: d -- pop from return stack - CODEHEADER(XT_2R_FROM,3,"2r>") - SUB #4,PSP ; 2 - MOV TOS,2(PSP) ; 4 - MOV @RSP+,TOS - MOV @RSP+,W - MOV W,0(PSP) ; 4 - - NEXT diff --git a/amforth-6.5/msp430/words/2-slash.asm b/amforth-6.5/msp430/words/2-slash.asm deleted file mode 100644 index 79abf8e..0000000 --- a/amforth-6.5/msp430/words/2-slash.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C 2/ x1 -- x2 arithmetic right shift - CODEHEADER(XT_2SLASH,2,"2/") - RRA TOS - NEXT diff --git a/amforth-6.5/msp430/words/2-star.asm b/amforth-6.5/msp430/words/2-star.asm deleted file mode 100644 index 471dc56..0000000 --- a/amforth-6.5/msp430/words/2-star.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C 2* x1 -- x2 arithmetic left shift - CODEHEADER(XT_2STAR,2,"2*") - ADD TOS,TOS - NEXT diff --git a/amforth-6.5/msp430/words/2-to-r.asm b/amforth-6.5/msp430/words/2-to-r.asm deleted file mode 100644 index b7e38a2..0000000 --- a/amforth-6.5/msp430/words/2-to-r.asm +++ /dev/null @@ -1,7 +0,0 @@ -;C 2>R d -- R: -- d push to return stack - CODEHEADER(XT_2TO_R,3,"2>r") - MOV @PSP+,W - PUSH W - PUSH TOS - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/a-to-info.asm b/amforth-6.5/msp430/words/a-to-info.asm deleted file mode 100644 index 302e2fe..0000000 --- a/amforth-6.5/msp430/words/a-to-info.asm +++ /dev/null @@ -1,5 +0,0 @@ -; convert a RAM address into an INFO flash address -; base a>info @ may be 0 or another value - HEADER(XT_ADDR_TO_INFO,6,"a>info",DOCOLON) - - .dw XT_DOLITERAL, INFOSTART, XT_DOLITERAL,RAMINFOAREA,XT_MINUS,XT_PLUS,XT_EXIT diff --git a/amforth-6.5/msp430/words/align.asm b/amforth-6.5/msp430/words/align.asm deleted file mode 100644 index a9ba1a5..0000000 --- a/amforth-6.5/msp430/words/align.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C ALIGN -- align HERE -; IHERE 1 AND IALLOT ; - HEADER(XT_ALIGN,5,"align",DOCOLON) - DW XT_IHERE,XT_ONE,XT_AND,XT_IALLOT,XT_EXIT diff --git a/amforth-6.5/msp430/words/aligned.asm b/amforth-6.5/msp430/words/aligned.asm deleted file mode 100644 index dfdd37b..0000000 --- a/amforth-6.5/msp430/words/aligned.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C ALIGNED addr -- a-addr align given addr -; DUP 1 AND + ; - HEADER(XT_ALIGNED,7,"aligned",DOCOLON) - DW XT_DUP,XT_ONE,XT_AND,XT_PLUS,XT_EXIT diff --git a/amforth-6.5/msp430/words/allot.asm b/amforth-6.5/msp430/words/allot.asm deleted file mode 100644 index 50b80d8..0000000 --- a/amforth-6.5/msp430/words/allot.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C ALLOT n -- allocate n bytes in dict -; DP +! ; - HEADER(XT_ALLOT,5,"allot",DOCOLON) - DW XT_DP,XT_PLUSSTORE,XT_EXIT diff --git a/amforth-6.5/msp430/words/and.asm b/amforth-6.5/msp430/words/and.asm deleted file mode 100644 index 7bc3533..0000000 --- a/amforth-6.5/msp430/words/and.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C AND x1 x2 -- x3 logical AND - CODEHEADER(XT_AND,3,"and") - AND @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/bm-clear.asm b/amforth-6.5/msp430/words/bm-clear.asm deleted file mode 100644 index 4cffa1d..0000000 --- a/amforth-6.5/msp430/words/bm-clear.asm +++ /dev/null @@ -1,6 +0,0 @@ -;Z CCLRB c c-addr -- clear bits in memory byte - CODEHEADER(XT_BM_CLEAR,8,"bm-clear") - MOV @PSP+,W - BIC.B W,0(TOS) - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/bm-set.asm b/amforth-6.5/msp430/words/bm-set.asm deleted file mode 100644 index ac7a071..0000000 --- a/amforth-6.5/msp430/words/bm-set.asm +++ /dev/null @@ -1,6 +0,0 @@ -;Z CSETB c c-addr -- set bits in memory byte - CODEHEADER(XT_BM_SET,6,"bm-set") - MOV @PSP+,W - BIS.B W,0(TOS) - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/bm-test.asm b/amforth-6.5/msp430/words/bm-test.asm deleted file mode 100644 index ce9ec0d..0000000 --- a/amforth-6.5/msp430/words/bm-test.asm +++ /dev/null @@ -1,5 +0,0 @@ -;Z CTSTB c c-addr -- c2 test bits in memory byte - CODEHEADER(XT_BM_TEST,5,"bm-test") - MOV.B @TOS,TOS - AND @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/branch.asm b/amforth-6.5/msp430/words/branch.asm deleted file mode 100644 index 8424672..0000000 --- a/amforth-6.5/msp430/words/branch.asm +++ /dev/null @@ -1,4 +0,0 @@ -;Z branch -- branch always - CODEHEADER(XT_DOBRANCH,6,"branch") -dobran: ADD @IP,IP ; 2 - NEXT ; 4 diff --git a/amforth-6.5/msp430/words/byte-swap.asm b/amforth-6.5/msp430/words/byte-swap.asm deleted file mode 100644 index 23cd9e7..0000000 --- a/amforth-6.5/msp430/words/byte-swap.asm +++ /dev/null @@ -1,4 +0,0 @@ -;Z >< x1 -- x2 swap bytes (not ANSI) - CODEHEADER(XT_SWAPBYTES,2,"><") - SWPB TOS - NEXT diff --git a/amforth-6.5/msp430/words/c-comma.asm b/amforth-6.5/msp430/words/c-comma.asm deleted file mode 100644 index 5064768..0000000 --- a/amforth-6.5/msp430/words/c-comma.asm +++ /dev/null @@ -1,10 +0,0 @@ -;C IC, char -- append char to Code dict -; XT_IHERE IC! 1 CHARS IALLOT ; - ; HEADER(ICCOMMA,3,"IC,",DOCOLON) - DW link - DB 0FFh ; not immediate -.set link = $ - DB 2,"c," - .align 16 -XT_CCOMMA: DW DOCOLON - DW XT_IHERE,XT_CSTOREI,XT_ONE,XT_IALLOT,XT_EXIT diff --git a/amforth-6.5/msp430/words/c-fetch.asm b/amforth-6.5/msp430/words/c-fetch.asm deleted file mode 100644 index 232603b..0000000 --- a/amforth-6.5/msp430/words/c-fetch.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C C@ c-addr -- char fetch char from memory - CODEHEADER(XT_CFETCH,2,"c@") - MOV.B @TOS,TOS - NEXT diff --git a/amforth-6.5/msp430/words/c-store.asm b/amforth-6.5/msp430/words/c-store.asm deleted file mode 100644 index 8969947..0000000 --- a/amforth-6.5/msp430/words/c-store.asm +++ /dev/null @@ -1,6 +0,0 @@ -;C C! char c-addr -- store char in memory - CODEHEADER(XT_CSTORE,2,"c!") - MOV @PSP+,W - MOV.B W,0(TOS) - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/cellplus.asm b/amforth-6.5/msp430/words/cellplus.asm deleted file mode 100644 index c8f4066..0000000 --- a/amforth-6.5/msp430/words/cellplus.asm +++ /dev/null @@ -1,5 +0,0 @@ -;C CELL+ a-addr1 -- a-addr2 add cell size -; 2 + ; - CODEHEADER(XT_CELLPLUS,5,"cell+") - ADD #2,TOS - NEXT diff --git a/amforth-6.5/msp430/words/cells.asm b/amforth-6.5/msp430/words/cells.asm deleted file mode 100644 index 46aec5a..0000000 --- a/amforth-6.5/msp430/words/cells.asm +++ /dev/null @@ -1,2 +0,0 @@ -;C CELLS n1 -- n2 cells->adrs units - HEADER(XT_CELLS,5,"cells",XT_2STAR+2) diff --git a/amforth-6.5/msp430/words/cmove-up.asm b/amforth-6.5/msp430/words/cmove-up.asm deleted file mode 100644 index 0bbe4a3..0000000 --- a/amforth-6.5/msp430/words/cmove-up.asm +++ /dev/null @@ -1,16 +0,0 @@ -;X CMOVE> c-addr1 c-addr2 u -- move from top -; as defined in the ANSI optional String word set - CODEHEADER(XT_CMOVEUP,6,"cmove>") - MOV @PSP+,W ; dest adrs - MOV @PSP+,X ; src adrs - CMP #0,TOS - JZ CMOVU_X - ADD TOS,W ; start at end - ADD TOS,X -CMOVU_1: SUB #1,X - SUB #1,W - MOV.B @X,0(W) ; copy byte - SUB #1,TOS - JNZ CMOVU_1 -CMOVU_X: MOV @PSP+,TOS ; pop new TOS - NEXT diff --git a/amforth-6.5/msp430/words/cmove.asm b/amforth-6.5/msp430/words/cmove.asm deleted file mode 100644 index a25b255..0000000 --- a/amforth-6.5/msp430/words/cmove.asm +++ /dev/null @@ -1,16 +0,0 @@ -;X CMOVE c-addr1 c-addr2 u -- move from bottom -; as defined in the ANSI optional String word set -; On byte machines, CMOVE and CMOVE> are logical -; factors of MOVE. They are easy to implement on -; CPUs which have a block-move instruction. - CODEHEADER(XT_CMOVE,5,"cmove") - MOV @PSP+,W ; dest adrs - MOV @PSP+,X ; src adrs - CMP #0,TOS - JZ CMOVE_X -CMOVE_1: MOV.B @X+,0(W) ; copy byte - ADD #1,W - SUB #1,TOS - JNZ CMOVE_1 -CMOVE_X: MOV @PSP+,TOS ; pop new TOS - NEXT diff --git a/amforth-6.5/msp430/words/code.asm b/amforth-6.5/msp430/words/code.asm deleted file mode 100644 index 73fbf2b..0000000 --- a/amforth-6.5/msp430/words/code.asm +++ /dev/null @@ -1,5 +0,0 @@ -;U MSP430CODE -- build header for assembler word -; 0 if strings differ, details are way more complex -; rot over <> if ( -- c-addr1 c-addr2 len2) -; \ string dont have the same length -; drop drop drop -1 exit then -; s= ; - - DW XT_ROT,XT_OVER,XT_NOTEQUAL - DW XT_DOCONDBRANCH - DEST(COMPARE_1) - DW XT_DROP,XT_2DROP, XT_MINUSONE,XT_EXIT -COMPARE_1: - DW XT_SEQUAL - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/d-2slash.asm b/amforth-6.5/msp430/words/d-2slash.asm deleted file mode 100644 index 06569f3..0000000 --- a/amforth-6.5/msp430/words/d-2slash.asm +++ /dev/null @@ -1,5 +0,0 @@ -CODEHEADER(XT_D2SLASH,3,"d2/") - - RRA TOS - RRC @PSP - NEXT diff --git a/amforth-6.5/msp430/words/d-2star.asm b/amforth-6.5/msp430/words/d-2star.asm deleted file mode 100644 index f275f8c..0000000 --- a/amforth-6.5/msp430/words/d-2star.asm +++ /dev/null @@ -1,5 +0,0 @@ -CODEHEADER(XT_D2STAR,3,"d2*") - - RLA @PSP - RLC TOS - NEXT diff --git a/amforth-6.5/msp430/words/d-minus.asm b/amforth-6.5/msp430/words/d-minus.asm deleted file mode 100644 index a39db67..0000000 --- a/amforth-6.5/msp430/words/d-minus.asm +++ /dev/null @@ -1,10 +0,0 @@ -;C d+ d1/ud1 d2/ud2 -- d3/ud3 sub d1-d2 -; d1-lo d1-hi d2-lo d2-hi -- d3-lo d3 -hi -; 4(PSP) 2(PSP) @(PSP) TOS -- NOS TOS - - CODEHEADER(XT_DMINUS,2,"d-") - SUB 0(PSP),4(PSP) ; subtract contents of scratchregister X from workregister, result is in scratchregister X - SUBC TOS,2(PSP) ; subtract content of TOS from the 3rd item, result is in 3rd item - MOV 2(PSP),TOS ; move contoent of 3rd item to TOS - ADD #4,PSP ; adjust parameterstackpointer, i.e. nip nip - NEXT diff --git a/amforth-6.5/msp430/words/d-plus.asm b/amforth-6.5/msp430/words/d-plus.asm deleted file mode 100644 index 90e62d7..0000000 --- a/amforth-6.5/msp430/words/d-plus.asm +++ /dev/null @@ -1,10 +0,0 @@ -;C d+ d1/ud1 d2/ud2 -- d3/ud3 add d1+d2 -; d1-lo d1-hi d2-lo d2-hi -- d3-lo d3 -hi -; 4(PSP) 2(PSP) @(PSP) TOS -- NOS TOS - - CODEHEADER(XT_DPLUS,2,"d+") - ADD 0(PSP), 4(PSP) ; add contents of work- and scratchregister, result is in workregister - ADDC 2(PSP),TOS ; add content of TOS to the 3rd item, result is in TOS - ADD #4,PSP ; adjust parameterstackpointer, i.e. nip nip - NEXT - diff --git a/amforth-6.5/msp430/words/dabs.asm b/amforth-6.5/msp430/words/dabs.asm deleted file mode 100644 index 4f8259e..0000000 --- a/amforth-6.5/msp430/words/dabs.asm +++ /dev/null @@ -1,4 +0,0 @@ -;X DABS d1 -- +d2 absolute value dbl.prec. -; DUP ?DNEGATE ; - HEADER(XT_DABS,4,"dabs",DOCOLON) - DW XT_DUP,XT_QDNEGATE,XT_EXIT diff --git a/amforth-6.5/msp430/words/dnegate.asm b/amforth-6.5/msp430/words/dnegate.asm deleted file mode 100644 index 00afc1c..0000000 --- a/amforth-6.5/msp430/words/dnegate.asm +++ /dev/null @@ -1,5 +0,0 @@ -;X DNEGATE d1 -- d2 negate double precision -; XT_SWAP INVERT SWAP INVERT 1 M+ ; - HEADER(XT_DNEGATE,7,"dnegate",DOCOLON) - DW XT_SWAP,XT_INVERT,XT_SWAP,XT_INVERT,XT_ONE,XT_MPLUS - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/do-constant.asm b/amforth-6.5/msp430/words/do-constant.asm deleted file mode 100644 index d700349..0000000 --- a/amforth-6.5/msp430/words/do-constant.asm +++ /dev/null @@ -1,10 +0,0 @@ -; DOCREATE's action is for a table in RAM. -; DOROM is the code action for a table in ROM; -; it returns the address of the parameter field. - -DOROM: ; -- a-addr ; Table in ROM: get PFA into TOS -PFA_DOCONSTANT: - SUB #2,PSP - MOV TOS,0(PSP) - MOV W,TOS - NEXT diff --git a/amforth-6.5/msp430/words/do-defer.asm b/amforth-6.5/msp430/words/do-defer.asm deleted file mode 100644 index 46e3e74..0000000 --- a/amforth-6.5/msp430/words/do-defer.asm +++ /dev/null @@ -1,16 +0,0 @@ -; : (defer) dup @i swap i-cell+ @i execute execute ; -HEADER(XT_DODEFER,7,"(defer)",DOCOLON) - .dw XT_DOCREATE - .dw XT_REVEAL - .dw XT_COMPILE - .dw DODEFER - .dw XT_EXIT - -DODEFER: - .dw 04030h, dodoes ; that compiles DOES> - .dw XT_DUP - .dw XT_ICELLPLUS - .dw XT_FETCHI - .dw XT_EXECUTE - .dw XT_EXECUTE - .dw XT_EXIT diff --git a/amforth-6.5/msp430/words/do-do.asm b/amforth-6.5/msp430/words/do-do.asm deleted file mode 100644 index cdb0a81..0000000 --- a/amforth-6.5/msp430/words/do-do.asm +++ /dev/null @@ -1,25 +0,0 @@ -;Z (do) n1|u1 n2|u2 -- R: -- sys1 sys2 -;Z run-time code for DO -; '83 and ANSI standard loops terminate when the boundary of -; limit-1 and limit is crossed, in either direction. This can -; be conveniently implemented by making the limit 8000h, so that -; arithmetic overflow logic can detect crossing. I learned this -; trick from Laxen & Perry F83. -; fudge factor = 8000h-limit, to be added to the start value. -; ; CODEHEADER(xdo,4,"(do)") -; DW link -; DB 0FFh ; not immediate -;.set link = $ -; DB 4,"(do)" -; .align 16 -XT_DODO: -xdo: DW $+2 - SUB #4,RSP ; push old loop values on return stack - MOV LIMIT,2(RSP) - MOV INDEX,0(RSP) - MOV #8000h,LIMIT ; compute 8000h-limit "fudge factor" - SUB @PSP+,LIMIT - MOV TOS,INDEX ; loop ctr = index+fudge - ADD LIMIT,INDEX - MOV @PSP+,TOS ; pop new TOS - NEXT diff --git a/amforth-6.5/msp430/words/do-does.asm b/amforth-6.5/msp430/words/do-does.asm deleted file mode 100644 index ebf1dcf..0000000 --- a/amforth-6.5/msp430/words/do-does.asm +++ /dev/null @@ -1,28 +0,0 @@ -; DODOES is the code action of a DOES> clause. For ITC Forth: -; defined word: CFA: doescode -; PFA: parameter field -; -; doescode: MOV #DODOES,PC ; 16-bit direct jump, in two cells -; high-level thread -; -; Note that we use JMP DODOES instead of CALL #DODOES because we can -; efficiently obtain the thread address. DODOES is entered with W=PFA. -; It enters the high-level thread with the address of the parameter -; field on top of stack. - -dodoes: ; -- a-addr ; 3 for MOV #DODOES,PC - SUB #2,PSP ; 1 make room on stack - MOV TOS,0(PSP) ; 4 - MOV W,TOS ; 1 put defined word's PFA in TOS - PUSH IP ; 3 save old IP on return stack - MOV -2(W),IP ; 3 fetch adrs of doescode from defined word - ADD #4,IP ; 1 skip MOV instruction to get thread adrs - NEXT ; 4 - -; OPTION 1 ; OPTION 2 -; MOV #DODOES,PC 3 ; CALL #DODOES 5 -; ... ; ... -; PUSH IP 3 ; POP W 2 -; MOVE -2(W),IP 3 ; PUSH IP 3 -; ADD #4,IP 1 ; MOV W,IP 1 - diff --git a/amforth-6.5/msp430/words/do-loop.asm b/amforth-6.5/msp430/words/do-loop.asm deleted file mode 100644 index b1a3628..0000000 --- a/amforth-6.5/msp430/words/do-loop.asm +++ /dev/null @@ -1,20 +0,0 @@ -;Z (loop) R: sys1 sys2 -- | sys1 sys2 -;Z run-time code for LOOP -; Add 1 to the loop index. If loop terminates, clean up the -; return stack and skip the branch. Else take the inline branch. -; Note that LOOP terminates when index=8000h. -; ; CODEHEADER(xloop,6,"(loop)") -; DW link -; DB 0FFh ; not immediate -;.set link = $ -; DB 6,"(loop)" -; .align 16 -XT_DOLOOP: - DW $+2 - ADD #1,INDEX - BIT #100h,SR ; is overflow bit set? - JZ dobran ; no overflow = loop - ADD #2,IP ; overflow = loop done, skip branch ofs - MOV @RSP+,INDEX ; restore old loop values - MOV @RSP+,LIMIT - NEXT diff --git a/amforth-6.5/msp430/words/do-plusloop.asm b/amforth-6.5/msp430/words/do-plusloop.asm deleted file mode 100644 index ae41980..0000000 --- a/amforth-6.5/msp430/words/do-plusloop.asm +++ /dev/null @@ -1,20 +0,0 @@ -;Z (+loop) n -- R: sys1 sys2 -- | sys1 sys2 -;Z run-time code for +LOOP -; Add n to the loop index. If loop terminates, clean up the -; return stack and skip the branch. Else take the inline branch. -; ; CODEHEADER(xplusloop,7,"(+loop)") -; DW link -; DB 0FFh ; not immediate -;.set link = $ -; DB 7,"(+loop)" -; .align 16 -XT_DOPLUSLOOP: - DW $+2 - ADD TOS,INDEX - MOV @PSP+,TOS ; get new TOS, doesn't change flags - BIT #100h,SR ; is overflow bit set? - JZ dobran ; no overflow = loop - ADD #2,IP ; overflow = loop done, skip branch ofs - MOV @RSP+,INDEX ; restore old loop values - MOV @RSP+,LIMIT - NEXT diff --git a/amforth-6.5/msp430/words/do-squote.asm b/amforth-6.5/msp430/words/do-squote.asm deleted file mode 100644 index 3e4e210..0000000 --- a/amforth-6.5/msp430/words/do-squote.asm +++ /dev/null @@ -1,15 +0,0 @@ -;Z (IS") -- c-addr u run-time code for S" -; R> ICOUNT 2DUP + ALIGNED >R ; -; Harvard model, for string stored in Code space -; e.g. as used by ." - ; HEADER(XISQUOTE,5,"(IS\")",DOCOLON) - DW link - DB 0FFh ; not immediate -.set link = $ - DB 4,"(s",'"',')' - .align 16 -XT_DOSLITERAL: - DW DOCOLON - - DW XT_R_FROM,XT_ICOUNT,XT_2DUP,XT_PLUS,XT_ALIGNED,XT_TO_R - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/do-value.asm b/amforth-6.5/msp430/words/do-value.asm deleted file mode 100644 index 4910ba5..0000000 --- a/amforth-6.5/msp430/words/do-value.asm +++ /dev/null @@ -1,15 +0,0 @@ -; : (value) dup @i swap i-cell+ @i execute ; -HEADER(XT_DOVALUE,7,"(value)",DOCOLON) - .dw XT_DOCREATE - .dw XT_REVEAL - .dw XT_COMPILE - .dw DOVALUE - .dw XT_EXIT - -DOVALUE: - .dw 04030h, dodoes ; that compiles DOES> - .dw XT_DUP - .dw XT_ICELLPLUS - .dw XT_FETCHI - .dw XT_EXECUTE - .dw XT_EXIT diff --git a/amforth-6.5/msp430/words/do-variable.asm b/amforth-6.5/msp430/words/do-variable.asm deleted file mode 100644 index 2198c4b..0000000 --- a/amforth-6.5/msp430/words/do-variable.asm +++ /dev/null @@ -1,11 +0,0 @@ -; DOCON, code action of CONSTANT, -; entered with W=Parameter Field Adrs -; This is also the action of VARIABLE (Harvard model) -; This is also the action of CREATE (Harvard model) -docreate: ; -- a-addr ; ROMable CREATE fetches address from PFA -DOCON: ; -- x ; CONSTANT fetches cell from PFA to TOS -PFA_DOVARIABLE: - SUB #2,PSP ; make room on stack - MOV TOS,0(PSP) - MOV @W,TOS ; fetch from parameter field to TOS - NEXT diff --git a/amforth-6.5/msp430/words/does.asm b/amforth-6.5/msp430/words/does.asm deleted file mode 100644 index 235fae7..0000000 --- a/amforth-6.5/msp430/words/does.asm +++ /dev/null @@ -1,20 +0,0 @@ -;C DOES> -- change action of latest def'n -; COMPILE (DOES>) -; dodoes ,JMP ; IMMEDIATE -; Note that MSP430 uses a JMP, not a CALL, to DODOES. - IMMED(XT_DOES,5,"does>",DOCOLON) - DW XT_COMPILE,XT_DODOES - DW XT_COMPILE,4030h ; compile a machine jump instruction - DW XT_COMPILE,dodoes - DW XT_EXIT - -; runtime part of does> - HEADLESS(XT_DODOES,DOCOLON) - DW XT_R_FROM - DW XT_NEWEST - DW XT_CELLPLUS - DW XT_FETCH - DW XT_FETCH - DW XT_NFA2CFA - DW XT_STOREI - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/dp.asm b/amforth-6.5/msp430/words/dp.asm deleted file mode 100644 index 4f8a772..0000000 --- a/amforth-6.5/msp430/words/dp.asm +++ /dev/null @@ -1,4 +0,0 @@ -;Z dp -- a-addr holds dictionary ptr -; 8 USER DP - VARIABLE(XT_DP,2,"dp") - DW CFG_DP diff --git a/amforth-6.5/msp430/words/drop.asm b/amforth-6.5/msp430/words/drop.asm deleted file mode 100644 index b21df02..0000000 --- a/amforth-6.5/msp430/words/drop.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C DROP x -- drop top of stack - CODEHEADER(XT_DROP,4,"drop") - MOV @PSP+,TOS ; 2 - NEXT ; 4 diff --git a/amforth-6.5/msp430/words/dup.asm b/amforth-6.5/msp430/words/dup.asm deleted file mode 100644 index 4c4dbde..0000000 --- a/amforth-6.5/msp430/words/dup.asm +++ /dev/null @@ -1,5 +0,0 @@ -;C DUP x -- x x duplicate top of stack - CODEHEADER(XT_DUP,3,"dup") -PUSHTOS: SUB #2,PSP ; 1 push old TOS.. - MOV TOS,0(PSP) ; 4 ..onto stack - NEXT ; 4 diff --git a/amforth-6.5/msp430/words/end-code.asm b/amforth-6.5/msp430/words/end-code.asm deleted file mode 100644 index e2b4580..0000000 --- a/amforth-6.5/msp430/words/end-code.asm +++ /dev/null @@ -1,5 +0,0 @@ -;U END-CODE -- mark end of code section -; ; - HEADER(XT_ENDCODE,8,"end-code",DOCOLON) - DW XT_COMPILE,4536h,XT_COMPILE,4630h - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/environment.asm b/amforth-6.5/msp430/words/environment.asm deleted file mode 100644 index 0fc7e9e..0000000 --- a/amforth-6.5/msp430/words/environment.asm +++ /dev/null @@ -1,4 +0,0 @@ -;Z environment -- a-addr Wordlist-ID of the environment -; 14 USER ENVIRONMENT - VARIABLE(XT_ENVIRONMENT,11,"environment") - DW CFG_ENVWID diff --git a/amforth-6.5/msp430/words/equal.asm b/amforth-6.5/msp430/words/equal.asm deleted file mode 100644 index 169078c..0000000 --- a/amforth-6.5/msp430/words/equal.asm +++ /dev/null @@ -1,7 +0,0 @@ -;C = x1 x2 -- flag test x1=x2 - CODEHEADER(XT_EQUAL,1,"=") - MOV @PSP+,W - SUB TOS,W ; x1-x2 in W, flags set - JZ TOSTRUE -TOSFALSE: MOV #0,TOS - NEXT diff --git a/amforth-6.5/msp430/words/execute.asm b/amforth-6.5/msp430/words/execute.asm deleted file mode 100644 index a8139c0..0000000 --- a/amforth-6.5/msp430/words/execute.asm +++ /dev/null @@ -1,7 +0,0 @@ -;C EXECUTE i*x xt -- j*x execute Forth word -;C at 'xt' - CODEHEADER(XT_EXECUTE,7,"execute") - MOV TOS,W ; 1 put word address into W - MOV @PSP+,TOS ; 2 fetch new TOS - MOV @W+,PC ; 2 fetch code address into PC, W=PFA - diff --git a/amforth-6.5/msp430/words/exit.asm b/amforth-6.5/msp430/words/exit.asm deleted file mode 100644 index 2a8185a..0000000 --- a/amforth-6.5/msp430/words/exit.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C EXIT -- exit a colon definition - CODEHEADER(XT_EXIT,4,"exit") - MOV @RSP+,IP ; 2 pop old IP from return stack - NEXT ; 4 diff --git a/amforth-6.5/msp430/words/fetch.asm b/amforth-6.5/msp430/words/fetch.asm deleted file mode 100644 index 1dbeffa..0000000 --- a/amforth-6.5/msp430/words/fetch.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C @ a-addr -- x fetch cell from memory - CODEHEADER(XT_FETCH,1,"@") - MOV @TOS,TOS - NEXT diff --git a/amforth-6.5/msp430/words/fill.asm b/amforth-6.5/msp430/words/fill.asm deleted file mode 100644 index 66e7740..0000000 --- a/amforth-6.5/msp430/words/fill.asm +++ /dev/null @@ -1,12 +0,0 @@ -;C FILL c-addr u char -- fill memory with char - CODEHEADER(XT_FILL,4,"fill") - MOV @PSP+,X ; count - MOV @PSP+,W ; address - CMP #0,X - JZ FILL_X -FILL_1: MOV.B TOS,0(W) ; store char in memory - ADD #1,W - SUB #1,X - JNZ FILL_1 -FILL_X: MOV @PSP+,TOS ; pop new TOS - NEXT diff --git a/amforth-6.5/msp430/words/fm-mod.asm b/amforth-6.5/msp430/words/fm-mod.asm deleted file mode 100644 index 4460e8d..0000000 --- a/amforth-6.5/msp430/words/fm-mod.asm +++ /dev/null @@ -1,12 +0,0 @@ -;C d1 n1 -- n2 n3 floored signed div'n -; courtesy of Ed Smeda - HEADER(FMSLASHMOD,6,"fm/mod",DOCOLON) - DW XT_DUP,XT_TO_R,XT_2DUP,XT_XOR,XT_TO_R,XT_TO_R - DW XT_DABS,XT_R_FETCH,XT_ABS,XT_UMSLASHMOD - DW XT_SWAP,XT_R_FROM,XT_QNEGATE,XT_SWAP,XT_R_FROM,XT_ZEROLESS,XT_DOCONDBRANCH - DEST(FMMOD1) - DW XT_NEGATE,XT_OVER,XT_DOCONDBRANCH - DEST(FMMOD2) - DW XT_R_FETCH,XT_ROT,XT_MINUS,XT_SWAP,XT_1MINUS -FMMOD2: -FMMOD1: DW XT_R_FROM,XT_DROP,XT_EXIT diff --git a/amforth-6.5/msp430/words/forth-recognizer.asm b/amforth-6.5/msp430/words/forth-recognizer.asm deleted file mode 100644 index 95340d4..0000000 --- a/amforth-6.5/msp430/words/forth-recognizer.asm +++ /dev/null @@ -1,8 +0,0 @@ -;Z dp -- a-addr holds dictionary ptr -; 8 USER DP - HEADER(XT_FORTHRECOGNIZER,16,"forth-recognizer",DOVALUE) - - DW CFG_FORTHRECOGNIZER - DW XT_RDEFERFETCH - DW XT_RDEFERSTORE - diff --git a/amforth-6.5/msp430/words/forth-wordlist.asm b/amforth-6.5/msp430/words/forth-wordlist.asm deleted file mode 100644 index 2a29512..0000000 --- a/amforth-6.5/msp430/words/forth-wordlist.asm +++ /dev/null @@ -1,4 +0,0 @@ -;Z dp -- a-addr holds dictionary ptr -; 8 USER DP - VARIABLE(XT_FORTHWID,14,"forth-wordlist") - DW CFG_FORTHWID diff --git a/amforth-6.5/msp430/words/g-mark.asm b/amforth-6.5/msp430/words/g-mark.asm deleted file mode 100644 index 2249961..0000000 --- a/amforth-6.5/msp430/words/g-mark.asm +++ /dev/null @@ -1,3 +0,0 @@ - HEADLESS(XT_GMARK,DOCOLON) - DW XT_IHERE,XT_COMPILE,-1 - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/g-resolve.asm b/amforth-6.5/msp430/words/g-resolve.asm deleted file mode 100644 index be39263..0000000 --- a/amforth-6.5/msp430/words/g-resolve.asm +++ /dev/null @@ -1,5 +0,0 @@ - -HEADLESS(XT_GRESOLVE,DOCOLON) - DW XT_QSTACK - DW XT_IHERE,XT_OVER,XT_MINUS,XT_SWAP,XT_STOREI - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/get-current.asm b/amforth-6.5/msp430/words/get-current.asm deleted file mode 100644 index 08abcd0..0000000 --- a/amforth-6.5/msp430/words/get-current.asm +++ /dev/null @@ -1,2 +0,0 @@ - HEADER(XT_GET_CURRENT,11,"get-current",DOCOLON) - DW XT_DOLITERAL,CFG_CURRENT,XT_FETCH,XT_EXIT diff --git a/amforth-6.5/msp430/words/greater.asm b/amforth-6.5/msp430/words/greater.asm deleted file mode 100644 index 30979ab..0000000 --- a/amforth-6.5/msp430/words/greater.asm +++ /dev/null @@ -1,3 +0,0 @@ -;C > n1 n2 -- flag test n1>n2, signed - HEADER(XT_GREATER,1,">",DOCOLON) - DW XT_SWAP,XT_LESS,XT_EXIT diff --git a/amforth-6.5/msp430/words/header.asm b/amforth-6.5/msp430/words/header.asm deleted file mode 100644 index e1b0781..0000000 --- a/amforth-6.5/msp430/words/header.asm +++ /dev/null @@ -1,14 +0,0 @@ -;Z HEADER ( addr len wid -- nt ) create a Forth word header -; Separate headers model. - HEADER(XT_HEADER,6,"header",DOCOLON) - DW XT_FETCH - DW XT_COMMA ; link - DW XT_DOLITERAL,0FFh,XT_CCOMMA ; immediate flag - see note below - DW XT_IHERE,XT_TO_R - DW XT_SCOMMA - DW XT_R_FROM - DW XT_EXIT ; MSP430: headers in I space must be aligned -; Note for Flashable MSP430: when compiling to RAM, we need to set -; the immediate byte to 0FFH. When compiling to Flash, the word IC! -; will not write 0FFH to erased Flash (because the byte is already 0FFH). -; Thus we can write this byte at a later time (with IMMEDIATE). diff --git a/amforth-6.5/msp430/words/here.asm b/amforth-6.5/msp430/words/here.asm deleted file mode 100644 index f86cc76..0000000 --- a/amforth-6.5/msp430/words/here.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C HERE -- addr returns dictionary ptr -; DP @ ; - HEADER(XT_HERE,4,"here",DOCOLON) - DW XT_DP,XT_FETCH,XT_EXIT diff --git a/amforth-6.5/msp430/words/hld.asm b/amforth-6.5/msp430/words/hld.asm deleted file mode 100644 index ea6d852..0000000 --- a/amforth-6.5/msp430/words/hld.asm +++ /dev/null @@ -1,4 +0,0 @@ -;Z hp -- a-addr HOLD pointer -; 16 USER HLD - VARIABLE(XT_HLD,3,"hld") - DW RAM_HLD diff --git a/amforth-6.5/msp430/words/i-allot.asm b/amforth-6.5/msp430/words/i-allot.asm deleted file mode 100644 index 5a74bad..0000000 --- a/amforth-6.5/msp430/words/i-allot.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C IALLOT n -- allocate n bytes in Code dict -; IDP +! ; - HEADER(XT_IALLOT,6,"iallot",DOCOLON) - DW IDP,XT_PLUSSTORE,XT_EXIT diff --git a/amforth-6.5/msp430/words/i-cellplus.asm b/amforth-6.5/msp430/words/i-cellplus.asm deleted file mode 100644 index 6c472f9..0000000 --- a/amforth-6.5/msp430/words/i-cellplus.asm +++ /dev/null @@ -1,4 +0,0 @@ - -HEADER(XT_ICELLPLUS,7,"i-cell+",DOCOLON) - .DW XT_CELLPLUS - .dw XT_EXIT diff --git a/amforth-6.5/msp430/words/i-fetch.asm b/amforth-6.5/msp430/words/i-fetch.asm deleted file mode 100644 index bd0004e..0000000 --- a/amforth-6.5/msp430/words/i-fetch.asm +++ /dev/null @@ -1,2 +0,0 @@ -;Z I@ a-addr -- x fetch cell from Instruction memory - HEADER(XT_FETCHI,2,"@i",XT_FETCH+2) diff --git a/amforth-6.5/msp430/words/i-here.asm b/amforth-6.5/msp430/words/i-here.asm deleted file mode 100644 index 7bcac83..0000000 --- a/amforth-6.5/msp430/words/i-here.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C XT_IHERE -- addr returns Code dictionary ptr -; IDP @ ; - HEADER(XT_IHERE,5,"ihere",DOCOLON) - DW IDP,XT_FETCH,XT_EXIT diff --git a/amforth-6.5/msp430/words/i.asm b/amforth-6.5/msp430/words/i.asm deleted file mode 100644 index bd6b4eb..0000000 --- a/amforth-6.5/msp430/words/i.asm +++ /dev/null @@ -1,8 +0,0 @@ -;C I -- n R: sys1 sys2 -- sys1 sys2 -;C get the innermost loop index - CODEHEADER(XT_I,1,"i") - SUB #2,PSP ; make room in TOS - MOV TOS,0(PSP) - MOV INDEX,TOS ; index = loopctr - fudge - SUB LIMIT,TOS - NEXT diff --git a/amforth-6.5/msp430/words/ic-fetch.asm b/amforth-6.5/msp430/words/ic-fetch.asm deleted file mode 100644 index c026c0e..0000000 --- a/amforth-6.5/msp430/words/ic-fetch.asm +++ /dev/null @@ -1,2 +0,0 @@ -;Z IC@ a-addr -- x fetch char from Instruction memory - HEADER(XT_CFETCHI,3,"c@i",XT_CFETCH+2) diff --git a/amforth-6.5/msp430/words/icount.asm b/amforth-6.5/msp430/words/icount.asm deleted file mode 100644 index d2a8ae2..0000000 --- a/amforth-6.5/msp430/words/icount.asm +++ /dev/null @@ -1,3 +0,0 @@ -;C COUNT c-addr1 -- c-addr2 u counted->adr/len - HEADER(XT_ICOUNT,6,"icount",DOCOLON) - DW XT_DUP,XT_1PLUS,XT_SWAP,XT_CFETCH,XT_EXIT diff --git a/amforth-6.5/msp430/words/idp.asm b/amforth-6.5/msp430/words/idp.asm deleted file mode 100644 index f64c348..0000000 --- a/amforth-6.5/msp430/words/idp.asm +++ /dev/null @@ -1,4 +0,0 @@ -;Z IDP -- a-addr ROM dictionary pointer -; 20 USER IDP - VARIABLE(IDP,3,"idp") - DW CFG_IDP diff --git a/amforth-6.5/msp430/words/immediate-q.asm b/amforth-6.5/msp430/words/immediate-q.asm deleted file mode 100644 index 2660efe..0000000 --- a/amforth-6.5/msp430/words/immediate-q.asm +++ /dev/null @@ -1,15 +0,0 @@ -; ( f -- +/-1 ) -; System -; return +1 if immediate, -1 otherwise, flag from name>flags - HEADLESS(XT_IMMEDIATEQ,DOCOLON) - .dw XT_ONE - .dw XT_AND - .dw XT_ZEROEQUAL - .dw XT_DOCONDBRANCH - DEST(IMMEDIATEQ1) - .dw XT_ONE - .dw XT_EXIT -IMMEDIATEQ1: - ; not immediate - .dw XT_TRUE - .dw XT_EXIT diff --git a/amforth-6.5/msp430/words/immediate.asm b/amforth-6.5/msp430/words/immediate.asm deleted file mode 100644 index 9be4150..0000000 --- a/amforth-6.5/msp430/words/immediate.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C IMMEDIATE -- make last def'n immediate - HEADER(IMMEDIATE,9,"immediate",DOCOLON) - DW XT_DOLITERAL,0FEh,XT_GET_CURRENT,XT_FETCH,XT_1MINUS,XT_CSTOREI - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/infodp.asm b/amforth-6.5/msp430/words/infodp.asm deleted file mode 100644 index 6f9faaf..0000000 --- a/amforth-6.5/msp430/words/infodp.asm +++ /dev/null @@ -1,4 +0,0 @@ -;Z dp -- a-addr holds dictionary ptr -; 8 USER DP - VARIABLE(XT_INFODP,6,"infodp") - DW CFG_INFODP diff --git a/amforth-6.5/msp430/words/int-fetch.asm b/amforth-6.5/msp430/words/int-fetch.asm deleted file mode 100644 index 793cf25..0000000 --- a/amforth-6.5/msp430/words/int-fetch.asm +++ /dev/null @@ -1,4 +0,0 @@ - CODEHEADER(XT_INT_FETCH,4,"int@") - ADD TOS,TOS - MOV CFG_ISRVECS(TOS),TOS - NEXT diff --git a/amforth-6.5/msp430/words/int-off.asm b/amforth-6.5/msp430/words/int-off.asm deleted file mode 100644 index 71f1d25..0000000 --- a/amforth-6.5/msp430/words/int-off.asm +++ /dev/null @@ -1,3 +0,0 @@ - CODEHEADER(XT_INT_OFF,4,"-int") - DINT - NEXT diff --git a/amforth-6.5/msp430/words/int-on.asm b/amforth-6.5/msp430/words/int-on.asm deleted file mode 100644 index 64b303c..0000000 --- a/amforth-6.5/msp430/words/int-on.asm +++ /dev/null @@ -1,3 +0,0 @@ - CODEHEADER(XT_INT_ON,4,"+int") - EINT - NEXT diff --git a/amforth-6.5/msp430/words/int-store.asm b/amforth-6.5/msp430/words/int-store.asm deleted file mode 100644 index cdb9896..0000000 --- a/amforth-6.5/msp430/words/int-store.asm +++ /dev/null @@ -1,5 +0,0 @@ - CODEHEADER(XT_INT_STORE,4,"int!") - ADD TOS,TOS - MOV @PSP+,CFG_ISRVECS(TOS) - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/int-trap.asm b/amforth-6.5/msp430/words/int-trap.asm deleted file mode 100644 index 13a2f6d..0000000 --- a/amforth-6.5/msp430/words/int-trap.asm +++ /dev/null @@ -1,4 +0,0 @@ - CODEHEADER(XT_TRAP,8,"int-trap") - MOV TOS,ISR - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/invert.asm b/amforth-6.5/msp430/words/invert.asm deleted file mode 100644 index 7108b3c..0000000 --- a/amforth-6.5/msp430/words/invert.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C INVERT x1 -- x2 bitwise inversion - CODEHEADER(XT_INVERT,6,"invert") - XOR #-1,TOS - NEXT diff --git a/amforth-6.5/msp430/words/isr-exec.asm b/amforth-6.5/msp430/words/isr-exec.asm deleted file mode 100644 index de67130..0000000 --- a/amforth-6.5/msp430/words/isr-exec.asm +++ /dev/null @@ -1,7 +0,0 @@ -; ( n -- ) -; Interrupt -; executes an interrupt service routine - HEADLESS(XT_ISREXEC,DOCOLON) - .dw XT_INT_FETCH - .dw XT_EXECUTE - .dw XT_EXIT diff --git a/amforth-6.5/msp430/words/itype.asm b/amforth-6.5/msp430/words/itype.asm deleted file mode 100644 index 68a032e..0000000 --- a/amforth-6.5/msp430/words/itype.asm +++ /dev/null @@ -1,6 +0,0 @@ -;Z ITYPE c-addr +n -- type line to term'l -; ?DUP IF from Code space -; OVER + XT_SWAP DO I IC@ EMIT LOOP -; ELSE DROP THEN ; - HEADER(XT_ITYPE,5,"itype",DOCOLON) - DW XT_TYPE,XT_EXIT diff --git a/amforth-6.5/msp430/words/j.asm b/amforth-6.5/msp430/words/j.asm deleted file mode 100644 index 74e9d58..0000000 --- a/amforth-6.5/msp430/words/j.asm +++ /dev/null @@ -1,9 +0,0 @@ - -;C J -- n R: 4*sys -- 4*sys -;C get the second loop index - CODEHEADER(XT_J,1,"j") - SUB #2,PSP ; make room in TOS - MOV TOS,0(PSP) - MOV @RSP,TOS ; index = loopctr - fudge - SUB 2(RSP),TOS - NEXT diff --git a/amforth-6.5/msp430/words/l-0.asm b/amforth-6.5/msp430/words/l-0.asm deleted file mode 100644 index a35ef18..0000000 --- a/amforth-6.5/msp430/words/l-0.asm +++ /dev/null @@ -1,3 +0,0 @@ -;Z l0 -- a-addr bottom of Leave stack - VARIABLE(XT_LP0,3,"lp0") - DW LSTACK diff --git a/amforth-6.5/msp430/words/l-mark.asm b/amforth-6.5/msp430/words/l-mark.asm deleted file mode 100644 index af253cd..0000000 --- a/amforth-6.5/msp430/words/l-mark.asm +++ /dev/null @@ -1,2 +0,0 @@ - HEADLESS(XT_LMARK,DOCOLON) - DW XT_IHERE,XT_EXIT diff --git a/amforth-6.5/msp430/words/l-resolve.asm b/amforth-6.5/msp430/words/l-resolve.asm deleted file mode 100644 index ec912cd..0000000 --- a/amforth-6.5/msp430/words/l-resolve.asm +++ /dev/null @@ -1,4 +0,0 @@ - HEADLESS(XT_LRESOLVE,DOCOLON) - DW XT_QSTACK - DW XT_IHERE,XT_MINUS,XT_COMMA - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/latest.asm b/amforth-6.5/msp430/words/latest.asm deleted file mode 100644 index 029b9fc..0000000 --- a/amforth-6.5/msp430/words/latest.asm +++ /dev/null @@ -1,3 +0,0 @@ -;Z NEWEST -- a-addr temporary CURRENT storage -VARIABLE(XT_LATEST,6,"latest") - DW RAM_LATEST diff --git a/amforth-6.5/msp430/words/less.asm b/amforth-6.5/msp430/words/less.asm deleted file mode 100644 index 57b8705..0000000 --- a/amforth-6.5/msp430/words/less.asm +++ /dev/null @@ -1,7 +0,0 @@ -;C < n1 n2 -- flag test n132 multiply -; 2DUP XOR >R carries sign of the result -; XT_SWAP ABS SWAP ABS UM* -; R> ?DNEGATE ; - HEADER(XT_MSTAR,2,"m*",DOCOLON) - DW XT_2DUP,XT_XOR,XT_TO_R - DW XT_SWAP,XT_ABS,XT_SWAP,XT_ABS,XT_UMSTAR - DW XT_R_FROM,XT_QDNEGATE,XT_EXIT diff --git a/amforth-6.5/msp430/words/mcu-sr-fetch.asm b/amforth-6.5/msp430/words/mcu-sr-fetch.asm deleted file mode 100644 index 98ab000..0000000 --- a/amforth-6.5/msp430/words/mcu-sr-fetch.asm +++ /dev/null @@ -1,5 +0,0 @@ - CODEHEADER(XT_MCU_SR_FETCH,3,"sr@") - sub #2, PSP - mov TOS, 0(PSP) - mov r2, TOS - NEXT diff --git a/amforth-6.5/msp430/words/minus.asm b/amforth-6.5/msp430/words/minus.asm deleted file mode 100644 index cd49f24..0000000 --- a/amforth-6.5/msp430/words/minus.asm +++ /dev/null @@ -1,6 +0,0 @@ -;C - n1/u1 n2/u2 -- n3/u3 subtract n1-n2 - CODEHEADER(XT_MINUS,1,"-") - MOV @PSP+,W - SUB TOS,W - MOV W,TOS - NEXT diff --git a/amforth-6.5/msp430/words/n_r_from.asm b/amforth-6.5/msp430/words/n_r_from.asm deleted file mode 100644 index 5ac6ab1..0000000 --- a/amforth-6.5/msp430/words/n_r_from.asm +++ /dev/null @@ -1,17 +0,0 @@ -; ( -- x-n .. x-1 n ) (R: x-n .. x-1 n -- ) -; Stack -; move n items from return stack to data stack - CODEHEADER(XT_N_R_FROM,3,"nr>") - - SUB #2,PSP ; 2 - MOV TOS,0(PSP) ; 4 - MOV @RSP+,X - MOV X, Y -PFA_N_R_FROM1: - MOV @RSP+,TOS - SUB #2,PSP ; 2 - MOV TOS,0(PSP) ; 4 - SUB #1, X - jnz PFA_N_R_FROM1 - MOV Y, TOS - NEXT diff --git a/amforth-6.5/msp430/words/n_to_r.asm b/amforth-6.5/msp430/words/n_to_r.asm deleted file mode 100644 index 91807e5..0000000 --- a/amforth-6.5/msp430/words/n_to_r.asm +++ /dev/null @@ -1,15 +0,0 @@ -; ( x-n .. x-1 n -- ) (R: -- x-n .. x-1 n) -; Stack -; move n items from data stack to return stack - CODEHEADER(XT_N_TO_R,3,"n>r") - - MOV TOS, X ; save count cell twice - MOV TOS, Y -PFA_N_TO_R1: - MOV @PSP+,TOS - PUSH TOS - SUB #1, X - JNZ PFA_N_TO_R1 - PUSH Y ; old TOS (count) - MOV @PSP+,TOS ; get new TOS - NEXT \ No newline at end of file diff --git a/amforth-6.5/msp430/words/name2flags.asm b/amforth-6.5/msp430/words/name2flags.asm deleted file mode 100644 index 9af91be..0000000 --- a/amforth-6.5/msp430/words/name2flags.asm +++ /dev/null @@ -1,3 +0,0 @@ -;Z nfa -- f fetch flag information - HEADER(XT_NAME2FLAGS,10,"name>flags",DOCOLON) - DW XT_1MINUS,XT_CFETCHI,XT_EXIT diff --git a/amforth-6.5/msp430/words/negate.asm b/amforth-6.5/msp430/words/negate.asm deleted file mode 100644 index 6c2527e..0000000 --- a/amforth-6.5/msp430/words/negate.asm +++ /dev/null @@ -1,5 +0,0 @@ -;C NEGATE x1 -- x2 two's complement - CODEHEADER(XT_NEGATE,6,"negate") - XOR #-1,TOS - ADD #1,TOS - NEXT diff --git a/amforth-6.5/msp430/words/newest.asm b/amforth-6.5/msp430/words/newest.asm deleted file mode 100644 index bc6a956..0000000 --- a/amforth-6.5/msp430/words/newest.asm +++ /dev/null @@ -1,3 +0,0 @@ -;Z NEWEST -- a-addr temporary CURRENT storage -VARIABLE(XT_NEWEST,6,"newest") - DW RAM_NEWEST diff --git a/amforth-6.5/msp430/words/nfa-to-cfa.asm b/amforth-6.5/msp430/words/nfa-to-cfa.asm deleted file mode 100644 index 160e22f..0000000 --- a/amforth-6.5/msp430/words/nfa-to-cfa.asm +++ /dev/null @@ -1,5 +0,0 @@ -;Z NFA>CFA nfa -- cfa name adr -> code field -; HCOUNT 7F AND + ALIGNED ; mask off 'smudge' bit - HEADER(XT_NFA2CFA,7,"nfa>cfa",DOCOLON) - DW XT_ICOUNT - DW XT_DOLITERAL,07Fh,XT_AND,XT_PLUS,XT_ALIGNED,XT_EXIT diff --git a/amforth-6.5/msp430/words/nfa-to-lfa.asm b/amforth-6.5/msp430/words/nfa-to-lfa.asm deleted file mode 100644 index 43c0898..0000000 --- a/amforth-6.5/msp430/words/nfa-to-lfa.asm +++ /dev/null @@ -1,4 +0,0 @@ -;Z NFA>LFA nfa -- lfa name adr -> link field -; 3 - ; - HEADER(XT_NFA2LFA,7,"nfa>lfa",DOCOLON) - DW XT_DOLITERAL,3,XT_MINUS,XT_EXIT diff --git a/amforth-6.5/msp430/words/nip.asm b/amforth-6.5/msp430/words/nip.asm deleted file mode 100644 index b9f5299..0000000 --- a/amforth-6.5/msp430/words/nip.asm +++ /dev/null @@ -1,4 +0,0 @@ -;X NIP x1 x2 -- x2 per stack diagram - CODEHEADER(XT_NIP,3,"nip") - ADD #2,PSP ; 1 - NEXT ; 4 diff --git a/amforth-6.5/msp430/words/or.asm b/amforth-6.5/msp430/words/or.asm deleted file mode 100644 index 8bb4cc7..0000000 --- a/amforth-6.5/msp430/words/or.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C OR x1 x2 -- x3 logical OR - CODEHEADER(XT_OR,2,"or") - BIS @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/over.asm b/amforth-6.5/msp430/words/over.asm deleted file mode 100644 index 11b1770..0000000 --- a/amforth-6.5/msp430/words/over.asm +++ /dev/null @@ -1,8 +0,0 @@ -;C OVER x1 x2 -- x1 x2 x1 per stack diagram - CODEHEADER(XT_OVER,4,"over") - MOV @PSP,W ; 2 - SUB #2,PSP ; 2 - MOV TOS,0(PSP) ; 4 - MOV W,TOS ; 1 - NEXT ; 4 - diff --git a/amforth-6.5/msp430/words/pause.asm b/amforth-6.5/msp430/words/pause.asm deleted file mode 100644 index 89362d0..0000000 --- a/amforth-6.5/msp430/words/pause.asm +++ /dev/null @@ -1,7 +0,0 @@ -; ( -- ) -; Multitasking -; Fetch pause vector and execute it. may make a context/task switch -DEFER(XT_PAUSE,5,"pause") - .dw RAM_PAUSE - .dw XT_RDEFERFETCH - .dw XT_RDEFERSTORE diff --git a/amforth-6.5/msp430/words/plus-store.asm b/amforth-6.5/msp430/words/plus-store.asm deleted file mode 100644 index 970057d..0000000 --- a/amforth-6.5/msp430/words/plus-store.asm +++ /dev/null @@ -1,5 +0,0 @@ -;C +! n/u a-addr -- add cell to memory - CODEHEADER(XT_PLUSSTORE,2,"+!") - ADD @PSP+,0(TOS) - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/plus.asm b/amforth-6.5/msp430/words/plus.asm deleted file mode 100644 index cb57910..0000000 --- a/amforth-6.5/msp430/words/plus.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C + n1/u1 n2/u2 -- n3/u3 add n1+n2 - CODEHEADER(XT_PLUS,1,"+") - ADD @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/q-branch.asm b/amforth-6.5/msp430/words/q-branch.asm deleted file mode 100644 index 5ec1563..0000000 --- a/amforth-6.5/msp430/words/q-branch.asm +++ /dev/null @@ -1,7 +0,0 @@ -;Z ?branch x -- branch if TOS zero - CODEHEADER(XT_DOCONDBRANCH,7,"?branch") - ADD #0,TOS ; 1 test TOS value - MOV @PSP+,TOS ; 2 pop new TOS value (doesn't change flags) - JZ dobran ; 2 if TOS was zero, take the branch - ADD #2,IP ; 1 else skip the branch destination - NEXT ; 4 diff --git a/amforth-6.5/msp430/words/qdup.asm b/amforth-6.5/msp430/words/qdup.asm deleted file mode 100644 index 2bb9eb0..0000000 --- a/amforth-6.5/msp430/words/qdup.asm +++ /dev/null @@ -1,5 +0,0 @@ -;C ?DUP x -- 0 | x x DUP if nonzero - CODEHEADER(XT_QDUP,4,"?dup") - CMP #0,TOS ; 1 test for TOS nonzero - JNZ PUSHTOS ; 2 -NODUP: NEXT ; 4 diff --git a/amforth-6.5/msp430/words/r-0.asm b/amforth-6.5/msp430/words/r-0.asm deleted file mode 100644 index c3599ac..0000000 --- a/amforth-6.5/msp430/words/r-0.asm +++ /dev/null @@ -1,3 +0,0 @@ -;Z r0 -- a-addr end of return stack - VARIABLE(XT_RP0,3,"rp0") - DW RSTACK diff --git a/amforth-6.5/msp430/words/r-fetch.asm b/amforth-6.5/msp430/words/r-fetch.asm deleted file mode 100644 index 25de529..0000000 --- a/amforth-6.5/msp430/words/r-fetch.asm +++ /dev/null @@ -1,6 +0,0 @@ -;C R@ -- x R: x -- x fetch from rtn stk - CODEHEADER(XT_R_FETCH,2,"r@") - SUB #2,PSP - MOV TOS,0(PSP) - MOV @RSP,TOS - NEXT diff --git a/amforth-6.5/msp430/words/r-from.asm b/amforth-6.5/msp430/words/r-from.asm deleted file mode 100644 index b43ce9a..0000000 --- a/amforth-6.5/msp430/words/r-from.asm +++ /dev/null @@ -1,6 +0,0 @@ -;C R> -- x R: x -- pop from return stack - CODEHEADER(XT_R_FROM,2,"r>") - SUB #2,PSP ; 2 - MOV TOS,0(PSP) ; 4 - MOV @RSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/reg-a.asm b/amforth-6.5/msp430/words/reg-a.asm deleted file mode 100644 index 89d3b8b..0000000 --- a/amforth-6.5/msp430/words/reg-a.asm +++ /dev/null @@ -1,95 +0,0 @@ -; ( -- n2 ) -; Extended VM -; Read memory pointed to by register A (Extended VM) -CODEHEADER(XT_AFETCH,2,"a@") - SUB #2,PSP - MOV TOS,0(PSP) - MOV @REG_A,TOS - NEXT - -; ( n1 -- n2 ) -; Extended VM -; Read memory pointed to by register A plus offset (Extended VM) -CODEHEADER(XT_NAFETCH,3,"na@") - ADD REG_A,TOS - MOV @TOS,TOS - NEXT - -; ( -- n ) -; Extended VM -; Read memory pointed to by register A, increment A by 1 cell (Extended VM) -CODEHEADER(XT_AFETCHPLUS,3,"a@+") - SUB #2,PSP - MOV TOS,0(PSP) - ADD REG_A,TOS - MOV @TOS,TOS - ADD #2,REG_A - NEXT - -; ( -- n ) -; Extended VM -; Read memory pointed to by register A, decrement A by 1 cell (Extended VM) -CODEHEADER(XT_AFETCHMINUS,3,"a@-") - SUB #2,PSP - MOV TOS,0(PSP) - ADD REG_A,TOS - MOV @TOS,TOS - SUB #2,REG_A - NEXT - -; ( n -- ) -; Extended VM -; Write memory pointed to by register A (Extended VM) -CODEHEADER(XT_ASTORE,2,"a!") - MOV TOS,@REG_A - MOV @PSP+,TOS - NEXT - -; ( n offs -- ) -; Extended VM -; Write memory pointed to by register A plus offset (Extended VM) -CODEHEADER(XT_NASTORE,3,"na!") - ADD REG_A, TOS - MOV @PSP+,X - MOV X,@TOS - MOV @PSP+,TOS - NEXT - -; ( -- n2 ) -; Extended VM -; Write memory pointed to by register A, increment A by 1 cell (Extended VM) -CODEHEADER(XT_ASTOREPLUS,3,"a!+") - MOV TOS,@REG_A - MOV @PSP+,TOS - ADD #2,REG_A - NEXT - -; ( -- n2 ) -; Extended VM -; Write memory pointed to by register A, decrement A by 1 cell (Extended VM) -CODEHEADER(XT_ASTOREMINUS,3,"a!-") - MOV TOS,@REG_A - MOV @PSP+,TOS - SUB #2,REG_A - NEXT - -; ( n -- ) -; Extended VM -; Write to A register (Extended VM) -CODEHEADER(XT_TO_A,2,">a") - MOV TOS,REG_A - MOV @PSP+,TOS - NEXT - -; ( n1 -- n2 ) -; Extended VM -; read the A register (Extended VM) -CODEHEADER(XT_A_FROM,2,"a>") - SUB #2,PSP - MOV REG_A,TOS - NEXT - -; for more information read -; http://www.complang.tuwien.ac.at/anton/euroforth/ef08/papers/pelc.pdf -; adapted index based access from X/Y registers -; note: offset is byte address, not cell! diff --git a/amforth-6.5/msp430/words/restore.asm b/amforth-6.5/msp430/words/restore.asm deleted file mode 100644 index ba3534b..0000000 --- a/amforth-6.5/msp430/words/restore.asm +++ /dev/null @@ -1,7 +0,0 @@ -; RESTORE copies the first 128 bytes of Info Flash to -; the User Area and subsequent RAM. - HEADER(RESTORE,7,"RESTORE",DOCOLON) - DW XT_DOLITERAL,FLASHINFOAREA - DW XT_DOLITERAL,RAMINFOAREA - DW XT_DOLITERAL,INFO_SIZE - DW XT_ITOD,XT_EXIT diff --git a/amforth-6.5/msp430/words/rot.asm b/amforth-6.5/msp430/words/rot.asm deleted file mode 100644 index fe5914b..0000000 --- a/amforth-6.5/msp430/words/rot.asm +++ /dev/null @@ -1,7 +0,0 @@ -;C ROT x1 x2 x3 -- x2 x3 x1 per stack diagram - CODEHEADER(XT_ROT,3,"rot") - MOV @PSP,W ; 2 fetch x2 - MOV TOS,0(PSP) ; 4 store x3 - MOV 2(PSP),TOS ; 3 fetch x1 - MOV W,2(PSP) ; 4 store x2 - NEXT ; 4 diff --git a/amforth-6.5/msp430/words/rp-fetch.asm b/amforth-6.5/msp430/words/rp-fetch.asm deleted file mode 100644 index 74d723d..0000000 --- a/amforth-6.5/msp430/words/rp-fetch.asm +++ /dev/null @@ -1,6 +0,0 @@ -;Z RP@ -- a-addr get return stack pointer - CODEHEADER(XT_RP_FETCH,3,"rp@") - SUB #2,PSP - MOV TOS,0(PSP) - MOV RSP,TOS - NEXT diff --git a/amforth-6.5/msp430/words/rp-store.asm b/amforth-6.5/msp430/words/rp-store.asm deleted file mode 100644 index 80fa742..0000000 --- a/amforth-6.5/msp430/words/rp-store.asm +++ /dev/null @@ -1,5 +0,0 @@ -;Z RP! a-addr -- set return stack pointer - CODEHEADER(XT_RP_STORE,3,"rp!") - MOV TOS,RSP - MOV @PSP+,TOS ; 2 - NEXT diff --git a/amforth-6.5/msp430/words/rshift.asm b/amforth-6.5/msp430/words/rshift.asm deleted file mode 100644 index d0201ed..0000000 --- a/amforth-6.5/msp430/words/rshift.asm +++ /dev/null @@ -1,11 +0,0 @@ -;C RSHIFT x1 u -- x2 logical R shift u places - CODEHEADER(RSHIFT,6,"rshift") - MOV @PSP+,W - AND #1Fh,TOS ; no need to shift more than 16 - JZ RSH_X -RSH_1: CLRC - RRC W - SUB #1,TOS - JNZ RSH_1 -RSH_X: MOV W,TOS - NEXT diff --git a/amforth-6.5/msp430/words/s-0.asm b/amforth-6.5/msp430/words/s-0.asm deleted file mode 100644 index 4e0e63d..0000000 --- a/amforth-6.5/msp430/words/s-0.asm +++ /dev/null @@ -1,3 +0,0 @@ -;Z s0 -- a-addr end of parameter stack - VARIABLE(XT_SP0,3,"sp0") - DW PSTACK diff --git a/amforth-6.5/msp430/words/s-equal.asm b/amforth-6.5/msp430/words/s-equal.asm deleted file mode 100644 index 28e6758..0000000 --- a/amforth-6.5/msp430/words/s-equal.asm +++ /dev/null @@ -1,19 +0,0 @@ -;Z S= c-addr1 c-addr2 u -- n string compare -;Z n<0: s10: s1>s2 - CODEHEADER(XT_SEQUAL,2,"s=") - MOV @PSP+,W ; adrs2 - MOV @PSP+,X ; adrs1 - CMP #0,TOS - JZ SEQU_X -SEQU_1: CMP.B @W+,0(X) ; compare char1-char2 - JNZ SMISMATCH - ADD #1,X - SUB #1,TOS - JNZ SEQU_1 - ; no mismatch found, strings are equal, TOS=0 - JMP SEQU_X - ; mismatch found, CY clear if borrow set (s1R S>D R> FM/MOD ; - HEADER(XT_SLASHMOD,4,"/mod",DOCOLON) - DW XT_TO_R,XT_S2D,XT_R_FROM,FMSLASHMOD,XT_EXIT diff --git a/amforth-6.5/msp430/words/sm-rem.asm b/amforth-6.5/msp430/words/sm-rem.asm deleted file mode 100644 index 5415080..0000000 --- a/amforth-6.5/msp430/words/sm-rem.asm +++ /dev/null @@ -1,12 +0,0 @@ -;C SM/REM d1 n1 -- n2 n3 symmetric signed div -; 2DUP XOR >R sign of quotient -; OVER >R sign of remainder -; ABS >R DABS R> UM/MOD -; XT_SWAP R> ?NEGATE -; XT_SWAP R> ?NEGATE ; -; Ref. dpANS-6 section 3.2.2.1. - HEADER(SMSLASHREM,6,"sm/rem",DOCOLON) - DW XT_2DUP,XT_XOR,XT_TO_R,XT_OVER,XT_TO_R - DW XT_ABS,XT_TO_R,XT_DABS,XT_R_FROM,XT_UMSLASHMOD - DW XT_SWAP,XT_R_FROM,XT_QNEGATE,XT_SWAP,XT_R_FROM,XT_QNEGATE - DW XT_EXIT diff --git a/amforth-6.5/msp430/words/sp-fetch.asm b/amforth-6.5/msp430/words/sp-fetch.asm deleted file mode 100644 index fbf573a..0000000 --- a/amforth-6.5/msp430/words/sp-fetch.asm +++ /dev/null @@ -1,6 +0,0 @@ -;Z SP@ -- a-addr get data stack pointer - CODEHEADER(XT_SP_FETCH,3,"sp@") - SUB #2,PSP - MOV TOS,0(PSP) - MOV PSP,TOS - NEXT diff --git a/amforth-6.5/msp430/words/sp-store.asm b/amforth-6.5/msp430/words/sp-store.asm deleted file mode 100644 index 5514744..0000000 --- a/amforth-6.5/msp430/words/sp-store.asm +++ /dev/null @@ -1,5 +0,0 @@ -;Z SP! a-addr -- set data stack pointer - CODEHEADER(XT_SP_STORE,3,"sp!") - MOV TOS,PSP - MOV @PSP+,TOS ; 2 - NEXT diff --git a/amforth-6.5/msp430/words/state.asm b/amforth-6.5/msp430/words/state.asm deleted file mode 100644 index 4527f29..0000000 --- a/amforth-6.5/msp430/words/state.asm +++ /dev/null @@ -1,4 +0,0 @@ -;C STATE -- a-addr holds compiler state -; 6 USER STATE - VARIABLE(XT_STATE,5,"state") - DW RAM_STATE diff --git a/amforth-6.5/msp430/words/store.asm b/amforth-6.5/msp430/words/store.asm deleted file mode 100644 index a45fdcc..0000000 --- a/amforth-6.5/msp430/words/store.asm +++ /dev/null @@ -1,5 +0,0 @@ -;C ! x a-addr -- store cell in memory - CODEHEADER(XT_STORE,1,"!") - MOV @PSP+,0(TOS) - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/swap.asm b/amforth-6.5/msp430/words/swap.asm deleted file mode 100644 index 7950f18..0000000 --- a/amforth-6.5/msp430/words/swap.asm +++ /dev/null @@ -1,6 +0,0 @@ -;C XT_SWAP x1 x2 -- x2 x1 swap top two items - CODEHEADER(XT_SWAP,4,"swap") - MOV @PSP,W ; 2 - MOV TOS,0(PSP) ; 4 - MOV W,TOS ; 1 - NEXT ; 4 diff --git a/amforth-6.5/msp430/words/to-body.asm b/amforth-6.5/msp430/words/to-body.asm deleted file mode 100644 index b5be7a3..0000000 --- a/amforth-6.5/msp430/words/to-body.asm +++ /dev/null @@ -1,3 +0,0 @@ -;C >BODY xt -- a-addr adrs of CREATE data -; 2+ ; 8086 (3 byte CALL) - HEADER(XT_TO_BODY,5,">body",XT_CELLPLUS+2) diff --git a/amforth-6.5/msp430/words/to-r.asm b/amforth-6.5/msp430/words/to-r.asm deleted file mode 100644 index d4d57b8..0000000 --- a/amforth-6.5/msp430/words/to-r.asm +++ /dev/null @@ -1,5 +0,0 @@ -;C >R x -- R: -- x push to return stack - CODEHEADER(XT_TO_R,2,">r") - PUSH TOS - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/turnkey.asm b/amforth-6.5/msp430/words/turnkey.asm deleted file mode 100644 index 58445cf..0000000 --- a/amforth-6.5/msp430/words/turnkey.asm +++ /dev/null @@ -1,5 +0,0 @@ - -DEFER(XT_TURNKEY,7,"turnkey") - .dw CFG_TURNKEY - .dw XT_RDEFERFETCH - .dw XT_RDEFERSTORE diff --git a/amforth-6.5/msp430/words/u-less.asm b/amforth-6.5/msp430/words/u-less.asm deleted file mode 100644 index 2e7b5af..0000000 --- a/amforth-6.5/msp430/words/u-less.asm +++ /dev/null @@ -1,6 +0,0 @@ -;C U< u1 u2 -- flag test u1IN - DW XT_REFILLTIB - DW XT_DEFAULT_PROMPTOK - DW XT_DEFAULT_PROMPTERROR - DW XT_DEFAULT_PROMPTREADY diff --git a/amforth-6.5/msp430/words/um-slash-mod.asm b/amforth-6.5/msp430/words/um-slash-mod.asm deleted file mode 100644 index 3904e8d..0000000 --- a/amforth-6.5/msp430/words/um-slash-mod.asm +++ /dev/null @@ -1,31 +0,0 @@ -;C UM/MOD ud u1 -- u2 u3 unsigned 32/16->16 - CODEHEADER(XT_UMSLASHMOD,6,"um/mod") - ; IROP1 = TOS register - MOV @PSP+,IROP2M ; get ud hi - MOV @PSP,IROP2L ; get ud lo, leave room on stack -; -; T.I. UNSIGNED DIVISION SUBROUTINE 32-BIT BY 16-BIT -; IROP2M|IROP2L : IROP1 -> IRACL REMAINDER IN IROP2M -; RETURN: CARRY = 0: OK CARRY = 1: QUOTIENT > 16 BITS -DIVIDE: CLR IRACL ; CLEAR RESULT - MOV #17,IRBT ; INITIALIZE LOOP COUNTER -DIV1: CMP IROP1,IROP2M ; - JLO DIV2 - SUB IROP1,IROP2M -DIV2: RLC IRACL - JC DIV4 ; Error: result > 16 bits - DEC IRBT ; Decrement loop counter - JZ DIV3 ; Is 0: terminate w/o error - RLA IROP2L - RLC IROP2M - JNC DIV1 - SUB IROP1,IROP2M - SETC - JMP DIV2 -DIV3: CLRC ; No error, C = 0 -DIV4: ; Error indication in C -; END T.I. ROUTINE Section 5.1.5 of MSP430 Family Application Reports - MOV IROP2M,0(PSP) ; remainder on stack - MOV IRACL,TOS ; quotient in TOS - NEXT - diff --git a/amforth-6.5/msp430/words/um-star.asm b/amforth-6.5/msp430/words/um-star.asm deleted file mode 100644 index 7b031b0..0000000 --- a/amforth-6.5/msp430/words/um-star.asm +++ /dev/null @@ -1,38 +0,0 @@ -;C UM* u1 u2 -- ud unsigned 16x16->32 mult. - CODEHEADER(XT_UMSTAR,3,"um*") -.ifdef MPY - dint - mov @PSP, &MPY - mov TOS, &OP2 - nop ; 1 cycle for calculation - mov &RESLO, 0(PSP) - mov &RESHI, TOS - eint -.else - ; IROP1 = TOS register - MOV @PSP,IROP2L ; get u1, leave room on stack - PUSH IRACL ; possibly used as register B -; -; T.I. SIGNED MULTIPLY SUBROUTINE: IROP1 x IROP2L -> IRACM|IRACL -MPYU: CLR IRACL ; 0 -> LSBs RESULT - CLR IRACM ; 0 -> MSBs RESULT -; UNSIGNED MULTIPLY AND ACCUMULATE SUBROUTINE: -; (IROP1 x IROP2L) + IRACM|IRACL -> IRACM|IRACL -MACU: CLR IROP2M ; MSBs MULTIPLIER - MOV #1,IRBT ; BIT TEST REGISTER -L_002: BIT IRBT,IROP1 ; TEST ACTUAL BIT - JZ L_01 ; IF 0: DO NOTHING - ADD IROP2L,IRACL ; IF 1: ADD MULTIPLIER TO RESULT - ADDC IROP2M,IRACM -L_01: RLA IROP2L ; MULTIPLIER x 2 - RLC IROP2M -; - RLA IRBT ; NEXT BIT TO TEST - JNC L_002 ; IF BIT IN CARRY: FINISHED -; END T.I. ROUTINE section 5.1.1 of MSP430 Family Application Reports - MOV IRACL,0(PSP) ; low result on stack - MOV IRACM,TOS ; high result in TOS - POP IRACL ; possibly used as register B - -.endif - NEXT diff --git a/amforth-6.5/msp430/words/unloop.asm b/amforth-6.5/msp430/words/unloop.asm deleted file mode 100644 index ac8e5a6..0000000 --- a/amforth-6.5/msp430/words/unloop.asm +++ /dev/null @@ -1,5 +0,0 @@ -;C UNLOOP -- R: sys1 sys2 -- drop loop parms - CODEHEADER(XT_UNLOOP,6,"unloop") - MOV @RSP+,INDEX ; restore old loop values - MOV @RSP+,LIMIT - NEXT diff --git a/amforth-6.5/msp430/words/up.asm b/amforth-6.5/msp430/words/up.asm deleted file mode 100644 index a3674d1..0000000 --- a/amforth-6.5/msp430/words/up.asm +++ /dev/null @@ -1,11 +0,0 @@ - -CODEHEADER(XT_UP_FETCH,3,"up@") - SUB #2,PSP - MOV TOS, 0(PSP) - MOV UP,TOS - NEXT - -CODEHEADER(XT_UP_STORE,3,"up!") - MOV TOS,UP - MOV @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/usart-rx.asm b/amforth-6.5/msp430/words/usart-rx.asm deleted file mode 100644 index 16bd4c1..0000000 --- a/amforth-6.5/msp430/words/usart-rx.asm +++ /dev/null @@ -1,10 +0,0 @@ -;C KEY -- c get character from keyboard - HEADER(XT_USART_RX_POLL,2,"rx",DOCOLON) -KEYLOOP: - .DW XT_KEYQ - .dw XT_DOCONDBRANCH - DEST(KEYLOOP) - .dw XT_DOLITERAL - .dw USART_RX_DATA - .dw XT_CFETCH - .dw XT_EXIT diff --git a/amforth-6.5/msp430/words/usart-rxq.asm b/amforth-6.5/msp430/words/usart-rxq.asm deleted file mode 100644 index cc79509..0000000 --- a/amforth-6.5/msp430/words/usart-rxq.asm +++ /dev/null @@ -1,14 +0,0 @@ -;X KEY? -- f return true if char waiting - -HEADER(XT_USART_RXQ_POLL,3,"rx?",DOCOLON) - .dw XT_PAUSE - .dw XT_DOLITERAL - .dw bm_USART_RXRD - .dw XT_DUP - .dw XT_DOLITERAL - .dw USART_RX_CFG - .dw XT_CFETCH - .dw XT_AND - .dw XT_EQUAL - .dw XT_EXIT - diff --git a/amforth-6.5/msp430/words/usart-tx.asm b/amforth-6.5/msp430/words/usart-tx.asm deleted file mode 100644 index 07b0f5a..0000000 --- a/amforth-6.5/msp430/words/usart-tx.asm +++ /dev/null @@ -1,14 +0,0 @@ -; ---------------------------------------------------------------------- -; TERMINAL I/O (TARGET-SPECIFIC) - -;C EMIT c -- output character to console - HEADER(XT_USART_TX_POLL,2,"tx",DOCOLON) - -EMITLOOP: - .dw XT_EMITQ - .dw XT_DOCONDBRANCH - DEST(EMITLOOP) - .dw XT_DOLITERAL - .dw USART_TX_DATA - .dw XT_CSTORE - .dw XT_EXIT diff --git a/amforth-6.5/msp430/words/usart-txq.asm b/amforth-6.5/msp430/words/usart-txq.asm deleted file mode 100644 index 9868346..0000000 --- a/amforth-6.5/msp430/words/usart-txq.asm +++ /dev/null @@ -1,15 +0,0 @@ -; ---------------------------------------------------------------------- -; TERMINAL I/O (TARGET-SPECIFIC) - -;C EMIT? c -- output character to console -HEADER(XT_USART_TXQ_POLL,3,"tx?",DOCOLON) - .dw XT_PAUSE - .dw XT_DOLITERAL - .dw bm_USART_TXRD - .dw XT_DUP - .dw XT_DOLITERAL - .dw USART_TX_CFG - .dw XT_CFETCH - .dw XT_AND - .dw XT_EQUAL - .dw XT_EXIT diff --git a/amforth-6.5/msp430/words/user.asm b/amforth-6.5/msp430/words/user.asm deleted file mode 100644 index e436355..0000000 --- a/amforth-6.5/msp430/words/user.asm +++ /dev/null @@ -1,9 +0,0 @@ -;Z USER n -- define user variable with offset 'n' - HEADER(XT_USER,4,"user",DOCOLON) - DW XT_DOCREATE,XT_COMPILE, DOUSER, XT_COMMA, XT_REVEAL,XT_EXIT -DOUSER: ; -- a-addr ; add constant to User Pointer, result in TOS - SUB #2,PSP - MOV TOS,0(PSP) - MOV @W,TOS - ADD UP,TOS - NEXT diff --git a/amforth-6.5/msp430/words/wlscope.asm b/amforth-6.5/msp430/words/wlscope.asm deleted file mode 100644 index a0f8dd0..0000000 --- a/amforth-6.5/msp430/words/wlscope.asm +++ /dev/null @@ -1,5 +0,0 @@ - -DEFER(XT_WLSCOPE,7,"wlscope") - .dw CFG_WLSCOPE - .dw XT_CFGDEFERFETCH - .dw XT_CFGDEFERSTORE diff --git a/amforth-6.5/msp430/words/wordlist.asm b/amforth-6.5/msp430/words/wordlist.asm deleted file mode 100644 index d2b550c..0000000 --- a/amforth-6.5/msp430/words/wordlist.asm +++ /dev/null @@ -1,14 +0,0 @@ -; ( -- wid ) -; Search Order -; create a new, empty wordlist -HEADER(XT_WORDLIST,8,"wordlist",DOCOLON) - .dw XT_INFODP - .dw XT_FETCH - .dw XT_ZERO - .dw XT_OVER - .dw XT_STORE - .dw XT_DUP - .dw XT_CELLPLUS - .dw XT_INFODP - .dw XT_STORE - .dw XT_EXIT diff --git a/amforth-6.5/msp430/words/xor.asm b/amforth-6.5/msp430/words/xor.asm deleted file mode 100644 index 2989f4c..0000000 --- a/amforth-6.5/msp430/words/xor.asm +++ /dev/null @@ -1,5 +0,0 @@ - -;C XOR x1 x2 -- x3 logical XOR - CODEHEADER(XT_XOR,3,"xor") - XOR @PSP+,TOS - NEXT diff --git a/amforth-6.5/msp430/words/zero-equal.asm b/amforth-6.5/msp430/words/zero-equal.asm deleted file mode 100644 index 2c159e2..0000000 --- a/amforth-6.5/msp430/words/zero-equal.asm +++ /dev/null @@ -1,5 +0,0 @@ -;C 0= n/u -- flag return true if TOS=0 - CODEHEADER(XT_ZEROEQUAL,2,"0=") - SUB #1,TOS ; borrow (clear cy) if TOS was 0 - SUBC TOS,TOS ; TOS=-1 if borrow was set - NEXT diff --git a/amforth-6.5/msp430/words/zero-less.asm b/amforth-6.5/msp430/words/zero-less.asm deleted file mode 100644 index 2b8252f..0000000 --- a/amforth-6.5/msp430/words/zero-less.asm +++ /dev/null @@ -1,6 +0,0 @@ -;C 0< n -- flag true if TOS negative - CODEHEADER(XT_ZEROLESS,2,"0<") - ADD TOS,TOS ; set cy if TOS negative - SUBC TOS,TOS ; TOS=-1 if carry was clear - XOR #-1,TOS ; TOS=-1 if carry was set - NEXT -- cgit v1.2.3