home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / WIH.ZIP / CALL_41.INC next >
Encoding:
Text File  |  1987-02-01  |  1.1 KB  |  29 lines
  1.   Procedure User_Procedure;
  2.   {This procedure shows that one interupt routine can activate another.}
  3.     Var
  4.        C                : Char;
  5.        Reg_pack         : RegisterSet;
  6.        Saved_Screen     : Saved_Screen_Ptr;
  7.     Const
  8.        Interupt41 = $41;
  9.   Begin
  10.        Save_Screen(Saved_Screen);
  11.        Draw_Menu_Frame(26,10,74,20,15,7,
  12.                        ' Sample Interupt Handler ');
  13.        WriteLn(bell);
  14.        WriteLn('Interupt ',Interupt_Number);
  15.        WriteLn('     Press "y" to try INTR($41)');
  16.        WriteLn(' Press any other key to continue');
  17.        Read(Kbd,C); Write;
  18.        While C='y' do begin
  19.           INTR(Interupt41,Reg_Pack);
  20.           Read(Kbd,C); End;
  21.        With Interupt_Registers Do Begin
  22.           WriteLn('Registers are:');
  23.           WriteLn('AX = ',AX,': BX = ',BX,': CX = ',CX);
  24.           WriteLn('DX = ',DX,': SI = ',SI,': DI = ',DI);
  25.           WriteLn('Enter Values for AX, BX, and DI registers...');
  26.           Read(AX,BX,DI); WriteLn; End;
  27.        Restore_Screen(Saved_Screen);
  28.     End;
  29.