实现一个24小时制的电子钟程序，在实验箱的6个数码管上显示时分秒（用定时器0中断更新计时时间，时间值以压缩BCD码形式保存在内部RAM的30H31H和32H单元）。
PC机可通过串行口发送要设置的时间给单片机（发送的时间格式为压缩BCD码），单片机接收到设置时间后从该时间继续计时（此为串口调时功能）。

代码

;数码管接到CS0，位选地址8001，段选地址8002
;R7:数码管位，R6:T0中断次数，R5R4:演示程序，R3:2位BCD转十进制暂存，R0:指针ORG 0000HLJMP MAINORG 000BH; T0_INTLJMP T0_INTORG 0023H;串口中断LJMP S_INTORG 0050H
MAIN:;初始化定时器MOV TMOD, #21HMOV TL0, #40536 MOD 256  ;T0定时50msMOV TH0, #40536 / 256MOV TL1, #232;设置波特率为2400MOV TH1, #232SETB EASETB ET0SETB ESSETB TR0SETB TR1MOV PCON, #80H;波特率倍增MOV SCON, #50HMOV R7, #01H;用于循环左移，选择某个数码管，从秒的个位开始MOV R6,#40;T0每中断20次，更新一次数码管时间MOV R0,#32H;指针 SJMP $T0_INT:MOV TL0, #40536 MOD 256  ;T0重装初值MOV TH0, #40536 / 256DJNZ R6,T0LOOP;没到1s，只刷新显示MOV R6,#40;重装计数值
T0LOOP1:MOV A,@R0LCALL TBCD2DCJNE R0,#30H,T0L1CJNE A,#23,JIASJMP T0L2T0L1:	CJNE A,#59,JIA
T0L2:    MOV @R0, #00H;59+1=0DEC R0;如果溢出，则判断前一个数CJNE R0,#2FH, T0LOOP1JIA:INC A;如果没溢出，就+1；然后再恢复成BCD码LCALL D2TBCDMOV @R0, AMOV R0, #32H;恢复R0的数值，准备刷新数码管
T0LOOP:MOV A,@R0LCALL SHOWMOV A,@R0SWAP ALCALL SHOWDEC R0CJNE R0, #2FH,T0LOOP;刷新显示MOV R7, #01HMOV R0,#32HRETIS_INT:;串口中断服务程序JNB RI,$CLR RIMOV A, SBUFLCALL TBCD2DPUSH ACCCLR CCJNE R0,#30H,s1SUBB A,#24SJMP s2
s1: SUBB A,#60
s2:	POP ACCJC storeCLR A
store:LCALL D2TBCDMOV @R0,ADEC R0CJNE R0, #2FH,S_INTMOV R0,#32HRETISHOW:;把A的底4位当作BCD码，送入数码管显示，每调用一次，位选左移一次PUSH ACCMOV A,R7MOV DPTR,#8001HMOVX @DPTR,ARL AMOV R7,APOP ACCANL A,#0FHMOV DPTR,#TABMOVC A,@A+DPTR;获取字形码MOV DPTR,#8002HMOVX @DPTR,A;写入字形码LCALL DELAYCLR AMOVX @DPTR,A;写入字形码RETTBCD2D:;把A的内容当作两位BCD数据，转换成对应十进制数，并放回APUSH ACC;保护ACC，等下还要用ANL A,#0FH;MOV R3, APOP ACCSWAP AANL A, #0FHMOV B, #10MUL ABADD A,R3;高4位*10+低4位RETD2TBCD:;把A的内容当作十进制数，转换成对应两位BCD数据，并放回AMOV B, #10DIV AB;十位在A，个位在BSWAP AORL A, B;数据合并RETDELAY:;10ms则X=23,Y=204MOV R5,#20
D1:	MOV R4,#20DJNZ R4,$DJNZ R5,D1RET	
;	   0   1    2   3   4   5   6   7   8   9
TAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FHEND