home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0018_MODE-XY1.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  3.1 KB  |  90 lines
  1. {
  2. For people who do not find any xsharp Near them, and who would like to test it
  3. anyway i translated some Assembler-Code (not by me) back to to TP6.
  4. I tested it on a 486/33 With multisynch and a 386/40 With an old bw/vga monitor
  5. both worked well. Anyway i cannot guarantee that it works With every pc and is
  6. healthy For every monitor, so be careful.
  7. This Listing changes to 360x480x256 modex and displays some pixels.
  8. Have fun With it !
  9. }
  10. (*Source: VGAKIT Version 3.4
  11.    Copyright 1988,89,90 John Bridges
  12.    Translated to Pascal (why?) by Michael Mrosowski *)
  13.  
  14. Program ModexTest;
  15.  
  16. Uses Crt,Dos;
  17.  
  18. Var
  19.   maxx,maxy : Word;
  20.  
  21. (*Set Modex 360x480x256 *)
  22.  
  23. Procedure SetModex;
  24. Const
  25.  VptLen=17;
  26.  Vpt : Array[1..VptLen] of Word =
  27.                     ($6b00 , (* horz total                      *)
  28.                      $5901 , (* horz displayed                  *)
  29.                      $5a02 , (* start horz blanking             *)
  30.                      $8e03 , (* end horz blanking               *)
  31.                      $5e04 , (* start h sync                    *)
  32.                      $8a05 , (* end h sync                      *)
  33.                      $0d06 , (* vertical total                  *)
  34.                      $3e07 , (* overflow                        *)
  35.                      $4009 , (* cell height                     *)
  36.                      $ea10 , (* v sync start                    *)
  37.                      $ac11 , (* v sync end and protect cr0-cr7  *)
  38.                      $df12 , (* vertical displayed              *)
  39.                      $2d13 , (* offset                          *)
  40.                      $0014 , (* turn off dWord mode             *)
  41.                      $e715 , (* v blank start                   *)
  42.                      $0616 , (* v blank end                     *)
  43.                      $e317); (* turn on Byte mode               *)
  44. Var
  45.   regs:Registers;
  46.   i:Integer;
  47.   cr11:Byte;
  48. begin
  49.   maxx:=360;
  50.   maxy:=480;
  51.   regs.ax:=$13;       (*start With standardmode 13h*)
  52.   Intr($10,regs);     (*hi bios!*)
  53.  
  54.   PortW[$3c4]:=$0604; (*alter sequencer Registers: disable chain 4*)
  55.   PortW[$3c4]:=$0F02; (*    set Write plane mask to all bit planes*)
  56.   FillChar(Mem[$a000:0],43200,0); (* Clearscreen *)
  57.                       (*  ((XSIZE*YSIZE)/(4 planes)) *)
  58.  
  59.   PortW[$3c4]:=$0100; (*synchronous reset*)
  60.   Port [$3c2]:=$E7;   (*misc output : use 28 Mhz dot clock*)
  61.   PortW[$3c4]:=$0300; (*sequencer   : restart*)
  62.  
  63.   Port [$3d4]:=$11;   (*select Crtc register cr11*)
  64.   cr11:=Port[$3d5];
  65.   Port [$3d5]:=cr11 and $7F; (*Write protect*)
  66.  
  67.   For i:=1 to vptlen do (*Write Crtc-Registers*)
  68.     PortW[$3d4]:=Vpt[i];
  69. end;
  70.  
  71.  
  72. (*Put pixel in 360x480 (no check)*)
  73.  
  74. Procedure PutPixel(x,y:Word;c:Byte);
  75. begin
  76.   PortW[$3c4]:=($100 shl (x and 3))+2; (*set EGA bit plane mask register*)
  77.   Mem[$a000:y*(maxx shr 2) + (x shr 2)]:=c;
  78. end;
  79.  
  80. Var c:Char;
  81.     i,j:Integer;
  82.  
  83. begin
  84.   SetModex;
  85.   For j:=0 to 479 do  (* Nearly SVGA With your good old 256k VGA*)
  86.     For i:=0 to 359 do
  87.       PutPixel(i,j,(i+j) and $FF);
  88.   c:=ReadKey;
  89.   TextMode(LastMode);
  90. end.