  Ŀ
  Ŀ
                                                                          
                         Ekran MONO Yapma                                
                                                                          
  ٳ
                                                A. Serdar Hazar             
  




   VGA ekranlarda altrldnda ekran 'mono' moduna dntrr ve kolay
    kolay renkli'ye dntrlemez.

   Interrupt'lar hakkndaki aklamalar program iinde verilmitir.




MONO.PAS

uses crt,dos;
var
   regs           : registers;
   i              : byte;
   mode           : byte;

begin
 regs.ah:=$0F;
 intr($10,regs);
 mode:=regs.al;

 regs.ah:=$12;     { VGA DAC registerlerini karistirmaya}
 regs.bl:=$33;     { AL=0 karistirilabilir }
 regs.al:=00;      { AL=1 karistirilamaz }
 intr($10,regs);

 regs.ah:=$10;     { RGB degerlerini gri ekran olarak }
 regs.al:=$1b;     { ayarla ( Gray Scale Summing )    }
 regs.bx:=0;
 regs.cx:=15;
 intr($10,regs);

 regs.ah:=$12;     { Palet yuklemeyi }
 regs.bl:=$31;     { al=0 yasakla ( ekran modu degisse bile palet yukleme ) }
 regs.al:=00;      { al=1 palet yeniden yuklenebilir }
 intr($10,regs);

 regs.ah:=$00;
 regs.al:=mode;
 intr($10,regs);
end.
