From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- .../msp430/devices/msp430f5529/words/cold.asm | 41 ---------------------- 1 file changed, 41 deletions(-) delete mode 100644 amforth-6.5/msp430/devices/msp430f5529/words/cold.asm (limited to 'amforth-6.5/msp430/devices/msp430f5529/words/cold.asm') diff --git a/amforth-6.5/msp430/devices/msp430f5529/words/cold.asm b/amforth-6.5/msp430/devices/msp430f5529/words/cold.asm deleted file mode 100644 index b16f18f..0000000 --- a/amforth-6.5/msp430/devices/msp430f5529/words/cold.asm +++ /dev/null @@ -1,41 +0,0 @@ -CODEHEADER(XT_COLD, 4, "cold") -; ---------------------------------------------------------------------- - -main: ; Debugger requires the 'main' symbol. -reset: - - mov #5A80h, &WDTCTL ; Watchdog off - - ; Now it is time to initialize hardware. (Porting: Change this !) - - ;------------------------------------------------------------------------------ - ; Init Clock - - bis.w #40h, r2 - mov.w #20h, &166h - mov.w #144h, &168h - mov.w #1308h, &160h - mov.w #40h, &162h - mov.w #0F4h, &164h - nop - nop - nop - bic.w #40h, r2 - -reset_loop: - mov.w #0h, &16Eh - bic.w #2h, &102h - bit.w #2h, &102h - jc reset_loop - - ;------------------------------------------------------------------------------ - -; Forth registers - MOV #RSTACK,SP ; set up stack - MOV #PSTACK,PSP - MOV #UAREA,UP ; initial user pointer - CLR R15 - -; now hand over to Forth with WARM (a colon word) - MOV #XT_WARM+2,IP - NEXT -- cgit v1.2.3