home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / rkrm.lha / RKRM / Keyboard / Keyhandler.a < prev    next >
Encoding:
Text File  |  1992-09-03  |  3.0 KB  |  83 lines
  1. *
  2. * Copyright (c) 1992 Commodore-Amiga, Inc. 
  3. * 
  4. * This example is provided in electronic form by Commodore-Amiga, Inc. for 
  5. * use with the "Amiga ROM Kernel Reference Manual: Devices", 3rd Edition, 
  6. * published by Addison-Wesley (ISBN 0-201-56775-X).
  7. * 
  8. * The "Amiga ROM Kernel Reference Manual: Devices" contains additional 
  9. * information on the correct usage of the techniques and operating system 
  10. * functions presented in these examples.  The source and executable code 
  11. * of these examples may only be distributed in free electronic form, via 
  12. * bulletin board or as part of a fully non-commercial and freely 
  13. * redistributable diskette.  Both the source and executable code (including 
  14. * comments) must be included, without modification, in any copy.  This 
  15. * example may not be published in printed form or distributed with any
  16. * commercial product.  However, the programming techniques and support
  17. * routines set forth in these examples may be used in the development
  18. * of original executable software products for Commodore Amiga computers.
  19. * 
  20. * All other rights reserved.
  21. * 
  22. * This example is provided "as-is" and is subject to change; no
  23. * warranties are made.  All use is at your own risk. No liability or
  24. * responsibility is assumed.
  25. *
  26. ****************************************************************************
  27. *
  28. *       KeyHandler.a
  29. *
  30. * Keyboard reset handler that signals the task in the structure...
  31. *
  32. *
  33. * See Key_Reset.c for details on how to compile/assemble/link...
  34. *
  35. ************************************************************************
  36. * Required includes...
  37. *
  38. *       CSECT   KeyHandler      ;SAS/Lattice ASM command requires this
  39. *
  40.         INCDIR  "include:"
  41.         INCLUDE "exec/types.i"
  42.         INCLUDE "exec/io.i"
  43.         INCLUDE "devices/keyboard.i"
  44. *
  45.         xref    _AbsExecBase    ; We get this from outside...
  46.         xref    _LVOSignal      ; We get this from outside...
  47. *
  48. ************************************************************************
  49. * Make the entry point external...
  50. *
  51.         xdef    _ResetHandler
  52. *
  53. ************************************************************************
  54. *
  55. * This is the input handler
  56. * The is_Data field is passed to you in a1.
  57. *
  58. * This is the structure that is passed in A1 in this example...
  59. *
  60.         STRUCTURE       MyData,0
  61.         APTR            MyTask
  62.         ULONG           MySignal
  63. *
  64. ************************************************************************
  65. * The handler gets called here...
  66. *
  67. _ResetHandler:  move.l  MySignal(a1),d0 ; Get signal to send
  68.                 move.l  MyTask(a1),a1           ; Get task
  69. *
  70. * Now signal the task...
  71. *
  72.                 move.l  a6,-(sp)        ; Save the stack...
  73.                 move.l  _AbsExecBase,a6 ; Get ExecBase
  74.                 jsr     _LVOSignal(a6)  ; Send the signal
  75.                 move.l  (sp)+,a6        ; Restore A6
  76. *
  77. * Return to let other handlers execute.
  78. *
  79.                 rts                     ; return from handler...
  80. ************************************************************************
  81.                 END
  82.  
  83.