aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/drivers/fram/words/i-store.asm
blob: c4de731516666c3399989049db8ccff4f1e52fcd (plain)
1
2
3
4
5
6
7
8
9
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