(FILECREATED " 1-Aug-85 12:49:36" ("compiled on " {ERIS}PROLOG>LOAD.%;1) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED " 1-Aug-85 12:33:59" {ERIS}PROLOG>LOAD.%;1 33408 changes to: (VARS LOADCOMS) ( FNS ASSEMBLE.CLAUSE QP.ADD.CLAUSE QP.DESCRIBE.INSTRUCTIONS QP.INITIALIZE.PROLOG QP.LOOK QP.LOOK.ATOM QP.LOOK.BYTE QP.LOOK.BYTE.ATOM QP.LOOK.BYTE.BYTE QP.LOOK.BYTE.CELL QP.LOOK.BYTE.FUNCTOR QP.LOOK.CELL QP.LOOK.CLAUSE QP.LOOK.CONSTANT QP.LOOK.EXTEND QP.LOOK.EXTEND.CELL QP.LOOK.EXTEND.WORD QP.LOOK.FUNCTOR QP.LOOK.INSTR QP.LOOK.NULL QP.LOOK.OFFSET QP.LOOK.ONE.CLAUSE QP.LOOK.OPCODE QP.LOOK.PROCEDURE QP.LOOK.SIZE.OFFSET QP.LOOK.SIZE.PROCEDURE QP.OP.CODE QP.STORE.INDEX QP.STORE.INSTR QP.STORE.INSTR.AREG QP.STORE.INSTR.ATOM QP.STORE.INSTR.BYTE QP.STORE.INSTR.BYTE.ATOM QP.STORE.INSTR.BYTE.BYTE QP.STORE.INSTR.BYTE.CELL QP.STORE.INSTR.BYTE.FUNCTOR QP.STORE.INSTR.CELL QP.STORE.INSTR.EXTEND QP.STORE.INSTR.EXTEND.CELL QP.STORE.INSTR.EXTEND.WORD QP.STORE.INSTR.FUNCTOR QP.STORE.INSTR.GET.PVAR QP.STORE.INSTR.NULL QP.STORE.INSTR.OFFSET QP.STORE.INSTR.PROCEDURE QP.STORE.INSTR.SIZE.OFFSET QP.STORE.INSTR.SIZE.PROCEDURE)) ASSEMBLE.CLAUSE D1 (P 6 INSTR P 5 INSTRS P 4 CLAUSEPTR P 3 INSTRS P 2 LENGTH P 1 PROC P 0 PROCLIST I 0 ARGS) P@gH @º@JlØ lKMµ`²ILh¾M½NL ¿°åLI (115Q QP.ADD.CLAUSE 105Q QP.STORE.INSTR 72Q QP.ASSERT 37Q QP.CLAUSE.ALLOC 13Q APPLY) (62Q QP.INDEXP 47Q QP.CLAUSE.OFFSET 7 QP.LOCAL.PREDICATE) () QP.ADD.CLAUSE D1 (I 1 PROCRECORD I 0 CLAUSE) bA ŸA@ÎA@Î @g AÉ Èãg ð²AÉ g@@g A@Î @AÉ Èãg ð´AÉ g@@g A@Î @(132Q QP.STORE.INDEX 123Q QP.STORE.INDEX 106Q QP.OP.CODE 64Q QP.STORE.INDEX 55Q QP.STORE.INDEX 40Q QP.OP.CODE 23Q QP.STORE.INDEX 3 QP.EMPTY.CLAUSES) (127Q trust.me.else 117Q retry.me.else 103Q trust.me.else 61Q trust.me.else 51Q try.me.else 35Q just.me.else 20Q just.me.else) () QP.DESCRIBE.INSTRUCTIONS D1 (P 3 ENTRY P 2 LAST.INSTR P 1 SECONDARY.COUNTER P 0 COUNTER I 0 ARGLIST) ‡nô lÈ ldjd"@°ad[dgð²%¿IlØ¹K``¿IK`¿KI`°-gðœHlØXKJh ‰HlØ¸KºHK`¿KH`¿µ h(176Q PUTHASH 164Q PUTHASH 143Q \APPEND2 107Q PUTHASH 76Q PUTHASH 15Q HARRAY 5 HARRAY) (173Q QP.INSTRUCTION.HARRAY 161Q QP.INSTRUCTION.HARRAY 125Q * 116Q QP.EXTENSION.HARRAY 104Q QP.EXTENSION.HARRAY 73Q QP.INSTRUCTION.HARRAY 70Q QP.EXTENSION.OPCODE 52Q extend 31Q QP.EXTENSION.OPCODE 25Q QP.PERMANENT.OFFSET 20Q QP.EXTENSION.HARRAY 10Q QP.INSTRUCTION.HARRAY) () QP.INITIALIZE.PROLOG D1 (F 0 QP.PROCEDURE.HARRAY F 1 QP.SCRATCH.STRING) Vn cjnj`n chl dg `g Ígo o i(122Q ASSEMBLE.CLAUSE 113Q DECLAREDATATYPE 77Q QP.LEFT.OP.CODE 66Q QP.STORE.INDEX 54Q QP.CLAUSE.ALLOC 41Q ALLOCSTRING 33Q QP.INIT.IO 25Q ALLOCSTRING 5 HARRAY) (104Q QP.PROCEDURE.RECORD 74Q fail 71Q QP.FAILURE.CLAUSE 63Q trust.me.else 57Q QP.FAILURE.CLAUSE 47Q SO.IT.WONT.GC 30Q BYTE.BUFFER 22Q BYTE.BUFFER 13Q BYTE.BUFFER.LENGTH) ( 117Q ((apply 2 si) 3 (apply)) 110Q (FIXP FIXP FIXP FIXP FIXP FIXP FIXP)) QP.LOOK D1 (P 0 CLAUSE I 2 MODULE I 1 ARITY I 0 PROC) N@d`ð®AµjBµgbÉXd`ð™¿o h`ð“HÉ¸¿H ¿HÉXd`ð²äh(76Q QP.LOOK.ONE.CLAUSE 71Q TERPRI 52Q PRIN3 27Q QP.LOCAL.PREDICATE) (107Q QP.FAILURE.CLAUSE 60Q INDEX.BLOCKTYPE# 40Q QP.EMPTY.PROC.ADDRESS 24Q si 10Q QP.PROCEDURE.RECORDTYPE#) ( 47Q "No clauses for this procedure") QP.LOOK.ATOM D1 (I 1 INSTR I 0 CLAUSE) Aj@`kØÐÈÑh `lØ(21Q PRINT) (32Q QP.CLAUSE.OFFSET 24Q QP.CLAUSE.OFFSET 5 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE D1 (P 0 BYTE I 2 TYPE I 1 INSTR I 0 CLAUSE) =A@`ÐÈlÿåBgð§Bdgð’¿Hgð•H`Ù‚h `kØ(62Q PRINT 53Q SHOULDNT) (72Q QP.CLAUSE.OFFSET 65Q QP.CLAUSE.OFFSET 46Q QP.PERMANENT.OFFSET 40Q y1 30Q byte 21Q a1 4 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE.ATOM D1 (I 1 INSTR I 0 CLAUSE) (A@`ÐÈlÿåj@`kØÐÈÑh `lØ(34Q PRINT) (45Q QP.CLAUSE.OFFSET 37Q QP.CLAUSE.OFFSET 17Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE.BYTE D1 (P 3 DEST2 P 2 DEST1 P 1 SRC2 P 0 SRC1 I 3 TYPE2 I 2 REVERSAL I 1 INSTR I 0 CLAUSE) H@`ÐÈlÿå@`kØÐÈlÿå"Bgð“IºH‚HºI»AJCgð•K`Ù€Kh `lØ(74Q PRINT) (105Q QP.CLAUSE.OFFSET 77Q QP.CLAUSE.OFFSET 62Q QP.PERMANENT.OFFSET 54Q PERMANENT 34Q REVERSED 15Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE.CELL D1 (I 1 INSTR I 0 CLAUSE) &A@`ÐÈlÿå@`kØÐÉh `lØ(32Q PRINT) (43Q QP.CLAUSE.OFFSET 35Q QP.CLAUSE.OFFSET 16Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE.FUNCTOR D1 (I 1 INSTR I 0 CLAUSE) 6A@`ÐÈlÿåj@`lØÐÈÑ@`kØÐÈlÿåh `lØ(52Q PRINT) (63Q QP.CLAUSE.OFFSET 55Q QP.CLAUSE.OFFSET 32Q QP.CLAUSE.OFFSET 17Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.CELL D1 (I 1 INSTR I 0 CLAUSE) )A@`kØÐÈlÿå@`lØÐÈÑh `lØ(35Q PRINT) (46Q QP.CLAUSE.OFFSET 40Q QP.CLAUSE.OFFSET 20Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.CLAUSE D1 (I 1 INSTR I 0 CLAUSE) ,Ag@`ÐÈlÿå@`kØÐÈhh `lØ(40Q PRINT) (51Q QP.CLAUSE.OFFSET 43Q QP.CLAUSE.OFFSET 21Q QP.CLAUSE.OFFSET 7 QP.CLAUSE.OFFSET 3 CLAUSE) () QP.LOOK.CONSTANT D1 (I 1 INSTR I 0 CLAUSE) A@`kØÐÉh `lØ(17Q PRINT) (30Q QP.CLAUSE.OFFSET 22Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.EXTEND D1 (I 1 INSTR I 0 CLAUSE) Ah `kØ(5 PRINT) (15Q QP.CLAUSE.OFFSET 10Q QP.CLAUSE.OFFSET) () QP.LOOK.EXTEND.CELL D1 (P 0 CELL I 1 INSTR I 0 CLAUSE) @`kØÐÉAHh `lØ(23Q PRINT) (34Q QP.CLAUSE.OFFSET 26Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.LOOK.EXTEND.WORD D1 (P 0 WORD I 1 INSTR I 0 CLAUSE) &@`kØÐÈAHáál h `lØ(32Q PRINT 24Q RSH) (43Q QP.CLAUSE.OFFSET 35Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.LOOK.FUNCTOR D1 (I 1 INSTR I 0 CLAUSE) +Aj@`lØÐÈÑ@`kØÐÈlÿåh `lØ(37Q PRINT) (50Q QP.CLAUSE.OFFSET 42Q QP.CLAUSE.OFFSET 20Q QP.CLAUSE.OFFSET 5 QP.CLAUSE.OFFSET) () QP.LOOK.INSTR D1 (P 5 FIELDS2 P 4 OPCODE2 P 3 INSTR2 P 2 INSTR P 1 FIELDS P 0 OPCODE I 0 CLAUSE) I@`ÐÈã!H`¹H`ºl Igð²I!K`\`½@HMJ@HIJ(106Q QP.LOOK.OPCODE 76Q QP.LOOK.OPCODE 35Q TAB) (64Q QP.INSTRUCTION.HARRAY 57Q QP.INSTRUCTION.HARRAY 42Q * 25Q QP.INSTRUCTION.HARRAY 16Q QP.INSTRUCTION.HARRAY 3 QP.CLAUSE.OFFSET) () QP.LOOK.NULL D1 (I 1 INSTR I 0 CLAUSE) Ah `kØ(5 PRINT) (15Q QP.CLAUSE.OFFSET 10Q QP.CLAUSE.OFFSET) () QP.LOOK.OFFSET D1 (P 4 OFFSET P 3 INSTR.ADDR P 2 CLAUSE.BEGIN P 1 CLAUSE.LOLOC P 0 CLAUSE.HILOC I 1 INSTR I 0 CLAUSE) B@ÒA@Ó¹HááIØº@`ÐÈlÿåoÚ@`kØÐÈØ[JÙ¼AgLh `lØ(66Q PRINT) (77Q QP.CLAUSE.OFFSET 71Q QP.CLAUSE.OFFSET 56Q + 40Q QP.CLAUSE.OFFSET 21Q QP.CLAUSE.OFFSET) ( 33Q 200000Q) QP.LOOK.ONE.CLAUSE D1 (I 0 CLAUSE) j¿@ ´°ú(10Q QP.LOOK.INSTR) (3 QP.CLAUSE.OFFSET) () QP.LOOK.OPCODE D1 (P 2 FIELDS2 P 1 INSTR2 P 0 EXTENSION I 3 INSTR I 2 FIELDS I 1 OPCODE I 0 CLAUSE) QAdjð‘h`ð²<@`ÐÈlÿå!H`¹H`Zoô•@I Joô•@I @I Bµ@C o —@CBBoô•@C Boô•@C Boô•@C Boô•@C Bo ²K@CBdgð”¿g‹gð“g‚Bdgð¥dgð•¿g°dgð¥dgð”¿gƒ¿Boô•@C Boô•@C Boô•@C Boô•@C Boô•@C Boô•@C Boô•@C ACBh (516Q SHOULDNT 513Q PRINT 500Q QP.LOOK.CLAUSE 463Q QP.LOOK.OFFSET 446Q QP.LOOK.PROCEDURE 431Q QP.LOOK.SIZE.OFFSET 414Q QP.LOOK.SIZE.PROCEDURE 377Q QP.LOOK.BYTE.ATOM 362Q QP.LOOK.BYTE.FUNCTOR 345Q QP.LOOK.BYTE.BYTE 342Q SHOULDNT 270Q SHOULDNT 233Q MEMBER 222Q QP.LOOK.BYTE.CELL 205Q QP.LOOK.ATOM 170Q QP.LOOK.FUNCTOR 153Q QP.LOOK.CELL 136Q QP.LOOK.BYTE 126Q MEMBER 116Q QP.LOOK.NULL 105Q QP.LOOK.EXTEND 77Q QP.LOOK.EXTEND.CELL 62Q QP.LOOK.EXTEND.WORD) (335Q ARGUMENT 327Q a2 321Q a1 313Q PERMANENT 305Q y2 277Q y1 264Q REVERSED 257Q a2 253Q NORMAL 245Q a1 44Q QP.EXTENSION.HARRAY 35Q QP.EXTENSION.HARRAY 20Q QP.CLAUSE.OFFSET 11Q QP.EXTENSION.OPCODE) ( 471Q (clause) 454Q (offset) 437Q (procedure) 422Q (size offset) 405Q (size procedure) 370Q (a1 atom) 353Q (a1 functor) 230Q ((a1 y2) (a2 y1) (a2 a1) (a1 a2)) 213Q (a1 cell) 176Q (atom) 161Q (functor) 144Q (cell) 123Q ((byte) (y1) (a1)) 70Q (extend cell) 53Q (extend word)) QP.LOOK.PROCEDURE D1 (I 1 INSTR I 0 CLAUSE) A@`ÐÉ `lØ(16Q PRINT 12Q QP.P.PROCEDURE) (27Q QP.CLAUSE.OFFSET 21Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.SIZE.OFFSET D1 (P 4 OFFSET P 3 INSTR.ADDR P 2 CLAUSE.BEGIN P 1 CLAUSE.LOLOC P 0 CLAUSE.HILOC I 1 INSTR I 0 CLAUSE) P@ÒA@Ó¹HááIØº@`ÐÈlÿåoÚ@`kØÐÈØ[JÙ¼A@`lØÐÈlÛgLh `lØ(104Q PRINT) (115Q QP.CLAUSE.OFFSET 107Q QP.CLAUSE.OFFSET 73Q + 57Q QP.CLAUSE.OFFSET 40Q QP.CLAUSE.OFFSET 21Q QP.CLAUSE.OFFSET) ( 33Q 200000Q) QP.LOOK.SIZE.PROCEDURE D1 (I 1 INSTR I 0 CLAUSE) ,A@`lØÐÈlÛh@`ÐÉ `lØ(40Q PRINT 35Q \NCONC2 32Q QP.P.PROCEDURE) (51Q QP.CLAUSE.OFFSET 43Q QP.CLAUSE.OFFSET 24Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.OP.CODE D1 (L (0 INSTRUCTION)) @d`˜`nØ`NIL (22Q QP.INSTRUCTION.HARRAY 11Q QP.EXTENSION.HARRAY 4 QP.EXTENSION.HARRAY) () QP.STORE.INDEX D1 (I 2 NEXTCLAUSE I 1 INSTR I 0 CLAUSE) @Bµ`Î@dÈA ØHIÍI(20Q QP.LEFT.OP.CODE) (6 QP.FAILURE.CLAUSE) () QP.STORE.INSTR D1 (P 4 TYPE P 3 FIELDS P 2 OPCODE P 1 ARGS P 0 INSTR I 1 CLAUSE I 0 INSTR.LIST) p@1@¹H`Z`»Hgð–AI J`ô²4H``Ldgð˜¿AHIgð—AHIAH KµAH oôšAHIIKoôšAHIIKoôŸAHIII Ko ²AHIIKK Kdgð˜¿AHIo ™AHIKKoô—AHIKoôšAHIIKoô—AHIKoô²AHIIII KoôšAHIIKoô—AHIKoôŸAHIII JHKh (555Q SHOULDNT 552Q PRINT 537Q QP.STORE.INSTR.PROCEDURE 510Q QP.STORE.INSTR.OFFSET 471Q QP.STORE.INSTR.SIZE.OFFSET 447Q QP.STORE.INSTR.SIZE.PROCEDURE 412Q QP.STORE.INSTR.ATOM 373Q QP.STORE.INSTR.FUNCTOR 351Q QP.STORE.INSTR.CELL 332Q QP.STORE.INSTR.BYTE 320Q MEMBER 307Q QP.STORE.INSTR.AREG 266Q QP.STORE.INSTR.BYTE.BYTE 244Q MEMBER 233Q QP.STORE.INSTR.BYTE.FUNCTOR 204Q QP.STORE.INSTR.BYTE.ATOM 162Q QP.STORE.INSTR.BYTE.CELL 141Q QP.STORE.INSTR.NULL 130Q QP.STORE.INSTR.EXTEND 122Q QP.STORE.INSTR.EXTEND.CELL 105Q QP.STORE.INSTR.EXTEND.WORD 37Q QP.STORE.INSTR.GET.PVAR) (275Q a1 111Q cell 73Q word 57Q QP.EXTENSION.HARRAY 53Q QP.EXTENSION.HARRAY 44Q QP.EXTENSION.OPCODE 27Q load.pvar.address 20Q QP.INSTRUCTION.HARRAY 13Q QP.INSTRUCTION.HARRAY) ( 516Q (procedure) 477Q (offset) 455Q (size offset) 420Q (size procedure) 401Q (atom) 357Q (functor) 340Q (cell) 315Q (y1 byte) 241Q ((a1 y2) (a2 y1) (a2 a1) (a1 a2)) 212Q (a1 functor) 170Q (a1 atom) 146Q (a1 cell)) QP.STORE.INSTR.AREG D1 (P 0 OPCODE I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) /A Bdló—¿HnØ¸… b¿@`ÐBHØÍ`kØ(27Q QP.AREG.REGISTER 3 QP.LEFT.OP.CODE) (54Q QP.CLAUSE.OFFSET 47Q QP.CLAUSE.OFFSET 36Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.ATOM D1 (I 2 ATOM I 1 INSTR I 0 CLAUSEPTR) !@`ÐA Í@`kØÐBÓÍ`lØ(10Q QP.LEFT.OP.CODE) (36Q QP.CLAUSE.OFFSET 30Q QP.CLAUSE.OFFSET 16Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.BYTE D1 (I 3 TYPE I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) 4@`ÐCgð§Cdgð’¿Bgð•B`Ø‚A ØÍ`kØ(46Q QP.LEFT.OP.CODE 42Q SHOULDNT) (61Q QP.CLAUSE.OFFSET 54Q QP.CLAUSE.OFFSET 35Q QP.PERMANENT.OFFSET 27Q y1 17Q byte 10Q a1 3 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.BYTE.ATOM D1 (P 0 OPCODE I 3 ATOM I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) ;A Bdló—¿HnØ¸… b¿@`ÐBHØÍ@`kØÐCÓÍ`lØ(27Q QP.AREG.REGISTER 3 QP.LEFT.OP.CODE) (70Q QP.CLAUSE.OFFSET 62Q QP.CLAUSE.OFFSET 50Q QP.CLAUSE.OFFSET 36Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.BYTE.BYTE D1 (P 3 DEST2 P 2 DEST1 P 1 HAS.Y.REG P 0 OPCODE I 5 FIELD2 I 4 FIELD1 I 3 BYTE2 I 2 BYTE1 I 1 INSTR I 0 CLAUSEPTR) A Do µ Eo Dgð²Bdló˜¿HnØ¸°% b¿°Egð²Cdló—¿HnØ¸… b¿Dgð²:Eo ²Bdló˜¿HnØ¸°F b¿°>Bdló˜¿HnØ¸°/ b¿°'Egð² Eo ²9Cdló—¿HnØ¸… b¿ Eo —C`Øb¿Ddgð²¿CºB[°Cdló²Ò¿HnØ¸°Ïgð”BºC[‚¿@`ÐJHØÍ@`kØÐKÍ`lØ(365Q SHOULDNT 300Q MEMBER 262Q QP.AREG.REGISTER 237Q MEMBER 213Q QP.AREG.REGISTER 164Q QP.AREG.REGISTER 140Q MEMBER 116Q QP.AREG.REGISTER 61Q QP.AREG.REGISTER 25Q MEMBER 13Q MEMBER 3 QP.LEFT.OP.CODE) (423Q QP.CLAUSE.OFFSET 415Q QP.CLAUSE.OFFSET 404Q QP.CLAUSE.OFFSET 372Q QP.CLAUSE.OFFSET 353Q a1 316Q a2 305Q QP.PERMANENT.OFFSET 224Q a2 125Q a2 72Q a1 34Q a1) ( 275Q (y1 y2) 234Q (y1 y2) 135Q (y1 y2) 22Q (y1 y2) 10Q (y1 y2)) QP.STORE.INSTR.BYTE.CELL D1 (P 1 NEXT P 0 OPCODE I 3 CELL I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) QA Bdló—¿HnØ¸… b¿@`ÐBHØÍ`kØC @IÐCÎ@IÐC @IÐÈØÍ`lØ(75Q QP.OBJ.TAG 60Q QP.LOAD.GC.PROTECT 27Q QP.AREG.REGISTER 3 QP.LEFT.OP.CODE) (116Q QP.CLAUSE.OFFSET 110Q QP.CLAUSE.OFFSET 47Q QP.CLAUSE.OFFSET 36Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.BYTE.FUNCTOR D1 (P 0 OPCODE I 4 ARITY I 3 NAME I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) FA Bdló—¿HnØ¸… b¿@`ÐBHØÍ`kØ¹@IÐCÎ@IÐ`DØÍ`lØ(27Q QP.AREG.REGISTER 3 QP.LEFT.OP.CODE) (103Q QP.CLAUSE.OFFSET 75Q QP.CLAUSE.OFFSET 66Q SYMBOL.TAG.16 47Q QP.CLAUSE.OFFSET 36Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.CELL D1 (I 2 CELL I 1 INSTR I 0 CLAUSEPTR) ;B @`ÐA Í@`kØÐBÎ@`kØÐ@`kØÐÈB ØÍ`lØ(54Q QP.OBJ.TAG 14Q QP.LEFT.OP.CODE 3 QP.LOAD.GC.PROTECT) (70Q QP.CLAUSE.OFFSET 62Q QP.CLAUSE.OFFSET 43Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET 22Q QP.CLAUSE.OFFSET 7 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.EXTEND D1 (L (1 INSTR 0 CLAUSEPTR)) A`@`Ð`áHØÍ`kØNIL (34Q QP.CLAUSE.OFFSET 27Q QP.CLAUSE.OFFSET 17Q QP.EXTENSION.OPCODE 13Q QP.CLAUSE.OFFSET 3 QP.EXTENSION.HARRAY) () QP.STORE.INSTR.EXTEND.CELL D1 (P 0 SECONDARY I 2 CELL I 1 INSTR I 0 CLAUSEPTR) @A`@`Ð`áHØÍB @`kØÐB BÒØÍ@`lØÐBÓÍ`lØ(43Q QP.OBJ.TAG 30Q QP.LOAD.GC.PROTECT) (75Q QP.CLAUSE.OFFSET 67Q QP.CLAUSE.OFFSET 54Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET 17Q QP.EXTENSION.OPCODE 13Q QP.CLAUSE.OFFSET 3 QP.EXTENSION.HARRAY) () QP.STORE.INSTR.EXTEND.WORD D1 (L (2 WORD 1 INSTR 0 CLAUSEPTR)) +A`@`Ð`áHØÍ@`kØÐBÓÍ`lØNIL (50Q QP.CLAUSE.OFFSET 42Q QP.CLAUSE.OFFSET 30Q QP.CLAUSE.OFFSET 17Q QP.EXTENSION.OPCODE 13Q QP.CLAUSE.OFFSET 3 QP.EXTENSION.HARRAY) () QP.STORE.INSTR.FUNCTOR D1 (I 3 ARITY I 2 NAME I 1 INSTR I 0 CLAUSEPTR) 0@`ÐA Í@`kØÐ`CØÍ@`lØÐBÓÍ`lØ(10Q QP.LEFT.OP.CODE) (55Q QP.CLAUSE.OFFSET 47Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET 24Q SYMBOL.TAG.16 16Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.GET.PVAR D1 (P 0 PVAR.ADDRESS I 1 PVAR I 0 CLAUSEPTR F 1 QP.membot) QÒl QÓAgØØ@gH(32Q QP.STORE.INSTR.EXTEND.CELL 6 LSH) (26Q load.constant 14Q QP.pvarno) () QP.STORE.INSTR.NULL D1 (I 1 INSTR I 0 CLAUSEPTR) @`ÐA Í`kØ(10Q QP.LEFT.OP.CODE) (22Q QP.CLAUSE.OFFSET 15Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.OFFSET D1 (P 4 ADDRESS.LOLOC P 3 ADDRESS.HILOC P 2 ADDRESS P 1 CLAUSE.LOLOC P 0 CLAUSE.HILOC I 2 OFFSET I 1 INSTR I 0 CLAUSEPTR) ;@ÒA@Ó¹BHááIØØZãã»Jnÿÿå¼@`ÐA KØÍ@`kØÐLÍ`lØ(41Q QP.LEFT.OP.CODE) (70Q QP.CLAUSE.OFFSET 62Q QP.CLAUSE.OFFSET 51Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.PROCEDURE D1 (P 0 PROC I 4 MODULE I 3 ARITY I 2 NAME I 1 INSTR I 0 CLAUSEPTR) /BCD@`ÐHÎ@`Ð@`ÐÈA ØÍ`lØ(40Q QP.LEFT.OP.CODE 5 QP.LOCAL.PREDICATE) (54Q QP.CLAUSE.OFFSET 46Q QP.CLAUSE.OFFSET 31Q QP.CLAUSE.OFFSET 24Q QP.CLAUSE.OFFSET 14Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.SIZE.OFFSET D1 (P 4 ADDRESS.LOLOC P 3 ADDRESS.HILOC P 2 ADDRESS P 1 CLAUSE.LOLOC P 0 CLAUSE.HILOC I 3 OFFSET I 2 SIZE I 1 INSTR I 0 CLAUSEPTR) I@ÒA@Ó¹CHááIØØZãã»Jnÿÿå¼@`ÐA KØÍ@`kØÐLÍ@`lØÐBlÚÍ`lØ(41Q QP.LEFT.OP.CODE) (106Q QP.CLAUSE.OFFSET 100Q QP.CLAUSE.OFFSET 63Q QP.CLAUSE.OFFSET 51Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.SIZE.PROCEDURE D1 (P 0 PROC I 5 MODULE I 4 ARITY I 3 NAME I 2 SIZE I 1 INSTR I 0 CLAUSEPTR) ;CDE@`ÐA HÒØÍ@`kØÐHÓÍ@`lØÐBlÚÍ`lØ(21Q QP.LEFT.OP.CODE 5 QP.LOCAL.PREDICATE) (70Q QP.CLAUSE.OFFSET 62Q QP.CLAUSE.OFFSET 45Q QP.CLAUSE.OFFSET 32Q QP.CLAUSE.OFFSET 14Q QP.CLAUSE.OFFSET) () (PRETTYCOMPRINT LOADCOMS) (RPAQQ LOADCOMS ((FNS ASSEMBLE.CLAUSE QP.ADD.CLAUSE QP.DESCRIBE.INSTRUCTIONS QP.INITIALIZE.PROLOG QP.LOOK QP.LOOK.ATOM QP.LOOK.BYTE QP.LOOK.BYTE.ATOM QP.LOOK.BYTE.BYTE QP.LOOK.BYTE.CELL QP.LOOK.BYTE.FUNCTOR QP.LOOK.CELL QP.LOOK.CLAUSE QP.LOOK.CONSTANT QP.LOOK.EXTEND QP.LOOK.EXTEND.CELL QP.LOOK.EXTEND.WORD QP.LOOK.FUNCTOR QP.LOOK.INSTR QP.LOOK.NULL QP.LOOK.OFFSET QP.LOOK.ONE.CLAUSE QP.LOOK.OPCODE QP.LOOK.PROCEDURE QP.LOOK.SIZE.OFFSET QP.LOOK.SIZE.PROCEDURE QP.OP.CODE QP.STORE.INDEX QP.STORE.INSTR QP.STORE.INSTR.AREG QP.STORE.INSTR.ATOM QP.STORE.INSTR.BYTE QP.STORE.INSTR.BYTE.ATOM QP.STORE.INSTR.BYTE.BYTE QP.STORE.INSTR.BYTE.CELL QP.STORE.INSTR.BYTE.FUNCTOR QP.STORE.INSTR.CELL QP.STORE.INSTR.EXTEND QP.STORE.INSTR.EXTEND.CELL QP.STORE.INSTR.EXTEND.WORD QP.STORE.INSTR.FUNCTOR QP.STORE.INSTR.GET.PVAR QP.STORE.INSTR.NULL QP.STORE.INSTR.OFFSET QP.STORE.INSTR.PROCEDURE QP.STORE.INSTR.SIZE.OFFSET QP.STORE.INSTR.SIZE.PROCEDURE) (MACROS QP.REGISTER.OR.MEMORY.1))) (PUTPROPS QP.REGISTER.OR.MEMORY.1 MACRO (**MACROARG** (LET ((AREG (CAR (NTH **MACROARG** 1))) (OPCODE (CAR (NTH **MACROARG** 2)))) (BQUOTE (COND ((GREATERP , AREG 4) (SETQ , OPCODE (IPLUS 512 , OPCODE))) (T (SETQ , AREG (QP.AREG.REGISTER , AREG)))))))) (PRETTYCOMPRINT LOADCOMS) (RPAQQ LOADCOMS ((FNS ASSEMBLE.CLAUSE QP.ADD.CLAUSE QP.DESCRIBE.INSTRUCTIONS QP.INITIALIZE.PROLOG QP.LOOK QP.LOOK.ATOM QP.LOOK.BYTE QP.LOOK.BYTE.ATOM QP.LOOK.BYTE.BYTE QP.LOOK.BYTE.CELL QP.LOOK.BYTE.FUNCTOR QP.LOOK.CELL QP.LOOK.CLAUSE QP.LOOK.CONSTANT QP.LOOK.EXTEND QP.LOOK.EXTEND.CELL QP.LOOK.EXTEND.WORD QP.LOOK.FUNCTOR QP.LOOK.INSTR QP.LOOK.NULL QP.LOOK.OFFSET QP.LOOK.ONE.CLAUSE QP.LOOK.OPCODE QP.LOOK.PROCEDURE QP.LOOK.SIZE.OFFSET QP.LOOK.SIZE.PROCEDURE QP.OP.CODE QP.STORE.INDEX QP.STORE.INSTR QP.STORE.INSTR.AREG QP.STORE.INSTR.ATOM QP.STORE.INSTR.BYTE QP.STORE.INSTR.BYTE.ATOM QP.STORE.INSTR.BYTE.BYTE QP.STORE.INSTR.BYTE.CELL QP.STORE.INSTR.BYTE.FUNCTOR QP.STORE.INSTR.CELL QP.STORE.INSTR.EXTEND QP.STORE.INSTR.EXTEND.CELL QP.STORE.INSTR.EXTEND.WORD QP.STORE.INSTR.FUNCTOR QP.STORE.INSTR.GET.PVAR QP.STORE.INSTR.NULL QP.STORE.INSTR.OFFSET QP.STORE.INSTR.PROCEDURE QP.STORE.INSTR.SIZE.OFFSET QP.STORE.INSTR.SIZE.PROCEDURE) (MACROS QP.REGISTER.OR.MEMORY.1) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA ASSEMBLE.CLAUSE) (NLAML) (LAMA))))) (PUTPROPS LOAD COPYRIGHT ("Xerox Corporation" 1985)) NIL