Графический движок Опции

[AlaRic]

Сможем написать или нет?

[GLuk]

Модуль для работы с VESA:

Я тут выложу кусочек из-за которого все говняется (to Dark):
+ парочку переделанных процедур

Function TestVESAExt:boolean;Assembler;
asm
     lea di,InfoBuf 
     push ds
     pop es
     mov ax,4F00h
     int 10h
     dec ah
     jns @NoVESA 
     mov al,1
     jmp @vesok
@NoVESA:
     mov al,0
@VesOk:
end;


Function TestVESAMode(Mode:Word):Boolean;Assembler;
asm
     lea di,InfoBuf
     mov ax,4F01h
     mov cx,Mode
     int 10h
     dec ah
     jns @NotEx      
     mov al,1
     jmp @Exist
@NotEx:
     mov al,0
@Exist:
end;

Function ReadCurrentMode:Word;Assembler;
asm
   mov ax,4f03h
   int 10h
   mov ax,bx
end;

Procedure VESAClScr(col:byte);
begin
    asm
    jmp @beg
@vmc:
     pusha  { Результат работы подпрогр-мы - переполнение стека }
     mov dx,[curwin]
     xor bx,bx
     call vmc
     popa
     retn

@beg:
     push $A000
     pop es
     xor di,di      
     mov ax,[maxy]
     mov dx,[maxx]
     mul dx
     mov bx,ax
     inc dx
     mov al,[col]
     mov [curwin],0
     call @vmc  {Отсюда нач-ся г-но}
@l1: mov cx,0ffffh
     rep stosb 
     dec dx
     jz @ok
     inc [curwin]
     call @vmc
     loop @l1
@ok: mov cx,bx
     REP stosb
     end;
end;