51单片机汇编语言课程设计：交通灯控制系统

ORG 0000H
        LJMP MAIN0
        ORG 0030H
MAIN0:MOV 30H,#08H
            MOV R2,#10
        MOV R6,#00H
        MOV R7,#00H
        MOV TMOD,#01H
        MOV TL0,#03CH
        MOV TH0,#0B0H
        SETB TR0
        SETB EA
        SETB EX0
        SETB EX1
        CLR IT0
MAIN: MOV P0,#0F3H
       MOV R6,#80
       MOV R7,#77
       MAIN1:CALL DELAY
       CJNE R7,#00H,MAIN1
       MOV P0,#0F5H
MAIN2:CALL DELAY
        MOV R7,#00H
        CPL P0.1
        CJNE R6,#00H,MAIN2
        MOV P0,#0DEH
        MOV R6,#60
        MOV R7,#57
MAIN3:CALL DELAY
       CJNE R7,#00H,MAIN3
       MOV P0,#0EEH
       MAIN4:CALL DELAY
       ;MOV R7,#00H
       CPL P0.4
       CJNE R6,#00H,MAIN4
       JMP MAIN
DELAY:MOV DPTR ,#00E0H
             MOV A,R6
         MOV B,#0AH
             DIV AB
             MOVC A,@A+DPTR 
         MOV P1,A
         MOV A,R2
         MOV DPTR,#0100H
        MOVC A,@A+DPTR 
        MOV DPTR,#00E0H
        MOVC A,@A+DPTR
        MOV P2,A
        CJNE R2,#00H,LOOP1
        MOV R2,#10
 LOOP1:MOV R4,#100
LOOP2:MOV R3,#125
LOOP3:DJNZ R3,LOOP3
            DJNZ R4,LOOP2
        MOV R4,#100
LOOP4:MOV R3,#125 
LOOP5:DJNZ R3,LOOP5
            DJNZ R4,LOOP4 
        MOV R4,#100
LOOP6:MOV R3,#125
LOOP7:DJNZ R3,LOOP7
        DJNZ R4,LOOP6
        MOV R4,#100
LOOP8:MOV R3,#125
LOOP9:DJNZ R3,LOOP9
        DJNZ R4,LOOP8
        JBC TF0,LOOP
        AJMP DELAY
LOOP: MOV TL0,#03CH
       MOV TH0,#0B0H
       MOV A,30H
       DEC A
       MOV 30H,A
       JNZ DELAY
       DEC R6
       DEC R7
       DEC R2
       MOV 30H,#08H
       RET
ORG 00E0H
DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH
ORG 0100H
DB 01H,01H,02H,03H,04H,05H,06H,07H,08H,09H,00H
        END

 proteus8.9版本，管理员运行打开，否则无法打开器件库