ORG     00H
PORTA 	EQU   	7CFFH			;8255A口地址
PORTB 	EQU   	7DFFH			;8255B口地址
PORTC 	EQU   	7EFFH			;8255C口地址
CADDR  	EQU   	7FFFH			;8255控制字地址
		MOV     A,#80H			;方式0
		MOV     DPTR,#CADDR
		MOVX    @DPTR,A			;設置8255工作方式
LOOP:   MOV     A,#0FEH         ;設置顯示碼     
		MOV     R2,#8           ;設置計數值       
OUTPUT: MOV   	DPTR,#PORTA             
        MOVX    @DPTR,A 		;顯示碼送PA口顯示
        CALL    DELAY 
  		RL      A				;顯示碼數據移位
  		DJNZ    R2,OUTPUT
		LJMP    LOOP
DELAY:	MOV     R6,#0           ;延時子程序     
        MOV     R7,#0
DELAYLOOP:     
		DJNZ    R6,DELAYLOOP 
		DJNZ    R7,DELAYLOOP
		RET
        END