home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 04 / scrtimer / critical.inc < prev    next >
Encoding:
Text File  |  1988-01-25  |  691 b   |  18 lines
  1. (* ----------------------------------------------------- *)
  2. (*                       CRITICAL.INC                    *)
  3. (* mit den hier enthaltenen Prozeduren koennen Teile     *)
  4. (* einer Interrupt-Rout. ununterbrechbar gemacht werden. *)
  5. (* ----------------------------------------------------- *)
  6. TYPE  CriticalSection_ = Integer;
  7.  
  8. PROCEDURE CriticalBegin (VAR Sect: CriticalSection_);
  9. BEGIN
  10.   Inline ($9C/$58/$FA/$BEC4/Sect/$26/$89/$05);
  11. END;
  12.  
  13. PROCEDURE CriticalEnd (VAR Sect: CriticalSection_);
  14. BEGIN
  15.   Inline ($BEC4/Sect/$26/$8B/$05/$50/$9D);
  16. END;
  17. (* ----------------------------------------------------- *)
  18. (*                  Ende von CRITICAL.INC                *)