From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- amforth-6.5/common/words/ud-star.asm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 amforth-6.5/common/words/ud-star.asm (limited to 'amforth-6.5/common/words/ud-star.asm') diff --git a/amforth-6.5/common/words/ud-star.asm b/amforth-6.5/common/words/ud-star.asm new file mode 100644 index 0000000..64642da --- /dev/null +++ b/amforth-6.5/common/words/ud-star.asm @@ -0,0 +1,21 @@ + +.if cpu_msp430==1 + HEADER(XT_UDSTAR,3,"ud*",DOCOLON) +.endif + +.if cpu_avr8==1 +VE_UDSTAR: + .dw $ff03 + .db "ud*" + .dw VE_HEAD + .set VE_HEAD = VE_UDSTAR +XT_UDSTAR: + .dw DO_COLON +PFA_UDSTAR: + +.endif +;Z UD* ud1 d2 -- ud3 32*16->32 multiply +; XT_DUP >R UM* DROP XT_SWAP R> UM* ROT + ; + + .DW XT_DUP,XT_TO_R,XT_UMSTAR,XT_DROP + .DW XT_SWAP,XT_R_FROM,XT_UMSTAR,XT_ROT,XT_PLUS,XT_EXIT -- cgit v1.2.3