Category : BASIC Source Code
Archive   : DECGIF3.ZIP
Filename : X360X480.ASM

;*******************************************************************************
;* Assembly Subroutines For DECGIF3.BAS
;* By Rich Geldreich 1992
;* Assembled with TASM v2.00
;*
;* Procedure to set the VGA into the 360x480x256 mode. From Michael Abrash's
;* "Power Graphics Programming".
;*
;*
.286
Ideal
Model Small

Public X360x480

CodeSeg

vptbl dw 06b00h
dw 05901h

dw 05a02h
dw 08e03h

dw 05e04h
dw 08a05h

dw 00d06h
dw 03e07h

dw 04009h
dw 0ea10h

dw 0ac11h
dw 0df12h

dw 02d13h
dw 00014h

dw 0e715h
dw 00616h

dw 0e317h

label vpend word


Proc X360x480
Push ds si

Mov ax, cs
Mov ds, ax

mov ax, 012h
int 10h
mov ax, 013h
int 10h

mov dx, 3c4h
mov ax, 0604h
out dx, ax

mov ax, 0100h
out dx, ax

mov dx, 3c2h
mov al, 0e7h
out dx, al

mov dx, 3c4h
mov ax, 0300h
out dx, ax

mov dx, 3d4h

mov al, 11h
out dx, al
inc dx
in al, dx
and al, 7fh
out dx, al
dec dx
cld
mov si, offset vptbl
mov cx, 17
@@10:
lods [word ds:si]
out dx, ax
loop @@10
Pop si ds
retf 0
endp X360x480
end