aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/drivers/fram/words/i-store.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/msp430/drivers/fram/words/i-store.asm')
-rw-r--r--amforth-6.5/msp430/drivers/fram/words/i-store.asm10
1 files changed, 10 insertions, 0 deletions
diff --git a/amforth-6.5/msp430/drivers/fram/words/i-store.asm b/amforth-6.5/msp430/drivers/fram/words/i-store.asm
new file mode 100644
index 0000000..c4de731
--- /dev/null
+++ b/amforth-6.5/msp430/drivers/fram/words/i-store.asm
@@ -0,0 +1,10 @@
+;Z I! x a-addr -- store cell in Instruction memory
+ CODEHEADER(XT_STOREI,2,"!i")
+
+ mov #0A500h, &MPUCTL0 ; Enable write access by disabling MPU
+ MOV @PSP+,0(TOS)
+ MOV @PSP+,TOS
+ mov #0A501h, &MPUCTL0 ; Disable write access again
+ mov.b #0, &MPUCTL0+1 ; Disable MPU access
+
+ NEXT