;;; Compilation of /home/juergen/lisp/mevalxp/emul-02.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/05/10 19:14:55. ;;; 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%>=>%>=B>> 9%<>%> 9%>>%>B>> 9%=>%=B>> 9P-ALIGN3>9 P-ALIGN3-FUNB> >!9P-CONSTR>P-CONSTRB>%> 9P-ADD>P-ADDB>&> 9P-SHIFTL>9 P-SHIFTL-FUNB>> 9P-SHIFTR>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=>;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=>??ETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJETTJEBBB1? >&>  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> >(>:  I*;%8vuU#BH9 *OPCODE-LIST*BCB>>>E%= Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9*INSTR-LIST-LEN* BH\BCB>>>E%? >0> >(>: " Z;%8vMuHU3V u Eu5Et hEE$,C8KVBHBIH9*OPCODE-VECTOR*BHB$CB>>>E%? >0> >(>: ( %R ;%8v]uXU3VVVVVVVE5u} u E u Mu9E|uu5u} u EuuEEuuE] u)ށupEE}}}}WSEԐ0"M5H>fnyB HOCDR-1ARGHAREFOBH$ >=2ARGSHHBH\B9MAKE-OPCODE-VECTOR? ??9P @9I @ 1??VDBG55 NEW-VALUE @1 4??B @5SUBFORM @B @B : 8 7??vB??B>r?B>Q?fB>9? 0 .B =;%8vu U%H/$CB> >>E%= <tF;%8v8u3U3VEu5Et hEE.#6ABHBIH9*R-INSTR-ASSOC*MAKE-HASH-TABLEBCB> >>E%? >> E Bj ;%8vEu@U3VVVVVVEE u Mu9E|Euu u PEP u PEPEE u PEE5u} u E u PEEuuE] uށup }}SE吐2(p7NVka |4^B H AF%PUTHASHL@ CONS-2ARGHN+BB HH HB$E9MAKE-INSTR-ASSOC? %3?b?=3 @9RES @ MM L?A8?ROR-H5store @OMMS5table @AME5key @B S CQ O?$ BSOB? B? B? B? VoB?> EB??lv{B? ispB? nB? v{B? B?P KjB>t B>Z?-lB>;?f{B K%3 IB tF;%8v8u3U3VEu5Et hEE.#6AHBIH9 *INSTR-ASSOC*J$CBB> >>E%? B>> Z WZ;%8vKuFUPPP}}wuE}uuuuuuuuuE#OTBH EQL-2ARGHB@HBC9 GET-OPCODE>>>E ?9Z;? a >' Z? b O]GR E;%8UPPPPPsjjjhhjhht$uMuN+uePWEE u uEu$.}tEhhuFҐ[`mvERRORPPinstruction not foundFORMATinstruction / ~A / not found~%BH*HASSOC-IFBHBJ%%CLOSE-ON-STACK ALLOCATE-CLOSURE-ON-STACKHB$_?9INSTR?< m %@ J?'? n{9SUBS @? o?v?u=B?P?EnB?????E?>q?? n kB up;%8UPP hjEh3Eu5Et hE u PEu5Et hEE&0:DNXn}H;%CL-TO H[H9*TP*B9*STATUS* 9*REGB*9*REGA*9*HALT-FLAGGED*9*CSP*9*DSP*9*PC*$HECE9EMU-INIT?IR9TP-INIT?% A~ ? +>?%?E TEM?%? +B4?%? ->?%>r?? %  {<| >9I*;%8vuU#H9 *WATCH-INSTR*BCB> >>E%= -GN3^>;%8vuUt.(BHL$9 DEBUG-EMU=9ON=  - FFUN U B HDSPECAOINSTALL-DEFPARAMETERAG-n:;%8v-u(UuuE E%#*16BH-TBD9 *INSTR-MASK*BBC DEFPARAMETER>>E%=  U  HRRg:;%8v-u(UuuE E%#16HE9 *EXT-MASK*BET-CB>>E%= DET- U - H => ASH-RIGHT>b;%8vKuFUP u Mu+#EuuuuuE%u"OT\B&HBH H-$=9 INSTR-OPC?l?S  ->`>z?=>&?? -IN PB2 -V;%8v+u&UP u Mu #Euuuuuuu"4R3HBHU H$N9 INSTR-EXT?l9?M  ->&? ? D= B7 B]B;%8vuU=u tu; HBB9LOGICALP=9XCS=  E =r ;%8v?u:UPPu u PE}t EhhE%M!&4HR]dkBDCcan not get opc-entryB opc = ~a~%UHGETHASH HB4$S9 GET-OPC-ENTRY?P9OPC?P% N  >a?E=N XCE@?N% >>8??I%>*?F?%  XBb N >6%;%8UPPPPPPPPPPPPPEEEEEE u tvEuűuԉűu؉uЋu܉uԋuu؋uu܋uuuuuuuuuuuuuuu uE E%]M i;]s u <Z= ~  u P3EEE̋E̵Eu5Et hEEEЋ u tFhh u P u PEе u EEE]E [;b}}E< u Nj]Eu5Et hE u t< u Eu5Et hEE<}5u} u EU cӁU _N MTuuFu5Et hE u Pj u  u <uJ u <Ɓuu5Et hEE<u}؉}SEP S5u} u E] Hi7 M<}1W3PEE] ށu }}% u NjEEu5EhEx{.RhuE QPE"hEGSuSE[QC!h8` x#$3)CQ_ >4cYvkw,~;Hmw o`[t%T *ZEROP4H *2ARGSHBHFCDISPHPLUSPHH >2ARGSHBHBVLOG-TO5BuAPPLY0-FUNCTION-REGHPH9 *JMP-FLAG*BHBHemu:: instr = ~x: ~A ~A~%B" [H9 OPC-ENTRYBuzBE dsp too largeBHf~%~% EMU-Steps = ~A~%~%BHBk$E9 RUN-PROCESSOR? 9 MAX-STEPS n  ?.{3 @ARGB @BH9STEP-CNT @H 9OPC-EXT  @O9ARGS R? @ 9NARGS @Bc  @B @ @    ?joB\?V{B??=B?B? oB?5B? B?mB?B?X?v{B?L?B? GjB?)B?%vB?mB?B?lB?x? =B?%_?f{B?B?%=B?nB? hoB?BB?%BB?B?BB?B?BB?I{RSSB?qEASB?lBB?  B?BB? oB?BB?BB?BB?% B?U B?Ec B?U B?G B? <BB?|'?v{B? BB>d?=B  B % U  H;%8UPP u <unƁupau5Et hE u uuuuu uE EE%PE돐h^PE&m+X5HBH[H HBm$9 PUSH-STACK?9VAL?%   ??P?A%>q??%>/?O?2% H  $ U  H ;%8U3V u <uqƁupdu5Et hE u <u?ǁp5uuuuu}3%PEP뼐i_QF'n,Y5HBHBH[H HBm$ 9 POP-STACK? >Z ?? ?? >r? >0?   8 U  H;%8UPP u <unƁupau5Et hE u uuuuu uE EE%PE돐h^PE&m+X5HBH[H HBl$9PUSH-ADDRESS-STACK?H?%  O ?? ?%>q??%>/??%  B  U % H ;%8U3V u <uqƁupdu5Et hE u <u?ǁp5uuuuu}3%PEP뼐i_QF'n,Y5HBHBH[H HBl$9POP-ADDRESS-STACK? oun ??O ?? >r? >0?  o~ H HZ ;%8vJuEUPP u PEEE%#/7?NSHBS TEMPL-REF-DBB1 HBg$?P?l?E%   >C??%>;??%>3?uZz?%>'?J?%     ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@u+up6u5Et hEEhEuEsh2$7{5HHHBIH HBmB*$?l}?E   ??9D @?E  ??T= >;?B>??AE *9 R REG ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@uup6u5Et hEEhEuEsh2$7{4HHHBIH HBmB*$?l?E   ??W  H-I@?BE ??=B>;?B>?-?GE   u  ;%8v}uxUPPPPEE5u} u E}uFEp8 Mu@uup6u5Et hEEhEuEsh2$7{4HHHBIH HBlB+$u? l?E   ??  #@?*E ??=B >;?B>??E D IS   ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{T4HHHBZHBmB*$E%?lET-?E  ??J{  =>@?SE I?> VB>k?B>; uFU*B>?? E   u ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{U4HHHBZHBmB*$u #?lu?E u ??J{  "@?E ? HUVB>k?B>; N9*B>?-??E    - ;%8vrumUPPPPEE5u} u E}u;Ep- Mu5}p.W3EE%hEu2$7gv{U4HHH BZHBlB+$?lt ?E ! ??J{  @?E #? VB>k?B>; H*B>??E "  a ot U  HHB ;%8UPPPPEE u P3E u <Ɓuu5Et hE5u} u E}ukEp] Mue}p^uuuuuuuuu u} EE%PEWhEu떐#YO6,^;F 7-H4HBHx[HBZHBmB*$?El?E ' ?;?=t hE @B @?E * )?1 hB??u=B? PB>b u B>J?B>? еB>'??E ( &E Ed6;%8v&u!U u %!*/H HNIL$u=l= . >%>z= / - 5 U  H^ ;%8UPPPPEE u P3E u <Ɓuu5Et hE5u} u E}uy]pn u{pn Muu}pnuuuuuuuuu u} EE%PEIuhu놐#YO6,^;FU&;KH5HBHBH[HBZHBmB*$?l?E 3 ?Y?= E@5B @?E 6 5?O B+?? nB?*?=B? B>b B>J?B>? B>'??QE P4 2 v;%8v+u&UP}u!}|*}u*E-p uu֋Euuuuuuu4Ao5H-HHB9TWO-COMP?? : >E>z? ; 89 U ;%8UPPPPPEEE u 9Eu~5u} u EE uYpL MuSuupIu5Et hEhuE몐$/B8eG`Rs4HHHH[H9zBH,BB*$BH?m ltr ? U ~>  ? mNTR u@EB @?aU BA @?% EMUm{B6>w~mB>i $ڶ=B>K 9B>3?RB>(???U ? T=  ;%8UPPPPEE5u} u EE uQpD MuKuupAu5Et hEhuE벐#z:,?M4HHH[H9 HBnB)$ ?l??E mE ???  {@?E G??=B=>Q B>C?B>'??E F D K*;%8vuU#Hw$=l= J I 6;%8vu UHB=B~= M LB Sh:;%8v,u'UPhhEE"*5HfTO-CL EMU: ~A~%${B?d=?  R >.>?>&?? S Q h:;%8v,u'Uh$5uHwB*** EMU: exception occurred~%$%=l= W >"?= XE& V ;%8{UPPPPPEE5u} u E}D]5 A0 M6}+W3EEu3E u uuu5Et hE u <ǁ u PEu5Et hEuhuPO$;-E@[S@60zrg 4HH5HBHB[HsBBBZHBmB*$?lau?U [ E3? z9TEMPL @u9CLOS %@P  E@?U a _ P]??J{BW?X VB? B?_ HB?WlB?I w{B?H4 DB?A HnB??v{B? w{B? B?%?B?%?B?%?B>D *B>(??U \3 Z h;%8wnUPPPP u P3E5u} u E}E  M}W3Eu3E u uuu5Et hE u <ǁ u PEu5Et hEhEuPbWI(8\-N8@3)#meZFs4HHHBB[HsBOEBZHBm$ C?%l= e '0? z^  @B %@}B P@= i h g?u?J{B_? VB?R mB?8J Mo{B?< pڷ=B?' EB? B??=B? Eڷ=B? B??B>` *B>D?=>1 *= f0 d 5;%8vwurUPPPEEuuu5Et hEuuu5Et hE"?4iGaVoHB[Hs5$}?l}= l 8>&?=>?= m k  U  H%ALIGNlF;%8v7u2UPuuuuuuu%;@BHor$H?B? r >??E s qu  U  HuP-SHIFTLEE&;%8vuU}}% BHu$>9Y x>= z w  U  HP-SHIFTRE&;%8vuU}}% BHE|$>y >= PP E~ 5u U - HulF;%8v7u2UPuuuuuuu%;@{Hur$T9P-SHIFTL-1-FUN?%?  >??   => U ; H|lF;%8v7u2UPuuuuuuu%;@H|r-$M9P-SHIFTR-1-FUN?E%?h  >??   2;%8v uU3HBu9 GET-INFO-FUN==    ;%8vyutUP u P3 u <u4Ɓup'u5Et hEEPEodE;J"-5w4HBHBIHEBZHBj$?l=  $??=>N?=>9>=>1>z=>&?=    BZ;%8vyutUPPP u PjEE u <u4Ɓup'u5Et hEEPEodE;J$2w4HBHBIHBXHBi$?PE?5   ??PB @?5 >N?>6??5>(??5   5a:;%8v+u&UPu5Et hEE!)4HBIHv$P?Bl?  B a:;%8v+u&UPu5Et hEE!)4HBIHu$?Bj?Z B B r ;%8vcu^UPPE u PEEEEE%:).BJXglH%rBHBgB0$?l?%  >\?= !@?% >N??%>F ?I%>> Z?u%>2?J{?%>? ?%  % d6;%8v&u!U u %!*/H HBm$u =l=   >%>z=   ud6;%8v&u!U u %!*/Hu HBl$uu=lE=  >%>z=  Eu d6;%8v&u!U u %!*/H HBh$U=l=  >%>z=  B a:;%8v+u&UPu5Et hEE!)4HBIHt$?=?    U  HvLOAD-XREF-INFOuL&;%8vuU%BHC XREF-INFOSETSyo REFERENCESBCALLS-*+BTLF-NAME-BINDINGTOP-LEVEL-FORM-NAME;%DEFO0RU+PORENOTEEQBBBBPw5RfVBBBPvEQvRBVBBBuRu|VBBBEF R:UBBBB_QVRB_BNULLBuEQLBeVBBBQ$yPyRSBBBB`=Rs/OQRLOGANDBBBBHPRBBBBQH,RVBBB Q~xP xRBBmVBBBQuRE] 6VBBBQx%REmVBBBRBBBB KQ\R3 P(OURuVBBBCRAP@OQyRPTBVBBBuRr|VBBBJQu@BBRNuFOURTHU5GNTHBCONS>=VBBBQyuRETBVBBBQy,RVBBBURNBCADDRCADRLIST]PB\ORruVBBBE:RB  6U7SBBBBQzPBR9=TBVBBB'PBBQzBBRBpBzSBB%VBBBPyQxBRBUVBBBPtRBBBBRroVBBBQ\R P OuPBQz,R9TBBBVBBBPwRBBBBSR:LOCATIONuOQxRTBVBBBXRJPVO/Q$B\RU-CSETFM+B~aBBBBQtRVBBB Pu.RBBBBROfVBBBQyPy%RBBUVBBBPBBRVBBBPO9RBBBBBBPuvRBBBB Q: cRio urMAKE-TYPED-ARRAY MAKE-ARRAYPO RBBBBQyPyRBB%VBBBPzBBBoBQBB*BGBBBB RVALUESDBSBBbAPPLYBBB BB B+dW>BaBBBBPBB3QzBBRruTBOVBBB&EQ RgBB$ OQxPxRBUBBBB|QsPsBBBBBBBRrBVBBBhmake-safe-for-tail-call-397B O&ROPuuQuRBPVBBBOQsRBBVBBBQsRBxBVBBBQxPxRSBBBBQ@RdB[BVBBBPOR7S6HeOQyPyZRBUBBB?b?EPTURRTRT%%URTU%UURTRRT%UJQRRTUJQRU)EIUJQ%%U)EI)EIUUJQUJQ%UUUJQRURTUURJQUJQURTRUUR%UUU)EI%UU)EIRTRRTRIUU)EIRTJQRURRTIEYRT%UJQUJQRRU)ETU%UJQR%UJQRRU)EUIUURUUUUUU)ETIUU%URJQRRU)EIUURU)E)E)EIIU)EIURTU%%U%UU)E)EU)EIIU $BCB> >>E%= Dm