1. Mode 19 border color
Is there some way to force the border color in graphics mode 19 to become
something else than 16 (it is 16, right?). Because if I change color 19 to
black, I will break the system in my palette.
Einar Mogen
URL: http://w1.2327.telia.com/~u232700028/euphoria.html
2. Re: Mode 19 border color
> Is there some way to force the border color in graphics mode 19 to
> become something else than 16 (it is 16, right?). Because if I change
> color 19 to black, I will break the system in my palette.
>
> Einar Mogen
> URL: http://w1.2327.telia.com/~u232700028/euphoria.html
You can reprogram the vga card overscan (the border) color by doing the
following:
1. read a byte from the input status register 1 (port #3DA)
you don't have to do anything with this value; it just resets some flags
in the vga hardware so we can do the next step.
2. send the byte #31 to the attribute register (port #3C0)
3. send the border color you want to the attribute register (port #3C0)
You will need Jacques Deschenes ports.e to read and write ports.
or you could do it with the following machine code:
{#60, -- 0: pusha
#66,#BA,#DA,#03, -- 1: mov dx, #3DA
#EC, -- 5: in al, dx
#B2,#C0, -- 6: mov dl, #C0
#B0,#31, -- 8: mov al, #31
#EE, -- A: out dx, al
#B0,#00, -- B: mov al, yourcolor (12)
#EE, -- D: out dx, al
#61, -- E: popa
#C3} -- F: ret
Later,
--
_____ _____ _____
________ /\ \ /\ \ /\ \
/ \ \ / \____\ / \____\ / \____\
/ _ \____\ / / ___/_ / /____/ / / ___/_
/ / \ |____|/ / /\____\ / \ \ / / /\____\
\ \_/ / / \ \/ / ___/_\ \ \ \ \/ / ___/_
\ /____/ \ / /\ \\/\ \ \ \ / /\ \
\ \ \ \ \/ \____\ \ \ \ \ \/ \____\
\ \ \ \ / / \ \____\ \ / /
\ \____\ \ / / \ / / \ / /
\ / / \ / / \/____/ \ / /
\/____/ \/____/xseal at harborside.com\/____/
http://www.harborside.com/home/x/xseal/euphoria/
3. Re: Mode 19 border color
At 04:28 PM 4/5/98 +0200, you wrote:
>Is there some way to force the border color in graphics mode 19 to become
>something else than 16 (it is 16, right?). Because if I change color 19 to
>black, I will break the system in my palette.
>
>Einar Mogen
Try this:
include machine.e
procedure border_color(integer color)
-- set border & background color
sequence regs
regs=repeat(0,10)
regs[REG_AX]=#0B00
regs[REG_BX]=color
regs=dos_interrupt(#10,regs)
end procedure
Graeme.
