Xailer forum

Hola a todos:
Estamos convirtiendo una antigua aplicación el clipper usando Harbour + Borland C 5.5 + xedit. Toda la conversión la hemos realizado con mayor o menor acierto, pero nos hemos encontrado con un pequeño problema.
En clipper se utilizó una función en C para cargar la redefinición de fuentes de la VGA, pero no hemos logrado convertirla para que funcione en harbour, aunque la antigua aplicación en modo consola, a pantalla completa en Windows XP, carga y funciona bien y se ve correctamente.
#include "c:stdapldosbc3includedos.h"
#include "c:stdapldosbc3includestdio.h"
#include "c:stdapldosclip52includeextend.api"
/* ------------------------------------------------------------ ----
CARGA UN SET DE CARACTERES CONTENIDO EN EL FICHERO ESPECIFICADO
------------------------------------------------------------ ---- */
CLIPPER LoadFont()
{
char *cBuf;
cBuf = _parc(1);
if ( (h = fopen(_parc(1),"rb")) == NULL) _ret();
fread(cBuf,4096,1,h);
asm PUSH BP;
asm PUSH ES;
_DX = 0;
_CX = 256;
_ES = FP_SEG(cBuf);
_BP = FP_OFF(cBuf);
_BH = 0x10;
_BL = 0x00;
_AH = 0x11;
_AL = 0x10;
geninterrupt( 0x10 );
asm POP ES;
asm POP BP;
}
Nos gustarí­a saber si alguien se ha encontrado con el mismo problema y si es así­ como lo ha solucionado.
Adjunto fichero de fuentes modificadas por si alguien logra poner en marcha la función en harbour.
Muchas Gracias,
Juan Pastor

Attached files DB_FONT.URC (4 KB)Â