Nox-Rhea WiKi

Outils pour utilisateurs

Outils du site

Piste :
back2root:archives:denthor:part-01

Différences

Ci-dessous, les différences entre deux révisions de la page.

Lien vers cette vue comparative

Prochaine révision		Révision précédente
back2root:archives:denthor:part-01 [2021/08/26 21:52] – créée fraterback2root:archives:denthor:part-01 [2024/08/27 08:43] (Version actuelle) – [Putting a pixel on the screen (two different methoods)] frater
Ligne 1: Ligne 1:
-===== PART 1 : MCGA =====+===== PART 01 : MCGA =====
  
 Hi there! This is Denthor of ASPHYXIA, AKA Grant Smith. This training program is aimed at all those budding young demo coders out there. I am assuming that the reader is fairly young, has a bit of basic Std. 6 math Hi there! This is Denthor of ASPHYXIA, AKA Grant Smith. This training program is aimed at all those budding young demo coders out there. I am assuming that the reader is fairly young, has a bit of basic Std. 6 math
Ligne 13: Ligne 13:
  
  
-<WRAP center round info 80%>+<WRAP center round info>
 I drop source code all through my explanations. You needn't try to grab all of it from all over the place, at the end of each part I add a little program that uses all the new routines that we have learned. If you do not fully understand a section, leave me private mail telling me what you don't understand or asking how I got something etc, and I will try to make myself clearer. One last thing : When you spot a mistake I have made in one of my parts, leave me mail and I will correct it post-haste. I drop source code all through my explanations. You needn't try to grab all of it from all over the place, at the end of each part I add a little program that uses all the new routines that we have learned. If you do not fully understand a section, leave me private mail telling me what you don't understand or asking how I got something etc, and I will try to make myself clearer. One last thing : When you spot a mistake I have made in one of my parts, leave me mail and I will correct it post-haste.
 </WRAP> </WRAP>
Ligne 82: Ligne 82:
  
 <code> <code>
-    Writes a pixel dot of a specified color at a specified screen +    Writes a pixel dot of a specified color at a specified screen coordinate.
-    coordinate.+
  
     On entry:      AH         0Ch     On entry:      AH         0Ch
Ligne 116: Ligne 115:
 you how to alter it in my next lesson, but for now you will have to hunt for colors that fit in for what you want to do. Luckily, a byte is 0 to 255, so that is what we pass to the col variable. Have a look at the following. you how to alter it in my next lesson, but for now you will have to hunt for colors that fit in for what you want to do. Luckily, a byte is 0 to 255, so that is what we pass to the col variable. Have a look at the following.
  
 +<code>
     CGA = 4 colours.     CGA = 4 colours.
     4x4 = 16     4x4 = 16
Ligne 122: Ligne 122:
     VGA = 256 colors.     VGA = 256 colors.
     Therefore an EGA is a CGA squared, and a VGA is an EGA squared ;-)     Therefore an EGA is a CGA squared, and a VGA is an EGA squared ;-)
 +</code>
  
 Anyway, back to reality. Even though the abouve procedure is written in assembly language, it is slooow. Why? I hear your enquiring minds cry. The reason is simple : It uses interrupts (It calls INT 10h). Interrupts are sloooow ... which is okay for getting into MCGA mode, but not for trying to put down a pixel lickety-split. So, why not try the following ... Anyway, back to reality. Even though the abouve procedure is written in assembly language, it is slooow. Why? I hear your enquiring minds cry. The reason is simple : It uses interrupts (It calls INT 10h). Interrupts are sloooow ... which is okay for getting into MCGA mode, but not for trying to put down a pixel lickety-split. So, why not try the following ...
Ligne 144: Ligne 145:
 Denthor Denthor
  
 +==== Code Source  ====
 +
 +=== PASCAL ===
 +
 +<code pascal>
 +(*****************************************************************************)
 +(*                                                                           *)
 +(* TUTPROG1.CPP - VGA Trainer Program 1 (in Pascal)                          *)
 +(*                                                                           *)
 +(* "The VGA Trainer Program" is written by Denthor of Asphyxia.  However it  *)
 +(* was limited to Pascal only in its first run.  All I have done is taken    *)
 +(* his original release, translated it to C++, and touched up a few things.  *)
 +(* I take absolutely no credit for the concepts presented in this code, and  *)
 +(* am NOT the person to ask for help if you are having trouble.              *)
 +(*                                                                           *)
 +(* Program Notes : This program presents some basic video concepts: kicking  *)
 +(*                 the computer into graphics mode, testing out two differ-  *)
 +(*                 ent methods of putting pixels to the screen, and finally  *)
 +(*                 re-entering text mode.                                    *)
 +(*                                                                           *)
 +(* Author        : Grant Smith (Denthor)      - smith9@batis.bis.und.ac.za   *)
 +(*                                                                           *)
 +(*                                                                           *)
 +(*****************************************************************************)
 +
 +{$X+}   (* This is a handy little trick to know. If you put this at the top
 +           of your program, you do not have to set a variable when calling
 +           a function, i.e. you may just say 'READKEY' instead of
 +           'CH:=READKEY'                                                *)
 +
 +USES Crt;           (* This has a few nice functions in it, such as the
 +                       READKEY command.                                 *)
 +
 +CONST VGA = $a000;  (* This sets the constant VGA to the segment of the
 +                       VGA screen.                                      *)
 +
 +{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
 +Procedure SetMCGA;  { This procedure gets you into 320x200x256 mode. }
 +BEGIN
 +  asm
 +     mov        ax,0013h
 +     int        10h
 +  end;
 +END;
 +
 +
 +{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
 +Procedure SetText;  { This procedure returns you to text mode.  }
 +BEGIN
 +  asm
 +     mov        ax,0003h
 +     int        10h
 +  end;
 +END;
 +
 +
 +{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
 +Procedure Cls (Col : Byte);
 +   { This clears the screen to the specified color }
 +BEGIN
 +  Fillchar (Mem [$a000:0],64000,col);
 +END;
 +
 +
 +{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
 +Procedure INTPutpixel (X,Y : Integer; Col : Byte);
 +   { This puts a pixel on the screen using interrupts. }
 +BEGIN
 +  asm
 +     mov        ah,0Ch
 +     mov        al,[col]
 +     mov        cx,[x]
 +     mov        dx,[y]
 +     mov        bx,[1]
 +     int        10h
 +  end;
 +END;
 +
 +
 +{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
 +Procedure TestINTPutpixel;
 +   { This tests out the speed of the INTPutpixel procedure. }
 +VAR loop1,loop2 : Integer;
 +BEGIN
 +  For loop1:=0 to 319 do
 +    For loop2:=0 to 199 do
 +      INTPutpixel (loop1,loop2,Random (256));
 +  Readkey;
 +  Cls (0);
 +END;
 +
 +
 +
 +{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
 +Procedure MEMPutpixel (X,Y : Integer; Col : Byte);
 +  { This puts a pixel on the screen by writing directly to memory. }
 +BEGIN
 +  Mem [VGA:X+(Y*320)]:=Col;
 +END;
 +
 +
 +{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
 +Procedure TestMEMPutpixel;
 +   { This tests out the speed of the MEMPutpixel procedure. }
 +VAR loop1,loop2 : Integer;
 +BEGIN
 +  For loop1:=0 to 319 do
 +    For loop2:=0 to 199 do
 +      MEMPutpixel (loop1,loop2,Random (256));
 +  Readkey;
 +  Cls (0);
 +END;
 +
 +
 +
 +{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
 +BEGIN    (* Of the main program *)
 +  ClrScr;               { This clears the text Screen (CRT unit) }
 +  Writeln ('What will happen is that I will clear the screen twice. After');
 +  Writeln ('each clear screen you will have to hit a key. I will then fill');
 +  Writeln ('the screen twice with randomlly colored pixels using two different');
 +  Writeln ('methoods, after each of which you will have to hit a key. I will');
 +  Writeln ('then return you to text mode.');
 +  Writeln; Writeln;
 +  Write ('Hit any kay to continue ...');
 +  Readkey;
 +
 +  SetMCGA;
 +  CLS (32);
 +  Readkey;
 +  CLS (90);
 +  Readkey;
 +  TestINTPutpixel;
 +  TestMEMPutpixel;
 +  SetText;
 +
 +  Writeln ('All done. This concludes the first sample program in the ASPHYXIA');
 +  Writeln ('Training series. You may reach DENTHOR under the name of GRANT');
 +  Writeln ('SMITH on the MailBox BBS, or leave a message to ASPHYXIA on the');
 +  Writeln ('ASPHYXIA BBS. Get the numbers from Roblist, or write to :');
 +  Writeln ('             Grant Smith');
 +  Writeln ('             P.O. Box 270');
 +  Writeln ('             Kloof');
 +  Writeln ('             3640');
 +  Writeln ('I hope to hear from you soon!');
 +  Writeln; Writeln;
 +  Write   ('Hit any key to exit ...');
 +  Readkey;
 +END.     (* Of the main program *)
 +</code>
 +
 +=== C ===
 +
 +<code cpp>
 +/*****************************************************************************/
 +/*                                                                           */
 +/* TUTPROG1.CPP - VGA Trainer Program 1 (in Turbo C++ 3.0)                   */
 +/*                                                                           */
 +/* "The VGA Trainer Program" is written by Denthor of Asphyxia.  However it  */
 +/* was limited to Pascal only in its first run.  All I have done is taken    */
 +/* his original release, translated it to C++, and touched up a few things.  */
 +/* I take absolutely no credit for the concepts presented in this code, and  */
 +/* am NOT the person to ask for help if you are having trouble.              */
 +/*                                                                           */
 +/* Program Notes : This program presents some basic video concepts: kicking  */
 +/*                 the computer into graphics mode, testing out two differ-  */
 +/*                 ent methods of putting pixels to the screen, and finally  */
 +/*                 re-entering text mode.                                    */
 +/*                                                                           */
 +/*                 If you are compiling this code command line, be sure to   */
 +/*                 use the "-ml" parameter (large memory model).  Otherwise, */
 +/*                 the program will compile and link, but will lock your     */
 +/*                 system upon execution.                                    */
 +/*                                                                           */
 +/* Author        : Grant Smith (Denthor)      - smith9@batis.bis.und.ac.za   */
 +/* Translated by : Christopher (Snowman) Mann - r3cgm@dax.cc.uakron.edu      */
 +/*                                                                           */
 +/* Last Modified : October 21st, 1994                                        */
 +/*                                                                           */
 +/*****************************************************************************/
 +
 +#include <conio.h>    // getch(), clrscr()
 +#include <dos.h>      // MK_FP, geninterrupt()
 +#include <mem.h>      // memset()
 +#include <stdio.h>    // printf()
 +#include <stdlib.h>   // rand()
 +
 +void SetMCGA();
 +void SetText();
 +void Cls(unsigned char Col);
 +void TestINTPutpixel();
 +void TestMEMPutpixel();
 +void INTPutpixel(int x, int y, unsigned char Col);
 +void MEMPutpixel(int x, int y, unsigned char Col);
 +
 +// declare a pointer to the offset of VGA memory
 +unsigned char *vga = (unsigned char *) MK_FP(0xA000, 0);
 +
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +// SetMCGA() - This function gets you into 320x200x256 mode.
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +
 +void SetMCGA() {
 +  _AX = 0x0013;
 +  geninterrupt (0x10);
 +}
 +
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +// SetText() - This function gets you into text mode.
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +
 +void SetText() {
 +  _AX = 0x0003;
 +  geninterrupt (0x10);
 +}
 +
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +// Cls() - This clears the screen to the specified color.
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +
 +void Cls(unsigned char Col) {
 +  memset(vga, Col, 0xffff);
 +}
 +
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +// INTPutpixel() - This puts a pixel on the screen using inturrupts.
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +
 +void INTPutpixel(int x, int y, unsigned char Col) {
 +  _AH = 0x0C;
 +  _AL = Col;
 +  _CX = x;
 +  _DX = y;
 +  _BX = 0x01;
 +  geninterrupt (0x10);
 +}
 +
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +// TestINTPutpixel() - This tests out the speed of the INTPutpixel function.
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +
 +void TestINTPutpixel() {
 +
 +  int loop1,loop2;
 +
 +  for (loop1=0;loop1<320;loop1++) {
 +    for (loop2=0;loop2<200;loop2++) {
 +      INTPutpixel (loop1,loop2,rand());
 +    }
 +  }
 +  getch();
 +  Cls(0);
 +}
 +
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +// MEMPutpixel() - This puts a pixel on the screen by writing directly to
 +//                 memory.
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +
 +void MEMPutpixel (int x, int y, unsigned char Col) {
 +  memset(vga+x+(y*320),Col,1);
 +}
 +
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +// TestMEMPutpixel() - This tests out the speed of the MEMPutpixel function.
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +
 +void TestMEMPutpixel () {
 +
 +  int loop1,loop2;
 +
 +  for (loop1=0;loop1<320;loop1++) {
 +    for (loop2=0;loop2<200;loop2++) {
 +      MEMPutpixel (loop1,loop2,rand());
 +    }
 +  }
 +  getch();
 +  Cls(0);
 +}
 +
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +//                                MAIN FUNCTION
 +//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 +
 +void main() {
 +  clrscr();
 +  printf ("What will happen is that I will clear the screen twice.  After\n");
 +  printf ("each clear screen you will have to hit a key.  I will then fill\n");
 +  printf ("the screen twice with randomly colored pixels using 2 different\n");
 +  printf ("methods, after each of which you will have to hit a key. I will\n");
 +  printf ("then return you to text mode.\n\n");
 +  printf ("Hit any key to continue ...\n");
 +  getch();
 +
 +  SetMCGA();
 +  Cls(32);
 +  getch();
 +  Cls(90);
 +  getch();
 +  TestINTPutpixel();
 +  TestMEMPutpixel();
 +  SetText();
 +
 +  printf ("All done. This concludes the 1st sample program in the ASPHYXIA\n");
 +  printf ("Training series. You may reach DENTHOR under the name of GRANT\n");
 +  printf ("SMITH on the MailBox BBS, or leave a message to ASPHYXIA on the\n");
 +  printf ("ASPHYXIA BBS. Get the numbers from Roblist, or write to :\n");
 +  printf ("             Grant Smith\n");
 +  printf ("             P.O. Box 270\n");
 +  printf ("             Kloof\n");
 +  printf ("             3640\n");
 +  printf ("I hope to hear from you soon!\n\n\n");
 +  printf ("Hit any key to exit ...");
 +  getch();
 +}
 +</code>
  
 +<nspages back2root/archives/denthor -simpleList -title -h1 -exclude:start -textPages="Denthor VGA Trainer">
back2root/archives/denthor/part-01.1630007521.txt.gz · Dernière modification : 2021/08/26 21:52 de frater

Outils de la page

Sauf mention contraire, le contenu de ce wiki est placé sous les termes de la licence suivante : CC Attribution-Noncommercial-Share Alike 4.0 International
CC Attribution-Noncommercial-Share Alike 4.0 International Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki