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

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

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

(FILECREATED "23-SEP-81 21:10:28" ("compiled on " <LISPUSERS>CJSYS.;60) (2 . 2)
 bcompl'd in WORK dated NOBIND)
(FILECREATED "23-SEP-81 21:10:19" <LISPUSERS>CJSYS.;60 14582 changes to: 
CJSYSCOMS CONSTANTP BITS previous date: "23-SEP-81 21:05:24" 
<LISPUSERS>CJSYS.;58)

CJSYS BINARY
-.-.@ +I,<,I,<,IZw[8Z3B+,<Zw[8Z,<,<,lZ",XB`Zw[8[Z3B+,<Zw[8[Z,<,<`,l,<`Z",DXB`Zw[8[[Z3B+,<Zw[8[[Z,<,<`,l,<ZwZ8BXB`[Z,,<,IZw[8[[[ZXB`[`[Z3B+9[`[Z,/",,<,< w1b+4,<,IXBp w/",XBw+.Zp/Z`2B+7Z	+8Z	,<,IZ`2B+<,<
,I+A1B+A3B+A,<
,<,<,<,,<,IZBXBAZ`3B+H3B+H,<

ZB,<,,~ZF,~+,<Zw2B

+j[w[2B+jZHZ2BZZp2B+U+[,<
+jZR[Z[wZ2B+jZ][[Z2B+jZ

Z`[[[,,<[dXBg,\,<,I+ZwZg,XBj+[,<Zw2B+oZ+,<,nXBp3B+u,<,<,<w},,<,I+Zw-,ZZ2B

+[wZ-,+;,<,<,<w},<[w}Z,,,<,I+2B+;[wZ,<,nXBp3B+

,<w~[w~[Z,<,<w~,l,<,<w~,<,<w~,,<,I+Zw2B+,<w~[w~[Z,<,<,l<w~.",,<[w~Z,<Zw},,<,l,<,<w~,<,<w|.",,^,,,<,I+[w[Z,<,nXBp3B+,,<w~[w~Z,<,<w~,l,<,<w~,<,<w},,<,I,<,<w~,< w~A",,,<,I+,<
,<w~,<,<,,<,I+,<,K,<,<w~,<w~,<,l,\,<,h+,<,<Zw2B+NZw+ZkZ3B+Q2B+VZN[ZXBpZw,3B+a+[2B+aZQ[[ZXBpZw,3B+aZWZw,XBw,<p,<w~$XBw[[XB_+L,<

Zw~,,<,I,<[wXBw+L,<pZp-,+kZ+Zp,<,I[pXBp+hZp-,+-,+Zp2B+t[pZB+2B+[pZ,<,n,<Zp3B+~[w[Z,<,nXBw3B+~,<pD+Z/+Z+Z+:

@z=<(X	@F&D&t" 0

0BeD!,(X . 1)
(VARIABLE-VALUE-CELL CODELST . 448)
(NIL VARIABLE-VALUE-CELL CODELST . 0)
NIL
NIL
NIL
ASSEMBLE
1
2
NCONC
3
JSYS
FINDJSYS
((JFCL) . 0)
((SKIPA 1 , KNIL) . 0)
((JFCL) . 0)
((MOVE 1 , KT) . 0)
MOVE
,
DREVERSE
LOC
PUSHN
POPN
NREF
MOVEM
0
LDN2
VAR
HRRZ
XWD
HRLI
HRL
HRRI
((PUSHN 1) . 0)
((NREF (HRLM 1 , 0)) . 0)
CV
MOVEI
REMOVE
CONSTANT
EVAL
(SKNI SKNLST FMEMB URET3 CONSS1 ALIST ALIST4 SKLA SKLST LIST3 URET4 CONS URET2 
URET1 LIST2 LIST4 KT BHC MKN IUNBOX ALIST2 CONSNL ASZ KNIL BLKENT ENTER1)x 0UO0+h(wtK`B8-X

vh]p	0h.	H'0ZE(6X003`PXcpZ@0p@PX  x}k8UXL@I<4Xxr

JS BINARY
A9?-.(9Z`3B+,<,<<$<+Z=,<Z`3B+	,<,<<$<+
Z=,<Z`3B+,<,<<$<+Z>,<,<`">,<Z`2B+'[pZ,,>9,> w,>9,> w,>9,> w~,^/,^/ .,^/(/././. "8,,>9,>[p[Z2B+#^"+#, ,^/3b7Z+Z`2B+)^"+*,,>9,>[pZ,,>9,> w,>9,> w,>9,> w~,^/,^/,^/ + +  xZ`3D7?,/+x^H	
*	(JSYSNAME . 1)
(AC1 . 1)
(AC2 . 1)
(AC3 . 1)
(RESULT . 1)
INTERNAL
EVAL
-800572073
560383548
932972753
FINDJSYS
"garbage result from JS"
(MKN URET4 ASZ BHC IUNBOX KT KNIL ENTER5)'9H3(%@P*@@p7&

x

XWD BINARY


-.
 `(B	,>	,> 
,>	,> `ABx,^/GBx,^/,,~`(N1 . 1)
(N2 . 1)
(MKN BHC ENTER2)		x

JSYSERROR BINARY
-.,<`",~(ERRORNAME . 1)
FINDJSYSERROR
(ENTER1)

BIT BINARY
-...Z80B+
 ,>,>Z`," ,^/(B,,~Z`,,>,> ,>,>Z`," ,^/(BABx,^/1B+7Z,~@p,(N . 1)
(KNIL KT MKN BHC IUNBOX ASZ CF CFARP ENTERN)PH 0pp@0(

BITS BINARY
-.^",>,> `,>,> ` ,^//." ,^/(B/",>,> `,>,> `/" ,^/(BABx,^/,,~@(BIT1 . 1)
(BITN . 1)
(ARG . 1)
(MKN BHC ENTER3)x	p

PPOCTAL BINARY
*)-.,<" ,< "!,<@! +,<!Z,<,,Z,XBXB`,<#,<$,<@$`+ZZ&XBZw,<8,<,<,<(&Zw~XB8Z,~2B+Z'XB[`XB	,<!Z`Z[D'Z3B+ (,~Z`,~,<(" Z,~,U`(X . 1)
(VARIABLE-VALUE-CELL RESETVARSLST . 44)
%(
PRIN1
8
RADIX
(VARIABLE-VALUE-CELL OLDVALUE . 12)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 50)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
PRINTDEF
ERROR
APPLY
ERROR!
%)
(KT CF KNIL CONS CONSNL LIST2 ENTER1)`hH

	

CONSTANTP BINARY
,~3B77+
(VARIABLE-VALUE-CELL COMPILE.TIME.CONSTANTS . 24)
((CONSTANT QUOTE CHARCODE) . 0)
(FMEMBSKLSTxSKNNMKTKNILENTER1)

FINDJSYS BINARY
-.Z`-,+,<,<,,~Z`Z7[ZZ1H+
2D+2B+,<`,<`"2B+,<`,<$,<,<,Z,XBZ,~
Jh(JSYSNAME . 1)
(VARIABLE-VALUE-CELL JSYSES . 35)
SCANSYSTEMDEFS
((NOT JSYS NAME) . 0)
ERROR
3
(CONS LIST3 KNIL LIST2 SKI ENTER1) X P0

FINDJSYSERROR BINARY
-.,>,>Z`Z7[ZZ1H+2D+2B+,<`,<`,<$2B+
(VARIABLE-VALUE-CELL JSYSERRORCODES . 29)
SCANSYSTEMDEFS
ERROR
(MKN BHC IUNBOX CONS ALIST2 KT KNIL ENTER1)



SCANSYSTEMDEFS BINARY
bM_-.MZ,<@P ,~Z,<,<Q,<R,<@R`+FZZTXB,<,<Z,<Zp-,+Z+Zp,<,<w/,<p,<$TXBw~/3B+Zp+[pXBp+/2B+,<UZ
DU,<V,<w"VBWXBw,,<,<,Z,XB,<W,<$X,<w,<,<&XZw~Z83B+%ZY+&ZY,<,<$XZw~,<8,<,<&XZw~Z83B+-ZZ+-ZZ,<Zw},<8,<[&[,<,<w,<,<,<,<,\3B+@Z"XBp,<,<,<w~"\XBp-,+:Zw+? w$",>M,> p.Bx,^/,XBw+6/+B,<],<$X,<"]Zp/Zw~XB8Z,~3B+HZ+HZUXB`D^Z`3B+L ^,~Z`,~
(FLG . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 3)
(VARIABLE-VALUE-CELL RESETVARSLST . 61)
(VARIABLE-VALUE-CELL JSYSOURCES . 48)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
FINDFILE
"cannot find any of the files"
ERROR
CLOSEF?
INFILE
INPUT
"Scanning "
PRIN1
PRIN2
" for error "
" for JSYS "
"...QQQ ("
"
DEFJS "
","
CONCAT
FFILEPOS
READC
"... not found"
TERPRI
RESETRESTORE
ERROR!
(MKN SKNNM ASZ CONS LIST2 ALIST2 KT BHC SKNLST CF KNIL ENTER2)?95F0B8*'("D>pP	0Hp7h402 ,Hx`(
(PRETTYCOMPRINT CJSYSCOMS)
(RPAQQ CJSYSCOMS ((FNS JS XWD JSYSERROR BIT BITS) (FNS CJSYS CJS1 JSC SAVEACS 
RESTOREACS CJSCONST PPOCTAL CONSTANTP) (ALISTS (JSYSES ASND ATPTY BIN BKJFN 
BOUT CFOBF CHFDB CLOSF CNDIR CVSKT DELDF DELF DELNF DIRST DOBE DTACH DTI FFFFP 
FFORK FFUFP FLIN FLOUT GDSKC GDSTS GET GETAB GEVEC GFRKH GJINF GNJFN GPJFN GTAD
 GTDAL GTFDB GTJFN GTSTS HALTF HFORK IDTIM IDTNC KFORK LGOUT MTOPR NIN NOUT 
ODCNV ODTIM OPENF PBIN PBOUT PMAP PUPI PUPO RELD RFACS RFBSZ RFCOC RFMOD RFORK 
RFPOS RFPTR RFSTS RIN RLJFN SDSTS SFACS SFBSZ SFCOC SFMOD SFORK SFPTR SIN SIZEF
 SOUT SPJFN STPAR SYSGT TLINK WFORK RTIW RCM EPCAP RIR DEBRK AIC STIW DIC RPACS
 RMAP GETJI) (PRETTYPRINTMACROS JSYS XWD JS)) (ADDVARS (JSYSERRORCODES)) (PROP 
VARTYPE JSYSES) (DECLARE: EVAL@COMPILE (IFPROP (BYTEMACRO MACRO ARGNAMES AMAC) 
JS BIT BITS JSYSERROR) (PROP AMAC CV CV2 NREF) (ADDVARS (SIMPLEFNS EQ PROGN 
PROG1 AND OR BIT BITS))) (FNS FINDJSYS FINDJSYSERROR SCANSYSTEMDEFS) (ADDVARS (
JSYSOURCES <SUBSYS>STENEX.MAC <SUBSYS>MONSYM.MAC <SUBSYS>MONSYMS.MAC)) (
LOCALVARS . T) (BLOCKS (CJSYS CJSYS JSC CJS1 SAVEACS RESTOREACS (LOCALFREEVARS 
CODELST) CJSCONST (NOLINKFNS . T))) (TEMPLATES JS) (DECLARE: DONTEVAL@LOAD 
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML JSYSERROR JS) (
LAMA BIT)))))
(ADDTOVAR JSYSES (ASND 56 1) (ATPTY 188 1) (BIN 40) (BKJFN 34 1) (BOUT 41) (
CFOBF 65) (CHFDB 52) (CLOSF 18 1) (CNDIR 36 1) (CVSKT 189 1) (DELDF 55) (DELF 
22 1) (DELNF 207 1) (DIRST 33 1) (DOBE 68) (DTACH 77) (DTI 96) (FFFFP 25) (
FFORK 108) (FFUFP 137 1) (FLIN 154 1) (FLOUT 155 1) (GDSKC 140) (GDSTS 101) (
GET 128) (GETAB 8 1) (GEVEC 133) (GFRKH 116 1) (GJINF 11) (GNJFN 15 1) (GPJFN 
134) (GTAD 151) (GTDAL 197) (GTFDB 51) (GTJFN 16 1) (GTSTS 20) (HALTF 120) (
HFORK 114) (IDTIM 145 1) (IDTNC 153 1) (KFORK 107) (LGOUT 3) (MTOPR 63) (NIN 
149 1) (NOUT 148 1) (ODCNV 146) (ODTIM 144) (OPENF 17 1) (PBIN 59) (PBOUT 60) (
PMAP 46) (PUPI 289 1) (PUPO 290 1) (RELD 57 1) (RFACS 113) (RFBSZ 37 1) (RFCOC 
74) (RFMOD 71) (RFORK 109) (RFPOS 73) (RFPTR 35 1) (RFSTS 110) (RIN 44) (RLJFN 
19 1) (SDSTS 102) (SFACS 112) (SFBSZ 38 1) (SFCOC 75) (SFMOD 72) (SFORK 111) (
SFPTR 23 1) (SIN 42) (SIZEF 30 1) (SOUT 43) (SPJFN 135) (STPAR 143) (SYSGT 14) 
(TLINK 142 1) (WFORK 115) (RTIW 123) (RCM 92) (EPCAP 105) (RIR 100) (DEBRK 94) 
(AIC 89) (STIW 124) (DIC 91) (RPACS 47) (RMAP 49) (GETJI 327 3))
(ADDTOVAR PRETTYPRINTMACROS (JSYS . PPOCTAL) (XWD . PPOCTAL) (JS . PPOCTAL))
(ADDTOVAR JSYSERRORCODES)
(PUTPROPS JSYSES VARTYPE ALIST)
(PUTPROPS JS BYTEMACRO PUNT)
(PUTPROPS JS MACRO (X (CJSYS X (FUNCTION ASSEMBLE))))
(PUTPROPS BIT MACRO (X (PROG ((MASK (LIST (QUOTE LRSH) -34359738368 (CAR X)))) 
(RETURN (COND ((CADR X) (LIST (QUOTE NEQ) (LIST (QUOTE LOGAND) (CADR X) MASK) 0
)) (T MASK))))))
(PUTPROPS BITS MACRO (X (PROG ((BIT1 (CAR X)) (BITN (CADR X)) (WORD (CADDR X)) 
(MASK (QUOTE (SUB1 (LLSH 1 (ADD1 (IDIFFERENCE BITN BIT1)))))) (SHIFT (QUOTE (
IDIFFERENCE BITN 35)))) (COND ((CONSTANTP BITN) (SETQ SHIFT (EVAL SHIFT)) (COND
 ((CONSTANTP BIT1) (SETQ MASK (EVAL MASK)))))) (RETURN (SUBPAIR (QUOTE (BIT1 
BITN)) (LIST BIT1 BITN) (LIST (QUOTE LOGAND) MASK (COND ((ZEROP SHIFT) WORD) (T
 (LIST (QUOTE LLSH) WORD SHIFT)))))))))
(PUTPROPS JSYSERROR MACRO (X (FINDJSYSERROR (CAR X))))
(PUTPROPS JS ARGNAMES (JSYSNAME AC1 AC2 AC3 RESULT))
(PUTPROPS BITS ARGNAMES (BIT1 BITN ARG))
(PUTPROPS JS AMAC (LAMBDA (JSYSNAME) (LIST (LIST (QUOTE JSYS) (CADR (FINDJSYS 
JSYSNAME))))))
(PUTPROPS CV AMAC ((X) (CQ (VAG (FIX X)))))
(PUTPROPS CV2 AMAC ((X) (E (CNEXP2 (QUOTE (VAG (FIX X)))))))
(PUTPROPS NREF AMAC (NLAMBDA (I F) (SETQ F (LAST (SETQ I (COPY I)))) (RPLACA F 
(IDIFFERENCE (OR (CAR (NTH NN (ADD1 (IMINUS (EVAL (CAR F)))))) (PROGN (COMPEM (
QUOTE (BAD NREF))) (CAR NN))) (CAR NN))) (RPLACD F (QUOTE ((CP)))) (STORIN I) 
NIL))
(ADDTOVAR SIMPLEFNS EQ PROGN PROG1 AND OR BIT BITS)
(ADDTOVAR JSYSOURCES <SUBSYS>STENEX.MAC <SUBSYS>MONSYM.MAC <SUBSYS>MONSYMS.MAC)
(SETTEMPLATE (QUOTE JS) (QUOTE (TYPE .. EVAL)))
NIL