8255(1).asm

Proteus在MCS-51％26ARM7系统中的应用百例 Proteus在MCS-51％26ARM7系统中的应用百例

		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