home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / asemblr / pas / ext_asm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-05  |  1.2 KB  |  41 lines
  1. { **************************************************************
  2.   Datei: EXT_ASM.PAS
  3.   --------------------------------------------------------------
  4.   Autor: Sven Letzel
  5.   Datum: 11.04.1993
  6.   Funktion: Demonstriert die Einbindung von externen Assembler-
  7.             modulen in ein Pascal-Programm
  8.   Borland Pascal 7.0 - Zielplattform: Real, Protected
  9.   **************************************************************}
  10.  
  11.  
  12. {$L HEX.OBJ}
  13. {* Assemblermodul einbinden *}
  14.  
  15. FUNCTION Num2Hex(Num: WORD): STRING; EXTERNAL;
  16.  
  17. FUNCTION XReadKey: WORD;
  18. {* Erweiterte Readkey-Funktion für erweiterte Tastatur
  19.    Rückgabe:
  20.      normale Tasten: LOBYTE = ASCII-Zeichen der Taste
  21.                      HIBYTE = Auswahlcode der Taste
  22.      Sondertasten  : LOBYTE = 0
  23.                      HIBYTE = Kennzeichen der Sondertaste
  24. *}
  25. INLINE(
  26.       $B4/$10/       {* MOV AH, 10h *}
  27.       $CD/$16);      {* INT 16h *}
  28.  
  29. VAR
  30.   Zahl: WORD;
  31. BEGIN
  32.   WriteLn('DEMO-Program für externen Assembler.');
  33.   WriteLn('Test für erweiterte Tastatur. (ESC=Ende)');
  34.   REPEAT
  35.     Zahl := XReadKey;
  36.     WriteLn('ASCII: ',Lo(Zahl):3,' = $',Num2Hex(Lo(Zahl)));
  37.     WriteLn('ACODE: ',Hi(Zahl):3,' = $',Num2Hex(Hi(Zahl)));
  38.     WriteLn;
  39.   UNTIL Lo(Zahl) = 27;
  40. END.
  41.