Datasheet

procedure Delete_File;
begin
filename[7] := 'F';
Mmc_Fat_Assign(filename, 0);
Mmc_Fat_Delete;
end;//~
//-------------- Tests whether file exists, and if so sends its cre-
ation date
// and file size via USART
procedure Test_File_Exist;
var
fsize: longint;
year: word;
month, day, hour, minute: byte;
outstr: array[12] of byte;
begin
filename[7] := 'B';
if Mmc_Fat_Assign(filename, 0) <> 0 then begin
//--- file has been found - get its date
Mmc_Fat_Get_File_Date(year,month,day,hour,minute);
WordToStr(year, outstr);
Write_Str(outstr);
ByteToStr(month, outstr);
Write_Str(outstr);
WordToStr(day, outstr);
Write_Str(outstr);
WordToStr(hour, outstr);
Write_Str(outstr);
WordToStr(minute, outstr);
Write_Str(outstr);
//--- get file size
fsize := Mmc_Fat_Get_File_Size;
LongIntToStr(fsize, outstr);
Write_Str(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;
291
MIKROELEKTRONIKA - SOFTWARE AND HARDWARE SOLUTIONS FOR EMBEDDED WORLD
Libraries
mikroPASCAL PRO for AVR
CHAPTER 6