Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
/*****************************************************************************
*                                                                            *
*                              Subor SLOV_FON.C                              *
*                                                                            *
*****************************************************************************/
 
 
#include <dos.h>
#include "glob.h"
#include "slov_fon.h"
 
/****************************************************************************/
/*definovanie znakov (4096 bytov, 1 znak=16 bytov)                          */
/****************************************************************************///************************************************************************//
// SLOV_FONT								  //
//                                                            30.10.1997  //
//************************************************************************//
 
void slov_font(void)
{
   _BH=0x06;
   _AX=0x1130;
   geninterrupt(0x10);
   _BP=FP_OFF(font);
   _ES=FP_SEG(font);
   _DX=0;
   _CX=0x100;
   _BX=0x1000;
   _AX=0x1100;
    geninterrupt(0x10);
}
 
 
//************************************************************************//
// POVODNY_FONT								  //
//                                                            30.10.1997  //
//************************************************************************//
 
void povodny_font(void)
{
   _AX=0x0003;
   geninterrupt(0x10);
}
 
 
//************************************************************************//
// NASTAV_VIDEO_MOD							  //
//                                                            30.10.1997  //
//************************************************************************//
 
void nastav_video_mod(int mod)
{
 Video_mod=mod;
 _AH=0;
 _AL=_mod[mod];
 geninterrupt(0x10);
 _riadkov=_rozmer_y[mod];
 _stlpcov=_rozmer_x[mod];
}
 
/*---------------------------------END--------------------------------------*/