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

+ also save/restore DS before/after the int 10h call inside SetCGAPalette and SetCGABorder

Browse Source 
git-svn-id: trunk@41014 -
This commit is contained in:
nickysn 2019-01-23 13:31:43 +00:00
parent 9da40ee818
commit b48e901ed8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/graph/src/msdos/graph.pp
View File

@ -566,23 +566,27 @@ var
procedure SetCGAPalette(CGAPaletteID: Byte); assembler; procedure SetCGAPalette(CGAPaletteID: Byte); assembler;
asm asm
mov ax,CGAPaletteID mov ax,CGAPaletteID
push bp
mov bl, al mov bl, al
mov bh, 1 mov bh, 1
mov ah, 0Bh mov ah, 0Bh
push ds
push bp
int 10h int 10h
pop bp pop bp
pop ds
end; end;
procedure SetCGABorder(CGABorder: Byte); assembler; procedure SetCGABorder(CGABorder: Byte); assembler;
asm asm
mov ax,CGABorder mov ax,CGABorder
push bp
mov bl, al mov bl, al
mov bh, 0 mov bh, 0
mov ah, 0Bh mov ah, 0Bh
push ds
push bp
int 10h int 10h
pop bp pop bp
pop ds
end; end;
procedure SetBkColorCGA320(ColorNum: ColorType); procedure SetBkColorCGA320(ColorNum: ColorType);