数码管显示用延时(国外英语资料).docVIP

数码管显示用延时(国外英语资料) ; Digital tubes 0-9 and 9-0 display ; Crystals 12 hz, AT89C52 ; Edit time: 2011-11-24 ; Editor: unknown ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * The OUTPUT EQU P1 COUNT 30 h EQU WE_LA BIT P2.0 DU_LA BIT P2.1 ORG 0000 h AJMP START ORG 0030 h ; * * * * * * * * * * * * * * * * * * to * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * START: MOV 30H, # 0; initialise ; * * * the main procedure * * * * * * * * * * * * MAIN: CALL DISPLAY INC COUNT; Since the plus one MOV. A, the COUNT CJNE A, # 9, MAIN; To determine is equal to, to continue, not to jump LOOP: CALL DISPLAY; Since the minus one DEC COUNT MOV. A, the COUNT CJNE A, # 0FFH, LOOP; To determine is equal to, to continue, not to jump MOV COUNT, # 0 AJMP MAIN ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 888 DISPLAY: MOV A, COUNT; The assignment MOV DPTR, # TAB MOVC A. Call the lookup instructions MOV OUTPUT, # 0FEH; To choose a SETB WE_LA; Open for a selected CLR WE_LA; Locks a selected MOV OUTPUT, A; Send data show SETB DU_LA; A digital CLR DU_LA; Digital lock CALL DELAY; Call the delay subroutine CALL the CLEAR; Invoke the scan subroutine RET ; * * * * * * * * * * * * * * * * * * delay subroutine * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * DELAY: MOV R7, # 100; The assignment D1: MOV R6, # 100 D2: MOV R5, # 50 DJNZ R5, $ DJNZ R6, D2 DJNZ R7, D1 RET; The end of the subroutine ; * * * * * * * * * * * * * * * * * * * sweep screen subroutine * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * CLEAR: MOV OUTPUT, # 0FFH SETB WE_LA The CLR WE_LA MOV OUTPUT, # 00 h SETB DU_LA The CLR DU_LA RET ; * * * * * * * * * * * * * * * * * * * look-up table list * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * TAB: DB 3FH, 06H, 4FH, 66H, 7DH, 7H ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *