ORG	8000H
	ACALL	MAIN

MAIN:
	MOV	DPTR,#9000H
	MOV	A,#00H
	MOVX	@DPTR,A
	INC	DPTR
	MOV	A,#01H
	MOVX	@DPTR,A
	INC	DPTR
	MOV	B,#00H
	MOV	A,#01H
	ACALL 	GERA_LISTA
	LJMP	NOP


GERA_LISTA:
	MOV	R1,#00H
LOOP:
	CJNE	R1,#08H,NEXT
	RET
NEXT:
	ACALL	GERA_EL
	LJMP	LOOP
	

GERA_EL:
	MOV	R2,B
	MOV	B,A
	MOV	A,R2
	ADD	A,B
	MOVX	@DPTR,A
	INC	DPTR
	INC	R1
	RET


NOP:	LJMP	NOP
	
	END