📄 hen gio.txt
字号:
PHIM EQU 33H
PTRAM_GIAY EQU 34H
//BO DEM HIEN THI
GIO_HT EQU 35H
PHUT_HT EQU 36H
GIAY_HT EQU 37H
//GIO PHUT GIAY HIEN TAI
GIO EQU 38H
PHUT EQU 39H
GIAY EQU 3AH
GIAY_HEN_1 EQU 3BH
PHUT_HEN_1 EQU 3CH
GIO_HEN_1 EQU 3DH
GIAY_HEN_2 EQU 3EH
PHUT_HEN_2 EQU 3FH
GIO_HEN_2 EQU 40H
GIAY_HEN_3 EQU 41H
PHUT_HEN_3 EQU 42H
GIO_HEN_3 EQU 43H
GIAY_HEN_4 EQU 44H
PHUT_HEN_4 EQU 45H
GIO_HEN_4 EQU 46H
GIAY_HEN_5 EQU 47H
PHUT_HEN_5 EQU 48H
GIO_HEN_5 EQU 49H
GIAY_HEN_6 EQU 4AH
PHUT_HEN_6 EQU 4BH
GIO_HEN_6 EQU 4CH
CO_AN BIT 11H
;=============== CHUONG TRINH CHINH ====================
ORG 00H
LJMP MAIN
ORG 0BH ;VECTO CUA BO DINH THOI 0
LJMP T0ISR
ORG 0023H
LJMP SISR
ORG 30H
MAIN:
MOV GIAY,#30
MOV PHUT,#22
MOV GIO,#23
MOV GIAY_HEN_1,#0
MOV PHUT_HEN_1,#23
MOV GIO_HEN_1,#23
MOV GIAY_HEN_2,#2
MOV PHUT_HEN_2,#23
MOV GIO_HEN_2,#23
MOV GIAY_HEN_3,#4
MOV PHUT_HEN_3,#23
MOV GIO_HEN_3,#23
MOV GIAY_HEN_4,#6
MOV PHUT_HEN_4,#23
MOV GIO_HEN_4,#23
MOV GIAY_HEN_5,#8
MOV PHUT_HEN_5,#23
MOV GIO_HEN_5,#23
MOV GIAY_HEN_6,#10
MOV PHUT_HEN_6,#23
MOV GIO_HEN_6,#23
MOV R0,#38H
MOV TMOD,#21H ;BO DINH THOI 0 CHE DO 16BIT , BO DINH 1 CHE DO 8BIT TU NAP LAI-> TAO TOC DO BAUD
MOV SCON,#50H
MOV TH1,#-3 ;TOC DO BAUD 9600
MOV IE,#92H ;CHO PHEP NGAT DO TIMER0
SETB TR1
SETB TR0 ;KHOI DONG TIMER0
SETB TF0
MAIN_LOOP:
ACALL IN_HEX
JNB CO_AN,KIEM_TRA_HEN_GIO
CLR CO_AN
MOV A,PHIM
CJNE A,#10,KIEM_TRA_CAI_DAT
GOI_CHINH_GIO:
LCALL CHINH_GIO
SJMP KIEM_TRA_HEN_GIO
KIEM_TRA_CAI_DAT:
CJNE A,#12,KIEM_TRA_HEN_GIO
ACALL CAI_DAT_HEN_GIO
KIEM_TRA_HEN_GIO:
LCALL SO_SANH
HIEN_THI_GIO_HIEN_TAI:
MOV GIO_HT,GIO
MOV PHUT_HT,PHUT
MOV GIAY_HT,GIAY
ACALL HT
AJMP MAIN_LOOP
;=============== START ========================
;CHUONG TRINH NGAT
T0ISR:
MOV TH0,#HIGH(-10000)
MOV TL0,#LOW(-10000)
INC PTRAM_GIAY
MOV R2,PTRAM_GIAY
CJNE R2,#100,THOAT
MOV PTRAM_GIAY,#0
INC GIAY
MOV R2,GIAY
CJNE R2,#60,THOAT
MOV GIAY,#0
INC PHUT
MOV R2,PHUT
CJNE R2,#60,THOAT
MOV PHUT,#0
INC GIO
MOV R2,GIO
CJNE R2,#24,THOAT
MOV GIO,#0
THOAT: RETI
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SISR:
JB TI,THOAT_NGAT
JNB RI,THOAT_NGAT
CLR RI
CJNE R0,#4DH,TIEP_TUC_LUU
MOV R0,#38H
;SJMP THOAT_NGAT
TIEP_TUC_LUU:
MOV @R0,SBUF
INC R0
THOAT_NGAT:
RETI
HT: MOV A,GIAY_HT
ACALL HTGIAY
MOV A,PHUT_HT
ACALL HTPHUT
MOV A,GIO_HT
ACALL HTGIO
RET
HTGIAY:
MOV B,#10
DIV AB
ADD A,#40H
MOV P2,A
ACALL DELAY
MOV A,B
ADD A,#50H
MOV P2,A
ACALL DELAY
RET
HTPHUT:
MOV B,#10
DIV AB
ADD A,#20H
MOV P2,A
ACALL DELAY
MOV A,B
ADD A,#30H
MOV P2,A
ACALL DELAY
RET
HTGIO:
MOV B,#10
DIV AB
ADD A,#00H
MOV P2,A
ACALL DELAY
MOV A,B
ADD A,#10H
MOV P2,A
ACALL DELAY
RET
DELAY:
MOV R7,#100
DJNZ R7,$
RET
;=============== CHUONG TRINH QUET PHIM ====================
IN_HEX:
MOV R3,#50H
BACK1:
ACALL GET_KEY
JNB 10,EXP1
DJNZ R3,BACK1
BACK2:
MOV R3,#50H
BACK3:
ACALL GET_KEY
JB 10,BACK2
DJNZ R3,BACK3
SETB CO_AN
MOV PHIM,R6
EXP1:
RET
;=============================
GET_KEY:
MOV A,#0FEH
MOV R5,#0
SCAN_ROW:
MOV P1,A
MOV R4,A
JNB P1.4,ROW_0
JNB P1.5,ROW_1
JNB P1.6,ROW_2
JNB P1.7,ROW_3
MOV A,R4
RL A
INC R5
CJNE R5,#4,SCAN_ROW
SJMP NO_CODE
ROW_0:
MOV A,R5
ADD A,#0
SETB 10
MOV R6,A
SJMP EXIT
ROW_1:
MOV A,R5
ADD A,#4
SETB 10
MOV R6,A
SJMP EXIT
ROW_2:
MOV A,R5
ADD A,#8
SETB 10
MOV R6,A
SJMP EXIT
ROW_3:
MOV A,R5
ADD A,#12
SETB 10
MOV R6,A
SJMP EXIT
NO_CODE:
CLR 10
EXIT:
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LUU_SO_NHAP:
MOV A,@R1
MOV B,#10
DIV AB
MOV A,B
MOV B,#10
MUL AB
ADD A,PHIM
MOV @R1,A
RET
;=================== CHINH GIO =====================
CHINH_GIO:
ACALL IN_HEX
JNB CO_AN,HIEN_THI_GIO_CHINH ;NHAY TOI DOAN CT HIEN THI GIO DANG CHINH
CLR CO_AN
MOV A,PHIM
CJNE A,#10,LUU_GIO_CHINH
LJMP CHINH_PHUT
LUU_GIO_CHINH: ;LUU GIA TRI GIO CHINH
MOV R1,#GIO
ACALL LUU_SO_NHAP
HIEN_THI_GIO_CHINH:
MOV GIO_HT,GIO ;NAP GIA TRI CAN HIEN THI VAO BO DEM HIEN THI GIO
MOV PHUT_HT,PHUT ;NAP GIA TRI CAN HIEN THI VAO BO DEM HIEN THI PHUUT
MOV GIAY_HT,GIAY ;NAP GIA TRI CAN HIEN THI VAO BO DEM HIEN THI GIAY
ACALL HT
SJMP CHINH_GIO
THOAT_CHINH_GIO:
RET
CHINH_PHUT:
ACALL IN_HEX
JNB CO_AN,HIEN_THI_PHUT_CHINH
CLR CO_AN
MOV A,PHIM
CJNE A,#10,LUU_PHUT_CHINH
LJMP CHINH_GIAY
LUU_PHUT_CHINH:
MOV R1,#PHUT
ACALL LUU_SO_NHAP
HIEN_THI_PHUT_CHINH:
MOV GIO_HT,GIO
MOV PHUT_HT,PHUT
MOV GIAY_HT,GIAY
ACALL HT
SJMP CHINH_PHUT
CHINH_GIAY:
ACALL IN_HEX
JNB CO_AN,HIEN_THI_GIAY_CHINH
CLR CO_AN
MOV A,PHIM
CJNE A,#10,LUU_GIAY_CHINH
RET
LUU_GIAY_CHINH:
MOV R1,#GIAY
ACALL LUU_SO_NHAP
HIEN_THI_GIAY_CHINH:
MOV GIO_HT,GIO
MOV PHUT_HT,PHUT
MOV GIAY_HT,GIAY
ACALL HT
SJMP CHINH_GIAY
;;;;;;;;;;;;;KET THUC CHUONG TRINH CHINH GIO;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;CHUONG TRINH CAI DAT HEN GIO;;;;;;;;
CAI_DAT_HEN_GIO:
;;;;;;;;;;;;;;;;CHINH GIO HEN 1;;;;;;;;;;;;;;;;;;;;;;;;
CHINH_GIO_HEN_1:
ACALL IN_HEX
JNB CO_AN,HIEN_THI_GIO_HEN_1
CLR CO_AN
MOV A,PHIM
CJNE A,#12,LUU_GIO_HEN_1
;TRUYEN GIO HEN LEN MAY TINH
clr TI
MOV SBUF,#0FFH
JNB TI,$
CLR TI
MOV SBUF,GIO_HEN_1
JNB TI,$
CLR TI
LJMP CHINH_PHUT_HEN_1
LUU_GIO_HEN_1:
MOV R1,#GIO_HEN_1
ACALL LUU_SO_NHAP
HIEN_THI_GIO_HEN_1:
MOV GIO_HT,GIO_HEN_1
MOV PHUT_HT,PHUT_HEN_1
MOV GIAY_HT,GIAY_HEN_1
ACALL HT
SJMP CHINH_GIO_HEN_1
CHINH_PHUT_HEN_1:
ACALL IN_HEX
JNB CO_AN,HIEN_THI_PHUT_HEN_1
CLR CO_AN
MOV A,PHIM
CJNE A,#12,LUU_PHUT_HEN_1
;TRUYEN GIO HEN LEN MAY TINH
MOV SBUF,#0FEH
JNB TI,$
CLR TI
MOV SBUF,PHUT_HEN_1
JNB TI,$
CLR TI
LJMP CHINH_GIAY_HEN_1
LUU_PHUT_HEN_1:
MOV R1,#PHUT_HEN_1
ACALL LUU_SO_NHAP
HIEN_THI_PHUT_HEN_1:
MOV GIO_HT,GIO_HEN_1
MOV PHUT_HT,PHUT_HEN_1
MOV GIAY_HT,GIAY_HEN_1
ACALL HT
SJMP CHINH_PHUT_HEN_1
CHINH_GIAY_HEN_1:
ACALL IN_HEX
JNB CO_AN,HIEN_THI_GIAY_HEN_1
CLR CO_AN
MOV A,PHIM
CJNE A,#12,LUU_GIAY_HEN_1
;TRUYEN GIO HEN LEN MAY TINH
MOV SBUF,#0FDH
JNB TI,$
CLR TI
MOV SBUF,GIAY_HEN_1
JNB TI,$
CLR TI
LJMP CHINH_GIO_HEN_2
LUU_GIAY_HEN_1:
MOV R1,#GIAY_HEN_1
ACALL LUU_SO_NHAP
HIEN_THI_GIAY_HEN_1:
MOV GIO_HT,GIO_HEN_1
MOV PHUT_HT,PHUT_HEN_1
MOV GIAY_HT,GIAY_HEN_1
ACALL HT
SJMP CHINH_GIAY_HEN_1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;CHINH GIO HEN 2
CHINH_GIO_HEN_2:
ACALL IN_HEX
JNB CO_AN,HIEN_THI_GIO_HEN_2
CLR CO_AN
MOV A,PHIM
CJNE A,#12,LUU_GIO_HEN_2
;TRUYEN GIO HEN LEN MAY TINH
MOV SBUF,#0FCH
JNB TI,$
CLR TI
MOV SBUF,GIO_HEN_2
JNB TI,$
CLR TI
LJMP CHINH_PHUT_HEN_2
LUU_GIO_HEN_2:
MOV R1,#GIO_HEN_2
ACALL LUU_SO_NHAP
HIEN_THI_GIO_HEN_2:
MOV GIO_HT,GIO_HEN_2
MOV PHUT_HT,PHUT_HEN_2
MOV GIAY_HT,GIAY_HEN_2
ACALL HT
SJMP CHINH_GIO_HEN_2
CHINH_PHUT_HEN_2:
ACALL IN_HEX
JNB CO_AN,HIEN_THI_PHUT_HEN_2
CLR CO_AN
MOV A,PHIM
CJNE A,#12,LUU_PHUT_HEN_2
;TRUYEN GIO HEN LEN MAY TINH
MOV SBUF,#0FBH
JNB TI,$
CLR TI
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -