Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/util.com
There are no other files named util.com in the archive.
(FILECREATED "24-SEP-81 00:45:16" ("compiled on " <LISPUSERS>UTIL.;4) (2
 . 3) bcompl'd in WORK dated NOBIND)
(FILECREATED "16-MAR-81 22:05:39" <LISPUSERS>UTIL.;4 14019 changes to: 
UTILCOMS previous date: "18-DEC-78 17:37:02" <LISPUSERS>UTIL.;3)

COPYFILES BINARY
H<F-.<Z2B+Z=XBZ3B+ ,<,<,<,<Zw~-,+
Zw+Zw~,<@>L+,<>Z,<,<?ZH?,<,<>Z+ZpXBw  [2D+XBw[w~XBw~+/+'Z,<,<A,BABB,<Z ,<,<B,BABBDC,<Zp-,+*Z+Zp,<@> +:@C,~Z,<,<$DXBBD2B+3Z.BE,~Z0BE,<Z2BE,\,2B+:Z5,<,<$E,~[pXBp+'
,Th$@E.X$D(VARIABLE-VALUE-CELL DIR . 71)
(VARIABLE-VALUE-CELL FILELST . 8)
(VARIABLE-VALUE-CELL PRESERVERSION#S . 0)
<NEWLISP>
(VARIABLE-VALUE-CELL FL . 112)
DIRECTORY
BODY
PACKFILENAME
EXTENSION
.COM
*.;0
PACK
FILDIR
*.COM;0
APPEND
(NIL VARIABLE-VALUE-CELL TEM . 103)
NAMEFIELD
INFILEP
COPYFILES1
FILEDATE
(EQUAL KT URET1 LIST2 BHC SKLST ALIST2 SKNLST KNIL ENTERF)x 0*&(hP	8 *Pp0

COPYFILES1 BINARY
-.ZBXB3B+,<,<,<Z3B+
,<,<,<ZH+L,<Z3B+Z+ZJB,~Z,~iW*(VARIABLE-VALUE-CELL FILE . 25)
(VARIABLE-VALUE-CELL FLG . 28)
(VARIABLE-VALUE-CELL PRESERVERSION#S . 11)
INFILEP
"COP"
""
DIRECTORY
BODY
PACKFILENAME
VERSION
""
"
"
CONCAT
TENEX
(KNIL ENTERF)8H@

DELETEFILES BINARY

	-.ZB,<Zp-,+Z+ZpB	[pXBp+" (VARIABLE-VALUE-CELL FILES . 3)
FILDIR
DELFILE
(URET1 KNIL SKNLST ENTERF)

DELFILES BINARY
5*3-.*,<*"+,<Zp-,+Z+Zp,<@+ +(@,,~ZB,XB3B+(Z
,<,<-Z2B+Z-,<,<.Z	B.,<,</Z,<,</$.L0B,,\,3B+(ZB.XB

3B+(,<,<0,B1B+,<Z,<,<1,B1B+D2,<,<,<&2,<Zp-,+%+'ZpB3[pXBp+#/,~[pXBp+!15O
+Di(VARIABLE-VALUE-CELL DIR . 27)
*.;0
FILDIR
(VARIABLE-VALUE-CELL X . 47)
(NIL VARIABLE-VALUE-CELL TEM . 58)
FILEDATE
DIRECTORY
<NEWLISP>
NAME
NAMEFIELD
EXTENSION
ONLY
PACKFILENAME
.;*
PACK
.COM;*
NCONC
PRINT
DELFILE
(BHC KT LIST2 EQUAL URET1 KNIL SKNLST ENTERF)("@p` p

XH

DOLOADUP BINARY
yZv-.Z [,<\"\,<]"]Z2B+,<^"\,<^"_+2B+,<_"\,<`"_+2B`+,<a"\,<a"_+ bZ2B+Zb+2B+Zc+2B`+Zc+ b,<Zp-,++,,<@d ++ZB_Z,<,<d,BeBe2B+(,<fZ,<,<d,BeBe3B+&,<f"gB_+(,<g"gB_[ 3B+*,<h"h,~[pXBp+/ iBi,<j"\,<j"],<k"_Z2B+3Zk+82B+5Zl+82B`+7Zl+8ZB_,<m"_,<m"_Z12B+=Zn+A2B+?Zn+A2B`+AZo+A b,<@o +MZBe2B+L,<pZC,<,BeBe3B+K,<p"_+L,<q"_ZFB_,~,<q"_Z:2B+QZr+U2B+SZr+U2B`+UZs+U bB_ iBiBs,<t"s,<t"uBu,~Oos?c*-KN|wwg?jX_V;(VARIABLE-VALUE-CELL FLG . 157)
(VARIABLE-VALUE-CELL HELP . 111)
CLOSEALL
LISP.CMD;*
DELETEFILES
LISP.CMD;T
OUTFILE
LISP.REL;*
"%%1000OLISP.REL="
PRIN3
BLISP.REL;*
"%%1000OBLISP.REL="
X
XLISP.REL;*
"%%1000OXLISP.REL="
HELP
((LISP ATHASH SWAP GC) . 0)
((MAXC LISP ATHASH BYTE SWAP GC) . 0)
((PMAPIN MAXC LISP ATHASH BYTE SWAP GC) . 0)
(VARIABLE-VALUE-CELL X . 80)
.MAC
PACK
INFILEP
<NEWLISP>
NEWLISP
DIRSTR
LISP
"+"
PRIN1
OUTPUT
CLOSEF
LISP.RUN;*
LISP.RUN;T
"CCL
LOAD @LISP.CMD
IDDT
;W"
"LISP.SYMBOLS"
"BLISP.SYMBOLS"
"XLISP.SYMBOLS"
"

LISP:LISP00GG
"
"INFILE("
PUTDQ
BPUTDQ
XPUTDQ
(VARIABLE-VALUE-CELL FL . 152)
"<NEWLISP>"
"<NEWLISP>"
"<LISP>"
"]EVAL((EVAL(READ]LOGOUT];U"
"LISP.PDQ

"
"BLISP.PDQ

"
"XLISP.PDQ

"
BKSYSBUF
"
"
RUNFIL
SUBSYS
KFORK
(BHC LIST3 LIST2 SKNLST KNIL KT ENTERF)X0	R	E`4$
<(X

DIRSTR BINARY
1#/-.#Z,<,<$$$2B+"Z,<,<$,<%"%,<@& +",<%Z,<,,Z,XBXB`,<(,<(,<@)`+ZZ*XB@++,<+ZB,,<,<,&-,~Zw~XB8Z,~2B+Z-XB[`XB

,<%Z`Z[D.Z3B+! .,~Z`,~F/,~',UZ`1	D(VARIABLE-VALUE-CELL NAME . 40)
(VARIABLE-VALUE-CELL RESETVARSLST . 55)
DIRSTR
GETP
8
RADIX
(VARIABLE-VALUE-CELL OLDVALUE . 19)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 61)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(T VARIABLE-VALUE-CELL PRXFLG . 0)
"[1,"
USERNUMBER
"]"
CONCAT
ERROR
APPLY
ERROR!
PUT
(KTCF CONS CONSNL LIST2 KNIL ENTERF)

  H

DOMERGE BINARY
L3I-. 3ZB5,<@6 ,~,<7,<7ZB5XB,<,<8ZB5,<,<8Z,<,<9Z,<,<92:D:,<,<;$:,<,<;$:B<,<<"=,<=">@>XB,\3B+,<?,<$?,<@"@,<AZDA[ZBB,<<"BZ3B++ C,<C"D,<DZ
,<,<E,,<Zp-,+%+'ZpBE[pXBp+#/ >B@,<F"@,<F":B<,<G"G,<H"GZ,<,<$H,<Z,<,<$HDI,~*'7xo'Hi?|!@(VARIABLE-VALUE-CELL MYFILE . 96)
(VARIABLE-VALUE-CELL HISFILE . 16)
(VARIABLE-VALUE-CELL OLDFILE . 65)
(VARIABLE-VALUE-CELL NEWFILE . 0)
(VARIABLE-VALUE-CELL LISPXMACROS . 50)
CHECKFILE
(VARIABLE-VALUE-CELL MYF . 91)
(NIL VARIABLE-VALUE-CELL TMP . 57)
CAM
"HIS.COR _ "
" , "
"
 MY.COR _ "
" , "
"
 MERGED.COR , MERGED.ERR , _ , MY.COR , HIS.COR


"
CONCAT
SUBSYS
"


"
"


"
KFORK
MERGED.COR
INFILE
"/-/-/"
FILEPOS
CLOSEF
"
There are some conflicts in the places where BBN edited and
where Maxc lisp has been edited. These have to be resolved:

Edit MERGED.COR to remove the conflicts and quit out of TECO
and this exec.

"
PRIN1
"EDIT MERGED.COR
S/-/-/0L4T"
BKSYSBUF
EXEC
ASSOC
EVAL
INFILEP
HELP
TMP;T
OUTFILE
"FED
DSK: _ "
" , MERGED.COR

"
PRIN3
"
"
RUNFIL
*.ERR;*
DELETEFILES
*.COR;*
NAMEFIELD
RENAMEFILE
(BHC SKNLST LIST3 KT KNIL ENTERF)H0 /x`

HBINALPHORDER BINARY
WST-.SZXB(B{ZA".",<@T ,~ZXB(B{ZA"."0B
+

Z/"++0B	+Z
3++0B+Z0B+Z Z
+Z/"+0B	+Z +Z,~,Z3"7Z,~++0B+!Z[+91B

+#0B+$Z+9Z1B+*1B

+*1B+*1B
+*1B	+*0B+Z,~,>R,>Z$0B
+/Z/"+70B	+2Z. +70B+6 x, BxZ0 +7/+3"x7Z/,~,,>R,>,>Z,1B
+?1B	+?0B+@,^/+*1B

+B0B+CZ4+G0B+FZB[+G,^+,,^,^/<,Q<(P0"00b=7/"0$00d=7/$3B+I2"7Z,~+*RJ 
**")  !)*J!(VARIABLE-VALUE-CELL A . 70)
(VARIABLE-VALUE-CELL B . 137)
(VARIABLE-VALUE-CELL TB . 119)
(UPATM BHC FXFLT KT KNIL ASZ TYPTAB ENTERF)H(	@74@
 9`H
88@HB?`=00x.()'h%0"xxP

(
P

HMAKEBINFILE BINARY
u-.uZBv,.",,<ZBvBwXBBw,,<@x@
,~Z,<ZzD{Zs+Zs+.",,<@{+,>t,>`,^/3b+Z`,~Z,>t,>,>t,>>,^/+Z#,>t,>B++,^/Z)B,/"Z,XB 61b+<70"+<8/",XB:Z,<D;0"+?Z"+B<=1beDZg,<,<$Z\+  ,XB^[`XB` S.",XBn+&Z`,~ZhB,~	
(VARIABLE-VALUE-CELL FILE . 227)
LENGTH
OUTFILE
OUTPUT
OPNJFN
(VARIABLE-VALUE-CELL N . 49)
(VARIABLE-VALUE-CELL JFN . 212)
(NIL VARIABLE-VALUE-CELL LPOS . 217)
(-1 VARIABLE-VALUE-CELL CH . 180)
(NIL VARIABLE-VALUE-CELL CH2 . 179)
HBINALPHORDER
SORT
(0 . 1)
NIL
(1 VARIABLE-VALUE-CELL I . 223)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL X . 201)
(29 VARIABLE-VALUE-CELL I . 0)
CHCON1
(0 . 1)
(VARIABLE-VALUE-CELL J . 177)
NIL
PRIN2
1
SPACES
0
POSITION
CLOSEF
(ASZ SKNLST BHC GUNBOX MKN IUNBOX ENTERF) ?(`
pR	P4xpmG@7@68

HOSTEST BINARY
4*2-.*Z-,+Z",<@+ ,~[ZXDZB,XB,<-,<,<@-`+ZZ/XBZ,<,</$0Z,~2B+Z,~Z'Z,<ZB2,\,~ )(b"X(T (VARIABLE-VALUE-CELL H . 12)
(VARIABLE-VALUE-CELL N . 3)
(VARIABLE-VALUE-CELL W . 65)
((NET:. SUMEX-AIM -1;T) VARIABLE-VALUE-CELL NAME . 79)
(NIL VARIABLE-VALUE-CELL JFN . 39)
PACK
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
-33957019648
OPENF
OPNJFN
1000
DISMISS
CLOSEF
(MKN IUNBOX KT CF KNIL ASZ SKNNM ENTERF)!8phHxP
 X$8@

STORAGEDIF BINARY
fPc-.0PZ-,+,<T,<T,<UHU+BV,<V,<W,<W XHUBX,<,<Y$Y,<Z"Z XB[,<[,<,<@\`+MZZ]XB@^+L ^XBB[,<_,<Zw-,+ZpZ2B+ "+[QD "+JZw,<@_ +GZB`,< ^XB-,+"Zp+#+/ ^XBZZ7[ZZ1H+)2D+&XB  ,>P,>[)Z2B+.^"+/, ,^//,XB $,>P,>[+[Z2B+7^"+7, ,^//,XBZ10B+=Z:1B+CZ$BZ,<`"aZ:BZ,<a"aZ<BZ bZ=,<Z*,<Z2,<,,~Zp,XBp[wXBw+/XB% b+Z,~ XBb cBbZ,~{|Ul"DU)  ]l	O(VARIABLE-VALUE-CELL N . 3)
(VARIABLE-VALUE-CELL FILE . 38)
(VARIABLE-VALUE-CELL USED . 136)
(VARIABLE-VALUE-CELL ASSIGNED . 138)
(VARIABLE-VALUE-CELL TMP . 103)
(VARIABLE-VALUE-CELL DU . 127)
(VARIABLE-VALUE-CELL DA . 131)
NAME
STORAGE
VERSION
PACKFILENAME
INFILE
EXTENSION
DIFFERENCES
BODY
INPUT
OUTFILE
0
SETFILEPTR
"Storage changes from "
PRIN1
PRINT
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL VARIABLE-VALUE-CELL PREV . 149)
READ
((ARRAYP STACK SWPARRAYP STACKP GC.BTAB ATOM.HASH LISTP VCELLP LITATOM 
FLOATP FIXP STRINGP ATOM.CHARS STRING.CHARS SUM) . 0)
(VARIABLE-VALUE-CELL TYPE . 134)
FILEPOS
20
TAB
30
TERPRI
CLOSEF
OUTPUT
(KT COLLCT LIST3 ASZ MKN IUNBOX BHC SKNM SKNLST CF KNIL SKI ENTERF)	P	pX<: /K1@h
6X)h 0
(PRETTYCOMPRINT UTILCOMS)
(RPAQQ UTILCOMS ((FNS COPYFILES COPYFILES1 DELETEFILES DELFILES DOLOADUP
 DIRSTR DOMERGE HBINALPHORDER HMAKEBINFILE HOSTEST) (FNS STORAGEDIF) (
DECLARE: EVAL@COMPILE DONTCOPY (FILES (SYSLOAD) CJSYS))))
NIL