75 lines
793 B
NASM
75 lines
793 B
NASM
IDEAL
|
|
MODEL large
|
|
P386
|
|
|
|
CODESEG
|
|
|
|
PUBLIC C waitvr
|
|
|
|
PROC C waitvr
|
|
|
|
mov dx, 03dah
|
|
@@loop1:
|
|
in al, dx
|
|
test al, 08h
|
|
jnz @@loop1
|
|
@@loop2:
|
|
in al, dx
|
|
test al, 08h
|
|
jz @@loop2
|
|
|
|
ret
|
|
ENDP
|
|
|
|
PUBLIC C setstart
|
|
|
|
PROC setstart
|
|
|
|
ARG start:word
|
|
|
|
push bp
|
|
mov bp,sp
|
|
|
|
mov bx, [start]
|
|
mov dx, 03d4h
|
|
mov al, 0dh
|
|
mov ah, bl
|
|
out dx, ax
|
|
mov al, 0ch
|
|
mov ah, bh
|
|
out dx, ax
|
|
|
|
pop bp
|
|
ret
|
|
ENDP
|
|
|
|
PUBLIC C setrgbpalette
|
|
|
|
PROC C setrgbpalette
|
|
|
|
ARG pal:word, r:word, g:word, b:word
|
|
|
|
mov dx, 3c8h
|
|
mov ax, [pal]
|
|
out dx, al
|
|
|
|
inc dx
|
|
mov ax, [r]
|
|
out dx, al
|
|
mov ax, [g]
|
|
out dx, al
|
|
mov ax, [b]
|
|
out dx, al
|
|
|
|
ret
|
|
ENDP
|
|
|
|
|
|
ENDS
|
|
|
|
SEGMENT asdf byte use16 private 'FAR_DATA'
|
|
PUBLIC C font
|
|
LABEL font
|
|
INCLUDE 'fona.inc'
|
|
ENDS
|
|
END
|