int01.asm

来自「可以熟悉51单片机中断机制 大大方便学习51单片机」· 汇编 代码 · 共 221 行

;*******************************************************************************
; INT1+0中断计数 6位数码管显示，6位数码管显示，				                   *
;低三位数码管为显示外部中断INT0的计数值                                        *
;高三位数码管为显示外部中断INT1的计数值 硬件： 数码管P0,数码管控制P2           *
;P3.3接按键,高3位的计数触发， P3.2低三位的计数触发                             *
;*******************************************************************************
;  日期:  2008-2-25 硬件： 数码管P0,数码管控制P2   		       	               *
;  	P1.4 按键，P1.5按键，为触发方式选择，P3.3接按键，为计数键                  *
;  作者:  深圳志博电子有限公司     专业8051单片机教学站                        *
;  邮箱: [e-mail]                                                       *
;  网站： http://www.elecmcu.com     http://www.elecmcu.com    更多例程请登陆网站   *
;*******************************************************************************
;  硬件：此程序在本公司志博电子实验仪运行通过                           *
;*******************************************************************************
; 【版权】 Copyright(C)深圳志博电子有限公司 www.elecmcu.com  All Rights Reserved *
; 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;*******************************************************************************/
           K5   BIT  P3.3
           IR   BIT  P3.2
           LED_DATA  EQU   P0     ;数码管数据口定义
           COUNT0    EQU   40H
           COUNT1    EQU   41H

         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 48H             ;显示位序列，存储目前显示的是第几位 

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


         DISSTART  EQU  49H
;*******************************************************************
           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为电平触发
           CLR   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,A   ;百位存放在DISSTART+2
         MOV  A,#10
         XCH  A,B
         DIV  AB
         MOV  DISSTART+1,A   ;十位存放在DISSTART+1
         MOV  DISSTART+2,B     ;个位存放在DISSTART
         MOV  A,DISSTART
         CJNE  A,#00H,CONVT1
         MOV  DISSTART,#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+3,A     ;百位存放在DISSTART+7
         MOV  A,#10
         XCH  A,B
         DIV  AB
         MOV  DISSTART+4,A     ;十位存放在DISSTART+6
         MOV  DISSTART+5,B     ;个位存放在DISSTART+5
         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