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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > 单片机开发 > 查看源码
LED.ASM
资源名称：2.rar　[点击查看]
上传用户：hb3158
上传日期：2020-11-29
资源大小：1k
文件大小：2k
源码类别：

单片机开发

开发平台：

HTML/CSS

LED.ASM：源码内容
  1. BAUD_REG EQU 0EH
  2. SPTEMP EQU 28H
  3. TXBUF EQU 30H
  4. RXBUF EQU 32H
  5. NUM EQU 34H
  6. FLAG EQU 36H
  7. AD_LOW EQU 02H
  8. AD_HIGH EQU 03H
  9. FLAG_0 EQU 38H
  10. CSEG AT 200CH
  11. DCW SP_INT
  13. CSEG AT 2080H
  14. LDB IOPORT1,#0
  15. LDB FLAG_0,#2
  16. MEAN:LDB AD_COMMAND,#00001000B
  17. NOP
  18. NOP
  20. ADBUSY1:JBS AD_LOW,3,ADBUSY1
  21. LDB AH,AD_HIGH
  22. LDB AL,AD_LOW
  23. SHR AX,#6
  24. ST AX,4004H
  25. LDB AD_COMMAND,#00001000B
  26. NOP
  27. NOP
  29. ADBUSY2:JBS AD_LOW,3,ADBUSY2
  30. LDB CH,AD_HIGH
  31. LDB CL,AD_LOW
  32. SHR CX,#6
  33. ST CX,4006H
  34. ADD AX,CX
  35. LDB AD_COMMAND,#00001000B
  36. NOP
  37. NOP
  39. ADBUSY3:JBS AD_LOW,3,ADBUSY3
  40. LDB CH,AD_HIGH
  41. LDB CL,AD_LOW
  42. SHR CX,#6
  43. ST CX,4008H
  44. ADD AX,CX
  45. LDB AD_COMMAND,#00001000B
  46. NOP
  47. NOP
  49. ADBUSY4:JBS AD_LOW,3,ADBUSY4
  50. LDB CH,AD_HIGH
  51. LDB CL,AD_LOW
  52. SHR CX,#6
  53. ST CX,400AH
  54. ADD AX,CX
  55. SHR AX,#2
  56. ST AX,4002H
  57. MULU AX,#500
  58. DIVU AX,#1023
  59. ST AX,4000H
  61. NEXT: LD SP,#0E0H
  63. LD IOC1,#00100000B
  64. LDB BAUD_RATE,#26H
  65. LDB BAUD_RATE,#80H
  66. LDB SP_CON,#00001001B
  67. STB SBUF,AL
  68. CLRB FLAG
  69. LD TXBUF,#4000H
  70. LD RXBUF,#4010H
  71. LDB NUM,#13
  72. LDB INT_MASK,#01000000B
  74. EI
  75. LDB SBUF,[TXBUF]+
  77. WAIT: LJMP WAIT
  79. SP_INT:
  80. PUSHF
  81. LDB SPTEMP,SP_STAT
  82. JBS SPTEMP,5,TX
  83. JBS SPTEMP,6,RX
  85. RETURN:
  86. CLRB SPTEMP
  87. POPF
  88. RET
  90. TX: JBS FLAG,0,RETURN
  91. DECB NUM
  92. JE MEAN2
  93. LDB FLAG,#1
  94. LDB SBUF,[TXBUF]+
  95. SJMP RETURN
  97. RX: JBC FLAG,0,RETURN
  98. LdB FLAG,#0
  99. LDB AL,SBUF
  100. STB AL,[RXBUF]+
  101. SJMP RETURN
  102.  LIGHT: LDB 0FH,#01
  103.        LJMP RETURN
  104. MEAN2:
  105. DECB FLAG_0
  106. JE LIGHT
  107. LDB AD_COMMAND,#00001010B
  108. NOP
  109. NOP
  111. ADBUSY5:JBS AD_LOW,3,ADBUSY5
  112. LDB AH,AD_HIGH
  113. LDB AL,AD_LOW
  114. SHR AX,#6
  115. ST AX,4024H
  116. LDB AD_COMMAND,#00001000B
  117. NOP
  118. NOP
  120. ADBUSY6:JBS AD_LOW,3,ADBUSY6
  121. LDB CH,AD_HIGH
  122. LDB CL,AD_LOW
  123. SHR CX,#6
  124. ST CX,4026H
  125. ADD AX,CX
  126. LDB AD_COMMAND,#00001000B
  127. NOP
  128. NOP
  130. ADBUSY7:JBS AD_LOW,3,ADBUSY7
  131. LDB CH,AD_HIGH
  132. LDB CL,AD_LOW
  133. SHR CX,#6
  134. ST CX,4028H
  135. ADD AX,CX
  136. LDB AD_COMMAND,#00001000B
  137. NOP
  138. NOP
  140. ADBUSY8:JBS AD_LOW,3,ADBUSY8
  141. LDB CH,AD_HIGH
  142. LDB CL,AD_LOW
  143. SHR CX,#6
  144. ST CX,402AH
  145. ADD AX,CX
  146. SHR AX,#2
  147. ST AX,4022H
  148. MULU AX,#500
  149. DIVU AX,#1023
  150. ST AX,4020H
  152. NEXT2: LD SP,#0E0H
  153. LD IOC1,#00100000B
  154. LDB BAUD_RATE,#26H
  155. LDB BAUD_RATE,#80H
  156. LDB SP_CON,#00001001B
  157. STB SBUF,AL
  158. CLRB FLAG
  159. LD TXBUF,#4020H
  160. LD RXBUF,#4030H
  161. LDB NUM,#13
  162. LDB INT_MASK,#01000000B
  163. EI
  164. LDB SBUF,[TXBUF]+
  166. WAIT2: LJMP WAIT
  168. END