Example : My memory copy procedure
Code: Select all
procedure mem_cpy(addr1, addr2, len : word);
var ii : word;
var S_FSR1H, S_FSR1L : byte;
var S_FSR2H, S_FSR2L : byte;
begin
S_FSR1H := FSR1H;
S_FSR1L := FSR1L;
S_FSR2H := FSR2H;
S_FSR2L := FSR2L;
FSR1Ptr := addr1;
FSR2Ptr := addr2;
ii := 0;
while ii < len do
begin
POSTINC1 := POSTINC2;
inc(ii);
end;
FSR1H := S_FSR1H;
FSR1L := S_FSR1L;
FSR2H := S_FSR2H;
FSR2L := S_FSR2L;
end;