Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/exec.com
There are no other files named exec.com in the archive.
(FILECREATED "13-JUN-82 15:28:33" ("compiled on " <LISPUSERS>EXEC.;50) (2 . 2) brecompiled exprs: 
FINDUSER in WORK dated "12-JUN-82 12:57:41")
(FILECREATED "13-JUN-82 15:27:46" <LISPUSERS>EXEC.;50 41313 changes to: (FNS FINDUSER) previous date: 
" 9-MAY-81 09:04:21" <LISPUSERS>EXEC.;49)
(ADDTOVAR NOSWAPFNS EXPUNGE FORKSTAT1)
DSKSTAT BINARY
fA,-.(A-.CEZ,<@E+mZ,<,<F,<G,<@G`+fZZIXB,<I,<JJ,,Z,XB,<?~,<N,<N,<Zw~,<?O,,><,>Zw~Z?~"+(^"-+(,,><,> =$Bx,^/ ,^//,,<,mXBp2B+1Z+cZP6@ZQ2BP+5ZpbQ+7ZpbRbS,<TS[pZbS,<US[p[[[Z,<,<U,+[p[Z,<,<VZw~Z?~-,+CZ"-,<,<V,,<,+[p[[Z,<,<W,+ZwZ83B+P[p[[[[Z,<,<W,+,<XSZwZ?2B+0,<XSZP6@ZQ2BP+XF ,+Z =F ,bS,<YSZP6@ZQ2BP+`F,+a =F,bS,<YS+0/ZwXB8Z,~3B+hZ+hZZXB`dZZ`3B+l[,~Z`,~+ wb ,,<,<\,<\,<\,<\Zw}3B+| w~,><,>Zw}-,+x w|b+x, ,^/2"+|Z+* w},>>,>>,>>,>>,>>,>?,>,>,>,>,>,>,>,>,>,>?,>@,>>,>,>>,>>,>>,>>,><,> w| ,^/ 5% $DZ],  "|+% BxZx @ &yZ
}.Ju y`d@+ x2$~3d+.Jw+.Jv+ wad.Jv x+ Bw+Zx	+  w,XBw~ v,XBw v,XBw w~/u,XBp/,<w|,<w},<w},<w~,<w},<w}^",/,~Zw0B+-Z+Z,<]S,<wS,<^^,<p,<,<Zw2B+4+;-,+7XBpZXBw+9ZwXBp[wXBw,<pS+2Zw/+`$~?{h)U8
QBTK;y`0DH1x{F=f<S<Q+p_HHT
(U . 1)
(NDAYS . 1)
(NPAGES . 1)
(NOSYS . 1)
(INV . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 6)
(VARIABLE-VALUE-CELL RESETVARSLST . 37)
(VARIABLE-VALUE-CELL DIRECTORIES . 58)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
RADIX
10
(NIL)
(LINKED-FN-CALL . RADIX)
OUTPUT
(NIL)
(LINKED-FN-CALL . OUTPUT)
(NIL)
(LINKED-FN-CALL . FINDDIRECTORYNUMBER)
"not user name"
(NIL)
(LINKED-FN-CALL . ERROR)
(NIL)
(LINKED-FN-CALL . IDATE)
TENEX
TOPS20
(NIL)
(LINKED-FN-CALL . PRINTUSERNAME)
(NIL)
(LINKED-FN-CALL . DIRECTORYNAME)
(NIL)
(LINKED-FN-CALL . PRIN1)
": "
" used"
"deleted"
"untouched in "
" days"
"in old versions"
"protected"
".
"
"System total: "
" pages left, "
" used.
"
ERROR
(NIL)
(LINKED-FN-CALL . RESETRESTORE)
(NIL)
(LINKED-FN-CALL . ERROR!)
0
"*.* "
", "
1
(NIL)
(LINKED-FN-CALL . SPACES)
(SKNLST URET2 LIST UPATM XXXMHC URET5 LIST3 ASZ SKNNM KL20FLG MKN BHC SMALLT IUNBOX SKNI SKI KT CONS 
CONSNL ALIST2 CF KNIL BLKENT ENTER5)XP.*
hHDC]
X3%8"p
`0XhH+h(dX,'y$v0Xhfp X(p402X|8k
0K0pp(

SYSTATBLOCKA0009 BINARY

	-.Z`,,>,>Z`, ,^/3b7Z,~(X . 1)
(Y . 1)
(KT KNIL BHC IUNBOX ENTER2)xhP

SYSTATBLOCK BINARY
b(U-.(-. (p*} pG"  "G7 3B+ pG"  #G7 3B+Z++,<,,<-,<.Z+Zp2B+Z+2B/+Z/+-,+,<,</3B+Zp+Z+,<Zd0,<Z16@Z22B1+" # +&2B2+% $ +&2,A",,<,<3 wQ"+  ^"/,,<Z16@Z22B1+0Z"+32B2+2Z"+32,<,<,<,<,<Z16@Z22B1+A $,>%,> w|,>%,> w~ ,^/Q"+ ABx,^/,+P2B2+O w~ % %#+ + + ,>%,> w~ ,^/2B+N w~ % &#+ + +  ,+PZ"+P2XBp w~,>%,> w} ,^/3b+U+Zw|2B+nZ16@Z22B1+\Zp1B+
0B++
2B2+l w~,>%,> w~ % %#+ + +  ,^/2B+
,<p,<44,\,2B+
,<p,<54,\,3B++
23B++
2B/+Z16@Z22B1+tZp0B++
2B2+} w~,>%,> w~ % %#+ + +  ,^/3B++
22B++
 p,>%,> w| ,^/3B++
Zw~XBwZw3B+
,<Zw,XBw~,\QB+
Zw,XBwXBw~ w~.",XBw~+5Zw~/,~Zp3B6++Z,<,,<,<Zw-,+ZpZ2B+ "+[QD "+ Zw,<,)Zp,XBp[wXBw+/,<,<pZ6d7,<Zp-,+%+(Zp,<,A[pXBp+#/Z+,<,<Z16@Z22B1+0,<8,<w~8-,+8Z+2B2+7 w % %#+ + +  ,"+8+/2XBp,<,<,<,<,<Z16@Z22B1+G,<9,<w|8-,+AZ/+,(Bw,XBw},0B+FZ"+NZw}+N2B2+M w| % &#+ + +  ,XBw}+N2XBpZw|XBwZ16@Z22B1+V $,>%,> w}ABx,^/,+]2B2+\ w| % &#+ + +  ,+]2XBwZ16@Z22B1+aZ:+c2B2+cZ:+c2,<,<w|,<;8b;XBw~Z16@Z22B1+k w}(Bw,+q2B2+q w| % '#+ + +  ,+q2XBw~Z2B<+wZw|, ',,+xZ",<,<w,<w~,<w},<w|,<w{^",/+,<Zw-,+,<,+,<,,<,<,<,<Zw~-,+Zw+Zw~,<,<p,)XBp[Z1B+
Zp,+-,+Zw3B+ZpQD+ZpXBw  [2D+XBw[w~XBw~+/XBp2B+,<=,<-,<.Z+[p3B+>,<pZp-,+!+$Zp,<,A[pXBp+/,<.,<,<,<=,<w~,<Zw-,+.ZpZ2B+, "+.[QD "+=Zw,<[pZb>,<,<?,<?,<,<@Zw}3B+83B+8-,+8,<@,<,^,,/Zp,XBp[wXBw+(/hA+?Zp[Z,<,+Zp3B+!Z,<@B +!Z,<,<C,<D,<@D`+ZZFXB,<F,<GG,,ZE,XBM,<H,<I,,ZN,XBQZw,<8,<J,<JJ[p[Zb-,<KJ,<LG[pZ0B+\ZL+][pZb-,<GG,<LJZ16@Z22B1+e[p[[ZbM+j2B2+j[p[[Zb/b-+j2[p[[[ZZN,2B+s,<6-[p[[[Zb-[p[[Z,,>%,>[p[[[[Z, ,^/3B+
Z16@Z22B1+,<N-[p[[[[ZbM,<O-+
2B2+,<O-[p[[[[ZbPb-+
2Zp,1B+,<Q-Zp,&",b-,<Q-Zp,&" ,b-,<R-.Z/ZwXB8Z,~3B+Z+ZRXB`dSZ`3B+ T,~Z`,~+Z+U>J9U>M"_ Dji*+g n`> vd7/&XXo\z0h
B$F$j6@^P;b|`5g.;L$$$@D5dI(BRXX"S*p(?8<<	`A||@-0(SYSTATBLOCK#0 . 1)
(VARIABLE-VALUE-CELL OTHERUSERS . 57)
(VARIABLE-VALUE-CELL HOSTNAME . 484)
(VARIABLE-VALUE-CELL LISPXHIST . 646)
(VARIABLE-VALUE-CELL RESETVARSLST . 677)
LINKTOUSER
SYSTAT
(NIL)
(LINKED-FN-CALL . BREAKLINKS)
"Refused"
(NIL)
(LINKED-FN-CALL . PRIN1)
(NIL)
(LINKED-FN-CALL . TERPRI)
ALL
(NIL)
(LINKED-FN-CALL . USERNAME)
(NIL)
(LINKED-FN-CALL . FINDUSERNUMBER)
TENEX
TOPS20
(NIL)
(LINKED-FN-CALL . SHOULDNT)
""
OPERATOR
(NIL)
(LINKED-FN-CALL . USERNUMBER)
OPS
,
SYSTATBLOCKA0009
(NIL)
(LINKED-FN-CALL . SORT)
JOBDIR
(NIL)
(LINKED-FN-CALL . GETAB)
JOBTTY
JOBNM2
JOBPNM
1000000
(NIL)
(LINKED-FN-CALL . SIXBIT)
PARC-MAXC
"[not logged in]"
"Which TTY? "
(NIL)
(LINKED-FN-CALL . OCTAL)
""
CONFIRMFLG
RETURN
QUOTE
(NIL)
(LINKED-FN-CALL . ASKUSER)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
RADIX
10
(NIL)
(LINKED-FN-CALL . RADIX)
OUTPUT
(NIL)
(LINKED-FN-CALL . OUTPUT)
0
(NIL)
(LINKED-FN-CALL . TAB)
4
8
det
(NIL)
(LINKED-FN-CALL . PRINTUSERNAME)
"EXEC"
",<"
>
","
(NIL)
(LINKED-FN-CALL . DIRECTORYNAME)
","
"."
"%%"
ERROR
(NIL)
(LINKED-FN-CALL . RESETRESTORE)
(NIL)
(LINKED-FN-CALL . ERROR!)
(STREQUAL CONS ALIST2 CF ALIST LIST2 SKNNM SKLST SKNM LIST FLTFX GUNBOX SMALLT URET3 SKNI URET2 COLLCT
8SKNLSTCONSNL'EQUALBHCASZMKN)IUNBOXKL20FLG SKI URET1 KT KNIL BLKENT ENTER1)nS)p*MJ:97|wu7} 1@x(  *;h%  X$h* N!H
HT	@X+8F8\0O(02wkHVPCh	hAP(2`
4(3@3o)C&P+%0($p&#h#"

LINKTOUSER BINARY
-.,<,~(USER . 1)
LINKTOUSER
(NIL)
(LINKED-FN-CALL . SYSTATBLOCK)
(ENTER1)

SYSTAT BINARY
-.,<,~(USER . 1)
SYSTAT
(NIL)
(LINKED-FN-CALL . SYSTATBLOCK)
(ENTER1)
STATSBLOCKA0004 BINARY
-.,<`",~(X . 1)
(Y . 1)
FORKSTAT1
(ENTER2)
STATSBLOCK BINARY
ehF-.h-.8hXlW..Z,<@n +-Z,<,<p,<p,<@q`+&ZZrXB,<s,<"s,,Z,XB,<s,<t"s,,Z,XB@t+$ZwZ?2B+Z" XB`+(XB`-,+",<v,<?"vXB`,,<,<,Z,XB +( ?0"+(Zw ?1b+(Zw ?.",XB` ` d d# ,XB`,<w"w,<`,.Bw `,>e,> e(BABx,^/1B+5,<x,<,<, `,>e,> e(BABx,^/1B+<,<x,<,<, `,>e,> e(B~ABx,^/0B+C,<y,<,<,^"?,>e,> `(BsABx,^/,,<,<,<,,<y"w^"?,>e,> `(BwABx,^/,,<,<,<,,<z"w^",>e,> `(B{ABx,^/,0B+X+a0B+\,<z,<,<,+a0B+_,<{,<,<,+a,<{,<,<, `,>e,> e(BsABx,^/0B+h,<|,<,<, `,>e,> e(BrABx,^/1B+o,<|,<,<,^",>e,> `(B}ABx,^/,0B+u+~0B+y,<},<,<,+~0B+|,<},<,<,+~,<~,<,<, `,>e,> e(BqABx,^/1B+,<~,<,<, `,>e,> e(BpABx,^/1B+
,<,<,<,^",>e,> `(BABx,^/,0B++0B+,<,<,<,+0B+,<,<,<,+ ^",>e,> `(BzABx,^/,0B+ +D0B+#,<,<,<,+D,<,<,<,^"
,>e,> e(BvABx,^/1B++7Z0B+-Z+20B+/Z+20B+1Z+2Z,<,<,<,,<,<,<, `,>e,> e(BuABx,^/1B+=,<,<,<, `,>e,> e(BtABx,^/1B+D,<,<,<, `% ,,< `% ,,<Zw~Z82B+LZ+LZ,<@`0+",<
,<,< p,>e,> w ,^/3b+UZw+^",>e,>ZpXB,0b+Z `+] p/"	,XBW `,>e,>^"o,>e,> \.Bx _.Bx,^/ ,^/(BABx,^/,0B+hZ+o0B+jZ
+o0B+lZ
+o0B+nZZ`Z`7[ZZ1H+u2D+q[,,\,2B+Z`,<Z`Z7@7Z,<^",>e,><w.Bx,^/,B,<*Z`3B+" ,<",<"w,<`,<,<,<,<*,~ Z,~ZwXB8Z,~3B+(Z+(ZXB`DZ`3B+, ,~Z`,~+Zp2B+0 f+1,a+ + +  ,,<Z,<,<,<Zw-,+8+PZXBpZp3B+FZp,<Z6@Z,\3B+FZZp1B+D*-,+D*,2B7 3B+NZw~[p7[ZZ1H+K2D+GXBp2B+M+N[pZ+[wXBw+6Zw~+R+BBXBw~-,+V,<D+VB+Z,<@n +Z!,<,<,<p,<@q`+{ZZrXB,<s,<"s,,ZZ,XBb,<s,<"s,,Zc,XBfZwZ?3B+p,<,<8,2B+yZw,<?",<",<"w +y,<,< w1b+x,<wZw~,<8,XBp w/",XBw+qZp/ZwXB8Z,~3B+}Z+}ZXB`DZ`3B+ ,~Z`,~+ w d
 ,,<@ + `,>e,> e(B{ABx,^/1B+ZwZ83B+ `,>e,> e(BABx,^/1B+ `,>e,> e(BwABx,^/0B+Zw,<?,<ZFXB`3B+Zw,<?",<",<,<$Z`3B+"Bw+#,<"w,<",<,<$ `,>e,> e(BABx,^/1B+ `,>e,> e(BABx,^/1B+2,<,<,<, `,>e,> e(BABx,^/1B+@ `,>e,> e(B~ABx,^/1B+>,<,<,<,+@,< ,<,<, `,>e,> e(B~ABx,^/1B+G,< ,<,<, `,>e,> e(B}ABx,^/1B+N,<!,<,<,^",>e,> `ABx,^/,XB`1B+W,<!,<,<,,<`" `,>e,> e(B|ABx,^/1B+^,<",<,<, `,>e,> e(B{ABx,^/1B+e,<",<,<,,<#,<`$#XB`3B+_Zw ? d d2 ,,<,<`,<,<`,<`($BXB`2B$+= p,>e,> e(B~ABx,^/1B+w,<%,<,<, p,>e,> e(B}ABx,^/1B+~,<%,<,<, p,>e,> e(B}ABx,^/1B+,<&,<,<, p,>e,> e(B|ABx,^/1B+
,<&,<,<,^",>e,>`ABx,^/1B+p,>e,>+e(B|ABx,^/0B+,<',<,<,Bp,>e,>e(B{ABx,^/0B+,<',<,<,"p,>e,>,e(B{ABx,^/1B+&,<(,<,<,^",>e,>bpABx,^/,0B+,Z(+:0B+.Z)+:0B+0Z)+:0B+2Z*+:0B+4Z*+:0B+6Z++:0B+8Z++:0B+:Z,+:,,<,<,<,+;2B-+[^",>e,>p(BpABx,^/,0B+DZ-+Y0B+FZ.+Y0B+HZ.+Y0B+JZ/+Y0B+LZ/+Y0B+NZ0+Y0B+PZ0+Y0B+RZ1+Y0B+TZ1+Y0B+VZ2+Y0B+XZ2+Y ,,<,<,<,+2B3+]+2B3+^+B,/ `,>e,> e(BwABx,^/0B+ `,>e,> e(B~ABx,^/0B+,<t"sZw ?+  ,,<,<,<, `,>e,> e(B~ABx,^/1B+uZ4+vZ4BwZw ?+  ,B `,>e,> e(B~ABx,^/1B+Z5+Z5Bw,<"s+,<6,<,<, ZwZ?,~Z,~+Zp3B+,<,<,<Zw2B+
 &D79N ",XBw+UB62B+T+K Zw~Z?"+YZ?"+YZwXB?Z?"+\Z"Zw~XB?,<Zw} ?,>e,>Zw} ? ,^/3b+cZp+nZw},<?,<8,{XBw,<,<w~,&2B+j,<w~,^ZwXBw~Zw} ?.",Zw}XB?+]/,<w,^,<,<$+K/ZwXB8Z,~3B+vZ+vZXB`DZ`3B+z ,~Z`,~+,< f,>e,> w,>e,>Zw-,+ g+, ,^/Q" ABx,^/(B,>e,>Zw2B+ ",>e,> w.Bx,^/ +^"GBx,^/,XBp1B+%,<w w,>e,> e(B|ABx,^/0B+Zw+Z+"Z w~,>e,>Zw-,+ g+, ,^/Q",Zw,Z$,,+Z+ZwZp3B77+Zw3B+]Zp3B+][w[[,<[w[[,\,3B+]Zw,<Zw,,>e,>[wZ,.Bx,^/,,\2B+][w[Z,<[w[Z,\3B+X[w[Z3B+][p[Z3B+][w[Z,(Bw,>e,>[p[Z,(Bw ,^/2B+][w[Z,A",>e,>[p[Z,A",>e,>[pZ,.Bx,^/ ,^/2B+][p,<[wZ,.",D;Z+Z+Zp3B+Y[p[[,<@< +X,<,<$ZwZ8,<Zw[8Z,<,Z,<",<=,<$ `,>e,> e(B~ABx,^/1B+q,<="wZw[8[Z0B+u+LZw[8[Z2B+y,<>"w+Zw[8[Z,(Bw0b +Zw[8[Z,(Bw,,<,<Z>FBw+	,<?"wZw[8[Z,(BwA",Bw,<?",<@,<$Zw[8[Z,A",,<Zw[8Z,<,Z,<?",<@,<$ `,>e,> e(B~ABx,^/0B+,<A"w `,>e,> e(BABx,^/1B+",<A,<,<, `,>e,> e(BABx,^/1B+),<B,<,<, `,>e,> e(B|ABx,^/1B+0,<B,<,<, `,>e,> e(BABx,^/1B+7,<C,<,<, `,>e,> e(B}ABx,^/1B+>,<C,<,<, `,>e,> e(B{ABx,^/1B+E,<D,<,<,+L `,>e,> e(BzABx,^/1B+L,<D,<,<, f,>e,> `ABx,^/,XB1B+W,<?",<E,<$ZPBE2B+WZTBwZ,~+Z+,<w"wZp0B+]Z+Z,<F"w w,>e,> p.Bx,^/.g,Bw+@xxS*Pp(IP
(P2P2@@ 
TT
T
PN@9(nxJAJAHZ@T	]`A (?~
~
~4`	$$gBM+A OxD& 
A(Ii* JA(eAJAJJP2P3IA(P2P2Pe((2P2@;;]nxznw;]]o|PT*@T|`20a*PS*p(I
J`Fq@@Q
@p-  A)HBA  @p*@ ` z u***
T
jpU $h(STATSBLOCK#0 . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 1373)
(VARIABLE-VALUE-CELL RESETVARSLST . 1404)
(VARIABLE-VALUE-CELL J . 449)
(VARIABLE-VALUE-CELL TERMINALTYPES . 617)
(VARIABLE-VALUE-CELL HOSTNAME . 638)
(VARIABLE-VALUE-CELL USERFORKS . 1323)
(VARIABLE-VALUE-CELL FLG . 1965)
FILESTAT
MEMSTAT
FORKSTAT
TERMSTAT
TERMTYPE
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
OUTPUT
RADIX
10
(T VARIABLE-VALUE-CELL FLG . 0)
NIL
NIL
RLJFN
GTJFN
"terminal is "
PRIN1
"has formfeed"
"has TAB"
"no lowercase"
" long"
" wide"
"no echo"
"immediate echo"
"echo both immediate and deffered"
"links refused"
"advice allowed"
"binary mode"
"binary echo"
"binary output"
"indicate lower case"
"convert lower to upper"
"char. half duplex"
"half duplex"
SHOULDNT
"wakeup every char"
"wakup "
"no"
"non-formatting"
"formatting"
"all"
" controls"
"punctuation"
"letters"
(((IGNORE 0) (INDICATE 1 2 3 4 5 6 8 11 14 15 16 17 18 19 20 21 22 23 24 25 26 28 29 30) (SEND 7 9 10 
12 13 31) (SIMULATE 27)) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
NIL
NIL
NIL
NIL
NIL
(NIL VARIABLE-VALUE-CELL FLG . 0)
31
0
IGNORE
INDICATE
SEND
SIMULATE
CHARACTER
NCONC
TERPRI
4
SPACES
"ignore control "
,
MAPRINT
"indicate control "
"send control "
"simulate control "
ERROR
RESETRESTORE
ERROR!
TENEX
TOPS20
SIXBIT
MKATOM
"TEKTRONIX-"
CONCAT
((DUMMY) . 0)
8
PRIN2
TAB
"NOT ASSIGNED"
64
(0 . 1)
(NIL VARIABLE-VALUE-CELL FLG . 0)
NIL
NIL
""
JFNS
1
"Restricted JFN"
40
READ
WRITE
APPEND
EXECUTE
"PAGE-TABLE"
"MODE "
EOF
"DATA ERROR"
":"
STRPOS
SUBSTRING
PUP:
MARK
END
TIMEOUT
"NO CHECKSUMS"
"-R"
"-W"
"DISCARD PACKETS"
"CLOS"
"RFCO"
"LIST"
"OPEN"
"ENDI"
"ENDO"
"DALY"
"ABOR"
HELP
NET:
"DEAD"
"CLZD"
"PNDG"
"LSNG"
"RFCR"
"RFCS"
"OPND"
"CLSW"
"CLZW"
"RFN2"
"FREE"
LPT:
TTY:
"("
"["
")"
"]"
"NOT OPENED"
FORKSTAT1
STATSBLOCKA0004
MAPHASH
", "
" "
NCHARS
POSITION
LINELENGTH
((DUMMY) . 0)
511
RPLACA
(0 . 1)
(NIL VARIABLE-VALUE-CELL FLG . 0)
9
"@ "
"private"
""
"fork "
2
35
45
"- "
R
W
CW
E
TRAP-TO-USER
P
S
60
TYPENAMEFROMNUMBER
"-"
(EQUAL CONSS1 CONS21 TYPTAB URET3 URET1 SKNM SMALLT URET5 SKLST KL20FLG SKNLST URET2 SET KNOB FMEMB 
IUNBOX BHC MKN LIST2 SKNI ASZ CONS CONSNL ALIST2 KT CF KNIL BLKENT ENTER1)1%$
&dX|Uh{(YS*Hc[[WYQW*(OB='|P^kp^e00.{Dxqpp|k8Uj NiFfh4cxU%T01|0Py Bw84uX&sxnXjhKg!bpaX`@r]pbU(&RX~N@iL@`H(*D8BXA ?@u<([:(L8P;6h/5(2(/ fHc@A(*h @m
`W	xH:0|@Qr	p\g"bmZ zM`CE(l:0.x4 Pp\FpHW
H@(!`\z td@[@WJXSJOIXKIGHXCG7FP3F/EP+:@m8ix0h,p zhuPY#Wh:,xc  WX9,hb WP9,`bx{hTrP
m8(c0	^@JYFXPCW@4`0/0e(P&8<X38%P#(6+p|v^Ph[XTYHKX @Wx4TS QP
Q8
PxP@oMp[K(<G@&DXChBx
A@@P~?`w>ph<Pd;`]:`U9hN8xG8@7`=6 143 0}/@r-@i+PL)0F(XD'07&h/%0($p$$!$#(#"8"(!H
!8uxPPK@=`4@P
@P~`|8xo
_h[0Q
J	C0<@5P 
FILESTAT BINARY
-.,<,~(JFN . 1)
(ALLFLG . 1)
FILESTAT
(NIL)
(LINKED-FN-CALL . STATSBLOCK)
(ENTER2)
MEMSTAT BINARY
-.,<,~(PG1 . 1)
(PGN . 1)
(SOURCE . 1)
MEMSTAT
(NIL)
(LINKED-FN-CALL . STATSBLOCK)
(ENTER3)
FORKSTAT BINARY
-.,<,~(FORK . 1)
FORKSTAT
(NIL)
(LINKED-FN-CALL . STATSBLOCK)
(ENTER1)
TERMSTAT BINARY
-.,<,~(TERMID . 1)
(ALLFLG . 1)
TERMSTAT
(NIL)
(LINKED-FN-CALL . STATSBLOCK)
(ENTER2)
TERMTYPE BINARY
-.,<,~(JFN . 1)
TERMTYPE
(NIL)
(LINKED-FN-CALL . STATSBLOCK)
(ENTER1)
CNDIR BINARY
'%-.@ ,~Z-,+,<,<$ 2B+Z-,+	-,+,<,<$ 2B+Z,<Z!D!,<,<$ 2B+,<"Z
,<,B"XBZ,<ZD#2B+Z,<ZD#XBZ$,2B++,<$ZD%,<,<$ ,~%S!"NH(VARIABLE-VALUE-CELL DIR . 34)
(VARIABLE-VALUE-CELL PASSWORD . 49)
(NIL VARIABLE-VALUE-CELL DIRNAME . 56)
DIRECTORYNAME

PACK*
27
ERRORX
CONNECTDIR
GETPASSWORD
""
"Can't connect to directory"
ERROR
(STREQUAL LIST2 SKSTP SKNLA KNIL KT SKI ENTERF)(00
phx`H
COPYALLBYTES BINARY
VES-.EZ,<@GF,~Z,<,<I,<I,<@J`+>ZZKXB@L+<Z3B+,<,<M$N+ MXB3B+BN3B+Z"XB,<OZ,<Z,,,+,<OZ,<,<M,<ZHPXB,,<,<,Z,XBZ3B+",<,<P$N+" PXB2B++,<OZ,<,<P,<ZHPXB",,<,<,Z,XB*Z&2B+5Z'2B+5Z,<,<Z,<Z03B+3Z"+4ZHQ+;Z.,<Z-,<Z1,<Z73B+:Z"+;ZHQZ,~XBZ,~3B+@Z+@ZRXBDRZ@3B+D S,~Z<,~
(VARIABLE-VALUE-CELL TOFILE . 73)
(VARIABLE-VALUE-CELL BYTESIZE . 87)
(VARIABLE-VALUE-CELL LISPXHIST . 3)
(VARIABLE-VALUE-CELL RESETVARSLST . 86)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
(NIL VARIABLE-VALUE-CELL RESETY . 136)
(NIL VARIABLE-VALUE-CELL RESETZ . 131)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL VARIABLE-VALUE-CELL IN . 106)
(NIL VARIABLE-VALUE-CELL OUT . 108)
(NIL VARIABLE-VALUE-CELL PTR . 112)
INPUT
OPENP
RANDACCESSP
SETFILEPTR
CLOSEF?
OPENFILE
OUTPUT
PFCOPYBYTES
COPYBYTES
ERROR
RESETRESTORE
ERROR!
(KT CONS LIST2 ALIST2 ALIST3 MKN FGFPTR ASZ CF KNIL ENTERF)`.+h()@ph`(300@p<89H2P*p$ 
p
EXPUNGE BINARY
E8C-.8Z2B+ZB:,<@: ,~Z;6@Z;3B;+,<":,,>8,>  ,^/3B+ :,,>8,>  ,^/2B+ Z;6@Z;2B;+ 47 2B+7+ ^",>8,>  ,^/47 2B+7Z,<@< ,~Z,<,<=,<>,<@>`+0ZZ@XB,<@,<,<$A,,<ZB@,Z",XB,Z+BAXBZ,~3B+2Z+3ZBXBDBZ33B+6 C,~Z/,~,~RuP7PU$ Bi(VARIABLE-VALUE-CELL DIR . 92)
(VARIABLE-VALUE-CELL LISPXHIST . 64)
(VARIABLE-VALUE-CELL RESETVARSLST . 91)
DIRECTORYNUMBER
(VARIABLE-VALUE-CELL NUM . 54)
TENEX
TOPS20
(VARIABLE-VALUE-CELL LISPXHIST . 0)
(NIL VARIABLE-VALUE-CELL RESETY . 109)
(NIL VARIABLE-VALUE-CELL RESETZ . 104)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
CNDIR
DIRECTORYNAME
EXPUNGE
ERROR
RESETRESTORE
ERROR!
(CONSALIST2HCFBHC0IUNBOXKL20FLGKTKNIL(ENTERF)`P+'(
ODATE BINARY
	-.Z,<,<ZF,<ZD,~H(VARIABLE-VALUE-CELL DATE . 3)
(VARIABLE-VALUE-CELL FILE . 9)
""
GDATE
PRIN1
(KNIL ENTERF)8
DETACH BINARY
0#.-.# $3B+Z,~ZZ,<@$ ,~Z,<,<&,<&,<@'`+ZZ(XB,<),<"),,Z,XB,<),<*"),,Z,XB,<*"+ ,B+&,<,"+ ,,ZXBZ,~3B+Z+Z-XBD-Z3B+" .,~Z,~U@Z0(VARIABLE-VALUE-CELL LISPXHIST . 9)
(VARIABLE-VALUE-CELL RESETVARSLST . 40)
DETACHEDP
(VARIABLE-VALUE-CELL LISPXHIST . 0)
(NIL VARIABLE-VALUE-CELL RESETY . 68)
(NIL VARIABLE-VALUE-CELL RESETZ . 63)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
OUTPUT
RADIX
10
"detaching job "
PRIN1
PRINT
"reattached"
TERPRI
ERROR
RESETRESTORE
ERROR!
(SETMOD MKN CONS CONSNL ALIST2 CF KT KNIL ENTER0)8p@@PP 0
TTY# BINARY
-. ,,~(MKN ENTER0)
DETACHEDP BINARY
-. 0B7Z,~TTY#
(KT KNIL ASZ ENTER0)
FORKSTAT1 BINARY
_H\-.H@J0
,~Z2B+ZMXB+
 1"+
 1b+Z,~ZZ,XB 74XB_5"3BHXBXBdXBXDZ3B++
Z,<@N<+GZ,<,<O,<P,<@P`+@ZZRXB,<R,<S"R,,Z,XB,<S,<"S,,Z,XB#,<T"T9ZX+9ZYBTZ,BTZ
3B+>,<Y"T ZXBZ,~3B+BZ+BZZXBD[ZB3B+F [,~Z>,~Z&,~5L)U8sG;\oIpZ0(VARIABLE-VALUE-CELL FORK . 142)
(VARIABLE-VALUE-CELL USERFORKS . 23)
(VARIABLE-VALUE-CELL LISPXHIST . 42)
(VARIABLE-VALUE-CELL RESETVARSLST . 73)
(NIL VARIABLE-VALUE-CELL STATUS . 87)
(NIL VARIABLE-VALUE-CELL PC . 116)
(NIL VARIABLE-VALUE-CELL CHANNEL . 105)
(NIL VARIABLE-VALUE-CELL LISP . 119)
(NIL VARIABLE-VALUE-CELL UNASSIGNED . 38)
(NIL VARIABLE-VALUE-CELL FROZEN . 82)
131072
(VARIABLE-VALUE-CELL LISPXHIST . 0)
(NIL VARIABLE-VALUE-CELL RESETY . 140)
(NIL VARIABLE-VALUE-CELL RESETZ . 135)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
RADIX
8
OUTPUT
"FORK "
PRIN1
", "
"(FROZEN) "
"RUNNING AT "
"I/O WAIT AT "
"HALTED AT "
"TRAP, CHANNEL "
", AT "
"FORK WAIT AT "
"UNKNOWN STATE, PC= "
" (subsys)"
TERPRI
ERROR
RESETRESTORE
ERROR!
(ASZ MKN KT CONS CONSNL ALIST2 CF GETHSH SKI KNIL ENTERF)881x-;`-"%@ #xHPpPB=(HH
PRINTUSERNAME BINARY
 Z/$5 (4B
1b-1" g.",5,<ZD,~P4(VARIABLE-VALUE-CELL N . 8)
(VARIABLE-VALUE-CELL FILE . 24)
(VARIABLE-VALUE-CELL MACSCRATCHSTRING . 5)
"unknown"
PRIN1
(FOUT ASZ UPATM OFSET ENTERF)8X@0
FINDDIRECTORYNUMBER BINARY
0(/-.(Z-,+B*3B+Z2B+'ZB*2B+'Z,<Z+D+B*2B+'Z,<Zp-,+Z+Zp,<,<w/@, +Z3B+Z,<,<,<,,<,<*-,~Z,~3B+Zp+[pXBp+
/Z2B+'Z,<,<Z,<Z,<,<,<,<,<0-2B+',<.ZD.B*,~%'!!HH)[(VARIABLE-VALUE-CELL DIRNAME . 76)
(VARIABLE-VALUE-CELL SPLST . 64)
(VARIABLE-VALUE-CELL FLG . 66)
(VARIABLE-VALUE-CELL DIRECTORIES . 23)
DIRECTORYNAME
DIRECTORYNUMBER

CONCAT
(VARIABLE-VALUE-CELL DIR . 37)
1
STRPOS
FIXSPELL
"Can't find directory"
ERROR
(KT BHC SKNLST KNIL SKI ENTERF)H$xX%8# ppH0
FINDUSERNUMBER BINARY
-.Z-,+B3B+Z2B+ZB2B+Z,<ZDB2B+Z,<,<Z,<Z,<,<,<,<,<02B+,<ZDB,~%' l(VARIABLE-VALUE-CELL USERNAME . 38)
(VARIABLE-VALUE-CELL SPLST . 26)
(VARIABLE-VALUE-CELL FLG . 28)
USERNAME
USERNUMBER

CONCAT
FIXSPELL
"Can't find user"
ERROR
(KTKNILSKIENTERF)(
GTJFNTTY BINARY
_K\-.K@M(
,~,<P,<,<@P`+ZZRXB H I+ ,XBZ,~2B+
ABx,^/0"J7ZXB3B+$0BSXBZBS,<T,<$TZ3B+!ZBUZ,<ZDU,~ I ,1B+(0B
+,Z3B+*ZBS,<V,<$V+1B+/1B+/0B?+;,<W,<$VZ(3B+9Z),<,<,<W&S,<,<$V,<X,<$VZ2BS+:,<X"VZ!,~Z13B+? I+ +Z2B+DZXB?,<,<ZFYXB ,<Y,<$V,<Z"Z [,<"[+  ~04QBK54FkaI^@(VARIABLE-VALUE-CELL FILE . 0)
(VARIABLE-VALUE-CELL RDTBL . 0)
(VARIABLE-VALUE-CELL TCONC . 117)
(VARIABLE-VALUE-CELL READBUF . 133)
(NIL VARIABLE-VALUE-CELL JFN . 112)
(NIL VARIABLE-VALUE-CELL BUFFLG . 130)
(NIL VARIABLE-VALUE-CELL BUFS . 135)
(NIL VARIABLE-VALUE-CELL OKFLG . 119)
(NIL VARIABLE-VALUE-CELL FILENAME . 69)
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
ERROR!
JFNS
RLJFN
1
SPACES
BKBUFS
TCONC
"___"
PRIN1
//
""
" "
"... "
CLBUFS
" ? file: "
100
DISMISS
DOBE
CLEARBUF
(ASZHBHCSETMODKTMKN@CFKNILENTERF)x.X(p8
B=H2 XHH
BREAKLINKS BINARY
-.  G+ Z,~d(KNIL ENTER0)H
OCTAL BINARY
-.Z,<Z,<@@,~Z,<Z,< A",F (B~,XB	1B+
,<,<H,~Z,<Z,<,<ZHB,~@C@(VARIABLE-VALUE-CELL N . 5)
(VARIABLE-VALUE-CELL SCRATCH . 26)
"000000000000"
(VARIABLE-VALUE-CELL S . 36)
(VARIABLE-VALUE-CELL M . 21)
(-1 VARIABLE-VALUE-CELL J . 38)
RPLSTRING
-1
SUBSTRING
""
CONCAT
(KNIL ASZ MKN ENTERF)h@0	
(PRETTYCOMPRINT EXECCOMS)
(RPAQQ EXECCOMS ((DECLARE: FIRST (ADDVARS (NOSWAPFNS EXPUNGE FORKSTAT1))) (* EXEC like features) (FNS 
CNDIR COPYALLBYTES EXPUNGE MEMSTAT MEMSTAT1 MSCOMBINE MSPRINT ODATE TERMSTAT TERMTYPE DETACH TTY# 
DETACHEDP DSKSTAT DSKSTAT1 DSKSTAT2 FINDUSER FORKSTAT FORKSTAT1 PRINRANGE PRINTUSERNAME 
FINDDIRECTORYNUMBER FINDUSERNUMBER SYSTAT JOBPARAMS PRINTJOBPARAMS GTJFNTTY FILESTAT FILESTAT1 FSPRINT
) (P (MOVD (QUOTE USERLISPXPRINT) (QUOTE LISPXODATE)) (SETSYNTAX 6 (QUOTE (INFIX FIRST IMMED GTJFNTTY)
) T) (SETSYNTAX 6 T EDITRDTBL)) (LISPXMACROS UND DEL DELVER NDIR) (LISPXMACROS EXP CONN DET SY DSK FI 
MEM QU DA TY SEE INFO) (VARS TERMINALTYPES) (ALISTS (LISPXCOMS CON TALK WHE LD) (DIRCOMMANDS AU DEL)) 
(ADDVARS (OTHERUSERS)) (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) PASSWORDS) (DECLARE: 
DONTCOPY EVAL@COMPILE (RECORDS JOBPARAMS MEMSTAT SOURCE DSKSTAT) DONTEVAL@LOAD (FILES (SYSLOAD FROM 
VALUEOF LISPUSERSDIRECTORIES) CJSYS)) (COMS (* Linking and breaking links functions and macros.) (FNS 
BREAKLINKS LINKTOTTY LINKTOUSER OCTAL) (LISPXMACROS BR LINK) (ALISTS (LISPXCOMS TALK))) (BLOCKS (
DSKSTAT DSKSTAT DSKSTAT1 DSKSTAT2 (GLOBALVARS DIRECTORIES)) (SYSTATBLOCK (ENTRIES LINKTOUSER SYSTAT) 
LINKTOTTY FINDUSER SYSTAT JOBPARAMS LINKTOUSER PRINTJOBPARAMS (GLOBALVARS BYTELISPFLG OTHERUSERS)) (
STATSBLOCK (ENTRIES FILESTAT MEMSTAT FORKSTAT TERMSTAT TERMTYPE) TERMSTAT TERMTYPE FILESTAT FILESTAT1 
FORKSTAT FSPRINT MEMSTAT MEMSTAT1 MSCOMBINE MSPRINT PRINRANGE (LOCALFREEVARS FLG) (GLOBALVARS 
USERFORKS HOSTNAME TERMINALTYPES) (NOLINKFNS . T))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY 
COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA)))))
(MOVD (QUOTE USERLISPXPRINT) (QUOTE LISPXODATE))
(SETSYNTAX 6 (QUOTE (INFIX FIRST IMMED GTJFNTTY)) T)
(SETSYNTAX 6 T EDITRDTBL)
(ADDTOVAR LISPXMACROS (UND (DODIR LISPXLINE (QUOTE (UNDELETE)) "" (QUOTE *))) (DEL (DODIR LISPXLINE (
QUOTE (DELETE)) "" -2)) (DELVER (SELECTQ (SYSTEMTYPE) (TOPS20 (DODIR LISPXLINE (QUOTE (TRIMTO 1)) (
QUOTE *) 0 T)) (DODIR LISPXLINE (QUOTE (OLDVERSIONS P DELETE)) (QUOTE *) -3))) (NDIR (DODIR LISPXLINE 
(QUOTE (PP COLUMNS 17)) (QUOTE *) 0)))
(ADDTOVAR LISPXCOMS NDIR)
(ADDTOVAR LISPXHISTORYMACROS (EXP (PROGN (PRIN2 (IDIFFERENCE (PROG1 (JSYS 197 (SETQ DIRNO (
FINDDIRECTORYNUMBER (OR (CAR LISPXLINE) T))) NIL NIL 2) (EXPUNGE (CAR LISPXLINE))) (JSYS 197 DIRNO NIL
 NIL 2)) T) (PRIN1 " pages released.
" T) NIL)) (DET NIL (DETACH)) (QU NIL (LOGOUT)) (DA (PROGN (LISPXODATE (IDATE) T) (TERPRI T))))
(ADDTOVAR LISPXMACROS (CONN (CNDIR (CAR LISPXLINE) (AND (LISTP (CDR LISPXLINE)) (PROG1 (CADR LISPXLINE
) (FRPLACA (CDR LISPXLINE)))))) (SY (SYSTAT (CAR LISPXLINE))) (DSK (APPLY (QUOTE DSKSTAT) LISPXLINE)) 
(FI (FILESTAT (CAR LISPXLINE))) (MEM (APPLY (QUOTE MEMSTAT) LISPXLINE)) (TY (COPYALLBYTES (CAR 
LISPXLINE) (OR (CADR LISPXLINE) T) (CADDR LISPXLINE))) (SEE (COPYALLBYTES (CAR LISPXLINE) (OR (CADR 
LISPXLINE) T) (CADDR LISPXLINE))) (INFO (SELECTQ (CAR LISPXLINE) ((DSK DISK) (APPLY (QUOTE DSKSTAT) (
CDR LISPXLINE))) (FI (FILESTAT (CADR LISPXLINE))) (ERROR (CAR LISPXLINE) (QUOTE ?)))))
(ADDTOVAR LISPXCOMS CONN SY DSK MEM DA TY SEE INFO)
(RPAQQ TERMINALTYPES ((TOPS20 (8 Default) (9 Ideal) (10 VT05) (11 VT50) (12 LA30) (13 GT40) (14 LA36) 
(15 VT52)) (TENEX (7 NVT) (8 LA30) (9 TI733) (10 display) (11 lineprocessor) (12 OMRON) (13 Ann-Arbor)
 (14 TI743/745) (16 MCA)) (NIL (0 MOD33) (1 MOD35) (2 MOD37) (3 TI))))
(ADDTOVAR LISPXCOMS (CON . CONTIN) (TALK . LINK) (WHE . SY) (LD . SY))
(ADDTOVAR DIRCOMMANDS (AU . AUTHOR) (DEL . DELETE))
(ADDTOVAR OTHERUSERS)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) PASSWORDS)
(ADDTOVAR LISPXMACROS (BR (PROGN (PRIN1 "Breaking Links" T) (TERPRI T) (BREAKLINKS))) (LINK (
LINKTOUSER (CAR LISPXLINE))))
(ADDTOVAR LISPXCOMS LINK)
(ADDTOVAR LISPXCOMS (TALK . LINK))
NIL