First upload of the code.

git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@2 416bcca6-2ee7-4201-b75f-2eb2f807beb1

cfg/ASCKEY.PAS

@@ -0,0 +1,11 @@
+var touche:byte;
+begin
+  repeat
+    asm
+      mov ah,8
+      int 21h
+      mov touche,al
+    end;
+    write(touche,' ');
+  until touche=27
+end.

cfg/KEYS.PAS

@@ -0,0 +1,62 @@
+var
+    Touche:word;
+
+procedure Get_Key; assembler;
+asm
+
+    mov  Touche,0
+
+
+    mov  ah,11h
+    int  16h
+
+
+
+    jz   @Get_input_Pas_de_touche
+
+
+    mov  ah,10h
+    int  16h
+
+
+    mov  byte ptr[Touche],ah
+
+
+    mov  ah,02h
+    int  16h
+
+
+    and  al,00001111b
+
+
+    mov  ah,al
+    and  ah,00000001b
+    shr  al,1
+    or   al,ah
+
+
+    mov  byte ptr[Touche+1],al
+
+    @Get_input_Pas_de_touche:
+end;
+
+const HEXA_ORDER:string='0123456789ABCDEF';
+function Byte2Hexa(Valeur:byte):string;
+var Temp:string;
+begin
+  Temp:='';
+  while length(Temp)<2 do
+  begin
+    Temp:=HEXA_ORDER[(Valeur mod 16)+1]+Temp;
+    Valeur:=Valeur div 16;
+  end;
+  Byte2Hexa:=Temp;
+end;
+
+BEGIN
+  repeat
+    Get_Key;
+    if (Touche<>0)
+    then write('(',hi(Touche),',',Byte2Hexa(lo(Touche)),') ');
+  until Touche=$0001;
+END.

cfg/VIDEOMOD.PAS

@@ -0,0 +1,72 @@
+const
+  MODE_MCGA =$00;
+  MODE_X    =$40;
+  MODE_VESA =$80;
+  MODE_XVESA=$C0;
+
+  Table_modes_video:array[1..NB_MODES_VIDEO,1..3] of word=
+  (
+    (MODE_MCGA    ,320,200),
+    (MODE_X+1     ,320,224),
+    (MODE_X+1     ,320,240),
+    (MODE_X+1     ,320,256),
+    (MODE_X+1     ,320,270),
+    (MODE_X+1     ,320,282),
+    (MODE_X+1     ,320,300),
+    (MODE_X+1     ,320,360),
+    (MODE_X+1     ,320,400),
+    (MODE_X+1     ,320,448),
+    (MODE_X+1     ,320,480),
+    (MODE_X+1     ,320,512),
+    (MODE_X+1     ,320,540),
+    (MODE_X+1     ,320,564),
+    (MODE_X+1     ,320,600),
+
+    (MODE_X+1     ,360,200),
+    (MODE_X+1     ,360,224),
+    (MODE_X+1     ,360,240),
+    (MODE_X+1     ,360,256),
+    (MODE_X+1     ,360,270),
+    (MODE_X+1     ,360,282),
+    (MODE_X+1     ,360,300),
+    (MODE_X+1     ,360,360),
+    (MODE_X+1     ,360,400),
+    (MODE_X+1     ,360,448),
+    (MODE_X+1     ,360,480),
+    (MODE_X+1     ,360,512),
+    (MODE_X+1     ,360,540),
+    (MODE_X+1     ,360,564),
+    (MODE_X+1     ,360,600),
+
+    (MODE_X+1     ,400,200),
+    (MODE_X+1     ,400,224),
+    (MODE_X+1     ,400,240),
+    (MODE_X+1     ,400,256),
+    (MODE_X+1     ,400,270),
+    (MODE_X+1     ,400,282),
+    (MODE_X+1     ,400,300),
+    (MODE_X+1     ,400,360),
+    (MODE_X+1     ,400,400),
+    (MODE_X+1     ,400,448),
+    (MODE_X+1     ,400,480),
+    (MODE_X+1     ,400,512),
+    (MODE_X+1     ,400,540),
+    (MODE_X+1     ,400,564),
+    (MODE_X+1     ,400,600),
+
+    (MODE_XVESA+1 ,640,224),
+    (MODE_XVESA+1 ,640,240),
+    (MODE_XVESA+1 ,640,256),
+    (MODE_XVESA+1 ,640,270),
+    (MODE_XVESA+1 ,640,300),
+    (MODE_XVESA+1 ,640,350),
+    (MODE_VESA+1  ,640,400),
+    (MODE_XVESA+1 ,640,448),
+    (MODE_VESA+1  ,640,480),
+    (MODE_XVESA+1 ,640,512),
+    (MODE_XVESA+1 ,640,540),
+    (MODE_XVESA+1 ,640,564),
+    (MODE_XVESA+1 ,640,600),
+    (MODE_VESA+1  ,800,600),
+    (MODE_VESA+1 ,1024,768)
+  );