大家一起来猜猜程序有问题吗？

2019-03-25 19:17发布

站内问答 / PIC单片机
2657 8 1494
  1. list p = 16f876a
  2. #include
  3. __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_OFF & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF & _DEBUG_ON

  5. CBLOCK 0X20
  6. W_TEMP ;定义保护W寄存器的备份寄存器位于bank0地址0x20处，注意bank1的0xa0，bank2的0x120，bank3的0x1a0都必须留给w_temp
  7. STATUS_TEMP ;定义保护STATUS寄存器的备份单元
  8. PCH_TEMP ;定义保护PCLATH寄存器的备份单元
  9. FSR_TEMP ;定义保护FSR寄存器的备份单元
  10. COUNT1
  11. COUNT2
  12. COUNT3
  13. ENDC

  15. ORG 0X0000
  16. NOP
  17. GOTO main

  19. ORG 0X0004
  20. CALL INT_PROTECT
  21. CLRF PCLATH ;跳转前设定正确的PCLATH
  22. GOTO INT_TABLE ;跳转到中断查询表






  29. main:
  30. CALL RB0_INT_INIT
  31. ;中断产生后进入中断服务程序，查询INTF中断标志位。
  32. ;若INTF = 1，则处理RB0/INT中断，处理完毕后(或处理前)软件必须清除INTF中断标志位
  33. banksel TRISA
  34. BCF TRISA,2
  35. banksel PORTA
  36. BSF PORTA,2 ;LED_OUTSIDE ON

  38. loop:
  39. GOTO loop

  41. ;************************中断初始化*************************
  42. RB0_INT_INIT:

  44. BANKSEL TRISB ;片选bank1
  45. BSF TRISB,0 ;RB0为输入模式
  46. ;BCF OPTION_REG,7 ;使能弱上拉
  47. BCF OPTION_REG,INTEDG ;下降沿中断
  48. BANKSEL PORTB ;返回到bank0
  49. BCF INTCON,INTF ;确保有效中断发生前中断标志为0
  50. BSF INTCON,INTE ;允许RB0/INT中断响应
  51. BSF INTCON,GIE ;打开总中断允许使能位
  52. RETURN

  54. ;************************中断保护******************************
  55. INT_PROTECT:
  56. ;保护中断现场
  57. MOVWF W_TEMP ;立即把W寄存器复制到备份寄存器中
  58. MOVF STATUS,W ;把STATUS放置到W寄存器中暂存，虽然movf指令执行结果会改变STATUS，但在发生变化之前原内容以送进W
  59. ;此指令也可以用“swapf status,w”，在最后恢复时需用swapf指令配对
  60. CLRF STATUS ;此时可以改变STATUS，设定RP1:RP0 = 00,指向bank0
  61. MOVWF STATUS_TEMP ;把存在W的原STATUS的值复制到其备份单元
  62. MOVF PCLATH,W ;把原PCLATH的值复制到W
  63. MOVWF PCH_TEMP ;把存在W的原PCLATH的值复制到其备份单元
  64. MOVF FSR,W ;把原FSR的值复制到W
  65. MOVWF FSR_TEMP ;把存在W的原FSR的值复制到其备份单元
  66. ;...................;保护其他需要备份的寄存器

  68. ;到此，全部寄存器已经妥善保护，可以执行中断服务代码了
  69. RETURN

  71. ;*************************中断恢复**********************************
  72. INT_EXIT:
  73. ;中断服务程序出口
  74. CLRF STATUS ;设定RP1:RP0 = 00,指向bank0
  75. ;............. ;恢复其他要恢复的寄存器
  76. MOVF FSR_TEMP,W ;取FSR保护的内容
  77. MOVWF FSR ;恢复FSR
  78. MOVF PCH_TEMP,W ;取PCLATH保护的内容
  79. MOVWF PCLATH ;恢复PCLATH
  80. MOVF STATUS_TEMP,W ;取STATUS保护的内容
  81. MOVWF STATUS ;恢复STATUS
  82. ;到此，除W寄存器外所有其他保护寄存器已经全部恢复
  83. ;在接下来的恢复W寄存器过程中千万不能破坏他们的内容
  84. SWAPF W_TEMP,F ;先把W_TEMP的内容高低半字节交换一次
  85. SWAPF W_TEMP,W ;再把W_TEMP的内容高低半字节交换一次，但结果放在W内 ；用法说明详见P58页
  86. RETFIE ;中断返回，GIE被自动置1，可以响应其他中断

  88. ;************************中断源查询程序******************************************
  89. INT_TABLE:
  90. BTFSS INTCON, T0IE ;TIMER0中断使能标志位T0IE是否为1，为1跳
  91. GOTO RB0_INT_ASK
  92. BTFSC INTCON, T0IF ;TIMER0是否发生中断，为0跳
  93. GOTO TMR0_INT_START ;是，跳到TMR0_INT_START中断程序
  94. RB0_INT_ASK:
  95. BTFSC INTCON, INTF
  96. GOTO INT_RB4_LED_ON_OR_OFF

  98. ;**************************中断服务程序**********************************************
  99. INT_RB4_LED_ON_OR_OFF:
  100. CALL INT_PROTECT
  101. BCF INTCON,INTF ;先将中断标志位清0，保证下次中断发生
  102. BTFSC PORTB,4 ;为1(即灭)则点亮，为0(即亮)则跳点灭
  103. GOTO AAA
  104. CALL LED_GREEN_OFF
  105. CALL INT_EXIT
  106. AAA:
  107. CALL LED_GREEN_ON
  108. CALL INT_EXIT
  109. ;******************************LED_GREEN_ON***************************************
  110. LED_GREEN_ON:
  111. BANKSEL TRISB
  112. BCF TRISB,4 ;RB4为输出状态
  113. BANKSEL PORTB
  114. BCF PORTB,4 ;RB4为低电平，点亮
  115. RETURN

  117. ;*******************************LED_GREEN_OFF*************************************
  118. LED_GREEN_OFF:
  119. BANKSEL TRISB
  120. BCF TRISB,4 ;RB4为输出状态
  121. BANKSEL PORTB
  122. BSF PORTB,4 ;RB4为高电平，点灭
  123. RETURN

  125. ;**********************************TMR0中断服务程序*******************************
  126. TMR0_INT_START:
  127. NOP
  128. ;*****************************延时程序********************************************
  129. DELAY_1s:
  130. MOVLW 0X06 ;1秒延迟
  131. MOVWF COUNT1

  133. delay1:
  134. MOVLW 0X0EB
  135. MOVWF COUNT2

  137. delay2:
  138. MOVLW 0X0EC
  139. MOVWF COUNT3

  141. delay3:
  142. DECFSZ COUNT3,F
  143. GOTO delay3
  144. DECFSZ COUNT2,F
  145. GOTO delay2
  146. DECFSZ COUNT1,F
  147. GOTO delay1
  148. RETURN

  150. end
复制代码背景：小菜我刚接触PIC单片机没多久，写了一个验证RB0/INT下降沿触发中断的程序，遇到了小麻烦，只能下降沿触发一次，后面出现下降沿触发点灯就没反应，不知为何，我用ISIS做了仿真不行。请诸位帮我分析分析，看看什么原因一起研究研究~附上仿真图 此帖出自小平头技术问答
友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。
8条回答
linearfly
2019-03-26 19:03
有C编译器啊，为啥不用？

一周热门 更多>

相关问题