數(shù)碼管顯示1234567

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