汇编语言 简易交通灯 中断 定时

好的，以下是一个使用中断和定时器的简易交通灯的汇编语言程序：

; 设置端口地址
PORT EQU P1

; 定时器计数器
TIMER_COUNT DW 0

; 中断服务程序
ISR PROC
    PUSH ACC ; 保存寄存器
    PUSH PSW
    INC TIMER_COUNT ; 计数器加1
    ANL PORT, 0F0H ; 关闭所有灯
    IF TIMER_COUNT == 50 ; 判断计数器是否达到50，即1秒
        MOV TIMER_COUNT, #0 ; 重置计数器
        JB PORT.0, TURN_GREEN ; 判断当前灯的状态
        JB PORT.1, TURN_RED
        JB PORT.2, TURN_YELLOW
    ENDIF
    POP PSW ; 恢复寄存器
    POP ACC
    RETI ; 返回中断
ISR ENDP

; 红灯亮起
TURN_RED PROC
    ORL PORT, 010H ; 打开红灯
    CLR PORT.1 ; 关闭黄灯
    CLR PORT.2 ; 关闭绿灯
    RET
TURN_RED ENDP

; 黄灯亮起
TURN_YELLOW PROC
    ORL PORT, 020H ; 打开黄灯
    CLR PORT.0 ; 关闭红灯
    CLR PORT.2 ; 关闭绿灯
    RET
TURN_YELLOW ENDP

; 绿灯亮起
TURN_GREEN PROC
    ORL PORT, 040H ; 打开绿灯
    CLR PORT.0 ; 关闭红灯
    CLR PORT.1 ; 关闭黄灯
    RET
TURN_GREEN ENDP

; 主程序
MAIN PROC
    MOV PORT, 0FFH ; 设置所有端口为输出状态
    MOV TMOD, #1 ; 设置定时器0为模式1
    MOV TH0, #-50000/256 ; 设置定时器0的初值
    MOV TL0, #-50000%256
    SETB TR0 ; 启动定时器0
    SETB EA ; 打开总中断
    LOOP:
        SJMP LOOP ; 主程序什么也不做，只是不停地循环
    END

这个程序定义了一个中断服务程序ISR，当定时器0的计数器达到50000时（约为1秒），ISR会被触发。ISR中会判断当前交通灯的状态，并且根据计数器的值来控制交通灯的状态。程序首先设置所有端口为输出状态，然后设置定时器0为模式1，即定时器模式，同时设置了定时器0的初值，并且启动定时器0。最后，程序进入一个无限循环，等待ISR的触发。