
{===========================================================================}
{ Konzept        : DATA BECKERs Sound Blaster Superbuch                     }
{ Prog. CallIntr : Ein Beispielprogramm zum Aufruf der Interrupts (DOS-     }
{                  Interrupt 21h)                                           }
{===========================================================================}
{ Autor          : Arthur Burda                                             }
{ Dateiname      : CALLINTR.PAS                                             }
{ entwickelt am  : 20.07.1993                                               }
{ letztes Update : 01.09.1993                                               }
{ Version        : 1.01                                                     }
{ Compiler       : Turbo Pascal 6.0 und hher                               }
{===========================================================================}

PROGRAM CallIntr;

USES CRT, DOS;                                { Units CRT und DOS einbinden }

{---------------------------------------------------------------------------}
{ Hauptprogramm                                                             }
{---------------------------------------------------------------------------}

VAR
  Regs    : Registers;                                 { Prozessor-Register }
  Message : String[40];               { ein String bestehend aus 40 Zeichen }
  Ch      : Char;

BEGIN
  ClrScr;                                              { Bildschirm lschen }
  Message := 'DATA BECKERs Sound Blaster Superbuch'+'$';
  Regs.AH := $09;           { Funktion des DOS-Interrupts zur Stringausgabe }
  Regs.DS := Seg(Message[1]);                 { Segment-Adresse des Strings }
  Regs.DX := Ofs(Message[1]);                  { Offset-Adresse des Strings }
  Intr($21, Regs);                                 { DOS-Interrupt aufrufen }
  { oder: MsDos(Regs) }

  { warten, bis eine Taste gedrckt wird }

  REPEAT
  UNTIL KeyPressed;

  Ch := ReadKey;                                            { Zeichen lesen }
END.
