clone.asm

web51的开发库

;
; Clone Ethernet & IP adress from EEPROM to prebuilded EEPROM packet
;
;extrn	NUMBER(flash_my_ether)
;extrn	NUMBER(flash_my_ip)
;extrn	NUMBER(flash_ip_gateway)
	.global	cloneEther
	.global	cloneIP
	.global	cloneGW

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

	.text

.if	RD2
cloneEther:
	ENABLE_DPTR2		;select DPTR'
	mov	DPTR,#flash_my_ether
	mov	r1,#ETHER_ADDR_LEN
	sjmp	loadip2
;
cloneGW:
	ENABLE_DPTR2		;select DPTR'
	mov	DPTR,#flash_ip_gateway
	sjmp	clone4
;
cloneIP:
	ENABLE_DPTR2		;select DPTR'
	mov	DPTR,#flash_my_ip
clone4:	mov	r1,#IP_ADDR_LEN
loadip2:DISABLE_DPTR2		;select DPTR
.else
cloneEther:
	mov	DPH1,#HIGH(flash_my_ether)
	mov	DPL1,#LOW(flash_my_ether)
	mov	r1,#ETHER_ADDR_LEN
	sjmp	loadip
;
cloneGW:
	mov	DPH1,#HIGH(flash_ip_gateway)
	mov	DPL1,#LOW(flash_ip_gateway)
	sjmp	clone4
;
cloneIP:
	mov	DPH1,#HIGH(flash_my_ip)
	mov	DPL1,#LOW(flash_my_ip)
clone4:	mov	r1,#IP_ADDR_LEN
.endif

loadip:	ENABLE_EE_DPTR2		;select EEPROM & DPTR'
	movx	a,@dptr
	inc	dptr		;inc source pointer
	DISABLE_DPTR2		;select DPTR
	lcall	eewritea	; WARNING - OFF EEPROM
	inc	dptr		;inc destination pointer
	djnz	r1,loadip
	ret

	;; END