code4.txt

编译原理的一个实验程序

ORG 0BB0H
JOD0:   MOV SP,#60H
        MOV DPTR,#0FFDBH
        MOV A,#88H
        MOVX @DPTR,A             ;8255初始化
        MOV DPTR,#0FFD8H
        MOV A,#0B6H
        MOVX @DPTR,A
        INC DPTR
        MOV A,#0DH
        MOVX @DPTR,A            ;点亮4个红灯
        MOV R2,#25H             ;延时
        LCALL DELY
JOD3:   MOV DPTR,#0FFD8H
        MOV A,#75H
        MOVX @DPTR,A
        INC DPTR
        MOV A,#0DH
        MOVX @DPTR,A            ;东西绿灯亮,南北红灯亮
        MOV R2,#55H
        LCALL DELY              ;延时
        MOV R7,#05H             ;闪烁次数
JOD1:   MOV DPTR,#0FFD8H
        MOV A,#0F3H
        MOVX @DPTR,A
        INC DPTR
        MOV A,#0CH
        MOVX @DPTR,A            ;东西黄灯亮,南北红灯亮
        MOV R2,#20H
        LCALL DELY              ;延时
        MOV DPTR,#0FFD8H
        MOV A,#0F7H
        MOVX @DPTR,A
        INC DPTR
        MOV A,#0DH
        MOVX @DPTR,A            ;南北红灯亮
        MOV R2,#20H
        LCALL DELY              ;延时
        DJNZ R7,JOD1            ;闪烁次数未到继续
        MOV DPTR,#0FFD8H
        MOV A,#0AEH
        MOVX @DPTR,A
        INC DPTR
        MOV A,#0BH
        MOVX @DPTR,A            ;东西红灯亮,南北绿灯亮
        MOV R2,#55H
        LCALL DELY              ;延时
        MOV R7,#05H             ;闪烁次数
JOD2:   MOV DPTR,#0FFD8H
        MOV A,#9EH
        MOVX @DPTR,A
        INC DPTR
        MOV A,#07H
        MOVX @DPTR,A            ;东西红灯亮,南北黄灯亮
        MOV R2,#20H
        LCALL DELY              ;延时
        MOV DPTR,#0FFD8H
        MOV A,#0BEH
        MOVX @DPTR,A
        INC DPTR
        MOV A,#0FH
        MOVX @DPTR,A            ;东西红灯亮
        MOV R2,#20H
        LCALL DELY              ;延时
        DJNZ R7,JOD2            ;闪烁次数未到继续
        LJMP JOD3               ;循环
;---------------------------------------------
DELY:   PUSH 02H
DEL2:   PUSH 02H
DEL3:   PUSH 02H                ;延时
DEL4:   DJNZ R2,DEL4
        POP 02H
        DJNZ R2,DEL3
        POP 02H
        DJNZ R2,DEL2
        POP 02H
        DJNZ R2,DELY
        RET
;---------------------------------------------
        END