- duydaica đã viết:
- aj co bai dem tu 1234->5678 ko up len cho mjnh
thanks nhjeu
ORG 00H
MAIN:
MOV 63H,#0F9H ;HANG NGAN 1
MOV 62H,#0A4H ;HANG TRAM 2
MOV 61H,#0B0H ;HANG CHUC 3
MOV 60H,#099H ;HANG DON VI 4
MP1:
LCALL DELAY_SCAN ;DELAY VA QUET HIEN THI
INC 60H ;TANG HANG DON VI
MOV A,60H
CJNE A,#10,MP1 ;KIEM TRA HANG DON VI > 9
MOV 60H,#00H ;XOA HANG DON VI (DON VI = 0)
INC 61H ;TANG HANG CHUC
MOV A,61H
CJNE A,#10,MP1 ;KIEM TRA HANG CHUC > 9
MOV 61H,#00H ;XOA HANG CHUC (CHUC = 0)
INC 62H ;TANG HANG TRAM
MOV A,62H
CJNE A,#7,MP1 ;KIEM TRA HANG TRAM > 6
MOV 62H,#00H ;XOA HANG TRAM (TRAM = 0)
INC 63H ;TANG HANG NGAN
MOV A,63H
CJNE A,#6,MP1 ;KIEM TRA HANG NGAN > 5
// BAN VIET NOT CHUONG TRINH TU 00 DEN 78 TAI DAY
SJMP MAIN
;---------------------------------------------
;CTC TAO THOI GIAN TRE 250MS CO GOI CTC QUET HIEN THI
DELAY_SCAN:
PUSH 00H
MOV R0,#50
MOV TMOD,#01H
LOOP2:
MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
SETB TR0
SCAN:
LCALL DISP7SEG ;GOI CTC QUET HIEN THI
JNB TF0,SCAN
CLR TR0
CLR TF0
DJNZ R0,LOOP2
POP 00H
RET
;--------------------------------------------
;CTC QUET HIEN THI
DISP7SEG:
PUSH ACC
PUSH 00H
MOV A,#0F7H ;MA QUET
MOV R0,#63H ;DIA CHI VUNG MA HIEN THI
DISP:
MOV P2,@R0 ;XUAT MA HIEN THI
MOV P1,A ;XUAT MA QUET
LCALL DELAYLED
MOV P1,#0FFH
DEC R0 ;LAY MA HIEN THI KE TIEP
RR A ;CHUYEN SANG LED KE TIEP
CJNE R0,#5FH,DISP
POP 00H
POP ACC
RET
;-----------------------------------------------
;CTC TAO THOI GIAN TRE 5MS
DELAYLED:
PUSH 00H
PUSH 01H
MOV R1,#5
DEL: MOV R0,#250
DJNZ R0,$
DJNZ R1,DEL
POP 01H
POP 00H
RET
END