+=

简单交通灯

ORG 0000H
LJMP START
ORG  000BH
LJMP L0

START:MOV P1,#00H
 MAIN:     MOV 55H,#5
      MOV 50H,#20
      MOV 51H,#30
      MOV 40H,#30
      MOV 41H,#15
      MOV TMOD,#01H
      MOV TH0,#3CH
      MOV TL0,#0B0H

      SETB TR0
      SETB ET0
      SETB  EA
      SETB P1.1








  



LOOK:ACALL DIS 
AJMP LOOK

;MOV A, #30
;DEC A
;CJNE A,#00,START
;CPL EA
/*L1:PUSH PSW
     PUSH ACC

     MOV TH0,#3CH
     MOV TL0,#0B 
DJNZ  51H,RET10
  MOV 50H,#20
CPL  C

DJNZ 51H,L11

L11:MOV P1.1,C

RET10:POP ACC
POP PSW
RETI


*/
L0:  
     PUSH PSW
     PUSH ACC

     MOV TH0,#3CH
     MOV TL0,#0B0H
     SETB P1.1




  DJNZ  50H,RET1
  MOV 50H,#20

  MOV A,40H
 DEC A
 MOV 40H,A
JZ RET2
CJNE A,#00,RET1
RET2:
MOV P0,00H
SETB P2.1
SETB P2.0;MOV 40H,#30
SETB P1.0
ACALL DELAY1S
CLR  P1.0
ACALL DELAY1S
DJNZ 55H,CCC
CCC:CLR EA

RET1:POP ACC
POP PSW
RETI



DIS:

MOV A,40H
   MOV B,#10
    DIV AB

MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P0,A
CLR P2.0
ACALL DELAY1m
SETB P2.0


MOV A,B
MOVC A,@A+DPTR
MOV P0,A
CLR P2.1
ACALL DELAY1m
SETB P2.1
RET
SS:
MOV A,41H
   MOV B,#10
    DIV AB

MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P0,A
CLR P2.2
ACALL DELAY1m
SETB P2.2


MOV A,B
MOVC A,@A+DPTR
MOV P0,A
CLR P2.3
ACALL DELAY1m
SETB P2.3
RET
DELAY1S:MOV R5,#5
DE11   :MOV R6,#20
DE12   :MOV R7,#28
DE13   :DJNZ R7,DE13
        DJNZ R6,DE12
        DJNZ R5,DE11

DELAY1m:MOV  R3,#66H
DL0:MOV R4,#03H
DJNZ R4,$
DJNZ R3,DL0
RET
TAB :  DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END