208 lines
3.6 KiB
NASM
208 lines
3.6 KiB
NASM
%include "vesa.inc"
|
|
SECTION .text
|
|
USE16
|
|
vesa:
|
|
.getcardinfo:
|
|
mov ax, 0x4F00
|
|
mov di, VBECardInfo
|
|
int 0x10
|
|
cmp ax, 0x4F
|
|
je .findmode
|
|
mov eax, 1
|
|
ret
|
|
.resetlist:
|
|
;if needed, reset mins/maxes/stuff
|
|
xor cx, cx
|
|
mov [.minx], cx
|
|
mov [.miny], cx
|
|
mov [config.xres], cx
|
|
mov [config.yres], cx
|
|
.findmode:
|
|
mov si, [VBECardInfo.videomodeptr]
|
|
mov ax, [VBECardInfo.videomodeptr+2]
|
|
mov fs, ax
|
|
sub si, 2
|
|
.searchmodes:
|
|
add si, 2
|
|
mov cx, [fs:si]
|
|
cmp cx, 0xFFFF
|
|
jne .getmodeinfo
|
|
cmp word [.goodmode], 0
|
|
je .resetlist
|
|
jmp .findmode
|
|
.getmodeinfo:
|
|
push esi
|
|
mov [.currentmode], cx
|
|
mov ax, 0x4F01
|
|
mov di, VBEModeInfo
|
|
int 0x10
|
|
pop esi
|
|
cmp ax, 0x4F
|
|
je .foundmode
|
|
mov eax, 1
|
|
ret
|
|
.foundmode:
|
|
;check minimum values, really not minimums from an OS perspective but ugly for users
|
|
cmp byte [VBEModeInfo.bitsperpixel], 32
|
|
jb .searchmodes
|
|
.testx:
|
|
mov cx, [VBEModeInfo.xresolution]
|
|
cmp word [config.xres], 0
|
|
je .notrequiredx
|
|
cmp cx, [config.xres]
|
|
je .testy
|
|
jmp .searchmodes
|
|
.notrequiredx:
|
|
cmp cx, [.minx]
|
|
jb .searchmodes
|
|
.testy:
|
|
mov cx, [VBEModeInfo.yresolution]
|
|
cmp word [config.yres], 0
|
|
je .notrequiredy
|
|
cmp cx, [config.yres]
|
|
jne .searchmodes ;as if there weren't enough warnings, USE WITH CAUTION
|
|
cmp word [config.xres], 0
|
|
jnz .setmode
|
|
jmp .testgood
|
|
.notrequiredy:
|
|
cmp cx, [.miny]
|
|
jb .searchmodes
|
|
.testgood:
|
|
mov cx, [.currentmode]
|
|
mov [.goodmode], cx
|
|
push esi
|
|
; call decshowrm
|
|
; mov al, ':'
|
|
; call charrm
|
|
mov cx, [VBEModeInfo.xresolution]
|
|
call decshowrm
|
|
mov al, 'x'
|
|
call charrm
|
|
mov cx, [VBEModeInfo.yresolution]
|
|
call decshowrm
|
|
mov al, '@'
|
|
call charrm
|
|
xor ch, ch
|
|
mov cl, [VBEModeInfo.bitsperpixel]
|
|
call decshowrm
|
|
mov si, .modeok
|
|
call printrm
|
|
xor ax, ax
|
|
int 0x16
|
|
pop esi
|
|
cmp al, 'y'
|
|
je .setmode
|
|
cmp al, 's'
|
|
je .savemode
|
|
jmp .searchmodes
|
|
.savemode:
|
|
mov cx, [VBEModeInfo.xresolution]
|
|
mov [config.xres], cx
|
|
mov cx, [VBEModeInfo.yresolution]
|
|
mov [config.yres], cx
|
|
call save_config
|
|
.setmode:
|
|
mov bx, [.currentmode]
|
|
cmp bx, 0
|
|
je .nomode
|
|
or bx, 0x4000
|
|
mov ax, 0x4F02
|
|
int 0x10
|
|
.nomode:
|
|
cmp ax, 0x4F
|
|
je .returngood
|
|
mov eax, 1
|
|
ret
|
|
.returngood:
|
|
xor eax, eax
|
|
ret
|
|
|
|
.minx dw 640
|
|
.miny dw 480
|
|
|
|
.modeok db ": Is this OK? (s)ave/(y)es/(n)o",10,13,0
|
|
|
|
.goodmode dw 0
|
|
.currentmode dw 0
|
|
;useful functions
|
|
|
|
decshowrm:
|
|
mov si, .number
|
|
.clear:
|
|
mov al, "0"
|
|
mov [si], al
|
|
inc si
|
|
cmp si, .numberend
|
|
jb .clear
|
|
dec si
|
|
call convertrm
|
|
mov si, .number
|
|
.lp:
|
|
lodsb
|
|
cmp si, .numberend
|
|
jae .end
|
|
cmp al, "0"
|
|
jbe .lp
|
|
.end:
|
|
dec si
|
|
call printrm
|
|
ret
|
|
|
|
.number times 7 db 0
|
|
.numberend db 0
|
|
|
|
convertrm:
|
|
dec si
|
|
mov bx, si ;place to convert into must be in si, number to convert must be in cx
|
|
.cnvrt:
|
|
mov si, bx
|
|
sub si, 4
|
|
.ten4: inc si
|
|
cmp cx, 10000
|
|
jb .ten3
|
|
sub cx, 10000
|
|
inc byte [si]
|
|
jmp .cnvrt
|
|
.ten3: inc si
|
|
cmp cx, 1000
|
|
jb .ten2
|
|
sub cx, 1000
|
|
inc byte [si]
|
|
jmp .cnvrt
|
|
.ten2: inc si
|
|
cmp cx, 100
|
|
jb .ten1
|
|
sub cx, 100
|
|
inc byte [si]
|
|
jmp .cnvrt
|
|
.ten1: inc si
|
|
cmp cx, 10
|
|
jb .ten0
|
|
sub cx, 10
|
|
inc byte [si]
|
|
jmp .cnvrt
|
|
.ten0: inc si
|
|
cmp cx, 1
|
|
jb .return
|
|
sub cx, 1
|
|
inc byte [si]
|
|
jmp .cnvrt
|
|
.return:
|
|
ret
|
|
|
|
printrm:
|
|
mov al, [si]
|
|
test al, al
|
|
jz .return
|
|
call charrm
|
|
inc si
|
|
jmp printrm
|
|
.return:
|
|
ret
|
|
|
|
charrm: ;char must be in al
|
|
mov bx, 7
|
|
mov ah, 0xE
|
|
int 10h
|
|
ret
|