SecondReality/GLENZ/VIDMISC.ASM
2017-09-24 01:45:36 +02:00

56 lines
693 B
NASM

forcesetborder MACRO color
local l1
push ax
push dx
mov dx,3dah
in al,dx
mov dx,3c0h
mov al,11h+32
out dx,al
mov al,color
out dx,al
pop dx
pop ax
ENDM
PUBLIC _setborder
_setborder PROC FAR
CBEG
push cx
mov cx,[bp+6]
forcesetborder cl
pop cx
CEND
_setborder ENDP
fwaitborder PROC FAR
call waitborder
ret
fwaitborder ENDP
waitborder PROC NEAR
mov dx,3dah
wbr1: in al,dx
test al,8
jnz wbr1
wbr2: in al,dx
test al,8
jz wbr2
ret
waitborder ENDP
clearpal PROC NEAR
cli
call waitborder
mov dx,3c8h
mov al,0
out dx,al
mov cx,768
inc dx
clp1: out dx,al
loop clp1
call waitborder
sti
ret
clearpal ENDP