(FILECREATED "30-Sep-86 23:17:15" ("compiled on " {ERIS}<LISPCORE>SOURCES>LLBASIC.;58) 
"27-Sep-86 00:33:58" "COMPILE-FILEd" in "Xerox Lisp 27-Sep-86 ..." dated "27-Sep-86 00:51:47")
(FILECREATED "30-Sep-86 23:15:59" {ERIS}<LISPCORE>SOURCES>LLBASIC.;58 67275 changes to: (FNS INITATOMS
 COPYATOM) previous date: "24-Sep-86 18:00:26" {ERIS}<LISPCORE>SOURCES>LLBASIC.;57)
(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) (DECLARE: DONTEVAL@LOAD DOCOPY (P))) (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
(I 0 X) ����
@lð´@Ólÿåjðhð´@�NIL
NIL
()
LITATOM D1
(L (0 X)) ����
@lð�NIL
NIL
()
FIXP D1
(I 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
(I 0 X) �
���
@hðµ@3´i�NIL
NIL
()
FLOATP D1
(L (0 X)) �
���
@lð´@�NIL
NIL
()
NUMBERP D1
(I 0 X) ����
@3�NIL
NIL
()
STACKP D1
(L (0 X)) �
���
@lð´@�NIL
NIL
()
GETTOPVAL D1
(I 0 X) ����
@ÁÉ��NIL
NIL
()
SETTOPVAL D1
(I 1 VAL I 0 ATM) �%���@µAd²l
��ið›AiðµAl
��@ÁA�A�(32Q \LISPERROR 13Q \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
(I 0 ATM) ����
@ÁÉ��NIL
NIL
()
\ATOMCELL D1
(P 0 LOC I 1 N I 0 X) �=
��Adl
ð—¿@��Ó°'lð–@��Ó°Adlð–¿@��ÓŒlð•@��Ó‚��
�AHÑHÐ�(62Q SHOULDNT)
(55Q LITATOM 43Q LITATOM 25Q LITATOM 12Q 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���(12Q CONSTANTEXPRESSIONP)
(42Q IGNOREMACRO 23Q ATOMCELL.N 20Q 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
(13Q \PROPCELL 10Q \GETBASEPTR)
( 23Q (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
(21Q \PROPCELL 16Q \RPLPTR)
()
(PUTPROP (QUOTE SETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE SETPROPLIST) (
QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-SETPROPLIST))))
\MKATOM D1
(P 32Q NEWATOM P 31Q \INTERRUPTABLE P 30Q $$VAL P 27Q B2 P 26Q B1 P 25Q $$TEM1 P 24Q $$VAL P 23Q B2 P 22Q B1 P 21Q $$TEM1 P 15Q $$1 P 14Q $$VAL P 13Q CHAR# P 12Q $$TEM1 P 11Q REPROBE P 10Q FIRSTBYTE P 7 FIRSTCHAR P 6 PNBASE P 5 ATM# P 4 HASHENT P 3 HASH P 2 FATCHARSEENP I 4 NONNUMERICP I 3 FATP I 2 LEN I 1 OFFST I 0 BASE F 33Q \ORIGREADTABLE) 
�C´*ABØkÙA
IHó³@IÐÈ�lÿñ”Iµi†IkÔY°êh¡h€iq	Bjð™j»lÿ_¿±�ŽC•@AÐÈ�‚@AÂ_¿Bkð²9Olÿñ‘h€i².`��²)Ol9ñ™`��Ol
ÙÐl0Oñ‘h€i•Ol0Ù`��OÐD‘h€i² Ol9ñ‘h€i²@ABCl
W6
��\µ‚±
kOlÿå_á»ABØkÙAkØOOó²``��KÐÈ�\jð’±
!LkÙ]

lOÓÑOÓÐÉ�^Ê�Bð¢±�íJNÊ�‡jð´`��MÐÁÊ� jðhðð¢±�ÑJ²cBkAOOó²5i±�µKdnÿåààÐÓ[dlÿåáÐÓC™@OÐÈ�lÿåƒ@OÂÐÓ»OkÔ_±ÿrNOÐÈ�@O ÐÈ�ð¢h°¿OkÔ_¿O kÔ_ ¿°§C²4BkAiO$O"ó³!NO$Â@O&ÐÈ�ð¢h°O$kÔ_$¿O&kÔ_&¿°ÜO(°0BkAiO,O*ó³NO,Â@O.Âð¢h°O,kÔ_,¿O.kÔ_.¿°ÞO0•`��MÐKOµ
OKækäl?å_ÐÓ»±þ×@ABCJ
��
`��KÐO4��ÓkØÍ�O4�(776Q \CREATE.SYMBOL 243Q \PARSE.NUMBER)
(1013Q LITATOM 1004Q \AtomHashTable 731Q \ATOMSPACE 376Q \ATOMSPACE 311Q \AtomHashTable 201Q \OneCharAtomBase 147Q \OneCharAtomBase 134Q \OneCharAtomBase)
()
\CREATE.SYMBOL D1
(P 12Q $$VAL P 11Q J P 10Q I P 7 $$TEM1 P 6 \INTERRUPTABLE P 5 PN P 3 ATM P 2 CPP P 1 PB P 0 PNBASE I 4 FATCHARSEENP I 3 FATP I 2 LEN I 1 OFFSET I 0 BASE) �Ì��D”BlØ„BlØââ	��A`��[dn
ÿåjð²!ã
lþMñ‘h€i“��¿Mnˆ
��¿M	��Žnÿÿð™lo���
��¿lKÓÑKÓмLkHÒlÿåÇ¿LHÓÍ
D™HkÐ@AÐBÄ°7C²+BAk
OOó³HO@OÐÈ�Ç¿OkÔ_¿OkÔ_°ã‰@AHkB
��¿HBÏ�H�¿KkØ��`��KÐ[D–dÁkÏ� K�(251Q \MOVEBYTES 114Q \MP.ERROR 74Q \INITATOMPAGE 67Q \MAKEMDSENTRY 57Q \MKATOM.FULL 17Q \ALLOCBLOCK)
(274Q \ATOMSPACE 271Q \AtomFrLst 25Q \AtomFrLst)
( 111Q "No more atoms left")
\MKATOM.FULL D1
NIL �����`��‘h€i´i��¿`��kÏ�`¿i��h�NIL
(31Q \PENDINGINTERRUPT 20Q \INTERRUPTSTATE 14Q \STORAGEFULL 2 \STORAGEFULL)
()
\INITATOMPAGE D1
(P 1 VALBASE P 0 OFFSET I 0 PN) �H��
@á
`��HÐHÐ	��`��HÐHÐ	��`��HÐHÐ	��`��HÐHÐY	��n�djñ´Ig��Î�¿IlйkÙ°í�(55Q \NEW4PAGE 42Q \NEW4PAGE 30Q \NEW4PAGE 16Q \NEW4PAGE)
(71Q NOBIND 45Q \VALSPACE 33Q \PLISTSPACE 21Q \DEFSPACE 7 \PNPSPACE)
()
MAPATOMS D1
(L (0 FN)) �
��
j
�jHÑk@¿HkØX`��ð²ðh�NIL
(22Q \AtomFrLst)
()
ATOMHASH#PROBES D1
(P 35Q $$VAL P 34Q B2 P 33Q B1 P 32Q $$TEM1 P 31Q $$VAL P 30Q B2 P 27Q B1 P 26Q $$TEM1 P 25Q $$1 P 24Q $$VAL P 23Q PROBES P 22Q $$VAL P 21Q CHAR# P 20Q $$TEM1 P 13Q FATP P 12Q FATCHARSEENP P 11Q REPROBE P 10Q PNBASE P 7 HASHENT P 6 HASH P 5 FIRSTCHAR P 4 FIRSTBYTE P 3 LEN P 2 OFFST P 1 BASE P 0 DESIREDATOM# I 0 STRING) ��
À@dlð²/ÁÉ�¹kº@ÁÉ�Ê�»@ÁÊ� jðhð__¿@Ó¸O²sIJÐÈ�°o	��b�É�¹@Ⱥ@È»@Ê�Cjð‘h€i_²B@1OÈkÙ_¿OÉ�_¿OOÈØ_¿OkØ_Oñ³OOÐÈ�lÿñ‘h€i³çi€h_¿Klÿñ‘h€i³hIJÂ]dlÿå\dá¾JKØkÙJkØO"O ó³0NdnÿåààÐÓ^dlÿåáÐÓO™IO"ÐÈ�lÿåƒIO"ÂÐÓ¾O"kÔ_"°Ïk`��NÐÈ�_jð’±
HµNOkÙ
lO*ÓÑO*ÓÐÉ�_Ê�Kð¢±�ÄO`��OkÙÐÁÊ� jðhðð¢±�¬O²=KkJOOóœi±�“OkÙð±�‹OOÐÈ�IOÐÈ�ð¢h°äOkÔ_¿OkÔ_¿°ÍO²5KkJiO.O,ó³"OO.ÂIO0ÐÈ�ð¢h°O.kÔ_.¿O0kÔ_0¿°ÛO2°1KkJiO6O4ó³ OO6ÂIO8Âð¢h°O6kÔ_6¿O8kÔ_8¿°ÝO:’O&NOµLNækäl?å_ÐÓ¾O&kÔ_&¿±þõO(�(72Q MKSTRING)
(450Q \ATOMSPACE 365Q \AtomHashTable)
()
(RPAQQ \PNAMELIMIT 255)
(RPAQ? \PNAMES.IN.BLOCKS?)
\DEFINEDP D1
(I 0 A) ����
@lð´
@Á
É�´i�NIL
NIL
()
PUTD D1
(I 2 FLG I 1 DEF I 0 FN) �!���AB³dÃ��ŸAÉ�É@ð§A@
��b¿@A
��¿�(35Q \PUTD 25Q \RENAMEDFN)
(7 COMPILED-CLOSURE)
()
\PUTD D1
(P 3 \INTERRUPTABLE P 2 CODEBASE P 1 DVAL P 0 DCELL I 1 DEF I 0 FN) �‹��@Á
!AYÃ��²IÉ�ºHjÏ�@¿IÉ–HjÏ��°IJY°=Iµ`��™I–I@
��µ!HjÏ�¿HI�AÊ�Clð²àIÉ�YºHjÏ�@ˆZ¹HkÏ�@¿k¿HkÏ��¿k¿HJÊ!Ï�!¿HJÈjð‘k€jÏ�¿HI�A�(71Q \MAKEPSEUDOCODE)
(60Q COMPILEATPUTDFLG 15Q COMPILED-CLOSURE)
()
GETD D1
(P 0 A I 0 A) �8��
@lð´1@Á

HÊ��jð¡h€i“HÉ�HÊ�@jð¦HÉ�	��l
HÉ�¹dI�¿�(50Q \PSEUDOCODE.REALDEF)
NIL
()
(RPAQQ COMPILEATPUTDFLG NIL)
(RPAQ? *PACKAGE-FROM-INDEX*)
\RESETSYSTEMSTATE D1
NIL �	����i	�����(6 \RESETTERMINAL 3 \KEYBOARDON)
NIL
()
INITIALEVALQT D1
(P 2 L P 1 FL P 0 RL) �`�����`��!H²So���	��¿H
I¹HXµùI
	��Z²*I
	��¿l
	��¿J
I
JZ
��¿	��¿JµðI
g��
��¿IY´°Ê��¿��i�(134Q INTERPRET.REM.CM 115Q SETTOPVAL 100Q EVAL 74Q SETTOPVAL 61Q DSPBOUT 53Q SIMPLEPRINT 42Q GETTOPVAL 22Q SIMPLEPRINT 2 \SETIOPOINTERS)
(130Q BOOTFILES 112Q NOBIND 5 BOOTFILES)
( 17Q "evaluating initial expressions:
")
SIMPLEPRINT D1
(P 2 $$VAL P 1 I P 0 $$TEM1 I 1 N I 0 X) �—��@dlð¦¿@²@	��kIHó‘J@I
��	��¿IkÔY°î@´_Ajð›o���hb¿b�°Ål(	��@
A
›jAñ‘h€i“Akفlb
��¿Ajð•o���°"@b�µo���°³o���	��¿@	��¿o���	��ho���	��¿°¯�(222Q SIMPLEPRINT 211Q SIMPLEPRINT 201Q SIMPLEPRINT 174Q SIMPLEPRINT 133Q SIMPLEPRINT 102Q DSPBOUT 42Q DSPBOUT 37Q NTHCHARCODE 20Q NCHARS)
NIL
( 217Q " " 206Q ")" 171Q " . " 160Q ")" 144Q " --)" 65Q "&")
PAGEFAULTS D1
NIL �
����`��l
���(7 \GETBASEFIXP)
(2 \MISCSTATS)
()
\SETTOTALTIME D1
NIL �����`��lÐ`��j
��	��ö�(17Q CLOCKDIFFERENCE 14Q \GETBASEFIXP)
(10Q \MISCSTATS 2 \MISCSTATS)
()
\SERIALNUMBER D1
NIL �����`���NIL
(2 \InterfacePage)
()
\BLT D1
(P 0 NN I 2 NWORDS I 1 SBASE I 0 DBASE) �9��n@�!BHóž@HÐAHÐBHÕÄ@AHÄjBkÙº¹IJó³@JÐAJÐÈ�Í�¿JmÿÔº°ë@�NIL
NIL
()
\MOVEBYTES D1
(P 4 NWORDS P 3 DBN P 2 SBN P 1 DB P 0 SB I 4 NBYTES I 3 DBYTE I 2 DBASE I 1 SBYTE I 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
(P 0 $$VAL I 1 NWORDS I 0 BASE) �P
��@�Anÿñ‘h€i³%@nÿÐjÍ�¿@dkÐnÿÄ¿@n€�Ðb�¿An€�Ùb°ÕAjñ²@AkÙÐjÍ�¿Akð¨@dkÐAkÙÄ¿�NIL
NIL
()
\CLEARBYTES D1
(I 2 NBYTES I 1 OFFST I 0 BASE) �A���Bjñ´<Akåjð‘h€i²@AjÇ¿AkÔb¿BmÿÔb¿@AâÐb�Bkåjð‘h€i–@BkÙjÇ¿@Bâ
���(76Q \CLEARWORDS)
NIL
()
\CLEARCELLS D1
(P 0 $$VAL I 1 NCELLS I 0 BASE) �O
���n?ÿAñ³&@nÿÐjÍ�¿@dkÐnÿÄ¿@n€�Ðb�¿An@�Ùb¿°×Ajñ´Aàb@AkÙÐjÍ�Akð§@dkÐAkÙÄh�NIL
NIL
()
\MOVEWORDS D1
(I 4 NWORDS I 3 DOFFSET I 2 DBASE I 1 SOFFSET I 0 SBASE) �
���BCÐ@AÐDÄ�NIL
NIL
()
\ZEROBYTES D1
(I 2 LAST I 1 FIRST I 0 BASE) ����@ABAÙkØ���(11Q \CLEARBYTES)
NIL
()
\ZEROWORDS D1
(P 1 DIF P 0 $$VAL I 1 ENDBASE I 0 BASE) �O���AÒ@Òñ‘h€i³"@nÿÿ@ÓÙ
��¿@ÒnÿÿÑjÍ�¿@ÒkØjÑb�¿°×AÓ@ÓÙ

jIñ‘h€i´@jÍ�¿@kÐI
��h�(113Q \CLEARWORDS 27Q \CLEARWORDS)
NIL
()
(PUTPROPS LLBASIC FILETYPE COMPILE-FILE)
(PUTPROPS LLBASIC COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986))
NIL