;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