Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!zaphod.mps.ohio-state.edu!caen!uflorida!haven!purdue!mentor.cc.purdue.edu!j.cc.purdue.edu!brazil.psych.purdue.edu!zhou
From: zhou@brazil.psych.purdue.edu (Albert Zhou)
Newsgroups: comp.lang.pascal
Subject: Re: Graphic-screen to disk
Message-ID: <11518@j.cc.purdue.edu>
Date: 20 Nov 90 02:35:36 GMT
References: <25017@adm.brl.mil> <11492@j.cc.purdue.edu> <6327@vice.ICO.TEK.COM> <11501@j.cc.purdue.edu> <EFA.90Nov19103137@wishart.iesd.auc.dk>
Sender: news@j.cc.purdue.edu
Reply-To: zhou@brazil.psych.purdue.edu (Albert Zhou)
Organization: Purdue University
Lines: 48

In article <EFA.90Nov19103137@wishart.iesd.auc.dk> efa@iesd.auc.dk (Erik F. Andersen) writes:
>WRONG. The correct address IS $B800:0000 - The DOS manual must be wrong..

Actually neither is wrong. Please run the following program. I am suprised to
see that both addresses store the same image on my CGA. Please let me know
if it works the same on your machine.


uses graph;
type
    buftype1 = array[1..8000] of byte;
    buftype2 = array[1..16000] of byte;
var
   grmode, grdriver : integer;
   MyBuffer1 : buftype1 ABSOLUTE $BA00:0;
   MyBuffer2 : buftype1 ABSOLUTE $BC00:0;
   AnotherBuffer :  buftype2 ABSOLUTE $B800:0;
   x1, x2 : buftype1;
   y : buftype2;
   n : integer;

begin
     grdriver := detect;
     initgraph(grdriver, grmode,'');
     line(0,0,639,199);
     outtextxy(100,100, 'This is $BA00');
     x1 := MyBuffer1;
     x2 := MyBuffer2;
     readln;
     cleardevice;
     readln;
     MyBuffer1 := x1;
     MyBuffer2 :=x2;
     readln;

     cleardevice;
     readln;
     line(0,0,639,199);
     outtextxy(100,100, 'This is $B800');
     y := AnotherBuffer;
     readln;
     cleardevice;
     readln;
     AnotherBuffer := y;
     readln;


end.