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

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

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

(FILECREATED "16-MAY-82 22:42:11" ("compiled on " <LISPUSERS>PUP10.;2) (2 . 2) brecompiled changes: 
\SENDPUP in WORK dated "15-MAY-82 00:39:09")
(FILECREATED "16-May-82 22:31:43" <MASINTER>PUP10.;2 64357Q changes to: \SENDPUP previous date: 
"29-AUG-81 17:18:56" <MASINTER>PUP10.;1)
ETHERPORT BINARY
(!'-.!Z-,+-,+Z-,+[-,+Z,~ZZ,2B+ Z,<@#+Z
,<,<$"$D%,7@+,>!,>Z(H{G,XB,^/,XBZZ,7 ,~,<ZF%2B+ Z3B+ ,<&Z
(VARIABLE-VALUE-CELL ERRORFLG . 73Q)
(VARIABLE-VALUE-CELL \ETHERPORTS . 67Q)
(NIL VARIABLE-VALUE-CELL NETHOST . 60Q)
(NIL VARIABLE-VALUE-CELL SOCKET . 61Q)
0
CHARACTER
CONCAT
PUTHASH
"host not found"
ERROR
(CONS BHC MKN UPATM KNIL GETHSH SKI SKLST SKNI ENTERF) xX( p
\LOCALHOSTNUMBER BINARY
-.ZBZ,~(VARIABLE-VALUE-CELL HOSTNAME . 3)
ETHERPORT
(ENTER0)
\SETUPPUP BINARY
3-2-.0-Z2B+ 1XBZ,<  ,\d*Z,<  ,\d*Z,<Z2B+ 1"+Z"+

.",XB,+, ,\d+Z
,<Z,<,<$1XB-,+Z,+, ,\d+Z-,+ [1B+ [+ Z,<Z,< w(Bx ,\d,Z!,< wA" ,\d,Zp/Z,~(@ 	(@@(@	 "%@@(VARIABLE-VALUE-CELL PUP . 111Q)
(VARIABLE-VALUE-CELL DESTHOST . 76Q)
(VARIABLE-VALUE-CELL DESTSOCKET . 100Q)
(VARIABLE-VALUE-CELL TYPE . 20Q)
(VARIABLE-VALUE-CELL ID . 26Q)
(VARIABLE-VALUE-CELL SOC . 122Q)
(VARIABLE-VALUE-CELL \PUPOVLEN . 12Q)
(VARIABLE-VALUE-CELL \PUPCOUNTER . 41Q)
\CREATE.PUP
ETHERPORT
(BHC SKLST SKNI KT IUNBOX MKN ASZ KNIL ENTERF)Xp00pH
\FILLPUPSOURCE BINARY
-.Z,~(VARIABLE-VALUE-CELL PUP . 0)
(VARIABLE-VALUE-CELL SOCKET . 0)
(KNIL ENTERF)(
\EXCHANGEPUPS BINARY
1)0-.0)Z2B+ZXBZ2B+ZXB,<Z,<ZD-2B+Zp/Z,<ZD.ZB.@/,~Z,<ZD-3B+Z3B+Z"(,>(,>Z

"(,^/2B+&Z,~>,>(,>,^/3b+%Z,~ZB.+Z`,~	
AKD F(VARIABLE-VALUE-CELL SOC . 37Q)
(VARIABLE-VALUE-CELL OUTPUP . 54Q)
(VARIABLE-VALUE-CELL INPUP . 63Q)
(VARIABLE-VALUE-CELL IDFILTER . 45Q)
(VARIABLE-VALUE-CELL TIMEOUT . 103Q)
(VARIABLE-VALUE-CELL WAITTIME . 113Q)
(VARIABLE-VALUE-CELL \ETHERWAIT2 . 6)
(VARIABLE-VALUE-CELL \ETHERWAIT1 . 13Q)
(VARIABLE-VALUE-CELL \TIME.GETPUP . 72Q)
\GETPUP
\SENDPUP
DISMISS
NIL
(0 VARIABLE-VALUE-CELL WAITED . 77Q)
(IUNBOX MKN BHC KNIL ENTERF)@%@ X
\GETPUP BINARY
4*3-.*Z2B+ ,B-,,>),>Z2B+ *+^" ,^/Q",>),>Z2B+,<-". ,^/Q$C7 ,<@. ,~Z3B+2B/+Z3B+,</,<$0Z2B/+ZB0+%ZB1+%,<1,<$0+%2B2+%Z3B+#Z2+#Z1,<,<$0Z 3B+'Z,~Z,~Z%,~Q`GCM6wO$(VARIABLE-VALUE-CELL SOC . 3)
(VARIABLE-VALUE-CELL PUP . 115Q)
(VARIABLE-VALUE-CELL WAIT . 13Q)
(VARIABLE-VALUE-CELL PUPTRACEFLG . 62Q)
\GETMISCSOCKET
OPNJFN
"PUP not supplied to \GETPUP!"
ERROR
(VARIABLE-VALUE-CELL RESULT . 121Q)
LEAF
"\GETPUP:
"
PRIN1
PRINTLEAF
PRINTPUP
-
PEEK
+
(KTBHCIUNBOX KNIL ENTERF)%pP(P& 

\SENDPUP BINARY
-$,-.$Z2B+,<%"&Z,<^" ,\d"Z,<^" ,\d#Z@&, ,\d#Z2B+ 'XB
Q$C7 2B+ (B&Z3B+2B(+,<),<$)Z2B(+ZB*,~ZB*,~2B++!,<+,<$),~Z,~(@@@ADdO- (VARIABLE-VALUE-CELL SOC . 37Q)
(VARIABLE-VALUE-CELL PUP . 72Q)
(VARIABLE-VALUE-CELL PUPTRACEFLG . 64Q)
"Pup not supplied to \SENDPUP"
ERROR
ETHERHOSTNUMBER
\GETMISCSOCKET
OPNJFN
ERSTR
LEAF
"\SENDPUP:
"
PRIN1
PRINTLEAF
PRINTPUP
PEEK
!
(KT IUNBOX KNIL ENTERF)x@(@0
\CLEARPUP BINARY
-.ZQ":@@*b,~(VARIABLE-VALUE-CELL PUP . 3)
(ENTERF)
\GETPUPWORD BINARY
-.Z,>,> (B.".Bx,^/,<@ ,~ A"0B+

Z",,~Z
",,~(@@D(VARIABLE-VALUE-CELL PUP . 3)
(VARIABLE-VALUE-CELL WORD# . 20Q)
(VARIABLE-VALUE-CELL BASE . 30Q)
(MKN BHC ENTERF)@h
\PUTPUPWORD BINARY
-.Z,>,> (B.".Bx,^/,<@ ,~ A"0B+Z,<  ,\d ,,~Z
,<  ,\d ,,~(@@(VARIABLE-VALUE-CELL PUP . 3)
(VARIABLE-VALUE-CELL WORD# . 20Q)
(VARIABLE-VALUE-CELL VALUE . 37Q)
(VARIABLE-VALUE-CELL BASE . 35Q)
(MKN BHC ENTERF)hh
\GETPUPBYTE BINARY
-.Z,>,> (B.".Bx,^/,<@ ,~ A",0B+

Z",,~0B+Z
",,~0B+Z",,~ ,~8 (   "E@(VARIABLE-VALUE-CELL PUP . 3)
(VARIABLE-VALUE-CELL BYTE# . 20Q)
(VARIABLE-VALUE-CELL BASE . 47Q)
SHOULDNT
(ASZ MKN BHC ENTERF)8X
(H

\PUTPUPBYTE BINARY
'#%-.#Z,> ,> (B.".Bx,^/,<@$ ,~ A",0B+Z,<  ,\d! ,,~0B+Z
,<  ,\d! ,,~0B+Z,<  ,\d" ,,~0B+Z,<  ,\d" ,,~ %,~8 (   !(VARIABLE-VALUE-CELL PUP . 3)
(VARIABLE-VALUE-CELL BYTE# . 20Q)
(VARIABLE-VALUE-CELL VALUE . 70Q)
(VARIABLE-VALUE-CELL BASE . 66Q)
SHOULDNT
(ASZ MKN BHC ENTERF)0
 p

\GETPUPSTRING BINARY
-.Z.",<Z2B+Z"XB,<Z",>,>  ,^//,>,>  ,^//,F,~(@!@@ (VARIABLE-VALUE-CELL PUP . 14Q)
(VARIABLE-VALUE-CELL OFFSET . 27Q)
(VARIABLE-VALUE-CELL \PUPOVLEN . 20Q)
\GETSTRING
(MKN BHC ASZ KNIL ENTERF)p`

\PUTPUPSTRING BINARY
-.Z,<Z",>,>Z.",<Z",>,>  ,^//,,<ZF,.Bx,^/ ,\d ,,~(@A@(VARIABLE-VALUE-CELL PUP . 14Q)
(VARIABLE-VALUE-CELL STR . 27Q)
(VARIABLE-VALUE-CELL \PUPOVLEN . 20Q)
\PUTSTRING
(IUNBOX MKN BHC ENTERF)X(
\GETSTRING BINARY
-)+-.)Z,>&,> &".Bx,^/XB &" ,XB,Z,<,<,<* p,>&,> w ,^/3b++%Z0B+Z"'+0B+Z"'+0B+Z"(+0B+Z"(+ +,/",Z0B+ Z."XBZ"+" .",XB  p.",XBp+ ,+8 (   Pk-8@ (VARIABLE-VALUE-CELL BASE . 76Q)
(VARIABLE-VALUE-CELL OFFSET . 104Q)
(VARIABLE-VALUE-CELL LENGTH . 22Q)
1
SHOULDNT
(URET3 MKSP UNP1 MKSTR1 IUNBOX ASZ KNIL MKSTRS MKN BHC ENTERF)'&& `@	$(`
\PUTSTRING BINARY
4/3-./Z,>,,>,&".Bx,^/XB0&",XBZ,<ZD1,<Zp-,+  ,\d.+"0B+"Z,<  ,\d.+" 2Z0B+&Z."XB$Z"+( ".",XB&,~[pXBp+/ZB2,~8 (

R h (VARIABLE-VALUE-CELL BASE . 112Q)
(VARIABLE-VALUE-CELL OFFSET . 120Q)
(VARIABLE-VALUE-CELL STR . 126Q)
(VARIABLE-VALUE-CELL CHCONLST1 . 23Q)
DCHCON
(VARIABLE-VALUE-CELL CHAR . 77Q)
SHOULDNT
NCHARS
(ASZ SKNLST MKN BHC ENTERF)&@ H+`
OCTALSTRING BINARY
-.Z,<Z,<@@,~Z,<Z,< A",F (B~,XB	1B+

0B+Z,~Z,<,<,<ZHB,~@A`(VARIABLE-VALUE-CELL N . 35Q)
"000000000000"
(VARIABLE-VALUE-CELL S . 37Q)
(VARIABLE-VALUE-CELL M . 25Q)
(-1 VARIABLE-VALUE-CELL J . 32Q)
RPLSTRING
-1
""
SUBSTRING
CONCAT
(ASZ MKN ENTERF)@0	
\CREATESOCKET BINARY
-.Z3B+,<B,<,<$D+Z,<,<,<,<,<*,<@ ,~Z,<,<,<&Z

Z,XBZ,~_.C@(VARIABLE-VALUE-CELL LOCALSOCKET# . 3)
(VARIABLE-VALUE-CELL \PUPSOCKETS . 40Q)
PUP:
OCTAL
"!A"
CONCAT
PACK*
PUP:!J
BOTH
10Q
(((MODE 16Q)) . 0)
OPENFILE
(VARIABLE-VALUE-CELL PACKETFILE . 41Q)
CLOSEALL
NO
WHENCLOSE
(CONS KNIL ENTERF)	0
\FLUSHSOCKET BINARY
-.Z2B+,<Z2B+Zp+ZB[XB+,<ZD3B+Z,<Z	DXB

ZB,~ZDF(VARIABLE-VALUE-CELL SOC . 36Q)
(VARIABLE-VALUE-CELL \PUPSOCKETS . 32Q)
CLOSEF
MEMB
DREMOVE
"not an open socket"
ERROR
(URET1 KNIL KT ENTERF)h0@0
\GETMISCSOCKET BINARY

	-.Z3B+ZZ,3B+Z,~ 	XB,~	(VARIABLE-VALUE-CELL \MISC.SOCKET . 16Q)
(VARIABLE-VALUE-CELL \PUPSOCKETS . 7)
\CREATESOCKET
(FMEMB KNIL ENTER0)PX
\ALLOCATE.PUP BINARY
-.Z,<[XB,\2B+ ,~(VARIABLE-VALUE-CELL \FREEPUPS . 6)
\CREATE.PUP
(KNIL ENTER0)P
\CREATE.PUP BINARY
-.,<,<$.",~(VARIABLE-VALUE-CELL DUMMY . 0)
213Q
ARRAY
(ENTERF)
\RELEASE.PUP BINARY
-.Z3B+Z,XBZ,~(VARIABLE-VALUE-CELL PUP . 3)
(VARIABLE-VALUE-CELL \FREEPUPS . 10Q)
(CONS KNIL ENTERF)HX
PRINTPUP BINARY
`T]-.T@U,~,<V,<$VZ"O,XB,(B|,,<,<$V,<W,<$V A",,<,<$V,<W,<$VZ"O(B,>P,>Z"PGBx,^/,,<,<$V,<X,<$VZ"Q,XB,(B|,,<,<$V,<X,<$V A",,<,<$V,<Y,<$VZ"Q(B,>P,>Z#"RGBx,^/,,<,<$V,<"Y,<Z,<$VZ%"R,,<,<$V,<Z,<$V,<[,<$VZ,"R,>P,>  ,^//,,<,<$V,<[,<$V,<"Y,<\,<$VZ2"S,,<,<$V,<\,<$VZ="S,,<,<$V,<"YZA"T1B+M,<],<$VZE"T,,<,<$V,<"Y,<"YZ,~@(@@(@@(@(@ 	 (AU 5h$T6X-#(U(T(VARIABLE-VALUE-CELL PUP . 222Q)
(VARIABLE-VALUE-CELL \PUPOVLEN . 151Q)
(NIL VARIABLE-VALUE-CELL PORT . 75Q)
"From "
PRIN1
"#"
"#"
" to "
"#"
"#"
TERPRI
"Length = "
" bytes"
" (header + "
")"
"Type = "
",   ID = "
"Transport control = "
(KNIL BHC IUNBOX MKN KT ENTERF)O7x	0Cp8h) Ph	`M	@IXD@P;(9(1x,0*0!hx0	H
PUPTRACING BINARY
-.Z3B+3B+7Z,~Z,~@(VARIABLE-VALUE-CELL PUPTRACEFLG . 3)
%.
(KT KNIL ENTER0)Ph0
REMOTEMAILCHECK BINARY
I:G-.0:Z2B+Z>,<,<$?@?@?@@,<@@
,~Z2B+ZXBZ,<Z,<Z,<Z3B+Z+Z,<,<ZLCZ,<Z
DCZ,<,<,<Z"XBp p,>9,> w ,^/3b++0Z,<Z,<Z,<,<(D2B+"+-Z"9,0BD+'Z"BDXB+50BE+(+50BE+-Z%BD,<,<$E,<"E+5 p.",XBp+Z3B+53BF+5,<F,<$E,<"EZw/Z)BGZBGZ&,~ B"@-*j,j((VARIABLE-VALUE-CELL USER . 50Q)
(VARIABLE-VALUE-CELL HOST . 3)
(VARIABLE-VALUE-CELL LAURELFLG . 34Q)
(VARIABLE-VALUE-CELL USERNAME . 24Q)
(VARIABLE-VALUE-CELL \SOCKET.MISCSERVICES . 32Q)
(VARIABLE-VALUE-CELL \PT.LAURELCHECK . 37Q)
(VARIABLE-VALUE-CELL \PT.MSGCHECK . 41Q)
(VARIABLE-VALUE-CELL \MAXETHERTRIES . 52Q)
(VARIABLE-VALUE-CELL PUPTRACEFLG . 140Q)
MAXC2
ETHERPORT
\ALLOCATE.PUP
\GETMISCSOCKET
(VARIABLE-VALUE-CELL HOSTPORT . 30Q)
(VARIABLE-VALUE-CELL IPUP . 154Q)
(VARIABLE-VALUE-CELL OPUP . 156Q)
(VARIABLE-VALUE-CELL SOC . 72Q)
(NIL VARIABLE-VALUE-CELL RESULT . 160Q)
\SETUPPUP
\PUTPUPSTRING
\EXCHANGEPUPS
\GETPUPSTRING
PRIN1
TERPRI
%.
"Mail check timed out"
\RELEASE.PUP
(MKN BHC ASZ KT KNIL ENTERF)x$6@(P5@-@!P"x( 
ETHERHOSTNAME BINARY
m[j-.([Z-,+ 0"+
 ^,,>Y,>ABxGBx,^/,+Z+2B+
D_@`@`@`,<@a

,~Z,<,<dZ,<Z,<,<ZLdZ,<Z"Y." ,\dYZ."XB,<  ,\dYZ-,Z[2B+%Z",<Z,< w(Bx ,\dZZ&,< wA" ,\dZZp/Z,<,<,<Z"XBp p,>Y,> w ,^/3b+6+PZ,<Z,<Z,<,<(e2B+;+M eZ8"[,0BJ+AZ<BfBfXB+U0BI+MZ3B+U3Bg+U,<g,<$hZ",<,<$h,<h,<$hZ>Bf,<,<$h,<"i+U p.",XBp+1ZB3B+U3Bg+U,<i,<$h,<"iZw/ZIBjZ7BjZ@,~(@@(@ 4.
(VARIABLE-VALUE-CELL \NetMask . 15Q)
(VARIABLE-VALUE-CELL \SOCKET.MISCSERVICES . 55Q)
(VARIABLE-VALUE-CELL \PT.ADDRLOOKUP . 57Q)
(VARIABLE-VALUE-CELL \MAXETHERTRIES . 134Q)
(VARIABLE-VALUE-CELL PUPTRACEFLG . 240Q)
\LOCALHOSTNUMBER
"ILLEGAL ARG"
LISPERROR
\ALLOCATE.PUP
\GETMISCSOCKET
(VARIABLE-VALUE-CELL NETHOST . 100Q)
(VARIABLE-VALUE-CELL OPUP . 256Q)
(VARIABLE-VALUE-CELL IPUP . 254Q)
(VARIABLE-VALUE-CELL SOC . 154Q)
(NIL VARIABLE-VALUE-CELL RESULT . 260Q)
(NIL VARIABLE-VALUE-CELL BUF . 123Q)
0
\SETUPPUP
\EXCHANGEPUPS
\SETLOCALHOST?
\GETPUPSTRING
MKATOM
%.
"Address lookup error for "
PRIN1
": "
TERPRI
"Address lookup timed out"
\RELEASE.PUP
(KT ASZ SKLST KNIL MKN BHC IUNBOX SKI ENTERF)
PT	PL	H`:Bh1`8Q8;0P$p

O`
VP. `0
ETHERHOSTNUMBER BINARY
-.Z2B+ ,~BZ,~ (VARIABLE-VALUE-CELL NAME . 3)
\LOCALHOSTNUMBER
ETHERPORT
(KNIL ENTERF)0
\LOOKUPPORT BINARY
_N\-.(N Q@Q@R,<@R`
,~Z,<,<UZ,<Z,<,<ZLUZ,<ZDVZ,<,<,<Z"XBp p,>L,> w ,^/3b++CZ	,<Z
,<Z,<,<(V2B++@ZBWZ"L,0BH+3Z"M,>L,>  ,^//1b+)Z3B+)3BW+),<X,<$XZ,<,<$X,<"YZ."XB"M,,<Z*"M(B,>L,>Z,"NGBx,^/,,XB+H0BI+@Z"3B+H3BW+H,<Y,<$XZ&,<,<$X,<Z,<$XZ)BZ,<,<$X,<"Y+H [ p.",XBp+Z43B+H3BW+H,<[,<$X,<"YZw/Z<B\ZB\Z2,~ (@@(@BTXt(Et5z
(VARIABLE-VALUE-CELL NAME . 161Q)
(VARIABLE-VALUE-CELL \SOCKET.MISCSERVICES . 15Q)
(VARIABLE-VALUE-CELL \PT.NAMELOOKUP . 17Q)
(VARIABLE-VALUE-CELL \MAXETHERTRIES . 30Q)
(VARIABLE-VALUE-CELL \PUPOVLEN . 76Q)
(VARIABLE-VALUE-CELL PUPTRACEFLG . 206Q)
\ALLOCATE.PUP
\GETMISCSOCKET
(VARIABLE-VALUE-CELL IPUP . 222Q)
(VARIABLE-VALUE-CELL OPUP . 224Q)
(VARIABLE-VALUE-CELL SOC . 50Q)
(NIL VARIABLE-VALUE-CELL RESULT . 226Q)
(NIL VARIABLE-VALUE-CELL BUF . 136Q)
0
\SETUPPUP
\PUTPUPSTRING
\EXCHANGEPUPS
\SETLOCALHOST?
%.
"Multiple response received for "
PRIN1
TERPRI
"Name lookup error for "
": "
\GETPUPSTRING
HELP
"Name lookup timed out"
\RELEASE.PUP
(CONSS1 MKN KT BHC ASZ KNIL ENTERF)0(2HHp?h<(8(hI !0HpH6@h
(PRETTYCOMPRINT PUP10COMS)
(RPAQQ PUP10COMS ((E (RESETSAVE (RADIX 10Q))) (FNS ETHERPORT \LOCALHOSTNUMBER \SETUPPUP \FILLPUPSOURCE
 \EXCHANGEPUPS \GETPUP \SENDPUP) (COMS (* Accessing a PUP's contents) (FNS \CLEARPUP \GETPUPWORD 
\PUTPUPWORD \GETPUPBYTE \PUTPUPBYTE \GETPUPSTRING \PUTPUPSTRING \GETSTRING \PUTSTRING OCTALSTRING)) (P
 (MOVD (QUOTE NILL) (QUOTE \SETLOCALHOST?))) (COMS (* Sockets) (FNS \CREATESOCKET \FLUSHSOCKET 
\GETMISCSOCKET)) (COMS (* PUP allocation) (FNS \ALLOCATE.PUP \CREATE.PUP \RELEASE.PUP) (GLOBALVARS 
\FREEPUPS) (VARS (\FREEPUPS)) (MACROS BINDPUPS) (PROP INFO BINDPUPS) (ALISTS (PRETTYPRINTMACROS 
BINDPUPS))) (GLOBALVARS \MISC.SOCKET \PUPSOCKETS \ETHERPORTS \LOCALHOST \PUPCOUNTER) (RECORDS PUP10 
8BITBYTES) (GLOBALVARS \ETHERWAIT1 \ETHERWAIT2 \MAXETHERTRIES PUPTRACEFLG) (CONSTANTS (\PUPOVLEN 26Q) 
(\MAX.PUPLENGTH 1024Q) (\TIME.GETPUP 5)) (CONSTANTS * PUPCONSTANTS) (DECLARE: DONTCOPY (RECORDS PORT 
SOCKET) (MACROS PUPTRACING)) (VARS (PUPTRACEFLG (QUOTE %.)) (\ETHERPORTS (LIST (HARRAY 24Q))) (
\PUPSOCKETS) (\MISC.SOCKET) (\LOCALHOST) (\ETHERWAIT1 17Q) (\ETHERWAIT2 3720Q) (\MAXETHERTRIES 4) (
\PUPCOUNTER 0)) (ADDVARS (AFTERSYSOUTFORMS (CLRHASH \ETHERPORTS) (SETQ \PUPSOCKETS (SETQ \LOCALHOST)))
) (FNS PRINTPUP PUPTRACING) (COMS (* Raw network facilities) (FNS REMOTEMAILCHECK ETHERHOSTNAME 
ETHERHOSTNUMBER \LOOKUPPORT)) (DECLARE: EVAL@COMPILE DONTCOPY (FILES (SYSLOAD FROM VALUEOF 
LISPUSERSDIRECTORIES) CJSYS))))
(MOVD (QUOTE NILL) (QUOTE \SETLOCALHOST?))
(RPAQQ \FREEPUPS NIL)
(PUTPROPS BINDPUPS MACRO (X (CONS (LIST (QUOTE LAMBDA) (CAR X) (CONS (QUOTE PROG1) (CONS (CONS (QUOTE 
PROGN) (CDR X)) (for PUP in (CAR X) collect (LIST (QUOTE \RELEASE.PUP) PUP))))) (in (CAR X) collect (
LIST (QUOTE \ALLOCATE.PUP))))))
(PUTPROPS BINDPUPS INFO BINDS)
(ADDTOVAR PRETTYPRINTMACROS (BINDPUPS LAMBDA (FORM) (PROG ((POS (IPLUS 2 (POSITION)))) (PRIN1 "(") (
PRIN2 (CAR FORM)) (SPACES 1) (PRINTDEF (CADR FORM) (POSITION)) (OR (EQ COMMENTFLG (CAAR (SETQ FORM (
CDDR FORM)))) (TAB POS 0)) (PRINTDEF FORM POS T T FNSLST) (PRIN1 ")"))))
(BLOCKRECORD PUP10 ((PUPLENGTH BITS 20Q) (TCONTROL BITS 10Q) (PUPTYPE BITS 10Q) (PUPID BITS 40Q) (DEST
 BITS 20Q) (DESTSKTHI BITS 20Q) (DESTSKTLO BITS 20Q) (SOURCE BITS 20Q) (SOURCESKTHI BITS 20Q) (
SOURCESKTLO BITS 20Q)) (ACCESSFNS ((PUPCONTENTS (WORDOFFSET DATUM 5)) (SOURCESKT (LOGOR (LLSH (fetch 
SOURCESKTHI of DATUM) 20Q) (fetch SOURCESKTLO of DATUM)) (PROGN (replace SOURCESKTHI of DATUM with (
LRSH NEWVALUE 20Q)) (replace SOURCESKTLO of DATUM with (LOGAND NEWVALUE 177777Q)) NEWVALUE)) (DESTSKT 
(LOGOR (LLSH (fetch DESTSKTHI of DATUM) 20Q) (fetch DESTSKTLO of DATUM)) (PROGN (replace DESTSKTHI of 
DATUM with (LRSH NEWVALUE 20Q)) (replace DESTSKTLO of DATUM with (LOGAND NEWVALUE 177777Q)) NEWVALUE))
)) (CREATE (WORDOFFSET (ARRAY 213Q 213Q) 2)) (* This is the PUP10 format straight out of the document)
)
(BLOCKRECORD 8BITBYTES ((BYTE0 BITS 10Q) (BYTE1 BITS 10Q) (BYTE2 BITS 10Q) (BYTE3 BITS 10Q)) (* used 
to refer to the bytes in a PDP-10 word right-justified) (BLOCKRECORD 8BITBYTES ((WORD0 BITS 20Q) (
WORD1 BITS 20Q))))
(RPAQQ \PUPOVLEN 26Q)
(RPAQQ \MAX.PUPLENGTH 1024Q)
(RPAQQ \TIME.GETPUP 5)
(CONSTANTS (\PUPOVLEN 26Q) (\MAX.PUPLENGTH 1024Q) (\TIME.GETPUP 5))
(RPAQQ PUPCONSTANTS ((MaxPupWords 206Q) (\PUPHEADERLEN 24Q) (\PUPPAGELEN 1000Q) (\NetMask 177400Q) (
\HILOCALSOCKET 1) (\SOCKET.MISCSERVICES 4) (\PT.NAMELOOKUP 220Q) (\PT.NAMERESPONSE 221Q) (
\PT.ADDRLOOKUP 223Q) (\PT.ADDRRESPONSE 224Q) (\PT.NAME/ADDRERROR 222Q) (\PT.MSGCHECK 210Q) (
\PT.LAURELCHECK 214Q) (\PT.NEWMAIL 211Q) (\PT.NONEWMAIL 212Q) (\PT.NOMAILBOX 213Q) (\PT.ALTOTIMEREQ 
206Q) (\PT.ALTOTIMERESPONSE 207Q) (\PT.STRINGTIMEREQ 200Q) (\PT.STRINGTIMERESPONSE 201Q)))
(RPAQQ MaxPupWords 206Q)
(RPAQQ \PUPHEADERLEN 24Q)
(RPAQQ \PUPPAGELEN 1000Q)
(RPAQQ \NetMask 177400Q)
(RPAQQ \HILOCALSOCKET 1)
(RPAQQ \SOCKET.MISCSERVICES 4)
(RPAQQ \PT.NAMELOOKUP 220Q)
(RPAQQ \PT.NAMERESPONSE 221Q)
(RPAQQ \PT.ADDRLOOKUP 223Q)
(RPAQQ \PT.ADDRRESPONSE 224Q)
(RPAQQ \PT.NAME/ADDRERROR 222Q)
(RPAQQ \PT.MSGCHECK 210Q)
(RPAQQ \PT.LAURELCHECK 214Q)
(RPAQQ \PT.NEWMAIL 211Q)
(RPAQQ \PT.NONEWMAIL 212Q)
(RPAQQ \PT.NOMAILBOX 213Q)
(RPAQQ \PT.ALTOTIMEREQ 206Q)
(RPAQQ \PT.ALTOTIMERESPONSE 207Q)
(RPAQQ \PT.STRINGTIMEREQ 200Q)
(RPAQQ \PT.STRINGTIMERESPONSE 201Q)
(CONSTANTS (MaxPupWords 206Q) (\PUPHEADERLEN 24Q) (\PUPPAGELEN 1000Q) (\NetMask 177400Q) (
\HILOCALSOCKET 1) (\SOCKET.MISCSERVICES 4) (\PT.NAMELOOKUP 220Q) (\PT.NAMERESPONSE 221Q) (
\PT.ADDRLOOKUP 223Q) (\PT.ADDRRESPONSE 224Q) (\PT.NAME/ADDRERROR 222Q) (\PT.MSGCHECK 210Q) (
\PT.LAURELCHECK 214Q) (\PT.NEWMAIL 211Q) (\PT.NONEWMAIL 212Q) (\PT.NOMAILBOX 213Q) (\PT.ALTOTIMEREQ 
206Q) (\PT.ALTOTIMERESPONSE 207Q) (\PT.STRINGTIMEREQ 200Q) (\PT.STRINGTIMERESPONSE 201Q))
(RPAQQ PUPTRACEFLG %.)
(RPAQ \ETHERPORTS (LIST (HARRAY 24Q)))
(RPAQQ \PUPSOCKETS NIL)
(RPAQQ \MISC.SOCKET NIL)
(RPAQQ \LOCALHOST NIL)
(RPAQQ \ETHERWAIT1 17Q)
(RPAQQ \ETHERWAIT2 3720Q)
(RPAQQ \MAXETHERTRIES 4)
(RPAQQ \PUPCOUNTER 0)
(ADDTOVAR AFTERSYSOUTFORMS (CLRHASH \ETHERPORTS) (SETQ \PUPSOCKETS (SETQ \LOCALHOST)))
NIL