aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/drivers/fram/words/ic-store.asm
blob: dee45756f8883180add1a888c432b1a3af513f99 (plain)
1
2
3
4
5
6
7
8
9
10
;Z IC!        x a-addr --   store char in Instruction memory
        CODEHEADER(XT_CSTOREI,3,"c!i")

        mov #0A500h, &MPUCTL0 ; Enable write access by disabling MPU
        MOV     @PSP+,W
        MOV.B   W,0(TOS)
        MOV     @PSP+,TOS

	mov #0A501h, &MPUCTL0 ; Disable write access again
	mov.b #0, &MPUCTL0+1  ; Disable MPU access