数码管显示用延时.docVIP

数码管显示用延时 ;数码管0-9和9-0显示 ;晶振12HZ,AT89C52 ;编辑时间：2011-11-24 ;编辑人：无名 ;*************************************************** OUTPUT EQU P1 COUNT EQU 30H WE_LA BIT P2.0 DU_LA BIT P2.1 ORG 0000H AJMP START ORG 0030H ;******************开始******************************** START: MOV 30H,#0 ;赋初值 ;****************主程序***************************** MAIN: CALL DISPLAY INC COUNT ;自加一 MOV A,COUNT CJNE A,#9,MAIN ;判断是否等于，等于继续，不等于跳 LOOP: CALL DISPLAY ;自减一 DEC COUNT MOV A,COUNT CJNE A,#0FFH,LOOP ;判断是否等于，等于继续，不等于跳 MOV COUNT,#0 AJMP MAIN ;************************************************************888 DISPLAY: MOV A,COUNT ;赋值 MOV DPTR,#TAB MOVC A,@A+DPTR ;调用查表指令 MOV OUTPUT,#0FEH ;选位选 SETB WE_LA ;开为位选 CLR WE_LA ;锁位选 MOV OUTPUT,A ;送数据显示 SETB DU_LA ;开数位 CLR DU_LA ;锁数位 CALL DELAY ;调用延时子程序 CALL CLEAR ;调用扫屏子程序 RET ;******************延时子程序******************************** DELAY: MOV R7,#100 ;赋值 D1: MOV R6,#100 D2: MOV R5,#50 DJNZ R5,$ DJNZ R6,D2 DJNZ R7,D1 RET ;结束子程序 ;*******************扫屏子程序********************************* CLEAR: MOV OUTPUT,#0FFH SETB WE_LA CLR WE_LA MOV OUTPUT,#00H SETB DU_LA CLR DU_LA RET ;*******************查表列表******************************* TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,7H,7FH,6FH ;******************************************************************** END ;数码管动态显示12 ;晶振12HZ,AT89C52 ;编辑时间：2011-11-24 ;编辑人：无名 ;*************************************************** OUTPUT EQU P1 COUNT EQU 30H WE_LA BIT P2.0 DU_LA BIT P2.1 ORG 0000H AJMP START ORG 0030H ;***************开始************************************ START: MOV 30H,#12 ;赋值 MOV 31H,#0FEH ;赋值 ;****************主程序************************************ MAIN: MOV A,COUNT MOV B,#10 DIV AB ;相除 MOV DPTR,#TAB ;查表 LOOP: MOV OUTPUT,31H ;选位选 SETB WE_LA ;开位选 CLR WE_LA ;锁位选 MOVC A,@A+DPTR