Compact Flash Library
The Compact Flash Library provides routines for accessing data on Compact Flash card (abbr. CF further in text). CF cards are widely used memory elements, commonly used with digital cameras. Great capacity and excellent access time of only a few microseconds make them very attractive for microcontroller applications.
In CF card, data is divided into sectors. One sector usually comprises 512 bytes. Routines for file handling, the Cf_Fat
routines, are not performed directly but successively through 512B buffer.
- Routines for file handling can be used only with FAT16 file system.
- Library functions create and read files from the root directory only.
- Library functions populate both FAT1 and FAT2 tables when writing to files, but the file data is being read from the FAT1 table only; i.e. there is no recovery if the FAT1 table gets corrupted.
- If MMC/SD card has Master Boot Record (MBR), the library will work with the first available primary (logical) partition that has non-zero size. If MMC/SD card has Volume Boot Record (i.e. there is only one logical partition and no MBRs), the library works with entire card as a single partition. For more information on MBR, physical and logical drives, primary/secondary partitions and partition tables, please consult other resources, e.g. Wikipedia and similar.
- Before writing operation, make sure not to overwrite boot or FAT sector as it could make your card on PC or digital camera unreadable. Drive mapping tools, such as Winhex, can be of great assistance.
Library Dependency Tree
External dependencies of Compact Flash Library
The following variables must be defined in all projects using Compact Flash Library: | Description : | Example : |
---|---|---|
var CF_Data_Port : byte; sfr; external; |
Compact Flash Data Port. | var CF_Data_Port : byte at PORTD; |
var CF_RDY : sbit; sfr; external; |
Ready signal line. | var CF_RDY : sbit at RB7_bit; |
var CF_WE : sbit; sfr; external; |
Write Enable signal line. | var CF_WE : sbit at LATB6_bit; |
var CF_OE : sbit; sfr; external; |
Output Enable signal line. | var CF_OE : sbit at LATB5_bit; |
var CF_CD1 : sbit; sfr; external; |
Chip Detect signal line. | var CF_CD1 : sbit at RB4_bit; |
var CF_CE1 : sbit; sfr; external; |
Chip Enable signal line. | var CF_CE1 : sbit at LATB3_bit; |
var CF_A2 : sbit; sfr; external; |
Address pin 2. | var CF_A2 : sbit at LATB2_bit; |
var CF_A1 : sbit; sfr; external; |
Address pin 1. | var CF_A1 : sbit at LATB1_bit; |
var CF_A0 : sbit; sfr; external; |
Address pin 0. | var CF_A0 : sbit at LATB0_bit; |
var CF_RDY_direction : sbit; sfr; external; |
Direction of the Ready pin. | var CF_RDY_direction : sbit at TRISB7_bit; |
var CF_WE_direction : sbit; sfr; external; |
Direction of the Write Enable pin. | var CF_WE_direction : sbit at TRISB6_bit; |
var CF_OE_direction : sbit; sfr; external; |
Direction of the Output Enable pin. | var CF_OE_direction : sbit at TRISB5_bit; |
var CF_CD1_direction : sbit; sfr; external; |
Direction of the Chip Detect pin. | var CF_CD1_direction : sbit at TRISB4_bit; |
var CF_CE1_direction : sbit; sfr; external; |
Direction of the Chip Enable pin. | var CF_CE1_direction : sbit at TRISB3_bit; |
var CF_A2_direction : sbit; sfr; external; |
Direction of the Address 2 pin. | var CF_A2_direction : sbit at TRISB2_bit; |
var CF_A1_direction : sbit; sfr; external; |
Direction of the Address 1 pin. | var CF_A1_direction : sbit at TRISB1_bit; |
var CF_A0_direction : sbit; sfr; external; |
Direction of the Address 0 pin. | var CF_A0_direction : sbit at TRISB0_bit; |
Library Routines
- Cf_Init
- Cf_Detect
- Cf_Enable
- Cf_Disable
- Cf_Read_Init
- Cf_Read_Byte
- Cf_Write_Init
- Cf_Write_Byte
- Cf_Read_Sector
- Cf_Write_Sector
Routines for file handling:
- Cf_Fat_Init
- Cf_Fat_QuickFormat
- Cf_Fat_Assign
- Cf_Fat_Reset
- Cf_Fat_Read
- Cf_Fat_Rewrite
- Cf_Fat_Append
- Cf_Fat_Delete
- Cf_Fat_Write
- Cf_Fat_Set_File_Date
- Cf_Fat_Get_File_Date
- Cf_Fat_Get_File_Date_Modified
- Cf_Fat_Get_File_Size
- Cf_Fat_Get_Swap_File
The following routine is for the internal use by compiler only:
- Cf_Issue_ID_Command
Cf_Init
Prototype |
procedure Cf_Init(); |
---|---|
Description |
Initializes ports appropriately for communication with CF card. |
Parameters |
None. |
Returns |
Nothing. |
Requires |
Global variables :
|
Example |
// set compact flash pinout var Cf_Data_Port : byte at PORTD; CF_RDY : sbit at RB7_bit; CF_WE : sbit at LATB6_bit; // for writing to output pin always use latch CF_OE : sbit at LATB5_bit; // for writing to output pin always use latch CF_CD1 : sbit at RB4_bit; CF_CE1 : sbit at LATB3_bit; // for writing to output pin always use latch CF_A2 : sbit at LATB2_bit; // for writing to output pin always use latch CF_A1 : sbit at LATB1_bit; // for writing to output pin always use latch CF_A0 : sbit at LATB0_bit; // for writing to output pin always use latch CF_RDY_direction : sbit at TRISB7_bit; CF_WE_direction : sbit at TRISB6_bit; CF_OE_direction : sbit at TRISB5_bit; CF_CD1_direction : sbit at TRISB4_bit; CF_CE1_direction : sbit at TRISB3_bit; CF_A2_direction : sbit at TRISB2_bit; CF_A1_direction : sbit at TRISB1_bit; CF_A0_direction : sbit at TRISB0_bit; // end of compact flash pinout ... Cf_Init(); // initialize CF |
Notes |
None. |
Cf_Detect
Prototype |
function CF_Detect() : word ; |
---|---|
Description |
Checks for presence of CF card by reading the |
Parameters |
None. |
Returns |
|
Requires |
The corresponding MCU ports must be appropriately initialized for CF card. See Cf_Init. |
Example |
// Wait until CF card is inserted: while (Cf_Detect() = 0) do nop; |
Notes |
dsPIC30 family MCU and CF card voltage levels are different. The user must ensure that MCU's pin connected to CD line can read CF card Logical One correctly. |
Cf_Enable
Prototype |
procedure Cf_Enable(); |
---|---|
Description |
Enables the device. Routine needs to be called only if you have disabled the device by means of the Cf_Disable routine. These two routines in conjunction allow you to free/occupy data line when working with multiple devices. |
Parameters |
None. |
Returns |
Nothing. |
Requires |
The corresponding MCU ports must be appropriately initialized for CF card. See Cf_Init. |
Example |
// enable compact flash Cf_Enable(); |
Notes |
None. |
Cf_Disable
Prototype |
procedure Cf_Disable(); |
---|---|
Description |
Routine disables the device and frees the data lines for other devices. To enable the device again, call Cf_Enable. These two routines in conjunction allow you to free/occupy data line when working with multiple devices. |
Parameters |
None. |
Returns |
Nothing. |
Requires |
The corresponding MCU ports must be appropriately initialized for CF card. See Cf_Init. |
Example |
// disable compact flash Cf_Disable(); |
Notes |
None. |
Cf_Read_Init
Prototype |
procedure Cf_Read_Init(address : dword; sectcnt : byte); |
---|---|
Description |
Initializes CF card for reading. |
Parameters |
|
Returns |
Nothing. |
Requires |
The corresponding MCU ports must be appropriately initialized for CF card. See Cf_Init. |
Example |
// initialize compact flash for reading from sector 590 Cf_Read_Init(590, 1); |
Notes |
None. |
Cf_Read_Byte
Prototype |
function CF_Read_Byte() : byte; |
---|---|
Description |
Reads one byte from Compact Flash sector buffer location currently pointed to by internal read pointers. These pointers will be autoicremented upon reading. |
Parameters |
None. |
Returns |
Returns a byte read from Compact Flash sector buffer. |
Requires |
The corresponding MCU ports must be appropriately initialized for CF card. See Cf_Init. CF card must be initialized for reading operation. See Cf_Read_Init. |
Example |
// Read a byte from compact flash: var data_ as byte; ... data_ := Cf_Read_Byte(); |
Notes |
Higher byte of the unsigned return value is cleared.
|
Cf_Write_Init
Prototype |
procedure Cf_Write_Init(address : dword; sectcnt : word); |
---|---|
Description |
Initializes CF card for writing. |
Parameters |
|
Returns |
Nothing. |
Requires |
The corresponding MCU ports must be appropriately initialized for CF card. See Cf_Init. |
Example |
// initialize compact flash for writing to sector 590 Cf_Write_Init(590, 1); |
Notes |
None. |
Cf_Write_Byte
Prototype |
procedure Cf_Write_Byte(data_ : byte) ; |
---|---|
Description |
Writes a byte to Compact Flash sector buffer location currently pointed to by writing pointers. These pointers will be autoicremented upon reading. When sector buffer is full, its contents will be transfered to appropriate flash memory sector. |
Parameters |
|
Returns |
Nothing. |
Requires |
The corresponding MCU ports must be appropriately initialized for CF card. See Cf_Init. CF card must be initialized for writing operation. See Cf_Write_Init. |
Example |
var data_ : byte; ... data_ := 0xAA; Cf_Write_Byte(data_); |
Notes |
None. |
Cf_Read_Sector
Prototype |
procedure Cf_Read_Sector(sector_number : dword; var buffer : array[512] of byte); |
---|---|
Description |
Reads one sector (512 bytes). Read data is stored into buffer provided by the |
Parameters |
|
Returns |
Nothing. |
Requires |
The corresponding MCU ports must be appropriately initialized for CF card. See Cf_Init. |
Example |
// read sector 22 var data_ : array[512] of byte; ... Cf_Read_Sector(22, data_); |
Notes |
None. |
Cf_Write_Sector
Prototype |
procedure Cf_Write_Sector(sector_number : dword; var buffer : array[512] of byte) ; |
---|---|
Description |
Writes 512 bytes of data provided by the |
Parameters |
|
Returns |
Nothing. |
Requires |
The corresponding MCU ports must be appropriately initialized for CF card. See Cf_Init. |
Example |
// write to sector 22 var data_ : array[512] of byte; ... Cf_Write_Sector(22, data_); |
Notes |
None. |
Cf_Fat_Init
Prototype |
function Cf_Fat_Init(): word; |
---|---|
Description |
Initializes CF card, reads CF FAT16 boot sector and extracts necessary data needed by the library. |
Parameters |
None. |
Returns |
|
Requires |
Nothing. |
Example |
// init the FAT library if (Cf_Fat_Init() = 0) then begin ... end |
Notes |
None. |
Cf_Fat_QuickFormat
Prototype |
function Cf_Fat_QuickFormat(var cf_fat_label : string[11]) : word; |
---|---|
Description |
Formats to FAT16 and initializes CF card. |
Parameters |
|
Returns |
|
Requires |
Nothing. |
Example |
// format and initialize the FAT library if (Cf_Fat_QuickFormat('mikroE') = 0) then begin ... end; |
Notes |
|
Cf_Fat_Assign
Prototype |
function Cf_Fat_Assign(var filename: array[12] of char; file_cre_attr: byte): word; |
|||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Description |
Assigns file for file operations (read, write, delete...). All subsequent file operations will be applied over the assigned file. |
|||||||||||||||||||||||||||
Parameters |
|
|||||||||||||||||||||||||||
Returns |
|
|||||||||||||||||||||||||||
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. |
|||||||||||||||||||||||||||
Example |
// create file with archive attribut if it does not already exist Cf_Fat_Assign('MIKRO007.TXT',0xA0); |
|||||||||||||||||||||||||||
Notes | Long File Names (LFN) are not supported. |
Cf_Fat_Reset
Prototype |
procedure Cf_Fat_Reset(var size: dword); |
---|---|
Description |
Opens currently assigned file for reading. |
Parameters |
|
Returns |
Nothing. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. File must be previously assigned. See Cf_Fat_Assign. |
Example |
var size : dword; ... Cf_Fat_Reset(size); |
Notes |
None. |
Cf_Fat_Read
Prototype |
procedure Cf_Fat_Read(var bdata: byte); |
---|---|
Description |
Reads a byte from currently assigned file opened for reading. Upon function execution file pointers will be set to the next character in the file. |
Parameters |
|
Returns |
Nothing. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. File must be previously assigned. See Cf_Fat_Assign. File must be open for reading. See Cf_Fat_Reset. |
Example |
var bdata : byte; ... Cf_Fat_Read(bdata); |
Notes |
None. |
Cf_Fat_Rewrite
Prototype |
procedure Cf_Fat_Rewrite(); |
---|---|
Description |
Opens currently assigned file for writing. If the file is not empty its content will be erased. |
Parameters |
None. |
Returns |
Nothing. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. The file must be previously assigned. See Cf_Fat_Assign. |
Example |
// open file for writing Cf_Fat_Rewrite(); |
Notes |
None. |
Cf_Fat_Append
Prototype |
procedure Cf_Fat_Append(); |
---|---|
Description |
Opens currently assigned file for appending. Upon this function execution file pointers will be positioned after the last byte in the file, so any subsequent file writing operation will start from there. |
Parameters |
None. |
Returns |
Nothing. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. File must be previously assigned. See Cf_Fat_Assign. |
Example |
// open file for appending Cf_Fat_Append(); |
Notes |
None. |
Cf_Fat_Delete
Prototype |
procedure Cf_Fat_Delete(); |
---|---|
Description |
Deletes currently assigned file from CF card. |
Parameters |
None. |
Returns |
Nothing. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. File must be previously assigned. See Cf_Fat_Assign. |
Example |
// delete current file Cf_Fat_Delete(); |
Notes |
None. |
Cf_Fat_Write
Prototype |
procedure Cf_Fat_Write(var fdata: array[512] of byte; data_len: word); |
---|---|
Description |
Writes requested number of bytes to currently assigned file opened for writing. |
Parameters |
|
Returns |
Nothing. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. File must be previously assigned. See Cf_Fat_Assign. File must be open for writing. See Cf_Fat_Rewrite or Cf_Fat_Append. |
Example |
var file_contents : array[42] of byte; ... Cf_Fat_Write(file_contents, 42); // write data to the assigned file |
Notes |
None. |
Cf_Fat_Set_File_Date
Prototype |
procedure Cf_Fat_Set_File_Date(year: word; month: byte; day: byte; hours: byte; mins: byte; seconds: byte); |
---|---|
Description |
Sets the date/time stamp. Any subsequent file writing operation will write this stamp to currently assigned file's time/date attributes. |
Parameters |
|
Returns |
Nothing. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. File must be previously assigned. See Cf_Fat_Assign. File must be open for writing. See Cf_Fat_Rewrite or Cf_Fat_Append. |
Example |
Cf_Fat_Set_File_Date(2005,9,30,17,41,0); |
Notes |
None. |
Cf_Fat_Get_File_Date
Prototype |
procedure Cf_Fat_Get_File_Date(var year: word; var month: byte; var day: byte; var hours: byte; var mins: byte); |
---|---|
Description |
Reads time/date attributes of currently assigned file. |
Parameters |
|
Returns |
Nothing. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. File must be previously assigned. See Cf_Fat_Assign. |
Example |
var year : word; month, day, hours, mins : byte; ... Cf_Fat_Get_File_Date(year, month, day, hours, mins); |
Notes |
None. |
Cf_Fat_Get_File_Date_Modified
Prototype |
procedure Cf_Fat_Get_File_Date_Modified(var year: word; var month: byte; var day: byte; var hours: byte; var mins: byte); |
---|---|
Description |
Retrieves the last modification date/time of the currently assigned file. |
Parameters |
|
Returns |
Nothing. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. File must be previously assigned. See Cf_Fat_Assign. |
Example |
var year : word; month, day, hours, mins : byte; ... Cf_Fat_Get_File_Date_Modified(year, month, day, hours, mins); |
Notes |
None. |
Cf_Fat_Get_File_Size
Prototype |
function Cf_Fat_Get_File_Size(): dword; |
---|---|
Description |
This function reads size of currently assigned file in bytes. |
Parameters |
None. |
Returns |
Size of the currently assigned file in bytes. |
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. File must be previously assigned. See Cf_Fat_Assign. |
Example |
var my_file_size : dword; ... my_file_size := Cf_Fat_Get_File_Size(); |
Notes |
None. |
Cf_Fat_Get_Swap_File
Prototype |
function Cf_Fat_Get_Swap_File(sectors_cnt: dword; var filename : string[11]; file_attr : byte): dword; |
|||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Description |
This function is used to create a swap file of predefined name and size on the CF media. If a file with specified name already exists on the media, search for consecutive sectors will ignore sectors occupied by this file. Therefore, it is recommended to erase such file if it exists before calling this function. If it is not erased and there is still enough space for a new swap file, this function will delete it after allocating new memory space for a new swap file. The purpose of the swap file is to make reading and writing to CF media as fast as possible, by using the Cf_Read_Sector() and Cf_Write_Sector() functions directly, without potentially damaging the FAT system. Swap file can be considered as a "window" on the media where the user can freely write/read data. It's main purpose in the this library is to be used for fast data acquisition; when the time-critical acquisition has finished, the data can be re-written into a "normal" file, and formatted in the most suitable way. |
|||||||||||||||||||||||||||
Parameters |
|
|||||||||||||||||||||||||||
Returns |
|
|||||||||||||||||||||||||||
Requires |
CF card and CF library must be initialized for file operations. See Cf_Fat_Init. |
|||||||||||||||||||||||||||
Example |
// Try to create a swap file with archive atribute, whose size will be at least 1000 sectors. // If it succeeds, it sends the No. of start sector over UART var size : dword; ... size := Cf_Fat_Get_Swap_File(1000, 'mikroE.txt', 0x20); if (size <> 0) then begin UART1_Write(0xAA); UART1_Write(Lo(size)); UART1_Write(Hi(size)); UART1_Write(Higher(size)); UART1_Write(Highest(size)); UART1_Write(0xAA); end; |
|||||||||||||||||||||||||||
Notes | Long File Names (LFN) are not supported. |
Library Example
This project consists of several blocks that demonstrate various aspects of usage of the Cf_Fat16 library. These are :
- Creation of new file and writing down to it;
- Opening existing file and re-writing it (writing from start-of-file);
- Opening existing file and appending data to it (writing from end-of-file);
- Opening a file and reading data from it (sending it to USART terminal);
- Creating and modifying several files at once;
- Reading file contents;
- Deleting file(s);
- Creating the swap file (see Help for details);
program CF_Fat16_Test; var // set compact flash pinout Cf_Data_Port : byte at PORTD; CF_RDY : sbit at RB7_bit; CF_WE : sbit at LATB6_bit; // for writing to output pin always use latch CF_OE : sbit at LATB5_bit; // for writing to output pin always use latch CF_CD1 : sbit at RB4_bit; CF_CE1 : sbit at LATB3_bit; // for writing to output pin always use latch CF_A2 : sbit at LATB2_bit; // for writing to output pin always use latch CF_A1 : sbit at LATB1_bit; // for writing to output pin always use latch CF_A0 : sbit at LATB0_bit; // for writing to output pin always use latch CF_RDY_direction : sbit at TRISB7_bit; CF_WE_direction : sbit at TRISB6_bit; CF_OE_direction : sbit at TRISB5_bit; CF_CD1_direction : sbit at TRISB4_bit; CF_CE1_direction : sbit at TRISB3_bit; CF_A2_direction : sbit at TRISB2_bit; CF_A1_direction : sbit at TRISB1_bit; CF_A0_direction : sbit at TRISB0_bit; // end of cf pinout const LINE_LEN = 37; var err_txt : string[20]; file_contents : string[LINE_LEN]; filename : string[14]; // File names character : byte; loop, loop2 : byte; i, size : longint; Buffer : array[512] of byte; // UART write text and new line (carriage return + line feed) procedure UART1_Write_Line( var uart_text : string ); begin UART1_Write_Text(uart_text); UART1_Write(13); UART1_Write(10); end; //-------------- Creates new file and writes some data to it procedure M_Create_New_File(); begin filename[7] := 'A'; Cf_Fat_Set_File_Date(2005,6,21,10,35,0); // Set file date & time info Cf_Fat_Assign(filename, 0xA0); // Will not find file and then create file Cf_Fat_Rewrite(); // To clear file and start with new data for loop:=1 to 90 do // We want 5 files on the MMC card begin UART1_Write('.'); file_contents[0] := loop div 10 + 48; file_contents[1] := loop mod 10 + 48; Cf_Fat_Write(file_contents, LINE_LEN-1); // write data to the assigned file end; end; //-------------- Creates many new files and writes data to them procedure M_Create_Multiple_Files(); begin for loop2 := 'B' to 'Z' do begin UART1_Write(loop2); // this line can slow down the performance filename[7] := loop2; // set filename Cf_Fat_Set_File_Date(2005,6,21,10,35,0); // Set file date & time info Cf_Fat_Assign(filename, 0xA0); // find existing file or create a new one Cf_Fat_Rewrite(); // To clear file and start with new data for loop := 1 to 44 do begin file_contents[0] := loop div 10 + 48; file_contents[1] := loop mod 10 + 48; Cf_Fat_Write(file_contents, LINE_LEN-1); // write data to the assigned file end; end; end; //-------------- Opens an existing file and rewrites it procedure M_Open_File_Rewrite(); begin filename[7] := 'C'; // Set filename for single-file tests Cf_Fat_Assign(filename, 0); Cf_Fat_Rewrite(); for loop := 1 to 55 do begin file_contents[0] := byte(loop div 10 + 48); file_contents[1] := byte(loop mod 10 + 48); Cf_Fat_Write(file_contents, LINE_LEN-1); // write data to the assigned file end; end; //-------------- Opens an existing file and appends data to it // (and alters the date/time stamp) procedure M_Open_File_Append(); begin filename[7] := 'B'; Cf_Fat_Assign(filename, 0); Cf_Fat_Set_File_Date(2009, 1, 23, 17, 22, 0); Cf_Fat_Append; file_contents := ' for mikroElektronika 2007'; // Prepare file for append file_contents[26] := 10; // LF Cf_Fat_Write(file_contents, 27); // Write data to assigned file end; //-------------- Opens an existing file, reads data from it and puts it to USART procedure M_Open_File_Read(); begin filename[7] := 'B'; Cf_Fat_Assign(filename, 0); Cf_Fat_Reset(size); // To read file, procedure returns size of file while size > 0 do begin Cf_Fat_Read(character); UART1_Write(character); // Write data to USART Dec(size); end; end; //-------------- Deletes a file. If file doesn't exist, it will first be created // and then deleted. procedure M_Delete_File(); begin filename[7] := 'F'; Cf_Fat_Assign(filename, 0); Cf_Fat_Delete(); end; //-------------- Tests whether file exists, and if so sends its creation date // and file size via USART procedure M_Test_File_Exist(); var fsize : longint; year : word; month, day, hour, minute : byte; outstr : array[12] of char; begin filename[7] := 'B'; // uncomment this line to search for file that DOES exists // filename[7] := 'F'; // uncomment this line to search for file that DOES NOT exist if Cf_Fat_Assign(filename, 0) <> 0 then begin //--- file has been found - get its date Cf_Fat_Get_File_Date(year,month,day,hour,minute); UART1_Write_Text(' created: '); WordToStr(year, outstr); UART1_Write_Text(outstr); ByteToStr(month, outstr); UART1_Write_Text(outstr); WordToStr(day, outstr); UART1_Write_Text(outstr); WordToStr(hour, outstr); UART1_Write_Text(outstr); WordToStr(minute, outstr); UART1_Write_Text(outstr); //--- file has been found - get its modified date Cf_Fat_Get_File_Date_Modified(year, month, day, hour, minute); UART1_Write_Text(' modified: '); WordToStr(year, outstr); UART1_Write_Text(outstr); ByteToStr(month, outstr); UART1_Write_Text(outstr); WordToStr(day, outstr); UART1_Write_Text(outstr); WordToStr(hour, outstr); UART1_Write_Text(outstr); WordToStr(minute, outstr); UART1_Write_Text(outstr); //--- get file size fsize := Cf_Fat_Get_File_Size; LongIntToStr(fsize, outstr); UART1_Write_Line(outstr); end else begin //--- file was not found - signal it UART1_Write(0x55); Delay_ms(1000); UART1_Write(0x55); end; end; //-------------- Tries to create a swap file, whose size will be at least 100 // sectors (see Help for details) procedure M_Create_Swap_File(); var i : word; begin for i:=0 to 511 do Buffer[i] := i; size := Cf_Fat_Get_Swap_File(5000, 'mikroE.txt', 0x20); // see help on this function for details if (size <> 0) then begin LongIntToStr(size, err_txt); UART1_Write_Line(err_txt); for i:=0 to 4999 do begin Cf_Write_Sector(size, Buffer); Inc(size); UART1_Write('.'); end; end; end; //-------------- Main. Uncomment the function(s) to test the desired operation(s) begin err_txt := 'FAT16 not found'; file_contents := 'XX CF FAT16 library by Anton Rieckert'; filename := 'MIKRO00xTXT'; {$define COMPLETE_EXAMPLE}// comment this line to make simpler/smaller example ADPCFG := 0xFFFF; // disable A/D inputs // Initialize UART1 module UART1_Init(19200); Delay_ms(10); UART1_Write_Line('dsPIC-Started'); // dsPIC present report // --- Init the FAT library // --- use Cf_Fat_QuickFormat instead of init routine if a format is needed if Cf_Fat_Init() = 0 then begin Delay_ms(2000); // wait for a while until the card is stabilized // period depends on used CF card //--- Test start UART1_Write_Line('Test Start.'); M_Create_New_File(); {$IFDEF COMPLETE_EXAMPLE} M_Create_Multiple_Files(); M_Open_File_Rewrite(); M_Open_File_Append(); M_Open_File_Read(); M_Delete_File(); M_Test_File_Exist(); M_Create_Swap_File(); {$ENDIF} UART1_Write_Line('Test End.'); end else begin UART1_Write_Line(err_txt); // Note: Cf_Fat_Init tries to initialize a card more than once. // If card is not present, initialization may last longer (depending on clock speed) end; end.
HW Connection
Pin diagram of CF memory card
What do you think about this topic ? Send us feedback!