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/msp430g2553/words/cold.asm | 41 ---------------------- .../devices/msp430g2553/words/env-mcu-info.asm | 10 ------ .../devices/msp430g2553/words/usart-init.asm | 13 ------- 3 files changed, 64 deletions(-) delete mode 100644 amforth-6.5/msp430/devices/msp430g2553/words/cold.asm delete mode 100644 amforth-6.5/msp430/devices/msp430g2553/words/env-mcu-info.asm delete mode 100644 amforth-6.5/msp430/devices/msp430g2553/words/usart-init.asm (limited to 'amforth-6.5/msp430/devices/msp430g2553/words') diff --git a/amforth-6.5/msp430/devices/msp430g2553/words/cold.asm b/amforth-6.5/msp430/devices/msp430g2553/words/cold.asm deleted file mode 100644 index 0828eb4..0000000 --- a/amforth-6.5/msp430/devices/msp430g2553/words/cold.asm +++ /dev/null @@ -1,41 +0,0 @@ -CODEHEADER(XT_COLD,4,"cold") -main: ; Debugger requires the 'main' symbol. -reset: - ; Watchdog Timer - MOV #(WDTPW+WDTHOLD),&WDTCTL ; stop watchdog timer - - ; Basic Clock Module - ; My thanks to the 4e4th team for the following two lines! - MOV.B &CALBC1_8MHZ, &BCSCTL1 ; Set DCO - MOV.B &CALDCO_8MHZ, &DCOCTL ; to 8 MHz. - - MOV.B #00h,&BCSCTL2 ; MCLK=DCO/1, SMCLK=DCO/1 - - ; Flash Memory Controller - ; Flash Timing Generator frequency must be 257-476 kHz. - ; 8 MHZ/17 = 470.59 kHz. tFTG=2.125 msec. - ; At 470 kHz, byte/word program time is 35*tFTG = 75 usec. - ; Cumulative program time to any 64-byte block (between erasures) - ; must not exceed 4 msec, thus 53 writes at 250 kHz. Therefore, - ; do not use exclusively byte writes in a 64-byte block. - ; Also, "a flash word (low + high byte) must not - ; be written more than twice between erasures." - ; Program/Erase endurance is 10,000 cycles minimum. - MOV #FWKEY+0,&FCTL1 ; write & erase modes OFF - MOV #FWKEY+FSSEL1+16,&FCTL2 ; SMCLK/17 = 471 kHz. - MOV #FWKEY+LOCK,&FCTL3 ; lock flash memory against writing - - ; Interrupt Enables - MOV.B #0,&IE1 ; no interrupts enabled - MOV.B #0,&IE2 ; no interrupts enabled - - ; 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/msp430g2553/words/env-mcu-info.asm b/amforth-6.5/msp430/devices/msp430g2553/words/env-mcu-info.asm deleted file mode 100644 index 621fc72..0000000 --- a/amforth-6.5/msp430/devices/msp430g2553/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/msp430g2553/words/usart-init.asm b/amforth-6.5/msp430/devices/msp430g2553/words/usart-init.asm deleted file mode 100644 index e8c7693..0000000 --- a/amforth-6.5/msp430/devices/msp430g2553/words/usart-init.asm +++ /dev/null @@ -1,13 +0,0 @@ - CODEHEADER(XT_USART,6,"+usart") - ; USCI_A0 - MOV.B #06,&P1SEL ; P1.1,2 are UART - MOV.B #06,&P1SEL2 ; P1.1,2 are UART - - BIS.B #UCSWRST,&UCA0CTL1 ; SWRST while configuring! - MOV.B #00h,&UCA0CTL0 ; UART, 8N1, LSB first - MOV.B #81h,&UCA0CTL1 ; BRCLK = SMCLK, SWRST set - MOV.B #41h,&UCA0BR0 ; 9600 Baud at 8 MHz - MOV.B #03h,&UCA0BR1 - MOV.B #04h,&UCA0MCTL ; UCBRFx=0, UCBRSx=2 for 9600 baud - BIC.B #UCSWRST,&UCA0CTL1 ; done configuring - NEXT -- cgit v1.2.3