home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / WIH.ZIP / SHOW_REG.INC < prev    next >
Encoding:
Text File  |  1987-02-01  |  896 b   |  24 lines
  1.   Procedure User_Procedure;
  2.     Var
  3.        C                : Char;
  4.     Const
  5.        Interupt_Counter : Integer = 0;
  6.     Begin
  7.        Interupt_counter := Interupt_counter + 1;
  8.        Save_Screen(Saved_Screen);
  9.        Draw_Menu_Frame(16,6,64,16,15,7,
  10.                        ' Sample Interupt Handler ');
  11.        WriteLn(bell);
  12.        WriteLn('Interupt $41 successfully handled ',Interupt_Counter,
  13.                ' times.');
  14.        With Interupt_Registers Do Begin
  15.           WriteLn('Registers are:');
  16.           WriteLn('AX = ',AX,': BX = ',BX,': CX = ',CX);
  17.           WriteLn('DX = ',DX,': SI = ',SI,': DI = ',DI);
  18.           WriteLn('Enter Values for AX, BX, and DI registers...');
  19.           Read(AX,BX,DI); WriteLn; End;
  20.        WriteLn('    Press any key to continue');
  21.        Read(Kbd,c);
  22.        Restore_Screen(Saved_Screen);
  23.     End;
  24.