aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/fetch-e.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/avr8/words/fetch-e.asm')
-rw-r--r--amforth-6.5/avr8/words/fetch-e.asm51
1 files changed, 0 insertions, 51 deletions
diff --git a/amforth-6.5/avr8/words/fetch-e.asm b/amforth-6.5/avr8/words/fetch-e.asm
deleted file mode 100644
index fb0dee5..0000000
--- a/amforth-6.5/avr8/words/fetch-e.asm
+++ /dev/null
@@ -1,51 +0,0 @@
-; ( e-addr - n)
-; Memory
-; read 1 cell from eeprom
-VE_FETCHE:
- .dw $ff02
- .db "@e"
- .dw VE_HEAD
- .set VE_HEAD = VE_FETCHE
-XT_FETCHE:
- .dw PFA_FETCHE
-PFA_FETCHE:
-.if WANT_UNIFIED == 1
- ldi zh, high(EEPROMEND)
- ldi zl, low(EEPROMEND)
- cp tosl, zl
- cpc tosh, zh
- brlt PFA_FETCHE1
- brbs 1, PFA_FETCHE1
- rjmp PFA_FETCHE_OTHER
-.endif
-PFA_FETCHE1:
- in_ temp2, SREG
- cli
- movw zl, tosl
- rcall PFA_FETCHE2
- in_ tosl, EEDR
-
- adiw zl,1
-
- rcall PFA_FETCHE2
- in_ tosh, EEDR
- out_ SREG, temp2
- jmp_ DO_NEXT
-
-PFA_FETCHE2:
- sbic EECR, EEPE
- rjmp PFA_FETCHE2
-
- out_ EEARH,zh
- out_ EEARL,zl
-
- sbi EECR,EERE
- ret
-
-.if WANT_UNIFIED == 1
-PFA_FETCHE_OTHER:
- adiw zl, 1
- sub tosl, zl
- sbc tosh, zh
- jmp_ PFA_FETCHI
-.endif