Đây là mã code
ORG 0H
MAIN:
CLR P3.0 ;CO DINH DAU VAO
CLR P3.1
CLR P3.2
SETB P3.3
MOV DPTR,#BM
CALL CHUYENDOI
CALL TRE
CALL QUETLED
SJMP MAIN
;===================
CHUYENDOI:
SETB P2.5 ;KHOI DONG
CLR P2.5
JB P2.6,N1 ;BAT DAU CHUYEN DOI
N1:
CLR P2.7 ;CHUYEN VAO CHAN OUT
SETB P2.7
MOV A,#123 ;GAN VAO CHAN P1
CALL HIENTHI
;===================
HIENTHI:
MOV B,#10
DIV AB
MOV 40H,B ;DON VI
MOV B,#10
DIV AB
MOV 42H,A ; TRAM
MOV 41H,B ; CHUC
RET
;=====================
QUETLED:
MOV P0,#0C6H ; DUA KI HIEU C
SETB P2.0
CALL TRE
CLR P2.0
MOV P0,#9CH ; KI HIEU DO
SETB P2.1
CALL TRE
CLR P2.1
MOV A,40H ;SO HANG DON VI
MOVC A,@A+DPTR
MOV P0,A
SETB P2.2
CALL TRE
CLR P2.2
MOV A,41H ;SO HANG CHUC
MOVC A,@A+DPTR
MOV P0,A
SETB P2.3
CALL TRE
CLR P2.3
MOV A,42H ;SO HANG TRAM
MOVC A,@A+DPTR
MOV P0,A
SETB P2.4
CALL TRE
CLR P2.4
;============================
TRE:
MOV R7,#50
LOP:
DJNZ R7,LOP
RET
;===============
BM:
DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
; KY HIEU 'D0' KY HIEU 'C'
;DB 9CH 0C6H
END
ORG 0H
MAIN:
CLR P3.0 ;CO DINH DAU VAO
CLR P3.1
CLR P3.2
SETB P3.3
MOV DPTR,#BM
CALL CHUYENDOI
CALL TRE
CALL QUETLED
SJMP MAIN
;===================
CHUYENDOI:
SETB P2.5 ;KHOI DONG
CLR P2.5
JB P2.6,N1 ;BAT DAU CHUYEN DOI
N1:
CLR P2.7 ;CHUYEN VAO CHAN OUT
SETB P2.7
MOV A,#123 ;GAN VAO CHAN P1
CALL HIENTHI
;===================
HIENTHI:
MOV B,#10
DIV AB
MOV 40H,B ;DON VI
MOV B,#10
DIV AB
MOV 42H,A ; TRAM
MOV 41H,B ; CHUC
RET
;=====================
QUETLED:
MOV P0,#0C6H ; DUA KI HIEU C
SETB P2.0
CALL TRE
CLR P2.0
MOV P0,#9CH ; KI HIEU DO
SETB P2.1
CALL TRE
CLR P2.1
MOV A,40H ;SO HANG DON VI
MOVC A,@A+DPTR
MOV P0,A
SETB P2.2
CALL TRE
CLR P2.2
MOV A,41H ;SO HANG CHUC
MOVC A,@A+DPTR
MOV P0,A
SETB P2.3
CALL TRE
CLR P2.3
MOV A,42H ;SO HANG TRAM
MOVC A,@A+DPTR
MOV P0,A
SETB P2.4
CALL TRE
CLR P2.4
;============================
TRE:
MOV R7,#50
LOP:
DJNZ R7,LOP
RET
;===============
BM:
DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
; KY HIEU 'D0' KY HIEU 'C'
;DB 9CH 0C6H
END