Правила форума
0 Пользователей и 1 Гость просматривают эту тему.
function bin2bcd(P: Integer): byte;begin Result := ((P div 10) shl 4) or (P mod 10);end;procedure BuildAdress(LBA: Integer; var Dest);var P: PByte;begin Inc(LBA, 75 * 2); // 2 seconds P := @Dest; P^ := bin2bcd(LBA div (60 * 75)); Inc(P); P^ := bin2bcd((LBA div 75) mod 60); Inc(P); P^ := bin2bcd(LBA mod 75); Inc(P); P^ := 2;end;
ecc := build_edc(@(Sector.dwSubHeader[0]), 8 + 2048);Move(ecc, Sector.dwECC, 4);encode_L2_P(@(Sector.dwAddress[0]));encode_L2_Q(@(Sector.dwAddress[0]));BuildAdress(SectorIdx, Sector.dwAddress[0]);