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/avr8/words/cmove_g.asm | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 amforth-6.5/avr8/words/cmove_g.asm (limited to 'amforth-6.5/avr8/words/cmove_g.asm') 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 -- cgit v1.2.3