`vNL|f=~=v=MFINXD =~gu =g=fc~)(E.)HDB)n 64=h.##FKtu%Ru [[@cd@d..fZghj6.6T?y xz2fD,fNQbW`XOTOK1vIrJ0RP= R#x "#"  /.6nRO,0ԼR*R++,-,8415$ R5n888`66T.   j 2 |  <VVmZ@`?J?@(ONNOJJvJJzmZmZ`next-endNm(lit)/ ]N<(llit)/ ]NN(dlit)// ]Nexecute _N`perform _ PN$branch ]N?branchJgT ]N(loop)RhM TM ]N(+loop) іhM TM ]N(do) "- TҼ-- ]N(?do) "f`rti Ю/ ]Nj . Ю/ ]N(leave)P*^ ]N`(?leave)Jf ]Nx(of) f T  ]N` ]N ]N(endof) ]N (endcase)  ]NB ]Ndigit "<0k< k <1kؒ<'j./< ]Nhash" _RЀЀҀ/ ]N(afind),r.c<"G WX Vf&" T¼."A!g/<`/< ]N"G.`B ]N6enclose  W,gS./Jf R/S/ ]Nf S// ]NвfS/R/ ]Ncmove  _"_`QB@Sd ]Ncmove>  _"_`!QB@Sd ]Nul* fB ]N"fB ]N46H@J@fp`HAJAgЃH@B@Ђ/ ]NJ* fB ]Nj2D"fB ]Nk 46H@HAЃH@B@ЂD/ ]N`D` "fB ]N46H@J@fp`HAJAgЃH@B@Ђ/ ]N6um* "/ ]NJf&BCHCf8$BBHBj"BAHANu&6 "BAHAHBBBЂNux$抴dRbgSЁ" Nu$&SR⋶bRcR誄&*HCHCBCڃnR" Nuum/mod" aB// ]N/mod" j(DJj DaD/`/aDJgS`.`"Jj/DaDJgSӗ`.`a// ]Nand  ]Nor  ]N<xor  ]N|notF ]ND+ ї ]N2-  ]NfnegateD ]Nv?negateJjD ]NabsJjD ]NTl+ ї ]Nl-  ]NlnegateD ]N?lnegateJjD ]NlabsJjD ]N l2/ ]Nmin l. ]NDmax o. ]N4lmin l. ]Nplmax o. ]NZup@/ ]Nsp@/ ]Nrp@/ ]Nup!&_ ]Nsp!._ ]Nrp!,_ ]N>r- ]Nr>/ ]N r@/ ]Nexit*^ ]N&unnest*^ ]Ntuck "/// ]Nnip. ]N`flip X. ]Nwflip H@. ]NH0=JWHH/ ]N0<>JVHH/ ]N0<J[HH/ ]N0<=Jf /< ]N[HH/ ]N0>JfB ]NZHH/ ]N0>=JZHH/ ]N < ^HH/ ]Np> ]HH/ ]N6= WHH/ ]N8<> VHH/ ]Nhu> UHH/ ]Nu<= THH/ ]Nu< RHH/ ]Nu>= SHH/ ]NP>= _HH/ ]N<= \HH/ ]Ndrop  ]N,dup/ ]Nover// ]NLswap "// ]Nrot"$ .// ]N-rot$ ".// ]Nt2drop   ]N2dup//// ]N2over// // ]N2swap "/////@/A ]N<pick ЀЀ/7 ]N1+R ]N2+T ]N&1-S ]N42-U ]NP2/ . ]NBu2/ . ]N^2* . ]N4* . ]N8* . ]N^cset _  ]Ncreset _ F ]Nctoggle _  ]Non _ ]Noff _B ]N+! _ ѐ ]Ntoggle  _ ]N6@ _/ ]NLl@ _/ ]N$w@ _B0/ ]N\l ]Ns->l ]Nl->n ]N2n->a ]NNl->wB"0/ ]N\n->wB"0/ ]Njlwsplit B4/H@4/ ]N@wljoin > ]Nlr>/ ]Nl>r- ]Nca+ ї ]Nwa+ ї ]Nla+ ї ]Nna+ ї ]Nca1+pї ]N8wa1+pї ]Nla1+pї ]N$na1+pї ]NJ/cNm/wNm/lNm/nNm/c* ]N/w* ї ]N/l* / ]N/n* / ]N\0Nm1Nmn2Nm3Nm4blNm Fc/lNm@trueNmXfalseNmj#vocsNm~ta1+pї ]N- *_ ]N*/mod$ ""HAH/H/ ]N ]N*/$ "H/ ]N ]N"upc, am zn / ]Nlcc, Am Zn / ]Ncomp R _"_Sg gj/<`/< ]N`B ]Nd caps-comp R _"_Sg<am4<an<<am <an<gj/<`/< ]N`B ]NBpack _ "_/`QB ]N(')/ ]Nskipstr Vp//R|, ]N (")p/ /R| ]N Rtraverse  _f`/ ]N>name WSJ g < c. ]N ,count _B// ]N .versionNX&1.1B ptitleNX&Forthmacs version EX&%Copyright 1986 by Bradley ForthwareEB user-sizeNm linkNl!RentryNl saved-ipNl!saved-rpNl !saved-spNl!up0Nl!#userNl!uallocN!T!b[User area used up!!Th!,B nuserN"lB!ltuserNL"lB!sp0Nl"Vrp0Nl "tdpNl$"'tibNl("warningNl,"fenceNl0"voc-linkNl4#>outNl8"contextNl<#:currentNl\#RstateNl`#&baseNld"dplNlh#jcspNll#hldNlp#(#outNlt#(#lineNlx#priorNl|#lastNl#spanNl$&capsNl$:cstrbufNjiformm.tosHmbm#fstrbufNjARTOCAL.RSC%d>cstr"_$I _p`Q/ ]N$NcstrN$\&B&cstrlen _ JfS/ ]N&zfstrNF&%r B&f>cstrNj,$_ I~`QB$FN&c>fstrNj @C%x$IRfS _/ N&f_close ??<>NAX/ ]N'Rf_deleteC$bN' /?<ANA\/ ]N'rf_createC$bN' ?/?<32>B3Jfdavail?N01T2VpB0(get-fdN3T3@L|&>36>n2>B3#fbufsNm4f/fbufNm3fbufsNm=g3^ init-bufsN4r4T &4a2B4|get-fdN4&O[ all fds used 3T2>M44~42B4 expect-freadN6N0TD0VDE|$0T~$0T.B58 expect-fwriteN6NB4 string-flenN61 T1T<B4tib-fdNm=f5 expect-fopenN6&0FHP212j1 &5J1 &51 &62 &.2 &52*6&B6 (interactive?N>lT6&pB60alloc-fdN2>TF3ha2B6 init-filesN43l3 &6&76B6B5syncN16T1fT1fT16B6(fflushN1~T~7j16T1T1TV1d1T1T1~[Flushbuf error1TF161fB4fillbufN2T1O,1T1 TV1d1T1T1T~161 T1LB7(ftellN1d1fT1T0B88>bufaddrN1dX1T~B7` shortseekN1T<1d7N8F816T/1fB8(closeN72V11T2TB9p(fseekN7jN8F1T1LTPNNrN67N8F816T/1fB9(feof?N1fT16TB:(filec@N9:$ 0| 1f0HB:>(fgetcN1fT16T1f0H*1fT9*:$ 0| 1f0HB:r(filec!N91f0d1~B:(fputcN1fT1LT1fT9*1f0d1~B9copyinN1LT1fTNF 1~1fThF1f,~B;DcopyoutN16T1fTN1fT~~F1f,~B:(fputsNV~h;P7j1fT9*B<(fgetsN7jV~V;.1fT9*:$jh0jhB;closeN09|B8ftellN08B<fseekN09B<filec@N0:LB=fgetcN0:~B=6filec!N0:B=TfputcN0;B=rfflushN07B=fputsN0<B=fgetsN0<^B= fsetbufferN02B=fsizeN01d16T1T01T2*TB7*in-fileNl<?fillbufNF00|p$9*16T1fTB>vscanbl"_p$I _ 2< t`´_n/`t/  ]N>skipbl _ 2< t`]l /`t/ ]N?scanto"_p$I _ "/t`²Wf/< `t/  ]N?>skipto _ "/t`Wf/`r/ ]N?getwordN016T1fT?>  >>1f16B?getcwordN0h16T1fT  ?J>1f166` ~B@"'wordNOTH~B> blwordN@>lT?BlT?@h>lT@0B@ skipcwordN016T1fT?>1f166B@(loadN>lT>lh>lT<>lB@"loadNF2j/OjA,eX& Can't load DEe[BAfloadN@ABA6 close-filesN3T3@L|2>01T2V9|2>BB(.(@NH)_ DBA(@NH)>lTAFBB",NOT S"BB,"NH"_ BBB."@NQX&C BC$"@NH"_ #vTQ \B02  BC>""N@02T(BBB[""]@NQX @ BBC\@N0TE|E|>lTAFBCtypeNnC(emitNn>^emitNnD(keyNnCkeyNnDLkey?NnCbyeNnD$ interactive?NnDexpectNnD8promptNnD`statusNnD#outNnD#lineNnDcrNnDemit1NoD*D,BDtbellNmEHbsNmDlinefeedNm EcarretNm EspaceN`D.BEspacesNd* EBE\ backspacesNFD,*EdDBEbeepNERDBEn(lfNOB,E|DBF:(crNPBEDBF^lfNFDBEcrlfNFhFBF~tibN"TBFholdNH#,#TBF<#NP#BF#>NN#TPVBGsignNH-FBG,#N#TMNH V@H'~H0~FBGR#sNGZNNBF(u.)N<FGGBE"u.NGDEBGu.rNGVEDBG(.)NF<FGNG6GBGs.NH2DEBF".rNH2VEDBH((ul.)NFGGBGul.NHDEBHul.rNHVEDBH(l.)NR*FG~G6GBIl.NI DEBI.l.rNI VEDBHr.N#TH p H`GBHX?NTI|BIH(.sNP* P>JI|BIt.sNPX&Stack Underflow "P IX&Empty BIokNBI(promptNDTED#vTX& ]  X&ok BIbitset _ "F ]NJbitclear _ "F ]NJbittest _ "F0g/<`/< ]NH max-imageNmw@Jrelocation-mapNm;K<>relbitNXfKPBJTset-relocation-bitNnJb(set-relocation-bitNFXFK2~PNFKhJBK"init-relocationNK2fHMFT &KPa2LKPh &K &KnBKZforthNnLVboundsNV~hBK~/tokenNmKtoken@NdBLtoken!NKO,BLtoken,NOTLOnLBL/linkNmLlink@NLBM link!NLBM"link,NLBKu*dNBMNm/modNBL/NjBMbmodN6BMmu/modNBLprollN Fx.6BMx3dupNF~BM84dupNBM2rotNHMHMBNl*NBNTlnswapNhBNfl0=NBN|ldupNFBN,nlswapNhBNldropN6BNl2dupNBNlswapNhBNl=NpBNlnoverNVBOl!NBO$landN<BO6hereN"TBMallotN",BOJ,NOTOnBMc,NOTOnBOw,NOTOnBO|l,NOTOnO,BO?dupNFFBNbetweenNVh<BOwithinNJP BOberaseN BPblankN` BOpadNOTH~BPdepthN"ThMBPBclearN"TBPhexNH#BPdecimalNH #BPoctalNH#BPvbinaryN<#BQ (compile)NLBQ@compileNFL~LQBP\ immediateNH@$L`JBQ?compN#vT[Compilation Only BQ?execN#vT[Execution Only BR2?pairsN[Conditionals not paired BRb?stackN"Th4eX&Stack Underflowde"T["TTL[Stack OverflowBR?enoughNPJX[Not enough ParametersBQplaceN 6BQalignNOT*< OBSvevenNF*<~BSalignedNSBS +strN ~.SBQb"copyN ShBS"moveN  BS\ps-sizeNmT next-free-memNj;S init-mallocN"TTLTjBTt alloc-memNTjThH<FTjBTVfree-memNTj,6BS#threadsNmTvfindNVh"MXJBUfindN$x6#H>.MFXXDF$TV$p6U&F 6BUcompareN$DT KRnBTupperNL|* >F*hBT>lowerNL|* >FLhBU canonicalN$DTF VZBVNdefinedN@VUNBV?missingN&e@ DX& ?de[BVliteral@NQHOBWlliteral@NQZOBVascii@N@.fBVcontrol@N@.`J<fBWx'NVVBW[']@NWQ &LBW [compile]@NWQBW6("s)N :6JBX(.")N :DBXtrimNU<M MjVM.M~BWoriginNmUD base-pageNXHBXvoc>N`BX>threadsNa2lBX4(exceptNX#HML|*.F>MpX>M.MJBY(forget)NaF#T[ below fenceF#MXFXX#`Tp[&I can't forget the current vocabulary.FXYF#M.jFX lX>M6"BXforgetN@V#`TU&VYtBYfdumpNEL|* >tHHBZdumpxN@HZBX?errorNnZ(?errorN@"TeEDEde[BWV-?errorN~$eEDEde[B[(abort")N :[lB[^abort"@NQ[C B[abortNn[(abortN"Td*BZ ?conditionNp[Conditionals WrongBZ\>markNOTOB\F>resolveNOTVhB[markN\RB\ ?>resolveNh\$\rB\?if@NQ\B^zelse@NQ\\B]while@N^B^of@NHRnQ\RHB^case@NR#TjRHB^endof@NHRnQ\Rh\rHB_$endcase@NHRnQ#T \r#B^wordNn^\forth-83@NX&0This implementation is nearly FORTH-83 standard,EX&9but it uses files instead of BLOCK and has 32 bit stacks.EB_n>linkNMB]l>nameNM~B`Tname>N ~.SB`nlink>N`z`B`body>NFtHN0FtHNH~B`>bodyNFtHNp T(FtHNpH~Ba&>linkN ``B`long?N#T.B_convertN.F#T:#T@a*#,6Banumber?NH F.H-pFH#aFH.p#NrN ~pBb4numberNna(numberNbBVBblengthNF<hTB_^moveN~ ~Bc(typeNL|*>D.Bc: -trailingNF(~J`JBb.idN DEBc.nameN cBcquitNncr(quitN"T"TH ~"hBT6B>lhBd4\itc@NCBd\dtc@NBd\t16@NCBd\t32@NBawhereNnd(whereNDL#vTX& Compiling X& Latest word was $LcEBdloseNX&Undefined word encountered E[Bd error-outputNndrestore-outputNneRliteral?Nne do-definedNn e do-literalNne do-undefinedNne"compileNVUNF e6e ff$Beinterpret-do-definedN6Bdcompile-do-definedN  QBf (literal?N bB66Bfzinterpret-do-literalNBfcompile-do-literalNa WDW$Bginterpret-do-undefinedNe DX& ?deCBg>compile-do-undefinedNe DX& ?deQe\Bg[@NP2B &en &f &en &g8 &fn &g &f$n#vBgt]NP B &en &f &en &gV &fn &g &f$n#vBh` interpretNnf (interpretNR@F f<6Bf."createN"THF#`TU&.eV DX& isn't Unique Ee6SOTMDOT$Lh OT #`T"FMOTM~M.hM.OT.OnOSHNOOkr ]NgcreateNnh(createN@Vi(Bh!cspN#Bj?cspN#T[Stack Changed Bj(hideN$LF``Mh#`T"M.BirevealN$LF``h#`T"M.Bj(;uses)NT$L`<KO,Bjd;uses@NjnQkhj.Bk(;code)N$L`<KO,Bk:;code@NjnQkrhj.Bkd dodoesaddrNl kdoes>@NQkrHNOkLLBj:@NR>jR#`T#HjjhhHOnHNOT<kr- K ]Nk;@NRjnQBjhBl recursive@NjBjHuserNlkr _ Ћ/ ]Nl>userNT~BljconstantNjOkr _/ ]NlvariableNjOBl wvariableNjOBm,crashN LLF &p@ DEdX& <--deferred word not initialized[BkdeferNjOT"Ol &mZhLkr _  sNm(isNa2lLBlisNWnBm voc-link,NOT#MMD#M.Bn@ vocabularyNjUMF"FO~hL|*X>M.MnPkrNl#HM.Bnn 2constantNjOOkr _// ]Nn 2variableNjOOBn* main-taskNmfo@ init-userN &oPa2LBnpauseNn$mNsingleN &. &onBo definitionsN#HM#`M.Bo cold-hookNn(o (cold-hookN LboQ*BocoldN+ojTHT &02a27:L*qzH))od*Bp(warmNopd*Bp warm-hookNn,p (warm-hookN"TBp caller-stackNl0oZmemtopNj=p cold-codeNjG'O0.yq'K,O'N 'O( 'OKp4Il` ]Nq warm-codeNjKp&yoVIl`,k .k ]NpxloadN`_FX&Loading DEABqj colon-magicNmNq word-typeNFtqp6q TdBqis!NFr &DVra2lL6 &!ra2la2Bq(is)N TrBBr8is@N#vTQr WrBBraliasNjjVFhLOQ 6X& can't find d DjkrNFLhTeBq32-bit@NBs16-bit@N*[Not a 16 bit forthBs32\@NBs16\@NsbCrl+!@Nsb,slnover@NsbVonlover@NsbVtlswap@Nsbht8l=@NsbptRl<@Nsb@thl>=@Nsbt~lbetween@NsbP tlwithin@NsbPNtlliteral@NsbW$tland@Nsb<sw->l@NBt lvariable@Nsbmu lconstant@Nsblu0\c@NsbCuN(s@NBBs immediate?NJH@<Bud printable?N`HPNBt>user#Na2TtBu'user#NWuBu>typeNRPhPhDBulmarginNjvrmarginNj@u?lineNDT~vVTXEv>TEBv`?crNvlBv??crNDTEBv0 to-columnNDT*dEBvtabstopsNjv ?to-columnNR~vVTX6Ev>TEDTEBvH.tabNvVTwT~v>T.>DT >nwTw0BwzrootNn4LlalsoN#HFM~XBonlyN#HJ.F#H*X>M.M &wXhM.wBwexceptNWYBx$sealN &wYBpreviousN#HFM~hXX#HX.M.BforthNLbBx definitionsNoBy find-vocN#MFX*XXpXj0BxorderNX& context: #HML|2>MXX>MyJdMHEX& current: #`TyJdBy<vocsNH@vV#MFXvdMFX6BwhiddenNnDwzth@N#TQ`_f<#Bztd@N#TQ*`_f<#Bw.dN#TQ*hI|#B{ .xN#TQhI|#B{4"catNh~h .<F~.hhB{^".N DB{ nullstringNjw csearchNhp6660FN Bh6h6B{wsearchN~hp6660FtN Th6h6BztsearchNh6660FLN Th6h6B|^searchNhp6660FTN Th6h6B}N word-boundsNa2 &BVOT|OTB|(patchN}}Z X&Couldn't find it6B}(wpatchN}|l X&Couldn't find it6B{npatchNW~B}wpatchNW~NB~@patchNWW~B~+fseekNR<h=B~fseek-from-endNR>ZN=B~fexitN>lT>>lT=B8newlineNm uvifdNj=g~ofdNj=gb read-openNF2j/F 64X& Can't open s{X& for reading. E[BreadingN`_B write-openNF2/F 64X& Can't open s{X& for writing. E[Bnew-fileNF/"X& Can't create {E[BB2writingN`_Bz append-openNF2/O,6T>T=B appendingN`_B file-exists?N2j/F <B#timesNj~timesN*,T@*">lT01T1fBhmanyNDj">lT01T1fBlobyteNH<B4 assemblerNnTz [assembler]@NB[forth]@NLbBwcreateNjOB instance:@NQkQtB wconstantNkrNtBhereNndP,Nnhbyte!NnlvnormalNnpamoveNntn#Nnxasm-set-relocation-bitNn|extraNj  addressesNj(#deferNj(shiftNF * f* BregandNH<B amarkN*4T~BdpushN4T~4,BpopN4,4T~tBimmed-opNj nimmNj<undeferN^T6Jd^T<p l6l4T*B>~Z6>~tl4HPh^B>sizeNjTfinishNLlvB0sfinN:TPBbsorN:TLBd0NBd1NBd2NBd3NBd4NBd5NBd6NBd7NBha0NBa1NB *a2NB :a3NB Ja4NB Za5NB ja6NBza7NB~srNB>ccrNB?D>eaNhLB)NHB)+NHB-)NH B d)NH(hB#)NH8B&l#)NH9BH#N*^<JO,H<Bbl#N<^JO,H<Bdi)NhH J~~LFH:p6H;H0LBdi)lNHLB?modeNleX&$Bad addressing mode for instruction @{EX&while assembling $TcEe[B altmem?NFHH<P BJdreg?NFHP Bareg?NFHHP Brspec?NFH<XBt?altmemN~B?dataltNVH@L~B?dregN0~B swap?dregNhB?datN0VHH<P L~B?aregNV~BN?altNFH9~Bh?immedNH<p~B?predecNFH H'P ~B?postincNFHHP ~B?ctlNFHHP VH!H;P L~B?longN:THpBV specialmoveNlFH=p6HN`>FH?p6HD6HFh$fhFH=p6HNh:FH?p6HB6H@PB>regfldNH JBpregorN~LBJmovesizeN:TH2:TH@pH0 H B normalmoveNrF~hH8<NJLLPBmoveNhhL B|szNkrNt:BbyteNwordN@$longNlmoveN:Tf:BwmoveN:Tf:BbmoveN:Tf:B\movemNFH<pL6F*XVH<VH<<~HLJh6F*XVH<VH9<~HH*^bH@LPB1reg:NkrNt LlB,swapwNH@pextwNHextlNHlinkNNPunlkNNXtrapNFHP [Trap number out of rangeHN@LlBdbuntilNLHPLlZlBRdbraNHh`B0reg:NkrNtlBillegalNJ^resetNNpnopNNqrteNNsrtsNNutrapvNNv rtrNNwstopNHNrlvBea1NhLlB|ea1:NkrNtBFnegxN@negNDXclrNBnotNF2tstNJea0:NkrNtPBnbcdN0H peaN0H@TtasN0JBjsrN0NxjmpN0Nimm:NkrNt~BsubiNaddiNcmpiN imm2:NkrNt~hX*^FH>p6H|H?p~H<P LlBoriNandiNeoriN shiftop:NkrNth0Lh0hH Lh~^JdtFHXLX&/Immediate shift count must be <= 8; assembling e$TcE[JhFH<HJhH<LLHLlBrolNrorNroxlNaslN>asrN,roxrNflslNtlsrNbbitop:NkrNt~0HLHL*^hPBbtstNbsetNbchgN@,bclrNPmultop:NkrNt h$PBchkNhAdivsNhdivuNhPmulsNhmuluNhleaNHAhV hPBarithop:NkrNt0  HhLLlBsubN6addN6 arithaop:NkrNthZbHLPBsubaNaddaNcmpaN° movepN*[$The assembler does not support movepB>bc:NkrNthZ<FH@~LlhllBpbraN`bsrNacondN8B0alwaysNBneverNBtNB&fNBu>NBZu<=NBju>=NB|u<NB:0<>NB0=NBccNBcsNBJvcNBvsNB 0>=NB 0<NB >=NB <NB ">NB2<=NBR<>NB?brangeN~BroffsetNh<Bcomplement-conditionNH^BBbrifNH`LZ~LlBsetifNHPLBmoveqN~HpLh~LlB*arithq:NkrNthrLhlvB`addqNxPsubqNxQbcdopNh0 "hHLPBbcdop:NkrNtBsbcdN6abcdN6ZaddxNHBHsubxNHBcmpNHLlBleorNHL lBcmpmN~HLhLlBexgN0 H@.Zh0H ZhLlBblogicop:NkrNt0h$h HhLLlBorwN@andwN,ifNZF~BthenNFZh.B>elseN2FhjB beginNZBwhileNFBuntilNBrepeatNh2jBagainN2BextN:THp BswapNBborN$B*andN6BupNRBrpNBvwNbBipNrBspNBrmoveNBnextN""Bend-codeN#T.$TcX&: stack depth changedsEj#`T#HBc;NFB;code@NjnQkrhBcodeNjHOnOTTKhJ#B'bodyNWa2B&'userNWu.B8 init-assemN &OT &Zn &O &ln & &n &K &n & &n & &n & &nBr (cold-hookNprBlnotF ]NcnotF ]N"<< "/ ]N>> "/ ]NB<>a "/ ]Njl<< "/ ]Nl>> "/ ]Nl<>a "/ ]NstructNBfieldNjVO~krNt~BreservedN~Bh_magicN&Ph_tlenN&fh_dlenN&zh_blenN& h_slenN& /gem-headerNmp_lowtpaN&p_hitpaN&p_tbaseN&p_tlenN& p_dbaseN&(p_dlenN&>p_bbaseN&Rp_blenN&hp_envN&,|p_cmdlinN& /base-pageNmgetbyteNT=BBgetlongNHJ~HJ~HJ~BheaderNj`v get-headerN@T=[Couldn't read header@^tH`[Not a program fileBb check-headerN@rdX dL@dXJdL@dXtdL[1The base file header does not match the base pagemB4 to-relocationN@rd~@d~@d~T=B2splice-relocationNrX >*H~hV~Kh 6T<Blbsplitr //// ]NputbyteNT=~BputlongNBdotNjold-dotNj #reloc-bytesNj8 first-timeNjNnon-relocated-pieceN(TT(TT=Bh relocatedNTdXTf(Bput-byte-deltaNFH HHBputdeltaNT(T^T^ f Tf(BH do-relocateNn2scan-mapNX(OTX*D>>XfKPKOTB write-textN & &nBDwrite-relocationN &V &n^B text-sizeNOTXBsave-relNOTXK2XHX&;Warning: The dictionary is too big for the relocation tablehE@r@T=TT<BrssaveNj rssave ions allot v#rsNjgetexcNjaNq!HNh!0< |"O0Q0<A"N Q"k #!4VxNq .exceptionN<oD Bus ErroroNoZ Address Error\H"opIllegal InstructionI.HX&Divide by ZeroBVnew-warmNpHfB vec!NFHJ~)6B2vec@NHh)H<Bold-exc-handlerNj Pcatch-exceptionsN<p<<N<H<H<B(byeNT<<TN<TH<TH<)BfnextlocNjr.clocNQTTH H,B.wlocNQTtHHE,Bshow8NH EB .norm-frameNX&Status Register: X&PC: EX&Stack : HT*EB4.rsNX& Return Stack:cEB.berrNQHtFH<X&Read X&Write FH< X&Not X&Processing Instruction H<X&Function Code I|EHX&Access Address: X& Instruction Register: tEB showstackNHNFB (cold-hookNB showcrashNHdZ4Vx[The crash dump area is invalidHDTEX&J 0 1 2 3 4 5 6 7EX&D:X&A:X& Exception # HHHHX& User Stack Pointer EBTstack:NjOTLOnB6pushNV,TB?emptyNFTBpopNF[empty user stackFTThh,Btop@NF[empty user stackTTBLtop!NF6B clearstackNFBsdepthNFThMB#bytesNj#popsNj#stringsNjreg#Nj+regN8T*8,B-regNH8,8TB trap-callNh8,BBsubroutine-callNlB callstackNj push-longNpB6 push-wordNp8B\ push-stringN"B convert-longNL &FB convert-wordNL &lBconvert-1st-wordN<Bconvert-stringN'l$T*X, &F"LH$, &Bdo-callNTO6FHX. BB+popN* ,B scan-argsN`_.Hl* T &  Ha* T & Hw8 T & &0 Hs(*$, &V rH- ZH}"X&Where's the -- ?[,X&Bad type specifier: FD.[,$T$\l2 T* B2 scan-resultsN`_.HlHaHw$Hb0ZdZs'0l@Z} (X&Bad type specifier: FD.B{N 8$B,Btrap:N &#`T#HBf subroutine:N &Bbdos:N*Bbios:NH Bxbios:NHBsystemNnc_conoutT?<NAX ]Nnc_conin?<NAT/ ]N_key?<NAT/ ]Nc_conis?< NAT/ ]Nc_auxin?<NAT/ ]Nc_auxis?<NAT/ ]Nc_auxoutT?<NAX ]Nc_auxos?<NAT/ ]N4c_rawcin?<NAT/ ]Nf_rename"|$b N' "N' //??<VNAO / ]N d_getpath T/?<GNAP/ ]N d_setpath"|$bN' /?<;NA\/ ]Nlf_attrib"|$bN' T?/?<CNAO / ]Nf_setdta?<NA\ ]N(f_getdta?</NAT/ ]NBf_sfirst"|$bN' T/?<NNAP/ ]N^f_snext?<ONAT/ ]Nd_getdrv?<NATH/ ]Nd_setdrvT?<NAX/ ]N t_getdate?<*NATH/ ]N t_setdateT?<+NAX/ ]N t_gettime?<,NATH/ ]N" t_settimeT?<-NAX/ ]NP s_version?<0NATH/ ]NB p_termres T/?<1NAP ]Nd_free T/?<6NAP ]Nd_create"|$bN' /?<9NA\/ ]Nd_delete"|$bN' /?<:NA\/ ]Nf_dupT?<ENAXH/ ]Nf_force T??<FNA\ ]Nm_alloc?<HNA\/ ]NTm_free?<INA\/ ]Npm_shrinkT?<JNAO / ]Np_exec"|$b N' /??<KNAO/ ]N4f_datime "T?/?<WNAO ]Nbset_exception_vectorT?<NMP/ ]Npuntaes?<'NNT ]NfescapeNmctl@NRWQDB(escNOBDBBesc@NRWbQB6(#linesp0(R/ ]N50lines"i!iH!iL1|1|O1|11| ]N44lines"i!iH!iL1|1|O1|+1| ]N40lines"i!iH!iL1|1|O1|'1| ]N25lines"i!iH!iL1|1|O1|1| ]NT#linesNn#columnsNmPatNOBEHYh`~D`~DB insert-charNDBJ delete-charNBVleftNHDHD,B†rightNHC*D,B:upNHAHE,BndownNHB*E,B kill-lineNHKB kill-screenNHJB insert-lineNHLB delete-lineNHMB\ erase-screenNHEDEBÚbeepNHDBĀdarkNHpBlightNHqBXsuspendNvX&More? DVFh&DHqpBĤexit?NDj,DVHqp <B..2N<FGZGZGDEBxd.2NL|*>Bemit.NH<Fu6H.D.BdlnNvFHH<EHEV~HEHL|*>&B.?.nNpX&\/6 <HzEB?.aNpX&v26 *HzB.headNvH EhFH<hH<H>EHH>EH>~~BdumpN#TQVF.L| >dņH#BduNFH@H@~B string-fwriteN6NjBȔ string-fopenN4&O[ all fds used 21 TF1L16121 &-1 &Ȩ1 &62 &.2 &52*BzevalNAB8 string-load@NsbɌj dma-bufferNj.*hold.tos1$`RTOCAL.RSCJ first-fileNjZlinebufNjlinebuf allot Ⱥstring2Njstring2 allot filenameNH~&B˾ .filenameN RDH hEB .filesizeN#TQ*H~dHH#BʪgetlineN0TE|p { p_Br get-filenameǸF6X *.* $h ?Bɚ save-stringNʸTʸBɺ(renameNhz+[ rename failedrBrenameN`_`_6B`.dirN$\6$\&F6X \0 DB(dir-attributesNj͊ file-patternN6Thl+H* Bɂ another-file?N T T +BJmarginsNv>H@vVB(filesNΦHw^HwB(sizeNΦHw^Hw0BfilesNIBsizeNIB(cdN+[Can't change directoryBzcdN`_ϜBϒ(mdN+[Can't make directoryBΘmdN`_B(rdN+[Can't remove directoryB`rdN`_6B,(deleteN'+[Can't remove fileoBzdeleteN`_ЈB set-driveN+[set-drive failedBЮdrive:NjOkrNtBa:N`b:Nc:Nd:N<.driveNHA~D.H:D.B\ (disk-freeN<dNddBl .disk-freeNѮ{Bўdir@Nsblpwd@Nsb͔,mv@Nsbl&ls@NsbLchdir@Nsb>mkdir@Nsbrmdir@NsbhҞrm@Nsbк҄era@NsbкTdel@Nsbкdf@NsbҸzapaesN*H6BtimerNm:t@NF~BPt!NF~Bj(readbin _$H"|)+fg/ ]N`/`̮old-maskNj read-binaryNHXHrHQHr<H%rHH)rH+r*H+rH/X6H/X6ӒTHrBdownloadNPFT=T<BmloadNPFɌBӄtbufNj; ytbuf e ionslargestNVh~6MjjFMVM~6BfollowNUMBanother?NU,FX RMhM.`z Bjover-vocabularyNXՐո``VBwordsNv>H@vVHwv#HTՐո2FH<wcņ0BywordsNNBՄneedsN`_UNj`_h 6ABԠ\needsN`_UNjCBB string-arrayNjOOkrNThPN[String array index out of range xTh.TBժend-string-arrayNOTS$T`a2xOTVLxXFLS$T`a2FxTOThMhBӼ/branchNmz#alignNm >dataNFrF &!rphF &DVrphF &Lbrph6LLa2la2Bب>targetNF~Bdoes-ip?NFTL &LbrTLpTBin-dictionary?NFXOTPNh*<<BR probably-cfa?NFپ@tFqpVHNpLhHNpL 6B.find-cfaN؞FBؒcode?NtFHNVHN<hq<B٪isvarNjdefinerNFڌ6 &0r &OTr &l &tr &l &r &mr &#r &lR &D.r &m2 &Lbr &n~FdhB"(see)Nnڀcr."N :FvlDBV.."@NQC BoutNEX&subscript out of range on F`dX& max is IX& tried I|d*BmapNTxh.BBܤmaptokenNTxhL~BB8case:NljhhkrNLB tassociative:NlkrNFTFx6Lp6>nBnulldisN6X& BT disassembleNnbreaksNPB end-breaksNj< add-breakNLTL,B& break-typeNjވ break-addrNj where-breakNjޢ next-breakNH޲LT2*T>V޲T$ޘ޲>޲THHHTBforward-branch?NF<Bߘbare-if?N؈LFLF &p660 &p ߮ 6B޼while?N<؈LFL &p߮ 6BVindentNDTv>TXEv>TDTEB6+indentNHv>,B-indentNHv>,B ,B.beginNbegin BL.thenN then BextentNjumaxN@h6B+extentNTB+branchN؈~B scan-branchNFF߮8<FF &zf6< &XfBscan-ofNF<B scan-unnestNFT6B scan-(;code)N` 6Bn.branchNF߮2else  repeat sB.?branchNF߮<FB2while if  until Bh.ofNof fB.endofNendofoB.endcaseNendcaseB.doNdo BL.?doN?do Bp.loopN loop B.+loopN +loop Bclassify-literalNFu2ascii FD. ( iI|) I|Bcheck-[compile]NFu [compile] B.wordNFLTvdB> skip-wordNBx.inlineNFTxB skip-inlineNxB.llitNFdI6fB skip-llitNfB.quoteNB* skip-quoteNBH.stringNF DH"D.ESBb skip-stringNSB.[']N['] FLdBskip-[']NB.unnestNFT,v>; E6exit 0B".(;code)N`does> *v>;code EB.finishN6Bexecution-classNrHQX&[krB \*k0Z &X .execution-classN>v(VT0z0,B$do-scanN>&&r:Bscan-pfaNF2La2FLPNPFņL6Br.pfaNFpNv>a2v޲TVpޘTFLPNPjFņL6B .immediateNu immediateiBF .constantNFa2I constant odBv .variableNFa2I| variable oFdvalue = a2IB.:N: Fd<EB.user-variableNFa2Iuser variable Fdvalue = شIB&.deferN deferred Fdis شLB~ .user-deferNuser deferred Fdis dشLB.aliasNalias Fda2LdB.otherNFڌ"code cFdE0FdFdFa2T( Parameter field: (I|) 6Bdefinition-classNrllmlms:.definition-classN>:FB((seeNH@vVFFPPVBNseeNWB disassemblerNnj>codeNBaregsNz a0 aa1 a2 up w ip arp usp w.aN{BpcNjsizeNj* next-foundNj instructionNjfbitsNt~^<BR3bitsNHB2bitsNNBbit?N*B@lowbitsNt<B!sizeN\Bs-byteN:BHs-wordN*:Bbs-longN<:B|setsizeNH:BsizesNzbyte word long t??? .sizeN\T{B@pcNHT<H,B$l@pcNHTdHH,BrxNH BxryNHBccfieldNHHBbextNH<FH<HLB byte-dispNHB.instNX&(.HHX&)B8.dNX&d;I|Bnrx.aN2Brx.dNvBry.aN2Bry.dNvB.wdispN.H`B.ldispNVI6B.indexN.FH`FH ^H<VH< 2vH<X&.l  X&.w .BLlong?N\T<pBw.NH<GB.immedNVHX&l# .X&# sB.-)NX&-) B0.)+NX&)+ BJ.rmN vv* 2b<2X&) DN2T,H2:H2X&d) H(2X&di) HX&#) *X&l#) ol<X&pc d) JN(X&pc di) (H X&??? Bd.eaNNnBnext?NtH ]p6HTtHNpF<H,B.moveN(X&nextv0H JFNh:HnX&moveB.movepNX&movepeDBbitopsNzVbtstbchgbclrbset>DJP$.bitNH0{Bf.bitdNTpB.bitsNTpB.immopsNzorandsubaddo???deorbcmpdmoves .immNH?H<p6HX&sr X&ccr {BcondsNz trf hilscccsneeqvcvsplmigeltgtle4.condN{BL.dbccNHT.~GX&db*pX&ra{Bj.sccNTX& sXB.bccN"HTh ."H V F~GX&bpX&ra**X&srF{B.1-8NO HI|B.quickNHX&subq X&addqB.moveqN"I|X&moveqtB .muldivNnHX&mul X&divmH X&s  X&u.B6.x/bcdNN:: B.xNHX&addx X&subxB.bcdNHX&abcd X&sbcdB..cmpmNTTX&cmpmBn.eorNX&eorrB.exgNNHH>H "HX&exg.BshiftsNzzaslsroroxhlptN shifttypeNZ{HX&l X&r.B.shiftNH vX&# NB .shiftmemNTH B&.flineNX&f-lineDBT.alineNX&a-lineDBv.bogusNX&illegal instructioniDBaopsNzsubacmpaadda???b?s-longN nB.1eaaNHH {B0binopsNzorsub???cmpoandbadd????p???dr.1eaNH H ~{B.illegalNX&illegal BmiscNzresetanopstoprtetrtdprtsotrapvrtrhpv|..0addrNZ{NvB.movecNX&moveceDX& extension = .B.trapNHI|X&trapB*.move.NX&moveBV.1regNN<.H`X&linktNX&unlkVHX&usp ob.HX&usp bBsize6NHBr.extN0X&extsBF.swapNX&swapBl.movemN0H ..X&movemcB.jmp/jsrNHX&jmpv X&jsrxB.chkNnX&chksB..leaNX&leasBT.smoveNnH  X&sr X&move<"X&ccr 2X&move\N X&sr X&move4H"X&ccr oX&moveBPunariesNznegxclrnegnotgnbcdtstg???t???cdjpv|z.unaryNV{B.peaNX&peaB.tasNX&tas B$getnN`_bB[ bad numberXBH mask/match:Nj(FO(OWLkrNFtVTt<L~<LBdecodeN8>NpNpN@6N@~H@xHPHNA8A^@H@JlastcharNl D bufcursorNl#afterN$0T TB \leadingN RT TB cursor-addressN ~B t before-cursorN JL|hB-charsN* xB +charsN* æB forward-in-bufN  * ,B pforward-characterN  æB backward-characterN TH ,xB $erase-next-characterN$0HHH$0, F.h   D&  0B 2erase-previous-characterN T H ,x LB insert-characterN$0T. :TN$0 F. JF    LD.  D  0B beginning-of-lineN T 0 B end-of-lineN  V$0T B finish-lineN $EB Jkill-to-end-of-lineN T$0&B retype-lineNE RT$0TD  0B erase-blanks-backwardN T8 .>`n HB erase-non-blanks-backwardN T8 .>`pn HB erase-previous-wordN BPerase-blanks-forwardN *& `n LBxerase-non-blanks-forwardN *& `pn LBerase-next-wordNB Hbeginning-of-wordN TH >>`pnH ,xHB end-of-wordN  L|*2>`pn* ,æBD forward-wordN B backward-wordN \Bquote-next-characterNDV B& keys-forthNn keysNl0name-bufNj^ML-buf h allot Radd-char-to-stringNV F~.hBadd-char-to-nameNF`@,VH^HAJ~8FHp6X DELh{hB not-foundNn do-commandNT j<Ta2lU&  6BbconinT?<NMX/ ]NskeyNoDj<8FH<H<H^H<HKHHMH~HHHbHPHFHbH*HaHhBprintable-charNnb (newexpectN( : R $$0 $0T :T@ $T<LN j j`H~P  jv {(B^FN B:^BN BL^AN B^^EN Bp^DN LB^HN B^KN .B^MN B^JN B^QNlB^LN ZBDELN LB^[NDV jX ESC-BESC-hNjB<ESC-dN6BRESC-fN"BhESC-bNDB~ESC-^HNjBESC-^DN6BESC-^FN"BESC-^BNDBESC-DELN6B^XNDV jX ^XB^X^CND~B*^X^ANpB emacs-editN &r & rv &rD &FrEBH/terminal-bufferNm/lineNmterminal-bufferNj;tbnextNj;tbscanNj;+lineNFT~FT~6ThB&-lineNFTFT6T~hBlinelenNF"FnBhBhistory-expectN T  6$0T0 T Tp T$0Tp<, T RT$0Tn0 6 TPh RT T$0TB*cycleN T  . TV RTh TVDF$0  :Bgrab-last-lineN  TFL|> j  6B~ inithistoryNTTPhTF   &4 &DnB>^PN  B8^NN 6 BR^[=NB (cold-hookNBzcommand-completionNnfind-endNncinsertNnceraseNn start-of-wordNj  #candidates-maxNm( #candidatesNjH candidatesNj28dates allot dates-max doverflowNjnamelenNB@charNH<Bword-to-stringN RTT~ TT@Sh@Bcollect-stringN T T\ RT TJL|h:>`pnH,H,Bf substring?Nh@0.h L|*6F>jhn.6B new-candidateNZT>0F`ztZT.*Z,Bfind-candidates-in-threadNFX"`zM6Bfind-candidates-in-vocNVh"MBVfind-candidatesNZ$F 60#HML|`>MFXX8F$TV$p 6r6M6Bcclash?N N6<~VBVcandidates-agree?NtT0V~.txZTJL|*2>Td~6n~j Bexpand-initial-substringN TTF.6Bone-candidate?NtZTL|*B>TtTF.U6nBdo-eraseN,F 60ZT B!L do-expandN  `B | expand-wordNzZT !!ZB show-candidatesNH@vVtZTL|*v>TcT X&...eB!do-showNEzF"&\6X&Any word at all is a candidate.aEX&&Use words to see the entire dictionary ZB! install-fcmdN &r & r & rBl^@N!B#f^_N"Breasonable-ip?NFXOTP *< 6B# .current-wordNddB#.last-executedNLLF# d6X&??B#.callerNHvX& Called from F#H8vX&at 5I|B$@ .tracelineN#TQF#F$ L$NI|E#B (rstraceN>T$BrstraceN"T0X&Return Stack Underflow"T"T%B crash-rstraceNHd$TH@NL|%B%&.callsNoP!b~OT|*F$NEņ0jB% bios-messagesNz't OK (No error)Fundamental ErrorDrive not readyrUnknown commandy CRC errorc Bad requeste Seek error Unknown mediarSector not foundNo paper Write fault Read fault General errora Write protectr Media changeUnknown deviceBad sectors on formatdInsert other disk&V&f&z&&&&&&&&&' ''*'8'H'`&4 bdos-messagesNz(Invalid function numberlFile not foundPath not foundToo many open filesT Access deniedlInvalid handle???IInsufficient memoryIInvalid memory block address??? ??? ???s????????Invalid drive specifiedl???i???e No more files?''(((.(>(N(T(j(((((((((%other-messagesNz) Range errorInternal errorInvalid program load formatp+Setblock failure due to growth restrictionsg)F)T)d)'.error-messageNNFH@H@)82FH H '&H{EB)$whyN+|T)B memory-shrunkNjr?shrink-memoryN*zTDq TXX+[Can't shrink memoryC*zB*get-tailN0TE|p { E|_B* safe-execN)TH)6F+[execution failedqzH)6Btrap-return-valueNl+(execN*(h+>6(B+(ploadN*hN+>B+(pgoN*h{H+>6B,ploadNC++BexecNC++B,D (cold-hookN*zB*Jcommand:Nj`_ BkrN++B,b ignoredomNn+.context-save-areaNjggfffffg, save-contextN#H-B$restore-contextN-#HB$(sealN#HPha2l#HB*f ignore-levelNj-6start-ignoringN &f$شL &6 &f$n & &en-H &,-*-B- stop-ignoringN-| &f &en &f$n-Biftrue@N-T*-,.B otherwise@N-T"-T*p.n.B.ifend@N-T2-T*p .nH-,B/(ifdef@N`_UNj.B/xifndef@N`_UNj.B,ifend@Nsb/4, otherwise@Nsb./iftrue@Nsb.0ifdef@Nsb/0ifndef@Nsb/,>hmsNFH<hFH<H^hH<H ^B(hms>NH JH<hHJH<~hfH<~B0N>dmyNFH<hFH<H^hH<H ^H~B0dmy>NHH JH<hHJH<~hH<~B)nowN2FHp[System time is invalid0XB04is-nowN0R[ Invalid timeB,~todayNFHp[System date is invalid1B2"is-todayN1[ Invalid dateB2isdstNj2Ndst?N2TB2time-zone-minutesNj2 time-zoneN3TB-monthsNz 3JanuaryFebruaryMarchyApriluMayMJuneJulyAugust September OctoberSNovemberDecember3J3T3^3f3n3t3z33333-f2.rN<FGZGZGDB1.monthNJ3< DB4 .dateN#TQ*h4Eh<HzX&, I|#B4,.timeN#TQ*<HzX&: 3X&: 3#B4~.nowN14B4.todayN2Z48B2memfreeNTjTPB-positionNj.Z#readNj5:#writtenNj30input-filenameNj-filename allot 5Poutput-filenameNjfilename allot 5" (readsomeN5|'T[Can't open fileaT50T(F6P5 T($5FT'`65FT&X& File error # 5FT{[B3readsomeN6X&Got 5FT{X&bytes.E5FT5 pFX&:Didn't get the whole file, use readsome later to get more.E#B6 (writesomeN50T4<6'F[Can't create fileo,6'F[Can't open filea<T(F6P5FTT(5^T'`65^T&X&Write error # 5^T{[5^T50,B6 writesomeN85^T5FTfX&%Couldn't write all the bytes. Tried 5FT{X&, actually wrote 5^T{E[5FT5 X&DoneEB7hreadfileN`_5|T507vB9 writefileN`_6T9.B/copy1N`_5|T`_6T50X&(Insert the source disk and type any key DV6E6X&-Insert the destination disk and type any key kDV6E85FT5 jB:4copyN`_5|T`_6T50685FT5 B; substring?B"_Bj /< ]NB`VWHH/ ]N4 unpack-nameNRTB;\sindexB  W"/"oj   /< ]NB`Vf   / ]NRSR` ]N; sift-stringNj< sift-vocabularyNj4vsiftNF<>XՐոPFP;<T ~ ;Hvc6B<(siftN<#MFXFXed@Nsb>>H unload-emacsN=PTF=PT| X&Can't free Emacs memoryt=P=:B=Z function-callN=:l"H".""BB>^ emacs-fopen"|$bN' / y=@ hxNX/ ]N?< emacs-fread y=@ h|NO/ ]N= window-fopen y=@ hN/ ]N?p emacs-setupfdN12j1 &?1 &51 &62 &.2 &52*0TB?eopenN=:T(?NO4?B?+eopenN=:T4??B?"eloadNF@NOjAAB@BeloadN@@B@+loadN@O A&X&The editor is not running.EB=p old-statusNj.A`console-outputN &)(rDApLrDT<B> file-emitNT=~BA file-outputN &DشLApL &ArD &ArDB3to-fileNAB@append-to-fileNxABAz/indexNm5hindexNjB index-readNjBp ?read-indexND(TfX whatis.indBB|T=B|[Read failure on WHATIS.INDT<D(BD2getlineN0Tpp {PpT@00BDshowitN{ED{ED{EBA"=NF.nBEB>indexN.H Bh.TBEd file-searchNPT?EJ6FV.h.D6D6BEno-helpN{X&1 is not described in the glossary file WHATIS.DOCaEB=(whatisNDDX whatis.docFEpF6F:&T=E EF:T<BAwhatisN`_FBB2helpNX&5To learn more about Forthmacs, read the file READ.MEdEX&>You can do that without leaving Forth by typing more read.meEX&"To exit from Forthmacs, type byeEBGHELPNX&DCommands must be typed in lower case. Try help instead of HELP .EBG (cold-hookN,X AUTO.FTHF A6BH@ patch-emacsNVH~dZNVp"ZpNu<H~O,BF patch-eraseNT TXB@fgetlineNph@0F00T0|p6<F ~JEpFJVBE get-filename+N0TppX *.*w0@>lTI6X *.* $h F?<F6X *.* BG/contextNm JR shuffle-downN#HJ`~VM~*B>MX">MVM.X>M.nM6BJjcompact-search-orderN6#HJ`L|*>MX >J|MBJ caps-comp R _"_Sg:<am <zn<<am <zn<gjHx`Hx ]N`B ]NIfixN$\WTLBKB_MEMFIX_NjBNmin_gemdosheapNmKmax_gemdosheapNmKstartup_errtextNj;***Not enough memory to run FORTHMACS! Press any key ...***rKmemfixNj 9K8йTRм29342FЁй2D29344Ё"9K8剒K8A$ԁ"hL c#q`"hKc#q`#q$Ԁqc:HyL*R?< NA\?<NAT?< ?<NA?| >NAX?> / ]Nalias-idNmsb:-)@Nsb~RunaliasNF<TRpH~TBRrealiasNV|VO0 H ~ H~.6X&realias: source not founds D60X&realias: alias not found D@6BS :cmNlwB;cm@Nlr &YwBQ_lbranchNj@woffsetNhH<BT:wbrifNH`LOOThTHOBTbwifNZF~TnHkBTwthenNHkRnF<ZTHh<BTwelseNHkRn2T6hHkTHkBTwwhileNhHkRnTBU<wbeginNZHkBUbwuntilNhHkRnTnBUwagainN2UBUwrepeatNHkRnhHk2UHkTBT&_whileNjR&wileyNmVwhile@NQFV" V"OTO.BR@repeat@NV"p@Q](OTVhX&repeat needs while[BUwhileNFH p 6OTF~.H B repeatNH p@h2 FOTh.8X&,repeat called with while in code definitions[BVwwhileNFHkp6H/[H/[p,OTFTn.H/[<6X&'wwhile incorrectly called in code word a[BWwrepeatNH/[RnhHk2U$F<OTTHh<BV_pquanNjRPquanNjOkr W. ]NVvectNY&OTHKBV,whoNY8pquanidNm^RquanidNmY8SnotquanN cX& is not a quandEBYquan?NF<TFYhY<Y66BY|pquan?NF<TYY66BZ.(to ] ]NZj(adr/ ]NZ|ttoNa2#vTQZtLBYadrNa2#vTQZLBZ(ito yYx ]NZitoNa2T#vTQZOYr~BZ(iadr 9YxН/ ]N[ iadrNa2T#vTQ[ZO Yr~BRto@NWRYF<~TY [Y ZBYaddr@NWRYF<~TY [rY ZB[N pquanlistNY8*\V(pto _ ]N\p(pget _/ ]N\(paddr ї ]N\(poffset/ ]N[pto@NWRZ:a2T#vTQ\zO ~B\pget@NWRZ:a2T#vTQ\O ~TB]paddr@NWRZ:a2T#vTQ\O~BYhcbsizeNY8]ZpallotN]~Zt]B]pquan@N]l]OT\fLZt\lkr yYx"W. ]N]poffset@NWRZ:a2T#vTQ\OBY@forgetNZh\fOTV@h6FTO.Zt\lOTZt]"6Zt] &RJZt\lBY _declsNj[ap-defsNnXR^drestoreNnh[h main-processNY8_F MIDI-clockNY8Yformula-activeNY8_b init-activeNnl_| fin-activeNnp_ init-passiveNnt\do-auxNnxTcstateNY8_no-stateNm_ap-stateNm`sh-stateNm_td-stateNm`Hsg-stateNm`` params-OK?NY8` params-addrNY8&`nada@NX&%Aliased word not defined -- see DECLSeE[B time-advance@Nsb8 future-event@Nsbawaken@Nsbl`0 active-exit@Nsb&__machineNj`hardware-intvecsNRne-intvecs ahorizontal-retrace-vectorNmh`vertical-retrace-vectorNmpaTOS-68901-intvecsNRn-intvecs `xsysclock-vectorNma 6850-vectorNmb"TOS-kbd-routinesNRn-routines bkbdvbase?<"NNT/ ]Nb save-intvecsNH0Hd><J~T>aH0H><J~T>b:H ,c ><J~T>bBbrestore-intvecsNH0>aTHd><J~H0>b:TH><J~H ,>bTc ><J~BbTOS-horizontal-retraceNmTd TOS-clockroutNmd TOS-6850routNme TOS-kbdroutNmɔe$ default-maskNm#adall-maskNm'e@ (set-mask)N8<ej8Bet(restore-mask)N<8Bcset-mask@UF' ]Nc restore-maskTF ]Ne(set-default-mask)NeR8Beset-default-maskF# ]Nf (set-all-mask)Nej8BfNsoftint-mask-levelNY8fsoftint-requestNY8fl(mask-softint)N*ZfQBe\ mask-softintR9f ]Nf(unmask-softint)N*ZfQFZfQFH 8jjBgunmask-softintS9ff J9fgF ]N_-clockNdTbBg-perfNdTaBg-MIDINeTbBgmfpNmh8ieraNmhLierbNm h`ipraNm htiprbNm hisraNmhisrbNmhimraNmhimrbNmg*tacrNmhtadrNmitimerA#NmitimerC#Nmf6850#NmiD 6850-intoffNmiZ 6850-intonNmfkbd-crNmikbd-drNmhMIDI-crNmiMIDI-drNmi,(mask-sysclock)Nei:hQHeBi(unmask-sysclock)Ni:hQ$Bi mask-sysclock@UF'TF ]NjVunmask-sysclock ]Njuserclock-vectorNm4jmask-userclock@UF'TF ]Njunmask-userclock ]Nj$disable-userclock@UF'TF ]Njenable-userclock ]Niset-userclock-freqNHhi Ba_panicNjkdget-a34/ / ]NkBa4-saveNjl`ka3-saveNjk(forth-context)NkQbfkQRfBiv forth-context(yk&yk ]Nk temp-stackNjemp-stack allot lR(panicN_<EX&Out of memory.*$X&Panic button detected.x<X& Bus error.XNX&Address error.4H"X&Illegal instruction.EX&$-------- options: ----------------- EX&$=================================== EX&"showcrash (Register Read Out) EX&&crash-rstrace (Calling Word Sequence) EX&iformm (Restart) fd[Bm0panicF'(yk&ykO=~M=Km>/ ]Nnpanic-bepNno6panic-aepNnoLpanic-iepNnk_mallocNjkmaxallocNml.freeptrsNRnfreeptrs obdefault-free-memNY8;o free-heap _ ]Noinit-mem-allocNsTjoHM>oBsnallocNjtFnfreeNjs(mallocRtX@UF'SAo"g"A `2$XX"9Tp4d B"@Nn`#Tp"A"CTFNutr(freeRtn@UF'Ao" TFNuhmalloc Nt/ ]N_.free"_Nt ]Nu& new-dict-sizeN &K2a2 TFq ,,Bu< new-heap-sizeN &K2a2T~X~q Box_proc-cbNjt dstacksizeNmt\ rstacksizeNmu next-procN^RJu time-positionN^v&k wakeup-timeN^vHv*delayN^ vhv flagsN^vvLwakeup-routineN^vu mindelN^vvmaxdelN^vvnargs@Nsbvsargs@Nsbvwaction-rec-sizeNmvlpquan0@NsbvwHpquan1@Nsbv>wbpquan2@Nsbv^w|pquan3@Nsbvxwpquan4@Nsbvwpquan5@Nsbvw(ip-saveN^ vvrp-saveN^$wvsp-saveN^(xwarg0@Nsbvx8arg1@NsbwxParg2@NsbxwdeadlineN^,x4xparentN^0xxchildN^4xx preempted-CBN^8xxfirst-descendantN^<xxh external-time@Nsbv>y internal-timeN^@yx global-ptrN^DyTxdstackN^0yrxrstackN^yyv delay-offsetNm y nargs-offsetNmy6 args-offsetNmypreempted-flagNmyX group-flagNmzsuspend-pending-flagNmz6suspended-flagNmy zombie-flagNmy event-flagNmzxBP-flagNmzZset-flag _  ]Nz clear-flag _  ]Ny test-flag _ (fB`/< ]Nu_stackNjztor _"h$#!I$ ]N{6tod _"h(#!I( ]Nzfromd _"h(/!I( ]N{jfromr _"h$/!I$ ]N{P(stack->record)Nf\2.f\2.B* W BfWlB{(make-action-rec)Nf<Hw> &tQ{Bzmake-action-rec мNt #@ESk$`/ ]N|.(record->stack)N\2.ff<H\2"* W "fWlB{ record->stack"_ )"ASk/ ` ]Nzstack->cbstack _ "( h(Yk!`O ]N}jndup $R"7/Sf ]N}reverse "Ё @X"Al " Y"` ]N| transpose "$& O(.D("HJg *10#S`$&Jg"H(Jg *"C0S`XS`// ]N{$_processNj~ (restore-forth-state*)N\ ".H"ZYxQfB~(save-forth-state*)NZYxQ2fH\ 2.B~(restore-machine-state*)N"ZYxQf\(".fHBD(switch-within-tree*"yYxH L #YxNu(switch-within-tree)Nf &Qg@B~_queueNj(insert-deadline fB I`4"),,d" I`$/Jf B`$P,d "B` Jpf _Nu|insert-deadline _"_N@/ ]N*(insert-time-position fB I`4")d" I`$/Jf B`$Pd "B` Jpf _Nuinsert-time-position _"_N/ ]N (fifo-append f"`" Nu} fifo-append _"_N>/ ]N_tempoNj}cur-SVTNY8 cur-SVT-fracNY8 clock-periodNm old-tempoNY8^"tempoNY8v usec-per-SVTNHhMZtB]start-MIDI-clockN_r**Zt_xZtHUZtB8stop-MIDI-clockN_rZt_xZtB, (update-SVT)NZ<Q8ZQZQ8ZQfZQ8vZQfBn_executeNjexecution-queueNY8(switch-to-XQ*$y j< 9Yxg\"yYxH *fL #YxNu`0 j8#Yx.h(LS9ff J9fgF Ns`Nu switch-to-XQ*N ]N (rec->XQ* yN@#NuP(set-deadline*"y#@, QN@#NNu2 set-deadline* N ]Nx_wakeupNj wakeup-arrayNRneup-array  wakeup-maskNm wakeup-mask2NmL first-offsetNY8 cur-offsetNY8t (rec->wakeup@UF' )d 9E RN>$TFNu, rec->wakeup"_Nt ]Nb(arouse-process)f ")#A,@UF'"9#A¼E RN>$TFNu (wake-processJg"PB#yNNu init-wakeupN"<FZtDZt^ZtfZtfH>B$(update-cur-offset)NZQf"Z^QfB (wakeup-check 9DAJg fB`^g X`#DNufor-nowNY8lnot-nowNY8 (wakeup-call 9D#^DGF'$gf"B QBCBEB$9"e""H`$$H AJf"9g$&`BF#$9gB/"B i/N$f DgX`vNu _schedintNj system-mindelNY8ticksNY8b key-handlerNY8 default-khNuMIDI-state-timerNjsoftint-handlerWH/9R9fNS9fF'B9f _$yfLNs"yYx#O(!I8 j<(yk&ykL #YxR9fF#Nu(schedule-softint)NHH .B advance-clock 9| y,dOThZt`BZ _gp-schedNj gp-awakenNx vV\zZB4propagate-delay"_ )&Щ #@ QN"h0#H4#h<< (#@@#@ / ]N process-delayNF\  F_F\0 6B\gp-time-advanceNF[Z@,Z Yrg FgBF _gp-creatNjunlink-non-singleton"_ i0$Q!J4!j<< *!@ / ]N revive-groupNg V\z4z,VzFF\z<\z<BBgp-active-exitNYr_x4vYrg  xg vZtYru0FgB6 start-groupNz,Yrz Z4 \z Z<g \z<FgB _procuserNjnameN^(pn")N :6JZBr proc-name"@NQZC BidN^J#idsNmcb-idsNRncb-ids NlastidNjinit-idsN>B6free-idNF*h6B (assign-ID 9"<A$_XJWJf#!%@ ]Nid->cbNF@ TBassign-proc-IDNYrxBiptoNO\BipgetNO]B,.stackNVF dFH(XX&...6H(V~H>IH6X&empty0X& bad stack ptr 6EB0.cbNO0HPvV\fF &RJnHwFHF` cX&: T ~TI|Tņ6606EX&ds:  \( \0VEX&rs:  \$\VBh (.cb-summaryNX&ID: F\FHp 6FI|X& name: dF\O cX& (anonymous) X& type: mz,V{ X&grouptX&processznV{ X& [suspended]6EB$((.gp*NVEF6z,V{ 2\4F V<V,\B .gpNOg h,gB.allN">TO6B _jobcntrlNjcurrent-generation#NY8 generation#N^2suicideNg &ava2TB (next ]NRgenocide i(E Eb#J )g/ "i4N "@f"_Nuwakeup-process 9.o)f N)fN`` Nuwakeup-immortal-processN`Nu~(resume"_R9f)g`)g#yNS9ff J9fgF ]N&immortalN &@ZBkillNOF\Jh\zBkill-allN(.FZZt.BsuspendNOzPhzBresumeNOVB0 suspend-meR9f"yYx#NS9ff J9fgF ]N_defineNjtparams@N``&X&can't use params herenE0BJ::ap-init-active _"yYxJ0fXB0E!J!i!i!HD)f!i` 9c!@`!iX (!@,`!i00!i!iDD!h@ ]NH(::apN T.xFTxh @ }lB (::-docol*_S9ff J9fgF ]N^:apNl_ w`>Zt`B@::ap@N``>pTQOTZt`Zt`OOTL &,QHDX&7::ap must be called within an active process definition EBn::ap"@NxQB ;;ap@NHRnZt`QBOThBF;ap@Nlr &_ Yw`&Zt`B*::gp-init-active _"yYx!I0!i@!iDDJ0f)g 9c#@!h@ ]N(::gpN T.xFTxh  }B$::gp@N``>pTQOTZt`Zt`OOTL &,QH DX&7::gp must be called within an active process definition EB;;gp@NH RnZt`QBOThBF::ap"@NxQBTforkNWN,Z(forked)BB_faqNjfaqN^NFAQ-future-eventN|zVzV\zyJ~V\zZBbfuture-routineN|zVzV\zyJ~V\zZBa do-actionNzV{ $\V\z& }~ \u0BFAQ-time-advanceNyJ~Oh\VyJX06\yJXF\ZyJX0xB perform-allN \yJ8B"FAQ-active-exitNJB_feventNjraw-future-event(& мNt #@ESk$`#C yب#DNt ]N(::fevN TxFTxBJ::fev@NQOTZt`Zt`OOTLlbH~Ql|WtQQZZHH )B4_handlerNj input-handlerNjOOkrNBwait-for-input W@UF'Jf8"y #R9fTFNS9ff J9fgF `TF _S ]N(wake-input-handlerRN8Nu_midi-inNjMIDI-input-structNxMIDI-sysex-structN" sysex-bufptrNY8 sysex-bufendNY8 sysex-stateNY8cmd-bufNjH2byte?Nm02nd-byteNmF need-more?Nm1st-byteNmlast-cmdNmxMIDI-inbuf-headNjMIDI-inbuf-tailNj MIDI-inbufNjIDI-inbuf allot init-MIDI-inputN&ZtB MIDI-input"9 f2 yܱg# fBANXNu efJ_xgNNuJj^ f&"9 fR# y#Nu e p/Nu/<`<@fp`p3,`fJ9/fNuJ9-gB9-.Nu-29C#,,-#PA|3ANXNud _midiout1Njj MIDI-stateNj sysexcl-tableNRncl-table  MIDI-outbufNjI-outbuf allot 4mheadNY8LmtailNY8bmcountNY8 MIDI-log-ptrNY8 MIDI-log-endNY8> log-MIDI?NY8log-MIDI-commands?NY8xMIDI-cmd-startNY8init-MIDI-outputNZt^ZttZtZtZtB MIDI-transmitJ9g$9AL^9aNuNu(M-out/ Jg$y# 9g9R$_Nu (set-stateNڰ<g`B9Nu(set-complex-stateE$r$NSfNuB (M-command$99gtJf:#9gk@<NBJk NZ`N&Nu| (MIDI-commandJg2 9d$R @ B##p#AL"9t )N$)SE Sk N`wJg 9 yBNu (MIDI-outputAL"9tE$)Sk N`wNuMIDI-output-blockAL"9t$$_Sk N`w ]N _midiout2Nj MIDI-note-offNm MIDI-note-onNm.MIDI-poly-pressureNmJMIDI-control-changeNmlMIDI-program-changeNmMIDI-after-touchNmMIDI-pitch-bendNmMIDI-sustain-pedalNm@MIDI-all-notes-offNm{ MIDI-commandCN.J ]N8 MIDI-outputCN.J ]NZMIDI-command-eventNNtNu|MIDI-output-eventNNtNumkuN$LN &BmkdN@LN &BmppNbLN &BmccNLN &B@mpcNL< &BhmatNL< &BmpbNH ~FH^H<hH<LN &BmclNH* &B mstrNH* &BHmstpNH* &BpmcntNH* &BmssNH< &BmsppNHN &BvfmppNbLN &BfmccNLN &B@fmatNL< &BpfmpbNH ~FH^H<hH<LN &B notes-offNH.>JB _6850-intNj^ 6850-handlerH9g(9gN9gB9Nz9g*|$ybN9gL/Ns+MIDIN6 &vbLBN _midi-hndNj~(get-MIDI-command09AB(/Jg(/(//(P@|3 ]Nget-MIDI-commandN4Bnget-sysex-commandNV~ZtFZt*ZtB+synch-to-MIDIN*Zt_xB-synch-to-MIDINZt_xB MIDI-actionNRn66.0midi-in-channelNY8 MIDI-handlerNZFH<ZtH^H<BTB(create-MIDI-handlerNDN,ZMIDI input handlerBBcreate-MIDI-handlerNn| _semaphorNj holder-CBNmholder-deadlineNm holder-countNm semaphore:NjOOOBh init-semaNFxFxBPNnVNn(make-XQ-head*)NZQ2f2f\2.f"W \2.2fWl\".\2.f2f\,2.\,".f2\".f"ZQfB`(P)Nf"f".fZYxQT"f*".UT"fv &QT"fZQ2f2".f\,2.".fTg@Bh(PR9f W (Yxf _R`PJg8 @"y" )g"i`#h"A!i,,!I#N _"y!I!i,S9ff J9fgF ]Nx(V)Nf"f".T*".U".".fZQ2f\,2.T &QTTg@B(VR9f _Jg S`B ("y,gNS9ff J9fgF ]NH +semaphoreN &€rD &rVB -semaphoreN &6rD &6rVBl_tty-outNjtos-semaNj"shemitNİD)(İVBĢPemitNİD)(BdVemitN)(İVBPV(escNNBĎ_tty-inNjXiorecT?<NNX/ ]N kbd-buf-recNY8rold-kbd-tail-ptrNj$ tty-in-structNŮ(#keys-in-buffer)NZŊQ"fH".8H".8FH".j<ZBttyin-int-handler09Ū yŊhg\B2(3Ū P$0af <Nn`0BB yŊ0(2(@dh@A!AN8NuV quick-key?@UF'BB yŊ0(2(@dh@TFJfB`p/ ]NŎcorrect-key-count@UF'BB yŊ0(2(@dh@#TF ]N editN>ǐBed@Nsb-ttyN &RrN &)nrDj &)(rD &ZtBB _func-keyNjN FK-routineNnactive-FK-tableNY8/XFK-tableNjH &.OkrNZtȎB<default-FK-tableNȒ FK-action:NFHP @UN h<JȈ~LZ6X&&Unknown word defined as function key #FI| &.h<JȈ~L8EI|X&#is out of range for a function key fEBƦdefault-FK-routineN<JȈ~TBfkeyNİD<8İVFH<H<:H^H<FH;HDP H;hFHTH]P HJhHHHHK <~HMHbHPHFHaH*HbHhBx+ttyN*bZtŊńH~tŤ &|rNİ &rD &>rDj &ƾZtBB_mouseNjrmouse-xNY8̨mouse-yNY8 left-buttonNY8L right-buttonNY8 mouse-routineNn.mouse-in-processNY8. mouse-activeNY8N mouse-intp#f< <((HHѹ̼HHӹ 9AmZfNuA.fNuAJN8Nuj initmouseT?<NNO ]N<(mouse-handlerNe`Ztff$YrZtJvZtg fFgB mouse-handlerNN,Z mouse handlerBB+mouseNZt̼ZtZtZt ZtfZtJHP &zP*ΈBt-mouseNHP &zP*B̖ _rationalNjrscaleN^ϒbeats-per-minuteNHhMZBr rscale-ptrN^ϨerrorN^(r>i) "$&/c(HCƼȼ`xÂ&ƼHA2ҀBW?A?AHA¼҄/A ]NϬr>iNT $ZB(r>iNTH$6B| _fractionNjnum-typeNY8|(frac-literal?N F.H-pFH#aFH| pH( pLH. pLFZt 6#~hh ~pB frac-literal?N  66Binterpret-fraxN#T*#T0*#T#T*H.phRhMVVDH|phЄ H(p hЬB compile-fraxN#T.#T0*#T#T*H.phRhMW$nV\H|pW$W$ &ЄL,H(pW$W$ &ЬLW$Bfrac[@N & &en &f &en &Z &fn &g &f$n#vBFfrac]N & &en &f &en &D &fn &g &f$n#vB2 +fractionN &Լ &P n &R &P2nhBF -fractionN &Q4 &P n &P &P2nhB_auxNj local-ptrN^԰retadrN^ծdoneN^\inputN^valueN^value2N^.pret"yYx iR9fNS9ff J9fgF ]NLpcall WJf(!yYxR9fNS9ff J9fgF ]Nքtcall WJf@"h )g2!@!i!yYxR9fNS9ff J9fgF ]Nraise-local-contextNվ\0ZBlower-global-contextNyh\4ZDBТpvalueNhV\z֐\BtsgcbN^Hsh1cbN^sh2cbN^ײtd1cbN^ td2cbN^ashcbN^0 (clear-auxN \Ou0 \z \Ou0 \z \Ou0 \z \ Ou0 \z  \Ou0 \z \Ou0 \z6B clear-auxNO^B clear-my-auxNYr^BN(.auxNF\X& tsgcb:tOHHzI|HEF\X& sh1cb:sOHHzI|HEF\X& sh2cb:sOHHzI|HEF\ X& td1cb:tOHHzI|HEF\X& td2cb:tOHHzI|HEF\X& ashcb:aOHHzI|HE6Bz.auxNOB՞_sgNjlsg-defsNn_*۸sg-value$W fB`L @!yYxR9fNS9ff J9fgF JgNt$WBB` .p/ ]Nsg-finNZVB> create-tsgN]u _ \z &Ja2 {@Bۆ:sg@Nlw`Zt`H,HB;sg@NH,HRnlr &Yw`&Zt`B&NZVBٴ(::tsgNFT.hxFTxhp׾O"F\hu0V\zFZ}B::tsg@N``>pxQDOTZt`Zt`OOTL &,Q`Zt`H w &_ YwwFX&9::tsg must be called within an active process definition.pEB;;sg@NH wRnZt`QBOTh &Yw_ w`>Zt`BFitsgNOWD.N,BF\Ou0F\׾\zF\׾\z׾h\zZBۨ_shapeNjsh-defsNnߪsh-value$W fB`r @"h )@"gV!A!@!yYxR9fNS9ff J9fgF JgNt$WBB` .p/` .p/ ]N`sh-finNZVBV sh-createN]u _ \z &ba2 {@Bܲ:sh@Nl߸w`VZt`B;sh@Nlr &߸Yw`&Zt`BratioNZB"relativeN*ZBabsoluteN<ZBoconNhZ F  VZBcconNhZ F* VZBosegNFF~ F <VV MNhZVZ6BcsegNFF~ F*<VV MNhZVZ6B`inf-conNZVBxsh-setup"o o!i@!I!yYxBR9fNS9ff J9fgF JgNt"| П @  Jg "@NtX ]N^ sh1-setupNվ\lB sh2-setupNվ\lB gsh1-setupNyh\lB( gsh2-setupNyh\lB4 ash-setupNվ\lB8((::shNFT.hxFTxFTxh }B(::shN``>pQOTZt`Zt`OOTLhL &,Q`VZt`Hi &_ Yw߸wDX&8::sh must be called within an active process definition.EBݸ::sh1@N &B::sh2@N &B::gsh1@N &8B$::gsh2@N &^BB::ash@N &B`::sh@N &.B;;sh@NHiRnZt`QBOTh &߸Yw_ w`>Zt`Bߘ_tdNjׄtd-defsNntd-value$W f OB`N @!o !yYxR9fNS9ff J9fgF /iJg Nt$WBp. ]N& do-TDslotsN \ F \ 4 jR \  \4BV \ pjR \ M@R\z Btd-initNfdZZBLtd-finNvxR[Z,ZVB| td-createN]uF_ &a2V{@B:td@Nlw`nZt`B td-returnNV$H<ZB;td@Nlr &Yw`&Zt`BFsegNvx$FhVVvx @|vxVV@ MhNhFN~fvx@$~Z~6h$v6~f @$~ZvxZ 6BvconNvx$vx @8vxFvx@$~Z$ @$~ZvxZ BlpauseNR[Z,BrpauseNvx$&B con.outerNRhMBd seg.outerN~fRhMBinf-conNFvx@$~Z$B td1-setupNվ\ Ou0վ\z B td2-setupNվ\Ou0վ\zBN gtd1-setupNyh\ Ou0yh\z Bv gtd2-setupNyh\Ou0yh\zB:((::tdNFT.hxFTxFTxh }B(::tdN``>pQOTZt`Zt`OOTLhL &,QQZ`nZt`H~ &_ YwwDX&8::td must be called within an active process definition.EB~::td1@N &dBD::td2@N &JdBb::gtd1@N &dB::gtd2@N &dB;;td@NH~RnZt`QBOTh &Yw_ w`>Zt`Bitd1NOvW\N,ZBF\ Ou0F\ \z h\z Z Bitd2NOvWJN,ZBF\Ou0F\&\z&h\zZB _ptchnameNj octave-offsetN^JٔoctN<H ZB-octNjH ZBx+octNjH ~ZBrNB2n#Nj~BV+nNj~H ~Bt-nNj~H Bc-NH B\cN Bvc+N* BPd-N* BdN< Bd+NN Be-NN BeNH Be+NH Bf-NH B.fNH BHf+NH Bg-NH B|gNH Bg+NH Ba-NH BaNH  Ba+NH  Bbb-NH  BbNH  B2b+NH  B-c-NHBBf-cNBB-c+N*BB-d-N*BB-dN<BB-d+NNBB-e-NNBB-eNHBB-e+NHBB(-f-NHBBD-fNHBB`-f+NHBBz-g-NHBB-gNHBB-g+NHBB-a-NHBB-aNH BB-a+NH BB-b-NH BB:-bNH BBV-b+NH BB+c-NH B+cN B+c+N* B+d-N* B+dN< B+d+NN B+e-NN B+eNH B4+e+NH BN+f-NH Bj+fNH B+f+NH B+g-NH B+gNH B+g+NH B+a-NH B+aNH  B*+a+NH  BD+b-NH  B`+bNH  B|+b+NH  B@_dollarNj $gtransposeNY8 $transposeN^t$volumeN^ $channelN^$$do-noteNn8 $do-pedalNnP $change-patchNninit-SMNninit-$NZtZZ Z$HHxBinstNRZZ ~B needparamsN^(4"volN^,<XdurN^0T@relN^4l$cvolumeN^8 getparamsN2BZ(վ\~վ\~վyh6yh\~yh\~Z,[Z*HЄZ0վ\`վ\\b@R**bh~*dbZ4Bj$NOJzFb8Z(BLrestN[Z*HЄ8Z(B@z$NOJzFBc$NOJ~zFBr$NVJFBfa$N* &^B fe$NV,JzN &F^B4fer$NVTJz F*N &F^B|ferc$NV\J~z F*N &F^B$*kNF 6Bf$nNhJ  B($nNJ  B$nrollN}hFJ<>FV~hJ 6b8Z(Bpm$N}  B~m$nN}6