十字路交通灯控制系统设计-交通灯控制电路 第10页
ORG 0
LJMP START
ORG 0003H
LJMP SUB
ORG 30H
START: MOV SP,#60H
MOV IE,#81H
www.751com.cn
CLR P1.2
CLR P1.3
S2: MOV A,#7AH
LCALL TRAMIT
MOV A,#9EH
LCALL TRAMIT
MOV A,#0A7H
LCALL TRAMIT
MOV A,#0E9H
LCALL TRAMIT
LJMP S2
TRANS: MOV SBUF,A
JNB TI,$
CLR TI
RET
TRAMIT: MOV R5,A
SETB P1.1
www.751com.cn
MOV A,#3FH
MOV TMOD,#10H
MOV TH1,#3CH
MOV TL1,#0B0H
SETB TR1
LCALL OUT
MOV R6,#5BH
LCALL GEWEI
MOV R6,#06H
LCALL GEWEI
MOV R6,#3FH
LCALL GEWEI
RET
OUT: JBC TF1,L1
MOV P2,R6
CLR P3.6
SJMP OUT
L1: MOV TH1,#3CH
MOV TL1,#0B0H
SETB P3.6
L3: JBC TF1,L4
CLR P3.7
MOV P2,A
SJMP L3
L4: SETB P3.7
MOV TH1,#3CH
MOV TL1,#0B0H
DJNZ R3,OUT
MOV R3,#10
RET
GEWEI: MOV R4,#10
MOV DPTR,#TAB
S0: MOV A,#00H
MOVC A,@A+DPTR
INC DPTR
LCALL OUT
DJNZ R4,S0
RET
DEL5: MOV R3,#10
MOV R6,#3FH
MOV A,#6DH
MOV TMOD,#10H
MOV TH1,#3CH
MOV TL1,#0B0H
SETB TR1
LCALL OUT
LCALL GEWEI2
RET
GEWEI2: MOV R4,#5
MOV DPTR,#FIVE
S20: MOV A,#00H
MOVC A,@A+DPTR
INC DPTR
LCALL OUT
DJNZ R4,S20
RET
SUB: PUSH ACC
PUSH PSW
PUSH P1
CLR P1.1
CLR P1.3
SETB P1.2
MOV A,#0FFH
LCALL TRANS
LCALL DEL25
PUSH P1
POP ACC
POP PSW
RETI
FIVE:DB 66H,4FH,5BH,06H,3FH
TAB:DB 6FH,7FH,07H,7DH,6DH,66H,4FH,5BH,06H,3FH
END
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]