Tweet
các bạn xem giúp mạch của mình . giờ mình muốn thêm phím nhấn đặt thời gian chỉnh bằng tay tăng giảm thời gian đèn xanh với đèn vàng hoặc đèn đỏ, thì thêm code vào thế nào cho hợp lý. Giả sử đặt phím nhấn vào post nào còn dư cũng được. Nhờ các giúp mình cái ,cảm ơn
code của mình đây:
ORG 00H
MAIN:
CALL CTA
CALL CTB
CALL CTC
CALL CTD
JMP MAIN
CTA:
MOV P1,#10000100B
MOV R0,#40
MOV R1,#50
LAPA:CALL HIENTHI
DEC R0
DEC R1
CJNE R0,#10,LAPA
RET
CTB:
MOV P1,#01000100B
MOV R0,#10
MOV R1,#10
LAPB:CALL HIENTHI
DEC R0
DEC R1
CJNE R0,#0,LAPB
RET
CTC:
MOV P1,#00110000B
MOV R0,#35
MOV R1,#30
LAPC:CALL HIENTHI
DEC R0
DEC R1
CJNE R0,#5,LAPC
RET
CTD:
MOV P1,#00101000B
MOV R0,#5
MOV R1,#5
LAPD:CALL HIENTHI
DEC R0
DEC R1
CJNE R0,#0,LAPD
RET
HIENTHI:
MOV R7,#100
QUET:
MOV P3,#00H
MOV A,R0
MOV B,#10
DIV AB
MOV DPTR,#MALED
MOVC A,@A+DPTR
MOV P2,A
SETB P3.0
CALL DELAY
CLR P3.0
MOV A,B
MOVC A,@A+DPTR
MOV P2,A
SETB P3.1
CALL DELAY
CLR P3.1
MOV A,R1
MOV B,#10
DIV AB
MOV DPTR,#MALED
MOVC A,@A+DPTR
MOV P2,A
SETB P3.2
CALL DELAY
CLR P3.2
MOV A,B
MOVC A,@A+DPTR
MOV P2,A
SETB P3.3
CALL DELAY
CLR P3.3
DJNZ R7,QUET
RET
MALED
B 11000000B,11111001B,10100100B,10110000B,10011001B, 10010010B,10000010B,11111000B,10000000B,10010000B
RET
DELAY:
MOV R4,#25
LAP:MOV R5,#35
LAPM:
NOP
DJNZ R5,LAPM
DJNZ R4,LAP
RET
END
code của mình đây:
ORG 00H
MAIN:
CALL CTA
CALL CTB
CALL CTC
CALL CTD
JMP MAIN
CTA:
MOV P1,#10000100B
MOV R0,#40
MOV R1,#50
LAPA:CALL HIENTHI
DEC R0
DEC R1
CJNE R0,#10,LAPA
RET
CTB:
MOV P1,#01000100B
MOV R0,#10
MOV R1,#10
LAPB:CALL HIENTHI
DEC R0
DEC R1
CJNE R0,#0,LAPB
RET
CTC:
MOV P1,#00110000B
MOV R0,#35
MOV R1,#30
LAPC:CALL HIENTHI
DEC R0
DEC R1
CJNE R0,#5,LAPC
RET
CTD:
MOV P1,#00101000B
MOV R0,#5
MOV R1,#5
LAPD:CALL HIENTHI
DEC R0
DEC R1
CJNE R0,#0,LAPD
RET
HIENTHI:
MOV R7,#100
QUET:
MOV P3,#00H
MOV A,R0
MOV B,#10
DIV AB
MOV DPTR,#MALED
MOVC A,@A+DPTR
MOV P2,A
SETB P3.0
CALL DELAY
CLR P3.0
MOV A,B
MOVC A,@A+DPTR
MOV P2,A
SETB P3.1
CALL DELAY
CLR P3.1
MOV A,R1
MOV B,#10
DIV AB
MOV DPTR,#MALED
MOVC A,@A+DPTR
MOV P2,A
SETB P3.2
CALL DELAY
CLR P3.2
MOV A,B
MOVC A,@A+DPTR
MOV P2,A
SETB P3.3
CALL DELAY
CLR P3.3
DJNZ R7,QUET
RET
MALED
B 11000000B,11111001B,10100100B,10110000B,10011001B, 10010010B,10000010B,11111000B,10000000B,10010000BRET
DELAY:
MOV R4,#25
LAP:MOV R5,#35
LAPM:
NOP
DJNZ R5,LAPM
DJNZ R4,LAP
RET
END
Attached Files
Comment