User manual

274
mikoBasic PRO for PIC32
MikroElektronika
Copy Code To Clipboard
program CF_Fat16_Test
dim
‘ set compact ash pinout
Cf_Data_Port as byte at PORTE
CF_RDY as sbit at RD7_bit
CF_WE as sbit at LATD6_bit
CF_OE as sbit at LATD5_bit
CF_CD1 as sbit at RD4_bit
CF_CE1 as sbit at LATD3_bit
CF_A2 as sbit at LATD2_bit
CF_A1 as sbit at LATD1_bit
CF_A0 as sbit at LATD0_bit
CF_RDY_direction as sbit at TRISD7_bit
CF_WE_direction as sbit at TRISD6_bit
CF_OE_direction as sbit at TRISD5_bit
CF_CD1_direction as sbit at TRISD4_bit
CF_CE1_direction as sbit at TRISD3_bit
CF_A2_direction as sbit at TRISD2_bit
CF_A1_direction as sbit at TRISD1_bit
CF_A0_direction as sbit at TRISD0_bit
‘ eof compact ash pinout
const LINE_LEN = 37
dim
err_txt as string[20]
le_contents as string[LINE_LEN]
lename as string[14] ‘ File names
character as byte
loop1, loop2 as byte
i, size as longint
Buffer as byte[512]
‘ UART write text and new line (carriage return + line feed)
sub procedure UART1_Write_Line( dim byref uart_text as string )
UART1_Write_Text(uart_text)
UART1_Write(13)
UART1_Write(10)
end sub
‘-------------- Creates new le and writes some data to it
sub procedure M_Create_New_File()
lename[7] = “A”
Cf_Fat_Set_File_Date(2005,6,21,10,35,0) ‘ Set le date & time info
Cf_Fat_Assign(lename, 0xA0) ‘ Will not nd le and then create le
Cf_Fat_Rewrite() ‘ To clear le and start with new data
for loop1=1 to 99 ‘ We want 5 les on the MMC card
UART1_Write(“.”)