;单片机交通灯程序,黄灯闪6次转红灯1分,然后黄灯6次转绿灯1分钟
STR: ACALL YELLO
MOV A,#81H
MOV P1,A
ACALL DEONE
ACALL YELLO
MOV A,#24H
MOV P1,A
ACALL DEONE
JMP STR
YELLO:MOV R4,#6
YELLO1:MOV A,#42H
MOV P1,A
ACALL DELY
MOV A,#00H
MOV P1,A
ACALL DELY
DJNZ R4,YELLO1
RET
DEONE:MOV R3,#60
DEONE1:ACALL DELY
DJNZ R3,DEONE1
RET
DELY: MOV R5,#20
DELY0:MOV R7,#200
DEL1: MOV R6,#123
NOP
DEL2: DJNZ R6,DEL2
DJNZ R7,DEL1
DJNZ R5,DELY0
RET
END