int0.asm

可以熟悉51单片机中断机制 大大方便学习51单片机

;*******************************************************************************
;- INT0中断计数      3位数码管显示     P3.2接按键，计数                        *
;*******************************************************************************
;  日期:  2008-2-25 硬件： 数码管P0,数码管控制P2   			       *
;  版本:  3.0                                                                  *
;  作者:  深圳志博电子有限公司     专业8051单片机教学站                        *
;  邮箱: [e-mail]                                                       *
;  网站： http://www.elecmcu.com     http://www.elecmcu.com    更多例程请登陆网站   *
;*******************************************************************************
;  硬件：此程序在本公司志博电子实验仪运行通过                           *
;*******************************************************************************
; 【版权】 Copyright(C)深圳志博电子有限公司 www.elecmcu.com  All Rights Reserved *
; 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;*******************************************************************************
           IR   BIT   P3.2        ;红外接收口
           LED_DATA  EQU   P0     ;数码管数据口定义
           COUNT     EQU   30H
         DIS_1 BIT P0.5                 ;第一个数码管显示选择
         DIS_2 BIT P0.6                 ;第二个数码管显示选择
         DIS_3 BIT P0.7                 ;第三个数码管显示选择
         DIS_4 BIT P1.0                 ;第四个数码管显示选择
         DIS_5 BIT P1.1                 ;第五个数码管显示选择
         DIS_6 BIT P0.4                 ;第六个数码管显示选择

         DIS_DATA  DATA P2              ;6位数码管的公共数据口

         DIS_INDEX DATA 18H             ;显示位序列，存储目前显示的是第几位 

         DIS_BUFF  DATA 19H             ;显示缓冲区首地址 一共从0X19-0X1E 六个字节


         DISSTART  EQU  19H
;*******************************************************************
           ORG  0000H
           JMP  MAIN
           ORG  0003H
           JMP INT0_EX0
           ORG  0030H
;*******************************************************************
MAIN:
           MOV  SP,#60H
           MOV  P0,#0FFH
           MOV  P2,#0FFH
           MOV  30H,#00H
           SETB  IT0          ;INT1为下降沿触发
           SETB  EA
           SETB  EX0
           MOV 19H,#0X0A      ;以下三句话把前三位数码管全熄灭（即把显示缓冲区填10）
           MOV 1AH,#0X0A
           MOV 1BH,#0X0A
MAIN1:
           CALL  CONVT
           CALL  PLAY
           JMP   MAIN1
;*******************************************************************
INT0_EX0:
           PUSH  ACC
           PUSH  PSW
           SETB  RS0
           CLR   RS1
           CLR  EX0
           INC  COUNT
           MOV  R4,#14H        ;显示20次
EX0_DEL:
           MOV A,COUNT
           CALL CONVT
           CALL  PLAY
           DJNZ  R4,EX0_DEL

           CJNE  A,#0FFH,EX0_END
           MOV  COUNT,#00H
EX0_END:
           SETB  EX0
           POP  PSW
           POP  ACC
           RETI
;---------------------------------------------------------
;代码变换 (HEX TO BCD)
;---------------------------------------------------------
CONVT:
         MOV  A,COUNT
         MOV  B,#100
         DIV  AB
         MOV  DISSTART+3,A   ;百位存放在DISSTART＋2
         MOV  A,#10
         XCH  A,B
         DIV  AB
         MOV  DISSTART+4,A   ;十位存放在DISSTART＋1
         MOV  DISSTART+5,B     ;个位存放在DISSTART

         MOV  A,DISSTART+3
         CJNE  A,#00H,CONVT_END
         MOV  DISSTART+3,#0AH    ;高位为0，不显示
         MOV  A,DISSTART+4
         CJNE  A,#00H,CONVT_END
         MOV  DISSTART+4,#0AH
CONVT_END:
         RET
;---------------------------------------------------------
PLAY:                           ;显示子程序开始
                MOV DIS_INDEX,#00  ;初始化显示的数码管是第0位
DISPLAY_START:                     ;显示一位开始
                CALL OFF_ALL       ;调用子程序关闭所有数码管的显示
                MOV DIS_DATA,#00 ;  6个数目管的公共显示数据写0关闭
		MOV A, DIS_INDEX
DIS0_B:		CJNE A,#0X00,DIS1_B
		CLR DIS_1
		JMP MOV_DAT
DIS1_B:
		CJNE A,#0X01,DIS2_B
		CLR DIS_2
		JMP MOV_DAT
DIS2_B:
		CJNE A,#0X02,DIS3_B
		CLR DIS_3
		JMP MOV_DAT
DIS3_B:
		CJNE A,#0X03,DIS4_B
		CLR DIS_4
		JMP MOV_DAT
DIS4_B:
		CJNE A,#0X04,DIS5_B
		CLR DIS_5
		JMP MOV_DAT
DIS5_B:
		CJNE A,#0X05,DIS_END
		CLR DIS_6
		JMP MOV_DAT         ;以上程序根据现在的显示位数进行条件分支，分别打开相应的显示使能位
MOV_DAT:        
                MOV A, DIS_INDEX
                MOV R1,#DIS_BUFF
                ADD A,R1              
                MOV R0,A
                MOV A,@R0           ;获得目前的显示位所对应自己的缓冲数据
		MOV DPTR,#DIS_TAB
		MOVC A,@A+DPTR
		MOV  DIS_DATA,A     ;将目前的显示数据经过查表获得对应的数码管段码
                INC DIS_INDEX       ;显示位序加一，指向下一位
                MOV A,DIS_INDEX 
                CJNE A,#6,DISPLAY_START ;以上两句判断是否循环显示够6位是的话返回到被调用的位置 否则进行下一次循环
DIS_END:
		RET                     ;
OFF_ALL:                                 ;关闭所有显示位的子程序   
		SETB DIS_1        
		SETB DIS_2
		SETB DIS_3
		SETB DIS_4
		SETB DIS_5
		SETB DIS_6
                RET
DELAY:                                 ;延迟子程序
                MOV R6,#0X01
DELAY0:         MOV R5,#0XFF
DELAY1:         MOV R4,#0XFF
                DJNZ R4,$
                DJNZ R5,DELAY1
                DJNZ R6,DELAY0
                RET
DIS_TAB:                                ;0-9 所对应的数码管段码    最后一个00 是总关闭显示
		DB 0x7f,0x44,0xbd,0xf5,0xe6,0xf3,0xfb,0x65,0xff,0xf7,0x00
         END