数码管动态显示

1、/作者：王攀/时间：2010-11-3/课题：九江学院/数码管显示543210/*/BUF0 DATA 30HBUF1 DATA 31HBUF2 DATA 32HBUF3 DATA 33HBUF4 DATA 34HBUF5 DATA 35HCOUNTER DATA 40HDISP64 DATA 36HRUNCOUNTER DATA 38H/程序开始/*ORG 0000HLJMP MAINORG 0003HLJMP INTORG 0100HMAIN:MOVSP,#7FHCLR IT0;启动外中断，低电平触发SETB EX0SETB EAMOV PCON,#02H ;进入掉电方式MOV P0,#0

2、FFHMOV R0,#BUF0MOV R1,#06HCLEAR:MOV R0,#0INC R0DJNZ R1,CLEARMOV DPTR,#TABLE MOV COUNTER,#0 ;位数初始化为0WHILE:CLR RS0 CLR RS1MOV R3,#BUF0 ;r3内容30hMOV R4,COUNTER ;r4内容位数值MOV DISP64,#80 ;显示次数80次,64次过快LCALL MOVE ;调用移位子函数MOV A,COUNTER CJNE A,#6,FBUF0 ;位数小于6给最低位赋值，否则退出LJMP CDISFBUF0: ;赋值MOVC A,A+DPTRMOVBUF0,A

3、INC COUNTER CDIS: LCALL DISP ;调用显示函数64次DJNZ DISP64,CDISDJNZ RUNCOUNTER,XUNMOV PCON,#02HXUN:LJMP WHILE ;循环MOVE:MOV A,R4CJNE A,#06H,NEXT NEXT:JNC MORE5; 没有借位表示counter大于5，跳转MCESS:MOV A,R4JZ EXITADD A,R3;得到buf+counter地址MOV R0,A;将地址送R0MOV A,R4ADD A,R3DEC A;得到buf+counter-1地址MOV R1,A;暂存地址MOV A,R1;将buf+coun

4、ter-1中内容取出传递给AMOV R0,A;将A中内容传给buf+counterDEC R4CJNE R4,#0,MCESSLJMP EXITMORE5:MOV R5,BUF5;将buf5寄存于r5MOV R4,#05HMCESS1:MOV A,R4ADD A,R3MOV R0,A;将地址送R0MOV A,R4ADD A,R3DEC A;得到buf+counter-1地址MOV R1,A;暂存地址MOV A,R1;将buf+counter-1中内容取出传递给AMOV R0,A;将A中内容传给buf+counterDEC R4CJNE R4,#0,MCESS1MOV BUF0,R5EXIT:RETDISP:CLR RS0SETB RS1MOVR1,#6MOV R0,#BUF0MOV37H,#7FHLOOP1:MOV A,R0MOVP0,AMOVP2,37HINCR0MOVA,37HRRAMOV37H,ALCALL DELAYMOVP2,#0FFH;关位选DJNZ R1,LOOP1RETINT:MOV PCON,#00HLCALL DELAYMOV P2,#0FFHMOV RUNCOUNTER,#18RETI/延时1ms/*DELAY: ;2+(247*2+3)*2+4MOVR7,#2LOOP:MOVR6,