Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/tracein.com
There are no other files named tracein.com in the archive.
(FILECREATED " 4-Sep-81 13:01:45" ("compiled on " <DONC>TRACEIN..12) (2 . 2) 
tcompl'd in WORK.EXE dated NOBIND)
(FILECREATED " 4-Sep-81 12:59:55" <DONC>TRACEIN..12 7694 changes to: StepAction 
previous date: " 3-Sep-81 16:39:53" <DONC>TRACEIN..11)

EVL-FIX BINARY


i-.i@j,~ZZ,2B+ZXBZZk,3B+
Z,~Z	-,+

,~-,+Z2Bl+Z
,~Z,Dl,~Z-,+fZ,<,<m$mXB3B+Z,<,<ZFn,~Z2Bn+Z,~Z,<Z2Bo+ Zo+d3Bp+#3Bp+#2Bq+$Zq+d2Br+&Zr+d3Bs+/3Bs+/3Bt+/3Bt+/3Bu+/3Bu+/3Bv+/3Bv+/2Bw+0Zw+d2Bx+F[Z,<,<Zw-,+:ZpZ2B+8 "+9[QD "+CZw,<@x +@Z-,+?Z,~Zy,~Zp,XBp[wXBw+3/Zy,2B+d+T3Bz+H2Bz+JZXBZ{+d3B{+L2B|+MZ|+d2B}+OZ}+d3B~+R3B~+R2B+TZXBHZ+dZZ1B3B+[3B+[3B+[3B+[3B+[2B+\Z+d3B+b3B+b3B+b3B+b3B+b2B+cZ+dZ,<ZFn,~ZT,<,<ZdFn,~H%@	H&~(J$~3~"@(VARIABLE-VALUE-CELL EXP . 204)
(VARIABLE-VALUE-CELL PUT-IN . 207)
(VARIABLE-VALUE-CELL CLISPARRAY . 7)
(NIL VARIABLE-VALUE-CELL Y . 44)
(NIL VARIABLE-VALUE-CELL NOEMBED . 165)
((T NIL) . 0)
#
APPEND
EVL-FIX
GETPROP
EXPAND-EV
WATCH
GO
((LISTP) . 0)
SETQ
SETN
SAVESETQ
((NIL T) . 0)
COND
((TAIL (TAIL T)) . 0)
AND
OR
PROGN
PROG1
RPTQ
FRPTQ
RESETFORM
ADD1VAR
SUB1VAR
((TAIL T) . 0)
PROG
(VARIABLE-VALUE-CELL V . 121)
((NIL T) . 0)
((TAIL LISTP) . 0)
FUNCTION
*FUNCTION
((LISTP) . 0)
NLSETQ
ERSETQ
((T TAIL NIL) . 0)
SELECTQ
((T TAIL (NIL TAIL T) T) . 0)
LAMBDA
LABEL
NLAMBDA
((NIL TAIL T) . 0)
FNTYP
SUBR
EXPR
CEXPR
SUBR*
EXPR*
CEXPR*
((TAIL T) . 0)
FEXPR
FSUBR
CFEXPR
FEXPR*
FSUBR*
CFEXPR*
((TAIL NIL) . 0)
((TAIL NIL) . 0)
((TAIL T) . 0)
(KT CONS BHC COLLCT SKNLST CONSNL SKA SKNM FMEMB KNIL GETHSH ENTERF)
0IEDA>P@

EVMATCHER BINARY
F=D-.=Z-,+

2B+Z,~2B+Z,~,<Z,< ",3B+7Z,~Z-,+4Z

2B>+[+7Z,~2B?+(@@+(Z-,+#B@,,>=,>[[B@, ,^/3b+#Z,<[ZDAZ,XB [XB!+Z!BA,<Z",<[[DADB,~,~2B?++[%ZB?,~Z$-,+2Z+,<Z)DA,<[-,<[.DA,,~,<B"CZ,~Z/-,+;Z4,<Z0DA,<[6,<[7DA,,~,<C"D,~De!B0&(VARIABLE-VALUE-CELL EXP . 113)
(VARIABLE-VALUE-CELL PAT . 115)
TEST
EVAL
TAIL
(NIL VARIABLE-VALUE-CELL V . 70)
LENGTH
EVMATCHER
DREVERSE
NCONC
"Tracein warning: missing arguments detected"
PRIN1
"Tracein error: List argument expected"
ERROR
(CONSS1 CONS BHC IUNBOX SKLST EVCC KT KNIL SKA ENTERF)82!`-p (p40@
P

EXPAND-EV BINARY
-.[,<ZDXBZ,<[,<Z,<ZF,XBZ2B+
(VARIABLE-VALUE-CELL PAT . 12)
(VARIABLE-VALUE-CELL PUT-IN . 21)
(VARIABLE-VALUE-CELL NOEMBED . 18)
EVMATCHER
EXPAND-EV1
APPEND
(CONSNL KNIL CONSS1 ENTERF)P(

EXPAND-EV1 BINARY
,#+-.#Z-,+B%,<ZB%,\3B+,<%"&Z,<Z,<@&@(+Z`-,+,<ZD*,~Z ,~BL!(VARIABLE-VALUE-CELL EXP . 69)
(VARIABLE-VALUE-CELL PAT . 35)
(VARIABLE-VALUE-CELL PUT-IN . 66)
LENGTH
"Tracein warning: extra arguments ignored"
PRIN1
(0 . 1)
(0 . 1)
NIL
NIL
NIL
(NIL VARIABLE-VALUE-CELL PAT . 0)
(NIL VARIABLE-VALUE-CELL EXP . 0)
EXPAND-EV1
EVL-FIX
(CONSNL KNIL SKNLST SKLST ENTERF)( Xx



TRACE-CREATE BINARY


Z,<,<$ZZ,2B+Z,<Z,<,<$

D

,~(VARIABLE-VALUE-CELL BRKEXP . 14)
(VARIABLE-VALUE-CELL CLISPARRAY . 8)
DWIMIFY
((WATCH) . 0)
EVL-FIX
CLISPTRAN
(KNIL GETHSH KT ENTER0)`X8

TRACEIN BINARY
&#$-.#Z-,3B7,XBZ,<,<,<Zw-,+
[wZXBwZwXBw[Z2B+ZXBp[
XB2B+,<w,<#,<w~,<w~($+[,<,<Zw-,+ZpZ2B+ "+[QD "+"Zw,<,<w},<w,<w},<w}($/Zp,XBp[wXBw+/+ 
@E(VARIABLE-VALUE-CELL X . 38)
TTY:
TRACEINX
(COLLCT BHC SKNLST URET3 KT CONSNL KNIL SKLST ENTERF)0#8X

xh0

TRACEINX BINARY
-. ,<Z,<,<Z,<,,<Z,<,<Z3B+	Z+
Z,<,<,,<,<,,< ",,~H(VARIABLE-VALUE-CELL FN . 4)
(VARIABLE-VALUE-CELL WHERE . 7)
(VARIABLE-VALUE-CELL WHEN . 11)
(VARIABLE-VALUE-CELL Trace . 14)
BREAKIN
AROUND
PROG
(((StepAction T)) . 0)
((StepAction) . 0)
((SETQ BRKVALUE (CONS (SETQ !VALUE (EVAL (OR (GETHASH (GETHASH BRKEXP CLISPARRAY
) CLISPARRAY) (GETHASH BRKEXP CLISPARRAY) (TRACE-CREATE)))))) . 0)
OK
(EVCC LIST3 KNIL LIST2 ENTERF)



UNWATCH BINARY





-.
Z-,+
Z2B+[ZXB+ZB,<[B,,~,~bH(VARIABLE-VALUE-CELL XPR . 16)
WATCH
UNWATCH
(CONSS1 SKLST ENTERF) 0

WATCH BINARY
mXj-. X .",,<@Z ,~Z2B[+ZB[,~ZB\Z-,+Z	+B\Z
-,+Z3B+ ]Z

-,+),<,<,<],<^(^2B_+ZB_B`+2B`+,<,<$a+2Ba+!,<[@Y + ZB[Zw~XB8,~+*2B+',<@Y +&ZB[Zw~XB8,~+*Z$B[XB`+*Z'B[XB`Z)-,+-ZB\ZBb,<@b +I,<bZ,<,,Z,XB2XB`,<d,<e,<@e`+@ZZgXBZ*-,+;Z9B\,<g"\Zw~,<8"\Zw}XB8Z,~2B+BZhXB[`XB3,<bZ`Z[DhZA3B+H i,~Z`,~Z2B+U,<,<,<i,<j(^2B_+O,<`"`+I2Ba+RZ[XBI+U2B`+U,<,<$a+IZQ3B+W ]Z`,~FI22O_T*"T*XT. b}{L`(VARIABLE-VALUE-CELL XPR . 117)
(VARIABLE-VALUE-CELL INDENT# . 88)
(VARIABLE-VALUE-CELL StepAction . 170)
(VARIABLE-VALUE-CELL WATCHPLEVEL . 90)
(VARIABLE-VALUE-CELL RESETVARSLST . 133)
(VARIABLE-VALUE-CELL INDENT# . 0)
NIL
EVAL
TAB
PRIN1
TERPRI
"->"
(((P . "rettyPrint form") (B . "reak") (E . "val form") (T . "race form") (C . 
"ontinue Stepping")) . 0)
ASKUSER
P
UNWATCH
PRINTDEF
B
BREAK1
E
PRINTLEVEL
(VARIABLE-VALUE-CELL OLDVALUE . 97)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 139)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
" = "
ERROR
APPLY
ERROR!
"<-"
(((P . "rettyPrint value") (E . "val the rest") (B . "reak") (C . 
"ontinue Stepping")) . 0)
(CF CONS CONSNL LIST2 KT KNIL SKLST MKN ENTERF)@0(
H@0"(
hT	@K	(G6 8p(,(
(PRETTYCOMPRINT TRACEINCOMS)
(RPAQQ TRACEINCOMS ((BLOCKS * TRACEINBLOCKS) (VARS * TRACEINVARS) (FNS * 
TRACEINFNS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (
ADDVARS (NLAMA TRACEIN) (NLAML WATCH) (LAMA)))))
(RPAQQ TRACEINBLOCKS ((TRACEINBLOCK TRACEIN EVL-FIX EVMATCHER EXPAND-EV 
EXPAND-EV1 TRACE-CREATE TRACEINX UNWATCH WATCH (ENTRIES TRACEIN WATCH 
TRACE-CREATE EVL-FIX) (SPECVARS EXP INDENT# NOEMBED WATCHPLEVEL StepAction))))
(RPAQQ TRACEINVARS (INDENT# StepAction WATCHPLEVEL))
(RPAQQ INDENT# 0)
(RPAQQ StepAction NIL)
(RPAQQ WATCHPLEVEL (3 . 5))
(RPAQQ TRACEINFNS (EVL-FIX EVMATCHER EXPAND-EV EXPAND-EV1 TRACE-CREATE TRACEIN 
TRACEINX UNWATCH WATCH))
NIL