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 ---------------------- .../devices/msp430f5529/words/env-mcu-info.asm | 10 ------ .../devices/msp430f5529/words/usart-init.asm | 16 --------- 3 files changed, 67 deletions(-) delete mode 100644 amforth-6.5/msp430/devices/msp430f5529/words/cold.asm delete mode 100644 amforth-6.5/msp430/devices/msp430f5529/words/env-mcu-info.asm delete mode 100644 amforth-6.5/msp430/devices/msp430f5529/words/usart-init.asm (limited to 'amforth-6.5/msp430/devices/msp430f5529/words') 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 diff --git a/amforth-6.5/msp430/devices/msp430f5529/words/env-mcu-info.asm b/amforth-6.5/msp430/devices/msp430f5529/words/env-mcu-info.asm deleted file mode 100644 index 621fc72..0000000 --- a/amforth-6.5/msp430/devices/msp430f5529/words/env-mcu-info.asm +++ /dev/null @@ -1,10 +0,0 @@ -ENVIRONMENT(XT_ENV_MCU_INFO,8,"mcu-info") - .DW XT_DOLITERAL - .dw mcuinfo - .DW XT_EXIT -mcuinfo: - ; first fixed sized elements - .dw RAMEND-RAMSTART ; RAM Size - .dw 0 ; EEPROM Size - .dw AMFORTH_START-1 ; max-dp - .dw 1 ; number of interrupts diff --git a/amforth-6.5/msp430/devices/msp430f5529/words/usart-init.asm b/amforth-6.5/msp430/devices/msp430f5529/words/usart-init.asm deleted file mode 100644 index 4bcd00c..0000000 --- a/amforth-6.5/msp430/devices/msp430f5529/words/usart-init.asm +++ /dev/null @@ -1,16 +0,0 @@ - CODEHEADER(XT_USART,6,"+usart") - ; USCI_A0 - mov.b #030h, &P4SEL ; Use P4.4/P4.5 for USCI_A1 TXD/RXD - - ;------------------------------------------------------------------------------ - ; Init serial communication - - mov.b #UCSWRST, &UCA1CTL1 ; **Put state machine in reset** - bis.b #UCSSEL_2, &UCA1CTL1 ; SMCLK - - mov.w #4, &UCA1BRW ; 8 MHz 115200 Baud - mov.b #3Bh, &UCA1MCTL ; Modulation UCBRSx=5, UCBRFx=3, UCOS16 - - bic.b #UCSWRST, &UCA1CTL1 ; **Initialize USCI state machine** - - NEXT -- cgit v1.2.3