;;; Compilation of /home/juergen/lisp/mevalxp/emul-02.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/04/09 17:31:16. ;;; 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*MAPCARC89%+>MESYSTEM%+B4=> 9%->%-B>> 9%*>%*B>d> 9%<=>%<=B>> 9%>=>%>=B>> 9%<>%> 9%>>%>B>> 9%=>%=B>> 9%/=>%/=B> > 9P-ALIGN3>9 P-ALIGN3-FUNB> >!9P-CONSTR>P-CONSTRB>%> 9P-ADD>P-ADDB>&> 9 P-SHIFTL-1>9 P-SHIFTL-FUNB>'>!9 P-SHIFTR-1>9 P-SHIFTR-FUNB>(>!9TAG-AND>TAG-ANDB>> 9TAG-IOR>TAG-IORB>> 9TAG-XOR>TAG-XORB>> 9TAG-EQ>TAG-EQB>> 9GET-TAG>GET-TAGB>> 9TAG-SET>TAG-SETB>> 9ADDR-EQ>ADDR-EQB>> 9ADDR-EQI>ADDR-EQIB>> 9ADDR-AND>ADDR-ANDB>> 9ADDR-IOR>ADDR-IORB>> 9GET-ADDR>GET-ADDRB>> 9GET-BYTE>GET-BYTEB=>09SET-BYTE>SET-BYTEB=>19GET-WORD>GET-WORDB=>29SET-WORD>SET-WORDB=>39 GET-HWORD> GET-HWORDB=>49 SET-HWORD> SET-HWORDB=>59 GET-STATUS=9GET-STATUS-FUNB=>*9 SET-STATUS>9SET-STATUS-FUNB=>+9GET-DSP=9 GET-DSP-FUNB=>,9GET-CSP=9 GET-CSP-FUNB=>-9GET-A-INDEX-PP=9GET-A-INDEX-PP-FUNB=>89SET-B-INDEX-PP>9SET-B-INDEX-PP-FUNB=>99SET-A>9 SET-A-FUNB=>:9SET-B>9 SET-B-FUNB=>;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 LITIDXSYMFUN=9LITIDXSYMFUN-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=>CAR>CARB=>CDR>CDRB=>??ETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETT*BBB1? >&> & %Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9 *NUM-INSTR*LENGTH SYMBOL-VALUE-1ARGHBBCB>>>E%? >0> >(>: . +Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9 *DISPATCH* MAKE-SIMPLE-ARRAY*HB$CB>>>E%? >0> >(>: 5 2I*;%8vuU#BH9 *OPCODE-LIST*BCB>>>E%= 8Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9*INSTR-LIST-LEN*)BH\BCB>>>E%? >0> >(>: @ =Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9*OPCODE-VECTOR*1BHB$CB>>>E%? >0> >(>: F CR ;%8v]uXU3VVVVVVVE5u} u E u Mu9E|uu5u} u EuuEEuuE] u)ށupEE}}}}WSEԐ0"M5H>fnyB HOCDR-1ARGHAREFOBHB >=2ARGSHH<BH\B9MAKE-OPCODE-VECTOR? ??9P @9I @ O??VDBGSS NEW-VALUE @O R??B @SSUBFORM @B @B X V U??vB??B>r?B>Q?fB>9? N LB =;%8vu U%HM$CB> >>E%= ZtF;%8v8u3U3VEu5Et hEE.#6ABHBIH9*R-INSTR-ASSOC*MAKE-HASH-TABLEBCB> >>E%? >> c l`fomej ;%8vEu@U3VVVVVVEE u Mu9E|Euu u PEP u PEPEE u PEE5u} u E u PEEuuE] uށup }}SE吐2(p7NVka |4^B H %PUTHASH^ CONS-2ARGHNIBB HH*HB$UNT9MAKE-INSTR-ASSOC?T 3?b?=OMMSQ @A9RES @ Rk j?N8?CCBSstore TE@Stable n@ispSkey @B q 0o im?$ B? B? B?P KB? VoB?E OB?? v{B? B? nB? v{B? B? jB>t ACKB>Z?lB>;?f{B i3 gB tF;%8v8u3U3VEu5Et hEE.#6AHBIH9 *INSTR-ASSOC*hu$PPCB> >>E%?p >> x >>E ?R9HBZ?S  T>' Z? M {GUT-E;%8UPPPPPsjjjhhjhht$uMuN+uePWEE u uEu$.}tEhhuFҐ[`mvERRORinstruction not foundFORMATinstruction / ~A / not found~%BHHH%ASSOC-IFBHBJ%%CLOSE-ON-STACK ALLOCATE-CLOSURE-ON-STACKHB$}?v9INSTRE?  E@ ??n{9SUBS u@?u ?u?=B? ?nB??????>q?? # .B Dp;%8UPP hjEh3Eu5Et hE u PEu5Et hEE&0:DNXn}HCL-TO*H[H9*TP*B9L*STATUS*H9*REGB*N99*REGA*C9ON*HALT-FLAGGED*C9C*CSP*9*DSP*9*PC*$+9EMU-INIT?-9TP-INIT?% * ?d 9?<%? ?>%? ?%? >=B?%>r??%   >I*;%8vuU#H9 *WATCH-INSTR*BC!B> >>E%= S^>;%8vuUt.(BH$H19 DEBUG-EMU=R9UNON=  N ANDB U > HDSPECOINSTALL-DEFPARAMETERAQ>n:;%8v-u(UuuE E%#*16BHB>DE9 *INSTR-MASK*BIC  DEFPARAMETER>>E%= A  U  H-g:;%8v-u(UuuE E%#16HE9 *EXT-MASK*BET-CB>>E%= DET- U - H = ASH-RIGHTWORb;%8vKuFUP u Mu+#EuuuuuE%u"OT\B&HBH*H-$=9 INSTR-OPC??- E >`>z?->&?-?F 8 B2 N-V;%8v+u&UP u Mu #Euuuuuuu"4R3HBH?*H$9 INSTR-EXT??  B>&?? =9 OB7 ]B;%8vuU=u tu; HB9LOGICALP=9XFU=  = Z;%8v?u:UPPu u PE}t E%!&4HOVB-can not get opc-entryHGETHASH*HB4$=9 GET-OPC-ENTRY?9OPC?S%  H>8??%>*??N% P P N> ";%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 *2ARGSHBHFCDISPHEPLUSPfHBHBLOG-TOB/BAPPLY0-FUNCTION-REGHPH9 *JMP-FLAG*BHBHOPCemu:: instr = ~x: ~A ~A~%B"[H9? OPC-ENTRYB>H~%~% EMU-Steps = ~A~%~%BHBku$3V9 RUN-PROCESSOR? 9 MAX-STEPS  E?=uQ 5@}B @Eu9STEP-CNT u@ 9OPC-EXT  @9ARGS } @9NARGS @Bb  @B @   5 > ?jBX?V=B??=B?DA{B?FHB?w2AB?jBȶoB?WKEm{B?T> B?v=B?B?jB?VB?v{B?mB?dOB?BloB?.?f{B?B? B? n{B?B?sBB?BB?BoB?BB?LB?~BB?J%B?@B?;BB? oB?BB? B? >B?BB?BB?t B?\ B?2 B?$ B??hv{B?E BB>d?=B  B " U I HS;%8UPP u <unƁupau5Et hE u uuuuu uE EE%PE돐h^PE&m+X5HBH[H*HBm$E9 PUSH-STACK?9PVAL?%   ? ??%>q?E?%>/? ?%   u U  H ;%8U3V u <uqƁupdu5Et hE u <u?ǁp5uuuuu}3%PEP뼐i_QF'n,Y5HBHBH[H*HBm$9 POP-STACK? C ?? ??t >r? >0?     isp U  H;%8UPP u <unƁupau5Et hE u uuuuu uE EE%PE돐h^PE&m+X5HBHE[H*HBl$9PUSH-ADDRESS-STACK??% H  ?R?S?%>q??P%>/??%  B  U  HUP ;%8U3V u <uqƁupdu5Et hE u <u?ǁp5uuuuu}3%PEP뼐i_QF'n,Y5HBHBHj[H*HBl$jh9POP-ADDRESS-STACK?  ?? ?? >r? >0?   uZ ;%8vJuEUPP u PEEE%#/7?NSH TEMPL-REF-DBB1*HBg$oun?OT?u% o  >C?n?B%>;??%>3?Zz?O%>'?J?%  SA  ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@u+up6u5Et hEEhEuEsh2$7{5HHHBIH*HBmB*$??E !  ??9D @?E #??=#>;?B>??EE "   ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@uup6u5Et hEEhEuEsh2$7{4HHHBIH*HBmB*$*C?H-GGE?E '  ?D?$ @?+E )?N?-=B>;?B>?I?E ( & d 9 ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@uup6u5Et hEEhEuEsh2$7{4HHHBIH*HBlB+$t??E ,  ??$ (@?E .?1?=B >;?-B>??E N- +N  ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{4HHHSB\HBmB*$?ERAM?E 1 ? ?J{$ @?E 3? VB>k?B>; :*B>?-?uE 2 0  ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{ 4HHHMB\HBmB*$u?E?E 6 ??J{$ "@?E 8? B&HVB>k?B>; =*B>??NE -7 5 - E ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{X4HHHB\HBlB+$ B&?9?OE ; ??J{u$ =@?E =? tVB>k?B>; *B>??E < : 9 U  HB ;%8UPPPPEE u P3E u <Ɓuu5Et hE5u} u E}ukEp] Mue}p^uuuuuuuuu u} EE%PEWhEu떐#YO6,^;F 7-tH4HBHu̖[HB\HBmB*$?uu?E A u?;? =E B} @%B @?ME D C?1 B??=B? B>b B>J?B>? EB>'?E? E B @ d6;%8v&u!U u %!*/H*HENIL$== H >%>z= I G  U  H^ ;%8UPPPPEE u P3E u <Ɓuu5Et hE5u} u E}uy]pn u{pn Muu}pnuuuuuuuuu u} EE%PEIuhu놐#YO6,^;FU&;KH5HBHBH[HB\HBmB*$??E 7M ?}Y?=WB} @B ]@?E P O?O }B+?? nB?*?=B? B>b B>J?B>? 5B>'??E N L v;%8v+u&UP}u!}|*}u*E-p uu֋Euuuuuuu4AoE5HKHHB9TWO-COMP?? T >E>z? U RS U ;%8UPPPPPEEE u 9Eu~5u} u EE uYpL MuSuupIu5Et hEhuE몐$/B8eG`Rs4HHH[HSBHFBB$?OO?U PX T?E PmB} A@BHB @? U t[ Z? "m{B6>wmB>i ڶ=B>K B>3?B>(?E?SU sY ~Wu  ;%8UPPPPEE5u} u EE uQpD MuKuupAu5Et hEhuE벐#z:,?M4HHH[HS*HBnB)$A?F?E _ A??$ @?E a??=B=>Q B>C?B>'??E ` ^  K*;%8vuU#H$o== d c ?6;%8vu UHB =B~= g fB h:;%8v,u'UPhhEE"*5H?TO-CL? EMU: ~A~%$?{EB?= l >.>?>&?? m k  Ih:;%8v,u'Uh$5HB u*** EMU: exception occurred~%$E== q E>"?= r p ;%8{UPPPPPEE5u} u E}D]5 A0 M6}+W3EEu3E u uuu5Et hE u <ǁ u PEu5Et hEuhuPO$;-E@[S@60zrg  4HH5HBHB[HBBB\HBmB*$?<Ɓ?U au 3?h Ez9TEMPL @u9CLOS @E$ P@?U { y w??PJ{BW? mVB?X B?_ B?WHB?I w{B?4 B?H DnB?A?v{B? w{B? B??B??qB?P?/B>D %*B>(??U v3 t h;%8wnUPPPP u P3E5u} u E}E  M}W3Eu3E u uuu5Et hE u <ǁ u PEu5Et hEhEuPbWI(8\-N8@3)#meZFsP4HHHBB[HBOiTB\HBm$u%? C?n=  %0?z %>'z%x S@AB @B @=  P ?5?J{B_? VB?R mB?J o{B?8< Mڷ=B?' pB? EB??=B? ڷ=B? B??B>` *B>D?=>1 *= 0 ~ ;%8vwurUPPPEEuuu5Et hEuuu5Et hE"?4iGaVoHB[HE$E?u=  >&?=>?=  u5 t U  H%ALIGNlF;%8v7u2UPuuuuuuu%;@BH $D??+  >?;?    U  HP-SHIFTLu lF;%8v7u2UPuuuuuuu%;@BH$?$?  >??   t U  HP-SHIFTR@lF;%8v7u2UPuuuuuuu%;@BHu$?};?  >?? E h  ;%8vyutUP u P3 u <u4Ɓup'u5Et hEEPEodE;J"-5w4HBHBIHB\HBj$?=  ?u?=>N?=>9>=>1>z=>&?= }  } ;;%8vyutUPPP u PjEE u <u4Ɓup'u5Et hEEPEodE;J$2w4HBHBIHBZHBi$?E?5   ??=B @?N5 ->N?>6?-?E5>(??5 % uP Ea:;%8v+u&UPu5Et hEE!)4HBIHĔ$?Bn?  B a:;%8v+u&UPu5Et hEE!)4HBIH{$?BlE?  ڧB ;r ;%8vcu^UPPE u PEEEEE%:).BJXglHBHBgB0$u ?5t ?%  >\? =B} E@?u% >N?p? %>F }?%>> Z?%>2?J{?%>??}%  E  d6;%8v&u!U u %!*/H*HBm$==  >%>z=  \ Bd6;%8v&u!U u %!*/H*HBl$=B=>b=  >%>z=  E @d6;%8v&u!U u %!*/!H*HBh$H==  >%>z=   % Ia:;%8v+u&UPu5Et hEE!)4HBIHP$?u ? P   U  Ht LOAD-XREF-INFO}L&;%8vuU%BHC|u XREF-INFO REFERENCESSETSBCALLS-+TLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEDEF<=>BBBBBBB?BBBBB0H?+<\>B=?BBBBB7= ?BBBBBB =?]BxBBBBB=+>n?@BBBB[?M<=^?NULLNOTBIBBBB>BB=%BB?U BpBv@}*BBBBB =>E?BABBBB>=\?)><<4>=E?BBBABBBBO?BEQBBBB>z?BBBB>=?B%BBBB?PBBBB}=t?#B_BE!5EQLBeBBBB=> ?@BBBBMa?_p>^<E =?LOGANDBBBB>?BBBBuU?ENBCADDRCADR!LISTe]>\<=F?BBBB޼=?J6BBBB=>?BBOBBBBUF?:TABBBB=?ABBBB? tBBBB=?wGBBBBB=3?(GBs~BBBBh=^BB?%NFOURTHUAPeNTHBCONSu>=BBBB,= \?)>D(M<=p?EBBBB?ǩLOCATION<v?hu>tE<=>B#?SzGBBBBB>=B?BABBBB>B?BBBB:?B F6AE7@BBBB?BBBB>B==FQ? SGBB BBBBB>?BBBB>%<M=UBB\?#ASETFIBQBBBB=?GBBBBB3=(?1 ?MAKE-TYPED-ARRAYu MAKE-ARRAY>0<=?BBBB >?BBBB?iBBBBUh=>?BBBBBBD=<?1TBBB<>5BB?BBBBmake-safe-for-tail-call-397B <=&? <S.?BBBBBB9>7<> ?BBBB ?BBBB=>?BBBBBB?7@6R<>BBBlB=uBB*BBCBBBp?nVALUESBE@B BK APPLY>BBBB!B BQBBBB>BB=BBP? GB}i BBB?@?EEPTUJQRUTUJQJQRRUJQRU%UU)EIIU)E)EIURTITUU%%URRTURTRT%%URTRTUUJQRRUJQRJQRRT)EURT%URTUJQUJQRRTRTU%UU)ETUU)EII)EIUJQ)EI)EI%UUJQRIUUJQRUU)EU)E%TURT)E)ETU)EIUUJQR%%U)EIRTRTUJQR%URRRRTRRT)ERTUJQUJQURUTUUUUURTITUU$CuB> >>E%= Z