, hvordan at skabe reelle tilstand, lav hukommelse tips.,, bidragyder: leopoldo saldanha,,,, (her er den kode, som jeg lovede at sendte dig.det fungerer godt.du kan læse, en del af den virkelige tilstand, lav hukommelse med det.},,, funktion allocrealmodepointer (var - p: point; størrelse: longint): boolean,,, var komitéen,,,,, base: ord;,, linearbase: longint;,, begynder, resultat: = falske.,, linearbase: = makelong (0, hiword (longint (p) shr 12) +, hiword (longint (p) sømhaj shb 4 + loword (longint (p), (omdanner 20 lidt adresse til en 32 - bit - tal et), (dvs. $eøf: 0006 $000ffff6},, vælgeren: = allocselector (dseg); (kopier dseg vælgeren egenskaber}, base: = setselectorbase (vælgeren, linearbase);,, setselectorlimit (vælgeren, størrelse), hvis (vælgeren < > 0) og (base < > 0) så begynde, p = ptr (vælge:or, 0);,, result := true;,, end;,, end;,,, function freeRealModePointer(var p: pointer): boolean;,, var,, fr : Word;,, begin,, fr := FreeSelector(hiword(longint(p)));,, {seletor is at hiword(p)},, if (fr=0) then begin {ok},, p := nil;,, result := true;,, end else begin\t{fail},, result := false;,, end;,, end;,,, { code Test: The Rom-Bios' date is allways at $ffff:0005 (real-mode)},,, var,, P: pChar;,, begin,, P := Ptr($FFFF, $0005); {FFFF5 -> data da Rom-Bios},, if AllocRealModePointer(Pointer(p), 8) then {8 chars to RomBios' date},, begin,, { Use p to read ROM Bios' date here},, FreeRealModePointer(Pointer(p)); {dispose p},, end;,, end.,,