3.txt

单片机交通灯程序

ORG 000BH
JMP INT00
ORG 05A0H
SE11:   MOV SP,#53H
          MOV    TMOD,#01H  ;T0方式1，定时100毫秒
          MOV    TH0,#3CH
          MOV    TL0,#0B0H
          SETB   TR0
          SETB   ET0
          SETB   EA
        MOV 20H,#200
        MOV 7EH,#00H
        MOV 7DH,#08H
        MOV 7CH,#00H
        MOV 7BH,#09H 
        MOV 7AH,#10H
        MOV 79H,#10H            ;显示缓冲区初值
        MOV DPTR,#0FFE0H
LO18:   LCALL DIS	;SSEE              ;显示
        MOV A,#00H
        MOV R7,20H
        CJNE R7,#00,L1
        MOV A,DPL
        ADD A,#4
        MOV DPL,A
        MOV 20H,#200        
L1:     MOVX @DPTR,A            ;0809的0通道采样
        LCALL DIS	;SSEE
        MOVX A,@DPTR            ;取出采样值
        MOV R0,#79H
        LCALL PTDS              ;采样值送显示缓冲区
        SJMP LO18               ;循环
PTDS:   MOV R1,A                ;拆送显示缓冲区
        ACALL PTDS1
        MOV A,R1
        SWAP A
PTDS1:  ANL A,#0FH
        MOV @R0,A
        INC R0
        RET
DIS:    PUSH DPH
        PUSH DPL
        SETB RS1
        MOV R0,#7EH
        MOV R2,#20H
        MOV R3,#00H
        MOV  DPTR,#LS0
LS2:    MOV A,@R0
        MOVC A,@A+DPTR
        MOV R1,#0DCH
        MOVX @R1,A
        MOV A,R2
        inc R1
        MOVX @R1,A
LS1:    DJNZ R3,LS1
        CLR C
        RRC A
        MOV R2,A
        DEC R0
        JNZ LS2
        movx @r0,a
	dec r0
	cpl a
	movx @r0,a
        CLR RS1
        POP DPL
        POP DPH
        RET
LS0:    DB 0C0H,0F9H,0A4H,0B0H,99H,92H
        DB 82H,0F8H,80H,90H,88H,83H,0C6H
        DB 0A1H,86H,8EH,0FFH,0CH,89H,7FH,0BFH
INT00:  MOV    TH0,#3CH
        MOV    TL0,#0B0H
        DEC 20H
RETI
END