Developing.ru

Код: Выделить всё

unit vesa16m;

interface

var curbank,vid_mem,size_of_bank,bytes_per_line,videoseg,max_x,max_y:word;
gr_color,error_code,bits_per_pixel,total_banks:byte;
gr_init:byte;

function gety:byte;
function getx:byte;
procedure plot(xplot,yplot,color,red,green,blue:word);

implementation

var vmode,x,y:byte;
col,xplot,yplot,color:word;
x1,x2,y1,y2,dx1,dy:integer;
segm,ofsm,r,g,b,red,green,blue:word;
conc,conc1:string;
tg:real;
lastmode:byte;
number,num1,num2:longint;
info:array [0..255] of byte;

{GETX}
function getx:byte;
begin
asm
mov ah,03h
mov bh,0
int 10h
mov x,dl
end;
getx:=x;end;

{GETY}
function gety:byte;
begin
asm
mov ah,03h
mov bh,0
int 10h
mov y,dh
end;gety:=y;end;

{PLOT}
procedure plot(xplot,yplot,color,red,green,blue:word);
label l1,l2,l3,l4,l5,l6,l7,l8,lend;
begin
asm
mov al,bits_per_pixel
cmp al,4
jnz l1
mov cx,xplot
mov dx,yplot
mov al,byte ptr color
mov ah,0ch
int 10h
jmp lend
l1:
cmp al,8
jnz l2
mov ax,yplot
.......
.......
.......
mov al,ah
stosb
mov al,byte ptr blue
stosb
l7:
lend:
end;end;

begin
end.