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/drivers/flash/words/ic-store.asm | 29 ---------------------- 1 file changed, 29 deletions(-) delete mode 100644 amforth-6.5/msp430/drivers/flash/words/ic-store.asm (limited to 'amforth-6.5/msp430/drivers/flash/words/ic-store.asm') diff --git a/amforth-6.5/msp430/drivers/flash/words/ic-store.asm b/amforth-6.5/msp430/drivers/flash/words/ic-store.asm deleted file mode 100644 index c8677ea..0000000 --- a/amforth-6.5/msp430/drivers/flash/words/ic-store.asm +++ /dev/null @@ -1,29 +0,0 @@ -;Z IC! x a-addr -- store char in Instruction memory - CODEHEADER(XT_CSTOREI,3,"c!i") - MOV @PSP+,W ; get data to write - CMP.B @TOS,W - JZ IST_X ; if memory is desired value, do not write - ; is it within Main flash? - CMP #FLASHSTART,TOS - JNC ICST_INFO ; if borrow, adrend, check if Info -ICST_INFO: ; is it within Info flash? - CMP #INFOSTART,TOS - JNC ICST_RAM ; if borrow, adrend, assume it's RAM -ICST_OK: ; Address is either in Main flash, or in Info flash. - ; Byte/word write from flash. - ; Assumes location to write is already erased - ; Assumes ACCVIE = NMIIE = OFIE = 0, watchdog disabled. - ; Per section 5.3.3 of MSP430 Family User's Guide - DINT ; Disable interrupts - MOV #FWKEY,&FCTL3 ; Clear LOCK - MOV #FWKEY+WRT,&FCTL1 ; Enable write -ICST_RAM: ; If RAM, jump here to write. FCTL1,FCTL3,EINT are superfluous - MOV.B W,0(TOS) ; Write byte to flash location - MOV #FWKEY,&FCTL1 ; Done. Clear WRT. - MOV #FWKEY+LOCK,&FCTL3 ; Set LOCK - EINT ; Enable interrupts - JMP IST_X -- cgit v1.2.3