;*******************************************************************************
;- INT0中斷計數      3位數碼管顯示     P3.2接按鍵，計數                        *
;*******************************************************************************
;  日期:  2008-2-25 硬件： 數碼管P0,數碼管控制P2   			       *
;  版本:  3.0                                                                  *
;  作者:  深圳志博電子有限公司     專業8051單片機教學站                        *
;  郵箱: zty0012001@163.com                                                       *
;  網站： 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