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

* use movedata() in the msdos crt unit

Browse Source 
git-svn-id: trunk@37742 -
This commit is contained in:
nickysn 2017-12-15 21:57:30 +00:00
parent 29f307589e
commit 81b56c9d4b
1 changed files with 4 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packages/rtl-console/src/msdos/crt.pp
View File

@ -47,28 +47,6 @@ asm
rep stosw
end;
procedure dosmemmove(sseg, sofs, dseg, dofs: Word; count: Word); assembler;
asm
mov ax, dseg
mov es, ax
mov di, dofs
mov si, sofs
mov dx, count
mov cx, dx
mov ax, sseg
push ds
mov ds, ax
shr cx, 1
jz @@1
rep movsw
@@1:
and dl, 1
jz @@2
rep movsb
@@2:
pop ds
end;
procedure setscreenmode(mode : byte);
var
regs : registers;
@ -562,8 +540,8 @@ begin
y:=WinMin.Y+y;
While (y<=WinMax.Y) do
begin
dosmemmove(VidSeg,(y*ScreenWidth+word(WinMin.X))*2,
VidSeg,((y-1)*ScreenWidth+word(WinMin.X))*2,(WinMax.X-WinMin.X+1)*2);
movedata(VidSeg,(y*ScreenWidth+word(WinMin.X))*2,
VidSeg,((y-1)*ScreenWidth+word(WinMin.X))*2,(WinMax.X-WinMin.X+1)*2);
inc(y);
end;
dosmemfillword(VidSeg,(word(WinMax.Y)*ScreenWidth+word(WinMin.X))*2,(WinMax.X-WinMin.X+1),fil);
@ -586,8 +564,8 @@ begin
my:=WinMax.Y-WinMin.Y;
while (my>=y) do
begin
dosmemmove(VidSeg,(word(WinMin.Y+my-1)*ScreenWidth+word(WinMin.X))*2,
VidSeg,(word(WinMin.Y+my)*ScreenWidth+word(WinMin.X))*2,(WinMax.X-WinMin.X+1)*2);
movedata(VidSeg,(word(WinMin.Y+my-1)*ScreenWidth+word(WinMin.X))*2,
VidSeg,(word(WinMin.Y+my)*ScreenWidth+word(WinMin.X))*2,(WinMax.X-WinMin.X+1)*2);
dec(my);
end;
dosmemfillword(VidSeg,(word(WinMin.Y+y-1)*ScreenWidth+word(WinMin.X))*2,(WinMax.X-WinMin.X+1),fil);