0@ 01 `` `` `` `` `` `` ``!!  `` ! ``(lit)! ````(wlit)! ````branch$`@``?branchL ```(loop)l   ```(+loop) ݎ ```(do)Ȣ! `% ! $@! ``(?do)@```iP! ``j!  ``(leave) `@``(?leave)؀``unloop ``(of),````@``(endof)H`@``(endcase)``execute  ``digitؠ 0 &   1! !  ?``cmove@$`  ,@ ``cmove>d` !   ,@ ``and ``or``xor``<<8,``>>X4``>>ax<``lshift,``rshift4``+``-$``invert ?``negateD ``abs`k! |l` minxa! 8l ( maxV! l ( uminJ! l ( umax>! l ( up@,! ``sp@X! ``rp@x! ``up!``sp!``rp!،``>r! ``r>! ``r@r`!!!``2r>!!!``2r@!!!``>ip،! ``ip> ! ``ip@ $! ``ip>token H!  exit p``unnest ``tuck ! !``nip Ў``flip ) 1 4 ``0=  ?``0<> 4 ?``0< X ?``0<= | ?``0>  ?``0>= Ā  ?``<  ?``>  ?``= 8 ?``<> d ?``u>  ?``u<=  ?``u<  ?``u>=   ?``>= @ ?``<= l ?``drop ``dup Ȏ! ``over ! ``swap  ``rot (!!``-rot H!!``2drop t``2dup !!!``2over Ď!!! ``2swap !!!``3drop ``3dupL! !!!``pickl) ``1+ ``2+ ``1-Ј! ``2-! ``2/9 ``u2/1 ``2*0) ``4*H) ``8*`) ``onx?! ``off! ``+! @ ``@ ``d@ ! ``l@ ``l ``s>d$! | lwsplit8, 4 ! 1 ``wljoinX, 4 ) ``/c!/w!/l!/n!ca+``wa+) ``la+$) ``na+H) ``ta+l) ``ca1+ ``char+ ``wa1+Ԉ ``la1+ ``na1+  ``cell+( ``ta1+D ``/c*```charsx``/w*) ``/l*) ``/n*) ``cellsԉ) ``upc a z$?``lcc A Z$ ``comp0`    ?`` < ` ``caps-comp\`  azaz  ?`` < ` ``pack )  ) ) < @! ``(')p! ````skipstr!!  ! , !``(")!! ``!@`)```count(  ?! ``origin`! ``origin+``origin-!``instruction!! ``instruction,@!^p^ put-call$5!  ?@ ( put-branchP"!  ?0 ( set-delay-slot!^p  place-call!#^pH^P! place-cf! code-cf`!# >code|! code?݌!@ nextЌ!`$$`$ create-cf!8` variable-cf$!L` place-doesL! place-;codet! does-ip?! w dl `#  VL`#V put-cf! P (  usedw!^$ colon-cfHn!$`! colon-cf?la! <! d user-cfV!`` value-cfL!x` constant-cfB!` defer-cf8!` 2constant-cfD*!` /branch|?!branch,!`8 branch!! branch@ !T >target!`  /a !a@ 0 ``a! D$! ``a, `!^p 0^ ` /token !token@  ``token! $ ``token, Ì!^p ^ null!! ``!null-link!@!!@ (st !null-token!h!!@ ( non-null?! ! ?``get-token?!! ! another-link?!!sX! word-type"z! <X1 body>"<m! >body"pd! /user#"y!round-down"T!D round-up"J!  (D (align)">! ^pl_L aligned#,,! acf-aligned#t )``acf-align#!3$#,^p^ /mod# !  |l (x (x&,  |l<` ( 8 |lH<<` t Xl (L (L <<L&, /#Ԍ!# mod$͌!# dnegate$`!``dabs%! |l% dmax%8! % |l d+%dD!``d-%d!``clear-relocation-bits%! u/mod&@  ' '@  ,` @ ,4`@% @  u% 0 -`4`%`%` 0e,`@ g$ -`/4`4` 4`4`P`M` 4`G` D`  4`4`;`8`4`2`/`4` 4`4`# 4` 4`4` 4`󬅀 %`!``user-size&,! link(!entry(܎!saved-ip(Վ!saved-rp) Ύ! saved-sp)(ǎ!up0)DŽ!#user)X!#ualign)pŎ!ualigned)!)" ualloc)!)p( l]dUser area used up!)p ) ll) )p ()p nuser)z!)yp tuser*<q! )yp auser*`h! 0)yp sp0*o!rp0*j! init*U!X( um**o$$$$$$$$$$$$$@, 4`(@$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$@!``**!* (move),S DB  ,` `! -  4` `!   $` `! ) $ @$`=@ ) $ @$`%@ ) $ @$`5@ $ @$` -@C 86  ?! ,@% $ ?! 4@%  ?! $@ ` =@   ` %@   ` 5@  `   -@ ``move,({$init-user-area.v!(dlit).Ď! ``! ````perform. hash/   , ``search-thread/0#  ` ` ``  `@  @? ``  ``($find-next)/p$ 0!  ? !$`` @  ! ?``  ``?negate0,ڌ!l` wflip01 , ``cset0 @) ``creset1? @) ``ctoggle18 @) ``toggle1l @, ``s->l1``l->n1``n->a1``l->w1) 1 ``n->w2) 1 ``l>r24! ``lr>2P! ``lr@2t! ``/t*2) ``#talign2r!#linkalign2k!#align2e!#acf-align3^!align3$:!3#, talign3<2!2#, taligned3\)!2" linkalign3 !2#, /mod3!8<< u*3!* log23! ( L l  (X 2literal4! (bb 2variable4ڌ!v__ d0=4Ό! 4 d=4nj!%4 d0<5! | d<5$! H ( l du<5@! H ( l  dnegate5x!% dabs5! 5$l5 s>d5! | u>d6 ! d>s6(x! (d.)6Dq! 5CE4 HCE` (ud.)6`d!CE4 HE` d.6[!6`=A| ud.6S!6=A| ud.r6J!6<  A= d2*6>!H  |l (H ( d2/7,0!  ( H (v8? ( dmax7d! 5@l dmin7 ! 5@ 4l m+7!6 % 2rot80! 16<<8P!X 16>>8x!x um/mod8ٌ! @l4 4l$  8W 4l (8 (8x $8x H *% `&, <<, <  &,  dl 8x*8P<<% |l8 H t8x%L H8xW4 8x (8W4&,  dl * H% |l(<80L H << sm/rem8=! |l5  |l (` (8<H (` (`HH`,H (` ( fm/mod;0! 8 |lD ;0 l  (< (L < ;0 m*<! 8x (x*< |l5 */mod<|،!<|<< */<ό!< title<(.version=!]@4.0 .copyright=$!]@Forthmacs version =$?P]@1Copyright (c) 1994 FirmWorks All Rights Reserved?P (type=L,type=0(emit=4emit=8(key> @key?>4Dbye>LH(interactive?>`Linteractive?>|Paccept>vTalloc-mem>oXfree-mem>h\flush-cache>a`#out? [d#line?$Uhcr?<Plkey1?P/!`>Ll> emit1?h$!`=?$ type1?!` ?$= default-type? !WP`= (#out?!p(#line@@!tbell@X !bs@p!linefeed@! carret@! span@!xexpect@ό!>@ newline-pstring@|newline-stringA,!A` newlineA4ﴌ!A4 spaceAT戴!V> spacesA|!PA| backspacesA! `?$P@= beepA!@p= (lfB(x!?<@= (crBDm!@= lfBpf!?$BD crlfB]!BpB 'tibBd!tibBP!B #-bufB]!initCB!*( >C baseCC!hldCT>!holdCh)!ChChD <#C!CCh signC! |l-C >digitC! 8l'0 u#D!CT&, (DC u#sDH!DH 4l u#>Dt! ChC  mu/modD֌!`8< (8< #Dnj!CTD HDC #sE!E  4l #>E4! D (u.)E`!CDtD u.E!E=A| u.rE!E<  A= (.)E! xCDt (CD s.E!E=A| .rF y!E<  A= (ul.)F@l!$CDtD ul.Ftc!Ft=A| ul.rFZ!Ft<  A= (l.)FM! 1stCDttCD l.F?!CT dlFLFt=A| l.rG(-!F<  A= .Gp!!CT dlF LE ?G!G (.sG !XP$X G .sG!X |l0]@Stack Underflow *L(XlGL]@Empty ".HDی!`= stringbufH!/stringbufH!'"tempHԎ!initI!CHH> HI switch-stringI(!H I dl HI "tempIl흌!I $saveI핌!p` $catI퍌!`` ( d<<  H (D add-charIv!I`DIID nextcharJLf! 4l  ( (<V nexthexJQ!Jl8lVVL VL VVl get-hex-bytesJ5!)TSXl SJlXJ 4]d"Odd number of hex digits in string<XJLL get-charKP !LQhl L get-stringK!IlID"TIIK V l I` nHATJL$rH@JLtH JLfH JLlH@JLbHJLx!H@pJLX^H KJL,(HKP JLL .(LL싌!)T= ",M삌! 3^p (|^PX ,"Nu!LLN ."NPn!e`]@NPf< s"Nld!"T^Dl`(NL II "NQ!LL^Dl`(NL II [""]N?!`]b|N ["]O(6!`]NP \OL.!T compile-stringOl"!^Dl`]NLIlIp ""O!b|O p"O !LLO c"O!"TO nullstringP!placePD!p place-cstrPX! ` (d` (D< evenP|،!  +strP͌!`3 "copyPÌ!`<PX "moveQ빌!`<p /stringQ@믌!  t ( printable?Qh료! VW (W white-space?Q돌! Q 4 (V d -leadingQ끌! l8 Q 4l ( (L -trailingR j! P, Q 4 upperR|U!WP$  (D lowerRD!WP$ 0 (D capsSB!f83-compareSX,!SXlL\ +-1St! |H compareS! H \ l L(  l H $=S! H lLV \ 4 long-commentsT4!(T|!)T  dT|W 4l8 4l my-selfTَ!handlerU͎!catchU,긌!xUU,U,<U,< < throwUDꞌ! 4l U,<U,<U< ( < 0Uꢎ!1VꝎ!2V(꘎!3V<꓎!4VPꎎ!5Vdꉎ!6Vxꄎ!7V!8Vz!trueVt!falseVn!blVi! boundsVE!  ( rollWL ]@.?P<CT ldumpYD!CTXWPVE]@: W(<VEA|A|WH VWl>L ]@.?PD<CT forth-83[!]@0This implementation is nearly FORTH-83 standard,?P]@9but it uses files instead of BLOCK and has 32 bit stacks.?P mark-abort\abort\֌!\U abort"-string\َ!abort-message\Œ!\` (.")]蹌!= (abort")]@谌!l(\ H\UL  ?throw]d蝌! (lUL ("s)]萌!  'lastacf]蕎!lastacf^ 而!^ state^$臎!dp^D肎!here^Xm!^X limit^pz!unused^_!^^p allot-error^pallot^O! Xhd^ l^ ^X |l^p (`&L allot-abort^/!]@Dictionary overflow - here ^pG]@limit ^G?P\ ,_h!^p^ c,_!^p \^D w,_!^p^ l,`!^p^ d,`8!^pV<^t compile,`\!! compile`ߌ! $ ` ` ?pairs`ӌ! ]dControl structure mismatch ?comp`Č!^D 4]dCompilation Only ?execa経!^D]dExecution Only $definedaP禌!b|` $?missinga睌! 4l =]@ ?\ 'ia珌!aa literala燌!`_ lliteralb}!b dliteralb0u!`.`\ safe-parse-wordbPj! 4]dUnexpected end-of-line charb|Z!b|  [char]bQ!bV(n asciibH!bV(n controlc?!bVV(n 'c(4!a [']cT-!ecT``f< [compile]cp !cT` postponec!a |l ``` recursec !^$` abort"c!e`]dNPf< saved-dpd!saved-limitdL!leveldh!/compile-bufferd!'compile-bufferd!compile-bufferdь!d initdɌ!I(dd>d reset-dpe滌!dL^Xdh^ 0levele8歌!dlde8 +levelep栌!dlV(dL`^D 4lLV(d^pdL^dhd^Xdd^q$ -levelez!^D 4]dControl structure mismatchdl@dd 4l` e8pd +>markf<V!e`^pV +resolvefB!^p  (f< -useri剌!iX user#,j倌!^p ()`8j .idj$v!~=A| .namejLm!jL warningjpt!casej_!eV ofjX!Hf endofjO!fgxg endcasejD!`WlgLf< wherekP(wherekP/!> 4lP^Dl ]@ Compiling L]@ Latest word was ?P losekh!V]dUndefined word encountered >numberk! lt CT 4l < (CT* HCT*%V(QhL numdelim?l܌! . d (, d $dnumber?ľ!VV 4l V - d `Qhl V( 8lD l 4l < V V(QhLlD. dlVL < V L V l <l5V<L <l`V( do-definedl$do-undefinednLdo-literalnl(do-literal)n_!^Dl,V< dlbPLbL $handle-literal?nb($handle-literal?)o>!l l nV $compileo,1! ` l nLL,Lo 4l nl interpret-do-definedo`!  compile-do-definedo! lL` .not-foundp!=]@ ??PkP $interpret-do-undefinedp@!p@Ol $compile-do-undefinedp|ތ!p@`k [p([)pь!onLtp|nlt^D ]p(])q$㻌!pnLtpnlt^D ?stackq8㩌!x* ( ]dStack Underflowx*Y ]dStack Overflow ?permittedqinterpretq(interpretr~! lqo`L ??crr,o!?$l?P okrhe! statusrzmark-outputrs(ok)rm"ok"rL!]@ok do-promptrB!?< /linksW!link@s@3! D link!sX,! ` link,st%! l*s!, lnswaps! ( l0=s! 4 ldups ! nlswaps! ( ldropt! l2dupt0! lswaptL! ( l=th! d lnovert!  landtی! labstԌ!x l+tΌ! l-tȌ! lnegateu!` l2/u ⻌! lminu8ⴌ! lmaxuT⭌! \itcup⦌!Ol \dtcu⟌! \ttcu♌!Ol \t8uⓌ!Ol \t16u⌌!Ol \t32u⅌! 32\v‌! 64\v${!Ol $headerv8headervT (header)vlg!b|vT $createv_!vT$ createvW!vl$ cspv_!!cspvJ!xv ?cspvA!xv ]dStack Changed (;code)w 2! $#t#H (does>)w\(! $#H do-entercodew8codew!vl|vw end-codew !w x ` c;w!w ;codex!w `w\3<#pw does>x<!`w3<#t :xx!aPvvlq$l :nonamexՌ!aPvq$l ;xˌ!aw ` p recursivexᾌ! constanty,ᶌ!vl_ useryLᭌ!vl`8 valueypᤌ!vlj$ variableyᘌ!vlLV_ wvariableyፌ!vLV` crashy჌!`   dl\`=A|LjpV]d <--deferred word not initialized deferza!vlDz j$ 2constantzS!vl| (__ 2variablezG!vV_V_ buffer-link{J!make-buffer{84!^p"p (Vj$_{8sXs{8st do-buffer{T ! jljL8 " > HX, Hj (buffer:){!${Tw)!{ buffer:|!vl| >buffer-link|H!""V(l clear-buffer:s|p!{8"l "j|pL init|ό!e| find-name|ƌ!~t~ >name?} ྌ! } ~ 4lLV s@# l V ~V tWP8VW 4l 4 n>link},! l>name}! n>flags~! name>~|!}~T link>~4t!s@ >link~Tl!s@ >flags~td!~ name>string~[!   ( l>beginning~L!~~ >threads~B!"j lastI!$make-header<2! t s@^p # ( ^ ^p |^P| D^p<s@^^p ( sX (~tstst<<D >first\! $find-word,!Дl >ptrL! l L  next-wordpތ!p"l~tVLV insert-wordΌ!p (~T ( sX (~tstst remove-word߽!҄ (~T (~T~t sX dl (~tsX (st " 4l voc>0ߡ! >voc-linkߚ!"" vocabularyߐ!vs@j$!h|V_w߱!"p` \tagvoc}! \nottagvoc0v!Ol $find-nextL߉ hidden-voclv!$not-hidden`!! hideX! <}0 revealJ!P!l <}V H #threadsV!voc-linkD@!(voc-link,`*!^$`sXs`st find-voc|!`"V dlVVL ( (`l< fake-name-buf!,fake-name(!CTXCVC)CDt(CD(I  ( (D<CT >nameDӌ! },l L immediateÌ!<~ @ (D immediate?޲!~@ X flagalias\ޥ!<~   (D .lastޕ!<jL current-vocދ!x canonical-wordޖ!0init {!| >( > $canonical8i!SXl  I S $create-wordV!jll <lLl<  =<]@ isn't unique ?PL  <<\ ($header)-! search-wordlistp#!<L 4l $vfind!<L find-fixup! lt ~T (~~ l ( (@lV(L tbuf!4follow݌! V( another?Ќ!( l$ (~VLV trimݹ!V`l( l `0L< fence@ݱ!<(forget)ݛ! D ]d below fence`sX lX d]d&I can't forget the current vocabulary. L `st @" 4l~^p ^ forgetb!b|a ~t markerU!v)p_wy! )p"p initB!80,l #vocsU!contextH@!@current`:!/contextxB!@context-bounds!`W shuffle-down!  P4!l  !  clear-context!P!  compact-search-orderP!P8! 4lL  (except͌!P0  dl !  priorƎ!$findHܱ! HVPp !lL H H dl VLL LV Wl L V find`}! `` 4l < (L < >voc0g! ,` rootנalsoV!`V(H , (min-search)F! minimum-search-order Uonly<4!P< exceptT,!cT sealt$! previous!V(`H ,dH! definitions!` x order!]@ context: P$!ljp VdA]@ current: x jp vocs0ߌ!`"l<?$@ 8l?P jpL forthAinit!T isvar$Ď!isvalPĎ!is-errorhۨ!]@Can't use is with jp?P\ to-hook۴>bu۔!"j word-typesې!>4)phVPdata-locsۄ!""!ops(z! associatePj!"< !l<"< dl  $ V `LLV +execute|M! (  kerntype?B!|lVL V behavior3! (isX,! |l ( (P >datat! |l"L ( (is) ! $ ` t do-is! l4^Dl`!LtL is$!cT$ struct|!V fieldی!v `8w\``ln+``@c@++    ``@c!++ ,   ``split-string@! $ 2 @!! ``2 !``parse-line!  $22@!  "! ``2 !``delimitern!fileh! ᤈ@``eofk!bfbase!bflimit!bftop !bfend8ߎ! bfcurrentP؎!bfdirtylҎ!fmode̎!fstartƎ!fid!$seekop!(readop!,writeop!0closeop!4alignop(!8sizeop@!<line-delimiterX!@pre-delimiterx!Apadding!B/fd!DsetupfdҌ!(@X not-openَ!read8ӎ!writeP͎!modifyhǎ!read-write!nullwriteٛ! V fakewriteّ! nullalignو! nullreadـ! V nullseek$v! fakereadLm! initbufpe!VV8    l P8 release-fdI!8 fdavail?=!8 d sync01!8l ll8 ?flushbuf`!l`8   ]dFlushbuf error 8l fillbuf!@ 8   8 P >bufaddr`Ɍ!%  shortseekػ! 6 % `8l input-file8س!?fillbuf؝!  dl(88l LV fclose؆! 0l L ( 'word ؇!#fds\؊!/fdst؄! fdsp!init[!$H>\>W (get-fdA!VWP,0l  string-sizeop (!  V (in-dictionary?!^pW in-dictionary?).error##(.error#)! dlD]@ The file '=]@' cannot be opened.L]@Error G .error !rh dl]=LL dl L( l`=L?PkP guarded׼!UDWl pause4init-io`do-initxcold-hook׹init-environmentװ(cold-hook׎!p coldׇ!Y x44>l= singler! `t warm\g!\* /fbufz!get-fdV! 4]d all fds used > dftellE!l V% ftell4! fflushT,! dfseekt#!` PWl L `8l fseek!V ( (feof?!l8 @ fgetc@!l8 llL0l8@lL l fputclЌ!lP @ll8l@ copyinֺ!  Pl  l  l (. l copyout<֞!  8l  l H H. l fputsֆ!  (< l`l8L fgets o!`   l4l8@l ( L ( dfsizehO!8 V%X7 fsize8! do-fopenDJfopenh)!V<Y|hlL8V close-files!W  maker/o!w/o0!r/wD!binX !opened-filenamel!open-fileߌ! 8`p` <l 4l ( lVL close-fileռ!W 4l V dl V  UDWl LV left-parse-string4՚! l ( ( line-delimiterՙ!pre-delimiterՑ!remaining${!l8  $set-line-delimiter8l!@ l\@DV( 8l8 @ dl@D@DL$ @l@DL set-line-delimitert?!VV`8t -pre-delimiter(0!l8 l,  dl parse-line-pieced!8d ` @lD `l  .V  (.< t ll 4 read-line!V <l88UDWl  V ( 8 4l XV Qh<Lp VV cstrbufƎ!init`ԫ!f>` $cstrxԟ!  4l ``dV`<D` cstrԇ!` cstrlen! lL ( cscount(o! ( _fclosehg!   >T _fwriteV! (<TL l V _freadC! (<TL ]d _fread failed _lseek/!(T t0 _fseekh!!V th]d _fseek failed _dfseek! _ftell !V(V Hh]d _ftell failed _dftell!V _fsize8!`V<V`h]d _fsize failedth< _dfsizeXތ!XV sys_fopenՌ!` ( tVTL l< V ``P dlL <h dl$L V file-protectionө!sys_makeӓ! ( T l VLT 4 _deletew!,T sys_newlineHj!pT install-disk-io|^!|Ah lf-pstrQ! cr-pstrK! crlf-pstr E! sys-emit$:!VdT sys-key<1!VT sys-(key?`'! T sys-cr!lT?$V(?< sys-interactive? !0T 4 sys-accept!8T ?$V(?< sys-type$!4T sys-byeh!V$T sys-alloc-memٌ!hT sys-free-mem̌!T sys-flush-cache!tT install-wrapper-io$Ҵ!>>?Ph=<=`> >L>`$>>$? syscall-vecTҐ!sysretval ҉!syscall< : ``retvalT]!< lretvalU!<$ errno[!error?F! | l<T cstr 5! _falignP.! D _dfalignl"! (D ( unix-init-io!T> >4t unix-init! id:!Ol copyright:$!Ol purpose:D!Ol >argd! Ơ ll VLƸ (H<hV arg#!next-arg͌! lV( process-argumentѻ! (-sT4l@ 4]dMissing argument after '-s'èL0 (-T4l °L process-command-line8ё!ƠV( l V(l,8UDWl >`L>` set-swap-bitr! note-string\j! allocate|c!> 4 freeZ!V>V insane`!exit-interact?^!more-input?B!V /tibW!blk@C!?block-validTG >int6!#tib0!'source-id)!source-id! 'source!#source! source-adr! source,!, set-sourceL! save-inputt!LTVx restore-inputҌ! TtV set-inputŒ!VVVx skipwhiteж! l0 V 8l V(QhL scantowhiteLР!  ( l< V l  V(QhL skipcharЃ! l8 ` l< V(QhL< scantocharh!  ( l@ ` dl<  V(QhL< parse-wordH!LQh L<   parse4!LQh  H<   wordT !LQh  H`<<   U 8]dParsed string overflow\p refill!TlV(Tt dl V ,ld@]dRead error in refill @ d]dline too long in input fileL(@> lVL (V (prompt)8ϸ!>l`rhr^Dl@dWlV(F@L ]@ ]@] Lrr (interact)Dϗ!B@VpX |l$]@Stack Underflow?PXx*Y l ]@Stack Overflow?PXs8l4rUDrhWl XlXV interact]!U (quit)°M!*°>` interpret-lines@!8lrL (evaluate)$3! l(rL evaluateX!XUDWl U include-fileè!@VdU@ H$UD4 , UU include-hook $include-exit-hookĘ(includedļӌ!Ę0U ļ includingƌ!b| fl ο! (mark-abort)(ζ!>l,?PL=?PA]@^?P environment?Lμ,null-environment?ŠΘ! V promptΫ0quitΥ4fload΄!( $report-name{!]@Loading =?P main-task8΋! memtoppv!8#argsƈv!<argsƠp!@cold-codeƸO!@1# &'1x5`05`    8  & & &   < @ (b@``command-completion?1!DtransientǴ! ?resident! \Tags!]maketags0 4lOl \NotTags!]maketags_h0 lOl disposeH! start-moduleȄ! end-moduleȤٌ! lightӌ! dark͌! headerless0ƌ! headers ! headerless$͹! external@Ͳ! variable\ͫ!*< 2variablexͣ!V<)yp lvariableɘ͘!)yp n!͐! shared-variable͇!*< +fseek̀! Tt ( fseek-from-end$s! DtVupt ifdXv!Hofdʈq!Lread-openʜ[! P ʈl L8]@ Can't open H]@ for reading.?P\ readingʸ=!Vʸ write-open03! ʜl L8]@ Can't open H]@ for writing.?P\ new-fileX!  4l$]@ Can't create H?P\X writing!V append-open$! Wl(ʜ VʜXL appendingLߌ!VL file-exists?̨Ԍ!P l V setaliasƌ! l^$^p ^! alias ̶!va hiddenL%P[else]x̣!V( l ([if]T4l Lp ([else]T4l$  lL ([then]T4lW 4l LP 8 4l< [if]͘i! 4l͘ [then]΀_! [ifdef]ΨY!a 4l ΀ [ifndef]J!a 4 l ΀ /hashcacheY!hashcache86Tlink+T,!H vhasht%!V (VPXT (t match?ϐ!"lD~ H  dl\ 4L LVL V clear-hashcache!T8WP!hs@ probe-cacheP!  dl ϐllsX~tVLLll$< ~T (stVL< V< , forth?Д˵! d replace-entryP˩!<~4<~ϐst clear-entryр˚!<~ϐ!h cached-makeѼˎ!Plр cached-hide˂!PlѼ cached-revealu!Plр cached-removePh! ~~ϐ!h string2҄^XTsave-stringҴS!ҴQҴ $numberJ!lVHV<V(HV$V<H V #:0!v_wU!CTCTo`<CT tdd thӼb#o#d#ܠ h# נ(s !T >user#4!"i 'user#P!cTP trp! xԌ! .cstrԤٌ!  l8 AT dl ?PL>L .h!CTXG<CT .x .dTʱ!CTY G<CT lo-segment-base`ʼ\lo-segment-limitՠʳ`hi-segment-baseʫdhi-segment-limitʢhdictionary-size!^p #!(x!Ol >isD!optional-arg$\l!VTR R| d<>tc! H t  c?֘Y!G w?R!lG l?K!<G d?D! (GG showstack9!Gr noshowstack@.! r lmarginl3!lrmarginה-!p?line׬!?$׬ 8l?PהA ?cr!V to-column!?$ V(A tabstops,!t?to-column`! ׬ 8l ?PהAL?$ A .tab|Ҍ!׬` ה8?$ ll `| csearchɴ! ( l V VP lL V wsearchTɘ! H24 t ( l V lVP lL V tsearchy! ( l V VP l3L V search@\! ( l V VP l3L V next-tokenڴ>!  d]dCan't find word to replace find-lit,)!", dl< ` dl L `(L`L find-tokenۀ !",V< dl `L make-name!CDt#C<CD put-constantH! CT dlhHL,CTY dH<CTjjvT (_<j^$ ( put-noop܌ȹ!` ( (patch)@Ȯ! (l0ۀ (l` @ (l ܌ get-word-typelȑ!`l V lV( ]d?V (npatch!V <l (patch(t!V <l npatchTi!V cTl patchހ_!cTl stack-paramsިS! " ({  circular-stack:A!v^p"p (Vj$_{8sXs{8st push +!( l V (( popx!Wl(  (L ( top@! l L ( pseudo-rs(!xҴ>rp!^Dl`L px r>׌!^Dl`<L p r@Ȍ!^Dl``L p( 2>rǹ!^Dl`L (pxpx 2r>@ǧ!^Dl`Lpp ( 2r@Ǖ!^Dl`L$pp( ( px rǀ! rx$z!$ re-heads|xheaderless:<h!$`#! header:Z! Ol find-headQ!`l8 ~4 dl L LD needs7!b|`l b| L b| \needsH$!b|`l OlL 1-more-line?`!!exit?'suspend!?<rh]@More [,,q] ? >4?$BpABp?$ q dl V n dl V @ d (@ dl V default-#lines !lines/page(exit?) !> 4l V ?< @l l ?< dl >Ll<>4q dl?<VL LV no-page$Ɖ!V string-array}!vV_V_wƠ! V (W 4]dString array index out of range ( (l end-string-array0S!^p^$" (^p` ( 8l ` _PL ^$" (^p ( $ (< lbsplit%!  (Vx  (Vx  (Vx wbsplit!  (Vx bljoin!VXVXVX bwjoinH!VX dc@.2ی!CDHDHD=A| d.2Ќ!WP emit.Œ! Q 4l .> emit.lnŰ!WP dlndţ!rh $VEV<AV A| VA|d ?.nŋ! dl]@\/ L V<F@A| ?.az! dl]@v L V(F@ .head<i!rh xxWlVEV<AL A (  (VVA|VA|V< H (dump)(!CT tX 4lW$CT dump ! du! @@ over-vocabulary !l} L +words\!Vה@׬`rhl0 ~ jLl L follow-to!l(  l V L V prior-words ī!` l@]@)There are no words prior to this address.?PL wordsxĐ!` wordsĆ! (in-dictionary?)|!^pW probably-cfa?4q! # d lL V find-cfa`\! 4l k 2 `l iscreateK!(see) \cr".;! = .."83!N`8 outX+!?P]@subscript out of range on "pjp]@ max is G]@ tried G mapx!  l( (lLx maptoken!  l ( ( ,Lx case: !v_q$w!0  tassociative:|،!v_w!   t(<V< dl VV` #entries0ó!" nulldisXë! ]@ disassemblexøbreaks♠pend-breaksÝ!break-typeÖ!break-addrÏ!where-break$È!next-break@r!$P\ $ l($@L H$ l @8 forward-branch?\=!  bare-if?03!  L dl V l dl0L V while?X!   L dl0 4L V indent(indent)8!?$ה 8l?Pה?$ A +indentT!VPה8 -indent֌!ה8 8L0Vה8(;code 8?PV .branch4! 0l$(else88L(repeat 8 .?branch! 0lP l$(while88L(if 8L(until 8 .dof!(do 8 .?doZ!(?do 8 .loopN!(loop 8 .+loopB!(+loop 8 .of7!(of 8 check-[compile]H*! \l( [compile] 8 put"|!">A| .cword! ~ ( (V< =A|` .word! |jp` skip-word,!` .inline`!` G( skip-inline|ތ!`( .wlit֌!` G skip-wlitɌ!` skip-branch! .quote$!,, skip-quote@!`` .compiled!]@compile `, skip-compile!`` skip-string!`P .(')!`(['] 8 jp` skip-(')x!`` .isDq! jp` .string-tail`d! `=P .stringZ! .pstringP!]@p` .unnestC!  @l0Vה8(; 8 VL(exit 8` dummy'! execution-classLlL`]@]dw\ (Pw $H].execution-class|44H$`, do-scanD<<$$$$D$``` install-decomp!TDT ( ,@ scan-pf|!   4l .tokenx! D .pfDo! \VPה8$  dl4\$  lLD 4l PDUl .immediateC!\l( immediate8 .definer4!jp jp dump-bodyT*!CTX GV<AVd<CT .:|!TA|A|"h .constant ! GT .vocabulary!T .code(!T .variableH! GT(value = 8G .createp܌! "GT(value = 8"| .userˌ! "GT( value = 8G .defer!T(is 8?P .alias<!T" jp .valuex! (GT .other!T"]@ (Body: |]@ ) ?P isalias !iscreate !wt, }!cT"<! word-types0 $``8  xcf,Xe!cT! definition-class xyLxypzvLyw.definition-classd p<(xH definer5! l w "<X XX dl "<L "0 ((seeP!@׬ P rh seeh!cT UDl (see-chain) ! Pz dl"j Px d 4l\ " ( dl `P L L see-chainX!cTXUDl buf-start-adrǎ!buflen \!bufmax t!line-start-adr !linelen !#before !line# !display? !accepting? !deny-history? ,!#after Lp!   cursor-adr de!   after \!  d buf-extent S! \ t buf#after I!   line-end-adr =!  on-command-line? 02! ,  0 d beep \&! l= -chars !VP0 l@=?$ +chars ! l (=L .spaces ! lAL .trailing H! d  H  d forward-characters ٌ! d    backward-characters Ȍ!    (  kill-buffer ۺQ(erase-characters) D!`V( 8l ` DPX ` ( ` d<` t (insert-characters) p!  t lT  t    VP   (dL V update-linelen g! VP4 AT dV(  set-linelenP!V  (to-command-line)C!V   |l, 0 V( L ?copyline*!  |lH    dl d pV   erase-characters| !|  p `  insert-characters!|  V ch<!insert-characterd!dDdV(< forward-characterٌ!V( backward-characterΌ!V(  erase-next-characterŒ! dV( erase-previous-character! V(   beginning-of-lineX!   end-of-line! d beginning-of-file!V  \ V  kill-to-end-of-line}! dWlL0 , 4l  V( pV .num0e! ,  4l L4CTY BpVdE]@: <CT .line#J!  retype-line@!?P  =V find-previous-word$0!  P8V l  HP<V dl  find-next-wordd! 0  P0V dl  0 HP0V l  display-lineڌ!V  l8 =  V  H L   last-line?! 0  l next-line<! , Ll < 4lP d 0 V(  , 4 l ?PV previous-lineh! , Ll  \ l d \  dl LH@ AT d  end-of-wordT! WP$V d forward-word@!   backward-word$4! d   erase-next-wordT(!   erase-previous-word! T   quote-next-character !>4 split-line! , 4l@ATdDdV( l d   L new-line!h list-fileߌ! , Ll ?PV  WPP AT dl( ?P L> $ yank! D`< keys-forth &`skeytkeysL!name-bufؙ  Dadd-char-to-string! ` D< (D add-char-to-namey! V l0 ^aLp  dl (del HI dl (ext HI  not-found@blastcharO!do-command$9!Q$@` lL printable-char@;finished(!start-edit!    t \ \< V  finish-edit! t edit-command-loopH!$$ V~W (Wl$L PD@l?P edit-buffertČ!VVtH edit-file!VV hbufmaxHÎ!hbuf-adrlש hbuflen!ensure-line-end!lLAT l(ATD make-room{!l  lD VP . ( L  open-history8X!8lV xacceptL!> 4l $ l 8lV (VVLV ,V , (   t. new-line-or-done! ,l4  l|L self-insert!$ ^f! ^b (! ^a @! ^c X! ^e p! ^d ! ^h ڌ!X ^i Ԍ!  ^j Ό! ^k Ȍ!0 ^l!Œ! ^m!! ^n!4!h ^o!L! ^p!d! ^q!|! ^x!! ^y!!L esc-y!!L ^{!!>4$]esc-@ esc-o!}! esc-h"0v! esc-d"Lo! esc-f"hh!$ esc-b"a!T esc-^h"Z! esc-^d"S! esc-^f"L!$ esc-^b"E!T esc-del#>! esc-[#,7!>4$]esc-[@ esc-[A#H*! esc-[B#|#!h esc-[C#! esc-[D#! emacs-edit  ! > init!x# ^u#!0 ^w$T! ^r$p!$ del$!X command-completion$8Qtfind-endcinsert$cerase% start-of-word%Ɏ!$#candidates-max%<Ў!#candidates%\!(candidates%xզ,Poverflow%!0word-to-string%! %< %< \PX\ collect-string%!$ %< l\  W (@V dl%<% substring?&$[!~ H`V< l V V (WP<  l ( 4 ( new-candidate&1!%x%\ ll % %%xlV(%x find-candidates-in-voc'`!l, &l'`L L find-candidates'!%x%H  4l `Hs@,WT"l8 H H dl L's@ cclash?((Ќ!~VP l VLV<  candidates-agree?(!%~V< dl V V t%(%xWP8(l H V t Hl VL V expand-initial-substring)H}! %< )Hl%L candidate*0k44%one-candidate?*_!%~*PXV%%xWP<~*`T4 4l 4 do-erase*=!%  4l ((%x 4l%L do-expand+0%!*0*lV%L expand-word+!&$((%xl+L+0 show-candidates+!@׬%%xWP jL%l]@... do-show,!?P&$ l((,L` ]@Any word at all is a candidate.?P]@&Use words to see the entire dictionary$ install-fcmd,!$%X% ^`$!+ ^}-!, ^-!, .current-word$!jp .caller-!,]@ Called from -8,]@at E .calls-s! @l0 -?Pl `L ՠ @l0 -?Pl `L substring?.XH! H l VL T4 unpack-name/5! (~ Hp 4drop#+! 4dup/x#! sindex/P!VV<  8l/x< //l/x< ( (<L sift-string/!8sift-vocabulary0L!@vsift0l! 0llL ~0L/ ljLL L $sift/Ɍ!0L8`"l 0L sifting1!b|1 array1H!|HwՎ!{ (l list:1hx!listnode1!nodetype:1!vV<j$V (w!j >next-node1!insert-after2}!  ( delete-after20p!   ( find-node2dc!V< <  4l< ` tl<<< last-node2@! 42 more-nodes3$5! ( , > (3$ (WP  ( V ( allocate-node3P!  4l 3P   H free-node3!20 $find-name40!` 4l$]@ Can't find =?P\ init-save4P!4P(init4P( (cold-hook4P^p ` srassembler4BD$lor!land5 !here50Hasm-allot5@Lasm@5\Pasm!5tTresident-assembler5!^p5@^5\<5t5 immedmask5!immedbit6 ! maximmed6(!minimmed6D!regmask6`!regmagic6x!asimask6|!reg6Y!6 register6P!v`wv!l6 %g06%g17%g27(%g37<%g47P%g57d%g67x۠%g77֠%o07Ѡ%o17̠ %o27Ǡ %o37  %o47 %o58 %o68%o78,%l08@%l18T%l28h%l38|%l48%l58%l68%l78%i08%i18|%i29w%i39r%i490m%i59Dh%i69Xc%i79l^%r09Y%r19T%r29O%r39J%r49E%r59@%r69;%r7: 6%r8: 1%r9:4, %r10:H' %r11:\" %r12:p %r13: %r14:%r15:%r16: %r17:%r18:%r19:%r20;%r21;$%r22;8%r23;L%r24;`%r25;tܠ%r26;נ%r27;Ҡ%r28;͠%r29;Ƞ%r30;à%r31;%f0< %f1<!%f2<("%f3<<#%f47:%f27>2;%f28>0-<%f29>D(=%f30>X#>%f31>l?%asi>@%xcc>A%icc>Bisimmed?>T!6`6DW ?freg>K! <>W 4]d Floating point register required ?ireg>6! 79W 4]dInteger register required setbits?L#!5@5\5 opaddr?!5@ addbits?!?5t?5 clearbits?!D?5t?5 regset@! (6x (X? rs@D!@D rd@p!@D rs2@݌!V@D src@֌! >l 6 6(?L@@p %asi?@Ì!> d asrcA! Al\ > 4]d8Immediate must be used with alternate space instructionsLh6VxX? >]d@Immediate fields can't be used with alternate space instructions@ set-opA8!X (X? wcreateB r!v`xx`l set-op2B\g!V<B w@set-op3B^!lVPB w@set-op2BT!lB createw,BK!v` op3BD!Bwk!B@@ opaC8!Bw_!B@A8 sop3CD+!BwR!B@@ sopaCx!BwE!BA8@ lduwCѠstCldswCǠldubD stbD֠ldsbD0 ldstubDD lduhD\sthDpldshD stxDlddDstdDldxD swaplDldDldaEstaE$ldswaE8ldubaEL}stbaE`ldsbaEtsldstbaEmlduhaEhsthaE}ldshaE^stxaEslddaETstdaFildxaFJswapaF,EldfF@4 stfFTH$ldfsrFh*!stfsrF|>%ldqfF "stdfqF4&prefetchF-lddfF#stdfF$'ldfaF0casaG stfaG4stdfaG7ldf2Gؠ(stf2G,ldf3GΠ)stf3G-op2H!Bw+!B@@ sop2H!Bw!B@@ dstop2HH!Bw!B@ srcop2H|ތ!Bw!B@ addHӠaddcHΠaddccHɠaddcccIàandImulxI, andccI@orITumulIh orccI|umulccIxorIsmulI xorccIsmulccIsubIsubcJ subccJ${subcccJ8uandnJPpudivxJdk andnccJxeornJ`udivJ[ornccJVudivccJPxnorJKsdivJFxnorccK @sdivccK$:taddccK<4 rdasrKT/(wrasrKh*0jmplK|%8tsubccK!returnK9taddcctvK"rdprK*wrprK 2tsubcctvL#mulsccL$saveL0<sllLD%sdivxLX-restoreLl=srlL&popcLޠ.sraL٠'rdpsrL)rdwimL*rdtbrL+wrpsrL1wrwimM2wrtbrM$3rettM89#LoadLoadMLΎ!#StoreLoadMdǎ!#LoadStoreM!#StoreStoreM!#LookasideM!#MemIssueM! #SyncM!@membarN!8@ (7Kh rdasrN w!7 (Kh rdprNHn!7 (K addxNlH!subxNJ$addxccNIsubxccNJP!sllxNU!LX? srlxNK!L? sraxNA!L? rdyO 8!7 (NH wryOD0!7K| rdccrOd(!7< (NH wrccrO!7<K| rdasiO!7P (NH wrasiO!7PK| rdtickO!7d (NH rdpcP !7x (NH rdfprsP0!7 (NH wrfprsPT!7K| popcPx!7 tL flushwPڌ!+B savedPь!1B7@ restoredPŌ!1B7(@ doneQ!>B7@ retryQ<!>B7(@ wrpr:Qh!v_wʎ!7L rdpr:Q!v_w!7 (Nl wrtpcQwrtnpcRwrtstateR$۠wrttR<֠wrtickRPѠwrtbaRd̠wrpstateRxƠwrtlRwrpilRwrcwpR wrcansaveR wrcanrestoreR wrcleanwinS wrotherwinS wrwstateS0rdtpcSHrdtnpcS\rdtstateSprdttSrdtickSrdtbaSrdpstateSrdtlS}rdpilSxrdcwpTs rdcansaveTm rdcanrestoreT0f rdcleanwinTL` rdotherwinTdZ rdwstateT|TrdverTOtrapifTڌ!:B?@ iflushTό!;B@ stbarTŌ!8@7NH set-opfU!4BlVxX? ffopU4!Bw֎!U4>@>@ fstodUhfstoxUfdtosUfdtoxUfxtosUfxtodUܠfmovsVנfnegsVҠfabssV0͠ fsqrtsVDǠ)fsqrtdV\*fsqrtxVt+fitosVfitodVfitoxVfstoirVfdtoirVfxtoirVfstoiWfdtoiW$fxtoiW8f2opWL1!BwX!U4>@>@>@p faddsW`AfadddWBfaddxWCfsubsWEfsubdWߠFfsubxWڠGfmulsXՠIfmuldXРJfmulxX0ˠKfdivsXDƠMfdivdXXNfdivxXlOfcmpopX!Bw !U4V(X?>@>@p fcmpsXQfcmpdXRfcmpxXSfcmpesYUfcmpedY(ڠVfcmpexY@ԠWcondYX!BwՎ!lX alwaysYlneverYhiY lsYccY csYݠneZؠ eqZӠvcZ0ΠvsZDɠplZXĠmiZlgeZ ltZgtZ leZ-condZP!8 op0ZH!X? unimp[>!V[ sethi[,6!Vd[@$ x? nop[L)!V7[L fits-immediate-field?[!1W setuw[! $[l(7 H HIhL< [L ( l IhL set[[!setsw\h! [ ( |l7 LL setx\xٌ! H [l7 ( HIh xWl\ [ N$ ( l [ IhLLL ([ ret\!9V7K retl]!8@V7K ,a]! ? ,pt]!? ,pn]!@ annul^ ]̎!offset-22^0x! V< W 4]d displacement out of 22-bit range? offset-30^DZ! V<? branch:^N!Bwu!l[??^D? offset-16^=! V< W 4]d displacement out of 16-bit range ? ( xX offset-19_0! V< W 4]d displacement out of 19-bit range %icc?_!> d %xcc?`L!> d bpcc:`l!Bw !l[??_? `Ll 0@L\ `ll( 0@ ?L(rh]@Bad CC register ?P] bpr:`!Bw܎!lVP[?_0?@p] offset-19/22aP! 5txVV( dl_L^D brifaBbrfifa=brcifb8branch!b|! ^D0 (5 bprifb4bprfifbhbprabd!Ybh brab]!Ya brzbbrlezbbrnzbbrnzbbrgzcbrgezccallc08!@??^? markct%!5@ >resolvec!5@ a 5t (5 butc! ( >+resolvec!5@ a 5t (5 d" 0<>d >e 0>e >=e, u>e@  u>=eT 0>=ehife|!c5@ HZa aheade!Ye thene!c elsee!ecd begine!ct whilef{!ec untilf8s!Za againfXk!b repeatfxd!fxd label5\!vww!#t acf-labelfO!vw3wt!#t# assemblerf>!5 basef7!7< upgH1!7P tosg`+!7d ipgx%!7x rpg!7 spg!7 scrg!8T sc1g !8h sc2g!8| sc3h!8 sc4h !8 sc5h8!8 sc6hP!8 sc7hh!8 spch!8@ sllnh܌!LX srlnhՌ!L sranhΌ!L ngethnj!E nputi!C puti$!V (i$ geti<!V (i lgeti\!V (E lputi!V (C movei!7 tH ainci!  (H adeci!  (J pushjz! ji< popj<r!  ti\i testj\h!77I cmpj`!7J8 rtgetjX!E bubblejQ! nextj!end-codejwc;k x!'userk?!g`cTP  l]duser number too big 'bodyk(+!cT" 'acfkx"!cT apfk!hV entercodeg,!3<vg, #references-maxk%!#labels-maxl!referencesl$X*local-labelsl@\l@next-referenceslh`lh>referencel܌!l,l@ >labellь!lh (l >next-referencelƌ!l (l resolve-forward-referencesm ! m  (lPc clear-labelmD! l (m  L:m! mD l m  mlct ( B:m!ldD F:n!c m  (m 5@ init-labelsn$o!l$Vm codeka!wnh disassemblernѠd5sparc-v9?l!real-regsnҠ %g0%g1%g2%g3%g4%g5%g6%g7%o0%o1%o2%o3%o4%o5%o6%o7%l0%l1%l2%l3%l4%l5%l6%l7%i0%i1%i2%i3%i4%i5%i6%i7 (08@HPX`hpxregsohop2spe?addandorxorsubandnornxnoraddxmulxumulsmulsubxudivxudivsdivaddccandccorccxorccsubccandnccornccxnorccaddxcc???umulccsmulccsubxcc???udivccsdivcctaddcctsubcctaddcctvtsubcctvmulsccsllsrlsrardasrrdpsrrdprrdtbrmovccsdivxpopcmovrwrasrwrpsrwrprwrtbrfpop1fpop2cpop1cpop2jmprettticciflushsaverestore???$,4<DLT\dlt|  ,4<DLT\dlt|op3spܟ@ldldublduhlddststbsthstdldswldsbldshldx???ldstubstxswaplldaldubalduhalddastastbasthastdaldswaldsbaldshaldxa???ldstbastxaswapaldfldfsrldqflddfstfstfsrstdfqstdf???????????????prefetch??????ldfa???ldqfalddfastfa???stqfastdfa????????????casa prefetchacasxa??? $(08@HPX`hpx (08@HPX`ht|fiopssؠ???fstoirfdtoirfxtoirfitos???fdtosfxtosfitodfstod???fxtodfitoxfstoxfdtox??????fstoifdtoifxtoi (08@HPX`hpxf2opsvە???faddsfadddfaddx???fsubsfsubdfsubx???fmulsfmuldfmulx???fdivsfdivdfdivx (08@HPX`hpxf2ops+w^???????????????????????????fsmuld????????????fdmulx??? (08@HPX`hpxfcmpopsx'H???fcmpsfcmpdfcmpx???fcmpesfcmpedfcmpex (08@condsyHfeqleltlscsltvsanegtgehiccgevc  $(,048<@Dfcondsz0Pnnelgullugguaeuegeugeleuleo  $(,048@DLccondszڸXn123121312323a0030202301013012  $(,048<DHPrconds{pڍ0??zlezlz??nzgzgez  $(instruction|!lend-found|!pdisplay-offset|!tbranch-target|!xalternate?|َ!|pc|Ԏ!(pc@}!} pc@}((pc!}D!} pc!}\pc@l@}x!}< showaddr}udis.}!CDHDHDHDH.CDHDHDHDHD= +offset}!| >mask~ x!V( (X bits~Dn!| Hx (~D 5bits~la!Vx~l rd~Z!~ rs1~R!~ rs2~J!V~ shcnt~B!VV~l bit?9!|V( HX bit13?@-! @ bit12?p$! @ start-column(!op-col! , .,!]@, .reg!pH .asreg$!]@%r` .fregD!]@%f` .cregh!]@%c` .frsrd݌!~h~h .3fregsҌ!~h .frs1rs2nj!~h~h .rd!~$ sext120!X1 immedopP!V ~lX1 simm10!V ~lX1 .?asi!|lDpl]@ %asiLVxV~lE=| .rs1 l!~$ .rs2td!plE=L ~$ .srcT!t .eaK!]@[tplXWl@ l]@ + L]@ - xE=L$~Wl]@ + $]@] .cond!Vd~lz0H .rcond!|H .ticc !]@t opcode!V~l .op2$!$pH .r/fdL!~V<~lV<Hh(VPH ($ .class3tҌ!$sH$l |$  d$/ dltLt fp-op!Vx ~l .fpop1!Wl, vHL@OWl,@ wHLl`oWl,` xHL$H ]@fmovsH ]@fnegs H ]@fabss)H ]@fsqrtsp*H ]@fsqrtdD+H ]@fsqrtx]@fpop??? .fpop2!P yH .illegal !]@Illegal instruction: |E .membar! V(l]@ #LoadLoad V(x V(l]@ #StoreLoad V(x V(l]@ #LoadStore V(x V(l]@ #StoreStore V(x V(l]@ #Lookaside V(x V(l]@ #MemIssue V(x V(l]@#Sync V(x .wrasr-v9<!~VH ]@wryV<H ]@wrccrVPH ]@wrasilVH ]@wrfprsDH]@sigm L~D .wrasr-v8a!~VH ]@wry L~D .wrasrI!nlL .rdasr-v9;!~VH ]@rdy0PV<H ]@rdccr0(VPH ]@rdasi0VdH ]@rdtick0VxH ]@rdpc0VH ]@rdfprs0H`~VH@pl ]@membar<L]@stbar L~D0 .rdasr-v88֌!~VH ]@rdy0`H8~VH]@stbar L~D0 .rdasr!nl8L .shiftl!$%H8l]@sllxL]@sll&H8l]@srlxL]@srlL'H8l]@sraxL]@sratpl<l?L E=L$0 priv-regsؠtpctnpctstatettticktbapstatetlpilcwpcansave canrestorecleanwinotherwinwstatefq $,4<@HP\ht.rdpr!nl~VWl$]@rd~H0 ~ dl ]@rdver0LL~D0L]@rdwim0 .wrpr!nld~VWl(]@wr~HLL~DL]@wrwim .movr!LtplEL0 .cc0!V<~l V< dl ]@%xccL8 4l]@%iccL]@??? .movccx!]@movx0 .popcx!~lL ]@popc0 .class2De!$89W|$%'Wl  $(Hlx)HL0X*H<+H4nl]@flushwL L0,H.H /H00H1Hxnl\~VH]@saved0V(H]@restored L L 2H3HL4H5H:H|>HX~VH]@done,V(H]@retry L0 .disp22!V~lV<X@l1}D~ |} .disp19!V~lV<X@l.1}D~ |} .disp16o!V~lV<~lX ll1V<X}D~ |} .sethihJ!]@sethi| X$E=0 .call6!]@call|V<X1}D~ |}| .annulL!@l ]@,a .predict!@l]@,ptL]@,pn .bpcc!]@bpx .bpr0!]@bprVP~lth .fbpfcchی!]@ fbp %fcc XXX .format2ό!VP~lVH<nl]@illtrapL]@unimpTV(H(nl0L$V<H$]@bVPH(nlhLVdHVxH(nlLVH4]@fbVd~lzHDVH4]@cbVd~l{pH disasm`!|V<~lVHPV(HL8V<H VPH disasmn!dis187!rh}D~ }VdA?$}?P}D}x +disH !CTX|H|lH<CT dis !}x (disdictionary-base0! ram/rom-in-dictionary?4! 2 4l0 ՠW (WL V reasonable-ip?`Ռ! l2 4L V \mČ! bitset 4  4@@)``bitclear, 4  4@,)``bittestt 4  4@@ ?``bin-header lwstruct!V wfield z!v `w!l long<j!Vd< h_magic|h_tlenh_dlenh_blenݠ h_slenנh_entryѠh_trlenˠh_drlen,Š/bin-headerDO! text-size`*!(#t save-image!!4ʜ |ʜ X(ʜ ʜ growth-size!save-forth!0|(VV,VD( unix-init-io4Px`( unix-init< do-ccall y   low-dictionary-adr! debug-nextX!bugx n'debug!!cnt!_flush_cache0_disable_cache'slow-next,%8X' q)88#+ q/    ! !  !   ``fast-nextL%8X' q)88#+ q/"X   ! !  !   ``normal-nextʠ``debnext 㨀@㬀@㰠  㰀   !h# 㤁``pnext!x unbug8!x slow-next?!step?\!res!(debug)׌! XW]d2The source debugger cannot debug the Forth kernel.\V(8 4l^pXL 'unnest!  l`L (debugx!  "x up1! (x to-debug-windowrestore-window.debug-short-help8r!]@;Stepper keys: Down Up Continue Forth Go Help ? Quit?P .debug-long-help\W!]@Key Action?P]@ Execute displayed word?P]@+D Down: Step down into displayed word?P]@Ll>4 V l V >8DH< H UDl VLVdUH (V8CH$ 4VFHH?P]@#Type 'resume' to return to debugger?P°VGH VHH?PVd?H?P\V@QH$?P]@unbug\VV (LVlt8 debug!\cT resume!V8 stepping! tracing! debug-off(!\^pX %i6!L``%i7!|``%o6!``%o6@Ď! ``tbr@! X``tbr! ``psr@0! H``psr!T ``wim@x! P``wim! ``y@! @``y! ``cwp!!TDx cwp@$s!T pil@Xi!TVx pil!]!VXTDx spl!traps-onJ!T x traps-off>!T Dx setl4,2! x) (  ( /vector\;!vector-adr!,  vector-l!#vector!! (\V<   V<HH VPH vector@! < X ( < start-codeҌ!|v start-;codeɌ! doaction!#l >code-adr ! <V<X1 >action-adrD ,`!!!! ? !) $@@! ``action-namex!v`8w\``@! ``,@, $@>action#w!< action#H!#actionsd~!action-adrw!actions\! ,(^3<#^pVd set-action@!d 8]dToo many actions defined^$d ,  action:$&!dl $Ltddvq$ action-code!dl#$Lddw use-actions!^Dl$`!`HL H .object-error4!lx]@Unimplemented action # (`]@ on object (jp]@, whose maximum action # is `?P\ perform-action! lxL  to(&addrd ?has-action|! "Hx action-compiler:! `a tv!w!cT ( e``f< addr|(to)<t!e`d`f< toT|!window-registers|x!cpu-stateq!allocate-regT! ( >stateI! ua-size_!@pssave =rssave858uasaveX-@X.exceptionx=handle-breakpoint4#windows0!$ 7! ! ! global-reg!v_H global-regsH!VPH offset-of|݌!l"V(L,]@offset-of can't find =?PkPn view-windowώ!previous-outs$ǎ!>outregD!D >window\!$ ˎ! ! ! local-regs!WP(v_H pX!\ s!\ m!\ out-regsd!V(v_@H %pcG%npcA%y<%psr6 %g01%g10,%g2D'%g3X"%g4l %g5$%g6(%g7,%baseX%upl!%tos%ip%rp%sp!%state-valid0%restartable?,4state-validL!|, restartable?h!|L %o0e%o1`%o2[%o3V %o4Q%o5L%o6G%o7$B%l08%l1L%l2` %l3t %l4%l5%l6%l7%i0 %i1$%i2(%i3ߠ,%i4(ڠ0%i5<ՠ4%i6PР8%i7dˠsavedɌ! l* ` Đl* 8 .last-executed|! p ljpL ]@?? .tracelineh!CTX l h p-L E?P<CT (rstraceŴ!$Ŵ ftracep!Ŵ8 ($ .subnamed|>regƠ[! VPxVH|0\V(H|@V<H|L$VPH| (VH >eaƸ2! l( X L Ƹ< (xƸ< decode-jmpl\ !  dl\VL V .subroutine! 8  4l ]@XXXXXXX <@ dl<]@call <?V<XƠL8<l]@jmpl ƠL]@???? .2xL!CTXV<E<CT .c-call(!8L]@ from 8Ơ?P]@ (]@ w %o0-%o5: (|V|]@ )?P?P ctraced!h 4l]@No saved state ]@PC: Ơ?P]@ Last leaf: pdl op!op@xbreakpoint-opcodeʌr!breakpoint-trap?ʰo .instructionL!}xH bp-address-valid?@!VP 4 at-breakpoint?$5!ʌʰ d put-breakpointP*!ʰ (x next-instruction|! 4l V ʌ  (! l VL  l VdLH? lV<XV bumppcˬڌ! d d rpc̼؎!gotoreturn-adr!VxV leaf-return-adr !V8V backward-branch?T!<  4 HVHHV,HVV ( (  X loop-exit-adr͌u!Vd ͌ 4lVdLV set-pcPa! dVdd restartΠo$max#breakpoints$j!>breakpoint؛(Px>breakpoint-actionؐ,P>saved-opcode<؆0P<>step-breakpointd{4d>step-saved-opcodeϐp8ϐ#breakpointsϼ!<#steps!@pc-at-breakpoint!Dpc-at-step  !Hbreakpoints-installed<!Linit-breakpointsd!VϐV(ϐd find-breakpointЈӌ! (VP8  dl  ( set-breakpoint!  |lP  l]dToo many breakpointsV(V (< show-breakpointsP!VPPE<Wl ]@{ jL]@}  repair-breakpointn! Pl d x remove-breakpointlW! |l Lt l (PD<< install-breakpoints*!dl dVPP ʌ P 4ld|L  repair-breakpoints|!VPld following-jsrs?!Pset-step-breakpointsh!hˬ (V<V@ ϐWl ʌϼ| repair-step-breakpointsԐČ!V<V\ϐWl<Pl ϼϐxVϐ remove-all-breakpoints! current-address-breakpointed?դ! current-address-stepped?!Vϐ dV(ϐ d ?restart-okp! 4]dNo program is active. (stepd`!Ԑd stepsW!h֤ stepL!V( hopsD!h֤ hop:!V( go<3!dl֤L | +bpX#! $lPL0]@Invalid breakpoint address ?P +bpxט !cT ט ( |l L < till!טX returnH! H returnlh!TH finish-loop؈ތ!PH continueجX!#gos!Tgoš!X .pcÌ!G .stepX.breakpoint8\breakpoint-message֤! 4l l88l֤<lX l`<WlLTlX (handle-breakpointxg!< x -bpTY! --bpR!l$l bpon@!| .bp$:! bpoff<3!դ skipX,!̼X initt$!$8Ј ^t-! call۔ B``lretvalsignals}`NSIG! SIGHUP8!SIGINTP !SIGQUITh!SIGILL܀!SIGTRAPܘ!SIGIOTܰ!SIGEMT!SIGFPE!SIGKILL! SIGBUSݎ! SIGSEGV(׎! SIGSYS@ю! SIGPIPEXˎ! SIGALRMpŎ!SIGTERM݈!SIGURGݠ!SIGSTOPݸ!SIGTSTP!SIGCONT!SIGCHLD!SIGTTIN!SIGTTOU0!SIGIOH!SIGXCPU`!SIGXFSZx!SIGVTALRMސ|!SIGPROFެv!SIGWINCHo!BADSIGi!SIG_DFLc!SIG_IGN]!signal(9!\T2P 2t %signal#8%signal-codex<%fault-addrߘ@?insaneڈ!l>` enterforth! %g2-offset!exception,!|x finish-saveHᗠ@xx#1xܑ ! P! T! X! \! `! d! h! l! p! t! x! |! ! ! ! ! ! ! ! ! ! ! ! ?! 0! 4!$@$!$@$!x getexclV@x|#1x, ","0 $8$<$@,$0$@$($ $8$<$@$D$ H$$L$(P$,!x t", "0 (restart-unixp !$$@!$$@`P`T`X`\```d`h`l`p`t`x`|````````````  (`0` ! $(,.signald1!H<hH]@ InterruptDܘH(]@Illegal InstructionܰH]@ Trace TrapH]@IO TrapH ]@ Emulator Trap@H(]@Segmentation Violationt(H]@ Bus ErrorPH$]@Numeric Exception$]@ Signal # VPEA| print-breakpoint`̌!> 4l>`rh unix-catch-exceptions!d8 X >pܘ@ ph@ p(@ p@@ pܰ@ p@ p@ p@ ` unix-initߴ~!< unix-breakpoint-trap?,r!H<ܘ d flush-instruction\ ``unix-op![!  install-unix-bpP!ʰ\<ʌx unix-init9!, $call-parent@/! v2-compath-!64\$! xlsplit! lxjoin! tokenizerdlbsplit !X< bljoin!< xwsplit,!X<X wxjoinX!< xbsplit݌!< bxjoinЌ!,,< silentҎ!hpre1275̎!l .aout-header?0Ď!p#literalsP!t#localsl!x#apps!|#primitives!#constants!#values!#variables!#buffers!#defers$!compiling<!#end0sX|!offset-8?pu!nfcode-start-codexnamesf!headerV!@bytes-emittedQ!bhere>a)/mod*u/mod0+negateH,abs`-mint.max}/>rx0r>s1r@n2exiti30=d40<>_50<Z60<=(U70><P80>=PK9<dF:>xA;=<<<>7=u>2>u<=-?u<(@u>=#A>=B<=Cbetween,DwithinD Edrop\FduppGoverHswapIrotJ-rotKtuckLnipMpickNroll۠O?dup$֠Pdepth8РQ2dropPʠR2duphŠS2over|T2swapU2rotV2/Wu2/X2*Y/cZ/w[/l$\/n8]ca+L^wa+`_la+t`na+}achar+wbwa1+rcla1+mdcell+gecharsaf/w* \g/l* Whcells4QionLLjoff`Gk+!tBl@=ml@8nw@3o>bodyfcode-revisionspanunloop expectalloc-memfree-mem0key?Hkey\emitptype~(crycrt#outo#lineiholdd<#_u#>Zsign(Uu#<Pu#sPKu.dFu.rxA.<.r7.s2base-$number'digit!-1 0 142H 3\blpbsbellboundsherealignedwbsplitbwjoinܠb(resolve)8Ϡnew-tokenTȠnamed-tokenpb(:)b(value)b(variable)b(constant)b(create)b(defer) b(buffer:)$b(field)@instanceXb(;)pb(to)}b(case)wb(endcase)pb(endof)j#e #s` #>[ external-token$S$findDMoffset16\GevaluatetAc,<w,7l,2,-um*(um/mod"d+d-get-token0 set-tokenL  stateh compile, behavior start0start1start2start4ferrorڠversion1(Ԡend1@Ϡobsolete-fcodeTǠmy-addresstmy-spaceobsolete-fcodefree-virtualobsolete-fcodeobsolete-fcodeproperty$encode-int<encode+Xencode-physpencode-stringyencode-bytesrregmobsolete-fcodeeobsolete-fcode]modelWdevice-type4Pparse-2intPIis-installlBis-remove;is-selftest4new-device-diagnostic-mode?% obsolete-fcode!memory-test-suite"obsolete-fcode@ #mask`$get-msecst%ms&finish-device'decode-phys( push-package) pop-packageޠ* interposeנ+ map-low4Ѡ0sbus-intr>cpuLɠ1#lineslàP#columnsQline#Rcolumn#Sinverse?Tinverse-screen?Udraw-character Wreset-screen $Xtoggle-cursor @Yerase-screen `Zblink-screen |~[invert-screen v\insert-characters m]delete-characters d^insert-lines ]_delete-lines V`draw-logo 8Oaframe-buffer-adr TGbscreen-height t?cscreen-width 8dwindow-top 1ewindow-left *fdefault-font #jset-font kchar-height lchar-width 8m>font T nfontbytes loobsolete-fcode pobsolete-fcode qobsolete-fcode robsolete-fcode sobsolete-fcode ڠtobsolete-fcode (Ҡuobsolete-fcode Hʠvobsolete-fcode h wobsolete-fcode xobsolete-fcode yobsolete-fcode zobsolete-fcode {obsolete-fcode |fb8-draw-character (fb8-reset-screen Lfb8-toggle-cursor lfb8-erase-screen xfb8-blink-screen pfb8-invert-screen gfb8-insert-characters ]fb8-delete-charactersSfb8-insert-linesDKfb8-delete-linesdCfb8-draw-logo;fb8-install4mac-address-device-name&my-args my-selffind-package(open-packageD close-package`find-methodcall-package$call-parent my-parent ihandle>phandle my-unitڠ $call-method(Ӡ$open-packageDˠobsolete-fcodedàobsolete-fcodealarm(is-user-word)suspend-fcodeabortcatchthrow,user-abortDget-my-property`decode-int}decode-stringuget-inherited-propertykdelete-propertycget-package-propertyZcpeek(T wpeek@N!lpeekXH"cpokepB#wpoke<$lpoke6%lwflip0& lbflip*' lbflips$( rx@. rx!/ rb@(0rb!<1rw@P 2rw!d3rl@x4rl!5wbflips6lwflips7obsolete-fcode8obsolete-fcode9childڠ;peer(ՠ<next-property<͠= byte-load\Ơ> set-argsx? left-parse-string@bxjoinA physicalmy-paramsintrdriverߠdisplay-statusנ!group-code4Р#fb1-draw-characterPǠpfb1-reset-screentqfb1-toggle-cursorrfb1-erase-screensfb1-blink-screentfb1-invert-screenufb1-insert-charactersvfb1-delete-charactersDwfb1-insert-lineslxfb1-delete-linesyyfb1-draw-logoqzfb1-installj{fb1-slide-upc|firmware-version[fcode-version$SprobeDM8probe-virtual\E9\|Ol16\Ol!(T(sT.(MthЎtdӼh# d# o#b#!asciiccontrolc([char](b!init-pathy6!T tokens-onlyLy(!T emit-numbery!8V(l tokenize-literaly!V< dl ( first-local-escapey!1tablesize(y! XlookupDJϼnext-lookup#\x!local-escapex!advance-lookup#x،!V( lookup#-range-checkx̌! 8lV(V next-lookupx!( D,\ set-lookup-pointerDx!D patch-bytex!Tʜ<ʜ patch-wordx!`< patch-longxv!X`< dummyLxx!emit-dummyxb!"` local-startxf!save-local-startxN!4 checksumlocxS!fcode-versxL!.fcode-vers-error0x4! 4lLrh]@7Warning: Multiple Fcode-version# commands encountered. ?P restore-headerTx!nvvl (fcode-version)8x!4]d1Fcode-version# should be the first FCode command!4Pp fcode-version1 w܌!0 4lh0L @VPTVV8 4ltLT fcode-version2 w!0 4lX0L VPTVV8LT fcode-version3!Pw!0 4lX0L VTVV8LT test-spanwp!W 4lx]@1Warning: Branch interval of +-127 bytes exceeded.?P]@.Use OFFSET16 or, better yet, use shorter dfns.?P /branch-offset"dwC!V( 4l level#wE!+level#Lw0!V(#L -level#dw'!#L#L |]dBad conditional >mark#w!4T 4l >resolve#w!4 H ( 4lL "d mark$vÌ!#d# +resolve%8v!`$# -!8% until',v6!P% while'Lv.!&$ repeat'lv&!',& case'v!#dvvD of'v!D`#U endof'v!U`#$D endcase(u!D`xv l$Lv# do(Lu!%3 ?do(u،!%3 loop(uΌ!h # $<3%d +loop(u! # $<3%d leave)0u! ?leave)tu!&)t& <<)٠>>)Ԡattribute)͠<delete-attribute)Ġget-inherited-attribute*get-my-attribute*,get-package-attribute*P(/c**x ca1+*/n**Lna1+*decode-2int*leval*flip+~,lflips+xwflips+4ris+Lm&Xmap-sbus+`fLnot+|au*x+\xu/mod+Vx++Qx-+L0version+Fxdr++@pxdrbytes,9xdrint,03Xxdrphys,H-xdrstring,`&xdrtostring,|xdrtoint,3dup,t֌!\\\ 3drop,tʌ!ph blank,tŒ! cmove-t!x cmove>-<t!x erase-Xt!4 allot-tt!44(4( 1+-t!H4 1--t!HH 2+-t!\4 2--t!\H <l.ttb!p lu>x.t[!4 false.tT!4 true.tM! accept.tF! carret/ t7!  linefeed/Ht-!  newline/pt$!  m-binary/t!\ m-decimal/t!  m-hex/t! m-octal0s!V (.)0<s!t$<$ ?0`s! .d0s݌!/ .h0sь!0 s.0sŌ!0` (u.)1s!$$ .x18s!0 #1\P#s1td#>1 $(space1s! spaces1s!44(1( wflip1s! version1?2s{!+x version2?28so!++x version2.0?2hs]!+ version2.1?2sQ!+ version2.2?2sE!+ version2.3?3s9!+ version3?3@s-!+ hex3ps#!Xl0LX decimal3s!Xl/LY octal3s!Xl0<LY4 binary4r!Xl/LYX ",4@r! WP ,"4tr݌!LL4t "4r֌! 4 s"4rό! "T4t ."4rŌ!4 .(5r! )`4t offset165,r!t name5dr! (name4t< local:%r!b| vH4t@VH p$V(HD4t^p__wr!V( define-local:5rf!5 end-local-token6rY!X 4]d+Error: ';' only allowed within definitions.LX ;5r@!w 6 start-local-token6r4!46 crash-site7Tr8!emit-crash7r"!47z [ifdef]![ifndef]7![if]7΀[then]7Ψ[else]7͘headers8 r! headerless8q!V external8Hq!V( fload8pid:8$!purpose:8dcopyright:8D!char8qӌ!^D]d0'char' is not permitted inside FCode definitionsb|  defer8q!<76$ constant9@q!7TL value9xq!7TL variable9q!7TL lvariable99Ԏ!alias:Lcreate:q!7T L buffer::$qw!7T$@L ':Hqm! colon-cf:pqe! dict-msg:q]!]@"Dictionary storage is restricted. kP allot:qL!]@ALLOT - : struct:qA!4 field; q:!7TXL vocab-msg;<q0!]@$Vocabulary changing is not allowed. kP also;dq!;d previous;q!;d except;q!;d seal;q!;d definitions<q!;d forth<$p!;d root<@p!;d hidden<\p!;d assembler :Version 2.0 FCodes compiled (may require version 2 bootprom)?PpWlXVF@]@@ :Version 2.1 FCodes compiled (may require version 2.3 bootprom)?PWlXVF@]@@ :Version 2.2 FCodes compiled (may require version 2.4 bootprom)?PWlXVF@]@@ :Version 2.3 FCodes compiled (may require version 2.6 bootprom)?PWlTVF@]@< :Version 3 FCodes compiled (may require version 3 bootprom)?P<CT end07$oʌ! 4l(?P]@END0 encountered.?P>,X 4lV(pL p .stats>,o!Y lVF@]@ Literals ?PVF@]@ Non-(lit) Primitives?PVF@]@ Application Codes ?PVF@]@ Local Codes ?PVF@]@ Variables ?PVF@]@ Values ?PVF@]@ Constants ?P$VF@]@ Buffer:s ?P<VF@]@ Defers ?P write-headerAoF! ʜ my-sizeC o:!ʜT " ( VPVʜTPl  fix-lengthC<o!p 4lt 4lXrh]@D*** Warning: FCode token END0 is missing at the end of the file. ***?PVC<L fix-checksumCn!XX fix-headerDtn׌!C<VdL symtabDnӎ!/symtabDn!fcode-version1En! fcode-version2E0n!!P fcode-version3ETn!! label-stringEx(\append-label?En!fix-symtabEn!El| LDEʜ VEQE  Vd (DE<ʜ .tokenize-errorEng!V]d1Fcode-version# should be the first FCode command! output-name-bufRdE?shorten-nameFnF! l /H L\H ,.H Lx synthesize-nameG n!VFD G FI(.fcFIF` check-argsGn!V< 4lD]@2Usage: tokenize input-filename [ output-filename ]?P\ 4l G string3H (Fsave$3Hmی!Hp $tokenizeHmҌ!HjTFvlFn 4l]@FCode Tokenizer Version 3.0?P]@>Copyright (c) 1996 Sun Microsystems, Inc. All Rights Reserved?P?P]@ Input file: =]@ Output file: =?Pl j<HPlC XUDlHH >`X< l(]@Error: Stack depth changed?P 4l?PDtCDEʜ lx?P]@,Fatal error: Obsolete version 1 tokens usedHH ?P]@ Output file not generated?P?PT tokenizeHm.!H silentKlsilent?Kpre1275K0!append-label?KP!aout-header?KP!offset-8?KdetokenizerKheadersl! headerlessL(l! interpreter-pointerLDl!fcode-verbose?Lhl!more-bytes?Ll!spreadLl! offset16?Ll!$get-byteLľ!LhLLh ta+Ll! , #token-tablesM$lӎ!tokens/tableMPlˎ!/token-areaMplĎ!/immed-areaMl! /token-tableMl! string-bufM(Htoken-tables-ptrMl!,token-tablesNl}!N local-table#N0l!end0NXlm!L end1Nple!Np ferrorNl^!]@)Unimplemented FCode token before address Lh ?PNp obsolete-fcodeNlE!N ttbl-alignOl=!^p3$lV_L init-tablesO0l,!O0^pMP ,^N N0MP ,WP!  >token-tableOtl!N0 M$!l L|O0^pMM^MpV( M$N (  N0 HM$ MM|X, >offsetOk!MV3< set-immedPkՌ!PV( HX  (D immed?Pkƌ!P (xV( get-offsetQ k!Ll LhLLl$VXLL  X1 (LlDCTX F L,DjL<CT get-wordQ@k!LVXL get-longRkx!RXRLl get-stringRDke!L MDM (WPLDM`LlrhV, =?P token\immedRkC! Q  (M$ < fcode-findSk5!OS get-token-hookSPkF0next-tokenSxk$!Ll(rhLhE:>VPAL MP l  4lVL L (Ll0CTX <CTSxSPLl$ jp ljp get-tokenSj!SP set-tokenTj܌!O Hl P (M$ do-byte-compileTj4verify-fcode-prom-checksumTj!LVP lR RD LRVRDLhV VPL<LhXX l(]@Incorrect FCode PROM checksum fcode-checksum?U(j!8version1Vj!LVlU(LL R RD offset16V$jj!L (version2)V|ja!L`LhLLLhV|VLlU(LL R RD start0Vj?!VV start1W(j7!V(V start2WHj/!V<V start4Whj'!VdV byte-interpretWj!jjLLhLLLLhLLlSTL<L<L<Lh<L<j name-bufW<2M/stringXi!  t paginate?Xi!@crXiό!?PXll>` paginateLi!VX icrXi!XהA ?icrYDi!?$ה 8lYD +indentYli!VPה -indentYi!ה show-byteYi!lLjp external?Yi!Dbyte-loadZ,iw!Z,@׬YTWX]@end0 X byte-code:ZHi`!O`Wl ltV<V< (M$ N l4rh]@****** DUPLICATE TOKEN jpX P L v^$ t (M$ N l4rh]@****** DUPLICATE TOKEN jpX .defZi!Z,l]@ external Z,=A|^$jp tok-state[i!Hb(:)\h!rh(:[VPהYD\ b(field)\(h!(field[X b(create)\lh!rh(create[A| b(constant)\hՌ!(constant[X b(variable)\hȌ!rh(variable[A| b(value)]h!(value[X b(defer)]<h!rh(defer[X b(buffer:)]lh!(buffer:[X b(;)]h!XVה]@;X\ b(lit)]h!RD]@h#  b(')^ hz!\l]@['] L ]@' S jp b(")^<he!">A|R=">A| b(is)^hT!]@is .offset^hK!=]@(Q@E=]@)  bbranch^hresolve)`gɌ!YYD]@then b(case)ag!]@case YYD b(of)a,g!]@of ` b(endof)aXg!]@endof YD` b(endcase)ag!YYD]@endcase YD b(repeat)ag!YYD]@repeat `S b(loop)ag!]@loop ` b(+loop)b(gs!]@+loop ` b(do)bXgg!]@do ` b(?do)bg\!]@?do ` b(leave)bgP!]@leave fake-namebgF! (C)CDt ,CDt(CD show-defc g0!S  set-entrycdg&!O (M$ new-tokencg!LL ( c v^$ tccd named-tokencg !Rv^$LL ( c X=A|ccd external-tokencf!Z,c .headerdPf!A|YDR ]@\ RD]@Image Size h# ]@ bytes.YD version1dtfь!]@FCode-version1dtL .startdfÌ!V|]@ FCode-versionLV ll]@3L ]@2]@ ( start start0ef!e]@0 )dt start1ef!e]@1 )dt start2ef!e]@2 )dt start4ef!e]@4 )dt offset16ff{!V|]@offset16YD 4-byte-idf8fn!]@ 4-byte-id L L L YD propertyflf\!]@propertyYD v1f v2f !v2.1f !v2.2f !v2.3g v3g ghkw(NpNNNNNNNNNNNNNNN^ ^<^_4_b(bXbbbaX ,$$8D3&,`x 4 X | 8 d  @ l WW  ( H t W4WX Wx0H$Hl D<l D8.x\ XHk0p`"p"k@,@>>>L>4>=BpX?$?<CCDCDHDtEEGF@HDCTNkVV(V<VPV@@pW^p#t`aaNcc\(]<]\\]l]\lNkN]ka,aaEE4E`dP`f8èNN_``8_*8NN%%TT^D`XNNNNNNNNNNNNNNNNNeeefNNNNNNNNNdNNtwbflipg$e)!fcode-revisionke"!-1ke!instanceke!b(to)ke!NOp$p<OpXONNNNNNNNOfpppppppOOpqq(q@qXqpqqOqOqqrr r8rTrlrNNNNrrNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNrrrss s<NsXstsssstt$t@t\tttttttNNNuu0uHu`utuOOOOOOOOOOOOONNNuuuv v,vLvpvvvvwNNNNNNNNNNNNNNNNNNNNNNNNw NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNmy-addresskd!my-spacep$c!free-virtualp<c!encode-intpXc!encode+ppc!encode-physpc!encode-stringpc!encode-bytespcَ!regpcՎ!modelpcЎ!device-typepcʎ!parse-2intqcĎ!is-installq(c!is-removeq@c!is-selftestqXc!new-deviceqpc!diagnostic-mode?qc!memory-test-suiteqc!maskqc!get-msecsqc!msqc!finish-devicerc!decode-physr c!push-packager8cy!pop-packagerTcs!interposerlcm!map-lowrch!sbus-intr>cpurca!#linesrc\!#columnsrcV!line#rcQ!column#rcL!inverse?scF!inverse-screen?s c?!draw-characters<c8!reset-screensXc1!toggle-cursorstc*!erase-screensc#!blink-screensc!invert-screensc!insert-characterssc !delete-characterstc!insert-linest$b!delete-linest@b!draw-logot\b!frame-buffer-adrttb!screen-heighttb!screen-widthtbێ!window-toptbՎ!window-lefttbώ!default-fonttbȎ!set-fontubŽ!char-heightu0b!char-widthuHb!>fontu`b!fontbytesutb!fb8-draw-characterub!fb8-reset-screenub!fb8-toggle-cursorub!fb8-erase-screenub!fb8-blink-screenv b!fb8-invert-screenv,b{!fb8-insert-charactersvLbr!fb8-delete-charactersvpbi!fb8-insert-linesvba!fb8-delete-linesvbY!fb8-draw-logovbR!fb8-installvbL!mac-addresswbF!N{X{lU{{{{{h| |(N|<|X|tNOO|||\UDU||} }(}L}h}}}}}}~~~,~@NNNNN~P~`~p~~~~~~~OON~,ZHDNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNdevice-namew a8!my-args{Xa3!find-package{la,!open-package{a%!close-package{a!find-method{a!call-package{a!my-parent{a !ihandle>phandle| a!my-unit|(`!$call-method|<`!$open-package|X`!alarm|t`!(is-user-word)|`!suspend-fcode|`ގ!user-abort|`؎!get-my-property|`ю!decode-int|`ˎ!decode-string} `Ď!get-inherited-property}(`!delete-property}L`!get-package-property}h`!cpeek}`!wpeek}`!lpeek}`!cpoke}`!wpoke}`!lpoke}`!lwflip~`!lbflip~`!lbflips~,`~!rx@~@`z!rx!~P`v!rb@~``r!rb!~p`n!rw@~`j!rw!~`f!rl@~`b!rl!~`^!wbflips~`Y!lwflips~`T!child~`O!peer~`J!next-property`C!set-args,`=!fcode-bufD4L Xload-fcode\`)!\ ʈh ʈ detokenizeY$`!0L\  dl V(ZH?P no new words defined yet.`! P ,(=Lh?<?`> >$@@@X6| , , - L8@ _h .khop|no,pq8 r,  rpv k\30,L > E@ 8T PT O P`  ۔@ |> R8hXV= P c?  D  PT< d^pO$T۰>4t -<Xnh^p^<o}(}\} E(    @8 ^ V Z`V <\d R@F@<g( z