int0+int1.asm

ME500——51单片机的几个中断程序

;*******************************************************************
;*                                                                 *
;* ME500单片机开发系统演示程序 - INT0 INT1 中断计数                *
;*                                                                 *
;* 6位数码管显示(最大显示255)                                      *
;*                                                                 *
;* 版本： V1.0 (2006/11/20)                                        *
;* 作者： gguoqing (Email: [e-mail])                    *
;* 网站： www.willar.com(伟纳电子)   www.mcusj.com(伟纳单片机世界) *
;* 邮箱： [e-mail]                                       *
;*                                                                 *
;*【版权】Copyright(C)伟纳电子 www.willar.com  All Rights Reserved *
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！       *
;*                                                                 *
;*******************************************************************

           K5   BIT  P3.3
           IR   BIT  P3.2

           DISSTART  EQU   40H    ;显示单元首地址
           LED_DATA  EQU   P0     ;数码管数据口定义
           COUNT0    EQU   30H
           COUNT1    EQU   31H
           
;*******************************************************************

           ORG  0000H
           JMP  MAIN
           ORG  0003H
           JMP INT0_EX0
           ORG  0013H
           JMP INT1_EX1
           ORG  0030H
           
;*********************************************************

; 主程序

;*********************************************************
MAIN:
           MOV  SP,#60H
           MOV  P0,#0FFH
           MOV  P2,#0FFH
           MOV  30H,#00H       ;计数单元清零
           MOV  31H,#00H
           MOV  R0,#40H
CLR1:
           MOV  @R0,#00H       ;清显存单元
           INC  R0
           CJNE  R0,#4FH,CLR1
                      
           CLR   IT0           ;INT0为电平触发
;          SETB  IT0           ;INT0为下降沿触发
           CLR   IT1           ;INT1为电平触发
;          SETB  IT1           ;INT1为下降沿触发
           SETB  PX0
           SETB  EA
           SETB  EX0
           SETB  EX1        
MAIN1:
           CALL  CONVT
           CALL  PLAY
           JMP   MAIN1

;*********************************************************

; INT0 外部中断服务子程序

;*********************************************************
INT0_EX0:
           PUSH  ACC
           PUSH  PSW
           SETB  RS0
           CLR   RS1
           CLR  EX0
           INC  COUNT0
           MOV  R4,#10
EX0_DEL:
           MOV A,COUNT0         ;显示INT0计数
           CALL CONVT
           CALL  PLAY
           DJNZ  R4,EX0_DEL

           CJNE  A,#0FFH,EX0_END
           MOV  COUNT0,#00H
EX0_END:
           SETB  EX0
           POP  PSW
           POP  ACC
           RETI

;*********************************************************

; INT1 外部中断服务子程序

;*********************************************************
INT1_EX1:
           PUSH  ACC
           PUSH  PSW
           SETB  RS0
           SETB  RS1
           CLR  EX1
           INC  COUNT1
           MOV  R4,#10
EX1_DEL:
           MOV A,COUNT1        ;显示INT1计数
           CALL CONVT
           CALL  PLAY
           DJNZ  R4,EX1_DEL

           CJNE  A,#0FFH,EX1_END
           MOV  COUNT1,#00H
EX1_END:
           SETB  EX1
           POP  PSW
           POP  ACC
           RETI
           
;*********************************************************

;数据转换 (HEX TO BCD)

;*********************************************************
CONVT:
         MOV  A,COUNT0       ;INT0 计数值处理
         MOV  B,#100
         DIV  AB
         MOV  DISSTART+2,A   ;百位存放在DISSTART+2
         MOV  A,#10
         XCH  A,B
         DIV  AB
         MOV  DISSTART+1,A   ;十位存放在DISSTART+1
         MOV  DISSTART,B     ;个位存放在DISSTART

         MOV  A,DISSTART+2
         CJNE  A,#00H,CONVT1
         MOV  DISSTART+2,#0AH    ;高位为0，不显示
         MOV  A,DISSTART+1
         CJNE  A,#00H,CONVT1
         MOV  DISSTART+1,#0AH
CONVT1:         
         MOV  A,COUNT1         ;INT1 计数值处理
         MOV  B,#100
         DIV  AB
         MOV  DISSTART+7,A     ;百位存放在DISSTART+7
         MOV  A,#10
         XCH  A,B
         DIV  AB
         MOV  DISSTART+6,A     ;十位存放在DISSTART+6
         MOV  DISSTART+5,B     ;个位存放在DISSTART+5

         MOV  A,DISSTART+7
         CJNE  A,#00H,CONVT_END
         MOV  DISSTART+7,#0AH    ;高位为0，不显示
         MOV  A,DISSTART+6
         CJNE  A,#00H,CONVT_END
         MOV  DISSTART+6,#0AH
CONVT_END:         
         MOV  DISSTART+4,#0AH    ;不显示
         MOV  DISSTART+3,#0AH         
         RET
         
;*********************************************************

; 数码管显示子程序

;*********************************************************
PLAY:
         MOV R0,#DISSTART      ;获得显示单元首地址
         MOV R1,#07FH          ;从第一个数码管开始
         MOV R2,#08H           ;共显示8位数码管
DISP1:
         MOV A,@R0             ;获得当前位地址
         MOV DPTR,#TAB_NU      ;获得表头
         MOVC A,@A+DPTR        ;查表获得显示数据
         MOV LED_DATA,A        ;显示数据
         MOV P2,R1             ;开始显示当前位
         MOV A,R1              ;准备显示下一位
         RR A
         MOV R1,A              ;下一位
         INC R0                ;取下一个单元地址
         LCALL DELAY1MS        ;延时 2 MS
         DJNZ R2,DISP1         ;重复显示下一个
         MOV  P2,#0FFH         ;关闭显示
         RET                   ;显示完成，返回

;*********************************************************

;延时子程序

;*********************************************************
DELAY1MS:
         MOV  R6,#5
DEL1:
         MOV  R7,#100
         DJNZ  R7,$
         DJNZ  R6,DEL1
         RET

;*********************************************************

TAB_NU:
    DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H
    DB 080H,090H,0FFH
    
;*********************************************************
         END