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
4X ` U'Mn-PRb^wɖ6MHҴnvgm7;l llICy z*ڂ\(
S(y;gfwgdӞ9;w3;GYco<;:}q8F!!E?6FOL9|l,ݲFYNKi=
= \rO o/o6<[,l Fvؙ/U ; 5zl_^7Bg&-J\ ZQ}[fR~ ja(ca}
3}Xe#|cӯ˝z: 32{}9iNϐ{5U;Lќwn)qN.)iҏAhc" SfQ >8՞mfZ?և)/̉ ,ϯ/]ˎw;+,S'Ko8hOat@Ju\혝#~Zҗv|zΗJ}79#/Lמ_U}GJ1Z%cjf& o}UUWTT'n, qퟑ;5'ooT,7Y>M_?z +Ϸ]rd}qW5;_m/txݢN"k'ˇo?uOZHBzyzh蚱sGUyi?*N}h|\kCڱk\Sc]1YguU/|⏓se oBt]+iھwu#/ݲ||PƿqVhGq Z5Y>*S>xHva/mQoEjo7w ;3ۿ ?]bf ~qͽ97RWMr563 )1\=l6"3KlOcfw~iGtG68fnˏL=^SϚ 93t 3 ~{s1i4?43L}7rlso_~ot.4_<ۿef l}ۦ^if=gf/kuӟ63¶[E^_b_>?=3??1l 4,N/mϿNm?qYf t/{l릾fsL۶8l=?zioߥ3dV3_4r f)wT~3?ï=afsOlgmIfw_/mkGLxt_^3off9o-ASl~X/|fazSo?NSvۿ:l߿}Կf͢ L=͝~\3LaFԿs~ߑj?w]N3?6?}_a33Yykl -5w/o_{SSyES?oMnlf?M{7߳+SmglGGv|a)3ﾵQS]{3O^3ۿ+L]Ydhik;l+fM_4^Ww~+Wmx_M=/)3ѳK?jfw}gK%3n~IS9wj1ߧ{0gG +l:Ϙ_0fn.0ۏ| 3۟WCT<,rt=Vr1]`P| ĜeIZRW-$,66]\VT,.ۊKlV]\R]Rr1zVƒܳ2* ܥR`_$
J.It~סzd(EEv$nɽ>ѡzfD"<tU%}.) ]-{r)R[Zke٥E82[.Bzɩ5^#+d"z$W,c9s(EE=>a0On{=j(Qnq{ܴxĚzm=2UyK<Y[V..҂R6汮Rd7F:54:,K㻠A
F3@Wr(2 $HR'WByzQOaqG|[UEU ,KrU6qh>ʘN"&O %ںơzXDiX-9 VVEu!n={ p82+:%:gI
u6%H^ٯ i41^l ?f P
*K9]'GyGfuH| Y|.
X!2CA4Q R70!*~:yX :$87iPnmOCaj}Qif[ M ^ޭKhuz|8YC"EYWdZT
s\X+w GHdژINNI^KJ݊葬w}
=ux6{| b7nS(|y<P>4RJ4 UP(>P)'^I⑨"zc)3 2Ь͛$ Y(_Iq:O9(y:T֤;zIuiB)h,\
_Z[bY5";=ڥj%6%FZ'Zgm Y8.JRe ͺZȖ_l/(xxEּ:p1ٕ_g)Q;u(qWR#+% J. ohBǯ ԫIԑh=Û
_CЂ4r^Ⱈp:^8tt
.vdkֹ ϟCLj>d7-)~K'|}$hlBCy$jzbqQ4 ګEWwRյB%. !u3i9sU_w .j." .-ݡU[;ѡZݪ8=,;
K;Wa^PW VۧH]TZ-xk6ZI/頷_,neLօYaD0Ҧ
=u{LE엃 df&z'V> =^U6u8^KQU8
X_&g\QAk4ż? (Agׄ
-$\F/-گk@rح" xpӼ1 AQ6gZvf:DnMxVjP3cKeɢW 5%v;mi-,h .իJH2w 4Bg[b}zs6Of&jK/勛jƻ~j"k<^-.Z(:
pueC _>N^_Og c C͚&{~|[yk{UU>;Ϸ}a"L 3e
i)tLw<,:4APit3%-]r$wQ YY ?[R7>:
AnO|6K." D: I̢{ |, ȲZ@f?CCn\ [XTV]VZ]VQr M5oT?A%_I'
Y+; ^C ]^Z>[\"l]`_3f>V{s+ء:xUpG[Hm7 `fs^ ~:O <];AO/~7@0V,RYt.IN!=Kfij_adJOk7<53A*] i=MB7
BtMLW3=0Kw/AUzF"|c;p
ӣY1ߖߦDkvZ~~}ZNԎ] K 6cc閍4ȍ}NΊ/wZJi %ܟ߿俲f+,.˪
OfDMPvKv/S_TC[6cC mO~Qr8DKz:EDW\ۢ#cܡ^ҥ#tjB^~R5|[U(Ό$?{9tv[x&q XHw]ss_Pw>(_7-AE v;
VW,.ZCBb1:!?-bm qbb{-3u=m"H,]X3V-6&W>kӶshpEf"wtŠߚdٙXn
dE;+"g-N4T%F葘ѯq
Ea{"k˵sZk(k/y3sC#.C
P>pvd^n9E|.ʊ2XKvt{-Yg,k֖(D (ױeWsŶKPFb./9WdїäW}9gQDߙgHB " ۧ-ݦi/sīx1wz!WsH Wtg?{%5X,j;rǹ. eb! jQ[5I 9C+s҆rXD ۍccrh~0aƆJsF:7-O閑Ae=c:24aehg_I!ܝdS!
c*G[ݜ3-ۤ/m#HuVeM("rC[WO!k 2t A!YgӞm ͵P̞7iyt&x+e>dB:KyR?" 'ִa-vӻK}Zev9C,.SKv_kev9S,.geڥE,痆{1o*c⦜ Ӧ-R-'7FǢuT)Jqk~I } 5,>ϐϲ^CFr_n۟&Rjx4Rt /? j8-l `}\D[ PB_`(?S0ZO_2QY \[ !)C/nQ.טv? 2w2yM.<<䑙;,yTC#3Иvw/Q+7f1<60?&~_ Vu B#qHhӃf 5~Ss64jnB y<<0it O)?r]TvCH /_ǧ4֬G tӝ$a՛~9}4tJ9;Y=E(*p10 <%;y8ÑDDN3bL?-*5mY;.ɾ9d鯳 ڷEաWzo>g0?2L͍\l ;m)Cekd&詫,LNjh]{.-1m|Ro6]2wgn
{fSC=1sGmzn&}6dFaHWK^*ۇ& nrs)jN8j8/P &/nʸx˻iܪaUAY9'ԉ-naڲml%mj_9YʊHrZ輼?R`/t^>:j?<#dd lsm禱+o}$ LSf 6=(FOh _bdƶ\!ks:
CWyVj7
7dd٦KF|R Nk* tLaiPOd7)$jrjF335Cv)XX+g >=4;lsX t^7e
|]fgWRC|"]Q:G,O (DõC^sKJ=(#/ڇ ${mv'YtbL_6!4,f_ܕ3u Scû̌OfACo_k$5]R{ [bc2./H _k ]o:Wo8-}z[ClzVd D[9y\NjƆ ¬Mખdߴ/+(^*Yk =噻^Hxe
yަGzV{)F6 3FI=\3g 3eYbm[dgk7kq-ty0]gEm38{5Ωv=kxVx#N duyi_w7 \y&F{v
A:}}&h.kZ{NXW gzL:5xf}I|}emN`['"={5Tf>9%2W Ac1K ˘H.JsFRl; ϣh(/F' Ikd><.&>Z '!*3~;L7 a 7=a 7h mD X=Kmy c ,z0Q s
-l&!=lv% 2=>6'yI]fkh&8)Wrf^IgM =tx ^Ia}; ۻdN dƒl+9|fmzjmU0n[I-Mwc}dm7XUS2+~՜:+~ռ;3~efMa7FIo |hSqGOok&k]O@C覇3{h+uӾ=+OXF[Wv=>< eF bŇ^~5]VS#Wl'om 6;hnE xg{ ijR~Nʾ3tׁ!Cb(#
ۏh 4^zT_)yw<<#p3&
8a3#sއxfj[oE_\)ϏļybOX߆ e_OG'hL >k4<jíeh>&8rY78#$wӅЖ@/a1 cV;yvf_^Ew! n]sP:΄X&u;iw˓zNQ dYlj~;9o [l̺~6u {{nkx-)`0 x=r/W-Zi
^^J3~h*[Mk'~ǒ5Cvqü,"j0Z6#XP VġǖmBK|a%iI}&~}c"o5oڼBBdIpb4j0CM| 6&ٲUo jQ` a-K[DkMb V ^&3ǯH5ʞDUԪȌrqZ-gCM{ a䥤'p6OGf +gz;oGfi2<Ek-[|A6|^_ /s}n%ye :5ZGxn}67*ӆYz2-˘ƹEwk#rMqN3 _Y5n;yU!V fjVr|N+ڑ3̀CˊP6ye;h 2oB
tqcC]KyѺ"g7
-܌^Nb1<__Gu $mTgkdd/MfٹZ}W
G9x-}ef +lBk\/Wĭ5Tj.ݵ O闫-tMwsY^T֜̑W5>ղʘ53h~f|Z]52t!] >3n,IIa.px
"*{C=4'dnӶ\=5HkJ= )`;r
C _hrz(;g$_.J)/'<{rAwJݗHQ64]y. ڧ
3O~kW7L(:V:ӼDZ'[ޕEFd2UNCidaCKӳ]S+YWK*B9Yծ>I>ُh^-ռO{[hx6voP}mkfZ3c6vdP=
YdBpƬ +sx{V.Ygolt]Wu"PCTEߛ%Mo;r~ i
-Gr}|,I|?Nww4K Wn3ſ4 9u3 kn\Ϲ52{i=A?\minG}Y>ECzr{ɷY@FrȽ4I,E=D%rwLs'lv^A+ȵ'8ΏҺAO/8?M\S-_+K; SI[}"4>~NA] _EE[UEy~_Wue ]W~DJ>XCn)ZruYL?eO9c5/倸@!== DYKBQS\p8+4y'@(^#e"svAͲ~AB"aM S-/"6b.UrxVs7K4x(
EvB T^4kE
x$EX)wzT%4 d$j\erbu#% dDqJ熮<+
9 sdᜈZ,n'$CQݬd-7ˉp#lEEeҠ>Eht5:G(,r4iڡք:(I1P%?61vd:==LKOMJ4ڿ\`cMRN~*HWIOCXѸJ(z]rK
d;Gx|=WĢ^jƲS涵_`o_Ug_HHV+<`@@ԳeT@ѯ#j]Z$h@`W.Ef/
JC -X: Ͷ'R20QxUVԹy?u:bAOG_ f~#8(utI=UՊSfڋŋyoD8__ v.)%@
_Lm8<:ףG5Gf÷#Rj5&HjiUU"5 6~V
1S@/
^{7KXq,Pz+싴njQ!I2*Lf=VZu7H
+%r=lRP,V&R *,m/A e˺ JfḒ]6x)ɧ?Po~/Fg,z^TNن lU-+v*v}n:(tw;BUu1j3>1~V_,ileB}KceeYU-|V >+ "YejjI`iqjIXR[V#WVm
XM~XS8?|(s5G@yQ릳@Z?0 4=g]XMmUw{^sAZ !l`z"ˉCnZ@P{iF[})wx+) {/M?s35ٕ2U ct6кcks01B=3>SR8lMWυ3ߝ'hkvThs Oٞ9Q2;Cwu:zweis1]F ֝.֊gikE lp! [[2gC$]L};ښt|93+xE/{ft<6-uΒh\j$^~wީk|xݙ}oIUe=OF} Z)^+ūkz<^l32!Y!^6 3^&z}oXS =Awm!)y \t %-[3"B6"W:#ݧNǿOc| =RBg)i3
P.fᥚhfghx/OK9_ݱofIObf9|[lklk>df~fnYnfW2uw75jaf;t; fOIgqgH~ gGq{,oo=9}o$
;wAmximl3r}o4>>ovU&j[͛rEˋ'Ya<͟"M//xb7߰xM//j,o~re//5Jye 9}Gk Ek7߰GgɒO64{r~xy46wX~x` Am?Ѱ /;A}A}|8i,;Ź>u/˞j։oo0_vG#!cx;8gro~͟1dmT>cK _scMo~dS'bF#;w7/jw`D;JF}ЩX&ꌳ6CU7JSJDCg6~Vl O;x+-~F~:cΘ ~ڙZlb}r\DEtENjG$oz
QvEl /"eų.cYrO|i. Θ_Y8ڙWb ȃC/o=vwIT
얈Tdz>U{zDEl%\ .wKJkUiu|hTHW!KE)BfC rvӡR֬{b5z᳕3+r>[y`C9.M0l3}҄3MZ)={Ȩ zېke'\%+1)I.ѾOa)7^-.;Ln[gB77L"M"di<˧J5 2~UMւ"%6j/ iJ(*.xtybD)d~ZWլ[쭫"kDV
7:#cvdd 9w~5/$'z^{y"- {V
( N?r5z*Ee/hjwlk
ʺ/{
KW̪$^_F^"؍XŕS"h.E#$
i},*sQ>3I1!-o4)](g+ӣ3 I>'nI̥fT%DB/GW%yLU{=.ʣSK
?'pR
VÛeaj=
ڝ
R#4)pnSVb% A=$IRAaR$!JVeʵzU*imʶ7Ml{cmvjs'DBl T< ^/F}n# ٛV8
ʊi4kh 6+ {%_.2A#+LTNvQzZ`jyN%jCR@QW-,P,v p:%I TMj^*^*d9.iYOKq':*M vϣ;YCQ $=Guj>NC 2B;Q^'?S|\. z ԫVW#Gi
P|Eq:|n { O,\3o,:sITL> h~a Ufu.Z>:6@ioCZg٨)Z%=SBr%y%bM^
c) '{E$"{0$aQa%^tEa3 bK :vxi1k d6ecjM:J>fRr4#k9_ H0R*+QlSGPuP+&a `U7y"1**sxT~}sSO6=!A_8>fGŲh/G_sdۦ *>*R
e8(rGLYxԞyHuW6cqpϛ$ZB*<9lfAُ$ش+/I0W2W:斒Khae
VnO4!u}~JR\ۙMA_R]N iW["ha+pdŋ`Ë'%S::!JA;!o2B)%# _(M[NzMJ0w>$Xt\ӖaӯDa$XKz6.(rGneXaq$]M.^xd)5gv
/æ-iXM?qa
Qqaɩ'1[2ӗq
5%boKɴMD/| +o%b|d\I$#>!o2B)%#c(OxXrҏ{ `HH] y6Xr_LW4zOVXcO O_tAdruDg$$mqgW$#u|# W2R2$drrrL{ƝBMhrƍ/"r8U>Wƕ; O2듐&!ӝL_24ܣ}Kh K whlE`e;άҊ!! vڛ4v:;?iISR?og "d: }KaŔOK*XS Q
@%)JxL{(\5j/^2NWRJґTsޏ/iOJ2bc LT*\:ZeXG)&=ǻ)yԣy|y&pI=ADf8qN?dI߸%Iowꉾ|O4$G 'qdO|p|GxIlE$:3'I4D擸I["IB-J*1擊}FN9a+r{ef/c+NS=n3fZ T&QPƺJ{G"3\ xk UՙaC_.z/D*RGa_ ؛c Aò _,%tE
}ã;|>4,RMM=sz?fFbuP%jl`LR -H@cl2WrD-I"AnOL>W.
x:bZY\5A V IvǓR6xJ̠>
)*1Boxa/\[f;])DI}>/{ѣ`ű;e9^P^,yD # dJU} Kk :d 1C5[<*
`g\)8 ]c:qR0:WSGʼn g8uY{L ]Vk UڋڙWC)ҨN~Z/wcFNYbOii?4RZB(Ů52oVͷN[_ӯ|k5v,2i-mɴI[K[66S= j3s eTXiK-
}1A jFC*M,b9`kh\hbMLJ4TJ[io=k[$}Yj>>{^k933j?s̽t-n; o.{wg OH}$p06p䰖p@G:h4vd-rnԶsnwR ?X0Nuр i|FqgͥQ=A[E\6QKn,3| *'疹O0̾uyޒsg./SiҹAJ"gV y7܆='0;솲p)!v
t(/6n7
˷ M6 m#߄C7]f.7M|g )xQF / -X/9(
;H{\px)i*`˺t16Պ|7:(nLBz EC&1)u`L
v2?e2e)2Eؕ ƢVRT+]a
ƺDz3(?)S|h#z0y#lq#lie#lthL~k~tdܒ9ϕ 9+<=ϗFu(nL}Ʊ*ǩ8feGϞpmKꜜ1مǬjE]6ތOpi- 0/Ϧqҹ4 ٣}g_ze:>wlCx?ǰ1MT7#x`Lws |>v k /:I)cP܄OY,gL+5F6z3 ?iI#'M|_Q?!p j} yō8Ve ,__6i:tMҴ蓦V6ZcE v7F^N O -n%5GYxĤfeURCD[>7QVnHi7inӺu7F_AmǮv碸tG(x;ByJǸ~cX1
L5̟=>wֹnaح×{[zӰ[ˆu_x9ݦϞ2{zl|ʌ< ,^R8?VzO;4n ^'?a=uB#h*bѥҋtM%%1qI~qpR v )lga7 R3ͩocEo3! ܞ:rs'#)#l0CG50 /Bw l4? n(pYW\'
ٕ:Δ#?r= h78?5E
*
r_&r_?r[pxHu qla93wdS߀]`mQ97a} `Ⱦ# sÙ7]8? o9?[sx7ϗ߁0 1s Eso0gkElyC- Έoo6(}oBz#z:_͞[4'0G͞[nܛGO|;E]RPp٩jK'izKi9*w/RRȟÿNswE)}+R.8#1x#EwDňlG e (1\gǀ PKC5\gd;j d;Q{_}_}_}_OW۔^'gv؋KٟE~?d[` QT0r]=%
ImM{F1ʃ)ta0O/,
a\X%
&aE&lv;AaH+T}8a0I"Lf a/, ˅UaN l6 [mvaSBu/ $a0]% BDX&,V k:aI,l ۅ NaP
կ~O'L& S,a0_X ,%2aJX# MfaM.v
WB0V'&Ida0M.f yr),apH. WvaWxHhJ La0[8]_xH ^!a2"ap0ALHX) kMfVap][!+
{8a0A(L Ӆ,a0O8YX %,.
W ½F+,
W;{q,apCW+<${X 3Y2"apYYN7_3.Y|,aؠ&|aXX". kMf~Otlvn5 |ť
7 Ey.~Z͢FM?dW6U^kW)%l?ƣL 4jaCL,k\|
6_Qۯ*qOUK=ѡjZ#\~Pu`C5u 2T3R[n" n# ֭:k*P Lp)>CW;O3S% ɏ_*Y{n[o?tpCQeNU$,OL+lX!ܯY(lZ|aCfQ9^3$LYY",ۅzaۅ/ -va0$T5),aPX"lv
}OyaI.l5k5quBL\A ¤RJ,l
UEWӸڕV@8Q[ jEX\XѨ#LZ)v5kFuM.lLYل|\3Ԩ^s#'<\sfzSup9r*
azdazbap/yˡ.lҜ^vXդY^3i~\ߤY^s?P57ik {*/vdaIXۤF"dwf:kLͥ4ӠOtMo&<蟸U[
fv
ŭ&R4;k67j&vҨ9 5YQ]55j6@dSmkF66WzDNTo܋ *VQۿkEQs2hWK5P94 j ;M5[
8/Mj8a0 aEfзF0)BaEؼV3i/D}2p
~K BѩvCWpTk@Smc
C
j)Ou/h~ h|P:͍4Vpj'v V>`x\߹U
[i] O?4k Ӯ) dW`]%Q~
Ux)[ ҭ&*ƭ
i.vu"7dTUNtp7wZgF j# a[
ϡy|
~ͥZǨ㨿ߧvWT@ 8`+XmW1AI
,h _rdM/jOfS6 Tx&/` '8#4,*F` jGK*(ރU9$#x௨"C5!CS
WR ~١6wQoS3PAVP;a<`D>JLHyN5 6TǓEпqz˷a1xK-NYY }Gax,;K .#8|6 }Gu<}ئ> /|D3zG4%{ LntG4ӠttpCe(W95cWiaidJzU){zUP^NJs:H^^J s+Of0i,ov+oa*"CT1C0PWi~ʫ\{Vic_),\Y.5^KXJ
_&5B*ͥSͪ~sfͩ6.OIx' 쪣AڲC/i^E? P 6*zta`f r²y65Khf[^LuZt~k53C4_k52d:'k5vh_Y]@q)EЋiOV
QK~V9k5A4O\cSk5_wߥqV扵ko|yf(XGy*D 4 VkiհJhaq͝8n]GycZ?yz[r"<ϥB/xC }3oE0|j$ &e4_j0 B Bp t>Omj3]zPmѸϦ
˦KLTO!n>9ͩ`'֭;i&}u^iLpCeR *{0gOq+U @y
u/+Zsr[^i ?5oD(/A5 GpKmPȏ`3;n[ugT S_Ӽ%Cqˮ:\Hq,4|C.LxCeh}.ɠVI(rqVO@7vUZN7?\Z7F)C5i VU P['jbW;hV=V<L q7p?֦b?Pөi~|֩24 h4i +F4VY7 Lj'#Zmj)xRzh%Si܁oT, R>0T'tl?ǂմ* 82P |P+i|(
E Kqj R)7)fk `Cy,XMy ޡZ Q<$
5_2Za%?78Tx9]Ig"p"pso~4Bjwp_.KG(EM }x.Q}nϧyq>Ch=f8O6 CJ%nմN3$L?: Ѯ(Y[Ux[tZONs>_
(у3~N=|k. #K%
,܈h ",AD?tMbB*P ѺRU TXr|<ͳ
">:v^ݪS ?ԛ t7]{\DX.4 |&iN^3OpM-ms߂?~ Pkh>K M ,As
糔W#M
0vՆBwn Pq'OqnF5qhGbuC`98>֭OhҼ'C/Y'/ԏQ.q4)}hgۡRw8ΠzQ R 0rpR(Xzf?S(+( 1T
Hi2. Mw:f3`!
<Hn :v*5ci (O<~T `'AcW]JWQ|c:fi~:Gp]ZMSJWT
x?iC N^el>q[ԯz7tN.WS\
m
*?uT/LZ@xTW?EjUj#| ~h^ r6 \B<0ѥz3͗=v4A+)Q^ G~:<3!w4*K%?qQ ?vl oi i 8H~ϡ /
LqGLyDq|
x/`M
|*K|٦;hWT
yig
0ӦST$Cé)/J\pp {/C)GL,Q>LP>9T x1SN vK%x=#_˭AӦ2e4>2 j2X@Ay Ʃf;U!hP V~έinUޡT -ͳ`g<lq
Qiy~%sjbTI-X(BMc+x ;m |Lp?KKur.СTx g?ԮzoYewؕ|R)/KGi ǡ{p{ P
>Rɼ_0nУT:Or hP T>8N œp`M| ۔ QXJ@/?Mϣ?p*xe{4z?XkS `,POd$?8E4RJ]*|4'4i^?_PN5 ̡8N# U!O*)?v0?ءiLq R$/(O/p?C <
\J?]5p: Ay8xC5Q $W |5?販\?x
p ?Oﳩ+G?XH)-2 ϶+/Byx= nW`&Dp.)
Σ~BXeS4]* vU Jy x]?Dy:&p[NU~Ly:x3 \E/p= L6ZXZ6Pu4W4[(_%OU3kShK))ajg{i x/?^VA p]@]g/e`< ^vOzQ+ h}
N1Tx )Oip&` gpKMK4p 7juHxx14o:
\By<]-O4<%?H|
V^Z7:U Az?xM5& cS͠ 6Z?M?XTn.ݩ;T/ i &547igR҂$|?CCUx _̥*z_ToWz仁Vz%x7pؽu,46ka 5c$։b.:t dh|ѾB8ԟ:
: :5N@΄.N`0hu6t beСГ~ָg=шgKk~ֳ~֨g]Fl?b5ocY~֨gg
SAu%tg
l'K6Ϻz u-
?t :?t
z?t9?t 5BM|Y)7X}6?tN?ϺgYw~{l?N?Ϻ~=ugY~ևl?k dY!5\e?B;ux7s_;Xh t k : :5? u"t
t9kt
:t d,B*<|iYu)3 X+>%Њ5 :r5g= geYςcY+~EMl?ktM3ϺgocY~"Nu9g]gYWy u
2?t Z?t:ur
kЅ7X7SXofC'naCXoeC+mP/?ϺgYw~{l?N?Ϻ~=ugY~ևl?k egm@~^ he~~t;Xh t k } tx:֘
I5SYcjCN.d:
: :5t
LB֘J~h lhS :t?t9Sg= g_]To`YA715~-l?kLU6u g^.g+l?*?_ 'g]ngºz u u= u ?t!&?t>,֛ [>[Њu :?ggYf;l?u'ggYl? ?:gYg{l?C5rgm@~֘l< T@Anb ]]::5B? u2tt!k
t>4|, ֙Ѕ J~h lh_ z?t9_]FײgAױ
l?"&5Bg] Fl?k.zt'Ϻdl{gY#~tg Zya?k~t;Xh t k8& u'AװNN.g? u2tt!k,yӠXc/Na ]K :Z_ z?t9K
z:t
K-zt KϺ'7 '(ʖK{H H*ii$Ȁؚ*Z
ʦbZ%-q)5T.]M{*'[%pl7}`8=I\uVX>m{ns+s Vwn;[{[tu / [j)UqiilN2s:%s_K3[? i\gAc߱fb/?4ŃVm93Vw{.Rs0kK9\[}xT+7GQe De~Sc]TL.B fZ3:c*_rflsqW>3g2s:Rt{ a!ks.6 &7 6?^hwT|l m!_ѿ`rmo5}{}U*fŲE lk1cGWrEt)^b_Q-2þ>kǼ0mT(u_mWΏWWѕwh{vG]'覅U^W1]s5s&i%,lho
enpenMOw$Y9>379fZS|ҋ^ L,l>L >D3 Bcyל鳵30 w kz
ϡ>=Q_~ 6K$k
$];kM> ݇k~Db3T͜Gglyn+Q?jH_*GqK^RyP/{GjAׯz6}^ I>}1kwƤ}~>'QOo?)X α&Tm\Ň$kj2y*Md}O#vRX 1N}^։90~ vI_q̡
gg{Etnn5-`NJriDsRdMK2&dkZ95ٜDsG+<#/@8WΊ=ݎ 4f5wсt e)ðǺ8cKEOB˟v#
UTAkZw%EP5^=1KѶ%J IF۬=_Ѻ6d0^`^3/mm5ĕ_`rMؚu&z˼m/}dJW//p2 8%fKj̖3d^?-nBթfǠ˼\+=3e m.ěѺϠUJ]foj[^;MmԖwlO^U
7T0_R[*[u+
j%-K9qTU[4
uIIWB4nI_zbΦh=qPTUxx
UcRv=~~Ggf5ޜPF{/ U3)CO+bVǞqoLЗ>u=KBy{!s~wW_\/S(ѫ^ >FC` \ ]d Tȸ9x`Yu{ ʛlf~ ;gZx?hui=$nƊmO~&,YP
Wm *;>ڞH} r!_jw_ u
~KUN8\%Nw: iK!JJb.4οǵR(^x.vv/i)=bwh?%չ ;ZY8ΪPF__bÑ ..
cpS;4`<=xdic \H4L]HYSB:7u'Y]1Z :MiB bL2WvE:KmXy>7=W擁+b>}} ]aRt%c[ riS; Mr ZP~ -SwOV(v`k
-=A~C 8.f pV|t\ivu!YIzZUvuṃa%af_N^ac"Eu]TYx{,\ZC]UlN+*FDv?
Lm( KuE @>l|
} #۠I0֮}[SsyoQ`xNjuk2V^>) ?:XP]>&؈ު5tMpA.JĜOA+)F`ow+ubv#i~B秶ض^L=L^/I}aDJ}rЀ]5晘64۾kڋD/UŃ1_wmqE284ΑG1_uWqTE 99]p k!8*UW!*SM6jZ53:/>IRmOK_?#
1/5Ӫ؋;sr їۀg6kSzM
}M 6RGNgj V 9{0بmUh $>A.No)TR\>uYMx9gW r{z us˹n}Nʪ tO uC%Pm )yvJGt+Z'7
vJ;? .K5W1ݱ& ƑiiGtD_g Ղ#͎<|Gqgm$I yΟ#kgd0&|:~WO+S OyCn } Zz "xXx9mGwK ǚbLuE3yG͙=?+-7Mf BV^Zm/Vw M0] g&[_{n _]]v Fy7MC{-onDBo<QD+'P^P=)\}~ ?߆W^D4ä$k&%Gjʇ>&ym1B>6C+c4*e~E~.ѵ7wGtC{_Oi6ܐ[QY{"|߿##L87]/?.tWpeRcG]^J '&EZK,_.F !zq<̩ }W]< A4rgx
%^~L` V|h(P[x!;Nm]0%TJ+6!A-y&lYgce*pF*>:U;3WH3B˻|]LI/?1
2 .2^>ّ_Ubo_wsTwpޗU~\bguN)g[ 7w)t✜?NrM<%̈́ !t/*==t?sWg=&Eg5'
4(vK[,;Jt^)TiS7L+c\^bK]v& 'D5jl^yuZm#ܯ'BZY]QwvڏnF+>>\FiW֏}|ހѾ9xp
A%*BF]b*ݕoTnS0'&ZW'N iJA|t/oNfrmu> 43W:JO;7*'Xz͠+|KW,sJW̖>^Ik^v9dTYz*o718)&٬)#3GxqgP 7ԿNLƠ,7iV&oKS )勽*OOŬ4od%/gI ̧zf%&Y=J鄪4|CnEiLI\Ϧ9I_~U8 6_&&[Rm .KNGUoNd/asb~G/7뗱Yaި
]F/
50]k|9i.5$*z=1V#;^2I*<R/YuB[N@y)grbҒ}M\xiBJnRﻏbO_=ML[88?TV 6n^Qr+UQUa,yUͯ,J#| 0?|x,l ٠ ۡyz-m;A՚lI[@|
S8Vϒ?~j &υ qM7D_xդ헢=nx>pT~U|fΗ,qTb/v_CI"7.~}bɁc%w[A+ tgn
N1sBVܒ781Foy3K[uqANOJ߅+8Uߌ.V{yy9ޣp{ 9Qhlo717<[3dwqlxv 6Dz"I7~ Ik:95 =ΩSuNp|^3j=yJ є]e{)_]%%G N oӇ>ksͷ_Э[M-6={( K-Uo3}' [k 60%U ?r4㻵QotU4ƧzpȨMymgg£4 Zԥ< % G-nQ
hx0>xpBFG x?sbȬQf P/ˣfϼ K]/~@ {Ut6|G8tξtJ< %/oߟ& MS?#vFSOhLuQe4F =:r̮\nO 8~H ƙ ,yZh揍nVc-}2 XRgMe(fQh-owiy̩S0'G>PbNz^?h}LJ|g8>0wQӽ&8X^|pO^2T1rh{3RDQPߓ7xf '6R. t3$sG w|j?R)5.O=4XhO$M{]m/I,+y:$Ya.]
~c32kg <{i]xbGxle S9p0˜ d ^
p4_m}\ Y}zH:y2~EIg@{QSϤNʰ%=њ9ȩR[2z7Re
cOF*śV#c:~uŋ| /6-Hpt%pWK^F _ t5ԕ(6oπ6z顑hCu6ޖo+F^_yD_cZ~ KT(ZJC
SEY ]T\4\ഘ0R 躊"*-PbK VLH]H69N2)mqsï
#,W#k _ A^ЗW+͑IIwIca+->o? )Z10ͻjZ(?~/@Y1u`J f0:HQ Vil?.#_8pgN
x$gઁ_;[
a~}_HǕl6#Eao sTB} 9 {M WT5K47 ] 1}>_לk1`})J6sN8k% $t4 ^*l~wWˡzZ\Q>$J·_0"̲-80&̲m $¬X~v,?.̶Oevf3Ct3WhWw{43(ur8{%V Wv/qujz%ZS&>ace?VI \EHP_IykLߺթK2 }0)w?}
ѮƞFŽ7v\tJ|8y?hǟ\f Q. k+hݏg?Rnu~/ۓ_;_b*}yXGi^i f'%_Taz ߇(M|@=sfgGҹ) )'eHO3}_<ǘn5:(L?(g4m }ۇ3
EI` 78%C]J/Vx#DL5xM.]=ۙ
)g*mabPvT@+7v3"I eg4;Ù ^o~iR䗒jMr: , wU&{VY${ }?LxK1XjP2{)0_yKw
r-Ƴk>' ^ _-yT%Sxq p6%6^ eEOCz&nCnR0 gl) 2$_+ąlm\ Z4/Kl2qqwtwJ*`jI=Z[Ji7oYKFYsѫ
#} }N YM l-cbZkӈgnj` 5_| wZ -9a=}&t- _/Γy `=ܷWzњߦ$ŖAs@/vXŽ-uxQbUO2c|!5<#հfH7w@QqJbQ
wɪ)|܍;=(3jQa$ @ =P1/0=pZ}
\}܄qSiFW_p2#fXAG ~ ̵%P)A;{\iēq¯DY_
~%OM=>]5#'V7D&~c\}m^ Lun_=nJ1^eӢӅh`dhAy7
F,\*Ί7ZO`0Hh TNx&Y/>
EG~Lk|nT!u}+ $Cɲ~W2?sڄha5ow_w;`Qj%|\3A. ;
W` 4({7 j c ~1O7Aq17+::
b r@v`9!g;
{Hh}k4
I'k<#Ժè5+оY
S forC#n sx%=%J Ƥ j%
^/j
^^C0@xCl {bY6dm8S Zp^ x= *~|[ҵ>`f@)
&{
QB v ]4CrwA &1,⩗9@nc0v@ dO5SC bC&V|'l(ZVqR-:Op )Ց\&h*5?䚡9 Xm# 9sJ^v] G'J ~2 wPa~84YjN\xzfR͠Ն%Jx@W5O@
s]dt%fsIr-%8JW3
d#ep
QwzF־Or(tg)7_0@u- *m/ H4
.;r. oEd²ߎ$p⊃R{\7C.B3w:bPyg4ԋ C|'Ѻ'(>!H cAV/p= v
zuu;9?ò0'Ox ̱1AhjOoUn1U&ZlH?sЗ$x~0
Vd&!ξG8^fmJ÷đx48,αJCk/6`pG 7Ĺ>`?dno@$Bm3p
:/w<#L p{ @M k6߹ٷG@Mu/(&D,ЈHIͲ]Éx7. 6 kS k:H,?lPcO05B,Fm^o7cAގtAGgy<^ on7Axw7+^K/jK6, /y~x%\K.$^r=t:^\͚%͎,xɂOK / ̆.kû` օ}OLyx"x" O 6' ' zx' zxq^<8 pO y Fs['4'\ p9K? \x Op" N\MPC\' < GD6 O8 O8BCO8x¡P1]{ z&I~6aKЂ:0e+8x^e3:A*%R;HRdU|h]U#@|f su/lV?L/1W\i9_)n'4 hBT3@4O"ەM2c)Qe*&V(h5\LmdSa9CTZ'i?=/.UGFHnI0{̽T D. X-snS d
?!\Ai Ba`գ5p%) e>(k) 1D@B M i>'jj+5A].Z 7k*+Me=A} {%Z9C]6OZ6¤D=2Pn'X3eo &Pא.!F%"e:i|kHߞi*B#dE YSz:d4sU@'ؕNJW 2`*##.0 gW3*JS0 |H@C2TSM| lqL1 /%'(Tc}7-vx/d?D'f}
CUCf~h)G 5G*$hgPF Y[Oa[a(C,95FQPM<.Q^%CMPסL3rI5 b̥%(b~pz6#Y"Ǖ}uh* < q
6h mmː.ֹWE-{""Ih|:t (ԁ%)#dE%Nf5迕(R
NGihp͂>5pa|@1H/?_oK3[lk0 F,aFIeI 0~ ҁc! p
zo
',|fVkgG᷏4 : : <<|h>t 9>t\>t4 > i>> Pd|xC6|ŇsnŇy!'CI|k r2>. >C. rzLJ>tC.2>t rMCf9 | | m`)\up]Y\|@|舌 q^|LJ]|h>tC>tCG+ :|[9}|C |ȵ r2>9 r{?J|8?>z|Eć>>t :"CyC :t#2>}k]I #L+s>,Y{~?~߿߷;Oolo[{$t9^~
W>\?~l]E~߿ՠxՖ>׳{Wf7f8 8o 8o Z|3'8Zo 7OG7solE7umo47\
p"N7\k+ơ. pa 7
t#""GkC9?qh7P|st9^]pWG|7Gơ7P|h)q0ơ7-q\ ɺ9oʪ 7p
L|Io8 pojx!opz 78C8"Gq0 UV>"o:~s(~M&vYoZ 1Bu@p\z,~e߬MK7AZ44 +Koj5?o> {/~S ߔoj|7[o=~QrMpM,~il7 ii& @ W@p@ߤ&b7_Ƭr|M9_ lS&wW7o?EX hn>0EE->/-[ 7i'h/Y|C6geds]9+(9ȟ
5/ӏ/[W뭫2#Br($2Si3ּm`H@*kr
~ v ԞUbP)ȇb 99WPP I _ g$* 7'xvgR-OAy0[EJ(ד\_?) 9`9?Z!B74-J`oU!T'{ڑIS G|!~m42 MæբDNJJ{֑/nx<U
ZL2#Σ/D ]c0lN|ߓDguŶa5}U\"f?k-L
(\52 d\h RwX=2Y襁7fahL.FXh]{VQ+g7pL8oJ&
~=-+3bűk2\,#Ls@lN:7!c9woT3~c/^* X- O =<,7C jav} 3" \ş: ޗ~Nl3-0!
P3F I&{)]` }[+o݀an5 PcѬjC0J;nfW cl8novVDi9z '*,p
~++
*6CVtJl<z磵6FO* =dp7pk S=?+(@,pY&`0 ?bN>Ҹ/-)6֜+P&YP&}##ȻűHbYƛqYYό< kY4o.
n3$e5f#mcQ4g7p >Y0
K|X @H8xP @e?%ymP:I]3i<3
M }TQ|'\ ѾR @6Q8r^ g soe) t#SL%c=0
B
&\}eTO@jba)<ۇ,2L#/~qRܰl 7 pIVm#Pz%Js'( 8o pgͼ3?)3^չVݹJ
Q|O! ~) )~(#x33R& W@_p
Xt̀eFOE('*_fʅtxq!sgLsŁExg|(bI1 -H
m( )&2Cgy'{HA&XsIm,V5d#<譠j ()]Wuuh) O F2 9 !9@ @*eh1
lmbI$l1 YС
s:i$ lA
XH.6.sT4
qtJaߢ'%jP%es[" ߠ{ &imw97$G:)y_[9> L-ly*mq@?
ti$$$s|T;[uB~Nӂ4q
:C6#& Y[C L~& O\2M !|50RzyH!d
n)HLlfχ!$|o*Zz0'{)0bRZ 2)mg5e&2z@Uۡ9@? =?df4I|r5ԙy8 <W3q~)aEA8"~ &5XK%U({5a4] ЭT IJ
8F
J
i {ٚ3@< K3y&#o3~lDYsޒZ2̏`Sf5 oН8k9 ."Q ? U?`kCӠTaaT9G\ZiHm8wXarKoj`(}a* w5nn&N)=Guh$( ){ Tx* `,LDtj7[IP? 99N /s<|ق:{O%ʞc/sqʞc$h6?Eew*
Y*K=G.+SQGed<9r' X4afqJ]LYiR%=}H ]*
V9i%1m) ho$*[f))5 T n"=.@[ʶ\AgZ_e
`9'qI#$7OsvIY| 8l̴+KEt*C
P&UiٞJO hȩ
HiOhAvi
iQ֜l{ybm2"I\C0hS5{#(B kV[K;4uE
d SS*6Tv5K}5 RٍURmiײNDFޔ o{
6iDٓ12Q I| ;|IG$
-fFcmruf-%7['US#MR. uݬ[r$yO-XtSKū΄oI+A~JR$c+ @>o Q;YK^'!nSeW30hͥ܉ߩVށds@h* BxOǦ&Ta%0i >|$uɻHw |/ ~#h$ f)$ۢ;j(]({]Y ^k4Uv W9jHmqks{* ߡq; qiXrdSevڗu3͌5=RjDƃ?jqʩ&ִylڏ:
=gm&͊ǃ+B?2AvLzRdɺz<`e[_ No' Jne]GťPNW"=R ݖX4 ޒ /BK@4d%@8ќՇdpM I˰fJ&}%c1d_F}zd&;Grv:L N'N
RV1 <{$x4m5 B&ތ1 ,74GﲲӔܾGF(1R{ %;炁Zg[0CI/H+GuM/iUDb|edz'@0rL|h bآ&K>WzHʳ
룬[^`\1::\o BraFa $=vB́AZ ԭ>
ax:sSx ӕ O{ﴅiP ,M4$$iO7 O Xiw"8=< O{ OB 6{O{F
x:=X`xtPP<\ O(< #i}' Oc0Vh1TN=Vj1Tmj[f ]5ZTQx4aUvEYZ !U fR )BhmC2bEL'75bª,`O)caB l! !89;؊ wrX"I8_}p\ ckivU_5U
&IԑnqiCkRDm ^j
ҟX 4*
U2 N" n;PUJbDM)*%܍F
7 wGNadH1 ӫ` ٕﶺa2( kw,M
ȃ|rQa5Zmnh׀epȵ gTY(
gJ߀/q}
< T ( zxë8>0>x \@"qD_\W]g7b0g gl nJNKn Wۭ:]~b#{!G]3O}8mO)GҜ6~쩷v;j7 G-7g }9U@{/ߊ/">e6rGK[?)L1* E/%zFý
8s > 93fg \\s>
ѯ9ZpVI%. 챐CܚZ' C5CdIY &4ar&ޤ$%ɣ4Hjs$y&y$wj]j$$o&ɏjɫH,Mj5E359j}$9K&BhS^pvf"iK4.S0h-PӾU֓WӞ#i+մiHjK^S%մ;ԴxNMIz5g; ?U2QMR>&i[Դ/Դ$PM{SM[@ҊԴgԴ$TM{LM#\XiIZ6HMjZ5
7 i碔rvDM;m$iGWV4ըi9C\|\lA,I\X/x ggZavrx 8ƙbp9wp mѿxb
c{8~ʡ{Z mgzrqu _٨%^XԅM%> ےsٱ-> [k!0[&`¨x٥<_AF_VCg"1V;8YE9[;ãʳM3Y>0FCdcK EI|Q6Ap[LH5>CvG1HE٤&x@B^chmqRDW6| L9m}.?'h])$ h\F!wΑ.ꋃA۟"/))SGJ{N2VkSts1 `Oe0ycw Y>Ɓ;sV/ -sP폃`A(Chqcj2
c,B;8z ECߍgT >{}@~qz"{ɀե qMuN`~= #ۯAxO2q !+c7SGlMY]DaQ/=0T*߉' 49`[E`>'
2Da4ډ3" XJ@R T %pFues+n3 _)$8}}dK@j ln&c4hlAISj:FC*~Յmc-|⼨yic4MD=ye@]̽0&c:U0RB Ri`6-Z~<<kp"CTa=H'$rQ+ǶJlذ p%_
)JHKTO{待hB8mj{G!Fn% :v_[hC $t R̠%@PH; [Ų(aGBÒu?0 @Ƥ-gwj.?>)R<ԱǖGv1 N'm4 ^KQIh|cNAHfy"Lz$ۨ1Gk"OK{$ i #}zj|y=R#j=291H=(4vmDN2اZK!Zz}Rn"W/_6ϏE2eGEKMy fL9-2 > ~GyKMy<ԄLI(? jT9`oj/uaZ6tR[} (Ę"#f!+fĸymKx{eCb4b׀?UW40\#b½~AE RgˆI ۘ _\)HbF@5 fg=̣Vw{xՠ"1)AŷMEVZ}IS4ɷf^4kΥMM(37r[9$pLQe'HZ4lyK5&dAFc/ R=AҘDu_Vp53Pf0?Eq.Y=6u˴~ 1~j<`СsRid+OgpH 6ߒޥc9yX
nt7tgkiG<-mMz@t |ӽZ Za jWJBf %oDн-I+#\Fl[!GCV#& Qf>0<^+1'9@"Fb<$*KFUep$qZ*v"ͮ:z؏ZH
٫BGCJ!ub}u7e;J b(/#0N~8 .jO$(Xo=?p~ {T}vdt Ps4} .F Z*GR9Ju~T ~9䐬~%ᥣ }TW?U:T]di{i͓=UI61|ڰZiG IJ
4&d%_\rϻ! y.hSx&1 N!U
G% H/{F6ѓ;}IЕ<~1|U{QBXZN_g]л
vm7FJR~Ei6|:q:Uj] XelݡڊO_EgluipMpvM3,kQ@ʼnQr8&]ܴ-Kt˕Dzu hzD Pu{73ED+I AZQ7 1&d[\? |@Ľ
JD۰3RZ- |, %wkrrJ+&w˥.[[KIwLn.-"w9.M{
&.KwC]tY .J:;k$w^n? 2鮂IwnteGץo礻-]oY3|Cs
?"?H&Z'?\C~0}?чxr^[A'?ˑC^fb={Y!
\}d/T{F74R[ n/)p{/gr^VB9k/r^,gef9k/2嬽 .gr^Y{i_K>^~ˑ}K>^>˚}<X{{b/{O>^S}S{1S^^jrdl/ŻU{$Zo/ㄉfOʻ-ް+ S;0rVv_#FGv9ⲫ1D^K0,>*g?~j[۹' EbBo\L@1KQH3pYWåHE/RG+s:/VG4lQ:aamvvXۼ kkkvvXsng?mgavvvX .kZv |EVUk_E찶 ,b狨<"vX{ fڃEʰ6H)"eXR ka"eX\ k a-HM |a5z%)T@}? +V^noS Y{
Y{P公u*dM!kog
X{VU}Qۆ,`ޞ)`m~ko6F6
w#6?+y piq 6 < |@?`Ddr r%E&;+(cǀA [מ aFo2x!E-mD9Bk|hac"d75iQu;f$M:5stJe2NB5>u; j jϧ2\g܉qBrѳYO'^xph#/h& S-8=LE(= qc^,} R6WJwW~p[Ŷ HaAeK%>(ūo9{K@Ծ1A1mt}B[v~fw?hK"8dk}ۨc,B w!jj {&Cc}$a* )\)Y$Ǖ 96%/IE6?T!6;nlU
-}?wq
n<PԉsEh ̌n?& d@U'_7WFe
e2ЉʤGzopo};hҫe1yhZ"RMU_~ ?
X%ٯR([ޕS >it'8|wYI!;ys)6 tךO&qq`%݅}gHɵh[GOt+1 G##=?*p{/Pn#).>*EN;:]9ѤEO IӰhFdwfWawûxx[_lz__IZ'-&7ޤ56qX v߈◓|/DI>{* "s?Ee$qǽ6+r?.mh?6.4ճ)lj?~ow38~ml?n
c~.~f .؏A @(3b?~XIMMϷ ]\ͪ7ϕ\9~~k?G>ڏs~ʵfQ ~Bn m[w!ώ
Z*2s e 37bC2sbޛ!Ӌq?$
l.gI*gC9[UN7ޅ~'pa
%w` ^I#q7 ~L`5TmAiN衏Nh: mO3ҽ雉 ?~hi<~՜0x4ŨqHAؘAIqo]Iq}ROC*ˠtWK>&dx* ^ԹD@ SpNo8_uPvm]Z{zSo4
`MoyאM4a' pNh nf0' Op\p*>pkMO ǽl
"|[-߯qxo_Z"|?7[#?}[ &K w5J 79C|! kY|MuZ\ 돋_|Ҵ? ?>js3 /CuzNusz>t8ouuu;o]+o YSl[ g;?r ۠;C31Y'eD-yO~aa˻d<.}48
} M6O9ǿK37ؿͺZ|j1ͩa=X2cRH]\ACn*k=e}\bߓ5pϝ.18Znft}ja!+4,S tvBs ɱ%Qh3] >d[b-zÛN\T~r$7 -xq[A~F-dI5I?D|%RTzW^/š wCc}#Ie7u
*M5zlňKtOvM~dSlywlWb$ k$c8HpyOv]O&a, hߑi5)+-HAR+x$ls[ PAoNr釯ƒYT8+homr;b)<'f8,zۡP˗^j
@-)ZL˵,"ףF=cxTw%Oyn aACha\i2 >fx^Vn:Bm%)
{0jSdj`cU݊(f-^MU6C6
6CjJDb*9as$A@wBwAIv"EKzLv
K9HaB,֥㤆ĻIB3;~)d2YKeByL9PlT)d)_ףK98)RMUkX.Q.qr˙ S.d MbrI_) NW~ݫZѠu 5_ kfy . I)NxUL_`)E)QPNP PPNR(RN(1SR>H) ѣ\P-p[rB&S L(1mk(Z=^p
hY KR@a ,~ 墛rorr 2Y)v$lӣei ^
e,r C9ܝRG9MrwrMH9NTns,{Q z{3'h(2'6LP v"Ky8G9|
|p8R6+e
3Ù6GS(1k(Q
28f凜QP>w2V*SCʁ8Cʋ3X3)Yzg0gj(1L(*\C(/g(c)/QP>:K\7) Q(7LD>sմLYRfXxBAل2Fd m_ɲ +j ?ۑ8y,Rɖ{b a#5,(xX0CG >VxX':W 6>ݙ..{Mv#e ה0d'^֥[7XmW#= egAatt]0X
x%)&?N9D3˞P(Β)ѧ؞i䖞2dv [dW-b!oІFjf8^l
z~ |ITDdyPNȗԟWQ_Pa.ԟ~ECZtfR:K}5F ?SIL,s~BKI
=./ "'q;M~
l}=ǔzg_.
$7e}䞲ۏ|UVGg[#p5b3؉|>ی"ڌ zg 8@˻%WNkƉtKRiK? O?7O?:UB' ףat 1BލBaePʩP*Rug*GVjR+XNBB #ϞʖD(Q(^e^PM\][$@(is~CٴP((v^
%'ZF(o
TF(E
BYXpoެp/ʊ~D(pKH5B' qbS,hZE0e8nlTL43Qg,3NO U|9
MyR_CdX>)y>#Uq́<
xJ@VT6o0/QWF_ؚ![*[6eke+M$}:U͛+4bW; R@Oѣ>~VG~M8,(zԧ3SažAY}[U<]$奈r-MYIo
T
JX.-`+E)"$j -io_~(Ma[. w\ B眙[[O<Mdޙ3gygΐZ=<O%='2?Gqju>3r|_?#uG v|FŲeM1](|l4tk)gЊ.wcQ̌p 2?w=\$v~Ol & ]0fח =Srh:8==NZ=]2 ~¯Y!!.͇[ۨpmzGO7a1at\STvCpup. 0"u [s%[>d]rPɏ(k < $fPު?Ӷ9~vqMtӡ9+PsjN?|Y!ȶy" .l{g"{}°ޣ݀= 0 Eh{$=7c
W^{b
YЬY
YȬA Vu°j X=`Reb"ŅY}ݪf NruL \')nOO\3GuO3
Va~j\VXXɬAnJ>174/V (RsEVklY 5=!
Npv{X1ð:G(UY]2KjU'`DjIOտ?*9Yu?f2du/I jgf0?V (tzzb]Njhz=\2;4^
o5:)vlX}Տ귏YFV_SBط kEVa?V5
h c}=X}pVhVTa,%Vja0Vg)Xk!Ь xDͪY`Dje"%
Vߚ VMY d?V'EJN:D[ X^#:YBsjaBm*Y},Kfg Y]hhVwPڄ
%+)kB+DVaXXdsTnn
j3jY}jշ#$XYz){qCuJ~jGBs!5^ aU
E6ȫLÞǕ?C=)"fXI53DiV:Ao}@0;хxtp?~ٍZ#tt1GNp290tlS]r/,N|L~ * [=UBT_R}Fw84 w<۬xh6ZZ.nϊBB7!QȦGy u;9V_oYClQS|ؤ3U;a;pN^ ۴ ZMbV;% oI' ~0E<BL >L%PٰfA=C |K®хoblw$#=YcI~)a] ۀ'HFƸ|3쁻z2k1?h
xLjCi3:M~ k~cp}~`ˮ :Imvu_xf1#sxd2v:kG| OFcX'_|>h
hp1a 0R=j@
x=j5HX~@zLJMtCrjṘK^y~VE7%籡s6
Dk!LJ {<7u<@Hѫ:yO]oxDԃ/ &zΩԃ'G] _,^,Gs
>=DAjEU1VTzOr3ܬ
>kS`LBT9b3aM~:;1t(|F$HUJ/8Ϯ&FuASPqjtR^-ztt <ӄyTz *Y
FA#Fe x7M."⻘&+ك_{O -h81@D&n~ƬQ
QB.lb* һ/ }Is~~?QC]F$D 1SQcaEsjԲNVWd(u.pq5, N>ӠۀL2cʜ NTA=:!2~3nk%&I^ Goe8jm ѣÝ>)_We݉ "/"*^\d#Y^oMTↁj`=1V8؆]!];'P=vOF *_&R4]HMj<ͱ^?} ץWP+"Ia?1hb?&q k>Gu6X^Tڤ^蒫UU0/zN2mwNَ
*#woI(mLgz]'^xQ{t|TZl 5,yɝ%t^:xHq _ ZUL:)^zɛ I'wȭOr N{W f LrXٸI'[B%Ծ'9'?6j9FVV%ˉn|sFcGB;7 -a❎j=N?
w`NW]l_21>XӑN-xMwʏmrwG4}B˻>.Ͼ obBѷʷk2s6ݕV;2*{re+*iD.,
YQ\8K:O͡s0+\y[igqVYK" 6 .K8w{gXXia95c'ܱ zM@2%xfyy:CDI' d*o^g"@,ۭ[yʞ]G[# KȌ 1"gF{cǂ}4#˓xd?1nek!V1+[--֞{TtJkډ10Ih $B,rc
lV zW
&FכpP ȗa znn꼅r^ F,Vy`44&!\>݁io ?`R^6y6t`~&vj,܀BcAACS@1Qe@cO
cU6jx[U,9`S `S e3* HvT;sʨ!& gnxo86<|T3 4> |tm|02p>? 棳!#X?\|4uX۰yLhX|XY ṪF Y=B˻hȰ59|IF(yhd6ha^TPl͒ B/bKBGeyp7Ą( t>Xn>ZL ^o8~Q6lsYqÛLP
NwELG~
}2i94c[m|bՋdUڑk۫F CM 2c%xZOWC~c hߚ>`Ő6Γ5Q&˕Lp b-Y 6%"́|y;mYŗ\?r30ɔEsS\V5F
_ Q-]*sZ#i 2>
&stK_ pmY 1RA\)VPC7a&UNS !C1R >}`nu8
2ŲagcOfߌ8]n>$cG\ J?ȝk7/u@qd,/%,DT}hB&\I_9ԍg0Z
_q =7-{mJ
{ s Hm
U)vq٢Uzvt}A{qP5DyX] TA: <$"\S ^ e/^#H@/BRy`JvԯQ?>Ө|2^*
!?έOoH봝&T{+?8vώ4q뫂g#p Zk'tYЯ<{xRLEo
_DdtTo׳1cW
zP yF gQt]X>K< ~#5 4 F*N+RoSUVI B*mQ%PYP?>pwiFvpcFU*}:O >C*oUVNA
Ϳ<36VR|O*V܌zwkTHg7Im
.g9p=?
3!sŮg^Lnm~-32뙽z拌@=! AQ9S7˖GY;%m?;K\N?CڸIXd3<ITYd)>~fdniܡ|E VM39rψ
S3EH6LA0/AhXt hJEWtɲL/{gT~kWV~#[w T[7, Xwٓ?e7{!XM6> o
Ҕx3#MƛIi#!t$~<'I B˻UhJlRď~ Cǩm? ?F?RyeI߈3IoaEr͍ϱvB@Ѵ& VgkoWT|C",|ȘQߊEF ۔ #|j0 T!dpQ;os|qس LF>84'.m'3\>)~c5J<^M (c\Fw ʈGkX :}@ %ub_X'uKK.[7ϛ yy6y.? >^|>>Aߚz^?NPjisY%uZ9ŕ?飸UoA\XZ H| ĠGb`+dE]~}|4TXaZ
%9>
rlA9v7=r#hP/|qcTS֥.> LYvlVrTy_A_"af(v ;/&u[Bߒ*_\H
7mWͯ bl/׆oXo$5$ACVS}lҍ"^^mcKLY(ʣeʲhٕ1V] a2 Y
o 5c%6u=ׅ qB.Y=x I;ο DۭXBf@p?\wzOzD[S[b3`A4 M<1MB"I
/CCYIf8NȏVe5<=O
HVZ=Uco[@ǧ wD +S77NVy8~T O [28t3gM' w)NEA {
:!7^hNJ Ҙ b
spë} 8pq T}GBmjf<M \Yc,9Aa8"%7Nh-.idk5VLd7րŕ}?ɸȏO{园H!xT~~WeWG Va*l%2V[vɼeoh[7ͣ#`5238 Z - \k e+?ϕ?OԞΨӑ?o@NK"ixl%O[B? QjOez Klii߅*"j9?)%ěH#SÁ$ۧ 2枍-=QpqZ;w` bTqO`g}ɲz9Bz/!왆 sO'ҳoײce[j2ِfRx/UjPo{!6T&~;逄.gN2c@ZIWO\o\Ivp̕Y@dRy 2 S3//cm2Ơ X0V&O/@faJ
+{"c,ۈ4kO h*-DqY|Nr-[A&+ +X kJt`ݐ𧱦ji1KQ튣#B
f1
^3-U cS;lKy19T9Ybd:-ӡk5'H'|S^a; [ 8FI1˕KjهQpe/q@j\|
m=
+Jh\&r v | GPk
BrKR>$>|CrU{_>s~lr=զoT[M_:zl:E3uH̑a
ϑF luxZ[=8Ij;`1Q[NeF^|{_\t3 46dFOG tb٫^OjG?~ G
F?j5< ӏ{Mm\/}z z F+|u>Ӥ7Yao*#d &[g d0o םL[k9-}'9:]Atfj-:nQ1 Fk)ըT4t
>^Yna.Ыtj fZX( #lF ЌuqXBpLs:J{t܂z$aG }|WagIY%Z^0̅LճJ%u ᪒sd@خs]
r@0<%f,٫"^_ d\t9d'} `eڍljsыл)< '_?ٜS' !&XSMc)BLVOd~tX̞fv
ܢ Xl6Nljϩo)ZNn4oT<z6'ұ w'-Pd_^ +fI*hva7Eg{f>eS6q'XSL Zn`A=O7p"3qß }-=tc醫 ebL|e4Hg kc3G%3K_Ԉ3_W N Ч\aZ
AIE㍞L3U. %H <&CBaWE}Q L
~(Ow/ju'}fHp~[ M!2!(LWqr az@R+[*:L[
v#tEEpTګu$/nsT*vtbȺamh@m&?\p~E{w3Z^14 a}Mh=Ŕ ?iJS#d>{-YD]c<??F9a}mPyXS"^O[-"90@ۂ`XW &tWE|_y sZ#+"qgŰ%~G~C鑪(pxJ] Zu `;^W1^<c3
Sв%>7%Iy~5{jS/CWzѕ{օj|6w-NGDIjViunՓZG\Jxs=h+R_DL s 6/͆瑎GW=& 5>;VZNZMD W26@I2c~ kL CT mT1W\-#.pUD? XK RWpXt;jdރ_AiTnU^?`'(:vYfpv/ҙqK[(vu:&}|> G-2>' >'Ѯǎ +x|
,IH)D
nPD_a1U
\o }-t
cD(|7ut:p]b|EL Q述Q7{Z|j sӄNFmaZ-GGXBQkVgoރb OJ8@o~ n S ]tF%fvx [X ,-;\Z ?'AXF^&tV:;cH͍!$.aXv;x7,+# 4n j |nY^X[oO႘?ǭJr`ϖ i־0aGl/%
{.gwqTOFOU_G|-O + C}ji>1OO>O #B,mB! w 5[ȹ$Poܚ.ľ&yfs[3"7~'kSk? _)5 ^' ;x#a> 7 z/nt+ udS[Ͷe+_d[KIhN|5!?͏x
Qa?{3;7Ymm2%&{qo
Svv y l!nޥWlL ckCBNtkFzoZr.:4 Z}[۾bW~^!p?ob?l?/Λ
yo
7|oݯ ?ATɭd?[Q1`?m'(罏}нHw4jP
a88FA7D}^\s UyP1vޟm=(o5v.h;ַګͼʽz^^6oUͧUF};/UމBwZ~={GU[흙읖U{gg;|#_rRأs^ˬ;!;KOoKs)mɿEo_<:&L;6p}bm:n FMPWގD*WC7eE" Yxf<O(8/ZzPdWaqO7gȏ6F90~? ~z`q ,_.
pXEVnTSīx>$S
wY
/tE~x~iBس| UW. kM<
pf)AuY ]]\[+ofwB] ]Ĩ)Y,ӫ g<@ h%5pJ谿e%J\^e;X B|My5*G [ٗֈM MTIޟ)怋Ϫ,1dܪc!> 9|Q!~M* g9E"i; vnj!ҮAX\v"ORg Np9F!*N}@4G&ֈTk)sIUz98EU!+cmGo@si`6q3f E|AX?ѯCc ?H]Bz+Q34OʷldA% g[߭ pUGPG A֣#hp#h A+me A O#Dtl8!A y-#耗 }zCn}
2F©V ?L,f_abO䣭 mƀ'ҬuZ`0H <a=9+RK/<C/y?ypc-|F,cXuẌF9>O|Je140G,Z3wt{>ѿGV_ >?Bw}2K^ E^/3P1zHe:^d_~zDboa`@@O~['<S/ }QG q~ı Q?}/n~,z^ vZ$G| s>@7"=E1z gK$zt %7H/&F ȽIԏO1M{iOs\
anZG㟻~|Wԏ# Z~|sL q>]3Ҹ(~y ~J~@r} >@h>+61l?N_w#.G ^ѯETѻ!q #D`-H%F bWD? D0|Щd2s"e4U} _MHK{Fo `uH `+%[ȅ\/ſK$+x=|_)CF q<7GӸ?GaPr>hjb$8iKa?!Bg3S@_R8F /OfH_)g2
H$ 7ҏJ2F!(HS*,_c/'ї1'HJ$zW"}Dg#M-97J9%z"D7A ]@KR<@zDOd5H7KF_ ,E9 G";P`< 4t<,Al%Cd?q<4> >: C `r-:ɾ 'C@r5_wiìGôh_gz?ø{h{h ~8by /
^_CZ?$L߆<
ۖAHP k7=B
?UhKPRi "Mu
}y s51/l! w֞!9{y\By:3 , п;}D~?ށYi3GZ
o4KǮ -sQSj[[kg
Ȉ`cT(S\Y5
rxײe ݲgCܧRwQ~ޞ603v0&4I٤SbW=jP1p R
+]2@omN5QQ72G:>WL <\ /iϣ<&̐\Hg!Ys&>s" ~2`'{ ++uV kIMB[a FR4}\ sc9ф:3 -b:?ItjFdQ-ĀteH8tX'sp'1ZOqT.GZ6H58F
ʣ(g3QU] 4 b* r[P/a8uj6-Hp!Ift)<9rw#E4|@yHi? a処 0=y7wy, b"% \@X(5ڐ٠[ WT9G@ Ȅ^ @a]N1F+n1gpe%Pz-+#4Aot`s:i.JLk"3R އNr
1$#L ^\Js-sFaW {xZ~)T cV1$.'}P8AHz? 'Hrl2x0Qϕd6 rIH gsd!DBx1 dj;~eZ8έ@ia UeDQ5ߣn]BcdR
%f] j$zԡ.:1Ms җ{^FЃ{oMꜽ![X 'ki|J) i8!ylӋ z. ᑾBo]"T"A@\yy=){( 1j|a EH֩T|ah\z =Oq z atlbz*k.C+anj/Ve't?)5!5,<f`Il#Y<̊gd+'_t~`!VY ?&
Ў@NvO!N?#$;-LH#PAF$ ME(m3+ ?W ɓ.F1vS0G-ɞf(-,&^٤GkL7ִj_`\#4 mMI&Is՚ ƴFazuISZa/60iVf&
kz UvJ"R%~?:
h _ `$BaYcV1Z ̘%3 b#Of*j ފf=fN.3qԘ % *j,ƍBZ&P]?gyZ ɦMa"b$Mw f%urANm3
~ 55c$vY-sD,i8`7Dq 9އ+BFw2D,(h
U~%(,x
ZOKԂM
aEx Ix\}:64yZ_ۈL/Gf?K\?虛c*K2RݿߣxccQ)z}' ̒{ ;}@>2\C4aZmiH&ȏQgVȒ7%6f LYOzBic c0V^QƲ c9"cy ){`2X
c J5u1.,cǝXe,06Dd,14}0ƠnʍAϘx\ˌANRȘQL%QE3s c
]6sq*UnT=-<>σ߆x!erWARK3el
y-\Lu5%+Jd*dK c&uy _
!JZ]jGeD5j.ϒn=+Jiec,?,hz1j9Ɍf <'+b
8|C tXL1֠
`C" عE۱|:dkD}ЊgZ5+D^-x~{'%в}?+yԵt}k_E#dZ꼗[׀Q5}{J3M XW<!5M< RƢX?ZB1pE8 :f*̘%$.r̕m)#9G$[MړTv,NżU^YU= U)O&Z:E/.ݪsxr9 6(8<ġןa pȡJn c Ӕ{2Da*9gsP^YU .rM9L# f f32gp_|VOR"tN' %
:?ϼ Pq8>Ix^r%>g) \_
3tbE?[7Ԯv@,O/ZTVw)gл7-S(ugWw|XIL/+ R 8+/BYx"Mqި8Õ6
Zhn
znaD [!.&~62Bs3MUBq B:l?~r!<\ : Ր0c pexq^3a _MdDMVV@JSeM6JkJ{\^,N~Xu${27GfݽAK~CzH#zR#X yڝn~cD+_,^ iqZ\Pz)WRoIʁ1 QTDD9-ݲv
AmZ'>ZXx%u˴V0BhCM֧q%B0FJ:P5, bȾlh;=
l}Z 95܇auNJ܃لZ `@&]/?iUf s 2GG ;>ct|N|D x=yʟ[Wζijk #}| Te" _D !n pߘ,697{( "Kcm7Ԣ2j1DQna'˔zz\i8 7qu?&Wv*Q~^NPf"kX-6x
x-SjaܷjʿPxU]ג! J7cO
yzDuu8R Ӈ2:"k#u}c"NGtmB3*\IKGEH~)
" wVqd,%0AuRF1
nv`J3ݛ#dH><GEԌT`_F$ P qdW!w"fvҬ`{CJ=K- Jؑv0 T @|@KɟN!,{2w&t6KvYvr 8Jk'gz.u< |V%$ T0aXjy *oXJP*e,3AeSʵXcoG>@~`?Oڣ?@ߠ t|0a|I!Ϻί'HTg
Z8+ c}| !? q YHk-0f`YOG&sŝ C![(:RlZ?vGmoIC qGJ WhAvRdc {dkS d
##e V {d!ː=AȰ=Bv U ,VDd7Y=ҧ2&/[ & (0o:m h)t2L>oݜyRx\G&k~v ;1Vbj
K,2T%T*X1LdLb15205nTK
TK 2bj K8bR1g1`8Kx$ݷ썷Y >
63dKNNF+Ɏ:q:Y*SXfLcDL`zLztZRgiUSVڃ,SYj Xߘ`Ja?a*0Rs1R1% {9{ oM7 yus1%SɾL`J<%.ijaJZItd쇼|q0Iݐ0 v7k!+X;.4Y[v_N^\lhre:?YG֯7hk78]
$>(!9m ^jfz Iּڪo3Z7TTogZ
g[^O7. Mdi1
Wac߂elj2Wq[ddߠ$; Thbסwh+SW>aI o]Rt$c Ȧ/wЃjAY&X}-Dz
`:"yy26lr
Q#m/~lc`L(~Ak!^nPl" G QS{3oN)~E}U3]당M/7˿K[ƿK[)~/m}
xЯK[_}I 7WO< ͇^hu> @0ؾbf$ 6#X?Rn 8n5g?. ^" Ⱦf}m_K,՜C P )S 7f&鄎alϬpiPV#+y60f_m9$qH,norUF2fV82[ri4Xo?j~LS}5 =QӗiUr+|ej{FW-x"iiEzzI{q+o &[_ 2C73K<;*-!klqjAGLg![xa_"xMԊ$*Rkr >Rk YZOgy,b!
0 0 QFn}9;7$iVE.zt)ZQE}E!K6kt@yvy'#-pPc5^{ػ9ҧr3(d .VbYv'|]>E`YrXoMyXG#VdZHaiGQH*ySL+H!LՍNb}ܒzn3erÕ&H QRzRM?S(-F*Uʩ*FlT5IF(1Mr &/LTܬN6i!7$ZW/(`:5k{K7ا C hPڅVOGL]"[_GhVd ]fOrCs̀/^3ݯ8 :e %t")O '|cQX<=
:/q)`i6{#7W[fh]MU m|C5O*}g5FX%tOl"; ٤}g9ב' .,C F!_e$7iޕjuDa5oҍ&PA ̈́ ${LuX^ow/G'SlYrHk<),CQF-Jl-2\(7h k{yYII{]KvF2|iNm-9gB\b q4 9` ?Ox*X686B,_6DI!
@<[<+ iwti|eZ8MA$<.
W'l%,m; GW (7gNr(Ϳ1)x-Td6FIm9OnU*CD,T2ے=7H;q( $.B"J8ŮT"_۟Ghn6İuM1E`(^~)"~"x<,1x. ;w
o+ 7!4Cʒ $n]uAⰅ~P?=oķm忋ri;/P+pP8¯F^ zxmoç/ ] <¶'~'xb=W dc) >9?< (a EO/ vux? vx? 3C $
*P+* - 1WBvSaIC//xOP<pcL9E&$QT@ 8kat 2"9 p<'SOP3Pa5ANL (M$ b ZLw%m#(@7dPK .eÿl
(51?t02TC{ X͈79M?X '" .F QFxbSc> {q3|1
, >:cG)>^3+ >zo|c
>h| 7m/ _ >{Ǒ &joF8|| |<1] r_@wлt%]&>Qi aTc r( Gp { q a
Fs}Ř}X+Ib ͙B!J D.QUɐ 000h #&p2$ @PhA"EK af0'ȫZkk ZRz M@-/>j 6$Z{s>r?ٟO2g~~Z{ 0F2Ky-3r
}62Goʑ1N*l,AxrTU˴n: m{ D {Y%l
g^#):rΐ5$^&
Hn;[6 MR%udU;ޫ6W+lrqUiʨ7t49 d~&V ys~O˨!/f~lztQO4~3 uљ]8̮ǯ wfr]gv=3 yfg9zcz|3 /c=~LzEcz l 8w@/^ Gwi F~=RU2W&W
Ġ Ue\U c"#QwbfjV F!
<{VOoD2İn;czQˈZ+5bF@]YߙW
,=?יKz3 l)%S[L15gT;T]b* `.3饇r;刈3b]YB~W5z~tmUb~w
Oq}UB~*Ž\^h=:5M.ڧ_Z%v"-;*wk_( NWN^.8qA\"T<Ʈ&C0fyվtˣ/aRgnW/F8 ~8>S7>m~zQ =qs7dUޭi_q['v7
LyWޣ? y
#gg6?hL =pS#G3FMMG?sqOtw9 >9>1?m]_ѱ 8H6'9>]\?LX`ϋ_{G3Oa
>!Dk?ҳ=^<%8>7v=WZ1*|[)'^PoYm5*n>vR~n} ]ZADKoxƸn=AQUu۹tbL~*\m\]m/FCj'jys[l&I)-U :8Yv?[<2
Oެ[v Жݛ-o 3B0ꅁ, 2d4ZmM6ЈDCIy,f. ? \' ;0wz-f"qN>eʤHr&ig\}֜>S' RcQC+T}&d&0VqZtRKeKzPEZjw?7 P}5(ky 4;7T&
۬MLPe&OV7+3>8z!G zYgS͵;3O<yBs<ӻ%B$G/Y*bݯa݆Bm+T.L"&IoOSwŦ7U6I lM?4 _K !0&>] qSA͗/|L.%}'M?qg~8}OMդoR`qn7y>s>{L&< *~P1b'\9J^S0xPĄ( MZ鐧J1z4˺XltQ)$6G^@^̧ f6Xv$d3r$G '[LoFX5;]bb{WIFȼU?XtVf wAћJPUg[ g
qn <7H{rF>aP IU`oN \$UD p'\Rm
49u85ǚSe#)|7 50܈;d.)E |>~B%@Ay!h~ Xr:\}T 5l naxp!
11>E8[d1C VdA:fa; 'x`thGhh y!,kerpKj]srgpGB<
s9h< !QS6 -h,bӗmʝ̬|#11e{H1mT.# I؝Z4h:HdB ~ʺ kaPk@$ ު2*0 D\Z{yJY(Rxf}JlKBu .@;z3Ns}js~IlPp2%KƎTL1PVfK,9MÖ}yќ`L M 9.wXw=͌-g]vi4åΐu+U>)BRmvKvVhXHOPY jDI[^#cc']?d>ۈ
A 86+WSMPL\^Sq%-;[鏚}wy}ޑӌ(
i{@5ߟ!O=#3t?kB_8G&׆o^}C1;K݇C}8w V{{zwV]~}Y|.AOm JD۹ EM_߭]$;'bйs!4O&\XFg8\{ /|3>WiV֙Ck멀D tjTCx4 nL08InK& yx9.Ke
Ǹ1 S T=fZ ;dE*6|.hdWq@#hf\*tJ
ufWȞ֗)+pSI?I>WQ_o Cɀ[)!jwdy';lq06M ]/#'+|16#0;r}8Fr_5) !ȹ io w-_LL(sVAl|bJHψMm1a #)R(+܇6kVb=^ʦ^Ȅ']_Wv_m}Wz~_SzWѻU*P+:L4(WO5J' cXBz]6}gTT"4w=
Fm {p^>ƺOBP8}d 2ˌO@* {<繉=z^~7yPl(Fiݘ^QyG{QuU12{@Cc<|M =9 B'UQw?lx9Yg7/
rگ9 אg漂Ҽ
c#U?Ata_qwx2)Q-"=gQ{;( J GY!Q42{;s:4
ZTbvB/!DAilM90 KoOS4P$Mr|b>T-`n~
TЍl($} NJLsw:Ѡ B/"* $vyOiO#>4"n)Ԭ,ߝ_ܮ)A{t(z.'C]W;ğ+/~u=
%"KG/>]O[<Ȗ.a./CD'˙ȯD~6? Ra4l6.U{b ^|ۗ E"J| 7=V|)F&I2~_"路pDž )jzy귈k/٘{/aj'4g"dx\ 4 PPxz[͞N,a [k= +Gnڢ"P3@\]EL`^h/%^lJ^ft0M sۯ36;ב@ \+CwrrNӄc zf!ntuuoy⮝{?> M|u[B2l{~JYh'SOj[o%M;@ ־n@ Y L&&In))fL=ML?iTʏsƺ#Ixj㜱}=1O7^S͇z/~W|G~M7_|=ďMM n
:16ۿBFf!!\Bd'H8w&qfy > P7ˢUGm]|hXG@}~QDp?&4)un!CŀqemFlC` :[xuړ4+"_v>IPęA4o41ȩ(ԯ%ߪh'cPF2zx}"C8|^mW 6If\ѥ&sw&dI/&ip0/[ڨ@ѕ|~@}b 3]j ?g3e>*Ik 32E>hvҚB4\ 'Pjr
*zIM$Hfv7:rQhxG!|ǐ@@2h: V&0q %X rs
H,9;Lfw2
aY_3ko@Xsѐt7:Oد.HY5 VR2دf THTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTHTH̋JsQZw ˝&8LiHF8R4N/٬FT Ta/,RM\4^c#
2kL!U8b bC ި^˽\isܯouI]+r ]kZ*U;NXGmR}k9"@~
P3[4x+neج<[O
O|'\]ц* ]?PTߚ6N
Mc
|HRP Tbij4J[r2Es+G54B;Y,f96Mtf
!`T:-+gb +&(
~_]vP إ ieL*=T>]Q.Ur+G4ER:y]K%k%P Q F$CyJӑ#˿ MUWoV`0(Md>䯄GP, xp bOBwCBA9~pwfiKZw)9 5##Q/ .M.lh^vw@@ l6N &gwR|[9ۯs?Rqy5. e*ZNsxRd &[] 8t|,+
~ '"~3®#4W/5ˆ@J@G]
aI$MpQx;K_Ϭ{|Yd B
6RK H I^\ϗ@?tFڛ:7ĺ-jo6zfaThCS|LIo`{;y0_ ? *#>rҎ4+O;ExI?]??T~~{"d^Ц{WXEГI\cp~a ioDoVUp<AQ?rjKLa
q0X GK??up`sF_&|"Ӧ.E"Au S)|@;^oߨ7"kovӧj>ͪ9:3i.5p_^Ǭ!E/dxqq7 c<D# >]>/el {T#;a(5M ]/#'+|KBpp B|[4}2O&?(6Aq\8ܲ%oOh[q!/9HCUc+ [ P"TU BU Sר nCe
HwK7Ç l );x
qR
T߱"ي&e +]6/CY}Bo9V/(֏o+)їUߘ )s+\.EnD$8z ZYmTb7@gM;K`$H3@hdcaG:t O16qwNC>
U.k7pc
>m pI(.L~.EdOUYfV wZ;}b,t|NG \=vXq;¶Or{2)|ReIKj$$/ WKJ
jAܫEU*ģ9'nw V;Єv|N( _m&7A 6q<>J<}iE'yR ?TлT-֭v%hM4 _aFTJ(("{ d#S jCc{9y׳&Çw9>R*5Ө؟͆rM sgj2 ̇t+_~1?-Fi?4"ӈO=,Tl) O%) J* Х < /kJF Wp# |E.eIy_H<Eߟ.2
0~*`nOC' jC 셹qeC "+ ~P7X;¿! )SƇ F ,ƾU%k6Tz} յ{ ^o)ԫwHe;fw.NEtQ*]X]PWr.u>RxoɪԻTB8X<4 v!=ύf=Ld=/-
=Eh9C+T ( p +9o7,P$L aeW 9e+W~+[c>]w
G:l~mc3&)UYfsLRM2Ti ĩ慯ǼV/߇d 0Ix1[K
Ubq"UKlR5ʢ,jɊ-mLsuY'Ogcs|bvkYL~YJ~.%JOI3˦A %h_dedgI}y] VԴ9 P0TPaߒ4b4'tEA0 -Z
Km HE})5Cy@$spBip7A`4 ~&$i$ZCʆFCg V6vV1Xt5 %< Y>M
0h/< 2x Ӡ+ikf@)
V K q`j_pmkh_5ŝ& 5<(|Hٵ1?_n "J|Qo4GkG0&O2ң]Ak"$9A><
7-El`y_S"OT|2ce؈qhMw.V.
~h>`(иbh7b<1
H @*H 8.v+)۔=JZ([kZxNRXf
H7"V טbHGՆiP r)O"W"0ؕu]+-vDہJ
L>AJәUɗgСWF:+Cأ]`:"
X$ nfABYHxS6ڂaF,gB @D)Aq{K OYݒ 跩,j* wΜ$-f
#[QW+*JQ]09fb\<% M s=3}-)Ko08xO_m ?ҤtX{t(t8]cU-[D5ϴ&?ᖤ~_sL\e }mI*\$UP{+I*5 >aدzȧ~JmC~zОa9UÀM || ~hT{L^z6+oMwl" (Ts 0Acjұd&Xh=Lq{۾ĺNm_v6Lм
зP}+cngq5:8[(1`{QLhyxȏUeJe'OI4o2