;;; Compilation of /home/juergen/lisp/micasm/mic-asm.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/03/01 22:50:05. ;;; 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 UNSPECIFICBCABSOLUTEhomejuergenlispmicasm>>EU mic-asmlispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWCL-USERBCB>>>E%= /;%8vhucUPPhM MuVE+EpN<uWǁpM<uNƁupAM MuIE#E E Eɏ$%uEPPEuE ;lq| LOGAND-2ARGSH +2ARGSH -2ARGSHBHASHEXPTBCOMMON-LISP-USER99 PUT-FIELD?9N9A9B ;?%?? ? ??9MASK @?%?? C A??B??VzB? ZB>??JB @ 8B =;%8vu U%BHREAD-FROM-STRINGBC9MAKE-MICRO-STORE>>>E =9X= J FG6';%8>5U3VVVVVVVVhhEEhhhhhhEEEEEEujE}C}WEWEEEEEPhPEPhPEPhPEPhPEPh  PEPh  PEPhPEPh3E] | M9EtuhEuhE}}\}tuhEÃ}tuhEYp|+l+uыuE|l+щpeYp|+l+uыuE|l+щtQpStusCZ볐 wZ/}?#R(/s5DMW\afmiJ+7Vu;(0KyYdi| /=2ARGSHBHSPECIALMMCLCLHMECLUHCLOSEABORTBH ~32,'0B~%FORMAT @~4,'0X ~%+NINTHEIGHTHSEVENTHSIXTHFIFTHCADDDRSEQ\\ CADDR-1ARGHB(\ CADR-1ARGH\CAR-1ARGHMAPCARB 9 SPLIT-STRINGC   >>E READ-LINECREATEIF-DOES-NOT-EXIST OVERWRITE IF-EXISTSOUTPUT micro.dataMSPRTHOPENINPUT DIRECTION micro.inputBB$? W?=9VAL @9ADDR-NEW @9ADDR @9AKT-LINE @DELETE @DBG~~INTERNAL-STREAM @B5 @B @  | z x v t?B??B?h>B??B?,o{B?=B?o{B?B?=B?B?~B?o{B?mB?y=B?mB?ZzB?NnB?;mB?/B?B?B?jB?B?mB?B?B>w?B >9> rW qB ' U BHDSPECINSTALL-DEFPARAMETER. ;%8u~U3VVVVVVEEuu] uW~_uFuuuuuuuuuuuuu uE E%Su}WE<Au}}}EE}WE<au}}}EE] ށu}}] hAE.$haE?^TJSEkS{M){U] B'H LAST1RPLACD >2ARGSHBH9 *LETTERS* LIST-1ARGHBC DEFPARAMETERB|>>E%? $? >~aux-var- @~ accumulator- @9I @   ? >B? B??wB?a>B?Y>B?Q>B?>B?>B?>B?>B>->B $   U  Hn:;%8v-u(UuuE E%#*16HC 0123456789> > EUU%9 *DIGITS-LIST*BCB>>E%=  U  Hn:;%8v-u(UuuE E%#*16HC   >>E9*WHITE-SPACE-LIST*BCB>>E%=  U  Hf ;%8vYuTU u PPuuE E%!)=/7MT]bH9*IDENT-DELIMS*C >>E UNIONC,;=:[>>EU  SYMBOL-VALUE-1ARGH$CB#>>E%=  >A> >3>: >%?   U  Hr>;%8v0u+UuuE E%$+49H9 *KEY-WORDS*MAKE-HASH-TABLEBCB2>>E%= >>   U  H %PUTHASH ;%8UPPPPEE5u} u EhEPEuuuuuuuuu uuu uuE%bW#j+3J<OrxBH CONCATENATE-SYMBHBINTERN STRING-UPCASESTRING$CB>>>>E?B ?%  ??~table @~key @?%  >|?>n B>f Z[B>S?B>7?j ?%>/?5?%>' ?%  G g:;%8v*u%Uuuu}%'.3HBNCB9ENDMASKVALUES9 ENDVALUES9END9DEFAULT>>EU%$= e>;%8v.u)U}uuEE }%&27HBAis~S ~S~%BgeCLW9 CHECK-HASH>>>E > at/9K9V ety>= d  SG1loaV;%8vIuDU3V} u uuuuuuu%',MRBH;MAPHASHHBB%$n? >0?  B qJ;%8v+u&UPEtEt鐐A"4H\CDR-1ARGHBMHB9IS-START?9CH?  >&??>?R?O T   OMMqJ;%8vuUPEt EtܐA'/BHpHBMHBica9IS-END?- ?  >3??>?? I B -uN;%8v/u*UPE=*uE=/u鐐0$8H H_HB9COMMENT-START-P? ?  #>(??>?B?  B Bf;%8v$uUPPEE}t EE=/uE=*uӸ˸P-5DBH_HBH$9 COMMENT-END-P? E?   >H?;~or- @? >9?jB>>z?D R B yR;%8v4u/UPPuuEt}}EȐG.=HFCDISPH$9 SKIP-COMMENT? A9CREAD %%?%? '  >K ?9CH1 @J?%? + )>2?~{B>#?%B ( #B 4!UPPPPPP}E} E}t E@Et$hApȋEEu u tME= u/][ u{ށupn}uwEt WE} E놋EuEt7hApSE낋Et!}WE } EEt<}WE ǸhypuEtf}WE EEP u P}hypEE},u'hAp};u'hAp}=u'hAp_}:u'hAp/}.u'hAp}[u'hAp}]u'hApEǸhypre#Bw[G+kW0$#eQAus7G[} d]R$TMB}r CHARACTER9RBRACKET9LBRACKET9PERIOD9(COLON9 EQUALSIGN9 SEMICOLON9COMMAGETHASH9IDENTBB B9H PARSE-IDENT ALPHA-CHAR-PCNUMBERSE9 PARSE-NUMBER3 DIGIT-CHAR-PT$B4H  CHECK-GENERATIONH\MEMBER-EQL-2ARGHBHBBHH$BHFIX-OPTIONAL-ARGSHE9LEXMIC?DBB\ &OPTIONAL9LINE-REQ AA?R? D TQ?w~KEYFORM @EADB @B) A@?F?E OJ I VG?E ;B?T  ھ;B?PB?ajB?T ־;B?NZB? B?O B?r nVB? Z}wB?  B?y wB?iB?_ @B?K ;B?R;WB? B?RB?9wB?->B?wB? {wE ~ transform @B ETAL?A޻B >w5jB>F?;B>'?;B EQ ?G!v U  HB INSTALL-DEFUNj ;%8v[uVU3VhEuFWEuuu uE E%09OV_dBHY=@ %NEW-CLOSURIZEHB MAKE-RECORD$FIXNUMH$CB>>>E%? ?@ >=>?9LINE-NUM @ a ` ] ?  ;%8vmuhUPPPEuuEtMEt8h}WEE}EEuuuuuuuuuE uu%1$9WC~O_lvBH"HBB*HBBW_HB:?uBB uf?5? g ? WEB @9RESL }@?5? }k i? {B?>p B>c WEB>[ anoB>S =B>= B>5 jB>(?j{B h eB  ; ;%8UPPPPEuuEEu u tOEuuuuuuuuuuuE uu%h}WEE}EN-C9HMZbœBHHBB&HB3HBHBBHSHBB7?LETBB o1AR?E? p ?R TERE%B @B@ @?E? us r? B? unoB?- =B>f B>^ {B>Q?B @B tB>L?=B>1?B wq nB x ;%8UPPP} Wtu}Y=pE5du}} }}} ]h9YAp}} ]uuuuu uuEEEE }%LEE[E됐cE %4%S9ENDSYMLerror at: line = ~S : Production nterm = ~S : insym = ~S : insym-val = ~S ~% LINE-NUMBERBH"H\%MEMBER-EQ-2ARGHC9END-SYM>>E $C9MICPROGLABELSv>>E?W9INSYM9 INSYM-VAL9LEX E%?%??  |G ;%8UPPPPPPPPPPPP} Wtz}}Ћ}ÜY=p]5du}} }}E ]}йhYyp} W}}܋}Y1=p E5du}} }}u uuu؋EܵNjEhu1u؉qypS]E } W}}ԋ}ÜY =p3]5du}} }}u uuu؋EԵNjEhu1u؉qypEEE)}} ]uuuЋu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%]EE:EߐH3tV)x.DC)s?S9RVALUEwBCuBT>>E BCBI>>E H"HBWHCB>>E $CBB>>E?b BBB <???  ?BONCT9$1 M @?N?N?  G?-B  @B E  G D ;%8UPPPPPPPPPPPPPP}Ћ} WkEE}}̋}Y=p%E5du}} }}}Y=pE5duԋ}} }ԉ}}Ћ] S]SEÜYi=pXe]5du5`u؋}} }}}؉}}}u u܋uuhE̵PE}ܹhu܉1uȉqAp}} ]uuuȋuԉuȋu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%(EE7WEEf]EE]5duEEEĐ ;2 k.3Zgr{$.<S9 INSTRLINEPAIRwBH LIST-3ARGH%EQB@HBWHCB>>E E$CBB>>E?BBB ???  ?DA9OUT-VAL @9$3 @B  @??&?  O?vvB MM G \ ;%8UPPPPPPPPPPPPPPPPP}ċ} WEEE}ÜY=p]5du܋}} }܉}}ċ_ } W}WEÜY=p]5du5`uԋ}} }}}ԉ}}}Ћ}ċ] S]SEÜYl=p`[h]5du5`u}} }}}}}}؋u uȋuuEPEصNjEȹhuȉ1uqyp} W}ÜYv=pe]5dű}} }̉}E }hyApo ]EK]EEe]5du]EE]5du}} ]uuuuȉuủuuЉuċuԉuȋu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%]EEEEE]WD* qhAq16.^dn|S9 INSTRLINERESTwBCB>>E HEAPPENDH"HBWHCB>>E $hCǀBB+>>E?BBB  ???  ??u{B" @B  @9$2  @} ???  u?B  Gp  ;%8{rUPPPPPPPPPPPPP}ԋ} WMEEE}ԋ ] S]SEÜY=p]5du5`u}} }}}}}}}ԋ] S]SEÜYZ=pIV]5du5`uЋ}} }}}Љ}}}܋u u؋uűEPEܵ}عhu؉1ủqAp}} ]uuűu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%]]EEw]5du]EE]5duEE͐ n@yd!{-2hP\ S9 INSTRLINEwBHH"HBWHCB>>E $CBB<>>E? BBB ?E??  ?`dB" @B  @B @?E??  ?T?B2  GH CTET ;%8ypUPPPPPPPPPPPPP}ԋ} WKEEE}ԋ] S]SEYN=p'=JE5du5`u}} }}}}}}}ԋ] S]SEÜY=p]5du5`uЋ}} }}}Љ}}}܋u u؋uűEPEܵNjEعhu؉1ủqyp} WE }hyAp뼿EEEE5du]EE]5du}} ]uuűu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%EE8ydy-2,hNZ'S9 INSTRLINESrwBCBB>>E%HH"HBWHCB>>E ;$'CBBJ>>E? BBB U?E??  ?N^LB" @B % @B @3?E?? E ?RBB u G ^ ;%8UPPPPPPPPPPPPPPP} WEE}ÜYQ=p@]5du܋}} }܉}}}}ÜY=pu ]5du؋}} }؉}}Y=p6E5duȋ}} }ȉ}}}}ÜY=p]5dű}} }̉}}ÜY=pr]5duЋ}} }Љ}u uԋuuhEPE}Թhuԉ1uĉqAp}} ]uuuċuЉuċuԉuȋu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%]E]EEE#K]EZ|]EEEEEEkMe,1$:RWS9 INSTRLABELwBHHN9ILABELB@HBWHCB>>E $CHBBZ>>E?BBB ?B??  B?S9$4 @B4 @1AR???  ?TvB-   @G  ;%8sjUPPPPPPPPPPPPP}ԋ} WEEEE}ԋ] S]SEÜY=p]5du5`u}} }}}}}}}ԋ] S]SEÜYR=pwAN]5du5`uЋ}} }}}Љ}}}܋u u؋uű}WE}عhu؉1ủqAp}} ]uuűu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%e]EE]5du]EE]5duEE͐ f8q\!{-2hTSS9 INSTRBLOCKwBH LIST-2ARGHA"HBWHCB>>E $CBBj>>E? BBB ;%?E??  P?PXWB" @B  @B @?E??   5 G E T ;%8ypUPPPPPPPPPPPPP}ԋ} WKEEE}ԋ ] S]SEYN=p'=JE5du5`u}} }}}}}}}ԋ$] S]SEÜY=p]5du5`uЋ}} }}}Љ}}}܋u u؋uűEPEܵNjEعhu؉1ủqyp} WE }hyAp뼿EEEE5du]EE]5du}} ]uuűu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%EE8ydy-2,hNZ'S9> INSTRUCTIONSwBCB>>E HH"HBWHCB>>E $COBBx>>E? MBBB ?E?G?  ?^  @B" @B  @B @?E??  ?RBn PPP G ;%8vmUPPPPPPPPPPPPPPPPP} WGEE}ÜY(=p:]5du܋}} }܉}}}}ÜY=p]5du؋}} }؉}}}}Y=pE5duċ}} }ĉ}u uԋuuh}WENjEԹhuԉ1uqyp} W:E}}}ÜY=p]5dű}} }̉}}}ȋ}ÜY=pu]5duЋ}} }Љ}u uԋuu}WEȵNjEԹhuԉ1uqyp]E]ECEER}} ]uuuuȉuủuuЉuċuԉuȋu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%B]EQy]EEEEEE뾐\k2va#g.3TC\RWacm{S9 VALUESPAIR}wBBtHCY9>>E HHBB(HBWHC9 DEFAULT-SYM>>E $}ċCWWB>>E?YpBB ???   ?e }}B4 }@B @S]?E??  ?` `vB}?[ hB @B `@BZ }} ?VB uu GصT ;%8ypUPPPPPPPPPPPPP}ԋ} WKEEE}ԋ(] S]SEYN=p'=JE5du5`u}} }}}}}}}ԋ,] S]SEÜY=p]5du5`uЋ}} }}}Љ}}}܋u u؋uűEPEܵNjEعhu؉1ủqyp} WE }hyAp뼿EEEE5du]EE]5du}} ]uuűu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%EE8ydy-2,hNZ'S9 VALUESLINEwBC9 ENDVALUES-SYM>>E HH"HBWHCBu >>E%$CB>>E? p BB {?E?? P! ?W^ B" @B  @B @ ?]E?? $ #?pR # " G 5T ;%8ypUPPPPPPPPPPPPP}ԋ} WKEEE}ԋ4] S]SEYN=p'=JE5du5`u}} }}}}}}}ԋ0] S]SEÜY=p]5du5`uЋ}} }}}Љ}}}܋u u؋uűEPEܵNjEعhu؉1ủqyp} WE }hyAp뼿EEEE5du]EE]5du}} ]uuűu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%EE8ydy-2,hNZ'S9 MASKLINERESTwBCB>>E pHPH"HBWHCB>>E $CKǀB&>>E? }]BB -Y?NE?? . ?^ EB" u@B  @B @}?}E?? ]1 0?R Y0 p/ )G v ;%8ZQUPPPPPPPPPPPPPPPPPP} W*EE}}}ÜY=p0]5du܋}} }܉}}ÜY{=pj]5du؋}} }؉}}}ԋ}YF=p5E5duċ}} }ĉ}}ÜY=po]5du}} }}}}}ÜY=p(]5duȋ}} }ȉ}}ÜY=p]5dű}} }̉}u uЋuuEP}WE}йhuЉ1uqAp}} ]uuuuĉuuȉuủuuЉuċuԉuȋu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%S]Eb]EEE]E!]E0R]EaEkExEEEEXCnP$n/4v=[.;gqS9 MASKLINEELEM}wB}HHB@HBWHCB>>E $=pCB3>>E?]d}BB 9?Y?? p: ????]9$5 @B# u @B @??? > <?u2 A< ; 5G  ;%8{rUPPPPPPPPPPPPP}ԋ} WMEEE}ԋ4] S]SEÜY=p]5du5`u}} }}}}}}}ԋ0] S]SEÜYZ=pIV]5du5`uЋ}} }}}Љ}}}܋u u؋uűEPEܵ}عhu؉1ủqAp}} ]uuűu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%]]EEw]5du]EE]5duEE͐ n@yd!{-2hP\ PSP9 MASKLINEAwBHH"HBWH($}C]]BE@>>E?Y pBB E?E?? F ?`?} }B" @B  @B ]@S?E?? RI H?T?H G NAG5 ur  ;%8&UPPPPPPPPP}܋} WEE}܋_8} W}WEÜY>=ps-:]5du5`u}} }}}}}}}ÜY=p]5du}} }}} ]Uh9YQp}} ]uuu܋uu܋uuuuuuuuuuuu uuEEEE }%]EE]5du]E EE␐ &r).B_3=WS9MASKLINEwBH"HBWHCB>>E E$CBK>>E? BB Q;%?5?? R PMGP ԋ};%8UPPPPPPPPPPPPPPPPPPPPPPPPPPPP}} WEEE}ÜYg=p0V]5dű}} }̉}}}}ÜY0=p]5du}} }}},] S]SEÜY=p]5du܋5`uċ}} }܉}}ĉ}Ћ}Љ}ȋ}ÜY=pD]؋5du}؉} }}u uuuhEPENjEhu1uqyp} W5EEE}ÜY=p]ԋ5du}ԉ} }}}}}ÜY=pE]5du}} }}}<] S]SEÜY|=pkx]5du5`u}} }}}}}}}ÜYB=p1]5du}} }}u uuuhEPENjEhu1uqyp$]E]E]EE(]5duH]EW}} ]uuuuuuuuuuuuuuuuuuuuuuuuĉuuȉuủuuЉuċuԉuȋu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }% ]ED]ES]EE]5du]EE&E3E@EbEXEeErE뗐 8c+"qSTK$|<A eP@yi `'1?S9INITELEMwB]BC9MASK-SYM>>E BHH9VALUEB@HBWHCu9u VALUES-SYM>>E $u؉CuBuT>>E?uBB u^u???u _  ?E?B" @B B@B E@Q???] b a??v?a?   @B @B @b c? vvB ` ZGT ;%8ypUPPPPPPPPPPPPP}ԋ} WKEEE}ԋ@] S]SEYN=p'=JE5du5`u}} }}}}}}}ԋD] S]SEÜY=p]5du5`uЋ}} }}}Љ}}}܋u u؋uűEPEܵNjEعhu؉1ủqyp} WE }hyAp뼿EEEE5du]EE]5du}} ]uuűu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%EE8ydy-2,hNZ'S9INITSwBCBB>>E%HyH"HBWHCpVB>>E%$ECBe>>E? uBB nE?E??5 o ?^?]B" u@B  @B @u?uE?? ur q?R?uq p EjG EB ;%8UPPPPPPPPPPPPPPPP}} WEEE}_D} W}WEÜY=p ]5du5`uԋ}} }}}ԉ}}}؋}$] S]SEY=p*E5du܋5`uċ}} }܉}}ĉ}}}Ћ}] S]SEÜY=p{]5du5`uȋ}} }}}ȉ}u űuu}WE}̹hủ1uqAp}} ]uuuủuuЉuċuԉuȋu؉űu܉uЋuuԋuu؋uu܋uuuuuuuuuuuu uuEEEE }%]EE]5du+EEEEE5dus]EE]5duEwEEuj$05Wm|S9SwBHH"HBWHCBBVB>>EU$C5But>>E?BB }ű?%?u? ~ u?u?uB" u@B  @B  @?%?? } %  yG ;%8YPUPPPPPPP+ueEsjjjjjjjjjjjjjjjjjjjhPhjh\ht$uuFuFuF uFuFuFuFuF uF$uF(uF,uF0uF4uF8uF<uF@uFDu~u~PWENju~ PWENju~PWENju~PWENju~u~PWENju~ PWENju~$u~(PWENju~,PWENju~0u~4PWENju~8PWENju~<PWENju~@PWENju~DPWEE}ÜYun=ptztb]5du}uuEu$.Yu?=ptAt<t75`uE딉]E랿EEX@%0; xY/~_@ f<lMZy *ITs*fuH"HsBBBBBBBBBBBBBB%%CLOSE-ON-STACK ALLOCATE-CLOSURE-ON-STACKHBBB$E?9LEXERE?U  B 0J;%8v=u8U3VEu5Et hEE3(;FH<H9RRQ9vMAKE-READER-STRINGDmask mm a[23:22]; endmask values v1 22 b default 21 a endvalues end$HCB>>>E%? > >  ] U BH@p U  H@ZU}t& u }E% u ɏ$%E;J$V5BBH9RRFBnH9LLL>4BB ?  >N??>(??  ` }J;%8v=u8U3VEu5Et hEE3(;FH<H9RRE9MAKE-READER-FILEu"/home/juergen/lisp/micasm/test.mic$CB>>>E%? u> >  uuJ;%8v=u8U3VEu5Et hEE3(;FBH<HB*/home/juergen/lisp/micasm/microprogram.mic$CB>>>E%? > >  X2;%8v$uUuuuE%(-BH59&MASKSE$Y9 MP-GET-MASKS=9STAT=    `X2;%8v$uUuuuE%(-H59u &MASK-FIELDS$9GET-MASK-FIELDS==  B _ U  H2;%8UPPPPPPPPPEEhEEEEEEtuuhuEuEEu܋uu܋uuuuuuuuuuuuuuuuuuE uuE%}wu}wu}}}}}WEE%(p0;Me~#BBHBHBH CONS-2ARGH ENDP1ARGH]H5WB$I9 MP-ADD-MASK? B E?e?  ?' B~tail- @ MASK-FIELD }@9 MASK-LEFTS U@P9MASKS PP@PPP?e?   E? EB? ~{B??B?=?~store 5@B }>i?B>Q?B>??B>,?B = B  U  Hf;%8vXuSUPPhuEuuuuu uE uuE%\#+JaH9 &INIT-VALSB$E9 INIT-STAT?p?  W>/??>'>? E B ~;%8v;u6UPPPPPEEEEut}wu}wu}}}}EPE뮐#7Djvp9MIC-FILE-OUT-MASK^HBHHB$`9 MIC-FILE-OUT?}}?U  B >z?~B @B ]@?U >n?=u>;>B>'??U  B ;%8) UPPPPPPPPPhEPEuhhhhhEEuEEEu܉uEtYp|+l+uыuE|l+щt?p}tuhE׻lŋ}wu}wu}}}}EtuhE]uuuhEh}WE( y-"5=CNSX]bio~-6DOTERROR+malformed element ~a at output of mask ~a~%^H @~8,'0X~%B ~32,'0B~%NUMBERPBHBBBHBs?NB>G?B>9?B>1?ZzB $ B u`n ;%8v^uYUPPEEEPEEPEEE$E,8@Q\guHq9yMIC-COMP-INSTRS H9MIC-COMP-INITS}_H$p9MIC-COMP?9MPROG?%  >`? E@?% >U?uBI>I?zB>D?=B>0?uB>(?B>??% uu B u]6;%8v uUPE=u !)HB0BHB9 IS-MASK-P?9E?  >>z?   ]6;%8v uUPE=u !)HW_HB9 IS-VALUE-P??  >>z?  B ;%8v5u0UPPPPPEuuEut}wu}wu}}}}Et}WE롋Et}WE/>g{9DO-VALUEB9DO-MASKBHH$u?} 9MP-INITSB SE?U?  ? B @d9EE @}?U? }  ? SBL> ÜB>k?{B>3>B  B  U } Hub;%8vUuPUPPuEEEuuuuuuuuu uu%$Y^HBHu$ ?EBB ??%  >(?E?? > >Bf + B  U E H]k>;%8v/u*UPPhEEuuE%38HBW$9 SET-INIT-VALS?9IDu HHB???  >"????   u %Y2;%8v"uUPhE%&+H5$9 GET-INIT-VAL?YB UPP+?e?E  j>!?jj?j?j j! j  Br  ;%8vbu]UPPPPPPPPPPPPEEuuEEEEut}wu}wu}}}}E=uCEEuEE؋EEuuصEEEEEuEEEEuuE3 19H\k HB_HBHH]HBHBE?u 0BB $P?E? % -? EB @ @uB  @W Nj@9PP P@B[ @?E?n - , * ) u( E'?u $wB?? =B? B?7 v{B? B E @랿  @B  @* 0 / .? =B? x~B? j{B? wB>`?B>L?=B>=?B>5?nB>$?B &- #B  U  H9SHOW-DB=;%8vu U%BH3$LN9 PRINT-STATS=ACLO= 7 H56 Z ;%8vMuHU3VEu5Et hE%3(;BHQVH<HB9*/home/juergen/lisp/micasm/microprogram.mic $3 9TST?  >L?f > ? < u:; R ;%8vEu@U3VEu5Et hE%3(;BINH<HB*/home/juergen/lisp/micasm/microprogram.mic$ 9 GET-MIC-PROG? > ? A J?V@ B 9b;%8voujUPPPPPPPPPPPPPPPPPPPPPEEEEEEEEȋEȨutE}ȋwu}ȋwu}}ċ}}ȋ5ũ} u E̋Elj MEE}}EEEEEEtEеEhhEP]E u@+p:}}WEEủUS뼋}wuԋ}wu؋}؉}}ԉ}EuuEuMtE܋E<u+ǁp!}}}WEE֋}wu}wu}}}}E;EuE;Ep}WEu,)5WkxB$19Vo WYH 1+1ARGHH5H AT*2ARGSHS\ CADAR-1ARGHaddr-diff = ~a ~a ~%REVERSEB HBHBqH9 *MP-PAGESIZE*HH^H@$-9ANALYZE?I9FIELDW KASK?DU? M <?[oBe @9PAIR @HB @9LINE @j PPP @E9RES  @E @I E@9RESLA @9RESA @uB0 u@u9ADDR-0 @uu9MP @?U? a _ u] \ Z }X W U T R P?FZoP?9B?{B?B?=B?B{B?SRB?sPRGB?ZB?=A-M=B?( EoB?eoB?B?B?l@{B?KE }oB>o?B>[AB>-?B N< IB P" ;%8UPPPPPPPPPPPuE EuEEPEصEظPEEEEu؉uEu"tEɏD$%}wu}wu}}}}E<u<Ɓup/uEtuuu܋EE}}vEǐ>-_FdKpWBHH=HHGEH` SYMBOL-FUNCTION$SYMBOLHCARJW$9ANALYZE-FOLLOWS? 9FIELD-19;%VALUE-19PPFIELD-29VALUE-2 x ???u& } ?E @S @#j @9LIS-2 C-@O9LIS-1 H @B ??I?I& O   ? ~ new-value-  @ ?= >;{'?UU @ ??B>t?vB>h?=B>[?B>O?B>B?PB>1?B ~ vB r;%8v5u0UPPPPPEuuEut}wu}wu}}}}}WE뱐/>k9 DO-MIC-BLOCKHH$+?9 MP-INSTRSB }?hU?  >o?~B @9LBLOCK }@}?U? t >3>  uu E U  Hg:;%8v-u(UuuE E%#16HH$CH>>E%= x  ;%8v}uxUPPPPPPPEE u MuG}p<}EEEEEu%tu븋}wu}wu}}}}EP}W}WuE}tE] upEoS됐T 3)8cw4H9 PROCESS-MASKS DHHH^HBrHH]HBHB?NAMB ?E?  ?B @PS P@=9 IS-FIRST-LINE @?9MPC @ ?E?N    ? wBM?u `=B??%B>{?B>g PB>$?B>?JB E B Pb;%8viudUPPPPPPPPPPPPPEEEuuEu7tEuuEuXt}wu}wu}}}}EEuE냋}wu܋}wu؋}؉}}܉}}tNEEԋEPEPhE EuuE}Wuu EhEPE$cErJ#8BV-9illegal left side ~a in line ~a: no such field in masks~%9 ADD-MASK-LINE HH5BH^HBHHB$? SBQ9IS-FIRST  ?L?P?&?6  -? Z B @9LINE-EQ @;%59 MASK-FIELDS @u u???&?6   w?N }=?<?>}E @9MM @ ?'   @  @  ?L B?  M>B?$B? ~B? j}B? IjB? EU @ ? =B>g>>B>I>B>(?dB  - B U{N;%8vAu>>E ?I? u >% uJ{?u> uZ=?  GgF;%8v1u,UPPP}EEE@9Eu 2(:BHBMHBEC>>>E ? fI+?5  >,UZ?5>Zm{?5  G U BH ;%87.UPPPPPPPPPPPPPPPPPPPEEWE EuEEE+ueEEsjjjhhjhht$uuFEEE+ueu$.Eumtu$.}u$.}hhEĵuEEuuủu Eɏ$%}wu}wu܋}܉}}}EEu؋ENju~u~+uePWE}Pu$.EuFuFE}hhE}WEPE M}}xEPuF^uFEEu>u~u~uFEuhEhEPE uX }B>G?B>3?B E` B  U  HLOAD-XREF-INFOL&;%8vuU%BHC XREF-INFOCALLSCDRBX}FUNCALL CAR$CONSENDPCADDRpCADRTLF-NAME-BINDINGTOP-LEVEL-FORM-NAME}DEF0;+ REFERENCESBSBBBBBBBBBB;SETSBBBBLISTBWBy=MEMBER NOTBBBBBBRAAuBBB a CONSESuHBBBB-E5EBBB@B9EQLBSBBBUBE;BBUBB  BBNULL BBoLOCATIONeABBBB`IBSyPEWITHOUT-INLININGBBBBEuBBBBE HUEBBB*uuBBBBD05BBBBBBBBBU^BBBWHARLEQUIN-COMMON-LISP SUBFUNCTIONoDEFUN@BBYBBBBBBBBBHVBBBBBFOURTHTHIRDBSECONDPPB/=NTHBBuEBBMeBBBBEJHeo-CADARSG1+BuBBBBB@KBBB CODE-CHAR*BALOW- %RETAG-SHORT%RETYPE ;%CODE-CHAR-NO-CHECKPPP>(FIXNUMPB$BBBBBBPBE5BBB@DBBB}wuBBBB</uBuBBB63BBBEuBBBB:LOGAND6BBBBBBB CHAR-CODEU CODE-CHARBIBLASTBBYLNOYL@BBBWBuBBBBZOW I-5BBBU1make-safe-for-tail-call-397B PLISTPS BBE5mBwBBB& BuBBBBB7I BBBB] u BBBBIIOBWBBB :BBJeUa- STRING= CONSTANTS'SYS-NUM  RAW-LOAD-HALF RAW-LOGAND[ SYS-=\ ARRAY-TESTARRAYP STRINGPB5uBASSOCBB5B `BBBBuBwBB}BBBwG=BBBB>SYMBOL-FUNCTION`BJKBBB:BB+BB[uBBB?IL?R[EPTUUU)E)EIU)EUU%URTUUURRTRTUUUJQIUUUUURTUJQUUUJQUJQ)EIUUU)EUJQU%UJQQ&RTUUJQUUUUUU%UUUUU)EU)EURTJQU)EIU)EUUJQUU)EUJQUUU)EUURTURRTUUUUUUJQRUU)EI)EU)EUUUUUUUUU)EUU)EUUUUUU%$CuB>>>E%=