Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/lostlists.com
There are no other files named lostlists.com in the archive.
(FILECREATED "11-Apr-82 09:51:09" ("compiled on " <DONC>LOSTLISTS..17) (
2 . 2) tcompl'd in "INTERLISP-10 " dated "18-Mar-82 14:03:52")
(FILECREATED "11-Apr-82 09:50:52" <DONC>LOSTLISTS..17 5890 changes to: 
Sweep HowMany Mark MarkAtoms previous date: " 9-Apr-82 14:23:52" 
<DONC>LOSTLISTS..15)

HowMany BINARY
<3:-.3 2,,< 2,,<@4@+)ZB5,@^" $@,<ZZ$,3B+
D6XB@6+% ,>2,> ` ,^/3b++$^",>2,> ,>2,> " ,^/(ABx,^/0B++! 	." $@ .",XB!+Z`,~ /" $@%+
/Z!,~,<,<8^",>2,>ZB8,$Bx,^/,,<,<9,<9^",,~B 
@i(VARIABLE-VALUE-CELL BitTable . 27)
(VARIABLE-VALUE-CELL ListPages . 87)
(VARIABLE-VALUE-CELL Sum . 80)
(VARIABLE-VALUE-CELL Index . 77)
(NIL VARIABLE-VALUE-CELL Word . 48)
ARRAYSIZE
ELT
31
NIL
(0 VARIABLE-VALUE-CELL I . 70)
of
LENGTH
cells
marked
(LIST IUNBOX BHC EQP ASZ KNIL FIXT GUNBOX MKN ENTER0) Xp(hX@8H
'	/80

InitLostLists BINARY
>3<-. 3,<5,<5$6XB@6(
+Z"XB`,>3,>,^/3b++`$"-,+,<,<ZF;[`XB`  .",XB"+Z`,~^",>3,>ZB;,$Bx,^/,,<^",>3,>Z'B;,$Bx,^/,D6XBZXBZ,~QF` D@$(VARIABLE-VALUE-CELL PageTable . 61)
(VARIABLE-VALUE-CELL ListPages . 89)
(VARIABLE-VALUE-CELL BitTable . 97)
(VARIABLE-VALUE-CELL BadPage . 99)
512
ARRAY
(512 VARIABLE-VALUE-CELL $$TEM3 . 15)
NIL
NIL
NIL
(NIL VARIABLE-VALUE-CELL i . 71)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL P . 60)
(1 VARIABLE-VALUE-CELL i . 0)
SETA
LENGTH
(IUNBOX MKN CONSNL KNIL SKNLST BHC ASZ ENTER0)h)00$xP3 P* `

Mark BINARY
-.Z,<Z,<@@,~/Z,+-,,~ ({Z. 4FZ. (}A(. A( *(
 A
6@,~.$ A( *(
 GJ,>Z,,^[+XB,~ ,~C@H(VARIABLE-VALUE-CELL L . 11)
(VARIABLE-VALUE-CELL BitTable . 3)
(VARIABLE-VALUE-CELL PageTable . 5)
(VARIABLE-VALUE-CELL BadPage . 47)
(VARIABLE-VALUE-CELL BitTab . 22)
(VARIABLE-VALUE-CELL PageTab . 18)
(SKLST ENTERF)

MarkAtomsA0006 BINARY
?4=-.4@6,~Z,<,<7$7XB[B8,>3,>ZB8B8.BxZ,<ZpZ7@7Z2B9+,<p,<ZF9B:3B+Z+Z/3B+Z	B:+ZB8.Bx,^/,XBZZ,3B+Z,~Z2B+#Z0B+ + .",XB Z"XBZ3B+Z,<,<7Z"F;3B+Z2B+Z%B;3B+,<<";3B+Z#B;3B+,<<";3B+Z&B=+3
(VARIABLE-VALUE-CELL BOUNDPDUMMY . 30)
(VARIABLE-VALUE-CELL SaveSizes . 71)
(VARIABLE-VALUE-CELL Quiet . 81)
(NIL VARIABLE-VALUE-CELL Space . 100)
(NIL VARIABLE-VALUE-CELL OldSpace . 92)
Space
GETPROP
Mark
GETD
NOBIND
STKSCAN
RELSTK
EVAL
PUTPROP
PRIN1
" : "
" -> "
PRINT
(ASZ EQP MKN BHC KT KNIL KNOB ENTERF)#8(@( 0`, (PPp8xP

MarkAtoms BINARY
-.ZBZ,~(VARIABLE-VALUE-CELL Quiet . 0)
MarkAtomsA0006
MAPATOMS
(KNIL ENTERF)

MarkFreeCells BINARY
-.,<@,~,<",<ZZ$,3B+	Zp+
(VARIABLE-VALUE-CELL n . 21)
"Please do not interrupt for a little while"
PRIN1
Mark
"...OK"
(BHC CONSNL FIXT EQP ASZ KNIL ENTER0)`H0xpx



ReInit BINARY
-.Z3B+ ,~ZB,<@ ,~,<ZZ$,3B+Zp+Z,<Z,<,<& 

/" $@+/Z,~C(VARIABLE-VALUE-CELL BadPage . 3)
(VARIABLE-VALUE-CELL BitTable . 22)
InitLostLists
ARRAYSIZE
(VARIABLE-VALUE-CELL Index . 31)
0
SETA
(BHC FIXT EQP ASZ KNIL ENTER0)		 0

Sweep BINARY
0*/-.*@*,~ZB+,<Zp-,++(Zp,<@, +&^",>),> ."$Bx,^/,,<@, ,~@-,~Z"XB ,>),> ` ,^/3b+Z`,~ /" $@Z,XBB.1B+$Z,<[,<Z-,Z,\2B+"[+#Z!,XB" .",XB$+[pXBp+/Z#,~F*H  @(VARIABLE-VALUE-CELL ListPages . 6)
(NIL VARIABLE-VALUE-CELL Answer . 81)
(NIL VARIABLE-VALUE-CELL Cell . 59)
REVERSE
(VARIABLE-VALUE-CELL P . 21)
(VARIABLE-VALUE-CELL Loc . 51)
512
NIL
(NIL VARIABLE-VALUE-CELL I . 75)
Mark
(CONSS1 KNIL SKLST GUNBOX FIXT ASZ MKN BHC SKNLST ENTER0)$  &`X`
(PRETTYCOMPRINT LOSTLISTSCOMS)
(RPAQQ LOSTLISTSCOMS ((FNS HowMany InitLostLists Mark MarkAtoms 
MarkFreeCells ReInit Sweep) (VARS SaveSizes)))
(RPAQQ SaveSizes T)
NIL