)> )> > ACOPY #DECL ("VALUE" ANY SPACE ANY) LHPFIX APUT PRINTP DATWRITE READP DATREAD CORE-BLOCK GET-LOC PUT-LOC MAP-PAGE AFIXCHOMP ILLEGAL-OBJECT!-ERRORS INTERNAL-ERROR!-ERRORS MUNGED-TEMPLATE!-ERRORS TEMPLATE-LOSSAGE!-ERRORS CURSPACE % ARG-WRONG-TYPE!-ERRORS OUT-OF-BOUNDS!-ERRORS NEGATIVE-ARGUMENT!-ERRORS TYPES-DIFFER-IN-UNIFORM-VECTOR!-ERRORS NON-CHARACTER-INTO-STRING!-ERRORS NON-STRUCTURED-ARG-TO-PUT!-ERRORS CANT-PUT-NON-CHARACTER-INTO-STRING!-ERRORS TYPES-DIFFER-IN-UVECTOR!-ERRORS % CURSPACE-NOT-GASSIGNED!-ERRORS CANT-LOCK-SPACE RELEASE-OUT-OF-SPACE % T #FALSE ("ILLEGAL-ARGUMENT") #FALSE ("CANT-FILL-REQUEST") % AERRFALSE OBJECT-POINTS-OUTSIDE-AREA!-ERRORS % NEGATIVE-LENGTH-VECTOR!-ERRORS #FALSE ("NEGATIVE-LENGTH-VECTOR") % OUTCHAN " PGS HIGH WORD LAST WORD" % " CURRENT LOCATION = " " LOWEST LOCATION = " " FVC LOCATION = " " FREE LIST LENGTH = " " SPEC = " % #FALSE ("PAGE-FIND-FAILED") "READB" "MADMAN;ASHARE PAGE" "PRINTB" CANT-GET-SHARE-PAGE!-ERRORS SCRATCH-PAGE % % % TENEX CANT-GET-PAGES!-ERRORS # FALSE ("APGFIND-FAILED") % % % GROWING-UNGROWABLE-SPACE #FALSE ("ARESERVE FAILED") % % % % % #FALSE ("SPACE NOT LARGE ENOUGH FOR READ?") % ( ACTIVATION) WORD LIST [STRING BYTES]]>> .GLUE > > )> TABLOCK SPACE ANY LIST)] 468>> > > "TUPLE" TUPLE)] 1266>> SPACE "TUPLE" TUPLE)] 1246>> "TUPLE" TUPLE)] 1199>> SPACE "TUPLE" TUPLE)] 1179>> "TUPLE" TUPLE)] 1137>> SPACE "TUPLE" TUPLE)] 1117>> FIX "OPTIONAL" CHARACTER)] 1089>> SPACE FIX "OPTIONAL" CHARACTER)] 1067>> FIX FIX "OPTIONAL" )] 995>> SPACE FIX FIX "OPTIONAL" )] 971>> FIX "TUPLE" TUPLE)] 859>> SPACE FIX "TUPLE" TUPLE)] 836>> FIX "OPTIONAL" ANY)] 781>> SPACE FIX "OPTIONAL" ANY)] 759>> FIX "OPTIONAL" ANY)] 703>> SPACE FIX "OPTIONAL" ANY)] 681>> "TUPLE" TUPLE)] 620>> SPACE "TUPLE" TUPLE)] 600>> FIX "OPTIONAL" ANY)] 547>> SPACE FIX "OPTIONAL" ANY)] 525>> ANY LIST)] 476>> > > FIX)] 1866>> > FIX)] 1873>> > > > > )] 1981>> < PRIMTYPE WORD>)] 1992>> )] 2004>> FIX FIX )] 2014>> )] 2118>> )] 2148>> "OPTIONAL" FIX)] 2184>> > > >> >>> > < INSERT "G*" >> >>>> > > > )] 2276>> > FIX)] 2681>> > > > WORD WORD WORD LIST VECTOR FIX FIX>> "ERROR IF ATTEMPT TO GROW SPACE" "ERROR IF ATTEMPT TO RELEASE SOMETHING OUTSIDE SPACE" > > > > > > > SPACE)] 2728>> > FIX "OPTIONAL" )] 2848>> > FIX "OPTIONAL" FIX FIX )] 2978>> )] 3236>> FIX FIX "OPTIONAL" FIX)] 3298>> SPACE "OPTIONAL" )] 3402>> FIX "OPTIONAL" FIX)] 3464>> > )] 3619>> )] 3796>> > SPACE FIX "OPTIONAL" )] 3975>> PBLOCK )] 4359>> > SPACE PBLOCK)] 4448>> > > > > "OPTIONAL" FIX FIX )] 4701>> SPACE ANY "OPTIONAL" FIX )] 5227>> > SPACE ANY)] 6069>> > )] 6224>>