paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 16:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* now compiles under fpc v0.99.5, so don't modify!!!!

Browse Source
This commit is contained in:
carl 1998-07-07 12:26:42 +00:00
parent 0af81ffc6b
commit 5dd7e8561a
1 changed files with 4 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
rtl/dos/crt.pp
View File

@ -135,22 +135,14 @@ var
function screenrows : byte; function screenrows : byte;
begin begin
{$ifdef GO32V2}
screenrows:=mem[$40:$84]+1;
{$else}
dosmemget($40,$84,screenrows,1); dosmemget($40,$84,screenrows,1);
inc(screenrows); inc(screenrows);
{$endif}
end; end;
function screencols : byte; function screencols : byte;
begin begin
{$ifdef GO32V2}
screencols:=mem[$40:$4a];
{$else}
dosmemget($40,$4a,screencols,1); dosmemget($40,$4a,screencols,1);
{$endif}
end; end;
@ -187,17 +179,12 @@ var
procedure screengetcursor(var row,col : longint); procedure screengetcursor(var row,col : longint);
begin begin
{$ifdef Go32V2}
col:=mem[$40:$50]+1;
row:=mem[$40:$51]+1;
{$else}
col:=0; col:=0;
row:=0; row:=0;
dosmemget($40,$50,col,1); dosmemget($40,$50,col,1);
dosmemget($40,$51,row,1); dosmemget($40,$51,row,1);
inc(col); inc(col);
inc(row); inc(row);
{$endif}
end; end;
@ -525,17 +512,11 @@ var
var var
calibration : longint; calibration : longint;
{$ifdef GO32V2}
get_ticks : longint absolute $40:$6c;
{$endif}
{$ifndef GO32V2}
function get_ticks:longint; function get_ticks:longint;
begin begin
dosmemget($40,$6c,get_ticks,4); dosmemget($40,$6c,get_ticks,4);
end; end;
{$endif}
procedure Delay(MS: Word); procedure Delay(MS: Word);
@ -652,11 +633,8 @@ var
Procedure WriteChar(c:char); Procedure WriteChar(c:char);
var var
{$ifdef GO32V2}
regs : trealregs; regs : trealregs;
{$else}
chattr : word; chattr : word;
{$endif}
begin begin
case c of case c of
#10 : inc(row); #10 : inc(row);
@ -674,12 +652,8 @@ var
end; end;
else else
begin begin
{$ifdef GO32V2}
memw[$b800:get_addr(row,col)]:=(textattr shl 8) or byte(c);
{$else}
chattr:=(textattr shl 8) or byte(c); chattr:=(textattr shl 8) or byte(c);
dosmemput($b800,get_addr(row,col),chattr,2); dosmemput($b800,get_addr(row,col),chattr,2);
{$endif}
inc(col); inc(col);
end; end;
end; end;
@ -846,13 +820,8 @@ begin
{ save the current settings to restore the old state after the exit } { save the current settings to restore the old state after the exit }
screengetcursor(row,col); screengetcursor(row,col);
{$ifdef GO32V2}
startattrib:=mem[$b800:get_addr(row,col)+1];
lastmode:=mem[$40:$49];
{$else}
dosmemget($b800,get_addr(row,col)+1,startattrib,1); dosmemget($b800,get_addr(row,col)+1,startattrib,1);
dosmemget($40,$49,lastmode,1); dosmemget($40,$49,lastmode,1);
{$endif}
textattr:=startattrib; textattr:=startattrib;
{ redirect the standard output } { redirect the standard output }
@ -869,7 +838,10 @@ end.
{ {
$Log$ $Log$
Revision 1.5 1998-05-31 14:18:12 peter Revision 1.6 1998-07-07 12:26:42 carl
* now compiles under fpc v0.99.5, so don't modify!!!!
Revision 1.5 1998/05/31 14:18:12 peter
* force att or direct assembling * force att or direct assembling
* cleanup of some files * cleanup of some files