单片机时钟设计实习 主程序 附带注释.doc

D8255A EQU 8000H ;8255 PA 口地址 D8255B EQU 8001H ;8255 PB 口地址 D8255C EQU 8002H ;8255 PC 口地址 D8255 EQU 8003H ;8255 状态/命令口地址 LEDBUF EQU 20H ;显示缓存 ORG 0000H ;从0000H存储单元开始 LJMP START ORG 000BH ;定时器T0中断入口地址 LJMP TTI ORG 0100H START: MOV SP,#80H ;堆栈地址 MOV DPTR,#D8255 ;状态命令口地址 MOV A,#80H ;方式0,PB,PC口输出 MOVX @DPTR,A MOV TMOD,#01H ;选择方法,定时器T0,方式1 MOV TH0,#3CH ;定时器T0赋初值 MOV TL0,#0B0H MOV 26H,#00H ;数码管赋初值 MOV 25H,#00H MOV 24H,#00H MOV 23H,#00H MOV 22H,#00H MOV 21H,#00H MOV 20H,#00H LOOP: MOV IE,#82H ;开中断 LOOP1: JNB P1.0,LOOP1 ;P1.0若为0，则转移到LOOP1;若不为0，则向下执行 SETB TR0 ;开定时器T0 SHOW: LCALL DISPLAY ;调用显示子程序 LOOP2:JNB P1.1,LOOP3 ;P1.1若为0，则转移到LOOP3;若不为0，则向下执行 SJMP LOOP4 ;跳转到LOOP4 LOOP3:CLR TR0 ;关定时器T0 SJMP SHOW ;跳转到SHOW LOOP4:SETB TR0 ;开定时器T0 SJMP SHOW ;跳转到SHOW ;-----------显示子程序------------- Display: MOV R7,#6 ;6个数码管 MOV R5,#0 MOV R0,#LEDBUF ;显示缓存 DLOOP: MOV A,R5 RL A RL A RL A ANL A, INC R5 ;R5加1 MOV DPTR,#D8255C ; PC 口地址 MOVX @DPTR,A ;点亮对应的LED MOV A,@R0 MOV DPTR,#LEDSEG ;查表 MOVC A,@A+DPTR INC R0 ;R0加1 MOV DPTR,#D8255B ;PB 口地址 MOVX @DPTR,A ;显示数据 LCALL Delay ;调用Delay DJNZ R7,DLOOP ;减1不为0,则转移到DLOOP RET Delay: PUSH R7 MOV R7,#200 DelayLoop: NOP DJNZ R7,DelayLoop ;减1不为0,则转移到DelayLoop