(FILECREATED " 6-Jun-85 11:26:36" ("compiled on " {ERIS}PROLOG>HERB>PUTIL.%;34) "19-Mar-85 14:34:17" recompiled changes: PROLOG.INIT.MEMORY INSPECT.TABLES LOCK.TABLES CREATE.TABLES in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED " 6-Jun-85 11:26:02" {ERIS}PROLOG>HERB>PUTIL.%;34 9794 changes to: (FNS LOCK.TABLES INSPECT.TABLES CREATE.TABLES PROLOG.INIT.MEMORY PROLOG.INIT.REGISTERS.FIRST PROLOG.INIT.REGISTERS PROLOG.GEN.EMULATOR PROLOG PROLOG.GEN.STUB) (VARS PUTILCOMS QP.AReg.pages) previous date: " 4-Jun-85 22:08:44" {ERIS}PROLOG>HERB>PUTIL.%;33) DON.TEST.SETUP D1 NIL l g` o(31Q PROLOG.INIT.REGISTERS.FIRST 26Q FILL.PC.TABLE 15Q PROLOG.GEN.EMULATOR 10Q INSPECT.TABLES 5 LOCK.TABLES 2 CREATE.TABLES) (23Q PROLOG.PUFN.TABLE 20Q PROLOG) ( 35Q "Emulator created, table filled, registers initialized.") DUMMY.FOR.COMPILER D1 NIL gNIL (2 START) () MakeUCodeBaseAddr D1 (L (0 LISPBASE)) @n@NIL NIL () MakeUCodeRealBaseAddr D1 (I 0 LISPBASE) @@r@ӿHHnNIL NIL () CLEANSTR D1 (P 4 C I 0 STR) g g@ HkپH_NHؽHCjh_Nk^M3OONON\oo L J KhZK&I (144Q APPLY 117Q CHARACTER 110Q \APPEND2 6 U-CASE) (2 CONCAT) ( 105Q (101Q 102Q 103Q 104Q 105Q 106Q) 101Q (60Q 61Q 62Q 63Q 64Q 65Q 66Q 67Q 70Q 71Q)) PROLOG.INIT.MEMORY D1 NIL o(10Q INSPECT.TABLES 5 LOCK.TABLES 2 CREATE.TABLES) NIL ( 14Q "Tables created, memory allocated") WINDOW.APPEND.TITLE D1 (I 1 TITLE I 0 WINDOW) @gAo@ ( (24Q PUTWINDOWPROP 21Q CONCAT 14Q \INSUREWINDOW) (3 TITLE) ( 10Q " ") READ.REGS D1 (P 5 X F 6 REGISTER.ASSIGNMENTS) O`o?doMo  o  MKLhIHhZH&Jc (57Q HEXTODEC 53Q TERPRI 50Q PROMPTFORWORD 41Q HEXTODEC 35Q TERPRI 32Q PROMPTFORWORD 27Q CONCAT) NIL ( 45Q "and Ahi? " 24Q " : Alo? " 17Q "REG " 6 (P CP C R S H HB TR E B B0 T0 T1 I N OP)) HEXTODEC D1 (P 4 C P 2 POWER P 0 CLEANSTR I 0 STR) @ Hd kjSIkپI_NIؽICjh_Nk^MOONON¼KlJ Ldl04dl1.dl2(dl3"dl4dl5dl6dl7dl8dl9l0%lALdlBdlCdlDdlElFLl7ԻJmԺwK(116Q EXPT 13Q NCHARS 3 CLEANSTR) NIL () FILL.PC.TABLE D1 (P 20Q LEN P 17Q B3 P 16Q B2 P 15Q B1 P 14Q B P 3 PROLOG.OP.NUM P 2 OPCODEDEF P 1 CODELOC P 0 CA I 1 TABLE I 0 DEF) -@ddl  @o  Ad nA gA HHlHHlYPHIdkԹ\LM_ Z_ jHIdkԹ_^NO_O kHIdkԹ__OO_O lHIdkԹ__OO_Jd`(I` ԹHHI»AKIkYk*Jg>AHh(375Q LENGTH 172Q \FINDOP 70Q \ILLEGAL.ARG 57Q ARRAYTYP 46Q ARRAYSIZE 32Q ERROR 16Q GETD) (437Q -X- 411Q ARRAYP 403Q ARRAYP 371Q PROLOG.TARGET.OP 360Q PROLOG.TARGET.OP 340Q ARRAYP 331Q ARRAYP 273Q ARRAYP 264Q ARRAYP 227Q ARRAYP 221Q ARRAYP 160Q ARRAYP 152Q ARRAYP 124Q ARRAYP 116Q ARRAYP 103Q ARRAYP 75Q ARRAYP 62Q SMALLPOSP) ( 27Q "not compiled code") INSPECT.TABLES D1 NIL &l ` o ` o l (43Q RADIX 36Q WINDOW.APPEND.TITLE 27Q INSPECT 21Q WINDOW.APPEND.TITLE 12Q INSPECT 4 RADIX) (24Q PROLOG.ENABLE.PUFN.TABLE 7 PROLOG.PUFN.TABLE) ( 33Q "MICROCODE/LISP" 16Q "PUFN TABLE") LOCK.TABLES D1 NIL "`k `k `l (37Q \LOCKPAGES 27Q \LOCKPAGES 13Q \LOCKPAGES) (32Q QP.ABase 21Q ARRAYP 16Q PROLOG.ENABLE.PUFN.TABLE 5 ARRAYP 2 PROLOG.PUFN.TABLE) () CREATE.TABLES D1 NIL ngjdl ngkjl oi `n oi i n``n XHl 7`n` 7nNNj7(170Q MakeUCodeBaseAddr 150Q MakeUCodeBaseAddr 104Q TERPRI 77Q PRIN1 63Q \ALLOCPAGEBLOCK 51Q PRIN1 36Q ARRAY 15Q ARRAY) (165Q QP.ABase 157Q QP.ABase 154Q QP.membot 145Q QP.memtop 122Q QP.membot 115Q QP.membot 66Q QP.membot 54Q QP.membot 41Q PROLOG.ENABLE.PUFN.TABLE 26Q WORD 20Q PROLOG.PUFN.TABLE 5 WORD) ( 73Q "done." 45Q "Grabbing 4mb of vmem - this will take a while... ") PROLOG.SINGLESTEP D1 NIL oi (15Q TERPRI 12Q \GETKEY 7 PRIN1) NIL ( 3 "Single step (type key to continue) >> ") (PRETTYCOMPRINT PUTILCOMS) (RPAQQ PUTILCOMS ((FILES ALLOCPAGEBLOCK) (FNS DON.TEST.SETUP DUMMY.FOR.COMPILER MakeUCodeBaseAddr MakeUCodeRealBaseAddr CLEANSTR PROLOG.INIT.MEMORY WINDOW.APPEND.TITLE) (FNS READ.REGS HEXTODEC) (FNS FILL.PC.TABLE) (FNS INSPECT.TABLES LOCK.TABLES CREATE.TABLES) (FNS PROLOG.SINGLESTEP) (MACROS PROLOG.DUMMY.GOES PROLOG.GETNEXTLISPBYTECODE PROLOGOP) (INITVARS (QP.membot)) (CONSTANTS QP.AReg.pages QP.pages) (VARS PROLOG.TARGET.OP) (PROP ARGNAMES PROLOGOP))) (FILESLOAD ALLOCPAGEBLOCK) (PUTPROPS PROLOG.DUMMY.GOES MACRO (ARGS (LET ((N (CAR ARGS))) (BQUOTE (SELECTQ (DUMMY.FOR.COMPILER) ( START (GO START)) ,@ (for X from 0 to N collect (BQUOTE (, (PROLOG.GEN.OP# X) (GO , (PROLOG.GEN.OP# X) )))) (, (PROLOG.GEN.OP# 255) (GO , (PROLOG.GEN.OP# 255))) (FINISHED (GO FINISHED)) NIL))))) (PUTPROPS PROLOG.GETNEXTLISPBYTECODE MACRO (NIL (CODELT CA (PROG1 CODELOC (add CODELOC 1))))) (PUTPROPS PROLOGOP DMACRO (ARGS (LET ((OP# (CAR ARGS)) (PCINCR (CADR ARGS)) (ACTION (CDDR ARGS))) ( BQUOTE ((OPCODES POPDISP) (PROGN ((OPCODES ,@ (MKLIST PROLOG.TARGET.OP) , OP#)) ,@ ACTION ,@ (if PCINCR then (LIST PCINCR)))))))) (RPAQ? QP.membot) (RPAQQ QP.AReg.pages 2) (RPAQQ QP.pages 8192) (CONSTANTS QP.AReg.pages QP.pages) (RPAQQ PROLOG.TARGET.OP (RAID SIC)) (PUTPROPS PROLOGOP ARGNAMES (OP# PCINCR . ACTION)) (PUTPROPS PUTIL COPYRIGHT ("Xerox Corporation" 1985)) NIL