;;; Compilation of /home/juergen/lisp/mevalxp/emul-02.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2007/11/17 18:01:10. ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on A  U SYSTEM  MAKE-SAFE-FOR-TAIL-CALLHCOMPILERNOTE-START-OF-FILEL&;%8vuU%RUNTIMEBAD-ARGS-OR-STACKHB COMMON-LISPPATHNAMEKEYWORD UNSPECIFICBCABSOLUTEhomejuergenlispmevalxp>>EU emul-02lispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWEMUBCB>>>E%= /;%8vhucUPPhM MuVE+EpN<uWǁpM<uNƁupAM MuIE#E E Eɏ$%uEPPEuE ;lq| LOGAND-2ARGSH +2ARGSH -2ARGSHBHASHEXPTBEMULATOR99 PUT-FIELD?9N9A9B ;?%?? ? ??9MASK @?%?? C A??B??VzB? ZB>??JB @ 8B b;%8vIuDUPPuhEuh3 Mu}p uu8#R^BHBHB(B9MAKE-OPC?BB G?%? H >'>zB I EB  ;%8vvuqUPPPPEEEEEEEuuuuuuu uuuuuu uu#.<DzBH LIST-4ARGHEVALCADDDRSEQOO CADDR-1ARGHO CADR-1ARGHOCAR-1ARGHBCB>>>>E?9W? X >H ?>@ z?>2?nu?>'?:?>?Z? Y SG R;%8vCu>U3VWEu5Et hEE"9.ALBH CHECK-GENERATIONH9*INSTRUCTION-LIST*MAPCARC`9%+>MESYSTEM%+B4=> 9%->%-B>> 9%*>%*B>> 9%DIV>%DIVB>> 9%REM>%REMB>> 9%<=>%<=B>> 9%>=>%>=B> > 9%<>% > 9%>>%>B> > 9%=>%=B> > 9%/=>%/=B> > CONSP>CONSPB?=9JNIL=9JNIL-FUNB=> 9JMP=9JMP-FUNB=> 9LOD=9LOD-FUNB=>9LODNIL=9 LODNIL-FUNB=>9STO=9STO-FUNB=>9LITIDX=9 LITIDX-FUNB=>9INCSP=9 INCSP-FUNB=>9DECSP=9 DECSP-FUNB=>9HALT=9HALT-FUNB==9CALLCLOS=9 CALLCLOS-FUNB=>9 CALLCLOSV=9 CALLCLOSV-FUNB=>9RET=9RET-FUNB=>9LODCS=9 LODCS-FUNB=>9STOCS=9 STOCS-FUNB=>9PUSHCS=9 PUSHCS-FUNB=> 9INCCSP=9 INCCSP-FUNB=> 9EXCEPT=9 EXCEPT-FUNB=>9%READ=9READ-FUNB?>9%PRINT>9 PRINT-FUNB?>9 %MAKE-CLOSURE> MAKE-CLOSUREB?>9 %MAKE-VECTOR> MAKE-VECTORB?>9%SET-SYMBOL-FUNCTION>SET-SYMBOL-FUNCTIONB?>9%SET-SYMBOL-VALUE>SET-SYMBOL-VALUEB?>9%SYMBOL-FUNCTION>SYMBOL-FUNCTIONB?>9 %SYMBOL-VALUE> SYMBOL-VALUEB?>9%SVREF>SVREFB?> 9 %SET-SVREF> SET-SVREFB?> 9 %CLOSURE-REF> CLOSURE-REFB?> EQ>EQB?> CAR>CARB?> CDR>CDRB?>CONS>CONSB?>??ETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJEBBB1? >&>  Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9 *NUM-INSTR*LENGTH SYMBOL-VALUE-1ARGHBBCB>>>E%? >0> >(>:  Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9 *DISPATCH* MAKE-SIMPLE-ARRAYHB$CB>>>E%? >0> >(>: ' $I*;%8vuU#BH9 *OPCODE-LIST*BCB>>>E%= *Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9*INSTR-LIST-LEN*BH\BCB>>>E%? >0> >(>: 2 /Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9*OPCODE-VECTOR*#BHB$CB>>>E%? >0> >(>: 8 5R ;%8v]uXU3VVVVVVVE5u} u E u Mu9E|uu5u} u EuuEEuuE] u)ށupEE}}}}WSEԐ0"M5H>fnyB HOCDR-1ARGHAREFOBH4 >=2ARGSHH.BH\B9MAKE-OPCODE-VECTOR? ??9P @9I @ A??VDBGEE NEW-VALUE @A D??B @ESUBFORM @B @B J H G??vB??B>r?B>Q?fB>9? @ >B =;%8vu U%H?$CB> >>E%= LB ;%8vBu=U3VVVEE u Mu9E|Euu u PEP u PEPEE] uށup }}LSE吐/%m4KSh^yB H CONS-2ARGHB;BB HHHB$9MAKE-INSTR-ASSOC? ??=C @9RES @ U T??v{B? B? nB? v{B?B>} jB>qBB>W?lB>8?f{B S QB tF;%8v8u3U3VEu5Et hEE.#6AHBIH9 *INSTR-ASSOC*R$CB> >>E%? >> ] ZZ;%8vKuFUPPP}}wuE}uuuuuuuuuE#OTBH EQL-2ARGHB@HBC9 GET-OPCODE>>>E ?9Z? d >' Z? e `GE;%8UPPPPPsjjjhhjhht$uMuN+uePWEE u uEu$.}tEhhuFҐ[`mvatERRORmeinstruction not foundFORMAT instruction / ~A / not found~%BHn:H aASSOC-IFBHB=%%CLOSE-ON-STACKe ALLOCATE-CLOSURE-ON-STACKHBr$ibl b? p9INSTRd ?D gp ixn@ et? ? n{rcel9SUBS is @?; or?l?e=B?n?snB? ? ?s?e?e?n>q?o?  q nB ? ;%8UPPhjEh3Eu5Et hE u PEu5Et hEE&0:P_vk~HCL-TOH[H9*TP*BGET-WORDoSET-WORDe9*HALT-FLAGGED*a9p>*CSP*9*DSP*9*PC*B9EMU-INIT?9TP-INIT?%  E?M???%%? ?%? ?%>c??%>T??%  }A~ G I*;%8vuU#H9 *WATCH-INSTR*BCBB> >>E%= ^>;%8vuUt.(BHu$9 DEBUG-EMU= 9 ON$=    U  HDSPECINSTALL-DEFPARAMETERn:;%8v-u(UuuE E%#*16BHL9 *INSTR-MASK*BC DEFPARAMETER>>E%=  U  Hg:;%8v-u(UuuE E%#16H9 *EXT-MASK*BCB>>E%=  U B H ASH-RIGHTb;%8vKuFUP u Mu+#EuuuuuE%u"OT\B&HBHHBu$E9 INSTR-OPC?ou?   u>`>z?>&??  B1 V;%8v+u&UP u Mu #Euuuuuuu"4R3HBHHB|$B9 INSTR-EXT?o?  >&??  B6 ]B;%8vuU=u tu; HB 9LOGICALP=9X=   Z ;%8v<u7UPPu u E}tE%!&.@ELSBcan not get opc-entryHB@HRASSOCVHB=$9 GET-OPC-ENTRY?9OPC? %  >>2??B%>*??% > >  ";%8UPPPPPPPPPPPPPEEEEEE u tvEuűuԉűu؉uЋu܉uԋuu؋uu܋uuuuuuuuuuuuuuu uE E%]M 8;]s u P3EEE̋E̵Eu5Et hEEEЋ u tFhh u P u PEе u EEE]E B;I}}E< u Nj]Eu5Et hE u t< u Eu5Et hEE<d5u} u EU JӁ< F5 M;uu-u5Et hE u Pj u  u <uJ u <Ɓuu5Et hEE<u}؉}*SE-S5u} u E] Hi7 M<}1W3PEE] ށu }}> u NjEEu5EhEGRhuE%jPE;hE`SuSEz[Q`oz7p` . 2(E:-ZeMXka <F %xuk]R[Mj`RG>*: SfsZEROP4H *2ARGSHBHFCDISPHPLUSPPHBHB;BLOG-TOB/BAPPLY0-FUNCTION-REGHPH9 *JMP-FLAG*BHBHKemu:: instr = ~x: ~A ~A~%B"[H9KE OPC-ENTRYBBBHi~%~% EMU-Steps = ~A~%~%BHB] $9 RUN-PROCESSOR? 9 MAX-STEPS  ?=C H@B -@B9STEP-CNT *@ 9OPC-EXT  @u9ARGS  @9NARGS @B\  @B E@    ?jBW?8V=B??H=B?{B?L-N*B?wB?j?oB?W(>m{B?>B?Zv=B?HUB? jB?EuB?E v{B?mB?dB?$B,loB?.?f{B?BB?CE-B?n{B?>B? sBB?BB?>oB?BB?B?~BB?JVVǶB?@ uB?;BB? uoB?BB? EB?B?BB?BB?}t B?\ EB?2 B?u$ B??v{B?) BB>d?u=B  B "W U 0 Hx;%8UPP u <unƁupau5Et hE u uuuuu uE EE%PE돐h^PE&m+X5HBHBx[HHB_$- 9 PUSH-STACK?9VAL?%   ?U?R?%>q??%>/??%    U  Hw ;%8U3V u <uqƁupdu5Et hE u <u?ǁp5uuuuu}3%PEP뼐i_QF'n,Y5HBHBHw[HHB_$9 POP-STACK? u ??L ?? >r? >0?     U  Hx;%8UPP u <unƁupau5Et hE u uuuuu uE EE%PE돐h^PE&m+X5HBH{x[HHB^$9PUSH-ADDRESS-STACK?U?% u  ??E?%>q??%>/??%  B # U C Hw ;%8U3V u <uqƁupdu5Et hE u <u?ǁp5uuuuu}3%PEP뼐i_QF'n,Y5HBHBHw[HHB^$9POP-ADDRESS-STACK?  ?? ?? >r? >0?   t$Z ;%8vJuEUPP u PEEE%#/7?NSH TEMPL-REF-DBB0HBZ$?o?%   >C??t%>;?R?%>3?Zz?t%>'?oJ?o% o T nst ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@u+up6u5Et hEEhEuEsh2$7{5HHHBIH HB_B*$eq?o?E   ??9D U@?E ??=>;?B>??E   3  ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@uup6u5Et hEEhEuEsh2$7{4HHHBIHHB_B*$oE?Oeo?-E G  > ?C? @?E ??M=B>;?B>??PE I    ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@uup6u5Et hEEhEuEsh2$7{4HHHBIHuHB^B+$?By?E   ?? (@?E ??=B >;?-B>??E N   ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{4HHHBBHB_B*$?oEFP?TE   ??J{ U@?E ? VB>k?B>; *B>??-E u    ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{4HHHBBHB_B*$uu?B{?E  ??J{ @?E ? VB>k?BB>; *B>??E  N? u ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{4HHHBBHB^B+$?B?&E  ??J{6  B@?E !? uVB>k?B>; t*B>??E     U  HxB ;%8UPPPPEE u P3E u <Ɓuu5Et hE5u} u E}ukEp] Mue}p^uuuuuuuuu u} EE%PEWhEu떐#YO6,^;F 7-B?H4HBHxB [HwBHB_B*$?uB}u?uE % ?;?u=uB| @uB u@?E ( '?1 %B??=B? ;B>b B>J?B>? PB>'?E?E & $ E 5d6;%8v&u!U u %!*/HHENIL$ =o= , >%>z= - + } U  Hx^ ;%8UPPPPEE u P3E u <Ɓuu5Et hE5u} u E}uy]pn u{pn Muu}pnuuuuuuuuu u} EE%PEIuhu놐#YO6,^;FU&;KB?H5HBHBHxS[HwBHB_B*$-?o5?E 1 ?Y?ۺ=B| @7B @?}E 4 3?O B+?]? nB?*?=B? }B>b B>J?B>? B>'??E 2 0E v;%8v+u&UP}u!}|*}u*E-p uu֋Euuuuuuu4Ao5H=HHB9TWO-COMP?? 8 >E>z? 9 67 U ;%8UPPPPPEEE u 9Eu~5u} u EE uYpL MuSuupIu5Et hEhuE몐$/B8eG`Rs4HHHO[H7|BH*BBH$C?Po?U B< ?O OB/mB| L@NCTB H@?U ? F>?B Km{B6>w mB>i ~Aڶ=B>K "B>3?B>(?N?U = ; % EMU ;%8UPPPPEE5u} u EE uQpD MuKuupAu5Et hEhuE벐#z:,?M4HHH[H7HB`B)$?o?E =C ??N* @?E E??=B=>Q B>C?B>'??E D B =K*;%8vuU#Hy$?=o= H G {6;%8vu UHB=Bu= K JB h:;%8v,u'UPhhEE"*5HiTO-CL? EMU: ~A~%$??? P >.>?>&?u? Q O h:;%8v,u'Uh$5HyB5*** EMU: exception occurred~%$=Bw= U >"?= V TB E;%8{UPPPPPEE5u} u E}D]5 A0 M6}+W3EEu3E u uuu5Et hE u <ǁ u PEu5Et hEuhuPO$;-E@[S@60zrg 4HH5HBHB[HBBBBBHB_B*$?o?U Y 3?u z<u9TEMPL 5@t9CLOS @ u@?uU _ E] [?%?J{BW?P VB?E B?_ B?hW&B?I Xw{B?4 B? nB??v{B?B w{B? B?D?SB?K?B??B>D *B>(??U EZ3 qX% %h;%8wnUPPPP u P3E5u} u E}E  M}W3Eu3E u uuu5Et hE u <ǁ u PEu5Et hEhEuPbWI(8\-N8@3)#meZFs4HHHBB[HBBMwBHB_$EB?o= c 0? %z\ C?@%>;B %@z?tB @= g f Te?n?J{B_? %VB?R UmB?J o{B?< ڷ=B?' B? B??=B? Mڷ=B? pB??EB>` *B>D?=>1 *= d0 b ;%8vwurUPPPEEuuu5Et hEuuu5Et hE"?4iGaVoHB[Hv$3 ?o= j >&?=>?= k ui } U  Ht LOAD-XREF-INFOL&;%8vuU%BHmC XREF-INFOB REFERENCESBOCALLSBBNULL NOTTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEDEFJ~Kv SETSBBBBBLuBBPOBBB0L5+JuK{R{}LF-w+OBBBpRBB LOBBB?K4B\LTSETF;B>=hOBBBLBOBBBML?JBuKBvLBBOBBBEK{R{LxSBBBB(KELLOGANDBBBBLEMiOBBBRBBK|BBrLuuPE*T5wMOBBB0K\LR.-JMKLW6EOBBBhR{K{uLBBxTwB.OBBBbKYLBTBMEQLBZOBBB[LRRBYJLBBBBUPLNBCADDRCADRLIST]R\JRڼBBK|BBLBgBuuSBBwB.OBBBK*LrOBBBPRyLiOBBBuRyLBBBBK{LuXBwB.OBBBE%K\LERJRƃLBBBBFL:$TBBBBLLOCATIONJRJBKzRuzLB BOBBBK|R{BL7XBEOBBBK{LBXBwB.OBBBERBK?|*L7XB%BuOBBB%KL#u }MAKE-TYPED-ARRAY; MAKE-ARRAYMR"J7LBBBBBB%:LB h6T7SBBBBR{KzBLB xTwB.OBBB6K.L#^BB4JKB{R{LB BOBBBmake-safe-for-tail-call-397B JR|BBBfBKBB$BBCBBBLEVALUESBBSB BZUAPPLY>BB [B BBBVBBBB&LJPKEzRzLBwTBBBBRK4BLN FOURTHTNTH;BVBBBB+R)JKz LXBEwB.uOBBBpL 7eS6]uJuKzRuzLxSBBBBKP{R{ELB BOBB?y?>EPTU%U%URRTUJQ%U)ETU)EU)E)EIURTRTUUR%UURRTUJQRRUUJQRUU)EI)ERTUI)ETIUUUJQRRT%UJQRURRT)EU)E%%URTRU%UU)E%TURTI)EU)EUUJQRIUUJQR%%%URRTTU%UUUUUU%%URTRUU)E)EIUUJQUJQRRUJQRRU$CB> >>E%= f