8255_3.asm

基于89s51的一通用平台

实验八：用8255控制交通灯实验
程序清单：
	        	A_8255_2	EQU	8400H
				B_8255_2	EQU	8401H
				C_8255_2	EQU	8402H
				D_8255_2	EQU	8403H
					ORG  0000H
  
JTMAIN：	MOV SP，#60H
			MOV	DPTR，#D_8255_2
			MOV 	A,#88H
			MOVX  @DPTR,A
			MOV	DPTR,# A_8255_2
			MOV	A,#0B6H
			MOVX  @DPTR,A
			INC		DPTR
			MOV	A,#0DH
			MOVX	@DPTR,A
			LCALL DELAY1S
			MOV	DPTR,# A_8255_2
			MOV	A,#75H
			MOVX  @DPTR,A
			INC		DPTR
			MOV	A,#0DH
			MOVX	@DPTR,A
			LCALL DELAY1S
MOV	R7,#05H
JT1:			MOV	DPTR,# A_8255_2
			MOV	A,#0F3H
			MOVX  @DPTR,A
			INC		DPTR
			MOV	A,#0CH
			MOVX	@DPTR,A
			LCALL DELAY1S
MOV	DPTR,# A_8255_2
			MOV	A,#0F7H
			MOVX  @DPTR,A
			INC		DPTR
			MOV	A,#0DH
			MOVX	@DPTR,A
			LCALL DELAY1S
DJNZ 	R7,JT1
MOV	DPTR,# A_8255_2
			MOV	A,#AEH
			MOVX  @DPTR,A
			INC		DPTR
			MOV	A,#0BH
			MOVX	@DPTR,A
			LCALL DELAY1S
MOV	R7,#05H
	MOV	DPTR,# A_8255_2
			MOV	A,#9EH
			MOVX  @DPTR,A
			INC		DPTR
			MOV	A,#07H
			MOVX	@DPTR,A
			LCALL DELAY1S
MOV	DPTR,# A_8255_2
			MOV	A,#0BEH
			MOVX  @DPTR,A
			INC		DPTR
			MOV	A,#0FH
			MOVX	@DPTR,A
			LCALL DELAY1S
DJNZ 	R7,JT2
END