數碼管顯示1234567

;數碼管顯示1234567
;*******************************************************************
;*  Date :  2004.4.20              　　                            *
;*  Support Mb:  0735-2197559    E-mail:c51cn@163.com              *
;*  Create by :鄧德武      http://www.c51.cn 更多例程請登陸網站    *
;*        網站單片機學習資料同步更新，敬請新老朋友隨時關注         *
;*******************************************************************
 AJMP MAIN
 ORG 0030H
MAIN:
 SETB P2.7
 CLR  P2.0      ;選中第一個數碼管
 MOV  P0,#0C0H   ;顯示0
 LCALL  DELAY     ; 調用延時
 MOV  P0,#0FFH  ;關顯示
 SETB P2.0
 CLR P2.1      ;選中第二個數碼管
 MOV  P0,#0F9H   ;顯示1，
 LCALL  DELAY
 MOV  P0,#0FFH
 SETB P2.1
 CLR P2.2       ;選中第三個數碼管
 MOV  P0,#0A4H   ;顯示2
 LCALL  DELAY
 MOV  P0,#0FFH
 SETB P2.2
 CLR P2.3       ;選中第四個數碼管
 MOV  P0,#0B0H   ;顯示3
 LCALL  DELAY
 MOV  P0,#0FFH
 SETB P2.3
 CLR P2.4       ;選中第五個數碼管
 MOV  P0,#99H    ;顯示4
 LCALL  DELAY
 MOV  P0,#0FFH
 SETB P2.4
 CLR P2.5       ;選中第六個數碼管
 MOV  P0,#92H    ; 顯示5
 LCALL  DELAY
 MOV  P0,#0FFH
        SETB P2.5
 CLR P2.6       ;選中第七個數碼管
 MOV  P0,#82H    ; 顯示6
 LCALL  DELAY
        MOV  P0,#0FFH
        SETB P2.6
 CLR P2.7       ;選中第八個數碼管
 MOV  P0,#0F8H    ; 顯示7
 LCALL  DELAY
        MOV  P0,#0FFH
 AJMP MAIN       ;重新開始
    DELAY:                     ;延時子程序
 MOV R7,#2
 NOP
 NOP
D1: MOV R6,#25
 SETB P3.3       ;小喇叭同時響
D2: DJNZ R6,D2
 CLR P3.3
 DJNZ R7,D1
 SETB P3.3
 RET
 END