Delphi & Pascal (česká wiki)
/***************************************************************************** * * * 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--------------------------------------*/