LED數(shù)碼管匯編程序

DISPBUFEQU50H;50H,51H,52H,53H是顯示緩沖區(qū)
LED1EQUP2.0;第一位數(shù)碼管的位控制
LED2EQUP2.1;第二位數(shù)碼管的位控制

LED3EQUP2.2;第三位數(shù)碼管的位控制
LED4EQUP2.3;第四位數(shù)碼管的位控制
LED5EQUP2.4
LED6EQUP2.5
LED7EQUP2.6
LED8EQUP2.7
;==============================================================
org0000h
LJMPMAIN
ORG0003H
RETI
ORG000BH
RETI
ORG0013H
RETI
ORG001BH
RETI
ORG0023H
RETI
MAIN:
MOVR0,#50H
MOV65H,#2
MOV64H,#3
MOV63H,#5
MOV62H,#9
MOV61H,#5
MOV60H,#9
MOV59H,#1
MOV58H,#2

ACALLOUT
LOOP1:ACALLDISP;調(diào)用顯示程序

JNBP3.2,K1
JNBP3.3,K2

ACALLTIME
AJMPLOOP1
K1:LJMPCLEAR
K2:LJMPPAUSE
TIME:
MOVR0,#59H;指向毫秒計(jì)時(shí)單元
ACALLADD1;調(diào)用加1程序（加1毫秒操作）
MOVA,R3;毫秒數(shù)據(jù)放入A（R3為2位十進(jìn)制數(shù)組合）
CLRC;清進(jìn)位標(biāo)志
CJNEA,#60H,ADDS
ADDS:JCOUT;小于60毫秒時(shí)中斷退出
ACALLCLR0;大于或等于60毫秒時(shí)對秒計(jì)時(shí)單元清0
MOVR0,#61H;指向秒計(jì)時(shí)單元
ACALLADD1;調(diào)用加1程序（加1秒操作）
MOVA,R3;秒數(shù)據(jù)放入A（R3為2位十進(jìn)制數(shù)組合）
CLRC;清進(jìn)位標(biāo)志
CJNEA,#60H,ADDM
ADDM:JCOUT;小于60秒時(shí)中斷退出
ACALLCLR0;大于或等于60秒時(shí)對秒計(jì)時(shí)單元清0
MOVR0,#63H;指向分計(jì)時(shí)單元
ACALLADD1;分計(jì)時(shí)單元加1分鐘
MOVA,R3;分?jǐn)?shù)據(jù)放入A
CLRC;清進(jìn)位標(biāo)志
CJNEA,#60H,ADDH
ADDH:JCOUT;小于60分時(shí)中斷退出
ACALLCLR0;大于或等于60分時(shí)分計(jì)時(shí)單元清0
MOVR0,#65H;指向小時(shí)計(jì)時(shí)單元
ACALLADD1;小時(shí)計(jì)時(shí)單元加1小時(shí)
MOVA,R3;時(shí)數(shù)據(jù)放入A
CLRC;清進(jìn)位標(biāo)志
CJNEA,#24H,HOUR
HOUR:JCOUT;小于24小時(shí)中斷退出
ACALLCLR0;大于或等于24小時(shí)計(jì)時(shí)單元清零
OUT:
MOVDISPBUF,65H
MOVDISPBUF+1,64H
MOVDISPBUF+2,63H
MOVDISPBUF+3,62H
MOVDISPBUF+4,61H
MOVDISPBUF+5,60H
MOVDISPBUF+6,59H
MOVDISPBUF+7,58H

RETI
;======================================================================
;清零程序
;======================================================================
CLR0:
CLRA;清累加器
MOV@R0,A;清當(dāng)前地址單元
DECR0;指向前一地址
MOV@R0,A;前一地址單元清零
RET

;======================================================================
;加1子程序
;======================================================================
ADD1:
MOVA,@R0;取當(dāng)前計(jì)時(shí)單元數(shù)據(jù)到A
DECR0;指向前一地址
SWAPA;A中數(shù)據(jù)高四位與低四位交換
ORLA,@R0;前一地址中數(shù)據(jù)放入A中低四位
ADDA,#01H;A加1操作
DAA;十進(jìn)制調(diào)整
MOVR3,A;移入R3寄存器
ANLA,#0FH;高四位變0
MOV@R0,A;放回前一地址單元
MOVA,R3;取回R3中暫存數(shù)據(jù)
INCR0;指向當(dāng)前地址單元
SWAPA;A中數(shù)據(jù)高四位與低四位交換
ANLA,#0FH;高四位變0
MOV@R0,A;數(shù)據(jù)放入當(dāng)前地址單元中
RET
;======================================================================
;顯示程序
;======================================================================
DISP:
;-----------------------------------------------------------
MOVA,DISPBUF;取第一個(gè)待顯示數(shù)
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形碼
CPLA;
MOVP0,A;將字形碼送P0位（段口）
CLRLED1;開第一位顯示器位口
LCALLDELAY;延時(shí)5毫秒
SETBLED1;關(guān)閉第一位顯示器（開始準(zhǔn)備第二位的數(shù)據(jù)）
;-----------------------------------------------------------
MOVA,DISPBUF+1;取顯示緩沖區(qū)的第二位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR
CPLA;
MOVP0,A;將第二個(gè)字形碼送P0口
CLRLED2;開第二位顯示器
LCALLDELAY;延時(shí)5毫秒
SETBLED2;關(guān)第二位顯示
;-----------------------------------------------------------
MOVA,DISPBUF+2;取顯示緩沖區(qū)的第三位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形碼
CPLA;
MOVP0,A;將第三個(gè)字形碼送P0位（段口）
CLRLED3;開第三位顯示器位口
LCALLDELAY;延時(shí)5毫秒
SETBLED3;關(guān)閉第三位顯示器
;-----------------------------------------------------------
MOVA,DISPBUF+3;取顯示緩沖區(qū)的第四位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形碼
CPLA;
MOVP0,A;將第四個(gè)字形碼送P0位（段口）
CLRLED4;開第四位顯示器位口
LCALLDELAY;延時(shí)5毫秒
SETBLED4;關(guān)閉第四位顯示器
;-----------------------------------------------------------
MOVA,DISPBUF+4;取顯示緩沖區(qū)的第五位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形碼
CPLA
MOVP0,A;將第五個(gè)字形碼送P0位（段口）
CLRLED5;開第五位顯示器位口
LCALLDELAY;延時(shí)5毫秒
SETBLED5;關(guān)閉第五位顯示器

;-----------------------------------------------------------
MOVA,DISPBUF+5;取顯示緩沖區(qū)的第六位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形碼
CPLA
MOVP0,A;將第六個(gè)字形碼送P0位（段口）
CLRLED6;開第六位顯示器位口
LCALLDELAY;延時(shí)5毫秒
SETBLED6;關(guān)閉第六位顯示器

;-----------------------------------------------------------
MOVA,DISPBUF+6;取顯示緩沖區(qū)的第七位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形碼
CPLA
MOVP0,A;將第七個(gè)字形碼送P0位（段口）
CLRLED7;開第七位顯示器位口
LCALLDELAY;延時(shí)5毫秒
SETBLED7;關(guān)閉第七位顯示器

;-----------------------------------------------------------

MOVA,DISPBUF+7;取顯示緩沖區(qū)的第八位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形碼
CPLA
MOVP0,A;將第八個(gè)字形碼送P0位（段口）
CLRLED8;開第八位顯示器位口
LCALLDELAY;延時(shí)5毫秒
SETBLED8;關(guān)閉第八位顯示器

;-----------------------------------------------------------
RET
PAUSE:
ACALLDISP
JNBP3.2,K3
AJMPPAUSE
K3:acallCLEAR
CLEAR:
MOV58H,#0
MOV59H,#0
MOV60H,#0
MOV61H,#0
MOV62H,#0
MOV63H,#0
MOV64H,#0
MOV65H,#0
LJMPLOOP1
RETI




;======================================================================
;延時(shí)程序
;======================================================================
DELAY:
MOVR6,#20H;延時(shí)約5mS
D1:MOVR7,#10H
D2:DJNZR7,D2
DJNZR6,D1
RET
;======================================================================
DISPTAB:DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0ffh