Версия для печати темы

Unit graphix;
{$G+}

interface
 procedure Init;
 procedure DeInit;
 procedure Wait;
 procedure FillScreen(col:byte);
 procedure PutPixel(x,y:word;col:byte);
 procedure Box(x1,y1,x2,y2:word;col:byte);
implementation

procedure Init; assembler;
 asm
   mov  ax,13h
   int  10h
 end;

procedure DeInit; assembler;
 asm
   mov  ax,3h
   int  10h
 end;

procedure Wait; assembler;
 asm
   xor  ax,ax
   int  16h
 end;

procedure FillScreen(col:byte); assembler;
 asm
   pusha
   mov  ax,0A000h
   mov  es,ax
   xor  di,di
   mov  al,[col]
   mov  cx,64000
   cld
   rep  stosb
   popa
 end;

procedure PutPixel(x,y:word;col:byte);
 begin
   y := y * 320;
   asm
     pusha
     mov  ax,0A000h
     mov  es,ax
     mov  ax,[y]
     mov  di,ax
     add  di,[x]
     mov  al,[col]
     cld
     stosb
     popa
   end;
 end;

procedure Box(x1,y1,x2,y2:word;col:byte);
 var
   i,j:integer;
 begin
   for i := x1 to x2 do
     for j := y1 to y2 do
       PutPixel(i,j,col);
 end;

begin
end.