User manual
404
mikoPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
UART1_Write_Text(outstr);
WordToStr(hour, outstr);
UART1_Write_Text(outstr);
WordToStr(minute, outstr);
UART1_Write_Text(outstr);
//--- le has been found - get its modied date
Mmc_Fat_Get_File_Date_Modied(year, month, day, hour, minute);
UART1_Write_Text(‘ modied: ‘);
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 le size
fsize := Mmc_Fat_Get_File_Size;
LongIntToStr(fsize, outstr);
UART_Write_Line(outstr);
end
else
begin
//--- le was not found - signal it
UART1_Write(0x55);
Delay_ms(1000);
UART1_Write(0x55);
end;
end;
//-------------- Tries to create a swap le, 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 := Mmc_Fat_Get_Swap_File(5000, ‘mikroE.txt’, 0x20); // see help on this
function for details
if (size <> 0) then
begin
LongIntToStr(size, err_txt);
UART_Write_Line(err_txt);
for i:=0 to 4999 do
begin
Mmc_Write_Sector(size, Buffer);
Inc(size);
UART1_Write(‘.’);
end;
end;
end;