home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 March / pcx08_9703.iso / melyviz / pcx-user / t&t / pelda01b.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-12-24  |  939 b   |  25 lines
  1. {*********************************************************}
  2. {                                                         }
  3. {   A program forráskódja az IDG - PCX szerkesztôségének, }
  4. {   és Bérczi László-nak a tulajdona.                     }
  5. {   A forráskód a kereskedelmi célokat kivéve szabadon    }
  6. {                    terjeszthetô !                       }
  7. {                                                         }
  8. {   PC-X User (c) 1997, március                           }
  9. {*********************************************************}
  10.  
  11. procedure Load8x16Font(Block: Byte); Assembler;
  12. asm  {Betöltjük, a Block-adik block-ba a VGA alapértelmezett 8x16-os betûtípusát}
  13.   mov  ax, 1104h
  14.   mov  bl, Block
  15.   cmp   bl, 08h
  16.   jb    @Okes
  17.   xor   bl, bl
  18. @Okes:
  19.   int  10h
  20. end;              
  21.  
  22. BEGIN
  23.   Load8x16Font(0); {Visszaállítás}
  24.   WriteLn('Visszaállítottam a VGA alapértelmezett font-jaira a kar.készletet !');
  25. END.