;;; Compilation of /home/juergen/lisp/mevalxp/emul-01.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2007/11/17 13:53:21. ;;; 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-01lispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWEMUBCB>>>E%= /wF;%8v6u1Uth(7-2?BH CHECK-GENERATIONHCEMULATOR%+>MESYSTEM%+%->%-%*>%*%DIV>%DIV%REM>%REM%<=>%<=%>=>%>=%<>%<%>>%>%=>%=%/=>%/=CONSP>CONSPJNIL=JNIL-FUNJMP=JMP-FUNLOD=LOD-FUNLODNIL= LODNIL-FUNSTO=STO-FUNLITIDX= LITIDX-FUNINCSP= INCSP-FUNDECSP= DECSP-FUNHALT=HALT-FUNCALLCLOS= CALLCLOS-FUN CALLCLOSV= CALLCLOSV-FUNRET=RET-FUNLODCS= LODCS-FUNSTOCS= STOCS-FUNPUSHCS= PUSHCS-FUNINCCSP= INCCSP-FUNEXCEPT= EXCEPT-FUN%READ=READ-FUN%PRINT> PRINT-FUN %MAKE-CLOSURE> MAKE-CLOSURE %MAKE-VECTOR> MAKE-VECTOR%SET-SYMBOL-FUNCTION>SET-SYMBOL-FUNCTION%SET-SYMBOL-VALUE>SET-SYMBOL-VALUE%SYMBOL-FUNCTION>SYMBOL-FUNCTION %SYMBOL-VALUE> SYMBOL-VALUE%SVREF>SVREF %SET-SVREF> SET-SVREF %CLOSURE-REF> CLOSURE-REFEQ>EQCAR>CARCDR>CDRCONS>CONS??ETRI%TRI%TRI%TRI%TRI%TRI%TRI%TRI%TRI%TRI%TRI%*INSTRUCTION-LIST*BCB>>>E%= ?Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHB!H *NUM-INSTR*LENGTH SYMBOL-VALUE-1ARGH>$CB>>>E%? >0> >(>: I FZ;%8vMuHU3V u Eu5Et hEE$,C8KVBHB!H *DISPATCH* MAKE-SIMPLE-ARRAYEHB$CB>>>E%? >0> >(>: P MI*;%8vuU#BH *OPCODE-LIST*BCB>>>E%= SZ;%8vMuHU3V u Eu5Et hEE$,C8KVBHB!H*INSTR-LIST-LEN*DBHB$CB>>>E%? >0> >(>: [ XZ;%8vMuHU3V u Eu5Et hEE$,C8KVBHB!H*OPCODE-VECTOR*LBHB$CB>>>E%? >0> >(>: a ^R ;%8v]uXU3VVVVVVVE5u} u E u Mu9E|uu5u} u EuuEEuuE] u)ށupEE}}}}WSEԐ0"M5H>fny +2ARGSHSEQddCDR-1ARGHAREFOdCAR-1ARGH] >=2ARGSHHWBHB$MAKE-OPCODE-VECTOR? ??P @I @ m??VDBGqq NEW-VALUE @m p??B @qSUBFORM @B @B v t s??vB??B>r?B>Q?fB>9? l jB =;%8vu U%Hk$CB> >>E%= x ;%8vBu=U3VVVEE u Mu9E|Euu u PEPEPEE] uށup }}mSE/%m4KSh^y~cH CONS-2ARGHBHBBB HHEHB$MAKE-INSTR-ASSOC? ??=o @RES @  ??v{B? B? jB>} B>q v{B>W?lB>8?f{B  }B tF;%8v8u3U3VEu5Et hEE.#6AHB!H *INSTR-ASSOC*~$CB> >>E%? >>  j ;%8v9u4UPPu u E}tEhhE%G!&+=BLW^eERRORinstruction not foundFORMATinstruction / ~A / not found~%BHeHdASSOC-EQL-2ARGHBHB?$ GET-OPCODE?INSTR?%   >[?=SUBS @?% >/??%>*??%   ? ;%8UPPhjEh3Eu5Et hE u PEu5Et hEE&0:P_vk~HCL-TOEH3H*TP*GET-WORDSET-WORD*HALT-FLAGGED**CSP**DSP**PC*BEMU-INIT?TP-INIT?%  ????%? ?%? ?%>c??%>T??%   I*;%8vuU#H *WATCH-INSTR*BCB> >>E%= ^>;%8vuUt.(BH$ DEBUG-EMU=ON=    U  HDSPECINSTALL-DEFPARAMETERn:;%8v-u(UuuE E%#*16BH *INSTR-MASK*BC DEFPARAMETER>>E%=  U  Hg:;%8v-u(UuuE E%#16H *EXT-MASK*BCB>>E%=  U  H ASH-RIGHTb;%8vKuFUP u Mu+#EuuuuuE%u"OT\ LOGAND-2ARGSHBHBHBn$ INSTR-OPC??  >`>z?>&??  oB2 /V;%8v+u&UP u Mu #Euuuuuuu"4RBHHEHBu$o1 INSTR-EXT?  Co?t  ,>&?=?  n s B7 oe]B;%8vuU=u tu; HBLOGICALP=X=  M #;%8UPPPPPPPPPPPPPEEEEEE u tvEuűuԉűu؉uЋu܉uԋuu؋uu܋uuuuuuuuuuuuuuu uE E%]M N;]s u P3EEE̋ u PE̵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}؉}SES5u} u E] Hi7 M<}1W3PEE] ށu }}> u NjEEu5EhEGRhuE%jPE;hE`SuSE[QvM8`  3)D H>[PCp{cnw R\ ;,shqcvh]T@P i|T-ZEROPBHO *2ARGSH YM-2ARGSHFCDISPH-VPLUSPBHBHB1BNCLOG-TOB0BMBAPPLY0-FUNCTION-REGHOd CADDR-1ARGHMB *JMP-FLAG*dVR CADR-1ARGHBHemu:: instr = ~x: ~A ~A~%B=B#3H OPC-ENTRYfBBfBBLHEF~%~% EMU-Steps = ~A~%~%BHBVA$A RUN-PROCESSOR? D MAX-STEPS  I?%I=TRI%o I%@TRIB T@ISTEP-CNT *B@ OPC-EXT  @ARGS Z @NARGS 3@OPC  @B @ E 5   ?jBS?V=B??=B?K{B?HB?MS*B?GoB?VmEARm{B?TB?$ v=B?(>B?jB?;%B?U3v{B? mB?zEuB? XEloB?D?f{B?B?$B?8n{B?HB?BB?C BB?KEoB?ABB?B?BB? `B?VB?QBB? oB?BB?U B?B?BB?BB? B?Br B?H CB?T< ڷB?$ B? ?v{B? BB>d?=B  MB # U E H;%8UPP u <unƁupau5Et hE u uuuuu uE EE%PE돐h^PE&m+XB9H5H3HEHBX$ PUSH-STACK?VAL?%   ??B?!%>q??%>/?D?E% R  B  > U  H ;%8U3V u <uqƁupdu5Et hE u <u?ǁp5uuuuu}3%PEP뼐i_QF'n,YB:HBHH3HEHBX$ POP-STACK?  ?? ??2 >r? >0?  A   U H HB;%8UPP u <unƁupau5Et hE u uuuuu uE EE%PE돐h^PE&m+XB9HH3HEHBW$PUSH-ADDRESS-STACK?  ?%   ???%>q??%>/??%  B  U  H ;%8U3V u <uqƁupdu5Et hE u <u?ǁp5uuuuu}3%PEP뼐i_QF'n,YB:HBHH3HEHBW$2POP-ADDRESS-STACK?  ??A ??R >r? >0?   oZ ;%8vJuEUPP u PEEE%#/7?NSH U3 TEMPL-REF-DBB1EHBS$ ?EÑ?%   >C?#?%>;??A%>3?BZz?%>'?J?I% R!    ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@u+up6u5Et hEEhEuEsh2$7{HBHHB!HREHBXB+$nsto ?oo?OE T$ t ?o?  / oD @?E &?-?-=G&>;??B>??E % P#   ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@uup6u5Et hEEhEuEsh2$7{BVHBoHHB!HEHBXB+$u ?P?E *  ??t' @?E ,??=B>;?B>??E + )  P  ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@uup6u5Et hEEhEuEsh2$7{BXHBoHHB!HEHBWB,$?Bt?%E /  ??' @?E 1?u?=B >;?B>??E 0 .   ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{BFHBoHH BBHBXB+$??E 4 ??NJ{LL-R' TER@?E 6? VB>k?B>; *B>??E 5 3  ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{B`HBoHHBBHBXB+$?Bv?E 9 ??J{E' MAS@?E ;? >VB>k?B>; *B>??E : 8   ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{BHHBoH-H BBHBWB,$? Bz?E &> ??oJ{' @?E @?u PVB>k? B>; *B>??E ? u= u  U  HB ;%8UPPPPEE u P3E u <Ɓuu5Et hE5u} u E}ukEp] Mue}p^uuuuuuuuu u} EE%PEWhEu떐#YO6,^;F 7-B8HBHHBu3HBHBXB+$u?EBx?E D  ?;?ܺ=By @B @?E EG F?1 B??=B?̰ B>b 5B>J?B>? B>'??EE E C hd6;%8v&u!U u %!*/H EHBNIL$}=E= K >%>z= L J  U  H^ ;%8UPPPPEE u P3E u <Ɓuu5Et hE5u} u E}uy]pn u{pn Muu}pnuuuuuuuuu u} EE%PEIuhu놐#YO6,^;FU&;KB8HBHBHH3HBHBXB+$? }?1E WP ?Y?=] By @B @?E S R?O B+?? nB?*?Ƕ=B? EB>b EB>J?B>? B>'??E Q O v;%8v+u&UP}u!}|*}u*E-p uu֋Euuuuuuu4AoHBHHBTWO-COMP?`? W >E>z? X UV U ;%8UPPPPPEEE u 9Eu~5u} u EE uYpL MuSuupIu5Et hEhuE몐$/B8eG`RscHBoHIHV3HVSBHIBB$O??0U N[ H? ADDmGHBy @FLAB R@?AU 1^ ]?m inm{B6>w mB>i 3ڶ=B>K PC-B>3?B>(?L?U E\ %ZS s ~A~ ;%8UPPPPEE5u} u EE uQpD MuKuupAu5Et hEhuE벐#z:,?MBdHBoHH3HVEHBYB*$S????=E b {??' *@?E d??=B=>Q ?VB>C?mB>'??E c a ?K*;%8vuU#H$E=? = g f{ 6;%8vu UHB!=Bp= j iB h:;%8v,u'UPhhEE"*5H?TO-CLB EMU: ~A~%$ #? ?T? o >.>?{>&?? pB n# h:;%8v,u'Uh$5uHBu*** EMU: exception occurred~%$ u=Br= t u>"?= u %sB P;%8{UPPPPPEE5u} u E}D]5 A0 M6}+W3EEu3E u uuu5Et hE u <ǁ u PEu5Et hEuhuPO$;-E@[S@60zrg BDHBoHBHHB3HBB BBBHBXB+$ H??U x 3? zu TEMPL @auCLOS E@' @?U ~ u| z??J{BW?ɵ VB?P B?E_ B?WB?&I w{B?4 XB? nB??Hv{B? 3w{B? B??B?A?EB?A?B>D *B>(??U y3 w q?h;%8wnUPPPP u P3E5u} u E}E  M}W3Eu3E u uuu5Et hE u <ǁ u PEu5Et hEhEuPbWI(8\-N8@3)#meZFsBRHBoHHBB3HBBlBHBX$3E?-B~B=  0? Ez{ @ B #@%>;B %@=   R??J{B_? VB?R mB?J o{B?P< ڷ=B?' B?u B??=B?} Fڷ=B? 8B??B>` *B>D?=>1 *= 0  ;%8vwurUPPPEEuuu5Et hEuuu5Et hE"?4iGaVoHB3HE$?B|=  %>&?=>?=  B u U 8 H@LOAD-XREF-INFOE L&;%8vuU%BHC XREF-INFO REFERENCESB+CALLSBx*+BB/TLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEDEF7;>SETSB8I9V:B6B<BBB0P9E+7589u:BPBNULLBASSOC<BBBp?9BBBBy9k7?8B9B;B/<BBB 8h?9B-<BBBHY8B>9BD?W7V9B >=BBBB~8]B9BfBBCBBBB9~=?;78E9 :BB/<BBB 8r?u9BBE<BBB@u?>78?9B ;BBBB.3?BBBWB8BBBB?BBBAB9uVALUESBBBLISTBCADDRAPPLY>:BH< CADRBBB]BBCBBBBk8E]BB9:;J{SETFRfBRCBBBB8?k9;BBBBB 8E9 BB<BBBG8>9rDu?CP7E9NOT6<BBB8};?9B -M;BBBB#9lE<BBBh9LOCATION7?789LOGANDBBBB{?8`H9B B;BB/<BBB89EMASHBBBB 8S?E9BBBBB!k9BBBB?BBE9<BBB8 I9 <BBBNU8PC9L EMAKE-TYPED-ARRAY MAKE-ARRAY?K-7M?9<BBB?BB8BBu9B~5:Bl<BBB$89 :BB/<BBB_B8-W9LBOBB]7 8z?BBBB 9BBo<BBB'make-safe-for-tail-call-397B  7?9BBBB&9u7u8?9BB<BBB8?B9V:B<BBBT?PRE7?BBu8BBP95BbBrBBB B/<BBB9EXPTB B B?E?? EPTUTRUUJQJQRUUJQR%TU%%URRTRTRURRTU%%URRTUJQURUURUUUUUUJQ%eUJQRRUJQRU%%U%%URTRTJQJQRRTURTUJQRRUJQURRT%URJQRRTITUUJQRURTI)EIUIU%UJQJQRRU)EI%UUJQJQ%URUURT*$CB> >>E%= S