home *** CD-ROM | disk | FTP | other *** search
- ;
- ; QPV/386 video driver
- ; for Diamond SpeedStar 24X
- ;
- ; Written by Jan van Loenen for QPV/386
- ;
-
- .286
- Code Segment Para 'Code'
- Assume cs:Code
- Org 100h
-
- Procs dw Bank,Init,Exit,0
-
- Bank: shl al,4
- push ax
- mov dx,03ceh
- mov al,09h
- out dx,al
- inc dx
- pop ax
- push ax
- out dx,al
- dec dx
- mov al,0ah
- out dx,al
- inc dx
- pop ax
- out dx,al
- retf
-
- Init: mov dx,03ceh
- mov al,0fh
- out dx,al
- inc dx
- mov al,05h
- out dx,al
- mov dx,03c4h
- mov al,06h
- out dx,al
- inc dx
- mov al,48h
- out dx,al
- mov dx,03d4h
- mov al,29h
- out dx,al
- inc dx
- mov al,85h
- out dx,al
- dec dx
- mov al,2fh
- out dx,al
- inc dx
- in al,dx
- and al,0fdh
- out dx,al
- mov dx,03ceh
- mov al,0bh
- out dx,al
- inc dx
- in al,dx
- or