pic33epxxx flash geheugen (bootloader)

;Define the address from where the programming has to start
.equ PROG_ADDR, 0x022000;
; Load the destination address to be written
MOV #tblpage(PROG_ADDR),W9

MOV #tbloffset(PROG_ADDR),W8

MOV W9,NVMADRU
MOV W8,NVMADR;
; Load the two words into the latches
CALL Load_Write_Latch_Word;
 Setup NVMCON for word programming
MOV #0x4001,W0

MOV W0,NVMCON;

; Disable interrupts < priority 7 for next 5 instructions; Assumes no level 7 peripheral interrupts
DISI#06

; Write the key sequence
MOV#0x55,W0

MOVW0,NVMKEY
MOV#0xAA,W0

MOVW0,NVMKEY

; Start the write cycle
BSET NVMCON,#15

NOP
NOP

[
Device 33EP256MU806 



Config ficd = JTAGEN_off
Config fpor = boren_off,fpwrt_pwr1
Config FWDT = fwdten_off , PLLKEN_OFF
Config foscsel = FNOSC_frcpll,ieso_oFF
Config fosc = FCKSM_csdcmd

OSCCON = %0000000100000000
CLKDIV = %0011000000001010
PLLFBD = %0000000110000100
RCON.5 = 0
 
Declare Xtal = 120



     

 
TRISC.13 = 1 
ANSELC.13 = 0 
  

DelayMS 1000
Declare Hserial_Baud = 9600 
Declare HRSOut1_Pin = PORTG.6                
Declare HRSIn1_Pin = PORTC.13                

    
        
RPINR0 =  %0111011100000000     ; int1 op pin g7
RPINR18 = %0000000000111101   ; uart rx1
RPOR13 =  %0000000100000000   ;uart tx1


Dim MESSAGE As Byte 
Dim TELLER As Dword  

MESSAGE = 0 
For TELLER = 0 To 100
HRSOut "."
HSerIn 4 ,verder ,[MESSAGE]
verder:

If MESSAGE = 250 Then 
HRSOut "START BOOTPROCES"
GoTo BOOTLOAD 
EndIf 
Next









GoTo main 

BOOTLOAD: 

INTCON2.14 = 1 

   Asm
    .equ PROG_ADDR,0x3d8
   Mov #tblpage(PROG_ADDR),W0
   Mov W0,NVMADRU
   Mov #tbloffset(PROG_ADDR),W0
    Mov W1,NVMADR
    
    EndAsm
 

   NVMCON = %0100000000000011
    Disi #06
    ; Write the KEY Sequence
    Mov #0x55,W0
    Mov W0,NVMKEY
    Mov #0xAA,W0
    Mov W0,NVMKEY
    ; Start the erase operation
    Bset NVMCON,#15
    ; Insert two NOPs after the erase cycle (required)
    Nop
    Nop
   
   HRSOut " Wissen klaar"


main: 


HRSOut "1 "
HRSOut 10 
HRSOut 13 
DelayMS 1000 

HRSOut "2"
HRSOut 10 
HRSOut 13 
DelayMS 1000 


HRSOut "3"
HRSOut 10 
HRSOut 13 
DelayMS 1000 


HRSOut "4"
HRSOut 10 
HRSOut 13 
DelayMS 1000 
GoTo main