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

Les deux révisions précédentesRévision précédente
Prochaine révision		Révision précédente
back2root:archives:denthor:part-01 [2021/08/26 21:57] – fraterback2root:archives:denthor:part-01 [2021/09/04 22:38] (Version actuelle) – [Code Source : C] frater
Ligne 143: Ligne 143:
 See you all later, See you all later,
 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"> <nspages back2root/archives/denthor -simpleList -title -h1 -exclude:start -textPages="Denthor VGA Trainer">
back2root/archives/denthor/part-01.1630007868.txt.gz · Dernière modification : 2021/08/26 21:57 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