GNAT: The GNU New York University Ada Translator

By Gavin Smyth

Dr. Dobb's Journal December 1997

declare
  Regs: Dpmi_Regs;
begin
  Regs.Ah := 0;
  Regs.Al := Unsigned_Char( Mode );
  Dpmi_Int( 16#10#, Regs );
end;

Example 1: Generating an INT 10h to change video mode.

Back to Article