SLOF/lib/libnet/libnet.code

17 lines
290 B
Plaintext

#include <netapps.h>
PRIM(NET_X2d_LOAD)
int alen = TOS.n; POP;
char *arg = TOS.a; POP;
long maxlen = TOS.n; POP;
void *loadaddr = TOS.a;
TOS.n = netload(loadaddr, maxlen, arg, alen);
MIRP
PRIM(NET_X2d_PING)
int alen = TOS.n; POP;
char *arg = TOS.a;
TOS.n = ping(arg, alen);
MIRP