aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/n_r_from.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/msp430/words/n_r_from.asm')
-rw-r--r--amforth-6.5/msp430/words/n_r_from.asm17
1 files changed, 0 insertions, 17 deletions
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