ich würde mich über jeden tip oder lösungsvorschlag freuen.
bye jörg
--
Joerg Nass
ICQ #: 9862822
http://www.ihoax.de
Wer Rechtschreibfehler findet, kann SIE behalten!
Those who find mistakes in spelling can keep them!
Dazu gibt's auf meiner Homepage die 64-Kilobyte-FAQ.
--
Klaus Hartnegg, Institut fuer Biophysik, Hansa-Strasse 9a, D-79104 Freiburg
hart...@uni-freiburg.de http://www.brain.uni-freiburg.de/~klaus/
type tbuffer=array[1..3] of pointer;
var buf:tbuffer;
i:integer;
procedure writebyte(buf:tbuffer;b:byte;offset:longint);
var s,o:word;{Segment+realer Offset}
nr:byte;{Buffer Nummer}
begin
nr:=trunc(offset/65520)+1;
s:=seg(buf[nr]^);
o:=ofs(buf[nr]^);
mem[s:o+offset-((nr-1)*65520)]:=b;
end.
begin
for i:=1 to 3 do getmem(buf[i],65520);
writebyte(buf,32,93422);
end.
Eine andere Möglichkeit wäre, einen anderen Compiler zu benutzen,
FPC, GPC etc. gibt ja genug.
Ob das Programm korrekt funktioniert, weiß ich nicht, ich hatte gerade
keinen Pascal Compiler zur Hand.
cu Matthias
--
http://home.t-online.de/home/Matthias.C.Schuetz