(FILECREATED "24-Nov-85 12:31:46" ("compiled on " {ERIS}PROLOG>PUTIL.;13) "17-Oct-85 18:58:44" recompiled changes: PROLOG.INIT.MEMORY.FIRST in "INTERLISP-D 17-Oct-85 ..." dated "17-Oct-85 19:04:07") (FILECREATED "24-Nov-85 12:30:56" {ERIS}PROLOG>PUTIL.;13 8824 changes to: (FNS PROLOG.INIT.MEMORY.FIRST) previous date: "18-Nov-85 12:44:24" {ERIS}PROLOG>PUTIL.;12) \DOGC1 D1 NIL g g(23Q \GCMAPUNSCAN 20Q \GCMAPSCAN 15Q \GCSCANSTACK 11Q \GCSCANPROLOG 5 \DEFINEDP) (26Q map 2 \GCSCANPROLOG) () 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 () PROLOG.INIT.MEMORY D1 NIL (10Q PROLOG.INIT.MEMORY.FIRST 5 LOCK.TABLES 2 CREATE.TABLES) NIL () PROLOG.INIT.MEMORY.FIRST D1 (F 1 QP.membot F 2 QP.ABase F 3 QP.memtop F 4 PROLOG.ENABLE.PUFN.TABLE F 5 PROLOG.PUFN.TABLE) UnQQn XHlc 7nllT 7nkkU 7nR 7nRn 7nNNj7(114Q MakeUCodeRealBaseAddr 100Q MakeUCodeRealBaseAddr 70Q MakeUCodeRealBaseAddr 53Q MakeUCodeRealBaseAddr 36Q MakeUCodeBaseAddr) (63Q ARRAYP 46Q ARRAYP) () 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") 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 Mngjdl ngkjl oi `n oi i `(104Q TERPRI 77Q PRIN1 63Q \ALLOCPAGEBLOCK 51Q PRIN1 36Q ARRAY 15Q ARRAY) (112Q QP.ABase 107Q 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 ((DECLARE: DONTEVAL@LOAD DOCOPY (FILES OPCODEMENU OPCODEHIST)) (FNS \DOGC1) (FNS DON.TEST.SETUP DUMMY.FOR.COMPILER MakeUCodeBaseAddr MakeUCodeRealBaseAddr PROLOG.INIT.MEMORY PROLOG.INIT.MEMORY.FIRST) (FNS FILL.PC.TABLE) (FNS 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) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (FILESLOAD OPCODEMENU OPCODEHIST) (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