(FILECREATED " 4-Oct-86 17:27:50" ("compiled on " {ERIS}<LISPCORE>SOURCES>LLBASIC.;59) 
" 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp  1-Oct-86 ..." dated " 1-Oct-86 21:24:44")
(FILECREATED " 4-Oct-86 17:00:48" {ERIS}<LISPCORE>SOURCES>LLBASIC.;59 67178 changes to: (VARS 
LLBASICCOMS) previous date: "30-Sep-86 23:15:59" {ERIS}<LISPCORE>SOURCES>LLBASIC.;58)
(RPAQQ LLBASICCOMS ((FNS LISTP LITATOM FIXP STRINGP SMALLP NLISTP ARRAYP ATOM FLOATP NUMBERP STACKP) (
DECLARE: DONTCOPY (EXPORT (MACROS CHECK \StatsZero \StatsAdd1 IPLUS16 SMALLPOSP SETXVAR SETQ.NOREF IEQ
) (TEMPLATES SPREADAPPLY* SPREADAPPLY SETQ.NOREF) (CONSTANTS WordsPerPage))) (COMS (* ; "atoms") (FNS 
GETTOPVAL SETTOPVAL FSETVAL \SETGLOBALVAL.UFN \SETFVAR.UFN GETPROPLIST \ATOMCELL SETPROPLIST) (COMS (
MACROS \PROPCELL) (OPTIMIZERS \ATOMCELL GETPROPLIST SETPROPLIST)) (FNS \MKATOM \CREATE.SYMBOL 
\MKATOM.FULL \INITATOMPAGE) (FNS MAPATOMS ATOMHASH#PROBES) (COMS (* ; "For MAKEINIT & TeleRaid") (FNS 
INITATOMS COPYATOM UNCOPYATOM)) (COMS (* ; "See \PNAMELIMIT comment below") (VARS (\PNAMELIMIT 255)) (
INITVARS (\PNAMES.IN.BLOCKS?))) (FNS \DEFINEDP PUTD \PUTD GETD PUTDEFN GETDEFN) (VARS (
COMPILEATPUTDFLG)) (INITVARS (*PACKAGE-FROM-INDEX*)) (DECLARE: DONTCOPY (EXPORT (RECORDS LITATOM 
SYMBOL VALINDEX VCELL DEFINITIONCELL FNHEADER PNAMECELL PACKAGEINDEX PNAMEBASE PNAMEINDEX) (MACROS 
\DEFCELL \VALCELL \PNAMECELL) (MACROS \ATOMVALINDEX \ATOMDEFINDEX \ATOMPNAMEINDEX \ATOMPROPINDEX 
\INDEXATOMPNAME \INDEXATOMVAL \INDEXATOMDEF) (GLOBALVARS \NxtPnByte \CurPnPage \NxtAtomPage \AtomFrLst
 \OneCharAtomBase \PNAMES.IN.BLOCKS? \SCRATCHSTRING COMPILEATPUTDFLG *PACKAGE-FROM-INDEX*) (CONSTANTS 
(\PNAMELIMIT 255) (\CharsPerPnPage 512)) (* ;; 
"\PNAMELIMIT is exported but needs to also be a VARS on this file to get it copied.  Note that both commands must be edited together.  "
))) (DECLARE: EVAL@COMPILE DONTCOPY (MACROS COMPUTE.ATOM.HASH ATOM.HASH.REPROBE) (ADDVARS (
DONTCOMPILEFNS INITATOMS COPYATOM UNCOPYATOM GETDEFN PUTDEFN FSETVAL)))) (COMS (* ; 
"for executing boot expressions when first run") (FNS \RESETSYSTEMSTATE INITIALEVALQT SIMPLEPRINT) (
GLOBALVARS RESETFORMS BOOTFILES)) (COMS (* ; "stats") (FNS PAGEFAULTS \SETTOTALTIME \SERIALNUMBER)) (
COMS (* ; "Fast functions for moving and clearing storage") (FNS \BLT \MOVEBYTES \CLEARWORDS 
\CLEARBYTES \CLEARCELLS) (DECLARE: EVAL@COMPILE DONTCOPY (MACROS .CLEARNWORDS.)) (COMS (* ; "Obsolete"
) (DECLARE: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \MOVEWORDS))) (FNS \MOVEWORDS \ZEROBYTES \ZEROWORDS)
)) (LOCALVARS . T) (DECLARE: DONTCOPY (* ; "For MAKEINIT & TeleRaid") (ADDVARS (INITVALUES (\AtomFrLst
 0)) (INITPTRS (\OneCharAtomBase NIL) (\SCRATCHSTRING)) (INEWCOMS (FNS FSETVAL SETPROPLIST PUTDEFN 
\BLT \ATOMCELL) (FNS \MKATOM \CREATE.SYMBOL \INITATOMPAGE \MOVEBYTES) (FNS COPYATOM INITATOMS)) (
EXPANDMACROFNS SMALLPOSP COMPUTE.ATOM.HASH ATOM.HASH.REPROBE \DEFCELL \VALCELL \PNAMECELL \PROPCELL 
\INDEXATOMPNAME) (MKI.SUBFNS (\PARSE.NUMBER . NILL) (\MKATOM.FULL . NILL) (\ATOMDEFINDEX . 
I.ATOMNUMBER) (\ATOMVALINDEX . I.ATOMNUMBER) (\ATOMPROPINDEX . I.ATOMNUMBER) (\ATOMPNAMEINDEX . 
I.ATOMNUMBER) (SETQ.NOREF . SETQ) (SETTOPVAL . I.FSETVAL)) (RD.SUBFNS (\PARSE.NUMBER . NILL) (
\ATOMDEFINDEX . VATOMNUMBER) (\ATOMPROPINDEX . VATOMNUMBER) (\ATOMVALINDEX . VATOMNUMBER) (SETQ.NOREF
 . SETQ) (\INDEXATOMPNAME . VATOM) (\INDEXATOMVAL . VATOM) (\INDEXATOMDEF . VATOM) (\CREATE.SYMBOL . 
VNOSUCHATOM)) (RDCOMS (FNS UNCOPYATOM \MKATOM GETTOPVAL GETPROPLIST SETTOPVAL GETDEFN \ATOMCELL) (FNS 
LISTP) (VARS (COPYATOMSTR))) (RD.SUBFNS (\RPLPTR . VPUTBASEPTR)) (RDVALS (\AtomFrLst)))) (PROP 
FILETYPE LLBASIC)))
LISTP D1
(L (0 X)) ����
@lð´@Ólÿåjðhð´@�NIL
NIL
()
LITATOM D1
(L (0 X)) ����
@lð�NIL
NIL
()
FIXP D1
(L (0 X)) ����
@3 �NIL
NIL
()
STRINGP D1
(L (0 X)) �
���
@lð´@�NIL
NIL
()
SMALLP D1
(L (0 X)) �	���
@kð´@�NIL
NIL
()
NLISTP D1
(L (0 X)) ����
@‘hi�NIL
NIL
()
ARRAYP D1
(L (0 X)) �
���
@lð´@�NIL
NIL
()
ATOM D1
(L (0 X)) �
���
@hðµ@3´i�NIL
NIL
()
FLOATP D1
(L (0 X)) �
���
@lð´@�NIL
NIL
()
NUMBERP D1
(L (0 X)) ����
@3�NIL
NIL
()
STACKP D1
(L (0 X)) �
���
@lð´@�NIL
NIL
()
GETTOPVAL D1
(L (0 X)) ����
@ÁÉ��NIL
NIL
()
SETTOPVAL D1
(L (1 VAL 0 ATM)) �%���@µAd²l
��ið›AiðµAl
��@ÁA�A�(26 \LISPERROR 11 \LISPERROR)
NIL
()
\SETGLOBALVAL.UFN D1
(L (1 A 0 V)) �
���`��AÐAÐ@�@�NIL
(2 \VALSPACE)
()
\SETFVAR.UFN D1
(L (1 VCELL 0 V)) ����A@�@�NIL
NIL
()
GETPROPLIST D1
(L (0 ATM)) ����
@ÁÉ��NIL
NIL
()
\ATOMCELL D1
(L (1 N 0 X)) �=
��Adl
ð—¿@��Ó°'lð–@��Ó°Adlð–¿@��ÓŒlð•@��Ó‚��
�AHÑHÐ�(50 SHOULDNT)
(45 LITATOM 35 LITATOM 21 LITATOM 10 LITATOM)
()
SETPROPLIST D1
(L (1 LST 0 ATM)) �	���@ÁA�A�NIL
NIL
()
(PUTPROPS \PROPCELL MACRO ((ATOM) (\ATOMCELL ATOM (CONSTANT \PLIST.HI))))
optimize-\ATOMCELL D1
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) �%��@
H
	��Y²g��g��I
hH
hg���(10 CONSTANTEXPRESSIONP)
(34 IGNOREMACRO 19 ATOMCELL.N 16 OPCODES)
()
(PUTPROP (QUOTE \ATOMCELL) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE \ATOMCELL) (QUOTE 
COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-\ATOMCELL))))
optimize-GETPROPLIST D1
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) �
��@

�g��g��Hho����NIL
(11 \PROPCELL 8 \GETBASEPTR)
( 19 (0))
(PUTPROP (QUOTE GETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE GETPROPLIST) (
QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-GETPROPLIST))))
optimize-SETPROPLIST D1
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) ���@!H
¹H
ºg��g��IhjJh�NIL
(17 \PROPCELL 14 \RPLPTR)
()
(PUTPROP (QUOTE SETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE SETPROPLIST) (
QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-SETPROPLIST))))
\MKATOM D1
(L (4 NONNUMERICP 3 FATP 2 LEN 1 OFFST 0 BASE) P 21 \INTERRUPTABLE F 22 \ORIGREADTABLE) 
�C´*ABØkÙA
IHó³@IÐÈ�lÿñ”Iµi†IkÔY°êh¡h€i±Bjð—j¹lÿ¾±�…C•@AÐÈ�‚@A½Bkð²3Mlÿñ‘h€i²)`��²$Ml9ñ˜`��Ml
ÙÐl0Mñ‘h€i”Ml0Ù`��MÐD‘h€i²Ml9ñ‘h€i²@ABCl
W,
��Zµ‚±
dMlÿå^á¹ABØkÙAkØ_¿_¿OOó²^`��IÐÈ�Zjð’±
JkÙ[_¿lOÓÑOÓÐÉ�\Ê�Bð¢±�èHLÊ�‡jð´`��KÐÁÊ� jðhðð¢±�ÌH²bBkAOOó²4i±�°IdnÿåààÐÓdlÿåáÐÓC™@OÐÈ�lÿåƒ@OÂÐÓ¹OkÔ_±ÿuLOÐÈ�@OÐÈ�ð¢h°ÀOkÔ_¿OkÔ_¿°¨C²2BkAO Oó³!LO Â@O"ÐÈ�ð¢h°O kÔ_ ¿O"kÔ_"¿°Üi°.BkAO&O$ó³LO&Â@O(Âð¢h°O&kÔ_&¿O(kÔ_(¿°Þi•`��KÐIOµNIækäl?å_ÐÓ¹±þÞ@ABCH
��_¿`��IÐO��ÓkØÍ�O�(492 \CREATE.SYMBOL 152 \PARSE.NUMBER)
(505 LITATOM 498 \AtomHashTable 456 \ATOMSPACE 242 \ATOMSPACE 190 \AtomHashTable 120 \OneCharAtomBase 97 \OneCharAtomBase 87 \OneCharAtomBase)
()
\CREATE.SYMBOL D1
(L (4 FATCHARSEENP 3 FATP 2 LEN 1 OFFSET 0 BASE) P 4 \INTERRUPTABLE) �Ä��D”BlØ„BlØââ	��1`��Ydn
ÿåjð²ãºlþJñ‘h€i“��¿Jnˆ
��¿J	��nÿÿð™lo���
��¿lIÓÑIÓлKkHÒlÿåÇ¿KHÓÍ
D™HkÐ@AÐBÄ°2C²&BAkOMó³HO@NÐÈ�Ç¿NkÔ¾OkÔ_°è‰@AHkB
��¿HBÏ�H�¿IkØ��`��IÐYD–dÁkÏ� I�(161 \MOVEBYTES 73 \MP.ERROR 58 \INITATOMPAGE 53 \MAKEMDSENTRY 45 \MKATOM.FULL 15 \ALLOCBLOCK)
(180 \ATOMSPACE 177 \AtomFrLst 21 \AtomFrLst)
( 70 "No more atoms left")
\MKATOM.FULL D1
NIL �����`��‘h€i´i��¿`��kÏ�`¿i��h�NIL
(25 \PENDINGINTERRUPT 16 \INTERRUPTSTATE 12 \STORAGEFULL 2 \STORAGEFULL)
()
\INITATOMPAGE D1
(L (0 PN)) �H��
@á
`��HÐHÐ	��`��HÐHÐ	��`��HÐHÐ	��`��HÐHÐY	��n�djñ´Ig��Î�¿IlйkÙ°í�(45 \NEW4PAGE 34 \NEW4PAGE 24 \NEW4PAGE 14 \NEW4PAGE)
(57 NOBIND 37 \VALSPACE 27 \PLISTSPACE 17 \DEFSPACE 7 \PNPSPACE)
()
MAPATOMS D1
(L (0 FN)) �
��
j
�jHÑk@¿HkØX`��ð²ðh�NIL
(18 \AtomFrLst)
()
ATOMHASH#PROBES D1
(L (0 STRING)) 
ô��
ð@dlð²/ÁÉ�¹kº@ÁÉ�Ê�»@ÁÊ� jðhð__¿@Ó¸O²sIJÐÈ�°o	��b�É�¹@Ⱥ@È»@Ê�Cjð‘h€i_²B@1OÈkÙ_"¿OÉ�_$¿O"OÈØ_ ¿O"kØ_"O ñ³O$O"ÐÈ�lÿñ‘h€i³çi€h_¿Klÿñ‘h€i³hIJÂdlÿå\dá½JKØkÙJkØ_¿_¿OOó³/MdnÿåààÐÓdlÿåáÐÓO™IOÐÈ�lÿåƒIOÂÐÓ½OkÔ_°Ðk_¿`��MÐÈ�^jð³£HµKNkÙ_¿lOÓÑOÓÐÉ�_Ê�Kð¢±�¾O`��NkÙÐÁÊ� jðhðð¢±�§O²<KkJO Oó›i±�ŽNkÙð±�‡OO ÐÈ�IO"ÐÈ�ð¢h°åO kÔ_ ¿O"kÔ_"¿°ÎO²3KkJO Oó³"OO ÂIO"ÐÈ�ð¢h°O kÔ_ ¿O"kÔ_"¿°Ûi°/KkJO Oó³ OO ÂIO"Âð¢h°O kÔ_ ¿O"kÔ_"¿°Ýi’OMOµLMækäl?å_ÐÓ½OkÔ±ÿ��(58 MKSTRING)
(291 \ATOMSPACE 245 \AtomHashTable)
()
(RPAQQ \PNAMELIMIT 255)
(RPAQ? \PNAMES.IN.BLOCKS?)
\DEFINEDP D1
(L (0 A)) ����
@lð´
@Á
É�´i�NIL
NIL
()
PUTD D1
(L (2 FLG 1 DEF 0 FN)) �!���AB³dÃ��ŸAÉ�É@ð§A@
��b¿@A
��¿�(29 \PUTD 21 \RENAMEDFN)
(7 COMPILED-CLOSURE)
()
\PUTD D1
(L (1 DEF 0 FN) P 3 \INTERRUPTABLE) ���@Á
!AYdÃ��²¿IÉ�ºHjÏ�@¿IÉ–HjÏ��°IJY°=²IÊ�Clð›IÉ�YºHjÏ�@°%`��™I–I@
��µHjÏ�¿HI�AZ¹HkÏ�@¿k¿HkÏ��¿k¿HJÊ!Ï�!¿HJÈjð‘k€jÏ�¿HI�A�(78 \MAKEPSEUDOCODE)
(69 COMPILEATPUTDFLG 14 COMPILED-CLOSURE)
()
GETD D1
(L (0 A)) �8��
@lð´1@Á

HÊ��jð¡h€i“HÉ�HÊ�@jð¦HÉ�	��l
HÉ�¹dI�¿�(40 \PSEUDOCODE.REALDEF)
NIL
()
(RPAQQ COMPILEATPUTDFLG NIL)
(RPAQ? *PACKAGE-FROM-INDEX*)
\RESETSYSTEMSTATE D1
NIL �	����i	�����(6 \RESETTERMINAL 3 \KEYBOARDON)
NIL
()
INITIALEVALQT D1
NIL �`�����`��!H²So���	��¿H
I¹HXµùI
	��Z²*I
	��¿l
	��¿J
I
JZ
��¿	��¿JµðI
g��
��¿IY´°Ê��¿��i�(92 INTERPRET.REM.CM 77 SETTOPVAL 64 EVAL 60 SETTOPVAL 49 DSPBOUT 43 SIMPLEPRINT 34 GETTOPVAL 18 SIMPLEPRINT 2 \SETIOPOINTERS)
(88 BOOTFILES 74 NOBIND 5 BOOTFILES)
( 15 "evaluating initial expressions:
")
SIMPLEPRINT D1
(L (1 N 0 X)) �˜��@dlð¨¿@d² ¿@	��k
IHó‘h@I
��	��¿IkÔY°î´_Ajð›o���hb¿b�°Äl(	��@
A
›jAñ‘h€i“Akفlb
��¿Ajð•o���°"@b�µo���°³o���	��¿@	��¿o���	��ho���	��¿°¯�(147 SIMPLEPRINT 138 SIMPLEPRINT 130 SIMPLEPRINT 125 SIMPLEPRINT 92 SIMPLEPRINT 67 DSPBOUT 36 DSPBOUT 33 NTHCHARCODE 18 NCHARS)
NIL
( 144 " " 135 ")" 122 " . " 113 ")" 101 " --)" 54 "&")
PAGEFAULTS D1
NIL �
����`��l
���(7 \GETBASEFIXP)
(2 \MISCSTATS)
()
\SETTOTALTIME D1
NIL �����`��lÐ`��j
��	��ö�(15 CLOCKDIFFERENCE 12 \GETBASEFIXP)
(8 \MISCSTATS 2 \MISCSTATS)
()
\SERIALNUMBER D1
NIL �����`���NIL
(2 \InterfacePage)
()
\BLT D1
(L (2 NWORDS 1 SBASE 0 DBASE)) �?��Bn@�ó²@n@�ÐAn@�ÐBn@�ÕÄ@An@�ÄjBkÙ
HIó³@IÐAIÐÈ�Í�¿ImÿÔ¹°ë@�NIL
NIL
()
\MOVEBYTES D1
(L (4 NBYTES 3 DBYTE 2 DBASE 1 SBYTE 0 SBASE)) �j��Djñ´L@AâÐBCâÐ2AkåZCkå[ð²7Jkð²IkHkÂÇ¿IkйHkиDmÿÔb¿IHDâ\Ä¿Dkåkð´
ILÐjHLÐjÂÇhDdjñ´ûIKdkÔ»HJdkÔºÂÇ¿kÙ°ê�NIL
NIL
()
\CLEARWORDS D1
(L (1 NWORDS 0 BASE)) �L���@Anÿñ‘h€i³%@nÿÐjÍ�¿@dkÐnÿÄ¿@n€�Ðb�¿An€�Ùb°ÕAjñ²@AkÙÐjÍ�¿Akð¨@dkÐAkÙÄ¿�NIL
NIL
()
\CLEARBYTES D1
(L (2 NBYTES 1 OFFST 0 BASE)) �A���Bjñ´<Akåjð‘h€i²@AjÇ¿AkÔb¿BmÿÔb¿@AâÐb�Bkåjð‘h€i–@BkÙjÇ¿@Bâ
���(62 \CLEARWORDS)
NIL
()
\CLEARCELLS D1
(L (1 NCELLS 0 BASE)) �K���n?ÿAñ³&@nÿÐjÍ�¿@dkÐnÿÄ¿@n€�Ðb�¿An@�Ùb¿°×Ajñ´Aàb@AkÙÐjÍ�Akð§@dkÐAkÙÄh�NIL
NIL
()
\MOVEWORDS D1
(L (4 NWORDS 3 DOFFSET 2 DBASE 1 SOFFSET 0 SBASE)) �
���BCÐ@AÐDÄ�NIL
NIL
()
\ZEROBYTES D1
(L (2 LAST 1 FIRST 0 BASE)) ����@ABAÙkØ���(9 \CLEARBYTES)
NIL
()
\ZEROWORDS D1
(L (1 ENDBASE 0 BASE)) �K
��AÒ@Òñ‘h€i³"@nÿÿ@ÓÙ
��¿@ÒnÿÿÑjÍ�¿@ÒkØjÑb�¿°×AÓ@ÓÙ
�jHñ‘h€i´@jÍ�¿@kÐH
��h�(71 \CLEARWORDS 20 \CLEARWORDS)
NIL
()
(PUTPROPS LLBASIC FILETYPE COMPILE-FILE)
(PUTPROPS LLBASIC COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986))
NIL