home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 …ember: Reference Library / Apple Developer Reference Library (December 1999) (Disk 1).iso / pc / what's new / technical documentation / macintosh technotes and q&as / technotes / tn / tn1137.hqx / InterruptDisableLib1.0b2 / TestInterruptDisableLib / TestInterruptDisableLib.p < prev    next >
Encoding:
Text File  |  1998-03-28  |  907 b   |  35 lines
  1. program TestInterruptDisable;
  2.     
  3.     uses
  4.         InterruptDisableLib;
  5.     
  6.     var
  7.         firstExecutionMask   : UInt16;
  8.         firstExecutionMask2  : UInt16;
  9.         secondExecutionMask  : UInt16;
  10.         secondExecutionMask2 : UInt16;
  11.         thirdExecutionMask   : UInt16;
  12. begin
  13.     writeln('Hello Cruel World!');
  14.     writeln('InterruptDisableLib.p');
  15.     
  16.     Debugger;
  17.     
  18.     firstExecutionMask := GetInterruptMask;
  19.     
  20.     firstExecutionMask2 := SetInterruptMask(5);
  21.     
  22.     secondExecutionMask := GetInterruptMask;
  23.     
  24.     secondExecutionMask2 := SetInterruptMask(0);
  25.     
  26.     thirdExecutionMask := GetInterruptMask;
  27.     
  28.     writeln('firstExecutionMask   = ', firstExecutionMask);
  29.     writeln('firstExecutionMask2  = ', firstExecutionMask2);
  30.     writeln('secondExecutionMask  = ', secondExecutionMask);
  31.     writeln('secondExecutionMask2 = ', secondExecutionMask2);
  32.     writeln('thirdExecutionMask   = ', thirdExecutionMask);
  33.  
  34.     writeln('Done.  Press command-Q to Quit.');
  35. end. (* HelloCruelWorld *)