home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / util / misc / ExecuteOnReset.lha / ExecuteOnReset / keyhandler.a < prev    next >
Encoding:
Text File  |  2000-08-10  |  879 b   |  50 lines
  1. ********************************************************************************
  2. *
  3. *       Program:        ExecuteOnReset
  4. *       Filename:       keyhandler.a
  5. *
  6. *       Language:       68000 Assembler
  7. *
  8. *       Author:         Johannes R. Geiss
  9. *
  10. *       Copyright:      Amigavisions
  11. *
  12. ********************************************************************************
  13.  
  14.  
  15. *------ Includes
  16.     include 'exec/types.i'
  17.     include 'exec/io.i'
  18.     include 'devices/keyboard.i'
  19.     include 'xref.i'
  20.     include 'call.i'
  21.  
  22.  
  23. *------ Definitions
  24.     STRUCTURE MyData,0
  25.     APTR  MyTask
  26.     ULONG MySignal
  27.  
  28.  
  29. *------ Imports
  30.     XLIB    Signal
  31.     xref    _SysBase
  32.  
  33.  
  34. *------ Exports
  35.     xdef    _ResetHandler
  36.  
  37.  
  38. ********************************************************************************
  39.  
  40.     SECTION keyhandler
  41.  
  42. *------ Main procedure
  43. _ResetHandler
  44.     move.l  MySignal(a1),d0
  45.     movea.l MyTask(a1),a1
  46.     LINKEXE Signal
  47.     rts
  48.  
  49.     END
  50.