home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / Utility / hooks.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.0 KB  |  32 lines
  1. {$if not def UTILITY_HOOKS_H} CONST UTILITY_HOOKS_H=true;
  2.  
  3. { *****************************************************************
  4.   ** KickPascal-Include-Datei "utility/hooks.h" zu Kickstart 3.0 **
  5.   ***************************************************************** }
  6.  
  7. TYPE p_Hook = ^Hook;
  8.  
  9. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  10.  
  11. TYPE Hook = RECORD
  12.  h_MinNode  : MinNode;
  13.  h_Entry    : Ptr;     { Zeiger auf Assembler-Code }
  14.  h_SubEntry : Ptr      { Zeiger auf Hochsprachen-Code }
  15.  h_Data     : Ptr;     { je nach Bedürfnis }
  16. END;
  17.  
  18. {
  19.  ** Der Assembler-Code des Hooks wird wie folgt aufgerufen :
  20.   ** 
  21.   ** A0 - Zeiger auf Hookdaten (h_Data)
  22.   ** A1 - Zeiger auf Parameter (oft am Anfang mit einem Longword als
  23.   **      Befehlscode, der im Zusammenhang mit dem Einsatz des Hooks steht.
  24.   ** A2 - Zeiger auf Hook-spezifische Daten (sog. "object," z.B GadgetInfo)
  25.   **
  26.   ** Diese Werte werden der Routine in "h_Entry" übergeben, die
  27.   ** dann ihrerseits alles für den Aufruf der Routine in der
  28.   ** Hochsprache ("h_SubEntry") vorzubereiten hat.
  29. }
  30.   
  31. {$endif}
  32.