home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / t3_tsr / interrpt.inc next >
Encoding:
Text File  |  1988-02-24  |  2.2 KB  |  134 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   INTERRPT.INC                         *)
  3. (*            Inline-Code für MERKER.PAS                  *)
  4.  
  5. PROCEDURE Interrpt;
  6. BEGIN
  7.   INLINE (
  8.   $80/$FC/$00/
  9.   $74/$07/
  10.   $5D/$5D/
  11.   $2E/
  12.   $FF/$2E/TSR_IntIP/
  13.  
  14.   $FA/
  15.   $55/
  16.   $BD/Regs/
  17.   $2E/$89/$46/$00/
  18.   $2E/$89/$5E/$02/
  19.   $2E/$89/$4E/$04/
  20.   $2E/$89/$56/$06/
  21.   $2E/$8F/$46/$08/
  22.   $2E/$89/$76/$0A/
  23.   $2E/$89/$7E/$0C/
  24.   $2E/$8C/$5E/$0E/
  25.   $2E/$8C/$46/$10/
  26.   $9C/
  27.   $2E/$8F/$46/$12/
  28.  
  29.   $2E/$80/$3E/TSR_InUse/$01/
  30.   $74/$62/
  31.  
  32.   $2E/$8C/$16/DosSeg/
  33.   $8C/$D6/
  34.   $8E/$C6/
  35.   $2E/$8E/$16/TSRSseg/
  36.   $2E/$8E/$1E/TSRDseg/
  37.  
  38.   $2E/$3B/$36/TSRSseg/
  39.   $89/$E6/
  40.   $74/$05/
  41.   $3E/$8B/$36/$74/$01/
  42.   $87/$F4/
  43.  
  44.   $2E/$FF/$76/$00/
  45.   $2E/$FF/$76/$02/
  46.   $2E/$FF/$76/$04/
  47.   $2E/$FF/$76/$06/
  48.   $2E/$FF/$76/$0A/
  49.   $2E/$FF/$76/$0C/
  50.   $2E/$FF/$76/$0E/
  51.   $2E/$FF/$76/$10/
  52.  
  53.   $29/$C9/
  54.   $29/$F1/
  55.   $D1/$E9/
  56.   $83/$F9/$40/
  57.   $7E/$03/
  58.   $B9/$40/$00/
  59.   $2E/$89/$0E/StackSize/
  60.   $26/$FF/$34/
  61.   $46/$46/
  62.   $E2/$F9/
  63.   $56/
  64.   $2E/$8C/$5E/$0E/
  65.   $FB
  66.   );
  67.  
  68.   Intr(TSR_Int,Regs);
  69.   IF HalfRegs.AX = TSR_Char THEN
  70.     IF NOT TSR_InUse THEN BEGIN
  71.       TSR_InUse := TRUE;
  72.       TSRPgm;
  73.       WHILE NOT KeyPressed DO;         (* Warte auf Taste *)
  74.       SaveRegs.Ax := 0;
  75.       Intr(TSR_Int,SaveRegs);
  76.       Regs.Ax := SaveRegs.Ax;
  77.       TSR_InUse := FALSE;
  78.     END;
  79.  
  80.   INLINE(
  81.   $BD/Regs/
  82.   $2E/$8B/$46/$00/
  83.   $2E/$8B/$5E/$02/
  84.   $2E/$8B/$4E/$04/
  85.   $2E/$8B/$56/$06/
  86.   $2E/$8B/$76/$0A/
  87.   $2E/$8B/$7E/$0C/
  88.   $2E/$8E/$5E/$0E/
  89.   $2E/$8E/$46/$10/
  90.   $2E/$FF/$76/$12/
  91.  
  92.   $EB/$01/
  93.   $CF/
  94.   $0E/
  95.   $E8/$FB/$FF/
  96.   $2E/$80/$3E/TSR_InUse/$01/
  97.   $74/$25/
  98.  
  99.   $FA/
  100.   $5E/
  101.   $2E/$8B/$0E/StackSize/
  102.   $2E/$8E/$06/DosSeg/
  103.   $4E/$4E/
  104.   $26/$8F/$04/
  105.   $E2/$F9/
  106.   $89/$F5/
  107.  
  108.   $07/
  109.   $1F/
  110.   $5F/
  111.   $5E/
  112.   $5A/
  113.   $59/
  114.   $5B/
  115.   $44/$44/
  116.   $89/$EC/
  117.   $2E/$8E/$16/DosSeg/
  118.  
  119.   $5D/
  120.   $BD/Regs/
  121.   $2E/$FF/$76/$12/
  122.  
  123.   $EB/$01/
  124.   $CF/
  125.   $0E/
  126.   $E8/$FB/$FF/
  127.  
  128.   $5D/
  129.   $FB/
  130.   $CA/$02/$00
  131.   );
  132. END;
  133. (* ------------------------------------------------------ *)
  134. (*               Ende von INTERRPT.INC                    *)