基于匯編語言的簡易交通燈Proteus仿真代碼

設(shè)在十字路口，分為東西向和南北向，在任一時刻只有一個方向通行，另一方向禁行，持續(xù)一定時間，經(jīng)過短暫的過渡時間，將通行禁行方向?qū)�換。其具體狀態(tài)如下圖所示。說明：黑色表示亮，白色表示滅。交通狀態(tài)從狀態(tài)1開始變換，直至狀態(tài)6然后循環(huán)至狀1，周而復(fù)始.

仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）

單片機源程序如下:
ORG   0000H
    MOV   P0, #01111011B    ;P0.7=P0.2=0, 東西 南北 都是紅燈.
    XRL   P0, #255          ;取反，適合于高電平發(fā)光
    CALL DL3S
LOOP:
    MOV   P0, #11011011B    ;P0.5=P0.2=0, 南北綠 東西紅.
    XRL   P0, #255
    CALL DL15S
    MOV   P0, #10111011B    ;P0.6=P0.2=0, 南北黃 東西紅.
    XRL   P0, #255
    CALL DL3S
    MOV   P0, #01111110B    ;P0.7=P0.0=0, 南北紅 東西綠.
    XRL   P0, #255
    CALL DL15S
    MOV   P0, #01111101B    ;P0.7=P0.1=0, 南北紅 東西黃.
    XRL   P0, #255
    CALL DL3S
    SJMP LOOP
;--------------------------------------------
DL15S:
    MOV   R4, #5
DL2:
    CALL DL3S
    DJNZ R4, DL2
    RET
;--------------------------------------------
DL3S:                   ;延時3s，實測3.03s
    MOV   R5, #23
DL3:
    MOV   R6, #0
DL4:
    MOV   R7, #0
DL5:
    DJNZ R7, DL5
    DJNZ R6, DL4
    DJNZ R5, DL3
    RET
    END