Mikrobasic Programm Grösse optimieren

program Flash_Test

'Used PIC is a PIC12F1572

'INTOSC is set to 32Mhz

'

'Program writes dummys to the HEF Flashcell and give it out over UART.

'After this, program fall into a endless loop.

'

'

Const Row1 as Word = 0x780

Const Row2 as Word = 0x7A0

Const Row3 as Word = 0x7C0

Const Row4 as Word = 0x7E0

dim UART_Data_Out as char[5]

dim MyMemory as word[16]

dim i as byte

Sub Procedure Init

    ANSELA = 0                           'All Pins are digital

    WPUA = 0                             'No Pullups

    INLVLA = 0x0                         'All Inputs are TTL

    OSCCON = 0xF6                        'Configure 32Mhz internal OSC

    UART1_Init(9600)                     'Init Uart

    Delay_ms(100)                        'Wait until Uart stable

End sub

sub procedure Flash_Unlock

    PMCON2 = 0x55

    PMCON2 = 0xAA

    PMCON1.WR = 1

    NOP

    NOP

end sub

sub procedure FlashEraseRow (dim Address as word)

    INTCON.GIE = 0                       'disable all interrupts

    PMCON1.CFGS = 0                      'set program memory space

    PMCON1.PMADR = Address

    PMCON1.FREE = 1

    PMCON1.WREN = 1

    Flash_unlock

    'processor stalls until operation is complete (2 mS typical)

    PMCON1.WREN = 0

    INTCON.GIE = 1                       'restore old value of GIE bit

end sub

sub procedure FlashWriteRow(dim Address as word, dim byref datas as word[16])

dim i as byte

    INTCON.GIE = 0                        'disable all interrupts

    PMCON1.CFGS = 0                    'set program memory space

    PMCON1.PMADR = Address

    PMCON1.FREE = 0

    PMCON1.LWLO = 1                        'only write to the latches

    PMCON1.WREN = 1

    for i =0 to 15

        PMCON1.PMADR = Address + i

        PMCON1.PMDAT = datas[i]

        Flash_unlock

    next i

    PMCON1.LWLO = 0                        'write latches to flash

    Flash_unlock

    'processor stalls until operation is complete (2 mS typical)

    PMCON1.WREN = 0

    INTCON.GIE = 1                       'restore old value of GIE bit

end sub

sub function FlashReadWord (dim Address as word) as word

    PMCON1.CFGS = 0                    'set program memory space

    PMCON1.PMADRH = Address

    PMCON1.RD = 1                        'set read

    NOP

    NOP

    FlashReadWord = PMCON1.PMDAT

end sub

sub procedure FlashReadRow (dim Address as word,dim byref datas as word[16])

dim i as byte

    for i =0 to 15

        datas[i] = FlashReadWord(Address +i)

    next i

end sub

Sub Procedure WriteDummysToFlash

    for i = 0 to 15

        MyMemory[i] = i

    next i

    FlashWriteRow(Row1,MyMemory)

    for i = 0 to 15

        MyMemory[i] = i +16

    next i

    FlashWriteRow(Row2,MyMemory)

    for i = 0 to 15

        MyMemory[i] = i +32

    next i

    FlashWriteRow(Row3,MyMemory)

    for i = 0 to 15

        MyMemory[i] = i +48

    next i

    FlashWriteRow(Row4,MyMemory)

end sub

Sub Procedure SendMyMemoryToPC

    for i = 0 to 15

        WordToStr(MyMemory[i],UART_Data_Out)

        UART1_Write_Text(UART_Data_Out)

    next i

end sub

main:

Init

WriteDummysToFlash

FlashReadRow(Row1,MyMemory)

SendMyMemoryToPC

FlashReadRow(Row2,MyMemory)

SendMyMemoryToPC

FlashReadRow(Row3,MyMemory)

SendMyMemoryToPC

FlashReadRow(Row4,MyMemory)

SendMyMemoryToPC

while 1

      clrwdt

wend

end.