clonep.asm

web51的开发库

;
; Clone IP point adress from EEPROM to prebuilded EEPROM packet
;
;extrn	NUMBER(flash_ip_point)
;extrn	BIT(flagIPactive)
	.global	cloneIPpoint

.nolist
.include "param.inc"
.include "8019.inc"
.list

	.text
.if	RD2
cloneIPpoint:
	ENABLE_DPTR2		;select DPTR'
	mov	DPTR,#flash_ip_point
	DISABLE_DPTR2		;select DPTR
.else
cloneIPpoint:
	mov	DPH1,#HIGH(flash_ip_point)
	mov	DPL1,#LOW(flash_ip_point)
.endif
	clr	flagIPactive
	mov	r1,#IP_ADDR_LEN
loadipp:ENABLE_EE_DPTR2		;select EEPROM & DPTR'
	movx	a,@dptr
	inc	dptr		;inc source pointer
	jz	nosetIPactive
	setb	flagIPactive
nosetIPactive:
	DISABLE_DPTR2		;select DPTR
	lcall	eewritea	; WARNING - OFF EEPROM
	inc	dptr		;inc destination pointer
	djnz	r1,loadipp
	ret
	;; END