Re: [hispamsx] Libreria INL para Turbo Pascal... y Pequeño problemilla.

Carlos de Santa-Ana Garcia escribió:

> Hola
>
> Tengo muy avanzada una libreria para inl en Pascal, ya funciona:
>
> http://hideoworld.iespana.es/msx/inlpascal.png
>
> Esto a modo de anuncio.
>
>
> Ahora viene la parte especial a ver si la ve el lider:
>
> Tengo un pequeño problema, despues de hacer cualquier llamada a una 
> funcion del inl, al volver al dos, el ordenador se resetea, de las 
> funciones INL y las funciones Pascal vuelve bien, asi que no creo que 
> sea que se pierde algo de la pila, no se si sera cosa del cambio de 
> paginas. Bueno a ver si a alguien se le ocurre algo. Esto es lo que llevo:
>
>
> Un saludo.
>
>
>  
Bueno, me contesto yo mismo, era el cambio de pagina para acceder al 
INL, en DOS1 aunque no lo probe deberia haber funcionado bien, el 
problema era que DOS2 no restablecia el TPA.

Asi que la solucion es una funcion (procedimiento por ser pascal que la 
restaura):


Procedure INLterminate;

Begin
   Inline (
               $3E/$02/            {ld    a,2}
               $CD/PUT_P1            {call    PUT_P1}
           );
End;


Que ha de ejecutarse justo antes de acabar el programa.


Un saludo.