專注差異化嵌入式產(chǎn)品解決方案 給智能產(chǎn)品定制注入靈魂給予生命
提供開發(fā)工具、應(yīng)用測(cè)試 完善的開發(fā)代碼案例庫分享
從全面的產(chǎn)品導(dǎo)入到強(qiáng)大技術(shù)支援服務(wù) 全程貼心伴隨服務(wù),創(chuàng)造無限潛能!
提供新的芯片及解決方案,提升客戶產(chǎn)品競(jìng)爭(zhēng)力
提供最新的單片機(jī)資訊,行業(yè)消息以及公司新聞動(dòng)態(tài)
十年專注單片機(jī)方案開發(fā)的方案公司英銳恩,分享共陰數(shù)碼管顯示從0顯示到9的程序。英銳恩現(xiàn)提供服務(wù)產(chǎn)品涉及主控芯片:8位單片機(jī)、16位單片機(jī)、32位單片機(jī)及各類運(yùn)算放大器等。
一個(gè)共陰數(shù)碼管顯示從0顯示到9。
;****************************************************************
;一個(gè)共陰數(shù)碼管顯示的程序
; 喜歡單片機(jī)
; 05.08.22
; FILE LED1
;****************************************************************
LIST P=16F84A,R=DEC ;定義器件為16F84,默認(rèn)數(shù)制為十進(jìn)制
;-----------------------------------------------
__CONFIG B'11111111110001';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
;沒有代碼保護(hù)
;看門狗關(guān)閉
;上電廷時(shí)器開啟
;振蕩器模式為XT
;---------------------
PCL EQU 02H ;變量單元定義
STATUS EQU 03H
PORTA EQU 05H
PORTB EQU 06H
TRISA EQU 5H
TRISB EQU 6H
;-----------------------STATUS
RP0 EQU 5
Z EQU 2
;-----------------------
SUBDATA0 EQU 10H
SUBDATA1 EQU 11H
SUBDATA2 EQU 12H
SUBDATA3 EQU 13H
TABADD EQU 14H
ABC EQU 15H
;--------------------
ORG 0000H
NOP
GOTO MAIN
MAIN
CLRF PORTA
CLRF PORTB ;初始IO口
BSF STATUS,RP0 ;設(shè)置數(shù)據(jù)寄存器體1
MOVLW 00000000B ;設(shè)置RB、RA口全部為輸出
MOVWF TRISA
MOVWF TRISB
BCF STATUS,RP0 ;恢復(fù)數(shù)據(jù)寄存器體0
CLRF SUBDATA0 ;清除數(shù)顯緩存器內(nèi)容
CLRF SUBDATA1
CLRF SUBDATA2
CLRF SUBDATA3
CALL DISPLAY
MOVLW 00H
DISPLAY
MOVLW 00H
MOVWF PORTB
LOOP
MOVF SUBDATA0,W
CALL CABIAO
MOVWF PORTB
CALL DELAY1S
INCF SUBDATA0
MOVLW .10
SUBWF SUBDATA0,W
BTFSS STATUS,Z
GOTO LOOP
GOTO MAIN
CABIAO
ADDWF PCL,F
RETLW 3FH ;0
RETLW 06H ;1
RETLW 5BH ;2
RETLW 4FH ;3
RETLW 66H ;4
RETLW 6DH ;5
RETLW 7DH ;6
RETLW 07H ;7
RETLW 7FH ;8
RETLW 6FH ;9
DELAY1S
MOVLW 06H
MOVWF 20H
DELAY1_1
MOVLW 0EBH
MOVWF 21H
DELAY1_2
MOVLW 0ECH
MOVWF 22H
DELAY1_3
DECFSZ 22H,1
GOTO DELAY1_3
DECFSZ 21H,1
GOTO DELAY1_2
DECFSZ 20H,1
GOTO DELAY1_1
RETURN
END