Exercices corrigés Pascal

Exercices corrigés PascalConsultez toutes les sources

Nombre d'auteurs : 3, nombre de sources : 49, dernière mise à jour : 6 mars 2008

Sommaire→L'assembleur sous Turbo Pascal

Accès aux registres
Accès aux registres
Initialisation d'un mode graphique
Initialiser la souris
Affichage ou disparition du curseur
Récupérer la position du curseur, les clics droit et gauche

précédent

sommaire

Version hors-ligne

HautPage

Accès aux registres

On veut connaître la date du jour en utilisant l'Assembleur. Ecrire une procédure qui remplit les variables année, mois et jour passées en paramètre. On utilisera la fonction 2Ah de l'interruption 21h et le type Registers de l'unité Dos.

asm1.pas

Cacher/Afficher le codeSélectionnez

uses Dos;
 
procedure date(var annee: word; var mois, jour: byte);
var
  registres: registers;
begin
  registres.AH := $2A;
  MsDos(registres);
  annee := registres.CX;
  mois := registres.DH;
  jour := registres.DL;
end;
 
var
  annee: word;
  mois, jour: byte;
 
begin
  date(annee, mois, jour);
  writeln('Nous sommes le ', jour, '/', mois, '/', annee);
  readln;
end.

Créé le 21 juillet 2004 par Mathieu Dalbin

HautPage

Accès aux registres

On décide de reprendre l'énoncé du premier exercice en utilisant uniquement l'Assembleur cette fois-ci.

asm2.pas

Cacher/Afficher le codeSélectionnez

procedure date(var annee: word; var mois, jour: byte);
var
  _annee: word;
  _mois, _jour: byte;
begin
  asm
MOV AH, 2Ah;
INT 21h;
MOV _annee, CX;
MOV _mois, DH;
MOV _jour, DL;
  end;
  annee := _annee;
  mois := _mois;
  jour := _jour;
end;
 
var
  annee: word;
  mois, jour: byte;
 
begin
  date(annee, mois, jour);
  writeln('Nous sommes le ', jour, '/', mois, '/', annee);
  readln;
end.

Créé le 21 juillet 2004 par Mathieu Dalbin

HautPage

Initialisation d'un mode graphique

Ecrire une procédure permettant d'initialiser le mode graphique 13h. On utilisera la fonction 0h de l'interruption 10h. Ecrire une autre procédure permettant de repasser en mode texte.

asm3.pas

Cacher/Afficher le codeSélectionnez

procedure modeGraphique; assembler;
asm
MOV AX, 13h;
INT 10h;
end;
 
procedure modeTexte; assembler;
asm
MOV AX, 3h;
INT 10h;
end;
 
begin
  modeGraphique;
  write('En mode Graphique !');
  readln;
  modeTexte;
  write('En mode Texte !');
  readln;
end.

Créé le 21 juillet 2004 par Mathieu Dalbin

HautPage

Initialiser la souris

Ecrire une fonction permettant d'initialiser la souris, et qui retourne le nombre de boutons disponibles pour cette souris. On utilisera la fonction 0h de l'interruption 33h.

asm4.pas

Cacher/Afficher le codeSélectionnez

function initSouris: word; assembler;
asm
MOV AX, 0h;
INT 33h;
CMP AX, 0FFFFh;
JNE @@driverAbsent;
MOV AX, BX;
JMP @@fin;
@@driverAbsent : MOV AX, 0;
@@fin :
end;
 
begin
  writeln('Nombre de boutons : ', initSouris);
  readln;
end.

Créé le 21 juillet 2004 par Mathieu Dalbin

HautPage

Affichage ou disparition du curseur

Ecrire deux fonctions permettant d'afficher et de cacher le curseur de la souris. On utilisera les fonctions 1h et 2h de l'interruption 33h.

asm5.pas

Cacher/Afficher le codeSélectionnez

procedure modeGraphique; assembler;
asm
MOV AX, 13h;
INT 10h;
end;
 
procedure modeTexte; assembler;
asm
MOV AX, 3h;
INT 10h;
end;
 
function initMouse: word; assembler;
asm
MOV AX, 0h;
INT 33h;
CMP AX, 0FFFFh;
JNE @@driverAbsent;
MOV AX, BX;
JMP @@fin;
@@driverAbsent : MOV AX, 0;
@@fin :
end;
 
procedure showCursor; assembler;
asm
MOV AX, 1h;
INT 33h;
end;
 
procedure hideCursor; assembler;
asm
MOV AX, 2h;
INT 33h;
end;
 
begin
  modeGraphique;
  initMouse;
  showCursor;
  readln;
  hideCursor;
  modeTexte;
end.

Créé le 21 juillet 2004 par Mathieu Dalbin

HautPage

Récupérer la position du curseur, les clics droit et gauche

Ecrire une procédure permettant de récupérer la position du curseur et le statut des différents boutons de la souris. Les paramètres seront passés de manière à permettre leur modification. On utilisera la fonction 3h de l'interruption 33h.

asm6.pas

Cacher/Afficher le codeSélectionnez

procedure modeGraphique; assembler;
asm
MOV AX, 13h;
INT 10h;
end;
 
procedure modeTexte; assembler;
asm
MOV AX, 3h;
INT 10h;
end;
 
function initMouse: word; assembler;
asm
MOV AX, 0h;
INT 33h;
CMP AX, 0FFFFh;
JNE @@driverAbsent;
MOV AX, BX;
JMP @@fin;
@@driverAbsent : MOV AX, 0;
@@fin :
end;
 
procedure showCursor; assembler;
asm
MOV AX, 1h;
INT 33h;
end;
 
procedure hideCursor; assembler;
asm
MOV AX, 2h;
INT 33h;
end;
 
procedure getStatus(var x, y, buttonStatus: word);
var
  _x, _y, _buttonStatus: word;
begin
  asm
MOV AX, 3h;
INT 33h;
MOV _x, CX;
MOV _y, DX;
MOV _buttonStatus, BX;
  end;
  x := _x;
  y := _y;
  buttonStatus := _buttonStatus;
end;
 
var
  x, y, buttonStatus: word;
 
begin
  modeGraphique;
  initMouse;
  showCursor;
  readln;
  getStatus(x, y, buttonStatus);
  hideCursor;
  modeTexte;
  write(x, ' ', y, ' ', buttonStatus);
  readln;
end.

Créé le 21 juillet 2004 par Mathieu Dalbin

précédent

sommaire

Version hors-ligne