lib/libnet/libnet.code


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18


#include <netapps.h>

PRIM(NET_X2d_LOAD)
	int alen = TOS.n; POP;
	char *arg = TOS.a; POP;
	int blocksize = TOS.n; POP;
	int hugeload = TOS.n; POP;
	long maxlen = TOS.n; POP;
	void *loadaddr = TOS.a;
	TOS.n = netload(loadaddr, maxlen, hugeload, blocksize, arg, alen);
MIRP

PRIM(NET_X2d_PING)
	int alen = TOS.n; POP;
	char *arg = TOS.a;
	TOS.n = ping(arg, alen);
MIRP