home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / exec / interrupts.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  782 b   |  40 lines
  1. {$if not def EXEC_INTERRUPTS_H} CONST EXEC_INTERRUPTS_H=0;
  2.  
  3. { *******************************************************************
  4.   ** KickPascal-Include-Datei "exec/interrupts.h" zu Kickstart 3.0 **
  5.   ******************************************************************* }
  6.  
  7. TYPE p_Interrupt = ^Interrupt;
  8. TYPE p_IntVector = ^IntVector;
  9. TYPE p_SoftIntList = ^SoftIntList;
  10.  
  11. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  12. {$if not def EXEC_LISTS_H;incl "exec/LISTS.h";endif}
  13.  
  14.  
  15. TYPE Interrupt = RECORD
  16.  is_Node : Node;
  17.  is_Data : Ptr;
  18.  is_Code : Ptr;
  19. END;
  20.  
  21.  
  22. TYPE IntVector = RECORD
  23.  iv_Data : Ptr;
  24.  iv_Code : Ptr;
  25.  iv_Node : p_Node;
  26. END;
  27.  
  28. TYPE SoftIntList = RECORD
  29.  sh_List : List;
  30.  sh_Pad  : Word;
  31. END;
  32.  
  33. CONST SIH_PRIMASK =$f0;
  34.  
  35. CONST
  36.  INTB_NMI = 15;
  37.  INTF_NMI = $8000;
  38.  
  39. {$endif}
  40.