uFE 1VkƉ<$! ED$<$D$CY |$4$4$dAE Uuˋ
0 0 0 0 1 C1 =0 0 0 0
1 1 =0 uz0 EE E@t D$<$h <$D$s X Ft D$<$E <$D$s 5 E@D$<$ MAMUy~ v Lz R (l^_[]ÐUE M0 0 0
0 1 1 u=0 u
E
1 1]ÐUVEM U0 0 u50 1
1 0 1 t #0 ^]ÐUE M0 0 U0
1 1 !1 u=0 u
E
0 1]ÐUEM E ]USWV0 1 F )ÿ )ǐ <$D$ D$Z t 9r
= V ȍ ʃ уL$ D$D${; $ F 1 ȃ D$D$B $@ = u $Z g u~ u~! t F" )VԉF D K1 N ʃ ЃD$ L$D$ D$KZ $ ~ ^薿É^$D$ $F 1\9 ÀuV G D9 $lD$F$臾 D9
u^F @ $D$ D$mZ FL; ^ \$D$ $
N F8 u7, $D$ D$mZ ;~NσF$b^(N D$L$$OZ ~ e^_[]USWV$M fEfEEUUtTA҃luUru wuUruffAuMUu= f_f0 G
lj=0 Et$ T$L$$L 0 $^_[]ÐUSWVP1 0 0 0 0 1 PAMS1 ȉɉ
0 1 1 =0 PAMS = 5
u& u t1u
2 u5 u
2 uk Åt1ۄuXuTt؈Eػ } uu;2 tфu
2 52 =1 =2 u+0 0 0
% 2 2 0 0 0 1 t2
0 1
2 u50 0 0 U0
% 2 = 0
2
2 r =2 / w2 0 2 ^_[]ÐUSWVP1D$ T$ ɉL$א|$ uu +
1 9v k$ 0 0 0 = 1 E1 0 ? |$ t$ t$ 1 |$$>9t$$ 4 @ B 51 fǃ 0 0 0 A = 1 1 U o1 1 f=U 0 ʃ0 ! 0 rfD$( 0 0 0 H D$ 1 1 L$(ȉɉ
0 1 1 u0 T$8t$M wω}|6)Mȉ̍<1= Mru1} M } } EEE tE E B tE C E EMk$E؋ L$ $t$D$ )Ɖu9r}Eąt9ErE}Љ]} EԉEtẺE} t*E E D$ẺD$Eԉ$ E EE1ut20 0 0 kF$ 1 Skv$ 1ҋE 1 B 0 0 U؉0
0 1 1 Eɉ
0 1 f, Ef. 1 M ʃf0 f
2 0 0 M܉
0
1 , ɉ
0 1 E8 E4 1 tGoud} ut+kF$ E D$EԉD$Ẻ$ Vk$ uEԋ]M 1})ie^_[]ÐU1]ÐUSWV uf } u{U unE} ʋMI t t5} |$\$$& U ut
1U t21 ^_[]ÐUPE EEEE H1;
| ]ÐU1]ÐUSWV`= ~:1 ]D$ t$ $D$O[ $ F;5 |у`^_[]ÐUWV
ɸ~ u1ҿ 97t
B9|^_]ÐUMɸx9
~ k ]ÐUV ~Mk 0 0 0 K
1
1 ɉ
0 1 ?=0 u D$$>[ 1^]ÐUEHɸx!9
~k tu ]ÐUSWV UU Ҹ 1 u1 E = E r wЉE )lj}Ex9
~ k E}EEuEuEt9rÉUܾ t+0 0 0 E 1 f f 1 M ʃf f
0 0 0 B M
1 ɉ
0 1 = E裰 Z1 tv4 } t t$ED$E$, E] 1U)e^_[]ÐUSWV851 uظ )8}$[ E)}1+]]ԋEЉD$ $D$[ u"ދE̍811Ґ Au҉t
| $[ lj}Ը +E؉E1+] |$ $D$[ 董 u%ߋEЍ011Ґ Au҉}t |C ; E؉D$}܉<$D$CY $ |$D$ $f[ L C tƉt$<$D$fS |$D$ $w[ C D$<$D$ z E |$D$ $[ ޮ CD$<$D$CY |$D$ $[ 诮 reCK L$ D$<$D$[ L |$D$ $[ t CD$<$D$fS |$D$ $[ E 8^_[]Ð 2
0 0" @ "
" p 5 = H H PÐUSWV0 0 0 0 Qt Qt 1 Qt i k<110 0 0 0 Qt Qt 1 Qt i k<9t C G |;5 }ƀQ E5 t0^_[]ÐUE0 0 0
0 1 ]RPS ˚ ːUV E u ;
2 sM+1 t$D$ $ x4 ^]ÐUV uE ;
2 sM +1 t$L$$? x4 ^]ÐU EM ;2 sU+
1 D$L$$ x4 ]Ð+\$L$ѐUSWV]u }t'>/t"4$D$: 腿 t $5 ($O 跪 $ ut31^_[]ÐUSWVˉ<${ q 5 ^ ] 4$H D$t$<$h t3u۸ % D$j D$&\ $ 5 E4$ Nv
$[ t:u=}1]ED$|$E$}ED$|$E$ udLED$<$D$ 谾 U9c t?
ׄt
: u-MA} t ? tGE8]3FCEt#7E$D$ D$&\ $D$ D$&\ 1^_[]ÐUEHw>$ \ @D$ L$D$ \ $ D$\ $ ]Ã]{] USWVu$ MuH} ]E$D$ D$&\ > t$|$$D$ D$ 蹦 1^_[]ÐU ]ÐU< ]ÐUSWVh D$[ D$Y\ $ ƅ } 4$D$ wD$b D$Y\ $, É^$ GOUT$\$ $D$ D$ D$ D$ PDž
} f{8S K
牻 O K
H {L tKX CT ǃ ǃ A $ H( CSK H)1D8Nj<$D$ D$Y\ U F $ E AIV ED$T$|$ $D$ D$ D$ PDž ȉ U %
Džc E$耼 E N8Dž Dž u QAq /tF% 1f= @ t ` \t/tB = ~E E x $ˉ G ىËE$M U Dž E쉅~h}t5G9u-GL$D$$1 ًtEG;rˋH H;PtȄ<4 ًU 8 Dž F% f= 6^$R @D$L$$ ~, u\$D$ ~ u$ $D$ D$Y\ E @@8$ S E @E P( Dž Dž ӥ uu D$D$|$L$ D$$D$ PDžf \$D$$ / tÉًE ] DžlGF 16.& t $D$ D$Y\ 8 ؉$D$ D$Y\ 1tW t$D$# D$Y\ F$D$$ D$Y\ 4$D$% D$Y\ h ^_[]ËOD9.UV Ep@ t$D$% D$Y\ B t$D$% D$Y\ t$D$% D$Y\ t$D$( D$Y\ F t$D$* D$Y\ F$D$+ D$Y\ 4$D$, D$Y\ 1 ^]ÐUSWV M1 ME EEPU
B;JtuWE$MU uDuM9wEt$}|$$ UB
})]
Bu1U1ҋMt ^_[]ÐUWVUE uMItu qq1)1y uQx4 ^_]ÐUE MIfQfPQP Q(PIH0@4 1]ÐUSWVExO;GtȻ urE$MUw Åu[uFO O> tF1ۃ w \ E LjOGNVT$L$$_ FD ^_[]ÐUSWVXT$4L$,QT$DZ\$@z|$< D$8T$( \$$!É\$0 u|$(u tuUD$D@D$(׃ 1 uu؋|$(9tȄt#|$$D$@ !
D$@ L$D 1 1 ) \$ Et$\$<$E܉D$ UMU< EÉ H Uu 1}ω} 1 u}ă u+E؋ $D$ D$Y\ 蔾 M $ EЋHM̋@EȋG( EE uuU܋E؋ u ]ԉ\$T$D$L$ E܉D$Eȉ$D$ EPue M; uJE䉄ʴ Eʸ }ąɋ ] M AE @ 1L^_[]ÐUSWV8ˋwu܋FE䋀 $D$: D$Y\ Y E$ ʼ GEGEK]1҉؋]s(Ћ~ u1$ D( UT$t$L$D$E$D$ D$ EPDž E; 1ҋEs(1$ E܍x ǀ ǀ ǀ ǀ ǀ ǀ ǀ ǀ @ 14$D$O D$Y\ 8^_[]ÐUSWVp D$ D$\ $< lj<$D$< E D$ D$\ $ 赻 1҅ۉ_ux4 3 >$ GO\$ $D$ D$ D$ D$ D$ P
ҋ_ Mr>1ۍ}𐐐;N8w1r u\CMwF G 1ۋF4 t t9ʺst N1҃^_[]USWV ։ϋG(_4 u
A D M $D$M uAO4UE Ѓ u u % uM E 1 ^_[]USWV0E ]ց t) 9yuAuU] UAE$ Ma ًAIUT$|$ $D$ D$ D$ D$ P^ MAy]UM )} 9wρ U0|$t$ $c ]E )MƁ )uUqu9u ÉE $ M蠦 GOUT$\$t$ $D$ D$ D$ P UEEMu1 9QuUdu1y$ M! FN|$\$މ $D$ D$ D$ D$ Pu%EpUut$D$$D 10^_[]ÐUSWV E 8 ] $D$. ƅtM4$D$] 4 4$D$] m 4$D$] U $o $D$ D$[] 脥 " \$$D$] N " $D$ á" $D$ D$[] . D$(D$ $A D$0% f= * D$ D$[] $H ٤ ƅ} 4$D$H F F FDD$ F D$ 1ۉD$$Nu-|$ |$$D$ ~ xNN,D$ $t5ND$ INNV NVPV 8w_;<^ [|$$hz $]
$% y $] $ [ Nu=\$ \$$D$ < ^ x NN NT$ INF^ F^BF T$ |$ Nu3|$$D$ 蹚 ~ x
NN
t NINNV NV@F KuL$3 Nu:\$$D$ S ^ x NNN؉t INV~ V~PV 8|$ɉu8|$$D$ ~ x
NN t'NINFN FNBF T$tgNډT$u1|$$D$ 胙 ~ x
NNt,NINV~ V~@F T$BuL$\$$tnNɉu6|$$D$ ~ x
NN
t2NINF~ F~ߍBF SwL$tnNɉu6|$$D$ 蜘 ~ x
NN
t2NINF~ F~ߍBF SwL$t2Nu=\$$D$ % ^ xNNu| NtINV~ V~@F u5\$$D$ ʗ ^ x
NN NINNV NV@F D$ $D$ 8 D$] D$mH tqN$L$D$$] ҥ $ 4$D$ D$[] P '$远 4$D$ D$[] ' O e^_[]ËE p1쐐UV EpF $8b $^ 4$D$ D$[] Ɵ 1 ^]ÐUSWV UE Mq҉FV ^ ~DD ~ u9|$$D$ 7 ~ xNNtcNt- $D$ I u~ u*uDdžD $5] [ E9F tM1tV ^_[]$ ] F$D$$N] ՐUSWV$}M EUru
F F M9tȄuYNVT$L$$D$ 蹘 !¸ F F F džD $D F M)Åt1҄uS wȍML$M $D$D$ x4 tx4 $^_[]ÐUVu E@ t$$Қ uF4F0^]ÐUSWV\D$ D$ ^ $ [ Ɖu$ ʛ M AIUT$t$ $D$ D$ D$@ D$ PÅ BEE } ։$D$ D$X^ 苋 ]8t} unys;Mu^B@vE E UMЊ
t/u0MЄtS<;t
<.uGy;uAȅ~:NA<;t<
rU
ME u9} MAEAE܊AEAEЊAE؊A
EˊA EʊA E̊A
EԊAψEUBU uLK C % CK;C;KtȄu - # tet
K1 KtC(D$4$^ Z t=Htu Ew ^HEOuEv <V F!u t! tѺv tUщE Ew Q ~N ~ N } fWN рOGOD$L$E$ޯ GD KC CK1^_[]ÐUSWV8UM܋YCEKM ǃ S s ʉU)K { 11U E{$ u D$ D$ ^ $ 蟑 C$$ E܋HM@EU C$ML$D$T$ |$E$D$ D$ EPu^} uPs EC CECEUE؋K$
} )s+uCE9t1u78^_[]ÐUSWV(UMEH M ʍ\!01NC K
C K CS Cs" ƍ" C9 ED$ $D$ $D$ D$^ $D$ D$^ t CÅunMAISs S ut$ $T$D$" D$ D$ D$ Pu} ߉(^_[]ÐUSWVs D3!19w^M$D$ D$^^ ~ u?| #u8| %u1| &u*EL ' $D$ a^ M ^_[]ÐUSWV =z ] C$D$^ C $ Dž ` H` ffG
4 <$D$ 2 D$2 D$z s ƅ 2 2 3 =2 ƅqXr=2 t312 D$4$D$yP Ţ G;=2 rى4$D$P 詢 4 $ m D$D$ $R h D$ D$z $ R h qt$D$ $P h 2 D$4$D$fS 1 t$D$ $Q Yh D$ D$^ $
^ }D$hD$ $2 o <$~ Dž3 1Ʉ? DžX dh
GG 11h/\ \ E UV uFt$D$ D$^ 7 F 1 ^]ÐUSWVu~_} EX$ 諈 CKt$|$ L$D$ $ t(}t3 S{ʉ{S})ƅM1t1^_[]áx4 U ]ÐUWVUE uMItu!qAqh1)qy uAQx4 ^_]ÐUVE MIQPqT 4 fpQXfP
Q\ʉP Q`ʉPIhɉH0@4 1^]ÐUSWV } Ep;5* u!FN3
* 3* u * 2 * $ $D$ { F ȉ$ F$ V T$L$$ FN ȉ Fȉ ȉ ȉ DŽ N L$\$$D$ D$@+ D$ D$ D$ & * @+ @+ t 5* FN
* * + ȋ
+ ɉ * d * ; t_C ȈGKWD$T$ $ԣ GD GLTʉ
* * NVD* 1#{ j* * e^_[]ÐUSWV u $h <$D$ 褢 4$l = wÉȉ$h $l \$D$4$ $ D$\$|$E$D$ h D$ D$ D$ X% tH r@$ t 1x4 *EM$ ʉ$ T$D$ $i 1e^_[]ÐUSWV u }$ $D$ 葡 G ȉ$ G$ W T$L$$ 4$0 = Ɖ{ ȉ< < t$D$E $財 D> $ T$D$$ D$ $D$ D$ D$ D$ $ t r$ tȉ5x4 e^_[]Ë}$ ȉG $ WD$T$ $ G t P|$$D$T ڠ 1또USWV u$` $ <$D$D
F ȉ$` F$d V T$L$$t N \$L$|$$D$ ` D$ D$ D$ " t r$ tɉx4 e^_[]Ã$ t$ Ɂ $ ? wыu $ L$t$$ş $ 1먐USWV u }$h $D$P G ȉ$h G$l W T$L$$X O E= DŽ l Ή p wʉ t W $ D$T$\$ $D$ h D$ D$ D$ {! trgw x4 H a$ t
ɉ
x4 L$ 9} |$D$$h^ ' x4 H E$ |$D$ $a e^_[]ÐUSWV D$ D$^ $X 蘀 Ɖ4$D$X 耝 E pD$ D$^ $ ^ lj~$ 4_ M ʋJR Ɖ ]\$|$$t$ D$D$ D$ Qƅ \ =T t1=Tu=4_ 3 3 u"} u
G0= ~ ?R =_ vGt Gt Gt U ƅ E$q QQ Q4I|Dž Dž 1҉ljȊɉu JB /t@ % f= @ t @t /t = ~ D E p$ F FNV \ T t H\ DE$M Un ƅ0 ]~Z}4 t>@( GG ;uGD$$| tTG9rA AI\ T t;;At? U = ƅ* @ % f= @\ T t0|<$Q ։5@D$L$<$ș ;( p}1\ T tL$L$ u!F0$D$ D$^ { E @H\ T u
x4 x| $ { E AQNd1 uuv0|$|$t$t$ L$$D$ Pƅy D$D$$ /Dž t E ƅ8@ 1! Tt$D$ D$^ { <$D$ D$^ z 1t]P t$D$ D$^ z G$D$ D$^ z <$D$ D$^ z Ā ^_[]ÉQF;0%UV Ep@ t$D$ D$^ z t$D$ D$^ y t$D$ D$^ y P t$D$ D$^ y F$D$ D$^ y 4$D$ D$^ yy 1 ^]ÐUSWV }1 ] EPUBEB E
BR\ T UtU;
;BtuIE$MU u:u9wEt$\$$藕 UB
)
Bu11Mt9 ^_[]ÐUSWVhu E D$0Ex|$(GD$,G D$$OG\ T D$,tD$$;;Htl t$4 r \$PEpt$DFD$HVHP68 !D$@։|$T ut$Tu|$T
tҋ|$P T$H\ T u
T$DRT$DR 2t$LRT$v)։9qx4 ^_]ÐUSWVE MQfJ fHJz|Zփ\ T JR tߋ?x t6ptыIH4P01^_[]ÐUSWVEXsC EKS\ T t};;Ot¸ uKE$MUC u6UBK K: tBM AT$ $KB 1^_[]ÐUSWVXT$(L$,AD$8x|$ Ƅ$ 6Ƅ$ $ D$D$ $X3 Ƅ$ 3Ƅ$ D$ ,$ D$D$ $D$ tJƄ$ <Ƅ$ $ D$D$ $Gb 襅 Ƅ$ $Qb /n 7 Ƅ$ L D$PD$|$4$D$$ D$@ D$ $ D$ 'E D$`F4 D$dT3 =4 u4 $ $D$ D$5 5 4 ȅxH/ A4 % = u H/ $bb Fm QH/
L/ !9t L/ 1Ʌtȣ
5 3
4 t
5 F e^_[]ÐUVu tI+@/ ffF^]IUSWV} ]EML$ D$|$ $Jƃ GK 9 \$D$ $H U t\$$vb .l $ U $ | _<4W3< _U< < $D$ D$5 <5uL
L 9 D/ U< t\<u $D$ D$4 9<6 $D$ D$X3 讂 z $D$ D$L/ 蒂 U]$.R ? tÉ\$D$ $4 ,<Uu/$b ? tÉ\$D$ $z 54 U𐐍|:;} u FKt$ t$ L$D$։4$ CNL$ D$։4$D$0 $ 9t$,t1D$$@D$ $D$b t t$<$D$ ; e^_[]ÐUSWV o } ] P
3 ~C\3 \3 9u
9yuu9qt 9r A $ ɉ$ Mɉ$ DŽ$ DŽ$ $ L$D$ $D$ D$ D$ D$ D$ w1x4 $eP D$$h d x4 H c $ ȋ 3 |3 r53 \3 `3 Md3 h3 uً]ffAF F F$D$ &{ F F 3 @3 ȉFF F ω~Ћ} EȉFˉ^؍FčOU M x'2V<<
w' H#EF8~<F8 F< 1^_]ÐUSWVl} W U w u
MuԋM u wuȋ}Z8]Z Mȃ W$u O$ ]}BML$$D$ ډB1 }J B@9wDž }܋z t?Wt8O})ʋ}܍9;EЋEv)ȉNjED$$|$C EHUt BM܉L$ML$$~BM)MB@)ȉB@i
B@ BuB @ 1u
E8EЋJ օt-A Et#F@EE;A sMIN@MЋEU G} t9}wBt B|$ML$$UB} u )}B@ ]BuB @$ 1h E8E܋J t2A$Et(B@EE;A(sMIJ@M܋E] ]АG} t9wBt B|$ML$$ UB} )} BtJ}w* NGUr}UJ9Mu+E 1ۋJ ׅ A,A0 E@q }E@q E@r E@~q }E@q q} BLh BT BPp BX u E@q }M|$D$ $ UBMA0z EuuE;BuyE 1ۋEE z
z
}w"
NGE r}E;B V
E@4s nE@ s EE؋QBh 1|9щv MAq E BD$ D$ $ BMA0E E 1ۋBh;B\sY}w # NGUr}MʃU܍P}WhU h }f|BpM럃}w h fDJp @uBh EBlBLBT ED$ED$|$ ED$D$ $ + r Gh 1E MЋB`Ezd}9} }ĊJT O#MBLE!NMAMUU!ыED9s u UfLfw"UЍR}Wh}fLzp)ÈmA fuiHM9ˋ}s :}NG;]rU)ËEЅU< }DznE܉ȃE fMuIPU9s D :}NA;]rMUуUGPU9s :}NA;]rMUу U)E }ЍEE9Uv
c zhGIBhEfDzpuJhMЋB`Ezd}9}!: fp u}ċE@xr EBlBLBT ED$ED$|$ ED$ED$$ C) UBlBPBX B`JdDBpUT$UT$|$ }ĉL$D$$ ( L E } E rw} rnEԋMωG EGEwEB8Z uFh F8^<ـF8^< )كw ڍT}𐐐GwAF8VU
pא?8tGu1t E8^_[]ÐUSVMEt:u ۈtBFIut 2 F9u^[]ÐUSWV1}t*U u
8u t BFOu)ˉ^_[]ÐUSWVUEt:u 9 Iuڿ\>ۈ 9t
\:Gu ^_[]ÐUSWV}E t.U )tAFۈRu 9 Iu^_[]ÐUSM ҋEtPAAۈRu[]ÐUSVM E: Ru1 1ۈ\2vu^[]ÐUSWV Uu E w$҉ AJu 1 t ω}Ãt! )߃ƋE ACu)lj4 uى]𐐐 AuM t}ڐGBu ^_[]ÐUSWV1}t&U u
8uBFOu)ˉ^_[]ÐU1Mt! u@s]ÐUSWVM UÍps 1~s )uAB1u^_[]ÐUSWVPMtBU uÈ]xs :B_s )u } tFIu1^_[]ÐUSWVEEX}
CC tHv1<+uC <-uC Mu9<0u5 xu+KʀЀ
rʀ¿r
ʀw
u <0ɍ| O1" 11EU1 C̀Ѐ
r"̀ſw ̀şw49}(Һx;uwu;Mu 뢅x E t
} t'#x4 1ҋE x4 " E t
tK]M^_[]ÐU$h ɸ tED$ $D$ H ~
d
X0 ]ÐUd ]ÐUWV}1u G $:S?
uX0 @X0 }D$s $ 1 kRp&P1
t4
t/ u"qu6Qu&
d
X0 D$es $Ks )1 GDD$es $Ks 1 ^_]ÐUSWV\}<$D$ t$ ƃtG]\$4$D$O A" t 1tD $ tƉ4$' &x4 $ D$|$$Ps u0 \^_[]ÐUSWV E @E$
QuF$Q+}P~# .t
u2 u;uvl
} ~;}}땃u5$
QE9Ɖv$PC9uk2u(N$ P$ P$ P) $
P ^_[]ÐUSWVM E1tVuIM1MÉL$4$D$ h ɸx.t E<
t<
t;GM9Mut ^_[]ÐUSWV=3 U} uu
p 8 uR3
l 9}%p 8-ux t+@p 8-u A
l p ~9 ^_[]Íx=p : 3 t5\$$S tx:uU?
l Ut^m-Ut? ul =h ? t::t\$$s - t3 ? u1l )A9l u }!|=3 p ~9 @l -p ~9 ::: =h ? \$$s - USWV=\0 1t(]\$$& t u^_[]ÐUSWV] u=\0 t=t$$% uO ED$\$<$ ]D$T D$t $
& lj4$ EG _ EGG G \0 t\1ËD$E$
% x Cu+Ctx =\0 C_ۉG{] ut{_=\0 ] Gt$D${ D$t #& Et$# G_1^_[]USWV=\0 1t4]\$$R$ t uG~9 tƉ^_[]ÐUWVu} u,=\0
tt$$# u1'E D$4$D$ D$ D$ ^_]ÐUWVE$- Ɖ4$D$= 1Ʌt @L$4$D$ D$ D$ {lj4$D$ D$t $ ^_]ÐUSWV =\0 ]\$$# t u Gt <$ЉƅuzGtOHOtA9=\0 u
\0 $D$ D$t !$ GtG$D$ D$t $ <$D$ D$t # 1 ^_[]ÐU ]ÐU ]ÐUVEUM uuT$ L$D$$tu zT$L$ t$D$$u zUSWVE F1;ƉE)un x ED$ED$E$U u&Kxx σu%)9|;EsZu؉D$ ËE D$E D$E$Uu
x4 Kx4 < ^_[]ËML$D$$u yUSWVuU}
F 1< w$k
LЊ^F<
rt.uw9ss viu)t u> wOEU w5EUu u w E ɉȃ^_[]ÐU]
USWVPMp0 ̉k
)0
o0 o0 rL̉k
)Ã0d n0 ̾n0 r Q0m0 m0 F.k
)0
VrẢغk
)Ã0d^r Q0VF.̉k
)0
Vr<غk
)Ã0d^r Q0VF.غk
)Ã0
^r?̉k
)Ã0 d^r Q 0VF.^_[]ÐUSWVM1) S1 w 1k
|ЊQAڍsЃ
r1. YAӍr1 w/}1k
D2ЊYAӍzЃ
r% E1}E . YAGЃ w%1k
DЊYAwЃ
r11ր.uVA؍SЃ w/u1Ґk
TЊ؍sA
rҋu u E ȃ^_[]ÐU] ]ÐU帕 ]ÐU +Exv ]ÐU EE $D$6 D$nv ]ÐU E $D$> D$nv ]ÐUSWV E E E E E E E E MtȋU 2fDuԃHuE}0 f|] u:KuH @@f@ H @@f@ 1V 9މw vf|u uF9ru]9r¾ D})Ƹ Gv~} } fE fEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEfEt(1u 4Ft|u_f\uu f~@9uE Eu2Džx DžX E hlDž\ u@ \Džx Džl u Džht DžX DDž\ XDžxDžlw DžhLw u k U 扵dE DžtE Vp15`E})UE+EЉ)v_;UvEȃ M }){ EEM )U)+Mp}FAu{ })wR+MMMQ+uL2JL2J 2
wM)uMLM} uUL2L0} uL2L0D0EX )ȋ} ) EU̍)u)Ɖu+Up}FBuϋu)H EM MUABNu +MEЋUUыUщEmML MW)vNEEM )U)+Mp}FAu +MEЍUыUщE}
MM)MrZwRE)ƉuQEpBFBFwEUTUL}U} AuFrAMAM E EEEϋMWw+}G؍J_ÉЃ
}#U܋uL)ȉELtF@uEѾ N!UL)MLuNjEH@E};}؋END} tE E/E@r E EE@r E Љ )M })H!ؾ )U2}WV U9)ʋMԃV9) NMȉA8EA$# G<$D$2 D$z
Åt|$ED$ $ މ ^_[]ÐUVL t,1J ~R 1 F9|P @u^]ÐUE ]`USWV00 5L 1 D$ 1D$ t$~ F 1ɐL$L$ k| ~g|$ DrGD$ML$L$ $P;D$~,L$$
0 L$
0 L$T$ 0
0 D$GF ;||L$A;N tD$ 4P @@0 1t#0
0 J i0 te^_[]ÐUE ]`UWVEM u>qD$ $W G kND$D$ ( ^_]ÐUE ]`UE@ ]`UE@ ]`UE@|x4 1]k 5 ]ÐUSWV 15 }{ t F @|x4 $D$ (
L t+1Q ~I Ju P @u؉<$pDžtsL$<$Pt*OL$D$$S{ x4 -{ED$ $S C kOD$D$ o' ^_[]$/{ YbUVPE@|x4 k 5 $Qdž5 1^]ÐUSWV ]} U 9w sW 1ur Ѓ )Ɖu 7ӐC@Nu]E)ËU 4 ȨtG1u)M t T NJHu]߉ ] )؉EFߐGuu}]GtZ]4< }؉Ӑ@uU}]#ʋ}t5JNېJNCu tېBFCu ^_[]ÐUSWV8E? k,< E܋ MU $ < < < < }|$} |$}|$t$ T$ $D$ Px4 u)< EQ1ƃ 1Qx4 8^_[]Í< E䍃< E؍< E荃< EȉM< 9~ÅtBE }\$T$$$ Gك GE)E)؉E މ= M؋ I soE UT$ D$E܉$D$ хx4 7E@ E )= EEM?)}|$ D$T$E܉$хx4 u+uEUSWV1< M E? tF,?~ AG G G G G E ML$D$<$- u 1 EtT8 tO( һ tSE , E|$$Ruu#t\Ex4 <G 3]u G<$P1t
<$- x4 ^_[]ËCG D$T D$q{ $ G G G( G$ 뺐USWV4E?wCk,< t4M] UtCS < < ʉ< < x4 4^_[]Í< E< D ; < 4$D$ D$ D$ PEU!ѸtEE)ȉEE E} ؋UtUE ؋UUM;EE;UEtMM߀} ;EE;UEMt MMM} u|+u]]苟< ])< ]]쉷< u쉷< uu< < ؉x4 h UMx4 Uu
)ˋM ME < T$ L$\$4$PeUSWVE?wBk,< t3< t $D$O D${ > E t1%x4 e< ɿ t
$QNju< t $PE< t $* t=x4 1Mt
x4 ^_[]ÐUE?w%k,< tt%x4 - x4 ]ËU < T$$Qx4 ݐU ]ÐU1]ÐU ]ÐU ]ÐUx4 ]ÐU ]ÐU ]ÐUWV1M U:9ωtBu^_]ÐUSM U8u
AB1u)É[]ÐUP0 @0 Mr1uJ0 @0
0 r1u,0 H
0 { $'$ ']ÐUE0 ]ÐUSWV EX\$$0 ujE <$ 1tm|$t$$0 k |$t$$0 7 \$$0 t0 J
0 ;0 |
0 @DUMD ^_[]ÐUSVE U ҹ{ tыUpDUu:@T_p\uID0H@L$D$$0
0 ?T_u>T$ L$D$${ u7T$ L$D$$;| ^[]ÉT$ L$D$$| iVT$L$ t$D$$b| JVUWV } }<$)ƅt'|$4$
0 A0 ;
0 |0 ^_]ÐUSWV ] $ƅtZ}tG9s#D$!
0 A0 ;
0 |-0 &\$t$<$" ED$ED$<$L ^_[]ÐUSWV}M]E |$ L$D$ $Wƅu|$ED$ $^_[]ÐU 0
0 L$D$$| + $0 ]ÐUSWVPu tfMQ y)19wU}ytKYW9v
?u,9u77W)MEA^_[]ÐUSWVE M U9
4;r u)Brt2א9s4s9 3u9Ӊt s39ʉt= A
59]wpt31CA9tW49u WƉs^_[]ÉD$L$D$ $| mSD$L$D$ $| QSD$L$D$ $| 5SUSWVP}E Mq t03U)v )މq Q+Uv։q QA
yAy ^_[]ÐUSWVuF D$$} V1ۉ)ȹ tt5FE11)ًB ;]tFu1|$ \$L$$} z ^_[]ÐUE0 M )
0 ]ÐUWV}50 >;0 vx4 50 |$4$ =0 ^_]ÐU E ED$$ Mp
]ÐUSWV EE Ҿ uƉuUɸ~ tȉEE EE؉|1tBMq<%t} } }tQ
t$ML$$MAMBF<%u} uNt}E Dž\ DžT E Dž` Džl DžP E DžX Džd Džx E Džh Džp Muu]E}]KM3OEEUEEW E uuU $L} Džd k EHu8}UuMuEEUE }MnxߋEEUE }MJDžX Džx 0 E0} EEE uӃЋUЀ w!k
|ЊBBЀ
rUEt}ult
DžP l,Dž` Pupt
Džh pu1Džh Dž\ DžT EEUEE(E };}t9߉w)T%GwMt!}UT$$щ}MAM9r
} E ML$$% YE0@EEE tHEE@E]tۊOu t:M}Ήt$$tOu t$$Ӌt MuOu AM} t\ًE ]t7΅tML$$։UBUBCuˋuFE@E4]Eh1ҋE8}pEEE MUEML$ }|$T$$ Ou ECCED$ |$ED$E$ u1Ett9EMtEUT$$ыt EM@ED;Ou)}EF1ɄHrFF< uh }ɸ, u< F}tML$$tt MAMBML$$> ЉB~
9u7IMMEAE >@EBEXME)EtML$M $ЉEX@ECuҋE)E0MMf:MM ЁĴ ^_[]ÐU]UME D$$ p
]ÐUV M uEED$4$1O ^]ÐUME UT$D$ ED$D$D$$@ |$ tL$QT$ ]ÐUVE xrMr0
H^]ÐUVM uED$4$1 ^]ÐUWVUу!t 9vА8 tY@9r֍!ǀtty ty ty uѸ )щ ))^_]ÐUSWV\UM Ћ] }ut/99tu:1 >^11 15~ t>^ fE fEf]fu1]f]fUfU]f}fMUf
f Nu1fEE 1EE 1E 1҉EЋut1҉F EU E ȃ\^_[]ÉMEEЉ؉ENM̍NMuJMUEƐ}ЉučGEЍvMȍAEȋE̍PỦڍZf tӉỦEM M)ȉEM~EfDE @E1f 1ɉA= rHxu EċMu~jE} )ЉE14GM ftG F@MuډыEUP$E u M1ыuuщ}fE@u>~G )ӋE։DU fDUЉ|E@uًEMAuUf8}1MщUVUEf4GPUf9TGDGEu ( 1uMu9v HU rމEЉ}1҃} ]̿ E~9 tUu))f كtJًEM4H) }Uf Wrh1} ]̺ E~/ t}f L8OEM HuNы}Uf WEċMEċM̋uЉEăM9E ftMEMu Mt]Eċ]~H )ˋ}u9})}u]>^M f MJ9vEDEuWf EM EU NEU ME.UVEM Uut$ T$L$$D$ ^]ÐUWV EM Uu|$|$t$ T$L$$zD$T$ e^_]ÐUSWV} E؉ًuU11 y 1މt$ T$L$$D$ Ɖ1ʅuuʃ^_[]ÐUSWV(EUu ]} 1111ʍL$L$T$ $D$ |$t$L$ 1҉ʃ} xxʍe^_[]ÐUWVE M wts AHu^t )ϐ GFu)щ މϐ Futуؐ A@u^_]ÐUSWVM U ]9w sQ ب 1بur )lj}4:CBOuE)]a4
1ĉu)Et
]L NIOuEÉމE։tx E߉؉]𐐐 Gu]]Bˉt[]< )߉}~ِ Auu](t=ِCBAu tHNېHNCu^_[] comconsole vidconsole vidconsole comconsole nullconsole BIOS %dkB/%dkB available memory
%s, Revision %s
(%s, %s)
LINES 24 heap show heap usage heap base at %p, top at %p, upper limit at %p
reboot reboot the system Rebooting...
Can't work out which disk we are booting from.
Guessed BIOS device 0x%x not found by probes, defaulting to disk0:
currdev loaddev autoboot_delay NO kernelname no valid kernel found Hit [Enter] to boot immediately, or any other key for command prompt.
Booting [%s] in %d second%s...
Booting [%s]... vfs.root.mountfrom %s/etc/fstab %s:%s /usr/src/sys/boot/i386/loader/../../common/boot.c vfs.root.mountfrom.options zfs: can't load '%s'
bootfile can't boot '%s', kernel module already loaded no bootable kernel autoboot boot automatically after a delay bad delay '%s' too many arguments boot a file or loaded kernel lsdev list all devices %s devices:
%s: (unknown)
more show contents of a file *** FILE %s BEGIN ***
*** FILE %s END ***
error showing %s read input from the terminal p:t: bad timeout '%s' echo echo arguments /usr/src/sys/boot/i386/loader/../../common/commands.c unset unset a variable wrong number of arguments show show variable(s) variable '%s' not found list commands Available commands:
%-15s detailed help %s/boot/loader.help Verbose help not available, use '?' to list commands
usage is 'help [] index no help available for '%s' twiddle_divisor Consoles: %s /usr/src/sys/boot/i386/loader/../../common/console.c invalid twiddle_divisor '%s'
, console %s failed to initialize
console %s is invalid!
no valid consoles!
Available consoles:
%s
/usr/src/sys/boot/i386/loader/../../common/devopen.c /boot/loader.rc /boot/boot.conf
Type '?' for a list of commands, 'help' for more detailed help.
prompt ${interpret} interpret OK can't open '%s': %s /usr/src/sys/boot/i386/loader/../../common/interp.c file '%s' line %d: memory allocation failure - aborting Error while including %s, in the line:
%s include read commands from a file ( ) ) ) ]' k' y' ) ' ) ) ) ' /usr/src/sys/boot/i386/loader/../../common/interp_parse.c fail at line %d
list files .. /usr/src/sys/boot/i386/loader/../../common/ls.c %s/%s %c %8d %s
?fc?d?b? ?l?s?w %c %s
bad path '%s' open '%s' failed: %s stat failed: %s /usr/src/sys/boot/i386/loader/../../common/misc.c
lseek failed
readin failed
malloc(%d) failed
read failed
%08lx %02x -- | %c |
can't load file before kernel can't find '%s' /usr/src/sys/boot/i386/loader/../../common/module.c error reading '%s': %s Warning: mod_load() called instead of mod_loadkld() for module '%s'
warning: module '%s' already loaded warning: KLD '%s' already loaded don't know how to load module '%s' linker.hints module_path /boot/kernel;/boot/modules loading required module '%s'
module '%s' exists but with wrong version can't load file '%s': %s .ko .debug lsmod list loaded modules %p: %s (%s, 0x%lx)
args: modules: %s.%d 0x%04x, 0x%lx
unload unload all modules load_geli load a geli key usage is [-n key#] n: bad key index '%s' %s:geli_keyfile%d load a kernel or module no filename specified kt: invalid load type warning: file '%s' already loaded mfs_root ~9 panic: --> Press a key on the console to reboot <--
Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z elf32_lookup_symbol: corrupt symbol table
elf kernel elf module elf32_loadfile: kernel already loaded
elf32_loadfile: not a kernel (maybe static binary?)
elf32_loadfile: can't load module as multiboot
elf32_loadfile: can't load module before kernel
elf32_loadfile: can't load module with kernel type '%s'
elf32_loadfile: cannot allocate module info
elf multiboot kernel %s /usr/src/sys/boot/i386/loader/../../common/load_elf.c
elf32load_modmetadata: unable to load shstrtab
.data .rodata
elf32load_modmetadata: unable to find set_modmetadata_set or data sections
elf32load_modmetadata: unable to load set_modmetadata_set: %d
elf32load_modmetadata: unable to load data: %d
elf32load_modmetadata: unable to parse metadata: %d
elf32_loadimage: program header not within first page
text=0x%lx data=0x%lx
elf32_loadimage: read failed
elf32_loadimage: failed to read section headers syms=[ 0x%lx+0x%lx
elf32_loadimage: could not seek for symbols - skipped!
elf32_loadimage: could not read symbols - skipped! (%ju != %ju) __start_set_modmetadata_set __stop_set_modmetadata_set elf obj module elf32_obj_loadfile: can't load module before kernel
elf32_obj_loadfile: cannot allocate module info
/usr/src/sys/boot/i386/loader/../../common/load_elf_obj.c
elf32_obj_loadimage: read section headers failed
elf32_obj_loadimage: file has no valid symbol table
elf32_obj_loadimage: file has invalid symbol strings
elf32_obj_loadimage: file has no section names
elf32_obj_loadimage: read failed
size 0x%lx at 0x%lx unknown type %d
set_
unhandled relocation type %u
L @ @ @ ܀ @ @ @ @ @ @ @ ( 7 elf64_lookup_symbol: corrupt symbol table
elf64_loadfile: kernel already loaded
elf64_loadfile: not a kernel (maybe static binary?)
elf64_loadfile: can't load module as multiboot
elf64_loadfile: can't load module before kernel
elf64_loadfile: can't load module with kernel type '%s'
elf64_loadfile: cannot allocate module info
elf64load_modmetadata: unable to load shstrtab
elf64load_modmetadata: unable to find set_modmetadata_set or data sections
elf64load_modmetadata: unable to load set_modmetadata_set: %d
elf64load_modmetadata: unable to load data: %d
elf64load_modmetadata: unable to parse metadata: %d
elf64_loadimage: program header not within first page
elf64_loadimage: read failed
elf64_loadimage: failed to read section headers
elf64_loadimage: could not seek for symbols - skipped!
elf64_loadimage: could not read symbols - skipped! (%ju != %ju) elf64_obj_loadfile: can't load module before kernel
elf64_obj_loadfile: cannot allocate module info
elf64_obj_loadimage: read section headers failed
elf64_obj_loadimage: file has no valid symbol table
elf64_obj_loadimage: file has invalid symbol strings
elf64_obj_loadimage: file has no section names
elf64_obj_loadimage: read failed
/usr/src/sys/boot/i386/loader/../../common/disk.c %s%d p%d: %s%s: %s %-*s%s %s%s %ld%cB #2 +2 /2 72 D2 S2 _2 k2 x2 2
2 2 (s* K >;3Dh&ǝkA `O|nQn - q+|nQn - q+|nQn - q+|nQn - q+}t (jϴ|nQn - q+/usr/src/sys/boot/i386/loader/../../common/part.c p%d EFI PART Unknown EFI FreeBSD FreeBSD boot FreeBSD nandfs FreeBSD UFS FreeBSD ZFS FreeBSD swap FreeBSD vinum Linux Linux swap DOS/Windows 0w,aQ mjp5c飕d2y җ+L |~- d jHqA}mQDžӃVlkdzbeO\lcc=
n;^iLA`rqgjm
Zjz '
}Dңh i]Wbgeq6lknv+ӉZzJgo߹ﾎCՎ`~ѡ8ROggW?K6H+
L
J6`zA`Ugn1yiFafo%6hRw G "/&U;( Z+j\1е, [d&c윣ju
m ?6grW Jz+{8 Ғ
|! ӆBhn [&wowGZpj;f\ eibkaElx
TN³9a&g`MGiIwn>JjѮZf @;7SŞϲG0 º0S$6к)WTg#.zfJah]+o*7 Z-/usr/src/sys/boot/i386/loader/../../common/bcache.c bcachestat get disk block cache stats %08jx %04x %04x|
%d ops %d bypasses %d hits %d misses %d flushes
ISA bus /usr/src/sys/boot/i386/loader/../../common/isapnp.c PnP device failed to report resource data
/usr/src/sys/boot/i386/loader/../../common/pnp.c 0123456789abcdef pnpscan scan for PnP devices Probing %s...
PNP scan summary:
: vocabulary builtins also builtins definitions : builtin: >in @ ' swap >in ! create , immediate does> state @ if 1 postpone literal @ compile, postpone throw else 0 swap @ execute throw then ; forth definitions builtins builtin: %s only forth definitions FreeBSD_version loader_version /boot/boot.4th No where to leave to!
Aborted!
Parse error!
interpreter exit callout for unknown command '%s' /usr/src/sys/boot/i386/loader/../../common/interp_forth.c vmCreate /usr/src/sys/boot/ficl/vm.c pVM vmGetDict vmTextOut pVM->textOut 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ radix > 1 radix < 37 ultoa skipSpace cp Error: out of memory ficlCompilePlatform /usr/src/sys/boot/ficl/loader.c .# isdir? fopen fclose fread freaddir fload fkey fseek fwrite key? ms seconds heap? dictthreshold dictincrease setenv? getenv unsetenv copyin copyout findfile ccall outb inb arch-i386 arch-ia64 arch-powerpc Error: stack underflow Error: stack overflow stackCreate /usr/src/sys/boot/ficl/stack.c nCells != 0 pStack != NULL stackDrop n > 0 F 6 ficlInitSystemEx /usr/src/sys/boot/ficl/ficl.c pSys fsi->size == sizeof (FICL_SYSTEM_INFO) forth-wordlist environment ?prefix ?number ficlListParseSteps Parse steps: lookup ficlFreeVM pVM != 0 ficlBuild dictCellsAvail(pSys->dp) > sizeof (FICL_WORD) / sizeof (CELL) ficlExecC pSys->pInterp[0] ficlExecXT pVM->pSys->pExitInner ficl-version ficl-robust Error: dictionary full Error: dictionary underflow Error: search order overflow Error: search order underflow dictCreateHashed /usr/src/sys/boot/ficl/dict.c pDict pDict->dict dictDelete dictLookup ficlLookupLoc pHash dictResetSearchOrder dictSetFlags pDict->smudge dictSetImmediate dictUnsmudge pFW hashForget where hashInsertWord hashLookup pFW != pFW->link hashReset dictCheckThreshold dp->dict ficlCompileSoftCore softcore.c FALSE /usr/src/sys/boot/ficl/i386/sysdep.c %.*s not found ficlCompileCore /usr/src/sys/boot/ficl/words.c #> #s */ */mod +! +loop ." 0< 0= 1+ 1- 2! 2* 2/ 2@ 2drop 2dup 2over 2swap ; <# >body >in >number ?dup abort accept align aligned allot and begin c! c, c@ cell+ char+ chars count cr create decimal depth does> else emit endcase endof environment? evaluate execute fallthrough fm/mod immediate invert j leave lshift max min move postpone quit recurse rot rshift s>d sign sm/rem source state then u. u< um* um/mod unloop until while xor ['] [char] .( 0> 2>r 2r> 2r@ :noname ?do again c" hex parse pick refill source-id to value /counted-string /hold /pad address-unit-bits core core-ext floored max-char max-d max-n max-u max-ud return-stack-cells 2literal 2variable dnegate catch throw exception exception-ext (link) (unlink) doLocal (@local) (toLocal) (@local0) (toLocal0) (@local1) (toLocal1) (local) (@2local) (to2Local) (2local) locals-ext #locals allocate free resize memory-alloc .ver -roll >name add-parse-step body> compare compare-insensitive compile-only endif last-word hash objectify ?object parse-word sfind sliteral sprintf strlen q@ q! w@ w! x. (user) user (create) (exit) (;) (literal) (2literal) (.") (c") (branch0) (branch) (do) (does>) (?do) (loop) (+loop) (of) (variable) (constant) (parse-step) exit-inner dictCellsAvail(dp) > 0 Error: Compile only! Error - out of user space getLastWord wp ficl Version 3.03 Error: out of local space ficlCatch twoLiteralIm pVM->pSys->pTwoLitParen toValue pVM->pSys->pStore againCoIm pVM->pSys->pBranchParen Error -- unmatched control structure "%s" qDoCoIm pVM->pSys->pQDoParen whileCoIm pVM->pSys->pBranch0 untilCoIm repeatCoIm postponeCoIm pComma loopCoIm pVM->pSys->pLoopParen Warning -- Unmatched control word: ifCoIm exitCoIm pVM->pSys->pExitParen endofCoIm endcaseCoIm pVM->pSys->pDrop elseCoIm doesCoIm pVM->pSys->pUnLinkParen doCoIm pVM->pSys->pDoParen semicolonCoIm pVM->pSys->pSemiParen dotQuoteCoIm pType plusLoopCoIm pVM->pSys->pPLoopParen literalIm pVM->pSys->pLitParen P 0 `
P
0 " k : _ 7 ^ step-break stepOver /usr/src/sys/boot/ficl/tools.c pStep stepBreak pVM->pSys->bpStep.address pVM->pSys->bpStep.origXT on-step next: %.*s sorry - can't do that q ok> i -- step In o -- step Over g -- Go (execute to completion) l -- List source code q -- Quit (stop debugging and abort) x -- eXecute the rest of the line as ficl words ficlCompileTools bye forget see tools tools-ext r.s .env env-constant env-2constant debug-xt parse-order forget-wid see-xt Environment: %d words, %ld cells used of %u total (Stack Empty) %s+%d --- Press Enter to continue --- Dictionary: %d words, %ld cells used of %u total dbg> vmSetBreak variable = %ld (%#lx) user variable %ld (%#lx) constant = %ld (%#lx) %.*s is a primitive seeColon %3d %.*s ( %#lx literal ) literal %ld (%#lx) s" %.*s" c" %.*s" if / while (branch %d) until (branch %d) repeat (branch %d) else (branch %d) endof (branch %d) ?do (leave %d) +loop (branch %d) %ld ( %#lx ) ficlCompileSearch /usr/src/sys/boot/ficl/search.c >search search> get-current get-order search-wordlist set-current set-order ficl-wordlist search-order search-order-ext wordlists wid-get-name wid-set-name wid-set-super set-order error: list would be too large DEFINITIONS error - empty search order search> error: empty search order >search error: search order overflow __tempbase 0x 0d %.*s not recognized spinconsole spin port d N n 1 c c c c c c c c r r r r r r r r internal video/keyboard b L y %d.%d smbios.version %u smbios.memory.enabled smbios.socket.enabled smbios.socket.populated smbios.bios.vendor smbios.bios.version smbios.bios.reldate smbios.system.maker smbios.system.product smbios.system.version smbios.system.serial smbios.system.uuid smbios.planar.maker smbios.planar.product smbios.planar.version smbios.planar.serial smbios.chassis.maker smbios.chassis.version smbios.chassis.serial smbios.chassis.tag %08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x _SM_ _DMI_ pxenet sendudp failed %x
readudp failed %x
pxe_end failed %x
pxe_netif_probe: failed %x
pxe0: %s:%s
X boot.nfsroot.nfshandle boot.nfsroot.nfshandlelen NFS MOUNT RPC error: %d
pxe_open: netif_open() failed
/pxeroot pxe_open: server addr: %s
pxe_open: server path: %s
pxe_open: gateway ip: %s
boot.netif.ip boot.netif.netmask boot.netif.gateway %6D boot.netif.hwaddr boot.nfsroot.server boot.nfsroot.path dhcp.host-name PXENV+ PXENV+ structure too large, ignoring
PXENV+ structure failed checksum, ignoring
!PXE
PXE version %d.%d, real mode entry point @%04x:%04x
null port Unable to load %s as a multiboot payload kernel
Unable to load kernel %s metadata error: %d
Unable to load %s as an object file, error: %d /usr/src/sys/boot/i386/libi386/multiboot.c xen_cmdline %s %s Unable to find %s entry point
No FreeBSD kernel provided, aborting
bi_load64 failed: %d
Required memory for metadata is greater than reserved space, please increase METADATA_FIXED_SIZE and METADATA_MODULE_SIZE and rebuild the loader
exec returned Multiboot checksum failed, magic: 0x%x flags: 0x%x checksum: 0x%x
Unsupported multiboot flags found: 0x%x
elf32_loadfile_raw failed: %d unable to load multiboot kernel
FreeBSD Loader serial port hw.uart.console io:%d,br:%d boot_multicons comconsole_speed comconsole_port comconsole_pcidev Invalid pcidev
Cannot read bar at 0x%x
Memory bar at 0x%x
Invalid port
Invalid speed
CPU doesn't support long mode
rootdev can't determine root device
elf64 kernel can't find kernel file GenuineIntel AuthenticAMD CentaurHauls 7 WARNING - don't know how to boot from device type %d
root device %s invalid
/usr/src/sys/boot/i386/libi386/bootinfo32.c elf32 kernel O a f n v ~ .X ;X FX @ OX ]X U fX pX {X X X /usr/src/sys/boot/i386/libi386/bootinfo.c YES boot_askname boot_cdrom boot_ddb boot_dfltroot boot_gdb boot_mute boot_pause boot_serial boot_single boot_verbose /usr/src/sys/boot/i386/libi386/biossmap.c smap show BIOS SMAP SMAP type=%02x base=%016llx len=%016llx attr=%02x
SMAP type=%02x base=%016llx len=%016llx
PCI BIOS 0x%08x controller display FireWire ACCESS.bus SSA USB Fibrechannel OHCI parallel communications Standard Bidirectional ECP 8250 16450 16550 XGA other 8514 Ethernet Token ring FDDI ATM network SCSI IDE Floppy disk IPI RAID mass storage Old non-VGA Old VGA PnP BIOS llw PnP BIOS node %d: error 0x%x
/usr/src/sys/boot/i386/libi386/biospnp.c $PnP PnP BIOS claims no ISA bus
root_disk_unit bd_strategy: %d bytes I/O not multiple of block size disk%d: BIOS drive %c:
disk%d BIOS drive %c: is disk%d
BIOS CD is cd%d
cd%d: Device 0x%x
hint.acpi.0.rsdp hint.acpi.0.revision hint.acpi.0.oem hint.acpi.0.rsdt 0x%016llx hint.acpi.0.xsdt hint.acpi.0.xsdt_length RSD PTR E* ) ) ) ) * * * * + (no device) %s%d: /usr/src/sys/boot/i386/libi386/devicename.c ext2fs /usr/src/sys/boot/libstand32/../../../lib/libstand/ext2fs.c
dosfs /usr/src/sys/boot/libstand32/../../../lib/libstand/dosfs.c w v zip zf_read: fill error
zf_read: unexpected EOF
inflate: %s
/usr/src/sys/boot/libstand32/../../../lib/libstand/gzipfs.c .bz2 .split %s.gz zf_open: stat failed
zf_open: not a file
1.2.8 zf_open: inflateInit returned %d : %s
cd9660 NM ST CE /usr/src/sys/boot/libstand32/../../../lib/libstand/cd9660.c CD001 SP ER nfs nfsread: short packet, %d < %ld
no rootpath, no nfs
pxe /usr/src/sys/boot/libstand32/../../../lib/libstand/nfs.c ufs /usr/src/sys/boot/libstand32/../../../lib/libstand/ufs.c fs == NULL 5 5 5 g b b b b b b c &c 2c Ac
Mc ]c 3R
wc c c c b c c c c c c
d $d ;d Id [d md d d d ! d " d # d $ d % e & %e ' n . N ` Q q 1
a ! A Y ; y 9 i ) I U + u 5
e % E ] S } = m -
M S # s 3 c # C [ C { ; k + K W @ 3 w 7 g ' G _ c ? o / O ` P s p 0
` @ X ; x 8 h ( H T + t 4
d $ D \ S | < l , L R # r 2 b " B Z C z : j *
J V @ 3 v 6 f & F ^ c ~ > n . N ` Q q 1
a ! A Y ; y 9 i ) I U + u 5
e % E ] S } = m -
M S # s 3 c # C [ C { ; k + K W @ 3 w 7 g ' G _ c ? o / O A @ ! @ a ` 1 0
@ incorrect header check unknown compression method invalid window size unknown header flags set header crc mismatch invalid block type invalid stored block lengths too many length or distance symbols invalid code lengths set invalid bit length repeat invalid code -- missing end-of-block invalid literal/lengths set invalid distances set invalid literal/length code invalid distance code invalid distance too far back incorrect data check incorrect length check
%s
can't open '%s': %s
--more-- page down line down quit illegal option -- %c
option requires an argument -- %c
/usr/src/sys/boot/libstand32/../../../lib/libstand/environment.c
!"#$%&' ()*+,-./01 23456789:; <=>?@ABCDE FGHIJKLMNO PQRSTUVWXY Z[\]^_`abc !"#$%&'()0123456789@ABCDEFGHIPQRSTUVWXY`abcdefghipqrstuvwxy0123456789abcdefghijklmnopqrstuvwxyz Assertion failed: (%s), file %s, line %d.
Assertion failed: (%s), function %s, file %s, line %d.
sendrecv: short write! (%zd < %zd) need dictionary stream end file error stream error data error insufficient memory buffer error incompatible version _zutil.c u
v ~9 v v -v 8v Lv Yv ~9 inflate 1.2.8 Copyright 1995-2013 Mark Adler
# + 3 ; C S c s H N
! 1 A a 0@` @ @ x x x y y +y =y Qy hy y y y y y y - y <
z F z H 4z O Fz a hz b {z c z d z e z f z g z h z unknown error (%d) no error operation not permitted no such file or directory input/output error device not configured exec format error bad file descriptor cannot allocate memory operation not supported by device not a directory is a directory invalid argument too many open files file too large read-only filesystem operation not supported operation timed out stale NFS file handle RPC struct is bad inappropriate file type or format bad adaptor number bad controller number bad unit number bad slice number bad partition can't read disk label disk unlabelled illegal seek /usr/src/sys/boot/libstand32/../../../lib/libstand/strdup.c netboot: no interfaces left untried netboot: couldn't probe %s%d
/usr/src/sys/boot/libstand32/../../../lib/libstand/open.c /usr/src/sys/boot/libstand32/../../../lib/libstand/close.c |/-\ unknown free: duplicate free @ %p from %s:%d
free: guard1 fail @ %p from %s:%d free: duplicate2 free @ %p from %s:%d
free: guard2 fail @ %p + %zu from %s:%d Active Allocations: %d/%d
zfree(%p,%ju): wild pointer zfree(%p,%ju): corrupt memlist1 zfree(%p,%ju): corrupt memlist2 %d bytes reserved %d bytes allocated
%d fragments (%d bytes fragmented)
t t t t t R t a t p t t t t t t t t t t t t t t t t t t t t t t t t t t t t t < t t t t t t t t t t t t t t 5 R A 0 t t 5 n M (fmt null)
(null) ( 4 @ L X d p | P q v x P T ( $ D Ȕ Д Г D FreeBSD/x86 bootstrap loader 1.1 Fri Mar 25 03:48:09 UTC 2016 root@releng1.nyi.freebsd.org ?2 8 0
P +; r g _ e 0 p : U [ P% C k p/ ; :$ N # # pM # # M [# a# K P# ~9 T# c% n% bad c% ) c% n% bad c% ) 6 6 E7 7 7 variable nUser 0 nUser ! : user nUser dup @ user 1 swap +! ; : empty depth 0 ?do drop loop ; : cell- [ 1 cells ] literal - ; : -rot 2 -roll ; : abs dup 0< if negate endif ; decimal 32 constant bl : space bl emit ; : spaces 0 ?do space loop ; : abort" state @ if postpone if postpone ." postpone cr -2 postpone literal postpone throw postpone endif else [char] " parse rot if type cr -2 throw else 2drop endif endif ; immediate 0 constant false false invert constant true : <> = 0= ; : 0<> 0= 0= ; : compile, , ; : convert char+ 65535 >number drop ; : erase 0 fill ; variable span : expect accept span ! ; : nip swap drop ; : tuck swap over ; : within over - >r - r> u< ; : locals| begin bl word count dup 0= abort" where's the delimiter??" over c@ [char] | - over 1- or while (local) repeat 2drop 0 0 (local) ; immediate : local bl word count (local) ; immediate : 2local bl word count (2local) ; immediate : end-locals 0 0 (local) ; immediate : ? @ . ; : dump 0 ?do dup c@ . 1+ i 7 and 7 = if cr endif loop drop ; : brand-wordlist last-word >name drop wid-set-name ; : ficl-named-wordlist ficl-wordlist dup create , brand-wordlist does> @ ; : wordlist 1 ficl-wordlist ; : ficl-set-current get-current swap set-current ; : do-vocabulary does> @ search> drop >search ; : ficl-vocabulary ficl-named-wordlist do-vocabulary ; : vocabulary 1 ficl-vocabulary ; : previous search> drop ; 1 ficl-named-wordlist hidden : hide hidden dup >search ficl-set-current ; : also search> dup >search >search ; : forth search> drop forth-wordlist >search ; : only -1 set-order ; hide : list-wid dup wid-get-name ?dup if type drop else drop ." (unnamed wid) " x. endif cr ; set-current : order ." Search:" cr get-order 0 ?do 3 spaces list-wid loop cr ." Compile: " get-current list-wid cr ; : debug ' debug-xt ; immediate : on-step ." S: " .s cr ; : strdup 0 locals| addr2 length c-addr | end-locals length 1 + allocate 0= if to addr2 c-addr addr2 length move addr2 length 0 else 0 -1 endif ; : strcat 0 locals| b-length b-u b-addr a-u a-addr | end-locals b-u to b-length b-addr a-addr a-u + b-length move a-addr a-u b-length + ; : strcpy locals| b-u b-addr a-u a-addr | end-locals a-addr 0 b-addr b-u strcat ; previous hide 0 constant zero : ?-- 2dup s" --" compare 0= ; : ?} 2dup s" }" compare 0= ; : ?| 2dup s" |" compare 0= ; : ?2loc over dup c@ [char] 2 = swap 1+ c@ [char] : = and if 2 - swap char+ char+ swap true else false endif ; : ?delim ?| if 2drop 1 exit endif ?-- if 2drop 2 exit endif ?} if 2drop 3 exit endif dup 0= if 2drop 4 exit endif 0 ; set-current : { 0 dup locals| locstate | begin parse-word ?delim dup to locstate 0= while rot 1+ repeat 0 ?do ?2loc if (2local) else (local) endif loop locstate 1 = if begin parse-word ?delim dup to locstate 0= while ?2loc if postpone zero postpone zero (2local) else postpone zero (local) endif repeat endif 0 0 (local) locstate 2 = if begin parse-word ?delim dup to locstate 3 < while locstate 0= if 2drop endif repeat endif locstate 3 <> abort" syntax error in { } local line" ; immediate compile-only previous : marker create get-current , get-order dup , 0 ?do , loop does> 0 set-order dup body> >name drop here - allot dup @ dup set-current forget-wid cell+ dup @ swap over cells + swap 0 ?do dup @ dup >search forget-wid cell- loop drop ; : tib> source >in @ tuck over >in ! - >r + r> ; : % tib> ['] evaluate catch drop ; : $ tib> 2dup type cr evaluate ; hide 0 constant zero : ?-- s" --" compare 0= ; : ?}} s" }}" compare 0= ; set-current : {{ 0 dup locals| nLocs locstate | begin parse-word ?dup 0= abort" Error: out of text without seeing }}" 2dup 2dup ?-- -rot ?}} or 0= while nLocs 1+ to nLocs repeat ?-- if 1 to locstate endif nLocs 0 do (local) loop locstate 1 = if begin parse-word 2dup ?}} 0= while postpone zero (local) repeat 2drop endif 0 0 (local) ; immediate compile-only previous hide : ?[if] 2dup s" [if]" compare-insensitive 0= ; : ?[else] 2dup s" [else]" compare-insensitive 0= ; : ?[then] 2dup s" [then]" compare-insensitive 0= >r 2dup s" [endif]" compare-insensitive 0= r> or ; set-current : [else] 1 begin begin parse-word dup while ?[if] if 2drop 1+ else ?[else] if 2drop 1- dup if 1+ endif else ?[then] if 2drop 1- else 2drop endif endif endif ?dup 0= if exit endif repeat 2drop refill 0= until drop ; immediate : [if] 0= if postpone [else] then ; immediate : [then] ; immediate : [endif] ; immediate previous quit target leave do colon origin fallthrough case of SM _M 0 @ |/-\ pN P ` P ` l2 P 0 @ ( pxe p p О 0 R u p Q h @ [U P 0 X X :Y y \ JY JY ԕ UY JY L JY | .Z Ԗ :Z Ԗ Z Ԗ Z < Z Ԗ Z Ԗ Z Ԗ !Z Ԗ Y Ԗ Y Ԗ Y Ԗ Y Ԗ Y Ԗ $ Y Ԗ Y Ԗ O Y Y Ԗ ]Y Ė fY Ԗ qY Ԗ uY Ԗ yY Ԗ Y Y Y Y Y Y Y >Z Y
BZ p < disk @ 0 @ cd О
p R\ + 3 4 4 05 p5 \ < H I J pK K . ! .. ! ] R Y Y Z \ ^ @\ c @c d d d d d^ i 0o po p p p p @ ` ^ x @ p Ѕ cSc b b ~9 / .shstrtab .text .rodata set_Xcommand_set .data .bss ' f ~ Ď X * R 0 u 5 \ Copyright (c) 1999 Daniel C. Sobral
\ Copyright (c) 2011-2015 Devin Teske
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD: releng/10.3/sys/boot/forth/loader.4th 294417 2016-01-20 13:23:02Z royger $
only forth definitions
s" arch-i386" environment? [if] [if]
s" loader_version" environment? [if]
11 < [if]
.( Loader version 1.1+ required) cr
abort
[then]
[else]
.( Could not get loader version!) cr
abort
[then]
[then] [then]
256 dictthreshold ! \ 256 cells minimum free space
2048 dictincrease ! \ 2048 additional cells each time
include /boot/support.4th
include /boot/color.4th
include /boot/delay.4th
include /boot/check-password.4th
only forth definitions
: bootmsg ( -- )
loader_color? dup ( -- bool bool )
if 7 fg 4 bg then
." Booting..."
if me then
cr
;
: try-menu-unset
\ menu-unset may not be present
s" beastie_disable" getenv
dup -1 <> if
s" YES" compare-insensitive 0= if
exit
then
else
drop
then
s" menu-unset"
sfind if
execute
else
drop
then
s" menusets-unset"
sfind if
execute
else
drop
then
;
only forth also support-functions also builtins definitions
: boot
0= if ( interpreted ) get_arguments then
\ Unload only if a path was passed
dup if
>r over r> swap
c@ [char] - <> if
0 1 unload drop
else
s" kernelname" getenv? if ( a kernel has been loaded )
try-menu-unset
bootmsg 1 boot exit
then
load_kernel_and_modules
?dup if exit then
try-menu-unset
bootmsg 0 1 boot exit
then
else
s" kernelname" getenv? if ( a kernel has been loaded )
try-menu-unset
bootmsg 1 boot exit
then
load_kernel_and_modules
?dup if exit then
try-menu-unset
bootmsg 0 1 boot exit
then
load_kernel_and_modules
?dup 0= if bootmsg 0 1 boot then
;
\ ***** boot-conf
\
\ Prepares to boot as specified by loaded configuration files.
: boot-conf
0= if ( interpreted ) get_arguments then
0 1 unload drop
load_kernel_and_modules
?dup 0= if 0 1 autoboot then
;
also forth definitions previous
builtin: boot
builtin: boot-conf
only forth definitions also support-functions
\ ***** start
\
\ Initializes support.4th global variables, sets loader_conf_files,
\ processes conf files, and, if any one such file was succesfully
\ read to the end, loads kernel and modules.
: start ( -- ) ( throws: abort & user-defined )
s" /boot/defaults/loader.conf" initialize
include_conf_files
include_nextboot_file
\ Will *NOT* try to load kernel and modules if no configuration file
\ was succesfully loaded!
any_conf_read? if
s" loader_delay" getenv -1 = if
load_xen_throw
load_kernel
load_modules
else
drop
." Loading Kernel and Modules (Ctrl-C to Abort)" cr
s" also support-functions" evaluate
s" set delay_command='load_xen_throw load_kernel load_modules'" evaluate
s" set delay_showdots" evaluate
delay_execute
then
then
;
\ ***** initialize
\
\ Overrides support.4th initialization word with one that does
\ everything start one does, short of loading the kernel and
\ modules. Returns a flag
: initialize ( -- flag )
s" /boot/defaults/loader.conf" initialize
include_conf_files
include_nextboot_file
any_conf_read?
;
\ ***** read-conf
\
\ Read a configuration file, whose name was specified on the command
\ line, if interpreted, or given on the stack, if compiled in.
: (read-conf) ( addr len -- )
conf_files string=
include_conf_files \ Will recurse on new loader_conf_files definitions
;
: read-conf ( | addr len -- ) ( throws: abort & user-defined )
state @ if
\ Compiling
postpone (read-conf)
else
\ Interpreting
bl parse (read-conf)
then
; immediate
\ show, enable, disable, toggle module loading. They all take module from
\ the next word
: set-module-flag ( module_addr val -- ) \ set and print flag
over module.flag !
dup module.name strtype
module.flag @ if ." will be loaded" else ." will not be loaded" then cr
;
: enable-module find-module ?dup if true set-module-flag then ;
: disable-module find-module ?dup if false set-module-flag then ;
: toggle-module find-module ?dup if dup module.flag @ 0= set-module-flag then ;
\ ***** show-module
\
\ Show loading information about a module.
: show-module ( -- ) find-module ?dup if show-one-module then ;
\ Words to be used inside configuration files
: retry false ; \ For use in load error commands
: ignore true ; \ For use in load error commands
\ Return to strict forth vocabulary
: #type
over - >r
type
r> spaces
;
: .? 2 spaces 2swap 15 #type 2 spaces type cr ;
: ?
['] ? execute
s" boot-conf" s" load kernel and modules, then autoboot" .?
s" read-conf" s" read a configuration file" .?
s" enable-module" s" enable loading of a module" .?
s" disable-module" s" disable loading of a module" .?
s" toggle-module" s" toggle loading of a module" .?
s" show-module" s" show module load data" .?
s" try-include" s" try to load/interpret files" .?
;
: try-include ( -- ) \ see loader.4th(8)
['] include ( -- xt ) \ get the execution token of `include'
catch ( xt -- exception# | 0 ) if \ failed
LF parse ( c -- s-addr/u ) 2drop \ advance >in to EOL (drop data)
\ ... prevents words unused by `include' from being interpreted
then
; immediate \ interpret immediately for access to `source' (aka tib)
only forth definitions
#
hw.vga.textmode=0
kern.vty=sc
pty_load="YES"
mfsroot_load="YES"
mfsroot_type="mfs_root"
mfsroot_name="/boot/mfsroot"
mfsroot_before="echo -n 'mfsroot '"
vfs.root.mountfrom="ufs:/dev/md0a"
ips_load="YES"
siis_load="YES"
xhci_load="YES"
mps_load="YES"
################################################################################
# T? DList available commands
?
Lists all available commands.
################################################################################
# Tautoboot DBoot after a delay
autoboot [ []]
Displays or a default prompt, and counts down seconds
before attempting to boot. If is not specified, the default
value is 10.
################################################################################
# Tbcachestat DGet disk block cache stats
bcachestat
Displays statistics about disk cache usage. For debugging only.
################################################################################
# Tboot DBoot immediately
boot [] [- ...]
Boot the system. If arguments are specified, they are added to the
arguments for the kernel. If is specified, and a kernel
has not already been loaded, it will be booted instead of the default
kernel.
################################################################################
# Techo DEcho arguments
echo [-n] []
Emits , with no trailing newline if -n is specified. This is
most useful in conjunction with scripts and the '@' line prefix.
Variables are substituted by prefixing them with $, eg.
echo Current device is $currdev
will print the current device.
################################################################################
# Theap DDisplay memory management statistics
heap
Requests debugging output from the heap manager. For debugging use
only.
################################################################################
# Thelp DDisplay command help
help [topic [subtopic]]
help index
The help command displays help on commands and their usage.
In command help, a term enclosed with <...> indicates a value as
described by the term. A term enclosed with [...] is optional,
and may not be required by all forms of the command.
Some commands may not be available. Use the '?' command to list
most available commands.
################################################################################
# Tinclude DRead commands from a script file
include [ ...]
The entire contents of are read into memory before executing
commands, so it is safe to source a file from removable media.
################################################################################
# Tload DLoad a kernel or module
load [-t ]
Loads the module contained in into memory. If no other
modules are loaded, must be a kernel or the command will
fail.
If -t is specified, the module is loaded as raw data of , for
later use by the kernel or other modules. may be any string.
################################################################################
# Tls DList files
ls [-l] []
Displays a listing of files in the directory , or the root
directory of the current device if is not specified.
The -l argument displays file sizes as well; the process of obtaining
file sizes on some media may be very slow.
################################################################################
# Tlsdev DList devices
lsdev [-v]
List all of the devices from which it may be possible to load modules.
If -v is specified, print more details.
################################################################################
# Tlsmod DList modules
lsmod [-v]
List loaded modules. If [-v] is specified, print more details.
################################################################################
# Tmore DPage files
more [ ...]
Show contents of text files. When displaying the contents of more,
than one file, if the user elects to quit displaying a file, the
remaining files will not be shown.
################################################################################
# Tpnpscan DScan for PnP devices
pnpscan [-v]
Scan for Plug-and-Play devices. This command is normally automatically
run as part of the boot process, in order to dynamically load modules
required for system operation.
If the -v argument is specified, details on the devices found will
be printed.
################################################################################
# Tread DRead input from the terminal
read [-t ] [-p ] []
The read command reads a line of input from the terminal. If the
-t argument is specified, it will return nothing if no input has been
received after seconds. (Any keypress will cancel the
timeout).
If -p is specified, is printed before reading input. No
newline is emitted after the prompt.
If a variable name is supplied, the variable is set to the value read,
less any terminating newline.
################################################################################
# Treboot DReboot the system
reboot
Causes the system to immediately reboot.
################################################################################
# Tset DSet a variable
set
set =
The set command is used to set variables.
################################################################################
# Tset Sautoboot_delay DSet the default autoboot delay
set autoboot_delay=
Sets the default delay for the autoboot command to seconds.
Set value to -1 if you don't want to allow user to interrupt autoboot
process and escape to the loader prompt.
################################################################################
# Tset Sboot_askname DPrompt for root device
set boot_askname
Instructs the kernel to prompt the user for the name of the root device
when the kernel is booted.
################################################################################
# Tset Sboot_cdrom DMount root file system from CD-ROM
set boot_cdrom
Instructs the kernel to try to mount the root file system from CD-ROM.
################################################################################
# Tset Sboot_ddb DDrop to the kernel debugger (DDB)
set boot_ddb
Instructs the kernel to start in the DDB debugger, rather than
proceeding to initialize when booted.
################################################################################
# Tset Sboot_dfltroot DUse default root file system
set boot_dfltroot
Instructs the kernel to mount the statically compiled-in root
file system.
################################################################################
# Tset Sboot_gdb DSelect gdb-remote mode for the kernel debugger
set boot_gdb
Selects gdb-remote mode for the kernel debugger by default.
################################################################################
# Tset Sboot_multicons DUse multiple consoles
set boot_multicons
Enables multiple console support in the kernel early on boot.
In a running system, console configuration can be manipulated
by the conscontrol(8) utility.
################################################################################
# Tset Sboot_mute DMute the console
set boot_mute
All console output is suppressed when console is muted.
In a running system, the state of console muting can be
manipulated by the conscontrol(8) utility.
################################################################################
# Tset Sboot_pause DPause after each line during device probing
set boot_pause
During the device probe, pause after each line is printed.
################################################################################
# Tset Sboot_serial DUse serial console
set boot_serial
Force the use of a serial console even when an internal console
is present.
################################################################################
# Tset Sboot_single DStart system in single-user mode
set boot_single
Prevents the kernel from initiating a multi-user startup; instead,
a single-user mode will be entered when the kernel has finished
device probes.
################################################################################
# Tset Sboot_verbose DVerbose boot messages
set boot_verbose
Setting this variable causes extra debugging information to be printed
by the kernel during the boot phase.
################################################################################
# Tset Sbootfile DSet the default boot file set
set bootfile=[;...]
Sets the default set of kernel boot filename(s). It may be overridden
by setting the bootfile variable to a semicolon-separated list of
filenames, each of which will be searched for in the module_path
directories. The default bootfile set is "kernel".
################################################################################
# Tset Sconsole DSet the current console
set console[=]
Sets the current console. If is omitted, a list of valid
consoles will be displayed.
################################################################################
# Tset Scurrdev DSet the current device
set currdev=
Selects the default device. See lsdev for available devices.
################################################################################
# Tset Sinit_path DSet the list of init candidates
set init_path=[:...]
Sets the list of binaries which the kernel will try to run as initial
process.
################################################################################
# Tset Smodule_path DSet the module search path
set module_path=[;...]
Sets the list of directories which will be searched in for modules
named in a load command or implicitly required by a dependency. The
default module_path is "/boot/modules" with the kernel directory
prepended.
################################################################################
# Tset Snum_ide_disks DSet the number of IDE disks
NOTE: this variable is deprecated, use root_disk_unit instead.
set num_ide_disks=
When booting from a SCSI disk on a system with one or more IDE disks,
and where the IDE disks are the default boot device, it is necessary
to tell the kernel how many IDE disks there are in order to have it
correctly locate the SCSI disk you are booting from.
################################################################################
# Tset Sprompt DSet the command prompt
set prompt=
The command prompt is displayed when the loader is waiting for input.
Variable substitution is performed on the prompt. The default
prompt can be set with:
set prompt=\${interpret}
################################################################################
# Tset Sroot_disk_unit DForce the root disk unit number.
set root_disk_unit=
If the code which detects the disk unit number for the root disk is
confused, eg. by a mix of SCSI and IDE disks, or IDE disks with
gaps in the sequence (eg. no primary slave), the unit number can be
forced by setting this variable.
################################################################################
# Tset Srootdev DSet the root filesystem
set rootdev=
By default the value of $currdev is used to set the root filesystem
when the kernel is booted. This can be overridden by setting
$rootdev explicitly.
################################################################################
# Tset Stunables DSet kernel tunable values
Various kernel tunable parameters can be overridden by specifying new
values in the environment.
set kern.ipc.nmbclusters=
Set the number of mbuf clusters to be allocated. The value
cannot be set below the default determined when the kernel
was compiled.
set kern.ipc.nsfbufs= NSFBUFS
Set the number of sendfile buffers to be allocated. This
overrides the value determined when the kernel was compiled.
set vm.kmem_size= VM_KMEM_SIZE
Sets the size of kernel memory (bytes). This overrides
the value determined when the kernel was compiled.
set machdep.disable_mtrrs=1
Disable the use of i686 MTRRs (i386 only)
set net.inet.tcp.tcbhashsize= TCBHASHSIZE
Overrides the compile-time set value of TCBHASHSIZE or
the preset default of 512. Must be a power of 2.
hw.syscons.sc_no_suspend_vtswitch=
Disable VT switching on suspend.
value is 0 (default) or non-zero to enable.
set hw.physmem= MAXMEM (i386 only)
Limits the amount of physical memory space available to
the system to bytes. may have a k, M or G
suffix to indicate kilobytes, megabytes and gigabytes
respectively. Note that the current i386 architecture
limits this value to 4GB.
On systems where memory cannot be accurately probed,
this option provides a hint as to the actual size of
system memory (which will be tested before use).
set hw.{acpi,pci}.host_start_mem=
Sets the lowest address that the pci code will assign
when it doesn't have other information about the address
to assign (like from a pci bridge). This is only useful
in older systems without a pci bridge. Also, it only
impacts devices that the BIOS doesn't assign to, typically
CardBus bridges. The default is 0x80000000, but
some systems need values like 0xf0000000, 0xfc000000 or
0xfe000000 may be suitable for older systems (the older
the system, the higher the number typically should be).
set hw.pci.enable_io_modes=
Enable PCI resources which are left off by some BIOSes
or are not enabled correctly by the device driver.
value is 1 (default), but this may cause problems with
some peripherals. Set to 0 to disable.
################################################################################
# Tshow DShow the values of variables
show []
Displays the value of , or all variables if not specified.
Multiple paths can be separated with a semicolon.
################################################################################
# Tsmap DDisplay BIOS SMAP table
smap
Displays the BIOS SMAP (system memory map) table.
################################################################################
# Tunload DRemove all modules from memory
unload
This command removes any kernel and all loaded modules from memory.
################################################################################
# Tunset DUnset a variable
unset
If allowed, the named variable's value is discarded and the variable
is removed.
################################################################################
\ Loader.rc
\ $FreeBSD: releng/10.3/sys/boot/i386/loader/loader.rc 262704 2014-03-03 07:31:55Z dteske $
\
\ Includes additional commands
include /boot/loader.4th
try-include /boot/loader.rc.local
\ Reads and processes loader.conf variables
initialize
\ Tests for password -- executes autoboot first if a password was defined
check-password
\ Load in the boot menu
include /boot/beastie.4th
\ Start the boot menu
beastie-start
\ Copyright (c) 2006-2015 Devin Teske
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD: releng/10.3/sys/boot/forth/logo-orbbw.4th 281843 2015-04-22 01:08:40Z dteske $
46 logoX ! 7 logoY ! \ Initialize logo placement defaults
: logo+ ( x y c-addr/u -- x y' )
2swap 2dup at-xy 2swap \ position the cursor
type \ print to the screen
1+ \ increase y for next time we're called
;
: logo ( x y -- ) \ B/W Orb mascot (15 rows x 32 columns)
s" ``` `" logo+
s" s` `.....---.......--.``` -/" logo+
s" +o .--` /y:` +." logo+
s" yo`:. :o `+-" logo+
s" y/ -/` -o/" logo+
s" .- ::/sy+:." logo+
s" / `-- /" logo+
s" `: :`" logo+
s" `: :`" logo+
s" / /" logo+
s" .- -." logo+
s" -- -." logo+
s" `:` `:`" logo+
s" .-- `--." logo+
s" .---.....----." logo+
2drop
;
\ Copyright (c) 2003 Scott Long
\ Copyright (c) 2006-2015 Devin Teske
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD: releng/10.3/sys/boot/forth/logo-beastiebw.4th 281843 2015-04-22 01:08:40Z dteske $
46 logoX ! 4 logoY ! \ Initialize logo placement defaults
: logo+ ( x y c-addr/u -- x y' )
2swap 2dup at-xy 2swap \ position the cursor
type \ print to the screen
1+ \ increase y for next time we're called
;
: logo ( x y -- ) \ B/W BSD mascot (19 rows x 34 columns)
s" , ," logo+
s" /( )`" logo+
s" \ \___ / |" logo+
s" /- _ `-/ '" logo+
s" (/\/ \ \ /\" logo+
s" / / | ` \" logo+
s" O O ) / |" logo+
s" `-^--'`< '" logo+
s" (_.) _ ) /" logo+
s" `.___/` /" logo+
s" `-----' /" logo+
s" <----. __ / __ \" logo+
s" <----|====O)))==) \) /====|" logo+
s" <----' `--' `.__,' \" logo+
s" | |" logo+
s" \ / /\" logo+
s" ______( (_ / \______/" logo+
s" ,' ,-----' |" logo+
s" `--{__________)" logo+
2drop
;
\ Copyright (c) 2003 Scott Long
\ Copyright (c) 2003 Aleksander Fafula
\ Copyright (c) 2006-2015 Devin Teske
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD: releng/10.3/sys/boot/forth/logo-beastie.4th 281843 2015-04-22 01:08:40Z dteske $
46 logoX ! 4 logoY ! \ Initialize logo placement defaults
: logo+ ( x y c-addr/u -- x y' )
2swap 2dup at-xy 2swap \ position the cursor
[char] @ escc! \ replace @ with Esc
type \ print to the screen
1+ \ increase y for next time we're called
;
: logo ( x y -- ) \ color BSD mascot (19 rows x 34 columns)
s" @[31m, ," logo+
s" /( )`" logo+
s" \ \___ / |" logo+
s" /- @[m_@[31m `-/ '" logo+
s" (@[m/\/ \@[31m \ /\" logo+
s" @[m/ / |@[31m ` \" logo+
s" @[34mO O @[m) @[31m/ |" logo+
s" @[m`-^--'@[31m`< '" logo+
s" (_.) _ ) /" logo+
s" `.___/` /" logo+
s" `-----' /" logo+
s" @[33m<----.@[31m __ / __ \" logo+
s" @[33m<----|====@[31mO)))@[33m==@[31m) \) /@[33m====|" logo+
s" @[33m<----'@[31m `--' `.__,' \" logo+
s" | |" logo+
s" \ / /\" logo+
s" @[36m______@[31m( (_ / \______/" logo+
s" @[36m,' ,-----' |" logo+
s" `--{__________)@[m" logo+
2drop
;
\ Copyright (c) 2003 Scott Long
\ Copyright (c) 2006-2015 Devin Teske
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD: releng/10.3/sys/boot/forth/logo-fbsdbw.4th 281843 2015-04-22 01:08:40Z dteske $
52 logoX ! 9 logoY ! \ Initialize logo placement defaults
: logo+ ( x y c-addr/u -- x y' )
2swap 2dup at-xy 2swap \ position the cursor
type \ print to the screen
1+ \ increase y for next time we're called
;
: logo ( x y -- ) \ "FreeBSD" logo in B/W (13 rows x 21 columns)
s" ______" logo+
s" | ____| __ ___ ___ " logo+
s" | |__ | '__/ _ \/ _ \" logo+
s" | __|| | | __/ __/" logo+
s" | | | | | | |" logo+
s" |_| |_| \___|\___|" logo+
s" ____ _____ _____" logo+
s" | _ \ / ____| __ \" logo+
s" | |_) | (___ | | | |" logo+
s" | _ < \___ \| | | |" logo+
s" | |_) |____) | |__| |" logo+
s" | | | |" logo+
s" |____/|_____/|_____/" logo+
2drop
;
\ Copyright (c) 2006-2015 Devin Teske
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD: releng/10.3/sys/boot/forth/logo-orb.4th 281843 2015-04-22 01:08:40Z dteske $
46 logoX ! 7 logoY ! \ Initialize logo placement defaults
: logo+ ( x y c-addr/u -- x y' )
2swap 2dup at-xy 2swap \ position the cursor
[char] @ escc! \ replace @ with Esc
type \ print to the screen
1+ \ increase y for next time we're called
;
: logo ( x y -- ) \ color Orb mascot (15 rows x 30 columns)
s" @[31m``` @[31;1m`@[31m" logo+
s" s` `.....---...@[31;1m....--.``` -/@[31m" logo+
s" +o .--` @[31;1m/y:` +.@[31m" logo+
s" yo`:. @[31;1m:o `+-@[31m" logo+
s" y/ @[31;1m-/` -o/@[31m" logo+
s" .- @[31;1m::/sy+:.@[31m" logo+
s" / @[31;1m`-- /@[31m" logo+
s" `: @[31;1m:`@[31m" logo+
s" `: @[31;1m:`@[31m" logo+
s" / @[31;1m/@[31m" logo+
s" .- @[31;1m-.@[31m" logo+
s" -- @[31;1m-.@[31m" logo+
s" `:` @[31;1m`:`" logo+
s" @[31;1m.-- `--." logo+
s" .---.....----.@[m" logo+
2drop
;
1؎м || 18/tuuqހur 6uƀ8rtL |t-QSUAr Uut[fj ftSjj B[YrUu 㾹 uInvalid partition table Error loading operating system Missing operating system U \ Copyright (c) 2003 Scott Long
\ Copyright (c) 2003 Aleksander Fafula
\ Copyright (c) 2006-2015 Devin Teske
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD: releng/10.3/sys/boot/forth/menu.4th 281843 2015-04-22 01:08:40Z dteske $
marker task-menu.4th
\ Frame drawing
include /boot/frames.4th
vocabulary menu-infrastructure
vocabulary menu-namespace
vocabulary menu-command-helpers
only forth also menu-infrastructure definitions
f_double \ Set frames to double (see frames.4th). Replace with
\ f_single if you want single frames.
46 constant dot \ ASCII definition of a period (in decimal)
5 constant menu_default_x \ default column position of timeout
10 constant menu_default_y \ default row position of timeout msg
4 constant menu_timeout_default_x \ default column position of timeout
23 constant menu_timeout_default_y \ default row position of timeout msg
10 constant menu_timeout_default \ default timeout (in seconds)
\ Customize the following values with care
1 constant menu_start \ Numerical prefix of first menu item
dot constant bullet \ Menu bullet (appears after numerical prefix)
5 constant menu_x \ Row position of the menu (from the top)
10 constant menu_y \ Column position of the menu (from left side)
\ Menu Appearance
variable menuidx \ Menu item stack for number prefixes
variable menurow \ Menu item stack for positioning
variable menubllt \ Menu item bullet
\ Menu Positioning
variable menuX \ Menu X offset (columns)
variable menuY \ Menu Y offset (rows)
\ Menu-item elements
variable menurebootadded
\ Parsing of kernels into menu-items
variable kernidx
variable kernlen
variable kernmenuidx
\ Menu timer [count-down] variables
variable menu_timeout_enabled \ timeout state (internal use only)
variable menu_time \ variable for tracking the passage of time
variable menu_timeout \ determined configurable delay duration
variable menu_timeout_x \ column position of timeout message
variable menu_timeout_y \ row position of timeout message
\ Containers for parsing kernels into menu-items
create kerncapbuf 64 allot
create kerndefault 64 allot
create kernelsbuf 256 allot
only forth also menu-namespace definitions
\ Menu-item key association/detection
variable menukey1
variable menukey2
variable menukey3
variable menukey4
variable menukey5
variable menukey6
variable menukey7
variable menukey8
variable menureboot
variable menuacpi
variable menuoptions
variable menukernel
\ Menu initialization status variables
variable init_state1
variable init_state2
variable init_state3
variable init_state4
variable init_state5
variable init_state6
variable init_state7
variable init_state8
\ Boolean option status variables
variable toggle_state1
variable toggle_state2
variable toggle_state3
variable toggle_state4
variable toggle_state5
variable toggle_state6
variable toggle_state7
variable toggle_state8
\ Array option status variables
variable cycle_state1
variable cycle_state2
variable cycle_state3
variable cycle_state4
variable cycle_state5
variable cycle_state6
variable cycle_state7
variable cycle_state8
\ Containers for storing the initial caption text
create init_text1 64 allot
create init_text2 64 allot
create init_text3 64 allot
create init_text4 64 allot
create init_text5 64 allot
create init_text6 64 allot
create init_text7 64 allot
create init_text8 64 allot
only forth definitions
: arch-i386? ( -- BOOL ) \ Returns TRUE (-1) on i386, FALSE (0) otherwise.
s" arch-i386" environment? dup if
drop
then
;
: acpipresent? ( -- flag ) \ Returns TRUE if ACPI is present, FALSE otherwise
s" hint.acpi.0.rsdp" getenv
dup -1 = if
drop false exit
then
2drop
true
;
: acpienabled? ( -- flag ) \ Returns TRUE if ACPI is enabled, FALSE otherwise
s" hint.acpi.0.disabled" getenv
dup -1 <> if
s" 0" compare 0<> if
false exit
then
else
drop
then
true
;
: +c! ( N C-ADDR/U K -- C-ADDR/U )
3 pick 3 pick ( n c-addr/u k -- n c-addr/u k n c-addr )
rot + c! ( n c-addr/u k n c-addr -- n c-addr/u )
rot drop ( n c-addr/u -- c-addr/u )
;
only forth also menu-namespace definitions
\ Forth variables
: namespace ( C-ADDR/U N -- ) also menu-namespace +c! evaluate previous ;
: menukeyN ( N -- ADDR ) s" menukeyN" 7 namespace ;
: init_stateN ( N -- ADDR ) s" init_stateN" 10 namespace ;
: toggle_stateN ( N -- ADDR ) s" toggle_stateN" 12 namespace ;
: cycle_stateN ( N -- ADDR ) s" cycle_stateN" 11 namespace ;
: init_textN ( N -- C-ADDR ) s" init_textN" 9 namespace ;
\ Environment variables
: kernel[x] ( N -- C-ADDR/U ) s" kernel[x]" 7 +c! ;
: menu_init[x] ( N -- C-ADDR/U ) s" menu_init[x]" 10 +c! ;
: menu_command[x] ( N -- C-ADDR/U ) s" menu_command[x]" 13 +c! ;
: menu_caption[x] ( N -- C-ADDR/U ) s" menu_caption[x]" 13 +c! ;
: ansi_caption[x] ( N -- C-ADDR/U ) s" ansi_caption[x]" 13 +c! ;
: menu_keycode[x] ( N -- C-ADDR/U ) s" menu_keycode[x]" 13 +c! ;
: toggled_text[x] ( N -- C-ADDR/U ) s" toggled_text[x]" 13 +c! ;
: toggled_ansi[x] ( N -- C-ADDR/U ) s" toggled_ansi[x]" 13 +c! ;
: menu_caption[x][y] ( N M -- C-ADDR/U ) s" menu_caption[x][y]" 16 +c! 13 +c! ;
: ansi_caption[x][y] ( N M -- C-ADDR/U ) s" ansi_caption[x][y]" 16 +c! 13 +c! ;
also menu-infrastructure definitions
\ This function prints a menu item at menuX (row) and menuY (column), returns
\ the incremental decimal ASCII value associated with the menu item, and
\ increments the cursor position to the next row for the creation of the next
\ menu item. This function is called by the menu-create function. You need not
\ call it directly.
\
: printmenuitem ( menu_item_str -- ascii_keycode )
loader_color? if [char] ^ escc! then
menurow dup @ 1+ swap ! ( increment menurow )
menuidx dup @ 1+ swap ! ( increment menuidx )
\ Calculate the menuitem row position
menurow @ menuY @ +
\ Position the cursor at the menuitem position
dup menuX @ swap at-xy
\ Print the value of menuidx
loader_color? dup ( -- bool bool )
if b then
menuidx @ .
if me then
\ Move the cursor forward 1 column
dup menuX @ 1+ swap at-xy
menubllt @ emit \ Print the menu bullet using the emit function
\ Move the cursor to the 3rd column from the current position
\ to allow for a space between the numerical prefix and the
\ text caption
menuX @ 3 + swap at-xy
\ Print the menu caption (we expect a string to be on the stack
\ prior to invoking this function)
type
\ Here we will add the ASCII decimal of the numerical prefix
\ to the stack (decimal ASCII for `1' is 49) as a "return value"
menuidx @ 48 +
;
\ This function prints the appropriate menuitem basename to the stack if an
\ ACPI option is to be presented to the user, otherwise returns -1. Used
\ internally by menu-create, you need not (nor should you) call this directly.
\
: acpimenuitem ( -- C-Addr/U | -1 )
arch-i386? if
acpipresent? if
acpienabled? if
loader_color? if
s" toggled_ansi[x]"
else
s" toggled_text[x]"
then
else
loader_color? if
s" ansi_caption[x]"
else
s" menu_caption[x]"
then
then
else
menuidx dup @ 1+ swap ! ( increment menuidx )
-1
then
else
-1
then
;
: delim? ( C -- BOOL )
dup 32 = ( c -- c bool ) \ [sp] space
over 9 = or ( c bool -- c bool ) \ [ht] horizontal tab
over 10 = or ( c bool -- c bool ) \ [nl] newline
over 13 = or ( c bool -- c bool ) \ [cr] carriage return
over [char] , = or ( c bool -- c bool ) \ comma
swap drop ( c bool -- bool ) \ return boolean
;
\ This function parses $kernels into variables that are used by the menu to
\ display wich kernel to boot when the [overloaded] `boot' word is interpreted.
\ Used internally by menu-create, you need not (nor should you) call this
\ directly.
\
: parse-kernels ( N -- ) \ kernidx
kernidx ! ( n -- ) \ store provided `x' value
[char] 0 kernmenuidx ! \ initialize `y' value for menu_caption[x][y]
\ Attempt to get a list of kernels, fall back to sensible default
s" kernels" getenv dup -1 = if
drop ( cruft )
s" kernel kernel.old"
then ( -- c-addr/u )
\ Check to see if the user has altered $kernel by comparing it against
\ $kernel[N] where N is kernel_state (the actively displayed kernel).
s" kernel_state" evaluate @ 48 + s" kernel[N]" 7 +c! getenv
dup -1 <> if
s" kernel" getenv dup -1 = if
drop ( cruft ) s" "
then
2swap 2over compare 0= if
2drop FALSE ( skip below conditional )
else \ User has changed $kernel
TRUE ( slurp in new value )
then
else \ We haven't yet parsed $kernels into $kernel[N]
drop ( getenv cruft )
s" kernel" getenv dup -1 = if
drop ( cruft ) s" "
then
TRUE ( slurp in initial value )
then ( c-addr/u -- c-addr/u c-addr/u,-1 | 0 )
if \ slurp new value into kerndefault
kerndefault 1+ 0 2swap strcat swap 1- c!
then
\ Clear out existing parsed-kernels
kernidx @ [char] 0
begin
dup kernel[x] unsetenv
2dup menu_caption[x][y] unsetenv
2dup ansi_caption[x][y] unsetenv
1+ dup [char] 8 >
until
2drop
\ Step through the string until we find the end
begin
0 kernlen ! \ initialize length of value
\ Skip leading whitespace and/or comma delimiters
begin
dup 0<> if
over c@ delim? ( c-addr/u -- c-addr/u bool )
else
false ( c-addr/u -- c-addr/u bool )
then
while
1- swap 1+ swap ( c-addr/u -- c-addr'/u' )
repeat
( c-addr/u -- c-addr'/u' )
dup 0= if \ end of string while eating whitespace
2drop ( c-addr/u -- )
kernmenuidx @ [char] 0 <> if \ found at least one
exit \ all done
then
\ No entries in $kernels; use $kernel instead
s" kernel" getenv dup -1 = if
drop ( cruft ) s" "
then ( -- c-addr/u )
dup kernlen ! \ store entire value length as kernlen
else
\ We're still within $kernels parsing toward the end;
\ find delimiter/end to determine kernlen
2dup ( c-addr/u -- c-addr/u c-addr/u )
begin dup 0<> while
over c@ delim? if
drop 0 ( break ) \ found delimiter
else
kernlen @ 1+ kernlen ! \ incrememnt
1- swap 1+ swap \ c-addr++ u--
then
repeat
2drop ( c-addr/u c-addr'/u' -- c-addr/u )
\ If this is the first entry, compare it to $kernel
\ If different, then insert $kernel beforehand
kernmenuidx @ [char] 0 = if
over kernlen @ kerndefault count compare if
kernelsbuf 0 kerndefault count strcat
s" ," strcat 2swap strcat
kerndefault count swap drop kernlen !
then
then
then
( c-addr/u -- c-addr'/u' )
\ At this point, we should have something on the stack to store
\ as the next kernel menu option; start assembling variables
over kernlen @ ( c-addr/u -- c-addr/u c-addr/u2 )
\ Assign first to kernel[x]
2dup kernmenuidx @ kernel[x] setenv
\ Assign second to menu_caption[x][y]
kerncapbuf 0 s" [K]ernel: " strcat
2over strcat
kernidx @ kernmenuidx @ menu_caption[x][y]
setenv
\ Assign third to ansi_caption[x][y]
kerncapbuf 0 s" @[1mK@[37mernel: " [char] @ escc! strcat
kernmenuidx @ [char] 0 = if
s" default/@[32m"
else
s" @[34;1m"
then
[char] @ escc! strcat
2over strcat
s" @[37m" [char] @ escc! strcat
kernidx @ kernmenuidx @ ansi_caption[x][y]
setenv
2drop ( c-addr/u c-addr/u2 -- c-addr/u )
kernmenuidx @ 1+ dup kernmenuidx ! [char] 8 > if
2drop ( c-addr/u -- ) exit
then
kernlen @ - swap kernlen @ + swap ( c-addr/u -- c-addr'/u' )
again
;
\ This function goes through the kernels that were discovered by the
\ parse-kernels function [above], adding " (# of #)" text to the end of each
\ caption.
\
: tag-kernels ( -- )
kernidx @ ( -- x ) dup 0= if exit then
[char] 0 s" (Y of Z)" ( x -- x y c-addr/u )
kernmenuidx @ -rot 7 +c! \ Replace 'Z' with number of kernels parsed
begin
2 pick 1+ -rot 2 +c! \ Replace 'Y' with current ASCII num
2over menu_caption[x][y] getenv dup -1 <> if
2dup + 1- c@ [char] ) = if
2drop \ Already tagged
else
kerncapbuf 0 2swap strcat
2over strcat
5 pick 5 pick menu_caption[x][y] setenv
then
else
drop ( getenv cruft )
then
2over ansi_caption[x][y] getenv dup -1 <> if
2dup + 1- c@ [char] ) = if
2drop \ Already tagged
else
kerncapbuf 0 2swap strcat
2over strcat
5 pick 5 pick ansi_caption[x][y] setenv
then
else
drop ( getenv cruft )
then
rot 1+ dup [char] 8 > if
-rot 2drop TRUE ( break )
else
-rot FALSE
then
until
2drop ( x y -- )
;
\ This function creates the list of menu items. This function is called by the
\ menu-display function. You need not call it directly.
\
: menu-create ( -- )
\ Print the frame caption at (x,y)
s" loader_menu_title" getenv dup -1 = if
drop s" Welcome to FreeBSD"
then
TRUE ( use default alignment )
s" loader_menu_title_align" getenv dup -1 <> if
2dup s" left" compare-insensitive 0= if ( 1 )
2drop ( c-addr/u ) drop ( bool )
menuX @ menuY @ 1-
FALSE ( don't use default alignment )
else ( 1 ) 2dup s" right" compare-insensitive 0= if ( 2 )
2drop ( c-addr/u ) drop ( bool )
menuX @ 42 + 4 - over - menuY @ 1-
FALSE ( don't use default alignment )
else ( 2 ) 2drop ( c-addr/u ) then ( 1 ) then
else
drop ( getenv cruft )
then
if ( use default center alignement? )
menuX @ 19 + over 2 / - menuY @ 1-
then
at-xy type
\ If $menu_init is set, evaluate it (allowing for whole menus to be
\ constructed dynamically -- as this function could conceivably set
\ the remaining environment variables to construct the menu entirely).
\
s" menu_init" getenv dup -1 <> if
evaluate
else
drop
then
\ Print our menu options with respective key/variable associations.
\ `printmenuitem' ends by adding the decimal ASCII value for the
\ numerical prefix to the stack. We store the value left on the stack
\ to the key binding variable for later testing against a character
\ captured by the `getkey' function.
\ Note that any menu item beyond 9 will have a numerical prefix on the
\ screen consisting of the first digit (ie. 1 for the tenth menu item)
\ and the key required to activate that menu item will be the decimal
\ ASCII of 48 plus the menu item (ie. 58 for the tenth item, aka. `:')
\ which is misleading and not desirable.
\
\ Thus, we do not allow more than 8 configurable items on the menu
\ (with "Reboot" as the optional ninth and highest numbered item).
\
\ Initialize the ACPI option status.
\
0 menuacpi !
s" menu_acpi" getenv -1 <> if
c@ dup 48 > over 57 < and if ( '1' <= c1 <= '8' )
menuacpi !
arch-i386? if acpipresent? if
\
\ Set menu toggle state to active state
\ (required by generic toggle_menuitem)
\
acpienabled? menuacpi @ toggle_stateN !
then then
else
drop
then
then
\
\ Initialize kernel captions after parsing $kernels
\
0 menukernel !
s" menu_kernel" getenv -1 <> if
c@ dup 48 > over 57 < and if ( '1' <= c1 <= '8' )
dup menukernel !
dup parse-kernels tag-kernels
\ Get the current cycle state (entry to use)
s" kernel_state" evaluate @ 48 + ( n -- n y )
\ If state is invalid, reset
dup kernmenuidx @ 1- > if
drop [char] 0 ( n y -- n 48 )
0 s" kernel_state" evaluate !
over s" init_kernel" evaluate drop
then
\ Set the current non-ANSI caption
2dup swap dup ( n y -- n y y n n )
s" set menu_caption[x]=$menu_caption[x][y]"
17 +c! 34 +c! 37 +c! evaluate
( n y y n n c-addr/u -- n y )
\ Set the current ANSI caption
2dup swap dup ( n y -- n y y n n )
s" set ansi_caption[x]=$ansi_caption[x][y]"
17 +c! 34 +c! 37 +c! evaluate
( n y y n n c-addr/u -- n y )
\ Initialize cycle state from stored value
48 - ( n y -- n k )
s" init_cyclestate" evaluate ( n k -- n )
\ Set $kernel to $kernel[y]
s" activate_kernel" evaluate ( n -- n )
then
drop
then
\
\ Initialize the menu_options visual separator.
\
0 menuoptions !
s" menu_options" getenv -1 <> if
c@ dup 48 > over 57 < and if ( '1' <= c1 <= '8' )
menuoptions !
else
drop
then
then
\ Initialize "Reboot" menu state variable (prevents double-entry)
false menurebootadded !
menu_start
1- menuidx ! \ Initialize the starting index for the menu
0 menurow ! \ Initialize the starting position for the menu
49 \ Iterator start (loop range 49 to 56; ASCII '1' to '8')
begin
\ If the "Options:" separator, print it.
dup menuoptions @ = if
\ Optionally add a reboot option to the menu
s" menu_reboot" getenv -1 <> if
drop
s" Reboot" printmenuitem menureboot !
true menurebootadded !
then
menuX @
menurow @ 2 + menurow !
menurow @ menuY @ +
at-xy
s" menu_optionstext" getenv dup -1 <> if
type
else
drop ." Options:"
then
then
\ If this is the ACPI menu option, act accordingly.
dup menuacpi @ = if
dup acpimenuitem ( n -- n n c-addr/u | n n -1 )
dup -1 <> if
13 +c! ( n n c-addr/u -- n c-addr/u )
\ replace 'x' with n
else
swap drop ( n n -1 -- n -1 )
over menu_command[x] unsetenv
then
else
\ make sure we have not already initialized this item
dup init_stateN dup @ 0= if
1 swap !
\ If this menuitem has an initializer, run it
dup menu_init[x]
getenv dup -1 <> if
evaluate
else
drop
then
else
drop
then
dup
loader_color? if
ansi_caption[x]
else
menu_caption[x]
then
then
dup -1 <> if
\ test for environment variable
getenv dup -1 <> if
printmenuitem ( c-addr/u -- n )
dup menukeyN !
else
drop
then
else
drop
then
1+ dup 56 > \ add 1 to iterator, continue if less than 57
until
drop \ iterator
\ Optionally add a reboot option to the menu
menurebootadded @ true <> if
s" menu_reboot" getenv -1 <> if
drop \ no need for the value
s" Reboot" \ menu caption (required by printmenuitem)
printmenuitem
menureboot !
else
0 menureboot !
then
then
;
\ Takes a single integer on the stack and updates the timeout display. The
\ integer must be between 0 and 9 (we will only update a single digit in the
\ source message).
\
: menu-timeout-update ( N -- )
\ Enforce minimum/maximum
dup 9 > if drop 9 then
dup 0 < if drop 0 then
s" Autoboot in N seconds. [Space] to pause" ( n -- n c-addr/u )
2 pick 0> if
rot 48 + -rot ( n c-addr/u -- n' c-addr/u ) \ convert to ASCII
12 +c! ( n' c-addr/u -- c-addr/u ) \ replace 'N' above
menu_timeout_x @ menu_timeout_y @ at-xy \ position cursor
type ( c-addr/u -- ) \ print message
else
menu_timeout_x @ menu_timeout_y @ at-xy \ position cursor
spaces ( n c-addr/u -- n c-addr ) \ erase message
2drop ( n c-addr -- )
then
0 25 at-xy ( position cursor back at bottom-left )
;
\ This function blocks program flow (loops forever) until a key is pressed.
\ The key that was pressed is added to the top of the stack in the form of its
\ decimal ASCII representation. This function is called by the menu-display
\ function. You need not call it directly.
\
: getkey ( -- ascii_keycode )
begin \ loop forever
menu_timeout_enabled @ 1 = if
( -- )
seconds ( get current time: -- N )
dup menu_time @ <> if ( has time elapsed?: N N N -- N )
\ At least 1 second has elapsed since last loop
\ so we will decrement our "timeout" (really a
\ counter, insuring that we do not proceed too
\ fast) and update our timeout display.
menu_time ! ( update time record: N -- )
menu_timeout @ ( "time" remaining: -- N )
dup 0> if ( greater than 0?: N N 0 -- N )
1- ( decrement counter: N -- N )
dup menu_timeout !
( re-assign: N N Addr -- N )
then
( -- N )
dup 0= swap 0< or if ( N <= 0?: N N -- )
\ halt the timer
0 menu_timeout ! ( 0 Addr -- )
0 menu_timeout_enabled ! ( 0 Addr -- )
then
\ update the timer display ( N -- )
menu_timeout @ menu-timeout-update
menu_timeout @ 0= if
\ We've reached the end of the timeout
\ (user did not cancel by pressing ANY
\ key)
s" menu_timeout_command" getenv dup
-1 = if
drop \ clean-up
else
evaluate
then
then
else ( -- N )
\ No [detectable] time has elapsed (in seconds)
drop ( N -- )
then
( -- )
then
key? if \ Was a key pressed? (see loader(8))
\ An actual key was pressed (if the timeout is running,
\ kill it regardless of which key was pressed)
menu_timeout @ 0<> if
0 menu_timeout !
0 menu_timeout_enabled !
\ clear screen of timeout message
0 menu-timeout-update
then
\ get the key that was pressed and exit (if we
\ get a non-zero ASCII code)
key dup 0<> if
exit
else
drop
then
then
50 ms \ sleep for 50 milliseconds (see loader(8))
again
;
: menu-erase ( -- ) \ Erases menu and resets positioning variable to positon 1.
\ Clear the screen area associated with the interactive menu
menuX @ menuY @
2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces
2drop
\ Reset the starting index and position for the menu
menu_start 1- menuidx !
0 menurow !
;
only forth
also menu-infrastructure
also menu-namespace
also menu-command-helpers definitions
: toggle_menuitem ( N -- N ) \ toggles caption text and internal menuitem state
\ ASCII numeral equal to user-selected menu item must be on the stack.
\ We do not modify the stack, so the ASCII numeral is left on top.
dup init_textN c@ 0= if
\ NOTE: no need to check toggle_stateN since the first time we
\ are called, we will populate init_textN. Further, we don't
\ need to test whether menu_caption[x] (ansi_caption[x] when
\ loader_color?=1) is available since we would not have been
\ called if the caption was NULL.
\ base name of environment variable
dup ( n -- n n ) \ key pressed
loader_color? if
ansi_caption[x]
else
menu_caption[x]
then
getenv dup -1 <> if
2 pick ( n c-addr/u -- n c-addr/u n )
init_textN ( n c-addr/u n -- n c-addr/u c-addr )
\ now we have the buffer c-addr on top
\ ( followed by c-addr/u of current caption )
\ Copy the current caption into our buffer
2dup c! -rot \ store strlen at first byte
begin
rot 1+ \ bring alt addr to top and increment
-rot -rot \ bring buffer addr to top
2dup c@ swap c! \ copy current character
1+ \ increment buffer addr
rot 1- \ bring buffer len to top and decrement
dup 0= \ exit loop if buffer len is zero
until
2drop \ buffer len/addr
drop \ alt addr
else
drop
then
then
\ Now we are certain to have init_textN populated with the initial
\ value of menu_caption[x] (ansi_caption[x] with loader_color enabled).
\ We can now use init_textN as the untoggled caption and
\ toggled_text[x] (toggled_ansi[x] with loader_color enabled) as the
\ toggled caption and store the appropriate value into menu_caption[x]
\ (again, ansi_caption[x] with loader_color enabled). Last, we'll
\ negate the toggled state so that we reverse the flow on subsequent
\ calls.
dup toggle_stateN @ 0= if
\ state is OFF, toggle to ON
dup ( n -- n n ) \ key pressed
loader_color? if
toggled_ansi[x]
else
toggled_text[x]
then
getenv dup -1 <> if
\ Assign toggled text to menu caption
2 pick ( n c-addr/u -- n c-addr/u n ) \ key pressed
loader_color? if
ansi_caption[x]
else
menu_caption[x]
then
setenv
else
\ No toggled text, keep the same caption
drop ( n -1 -- n ) \ getenv cruft
then
true \ new value of toggle state var (to be stored later)
else
\ state is ON, toggle to OFF
dup init_textN count ( n -- n c-addr/u )
\ Assign init_textN text to menu caption
2 pick ( n c-addr/u -- n c-addr/u n ) \ key pressed
loader_color? if
ansi_caption[x]
else
menu_caption[x]
then
setenv
false \ new value of toggle state var (to be stored below)
then
\ now we'll store the new toggle state (on top of stack)
over toggle_stateN !
;
: cycle_menuitem ( N -- N ) \ cycles through array of choices for a menuitem
\ ASCII numeral equal to user-selected menu item must be on the stack.
\ We do not modify the stack, so the ASCII numeral is left on top.
dup cycle_stateN dup @ 1+ \ get value and increment
\ Before assigning the (incremented) value back to the pointer,
\ let's test for the existence of this particular array element.
\ If the element exists, we'll store index value and move on.
\ Otherwise, we'll loop around to zero and store that.
dup 48 + ( n addr k -- n addr k k' )
\ duplicate array index and convert to ASCII numeral
3 pick swap ( n addr k k' -- n addr k n k' ) \ (n,k') as (x,y)
loader_color? if
ansi_caption[x][y]
else
menu_caption[x][y]
then
( n addr k n k' -- n addr k c-addr/u )
\ Now test for the existence of our incremented array index in the
\ form of $menu_caption[x][y] ($ansi_caption[x][y] with loader_color
\ enabled) as set in loader.rc(5), et. al.
getenv dup -1 = if
\ No caption set for this array index. Loop back to zero.
drop ( n addr k -1 -- n addr k ) \ getenv cruft
drop 0 ( n addr k -- n addr 0 ) \ new value to store later
2 pick [char] 0 ( n addr 0 -- n addr 0 n 48 ) \ (n,48) as (x,y)
loader_color? if
ansi_caption[x][y]
else
menu_caption[x][y]
then
( n addr 0 n 48 -- n addr 0 c-addr/u )
getenv dup -1 = if
\ Highly unlikely to occur, but to ensure things move
\ along smoothly, allocate a temporary NULL string
drop ( cruft ) s" "
then
then
\ At this point, we should have the following on the stack (in order,
\ from bottom to top):
\
\ n - Ascii numeral representing the menu choice (inherited)
\ addr - address of our internal cycle_stateN variable
\ k - zero-based number we intend to store to the above
\ c-addr/u - string value we intend to store to menu_caption[x]
\ (or ansi_caption[x] with loader_color enabled)
\
\ Let's perform what we need to with the above.
\ Assign array value text to menu caption
4 pick ( n addr k c-addr/u -- n addr k c-addr/u n )
loader_color? if
ansi_caption[x]
else
menu_caption[x]
then
setenv
swap ! ( n addr k -- n ) \ update array state variable
;
only forth definitions also menu-infrastructure
\ Erase and redraw the menu. Useful if you change a caption and want to
\ update the menu to reflect the new value.
\
: menu-redraw ( -- )
menu-erase
menu-create
;
\ This function initializes the menu. Call this from your `loader.rc' file
\ before calling any other menu-related functions.
\
: menu-init ( -- )
menu_start
1- menuidx ! \ Initialize the starting index for the menu
0 menurow ! \ Initialize the starting position for the menu
\ Assign configuration values
s" loader_menu_y" getenv dup -1 = if
drop \ no custom row position
menu_default_y
else
\ make sure custom position is a number
?number 0= if
menu_default_y \ or use default
then
then
menuY !
s" loader_menu_x" getenv dup -1 = if
drop \ no custom column position
menu_default_x
else
\ make sure custom position is a number
?number 0= if
menu_default_x \ or use default
then
then
menuX !
\ Interpret a custom frame type for the menu
TRUE ( draw a box? default yes, but might be altered below )
s" loader_menu_frame" getenv dup -1 = if ( 1 )
drop \ no custom frame type
else ( 1 ) 2dup s" single" compare-insensitive 0= if ( 2 )
f_single ( see frames.4th )
else ( 2 ) 2dup s" double" compare-insensitive 0= if ( 3 )
f_double ( see frames.4th )
else ( 3 ) s" none" compare-insensitive 0= if ( 4 )
drop FALSE \ don't draw a box
( 4 ) then ( 3 ) then ( 2 ) then ( 1 ) then
if
42 13 menuX @ 3 - menuY @ 1- box \ Draw frame (w,h,x,y)
then
0 25 at-xy \ Move cursor to the bottom for output
;
also menu-namespace
\ Main function. Call this from your `loader.rc' file.
\
: menu-display ( -- )
0 menu_timeout_enabled ! \ start with automatic timeout disabled
\ check indication that automatic execution after delay is requested
s" menu_timeout_command" getenv -1 <> if ( Addr C -1 -- | Addr )
drop ( just testing existence right now: Addr -- )
\ initialize state variables
seconds menu_time ! ( store the time we started )
1 menu_timeout_enabled ! ( enable automatic timeout )
\ read custom time-duration (if set)
s" autoboot_delay" getenv dup -1 = if
drop \ no custom duration (remove dup'd bunk -1)
menu_timeout_default \ use default setting
else
2dup ?number 0= if ( if not a number )
\ disable timeout if "NO", else use default
s" NO" compare-insensitive 0= if
0 menu_timeout_enabled !
0 ( assigned to menu_timeout below )
else
menu_timeout_default
then
else
-rot 2drop
\ boot immediately if less than zero
dup 0< if
drop
menu-create
0 25 at-xy
0 boot
then
then
then
menu_timeout ! ( store value on stack from above )
menu_timeout_enabled @ 1 = if
\ read custom column position (if set)
s" loader_menu_timeout_x" getenv dup -1 = if
drop \ no custom column position
menu_timeout_default_x \ use default setting
else
\ make sure custom position is a number
?number 0= if
menu_timeout_default_x \ or use default
then
then
menu_timeout_x ! ( store value on stack from above )
\ read custom row position (if set)
s" loader_menu_timeout_y" getenv dup -1 = if
drop \ no custom row position
menu_timeout_default_y \ use default setting
else
\ make sure custom position is a number
?number 0= if
menu_timeout_default_y \ or use default
then
then
menu_timeout_y ! ( store value on stack from above )
then
then
menu-create
begin \ Loop forever
0 25 at-xy \ Move cursor to the bottom for output
getkey \ Block here, waiting for a key to be pressed
dup -1 = if
drop exit \ Caught abort (abnormal return)
then
\ Boot if the user pressed Enter/Ctrl-M (13) or
\ Ctrl-Enter/Ctrl-J (10)
dup over 13 = swap 10 = or if
drop ( no longer needed )
s" boot" evaluate
exit ( pedantic; never reached )
then
dup menureboot @ = if 0 reboot then
\ Evaluate the decimal ASCII value against known menu item
\ key associations and act accordingly
49 \ Iterator start (loop range 49 to 56; ASCII '1' to '8')
begin
dup menukeyN @
rot tuck = if
\ Adjust for missing ACPI menuitem on non-i386
arch-i386? true <> menuacpi @ 0<> and if
menuacpi @ over 2dup < -rot = or
over 58 < and if
( key >= menuacpi && key < 58: N -- N )
1+
then
then
\ Test for the environment variable
dup menu_command[x]
getenv dup -1 <> if
\ Execute the stored procedure
evaluate
\ We expect there to be a non-zero
\ value left on the stack after
\ executing the stored procedure.
\ If so, continue to run, else exit.
0= if
drop \ key pressed
drop \ loop iterator
exit
else
swap \ need iterator on top
then
then
\ Re-adjust for missing ACPI menuitem
arch-i386? true <> menuacpi @ 0<> and if
swap
menuacpi @ 1+ over 2dup < -rot = or
over 59 < and if
1-
then
swap
then
else
swap \ need iterator on top
then
\
\ Check for menu keycode shortcut(s)
\
dup menu_keycode[x]
getenv dup -1 = if
drop
else
?number 0<> if
rot tuck = if
swap
dup menu_command[x]
getenv dup -1 <> if
evaluate
0= if
2drop
exit
then
else
drop
then
else
swap
then
then
then
1+ dup 56 > \ increment iterator
\ continue if less than 57
until
drop \ loop iterator
drop \ key pressed
again \ Non-operational key was pressed; repeat
;
\ This function unsets all the possible environment variables associated with
\ creating the interactive menu.
\
: menu-unset ( -- )
49 \ Iterator start (loop range 49 to 56; ASCII '1' to '8')
begin
dup menu_init[x] unsetenv \ menu initializer
dup menu_command[x] unsetenv \ menu command
dup menu_caption[x] unsetenv \ menu caption
dup ansi_caption[x] unsetenv \ ANSI caption
dup menu_keycode[x] unsetenv \ menu keycode
dup toggled_text[x] unsetenv \ toggle_menuitem caption
dup toggled_ansi[x] unsetenv \ toggle_menuitem ANSI caption
48 \ Iterator start (inner range 48 to 57; ASCII '0' to '9')
begin
\ cycle_menuitem caption and ANSI caption
2dup menu_caption[x][y] unsetenv
2dup ansi_caption[x][y] unsetenv
1+ dup 57 >
until
drop \ inner iterator
0 over menukeyN ! \ used by menu-create, menu-display
0 over init_stateN ! \ used by menu-create
0 over toggle_stateN ! \ used by toggle_menuitem
0 over init_textN c! \ used by toggle_menuitem
0 over cycle_stateN ! \ used by cycle_menuitem
1+ dup 56 > \ increment, continue if less than 57
until
drop \ iterator
s" menu_timeout_command" unsetenv \ menu timeout command
s" menu_reboot" unsetenv \ Reboot menu option flag
s" menu_acpi" unsetenv \ ACPI menu option flag
s" menu_kernel" unsetenv \ Kernel menu option flag
s" menu_options" unsetenv \ Options separator flag
s" menu_optionstext" unsetenv \ separator display text
s" menu_init" unsetenv \ menu initializer
0 menureboot !
0 menuacpi !
0 menuoptions !
;
only forth definitions also menu-infrastructure
\ This function both unsets menu variables and visually erases the menu area
\ in-preparation for another menu.
\
: menu-clear ( -- )
menu-unset
menu-erase
;
bullet menubllt !
also menu-namespace
\ Initialize our menu initialization state variables
0 init_state1 !
0 init_state2 !
0 init_state3 !
0 init_state4 !
0 init_state5 !
0 init_state6 !
0 init_state7 !
0 init_state8 !
\ Initialize our boolean state variables
0 toggle_state1 !
0 toggle_state2 !
0 toggle_state3 !
0 toggle_state4 !
0 toggle_state5 !
0 toggle_state6 !
0 toggle_state7 !
0 toggle_state8 !
\ Initialize our array state variables
0 cycle_state1 !
0 cycle_state2 !
0 cycle_state3 !
0 cycle_state4 !
0 cycle_state5 !
0 cycle_state6 !
0 cycle_state7 !
0 cycle_state8 !
\ Initialize string containers
0 init_text1 c!
0 init_text2 c!
0 init_text3 c!
0 init_text4 c!
0 init_text5 c!
0 init_text6 c!
0 init_text7 c!
0 init_text8 c!
only forth definitions
\ Menu.rc
\ $FreeBSD: releng/10.3/sys/boot/forth/menu.rc 293802 2016-01-13 01:50:02Z allanjude $
\
\ You should not edit this file! Put any overrides in menu.rc.local
\ instead as this file can be replaced during system updates.
\
\ Load required Forth modules
include /boot/version.4th
include /boot/brand.4th
include /boot/menu.4th
include /boot/menu-commands.4th
include /boot/shortcuts.4th
\ Screen prep
clear \ clear the screen (see `screen.4th')
print_version \ print version string (bottom-right; see `version.4th')
draw-beastie \ draw freebsd mascot (on right; see `beastie.4th')
draw-brand \ draw the FreeBSD title (top-left; see `brand.4th')
menu-init \ initialize the menu area (see `menu.4th')
\ Initialize main menu constructs (see `menu.4th')
\ NOTE: To use `non-ansi' variants, add `loader_color=0' to loader.conf(5)
\ NOTE: ANSI variants can use `^' in place of literal `Esc' (ASCII 27)
\
\ MAIN MENU
\
set menuset_name1="main"
set mainmenu_init[1]="init_boot"
set mainmenu_caption[1]="Boot Multi User [Enter]"
set maintoggled_text[1]="Boot [S]ingle User [Enter]"
set mainmenu_command[1]="boot"
set mainansi_caption[1]="^[1mB^[moot Multi User ^[1m[Enter]^[m"
set maintoggled_ansi[1]="Boot ^[1mS^[mingle User ^[1m[Enter]^[m"
\ keycode set by init_boot
set mainmenu_init[2]="init_altboot"
set mainmenu_caption[2]="Boot [S]ingle User"
set maintoggled_text[2]="Boot [M]ulti User"
set mainmenu_command[2]="altboot"
set mainansi_caption[2]="Boot ^[1mS^[mingle User"
set maintoggled_ansi[2]="Boot ^[1mM^[multi User"
\ keycode set by init_altboot
set mainmenu_caption[3]="[Esc]ape to loader prompt"
set mainmenu_command[3]="goto_prompt"
set mainmenu_keycode[3]=27
set mainansi_caption[3]="^[1mEsc^[mape to loader prompt"
\ Enable built-in "Reboot" trailing menuitem
\ NOTE: appears before menu_options if configured
\
set mainmenu_reboot
\ Enable "Options:" separator. When set to a numerical value (1-8), a visual
\ separator is inserted before that menuitem number.
\
set mainmenu_options=5
set mainmenu_kernel=5
set mainmenu_command[5]="cycle_kernel"
set mainmenu_keycode[5]=107
set mainmenu_caption[6]="Configure Boot [O]ptions..."
set mainmenu_command[6]="2 goto_menu"
set mainmenu_keycode[6]=111
set mainansi_caption[6]="Configure Boot ^[1mO^[mptions..."
s" currdev" getenv dup 0> [if] drop 4 s" zfs:" compare 0= [if]
set mainmenu_caption[7]="Select Boot [E]nvironment..."
set mainmenu_command[7]="3 goto_menu"
set mainmenu_keycode[7]=101
set mainansi_caption[7]="Select Boot ^[1mE^[37mnvironment..."
[then] [else] drop [then]
\
\ BOOT OPTIONS MENU
\
set menuset_name2="options"
set optionsmenu_caption[1]="Back to Main Menu [Backspace]"
set optionsmenu_command[1]="1 goto_menu"
set optionsmenu_keycode[1]=8
set optionsansi_caption[1]="Back to Main Menu ^[1m[Backspace]^[m"
set optionsmenu_caption[2]="Load System [D]efaults"
set optionsmenu_command[2]="set_default_boot_options"
set optionsmenu_keycode[2]=100
set optionsansi_caption[2]="Load System ^[1mD^[mefaults"
set optionsmenu_options=3
set optionsmenu_optionstext="Boot Options:"
set optionsmenu_acpi=3
set optionsmenu_caption[3]="[A]CPI Support off"
set optionstoggled_text[3]="[A]CPI Support On"
set optionsmenu_command[3]="toggle_acpi"
set optionsmenu_keycode[3]=97
set optionsansi_caption[3]="^[1mA^[mCPI Support ^[34;1mOff^[m"
set optionstoggled_ansi[3]="^[1mA^[mCPI Support ^[32;7mOn^[m"
set optionsmenu_init[4]="init_safemode"
set optionsmenu_caption[4]="Safe [M]ode... off"
set optionstoggled_text[4]="Safe [M]ode... On"
set optionsmenu_command[4]="toggle_safemode"
set optionsmenu_keycode[4]=109
set optionsansi_caption[4]="Safe ^[1mM^[mode... ^[34;1mOff^[m"
set optionstoggled_ansi[4]="Safe ^[1mM^[mode... ^[32;7mOn^[m"
set optionsmenu_init[5]="init_singleuser"
set optionsmenu_caption[5]="[S]ingle User. off"
set optionstoggled_text[5]="[S]ingle User. On"
set optionsmenu_command[5]="toggle_singleuser"
set optionsmenu_keycode[5]=115
set optionsansi_caption[5]="^[1mS^[mingle User. ^[34;1mOff^[m"
set optionstoggled_ansi[5]="^[1mS^[mingle User. ^[32;7mOn^[m"
set optionsmenu_init[6]="init_verbose"
set optionsmenu_caption[6]="[V]erbose..... off"
set optionstoggled_text[6]="[V]erbose..... On"
set optionsmenu_command[6]="toggle_verbose"
set optionsmenu_keycode[6]=118
set optionsansi_caption[6]="^[1mV^[merbose..... ^[34;1mOff^[m"
set optionstoggled_ansi[6]="^[1mV^[merbose..... ^[32;7mOn^[m"
\
\ BOOT ENVIRONMENT MENU
\
set menuset_name3="bootenv"
set bemenu_current="Active: "
set beansi_current="^[1m${bemenu_current}^[m"
set bemenu_bootfs="bootfs: "
set beansi_bootfs="^[1m${bemenu_bootfs}^[m"
set bemenu_page="[P]age: "
set beansi_page="^[1mP^[mage: "
set bemenu_pageof=" of "
set beansi_pageof="${bemenu_pageof}"
set zfs_be_currpage=1
set bootenvmenu_init="init_bootenv"
set bootenvmenu_command[1]="be_draw_screen 1 goto_menu"
set bootenvmenu_keycode[1]=8
set bootenvmenu_command[2]="set_bootenv"
set bootenvmenu_keycode[2]=97
set bootenv_root[2]="${zfs_be_active}"
set bootenvmenu_command[3]="set_be_page"
set bootenvmenu_keycode[3]=112
set bootenvmenu_options=4
set bootenvmenu_optionstext="Boot Environments:"
\ Enable automatic booting (add ``autoboot_delay=N'' to loader.conf(5) to
\ customize the timeout; default is 10-seconds)
\
set menu_timeout_command="boot"
\ Include optional elements defined in a local file
\
try-include /boot/menu.rc.local
\ Initialize boot environment variables
\
s" reloadbe" sfind ( xt|0 bool ) [if]
s" bootenv_autolist" getenv dup -1 = [if]
drop s" execute" evaluate \ Use evaluate to avoid passing
\ reloadbe an optional parameter
[else]
s" YES" compare-insensitive 0= [if]
s" execute" evaluate
[then]
[then]
[else]
drop ( xt=0 )
[then]
\ Display the main menu (see `menu.4th')
set menuset_initial=1
menuset-loadinitial
menu-display
\ Copyright (c) 2012 Devin Teske
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD: releng/10.3/sys/boot/forth/menusets.4th 281843 2015-04-22 01:08:40Z dteske $
marker task-menusets.4th
vocabulary menusets-infrastructure
only forth also menusets-infrastructure definitions
variable menuset_use_name
create menuset_affixbuf 255 allot
create menuset_x 1 allot
create menuset_y 1 allot
: menuset-loadvar ( -- )
\ menuset_use_name is true or false
\ $type should be set to one of:
\ menu toggled ansi
\ $var should be set to one of:
\ caption command keycode text ...
\ $affix is either prefix (menuset_use_name is true)
\ or infix (menuset_use_name is false)
s" set cmdbuf='set ${type}_${var}=\$'" evaluate
s" cmdbuf" getenv swap drop ( -- u1 ) \ get string length
menuset_use_name @ true = if
s" set cmdbuf=${cmdbuf}${affix}${type}_${var}"
( u1 -- u1 c-addr2 u2 )
else
s" set cmdbuf=${cmdbuf}${type}set${affix}_${var}"
( u1 -- u1 c-addr2 u2 )
then
evaluate ( u1 c-addr2 u2 -- u1 )
s" cmdbuf" getenv ( u1 -- u1 c-addr2 u2 )
rot 2 pick 2 pick over + -rot + tuck -
( u1 c-addr2 u2 -- c-addr2 u2 c-addr1 u1 )
\ Generate a string representing rvalue inheritance var
getenv dup -1 = if
( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 -1 )
\ NOT set -- clean up the stack
drop ( c-addr2 u2 -1 -- c-addr2 u2 )
2drop ( c-addr2 u2 -- )
else
( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 c-addr1 u1 )
\ SET -- execute cmdbuf (c-addr2/u2) to inherit value
2drop ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 )
evaluate ( c-addr2 u2 -- )
then
s" cmdbuf" unsetenv
;
: menuset-unloadvar ( -- )
\ menuset_use_name is true or false
\ $type should be set to one of:
\ menu toggled ansi
\ $var should be set to one of:
\ caption command keycode text ...
\ $affix is either prefix (menuset_use_name is true)
\ or infix (menuset_use_name is false)
menuset_use_name @ true = if
s" set buf=${affix}${type}_${var}"
else
s" set buf=${type}set${affix}_${var}"
then
evaluate
s" buf" getenv unsetenv
s" buf" unsetenv
;
: menuset-loadmenuvar ( -- )
s" set type=menu" evaluate
menuset-loadvar
;
: menuset-unloadmenuvar ( -- )
s" set type=menu" evaluate
menuset-unloadvar
;
: menuset-loadxvar ( -- )
\ menuset_use_name is true or false
\ $type should be set to one of:
\ menu toggled ansi
\ $var should be set to one of:
\ caption command keycode text ...
\ $x is "1" through "8"
\ $affix is either prefix (menuset_use_name is true)
\ or infix (menuset_use_name is false)
s" set cmdbuf='set ${type}_${var}[${x}]=\$'" evaluate
s" cmdbuf" getenv swap drop ( -- u1 ) \ get string length
menuset_use_name @ true = if
s" set cmdbuf=${cmdbuf}${affix}${type}_${var}[${x}]"
( u1 -- u1 c-addr2 u2 )
else
s" set cmdbuf=${cmdbuf}${type}set${affix}_${var}[${x}]"
( u1 -- u1 c-addr2 u2 )
then
evaluate ( u1 c-addr2 u2 -- u1 )
s" cmdbuf" getenv ( u1 -- u1 c-addr2 u2 )
rot 2 pick 2 pick over + -rot + tuck -
( u1 c-addr2 u2 -- c-addr2 u2 c-addr1 u1 )
\ Generate a string representing rvalue inheritance var
getenv dup -1 = if
( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 -1 )
\ NOT set -- clean up the stack
drop ( c-addr2 u2 -1 -- c-addr2 u2 )
2drop ( c-addr2 u2 -- )
else
( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 c-addr1 u1 )
\ SET -- execute cmdbuf (c-addr2/u2) to inherit value
2drop ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 )
evaluate ( c-addr2 u2 -- )
then
s" cmdbuf" unsetenv
;
: menuset-unloadxvar ( -- )
\ menuset_use_name is true or false
\ $type should be set to one of:
\ menu toggled ansi
\ $var should be set to one of:
\ caption command keycode text ...
\ $x is "1" through "8"
\ $affix is either prefix (menuset_use_name is true)
\ or infix (menuset_use_name is false)
menuset_use_name @ true = if
s" set buf=${affix}${type}_${var}[${x}]"
else
s" set buf=${type}set${affix}_${var}[${x}]"
then
evaluate
s" buf" getenv unsetenv
s" buf" unsetenv
;
: menuset-loadansixvar ( -- )
s" set type=ansi" evaluate
menuset-loadxvar
;
: menuset-unloadansixvar ( -- )
s" set type=ansi" evaluate
menuset-unloadxvar
;
: menuset-loadmenuxvar ( -- )
s" set type=menu" evaluate
menuset-loadxvar
;
: menuset-unloadmenuxvar ( -- )
s" set type=menu" evaluate
menuset-unloadxvar
;
: menuset-loadtoggledxvar ( -- )
s" set type=toggled" evaluate
menuset-loadxvar
;
: menuset-unloadtoggledxvar ( -- )
s" set type=toggled" evaluate
menuset-unloadxvar
;
: menuset-loadxyvar ( -- )
\ menuset_use_name is true or false
\ $type should be set to one of:
\ menu toggled ansi
\ $var should be set to one of:
\ caption command keycode text ...
\ $x is "1" through "8"
\ $y is "0" through "9"
\ $affix is either prefix (menuset_use_name is true)
\ or infix (menuset_use_name is false)
s" set cmdbuf='set ${type}_${var}[${x}][${y}]=\$'" evaluate
s" cmdbuf" getenv swap drop ( -- u1 ) \ get string length
menuset_use_name @ true = if
s" set cmdbuf=${cmdbuf}${affix}${type}_${var}[${x}][${y}]"
( u1 -- u1 c-addr2 u2 )
else
s" set cmdbuf=${cmdbuf}${type}set${affix}_${var}[${x}][${y}]"
( u1 -- u1 c-addr2 u2 )
then
evaluate ( u1 c-addr2 u2 -- u1 )
s" cmdbuf" getenv ( u1 -- u1 c-addr2 u2 )
rot 2 pick 2 pick over + -rot + tuck -
( u1 c-addr2 u2 -- c-addr2 u2 c-addr1 u1 )
\ Generate a string representing rvalue inheritance var
getenv dup -1 = if
( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 -1 )
\ NOT set -- clean up the stack
drop ( c-addr2 u2 -1 -- c-addr2 u2 )
2drop ( c-addr2 u2 -- )
else
( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 c-addr1 u1 )
\ SET -- execute cmdbuf (c-addr2/u2) to inherit value
2drop ( c-addr2 u2 c-addr1 u1 -- c-addr2 u2 )
evaluate ( c-addr2 u2 -- )
then
s" cmdbuf" unsetenv
;
: menuset-unloadxyvar ( -- )
\ menuset_use_name is true or false
\ $type should be set to one of:
\ menu toggled ansi
\ $var should be set to one of:
\ caption command keycode text ...
\ $x is "1" through "8"
\ $y is "0" through "9"
\ $affix is either prefix (menuset_use_name is true)
\ or infix (menuset_use_name is false)
menuset_use_name @ true = if
s" set buf=${affix}${type}_${var}[${x}][${y}]"
else
s" set buf=${type}set${affix}_${var}[${x}][${y}]"
then
evaluate
s" buf" getenv unsetenv
s" buf" unsetenv
;
: menuset-loadansixyvar ( -- )
s" set type=ansi" evaluate
menuset-loadxyvar
;
: menuset-unloadansixyvar ( -- )
s" set type=ansi" evaluate
menuset-unloadxyvar
;
: menuset-loadmenuxyvar ( -- )
s" set type=menu" evaluate
menuset-loadxyvar
;
: menuset-unloadmenuxyvar ( -- )
s" set type=menu" evaluate
menuset-unloadxyvar
;
: menuset-setnum-namevar ( N -- C-Addr/U )
s" menuset_nameNNNNN" ( n -- n c-addr1 u1 ) \ variable basename
drop 12 ( n c-addr1 u1 -- n c-addr1 12 ) \ remove "NNNNN"
rot ( n c-addr1 12 -- c-addr1 12 n ) \ move number on top
\ convert to string
s>d <# #s #> ( c-addr1 12 n -- c-addr1 12 c-addr2 u2 )
\ Combine strings
begin ( using u2 in c-addr2/u2 pair as countdown to zero )
over ( c-addr1 u1 c-addr2 u2 -- continued below )
( c-addr1 u1 c-addr2 u2 c-addr2 ) \ copy src-addr
c@ ( c-addr1 u1 c-addr2 u2 c-addr2 -- continued below )
( c-addr1 u1 c-addr2 u2 c ) \ get next src-addr byte
4 pick 4 pick
( c-addr1 u1 c-addr2 u2 c -- continued below )
( c-addr1 u1 c-addr2 u2 c c-addr1 u1 )
\ get destination c-addr1/u1 pair
+ ( c-addr1 u1 c-addr2 u2 c c-addr1 u1 -- cont. below )
( c-addr1 u1 c-addr2 u2 c c-addr3 )
\ combine dest-c-addr to get dest-addr for byte
c! ( c-addr1 u1 c-addr2 u2 c c-addr3 -- continued below )
( c-addr1 u1 c-addr2 u2 )
\ store the current src-addr byte into dest-addr
2swap 1+ 2swap \ increment u1 in destination c-addr1/u1 pair
swap 1+ swap \ increment c-addr2 in source c-addr2/u2 pair
1- \ decrement u2 in the source c-addr2/u2 pair
dup 0= \ time to break?
until
2drop ( c-addr1 u1 c-addr2 u2 -- c-addr1 u1 )
\ drop temporary number-format conversion c-addr2/u2
;
: menuset-checksetnum ( N -- )
\
\ adjust input to be both positive and no-higher than 65535
\
abs dup 65535 > if drop 65535 then ( n -- n )
\
\ The next few blocks will determine if we should use the default
\ methodology (referencing the original numeric stack-input), or if-
\ instead $menuset_name{N} has been defined wherein we would then
\ use the value thereof as the prefix to every menu variable.
\
false menuset_use_name ! \ assume name is not set
menuset-setnum-namevar
\
\ We now have a string that is the assembled variable name to check
\ for... $menuset_name{N}. Let's check for it.
\
2dup ( c-addr1 u1 -- c-addr1 u1 c-addr1 u1 ) \ save a copy
getenv dup -1 <> if ( c-addr1 u1 c-addr1 u1 -- c-addr1 u1 c-addr2 u2 )
\ The variable is set. Let's clean up the stack leaving only
\ its value for later use.
true menuset_use_name !
2swap 2drop ( c-addr1 u1 c-addr2 u2 -- c-addr2 u2 )
\ drop assembled variable name, leave the value
else ( c-addr1 u1 c-addr1 u1 -- c-addr1 u1 -1 ) \ no such variable
\ The variable is not set. Let's clean up the stack leaving the
\ string [portion] representing the original numeric input.
drop ( c-addr1 u1 -1 -- c-addr1 u1 ) \ drop -1 result
12 - swap 12 + swap ( c-addr1 u1 -- c-addr2 u2 )
\ truncate to original numeric stack-input
then
\
\ Now, depending on whether $menuset_name{N} has been set, we have
\ either the value thereof to be used as a prefix to all menu_*
\ variables or we have a string representing the numeric stack-input
\ to be used as a "set{N}" infix to the same menu_* variables.
\
\ For example, if the stack-input is 1 and menuset_name1 is NOT set
\ the following variables will be referenced:
\ ansiset1_caption[x] -> ansi_caption[x]
\ ansiset1_caption[x][y] -> ansi_caption[x][y]
\ menuset1_acpi -> menu_acpi
\ menuset1_caption[x] -> menu_caption[x]
\ menuset1_caption[x][y] -> menu_caption[x][y]
\ menuset1_command[x] -> menu_command[x]
\ menuset1_init -> ``evaluated''
\ menuset1_init[x] -> menu_init[x]
\ menuset1_kernel -> menu_kernel
\ menuset1_keycode[x] -> menu_keycode[x]
\ menuset1_options -> menu_options
\ menuset1_optionstext -> menu_optionstext
\ menuset1_reboot -> menu_reboot
\ toggledset1_ansi[x] -> toggled_ansi[x]
\ toggledset1_text[x] -> toggled_text[x]
\ otherwise, the following variables are referenced (where {name}
\ represents the value of $menuset_name1 (given 1 as stack-input):
\ {name}ansi_caption[x] -> ansi_caption[x]
\ {name}ansi_caption[x][y] -> ansi_caption[x][y]
\ {name}menu_acpi -> menu_acpi
\ {name}menu_caption[x] -> menu_caption[x]
\ {name}menu_caption[x][y] -> menu_caption[x][y]
\ {name}menu_command[x] -> menu_command[x]
\ {name}menu_init -> ``evaluated''
\ {name}menu_init[x] -> menu_init[x]
\ {name}menu_kernel -> menu_kernel
\ {name}menu_keycode[x] -> menu_keycode[x]
\ {name}menu_options -> menu_options
\ {name}menu_optionstext -> menu_optionstext
\ {name}menu_reboot -> menu_reboot
\ {name}toggled_ansi[x] -> toggled_ansi[x]
\ {name}toggled_text[x] -> toggled_text[x]
\
\ Note that menuset{N}_init and {name}menu_init are the initializers
\ for the entire menu (for wholly dynamic menus) opposed to the per-
\ menuitem initializers (with [x] afterward). The whole-menu init
\ routine is evaluated and not passed down to $menu_init (which
\ would result in double evaluation). By doing this, the initializer
\ can initialize the menuset before we transfer it to active-duty.
\
\
\ Copy our affixation (prefix or infix depending on menuset_use_name)
\ to our buffer so that we can safely use the s-quote (s") buf again.
\
menuset_affixbuf 0 2swap ( c-addr2 u2 -- c-addr1 0 c-addr2 u2 )
begin ( using u2 in c-addr2/u2 pair as countdown to zero )
over ( c-addr1 u1 c-addr2 u2 -- c-addr1 u1 c-addr2 u2 c-addr2 )
c@ ( c-addr1 u1 c-addr2 u2 -- c-addr1 u1 c-addr2 u2 c )
4 pick 4 pick
( c-addr1 u1 c-addr2 u2 c -- continued below )
( c-addr1 u1 c-addr2 u2 c c-addr1 u1 )
+ ( c-addr1 u1 c-addr2 u2 c c-addr1 u1 -- continued below )
( c-addr1 u1 c-addr2 u2 c c-addr3 )
c! ( c-addr1 u1 c-addr2 u2 c c-addr3 -- continued below )
( c-addr1 u1 c-addr2 u2 )
2swap 1+ 2swap \ increment affixbuf byte position/count
swap 1+ swap \ increment strbuf pointer (source c-addr2)
1- \ decrement strbuf byte count (source u2)
dup 0= \ time to break?
until
2drop ( c-addr1 u1 c-addr2 u2 -- c-addr1 u1 ) \ drop strbuf c-addr2/u2
\
\ Create a variable for referencing our affix data (prefix or infix
\ depending on menuset_use_name as described above). This variable will
\ be temporary and only used to simplify cmdbuf assembly.
\
s" affix" setenv ( c-addr1 u1 -- )
;
: menuset-cleanup ( -- )
s" type" unsetenv
s" var" unsetenv
s" x" unsetenv
s" y" unsetenv
s" affix" unsetenv
;
only forth definitions also menusets-infrastructure
: menuset-loadsetnum ( N -- )
menuset-checksetnum ( n -- )
\
\ From here out, we use temporary environment variables to make
\ dealing with variable-length strings easier.
\
\ menuset_use_name is true or false
\ $affix should be used appropriately w/respect to menuset_use_name
\
\ ... menu_init ...
s" set var=init" evaluate
menuset-loadmenuvar
\ If menu_init was set by the above, evaluate it here-and-now
\ so that the remaining variables are influenced by its actions
s" menu_init" 2dup getenv dup -1 <> if
2swap unsetenv \ don't want later menu-create to re-call this
evaluate
else
drop 2drop ( n c-addr u -1 -- n )
then
[char] 1 ( -- x ) \ Loop range ASCII '1' (49) to '8' (56)
begin
dup menuset_x tuck c! 1 s" x" setenv \ set loop iterator and $x
s" set var=caption" evaluate
\ ... menu_caption[x] ...
menuset-loadmenuxvar
\ ... ansi_caption[x] ...
menuset-loadansixvar
[char] 0 ( x -- x y ) \ Inner Loop ASCII '1' (48) to '9' (57)
begin
dup menuset_y tuck c! 1 s" y" setenv
\ set inner loop iterator and $y
\ ... menu_caption[x][y] ...
menuset-loadmenuxyvar
\ ... ansi_caption[x][y] ...
menuset-loadansixyvar
1+ dup 57 > ( x y -- y' 0|-1 ) \ increment and test
until
drop ( x y -- x )
\ ... menu_command[x] ...
s" set var=command" evaluate
menuset-loadmenuxvar
\ ... menu_init[x] ...
s" set var=init" evaluate
menuset-loadmenuxvar
\ ... menu_keycode[x] ...
s" set var=keycode" evaluate
menuset-loadmenuxvar
\ ... toggled_text[x] ...
s" set var=text" evaluate
menuset-loadtoggledxvar
\ ... toggled_ansi[x] ...
s" set var=ansi" evaluate
menuset-loadtoggledxvar
1+ dup 56 > ( x -- x' 0|-1 ) \ increment iterator
\ continue if less than 57
until
drop ( x -- ) \ loop iterator
\ ... menu_reboot ...
s" set var=reboot" evaluate
menuset-loadmenuvar
\ ... menu_acpi ...
s" set var=acpi" evaluate
menuset-loadmenuvar
\ ... menu_kernel ...
s" set var=kernel" evaluate
menuset-loadmenuvar
\ ... menu_options ...
s" set var=options" evaluate
menuset-loadmenuvar
\ ... menu_optionstext ...
s" set var=optionstext" evaluate
menuset-loadmenuvar
menuset-cleanup
;
: menusets-unset ( -- )
s" menuset_initial" unsetenv
1 begin
dup menuset-checksetnum ( n n -- n )
dup menuset-setnum-namevar ( n n -- n )
unsetenv
\ If the current menuset does not populate the first menuitem,
\ we stop completely.
menuset_use_name @ true = if
s" set buf=${affix}menu_caption[1]"
else
s" set buf=menuset${affix}_caption[1]"
then
evaluate s" buf" getenv getenv -1 = if
drop ( n -- )
s" buf" unsetenv
menuset-cleanup
exit
else
drop ( n c-addr2 -- n ) \ unused
then
[char] 1 ( n -- n x ) \ Loop range ASCII '1' (49) to '8' (56)
begin
dup menuset_x tuck c! 1 s" x" setenv \ set $x to x
s" set var=caption" evaluate
menuset-unloadmenuxvar
menuset-unloadmenuxvar
menuset-unloadansixvar
[char] 0 ( n x -- n x y ) \ Inner loop '0' to '9'
begin
dup menuset_y tuck c! 1 s" y" setenv
\ sets $y to y
menuset-unloadmenuxyvar
menuset-unloadansixyvar
1+ dup 57 > ( n x y -- n x y' 0|-1 )
until
drop ( n x y -- n x )
s" set var=command" evaluate menuset-unloadmenuxvar
s" set var=init" evaluate menuset-unloadmenuxvar
s" set var=keycode" evaluate menuset-unloadmenuxvar
s" set var=text" evaluate menuset-unloadtoggledxvar
s" set var=ansi" evaluate menuset-unloadtoggledxvar
1+ dup 56 > ( x -- x' 0|-1 ) \ increment and test
until
drop ( n x -- n ) \ loop iterator
s" set var=acpi" evaluate menuset-unloadmenuvar
s" set var=init" evaluate menuset-unloadmenuvar
s" set var=kernel" evaluate menuset-unloadmenuvar
s" set var=options" evaluate menuset-unloadmenuvar
s" set var=optionstext" evaluate menuset-unloadmenuvar
s" set var=reboot" evaluate menuset-unloadmenuvar
1+ dup 65535 > ( n -- n' 0|-1 ) \ increment and test
until
drop ( n' -- ) \ loop iterator
s" buf" unsetenv
menuset-cleanup
;
only forth definitions
: menuset-loadinitial ( -- )
s" menuset_initial" getenv dup -1 <> if
?number 0<> if
menuset-loadsetnum
then
else
drop \ cruft
then
;
\ Copyright (c) 2006-2015 Devin Teske
\ All rights reserved.
\
\ Redistribution and use in source and binary forms, with or without
\ modification, are permitted provided that the following conditions
\ are met:
\ 1. Redistributions of source code must retain the above copyright
\ notice, this list of conditions and the following disclaimer.
\ 2. Redistributions in binary form must reproduce the above copyright
\ notice, this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\
\ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
\ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
\ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
\ ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
\ SUCH DAMAGE.
\
\ $FreeBSD: releng/10.3/sys/boot/forth/menu-commands.4th 293802 2016-01-13 01:50:02Z allanjude $
marker task-menu-commands.4th
include /boot/menusets.4th
only forth definitions
variable kernel_state
variable root_state
0 kernel_state !
0 root_state !
also menu-namespace also menu-command-helpers
\
\ Boot
\
: init_boot ( N -- N )
dup
s" boot_single" getenv -1 <> if
drop ( n n c-addr -- n n ) \ unused
toggle_menuitem ( n n -- n n )
s" set menu_keycode[N]=115" \ base command to execute
else
s" set menu_keycode[N]=98" \ base command to execute
then
17 +c! \ replace 'N' with ASCII numeral
evaluate
;
\
\ Alternate Boot
\
: init_altboot ( N -- N )
dup
s" boot_single" getenv -1 <> if
drop ( n c-addr -- n ) \ unused
toggle_menuitem ( n -- n )
s" set menu_keycode[N]=109" \ base command to execute
else
s" set menu_keycode[N]=115" \ base command to execute
then
17 +c! \ replace 'N' with ASCII numeral
evaluate
;
: altboot ( N -- NOTREACHED )
s" boot_single" 2dup getenv -1 <> if
drop ( c-addr/u c-addr -- c-addr/u ) \ unused
unsetenv ( c-addr/u -- )
else
2drop ( c-addr/u -- ) \ unused
s" set boot_single=YES" evaluate
then
0 boot ( state -- )
;
\
\ ACPI
\
: acpi_enable ( -- )
s" set acpi_load=YES" evaluate \ XXX deprecated but harmless
s" set hint.acpi.0.disabled=0" evaluate
s" loader.acpi_disabled_by_user" unsetenv
;
: acpi_disable ( -- )
s" acpi_load" unsetenv \ XXX deprecated but harmless
s" set hint.acpi.0.disabled=1" evaluate
s" set loader.acpi_disabled_by_user=1" evaluate
;
: toggle_acpi ( N -- N TRUE )
\ Make changes effective _before_ calling menu-redraw
acpienabled? if
acpi_disable
else
acpi_enable
then
menu-redraw
TRUE \ loop menu again
;
\
\ Safe Mode
\
: safemode_enabled? ( -- flag )
s" kern.smp.disabled" getenv -1 <> dup if
swap drop ( c-addr flag -- flag )
then
;
: safemode_enable ( -- )
s" set kern.smp.disabled=1" evaluate
s" set hw.ata.ata_dma=0" evaluate
s" set hw.ata.atapi_dma=0" evaluate
s" set hw.ata.wc=0" evaluate
s" set hw.eisa_slots=0" evaluate
s" set kern.eventtimer.periodic=1" evaluate
s" set kern.geom.part.check_integrity=0" evaluate
;
: safemode_disable ( -- )
s" kern.smp.disabled" unsetenv
s" hw.ata.ata_dma" unsetenv
s" hw.ata.atapi_dma" unsetenv
s" hw.ata.wc" unsetenv
s" hw.eisa_slots" unsetenv
s" kern.eventtimer.periodic" unsetenv
s" kern.geom.part.check_integrity" unsetenv
;
: init_safemode ( N -- N )
safemode_enabled? if
toggle_menuitem ( n -- n )
then
;
: toggle_safemode ( N -- N TRUE )
toggle_menuitem
\ Now we're going to make the change effective
dup toggle_stateN @ 0= if
safemode_disable
else
safemode_enable
then
menu-redraw
TRUE \ loop menu again
;
\
\ Single User Mode
\
: singleuser_enabled? ( -- flag )
s" boot_single" getenv -1 <> dup if
swap drop ( c-addr flag -- flag )
then
;
: singleuser_enable ( -- )
s" set boot_single=YES" evaluate
;
: singleuser_disable ( -- )
s" boot_single" unsetenv
;
: init_singleuser ( N -- N )
singleuser_enabled? if
toggle_menuitem ( n -- n )
then
;
: toggle_singleuser ( N -- N TRUE )
toggle_menuitem
menu-redraw
\ Now we're going to make the change effective
dup toggle_stateN @ 0= if
singleuser_disable
else
singleuser_enable
then
TRUE \ loop menu again
;
\
\ Verbose Boot
\
: verbose_enabled? ( -- flag )
s" boot_verbose" getenv -1 <> dup if
swap drop ( c-addr flag -- flag )
then
;
: verbose_enable ( -- )
s" set boot_verbose=YES" evaluate
;
: verbose_disable ( -- )
s" boot_verbose" unsetenv
;
: init_verbose ( N -- N )
verbose_enabled? if
toggle_menuitem ( n -- n )
then
;
: toggle_verbose ( N -- N TRUE )
toggle_menuitem
menu-redraw
\ Now we're going to make the change effective
dup toggle_stateN @ 0= if
verbose_disable
else
verbose_enable
then
TRUE \ loop menu again
;
\
\ Escape to Prompt
\
: goto_prompt ( N -- N FALSE )
s" set autoboot_delay=NO" evaluate
cr
." To get back to the menu, type `menu' and press ENTER" cr
." or type `boot' and press ENTER to start FreeBSD." cr
cr
FALSE \ exit the menu
;
\
\ Cyclestate (used by kernel/root below)
\
: init_cyclestate ( N K -- N )
over cycle_stateN ( n k -- n k addr )
begin
tuck @ ( n k addr -- n addr k c )
over <> ( n addr k c -- n addr k 0|-1 )
while
rot ( n addr k -- addr k n )
cycle_menuitem
swap rot ( addr k n -- n k addr )
repeat
2drop ( n k addr -- n )
;
\
\ Kernel
\
: init_kernel ( N -- N )
kernel_state @ ( n -- n k )
init_cyclestate ( n k -- n )
;
: activate_kernel ( N -- N )
dup cycle_stateN @ ( n -- n n2 )
dup kernel_state ! ( n n2 -- n n2 ) \ copy for re-initialization
48 + ( n n2 -- n n2' ) \ kernel_state to ASCII num
s" set kernel=${kernel_prefix}${kernel[N]}${kernel_suffix}"
36 +c! ( n n2 c-addr/u -- n c-addr/u ) \ 'N' to ASCII num
evaluate ( n c-addr/u -- n ) \ sets $kernel to full kernel-path
;
: cycle_kernel ( N -- N TRUE )
cycle_menuitem \ cycle cycle_stateN to next value
activate_kernel \ apply current cycle_stateN
menu-redraw \ redraw menu
TRUE \ loop menu again
;
\
\ Root
\
: init_root ( N -- N )
root_state @ ( n -- n k )
init_cyclestate ( n k -- n )
;
: activate_root ( N -- N )
dup cycle_stateN @ ( n -- n n2 )
dup root_state ! ( n n2 -- n n2 ) \ copy for re-initialization
48 + ( n n2 -- n n2' ) \ root_state to ASCII num
s" set root=${root_prefix}${root[N]}${root_suffix}"
30 +c! ( n n2 c-addr/u -- n c-addr/u ) \ 'N' to ASCII num
evaluate ( n c-addr/u -- n ) \ sets $root to full kernel-path
;
: cycle_root ( N -- N TRUE )
cycle_menuitem \ cycle cycle_stateN to next value
activate_root \ apply current cycle_stateN
menu-redraw \ redraw menu
TRUE \ loop menu again
;
\
\ Menusets
\
: goto_menu ( N M -- N TRUE )
menu-unset
menuset-loadsetnum ( n m -- n )
menu-redraw
TRUE \ Loop menu again
;
\
\ Defaults
\
: set_default_boot_options ( N -- N TRUE )
acpi_enable
safemode_disable
singleuser_disable
verbose_disable
2 goto_menu
;
\
\ Set boot environment defaults
\
: init_bootenv ( -- )
s" set menu_caption[1]=${bemenu_current}${vfs.root.mountfrom}" evaluate
s" set ansi_caption[1]=${beansi_current}${vfs.root.mountfrom}" evaluate
s" set menu_caption[2]=${bemenu_bootfs}${zfs_be_active}" evaluate
s" set ansi_caption[2]=${beansi_bootfs}${zfs_be_active}" evaluate
s" set menu_caption[3]=${bemenu_page}${zfs_be_currpage}${bemenu_pageof}${zfs_be_pages}" evaluate
s" set ansi_caption[3]=${beansi_page}${zfs_be_currpage}${bemenu_pageof}${zfs_be_pages}" evaluate
;
\
\ Redraw the entire screen. A long BE name can corrupt the menu
\
: be_draw_screen
clear \ Clear the screen (in screen.4th)
print_version \ print version string (bottom-right; see version.4th)
draw-beastie \ Draw FreeBSD logo at right (in beastie.4th)
draw-brand \ Draw brand.4th logo at top (in brand.4th)
menu-init \ Initialize menu and draw bounding box (in menu.4th)
;
\
\ Select a boot environment
\
: set_bootenv ( N -- N TRUE )
dup s" set vfs.root.mountfrom=${bootenv_root[E]}" 38 +c! evaluate
s" set currdev=${vfs.root.mountfrom}:" evaluate
s" unload" evaluate
free-module-options
s" /boot/defaults/loader.conf" read-conf
s" /boot/loader.conf" read-conf
s" /boot/loader.conf.local" read-conf
init_bootenv
be_draw_screen
menu-redraw
TRUE
;
\
\ Switch to the next page of boot environments
\
: set_be_page ( N -- N TRUE )
s" zfs_be_currpage" getenv dup -1 = if
drop s" 1"
else
0 s>d 2swap
>number ( ud caddr/u -- ud' caddr'/u' ) \ convert string to numbers
2drop \ drop the string
1 um/mod ( ud u1 -- u2 u3 ) \ convert double ud' to single u3' and remainder u2
swap drop ( ud2 u3 -- u3 ) \ drop the remainder u2
1+ \ increment the page number
s>d <# #s #> \ convert back to a string
then
s" zfs_be_currpage" setenv
s" reloadbe" evaluate
3 goto_menu
;
only forth definitions
W `T$*+I0ۄ- $\ If,,4D3Xڢ}[kZi%VR}""|s-}Y{-%Qߩ?Qy;~ڴ׳̢u ˠc0\Mh;;a;Rybt~ʱFzaS} Uf< W>g+oaO(9quwǓ,˹9o ˿eڬr?ղ\T=DW=1-?$SڣeW>,KZujY_ղz,ڏ3e2NxiYO _4Gbx--?˞вWMI_tiYO,K4_.ҲM;el-oR]e$-˟}W~e[6U;vJc^hk;5{,l~}ֲ̓]]ӿ:c+ֲo
ZKvӲwZaߧe,T\Gs,7Z9ӃSYw࣎t ;,YE/E]X?R 4Z-ZGvղ -?{5}ᅷ}Gnu{)@?f wQ״,i6kY)G_UUZviYwiY .)ǻ;4}ݟJu?۵,skOղMojY?MR8~_exHatDk7~5]{_XHiٚn?iY Oܦ<@Zu^Mգ5=O}F{ /痏y#FMx[,˲4вsZ{ %Z{_ղS>9RzP-˿ÚW~x7B883^Cϫ^ega=в]2ciWmӲo|Z9Z4}aioڴ,ŶLJ ԲWekԲ
ew,_4Wk BcY e'ݷX tiS4߱7 N湉ZN.Բ/O/O;S5oݯvjY)[/s]e٥߿~>n-ײuZ+KghY[V6iY=\}O, lZ5jYS~t|ZU/iY^93S5tWl?4e/,_^ֲr5}WѲ^Y /OҲ% GjY^ߝRq]W~e9%e_go,
kz#~uّ5e|7kOeֲA_gi_y Ҳb5ZߝU(ֲ3J-5+;wSZ> wBCdIJk*d~GzɜG9Y s21tu4: r-y9crK/Q>uZ__X0Vϳ˶g1^&ϿFN7Zqnf4BjAN1]H-͔[r
j] q>ӿu ݞn.lw^an+ Fѳ^ &DӼZ33eKaa~6vEzrsFY>wÞc4pD3ܔ!T!\6Rl.'76y.^%LT>K,r`rLzH>#Gjr'-9rb|DQ=v
I { ,nU"oe#%ir"%ro cET)fP?BVd@E'T!Od5bjué @\;F*U<*}Ryʥr4\\W;j\ $(bX@"չ] ^˿]Jl.v.[No)PEys /> ħ-|)|u1qhxlvj ~3E);: 6ZW/7ѪS͍}2a_D'RgvNKM;9=J:c͗^u9&ss+z y%mMct '-V߄|$|O n;y8X#$H!U Hԍd'y (ȾfG=wnV:w +
ʵ5WgxOni i4u4nXi$VA6:NӸHAb(85~y>$& 1\|z f -&^{_IK6w=DU$&Q
6@68~&d_Q1R_221+m%!.Q\K.8ҩH2˝ dJ8%@D^ p5s)J;@-$Vw)eLVSCce./-1j9YYYƚ /
y@YyYZ"Y-
(s ]PI͛T^ Cl |uN [ sQ
-uZr,V$HF!hA{.q8d% ha.PlV v^;;+gS*Z[2TfO#8 w.堖f3CDYy$勭ˢcHiDjFd|I1]NԮV[,}N @SdÝl批S˙frssgXK+9M
Zz}o\>c1o>$EƥrXUHd524* W _LLe`+ugL i$6?
>1O8Ft5:x ʃ3U{ԓQt)@
G^mYt1*(m&c> E |rg% B"ucrXKA a^ Gh"1qw3q tLG)QonGSi R0n4%~teI4h~P_U2# X`6E<_6DAZ;Ksmx,Wc$Oh3G=IGk[ DqYTw 1Mg ࿚Y쪺lڹ yv^a%/= d$.qܒAw%^cRޥӧl^b4
| '{CBSgHv6ڡ0 C?>3 z(
/ \ϵ{9^oC$P ;+̶X-cqǍ8neGkM_L W]f!6zmqa;[Oc %siUɢ`gv1ZgTNN>_&f/ͫGٍJ5:cr눥F. FHbW%; Lz2%Cj?)I9%~0o p W@}&I_ 5_@w,qK:}l]row,{S 9d.XG RFe6RnJiJ6( l47/6
P.y%ZŮf'R "H˟ί r}
zi;ZFY=bRl5SGΊwʵHoz V@^M N MOx~Z$[rϱ_ r-qr^q dz.i_8WV"2]d2_T6>mVc%rV "9!} N.Ò%;C3&dP e
.]*SݮJM3'g7F"VGXll f[
#9,H bXu4W3Q#_/jx[s(/7
33G />%BQʿX9o @ͷ(>|1I,gNȹ#m 9m 9m Ϸ-o[U
铒SU3R"k˔k/^l4rF|o?rSIrM9KT->ON h6
Dtl<.Mn'g+Pz6R%Mg[`x&Qk͛˖Lc*ZNϭ5RTپбT q|[6=[9o+{k
)Ga7dG${tzJ@rYeqmO7xlMyEbLUj #dwy}IBpe$9 ;_n 3If},IXk%FKoDNNhCE
9m-JjDOG8J$3Bʍ (UG/tW3Ąv$}= =')G(Q۹BT :JLQI3 o "=#5Xӷdr
s8Y>Xq?Io
cCi8 *B0Of"a5Pxc / {!H~Lr텲äUC)l{l
-Ĩ _3kf{(=2JwV_%ԖD,AKutsp@"=<菪S Fd3G,Ƴ?DBPdrJt-R:V,*2,2(U̵ЕE9Bj%#R(DjuMVY3[Lݟew}쾅SGVv nbm>0}Pr
o6erݷ U dT/rŹ`T*QӢd qVrHӉKN~Pa :?EǠ] $ BKi|i:3)R)oRԺ9-Ҍojq3↛H _j#`ѡ%]"5 ͎D4G #ֈ)uCj7sn&:hù9խOn_R{6^%i,"=DW{cHPGp6k'?ki m7ַnֽˠjp٦TlGUKY g[-IqߡLvt ZǴayZ)l&ǾM0) 7Y3O2nPqm]j:/(3> 2ؾպv2 9 u:5]w떤#gׇc!ĬOiC ƫ$EoL
Sk3I=ۣ243Dqf>[ Զ4ӆ R~=pc𧩥' n ,1yL eQI7Ŧ<}u`]i^^@i4/F U+C29N+gZy#^ޯ6-P3ihY,/şos@J <"S m[QIe/pf`TjE !h_vT if7{O_{}ҧ1mڒ,Q))vqjGzGXz"rf+S E]G@rw:AjOۺLO:/Qޟ?i^qkS;hJDΗ_ c! 'Ncwb&e5dfd7'*nMvq>|4yrG)r[&WK B>%^u+?No?}L]L]d zAAӣA
*)^97qD|vJrzQmQ}WY;YZ$j,L%nYΩ] ڲ%9i
Q2wZ%-xEy%n<-t>iA 4)W~=/zV[_X܄گTKWkؼݧPt^ -R9^˾ E\9I2J9,4/R* L Wz1wٟo}u.:.R? u?PbgtZSf#rG VVhM n8 d 9Cs ;]x a wc6=}dgPLe{)t}4/ |9(:;QG9HE[R:h|y]*nkПnBזI]T0
}uHUrR?YI(m2mNR;iϴaiݡ/)y1a:U /v[w=h%;-}{ 9L;2 /%GPo,3
l}'I$UuF*_d@G)qA/R u$ZC]rj/%/:v6u]A
[A C;ҧ uк-Ce>5u~. bH .d39S_?~O%/G@ 7@\OP:}*wӗiEDsOZ~mb e2T-`I25M-!Y͆ &S3PrK8ljKhiNe=nFY-he\~ +O
[$<!az8 akN58Y`6,zn2~WOY/mOJN""ΟmC{O[>H'M'RZ>ܜ4xB%
h*X> jM4S_E\20ܫdV'=4W~n=D_ w7
/GэJa<ۖ}vJ Zȑ@ zX7Zwԡb%/[zF c!o;ZGo#ۭG(p; tDM^A WqCz{ 7=3xHj塧30WePQ_-K`j8گQnoAZXVBs=Ѳ3fÓ"W,=+v^p(WX/J_r'+ZGeZ3Y M 3ʖH !db&v+wV.DȊ=W V '#{ڭ_QJLꢿwX$Qg V N}'r $eRX;$~5lVCt ^y zNbYIcF>TI Me^%)"^6_Ms[{-&nAEnY;X(skBy -GN\@TܢRHӓE]3eB/+'TZXVRC hcOTGyS|CaֶaYDbɢmE*B3|ܶz%:j}zUGẳsMS"pI_qEem bsk۟T5DJnEaC"ʶvslӏE2x$ⷅK*,=:
N ENqSFZPg<1&J÷=iDǍ$E3Q{R<9[B<괭{9;qmL$ە*[V >RJnK|< D+y*6$? 9x 灈N%5]qz'n{6 "7UnΨ^_Y(C@^]:/FڤN& [6ߒԓe2s+
.xU%"c:M(n3sj7~nQgMʈ\?'~P C);X:֜Xӊ64YVD)2(_wВ?2dS%z[*qabiMHLk\ pbՒ ~, {)F砗sz Z(4Ѻ٬g*Q++spGueZRyE^ K/P
3V)래b3== ҮMO }JZFR!-chj<Ͳ?nVf4+3~Z_-ǵЛMm)x%2S)ʥǔmN3%
MPSˌ.4-bē#l5tgiz i)+FFIy yѭK|)p*Ы=6EwI?8ԁ'E}+P_)kYv)b6M$7unTlYdޜFy$'2o =f϶jD(6Gy@ՋT~fV43vPz0)YpNKciCE9-(z1V
R*QJ9RԴKzOAX|Cv*XV1oR >u? к0r?~(-8/~7,UodѿGoXB_YEoMo?μKiFu1;w
אy̫ULz̚cnO}iGEf-|Df=zCdn&MS
ydyd zX1C~G=O%w0oMj~|C}ҟ{+aݥC躞,0T5k$sy4iy%cwHϳX
'ΓU{ ƐZWrEstfU1)dJȔc>9^>?xXħ"ELⳐ?ħ/Sx9uQr]v^T- MFJ$P1)HOKI 1>/pc&dLdFϖGf[#)\SsnB[Ge/t%[}/
~;r(nUz eωϋwp4xCo$y|Ojl >5TvzH ewPQ6;y#}dQwkkz*w }"P
PhgN-.Sݴ)bEו>P ">xGo7QmtzCy~9jD)KM5*< \~G}T]/M Vhsx n*)őEzǤot؍%諥h4:&JZx I 4qs{>.'Q)])1S~퓪NťԱHʥ" k%|R61i 4 .K&YZĩ?S'qK4ԏ,MYw~LBi_,Z`..| 1yQۦ6 Z qpO#5cO1cfܩٙjP.p3K$z=ޜh'<ҧ%#홒 $>Bop5کUP\[mH6?c 5H 1 # =9s )vDv{?WunOm>rI#z~l1$rJ|û@4qPJ=,l 9|rћȗg{ n92dA (چ6/Mh,}K*/QjL^匡VXXk c4QynL}9*D=KX #}FK+JJP DCp&I̠U9Q4W:|%Z,ZE~ uA@J>rY+MGlMK6#rFI& 2&>rm+OJcZZ,Srɲ,LVTHb_$E9E%u:˝gY5nF#H,K֊u{<Shԩ˓
,y~zq 477r7=c٨&/6뢒
Rk\.^SUa[^5J:CIj5Rg&[Th)vQ2#cYU-S<46IqRyMUAlK.?z7&z76z1>z7!zW+ZN cR kJƍ &D-Ҕr]\Gne'ʉc o#2'9 OPen:jUA0HCӵ@lNj ҿѳ RBh1FӉ-' ܹ(sހJH3ڬHT6:= ܮk}||);nvG(ĬIrCwf$~۩ |5nAwf^Np2/
Ơ%'맴%
JP |keH~k?'zĺR vYőUz[t
20yBK$YMW"cGqrPo8URG? ? S>NEpzF8(\_F$$udn&s7
dydVo8ydƓ)#3"2בd6B52 GfMydƓ)#3"2בd6B52 GfydƓ)#3"2בd6B52 GfO)>Ȍ'SFf&'Ed#s3l kd> ̀[(>Ȍ'SFf&'Ed#s3l kd> ̀Q|2O櫱J]unE#OKcZ.mJ:گ8$RViα(m$? #viW߀㴳q_W;+O^2%]R>e@CA'tU$$S8Yg4D374%b%cNM1TbXC:L~
b7('nR _cSKƻ?sw*>5}[̽,x1xq|e֨EˡwbD->W% ύbϊn9+;$õcHzѫʱN61 z2חS#[&)c-
pOx
rj,bȚKR>p\N^Q$uM$+nplM l4p2&k~2w0U$uIʚ Nk'Kkq&T]Z!28VkR֊rtE\8^[7+NQ׳p5wiʚŅˣpy< 1 qhS4՟qxMR.k/;(
הvtz+ O3.\-pS5R^u@n gp~L]1p:IV)5U ?SGn ] OąkBkgh=|tϨWQY-tgj,\Djz&%{]T)r |4Im!ĻU>)'z
'':4#=#w4 s]-mjYVn:e[ Z~ejz+}}Z Ҳc e+ 3-_֜7,f-?TM]a(tǿd ާp:I2=fHgJa+) _;VzM|ύ m%Ilẘp{ȼG 22+A~l5
Eߛߟ#ɋ~ov$m_o`ߗ KWF;1ɱD#2_2LQ8w7刼 Y8OJʊ}aNV9 o2\;Ggx64..s|N$Ej=%`؏ D`!iR#5hCxHNwCU='ΔnjRWN⮡U~^λ~By}xՋn }/~8$oyT ;D)Ȝmߩ'xyY瑉rg^SSVտ\^u i}jzT=EVPETjzT}y}j_\{TT-}EmUP$TTW'j #/UwTlFȋy='RŪ;6>pF?joPA+R~ίKoM?Te/o[خ#Z˪*)0w> 4/-;CU}Is$ y ͝,pש E.-zQ, s}~,59ꛗJN $X"-д瘍͛kHNñP_oIfwJ>_FY6R?g~IOR0*pl 7,봹9_=yAK wP6 |jIJIW!e%& Or 6(3nGo:v批ZԛrNLɢ'vkִv냃 qБ{p erJmO[ SIޑxH {ԱJ 8ߴǮ), t]lPW vNv1Φ!OvzB F8]eɀH> 'v :\)ѣ 5t3EnHX vN5tWZD)QzOy
-On}{ve wBغX k `F±Z旼3ǿ
]p"K>8ucںgi CWt^ %S7 !"9^C|Pb&ݹ 'u,
)
b$W"%LJQØB|P)ΚYMa0g7wmşmdkAӆ.q>5 CL҉iTQÿy$.8 i 4
NR9ˁui֩GL7\)ܿ+:~F.h6=㓦n"}J JW>kڂgm
lj #
taΕURZ{Fkx>ZwAv`r `ӊ]6VϡXhҏR qtP K9ҵփ]A`8
es#aeZ7ĢcXC +"{5 bn=5%2<))t#|xi%]GwRC5RzJ̡MB\$-_hj&4jSKl_=#5 {2 - WX)'!2dqS^:MT
p]I jmo?w*Lm-{K %Ɛ+:K3"* P2`5ՖNͣ ,dz*^Kiagugz"}t%SJٺ,=lj{>s5
Ȫ6N9'Uֱ[
C b /Y u"Ώ+ا4KyjsX\ßSƧ9LۯQ+(vyT9Sr5?(e.(j>)ZuY6^̢_R { ܸ +R6<Ëi0Pl=8EN؝d'Z$u|^1 5I_sHXBzX=6L;p?:s)tHSe+/M NfӤ 9#tx /ZWlȞBͱSO5zv%'Sk>xvwY*Hӆ&8z`wwarWbx[t ~yPd]?}Jk95ӆWZ9;sG? V| vtt!Ģ?ASVQ݀#W:p麩0wiö ."[ w<)#HwXSR1t>&Ե(坟(xM->c''!L`R{ŧ /0SGJly
oDv)ާ|ҍNJz_p4^g Ŧ'V,c_`Y RjF ~ <8~B·EV~oD碸)aIk7(
U) my)jw>)C#ZP6>4@ɟg>\=[Y QgmTζ}tUV|L
\Yyi 3s]xN{q3]ڞ6tjMNk2ﮤgFԿ)~!ZY.wO E6 %} sW]4v L k#\wYLN~Gdj{δ~^7I͝mӯ
ܶC ?? 3B49wYӿ:@ooBσKaȁɬ#Ig~O #)ૡ .۸| }Np{nK˛ߎ60l
LJv@P\@g۱ʓy-tG·<噫t$RMx"k>)Ɔ"ҹ# GF4hP4x2kJ+Oròh 8W8e3X8lwxtq}V0 bwtX.k}$ <u6}/tt . ^}>aO?PϺN|x'x{ $-% >]]\7' Od&ed"s
d~N>2t"L"]o7 tݩ y<qo7ݾ ʸt
o7mG'7o7#:\nt,v3`0aFh( GyΫXɾ<gs( ,[hIWѶ67O; Q*҈ '(/2g l8k9=u&OYa![UMZ봒)唯*
D+;QXJ_)E9 GbxtJMxƿp ȟ(vk(HJV&%ef*yrKei2-siYI~=-xn^fW ,lARbӓ@LeiJ dN~JnVNR%)qzEٳ".=;"{ٗɞKs٧٘@\(<5W˚EYkEda6/)1Sdǁô@U.ux Nr?tIJZTzKe -⏪cB #J³_eYȗea@a'd:ð,' a[|F&|2L>KZ۠L9`mZCiy!E#\7.܆vL%DTq1r+70,7Toa-L _a}/\zOiWmĿ.zۮxݖTeh]gV Y&%NzSUΆ5u6e2\[2A8T,3b)o]V.g2vw:=4=e]|8y-ܵ1T㜋q%Y-9]Yz@] {JFOPEoV9ᶵd&B)r\ :-ǐ
uSllp@RӠ~\wrQݨ[\t߶)whmE=Onot=* jZKϕ d4dX7(n0^.PT=mss,&S(
22s*צ .ZdՒkv@W,!A%}^ߒTi2%2}LHoH:O ?AO b_>]ҿZƟ?]ҍ&Hz_ 52}JS_*?^
~_-OHzL}JTҙߏIZҷhqI'G/9Heɒn?O HK&]JI?+Cnv %f<-B7KziLFI_!ݲd;ט #_K9*gd~??YAL?և>7EgYL$/ aW ǴqGH23 _͗ Sݺh] yHO}ZI/ߟvҗĴ ~ߍ$I/o$O__FŇt,{4}H,NI ]f4ȾGvH0 ^xEҩP
Iɧv7M /2 S7]WQ3X[uUk .z5Um죵SM P>cN%en#Ƚ'~`0 i| kꮿ]7Nr X@{t`A~) |`OYYG1^:{u_҃fZ0|t K 4
36y8ۢ EhZЯi=o XcZ@-Oٶe𧬇 =ȿwW[
Sj^ R ߋ#G=.P pU`'z8
ݼ0wYǑ?i 6c{SӠFJhM ^H| IEە>KH R(&x2@gw7t5$[;yΈZ75܍]0 ؚA㋐f Ł|7fp'Yn͏ 6T75*(s;ƛwüCf i5]֟;-}!sO 80wc{wzŧ|_Y7y0=FSpXx MT~~N kj4=ھI믩ѾhOl)<.[-5ZC'zegě[&-\W2R|'WO]i.}`\_3#epA#ֹTV!2X^ ;f"S)oOA[OΕw}>8~M9a'oʠ~r#-% 0EM`p\{rp0ܘ˄Z @BƱwdX9; &h@
eXbRS;(
iX̽pd9dJz܂3NZ c;!Cッ&1*UĔ C/hyNJq}!>m#8F@ VP
\)V; o0pY<_U{S#Ud؎1PT$]Ԛ /q
3M"'Ʊ/
@|.djxFMo<ؓ7i$!e6ϼ37pQ\ws* MzvYsok' }8ң0Aal)4FxJ;khLl1t.j|{}{{_LD*,%~%99D >F9B}Wᾩ!'oi$L_עCdpxV L 5߇ % }2:OΗ贻ΗOiߎ#1@FX\~>bmHk/;{ Is&.~5C.;G& I&9HzaHҫ
']64i9;4s$Ф>GҿM93IbDq&FoG+FAMo62 -G{3.ep\_q8.G \1\ˮ (.Os X#1&R5R5n4R= p a>FŽG/ 杌.wi4KwE^}qQ!o<ކ n}V/c}m杆]$_(!/w';yH_Ѽ!oEλ .] \ ýw6[|1L9?1L辵WXޣ6.4 $H,\y͗HKD""2zP9q=q(}9,U N/mӸ ں m]m_i"q7a<rOݟxvi% ¦B!&Y}jw\M
XvHHswjܔ?6ϖ<H)@Y-̭1S
f}>5`>lmhHW
^iq[?ٴG,:5ߍ;?@YY3z_{nQњ@~:6A~<~,宸w*2
Njkics ,RwE=zc$/>%PӥǦ7ǤI)P4\a+NdE1?K=g0Lt_LcdW@o&s^;ￔF_WG0xlj," 3is3{....Oi l\img*rSދGH/ƪ|_~y"nnIO~
¾/~}~bw އpʺ? n֟n u,%{ț֗s'[GDCöX^I mc!e+-&wkns"SMJzo
/j#Z57l:6߿7bj˥t$ )ou܋Yc~1j:s2<W
k#DL+<2Zu4[GQt罯tw/Ջ7s'4~nO~2x4TI ߥp)w Ҝ!řw3D$x@8| ~x2flM W+8BK r+!q8Aa n)T2yuFt"RNw}_ĹNy㞘ubC) 굖}
^ 潨&zq-G%)m)o㣎\?yuwܖB<ƻ+^8 Cc7ԛ h땗@r(%ҡy{ի^~ kq{ש
ڙZ_jd\yZzDsX^,}3f9? a(_Įw^+maBtEi(Gq9^
q V7P&p@;}.Y7v0&dR2aXLj^ [}d$t)dBL^dm0'=O^7Y,
S^4ȱj3FSCtT:Ǟ1Fma*zX|&Y? vok_; XDj;5?#ۛ .OTuLԶd=E|yq7#dvCHlGʥJ b+98sw}8P]n{r`ÄOQd
?KP*N{ mUhum|]kڲvxA Xr5*{u7ｺؼ{SmmHo! w
w HiĽ۰i *_o~}嵓!&> RS{eړ3aK~[l&:IxLݐIM4Ya|-*XWG77{O-O؟b
͏w{µ*#t
?4*#T4c.}'r5§^ZmH^Q!̻$:lONM VZRZ_;RZ= AՊ]R vyH6+@UoSP <Y^c iZ/ F̨3aUKk[
4;m^c c_O#syu{ys^9!>h| ބ%Jd*n ﶌ]TNj)~-?M#b4˸=Fd9 )/؎D<3OgnGb3LlJ}!Π3!y"Gr^3y;>0xAVvRlCo"͇eɲPG$ EN#C;f`O߆Wo\ ?R<}DGE1ʿ'
t1iߙ9 zFsU|c2X r Y
tN ⡓e_ W ]gSW4_ wF(5;p%HHh䑈wHQSЁ7W3 ؽӼsGhbxLl)p|M;JW8Rc @
(qR{r+46]A;8vR]^Y~I fFTmVf-.
,R& ͳŶ.Uj"a0
s=:Nt|axR_0|/xL%Y_zj Z]p͋[k
E;M-ƅsDxGS')ܽ#Q[zftSAӒ9
<cC䣈jJvDc!1c6R"F뀐Hx"0 A1VE b@q5#ӫt{7ZqS l.jQi7-2mSI%kg 1OORS̏^Ohɰч{ 6Ǹ 7c.Y j ckdSASr/2:C2?L5?E "Tb],c]^0?7,hy*ִI9A٫ J
P{gy#G^=`}WWc[Zd܊H33 +|=67f:㯄1)^{E rIH0GV,otž>2?ޭ?`y ORkL֨*
*QR%$Bzr.悕8KxAѼ ?^@4
*ׂ4
C
Way 5G1< ؗ L 61{(_/jK[,w{d CO>=aHoQ I颍8&-8l@{r
W춖6､mRF g),xYWfۖozP= X?oƊ7 X?m"n}K t ~
I`}F\> aqlL0x ~Iw`?`׀ 4Z7ZhybG˶}-xƊc h +cIdPw)0L롆(ϩ gg7˘Kri&vŦp ~KH=
|ohY$&wzA RoW1 ٤؈WH)F"jD$Oc,flKc?|t%D-2uc]4JGKA9űj a~`
|2R1EVzl!U_( wO`ir_+ ޭx[yKz< X:2 .
-W_Џ)1JhZS"XzĿƠ燂K7z~A ~@&YN}w%Q(g<1Cgue;fh;?0#SGiNo{&>90BSwO ؛⣙ v-1!M qt@q:9m1^+=]JS=y JAnQ !/7mj% ]:. ,M:*7CG4:u1?tLѓS"+u֟;zAQQߥGa1t0@ah~{0 GoԺ/ GQ{'⼫\;9k8d W+-[
Qsk2P[gaRVʱ|߫ҌŲg?Uaăt!ðl ܦ.?yy-Z%S|_ ztx8z; tÇg D Uth <:1bI/ a "kW =d~~ טS){giHcI .q9-caZ>tQ
XryW At- ̓`
̻. u>%ޱGiA auԉz_ u5N
CҞw w1s!: 5~kwD݂q 8;k1rx7.8 a ZN>k 39åY]?>H%Y`Ri,:es3AWߓZ1«m(֟gn{ں t6NzdQ_ӧ[v8Ƞ."
;r rN{""~;; ;VG6| x Y(CZ0G\Cs=LYa9i& H}HtBX35ZHPoƟ(KַȨ= ;Bژ q2ZT
EעyhQ(I$ 7*{uH%}gՊ.-ZdVt+Cє@bд0s9T2klm /=Mz?#,|'+DkĜ
$JaI*a sX m q/;{fsP"8zRBJO$~F!,1
b\\mq ^q05ء4+!%s[0d]-..mW^ǣC;/CW'Rhwt
u 4켓#3շ~b~jXL}26k^Q [ ?"-*%`q@yԁގ/Xvg}yZ*=dI (j8F./BIԛ*ŜxsqvX{Y=?a)DAz 7np
W]? GB`C%w#vJ^ڇl e)SOEwuVuE^SޡbU?QH2&Mw{SG Ym3;7^qd7dn@]klړ^%</N.kƭfuyۭWn/-G !ˢ r~ E~oCt
_Zq(5uxdsyR;NFƝ< =;0)l;{;܄
3+'~ RvO Ƨ }酶αፉ/!ވlw:E ho~~vd~G|
r2?o܌`e~@fl7Q %?oUFrLں:?kLӛe)$̅4mWޅ|q]_M"E|\Gq1?Q1&( +8,$ 5~ _#2ߤYx=QnRjLQ_@2,8z֑O;OLJ{H=K8dszy@
w ^HĿ/)mI0wAk-"0S#~9oxzx̿ D{Yv=0UǼT,Ⱦ'F_雡|
㶖[:ͭ?Ի; 0si~&5tލ/~IG-xFԾJ?cr:d@:r!M g .68p̑ߎ_ M
GR|5#D|=2
͞1 ð Fw{1)I 8Xq?cGAzQ˭h R`l=!z#
Τw_ l<7< 9hP@
1d
GOo[8-Kɦ@
X "j>kA . C݇z5hI ~SM<ڟ7=z1LX a4f|~74^8&,HJq6
1Ȕl$i%J9Hc}/ 8s9y^鳾B(n>m'X?ˢr~.8w>6
S>J> jTOM3Mw8\#G~V3B MIdqKhnzd
hcu[WAST#D{:9mrq{gQ_ߕa)afz> *aU Rc{?[Z:qq M8[X ܀Knx5#tt` /)\6o[:x?mNuY H|6y,ډv[ MHc
w)dTҕ WHGhւkh'_C@p lu+Fk}Ф՚"|c&P.wq/A|槕MW!.YKl~DCCwE8 Tڹ_QHMb<0J.
L֟ M"OeH
,WiZ/{LkJůU:M_ Z}@u`UkFl.>rZ4N6OZ؍.4EtxOpDɀ}w2| ӑ "}Yp. F&lQ(}z 1$4ЕASϣ8}H &ˉ &5Ёo8WĕT3L >c{4I jd-01QޕF!AErpjhtVuGG
sE4;fyL ?ѐ$U #־L(AQthڌ +)Loi?%\Hכ" ؝nc R|i
0:=a-=at]~UtHx~gO[ gbx<Baą/n6 M.}65jU^RzS>g𧯈^~_-pW" F^5Ehln-Ez@Vݾ&= މv } 4Ƈ/!^D~6:vV |,Bk1FAoFD$,P(-)<h,lf\kPs;Ho7Ycdhq{iaB& c|{@ܐ% C/ ֺ4-ˁ 4 GH5~Gl]?l8$XjzPc;Ք&e.? Bj/}#BBzrȢ+,ǜ1'/}9x͏h雦&e 8u@ف&oӻmwb|ITSC@n=Ԕ*Z>Quޭ}5ZDaLZFOAӏ a923LSŕ0MHtGX#Uwvƌߋ9Bc0[Cn +?ET >@:/ǨŰvUc\n-lIǭSowr0XBNC~<<N}_$u0 qxF^w dt)ޚ|>74_zfI9@6" N B ~?܄"zI?o1S;]K?Cp 3[ж:lRWHۀZ +
SN3h3[ڵY(/8s )r$"VL o=$olؾ zak1 oA
`07(D? F @V CCT3ul >51 K(bJrH0u Ώ>d
wp4S 0 KV"j>ٿHPDE 7J ?Hyq{2/! !5}W-a`64|,;0>{xWmMz~0$ -35j )[r/-ZS]V1ɃZ|wpPOD >K4z>Y7ڻ=p ^1=S>c)@FJI|Tj ӂA {t"x!O]]|jHI
`*Ei˅\.Fn9=9ï l^x(}шqiK'>:_TE/{b;_<3,W0n/=/6 Zb+Awd|*o!}$}]CzTc|I7{Ӏ[yDP):`0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 '!I[%侑GF9t%#;~ԙDr 6iИcZï 7~K|cc< s 2] )
mDL
m@vs|
j1SIA-eRZ`_*˰Ug26)zƻ6-+ߴlMo.Xβ-^n kyBy
27M2s\( uMZPJŐ;N\ F1C^ bZP' eʊI%f_Vi)Ú"\b_;*,pת
j>9+w(}{CdZHCyI):lu&jO:mo(v7z=vZ"BF7Z 猈feMl
jilebZQ5%k`%G;{RY|⪭iy6TP`WK
KꆕFC Eq&R
FG֭kkmܰcɡ |ʭjlժ:]
`Sn$VVm0$q{V:Ωk奅~pRVF5dɤ*ʅZX:Ё HiV̢ ;
]Ր)*02-
AԬYס/().ʂ_PPRAj6-
旊Es`iBl3XxCɬMI dgj P6-@ju.G`z qT5@ek Or\vCY+gg2z
3rpmR[Ơ+ G":7QWB2=i֝fU%3Y%p.Z;1K;0+Dm͝G]Gc$Յ"=ӥԴE܍r\PAk KjLJAĪkh+oH\s5$='uuz72rv2u)5wk&'?bfzyȥ#Gf 3'$=oI'&leSF8D_J؟p]U 7L_
27paa0Ѡ=?CpnXal+:
+ 3= nmc~& u.g
~+BJ~搀 %krtpהKvbsZ\kPVa jX2Xvʝl۳ W,Eeska mbvk^fg9MuT+啓k`4*u*{9\ x5rrh_Â ʙ~1;,+cmhrn WWUO+FP0Uuvwښ6пY§ҩnQlJopحc&WU"Ϡ3܅?;+PI Ȓ<&,-%P!O\ִ,GccnAd:)q^Um<£uV4h㹂4 #\yѺ;;#ĬX` )3;2J 0AD5Ի\44"5`6ѧz7CyLP}
ej%U0Nٹb %VY\- ba -EWڞ%+<
z dfM^7Z/SE
њx_7j[kmx3b?E- `Fp.8f'7n{?qJ%~! nhCޑ&אT r
a\*#v`luY?#'^l쮂pF`-?+cLg ڣ
桦F`^*'boxĬ62
W J%ٶLN7χ J W.sb^ ٕ,՜VH ϳ8+ 6yn1ZĐ+,xeș1Nc^IӲ[ЗE,e/|9لyrɟ 7 |ɗQ'eT˨PDe$,2`6nʆ(nF >q
(ۦ {s
`0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0 `0t J\PI%?/3ͥ K ve}A(ErisqMRlsָ
NEUWS{v۔ IQ*t5(gqyv
r6XM
pd(뜪CquyU`R9kVdXvwݦ4]k6Jլqչ9(ծ3y fL5QVe^
-QPQir():hpj{$pz:`\eRӢ+eVYv7HGZ
(.BZ56/TKMDC[ޚ
hRoUn9l,{
Ƌ` a`ݪza`w㰠MjuaR$( kumk]ݶƎl h: 1V] }j:!x\g(Z{
2
u=М)B䃼afK+ MC-l'4ʎr)DQ6МzjךVMD&iWԁNRn4
bx< ǒeKnT墊[斔(oReQ҅K+( ,;{钊Eիg- ^Qiە*.^T,R.? E.[8CxҒ |.QV,Q]0w $[R2eAr g͞;۩:es,ʠYJEK/?kRtQebd*x JK@]]*@Ϗj$0j7kYF! ` bH0`m0d0%k-GYr泿tkB`9ɹ>j-UWWWuUW5,j>n6ΰ3Yj m;XVZ'ͭ}L4?4#ӏˢVs^Baۍ.l :?m bs
YS=>nAIPxynZS[Vs8kPP
^CzO@?:k -A9{*d& Q@ǧ XYyׄOXmAaN YQs` ķXVs Fk s u &h's8L(wt1`@k_`:'| HS߱8r˺('>,ڊV[%QNym Hr
.W4l=u+yUZuuUStUTiV4êTUciZ,=]?M(oG/^F0E x@/ϡa'gG Xg.\KaltFq n9.WJxO))v #/e< 2@J:5֛ +*o:'Ֆ2v
V Ƀ/v`ybxm}
ֿ zh\"PJJ×P P"0a8X \ B@ae#F}xALT2=5
n}ϵ
5bLU 'z=A+~bC!LaHmU;f
7=?`iyMnB%O{3 ҍee^@ӞN^˴Dˋ @NkmbI6B HȐ5T| .QKXX3΅ 3ۗpW((C!d̖ρ!{ѳ&v
X q&G,Y"&{A{9HEzI62p fF
]e1 hNv*,i % 7(e Fy8Xjؤ= 6-x..,x[eE `AZ{el44ay
Kh@,aHϱ480DUU dγ=8@ Q8T~`Ac^&vO
, 98a< L1h OڿZv_HAaZU
,"//@]gKrZշz!ޞZ~ 5ӱclZCgBլēb ONr9 ]U! RZUR
0>"7JcFmlv2v'WRܹte! U3W)$"ĥouo1\3k=ɱXg,*c h/NkNjfr`AQ j+wi~eZ($h#QE
ض|| ]]o76."JD:$61a@b .8V ´h߆H"jŗ5!G~:oySOni|ױc)td >*W,TND fhH4l
KCl@Cׄ߄b w &vE5 F䡨zAUx-aVt~""1T^KKTaZNla5bߡy*G8CcjxaK=ڗANd_JmjLb$A꤬J*(
J_혐D !i)oS*&YYWetILJKqz+hy!xhG۴ʖsnۉgjW kLhU*'-і ŞKơdsxO 2j|qvz%ń*&z
f
6_Q;8I&*~~QҪ0sic8INt/]W gSӁD?y-OO{p^/m7Nx|:i!?QOfj61^U̶ݢX~{mwVFU L!IXWuo \WϺ2K몊 aڷxӺ
h -UCUvm@8,E(^.-H.w/ B qǾ/$ ,)'k* A@vC L9D@.: #h>Ԧuϩ-m&? w"aO]ȡnpΖ:Y6ԣ ~X M|HtGD >K\bOⵜ+[ܔk[C!Rz/ܰb!Avš,.>zmK`|Eoy$M:|kcFL1`E W\tQ!=7OgK溴
U.G(U2\*
OI}nD up{qso=;WX&Ӊ Qoտ]׀:8z ؛VV7#Kق S5FkLe<"]y%>2{,r~27-.*,0ښfk o5X5]
hY[Rê-VSY5 5OESu`A5ZǾU]X4
jUh}$˼ĹβB%f`eXs@}<*]4Z;8fyCSye
_uJ~` @ (#`,$&:]4%QS.4"}4y{$7$;B:CM7<>: bI} GCq R %Ngbg56l*,i]=L
.4 )H8{kNldzw{ۢ 6n_C]vkۊV)X8wfo7evET<1 :"Ӫ_|n!o?+jtW|mr@O./
H?il @Wd:ʽJP 0tn2 < ZxⰦ^&kxf$G uz }/tnPAʺ6vxs헋E]N'p0T PKa,u8p~G!('!w
,Ṥ_xړ$d^[8D5*߆`&ϗ\gMYd7ZANhE?Ϸ\(H/w hYAz
ҋf \bcHP\g| ^cL:{+3bZ,nM Mxn 24LF
T:*aq&_O퐐?E?{pK'gK=?Ÿ)ͤy\&X
Y3c<%c>̢Fxj"2bf }$IelN!d*6pKOq
zD+:bipt:I5.fd;lcp#FfjҎl>DW ]2;oA:xvBsăWQ> w
[%gR6E'Ay:!!$Ĉ{J hP0r
AdE@B}@v#A%4Ⱦi!_0NVJ>(dIア; Q-` @ V JS盨`렼AZyi4_ A1ok\;ފfTV!E}i.Bd}<֔i L$&T@JG ۹};"h9& b; tWHoFTڕy@- nk7uJm cm; < fCfAB+BBS''I4V2L
U*)" ԢǗBˌ'+!6l\' M p ^lںX&@(-/F4= ~fMSl:$xnZńzTꤨQR-=Y U3=ub@2^ D7ItD?,)##ESԪeZF
IwxS>3Th Jl Oɉ|0|*n \] v{p rj.4ӱkJB1"C+iZ &jf
kֈ\~)E- uS%oiTh 踖݄@nhK &UmHa ?Ni`:MfH@9 @N1&t 4#S 孋T)@ig@'gdhy0\ [^lun==Ћy+5jB;0yܤVn3\5lQtr4 &
bޖln6;&yfC"ufe 5Qݼ%E<6$n1nlZ8t*9v ='Dyӛ$mgJؐwSQ OpJ*ZIz>idI3KVdr5vx ]_5UJOY %"bEfU;ܺ "Xt1FTU clpT<MU /av<{4[Y6
d茹 :Z1ڀ y
KەYɠCkfM.p}:ymg&GP^#Q/TKԥ0 ̥uً)쌱bf5߇ד}x]6ن#k7W+dn3m @\45*.9&ĄqNLVPİ=0_j
i#"C2"I=S̒Ţ缙1& oa}1 WhddyJ0vH'Ma, 8"{{/Hi"ԵfG]c2<ﺀ7 @, I- .H oz?M9Xcn2|6=sز؎ ehcu63CIپqv`G =\Zn8\J'vv! '݄Qh /{h@"R`NbB/)Z kfjgcW%tsXo! g>LA H-4?L ľ/52⅛Mb&ql,'
i)qņ?lMi r[TnTk%U<!YI3DHy6BVg&$kyvBg($W? jL}υGP![ ' I<#,Si{
F*GCKu9p`j&-kGـo霸
vR1ecFV;x*W'-;) 0I " uC!|[QJuTW 2ޘ$ィ2+:ˤ"(x'Z%Vt X%^a ZZy pp@٥rssSv(B|{#[<'2L,ۄw(
c38 ۗ^iR~֢ϗ#77F7}: ZRIER>W٣# -_
fW2ޔ'(Ir"4l` ;@w0b_=L ,6 zYrX{"SVLM!w3m)9uxu~~k߮_Y7Z_z`|~m'u sN?la s \%zT?;k?3kM e7,;љ %nmŁF X-p'o<8h 5[qq9B! _prvG f]UrxƘu,;KbqH mp6o@MErK/}O*ONuP A{ xWJgMu #LLoʛP*o_,z_ 2d @2g' agGU F"OBLsK`2+nMt=F< yo)_'1`3{\τVtj7N!o8I+P,Il=HH C>?F \e<#/*y*/o(H|gF[ #ȍzOVO-^~+-+ɚA2H
ׁOڦ ȜEL=΅IbT2^LXӳ\ z* 詔ǟXkka52*ljeO0 UNSY{Y|%\WqDi&sHG~ϳFA{h]'
4#ɸp։s0BtFX<7H/1TWFV> JPӐDz[[3b[ǭR.GsDy^c̖ns6Z|2gGɃ=NZeYR4ǣ9Tq)ys|w$c!ٝ!ϝf?4w&ĸs!y<녙0~2e mSMy$bEհvyzn7xhZ[R]mj֮ڭY}kg":g[NG Vv0w)weueIuB['t:G֮ Z;Z_fk!b[Kd>}<#吜Cϳp ZuUUu
IaPWs)ɼfZNMEN*<+2D
z.: e}ZrD-qE fYvL _
8*ڇwf@'S@)#s2~5bWΥE75O5MYg&M;cr q ,AxFIx60k6ʈRhrg
ғ7aнN\cc
^ OfJI1 t9$Gڸ r2
&FMk&Y}1vu[tیsMF ƶ]F6UVOv44T<8d@ē &\*VPK
pYA
.5RT)
4OdAx+F7Ȕ`RTΉcFcMNɼCNbmY47s
\VEdڽ)oYK:+D/9"LfGrꄷ8IsN2=z)a. N垖.}I-3yWEwgڭ^{TŬnO! 'WGvw f:"L $;Z7X]V/]NYR:t(*B"Dh/+Ɗf5:"hP_D_A@oFGQoi$[E4^}2uRZ
L9L]q#
v`'ȃ[ȃȃMAڍ yE6
k&+KLAq ɟ0|\!~r}0R#< Bj :ӧbK7oK9o4X0r(~ыn)Y
;$Zuӳi~?Nh)$2
Y3t%a &l6 t{BM7F>ͿqU.⫇:BKXfrfq'DhhzE` m/M`~axޡfv\- `p1y0."A NKlǯxl\"-` V2Eq0 áO|C}.Kf*e<F5{+$VBn9 vζzh̳G- YnH?!lUuǕHy'⧊=||gW$wLdv5i"X؉ԍݧ`@S J& Kx
+k iB9r;&bjS< 9 LdXÈ)_4:K}O ĢC S.mf ʬ bۇiC^tLd`$(UluC y٪b\je \VEEj*_c0"f\s Lb
GQ|f} ?*sFo?L}}:zT*J-+
w) s$oгH2G#bTd̗
OzV*(֎ S`ыcrn-I`uiO4Q/A5/Bou/Si&Ft Ϟc< CCI
q{| }
EszC Z,H$h~-? {)7 (5݉J٤XJ l/g1Fy\R @[K&SL
nx;CMK R Ig&*Wǻrduq=
Y`"R,!C@rȾN), w(# chX4y=?Sa36 0aN3L5FUg42>eyO;O zSZGŅ<.M¦\(H7`4mP(Ϋh q#]9ѳb}{5 '. )Y?)vO02 bJB>ySPӔ+ώ\yv;\RiiۏֹS˩
4BhEsAk\h ^ uUY
=4,:eu]
ZQUb(%
>o>N9iI+#cYQYqxqAp`^9aN4G {ٴHvhH`t ͱmǨ33:*Fa g J ׅw0c vN.T ] c.*j Ѥ߆x]EvхFbvƊ VC r4$=k}W+qp
tc/Fu& B R)\p HPqOEB5 A :Tc+- }<7\0)9fiH@ԝ$z:ѿs/ K8%uSRpT:ΩI ~I\X_ 3
4<<ԥC]::ԥC]:8ԥsC]:6ԭ[*yZM=JGM VZݥF켳U0d/DLQ9?Y U<5CQ186T)̜_ټ₩}۹橀甋GNnVE%3צ6ataUC=͒ b9cv,ܭJ_
dG*fx>~Q:#j"(Fr]{JQ9R^Wk.y}F' a
(
Ԫ
>[dV> sZNWz;y`i*)4@CN BPCSamWF: V/ 2A8V̓Jʾ`^(4La˻{yK Y0@:j?yj-Aa- ?B
|8?d8v>QһN0
ݑ| ~1w.n\/;ҿ&>n'^D4 NKALP (-
P nS vHG Ikߴ}J!GmLN
k VLE +I0a>
3E%2ge<.굏a3G.lO%hC4B<ݵwq>y眡Nx0!̺ۥW !hL`_^ z}\ y̢f5^aF # @6CfZB R|?ETs
oAq-4 T`Q- CoU$MWZZNΤ>K
s )sCCCQ6+k3rCC3gBwq:~Wde? GXaf XaFh"^ 0! P +b#
`7
P%>$d!cw X$͋Od? J8%gטjɄ p!OB}Nq}䡰+92E(xX-+ 2ck=tvdH
m[&<'IveS|vH|$Q#8D^rIZv"QALLu$ b
D,ŐyG #q8Ώ 8m5S#M#ޅ5w
ٴVf]KUA*1,mnIJ[=_ Kdi:gez&" N `T<>"̲a,^z>5C1 pG"ڶw0'," Aۄ z3lO`gS ?&l3f1^%Z+ۏB6dQflOc{ یmB6bQMfDl3 #|8J. ۄmCa緝2!d^yBpⅻĘ:ceT2hIR ¼u3I Y6O<{wRŠ#W"Ӯ !{.+a큳q % k1' KF&PY=H>0kQr1Ocf `H1ᅦ~=
x֦4`\"krBUM#T:*JԨ3J섆
U R;C H? h$'f y &EC1 dP#C-k - M$4ГM·B{DSE .uZp Ǯ}t
#:V PZRBv 1L;q
9XwMSǎ&6F}v1^ҶfK.85:b2+
MF|JT)y$A zFL37lH%tG;L>wѓi\$OPqm _7@$1?P[ׄ6\I+/Ik9 L`UR/Ŋ:&X(J_ 1>7SmM[[EBɔ^)Ð)SKSiJ樥9ij<+\q02ۇ2o 7[i;aNLY+ڊ%
IƍgK]e0.h# >j0Έ;]#P6~(;FK N B`jώE^ZR D S,l] FE:O$2wB?H!f} z|V.rHWj CZ H缺j e|DY}c
'|%?1cC}J8x mXž;0^Z륁 /嵤g{E OTq/rSO=~ /*ϟև! EM7S|9k6_2|qփo8!'*pEnCwHCv~(e[dea;M]o n?#?8RJY3E[^C3iy,Oy3A2@% _LЖȾ8!ԐJ
[ctɭKb 5(&6̚%
u
g O;LD+v'MFt[LR1Bꌏ:
뾫λn@l+nlWt[͘Hk;פD-;W];s 4suf's)2_^v˝ P2Z|m
Ep+ ;50l鐦J3ctu+.>hpj ьSVWY2]֫J~YtJ tS|UPOPQ'N{5cjLm !Bm -rJd t(._$K>C/drs$M$ # cHOu~1(&{NU3@ַ9hCQ_uPLkLw4&;z3$Iqm!Ќ\(,YѾ^r60?k $dpj 1 HP1iMԺV[ȥTby^vaE-t ֞9`: )S~@6F1= NY6#l17hUNbEuc HxgP@ꧠq +.? )c}~g*塩k;"=9/^ mJwoD REPgW hQBqE zȎ2b 6B|Qz%1?cS>;"PNzf!
L`FFC\/4@H,]Q(BF tW'Z3Horn*TGU,MȢmzp c7c
.:- :FXaɾIV( 6Q^7
pλEQ8WN쨬4tHB=/Nfx,O8#vkAFQ=H (
o` F
p=8HO "2#Ŀ"2 +h t5ʷNCA7f)>+"[^_҈c r).6_^
#߁#h@cA-eYqdvWԀC]]
ymW
)(;~ZV=ym4H ڄ <(lhQ[N
&֟ŷ{Xz:{G$1NfrHW]?&a5C9R7m( 9ܮ;pX͆*'Xh>+mxGW"pY_.Q+um)N[]wYցX^.k:.k: \F办cx#J. E/W>3
vB\[ `] fa{v]!E;->H&nF6p$PH yjn[&Ԣ7@d 5 ^+}J< JN72 N_;Xh,f{0 ,/x B1 O/e id\LIp\\./qOYd" }8>Zp# Cqd]loi"$P`g;=`%0$j6ڮh%{ 0?&(Z
K*O-O+ iJUPL8/ry^t._US@̿Wŵ >=nGe۰tG>$Y-!JfI)/W4F" 8FWNBF~ֲuUl2̢pWOv
wtj# xTٲۤم5P(> 3E6u
8v(K`\wEt`$XW'rfg&xE V/F@ۯ=P\/Go72Dާ']V(D' H`pG/WhcL$\I`% uQﲶN̲A.8 `vi4d:̼Br0pL͕6G^J|BEkj_ܸ[<b;fsќYߞ 9\wNޙNx맽>ozOTt_winH}1 gD|vf @} 1ۚBD|<驈Ӵ thh㿢ՙ.f 9RV_S?>sUU>^Kgx!v[<< #e߽шJK p;;;suu>{t\W;>:Y>䷏:OwܜqsNMn9qs(K:nNw:9 r c:^n Nw|q7>It"T݈>Exc'{8lhs( 1&)QnϘx 7oL(7oY9#nr7iGFܜ qs7L|'99M&&9TxuΈ6W'GJW}ԈWۈWG x((h>
+9 >B%j䃕4}TE& 0 nR't!ƕM *ͳ-8^{jߗ?Q%> G :9)p0> ߏkVgC Aй,p0/=
ߏfÜ A0,p0o<
ߏ7f: ʽGYKJRI>
iQ;JH1"EJ EJ8"b;L9 ;(~1 ;̹C6)Ahmb;PY:;ыBQD, = ]hT AH!Q[KUNl̯{ezMn瀧Cvdzʨ"|']=},X
=e'b`1S~,2T+X)#?2WS r/GN+e|WRl)?\jp}IgTS` j2+vj*0W\ߕvT5vU+vU՜Ё"A;-5jx@־ST7pF?s
{gz fLddJ:V= ?LWs\燪X 8W F;m뢴|~;@ƍJɷSěcE\@EPz:Nw=ۏx6WX9o}V 8X8d[8s l%iV
=XGqH0ۙm|l+ãY@ dŎb_l⓮oWKIu q7-jTy+r͝@ 9iϧoM8wЭkEūv}_EަZp
v9@;v_F qb툸;~!ߒߕQ1ރN,d.crt'[I::IȻT>)XLa8 8 @,cAg!ozwʊD q4M_~rF4R̲l
{8TRH@1|Xn oH}#8t/wF˔{2G_hb '[b5Vn}l\l!{/C iW"Nsm ߽ޅ^v{x,w?&'p6ㄬb2jI7J 1o " 4G
VUzK068ŗW>A#M} J0nFA}UGVF"LNe 趈N/Џ ! S5<ߝ>L gN~b Ul]yVZa
4fd&'7,u\ O.
Z"'fk d`5AB8 (˶ϩ6bgwi/X2䈣k_(7*=@PK/b 8t
Ǔg g m |Qe.4BtJ~Jqhb친 %}b%'(\_f}xtAA˘we2jjVmY۬56<>YV ۬oA˜weҪoӪ$V7rJf%R \n㘸 fhm(>}XM6qf ݷx Ϳ
{ m[N#d?|`[3H?ÇWQl;eqDx/4 ew:3+ s4J뛛ϟoo0CX'z8u uN" X#)Q S& F͇t.2WUѣh%ǀI㗤>x6Ӝϩ<]bNUZB2`t,ڌV * ŕVŝa^]û|
qǡ_LqG!fۦ=j
E^Y@cP]o69P.l ŲQ.bco_S̡q#
#F' ts]B8~\Dp:ϵJd-`8쮯h%ّd>klMAr8nN.t]k\ Jr47l*gp/ J3K9k 4>4+]/v"A4c@YM4cl F@ut$<_ AX i9p
qFi
"~V؇j @"x!Bw܈;q ¾!UST1ps#G
Ft0⛏sɭGU_JAS-iZ
eAU=bl:>ε%m"FoE>R"; 7ZR#axe0[ǻ Hi ,_v`8jJ=4,ܫc iS.5*]2e -.YM,]6|x8z4"wA %'B[( Z P( HĴ;Q]Ft҂~OϊN\ĎP$~+>TS p)E~)E J * OPvFC-pZ$OD.χt>kk{PRT{O>,ݪT zeR^$;l0bӨN|SnّS.8h%H.)ӄm!sN16S[& # p^S9< ҭVuY%zSɲ/W-ӓmVJőE,|f95{֒|4˷֟~~%-d,平|uX[(^ҕޑfQr|A ne@"5JEnwqq= A%a?9zQ1q^CD$Ie 7FIm8T'S4 !-##m% wOZ> qc-Z&
mw' +˙hL)Խ i/F9ZZx~z.8 uώGA?z58JTZ+D;.%rla,h`c||E.i٨8 !JӾO'?5djŧٔ-27Dܶ +
061ynìũpO]L'O]AW'Kmٌͺqi iOxa߄r 8Y9W+u܉9>t[IXiIv)A5]'aRgqj.mi@o֘-SngGrێ»[9ݦ Uq28{2M?'K| s?e.1BYd(84@ - Z|`o ph!oD ,> [ }8PpjYN [@}xa!hP6Ήƣ
ΰb0 iFÅ~c2oeսNuV/}rRf!
[dq49OXh/_}RW}bҒQ3P=w*nwerswu\lܖ4)z?fճ ˅VJqr?܋h\D2wPz"v meD W.e$mk-_Zˡ}z[;weuru~KQXA%v%[/'3m,z?
ۇJe]ɖX;ARܯ+H%}fW]U_I+Fr
`5~o_HkWOYwkrP[J%r.
S/:+/K# %8Or5j^*!AIJuRn=$a~OW
>kWse3f jB?&ܕ'yYKkaoqRtMm(2S睱6D*qdÖN8'OfE4id}M ^.-k՛6O\YHMVGӤr$T?~.XeY(?VB-xr wM]2 ~XyP+qTY+QcwͻD;D'#j5Z>^բ({D˿oU
H^֙m+vV|
.ZءÞ G
9v#zn݈Ft(+t;͖ђŃP_h}L]rN/s_9-[CT-nmI_$Wpm&{Z??@`^l);Woa+-<Duj3?0
NKo^oF W&:ouhy+ JZяQQ{ؕI-"7p s]S ->j?{rJ|0(YꫯFvn}?d/w4={{iƖv_7{{[]{}
^z3 V lFz.M~i/d ;G;'aZsnKS&Z}a1[vL|wK:[4 L{`H`o-eY~Y*:h Y,bncjo H@I}A:4H٠{f֚7_I> *w/sXxn΅;E͡=*/RSgνj~cigwWk>`<.L(1no~ M빦0PzL. \nuźF?[Xc+0C~N JE >δxR"ß], +$u[RdͭݍJcwݱMG?m?wttoG?kq3R9,Վ]IȭDž gG)IݷI3<sGPigrխB j /./ƚo Zˮiu n)iWn隯K"Q9)BTJPY[,Ԫ B "g$^%ѥ]&DYЬ\c2_cv n0\Pv ˷َU5tƹw\[?s$ uMV6NSd{ټiQ s ֺiEV( -X .b e9+ɚ}/ZL{ѿZ㑵TWg7,HgԌ$7}pD@;3!&͞Mϙn\zcn;zO|X [(HŎ95Ş_BNr5U,u8mV1ո+?ɚmwV̥l=Zʲq\wp-ˇˡ<
~W
AW nX\YW]/-OQX,K%qٿSZ /gǻ;Pga>Յ {v)O3Fɥܩ6q\r!S[1GCr='i2g Y(l"zvzIkx0
ݙ-W` KQ9\,oH |gxeWjKb,7tH;wER5[ pd$W%;.ݽӺ!?<QJ륧wx VjlYj^gR5Z=Z |)oiY$cD:R ߨ܇t;RIY|ٟr :!-[Y֢2,큔^I6dWG/Mx2+/Kn꽍{&976+g){++Se,s}y!\
UKUb9Q? c}ւ vkt tZ-wkjYGH) <|B+{
Fp[h7mjmt XOhoz| KE?^َ]yi):;͝D5^ Ntl Rn-yt!6G[ytB1[@/vna;+]i@YcҰF
zA^S.J Aq(ŗO$(|RboXrw0Ylؕ3P%=imH;lGY9 4.Ҽz=A#fD8YtMlMڻěCqh>F)|enK\{;Q R?>k10]SbR/6r z+rFѨG:} E\-*W
嚥Ck)5#i #YldQ슮.i͐D\q`=ջJ5^Z>CXOlr+W eОnzHdP TZ{ѓöJ'eҦoVlاm m=낌["=.nFvSjZ.W$}H P:di$(-*y_V7YpťVמuzQjv~oqG {s28 !4sGV-%zfWhp˕\ ,ˑTD
6hO6D6ñjW܍郺|]w?{-Y,_|?Bw?x?r ysQ 77#_SɴpACNa{t?H F͉6lMJ=Yr{VR ]ⵉ5Nؽšqd]IQ
F}'UGG7m"ibuRX7m ^JIC~bMB:Mg~VҷJEwQ4g=z7n LǡX[S
c{nc+}#R9:j6|t@<clDJ峽-mJ4]$p JIރG_/}K5}WoW[^h8~@[|{ (mg
%.Mooe;vٳҎ=ٹ[@sZ ;-m"+6|Zi^+Bw1|~Sx 7/^D i=tϩN*n7G}mew~K*n,TvhuPs/vDVSYXs dg7}h=]~>vw^ݥR֒D]WWSݶֲDt%ƶpCJ\H:;i5HW:Ԡ K;
;>hc &C}ǺΜ[#f 7ö5tv: u[t&ڷ3_
IzKتQ89⃗zA %.裲, {VE}TwE}TwA ȂV纥; ?IN-?ةԻ;z`V Ի+vV
kKe Gi#%=x.7ˣ.Ҙj@ .LHtn߮]0w;'vtP$]L*kKTod%e 9Y̑uOWR+]3UN(ʾ~]J*.9ε8H }Άkg#=W.}-aDN-
Dr>K5|edO-y&ZR;
7ZX3T0%W
HƁ 8\ѴF0\CDaӾ{͓0}h،t ɥ[&;25ZJ w1VC8:ɟ}]*PuH@ٺ T@: ԬJ z[ l,wۿޚ4wG4 g_G7¨YL곽.~.oj [w抟rٲ隊LNh>S ˅ [#P
O Z}x
1eiiϙ_z-?/ ֣GOyB 'R ݾ :JkTKld#ʏ:'ut4qQ4n#kar9>,_ڐaCv jʓ]9q(+=Y(/7= o_=ԳHVnFC ;rs'eˏmO,:~gjM@ j%@vk;d$M*5
o/--:<). ?{wfW?T&e٦7Rr/_kv4ᒆm]Z3r ?GF&-%yQg|z+\NR%XlG _̛ujmAה{ {V&w;7 dho,[7ojޙEv]dHi秹kmDr]ZyN}p4!j魾OdVY\yk)M&Hi
L9:H{t[~2\hiME`:ԃuMc fpwǎCi(7gSVѬD~ih͋ Jv%~ F> .uU?6~nsF!4Nc'pPvPϖ,h z/f}0'-Hvaވڻt&".g@ "?OmB;66{Cy)TY-l~/t|_1Y Ce%BS L%s/t7na~c}u4lcpn\ϯ.Vu5/-Kl/ܐn2~ w'u*FaT.jm~B&?ևi[i>o\;ZX%WVopVKOuU#ʶbI|JZw|鸬1i\.qUdrӑۮ~~肗po|Rste{ZKOÃ-o87Y,H+8Ūtgv֎?_&_겭ߺ\urn|wR>Vw\JďVVwu^?z; yWboGV+f+m8GV*\ 1ٚP"|ل1iz!o#}MaT&y?
4gfT9$M^V8x. Nfw\huڝBGe$ެKpkw/7_E=y8q=IAg\}2<W GJTZWzR
h/&7f$$Ɂ@ n=u}>ai3 I"9؈ޡ]> ӱdůܓ6Jm53q.Lox{?Ml;#[}9\R%I%\^`0M
Ij!?Ir)pZ)V9Yvk|_rLk0l^bo[={U.`ofSmطֹ}mG@v]KĤծL=p0M:Y7R s]DF2H%$]iؖ9 i-H97Ghtng辎Tfc G:jK$#+%jnI竕Wn\ rw]VW /cGJCl \.Xe q)Ic ;wj1
I dw[uqnNBיdOސd \}O%M [~l!*$j"ek1B 5Sg m.ϪH: &{ʻRC5}(GP[hGGWV7ݙӌ C`+)uXfRhG"@
˵EٽTϹosַU˱d(-+9/{>}{xt M;Kwr "ΗW+3\ ߓTr{b=Rۉ lo74pdoG$ZO,{ pveؚVdgp~: Լe-Ԙ_~t YVGQZi-P>H+O,;.!< α$ޚK>N=-r俯*զ5?Xۛ z[ -Ʋe,#0+!UTҊV-۾fY$sh sۚ<&N[9!i4fgA2Wӛ/vnj
nav&*gg"K{&lޘ
:pA~JV( =axK;7; uM ח @L>
f/qӤ۲-MV]q] ̹=;H͠'#(`sqp"O6#cl<|x/
GƝ8QnިP~'\P>ǥx=פQ烸TvW$M<~j數S 䶴*aM~;Z\8ZhVZ>}Yo[Z+1ѠK;c r UڕSV! }~X$*DU iH|6 #]9]l^\s @B<)L;OO,*L005Dsq)ihk6H{fكԥ[ aq|_; B `-k?g?5ՔjZd
s|W= \7K(7w})?J~ֳS,Aȅ4jNt6ӱm1+ͮv`31&TIj rcYey\xϬvxto\yUf y
0}zaoyg'm/H%>f: <:`$ݒU Ɉh Ew4sӾs.ZX+mˌw};wmֹ2&ZyNGj:g6;ER[OB6y;wa֖֫0>+ #u| f3ё M4|c[Lwk~p9V@_'6~ RH%WU(arٽR!_yTyxO
鮘~maPr/M3O&B >wy&'5xu;CYܲV8uJ[ -/^]k2*Vqufmgqy*f|y!LozEK4d`nF) } ԂJbϣ-/,.T_>R%Xw. ZN[1쿼*_*9ȭt~V^,|ssiQpi ű20$0ll B܍Fj#f8z/?y[ y[{ Hޚ~KR߯sJ
۽N K>(S stTGV,w73G{z9lGÞtY
o{~ǿݺrO K ݏ$Uw&%wϸU5G. sK[A {s7(\o;rigg`~̾}']٣ٯfmR߅Q
t
_r\ ]xtիGWM ]uU ]o7W+nvuststs9n`T,Kig_] }?kkvW{gWu߷lo7Z]-&7IR#Uu?m8r?vVܱ3,ʝ7WR)l* wMvTuQU U5;uGU{TڜMlmvݦjW6 r\<hB;<]+}?\a`_
q0
N/\
0x6LsS}j0q.Ƴa* Wa|}0s0
Sg_ alвY`9|ffkz駿$ ]su>%h T?mϭ eVn5V0r因mZ#ܲ
I V=z{ɳ/={rhk7on4 0hLmc#T.M;ki>챬9='҃}%7rdqGoS !
e-$c
G6Nc{> :SIǚߏZ0{uBҊ ą9(tjW?R֑e[Wg{Q[Ũi3}1~%L塬A CQ؆C0t2XwABD;FCX\`åpCg={`w<9t["Xԙtt ]kFvy ;KNkYֻS?nUg.zPv`j|^ * Vܞ40?v]3G~<t: a{rn7 'OYuפt2rAM:E`W ն n5>`wj}<7tA#%dV8lݦ`+sBM6u/ju ѧ@>7G톜sypf8u4MwU=s!B39=Sqz0aIfec5jaE"E a7A; `v1/_=ҏuhs^=an6tc2wVC>0NmâGrkvi/7':*R+LF]C0wy@Zu@XIw43t(P ܅
.wwwpNn=ٞT@ffHղƋtHaq#
g\JWh2:R9s/]hK!`ۂe <Ѵ&hZu$}Yo4wI?H B 6^/W@: nvş.N {JҾQ p_OO^ ~d:=;;?05{{β,îs-Kg?CsIswuܴ`v?XfhvYhwv}]ks{{Q-\= ՟ag|ˠqSN>NusO#y̚笏w#y 簲cB2.D"YD{`]Z9 o6t{~>^ԇ0ҩJW.1z>Osc~\_#_
k? yNl߱a GW{>wl[ OL) dC^o;=67q@nbC쩽-Y`IÊ9g,\fJB< A:A*Soyũ:Teaڃ+vRi}xc\j7K5mxޞ8z3 7OeqqnE?DW~{bN ퟸu>1&R!] 曪1CtB|.xȢr.>HLB5mK/4KZ6= nWZ~,cW\+[;TK>$P$(釶,/NJ!P_,+eARJY]܅o,i93ʆr[o<ЯV
qRGqq|t1]yݻWoYcwպR9 pK^w_4kk\lYOsXŲqb2e+u37z?g[sM8G G{ty:x;6>.mm/ 8JV/%2M٭|m ߄ ߭JGdԵ;ҭuϟMNҔ䋒VH4,Dik, 8ØH`%e"⧤I>)}[oS^|Y;b:/:^< L{S%κD;[9qGq7
9糬!ܽK:_viCoJ:tJ6m)/_)yyڪѵ bfOL2}~?t<8Y>?IX*I' NI|b)g#Og 4'뤭)Y B)!̞ e$=M
{=sB!6LMr!POr~rM9j?H >q=h~A?ࠥwݞ9j7%{f+I ͓T =~zx 29VUlLR-0-f*ֻZ ] 8_ ٭eg͝ wH
١ǽsbZJ[W{6I\' we+% ;|6diWzQ o8cZmY ~ ?hܛۜnMIZX1l?6}_2˿
˿8Oq!ՆǑ7 A9r%DlA9DBRX7nfQZ9 mo~{a]cawʖk,+Kɗ]Ù}̂FPyF vSNf{n
:y6#u[wh W;̗0uu=DtԔ&=괡m:& za@.CﴻR벂%^[KJ:ZLѽa4}dmLtt6gm^m qԙ亃tf
Cǣ/x9n~Z&-&##s+:Tvw? ՀhE[`Ǒ|hh
1m4RW _--Gx>1s94?cB\KAn38Ni_/5oO L>~ӧ81wiT.rl\i7]F7eQ f73> IA{ فv:C=n<<O!.%*&{zb^x[ow}W4Ւ%uK Cѝݾ4vxbXE3Rނڧa WR}N.kg9+̮BdX_^>vv{ -spm(4 /G6(KKftom\Z^XoFM%-̛'# 4JZ_#ˮB7%!:t$0y,c|I a$5E @iwISuZ[[w,H0_e/mJmz[B+I1_xzkfZ\-}!B,k~YV-ɬkI5Z2mMu:ҹt=r
Jml 5w,qؾ茥M? QfͲ pړwژWHY=CE?^~r&z1h,D:O݉{OҢ= #g?]zkk<ɦKSo,n~_5֯@pLL|o]sܷNX_˦7{
mL:d8\;g̷qdC,|; ` 4]l}5 1 !v)%ׇS|in9TmU.uY+a(ǥqSy\>_ [3mm,kw0a?%k߸l$B+iJk
! fiz~d5m!I6ߍ'O$^D4t2~tIf2//*y'156/6Z!4҆M}6A
a? }}/tϏT'#kdUF?Ѥ~k8L>*i[TMkn9{C R K"g-&z&i_fucq9O]h[s_=\?[J+aO+{ZɭiOi+F_} ],D_>O<7m[ި>
>+LCuhr賒ĕOwt[[N-hʲ6Vjwt[eY6/vo(g
P:noN.XHPReb/ʗ&۶#'iIslo'5^(m:{߿/,<{& # ], 672, rnVW4k|5I+rn~}wE>l]X__RY~uչaw;rJ*5%\]^}7R z֪"Y/FI ˥]1[%HfݾFI;U|
~.M5t:nױ:V D
E&Se|}5+
BD1( mBMH;yJ+z!kka.W?N`Vwoir`?+@Ⓨ>qY]tUΐ; LNlpDZ J6+0\O:eݎnUZ1 {fɮq?V6[wzîvn)ds0)tG0lv V¶^ZH wDԹ[
k#T.Fo w |J͖HnFmӛg)W}љؤ :D X(u!&vwNK*#}#k]vBYgkRCH%Q}%!; s-J΅ɴ mÖ[Yͅ7mpt+ycƂ8G.qUjiyӾ4ܜ%7'P|I7KB56 |;;M KDq(3d7} 3"S 9H?Y]ߗzts_ 5Ye!ےŸn
5Y٘W h6
_ 'd]}Esz)3h}O $C bvۓv"0Ďג呻C$
$ aj>?DU'Njw ݲЭfhߴpVkCՍT%MVl<n Q'Gާv\ l~H*w.=Qv'w~g}Fk ooYt*lzPq)pt,>&amf >A7$lsi"i>
y|ӯ8o.ضƗgcΞT.VKb˃n+$ ezõ ePirtL.Ls٘6cs^`괻`:3R5+ӑWs`N6|Q!Q2E6ޡd:5Lnlv뾎Q3wt2;z ]IfpeBQT.[QHq[C
.ͦWZۉL&(\ǚIc`$~tnw,O~VknU_D}ٸ>~ E,u
~O2zmh wc[ˢE hρ:͎5w$ ͎>k
9w=ݽ*z~,ye2ʊ.sJAsbq )݉r'/$Hx\} ZtmBG f
qeM]`])~8Hs?XRb2jd' hӲX2֖.@Ltj`8E/Z`9\ի OӨu++\
YY / _YXyeN=,|:Sj ߍgn~(Q[Fr]ttT?skx]c OKUk:y3ΗUwd3%\«kWIW Eznu^yOc65އݻ riwK(T yy]̼.Z{#]GhQdx/5 ̾.Zn_76>~1ߗp*,҇⩞B u'I {D[ՙ2l$}p*o矜֒;25CO<F' mk][ gpCvYeѷnE]Y[zy[*ɢ/ʢ/i
h7bJnɗcR\c%w5 X6&CrK'SSylǪe5V/gN=n?af6
fƃLRID1sIƽr\˞WO1ˢ+v1Z1笓~F 'P hY]ǎU] 7Yت-&VgG9Ogc,Q
YĞUN-X9cZ {9nҺ#i2G6 M{.-2 w4-;hI}G ڝ!X MN5q)q(Wř'|YV#1;aMdrP&sJ]w('WKr>a S!? ?Kso i{Zi/'WV)
M_[J5/)ܢU歭|!O?:kG G?Q~̊VT,mM[I =IVa'I>je^b ue#vW}L#bG D_۞OlZó~k簭a\}XHs
gjGt[S*K50 [M6 lH
yE [-- U "WI2iNf̤UW>QWE+O,
+|*Z]uCΝ4I!qR3ν9{d Ҝ G>i 2xNRǰ+ {,Z֖
>fWϵ?¿8_ܨq55ulvGn6LC\ug[[ Nm=4œ c>G%azw/yG3mYa/8mQêܺ,L7_얻] (kLZ}3cyw_%WKgܶuG=)L7<:ug+Ǧ(OP \7%our{WlGU (}?}B+WX OQg~kIt]z?^9
Y>t
?v?9#] ŧ(iǶmz?Fi'?zi^9XUkSo ;v<2;USlrL'֏ ߰7L ~z(MOXMMt?0}v
s_.Nr-$Cy;_݆CvM=
W]pԿ+ CS$t`5xhۚhGϬWz_UMl?s͚o{)6 vxozMV[e) YՅ5+Ǘ c #7ߘyNjѧzSr1 Onttxݧl}Zg`z87No|jl/ϹfWtE)xN5]0zߵ G~Q raA qN//}3랏})sH']yiϯ}cg?&O;i':Y W17~Ê: ?h;g+ǝS<@?/ ^9 E O^wo1?GNG/iEr<2c'_>to^9~2}\nox߽Sv (q:'Nq N;tE3t]ΘǍqy&q7RW+dž)=H 2_wr|ǿ74yw) Ϟ|;vl`ڇuAr\2ҸM'mo陾㡯Gx]R S<' =2=}/ꕣ{M|DM>o]g^0_w+` cS3gOӟb?qD;#JϚhK=_#zasGp܉ƿ)Y
sd#oxƿ%u ݗ^{g& oj nqdv|G|hz^N2{Sg͛}ya۶?f*uϞsKyamz\ ?dǿ_˼¼0}pާ^7˿~_0mQ tTqQw]L8\i?Gm~QazGԱMǽ?G]_ 7tQG>'mQ r?9*LoG_<0+=)!m[ "0 }1?9
Oz;K }ɹ ~z7f Om{}Uӱ;5f::g7mq89ʱ5GI;D` hӈӽ=Yg >;~)?^:2&o?9S>j㹯WXǎӷ{7??e~8qzcӛ?r=5N0_W9w<蓳6Wv]q'_L4;&az'NsS8`ΖQT[c?#/y~8qP Ⳇ8 s4 #NW8=s ;k֨j-QwhޜE{_V/ӛ8-Nw]qzo 8}ſx>QK7|+ju[߽4 ǖ=n{ }߱o^_?{\0dnC5n
[rKL)>+WV`ÓTϿM%WrI} I }I{I5I?$ǿ3IrbA%{,_~=?r? s/$9gx ?$߭<${l__|?Jr)ޚ?$w¿Orkai4)_sΧ>oHr7'[3I-/ڷ kZ;7?}W|>ƮmI?7Ò /'}~n%^$}J$N/D$$'o)I?oxW?:?棒 {}+Igڒ WIm߽&G yyIm' ~o<#gwt:/{_ ~Hrky &/^'G&9'9/+/8/߯Mr?gƜ$ŋ \[Z~$/yg_D{N?62w MrDs+yG_$9 }I[6$9/~d})1$?q~۟/Z?MrvSkO|$qHrWigy'\?Or_~{=C&9G߱, |`]փ ?o$[Va㥉/<7%9{DOO'9D_#''o9Iw\7%97|?~#[ g g=6ѿx'%z<8I?Ig_IGޓl&9$97ѿ7I'$O_D3WD$y7}0
Kr7>$_ݝ ;77$z;7$9I}{' H 6yeI˛nkJr)Y}_T_l$^DC?Jr7*+ syI$g}ÉW ?wKrꭉ>|#%GoIr;~D >+џO%/<ǒ 3V%_f}?ɋ$Ir>uþ|V
WԁimӆT-oj(RsSMٞbjí_M_d˕ye飪NTRGW_Qg[w=;Χg0Jf*pl͕e_/o+ϯZyRϟjj/+@6:.^wS.=>^>_HԞSSKx4u |[f3˩Eƞ\1uѭڪ3zA QZZz\!* Q~-
٠.;sR-}lܻhsT v6f+}|jIMp;K|)^Vs`fkjy\OMGq-\%>TW4)ղ7`ҟnR{=(8RZ8r êJe[XSJؠ̡Bծ5i-r- $Msy`\.wDצM
dʕl-;.7 \0v.ג/nzԮ`Z~RY.;Zr%ӝܮٵ*!Kšz~9[ڜɖCKJ\ߺq9y}|6uXu`Wt`L r*;UI \0Гԁ /4q˦ڸR*SN]dK]g_Բ9g5
S}\\&_V.Hq枿wKRk*wW(cZ4y ul x49552JO% ~^m i>gF3J9; f 7WR|`*uߴ
ά=z <}4*[ō{5 Mgʕ7RW^ Jb#oMeuww
Oo ꗏ Ow ӽl@qPi+W
f\Pn l ̔-b 桾rsiKsgs{ eRR9RRG)xLv_{9 ōB[OЗ^TH3r'3s\T2ݙre~yف@wӥlP.ߛgJg*LO?Sؘ
\>f t{Ӿί-fUJ|9P8Tɦ\0)*xV:S
eP9,CasT, d t9[ .W8R6zi]Alac{gGے1eI/^cqzqGE ^ٵlYWG҅l6>6+xM}}ٞJns6-ݛ+gP͆ݚݝt&]dJQx\P
(`=?L)V@o{[Ut>UN
39X sT-UJascz*1abx֢1a3zLT{r+
Aؙ1BӹrxAP` qj_I'-/j(f50T
#쎽R& o(ݜeAȅ@Eٳq;/d O?>矗^9矺!%O=k |Pm Mfp (?k-]Ao8X~ SYY,\ S Vm쯬zs]ty~l84PFsf :ʳO]{͙R@&o?v]k_v۬l/w 3T.œ'j*W=eQbŪ.
pbP!já{A4`)ޔ]|G qcdAuR
B-ܙ¶-m Ctfs8,eFl X?ݟ
}yhp0&CB.\4hBoP(Jв5 ,LPӅEgp!wL~Umb%
A
gu8k[ݖN_ [}~K. jMch + |v
Z *, F6D[Kƈf /wt;r9plOZ-A->[ ч`ͅX}TL)xVܵ+{iۈ2⏗MvicGfd! 8G?a1n? `@έ
a.+/>:wxf ^ f/ Gos?xY:o0jq9.\)_Gd3CE6N}NW yit:[2=7? ̏Oh }zVkDt QE #K:Fw^01ì\2>xD{kxpߐ^\zsN I'B6X?:=t_;UʬUõ0GT &%`Њ}K&-a`]):uT3kߎU]9 yy&jh^HuĈ ?SjG㽴wxo;kPΎBT 赣y4zOTêgET#ƫFWTtte֖/z=F窱=gxubPwܫ\DKWcD__yBw _=ѧB}r_-4O_سQ{ .nzU|~.~c͘[WUƺuj>VOh91[n'bYPr!zj7FV1ռr֨c4^_96දYPtP>("xiIQ |Ԣj< --υÇ`+)\~<+rq#OV/ȹ9bX;tQCbo6 k3[R'[?rΈmɔ
gԊGeĜ̶YfFLCgGL=ȇ{ Ym4bD+.̆G3]
wp )7|u1٫uVv[(ZݻF8V;|`lk
/5gZlFq5nҎ1m \yf_ڞ R~MolEJcqt<f\08e{۪{PeWǓ] s{A89͟yT/ La>>ӛM:
: 2~foތu3wno3m>i3l}fԇFw E7lq}~OCgvV^;r?ծ~@MgYu ]wA7 p:mּm7up LQ
Oǟ8+ů::=늺I*^+a'IU*JKRd]tǹ:JEwsR%< <տ~h-YRVN/>^uv,Z"ݹkIGWҗ7^
yՂ' 7/kL/X-m
vBzi{I+N so`' )pqVt*79nڂVo#߽-]nnޛ\ q(k7 y7ڝ)
azC՟(->Yaj%Jf7zDؘ
>4T(_[=(s=]3wfg0F;~n PιR.7- tBP,dg ê;4ۻ0`HՆBoqKz}*Q=rA
WEJVM KgR\)P5U-@;L.0kKV#xsT_(՜_(=Aƕf5è
~ `k f¶(f 㟙 6[
Z 9d
bCAd/FD= ;[L.Z7A ;[k ݾrg=&SU6SU}ߞL;GQmx?h6 #k9 ՚#L-GMTUi}k
jtc1i>(=rm-^ *nE
J˹lO{
H_wa'ʣsy/K&I.l/'Mrko#QzQX1Fez}0{Q _]Oony7գ;!( cOac6X2<, ǭc7W:;: r}'?xK5O-q3*WzN^1מFq# x:wT ./[d/W ˻:VtuxY4 N׳:o4ղi ;<[\Ot1]-e*R0f`jyWKNĮ]-UurWK10 `liMupp˺ Cpml .*a:k, *tSƂ˭ayy ;s__*m \϶kO=B#_[77+)76mmܽ1i˥\=5IIlU%73&)5w#6 e#K $H$tB餓ndZa23Os6g'ɘIKy8wxO:a^f~;AamPÕ
&L"N!A& o8iRe謳*VE _kS/c?;ˊv FxLzMB*عl} p 1a̅coK%o vͅ _G>5װGȘĈ Lzܐj6`d3&M /mSqf4m EI2L5T]Qg0Ӕ =bxC)Qq@EgJ|t>jS_nno_>~s O.ry9϶g;3/ѓz{.zIĆ ? lbs6.<b`HԪj Z\EiMS
wL`pZ6fx TFqTԠG]UDњjXYl67>UO=8}Gs쫪ggKk#W8P#KC EN6lx27PN^ aDh(Gvh\nP^ mթ($WtL2`",
>EgظP} uRދ-L~KPfZG*_ ]쨑xzB#[9n,|'
ȧGz .;Tm[-Z~O3 ]\G,g!:5Rߪo^v
`G ŜU ,9 £ň}`PII68
߂e ޯbI*5h 3h- Hj
aJ$,{ES#g9=+6Y Q
I][r>sݎ/U~zUJ.(rͲ` ?.X8\Xqu_Tpf+4r 3戩aneyg %~i uTz1 VȃOz-
=, ԓ }l7xxk1Ȓ2?EU"s GK00U=LL)}=MgsZ\|| @LcL)w BY0Yv dx}cj%5LuVRYMġ3},PflT"w #Jbs- b#kM`5X8 . }DNeaP<4DBYǐX7Nj#<;lR-_E kX,L\pms@ v1UP&S Aa@*3%Ms࢘EuvɞL0Vk7[f 0=,.JY6V=h=W.\t?xn+e9J5 l 0 (ƨ#} ljڅeI{!+=_44m+Hԥ?==.e~Ɋ8pDj·4~EY@b 7R @+zKCzyws4:[-ofvnA 3u ^da +^B`lwyhJnaV״]ϖ E-s&mTI5vNn^{nn e j=֩X,-ͮ'j:Ƕ.r
LzYX|:Ǘ@:=4{`,BHo ӯ`2.4AJsEsLNo _%WuϞU-X%`!VlNC_ &?c+/MiԹ'u 8 ҕlbN;l(1*MVlXhlq@m_1 7ZYþ?i!!MBIin:qj G'b[2/ 5(݂Ga1\J :ϣ29xB%?3`e \RcwK\_ix3ZlH4gο3{qaMQ> po_5·ẃ_S܅.g>/n/E
実%-Lfd05Dx:e81R߾V_>HւVD
7 =2wcH
v&ZM {:U#/nL5lαK\sXi5(wz a,юmZ>.!70Zti L<<48WGqO :+ѳ\jn;E#Qs FvJ4Nm5HETsN8 CK2Z ^Nws
S3Jwa\ (= ?}Bsq:}q2oZd!#4oddW
oF / qbG6gl &E? }:fx% 6NmiG;ݚi*f0"ekwz@yUX' X[ 7Yg>qlm4h J+L 6xGSd :m7+ T.6Ӂ֛Lk::r1~p:Hg!NZp(Qd?GC8$ ںAx?b~RVz-"n0|SR0%aڕr 1v96*`:rb6=T@vA
8f'd{Ĉxp9f:tE\]=Ʀwo =Cc:+V-q#F(s 6/2@h) {73 V )]ُp߅_ȭI W ɯnof~NN׳ vy7 ,%Q&|8+6Bhv ( !;T 3"KѭU[;kX~O' >-ŧ9Z[Hњ=H/ ~dsl~+Ih/ d]oYMS0vr#yK30
<A}wS1N 8c } $UF
-*ĠOːqoV~æ>kȯ06m
,.YQ'klO8OhZj @ Vp t@s*u_a\aҷGFJ! s( a >ѪO,R'/(+)ƴ1fBJ(JɶE;kXdϵ\u6EL 34|"g&Bo-D7g#"g:E"L)ſNa '^3d\E`@y Z4vB]IT o6<ǰsyۀ */XK*A~^%[á Ks]¿$?6 ] 68THz6'[Ų
^BW;;JK^xE`O)6 4u
M
a l j u.
TrZzM!( x˃Rݰ΅a0 ߶h_ ӓfQ X<5T%
]x`j^qU}rY;:_@A?(BI:jkDgYYl@M;R(Gq=~X<Ygɬ( .O t=14f+2hF-m,^kx
R#(J\ݍ6$SΧ,BZ6`c zW
=I
:4H ѳT@d76[j93F-6 w]eԝsmp) {ݶ __ɈnYMH9"H`
a{;7HB5aŭ.g5Yyz#LpCl}W Iv/]O\ʑB^y!X&LMZ
0sna/h SuuEl#{f]a +g 3 ɊeCBpYxE/W^)Z`y -Q.|,""&8ch+?EIY?r[
# Pza6~1^
&֫:Ϗf~倜 dyztf}%( r˰f^?2XYK&)/
EincR_:I*l] La(Z`Hh v< fUJEľ%Jϯ*wU>9,d֭4ި#玞 ,8L3n-54,9UB[]R4~^Zdɺ U}k2ZB?iOe+_N2 V{q|kn}) FX&0< DWjDr N@Go@|=3ih_U>GN. l
!l}P&
b IM*Bгs+0ް (_2^wOlޤٓGQrrl`D宰1Ӵa&v0NܤѦ,߷Q!4R e)ӛ 2'XmNlc&1{11ʉh#Ę3pG#gA )Q4?LUCe &w};C3n?/y rL"-pPqCЩg
'IeqgXȠBޠd-,ENϰ;YM g-N/mL% a I
FL*rDtN$I& SJRJ!w=v6ZsCyx(Yn -=E߉,RFLj&,._J|Ww"Fx}>Xrn 7[Nb5%nY_vMSj`pinC cx9Ne WrIL&)*caޱ-EH7n3ac T_SI^O($ ̽uHӜE Aq#qWq|+FRqw0"|g{taV+Jv-A:
u03cT
Z0"WC ce_Sj v2@
0;Eˠ^g h!vEaxLⒹ0S|OV y0RE mH g)V2Mh{tVF\W(>UkA2R+l;d[P)I9KQ+NL!%߇:c~$Fb VE2z=yL.ax>Y3 u*pCoMP;)A"=HCerjKE]iֶ bEpX ܿ.m ; ,Tn'0E6ZXdh֓'%FZ 4}
/>9IVʞ8j Sys81t}$5@]Ql̟g̓m&Fw`BvZQefT3oqM+XʩCCJc-B
Fdk5wL_m YZ~ՙ4)t5ڤsntz םg;7dEBs 7UD{@K6%Nr ` N)?4gksF Un=AdBL3FQ&+L ƛ yż/YFd(e im` PGZT ,,g7NW m7QBZB$pO= bw+dɽ#}5| wFu=f$ ĕhf|( w$ UK'I f fvb!Af^C*55dǒwި FP&8 g]*}x;Yˤ77 eΖ:oPEL~ͮF˫QIRp AW8xVƻo{0T $%SH`ↃM!%\MЛT/NCՁ9"LS9s11+tof}֭eØ0FR gO҅O1Ьq :E:urwEqFﻧG:*w" WT!#qzq vL,ZL>{.
.3=c
Sd2uI3r:Ւ %eK4 :E3Qn@Wlzssf ;W12% iDe#D@k^0ef|Lkt.3[r>ĺP; .R3>^.⊂Nq5*Q/ pS5
lY@+3È3:Z~W l nm0"azρzJZUU>J ܱD=KYp? TK3Ś +mS7;{+Kl<+ h':EJ݂ U*WEřj4 J[]G̏3zjAu&3{f0,ﭳb$[%%oG4D/[UH%.{yK9 zc{߷IJ~Q
A0G54'ؑ Ѽ1>k)\ C5? sٹX5搑jBBKA^} a H l,Ya8`B%LY<$06WFqF$3(pA%ߥAROWcg:8"߄ Pn^ !w ԥ(gw3j1@QD{6tXU'j ||pF&rċ HY Ca VeEٌjM:ʘQ@^P)>' i!s{|߆ "hN5^əߨXg bMJKMpۅnĠ# =ʙ.
8- r$sxqQ!r/ FH=d6(S
#Iۈǜ b^\)2r0
˅XPu8; mOwuSd,Wq1r=4Nnjv{"5 GEĸ~h 9L
c ϠF쨰@4JswN
[LGψ$WY,}P ND"
@Ӌ;0FJ p|0}duó&T.Z
F&/>xx^gW=u>%4m֝nTz^W /E-|I #=>
|bC]̈́0YT@ P`ĬdDjTI5,-0
|,zv>sa+Xa4v/ֈ}elPeu.#n4 IBf$[.0հW/܇3A]Q̱}j?w@WƋ+Qɶ|h:\tL" U#}j>ü2^0#g]=}rbr)#ɣ\u 2郻9r(5hGd[ֱҜ { 89-Я%:9kUޮ%g! [⑰44'Gzu?ٯ_<BS- X7`y|P yB2eԋ7a>':M|7GBK:6?ř-YǎSat?M3wII''D}Ym8b% *3HFcC#gxUjy~~ = F> PĎ̢(a=Q|<'ۡ4[6 oI.(z1#j%OYGS.MVm4MgC)A
IY7%5fewH<.~ ф)K[
aכ7fT b눡,OlB |XЕ,7Yj]
Uтt۸WI2.%M yyI ɻ';8I0kQY JE*M
-[f/J#q
bF#u=Ds< )i/.,!YPD0U NH1LeOMQeK :79L)tv[Gx
;4yoQqw9}nt~xv O-cGP%%/lE
Gτ|e}lF:=Ī~o} f d:K
n 澜ye|(
;(Wc`