renesas_tcpip_close.s

来自「T－kernel Tcp/ip Protocol Stack Sample」· S 代码 · 共 40 行

#include <machine.h>
#include <tcpip_fn.h>

#if defined(_MIC_SH7145_)
#define TRAP_SVC	(34)
#endif

	.text
	.balign	2
	.globl	Csym(renesas_tcpip_close)
	.type	Csym(renesas_tcpip_close), @function
Csym(renesas_tcpip_close):
	mov.l	r7, @-r15
	mov.l	r6, @-r15
	mov.l	r5, @-r15
	mov.l	r4, @-r15
	mov.l	fno, r0
	mov	r15, r4
	trapa	#TRAP_SVC
	cmp/pz	r0
	bf	renesas_tcpip_close_err
	rts
	add	#4*4, r15

renesas_tcpip_close_err:
	mov.l	L_mask, r7
	and	r7, r0
	mov.l	L_errno, r7
	mov.l	r0, @r7
	mov.l	L_retno, r0
	rts
	add	#4*4, r15

	.balign	4
fno:	.long	TCPIP_RENESAS_TCPIP_CLOSE_FN
L_errno:	.long	Csym(renesas_tcpip_errno)
L_retno:	.long	0xFFFFFFFF
L_mask:		.long	0xFFFF