单片机--电子时钟（汇编）
加入技术交流群
;有些地方用十进制比较方便，并不是汇编里面都要用十六进制
本文引用地址：//m.amcfsurvey.com/article/201611/319589.htm;author:helloword
;CLRSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++++
;CALLDELAY;延时------->消隐
;SETBSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++
SMG_OEBITP1.3
SMG_DLBITP1.4
SMG_WLBITP1.5
SECONDEQU40H
MINUTEEQU41H
HOUREQU42H
FLAGEQU43H
ORG0000H
JMPSTART
ORG000BH
JMPINT_T0
ORG0040H
START:
MOVSECOND,#0
MOVMINUTE,#0
MOVHOUR,#0
MOVFLAG,#14H;14H就是十进制的20，20*50000=1s
MOVDPTR,#DUAN
MOVTMOD,#01H
MOVTH0,#03CH
MOVTL0,#0B0H
SETBTR0
SETBET0
SETBEA
S1:CALLDISPLAY
;-----------接下来的程序是控制时分秒的上限值------
C1:MOVA,SECOND
CJNEA,#60,C2;3CH就是十进制的60
MOVSECOND,#0
INCMINUTE
C2:MOVA,MINUTE
CJNEA,#60,C3;3CH就是十进制的60
MOVMINUTE,#0
MOVSECOND,#0
INCHOUR
C3:MOVA,HOUR
CJNEA,#24,L;18H就是十进制的24
MOVHOUR,#0
MOVMINUTE,#0
MOVSECOND,#0
;-----------判断结束----------------------
L:LJMPS1
DISPLAY:;数码管显示子程序
D1:;***********显示秒的两个数码管********************
SETBSMG_WL;P1.5数码管的位选
MOVP0,#0BFH;
CLRSMG_WL;
;-----------显示秒的高位
SETBSMG_DL;P1.4数码管的段选
MOVA,SECOND
MOVB,#10
DIVAB;A/B，除完之后商存在A中，余数存在B中
MOVCA,@A+DPTR;查表指令要使用MOVC
MOVP0,A
CLRSMG_DL
CLRSMG_OE;++++++++++++++++++++++++++++++++++++++++++++++
CALLDELAY;延时------->消隐
SETBSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++
;-----------显示秒的低位
SETBSMG_WL
MOVP0,#7FH
CLRSMG_WL
SETBSMG_DL
MOVA,B
MOVCA,@A+DPTR
MOVP0,A
CLRSMG_DL
CLRSMG_OE;++++++++++++++++++++++++++++++++++++++++++++++
CALLDELAY;延时------->消隐
SETBSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++
;***********秒的显示到此结束********************
D2:;***********显示分的两个数码管******************
SETBSMG_WL;P1.5数码管的位选
MOVP0,#0F7H;
CLRSMG_WL;
;-----------显示分的高位
SETBSMG_DL;P1.4数码管的段选
MOVA,MINUTE
MOVB,#10
DIVAB;A/B，除完之后商存在A中，余数存在B中
MOVCA,@A+DPTR;查表指令要使用MOVC
MOVP0,A
CLRSMG_DL
CLRSMG_OE;++++++++++++++++++++++++++++++++++++++++++++++
CALLDELAY;延时------->消隐
SETBSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++
;-----------显示分的低位
SETBSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++
SETBSMG_WL
MOVP0,#0EFH
CLRSMG_WL
SETBSMG_DL
MOVA,B
MOVCA,@A+DPTR
MOVP0,A
CLRSMG_DL
CLRSMG_OE;++++++++++++++++++++++++++++++++++++++++++++++
CALLDELAY;延时------->消隐
SETBSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++
;***********分的显示到此结束********************
D3:;***********显示小时的两个数码管****************
SETBSMG_WL;P1.5数码管的位选
MOVP0,#0FEH;
CLRSMG_WL;
;-----------显示小时的高位
SETBSMG_DL;P1.4数码管的段选
MOVA,HOUR
MOVB,#10
DIVAB;A/B，除完之后商存在A中，余数存在B中
MOVCA,@A+DPTR;查表指令要使用MOVC
MOVP0,A
CLRSMG_DL
CLRSMG_OE;++++++++++++++++++++++++++++++++++++++++++++++
CALLDELAY;延时------->消隐
SETBSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++
;-----------显示小时的低位
SETBSMG_WL
MOVP0,#0FDH
CLRSMG_WL
SETBSMG_DL
MOVA,B
MOVCA,@A+DPTR
MOVP0,A
CLRSMG_DL
CLRSMG_OE;++++++++++++++++++++++++++++++++++++++++++++++
CALLDELAY;延时------->消隐
SETBSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++
;***********小时的显示到此结束********************
;***********间隔符的显示********************
SETBSMG_OE;+++++++++++++++++++++++++++++++++++++++++++++
SETBSMG_WL;P1.5数码管的位选
MOVP0,#0DBH;DBH=11011011点亮相应的间隔符共阴，0点亮
CLRSMG_WL;
SETBSMG_DL;P1.4数码管的段选
MOVA,#40H;40H=01000000显示数码管g这一段共阴，0点亮
MOVP0,A
CLRSMG_DL
CLRSMG_OE;++++++++++++++++++++++++++++++++++++++++++++++
CALLDELAY;延时
RET
INT_T0:
MOVTH0,#03CH;(65536-50000)/256=60=3C
MOVTL0,#0B0H;(65536-50000)%6=176=B0
DJNZFLAG,RETURN
INCSECOND
MOVFLAG,#7H;#14H是十进制的2020*50000=1s
RETURN:RETI
DELAY:MOVR1,#20;延时子程序
DELAY1:MOVR2,#20
DJNZR2,$
DJNZR1,DELAY1
RET
WEI:DB7FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH
DUAN:DB03FH,06H,05BH,4FH,66H,6DH,07DH,07H,07FH,06FH
ENDSTART
评论