PDP-10 Archive: decus/20-0004/net.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/net.com

There are no other files named net.com in the archive.

(FILECREATED "24-SEP-81 09:27:00" ("compiled on " <LISPUSERS>NET.;36) (2
 . 3) bcompl'd in WORK dated NOBIND)
(FILECREATED "18-DEC-78 18:19:35" <LISPUSERS>NET.;36 18044 changes to: 
NETCOMS CHECKFORK previous date: "13-NOV-78 18:11:55" <LISPUSERS>NET.;34
)

CONNECTIONBLOCKA0003 BINARY
		-.,<`,<$XB`3B+ `+ ,~Z,~ (X . 1)
PTY
GETP
(KNIL ENTER1)x

CONNECTIONBLOCK BINARY
Z2P-.2-.(3p5,Zw~3B+ w~A/,+Z,<,<w~Zw~3B+

w~G",+,<w},<w}.7XBZw~3B+ w~G",+Z,<,<w~Zw~3B+ w~A/,+Z,<,<7,<,<w},<w}.7XB+[p[[3B+#[p[[B83B+*Zp,<,T3B+*[pZ,<,T3B+*Zp+,<p"8Z+(@9(
+RZwZ?~2B+FZ?~Z,XB`3B+;ZwZ?2B+;Z?~XB?[`ZwXB?Z`ZwXB?~[?[Z+EZw,<?~";3B+>Z<+EZw,<?~"<3B+BZ=+EZw,<?~,RZwXB?~+.ZwXB?~Z?3B+QZ0,XB`2B+LZw,<?,<=$>ZwZ?Z2B+OZXBMZw,<?"8+X,<,<,<,ZwXB?,<Z,XB`,<ZGF>ZwZ?~3B?+\3B?+\2B@+,<,<,<,<,<*@ A,<,<<ZBA,^+  ,,<Zw~,<?,<,,Z`BA,,>0,>ZBA, ,^/^+ ,XB`,1"+p7Z,<Zf,<,*Zi,<,*,\3B+xZw,<?"8,<`"BB> `+ Zw[?[,<ZwZ?~2B?+,<?~,<?,<`&B+[?ZXBr,<,<C,<`&CZ,<,<DZDFEZw,<?~,<?,<`&EXB`ZwZ?~2B@+ F `Q",>0,> ` ,^/j+ + + Z`DF+I3B<+2BG+Z<ZwXB?~,<,<?~,<?,<,<8*@+?2BG+,<?,<,<,<,<8*@+?3B=+"3BH+"2BH+0Z=ZwXB?~,<I,<?~,<IZw~,<?~,<?,<6,<J,<,7XB`BA, ,,<,<`"J,\,<Zw~,<8,<,+?2BK+5,<?,<,<,<8,<,+?2BK+9,<I,<?~,<?,<8,<,+?2BL+>,<I,<?~,<?,<8,<,+?,<,<L$>Zq,<,<M,<M&EZ,<,<M,<M&EZw,<?Z?DNZw[?,<ZBDN,<`Zw,<?$F,<`Zw,<?~$NZw[?[,<Zw,<?~$NZwZ?,~+,<p,<N$>+Zp3B+%,<,&3B+%,<p"A,< p 0
+,>0,>+1ABx,^/,>0,>,1/,^/2B+"Z,<,<,<O^",>0,>^w~'+++B(BwABx,^/,0B+mZXBw+p0B+o+pZ+"Zw3B+^",>0,>w~Z0+02!(BpABx,^/,0B+zZ+.1B+0B+|+0B+ow~2+p^",>0,>Jw~0(02 ABx,^/,1B+y1B+y0B+	+y1B+0B+oZw2B+
"rr!	B

	x@
H$X

pG|`J@Ap|gB
$Q!
	4S*U&-&P 3(CONNECTIONBLOCK#0 . 1)
(VARIABLE-VALUE-CELL INF . 395)
(VARIABLE-VALUE-CELL OUTF . 400)
(VARIABLE-VALUE-CELL CONNECTIONARRAY . 174)
(VARIABLE-VALUE-CELL LASTCONNECTION . 158)
(VARIABLE-VALUE-CELL NETTIMEOUT . 453)
MAKENEWCONNECTION
CHECKCONNECTION
INPUT
ARPAOPENF
OUTPUT
CHECKFORK
CLOSECONNECTION
(NIL VARIABLE-VALUE-CELL INF . 0)
(NIL VARIABLE-VALUE-CELL OUTF . 0)
NIL
NIL
NIL
PUPHOSTP
PUP
ARPAHOSTP
NET
"not connection"
ERROR
PUTHASH
SUBSYS
JOB
FORK
PUPPAIR
HOSTNAME
OPNJFN
ERSTR
MAKEJOB
PTY
PUT
BEFORE
CONNECTIONBLOCKA0003
WHENCLOSE
MAKESUBSYS
ENABLEPROCESSCAPS
RPLACD
CHAT
PUPSERVER
TELNET
ARPA
4
2
32
CLOSEF
NETSERVER
NETUSER
NETCHARS
"unknown connection type"
CLOSEALL
NO
RPLACA
"Invalid host name"
20
DISMISS
OPENP
(FILEA ASZ BHC IUNBOX KT CONSNL LIST3 GETHSH URET1 URET5 MKN KNIL BLKENT
 ENTER1)%!0
!h}@{n@$P!#p"(k l*
h
@	20%p*$h%P,(0# k@n

H@

x%x-%8*$`$$

pHX`9H30(XXq

h^X]
`S
0R	xJxAX500@)`# Pp

MAKENEWCONNECTION BINARY
-.(,<,~(HOST . 1)
(TYPE . 1)
(SKT . 1)
(CONN . 1)
(DONTWAIT . 1)
MAKENEWCONNECTION
(NIL)
(LINKED-FN-CALL . CONNECTIONBLOCK)
(ENTER5)

CHECKCONNECTION BINARY
-.,<,~(CONNECTION . 1)
CHECKCONNECTION
(NIL)
(LINKED-FN-CALL . CONNECTIONBLOCK)
(ENTER1)

ENABLEPROCESSCAPS BINARY
-.  4,~x(ENTER0)

STRINGTOCONNECTION BINARY
-.[`[Z3B+3B+3B+2B+	,<`[`ZD+[`Z,<,<$,,>,>,<`",,^/+1D $=hZ`,~

4D (STRING . 1)
(CONNECTION . 1)
NET
NETUSER
NETSERVER
NETCHARS
PRIN3
OUTPUT
OPNJFN
MKSTRING
(BHC UPATM GUNBOX ENTER2)xP

CLOSECONNECTIONA0004 BINARY
-.,<`",~(DUMMY . 1)
(CONN . 1)
CLOSECONNECTION
(ENTER2)

CLOSECONNECTION BINARY
&!%-.!Z`2B+Z,<Z"D"Z,~Z,3B+BZ`3B+3B+ [`[[+[`[[,+[`[[B$[`[,<,<$$Z`,~0$ PB!(CONNECTION . 1)
(VARIABLE-VALUE-CELL CONNECTIONARRAY . 12)
CLOSECONNECTIONA0004
MAPHASH
RPLACA
CLOSEF?
KFORK
RPLACD
(IUNBOX SMALLT KNIL GETHSH KT ENTER1) `p

0

NETUSER BINARY
-. Z`2B+ ,<,<Z`-,+B,+,(B,>,>Z`2B+

^"+

,."(BGBx,^/,,<,<Z`2B+7ZJ,~&HP(HOST . 1)
(USER . 1)
(ARPA# . 1)
(WAITFLG . 1)
HOSTNAME
NETUSER
USERNUMBER
MAKENEWCONNECTION
(KT MKN BHC IUNBOX SKNNM KNIL ENTER4)0xPx`80

NETSERVER BINARY
,<

Z`2B+^"+,."(B,,<,<Z`2B+
7ZJA# . 1)
(WAITFLG . 1)
NETSERVER
MAKENEWCONNECTION
(KT MKN IUNBOX KNIL ENTER2)(x`0	(

ARPAHOSTP BINARY
-.,<,<`,<&B,~@(X . 1)
"NET:."
"-1"
PACK*
INFILEP
(ENTER1)

ARPAOPENF BINARY
nQk-.8QZ`3B+BT+ZU,<Z`3B+Z`3B+	2BU+
Z"+2BV+

Z"+2BV+Z"+2BW+ZW+2BX+ZX+2BY+ZY+2BZ+ZZ+2B[+Z[+2B\+Z\+-,+,<,<]$]BT+Z,<,<,<Z`3B+%,<^,<w~,<^,<,<_,<w|,<_.`+),<` a,<,<a,<w},<b*`XBwBb2B+,Zp+.,<c,<w~$cXBw~+/,<d,<,<@d`+FZZfXB@f+EZw~,<8Zw~,<8,<gZ82B+9Z",<Zw}Z83B+?Z83B+>Zh+BZh+BZ83B+BZ+BZiJiZw~XB8Z,~Z,~3B+HZp+ jXBwZ`2B+LZpXB`+NBj2B+NZkXBw,<`,<w$]Z+b;]k`5}55%*|\Dl (LSKT . 1)
(HOST . 1)
(FSKT . 1)
(ACCESS . 1)
(BYTESIZE . 1)
(DONTWAIT . 1)
(NOBUFFER . 1)
OCTAL
""
TELNET
FTP
ECHO
DISCARD
"11"
SYSTAT
"13"
TIME
"15"
TEXT
"21"
TTYTST
"23"
FINGER
"117"
"BAD SOCKET"
ERROR
"NET:"
"."
"-"
";T"
PACK*
"NET:<"
USERNAME
">"
"."
OPENP
"0"
CONCAT
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(((23 (ERROR!))) VARIABLE-VALUE-CELL ERRORTYPELST . 0)
(NIL VARIABLE-VALUE-CELL HELPFLAG . 0)
OLD
(((MODE 6)) . 0)
(((MODE 7)) . 0)
(((MODE 5)) . 0)
OPENFILE
ERSTR
ARPAHOSTP
"not valid host name"
(URET3 KT CF BHC SKNI ASZ KNIL ENTERF)Q	`0x0 @
Q	XJpE AX<1+ x0

FORCEOUT BINARY
	
-.	Z`Z,3B+[`Z+Z`B
, ,~J@(CONNECTION/FILE . 1)
(VARIABLE-VALUE-CELL CONNECTIONARRAY . 4)
OPNJFN
(IUNBOX KNIL GETHSH ENTER1)

OCTAL BINARY
-.Z,<,<`,<,<w,<w w~A",F w(B~,XBw1B+
>p+Zp0B+ZHB+x(N . 1)
"000000000000"
-1
RPLSTRING
""
SUBSTRING
CONCAT
(URET3 ASZ MKN ENTER1)



CHECKFORK BINARY
 -.Z+,<D,4"7Z,~3B+Z,3B+ ,>,>7[1B+ZdB3F+ x6+0B1B+1B+0B+Z3F+ x7 "+Z	B7 "/,~Z,~PE$)
(VARIABLE-VALUE-CELL FORK . 47)
(VARIABLE-VALUE-CELL START . 40)
(VARIABLE-VALUE-CELL UNFREEZE . 26)
(VARIABLE-VALUE-CELL USERFORKS . 15)
JOBTTY
GETAB
KFORK
(BHC ASZ GETHSH KNIL KT GUNBOX SMALLT ENTERF)( 8Xh`P0

CHECKTIMING BINARY
,&*-.&ZB&,<[ZB&,<@'@,~  " "2 ,XB,,>#,> #(B~ABx,^/1B+! ,>#,> #(B~,>#,> 	FBx,^/ ,^/ "3  $ ,0B+Z(,~0B+  $"  % %Z),~,<)"*Z,~@	 (`P*$M0(VARIABLE-VALUE-CELL CONNECTION . 6)
OPNJFN
(VARIABLE-VALUE-CELL IJFN . 46)
(VARIABLE-VALUE-CELL OJFN . 59)
(NIL VARIABLE-VALUE-CELL ST . 37)
DATAMARK
TIMINGMARK
"Unknown net condition"
HELP
(KNIL ASZ BHC IUNBOX MKN ENTERF)"(hh0 

(PRETTYCOMPRINT NETCOMS)
(RPAQQ NETCOMS ((FNS MAKENEWCONNECTION STRINGTOCONNECTION 
CHECKCONNECTION CHECKFORK CHECKTIMING CHECKBSP CLOSECONNECTION NETUSER 
NETSERVER ARPAHOSTP ARPAPAIR ARPAOPENF FORCEOUT OCTAL FOPENP BADHOST 
ENABLEPROCESSCAPS) (P (MOVD? (QUOTE NILL) (QUOTE PUPHOSTP))) (VARS 
NETTIMEOUT (CONNECTIONARRAY (LIST (HARRAY 17)))) (DECLARE: EVAL@COMPILE 
DONTCOPY (RECORDS CONNECTION CONNECTIONSPECS) (PROP BLKLIBRARYDEF 
CLOSEF?) (FILES (SYSLOAD) CJSYS)) (BLOCKS (CONNECTIONBLOCK (ENTRIES 
MAKENEWCONNECTION CHECKCONNECTION) ARPAPAIR CHECKCONNECTION 
MAKENEWCONNECTION (NOLINKFNS . T) (BLKLIBRARY CLOSEF?) (SPECVARS INF 
OUTF) (GLOBALVARS CONNECTIONARRAY LASTCONNECTION NETTIMEOUT) BADHOST 
CHECKBSP FOPENP) (NIL ENABLEPROCESSCAPS STRINGTOCONNECTION 
CLOSECONNECTION NETUSER NETSERVER ARPAHOSTP ARPAOPENF FORCEOUT OCTAL (
LOCALVARS . T) (GLOBALVARS CONNECTIONARRAY)))))
(MOVD? (QUOTE NILL) (QUOTE PUPHOSTP))
(RPAQQ NETTIMEOUT 20000)
(RPAQ CONNECTIONARRAY (LIST (HARRAY 17)))
NIL