aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/doplusloop.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/avr8/words/doplusloop.asm')
-rw-r--r--amforth-6.5/avr8/words/doplusloop.asm28
1 files changed, 0 insertions, 28 deletions
diff --git a/amforth-6.5/avr8/words/doplusloop.asm b/amforth-6.5/avr8/words/doplusloop.asm
deleted file mode 100644
index c34cae5..0000000
--- a/amforth-6.5/avr8/words/doplusloop.asm
+++ /dev/null
@@ -1,28 +0,0 @@
-; ( n1 -- ) (R: loop-sys1 -- loop-sys2| )
-; System
-; runtime of +loop
-;VE_DOPLUSLOOP:
-; .dw $ff07
-; .db "(+loop)"
-; .dw VE_HEAD
-; .set VE_HEAD = VE_DOPLUSLOOP
-XT_DOPLUSLOOP:
- .dw PFA_DOPLUSLOOP
-PFA_DOPLUSLOOP:
- pop zl
- pop zh
- add zl, tosl
- adc zh, tosh
- loadtos
- brvs PFA_DOPLUSLOOP_LEAVE
- ; next cycle
-PFA_DOPLUSLOOP_NEXT:
- ; next iteration
- push zh
- push zl
- rjmp PFA_DOBRANCH ; read next cell from dictionary and jump to its destination
-PFA_DOPLUSLOOP_LEAVE:
- pop temp0
- pop temp1 ; remove limit
- adiw xl, 1 ; skip branch-back address
- jmp_ DO_NEXT