(FILECREATED " 3-Apr-86 07:29:35" ("compiled on " {ERIS}WORK>SIMULATE>TEFNS.;31) "12-Nov-85 14:59:23" recompiled changes: TE.IPLUS TE.IDIFFERENCE TE.ITIMES TE.IQUOTIENT TE.IREMAINDER TE.ASH TE.VARK_ TE.ADDBASE TE.GETPTR.N TE.PUTPTR.N TE.PUTBASEBYTE TE.NEG TE.CAR TE.CDR TE.TYPEP.O in "INTERLISP-D 22-Mar-86 ..." dated "22-Mar-86 17:07:07") (FILECREATED " 3-Apr-86 07:28:36" {ERIS}WORK>SIMULATE>TEFNS.;31 23942 changes to: (FNS TE.GETPTR.N TE.PUTPTR.N TE.CAR TE.CDR TE.ADDBASE TE.VARK_ TE.PUTBASEBYTE TE.ASH TE.TYPEP.O TE.IPLUS TE.IDIFFERENCE TE.ITIMES TE.IQUOTIENT TE.IREMAINDER TE.NEG) previous date: "25-Mar-86 08:14:23" {ERIS}WORK>SIMULATE>TEFNS.;24) TE.'T D1 NIL oNIL NIL ( 3 4000000001Q) TE.'NIL D1 NIL oNIL NIL ( 3 4000000000Q) TE.'0 D1 NIL j (3 TS.NEWTINT) NIL () TE.'1 D1 NIL k (3 TS.NEWTINT) NIL () TE.'UNBIND D1 NIL oNIL NIL ( 3 7000000000Q) TE.SICX D1 (I 0 C) @ (3 TS.NEWTINT) NIL () TE.ACONST D1 (I 0 ATOM#) l @ (5 TS.NEWTPTR) NIL () TE.PCONST D1 (I 0 PTR) @NIL NIL () TE.ICONST D1 (I 0 INT) @ (3 TS.NEWTINT) NIL () TE.FCONST D1 (I 0 FLOAT) @ (3 TS.NEWTFLOAT) NIL () TE.FN0 D1 (I 0 FN) @j (4 TS.TAMFUNCTIONCALL) NIL () TE.FN1 D1 (I 1 FN I 0 P1) Ak (4 TS.TAMFUNCTIONCALL) NIL () TE.FN2 D1 (I 2 FN I 1 P2 I 0 P1) Bl (5 TS.TAMFUNCTIONCALL) NIL () TE.FN3 D1 (I 3 FN I 2 P3 I 1 P2 I 0 P1) Cl (5 TS.TAMFUNCTIONCALL) NIL () TE.FN4 D1 (I 4 FN I 3 P4 I 2 P3 I 1 P2 I 0 P1) Dl (5 TS.TAMFUNCTIONCALL) NIL () TE.FN5 D1 (I 5 FN I 4 P5 I 3 P4 I 2 P3 I 1 P2 I 0 P1) El (5 TS.TAMFUNCTIONCALL) NIL () TE.FN6 D1 (I 6 FN I 5 P6 I 4 P5 I 3 P4 I 2 P3 I 1 P2 I 0 P1) Fl (5 TS.TAMFUNCTIONCALL) NIL () TE.FN7 D1 (I 7 FN I 6 P7 I 5 P6 I 4 P5 I 3 P4 I 2 P3 I 1 P2 I 0 P1) Gl (6 TS.TAMFUNCTIONCALL) NIL () TE.APPLYFN D1 NIL hio (10Q BREAK1) NIL ( 5 (APPLAYFN not implemented yet)) TE.RETURN D1 NIL (2 TS.TAMFUNCTIONRETURN) NIL () TE.MYALINK D1 (F 0 STACKFRAME F 1 TS.MAINWINDOW) Qg ¿PÈPÈ õ(11Q TS.PUNTPREVIOUSFRAMES 6 GETWINDOWUSERPROP) (3 CURRENTEXECFRAME) () TE.MYCLINK D1 (F 0 STACKFRAME F 1 TS.MAINWINDOW) Qg ¿PÈ PÈ õ(11Q TS.PUNTPREVIOUSFRAMES 6 GETWINDOWUSERPROP) (3 CURRENTEXECFRAME) () TE.MYCLINK_ D1 (I 0 X F 0 STACKFRAME F 1 TS.MAINWINDOW) #Qg ¿P@ Í ¿Pl kØÐ@ Í¿@(34Q \LONUM 17Q \HINUM 11Q TS.PUNTPREVIOUSFRAMES 6 GETWINDOWUSERPROP) (3 CURRENTEXECFRAME) () TE.CONTEXTSWITCH D1 NIL hNIL NIL () TE.DISINT D1 NIL hNIL NIL () TE.ENBINT D1 NIL hNIL NIL () TE.JUMPK D1 (F 0 STACKFRAME) PgPg kØØ (23Q TS.PUTFRAMEPROP 15Q TS.GETOPCODEOFFSET 12Q TS.GETFRAMEPROP) (7 PC 3 PC) () TE.JUMPX D1 (I 0 OFFSETBYTE F 0 STACKFRAME) PgPg @ááál ØlÙ (32Q TS.PUTFRAMEPROP 23Q RSH 12Q TS.GETFRAMEPROP) (7 PC 3 PC) () TE.JUMPXX D1 (I 0 WORDOFFSET F 0 STACKFRAME) PgPg @áál ØlÙ (31Q TS.PUTFRAMEPROP 22Q RSH 12Q TS.GETFRAMEPROP) (7 PC 3 PC) () TE.TJUMPK D1 (I 0 VAL) @o ‘hi“h(17Q TE.JUMPK 7 EQP) NIL ( 4 4000000000Q) TE.TJUMPX D1 (I 1 OFFSETBYTE I 0 VAL) @oô‘hi”A h(16Q TE.JUMPX) NIL ( 4 4000000000Q) TE.FJUMPK D1 (I 0 VAL) @o “i‘hh(13Q TE.JUMPK 7 EQP) NIL ( 4 4000000000Q) TE.FJUMPX D1 (I 1 OFFSETBYTE I 0 VAL) @oô”A i‘hh(12Q TE.JUMPX) NIL ( 4 4000000000Q) TE.NOP D1 (P 1 I) kIHó‘J¿IkÔ¹°ò(17Q TS.FETCH 2 TS.GETOPCODEOFFSET) NIL () TE.PLUS D1 (I 1 A2 I 0 A1) @A (4 TE.IPLUS) NIL () TE.DIFFERENCE D1 (I 1 A2 I 0 A1) @AÙNIL NIL () TE.TIMES D1 (I 1 A2 I 0 A1) @AÚNIL NIL () TE.QUOTIENT D1 (I 1 A2 I 0 A1) @AÛNIL NIL () TE.IPLUS D1 (P 0 X I 1 A2 I 0 A1) <@ ²/A ²)@ A ØHoó«oHó¤H i“hi“h(67Q TS.UFNCALL 57Q TS.UFNCALL 51Q TS.NEWTINT 23Q TTOD 17Q TTOD 11Q TS.INTEGERP 3 TS.INTEGERP) NIL ( 42Q -4000000000Q 34Q 3777777777Q) TE.IDIFFERENCE D1 (P 0 X I 1 A2 I 0 A1) <@ ²/A ²)@ A ÙHoó«oHó¤H i“hi“h(67Q TS.UFNCALL 57Q TS.UFNCALL 51Q TS.NEWTINT 23Q TTOD 17Q TTOD 11Q TS.INTEGERP 3 TS.INTEGERP) NIL ( 42Q -4000000000Q 34Q 3777777777Q) TE.ITIMES D1 (P 0 X I 1 A2 I 0 A1) <@ ²/A ²)@ A ÚHoó«oHó¤H i“hi“h(67Q TS.UFNCALL 57Q TS.UFNCALL 51Q TS.NEWTINT 23Q TTOD 17Q TTOD 11Q TS.INTEGERP 3 TS.INTEGERP) NIL ( 42Q -4000000000Q 34Q 3777777777Q) TE.IQUOTIENT D1 (P 1 X I 1 A2 I 0 A1) Z@ ²MA ²GA o¿Hjðµ H”H €h³)@ A ÛIoó«oIó¤I i“hi“h(125Q TS.UFNCALL 115Q TS.UFNCALL 107Q TS.NEWTINT 61Q TTOD 55Q TTOD 44Q \FZEROP 17Q TTOD 11Q TS.INTEGERP 3 TS.INTEGERP) NIL ( 100Q -4000000000Q 72Q 3777777777Q 26Q (LOCALVARS . T)) TE.IREMAINDER D1 (P 1 X I 1 A2 I 0 A1) Z@ ²MA ²GA o¿Hjðµ H”H €h³)@ A ÜIoó«oIó¤I i“hi“h(125Q TS.UFNCALL 115Q TS.UFNCALL 107Q TS.NEWTINT 61Q TTOD 55Q TTOD 44Q \FZEROP 17Q TTOD 11Q TS.INTEGERP 3 TS.INTEGERP) NIL ( 100Q -4000000000Q 72Q 3777777777Q 26Q (LOCALVARS . T)) TE.LLSH.N D1 (I 1 ALPHA I 0 A1) @ œ@ààââA i“h(26Q TS.UFNCALL 20Q TS.NEWTINT 15Q LLSH 3 TS.INTEGERP) NIL () TE.LRSH.N D1 (I 1 ALPHA I 0 A1) @ œ@ààââA i“h(26Q TS.UFNCALL 20Q TS.NEWTINT 15Q LRSH 3 TS.INTEGERP) NIL () TE.ASH D1 (I 1 A2 I 0 A1) !@ ²A œ@ A ç i“h(34Q TS.UFNCALL 26Q TS.NEWTINT 22Q TTOD 16Q TTOD 11Q TS.INTEGERP 3 TS.INTEGERP) NIL () TE.LOGOR D1 (I 1 A2 I 0 A1) #@ ²A ž@ààââAààââä i“h(36Q TS.UFNCALL 30Q TS.NEWTINT 11Q TS.INTEGERP 3 TS.INTEGERP) NIL () TE.LOGXOR D1 (I 1 A2 I 0 A1) #@ ²A ž@ààââAààââæ i“h(36Q TS.UFNCALL 30Q TS.NEWTINT 11Q TS.INTEGERP 3 TS.INTEGERP) NIL () TE.LOGAND D1 (I 1 A2 I 0 A1) #@ ²A ž@ààââAààââå i“h(36Q TS.UFNCALL 30Q TS.NEWTINT 11Q TS.INTEGERP 3 TS.INTEGERP) NIL () TE.EQ D1 (I 1 A2 I 0 A1) @A (7 DTOT 4 EQP) NIL () TE.EQL D1 (I 1 A2 I 0 A1) #@A ”o@ ˜A “i”oh(27Q TS.UFNCALL 23Q TS.NUMBERP 16Q TS.NUMBERP 4 EQP) NIL ( 36Q 4000000000Q 11Q 4000000001Q) TE.EQUAL D1 NIL hNIL NIL () TE.GREATERP D1 (I 1 A2 I 0 A1) @A (4 TE.IGREATERP) NIL () TE.IGREATERP D1 (I 1 A2 I 0 A1) /@ ²"A ²@ààââAààââñ”oi”ohi“h(52Q TS.UFNCALL 11Q TS.INTEGERP 3 TS.INTEGERP) NIL ( 42Q 4000000000Q 33Q 4000000001Q) TE.VARK D1 NIL  (5 TE.VARX 2 TS.GETOPCODEOFFSET) NIL () TE.VARX D1 (I 0 OFFSET) @ (3 TS.VARREF) NIL () TE.VARK_ D1 (I 0 TOS) @ (6 TE.VARX_ 3 TS.GETOPCODEOFFSET) NIL () TE.VARX_ D1 (I 1 OFFSET I 0 TOS) A@ (4 TS.VARSTORE) NIL () TE.VARK_NIL D1 NIL o (11Q TS.VARSTORE 2 TS.GETOPCODEOFFSET) NIL ( 6 4000000000Q) TE.VARK_UNBIND D1 NIL o (11Q TS.VARSTORE 2 TS.GETOPCODEOFFSET) NIL ( 6 7000000000Q) TE.FVARX D1 (I 0 OFFSET) @ “i—@ h(24Q TMEM.GETMEM 21Q TS.VARREF 12Q TS.UFNCALL 6 TS.UNBOUNDP 3 TS.VARREF) NIL () TE.FVARX_ D1 (I 1 OFFSET I 0 TOS) A ”¿‹i™A @ ¿þ@(26Q TMEM.SETMEM 22Q TS.VARREF 12Q TS.UFNCALL 6 TS.UNBOUNDP 3 TS.VARREF) NIL () TE.FVARM D1 NIL hNIL NIL () TE.FVARM_ D1 NIL hNIL NIL () TE.GVAR D1 (I 0 ATOM#) "gj@Ñ —j@Ñgi™hio h(35Q BREAK1 10Q PROPNAMES) (20Q T-GVAL 2 T-GVAL) ( 32Q (Unbound Global Atom in T\GVAR)) TE.GVAR_ D1 (I 1 ATOM# I 0 TOS) jAÑg@ (11Q PUTPROP) (5 T-GVAL) () TE.VARM D1 NIL hNIL NIL () TE.VARM_ D1 NIL hNIL NIL () TE.ADDBASE D1 (P 0 VAL I 1 D I 0 X) q@ ²^j@oåkåð–@oåŒi™hio €hA ²jAkåð”A Œi™hio €hŒi™hio €hظ@ãããl?åH i™hio h(154Q BREAK1 140Q TS.NEWTPTR 121Q BREAK1 103Q BREAK1 67Q TTOD 53Q TS.INTEGERP 45Q BREAK1 3 TS.POINTERP) NIL ( 151Q (Need Pointer in TE.ADDBASE) 116Q (Type not Integer in TE.ADDBASE) 100Q (Offset is Odd in TE.ADDBASE) 42Q (Pointer is Odd in TE.ADDBASE) 30Q 77777777Q 16Q 77777777Q) TE.GETPTR.N D1 (I 1 D I 0 X) @ ›@A i“h(25Q TS.UFNCALL 17Q TMEM.GETMEM 14Q TE.ADDBASE 11Q DTOT 3 TS.POINTERP) NIL () TE.PUTPTR.N D1 (I 2 D I 1 V I 0 X) @ @B A ¿†i”¿þ@(27Q TS.UFNCALL 20Q TMEM.SETMEM 14Q TE.ADDBASE 11Q DTOT 3 TS.POINTERP) NIL () TE.RPLPTR.N D1 (I 2 D I 1 V I 0 X) @ š@B A ¿†i”¿þg(24Q TS.UFNCALL 15Q TMEM.SETMEM 11Q TE.ADDBASE 3 TS.POINTERP) (31Q Return) () TE.GETBASEBYTE D1 (P 0 VALUE I 1 D I 0 X) RA ²<@A oå ¸lA ådjð–¿Hããã°dkð”¿Hãã‰lð’Hã‚ i™hio h(115Q BREAK1 101Q TS.NEWINTP 76Q VALUE 37Q TTOD 30Q TE.GETPTR.N 25Q TE.LRSH1 15Q TE.LRSH1 6 TS.INTEGERP) NIL ( 112Q (Offset not Integer) 21Q 37777777776Q) TE.PUTBASEBYTE D1 (P 0 WORD32 I 2 V I 1 D I 0 X) ¤B ¢±ŒA ¢±„B o¿I›jIñ§nIñ‘I‡i”I €hb¿@A ¸@A lA ådjð¿HoåBãããä°)dkðœ¿HoåBããä°lð™HoåBãä‡HoåBä ¿Œišhio ¿þB(236Q BREAK1 221Q TE.PUTPTR.N 124Q TTOD 116Q TE.LRSH1 113Q TE.LRSH1 105Q TE.GETPTR.N 102Q TE.LRSH1 77Q TE.LRSH1 64Q \ILLEGAL.ARG 26Q TTOD 16Q TS.INTEGERP 6 TS.INTEGERP) NIL ( 233Q (Offset or Value not Integer in TE.PUTBASEBYTE) 213Q 37777777400Q 201Q 37777600377Q 161Q 37700177777Q 137Q 77777777Q 35Q (LOCALVARS . T)) TE.COPY D1 NIL (2 TS.REFTOS) NIL () TE.POP D1 (I 0 TOS) oNIL NIL ( 3 4000000000Q) TE.DUMMY D1 NIL oNIL NIL ( 3 4000000000Q) TE.DUNBIND D1 (I 0 ALPHA F 0 STACKFRAME) /@i¿ló²@i¿l(ó¨Pg@ i™hio h(52Q BREAK1 36Q TS.PUTFRAMEPROP) (32Q SP) ( 47Q (Illegal Stack Pointer Value)) TE.UNBIND D1 (P 0 X I 0 ALPHA F 1 STACKFRAME) @ ¿QQg H ¿h(26Q TS.PUTFRAMEPROP 22Q TS.GETFRAMEPROP 11Q TE.DUNBIND 2 TS.REFTOS) (17Q SP) () TE.NEG D1 (I 0 TOS) @ ™j@ Ù i“h(23Q TS.UFNCALL 15Q DTOT 11Q TTOD 3 TS.INTEGERP) NIL () TE.CAR D1 (I 0 PTR) "@ •@j @o ”oi“h(35Q TS.UFNCALL 22Q EQP 11Q TE.GETPTR.N 3 TS.LISTP) NIL ( 27Q 4000000000Q 17Q 4000000000Q) TE.CDR D1 (I 0 PTR) #@ –@l @o ”oi“h(36Q TS.UFNCALL 23Q EQP 12Q TE.GETPTR.N 3 TS.LISTP) NIL ( 30Q 4000000000Q 20Q 4000000000Q) TE.LISTP D1 (I 0 TOS) @ (6 DTOT 3 TS.LISTP) NIL () TE.INTEGERP D1 (I 0 TOS) @ (6 DTOT 3 TS.INTEGERP) NIL () TE.POINTERP D1 (I 0 TOS) @ (6 DTOT 3 TS.POINTERP) NIL () TE.FLOATP D1 (I 0 TOS) @ (6 DTOT 3 TS.FLOATP) NIL () TE.NUMBERP D1 (I 0 TOS) @ µ @ µ@ (22Q DTOT 17Q TS.FLOATP 11Q TS.NUMBERP 3 TS.INTEGERP) NIL () TE.TYPEP.N D1 (I 1 ALPHA I 0 TOS) A@ãããlÿåð‘@i”ohNIL NIL ( 21Q 4000000000Q) TE.TYPEP.O D1 (I 1 TYPE I 0 TOS) @ ˜@ A i”oh(14Q TE.TYPE.N 10Q TMEM.GETMEM 3 TS.POINTERP) NIL ( 23Q 4000000000Q) TE.DTEST.O D1 (P 1 X P 0 TE.TEST.O I 1 ALPHA I 0 TOS) @Ioð“i‘Ih(15Q TS.UFNCALL) NIL ( 10Q 4000000000Q) TE.NTYPE D1 NIL hNIL NIL () TE.SETTYPE.N D1 NIL hNIL NIL () TE.SETSUBTYP.N D1 NIL hNIL NIL () TFUN.GETREGABS D1 (I 1 DOFFSET I 0 FNHDR) @AÐËNIL NIL () (PRETTYCOMPRINT TEFNSCOMS) (RPAQQ TEFNSCOMS ((FNS (* * CONSTANTS) TE.'T TE.'NIL TE.'0 TE.'1 TE.'UNBIND TE.SICX TE.ACONST TE.PCONST TE.ICONST TE.FCONST (* * PROCEDURE CALLING AND RETURNING) TE.FN0 TE.FN1 TE.FN2 TE.FN3 TE.FN4 TE.FN5 TE.FN6 TE.FN7 TE.APPLYFN TE.RETURN TE.MYALINK TE.MYCLINK TE.MYCLINK_ TE.CONTEXTSWITCH TE.DISINT TE.ENBINT (* * JUMP INSTRUCTIONS) TE.JUMPK TE.JUMPX TE.JUMPXX TE.TJUMPK TE.TJUMPX TE.FJUMPK TE.FJUMPX TE.NOP (* * INTEGER ARITHMETIC OPERATIONS) TE.PLUS TE.DIFFERENCE TE.TIMES TE.QUOTIENT TE.IPLUS TE.IDIFFERENCE TE.ITIMES TE.IQUOTIENT TE.IREMAINDER (* * INTEGER SHIFTS) TE.LLSH.N TE.LRSH.N TE.ASH (* * LOGICAL INTEGER OPERATIONS) TE.LOGOR TE.LOGXOR TE.LOGAND (* * COMPARISONS) TE.EQ TE.EQL TE.EQUAL TE.GREATERP TE.IGREATERP (* * VARIABLE REFERENCING) TE.VARK TE.VARX TE.VARK_ TE.VARX_ TE.VARK_NIL TE.VARK_UNBIND TE.FVARX TE.FVARX_ TE.FVARM TE.FVARM_ TE.GVAR TE.GVAR_ TE.VARM TE.VARM_ (* * ADDRESSING ROUTINES) TE.ADDBASE TE.GETPTR.N TE.PUTPTR.N TE.RPLPTR.N TE.GETBASEBYTE TE.PUTBASEBYTE (* * STACK OPERATIONS) TE.COPY TE.POP TE.DUMMY TE.DUNBIND TE.UNBIND (* * UNARY STACK INSTRUCTIONS) TE.NEG TE.CAR TE.CDR TE.LISTP TE.INTEGERP TE.POINTERP TE.FLOATP TE.NUMBERP TE.TYPEP.N TE.TYPEP.O TE.DTEST.O TE.NTYPE TE.SETTYPE.N TE.SETSUBTYP.N (* * TESTING ROUTINES) TFUN.GETREGABS (* *)))) (PUTPROPS TEFNS COPYRIGHT ("Xerox Corporation" 1986)) NIL