home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 532.lha / PWKeys_v2.0 / PWkeys.i < prev    next >
Encoding:
Text File  |  1991-07-10  |  2.9 KB  |  172 lines
  1.  
  2.     IFND    DEVICES_INPUTEVENT_I
  3.     INCLUDE    'devices/inputevent.i'
  4.     ENDC
  5.  
  6.  
  7. ihs_Port    =0
  8. ihs_Interrupt    =MP_SIZE
  9. ihs_ID        =MP_SIZE+IS_SIZE
  10. ihs_MemEntry    =MP_SIZE+IS_SIZE+4
  11. ihs_Flags    =MP_SIZE+IS_SIZE+8
  12. ihs_PortName    =MP_SIZE+IS_SIZE+10
  13.  
  14. ihs_Start    MACRO
  15.         dcb.b        MP_SIZE    ; Message-Port structure
  16.         dcb.b        IS_SIZE    ; Interrupt structure
  17.         dc.l        'P_IH'    ; ID (Handler made by me)
  18.         dc.l        0    ; MemEntry
  19.         dc.w        0    ; Flags
  20.         PWkeys_PortName
  21.         EVEN
  22.         ENDM
  23.  
  24. RAMIGA        =IEQUALIFIER_RCOMMAND
  25. RSHIFT        =IEQUALIFIER_RSHIFT
  26. RALT        =IEQUALIFIER_RALT
  27. LAMIGA        =IEQUALIFIER_LCOMMAND
  28. LSHIFT        =IEQUALIFIER_LSHIFT
  29. LALT        =IEQUALIFIER_LALT
  30.  
  31. CTRL        =IEQUALIFIER_CONTROL
  32. CAPSLOCK    =IEQUALIFIER_CAPSLOCK
  33. SHIFT        =LSHIFT|RSHIFT
  34. ALT        =LALT|RALT
  35. AMIGA        =LAMIGA|RAMIGA
  36.  
  37. UPARROW        =$4C
  38. DOWNARROW    =$4D
  39. RIGHTARROW    =$4E
  40. LEFTARROW    =$4F
  41. KP0        =$0F
  42. KP1        =$1D
  43. KP2        =$1E
  44. KP3        =$1F
  45. KP4        =$2D
  46. KP5        =$2E
  47. KP6        =$2F
  48. KP7        =$3D
  49. KP8        =$3E
  50. KP9        =$3F
  51.  
  52. F1        =$50
  53. F2        =$51
  54. F3        =$52
  55. F4        =$53
  56. F5        =$54
  57. F6        =$55
  58. F7        =$56
  59. F8        =$57
  60. F9        =$58
  61. F10        =$59
  62.  
  63. SPACE        =$40
  64. BACKSPACE    =$41
  65. TAB        =$42
  66. ENTER        =$43
  67. RETURN        =$44
  68. ESC        =$45
  69. DEL        =$46
  70. HELP        =$5F
  71.  
  72. U_CODE            =20000
  73. U_QUAL            =0
  74.  
  75. W_TO_TOP        =0
  76. W_TO_BOTTOM        =1
  77. W_TO_LEFT        =2
  78. W_TO_RIGHT        =3
  79. W_TO_LEFT_TOP        =4
  80. W_TO_LEFT_BOTTOM    =5
  81. W_TO_RIGHT_TOP        =6
  82. W_TO_RIGHT_BOTTOM    =7
  83. W_TO_CENTER        =8
  84. W_TO_FRONT        =9
  85. W_TO_BACK        =10
  86. BACK_W_TO_FRONT        =11
  87. FRONT_W_TO_BACK        =12
  88. ACTIVATE_PREV_W        =13
  89. ACTIVATE_NEXT_W        =14
  90. MINIMIZE_W        =15
  91. MAXIMIZE_W        =16
  92. REFRESH_W        =17
  93. BACK_S_TO_FRONT        =18
  94. FRONT_S_TO_BACK        =19
  95. SUB_BITPLANE        =20
  96. ADD_BITPLANE        =21
  97. TOGGLE_INPUTLOCK    =22
  98. TOGGLE_FASTMOUSE    =23
  99. TOGGLE_SUNMOUSE        =24
  100. KeyFuncNumber        =25
  101.  
  102. HotKey_ID    =0        ; What identifies this hotkey
  103. HotKey_Code    =0        ; The hotkeys action-key
  104. HotKey_Qual    =2        ; The hotkeys qualifier-keys
  105. HotKey_Mask    =4        ; What distinguishes this hotkey from others with same code
  106. HotKey_Func    =4        ; Function to execute
  107. HotKey_FF    =5        ; Just mask
  108. HotKey_QMask    =6        ; 'OR'ed qualifiers of all hotkeys with same code
  109. HotKey_SIZE    =8
  110. HotKey        MACRO
  111. * HotKey_ID
  112.         dc.w        \1    ; HotKey_Code
  113.         dc.w        \2    ; HotKey_Qual
  114. * HotKey_Mask
  115.         dc.b        \4    ; HotKey_Func
  116.         dc.b        $FF    ; HotKey_FF
  117.         dc.w        \3    ; HotKey_QMask
  118.         ENDM
  119.  
  120. pw_ID        =0
  121. pw_Ver        =4
  122. pw_Rev        =6
  123. pw_Pri        =8
  124. pw_Pad1        =9
  125. pw_Accel    =10
  126. pw_Thresh    =11
  127. pw_MTimeout    =12
  128. pw_STimeout    =16
  129. pw_MWaitTime    =20
  130. pw_SWaitTime    =24
  131. pw_KeyNum    =28
  132. pw_KeyDefs    =30
  133. pw_VarPart    =pw_KeyDefs
  134. pw_KeyPart    =KeyFuncNumber*HotKey_SIZE
  135. pw_SIZE        =pw_VarPart+pw_KeyPart
  136.  
  137. PWkeysVersion    =2
  138. PWkeysRevision    =0
  139. * Default values
  140. PWkeysPri    =51
  141. PWkeysMSpeed    =3
  142. PWkeysMThresh    =1
  143. PWkeysMTimeout    =5
  144. PWkeysSTimeout    =300
  145.  
  146. * The strings below automatically changes to reflect the version/revision
  147. PWkeys_Name    MACRO
  148.         dc.b        'PWkeys V'
  149.         dc.b        '0'+PWkeysVersion
  150.         dc.b        '.'
  151.         dc.b        '0'+PWkeysRevision
  152.         ENDM
  153.  
  154. PWkeys_PortName    MACRO
  155.         PWkeys_Name
  156.         dc.b        ' Port',0
  157.         ENDM
  158.  
  159. SetPWkeys_Title    MACRO
  160.         dc.b        'Set'
  161.         PWkeys_Name
  162.         dc.b        ' 1991 by Preben Nielsen',0
  163.         ENDM
  164.  
  165. PWkeys_CON_Msg    MACRO
  166.         dc.b        10,$9B,'0;33m '
  167.         PWkeys_Name
  168.         dc.b        10
  169.         dc.b        $9B,'0;31m 1991 by ',$9B,'0;33mPreben Nielsen',$9B,'0;31m',10,' ',0
  170.         ENDM
  171.  
  172.