www8051.asm

web51的开发库

.nolist
.include	"param.inc"
.include	"8019.inc"
.list
.if (MAGIC ^ (VERSION+7))
    .print "Invalid ACTIVESTACK/DUALSTACK/SERIAL setings"
    .err
.endif
.include	"ether.inc"
.include	"ip.inc"

	.global stack

; "SMTP"
	.global	STACK1MODE
	.equ	STACK1MODE, RESENDMODE
	.global	ETHRETRY1
	.equ	ETHRETRY1,  5*50	; timeout = 50 s
	.global PORT1			; local port
	.equ	PORT1, 25
	.global PORT3			; remote port
	.equ	PORT3, 25

	.text

	.global open_stack1
	.global process_stack1
	.global close_stack1

process_stack1:	ljmp	smtp
close_stack1:	ljmp	closeSMTP
open_stack1:	ljmp	openSMTP

.ifdef DUALSTACK
; "dummy"
	.global	STACK2MODE
	.equ	STACK2MODE, NORESENDMODE
	.global	ETHRETRY2
	.equ	ETHRETRY2,  5*2		; timeout = 2 s
	.global PORT2			; local port
	.equ	PORT2, 25

	.text

	.global open_stack2
	.global process_stack2
	.global close_stack2

open_stack2:
process_stack2:
close_stack2:	ret
.endif

	.rdata
.global	data_addr
.global	data_len
.global	unwrited
.global	state80
data_addr:	.ds	1	;start of data in TCP packet
data_len:	.ds	1	;length of data in TCP packet
unwrited:	.ds.b	1	;unwrited data length
state80:	.ds.b	1
;
;PCODE DATA
.global	chkacc, chklen, chkaddr
.global	pcodeMSB, pcodeLSB
chkacc:		.ds	1
chklen:		.ds	1
chkaddr:	.ds	1
pcodeMSB:	.ds.b	1
pcodeLSB:	.ds.b	1
;PACKET DRIVER
.global	next_packet, curr_recv, curpage
next_packet:	.ds.b	1
curr_recv:	.ds.b	1
curpage:	.ds.b	1
;LIBK
.global workreg
workreg:	.ds	2
;WEB51
.global	slowtimer
slowtimer:	.ds.b	1
;
;#########################################################
;  Main Loop
;#########################################################
;
	.section fast, #alloc
;*************************************************************

	jnb	rxint,noTrigger		;if missing trigger, don't send mail
	lcall	getchar			;get trigger
	cjne	A,#'M',noTrigger	;test for trigger char
	lcall	OutStrg
	.asciz	"\r\nMAIL\r\n"
	mov	r7,#LASTSTACK1
	lcall	changeStack
	mov	a,tcpState
	jnz	noTrigger		;if Connect Established, don't make new
	mov	r7,#'0'
	lcall	sendSMTP
noTrigger:

	.section slow, #alloc
;*************************************************************
;; SMTP timer
;~50 ms loop
	mov	a,Retry1
	jz	no25
	dec	Timeout1
	mov	a,Timeout1
	jnz	no25
;~200 ms loop
	mov	Timeout1,#ethtiming
	dec	Retry1
	mov	a,Retry1
	jz	kill25
	lcall	RetryTCP1
	ajmp	no25

kill25:	lcall	CloseTCP1
	lcall	closeSMTP
no25:

	.section one_times, #alloc
	lcall	OutStrg
	.asciz	"*** Ready ***\r\n"

	;; END