Section courante

A propos

Section administrative du site

Assembleur 80x86

TPASCAL
  Turbo Pascal

Syntaxe

.MODEL TPASCAL

Description

Ce paramètre de directive permet la configurant du modèle de mémoire simplifié pour écrire des procédures appelable du TURBO PASCAL.

Exemple

Cet exemple permet de fixer une interruption en utilisant une routine écrit en assembleur et utiliser dans un programme de Turbo Pascal. Voici d'abord le code source Assembleur :

  1. .8086
  2. .MODEL TPASCAL
  3.  
  4. Jumps
  5.  
  6. .CODE
  7.  
  8. Public dosSetIntVec
  9.  
  10. dosSetIntVec Proc Pascal Far IntNo:Byte,Vector:DWord
  11.  PUSH DS
  12.   LDS DX,Vector
  13.   MOV AL,IntNo
  14.   MOV AH,25h
  15.   INT 21h
  16.  POP DS
  17.  RET
  18. EndP
  19.  
  20. code ends
  21. end

Enfin le code source du programme Turbo Pascal exploitant la routine écrite en assembleur :

  1. Program TPASCAL;
  2.  
  3. Procedure dosSetIntVec(IntNo:Byte;Vector:Pointer);External; {$L tpascal.OBJ}
  4.  
  5. BEGIN
  6.  dosSetIntVec($FF,NIL);
  7. END.

Dernière mise à jour : Samedi, le 2 août 2014