ex7-2.asm

《单片机原理实用教程——基于Proteus虚拟仿真》一书的配套光盘

		ORG	0000H
PORTA	EQU		7CFFH 			;A口
PORTB	EQU		7DFFH 			;B口
PORTC	EQU		7EFFH 			;C口
CADDR	EQU		7FFFH 			;控制字地址
		SJMP	START
		ORG	0030H
START:	MOV	A,#82H   		;方式0,PA,PC输出，PB输入
	MOV	DPTR,#CADDR
	MOVX    @ DPTR,A
loop:	MOV     DPTR,#PORTB
	MOVX    A,@ DPTR      		;读入B口
	MOV     DPTR,#PORTA
	MOVX    @DPTR,A   		;输出到A口
        LCALL	DELAY 
	LJMP	loop

DELAY:	MOV	R6,#0
DELAY1: MOV	R7,#0
DELAY2:	DJNZ	R7,DELAY2
	DJNZ	R6,DELAY1
	RET
	END