aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/cmove_g.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/avr8/words/cmove_g.asm')
-rw-r--r--amforth-6.5/avr8/words/cmove_g.asm34
1 files changed, 0 insertions, 34 deletions
diff --git a/amforth-6.5/avr8/words/cmove_g.asm b/amforth-6.5/avr8/words/cmove_g.asm
deleted file mode 100644
index 3bcbb4e..0000000
--- a/amforth-6.5/avr8/words/cmove_g.asm
+++ /dev/null
@@ -1,34 +0,0 @@
-; (addr-from addr-to n -- )
-; Memory
-; copy data in RAM from higher to lower addresses.
-VE_CMOVE_G:
- .dw $ff06
- .db "cmove>"
- .dw VE_HEAD
- .set VE_HEAD = VE_CMOVE_G
-XT_CMOVE_G:
- .dw PFA_CMOVE_G
-PFA_CMOVE_G:
- push xh
- push xl
- ld zl, Y+
- ld zh, Y+ ; addr-to
- ld xl, Y+
- ld xh, Y+ ; addr-from
- mov temp0, tosh
- or temp0, tosl
- brbs 1, PFA_CMOVE_G1
- add zl, tosl
- adc zh, tosh
- add xl, tosl
- adc xh, tosh
-PFA_CMOVE_G2:
- ld temp1, -X
- st -Z, temp1
- sbiw tosl, 1
- brbc 1, PFA_CMOVE_G2
-PFA_CMOVE_G1:
- pop xl
- pop xh
- loadtos
- jmp_ DO_NEXT