Category : Pascal Source Code
Archive   : PASS_ALL.ZIP
Filename : TI257.ASC

 
Output of file : TI257.ASC contained in archive : PASS_ALL.ZIP









PRODUCT : TURBO GRAPHIX TOOLBOX NUMBER : 257
VERSION : 1.00x
OS : PC-DOS
DATE : March 13, 1986 PAGE : 1/2
TITLE : AT&T LOADSCREEN PATCH




The following modifications may be made to the GRAPHIX.SYS file
of the Turbo Graphix Toolbox to allow the LoadScreen routine to
function properly on an AT&T 6300.

1. Move the procedures SwapScreen, CopyScreen and InvertScreen
to a position just above the SaveScreen Procedure.

2. Change the SaveScreen procedure (after the main begin) to
read as follows: ( The lines which have been changed have
the symbol {Changed} next to them.)

begin
move(mem[GrafBase:0000],mem[seg(ScreenGlb^):0000],
(ScreenSizeGlb+1) shl 1); {Changed}
IOErr := False;
{picture := ptr(GrafBase,0); } {Changed}
picture := ScreenGlb; {Changed}
assign(PictureFile,FileName);
{$I-} rewrite(PictureFile); {$I+}
IOCheck;
if not ioerr then
begin
{$I-} write(PictureFile,picture^); {$I+}
IOCheck;
end;
if not ioerr then
begin
{$I-} close(PictureFile); {$I+}
IOCheck;
end;
move(mem[seg(ScreenGlb^):0000],mem[GrafBase:0000], {Changed}
(ScreenSizeGlb+1) shl 1);
end;

3. Change the LoadScreen procedure (after the main begin) to
read as follows: ( The lines which have been changed have
the symbol {Changed} next to them.)

procedure LoadScreen(FileName:wrkstring);
type PicFile = file of ScrenType;
var Picture:screenpointer;
PictureFile : PicFile;
begin














PRODUCT : TURBO GRAPHIX TOOLBOX NUMBER : 257
VERSION : 1.00x
OS : PC-DOS
DATE : March 13, 1986 PAGE : 2/2
TITLE : AT&T LOADSCREEN PATCH




{picture := ptr(GrafBase,0);} {Changed}
picture := ScreenGlb; {Changed}
assign(Picture,FileName);
{$I-} reset(PictureFile); {$I+}
if IOResult<>then Error(11,5)
else
begin
read(PictureFile,picture^);
close(PictureFile);
end;
move(mem[seg(ScreenGlb^):0000],mem[GrafBase:0000], {Changed}
(ScreenSizeGlb + 1) shl 1);
end;