home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 March / pcx08_9703.iso / melyviz / pcx-user / t&t / pelda01.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-12-24  |  1.5 KB  |  32 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 MyFont; external {$L myfont.obj}; {A karkészlet beszúrása}
  12.  
  13. procedure BIOSNewCharsOn(Adr: Pointer; Num, Off: Word); Assembler;
  14. asm
  15.   push  bp {elmentjük a Stack-be a BP regisztert }
  16.   push  es {elmentjük a Stack-be az ES regisztert}
  17.   mov   ax, 1100h {a karakterátírás funkciószáma a 11h,
  18.                    a karakter készlet betöltése az 00h alfunkció}
  19.   mov   cx, Num   {Num darab karaktert kívánunk átírni          }
  20.   mov   dx, Off   {A karakterátírás az Off-adik karaktertôl folyamatosan
  21.                    végezzük                                 }
  22.   mov   bx, 1000h {BH: 16 Byte / karakter; BL: 0. block     }
  23.   les   bp, Adr   {betöltjük az ES:BP reg.párba az Adr címet}
  24.   int   10h       {meghívjuk a videó megszakítást, ez a 10h }
  25.   pop   es  {kiemeljük a Stack-bôl az ES regisztert}
  26.   pop   bp  {kiemeljük a Stack-bôl a BP regisztert }
  27. end;
  28.  
  29. BEGIN
  30.   BIOSNewCharsOn(@MyFont, 255, 0);
  31.   WriteLn('Most már használhatóak az új karakterek !');
  32. END.