(FILECREATED " 7-Feb-85 18:45:51" ("compiled on " {ERIS}32MB>LLHUNK.;1) " 5-Feb-85 23:45:44" tcompl'd in "INTERLISP-D 6-Feb-85 ..." dated " 6-Feb-85 00:02:22") (FILECREATED " 7-Feb-85 18:45:33" {ERIS}32MB>LLHUNK.;1 16638 changes to: (VARS LLHUNKCOMS) ( FNS \SETUPHUNKING \SETUP.TYPENUM.TABLE) previous date: "15-Jan-85 00:48:54" {ERIS}SOURCES>LLHUNK.;2) \ALLOCHUNK D1 (P 13Q STRADDLERS P 12Q ONPAGE P 11Q HUNKSIZE P 10Q HUNK P 7 DTNUMBER P 6 FAILCNT P 5 TYPENUM.TABLE I 3 ALIGN I 2 INITONPAGE I 1 GCTYPE I 0 NCELLS) E C²\Cl@ñ³MCAdjð–¿o°>kð²0oAHµI°+\kñŸLdl@ñ¨»Jµ KhZY¿HX°áK&Z°÷Alð´o¨oC ¿Adjð•¿`°lð“`ŠAkð“`‚jR M@Â_¿`OààààÐÈâ_¿C¢±Ž`OààààÐÈâCÜjð³zOkØbl@ñ²É°=Alð²%Ol ÚOÛOdlñ£¿l<ˆl2ñ¢l2lñ¤O†OO_¿NkÔ^dlñŸ¿Od™` hlð²OkØb¿O¢±ÿlO` ¿±ÿ]O_¿B²Bl€OÓlÿåâÙ_ýñ¢±ÿ|O(435Q \NCONC2 376Q \NCONC2 172Q SHOULDNT 133Q ERROR) (440Q \HUNKREJECTS 432Q \HUNKREJECTS 401Q \HUNKREJECTS 373Q \HUNKREJECTS 234Q \DTDSpaceBase 207Q \DTDSpaceBase 166Q \PTRHUNK.TYPENUM.TABLE 156Q \CODEHUNK.TYPENUM.TABLE 145Q \UNBOXEDHUNK.TYPENUM.TABLE) ( 127Q "Oddball alignment request" 121Q (2) 35Q (4 5 6 7 10Q 12Q 14Q 20Q 30Q 40Q 52Q 100Q 124Q 200Q) 23Q (2 3 4 5 6 7 10Q 11Q 12Q 14Q 16Q 20Q 24Q 30Q 34Q 40Q 50Q 60Q 100Q)) \SETUPHUNKING D1 (P 5 LASTPNPAGE P 4 NEXTPNPAGE P 3 PREV P 2 BASE P 0 \INTERRUPTABLE) ~ojg olg okg i`³I0i``lØmþån:Øn?ÿLYãIlÿåáѺLMñ³J ¿JKοL[lÔ¼JnаåKh(143Q \NEW2PAGE 47Q \SETUP.TYPENUM.TABLE 31Q \SETUP.TYPENUM.TABLE 12Q \SETUP.TYPENUM.TABLE) (172Q \MDSFREELISTPAGE 100Q \CurPnPage 75Q \MDSFREELISTPAGE 72Q \PNAMES.IN.BLOCKS? 61Q \PNAMES.IN.BLOCKS? 56Q \HUNKING? 52Q \PTRHUNK.TYPENUM.TABLE 44Q \PTRHUNK 34Q \CODEHUNK.TYPENUM.TABLE 26Q \CODEHUNK 15Q \UNBOXEDHUNK.TYPENUM.TABLE 7 \UNBOXEDHUNK) ( 40Q (4 5 6 7 10Q 12Q 14Q 20Q 30Q 40Q 52Q 100Q 124Q 200Q) 21Q (14Q 20Q 24Q 30Q 34Q 40Q 44Q 52Q 62Q 100Q 124Q 200Q) 3 (1 2 3 4 5 6 7 10Q 11Q 12Q 14Q 16Q 20Q 24Q 30Q 34Q 40Q 50Q 60Q 100Q 124Q 200Q)) \SETUP.TYPENUM.TABLE D1 (P 11Q DTNUMBER P 10Q DTD P 7 DESCL P 6 TNAME P 5 TABLE P 4 SIZEL P 3 HUNKSIZE P 2 SLOTDESC P 1 I I 2 PREFIX I 1 GCTYPE I 0 SIZELST) ¾l@jAkð“gƒomÿ@lj F IdHó‘MKñ¢±‹LL¼d¡µl@»BK ¾KAk_Oó³!J_¿OµOh__¿OkÔ°äO&_¿°ôO_¿N _²O`OààààÐ_Éô³NO ¿`N _ààààÐ_¿OAÏa¿OkÏP¿MIOÇ¿IkÔY±ÿb(227Q \TYPENUMBERFROMNAME 217Q DECLAREDATATYPE 162Q \TYPENUMBERFROMNAME 74Q PACK* 27Q \ALLOCBLOCK) (223Q \DTDSpaceBase 173Q \DTDSpaceBase 11Q POINTER) ( 16Q (BITS 40Q)) \HUNKFIT? D1 (I 0 N) fh ¿o ¿@ ¿o ¿n@Û ¿o ¿n@Ü ¿o ¿h ¿l ¿o ¿l€@Ü ¿o ¿h i(142Q TERPRI 135Q PRIN1 125Q PRIN1 115Q PRIN1 105Q TAB 77Q TERPRI 72Q PRIN1 62Q PRIN1 51Q PRIN1 41Q PRIN1 30Q PRIN1 20Q PRIN1 13Q PRIN1 3 TERPRI) NIL ( 132Q " cells kept on first page)" 112Q "('unit' is split with " 67Q " cells left over." 46Q " fit in a MDS unit with " 25Q " cells, " 10Q "Hunk size = ") \AB.NEXT D1 (P 3 SIZE.WORDS P 2 SIZE P 1 PW P 0 ABADDR I 1 ABLO I 0 ABHI) +@d²H¿A³C@ lð²'@dd¡²dgð¥dgð’¿i¿h•@b€@ lð²'@b¿@°@`ðª@jðŸl@Òñ©@Ób¿@Òb¿j@ñ˜o@ ¿@`Òñ˜o@ ¿jAñ˜oA ¿@AÑ1HÈYââânÿånUð®h¸o@Ah ¿HÈZà»HKlÙÐÈââânÿånUð¤oJHKkÙÐÈð®o@Ahh¸ ¿HKÐXdÈYdââânÿånUð®h¸o@Ah ¿HÈIkåjð£g‚gHÒHÓh(416Q ERROR 352Q ERROR 262Q ERROR 215Q ERROR 200Q ERROR 160Q ERROR 72Q LENGTH 14Q LENGTH) (437Q FREE 433Q INUSE 165Q \ArrayFrLst 115Q \ArrayFrLst 50Q FREE 42Q INUSE) ( 406Q "Array Password not found at this loc" 340Q "Header and Trailer lengths disagree" 321Q "Array Password not found just below this" 252Q "Array Password not found at this loc" 211Q "Negative offset number?" 174Q "Segment number too high?" 154Q "Negative segment number?") \AB.BACK D1 (P 2 SIZE P 1 PW P 0 ABADDR I 1 ABLO I 0 ABHI)  @d²H¿A³C@ lð²'@dd¡²dgð¥dgð’¿i¿h•@b€@ lð²'@b¿@°@`ðª@jðŸl@Òñ©@Ób¿@Òb¿j@ñ˜o@ ¿@`Òñ˜o@ ¿jAñ˜oA ¿@AÑmþÐ!HÈYdââânÿånUð®h¸o@Ah ¿HÈZHjJkÙàÙÐXdÈââânÿånUð¤oŒJdHÈð³¿o@Ahh¸ ¿JIkåjð£g‚gHÒHÓh(357Q ERROR 266Q ERROR 215Q ERROR 200Q ERROR 160Q ERROR 72Q LENGTH 14Q LENGTH) (376Q FREE 372Q INUSE 165Q \ArrayFrLst 115Q \ArrayFrLst 50Q FREE 42Q INUSE) ( 345Q "Header and Trailer lengths disagree" 327Q "Array Password not found just below this" 256Q "Array Password not found just below this" 211Q "Negative offset number?" 174Q "Segment number too high?" 154Q "Negative segment number?") (PRETTYCOMPRINT LLHUNKCOMS) (RPAQQ LLHUNKCOMS ((COMS (* "Basic hunking") (FNS \ALLOCHUNK) (* "Keep a list of all the hunks rejected due to poor page-straddling alignment, or to code falling off the end of a doublepage" ) (VARS (\HUNKREJECTS)) (GLOBALVARS \HUNKREJECTS) (DECLARE: EVAL@COMPILE DONTCOPY (EXPORT (MACROS HUNKSIZEFROMNUMBER)))) (COMS (* Initialization) (FNS \SETUPHUNKING \SETUP.TYPENUM.TABLE) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS \MAX.CELLSPERHUNK) (CONSTANTS \HUNK.UNBOXEDSIZES \HUNK.CODESIZES \HUNK.PTRSIZES)) (INITVARS (\HUNKING?) (\PNAMES.IN.BLOCKS?) (\MDSFREELISTCOUNT 0)) (GLOBALVARS \HUNKING? \PNAMES.IN.BLOCKS?) (INITVARS (\UNBOXEDHUNK.TYPENUM.TABLE) (\CODEHUNK.TYPENUM.TABLE) ( \PTRHUNK.TYPENUM.TABLE)) (GLOBALVARS \UNBOXEDHUNK.TYPENUM.TABLE \CODEHUNK.TYPENUM.TABLE \PTRHUNK.TYPENUM.TABLE) (* "Turn it all on, during the BOOTEXPRS phase") (DECLARE: DONTEVAL@COMPILE DONTEVAL@LOAD DOCOPY (P (\SETUPHUNKING)))) (COMS (* "Debugging aids") (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS \ArrayFrLst) (CONSTANTS \ArrayBlockPassword)) (FNS \HUNKFIT? \AB.NEXT \AB.BACK)))) (RPAQQ \HUNKREJECTS NIL) (RPAQ? \HUNKING?) (RPAQ? \PNAMES.IN.BLOCKS?) (RPAQ? \MDSFREELISTCOUNT 0) (RPAQ? \UNBOXEDHUNK.TYPENUM.TABLE) (RPAQ? \CODEHUNK.TYPENUM.TABLE) (RPAQ? \PTRHUNK.TYPENUM.TABLE) (\SETUPHUNKING) (PUTPROPS LLHUNK COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL