DATL EQU 30H ;计数低位

DATH EQU 31H ;计数高位

DATC EQU 32H ;计数进位

LEDBuf EQU 33H ;显示缓存

ORG 0000H

JMP MAIN

ORG 0003H

AJMP INT_0

ORG 0050H

MAIN:AJMP START

;*************************************

;显示子程序

LEDMAP: ; 八段管显示码

DB 3fh, 06h, 5bh, 4fh, 66h, 6dh, 7dh, 07h

DB 7fh, 6fh, 77h, 7ch, 39h, 5eh, 79h, 71h

LED:

MOV R0 ,#LEDBuf

MOV R1 ,#6 ; 共6个八段管

MOV R2 ,#00100000b ; 从左边开始显示

Loop:

MOV DPTR ,#8002H

MOV A ,#0

MOVX @DPTR,A ; 关所有八段管

MOV A ,@R0

MOV DPTR ,#8004H

MOVX @DPTR,A

MOV DPTR ,#8002H

MOV A ,R2

MOVX @DPTR,A ; 显示一位八段管

MOV R6 ,#1

MOV R7 ,#0

L:

DJNZ R7 ,L

DJNZ R6 ,L

MOV A ,R2 ; 显示下一位

RR A

MOV R2, A

INC R0

DJNZ R1 ,Loop

RET

;*******************************************

;中断服务子程序 (启动定时功能)

INT_0:

CLR EX0 ;关中断

MOV DATC ,#00H

MOV TH1 ,#00H

MOV TL1 ,#00H

JB P3。

3

SETB TR1 ;启动定时器1，但不计数

JNB P3。3 ,$ ;等待脉冲由低电平变为高电平 ;等待正脉冲

CH0: JNB TF1 ,CH1 ;计数没溢出，跳转

INC DATC

CLR TF1

MOV TH1 ,#00H ;装入初值

MOV TL1 ,#00H

SETB TR1 ;启动定时器

CH1: JB P3。

3 ,CH0 ;判断正脉冲是否结束

CLR TR1 ;停止计数

MOV A ,TL1

MOV DATL ,A

MOV A ,TH1

MOV DATH ,A

;************************************

; 计数值*机器周期(6MHz 为2us)

CLR C ;带进位左移等同乘2

MOV A ,DATL

RLC A

MOV DATL ,A

MOV A ,DATH

RLC A

MOV DATH ,A

MOV A ,DATC

RLC A

MOV DATC ,A

;*********************************

;数制转换

CLR A

MOV R3 ,A

MOV R4 ,A

MOV R5 ,A

MOV R7 ,#24

HB0:

MOV A ,DATL ;**********************

RLC A ;依次移出高位

MOV DATL ,A ;

MOV A ,DATH

RLC A

MOV DATH ,A

MOV A ,DATC

RLC A

MOV DATC ,A

MOV A ,R3 ;将累加器自身带进位相加(与*2等效)

ADDC A ,R3 ;累加器依次从低位开始

DA A

MOV R3 ,A

MOV A ,R4

ADDC A ,R4

DA A

MOV R4 ,A

MOV A ,R5

ADDC A ,R5

DA A

MOV R5 ,A

DJNZ R7 ,HB0 ;判断24位是否处理完

;****************************************

;压缩BCD码转换成非压缩BCD码

MOV DPTR ,#LEDMAP

MOV A ,R5

SWAP A

ANL A ,#0FH ;屏蔽高位

MOVC A ,@A+DPTR

MOV LEDBuF,A ;分离出第6位

MOV A ,R5

ANL A ,#0FH

MOVC A ,@A+DPTR

MOV LEDBuf+1,A ;分离出第5位

MOV A ,R4

SWAP A

ANL A ,#0FH ;屏蔽高位

MOVC A ,@A+DPTR

MOV LEDBuF+2,A ;分离出第4位

MOV A ,R4

ANL A ,#0FH

MOVC A ,@A+DPTR

MOV LEDBuf+3,A ;分离出第3位

MOV A ,R3

SWAP A

ANL A ,#0FH ;屏蔽高位

MOVC A ,@A+DPTR

MOV LEDBuF+4,A ;分离出第2位

MOV A ,R3

ANL A ,#0FH

MOVC A ,@A+DPTR

MOV LEDBuf+5,A ;分离出第1位

SETB EX0 ;开中断

RETI

;**********************************************

;主程序开始

START:

MOV SP ,#50H

MOV TMOD ,#90H ;设置定时器1的工作方式为1，GEAE置1

MOV TH1 ,#00H

MOV TL1 ,#00H ;定时器时间初值置零

MOV IE ,#81H ;开外部中断0

CALL LED ; 调显示

LJMP MAIN

END

。

全部