From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- .../avr8/devices/atmega8535/words/sleep.asm | 24 ---------------------- 1 file changed, 24 deletions(-) delete mode 100644 amforth-6.5/avr8/devices/atmega8535/words/sleep.asm (limited to 'amforth-6.5/avr8/devices/atmega8535/words/sleep.asm') diff --git a/amforth-6.5/avr8/devices/atmega8535/words/sleep.asm b/amforth-6.5/avr8/devices/atmega8535/words/sleep.asm deleted file mode 100644 index 778fa32..0000000 --- a/amforth-6.5/avr8/devices/atmega8535/words/sleep.asm +++ /dev/null @@ -1,24 +0,0 @@ -; ( mode -- ) -; MCU -; put the controller into the specified sleep mode -VE_SLEEP: - .dw $ff05 - .db "sleep", 0 - .dw VE_HEAD - .set VE_HEAD = VE_SLEEP -XT_SLEEP: - .dw PFA_SLEEP -PFA_SLEEP: - andi tosl, 7 ; leave only legal mode bits - swap tosl ; move to correct location (bits 6-4, atmega32) - ori tosl, $80 ; set the SE bit (atmega32: bit 7, not bit 0) - out_ MCUCR, tosl ; set the sleep config (atmega32: MCUCR not SMCR) - sleep ; nighty-night -;; the 4 lower bits of MCUCR should not be touched - in_ tosl, MCUCR - andi tosl, $0F - out_ MCUCR, tosl - ;clr tosl ; need to clean up the SMCR reg before we leave - ;out SMCR, tosl ; 0 protects against accidental sleeps - loadtos ; pop argument from stack - jmp DO_NEXT -- cgit v1.2.3