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

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

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

(FILECREATED "24-SEP-81 12:28:14" ("compiled on " <LISPUSERS>TELNET.;10)
 (2 . 3) bcompl'd in WORK dated NOBIND)
(FILECREATED "10-Sep-80 21:41:28" {PARC-MAXC2}<MASINTER>TELNET.;1 
previous date: " 5-FEB-79 09:31:33" {PARC-MAXC2}<LISPUSERS>TELNET.;9)
(ADDTOVAR NOSWAPFNS SETSHAREDPAGE)

CHATBLOCK BINARY
Y%L-.%-.X&p+.(,<w~,<,<&,0B++2B+
 -XBw~+ w~9 w,>,> w,>,> w~ $,^/,^/8Z2B+ -Z ^" B,<w~Z,,<,#Zp3B+,<w~,<w,# w~,>,> w~,>,>Z.Bx,^/ ,^/7Zw~+ p(B{,XBp,Q",>,> p,>,> wQBx,^/,^/  +(Z,<@. +Z,<,</,<0,<@0`+ZZ2XBZw,<?~,<,<,<,<,<,<,<,<,<ZwzZ?~2B+BZ?~2B+BZXB?~2B+B,<2"3ZwzZ?~Z,XBw3B+OZwz,<?~"32B+SZp,<Zwz[?~[Z,<[w,<Zwy,<?~,<*4XBw~+S,<w{Zwz,<?~,<?,<,<*4ZwzXB?~Z4@5XBw|,,<,<,Z0,XBWZwzZ?2B+_[?~[Z2B5+^Z"+_ZXBwZXB?Zwz,<?~"32B+c+q " #lpd$?d

$G[w}[[[Z0B+m^/!a+++Zwz,<?~[w|[[[Z0B+sZ"+sZ,<^"?,>,>[w|[Z,(BwABx,^/,,<^"?,>,>[w{[Z,(BsABx,^/,,<, 6Z2B+	Zwz[?~[Z2B5+ !+ " ">ZwzZ?~Z`3B+6Zw~2B+Z?2B+6[?~[Z3B5+6Zw~3B+Z6+Z7,<,<$7Zwz[?~[Z,<,<$7ZwzZ?~ZC,XBwZw3B+%,<8,<$7Zw,<,<$7[w3B+%,<8,<$9[w,<,<$7ZwzZ?2B+3 w0"
2B+?ZZw2B+?Z,<,<,<&,2B+aZwzZ?~B;,XBw|Zwz[?~ZB;,XBw|Z<,<,<8Zwy[?~[Z3B<+J2B<+O #(B,>,>Zw{.Bx,^/,+PZw{,,<Zwy[?~[Z3B<+W3B=+W3B=+W2B<+\ #(B,>,> w}.Bx,^/,+\Zw},<,<,XBEZwzZ?~XB8ZwXB:ZwzZ83B+gZ,<,<>,<Z^,<,<,XBcZwz[?~[Z3B<+l3B=+l2B=+nZw| $ $Zwz[?~[[3B+wZwz[?~[[,<,<,<&,2B+w+q,>,>" 0Zw|Z-.4D0d?+
Z"1B+~6x,+x>@0Zw|Zy-.1D+5DzZw|+&2`d+ed+	Zwz,<?~"?+xZ++$+{ad+/XBw} 6Zwz[?~[Z2B5+"Zwz[?~[[,6,<w}"4Zwz[?~[Z3B<+(3B=+(2B=+,ZwzZ?~B;, $ %Zw}3B+q0B+oZ ,XBw~Z. ^" B w~,>,> #(B~ABx,^/1B+9,<@,<$7+q w~,>,> #(BABx,^/1B+AZwzZ?2B+o+w w~,>,> #(B}ABx,^/1B+GZXBw}+o w~,>,> #(BABx,^/1B+hZwz[?~[[3B+eZwz[?~[["+e^",>,>Zwz[?~[[,7(BwABx,^/0B+e,<@"A,<ZwzZ?~BA2B+Zp+bZwzZ?~BB,<,<$7+[/,<B,<B,<&C+wZ,<,<C$D+o w~,>,> #(B}ABx,^/1B+m+`,<w~,<D$D,<w}"E3B+w+`,<B,<B,<&C,<E,<$7Zwz,<?~"F,<";ZwzZ?2B+{,<B,<B,<&CZwzZ?~/ZwXB8Z,~3B+Z+Z3XB`DFZ`3B+ G,~Z`,~+[w~ZB;,<[w~[Z3BG+3BH+3BH+3BI+3B5+2BI+Zw~3B+,<p,<JFJZw3B+,<p,<>FJZw3B+,<p,<KFJ+3B<+3B=+2B=++,<w~,<K$DZ+ }@
`~xBm	%)UHp@L# ,H?$gHDQ	T
5!I$@rb@(/4QPSK/~@(CHATBLOCK#0 . 1)
(VARIABLE-VALUE-CELL SHAREDPAGE . 609)
(VARIABLE-VALUE-CELL LISPXHIST . 92)
(VARIABLE-VALUE-CELL RESETVARSLST . 177)
(VARIABLE-VALUE-CELL LASTCONNECTION . 447)
(VARIABLE-VALUE-CELL CONNECTIONARRAY . 308)
(VARIABLE-VALUE-CELL TELNETEXITCHAR . 189)
(VARIABLE-VALUE-CELL CHATDEBUGFLG . 260)
(VARIABLE-VALUE-CELL FCHARAR . 350)
(VARIABLE-VALUE-CELL LASTCHATEXITCHAR . 449)
(VARIABLE-VALUE-CELL RELAYFORK . 715)
(VARIABLE-VALUE-CELL TIMERFORK . 550)
TELNET
SETFORK
CHECKFORK
CFORK
SETSHAREDPAGE
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
((no connection) . 0)
ERROR
CHECKCONNECTION
MAKENEWCONNECTION
RESTORETERMSTATUS
GETTERMSTATUS
SUBSYS
ENABLEPROCESSCAPS
"[new "
"["
PRIN1
" connection to "
1
SPACES
" - control-"
" to exit"
"]"
TERPRI
OPNJFN
NET
NETCHARS
NETUSER
NETSERVER
3
PRINTBELLS
CHECKTIMING
SHOULDNT
"-- data error --
"
1000
DISMISS
READP
READC
0
TAB
"unexpected fork halt"
HELP
"unexpected flag word"
CHATSIGNAL
"[connection terminated]"
CLOSECONNECTION
RESETRESTORE
ERROR!
PUP
PUPSERVER
PUPUSER
JOB
FORK
4
SENDPUPPARAMETER
2
TYPE?
(SMALLT FOUT GUNBOX CONS LIST2 ALIST2 GETHSH CF URET2 IUNBOX URET5 MKN 
BHC ASZ KT KNIL BLKENT ENTER1)*(hPBYXVHX`*p+$("`~& 0p$0@Qx/zX}-Hc+L(X>&p8Oh ,8"%h"(s jh/8w.Ps,Pb(p9Xuh>`582(%8 hX2x20/q+`\)x@%X!vg0^x' (P@c

[
xS
(N	E?X<8;(:9888	`(

TELNET BINARY
-.(,<,~(CONNECTION . 1)
(TYPE . 1)
(SKT . 1)
(BUTTONCHAR . 1)
(TIMEOUT . 1)
TELNET
(NIL)
(LINKED-FN-CALL . CHATBLOCK)
(ENTER5)

SETFORK BINARY
-.(,<,~(FORK . 1)
(OFFSET . 1)
(AC3 . 1)
(AC4 . 1)
(MAPAC4 . 1)
SETFORK
(NIL)
(LINKED-FN-CALL . CHATBLOCK)
(ENTER5)

SETSHAREDPAGE BINARY
B>@-.>Z2B+,<?"?XB $ (/(0$=+ 
 &(.
0&0f=/
 J."9 "2Z/"."Q" B/"." B/"." B	/"." B/"."%Y  D+=+3+&+("$7D+8 B%S"+  B%S" +  B%S"@+  B%S"GBZ%0"0b+# " C% %/ " D < " : "

 
Oh ; "*2B++ *2B++S"GB< "  "0D 57S"GB<+30D5: $5(: $4&3 $5343Z

,~S

#l.K6BAU	@(VARIABLE-VALUE-CELL SHAREDPAGE . 123)
1
GETBLK
(KNIL ENTER0)0

GETTERMSTATUS BINARY
-. = ,,< = ,,< # ,,< .,,< a+ + +  ,^,,,~} ! (ALIST MKN ENTER0)p@

RESTORETERMSTATUS BINARY
%"$-." #Z`,  >[`Z,   > " ,> ,>[`[Z, ,^/G,   !-[`[[Z,   ,[`[[[Z,  !a+ + + Z3B+[`[[[Z ! "+Z,~} A@@0(TERMSTATUS . 1)
(VARIABLE-VALUE-CELL BYTELISPFLG . 50)
ENABLEPROCESSCAPS
(KNILSETMODhBHCIUNBOX ENTER1)x
(PRETTYCOMPRINT TELNETCOMS)
(RPAQQ TELNETCOMS ((DECLARE: FIRST (ADDVARS (NOSWAPFNS SETSHAREDPAGE))) 
(FNS TELNET SETREMOTETERMINAL RESTORETERMSTATUS GETTERMSTATUS SETFORK 
MAPPAGEDOWN) (P (MOVD? (QUOTE TELNET) (QUOTE CHAT))) (VARS 
TELNETEXITCHAR (LASTCONNECTION) (LASTCHATEXITCHAR) (SHAREDPAGE) (
CHATDEBUGFLG) (RELAYFORK) (TIMERFORK)) (P (PUTDQ? CHATSIGNAL (LAMBDA (X)
 (SELECTQ X (T (PRIN1 "[nothing happening]" T)) (ERROR "unexpected signal"
X))))) (P (LOAD? (QUOTE <LISPUSERS>NET.COM) LDFLG)) (DECLARE: 
EVAL@COMPILE DONTCOPY (RECORDS FLAGWORD TERMSTATUS) DONTEVAL@LOAD (P (
LOADCOMP (QUOTE <LISPUSERS>NET)))) (FNS SETSHAREDPAGE) (BLOCKS (
CHATBLOCK (ENTRIES TELNET SETFORK) SETFORK MAPPAGEDOWN TELNET 
SETREMOTETERMINAL (GLOBALVARS LASTCONNECTION CHATDEBUGFLG 
LASTCHATEXITCHAR TELNETEXITCHAR TIMERFORK RELAYFORK CONNECTIONARRAY 
SHAREDPAGE) (NOLINKFNS . T)) (NIL SETSHAREDPAGE GETTERMSTATUS 
RESTORETERMSTATUS (LOCALVARS . T) (GLOBALVARS BYTELISPFLG SHAREDPAGE))))
)
(MOVD? (QUOTE TELNET) (QUOTE CHAT))
(RPAQQ TELNETEXITCHAR 26)
(RPAQ LASTCONNECTION NIL)
(RPAQ LASTCHATEXITCHAR NIL)
(RPAQ SHAREDPAGE NIL)
(RPAQ CHATDEBUGFLG NIL)
(RPAQ RELAYFORK NIL)
(RPAQ TIMERFORK NIL)
(PUTDQ? CHATSIGNAL (LAMBDA (X) (SELECTQ X (T (PRIN1 "[nothing happening]"
T)) (ERROR "unexpected signal" X))))
(LOAD? (QUOTE <LISPUSERS>NET.COM) LDFLG)
NIL