单片机交通信号灯程序

;单片机交通灯程序,黄灯闪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