CD-X 1/cdx_01.iso/demodisc/tyrant/vgarutin/vgamode.pas

Pascal/Delphi Source File | 1995-03-17 | 346 b | 15 lines

{Kétlapos Vga üzemmód, amiben MD-dal az üzemmód kódját állítjuk!}
{Ha az akarjuk, hogy ne törölje a képernyôt, akkor MD:=MD+$80}
Procedure SetVgaMode(MD:Byte); Assembler;
ASM
      MOV AH,00h
      MOV AL, MD;
      INT 10H;
      MOV AL,06h
      MOV DX,3CEH
      OUT DX,AL
      MOV AL,01h
      MOV DX,3CFH
      OUT DX,AL
End;