开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > 查看源码
key.asm
资源名称：length.rar　[点击查看]
上传用户：sdjqgc
上传日期：2022-08-06
资源大小：2404k
文件大小：6k
源码类别：

嵌入式/单片机编程

开发平台：

Asm

key.asm：源码内容
  1. //========================================================================================
  2. // Progarm: The head file for key.asm in assembly view
  3. // Arranged by: Andy Hsu
  4. // Modified by Arthur Shieh
  5. // Last modified date: 
  6. //  2000/06/23: first version
  7. // 2000/07/20: modified
  8. //      2002/5/31 : Modified by Arthur Shieh to use IOA8~IOA15 for keyscan
  9. //
  10. // Functions:
  11. //  F_Key_Scan_Initial;
  12. //  F_Key_Scan_ServiceLoop;
  13. //  F_Key_DebounceCnt_Down;
  14. //
  15. // call F_SP_GetCh;
  16. //========================================================================================
  17. .INCLUDE SPCE061A.inc;
  18. .public _F_Key_Scan_Initial
  19. .PUBLIC F_Key_Scan_Initial;
  20. .public _F_Key_Scan_ServiceLoop
  21. .PUBLIC F_Key_Scan_ServiceLoop;
  22. .PUBLIC _SP_GetCh;
  23. .PUBLIC _SP_GetCh_1;
  24. .PUBLIC F_SP_GetCh;
  26. .PUBLIC R_KeyStrobe;
  28. .public _F_KeyScan;
  30. .define Port_Key P_IOA_Data
  31. .define Port_Key_Dir P_IOA_Dir
  32. .define Port_Key_Attrib P_IOA_Attrib
  33. .define Port_Key_Buffer P_IOA_Buffer
  35. .define M_MASK 0x00ff
  36. .define M_ScanBegin 0x0001
  37. .define M_KeyNumber 0x0008
  38. //////////////////////////////////////////////////////////////////
  39. // RAM Define Area
  40. //////////////////////////////////////////////////////////////////
  41. .RAM
  42. .VAR R_DebounceReg; //for keyboard scan
  43. //.DEFINE C_DebounceCnt 0x0008;
  44. .DEFINE C_DebounceCnt 0x0006;
  45. .VAR R_KeyStrobe; //for keyboard scan
  47. .var R_KeyCounter //key down counter
  48. .var R_Keyflag //save the key flag
  49. .var R_Keyoll //save the oll data of key
  51. .CODE
  52. //////////////////////////////////////////////////////////////////
  53. // Function: Initialization for F_Key_Scan_ServiceLoop
  54. //////////////////////////////////////////////////////////////////    
  55. _F_Key_Scan_Initial: 
  56. F_Key_Scan_Initial:
  57. r1 = 0x0000; //
  58. [R_KeyCounter] = r1; //
  59. [R_Keyflag] = r1;  //
  60. [R_Keyoll] = r1; //
  61. [R_KeyStrobe] = r1;
  62. r1 = [Port_Key_Dir]
  63. r2 = 0xffff
  64. r2^=M_MASK
  65. r1 = r1|r2
  66. [Port_Key_Dir] = r1
  67. r1 = [Port_Key_Attrib]
  68. r1 = r1|r2
  69. [Port_Key_Attrib] = r1
  70. r1 = [Port_Key_Buffer]
  71. r1 = r1|r2
  72. [Port_Key] = r1 
  73. // r1 = C_DebounceCnt; //
  74. // [R_DebounceCnt] = r1; //reset debounce counter
  75. retf;
  76. //////////////////////////////////////////////////////////////////
  77. // Function: Get Key code from key pad(8 x 1 key pad)
  78. // Input: Port IOA b15-b8
  79. // Output: R_KeyStrobe b7-b0
  80. //          |    |     |     | 
  81. // +Vcc --- x --- x ... x --- x ---   
  82. //          |     |     |     |
  83. //          IOA.15            IOA.8
  84. // Note: 1)link F_DebounceCntDown is necessary 
  85. // Destory register: r1, r2                                            
  86. ////////////////////////////////////////////////////////////////// 
  87. _F_Key_Scan_ServiceLoop:
  88. F_Key_Scan_ServiceLoop:
  89. r1 = [P_IOA_Data]; // get key data from IOA 
  90. // r1 ^= 0xff00//M_MASK
  91. r2 = M_MASK
  92. r1 &= R2
  93. jnz H_KeyHight //非零转
  94. r2 = [R_Keyoll]
  95. jnz L_KeyLow //上一次的键值非零，则转
  96. r1 = 0
  97. jmp L_KS_Exit2 //退出
  98. L_KeyLow:
  99. r2 = [R_Keyflag]
  100. test r2,0x0001
  101. jnz L_KeyLow_1 //标志位非零则转
  102. r2 = 0
  103. [R_KeyCounter] = r2
  104. [R_Keyflag] = r2
  105. [R_Keyoll] = r1
  106. r1 = 0
  107. jmp L_KS_Exit2 //退出
  108. L_KeyLow_1:
  109. r2 = 0
  110. [R_KeyCounter] = r2
  111. [R_Keyflag] = r2
  112. r1 = [R_Keyoll] //取上一次的键值
  113. r2 = 0
  114. [R_Keyoll] = r2
  115. jmp L_KeyGet //到判断优先级的程序
  117. H_KeyHight: //当次按键非零处理
  118. r2 = [R_KeyCounter]
  119. cmp r2,C_DebounceCnt  //比较
  120. ja H_KeyHight_1 //大于规定数，转
  121. r2+=1 //Counter++
  122. [R_KeyCounter] = r2
  123. jmp H_KeyHight_2
  124. H_KeyHight_1:
  125. r2 = [R_Keyflag] //flag 置位
  126. r2 |= 0x0001
  127. [R_Keyflag] = r2
  128. H_KeyHight_2:
  129. [R_Keyoll] = r1
  130. r1 = 0
  131. jmp L_KS_Exit2 //退出    
  133. //L_KeyGet:
  134. // r2 = r1 //键盘优先级而做的 begin....
  135. // r3 = 0x0080 //Edit by xinqiang 2004.12.21
  136. //L_KS_Renews2: //xinqiang@sunnorth.com.cn
  137. // r3 = r3 lsl 1 //tel:010-62981668-2916
  138. // test r3,0x2000 //
  139. // jz L_KS_Renews12 //
  140. // r1 = 0 //
  141. // jmp L_KS_Exit2 //
  142. //L_KS_Renews12: //
  143. // r1 = r1&r3 //
  144. // jnz L_KS_Exit2 //
  145. L_KeyGet:
  146. jmp L_KS_Exit2
  147. r1 = r2 //
  148. // jmp L_KS_Renews2 //....end
  149. L_KS_Exit2:
  150. [R_KeyStrobe] = r1; //save stable key code to R_KeyStrobe
  151. retf; //
  154. //****************************************************************
  155. // Function: Get Keycode for I/O Port                                 
  156. // Destory register: r1, r2                          
  157. //****************************************************************
  158. _SP_GetCh:
  159. F_SP_GetCh:
  160. push r2 to [SP];   
  161. r1 = [R_KeyStrobe]; // Get Key code
  162.         r2 = 0x0000; // Clear KeyStrobe for next key
  163.         [R_KeyStrobe] = r2; //
  164.         pop r2 from [SP];
  165.         retf;
  166. //****************************************************************
  167. // Function: Get Keycode for I/O 8 Port  Just for RECORD_KEY                                 
  168. // Destory register: r1                        
  169. //****************************************************************
  170. _SP_GetCh_1:
  171. F_SP_GetCh_1:
  172. r1 = [P_IOA_Data]; // Get Key code
  173.         r1 &= 0x0200
  174.         retf;
  175. //=================================================================//
  176. //name:F_KeyScan
  177. //for user: C function unsigned int F_KeyScan(void)
  178. //output:Key Sand data from Key1~5    Key1>>Key2>>Key3>>Key4>>Key5
  179. //note: noll
  180. //=================================================================//
  181. _F_KeyScan:.proc
  182. F_KeyScan:
  183. push r2,r5 to [sp]
  184. r1 = [Port_Key]
  185. r1 ^= M_MASK
  186. jnz F_KeyScan_Get1
  187. r1 = 0
  188. jmp F_KeyScan_Exit
  189. F_KeyScan_Get1:
  190. call F_Delay //call key Scan delay 10~18ms
  191. r1 = [Port_Key]
  192. r1 ^= M_MASK
  193. jnz F_KeyScan_Get2 //check the key again
  194. r1 = 0
  195. jmp F_KeyScan_Exit
  196. F_KeyScan_Get2:
  197. r2 = r1
  198. r3 = r1
  199. r1 = 0
  200. r4 = M_ScanBegin  //0x0001
  201. F_KeyScan_loop1:
  202. r1+=1
  203. r3 = r3&r4
  204. jnz F_KeyScan_Exit1
  205. cmp r1,M_KeyNumber  //8
  206. je F_KeyScan_Exit1
  207. r4 = r4 lsl 1
  208. r3 = r2
  209. jmp F_KeyScan_loop1
  210. F_KeyScan_Exit1:
  211. // r1 = r3
  212. F_KeyScan_Exit2:
  213. r3 = 0x0001
  214. [P_Watchdog_Clear] = r3
  215. r2 = [Port_Key]
  216. r2 ^= M_MASK
  217. jnz F_KeyScan_Exit2
  218. F_KeyScan_Exit:
  219. pop r2,r5 from [sp]
  220. retf
  221. .endp
  224. F_Delay:
  225. push r3 ,r5 to [sp]
  226. r3=0x6e6d//0xDCDB
  227. Dely_L:
  228. r4 = 0x0001
  229. [P_Watchdog_Clear] = r4
  230. r3-=1
  231. jnz Dely_L
  232. pop r3,r5 from [sp]
  233. retf
  234. //========================================================================================        
  235. // End of key.asm
  236. //========================================================================================