Programacion hibrida

Solo disponible en BuenasTareas
  • Páginas : 3 (548 palabras )
  • Descarga(s) : 4
  • Publicado : 16 de mayo de 2010
Leer documento completo
Vista previa del texto
DIRECTIVAS PARA COMPILACIÓN HIBRIDA

Turbo Pascal permite escribir procedimientos y funciones en código ensamblador e incluirlas como parte de los programas en lenguaje Pascal; para esto, TurboPascal cuenta con dos palabras reservadas: Assembler y Asm.

Assembler permite indicarle a Turbo Pascal que la rutina o procedimiento que se está escribiendo está totalmente escrita en códigoensamblador.
Ejemplo de un procedimiento híbrido:
Procedure Limpia_Pantalla;
Assembler;
Asm
Mov AX,0600h ; procedimiento Clr Scr de la unidad CRT de Turbo Pascal
Mov BH,18h
Mov CX,0000h
MovDX,184Fh
Int 10h
End;

Por otro lado, Asm nos permite incluir bloques de instrucciones en lenguaje ensamblador en cualquier parte del programa sin necesidad de escribir procedimientos completos enensamblador.
Ejemplo de un programa con un bloque de instrucciones en ensamblador:
;El programa solicita que se introduzcan dos número, después calcula la suma por medio de la instrucción Add deensamblador y finalmente imprime el resultado en la pantalla.

; realiza la suma de dos cantidades enteras (N1 y N2) introducidas previamente por el usuario, después almacena el resultado en lavariable Res y finalmente presenta el resultado en la pantalla.

Program hibrido;
Uses Crt;
Var
N1,N2,Res : integer;
Begin
Writeln(“Introduce un número: “);
Readln(N1);
Writeln(“Introduceun número: “);
Readln(N2);
Asm
Mov AX,N1;
Add AX,N2;
Mov Res,AX
End;
Writeln(“El resultado de la suma es: “,Res);
Readln;
End.

;Este programa solicita al usuario que presionealguna tecla, cuando la tecla es presionada, ésta se utiliza para rellenar la pantalla. Termina cuando se presiona la tecla enter. Utiliza tres procedimientos:
Limpia_Pantalla: Este se encarga deborrar la pantalla
Cursor_XY: Este procedimiento reemplaza al Goto XY de Pascal
Imprime_Car: Este procedimiento imprime en pantalla el carácter que se le pasa como parámetro.

Program Hibrido2;...
tracking img