Content - 30ce7ac384146c1a30c2b3067ccd532efe78f189 - 0a44d8f/pc-bios/slof.bin

Tip revision: d1b725ee12539906b72777fde1f6c73c2273d806 authored by Michael Roth on 20 April 2017, 21:14:52 UTC
Update version for 2.8.1.1 release
Tip revision: d1b725e
slof.bin
Ø(headermagic123
´¸aikqemu0 	X1Jµ³ÿÿÿÿÿÿÿÿÃ@Ã(stage1H?Þ¾à?||C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦èà|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦èà|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦èà|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8	N A@|C¦|	¦|C¦|¦|C¦è	`|	¦8
N A@|C¦|	¦|C¦|¦|C¦è
`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8
N A@|C¦|	¦|C¦|¦|C¦è
`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8N A@|C¦|	¦|C¦|¦|C¦è`|	¦8 N A@|C¦|	¦|C¦|¦|C¦è `|	¦8!N A@|C¦|	¦|C¦|¦|C¦è!`|	¦8"N A@|C¦|	¦|C¦|¦|C¦è"`|	¦8#N A@|C¦|	¦|C¦|¦|C¦è#`|	¦8$N A@|C¦|	¦|C¦|¦|C¦è$`|	¦8%N A@|C¦|	¦|C¦|¦|C¦è%`|	¦8&N A@|C¦|	¦|C¦|¦|C¦è&`|	¦8'N A@|C¦|	¦|C¦|¦|C¦è'`|	¦8(N A@|C¦|	¦|C¦|¦|C¦è(`|	¦8)N A@|C¦|	¦|C¦|¦|C¦è)`|	¦8*N A@|C¦|	¦|C¦|¦|C¦è*`|	¦8+N A@|C¦|	¦|C¦|¦|C¦è+`|	¦8,N A@|C¦|	¦|C¦|¦|C¦è,`|	¦8-N A@|C¦|	¦|C¦|¦|C¦è-`|	¦8.N A@|C¦|	¦|C¦|¦|C¦è.`|	¦8/N A@|x}`¦9 yÆ}kcx}`dL,8`
HE8`
H=8`
H58`SH-8`LH%8`OH8`FHHq8`I|i¦N!xfÁÆ8`X88 D"N git-efd65f49929d7db7èbè#èA@èaHèPè¡XèÁ`èáhépé!xéAéaéé¡éÁ éá¨ê°ê!¸êAÀêaÈêÐê¡ØêÁàêáèëðë!øëAëaëë¡ëÁ ëá(éÁ8}Ú¦éÁ@}Û¦éÁH}Ïñ è/ð|	¦è0è!8N |)¦< ø!þ¡øA@øaHøPø¡XøÁ`øáhùpù!xùAùaùù¡ùÁ ùá¨ú°ú!¸úAÀúaÈúÐú¡ØúÁàúáèûðû!øûAûaûû¡ûÁ ûá(ø0}É¦ùÁ8}Ú¦ùÁ8}Û¦ùÁ@}À&ùÁH}Á¦ùÁPHÁèbø#|xH1éÁ8}Ú¦éÁ@}Û¦éÁH}Ïñ éÁP}Á¦èA@èaHèPè¡XèÁ`èáhépé!xéAéaéé¡éÁ éá¨ê°ê!¸êAÀêaÈêÐê¡ØêÁàêáèëðë!øëAëaëë¡ëÁ ëá(è!8|B¦|	¦|B¦|¦|B¦L$èø`N |¦H¹[0m[?25l **********************************************************************
[1mQEMU Starting
[0m Build Date = Oct 19 2016 09:58:38
 FW Version = git-efd65f49929d7db7
|h¦|¦H<[1m[41m[37m


E1001 - Boot ROM CRC failure

[0m[1m[41m[37m


E1002 - Memory could not be initialized

[0m[1m[41m[37m


E1003 - Firmware image incomplete[0m

       internal FLS1-FFS-0.[1m[41m[37m


E1004 - Unspecified Internal Firmware Error[0m

       internal FLSX-SE-0.|x|#x|½+x|Ü3x9@sã
@(£ëx|J¦|c#xHáãx;|#àAHÅH}è¦|#x8à|#8AHÙ}B¦,A4HxèÄ}B¦8à|'0A8àè|' 8`AP|#x|qB¦ùè8à|' A|øèøèøè|ø(8 ø 8`~x}è¦N }è¦|°+x|±+xH9,@}è¦N |É¦:ÿÿ8¥ÿÿEPBÿø~%x}è¦N }(¦|#x|jx|#x8¥ |«+xHE,@ è¤,|*@ÿÔ8`}(¦N 8`è¤èÄèä|¥B}(¦N 9Jÿø9kÿøéª	éË	|-p9AN qÎÿ@ÿä9N ø!ÿ±|¦ø0ùá8ùÁ@ù¡H|¯+xKÿÿYè0|¦øø¯øÏøïé¡HéÁ@éá88!PN }¦|ixi,AH	9)Kÿÿì}¦N }¦|ixy#' pc,
A8c8c0HÕy#F pc,
A8c8c0H¹y#e pc,
A8c8c0Hy# pc,
A8c8c0Hy#£ pc,
A8c8c0Hey#Â pc,
A8c8c0HIy#á pc,
A8c8c0H-y#"pc,
A8c8c0Hy#'pc,
A8c8c0Hõy#Fpc,
A8c8c0HÙy#epc,
A8c8c0H½y#pc,
A8c8c0H¡y#£pc,
A8c8c0Hy#Âpc,
A8c8c0Hiy#ápc,
A8c8c0HMy#pc,
A8c8c0H1}¦N }¦|ixKÿÿ}¦|ixKÿÿt}¦|ixKÿÿ xfÁÆ8`X88 D"N |jx8`T8D"|#yAx£F jN <``cxcÆdc`cx<`xÆd`KTèÿA8 |¦ø£	Bÿü< `!x!Æd!`!À8a|¦øH58`äûxHé< `!x!Æd!`!À8!èa|h¦N <@`BxBÆdB`BDN |fx8`8< `¥D\Kÿúá|8Tc0T0| PTÉþ|¦|l|¬|¬|¬L,8cBÿèN ``|¦ûáÿø=Bÿÿ9J|¨xiÉÂ?âÿÿ;ÿy)$øø!ÿø}*H*/©AÞ4øA(éIéi}I¦èIN!èA(8!èëáÿø|¦N 9 /ðé)/©@|è<bÿÿ8c/HÝ`|º¦<bÿÿx¤"8c/HÅ`|»¦<bÿÿx¤"8c/0H`|²B¦<bÿÿx¤"8c/HH`|³B¦<bÿÿx¤"8c/`H}`HKÿõu`Kÿÿ``="ÿÿ9)|¨|c>pxc$|*N ```|¦ûÿàû¡ÿè||xûÁÿðûáÿø|#x8 <bÿÿ8c¼<ÿÿ8. øø!ÿ!H$)`/£@¼/½AÔ?ýÿ¿< @{ÿä8ãûxHÝ`="ÿÿ9)| 9@<bÿÿ8c/¸ùIH`<bÿÿäûx8¡8c/àKÿúm`|dy@Øé!?Âÿÿ8¡p;Þ0äûxÃóxûKÿúA`/£@è¡èx8`H]`9 éA}JJ9JU)0UJ0}IPPUJÉþ}I¦|Hl|¬|O¬|¬L,9)Bÿè<bÿÿäûx8¡8c0@KÿùÍ`|dy@ø<þ4@èa<âÿÿ8À8ç1è8¡pH`<¢ÿÿ<ÿÿ<bÿÿ8¥0808c0H`é!pù!xL,|¬é!p<ÀeP§ëxøA(éa`ÆAP8 äûx£ëx})¦èAxN!èA(L,|¬8!àèëÿàë¡ÿèëÁÿðëáÿø|¦N <bÿÿ8c/H`KÿõE`/½@þ4<bÿÿ8c/HY`Kÿþ ```<bÿÿ8c/ðHÙ`<þ4Aÿ<bÿÿø°8c0PH`è°Kÿþä``<bÿÿ?Âÿÿ8c/ð;Þ0H`é!8¡päûxÃóxûKÿø]`/£Aþ <bÿÿÄóx8c0 HY`Kÿþ\|¦øûáÿøø!ÿ|?x|ix?°?°}#KxKÿúm``8?è|¦ëáÿøN |¦øûáÿøø!ÿq|?x|jxøÈ|©+x_À?Ðé?Èù?x?À/A?À/A9 H`9 ?pH@é?x)+
@8`
KÿÿAé?x9Iù_x)}#KxKÿÿ)?p9)?p_p?ÐH@Aÿ¸?p}#Kx8?è|¦ëáÿøN |¦ùÁÿpùáÿx|hxúÿú!ÿúAÿøø!ÿ|#x|x}CxKÿõa`8!èéÁÿpéáÿxêÿê!ÿêAÿ|¦N N #m*E/LF@|¦ûáÿø|xøø!ÿ#/A #/AX/@HM`¡?9)ÿþU)>+AT¡?9)ÿìU)>+AP8!èëáÿø|¦N `HÁ`Kÿÿ´`8`ÿÿN ``8`ÿýKÿÿÄ``8`ÿüKÿÿ´```|¦ûaÿØûÿà|Û3xû¡ÿèûÁÿð|#x|~xûáÿø|¼+xøø!ÿaKÿþñ/|xA/A<è}/£@;à8! ãûxèëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N fÛxãx8ÃóxH!`ø}>/Aÿ¨ÃóxHÕ`xc +è}A@;àKÿÿ`fÛxãx8ÃóxH`ø}>/AÿX;àKÿÿP;àKÿÿH```|¦ûAÿÐûaÿØ|ú;xûÿàû¡ÿè|¼+x|}xûÁÿðûáÿø|Û3x|#xøø!ÿaKÿýÉ/|~xA|/@D£ëxH-`FÓxeÛxãøP£ëxäûxH!`äûxÿ£ëxûüHy`8! ÃóxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `£ëxHí`FÓxeÛxãøP£ëxäûxHá`8! |cúø|ÃóxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``|¦ûáÿø|xøø!ÿKÿü½/AD/A8!8`ÿÿèëáÿø|¦N ãûxH
`8!èëáÿø|¦N ãûxH`8!èëáÿø|¦N }&|¦û!ÿÈûAÿÐ|Ù3xûaÿØû¡ÿè|»+x|}xûáÿøûÿÀ|#x;àûÿàûÁÿð.%-¦øø!ÿQÃÃòH$`¡=,9_¡*}_´PÞBAØ>/@ÿÜ¾ @*ãx@ôA,øA(é;é{})¦è[N!èA(/£@ÿ¾|ÂãxH`>¾8|©(P|iâx¥ HÅ`ãx/¤AÿPAÿLøA(é9éy})¦èYN!èA(¡=,9_¡*}_´PÞB@ÿ08!°}èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} } N <bÿÿ8c0HY`8!°8`èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} } N ` ã,}#@.}B/AL Ã*9 H```H/A(9)}28})´@ÿä8`N ``hN ```c$N ```9C8à} T,9C}@V,±C9C}@V,#y) }#J±C9C}@T,C9C}@T,C9C }@T,C 9C$}@T,C$9C(}@V,±C(9C*}@V,±C*9C,}@V,±C,9C.}@V,±C.9C0}@V,±C09C2}@V,±C2``I9}´}@M,9I}@T,I9I}@T,I9I}@T,I9I}@T,I9I}@T,I9I}@T,I9I}@T,I¡C, Ã*@})2@ÿN }&|¦û!ÿÈûAÿÐ|Ù3xûaÿØû¡ÿè|»+x|}xûáÿøûÿÀ|#x;àûÿàûÁÿð.%-¦øø!ÿQëÃ ÃòH$`¡=89_¡6}_´PÞBAØ>/@ÿÜè¾è¥ @*ãx@ôëA,øA(é;è(é{})¦è[N!èA(/£@ÿ¾$|ÂãxHµ`é> è¾(8|©(P||Jx¥ Hõ`è(ãx/¤AÿPAÿLøA(é9éy})¦èYN!èA(¡=89_¡6}_´PÞB@ÿ08!°è}èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} } N <bÿÿ8c0ØH`8!°8`èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} } N `é  ã8}#@.}B/AL Ã69 H```H/A(9)}28})´@ÿä8`N ``èhN ```|¦û!ÿÈûAÿÐ|#xûaÿØûÿà?bÿÿ?ÿÿûÁÿðûáÿø;@|xúáÿ¸ûÿÀ;{18;1û¡ÿèøø!ÿAë£(£ê;Ý H `¡?<9Z;Þ@}Z´PA\>ÿä/@ÿà>y)6d}=Jé)y'ÿãAÿÈé~/«Aÿ¼þ;9 z÷6d~ýº`è~ÿøé éW|i}?@.}B}è/x"xé$xç.¤|é8P}'R ÿ8|¿JA ß69 HH/Ah9)}28})´@ÿä}_*x èìé%}R+@|ù:}'JA=Bÿÿ9JPxd|ê:ª}GR}I¦N àPàà èààà00ààààààààààààààààààààààààààÄà°àà0àà0000¼ààààà00ààà00```}_*é(©P@@þ¨ãxH`é~é>	Â´¸X@	ÃxAþ¡?<9Z;Þ@}Z´P@ý¬8!Àèêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N y)d±(é>é~	Â´¸X@	ÃxAýKÿÿé(})Êù(é>é~	Â´¸X@	ÃxAýpKÿÿdy*ây)}*J±(é>é~	Â´¸X@	ÃxAý@Kÿÿ4``y)±(é>é~	Â´¸X@	ÃxAýKÿÿ``(é>é~	Â´¸X@	ÃxAüäKÿþØ```y)"±(é>é~	Â´¸X@	ÃxAü°Kÿþ¤``y) ±(é>é~	Â´¸X@	ÃxAüKÿþt``cÛxH]`é>é~	Â´¸X@	ÃxAüLKÿþ@	``ûÁÿðûáÿø8£ 8À9C;À|æ,,} ,,8À8£(þT,}T,;Ã}@,,xçÆ{ÿÆ});x|æ,,}ûx;ã08£4ùù# 98Ã6xçÆ}#J}J;x8ã8ùC(9C}F,±9:}@V,±C9C<Àô,Ã;Ã>àü,ã0| .,°£4|À6,°Ã6|à>,°ã88à}F,±:}@V,±C<Àö,³Ã>`;é9	8 9@}`ü,|D,|Åü,ÊD,;é9I | ü,xÆÆ{ÞÆ}k3x|óx8À;À}ü,þT,|ÀT,;À9I({ÿÆyÆ|ÆûxþT,|¥Cx}T,;É0{ÿÆ}@ô,}ûx;à|ô,ø©©øÉ ù	(8É9ùiø}´xÆ| M,}JxùI0|À4,É¡C8 Ã6@})2@ÿ,ëÁÿðëáÿøN c0N /¥8¥ÿÿx¥ 9#ÿÿ|£*T>|©(P|©¦M ```BÿüN /¥8¥ÿÿx¥ 9#ÿÿ|£*8ÿÿ|©(P|©¦M ```DIBÿøN ¤@@L}$*£H@A@/¥9%ÿÿ|JM 9%ÿÿ8y) |£*9)})¦`$ÿÿ%ÿÿBÿøN /¥A,8¥ÿÿ9#ÿÿx¥ 8ÿÿ8¥|©¦DIBÿøN N |¦øø!ÿø¨|dx<bÿÿ8c.Àø¡°8¡¨øÁ¸øáÀùÈù!ÐùAØH	`8!pè|¦N |¦û¡ÿèûáÿø|}xûÁÿð?âÿÿ;ÿ.Àøø!ÿqëßHi`¤ëx|exÃóxKÿìu`<ÿÿ8 81h|~xèKÿìY`8!Ã´èë¡ÿèëÁÿðëáÿø|¦N #/A49 ````C9)})´/@ÿðy# N 8`N |¦ûÁÿðûáÿø|¦+x|~x|#x8@øø!þA8apHé`8p|xè~{å Kÿë`8!ÀãûxèëÁÿðëáÿø|¦N }&|¦=BÿÿûaÿØûÿà9J1pû¡ÿèûÁÿð9&ÿýûáÿø+
éjéJøø!ÿQùApùaxA/¥|Ü3x|{xA(|ª+x9 H``````}Jã9)})´/ª@ÿðy? ø@8`A|.'þûxH /½;Þÿÿé;{Þ ¥ëx|iñ®AD¥ã}=áÒ|©(P|¡*epAÿÐH	í`/½;Þÿÿé;{Þ ¥ëxTc>|iñ®@ÿÄé;8`})úù;8!°èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} N ``8!°8`èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} N ;àKÿÿ```|¦û!ÿÈûAÿÐ}9KxûaÿØû¡ÿè|#x8ûÁÿðûáÿø|~x|ß3xûÿà|£+x8 
|ý;x}Cxøø!ÿQëH	`/¿|c´AÀ9@H`````ÿë9J}J´/¿@ÿðyJ }9RH@Pé^})P})´9)ÿÿ}PPy) »@9)})¦AH$@ Jé^9J}<PP©Øù^Bÿä8!°8`èë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 9@Kÿÿt```|¦ûaÿØû¡ÿè|#xûÁÿðûáÿø|~x|½+xûÿà;àøø!ÿaëH4``é^}<PP©Ø@4}=ø®y *é>9)ù>£ëxKÿûõ`9ø@AÿÄ8! 8`èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```|¦ûaÿØùÁÿp|{yùáÿxúÿú!ÿúAÿúaÿúÿ ú¡ÿ¨úÁÿ°øúáÿ¸ûÿÀû!ÿÈûAÿÐûÿàû¡ÿèûÁÿðûáÿøø!þ±øaA´/¤8`A=Bÿÿ8ÿÿ9J1È>Bÿÿ|¯+x|Ó3xùA°x Ûx;:À :R1p//©AD»øPþûx½à@4+%8Á9Að?9ï//©ëá;ÿûá@ÿÄ9 ?èa{Pc´8!PèéÁÿpéáÿxêÿê!ÿêAÿêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀ|¦ë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿøN ```+iAl+uAd+xA\+XAT+pAL+cAD+sA<+%Aô+OA,+oA$|è;x&8è/|ç´+d@ÿ`99Ap}´|ê:}
B'  Á9&ÿÒq*ýAè: 9Á/¦A½àP{½!AëS:: :à; }ZÐùA¸```9&ÿ±U(>++A=ÿÿ9%Ly)¨}(Jª}	B}	¦N Dôôôôôôôô´ôôôôôôôôôôôôôÄôô¤ôôD4ôôdôôô¸ôä`: zé$}Ê}2J|èP8à~£xpëé8¡p9 x 8a_ø8æûxKÿú¥~§«x8Àèåûx| P|èPx 8aKÿøáÎëá/¦A~øP°èAþ¤:s9ïKÿüô`zé$}Ê}2J|èP8à~£xpëé8¡p9 x 8a_ø8æûxKÿú~§«x8ÀKÿÿt``+u}!ÊQÓx	pAVé89@9)ÿÿ}IH6JH9@è| P8à
|èP~&x8¡px 9 ~£x8aKÿùè~§«x8À
~%x| P|èPKÿÿ```áÊ|èP9 8À9 8à
p8¡px 8aKÿùYÎé!Iëá;ÿûáKÿþÈ``}!Ê88 
8ap	pH}`|q´CÓxKÿö`è|c´@pé!|ðèP|cPxç |c´|ßHP}$Kx§0@L8cÿÿxc 8c|i¦H ```}HP}$Kx§@@Éé!9)ù!Bÿà}$Kx| PEÓx|èP8ax KÿùµÎëáKÿýô`áÊ|èP8àFÓx9 9 p8¡px 8aKÿø9èè¡°8a| P|èPx Kÿù]è~§«x8ÀEÓx| P|èPKÿýx```Î9.+lAäëá}.Kx:àKÿý`Î9.+hA´ëá}.Kx:àKÿý@Îëá:àKÿý09&ÿÐ+	Aý}!Ê;9ëá{9 ÉpÎKÿý``9?9ïù!9 %?`BëáKÿùð9 -éA¸?zé$}2Jè	}Q8è8øKÿýX`|.x:0ÎKÿûÎëá:àKÿüÎëá:àKÿü8`Kÿùè9#ÿ+M 8cÿà|c´N ,$A`+$ødA<àxçä`ç&#|hx8c+ |êL6yFá@¸/¥@à+0@À(8 
/xA9 08`H4``}J4(9}%ÒL ù|jJ(/©AÌ9IÿÐ8éÿUF>+*	}J4@ÿÄ9Iÿ¿*9Iÿ©@ÿ°9)ÿÉM }*49(}%ÒAÿ¨N ```AødKÿÿ(`/¥@8 
/©@ÿP8`N `/@ÿè+08 @ÿÜ(/x@ÿ 9HùD(}HSxKÿÿ¼```N 8ÿðKÿþ 9HùD(}HSxKÿÿ¬|¦.¥ûÿàû¡ÿèûÁÿðûaÿØ|¾+x|}xûáÿø|#xøAt%=@HaJ})Rx})4U;Ù~< D8`(8`¥"H9` }¦}kb«|Xl|¬|_¬L,8c+£@èA$.»@|<àÿÿ<À<xç ¾è¥ëx@d=àÉóxaH9)ÿü©è@HI@@ÿìI/@ÿàI/@ÿÔI/@ÿÈI/@ÿ¼}%Kx}=Kx¼(ãx@Ð¼ëxH```;¼P@è<8@ÿì<0@ÿàãx@ü<À|<àD`Æh`ç"¥à@x8 H`;½½P@`=8@ÿìÝ©ëx|¨+x}J9U)0U0}	@PUÉþ}	¦|Hl|¬|O¬|¬L,9)Bÿè;½½PAÿ¨èëaÿØëÿàë¡ÿè8`ëÁÿðëáÿø|¦N `8àÿÿ8À<xç KÿþA <Àh<à"`Æ|`çDKÿÿ@``<À|<àD`Æh`ç"Kÿÿ$<Àh<à"`Æ|`çDKÿÿ``èëaÿØëÿàë¡ÿè8`ëÁÿðëáÿø|¦N ```;`Kÿý¤``.»¥ëxãx@ÿKÿþÀPÀPP
 exception %llx 
SRR0 = %08llx%08llx  SRR1 = %08llx%08llx 
SPRG2 = %08llx%08llx  SPRG3 = %08llx%08llx 


SLOFERROR: Flatten device tree not available! Press "s" to enter Open Firmware.

bootinfo  !!! roomfs lookup(bootinfo) = %d
xvectCannot find romfs file %s
ofw_mainERROR: Not enough memory for Open Firmware[?25h[0m%s%sELF32: VirtAddr(%lx) != PhysAddr(%lx) not supported, aborting
ELF64: VirtAddr(%lx) != PhysAddr(%lx) not supported, aborting

ELF relocation out of bounds!
ERROR: Unhandled relocation (A) type %i

0123456789abcdefÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0x@DIàDJ0DK@DKpDNPDN DOpDOàDPÀDQàDSDS DUDVDV0DWpDY`DYàD^pD`@D``D`°DaDaDaðDbDbÐDc@DdàDf DfàDnDn@DoÐDDÀ ÿÿÿÿÿÿÿÿ?0?(xvectè`/ð|i¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8	N |C¦|	¦|C¦|¦|C¦è/ð|	¦8
N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8
N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8N |C¦|	¦|C¦|¦|C¦è/ð|	¦8 N |C¦|	¦|C¦|¦|C¦è/ð|	¦8!N |C¦|	¦|C¦|¦|C¦è/ð|	¦8"N |C¦|	¦|C¦|¦|C¦è/ð|	¦8#N |C¦|	¦|C¦|¦|C¦è/ð|	¦8$N |C¦|	¦|C¦|¦|C¦è/ð|	¦8%N |C¦|	¦|C¦|¦|C¦è/ð|	¦8&N |C¦|	¦|C¦|¦|C¦è/ð|	¦8'N |C¦|	¦|C¦|¦|C¦è/ð|	¦8(N |C¦|	¦|C¦|¦|C¦è/ð|	¦8)N |C¦|	¦|C¦|¦|C¦è/ð|	¦8*N |C¦|	¦|C¦|¦|C¦è/ð|	¦8+N |C¦|	¦|C¦|¦|C¦è/ð|	¦8,N |C¦|	¦|C¦|¦|C¦è/ð|	¦8-N |C¦|	¦|C¦|¦|C¦è/ð|	¦8.N |C¦|	¦|C¦|¦|C¦è/ð|	¦8/N 6ÿÿÿÿÿÿÿÿ	È¸	È0ofw_mainELF@	Ä@8@
{t²8dtåQ?àcÿø?àcÿ!ø?àcÿñøß?àcÿÀøÿ|¦|¦<``cècø`/ð<``c<`Gä8 Hz5H|1C¦B|(¦è!ÿðøAøaø ø¡(øÁ0øá8ù@ù!HùAPùaXù`ù¡hùÁpùáxúú!úAúaú ú¡¨úÁ°úá¸ûÀû!ÈûAÐûaØûàû¡èûÁðûáø8`|x|B¦ø|B¦ø,	@|¶¦<ÿ|¦|&ø|¦ø|B¦ø|B¦ø|¦ø |¦ø(|¦ø0|¦ø8B
¨O|H¦è"|!8øÿñø!ÿ<@èHP|¦èBHXL$|¦B¼}¦|¦è}Bèø(|xèøH|xèøh|xè ø |xè(ø¨(|xè0øÈ0|xè8øè8|xèhù¨h|
xèpùÈp|xèxùèx|xèú|xèú(|xèúH|xèúh|xè ú |xè¨ú¨¨|xè°úÈ°|xè¸úè¸|xèÀûÀ|xèÈû(È|xèÐûHÐ|xèØûhØ|xèàûà|xèèû¨è|xèðûÈð|xèøûèø|xè} &|ñ ù(è(} ¦|d|¬L,ù((N |¦Kÿþu|¦8`N |¦|i¦Kÿþ],
AN!H } ¦i}»¦}©¦}¬kx}º¦L$Kÿþ-|¦8`ÿÿN [0m[?25l[1mQEMU Starting
[0m Build Date = Oct 19 2016 09:58:39
 FW Version = git-efd65f49929d7db7
`````|8Tc0T0| PTÉþ|¦|l|¬|¬|¬L,8cBÿèN ``|¦øø!ÿH`Y`8!pè|¦N 8cÿÿ+@8`N ```/¥Aÿè|¦9%ÿÿû¡ÿèûÁÿðy) ûáÿø|½+x;äÿÿÄJøø!ÿqH``H_Ù`¿ð@A0+
@ÿè8`
H_¹`H_`¿ð@@ÿØ8!£´èë¡ÿèëÁÿðëáÿø|¦N ``/¤M |¦Tc>øø!ÿH_Q`8!pè|¦N `+A<xi$=xc.¤9¡°})P}HH./A9@8`}HI.N ``8`ÿÿN ```|¦=")¤°ûáÿø?âûÿàû¡ÿè||x|½+xûÁÿðúaÿ|#x;ÿ¡°/úÿ ú¡ÿ¨úÁÿ°úáÿ¸øûÿÀû!ÿÈûAÿÐûaÿØø!ÿ@`=91¸8ÿ8`<Â8Æ1À<¢8¥±¨=Bÿý9J*Ð>â`8¥X9?øèw¤°<â`=ø¦ø¥PùG©¸ù(©È=B¥9JSÀ9!x©P@@=")©Ð/AD{ÿãA="9)1ÀéI9
ûªù	{áA="9)1ÀéI9
ûÊù	{÷ã@h{ïãA0=B9J1¸`;ÿ;b£È9; é
ù!x8èûèøêëé?Bÿÿ; ; ÿÿ;Zi°;Ðé?})¦N ```{çã8`A="9)1ÀéI9
ÿøèjù	8!èêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿè|¦ëÁÿðëáÿøN é!x=91À<Â8Æ2°ëééH9)ù!xèÿ8ªøÊø¨|é¦N é!x=91À<Â8ÆÑ°ëééH9)ù!xèÿ8ªøÊø¨|é¦N é!x=91À<Â8Æ!°ëééH9)ù!xèÿ8ªøÊø¨|é¦N é!x=91À<Â8ÆC°ëééH9)ù!xèÿ8ªøÊø¨|é¦N é!x=91À<Â8ÆÑ°ëééH9)ù!xèÿ8ªøÊø¨|é¦N é!x=91À<Â8Æâ°ëééH9)ù!xèÿ8ªøÊø¨|é¦N é!x=91À<Âÿý8Æ"°ëééH9)ù!xèÿ8ªøÊø¨|é¦N é!x=91À`èÂ3PëééH9)ù!xèÿ8ªøÊø¨|é¦N é!x=91À`èÂ3XëééH9)ù!xèÿ8ªøÊø¨|é¦N éAx="9)1°<â8ç1ÀëêèÉé9JùAxé?8¨øÈø§})¦N éAx="9)B°<â8ç1ÀëêèÉé9JùAxé?8¨øÈø§})¦N éAx="9)°<â8ç1ÀëêèÉé9JùAxé?8¨øÈø§})¦N éAx="9)á°<â8ç1ÀëêèÉé9JùAxé?8¨øÈø§})¦N =B9J1¸éx8ÿøáxé*ù	9)ù*ëÿé?})¦N <â8ç1¸è¡x=91À8ßé'éHø©9)8ªù'ø¨é?øÊù!xëéé?})¦N ëÿé?})¦N ëÿé?})¦N =91ÀèßéAxé(8êøáxøÉ9)ù(ëêé?})¦N =91ÀèßéAxé(8êøáxøÉ9)ù(ëêé?})¦N =91Àé?éAxé8ÊøÁxèè}'Jù(ëêé?})¦N =91À;ÿéAxé(8êøáxûé9)ù(ëêé?})¦N =91À;ÿéAxé(8êøáxûé9)ù(ëêé?})¦N éAxé*9J}*J9IëéùAxé?})¦N ?Â;Þ1Àèáxé^8Ç|É3xøÁxé
/¨@é}&B``9Jÿøëé9)ù^ù!xé?})¦N ="9)1¸èáxëûÐûxéI9
øêù	é?})¦N éAx=91ÀèÊé(8êøáxøÉ9)ù(ëêé?})¦N éAx=91ÀèÊé(8êøáxøÉ9)ù(ëêé?})¦N é!x=91ÀëééH9)ù!xèÿèÊ8ªø¨|é¦øÊN é!x=91ÀëééH9)ù!xèÿèÊÿø8ªø¨|é¦øÊN =B9J1Àé!xé
ëé9)ù!xéHé?})¦yJ$!Jÿø}HP*ùHN é!x=91ÀëééH9)ù!xèÿ9JÿøùH|é¦N é!x=B9J1ÀëééJ9)ù!xéèÊÿøèê}	¦øÊøêÿøN éx<â8ç1À<¢8¥1¸ëèéGèÅ9ùxé?è8f9JÿøøeùG})¦øN éx<â8ç1¸<¢8¥1ÀëèéGèÅ9ùxé?è8f9JÿøøeùG})¦øN éAx="9)1¸<â8ç1ÀëêèÉé9JùAxé?èÆ8¨ø§})¦øÈN é!x<â8ç1À=B9J±°ëéé9)ù!xè¿8È}J0P}JtøÇ|©¦ùHN <â8ç1Àé!x=9±°èÇ9IëéùAxé&y)$9)ÿø}IBé?ùG})¦N éx="9)1¸<Â8Æ1ÀëèéI="9)ò°èæ9ùx}IPPé?8§}Jt9Jø¦})¦ùGN èáx<¢8¥1À<Â8Æò°<81¸éëç8çøáxéHé?9ÿøù})¦yJ$9Jÿø}J2ùDN =91À="9)1¸éAxéèéëê9JùAxé(y)$})8PéIé?})¦ùHN <â8ç1Àé!xéGëé9)ù!xèªÿøé
èß|É¦}Bù
ÿùùGN <â8ç1Àé!xéGëé9)ù!xèªÿøé
èß|É¦}(Pù
ÿùùGN <â8ç1Àé!xéGëé9)ù!xèÊÿøé
é?})¦}AÒù
ÿùùGN <â8ç1Àé!xéGëé9)ù!xèªé
ÿøèß|É¦}(6ù
ÿùùGN <â8ç1Àé!xéGëé9)ù!xèªé
ÿøèß|É¦},6ù
ÿùùGN <â8ç1Àé!xéGëé9)ù!xèªé
ÿøèß|É¦}.4ù
ÿùùGN <â8ç1Àé!xéGëé9)ù!xé
ÿøèªèß|É¦}(8ù
ÿùùGN <â8ç1Àé!xéGëé9)ù!xé
ÿøèªèß|É¦}+xù
ÿùùGN <â8ç1Àé!xéGëé9)ù!xé
ÿøèªèß|É¦}*xù
ÿùùGN é!x=B9J1ÀëééJ9)ù!xé?é
})¦éù
N é!x=91ÀëééH9)ù!xè¿èêèÊÿø9JÿðùH|©¦øÇN é!x=B9J1ÀëééJ9)ù!xé?é
})¦ù
N é!x=91ÀëééH9)ù!xè¿èêÊÿÿ9JÿðùH|©¦ÇN é!x=B9J1ÀëééJ9)ù!xé?é
})¦¡ù
N é!x=91ÀëééH9)ù!xè¿èê Êÿþ9JÿðùH|©¦°ÇN é!x=B9J1ÀëééJ9)ù!xé?é
})¦ù
N é!x=91ÀëééH9)ù!xè¿èêÊÿü9JÿðùH|©¦ÇN é!x=B9J1ÀëééJ9)ù!xé?é
})¦éù
N é!x=91ÀëééH9)ù!xè¿èêèÊÿø9JÿðùH|©¦øÇN =B9J1Àé!xéJëé9)ù!xé
é?})¦èápq`B¡pù
N <â8ç1ÀéAxé'ëê9JùAxèÉÿøé	9)ÿðè¿ù'|©¦xÄÂ°Áp`BAqHN =B9J1Àé!xé
ëé9)ù!xéHé?})¦êápêáqêárJAs`BApùHN <â8ç1ÀéAxé'ëê9
ùxèÉÿøéI9)ÿðè¿ù'|©¦TÄF>Áp`Bq
r
s
N <Â8Æ1Àé!xéFëé8éøáxé*ÿøé
©@é?}&Uïþ})¦}Ðù
ÿùùFN <â8ç1Àé!xéGëé9)ù!xèÊÿøé
è¿|©¦}0}A}´ù
ÿùùGN é!x=B9J1Àëé9)é
ù!xé?éH})¦}JþvùHN <â8ç1Àé!xéGëé9)ù!xé
ÿøèªèß|É¦}*x1ÿÿ}Aù
ÿùùGN é!x=B9J1Àëéé
9)ù!xé?éH})¦1Jÿÿ}JQùHN éx<Â8Æ1À<¢8¥1¸ëèéFèå9ùxé?éjÿøè8g9JÿðøeùF})¦ùgøN <¢8¥1ÀèáxéE9'ù!xé
èÊÿø9JÿðùE¦@A2¨<â8ç1¸éG8ªøÊù
ø§ëé9IùAxé?})¦N <¢8¥1¸éxéEé(9ùxèêèÊÿø}(J8ç§0øêA2,ëé9IùAxé?})¦N <b8c1À<81¸éaxéCé8«ø¡xèêé(8ÊÿøéKøÃ/§|çJøèA1À|æ;xèèÿø|É0P}ER8çÿÿ})8P©0@@9ÿð|ª+xù`ëê9JùAxé?})¦N <â8ç1¸é!xééI9ÿð9J})Rù9)ëéù!xé?})¦N <â8ç1ÀéxéG9(èÈù!xé
9JÿøùG/¨A =91¸})2éH9JÿðùH`ëé9IùAxé?})¦N =B9J1¸é*9	ÿøé)ù
ëé9IùAxé?})¦N =B9J1¸é*9	ÿøé)ù
ëé9IùAxé?})¦N ="9)1ÀéI9
ÿøëêù	é?})¦N <b8c1ÀéAxé#ëê8øxéIÿøé	ÿðè©8Éÿèé?øÃ}Sx|ç+xxç`+§A@0X+§@ôª@@A0|åBª8@@0t/¥}J*A(|è;x|§(P``Èÿü|è*Êÿü/§@ÿð})¦N <81ÀéDé*ÿøèêÿðª9JÿèùD|æKxx¨EäxÆ`}+x+¦yä}x}*KxA+¦A´/¦AH/©9Gÿÿ})R}*HP})¦@Ý``ªBÿüé!xëé9IùAxé?})¦N 8Éÿøy
Æ/¦}Sx8§ÿø|Ê3xAL9)ÿðxÊèÂ/©ÿø9J@ü 9@H`````,*ù	8Æÿø9Jÿÿ@ÿð|Ê3x9*ÿüy /©}*Kx8ÇÿüAL9Iÿü/ªÿüy*ð9J@ü 9@H`````,*¦9)ÿü9Jÿÿ@ÿð}*Kx5*ÿþAÿ9Jÿüy)øB/ªÿþU>8çÿþ9)AÜ.|`,)µ9)ÿÿ@ÿôKÿþè```+§@+\ª@@A-¬|è*ª8@@- /¥}J*Aþ0|§(PH````¤Çÿþ}*´Êÿþ/¨@ÿðKÿþ``?Â;Þ1Àé>éI9	ÿè8©ÿðèéÿøùé	ÿð/ª@-Ç @A,ÐA<}I¦H``````B@,ÐHÇ0@A,@ÿìû©ÿðé!xø¾ëé9IùAxé?})¦N `é!x=B9J1À8` ëÊëé9)ù!xêÿÿôèÞè¾ÿø9ÿðù
HaM`~é¦ø~ÿðN é!x=B9J1À8`ëéëÊ9)ù!xêÿèHaõ`~é¦ø~N =91Àé!x8`éHëé9)ù!xèªÿøèëß9JÿðùHT¥>HaÍ`É¦N é!x=B9J1À8`ëéëÊ9)ù!xêÿèHaq`~é¦ø~N =91Àé!x8`éHëé9)ù!xèªÿøèëß9JÿðùHT¥>HaI`É¦N é!x=B9J1À8`ëéëÊ9)ù!xêÿèH`í`~é¦ø~N =91Àé!x8`éHëé9)ù!xèªÿøèëß9JÿðùHx¥ H`Å`É¦N é!x=B9J1À8`ëéëÊ9)ù!xêÿèH`i`~é¦ø~N é!x=91À8`éHëé9)ù!xèèªÿøëß9JÿðùHH`E`É¦N é!x=B9J1ÀëéëÊ9)ù!xêÿè~ÿàèþèÞÿø9ÿàè¾ÿðèÿèù
H``~é¦ø~ÿàN é!x=B9J1ÀëéëÊ9)ù!xêÿè~ÿðè¾èÿø9ÿðù
H_í`~é¦ø~ÿðN é!x=B9J1À8``cðëÊëé9)ù!xêÿèÿøè¾9ÿøù
H^]`~é¦ø~ÿøN é!x=91ÀëééH9)ù!xèjëß9JÿøùHH^`É¦N é!x=91ÀëééH9)ù!xèèjÿøèªÿðëß9JÿèùHHX%`É¦N é!x=B9J1ÀëéëÊ9)ù!xêÿ9ù
H`Í`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿ~Hb`~é¦ø~N é!x=91À<Â8ÆÑ°ëééH9)ù!xèÿ8ªøÊø¨|é¦N ?Â;Þ1Àé!xéëé9)ù!xê9HÿøêêÈÿøù^/´A'4:Öÿÿ~£x:à````vz÷¤~÷¢xH`,5:µÿÿ|wºx@ÿà=9Ñ°é^z÷h~÷B~i¦úêN é!x=91ÀëééH9)ù!xèÿþjëß9JÿðùHH\Y`É¦N é!x=B9J1ÀëéëÊ9)ù!xè~êÿH\9`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xè~êÿH\1`~é¦ø~N é!x=B9J1À8`üëÊëé9)ù!xêÿÿôèÞè¾ÿø9ÿðù
H[`~é¦ø~ÿðN é!x=91À8`éHëé9)ù!xëß9JÿøùHH[U`É¦N é!x=B9J1ÀëéëÊ9)ù!xêÿ~ÿüè9ÿøù
H[µ`~é¦ø~ÿøN ?Â;Þ1Àé!xé^ëé9	ùxêêèêÿð8ÊÿèêêÊÿøøÞ·8@A$´~i¦9ù
ÿèN ?Â;Þ1Àé!xé^ëé9)ù!xé
8ÊÿøèÿøÞ/¨Aé*ÿøù*ÿð`|é¦9Jÿðù^N ?Â;Þ1Àé!xé^ëé9)ù!xèjêÿHù}`~é¦é^9
øjùN é!x<b8cÑ°8 8`¥ëé9)ù!xëßHûõ`É¦N <Â8Æ1ÀéAxé&ëê9
ùxèÿøè©ÿðèé9IÿèëßùF|©#x});xy)`+©A@%+©@t8`8À`cðxçð9D"É¦N =91Àé!xéHëé9)ù!xèªèÿøèjÿðëß9JÿèùHT¥>HVY`É¦N ``+©@!Ü8`8À`cðxçøB9D"É¦N ``<Â8Æ1ÀéAxé&ëê9
ùxèéèÿøè©ÿð9IÿèëßùF|é#x})+xy)`+©A!4@#h+©@! 8`8À`cðxçð9D"É¦N ```é!x=B9J1ÀëéëÊ9)ù!xèêÿè~ÿø9ÿøù
H]±`~é¦ø~ÿøN ?Â;Þ1ÀéAxé>ëê9
ùxèèiÿø9Iÿðêÿù^H6í`é^,#9
A!8~é¦ûªùN `=91Àé!xéHëé9)ù!xèªÿøèjÿèèÊÿô9JÿàëßùHx¥ xc H)`É¦N é!x=91ÀëééH9)ù!x9 èÿ8Êù*øÈ|é¦N é!x=B9J1ÀëéëÊ9)ù!xêÿ9ù
H<Q`~é¦ø~N é!x=91ÀëééH9)ù!x9 èÿ8Êù*øÈ|é¦N é!x=91ÀëééH9)ù!x9 èÿ8Êù*øÈ|é¦N é!x=91ÀëééH9)ù!x9 èÿ8Êù*øÈ|é¦N ?Â;Þ1ÀéAxé>ëê9
ùxèÉè©ÿøèiÿè9Iÿèêÿèÿöù^HEÝ`é^,#A Ð~é¦8êøjûªøþN é!x=91ÀëééH9)ù!xèjëß9JÿøùHHHu`É¦N é!x=B9J1ÀëéëÊ9)ù!xèÿþêÿè~ÿðè¾9ÿðù
HI!`~é¦ø~ÿðN é!x=B9J1ÀëéëÊ9)ù!xèÿþêÿè~ÿðè¾9ÿðù
HJ`~é¦ø~ÿðN ?Â;Þ1ÀéAxé>ëê9
ùxèi9Iÿøêÿù^HO`é^,#A~é¦8êøjûªøþN é!x=91ÀëééH9)ù!xèjëß9JÿøùHHS`É¦N é!x=B9J1ÀëéëÊ9)ù!xèêÿè~ÿø9ÿøù
HU`~é¦ø~ÿøN é!x=B9J1ÀëéëÊ9)ù!xèêÿè~ÿø9ÿøù
HV}`~é¦ø~ÿøN ?Â;Þ1ÀéAxé>ëê9
ùxêÉèÿðè©ÿø iÿî9Iÿèêÿù^~Æ³xT>HW¹`é^/£@~é¦9
úÊû*ûªùN ``=b9k1Àé!xëËëé9IùAxé>êþÿØè~ÿÐéÿø8ÿÐèþÿöè¾ÿàèÞÿî~ä´êÿøHZÙ`~é¦ø~ÿÐN =91ÀéAxé(ëê9JùAxéI}Vû¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}6ú¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}@d9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ} ¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}Y¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}9¦|é¦ù*N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}?B¦|é¦ù*N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}?ú¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}Qû¦}Qû¦L,9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}1ú¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI|¬}Tû¦L,9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}4ú¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI|¬}Pû¦}Pú¦}Pú¦}Pú¦}Pú¦}Pú¦}Pú¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}0ú¦|é¦ù*N é!x=B9J1ÀëéëÊ9)ù!xèêÿè~ÿø9ÿøù
Hq9`~é¦ø~ÿøN =91Àé!xéHëé9)ù!x8ÊèÿøÈ},B¦|é¦ù*N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}-B¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}Uû¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}5ú¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}WK¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}7J¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}PC¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}0B¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}QC¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}1B¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}RC¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}2B¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}SC¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}3B¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}PK¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}0J¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI}QK¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}1J¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI|¬}[Ã¦L,9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ|¬}3Â¦|é¦ù*N =91ÀéAxé(ëê9JùAxéI|Pl|¬|W¬|¬L,9Iÿøé?ùH})¦N é!x=B9J1ÀëéëÊ9)ù!xêÿè~KÿÎ`~é¦ø~N H`é!x=B9J1À8 ëÊëé9)ù!xêÿè~ÿðèÞèÿø9ÿðù
H-á`~é¦ø~ÿðN é!x=B9J1ÀëéëÊ9)ù!xêÿè~ÿèèÞè¾ÿø9ÿèèÿðù
H-`~é¦ø~ÿèN <Â8Æ1ÀéAxé&ëê8êøáxé	éIÿø9)ÿðè¿ù&}R9UJ0U0}
@PUÉþ}	¦|Pl|¬|W¬|¬L,9JBÿè|©¦N =91ÀéAxé(ëê9JùAxéI}V¦9Iÿøé?ùH})¦N =91Àé!xéHëé9)ù!x8ÊèÿøÈ}6¦|é¦ù*N é!x=B9J1ÀëéëÊ9)ù!xêÿè~ÿðè¾èÿø9ÿðù
H(`~é¦ø~ÿðN é!x=B9J1ÀëéëÊ9)ù!xêÿè~ÿøè9ÿøù
H(Ñ`~é¦ø~ÿøN é!x=91ÀëééH9)ù!xèªèÿøèjÿðëß9JÿèùHH*y`É¦N ```;b£È9[¨}ISxùAxKÿÐé!x=B9J1ÀëéëÊ9)ù!xêÿè~Hu`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿè~ÿðè¾èÿø9ÿðù
H-`~é¦ø~ÿðN é!x=B9J1ÀëéëÊ9)ù!xéêÿè~ÿØèþÿø9~ÿØèÿæèÞÿðè¾ÿèùjHù`~é¦ø~ÿØN =91Àé!xéHëé9)ù!xèjëß9JÿøùH|c4H/y`É¦N é!x=91ÀëééH9)ù!x¨ªÿþèëß9Jÿè¨jùHH/½`É¦N é!x=91ÀëééH9)ù!x¨jÿþèëß9JÿðùHH/u`É¦N é!x=91ÀëééH9)ù!x¨ªÿþèëß9Jÿè¨jùHH/Q`É¦N é!x=91ÀëééH9)ù!x¨jÿþëß9JÿðùHH/Q`É¦N =91Àé!xëÈëé9)ù!xÊóxêÿèjÿù|c4ùHH.é`~é¦|c4TjÙ~iJ}JÐù^ÿøN é!xëé9)ù!xëßH.ù`É¦N ?Â;Þ1Àé!x<¢ÿÿ8¥mFÓx8pé^ëé9)ù!xèjêÿH/`~é¦é^èáp9
øêøjùN ?Â;Þ1ÀéAx<Âÿÿ8ÆmGÓx8¡pé>ëê9JùAxèèiÿøêÿ9)ÿøù>H0U`~é¦é^èáp9
øêøjùN é!x=B9J1ÀëéëÊ9)ù!xêÿ~H	`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿ~H`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿ~H`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿ~H`~é¦ø~N ?Â;Þ1Àé!xé^ëé9)ù!xÿÿjêÿHU`~é¦é^9Jÿðù^N ?Â;Þ1Àé!xé^ëé9)ù!x ÿþjêÿHA`~é¦é^9Jÿðù^N ?Â;Þ1Àé!xé^ëé9)ù!xÿüjêÿH-`~é¦é^9Jÿðù^N ?Â;Þ1Àé!xé^ëé9)ù!xèÿøjêÿH`~é¦é^9Jÿðù^N ?Â;Þ1Àé!x8 8aé^ëé9)ù!xêÿH¡`éèÁ9H+ªé^@
h~é¦8êù
øÊ9øþù
N ?Â;Þ1ÀéAx8aé>ëê9
ùxè©èÿø9Iÿøêÿù^Hí`éèÁ9H+ªé^@è~é¦8êù
øÊ9øþù
N >â:÷1ÀéAx8aé7ëê9
ùxèÉÿþè©ÿð9IÿàëßèéèÿîùWH a`éèÁéW/¨@¸É¦9
ûªùN ?Â;Þ1ÀéAxé>ëê9
ùxè©ÿöèièÿø9Iÿèêÿù^H"½`é^/£9*ù>@
ô~é¦ûªN `é!xëé9)ù!xëßH%`É¦N >â:÷1ÀéAxé7ëê9jùaxé	èéÿøè©ÿèèÿà9IÿÐèÉÿöèiÿØëßùWH*]`éW,#9
A
¸É¦ûªùN `?Â;Þ1ÀéAxé>ëê9
ùxèÉè©ÿøèÿðèiÿè9Iÿàêÿù^H+i`é^,#9
A
~é¦ûªùN é!xëé9)ù!xëßH%`É¦N >â:÷1ÀéAxé7ëê9jùaxé	èéÿøè©ÿèèÿà9IÿÐèÉÿöèiÿØëßùWH,`éW,#9
A	É¦ûªùN `?Â;Þ1ÀéAxé>ëê9
ùxèèiÿø9Iÿðêÿù^H `é^,#9
A	~é¦ûªùN ``é!xëé9)ù!xëßH}`É¦N >Â:Ö1ÀéAxé6ëê9JùAxèÉè©ÿøèÿðèiÿè9)ÿàêÿù6H&Å`|hyA	ëÖù9>ù6HÞU`~é¦éVø~9
ûªùN é!x=B9J1ÀëéëÊ9)ù!xêÿè~Hp=`~é¦ø~N é!x=91ÀëééH9)ù!xèjëß9JÿøùHHr½`É¦N =91Àé!xéHëé9)ù!xèèjÿøëß9JÿðùHT>HrÉ`É¦N é!x=B9J1ÀëéëÊ9)ù!xêÿè~Ht`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿè~HvÝ`~é¦ø~N é!xëé9)ù!xëßH°¥`É¦N é!xëé9)ù!xëßHÃ±`É¦N é!xëé9)ù!xëßHÍ`É¦N é!x=91ÀëééH9)ù!xèjëß9JÿøùHHÑ`É¦N é!x=91ÀëééH9)ù!xèjëß9JÿøùHHe`É¦N é!x=B9J1ÀëéëÊ9)ù!xêÿè~HÑ`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿè~H9`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿè~HÙ`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿè~HØÙ`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿè~HÚ¡`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿè~Hù`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xêÿè~ÿðè¾ÿøè9ÿðù
HZA`~é¦ø~ÿðN é!x=B9J1ÀëéëÊ9)ù!xêÿè~H`	`~é¦ø~N é!x=91ÀëééH9)ù!xèjëß9JÿøùHHai`É¦N =b9k1Àé!xëËëé9)ù!xé^ÿèêÿèþÿØéÿà8ÿØè¾ÿøèÿðè~ø0Êÿÿ|ÆQH\¡`~é¦ø~ÿØN ?Â;Þ1Àé!xé^ëé9)ù!xèjêÿHa)`é^,#Að~é¦8êøjûªøþN é!x=91ÀëééH9)ù!xèjëß9JÿøùHHeA`É¦N é!x=B9J1ÀëéëÊ9)ù!xèêÿè~ÿø9ÿøù
He±`~é¦ø~ÿøN é!x=B9J1ÀëéëÊ9)ù!xèêÿè~ÿø9ÿøù
Hh`~é¦ø~ÿøN é!x=91ÀëééH9)ù!xèjëß9JÿøùHHOM`É¦N é!x=B9J1ÀëéëÊ9)ù!xêÿèÿèèÞÿøè¾ÿð9ÿèè~ù
HOU`~é¦ø~ÿèN =B9J1Àé!xëÊëé9)ù!xèÞè~ÿèè¾ÿøèÿð9ÿèêÿù
HU)`~é¦|c4TjÙ~}JÐù^ÿèN é!x=91ÀëééH9)ù!xèjëß9JÿøùHHVÝ`É¦N =91Àé!xéHëé9)ù!xèÿþèªèjÿðëß9JÿèùHx¥ HB5`É¦N é!x=B9J1ÀëéëÊ9)ù!xêÿè~HL1`~é¦ø~N é!x=B9J1ÀëéëÊ9)ù!xè¾êÿè~ÿð9ÿðèÿþù
HHé`~é¦ø~ÿðN `+©@8`8À`cðxçøB9D"É¦N ~é¦øjN ```8`8À`cð9D"É¦N `ª@@@,|©¦/¥9Jÿÿ9ÿÿAÒÜ`èêBÿøKÿÒÈ|è*ª8@@ÿÐ/¥}J*AÒ°|©¦`ÿÿ
ÿÿBÿøKÿÒ~é¦9ù
N ~é¦øjùN ~é¦øjùN ~é¦9ù
N ~é¦øjùN É¦øjùN 8`8À`cð9D"É¦N `É¦øjùN É¦8êù
øÊ9ø÷ù
N /·êªÿèûªÿèAl:µÿÿ:ÖÿÿH`,7:÷ÿÿAHuHÛq`|txvHÛa` AÿÔ~i¦é^9ù
N >â:÷Ñ°KÿÙ~i¦N ~ixKÿÑh~é¦éV8êù
øöN ~é¦ûªN ~é¦ûªN ~é¦8êøjøþN ~é¦øjN /©@þÜ8`8À`cðxçèÂ9D"É¦N 9éAxø¾ù	ÿð9*ù!xëêé?})¦N 9éAxø¾ù	ÿð9*ù!xëêé?})¦N /¥9ÿþ9JÿþAÐ``¤è4¥ÿþ´ê@ÿôKÿÐt/©@ýX8`8À`cðxçèÂ9D"É¦N }&Kx|é;xKÿÎ@9Jÿð}	CxùEKÿÍÌéG})RKÿÍp`8bHâõ`9 =b+©ÐKÿ»d9 KÿÑ/§@ýª@@@\/¥9ÿø9JÿøAÏÜ`èè	4¥ÿøøê	@ÿôKÿÏÄ/¥9ÿü9JÿüAÏ´```è4¥ÿüê@ÿôKÿÏ|åBª8@@ÿ /¥}J*AÏ||è;x|§(PH``````èÈÿù|è*øÊÿù/§@ÿðKÿÏ@
```|¦ûÁÿðûáÿø8 |#x|~x8`øø!ÿKÿ¹}ãûx`HÒa`8 ;â(|dx8`Kÿ¹Y8 Äóx8`Kÿ¹IãûxHÒ1`åûx|dx8`Kÿ¹-8 88`Kÿ¹/£@$8!èëÁÿðëáÿø|¦N ``8!8 88`èëÁÿðëáÿø|¦Kÿ¸Ð|¦ûaÿØûÿà?ûáÿøûAÿÐ;¡°|Û3xû¡ÿèûÁÿð;à`¡"@`éB8`é0øø!ÿA±!9 ùAx9\H})¦ùpH``}´B@*99J/@ÿè`;ÂÃóxHÑ`Åóx|dx8`Kÿ¸8 88`Kÿ¸|zyA`{þ.¤8`KÿþM{é$ÉðP/£¼òø}Ap`CÓx8Kÿþ%/£ø}Al8 8p8``Kÿ·¥8ap;¢ÀHÐ`8 |dx8`Kÿ·8 DÓx8`Kÿ·u£ëxHÐ]`¥ëx|dx8`Kÿ·Y8 88`Kÿ·I/£@¼8 88`Kÿ·18 8|}x8`Kÿ·¤´8 8ÿú|"cÛxHÓ`9 ãûx}<ñ.8!ÀèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```8bÐHß`8!À8`ÿþèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8`ÿÿKÿÿ`8b8HÞÕ`8`ÿÿKÿÿx`8bhHÞ½`8`ÿÿKÿÿ``8bHÞ¥`8`ÿÿKÿÿH``+A¼|¦ûÁÿðûáÿøxi$=Bxc.¤|iP9J¡°Êøø!ÿ}*.8`ÿÿ/A\|¿+x8`8 KÿµÑäûx8 8``Kÿµ½è8 ;âH8`Kÿµ©ãûxHÎ`åûx|dx8`Kÿµ|c´8!èëÁÿðëáÿø|¦N ```8`ÿÿN ```+A¼|¦ûÁÿðûáÿøxi$=Bxc.¤|iP9J¡°Êøø!ÿ}*.8`ÿÿ/A\|¿+x8`8 Kÿ´ñäûx8 8``Kÿ´Ýè8 ;âH8`Kÿ´ÉãûxHÍ±`åûx|dx8`Kÿ´|c´8!èëÁÿðëáÿø|¦N ```8`ÿÿN ```Tcð~Tc>/A8`N ``/¥Aÿì|¦ûÿà`ûaÿØ;Pû¡ÿèûÁÿð|½´ûáÿøãx;äÿÿ;Àøø!ÿaH```}>´AXãxHÌÑ`eÛx|dx8`Kÿ³Í9>èpcÿ@ÿÌ8! ÃóxèëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8! £ëxèëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```|¦ûáÿø`;âhãûxøø!ÿHÌ%`åûx|dx8`Kÿ³!`8 88`Kÿ³
`8!èëáÿøxc |¦N |¦ûáÿø|xøø!ÿKÿÿ}|cúx H```Kÿÿaø@Aÿø8!èëáÿø|¦N `|¦ûáÿø`|dx;âx8 8`øø!ÿKÿ²]`ãûxHËA`åûx|dx8`Kÿ²=`8!èëáÿø|¦N `|¦ûáÿø|xøø!ÿKÿþ8!="è|cúëáÿøiS°|¦N ```|¦ûáÿø?âÿS°øø!ÿKÿþY8!è|cøPëáÿø|c´|¦N ```8`èN ```|¦ûáÿø`|dx;â8 8`øø!ÿKÿ±-`ãûxHÊ`åûx|dx8`Kÿ±
`8 88`Kÿ°ù`8!èëáÿø|¦N |¦ûÁÿðûáÿø|#x8 |dx`8`;âøø!ÿKÿ°¥`Äóx8 8`Kÿ°`ãûxHÉu`åûx|dx8`Kÿ°q`8!èëÁÿðëáÿø|¦N `|¦ûáÿø`|dx;â 8 8`øø!ÿKÿ°`ãûxHÉ`åûx|dx8`Kÿ¯ý`8 88`Kÿ¯é`8!èëáÿø|¦N |¦ûÁÿðûáÿø|#x8 |dx`8`;â°øø!ÿKÿ¯`Äóx8 8`Kÿ¯`ãûxHÈe`åûx|dx8`Kÿ¯a`8!èëÁÿðëáÿø|¦N `|¦ûÁÿðûáÿø|~x|#xøø!ÿKÿþÕ}#û|jx})ùÒ£HA(ÄóxKÿÿ9|~ú8cÿÿKÿþ9?ÿÿ}_Ð|i}J88!}CSxèëÁÿðëáÿø|¦N |¦ûÁÿðûáÿø|¾+x|#x8 |dx8`øø!ÿKÿ®`äûx8 `8`Kÿ®q`;âÀÄóx8 8`Kÿ®Y`ãûxHÇ=`åûx|dx8`Kÿ®9`8 88`Kÿ®%`8!èëÁÿðëáÿø|¦N ``|¦ûÁÿðûáÿø|¾+x|x8 8`øø!ÿKÿÍ`äûx8 `8`Kÿµ`;âÐÄóx8 8`Kÿ`ãûxHÆ`åûx|dx8`Kÿ}`8!èëÁÿðëáÿø|¦N |¦ûáÿø`|dx;âà8 8`øø!ÿKÿ-`ãûxHÆ`åûx|dx8`Kÿ
`8 88`Kÿ¬ù`8!èëáÿø|¦N |¦ûáÿø`|dx;âð8 8`øø!ÿKÿ¬`ãûxHÅ`åûx|dx8`Kÿ¬`8 88`Kÿ¬y`8!èëáÿø|¦N |¦ûáÿø`|dx;â8 8`øø!ÿKÿ¬-`ãûxHÅ`åûx|dx8`Kÿ¬
`8 88`Kÿ«ù`8!èëáÿø|¦N |¦ûÁÿðûáÿø|~x8 `8`;âøø!ÿKÿ«©`Äóx8 8`Kÿ«`ãûxHÄy`åûx|dx8`Kÿ«u`8!èëÁÿðëáÿø|¦N ``|¦ûÁÿðûáÿø|~x8 `8`;â øø!ÿKÿ«`Äóx8 8`Kÿ«`ãûxHÃé`åûx|dx8`Kÿªå`8!èëÁÿðëáÿø|¦N ``|¦ûÁÿðûáÿø|~x8 `8`;â0øø!ÿKÿª`Äóx8 8`Kÿªu`ãûxHÃY`åûx|dx8`KÿªU`8!èëÁÿðëáÿø|¦N ``|¦ûáÿø`|dx;â@8 8`øø!ÿKÿ©ý`ãûxHÂá`åûx|dx8`Kÿ©Ý`8 88`Kÿ©É`8!èëáÿø|¦N |¦ûÁÿðûáÿø|¾+x|#x8 |dx8`øø!ÿKÿ©y`äûx8 `8`Kÿ©a`;âXÄóx8 8`Kÿ©I`ãûxHÂ-`åûx|dx8`Kÿ©)`8!èëÁÿðëáÿø|c´|¦N ``,#M |¦ûAÿÐûaÿØ|zxûÿàû¡ÿèûÁÿðûáÿøøø!ÿaèÃè£è`8bhHÐ``8bHÐ`ééZ}(S}IQÒ}
Rx1Jÿÿ})/©A´```;º(;à;Âð;bX; é´{ä y)ÑÃóxy)$}=H*}$$6xàHÐ1`ééZ8ÿxé¡xÿ .¿}(SO}IQÒ}
Rx1Jÿÿ})¿H@@4Aÿ xéaA@ÿcÛxHÏÝ`KÿÿãxHÏÍ`Kÿÿt`8bèHÏ¹`8! èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```|¦ûaÿØ|#yûAÿÐûÿàû¡ÿèûÁÿðûáÿøøø!ÿaA¨/¥|zx|½+x@; Ûë}>éÒiJx1)ÿÿÞ{É {ÜÑ1)ÿÿ8|xc$KÿöÅ`|yAXû_û{(8ÿûû¿8(ûß HÂ`8! ãûxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8! 8`èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``ûáÿø|yûaÿØûÿàû¡ÿèûÁÿð@(8`ÿÿëaÿØëÿàë¡ÿèëÁÿðëáÿøN ``ë¿ë 8`ÿÿÄë}>éÒ|Jx0ÿÿÞ¾à@Aÿ¼é_{Å }*ë}	éÒ}JBx1ÿÿ}Q}Jy!Aÿ8ß(9``}´y xÑ|#xy)$|H*|	\6y'áAt(@AÿT(@}	Cx@X9H(@}
@ø}J*yJ 9J}I¦@ýHÔ`}FP*}J<6yGáA 9)}*´y' yJÑy) yJ$BÿØ(@A 98¥@@x¥ y @ÿXKÿþÐ/ÿÿ8`ÿÿAÞþÈ}^"ª@@@P8àH|H*}´y 9(xÑy( |ëX6¨P@})´|Xxx$y)Ñy)$|!*AÿÈë ë¿|{éÒé?ÞàPûß |cJKÿþX9@}I¦Kÿÿ<```|¦|iyøø!ÿA éIèi¤P@A |ä*}
¨8@Aèé|Ê Pèi };|Æ;|è9ÒxÄ xÊ |¥:x0¥ÿÿ}|È2}B¤0@ù	 @@8i(8`}I´8ªy)ÑyH y)$xª ª0@|@6|ãH*|èCx}I*AÿÔ8!pè|¦N |§+x|ex`|#x8bø}DSxHË`8!pè|¦N `="9)S¸=	 éH/ªA,}*8`ÿÿ©@@M ù(}CSxN ```}*Kxù(}*8`ÿÿ©@@@ÿÔN |É¦N }è¦|#x8à|#8AHÙ}B¦,A4HxèÄ}B¦8à|'0A8àè|' 8`AP|#x|qB¦ùè8à|' A|øèøèøè|ø(8 ø 8`~x}è¦N }è¦|°+x|±+xH9,@}è¦N |É¦:ÿÿ8¥ÿÿEPBÿø~%x}è¦N }(¦|#x|jx|#x8¥ |«+xHE,@ è¤,|*@ÿÔ8`}(¦N 8`è¤èÄèä|¥B}(¦N 9Jÿø9kÿøéª	éË	|-p9AN qÎÿ@ÿä9N ø!ÿ±|¦ø0ùá8ùÁ@ù¡H|¯+xKÿÿYè0|¦øø¯øÏøïé¡HéÁ@éá88!PN N xfÁÆ8`X88 D"N |jx8`T8D"|#yAx£F jN }¦|ixi,AKÿÿ±9)Kÿÿì}¦N }¦|ixy#' pc,
A8c8c0Kÿÿ}y#F pc,
A8c8c0Kÿÿay#e pc,
A8c8c0KÿÿEy# pc,
A8c8c0Kÿÿ)y#£ pc,
A8c8c0Kÿÿ
y#Â pc,
A8c8c0Kÿþñy#á pc,
A8c8c0KÿþÕy#"pc,
A8c8c0Kÿþ¹y#'pc,
A8c8c0Kÿþy#Fpc,
A8c8c0Kÿþy#epc,
A8c8c0Kÿþey#pc,
A8c8c0KÿþIy#£pc,
A8c8c0Kÿþ-y#Âpc,
A8c8c0Kÿþy#ápc,
A8c8c0Kÿýõy#pc,
A8c8c0KÿýÙ}¦N }¦|ixKÿÿ}¦|ixKÿÿt}¦|ixKÿÿ |è¦H|È¦|è¦8ÆÿxxgÆj|æ8î|8N }h¦|ix8`CKÿüù}#KxKÿÿ18`
Kÿüé}h¦N }h¦|ix|#x|¬+x8`
KÿüÉ8`
KÿüÁ}cxKÿü¹}#KxKÿþñ8` Kÿü©}CSxKÿüÝ8`
Kÿü8`
Kÿü}h¦N 8 EKÿÿ¤}h¦KÿÿQ}h¦8 W@ÿN }h¦8¥ Kÿÿ5}h¦8 D@ÿtN }h¦|#xTc@.Kÿÿ8`A8`}h¦N |¨¦H|È¦8Æþtpc|Ã2|¨¦N N `#m*E/LF@|¦ûáÿø|xøø!ÿ#/A #/AX/@HM`¡?9)ÿþU)>+AT¡?9)ÿìU)>+AP8!èëáÿø|¦N `HÁ`Kÿÿ´`8`ÿÿN ``8`ÿýKÿÿÄ``8`ÿüKÿÿ´```|¦ûaÿØûÿà|Û3xû¡ÿèûÁÿð|#x|~xûáÿø|¼+xøø!ÿaKÿþñ/|xA/A<è}/£@;à8! ãûxèëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N fÛxãx8ÃóxH!`ø}>/Aÿ¨ÃóxHÕ`xc +è}A@;àKÿÿ`fÛxãx8ÃóxH`ø}>/AÿX;àKÿÿP;àKÿÿH```|¦ûAÿÐûaÿØ|ú;xûÿàû¡ÿè|¼+x|}xûÁÿðûáÿø|Û3x|#xøø!ÿaKÿýÉ/|~xA|/@D£ëxH-`FÓxeÛxãøP£ëxäûxH!`äûxÿ£ëxûüHy`8! ÃóxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `£ëxHí`FÓxeÛxãøP£ëxäûxHá`8! |cúø|ÃóxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``|¦ûáÿø|xøø!ÿKÿü½/AD/A8!8`ÿÿèëáÿø|¦N ãûxH
`8!èëáÿø|¦N ãûxH`8!èëáÿø|¦N `}&|¦û!ÿÈûAÿÐ|Ù3xûaÿØû¡ÿè|»+x|}xûáÿøûÿÀ|#x;àûÿàûÁÿð.%-¦øø!ÿQÃÃòH$`¡=,9_¡*}_´PÞBAØ>/@ÿÜ¾ @*ãx@ôA,øA(é;é{})¦è[N!èA(/£@ÿ¾|ÂãxH´å`>¾8|©(P|iâx¥ H´%`ãx/¤AÿPAÿLøA(é9éy})¦èYN!èA(¡=,9_¡*}_´PÞB@ÿ08!°}èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} } N `8b@H¿Ù`8!°8`èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} } N ` ã,}#@.}B/AL Ã*9 H```H/A(9)}28})´@ÿä8`N ``hN ```c$N ```9C8à} T,9C}@V,±C9C}@V,#y) }#J±C9C}@T,C9C}@T,C9C }@T,C 9C$}@T,C$9C(}@V,±C(9C*}@V,±C*9C,}@V,±C,9C.}@V,±C.9C0}@V,±C09C2}@V,±C2``I9}´}@M,9I}@T,I9I}@T,I9I}@T,I9I}@T,I9I}@T,I9I}@T,I9I}@T,I¡C, Ã*@})2@ÿN ``}&|¦û!ÿÈûAÿÐ|Ù3xûaÿØû¡ÿè|»+x|}xûáÿøûÿÀ|#x;àûÿàûÁÿð.%-¦øø!ÿQëÃ ÃòH$`¡=89_¡6}_´PÞBAØ>/@ÿÜè¾è¥ @*ãx@ôëA,øA(é;è(é{})¦è[N!èA(/£@ÿ¾$|ÂãxH±`é> è¾(8|©(P||Jx¥ H°U`è(ãx/¤AÿPAÿLøA(é9éy})¦èYN!èA(¡=89_¡6}_´PÞB@ÿ08!°è}èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} } N `8bH¼	`8!°8`èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} } N `é  ã8}#@.}B/AL Ã69 H```H/A(9)}28})´@ÿä8`N ``èhN ```|¦û!ÿÈûAÿÐ|#xûaÿØûÿà``ûÁÿðûáÿø;@|xúáÿ¸ûÿÀ;bà;Àû¡ÿèøø!ÿAë£(£ê;Ý H `¡?<9Z;Þ@}Z´PA\>ÿä/@ÿà>y)6d}=Jé)y'ÿãAÿÈé~/«Aÿ¼þ;9 z÷6d~ýº`è~ÿøé éW|i}?@.}B}è/x"xé$xç.¤|é8P}'R ÿ8|¿JA ß69 HH/Ah9)}28})´@ÿä}_*x èìé%}R+@|ù:}'JA=Bÿþ9Jxd|ê:ª}GR}I¦N àPàà èààà00ààààààààààààààààààààààààààÄà°àà0àà0000¼ààààà00ààà00```}_*é(©P@@þ¨ãxH¸`é~é>	Â´¸X@	ÃxAþ¡?<9Z;Þ@}Z´P@ý¬8!Àèêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N y)d±(é>é~	Â´¸X@	ÃxAýKÿÿé(})Êù(é>é~	Â´¸X@	ÃxAýpKÿÿdy*ây)}*J±(é>é~	Â´¸X@	ÃxAý@Kÿÿ4``y)±(é>é~	Â´¸X@	ÃxAýKÿÿ``(é>é~	Â´¸X@	ÃxAüäKÿþØ```y)"±(é>é~	Â´¸X@	ÃxAü°Kÿþ¤``y) ±(é>é~	Â´¸X@	ÃxAüKÿþt``cÛxH¶Ý`é>é~	Â´¸X@	ÃxAüLKÿþ@	``ûÁÿðûáÿø8£ 8À9C;À|æ,,} ,,8À8£(þT,}T,;Ã}@,,xçÆ{ÿÆ});x|æ,,}ûx;ã08£4ùù# 98Ã6xçÆ}#J}J;x8ã8ùC(9C}F,±9:}@V,±C9C<Àô,Ã;Ã>àü,ã0| .,°£4|À6,°Ã6|à>,°ã88à}F,±:}@V,±C<Àö,³Ã>`;é9	8 9@}`ü,|D,|Åü,ÊD,;é9I | ü,xÆÆ{ÞÆ}k3x|óx8À;À}ü,þT,|ÀT,;À9I({ÿÆyÆ|ÆûxþT,|¥Cx}T,;É0{ÿÆ}@ô,}ûx;à|ô,ø©©øÉ ù	(8É9ùiø}´xÆ| M,}JxùI0|À4,É¡C8 Ã6@})2@ÿ,ëÁÿðëáÿøN c0N ```|¦ûÁÿðûáÿø|#x8 |dx`8`;âøø!ÿKÿ`Äóx8 8`Kÿq`ãûxH¥U`åûx|dx8`KÿQ`8 88`Kÿ=`8!èëÁÿðëáÿø|c´|¦N ```|¦.¥ûÿàû¡ÿèûÁÿðûaÿØ|¾+x|}xûáÿø|#xøAt%=@HaJ})Rx})4U;Ù~< D8`(8`¥"H9` }¦}kb«|Xl|¬|_¬L,8c+£@èA$.»@|<àÿÿ<À<xç ¾è¥ëx@d=àÉóxaH9)ÿü©è@HI@@ÿìI/@ÿàI/@ÿÔI/@ÿÈI/@ÿ¼}%Kx}=Kx¼(ãx@Ð¼ëxH```;¼P@è<8@ÿì<0@ÿàãx@ü<À|<àD`Æh`ç"¥à@x8 H`;½½P@`=8@ÿìÝ©ëx|¨+x}J9U)0U0}	@PUÉþ}	¦|Hl|¬|O¬|¬L,9)Bÿè;½½PAÿ¨èëaÿØëÿàë¡ÿè8`ëÁÿðëáÿø|¦N `8àÿÿ8À<xç KÿþA <Àh<à"`Æ|`çDKÿÿ@``<À|<àD`Æh`ç"Kÿÿ$<Àh<à"`Æ|`çDKÿÿ``èëaÿØëÿàë¡ÿè8`ëÁÿðëáÿø|¦N ```;`Kÿý¤``.»¥ëxãx@ÿKÿþ|¦+¤ûÿàû¡ÿèûÁÿðûáÿø|#x||x|¤+xøø!ýq@¤8 x¥ 8apH¤¥`+½;Ýýÿ{ÞºBãx;ÞAHH¬+©A<+©@8`äûx`cð8¡p8À8à9D",>;ÿ;ÞÿÿAL{é`+©AÿÈAÿ´/©@¼8`äûx`cð8¡p8À8à@9D",>;ÿ;Þÿÿ@ÿ¼9=ýÿ;½þy)ºB9Iy)M¤yJM¤©èPRëxy)`+©AÔ@X+©@À8`ãx`cð8¡p8À§t9D"8!èëÿàë¡ÿèëÁÿðëáÿø|¦N ```8`äûx`cð8¡p8À8à9D"Kÿÿ```8`äûx`cð8¡p8À8à9D"KÿþÐ```¥ëxKÿþ```+©@L8`ãx`cð8¡p8À§t9D"8!èëÿàë¡ÿèëÁÿðëáÿø|¦N ``8`ãx`cð8¡p8À§ëx9D"8!èëÿàë¡ÿèëÁÿðëáÿø|¦N /©@ÿ¼8`ãx`cð8¡p8À§t9D"8!èëÿàë¡ÿèëÁÿðëáÿø|¦N `<` < `¥øø£N D"N xfÁÆ8`X8 D"N }H¦H-}H¦,M = ¸a)R|dH®8N |dx8`ÿÿ= ¸a)R©É|0@L 8`TD"= ¸a)R8`i(M 8`ÿÿø©øÉN è¤èÄ|dx8`D"N 9`}*Kx}	Cx|è;x|Ç3x|¦+x|#x|dx8` D"N |#x|dx8`<D",#|#xM 8`ÿÿN |¦+x|#x|dx8`@D"N |è;x|Ç3x|¦+x|#x|dx<``cðD"N |¦+x|#x|dx<``cðD"N ```|¦û¡ÿèûÁÿð|~xûáÿø|#xøø!ÿqc8cTc:|c´Kÿ×a`xiá|x@Pxi÷ã@9 {ãä>	KÿÚi`8!|cêø~èë¡ÿèëÁÿðëáÿø|¦N ```9 xcd>	KÿÚ%`8!|cêø~èë¡ÿèëÁÿðëáÿø|¦N ``~8cTc:|c´KÿÖ±`xcÆÿxKÿÿ\ûÁÿð|~xûáÿø88`<ÅóxD"/£@PT@>8`<PÀ8¾PÄ.8y? D"/£@HT@>ëÁÿðPÀPÄ.}$KxxÆ|cûxëáÿøN ;àÿÿ8`<{ÿ 88¾D"/£AÿÀ8`ÿÿëÁÿðxcÄ|cûxëáÿøN ```|¦û¡ÿèûaÿØ8`pûÿàûÁÿðûáÿøøø!ÿQKÿÒ½`|}yA 8`4KÿÖ`p~ÿ@$H¸`8|c´KÿÖy`p~ÿAÃóxß´KÿÖa`Tc>/	@ÿÐ8KÿÖI`T|>8KÿÖ9`T{>8KÿÕ)`+xd Aø@ä+AÌ+;ÝH@ÿ~ÃóxKÿýe
8|c´KÿÕå`p~ÿ@ÿp`="/A=2/@L9 8}8===Kÿý£ëx8!°èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `=B/Aÿ°=R/Aÿ¤9 £ëx=Kÿÿ´``;Ý8Kÿÿ@``+;ÝAÿ,Kÿþ¤8~øp;Ý(KÿÔ`}hèpKÿÿ`8b(H©I`8`KÿÿT```xj¤xi&ä}*Jxc$9)8cy)äxcä|iN ```ûáÿø|x#/Apè£TD.TÆ>|ÆKx8`@8TÆ>8¥D"|¬è¿8`<88¥D"/£8`ÿÿxc @TÆ>TD.}JKxUC>ëáÿøN ``è£TD.TÆ>|ÆSx8`@8TÆ>8¥D"|¬è¿8`<88¥D"/£8`ÿÿxc @ÿ¨TÆ>TD.ëáÿø})SxU#>N ûáÿø|x#/@è£TD.TÆ>|ÆKx8`@8TÆ>8¥D"|¬è¿8`<88¥D"/£A<`ÿëáÿø`cÿÿxcä`cðN T@>ëáÿøPÀPÄ.}$KxxeN `ëãTD.TÆ>|ÆKx8`@8TÆ>8¿D"|¬8 ëáÿøKÿûP|¦û¡ÿèûÁÿðûáÿøøø!ÿqC/@P|#x|xKÿÿÄóx|}xãûxKÿþ8!èxc&äëÁÿðëáÿø|}ë¡ÿè|¦N ```ëãTD.TÆ>|ÆKx8`@8TÆ>8¿D"|¬8!8(èë¡ÿèëÁÿðëáÿø|¦Kÿú```|¦û¡ÿèûÁÿðûáÿøøø!ÿqC/@P|#x|xKÿÿ¤ëx|~xãûxKÿý58!;Þÿèxcdë¡ÿèëáÿø|còëÁÿðxcä|¦N `ëãTD.TÆ>|ÆKx8`@8TÆ>8¿D"|¬8!80èë¡ÿèëÁÿðëáÿø|¦Kÿù¼```/¤@ø£Ã°ã±N `9 xª"| ,}I,9#9C8c|ÀM,|àW,},N ``ûáÿøû¡ÿè|xûÁÿð#/Aë£TD.TÆ>ÞKx8`@WÞ>88½ÆóxD"|¬8`<88½D"/£9 ÿÿy) @TD.TÆ>}JKxUI>hè¿(8`@Æóx}$IÖ8y) |¥JD"ë¡ÿèëÁÿðëáÿøN `è£TD.TÆ>|ÆSx8`@8TÆ>8¥D"ë¡ÿèëÁÿðëáÿøN |¦ûÁÿðûÿà|~xû¡ÿèûáÿøøø!ÿq#/@xé#TD.TÆ>|ÆCxx¿ 8`@88©TÆ>D"|¬Wÿ£>è¾8`@Wæ@>8SæÀSæÄ.8¥xÆ D"8!èëÿàë¡ÿèëÁÿðëáÿø|¦N |¿+xKÿúëWæ@>8SæÀSæÄ.|}x8¼ 8`@xÆ D"{é"8`@U&@>8Q&À8¼$Q&Ä.xÆ D"{¥&äë8`@åú8Wæ@>SæÀ8¼(SæÄ.xÆ D"{é"8`@U&@>8Q&À8¼,Q&Ä.xÆ D"{½¤8`@;½8ýúë¾{ÿäWæ@>SæÀ8½0SæÄ.xÆ D"{ÿ"8`@Wæ@>8SæÀ8½4SæÄ.xÆ D"è¾8`@88À8¥D"8!èëÿàë¡ÿèëÁÿðëáÿø|¦N |¦ûÿàû¡ÿè|¼+xûÁÿðûáÿø|¾´|#xÄóx|}xøø!ÿqKÿùA8xj¤xi&ä}*Jxc$9)8cy)äxcä|iKÿÊÁ`/£øAÞ?8y*&äy%¤|¥Ry)$8¥9)y)äx¥ä|¥JT¥&H]`è¿Äóx£ëxKÿýiÄóx£ëxKÿúmÄóxø £ëxKÿû-û9 ø(8!}#Kxèëÿàë¡ÿèëÁÿðëáÿø|¦N `8bHH¡A`9 ÿÿKÿÿÈ`#|#x/@$è£88`@TÆ>8¥D"N `è£88`@TÆ>8¥D"N ``8Kÿÿ```ûáÿø|#x#/A@è£88`<8¥D"/£9 ÿ@T>?ëáÿøN ```è£88`<8¥D"/£9 ÿAÿÈ?ëáÿøN ``ûáÿøû¡ÿè|#xûÁÿð#/@8è£T@>8`@PÀPÄ.88¥xÆ D"ë¡ÿèëÁÿðëáÿøN ëÃ88`@<À;¾¥ëxD"{é";ÞU&@>8`@Q&À8Q&Ä.ÅóxxÆ D"8`@8¥ëx8ÀD"Wæ@>8`@SæÀ8SæÄ.ÅóxxÆ D"ë¡ÿèëÁÿðëáÿøN ```#|jx/A¤û¡ÿèûÁÿð8<ÀûáÿøëÃ8`@ÅóxD";¾8`<8¥ëxD"/£A¤;àÿÿ{ÿÄ8`@8Åóx8ÀD"8`<8¥ëxD"/£9 ÿÿy) @T@>PÀPÄ.y) ãKxë¡ÿèëÁÿðëáÿøN 8`<8èªD"/£8`ÿÿxc L T@>PÀPÄ.y# N ```T@>PÀPÄ.}$KxxÆKÿÿT```|¦ûÁÿðûáÿø|#x|xøø!ÿqKÿþÅxiãA¬ÄóxãûxKÿýÁãûxKÿþ©Éy@`8pãûxKÿý!pãûxa)}$´!pKÿü}ãûx8pKÿüñ!py)ïâ1)ÿÿ|c8!èëÁÿðëáÿø|¦N `<b8c `Åóx8Hý`8`ÿÿKÿÿÄ```|ex<b8c `8hHÍ`8`ÿÿKÿÿû¡ÿèûáÿø|#x|xûÿàûÁÿð#/A /ëÃHA¤@`/Aø/@8`<8|¾êD"/£;ÿÿ{ @x 8½8`<8|¾*D"/£9@ÿÿyJ @x ?yCÆ|cãx/@pëÿàë¡ÿèëÁÿðëáÿøN ``/ëÃ;Þ@ÿd8`<8|¾êD"/£A8`ÿÿxc |jx?/Aÿ¨UCÆ>UID.ëÿàë¡ÿèëÁÿðëáÿø|cKxTc>N ```8`<8|¾êD"/£A¬8`ÿÿxc |jx?/AÿHUC@>ëÿàë¡ÿèëÁÿðëáÿøQCÀQCÄ.xc N ```/@<8`<8|¾êD"/£8`ÿ@þôëÿàë¡ÿèëÁÿðëáÿøT>N `ëÿàë¡ÿèëÁÿðëáÿø8`ÿÿN ``x x Kÿÿ\`T>x Kÿþì`UI@>W@>QIÀSÀQIÄ.SÄ.xc y)Æ}#xKÿþp```ûÿàû¡ÿè|Ü3xûÁÿðûáÿø#/AtëÃH/@L;üÿÿÞ*{ÿ ;¤ÿÿ;ÿ8`<8ÅóxD"/£9 ÿ;Þ@T>,?=;ÿÿÿ@ÿÐãxë¡ÿèëÿàëÁÿðëáÿøN `ëÃ;ÞKÿÿ``|¦ûáÿøûÁÿð9 |xøø!ÿq!pKÿù!`èrãûxKÿø±`!pãûxa)}$´!pKÿø`?/A<ãûxxä`@Kÿû`/£A$``8°8bÀHq`!pãûxa)}$´!pKÿø5`9 8!}#KxèëÁÿðëáÿø|¦N ```8@ãûxKÿù	`<¥8 8sØãûxKÿö±`|~y@ÿt8ãûxKÿñÉ`?|jx³Ããûx})4U)Ù~})Ðy)ÁÂy)@9)±*!pa)}$´!pKÿ÷`ãûxKÿùy`9 xj×ãAÿ@8 8ãûxKÿûy`|i´Kÿÿ$``8pãûxKÿ÷¹`Kÿÿ@|¦ûáÿø8|xøø!ÿKÿ÷	`ãûxKÿ÷]`8!èëáÿø|¦N `|¦úÁÿ°ûAÿÐ9 ÿÿû¡ÿèûáÿø|º+x|#xúaÿúÿ 8 8ú¡ÿ¨úáÿ¸|Ý3x|xûÿÀû!ÿÈøûaÿØûÿàûÁÿðø!ÿ!pKÿú`9:ÿÿ})ê£H@A¼8 8ãûxKÿúm`xs ||´zhá@(8ãûxKÿîm`8|uxãûxKÿïI`8|wxãûxKÿð`8|xxãûxKÿðÁ`?£x|~x||ÑÒ/£@P= =¥xc¸"=B¥(t9 =¥*tøhtWz<<¢¥ZÚ8à}Z«8À8¥t}J©ÖJÐP;:C´}Y«xc&ä|w{T ;ZV>}J©Ö*ÈP{9 W(>Kÿðñ`}Z«|ÝÖ{#&ä8à~Å³xxÆ |w}J©ÖJÐP{Z WH>Kÿð¹`{C&ä98à8À8¡p|wKÿð`};«_/})©Ö})ØPy) AVÆ>VD.}JCxUT>y)¤}8J²|¬?;{W{>/AWiÆ>WjD.})SxU;>³xãûx8Kÿð`KÿºI`8cx H`|¬Kÿº-`ø@A¡>à@Aÿä!p£´/©ADp`8b(HE`8`H(`<b8c `ãx8HÍ`8`8!ðèêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿè|¦ëÁÿðëáÿøN ````8bÐH`8`Kÿÿ``9 =B¥=¥xc¸"*t= WjD.(tWiÆ>=¥})Sx9tU;>xj"9 |`E,}IE,Kÿý
```|¦ú¡ÿ¨úÁÿ°úáÿ¸ûÿÀ|·+x|xxû!ÿÈûAÿÐ|#x8ûaÿØûÿà|Û3x|ü;xû¡ÿèûÁÿðøûáÿøø!ÿ1Kÿë`8|}xÃxKÿëí`8|uxÃxKÿì©`8|vxÃxKÿíe`£6|x£Ã/¤AW)Æ>W'D.});xU9>W)<zæ }IÊEÓx}*ë8à})éÖ})PP:é}#´}Wëy: xc&ä|u}*éÖ~é¸Pz÷ Vè>Kÿí½`Üzã&ä98àeÛx|uKÿí`}9ëWJ>/})éÖ})ÈPy) AUHÆ>UGD.};xU
>y)¤}6J±I|¬8;9W9>/AW)Æ>W*D.})SxU9>³68ÃxKÿí`¡?<à=@`çaJ|é¦H@AH,`}
´B@ |¬¡?9
ÿÿH@Aÿè/ªAh}@Ü,<P@AP<8`8!Ðèê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``}ISxKÿÿ°8`ÿÿKÿÿ°`|¦=B¥ûÿàû¡ÿèûÁÿðûáÿø*tøø!ÿa/9 !p@°|x|¼+xÊt|#xKÿðÍ`èrãûxKÿð]`!pãûxa)}$´!pKÿðA`?/@Ð8ãûxKÿñ5`<¥8 8t ãûxKÿîÝ`|~y@Ð8ãûxKÿéõ`?|jx³Ããûx})4U)Ù~})Ðy)ÁÂy)@9)±*!pa)}$´!pKÿï±`<bÿÿãx¥ëxäûx8cn¸HÅ`8! Ãóxèëÿàë¡ÿèëÁÿðëáÿø|¦N ``<ãûxxäKÿòu`/£@8pãûxKÿï½`Kÿÿ``8P8bÀHA`!pãûx;Àÿÿa)}$´!pKÿï`8! Ãóxèëÿàë¡ÿèëÁÿðëáÿø|¦N `;ÀÿÿKÿÿ@```|¦ûáÿø8|xøø!ÿKÿî`ãûxKÿîí`8!9 =B¥èëáÿø*t|¦N ``|¦ûÿàû¡ÿè`ûÁÿðûáÿø9 9B`=¥t|¼+x8 |}xøø!þ¡ù!ù!(;Áù!ðù! ùAù!ø9@ù!9 ø08A(!ðûÁKÿñõ`8ÀTc>+A|fx;ápTÆ>äûx8 £ëxKÿô`Ãóxûá H5`|yAX`äûx8bhH`(ÃóxH©`8!`ãûxèëÿàë¡ÿèëÁÿðëáÿø|¦N ```ÃóxH]`8|yA\`äûx8bH-`(ÃóxH=`8!`ãûxèëÿàë¡ÿèëÁÿðëáÿø|¦N é!0)/At8Á08 ÃóxH¥`8/|x@ÿÐ|dx`8b H±`(ÃóxHÁ`8!`ãûxèëÿàë¡ÿèëÁÿðëáÿø|¦N `8aðH%-`|yA``äûx8b¸HQ`ðÃóxHa`(ÃóxHQ`8!`ãûxèëÿàë¡ÿèëÁÿðëáÿø|¦N `88aðH"I`|y@|è¡; ;à/¥@KÿÿAXè¡½¥è@@H|½(P¦ëx|êx¥ 8aðH"ù`/|x.£@ÿÄ|dx`8bèH`Kÿÿ4¿ëxKÿÿ,`äûx8bÐHe`Kÿÿ```|¦úAÿúaÿ|Ò3xúÿ ú¡ÿ¨|³+x|õ;xúÁÿ°û!ÿÈ}CxûAÿÐûÿà|zxû¡ÿèûÁÿð|#x8øûáÿøúáÿ¸ûÿÀûaÿØø!ÿ!Kÿã`8|xCÓxKÿãÝ`8|vxCÓxKÿä`8|yxCÓxKÿåU`£|~x/¤AWÆ>WD.})CxU<>W<¥ëx£¾â8à}8û8À8})ùÖ	ÀP;x´};ûxc&ä|v{ })ùÖiØP{{ Wh>Kÿå`/µA/´@({c&ä98à8Àl~ex|vKÿåy`}<ûZV÷>/})ùÖ})àPy) AVêÆ>VèD.}JCxUW>y)¤}9J²é|¬:;W>/AWÆ>WD.})SxU<>³8CÓxKÿåa`Kÿ¯)`8cx H`|¬Kÿ¯
`ø@A¡>H@Aÿä8!à8`èêAÿêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿà|¦ë¡ÿèëÁÿðëáÿøN `;{c&ä}8û~ex|v8à8Àl})ùÖ	ÀP{ W>KÿäA`0òÿÿ{&ä|ç9xç¤z ~¥«x|vKÿä`Kÿþ```|¦ûÁÿðûÿà9 û¡ÿèûáÿø8|~xøø!ÿa!pKÿè%`!pÃóxa)}$´!pKÿè	`>/A8<ÃóxxäKÿë	`/£@Ü8pÃóxKÿèQ`H`8ÃóxKÿèÉ`;à;HL`Kÿß¡`¤ëxÃóxKÿá`>;ÿ{ÿ ³})4U)Ù~})Ðy)ÁÂy)@9)±#ý´Ãóx¤ëxKÿß`/£@ÿ¤!pÃóxa)}$´!pKÿç-`8`8! èëÿàë¡ÿèëÁÿðëáÿø|¦N ``88bÀH`!pÃóxa)}$´!pKÿæÕ`8`ÿÿKÿÿ¨``|¦ûáÿø8|xøø!ÿKÿæ`ãûxKÿæí`8!èëáÿø|¦N `|¦ûAÿÐûáÿø|xûÿÀû!ÿÈ8`ûaÿØûÿàû¡ÿèûÁÿðøø!ÿAKÿ¯
`|zyA/¿9 :At?b¥;{tÐ8 päûx?Â¥;ÞtPcÛxH{`cÛxKÿæE`8 ÄóxãûxKÿä¡`/£@8 80ãûxKÿä`/£@h8cÛxKÿå`:/9 !pADCÓx8!ÀèëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```8cÛxKÿå9`;/@$9 
8cÛx>`Kÿæ%`="¥)t°8iêxc8(KÿÝ`="¥/£|xøit`AÞ; ;; H```ëþÞ`è~¨ëx8à;ÿÿ;½W>9&ê|cÂ})ÉÖy) ÿJåûxKÿà)`é>¾`8x98à8Àê|i|¥úKÿßý`9Y{)¤é /.¤AWÆ>WD.|ç3xTü>}(J}Y´; W½>³@ÿT|¬;=¥éHtp})4U)Ù~i)})Ðy) 9)±*;})4U)Ù~i)})ÐU)p9)éHtp±*;=B¥éJtx/`B¡*AP=¥=B¥éJt 9t´} G,9 ±*9@cÛx;Úÿÿ;à="¥é)t ±I!pa)}$´!pKÿã]`8cÛxKÿßM`9 :```äûx8 ;ÿcÛxKÿçA`/ÿ´~@ÿÜKÿý<cÛxxä` Kÿæ`/£@09 8pcÛx>`KÿãU`KÿýÀ`8b8Há`!pcÛxa)}$´!pKÿâ¥`CÓx8Kÿ«õ`8`8!ÀèëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N <Â¥=B¥éJt ±&t´9 Kÿþ¸8ãûxKÿâ9`CÓx8Kÿ«`8`Kÿÿ`8bH1`8`Kÿü`,#M |¦ûáÿø|xøø!ÿ#/@,ãûx8Kÿ«!`8!èëáÿø|¦N `<b¥8ctÐ8Kÿá`<b¥8ctÐKÿáå`9 ãûx8?KÿªÍ`8!èëáÿø|¦N `,#A|¦ûÿàû¡ÿè<â¥ûÁÿðûáÿø||x8çtP?¢¥;½tÐ<¢¥è¥txøø!ÿq]¡/@T="¥¡)t´H@AtÇ`x }IC}JAÖ}*HPy)H}%JéÉ;ÿÆðP}?C @{Þ }	AÖèøP{ÿ AÝéG{é&ä|H*ÅóxãxHu¡`]="¥<â¥èçtp¡	t´/9H¡±It´A´UD.=B¥JtXU	Æ>})+x8ßÿÿU(>TßÆ>}(STÅD.ÿ+xWÿ>}IQÖ}J@PyI y)¤}'J³é|¬=9=B¥éJtpU>/AU	Æ>UD.});xU(>±
£ëx8KÿÛÍ`8!Ã´èëÿàë¡ÿèëÁÿðëáÿø|¦N UÆ>U
D.="¥¡)t´|ÆSxTÈ>H@AÇ`x }IC}JAÖ}JHPyJH}%R9I9)àT,} L,;ÿ}&HP}_Cð@y) }
AÖèøP{ÿ @ð`8b`HE`==¥éth{ê&ä/|P*AÞþ|x"T@>Tè@>PÀPèÀPÄ.PèÄ.xÆÆ|ÆCxÅóx|Ä3xãxHsñ`]="¥<â¥èçtp¡	t´/9H¡±It´@þT=B¥JtX;ÿÿÿWÿ>}(S}IQÖ}J@PyI Kÿþl```8!8`èëÿàë¡ÿèëÁÿðëáÿø|¦N ```é{ê&ä}>Kx|P*Kÿÿ0```8`ÿÿN |#xKÿþè`,#A|¦/êûAÿÐû¡ÿèûaÿØûÿà|#x|zxûÁÿðûáÿøøø!ÿaA¨?¥;tÐ</@?b¥;{t¶<¢¥¥t°8cÛxHri`="¥é)t /¤£ÉAWÉÆ>WÇD.});xU>>="¥)tWß<<b¥ècteÛx<Â¥Æt°8à}_K}*IÖéøPû´Wÿ>{{&ä9|cÚU>KÿØÁ`<b¥èct;{98à{¦ EÓx|cÚKÿØ`="¥)t\=¥ét |þK/}'IÖ})ðPy) AWêÆ>WçD.}J;xU_>y)¤}(J³é|¬<;Þ=B¥éJt WÞ>/AWÉÆ>WÇD.});xU>>³Ê|¬8ãxKÿØe`8! £ëxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ?b¥;{tÀKÿþ``8bH}9`8! 8`èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `8`ÿÿN ```|¦û¡ÿèûÁÿð9 ûáÿø|}xøø!ÿa!pKÿÛý`èr£ëxKÿÛ`!p£ëxa)}$´!pKÿÛq`=/A<£ëxxäKÿÞq`/£AX``8°8bÀH|Q`!p£ëxa)}$´!pKÿÛ`8`8! èë¡ÿèëÁÿðëáÿø|¦N 8p£ëxKÿÛe`?Â¥8 ;Þu@£ëxÄóxKÿÙ`/£@ÿ|8`Kÿ£`<Â¥/£|ixøfuPAt;àHé>è~{ê&ä{åd|©*98à8À|cRKÿÖ	`]é´Wè>;ÿy)¤*¿/é^ AUÆ>UD.|ç3xTè>}*J±	@ÿ==¥éHu`})4U)Ù~i)})Ðy) 9)±*=})4U)Ù~i)})ÐU)p9)éHu`±*|¬==B¥éJuh/¡*AU*Æ>U(D.}JCxUI>=B¥8 88£ëx±*upKÿØe`|y@þH8£ëxKÿÓ}`=|jx³ã£ëx})4U)Ù~i)})Ðy) 9)±*!pa)}$´!pKÿÙ9`8`Kÿþ$`8bÈHzA`KÿýØ``|¦ûáÿø8|xøø!ÿKÿØé`ãûxKÿÙ=`8!èëáÿø|¦N `|¦û!ÿÈûAÿÐûaÿØûÿà|{xûÁÿðûáÿøû¡ÿèøø!ÿQè8KÿÐ½`8|xcÛxKÿÑ`8|yxcÛxKÿÒU`8|zxcÛxKÿÓ`£|~x/¤AWÆ>WD.})CxU<>}<û9£¾8à8À8¡èéùÖÿàPã´{ÿ xc&ä|yKÿÓ`;Wê>/AUIÆ>UHD.})CxU*>{ÿ¤úú±_|¬;;W>/AWÆ>WD.})SxU<>³8cÛxKÿÓ}`KÿE`8cx H|¬Kÿ-`ø@A@¡>H@Aÿä8!°8`èë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `8bøHx)`8!°8`èë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `|¦ûÁÿðûáÿø|~x8 8øø!ÿ8apHkm`><Â¥èÆuh<â¥<¢¥8¥u@¡Gup/¡&AàU'Æ>U(D.|çCxTé>P@Aø%èå8ap}
K}IÖ}PPyH}FB9JàT,;ÿ}_K}*IÖ9@éøPé´{ÿ y)&ä}'J9)ÿð|ªL,|L,x¥Æ|+x8 Hk`^="¥<â¥èçu`¡	up/9H¡±Iup@¸=B¥JuH;ÿÿÿWÿ>}(S}IQÖ}J@PyI HÐ```P@A,%èå8ap8 }
K}IÖ}HPPyJH}FRê;ÿ}_K}*IÖéøPé´{ÿ y)&ä}'JèÿðHj]`^="¥<â¥èçu`¡	up/9H¡±IupAÿPUD.=B¥JuHU	Æ>})+xU(>9?ÿÿ|ÈSU?Æ>U%D.ÿ+xWÿ>}FQÖ}J@PyI y)¤}'J³é|¬>9=B¥éJu`U>/AU	Æ>UD.});xU(>±
|¬8ÃóxKÿÐ`ap8!èëÁÿðëáÿø|¦N 8!8`èëÁÿðëáÿø|¦N ``#=B¥éJuh/ jATiÆ>TjD.})SxU#>="¥¡)up}#x|c4TcÙ~hcN ````="¥øiu¨="¥øu°="¥ø©u¸="¥øÉuÀN |¦<b¥ècu¸8  8øø!ÿHhU`<b¥ècuÀ8  8Hh=`="¥9)uÈ=B¥éJu¸8!pùIè|¦N `|¦ûáÿø=¥éu¨="¥9)uÈ?â¥<¥èu¸;ÿu¨/¨øø!þ±é)C}$HPA8AÞ/¤AÞèß/¦AÞø+ AÐ}%´y) H@A } %,øA(8á8èé(éh})¦èHN!èA(/£@ éé_8È} 6,8Ê|à6,8@@`*+kAÞh8c|cJx|c4TcÙ~hc|cÐxcèBxc8!Pèëáÿø|¦N ``8`ÿüKÿÿà``8`ÿúKÿÿÐ``8`ÿóKÿÿÀ``8`ÿùKÿÿ°``8`ÿôKÿÿ 8`ÿøKÿÿ8 È88apHf`é?8 Ç8é8	}@>,+ÆAyE 8apHdÙ``8p8bHr¥`8`ÿýKÿÿ<``|¦ûÿàû¡ÿè||xûÁÿðûáÿø`;Â(øø!ÿqKÿý?â¥;ÿuÈ9@Ãóxé?Ié?9Iù_9@dI`Bé?9Iù_9@ÿÿ±I`Bé?9Iù_}@ä,I`Bë¿9=;½ù?HbÕ`|`ï,Ãóxë¿;½û¿Hb¹`Äóx|ex£ëxHeµ`ÃóxHb`é?})ãxù?KÿýA,#@L="¥é)uÀ\8é}<,@@A\\8
9)`8b8| N,Hb`0cÿÿ|cxc¤8!èëÿàë¡ÿèëÁÿðëáÿø|¦N ```}
CxKÿÿ¤```|¦ûÁÿðûáÿø|~xûaÿØûÿàû¡ÿèøø!ÿaècHa¹`|xè~Ha©`>|cú8cH@AKÿûÝ?â¥;ÿuÈ9@;ÿÿé?Ié?9Iù_9@hI`Bé?9Iù_9@±I`Bé?9Iù_9^}@T,I`Bé?9Iù_`Bë¿è~9=;½ù?H`ý`|`ï,ë¿ë~;½cÛxû¿H`Ý`dÛx|ex£ëxHcÙ`è~H`½`ë|}xè~};êù?H`¡`|{ï,ë¿ë~;½cÛxû¿H``dÛx|ex£ëxHc}`è~H`a`é_8! |ixÃóx}
JùI.é?9)ù?èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦KÿúÔ8! 8`ÿüèëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```|¦ûáÿø|#xøø!ÿqøapKÿú	="¥9)uÈ9èap8!éI
éI9
ù	9x
`BéI9
ù	9±
`BéI9
ù	àE,`BéI9JùIèëáÿø|¦Kÿùü```|¦û¡ÿèë¦úÿ ú¡ÿ¨úÁÿ°úáÿ¸/½ûÿÀû!ÿÈûAÿÐûaÿØøûÿàûÁÿðûáÿøø!ÿ1A|¾+x|#x|yx|Ü3xKÿù?¥;uÈ9@`¿ëx;`;B@é8Ié89	ù9n	`Bé89	ù9±	`Bé89	ù~àE,`Bé89	ùÀE,`Bé89	ù±I`Bé89)ù8``?/©Ap+/þûx@,``>+/Aÿø/©ßóx:à: A0ßóxH``A?*//©@ÿð~¾øPz· ~å»xÄóxCÓxH]ù`/£Aÿ|èø="¥é)u¸Y:Û
~Ô´})8P9)})º9	P@A¬@@A¤~ ?,~å»xÄóx~£xé89)}#Kxù8H`M`é8/~©ªú¸@ÿ=B¥éJu¸9 ûü#Ëx±*Kÿ÷É/£A8!Ðèêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿð|¦ëáÿøN þÿÿkÿ/ÿ4WÿÙ~ÿðP/»@À£ëxH\`/£@È9 =B¥éJu¸ûü#Ëx±*Kÿ÷5/£@ÿp="¥é)uÀ9)}@N,ØA9*ÿÿ/ÿÿ}*´AH=+/@`=+/Aÿø/©AÿÐ=*//©@ÿð9*ÿÿ/ÿÿ}*´@ÿÀû¼}|c4TcÙ~hcKÿþìWiÆ>WhD.})CxU)>KÿÿLë¼KÿÿÔ8`ÿöKÿþÈ8`ÿ÷KÿþÀ```|¦ûÁÿðûáÿø|#xû¡ÿè|xøø!ÿqë£KÿõÍ9@="¥9)uÈsÄ__£ëxé	HéI9
ù	9p
`BéI9
ù	9±
`BéI9
ù	}ü,
`BéI9
ù	`BéI9JùIKÿõ±,#@="¥é)uÀ9)} L,?8!èë¡ÿèëÁÿðëáÿø|¦N ``|¦ûAÿÐûaÿØ|#xûÿàûÁÿð|¼+x|~xûáÿøû¡ÿè|Û3xøø!ÿaë£Kÿô¹ý;ÿÿõà@@ãx="¥9)uÈ9{g"£ëxéI
éI9
ù	9t
`BéI9
ù	9±
`BéI9
ù	Àô,Ê`BéI9
}
Cxù	9`U,|èU,éI9
9JàE,ùIKÿô},#@4<¥èuÀ9DÀT,ð@{Å AH8CÓxH\`Ã´8! èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``8`ÿõKÿÿÌ```|¦ûáÿøûÁÿð|xøø!ÿëÃKÿóe="¥9)uÈ9@ù__Ãóxé	HéI9
ù	9|
éI9
ù	9±
éI9
ù	|àü,ê`BéI9JùIKÿóe,#@0="¥é)uÀ8à8É*}4,}@4,yÆ}JCxù_)?8!èëÁÿðëáÿø|¦N ``|¦ûÁÿðûáÿø?Â¥;ÞuÐøø!ÿëþ/¿ALé?8 8ãûxù>HZÅ`9 ù?8!ãûxèëÁÿðëáÿø|¦N ``8`Kÿ`,#AD9 |ix}	¦9@H``Aù)ÿùI9)/©Bÿìø~|xKÿÿhûþKÿÿ``,#="¥9)uÐéI@H,``}*Kxé*/©@ÿôøjù#N `/ª@ÿàN ``|¦|iyøø!ÿAÂ`é)/©ATé)/©AHé)0/©A<øA(éIéi}I¦èIN!èA(8!pè|¦N `````8H8bHe`8`KÿÿÈ`|iyM é)/©M é)/©M é)/©M é)@/©M |¦øø!ÿøA(éIéi}I¦èIN!èA(8!pè|¦N `|iyA|é)/©Apé)/©Adé)/©AXé)H9@/©AL|¦øø!ÿøA(éIéi}I¦èIN!èA(8!pè|¦N ```9@}CSxN ``|¦ûáÿø|yøø!ÿAd="¥9)uØéI/ª@H4}*Kxé*P/©@ÿôûêP8!èëáÿø|¦N ``ûé8!èëáÿø|¦N `8b¨HcÑ`Kÿÿ``|¦,#="¥9)uØøø!ÿé)A/©A4éIXª@@H8`IXª@A(é)P/©@ÿì8!pè|¦N ``ù#é)øA(éIéi}I¦èIN!èA(8!pè|¦N `8b°Hc`Kÿÿ¤```|¦|iyøø!ÿA@é)é)/©A øA(éIéi}I¦èIN!èA(8!pè|¦N `8b°Hb`Kÿÿà|iyA|¦øø!ÿé)/©ATé)/©AHé)/©A<é)(/©A0øA(éIéi}I¦èIN!èA(8!pè|¦N ``8X8bHañ`8!p8`è|¦N `8`N ```,#Alèã9@/§A`|¦8 øø!ÿ¡#èg 8p±Ar±Av}	Kx9p9q9t} G,Kÿþå8!è|¦N 9@}CSxN ``,#A\|¦9@ÿ|©+x|#xøø!ÿAp9@èc 8pAq9@±At9Av} W,9 ±!rKÿþe8!è|¦N 8`N ```,#A\|¦9@ÿ|©+x|#xøø!ÿAp9@èc 8pAq9@±At9Av} W,9 ±!rKÿýå8!è|¦N 8`N ```|iyM èi Kÿý¤`|iyA/¤Aèi(/£A|¦|ë;x|Ê3x|¤+xøø!ÿé)/©Até)/©Ahé)8/©A\øA(}ESx}f[x}CxéIéi}I¦èIN!èA(8!pè|¦N èi0/£@ÿ8`N `````8h8bH_A`8!p8`è|¦N ``|¦$ûáÿø|xy) +øø!ÿA0+Ax8!8`èëáÿø|¦N ```$U)Éþ/A$Kÿø¡8!ø(8`èëáÿø|¦N Kÿø8!ø08`èëáÿø|¦N Kÿøa8!ø8`èëáÿø|¦N `|¦|iyûáÿøøø!ÿA\)d=@;àaJPA$8!ãûxèëáÿø|¦N ``HJ`8!ãûxèëáÿø|¦N 8!;àãûxèëáÿø|¦N ``|¦|iyûáÿøøø!ÿA\)d=@;àaJPA$8!ãûxèëáÿø|¦N ``HKQ`8!ãûxèëáÿø|¦N 8!;àãûxèëáÿø|¦N ``,#A¼#e+A8`N ``/Aÿì|¦û¡ÿèûÁÿð; ûáÿø|~x;ã8øø!ÿq?y) /AD9=;ÿH@}=´Aÿà8!8`èë¡ÿèëÁÿðëáÿø|¦N ```äûx8À8 ÃóxKÿýA`Kÿÿ¨`8`N ```,#Al#e+A8`N `|¦ûáÿø|xøø!ÿèc(/£AKÿöqè0/£AKÿöa8!8`èëáÿø|¦N `8`N ```,#A\|¦|ix9@9)x9!8 øø!ÿ±Av±Ar8p}@N,èc p9ÿÿq±AtKÿøÕ8!è|¦N 8`N ```|¦ûáÿø|xøø!ÿèc(KÿùIè0KÿùA8`Kÿ	`8!èëáÿø|¦N |¦ûÁÿð;Àû¡ÿèûáÿøû!ÿÈ9 8ÀûAÿÐûaÿØ8 |#xûÿà|xøø!ÿ!tÃl8±!ÁÁKÿôY8 8pø ãûxKÿù5/£Aé? Aw±I?h/AX9=Á³Á8 ³Áëßè 8?t9 !9>.} N,±!Kÿ÷,#A@é>(9Iù^(?l|¬8`dKÿ~õ`8 8pãûxKÿø¡/£@88`8!àèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `8 	8ãûxKÿøÕ/£Aÿ¸9!N,+	Aÿ¨ãxKÿ`|zyA4ãxDÓxãûxKÿø/£Aà9 9Aè 8 8±!9	±!9!}@O,Kÿö/£A |¬8`d;Ú	Kÿ~`9<ÿ÷; U=>H<``@ ?`Y+±_x@p9)?`};èPÞÚq=ÿÿA¤>~./@ÿÀ^>ÙóxUJU)@.}IKx})Cx?dKÿÿ¸`ãxCÓxKÿy`Kÿþy#$Äóx})P8 |J8c8HL%`?`Kÿÿp``¥ëx88bÀHX`8`KÿþDCÓxãxKÿ`8`Kÿþ,```````N ûáÿø|yûÁÿðAÄé?|#x8`<8é)é) è©8¥<D"/£9 ÿÿy) Ap<¥ uàHAé?8`<8é)é) è©8¥<D"/£8àÿÿxç A`9?ÿôé8_Lè | L,9?ÿø9Jÿÿ|L,yJ |¨(P|©&t|£*8ÉT:}&SÒ} P<¥}B°äuà}IQÒ}*0Py+'y) |ãZ§@@Aè¡_èß(é@}*IÖy) }FJ|ÆL,})B/¦A,99Jÿÿ}	¦8ÿÿ```
Bÿø9@ð9y) }CY.9@G} E,¡_9Jÿÿ}*J9G} U,é_ é?8|ê8P|çJTé@>PéÀPéÄ.%|¬?ÿô8`ëÁÿðëáÿøN ```T@>PÀPÄ.<¥ uàU	>H@þëÁÿðëáÿø8`N T@>PÀPÄ.U>Kÿþ,#M é#/©M |¦ûaÿØûÿàû¡ÿèûÁÿðûáÿøøø!ÿaé)ëÉ é> /©Aløi#|x/Ah9 ûþ 8  8ãûxù?ù?HHÙ`8! èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```ø~Kÿÿ``ë¿=dm*/A=@	P@ÿ?ÿðëë0e)@?ÿð|¬9 ¿Hè(è@?ÿø?ÿô?ÿüKÿ~`¿Lè è8x¥&äKÿ~`Lè x&äKÿ{`]dmI/A= 	H@þü;`å,KÿþðWi@>SiÀSiÄ.<< <@<`KÿþÐ`|¦,#úÿ ú¡ÿ¨úÁÿ°úáÿ¸ûÿÀû!ÿÈûAÿÐûaÿØûÿàû¡ÿèøûÁÿðûáÿøø!ÿ1Aé#|Ü3x|»+x|#x|}xë) ëù/¿AÜé?/©ù9A8  8ãûxHG-`9 û¿9~ù?>y) y* +_=h?} ^,±?U:>y ±>y)$U)>?AÀ+AH8!Ðãûxèêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿð|¦ëáÿøN ßh]l¡? ¿|Æ4yJ`a@U)^TÆÙ~|èSx|ÆÐ}
KxxÆ$T©=p}IKx8Æ})3x9_ÿð} U,Kÿÿl```ù9 Kÿþä``=dm'/A<à	8@ÿ,{X =lýhU80ë9~ÜÃy*``éP}IKx}(CxWI^}Kx9?ÿð}M,êÿ0:~´zµ&ä~£«xKÿx©`|~yA~¤«x8 Kÿ{1`8z (|uxÃóxHEy`ãx8cÛxHEe`8 ãxcÛxKÿzñ`/9 ûß ú¿8Lû(Hø@@l:Öÿÿ8ØÿÿzÖ xÆ 8¶9>x¥&ä8ð|¾*xh 9iÿô}^HP|è2}],}Jª9	ÿøÿð|cÒ}@E,9Iÿü9)¥H@|àU,@ÿÈzÉ&äÞJ9@}5J9ÿø9ÿô^~ ],} E,_ÿü]dmI/AH= 	HA_Kÿý°``8`Kÿwm`/£|zxøy°Aè8 8Kÿyí``_Óx:Ú`:à|xxøy¸:¢H(`¿°@}:øP})Â9_pù?@A<ù_;ÿ`{è!úÿAÿØ~£«xHPA`¿°@}:øP})Â9_pù?@@ÿÌé9/©A é9 9ZùIëù;ZpûY Kÿüd;úûùKÿÿì``8Ø8bPHOÝ`_Kÿü´```;àKÿü¨;9~àÍ,?ÿð_U)H~U)¸>?ÿðKÿüVé@>RéÀRéÄ.99 9@9`KÿÿÌ```,#AÜ|¦ûáÿøøø!ÿëã è¿8¥|¬<ÀÃ8`@xÆ 8D"8`KÿtA`è¿8¥|¬8`@88ÀD"è°/¤A$è¸8 Kÿxù`è°8Kÿv	`è/¤A$è¨8 hKÿxÍ`è8hKÿuÝ`ãûx8ÀKÿvÝ`8!èëáÿø|¦N é# à```|¦úaÿúÿ `}&ú¡ÿ¨úÁÿ°|Ö3x>úáÿ¸ûÿÀ|ø;x`û!ÿÈûAÿÐÃx;@ûaÿØûÿà|»+x||xû¡ÿèûÁÿð|#x:àøúAÿ:b{{ ûáÿø:p:¢¨ø!ÿ!Kÿr`8cx~ ``|¬è½8`<88¥D"/£@pT@>PÀPÄ.}DSxy_ xÿã``@ÂLKÿr-`ð@AÀ|¬è½8`<88¥D"T@>/£PÀPÄ.}DSxy_ xÿãAÿ¸9<|L,/¤Aÿhü|¬.9@$~V P~I&t¸HAÀ`~cxHLý`è½8¥|¬8`@8<ÀD"|¬è½8`<88¥D"AÿCÓxH ``äûx8bhHL¥`8`8!àèêAÿêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØ|¦ëÿàë¡ÿèëÁÿðëáÿø} N ~RÚAÂÿD;9ÿÿ|¬2U?@>Q?ÀQ?Ä.Wÿ'>{ê!@ha)9R|T,2ò|¬.¤~V P~I&t.9~RÚ©ÀAþøAþô@þäAÂþà;9ÿÿ|¬2U?@>Q?ÀQ?Ä.Wÿ'>{ê!Aÿ yJ$~Ex~£«x|P*HK©`+2ÿÐ@ÿxú´Kÿÿp```|¦ûÿÀû!ÿÈûAÿÐûaÿØûÿàû¡ÿèûÁÿðûáÿøøø!ÿA#/@|éfp})+A\/¤|#xA|x|½+x88 ÃóxøÁpøáxH>`èáx=ðèÁp3ÿÿy }JQxé!yJ$}JBAèUC@>;QCÀ9`QCÄ.Êóxxc HL```;jÿô}(HPy)!|ÆB|Ý,8ÿü;|à%,T¤@>jÿðP¤ÀP¤Ä.x ÿøAl*9J/¦xÄ |¾PP}(Kx@9|è"|½*8çÿÿy @ÿ}(HPT¤@>Êÿôjÿüy)!P¤ÀjÿðP¤Ä.x |ÆBÿø;@ÿW«@>S«ÀS«Ä.é?ß 	hl|Æ4¡?Tj^TÆÙ~a@x`ÿø|èCx|ÆÐ}
SxxÆ$U)=p8Æ}IKx9ÿð})3xT}J[x} E,9 ¿ÿô_ÿø?ÿü|¬?ÿðé_4U)H~U)¸>?ÿðé(ë) ëY|¬UF@>;(QFÀ8`@QFÄ.8xÆ ÃxD"|¬|¬8`@88º<ÀD"KÿmÅ`8cx{ H?ÿø_ÿôU)0¾U)Ð>PAKÿm`Ø@AÿÜ|¬èyÅóxãx¦ëx8Kÿúa|~x|¬?ÿðe)@?ÿð|¬|¬8`@8Ãx8ÀD"|¬8`@88º,8ÀD"9_ÿø} T,y;á@è8!ÀÃþp|~PèëÿÀë!ÿÈëAÿÐTcþëaÿØëÿàë¡ÿèëÁÿð|c´ëáÿø|¦N ``8bÀHH`8`8!ÀèëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ````|ä;x8bàHGÅ`8!À8`èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```;ÿø8b(HGu`9?ÿü8ÿð| Ü,9_ÿô`}$,|àL,`8b8|ÀT,8ðHGA`?ÿøU)8~U)È>?ÿø|¬/ÿü@þ¼èKÿì	`8`Kÿÿ``8ð8bHFù`8`KÿþàW«@>;S«ÀS«Ä.ye Kÿüä`}&|¦úAÿúáÿ¸|²+xûÿÀû!ÿÈ8¤ûaÿØûÿà|#xû¡ÿèûáÿø|x8`0úÿøú!ÿúaÿúÿ ú¡ÿ¨úÁÿ°ûAÿÐûÁÿðø!ÿÄ~ .,Kÿm`8 80|}xKÿo`8 08Þtz» |yx£ëxH9Í`8 8ãx{7 KÿoU`97|xyAä{
 8Ý9
8ý}@5,.;9]}=,} U,9 ò=@Ô/9=::`A9ó9@	W(@>S(À8¿ÿðIIS(Ä.I¡?ÿÿøU&^Tç|èCxé?)lÿø_ÿü_ÿôy)`a)@})3x} -,|¬?ÿðé_4U)H~U)¸>?ÿðé(ëI ëz|¬UF@>:Û QFÀ8`@QFÄ.8xÆ ~Å³xD"|¬|¬8`@88»<ÀD"Kÿi`8cx~ H```PAKÿii`?ÿø_ÿôð@U)0¾U)Ð>AÿÜPAÞl``88bpHD```8b;ÜÿÿHDi`::"``~#xHDI`°ð@@ÿì`8b HD1`èz~£x&Ëx¥ëx8Kÿõµ|~x|¬?ÿðe)@?ÿð|¬|¬8`@8~Å³x8ÀD"|¬8`@88»$8ÀD"8 ãxÃxKÿmÍ`A~¥«x~Dx~cxKÿmµ`8 0¤ëx~ã»xKÿm¡`£ëx80Kÿj±`8!ðÃþp|~Pèêÿê!ÿTcþêAÿêaÿêÿ ê¡ÿ¨|c´êÁÿ°êáÿ¸ëÿÀë!ÿÈ|¦ëAÿÐëaÿØëÿàë¡ÿè} ëÁÿðëáÿøN 9].;} U,9 ò=Aý48 ~¤«x~CxKÿl5`Èðø/}þv9= |syy$9ó8÷ @,}}9]:|àU,@üô9óKÿüð`zf 8½9[ÿÿ}J2|À-,8Ý}@5,KÿÿÄ`|¦û¡ÿèûáÿø|xúÁÿ°úáÿ¸`ûÿÀû!ÿÈ8b ûAÿÐûaÿØûÿàûÁÿðøø!ÿ1HB!`8`ÀKÿiÕ`|}yA$9 û¿ 88 Àù?(H5¡`9 ûý8`hù=ù= é?ù=Kÿh}`/£|dxø}Axi /Al`8bàHA¡`è}8hKÿhÁ`8À£ëxKÿiÁ`8!ÐèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8 8hKÿj`ëÝø}¨|¬8`@88¾8ÀD"8`dKÿf-`|¬8Àÿÿ8`@88¾xÆ D"|¬;Þ8`@8Åóx<ÀD"|¬;à`8`<8ÅóxD"T@>/£PÀ9?ÿÿPÄ.y? }DSx.¿xá8`@A$AKÿeý`Kÿÿ´`8bH@i`é=8À8 ëý8p8}(ù=89 !s9 ±!tKÿÚ%`/£|~xø}@AÞè}8 8ë0H3½`8 88~ÿðH3©`9@ W@>}I¦= @SÀSÄ.>ÿð9 xç H``````éy*d9)y) |èQ.Bÿì=¬|¬U&@>8`@Q&À8Q&Ä.8¿xÆ D"|¬8`@88¿ 8ÀD"|¬8`@88¿(8ÀD";ß8`<8ÅóxD"/£<À·xÆ @(T@>PÀPÄ.U)¬a)·U&@>Q&ÀQ&Ä.xÆ |¬8`@Åóx8D"8`dKÿd`|¬<Àß.8`@`Æx'88¿4xÆ D"|¬8`@88¿@<À/*D";ßH8`<8ÅóxD"/£<Àÿö`ÆÿÿxÆ Al|¬8`@8ÅóxD"|¬8`@88¿L8ÀD"|¬8`dKÿce`ë]8`<88ºHD"/£; ÿAð|¬8`@88ºP8ÀD"8`d;ZTKÿc`/¹;à;`Aüp``;`:âxHØ|¬8`@8EÓx<ÀD"|¬8`dgÿ{ÿ KÿbÉ`8`<8EÓxD"/£@ìT@>PÀPÄ.}$KxU<xgãU$Z{ x @ÂÌ/¼Agÿ{ÿ /¾Agÿ{ÿ {éäy?!A(|¬U&@>8`@Q&À8Q&Ä.EÓxxÆ D"8;ZÈ@x Aû8`<8EÓxD"/£@ÿT@>PÀPÄ.}DSxxãAâÿ0xá@ÂþøÃxH<Á`8`<8EÓxD"/£Aÿ?À?KÿÕI`é=dÛxgÿ{ÿ |vxù#Kÿá¹`/£A~Ã³xHÕ`Kÿþü``dÛx~ã»xH<I`Kÿþà```T@>PÀPÄ.U9>Kÿþ```T@>9 öÿPÀPÄ.})P8a)U&@>Q&ÀQ&Ä.xÆ Kÿýp`8b¸H;Ý`8!ÐèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `8b0H;`KÿýP
```N |¦<b8cðøø!ÿKÿÖý`8!pè|¦N ``N ,#M é#/©M |¦øø!ÿé)é) éI0/ªA@øj9@øi08  8ùCùCH.q`8!pè|¦N ``9@øi(øi08  8ùCùCH.5`8!pè|¦N |¦,#ûaÿØûÿàû¡ÿèûÁÿðûáÿøøø!ÿaATé#|#x|}xë ëü(/¿A é?/©ù<(A8  8ãûxH-±`9 û¿ù?>y) ?=h?¡>±?>U)Éþ?>y) ±?8! ãûxèëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ù<0Kÿÿ``8`Kÿ`-`/£|{xø|XA8 8Kÿb`9@ iÛx}I¦9ø|`H```9IÀ9)ùIÿÈ}[HPù	H}JùI`Bÿäé<(/©A(é<09[@ùIëü(;{Àû|0KÿþÐ;àKÿÿ,;û@ûü(Kÿÿä``|¦û¡ÿèûáÿø|xûÿÀû!ÿÈ`ûAÿÐûaÿØ8bÈûÿàûÁÿðøø!ÿQH8`8`hKÿ`=`|}yAØ8 h8H,`9 û¿ 8`<8ù?(ûýè¿ø½ëÿD"/£9 ÿ@T>}?Jù=Kÿ\Í`8è½8cúx 8`<D"/£= Ïÿa)ÿÿy& Aè½|¬8`@8D"HKÿ\`ø@Aÿô8`<8è½D"/£@Tx W@>SÀSÄ.y*ÿã@Â<8`Kÿ^=`|zyAÂ¬8 8Kÿ`Å`|yx8`@Kÿ^`|yAÂ8 8@Kÿ``8 @8|xxãûxH*å`= 9}	¦????= @?c	U*@>Q*ÀQ*Ä.9:ÿüyJ IBÿüé=8©|¬W&@>8`@S&À8S&Ä.xÆ D"8`@Kÿ]m`|~yAÂ¤8 8@Kÿ_õ`8 @8|{xÃóxH*=`= cj>}@õ,=@>= @^>è½8¥|¬Wf@>8`@SfÀ8SfÄ.xÆ D"ûÝû}@ûý ûHû]8û=Pè½|¬g!8`@8xÆ D"è½8¥@|¬8`@8<ÀD"è½8`<88¥D"/£@0T@>PÀPÄ.}$KxpA¤`;à;@;"¸;`þûH$```@Â\;ÿà@{ÿ @lè½;ß8`<{Éd8|¥J8¥D"T@>/£PÀ{ÉdPÄ.8`<}DSxxá8Aÿ¨è½|¥J8¥D"/£T@>PÀ<ÀûÿPÄ.`Æÿÿ{ØddH8xÆ @`T@>PÀPÄ.xÆ è½|¥Â8¥|¬8`@8D"8`KÿYé`è½8`<8|¥Â8¥D"/£<Àÿþ`Æÿÿ{ÞdxÆ @xxBxÆ è½Åò8¾|¬8`@8D"8`KÿY`KÿÍ`é=äûxCh|~xù#KÿÙ`äûx/£ÃóxA;ÿH
`à@{ÿ Aþ8!°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N T@>9 ÿÍPÀPÄ.}*@8aJUI@>QIÀQIÄ.y& KÿûÔ``#ËxH3`Kÿþ;Kÿýè`8bàH3`8!°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `8bH3Q`Kÿý``8bPH3=`DÓx#Ëx8 Kÿ]9`8CÓxKÿZI`Kÿý(`8bH3`äûxÃx8 @Kÿ]`8@ãûxKÿZ`Kÿÿ¤`8b H2Í`KÿüÜ`,#A¼|¦=B¥ûÁÿðûáÿø|~x*uä9)øø!ÿ/*uä@<``88bèH2i`8!èëÁÿðëáÿø|¦N ``ëã /¿A8`<8è¿D"/£8ÀÿÿxÆ Aè¿|¬8`@8D"è¿8¥|¬8`@88ÀD"èX/¤A$è`8 Kÿ[á`èX8KÿXñ`è /¤A$èH8 @Kÿ[µ`è 8@KÿXÅ`è/¤A$è@8 @Kÿ[`è8@KÿX`è8/¤A$èP8 Kÿ[]`è88KÿXm`ãûx8hKÿYm`9 8!ù> èëÁÿðëáÿø|¦N `dþÿ`ÿÿxÆ Kÿþàé# à```|¦ûÁÿðûáÿø|~xøø!ÿ|¬8`<8è¾D"/£@ðd@x è¾|¬8`@8D"|¬KÿU-`8cx KÿU`8ø@8`<@`è¾8¥D"T@>/£PÀPÄ.}$KxxßãA<è¾8¥|¬8`@8<À D"8!8`èëÁÿðëáÿø|¦N @ÂÿÈKÿT`8ø@8`<Aÿ8!8`èëÁÿðëáÿø|¦N ``8ÀÿÿxÆ Kÿÿ``|¦ú¡ÿ¨úÁÿ°úáÿ¸ûÿÀû!ÿÈûAÿÐûaÿØûÿàû¡ÿèûÁÿðøûáÿøø!ÿ1#/@ é#|x8``|#x|¸+xé)ë KÿUá`|}yA8 8`KÿXi`8 `8|yx£ëxH"±`8 8cÛxKÿX=`99 9]8à|é¦} í,= |zx9== a)=|`U,9#y)ä©@@9J} U,9)Bÿì9Û~àF,Þtzõ!@l9] :à:ÀÉðø=U)Mî9Je)
ÿø
ÿüa)} U,|¬9ÿÐ8¿ÿÀ E,_¡?¡UJ`&U)U@.èü@èß`ç|à-,æl}J;x8ÿÿÄ}IKx})Cx} =,|¬é? é\a)} U,|¬KÿR`¿ëx> 8cx~ H(`|¬KÿRm`ð@A4?¨AD9} D,y*Ïã@ÿÔKÿRA`;ÿ ð@@ÿÔ`;à8b@H-q`é<@é\a)} U,|¬8|Kÿü/£AdÛxCÓx8 KÿWI`~å»xÃx~Ã³xKÿW5`8 `¤ëx{# KÿW!`£ëx8`KÿT1`8!Ðãûxèê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```8bH,©`8`8!Ðèê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N é<@é\;àa)} U,|¬8|Kÿûu/£@þø``8 8bhH,)`;àKÿþØ``8 ~ä»xÃxKÿUU`9@8ý WÉMî8 |©¦}=,e)=a*V©|vx}IKx$9],9(} E,|`U,9#}y)ä©@@9J} U,9)Bÿì9]@Kÿý$`8b(H+`8`KÿþÜ``|¦úÿ ú¡ÿ¨úÁÿ°úáÿ¸ûÿÀû!ÿÈûAÿÐûaÿØûÿàû¡ÿèøûÁÿðûáÿøø!ÿ1#/@l= |þ;xa)@HApcé#: |ux|#x|¹+x|Ö3xz {4é);¤|#x?@W{Ù~k{ë W{@.g{c{{x 8  8~ã»xHY`98à|é¦96~ÀE,{Ê y)ä}J²ªH@l9} E,9)BÿìªH@T})PP8÷})´ÉðP/©WÊÞ´}JÃx}@=,AÞ<~½,W:÷ : ·è@~Öòz A,}>KxKÿÿ`WÞ9ÛÛx`E,= 77`|¬9ÿÐ8µÿÀ E,U¡5¡UJ`&U)U@.èü@èÕ`ç|à-,æl}J;x8õÿÄ}IKx})Cx} =,|¬é5 é\a)} U,|¬?`KÿN5`8cx~ H9} D,y*ÏãAKÿN`ð@Aÿä|¬?ØA 8¿} ,,y'Ïã@Ð;ÿ ¿è@@ÿ¤;Àé<@é\a)} U,|¬8|Kÿø9|yAßóx8!Ðãûxèêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿð|¦ëáÿøN ``;à8bH(¥`Kÿÿ¤`;à8b H(`Kÿÿ``8°8bhH(q`Kÿÿp`;À8bÈH(Y`Kÿÿ0N |¦<b8cPøø!ÿKÿÃÍ`8!pè|¦N ``|¦ûáÿøøø!ÿaCt#léøapAx!|=@#daJPéHAéHAA¨m*/A¼y*"+AÐ=@	PA$8! 8`èëáÿø|¦N ```8 8p;â8`9 !KþÿE`ãûxH)`åûx|dx8`Kþÿ%`8! 8`èëáÿø|¦N ``8p;â 8 8`9 Kÿÿ ``8p;â@8 8`9 Kÿÿ``8p;â`8 8`9 Kÿÿ```|¦ûáÿøøø!ÿdx"+AD+	Al+Ad`8bÐH&Y`8!èëáÿø|¦N ```pP+P@H|xKÿÊ`/£Ad8`dKÿK-`ãûx8!èëáÿø|¦Kÿþ````8bH%Ù`8!èëáÿø|¦N `````88b¸H%¡`KÿÿH``=b¥ékuèùÁÿpùáÿxúÿú!ÿúAÿ/«úaÿúÿ ú¡ÿ¨úÁÿ°úáÿ¸ûÿÀû!ÿÈûAÿÐûaÿØûÿàû¡ÿèûÁÿðûáÿøAl=¥éuð/¬A\#q)"/A=B¥9Jw*U)ð~U)>*=B¥<¢¥¥uø8ã9Juè9#|è;x8}FSx8;à[:`A:B: D:ÀC:à6;À~; O;F; 3;@5;`2;1`:Pÿÿ+cAD:*~Q P~I¦QA,Bÿô:PÿÎVQ>+!A¨>"ÿþ:1-zR¨~Qª~2~)¦N ´´Ìdü,ä \Ô	D


¬ ´H¸
L
¼,>B¥:RwRzQÿã@tC/²AtrO"@ rOAÌ`:BÐ~®/°A0*~2´9ò(A:1~F& ``©@@@þ¬}'HP9J})¦```'*BÿøéÁÿpéáÿxêÿê!ÿêAÿêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿøN ```9b`9 ="¥=â¥ùiuèùuðKÿý>"¥:1wQjRQKÿÿH>"¥:1wQjRQKÿÿ0J~Q´:(Aÿ:~&V>~´ 9Ï(AÞþø:2}æzV1>~0´ï 9Ð&(AÞþÔ9ò~Uï>}ñ´° 9Ñæ(AÞþ°:R~&F:@PQ KÿþJ~Q´:(Aþ:~&V>~´ 9Ï(AÞþ`:2}æzV1>~0´ï 9Ð&(AÞþ<9ò~Uï>}ñ´° 9Ñæ(AÞþ:R~&F:@QQ KÿþJ~Q´:(Aýì:~&V>~´ 9Ï(AÞýÈ:2}æzV1>~0´ï 9Ð&(AÞý¤9ò~Uï>}ñ´° 9Ñæ(AÞý:R~&F:@RQ KÿýhJ~Q´:(AýT:~&V>~´ 9Ï(AÞý0:2}æzV1>~0´ï 9Ð&(AÞý9ò~Uï>}ñ´° 9Ñæ(AÞüè:R~&9àSFñ KÿüÐJ~Q´:(Aü¼9ò~&Uï>}ð´ 9Ðæ(AÞü9ò~Uï>}ñ´ð 9Ñæ(AÞüt9ò~&Uï>}ð´ 9Ðæ(AÞüP9ò~Uï>}ñ´P 9Ñæ(AÞü,:R~&FÑ KÿüJ~Q´:(Aü9ò~&Uï>}ð´ 9Ðæ(AÞûà9ò~Uï>}ñ´ð 9Ñæ(AÞû¼9ò~&Uï>}ð´ 9Ðæ(AÞû9ò~Uï>}ñ´9Ñæ9à7(ð AÞûp:R~&FÑ Kÿû\J~Q´:(AûH9ò~&Uï>}ð´ 9Ðæ(AÞû$9ò~Uï>}ñ´ð 9Ñæ(AÞû9ò~&Uï>}ð´ 9Ðæ(AÞúÜ9ò~Uï>}ñ´9Ñæ9à8(ð AÞú´:R~&FÑ Kÿú J~Q´:(Aú9ò~&Uï>}ð´ 9Ðæ(AÞúh9ò~Uï>}ñ´ð 9Ñæ(AÞúD9ò~&Uï>}ð´ 9Ðæ(AÞú 9ò~Uï>}ñ´9Ñæ9à9(ð AÞùø:R~&FÑ KÿùäJ~Q´:(AùÐ9ò~&Uï>}ð´ 9Ðæ(AÞù¬9ò~Uï>}ñ´ð 9Ñæ(AÞù9ò~&Uï>}ð´q 9Ðæ(AÞùd9ò~Uï>}ñ´9Ñæ9à0(ð AÞù<:R~&FÑ Kÿù(J~Q´:(Aù9ò~&Uï>}ð´ 9Ðæ(AÞøð9ò~Uï>}ñ´ð 9Ñæ(AÞøÌ9ò~&Uï>}ð´q 9Ðæ(AÞø¨9ò~Uï>}ñ´ 9Ñæ(AÞø:R~&FÑ KÿøpJ~Q´:(Aø\9ò~&Uï>}ð´ 9Ðæ(AÞø89ò~Uï>}ñ´ð 9Ñæ(AÞø9ò~&Uï>}ð´q 9Ðæ(AÞ÷ð9ò~Uï>}ñ´0 9Ñæ(AÞ÷Ì:R~&FÑ Kÿ÷¸J~Q´:(A÷¤9ò~&Uï>}ð´ 9Ðæ(AÞ÷9ò~Uï>}ñ´ð 9Ñæ(AÞ÷\9ò~&Uï>}ð´q 9Ðæ(AÞ÷89ò~Uï>}ñ´9Ñæ9à4(ð AÞ÷:R~&FÑ Kÿöü>"¥:1wQjRQKÿöäJ~Q´:(AöÐ:~&V>~´ 9Ï(AÞö¬:2}æzV1>~0´ï 9Ð&(AÞö9ò~Uï>}ñ´p 9Ñæ(AÞöd:R~&FÑ KÿöPJ~Q´:(Aö<9ò~&Uï>}ð´ 9Ðæ(AÞö9ò~Uï>}ñ´° 9Ñæ(AÞõô:R~&9àHFñ KÿõÜJ~Q´:(AõÈ:~&V>~´ 9Ï(AÞõ¤:2}æzV1>~0´ï 9Ð&(AÞõ9ò~Uï>}ñ´P 9Ñæ(AÞõ\:R~&FÑ KÿõHJ~Q´:(Aõ4:~&V>~´ 9Ï(AÞõ:2}æzV1>~0´ï 9Ð&(AÞôì9ò~Uï>}ñ´0 9Ñæ(AÞôÈ:R~&FÑ Kÿô´J~Q´:(Aô 9ò~&Uï>}ð´ 9Ðæ(AÞô|9ò~Uï>}ñ´° 9Ñæ(AÞôX:R~&F KÿôDJ~Q´:(Aô0:~&V>~´ 9Ï(AÞô:2}æzV1>~0´ï 9Ð&(AÞóè9ò~Uï>}ñ´ð 9Ñæ(AÞóÄ:R~&FÑ Kÿó°J~Q´:(Aó9ò~&Uï>}ð´ 9Ðæ(AÞóx9ò~Uï>}ñ´ð 9Ñæ(AÞóT:R~&FÑ Kÿó@J~Q´:(Aó,9ò~&Uï>}ð´ 9Ðæ(AÞó9ò~Uï>}ñ´ð 9Ñæ(AÞòä:R~&F± KÿòÐJ~Q´:(Aò¼9ò~&Uï>}ð´ 9Ðæ(AÞò9ò~Uï>}ñ´ð 9Ñæ(AÞòt:R~&F Kÿò`J~Q´:(AòL9ò~&Uï>}ð´ 9Ðæ(AÞò(9ò~Uï>}ñ´ð 9Ñæ(AÞò:R~&Fq Kÿñð:Pÿü+@8~®/°AñØ*~2´9ò(AñÄ:1~F& Kÿñ°~®/°Añ¤*~2´9ò(Añ:1~F& Kÿñ|+@@ñt`:B8~®/°Añ`*~2´9ò(AñL:1~F& Kÿñ8``|¦ûáÿø|x8 8øø!ÿq8apHñ`è8pKÿ¯A`|yA8apKÿî8!ãûxèëáÿø|¦N `|¦ûÁÿð|~yûÿàû¡ÿèûáÿøøø!ÿaA9 è~ ;à; !8 !q9>x8p³ár¡p³áv} N,±!tKÿ±)`9 
è~ 8 ¡p8p³áv!q9 }±!r9>x} N,±!tKÿ°ñ`8 88axHý`9 ÿ¡è~ 8¡x8p!p9 !q9>x} N,±!t9 ±!v9 ±!rKÿ°`/£@ 8`Kÿ9©`?¥;w/£ø|A°^`;þ8; /A(?y) /A<9=;ÿH@}=´Aÿà8`8! èëÿàë¡ÿèëÁÿðëáÿø|¦N è¼äûx8ÀÃóxKÿ³a`^`Kÿÿ¬8axKÿìÝKÿÿ\`8 88axHõ`Kÿÿ@````8ø8bH!`8`Kÿÿt`|¦ûáÿø|xøø!ÿèc/£AKÿ¬q`9 ù?="¥9)w8èiKÿ8ñ`8!8`èëáÿø|¦N `/£AL|¦øø!ÿKÿý8!p="¥)uø<b¥cvè}#x|c4|¦TcÙ~hcN ``8`N ```/£A\|¦øø!ÿKÿü="¥)uø=B¥Jv=¥8`9uèHA9I}(J=¥i Huø8!pè|¦N 8`N ```,#Al|¦9#|ª+x9$8 øø!ÿp9èc 8pq9±v9r}@G,9At} W,Kÿá`8!è|¦N ``8`N ```,#A\|¦9@ÿ£9$øø!ÿAp9@èc 8pAq9@±Ar9At} W,9 ±!vKÿY`8!è|¦N 8`N ```|¦ûÁÿð|~yûÿàû¡ÿèûáÿøøø!ÿaA8 88ax`H
`9 ÿ è~ 8¡x8p;à!p9 ;H!q9 ±!t9 ±!v9 )±!rKÿ¬©`!z/@$Hy*á@¼!z9_}_´P@h8¡päûxÃóxKÿþÉ/£AÿØ9Ap} V,y*Çã@ÿÀ8 äûxÃóxKÿþ8`dKÿ3É`Kÿ3Q`8cx} H0```8¡päûxÃóxKÿþe9Ap} V,y*á@$Kÿ3`è@AÿÔ9Ap} V,y*áAÿL8 äûxÃóxKÿý8`dKÿ3M`Kÿ2Õ`8cx} `Kÿ2Á`è@@ÿ8¡päûxÃóxKÿýå9Ap} V,y*çã@ÿÔé>é)/©AKÿ¦`{ä ûÃ|}xé>ù#Kÿ²õ`/£@XäûxãxH
`!z9_}_´PAþ 8! 8`èëÿàë¡ÿèëÁÿðëáÿø|¦N ```£ëxKÿæ½`KÿþL8¡päûxÃóxKÿý%9Ap<À } V,y*¿ã@y&·â0Æÿÿ|Æ1xÆ_¦xÆªä<Æ@é>{å Äóxèi H%`/£@þýðKÿÿ@`8b8HÙ`8! 8`èëÿàë¡ÿèëÁÿðëáÿø|¦N ````|¦ûÿàû¡ÿè||xûÁÿðûáÿø|#xøø!ÿq|¬ëÃ4h9àD,Kÿ1
`k¤ ½és½|cêx} H(``|¬9àD,Kÿ0Õ`è@A8<4|{ÿàH@ÿØ|¬9>}@L,yI¶¢+!y$ A<+"A+ A`8bHÑ`9 9^ù\4h>9@àô,}
ô,ù>9<4|yÆÿCx} L,>é4Pé<4hèÜ4p}(HPy*!}*fp}JUJ`&}*HP})´|É2@<4|ù4h})4U)Ù~<4|è¼8¥8|¬xÉ"TÈ@>PÈÀU*@>PÈÄ.Q*ÀQ*Ä.yÆ}Sx8`@8}CxD"/¿Aþûx8!Ãóxèëÿàë¡ÿèëÁÿðëáÿø|¦N 8!;ÀÃóxèëÿàë¡ÿèëÁÿðëáÿø|¦N ``9} D,U)F>+A9 <4äKÿþÌUJF>\4äKÿþÀ``,#M éC/ªM |¦ûáÿøûÁÿð|xøø!ÿ#éJ+ëÊ A+A\é>48/©Aûé9 ûþ488  8ãûxù?ù?Hý`8!èëÁÿðëáÿø|¦N ```è(£8èc0Kÿ3Õ`8è(Kÿ0å`9 ù? é>48/©@ÿ9 ûþ40ûþ488  8ãûxù?ù?Hý)`8!èëÁÿðëáÿø|¦N ```}&|¦ú¡ÿ¨úÁÿ°úáÿ¸ûÿÀû!ÿÈûAÿÐûaÿØûÿàû¡ÿèûÁÿðøûáÿøø!ÿ1é#/©AéI/ªAëXëJ |#x|½+x88 Ãóx|ëëüPKÿ2`99 @}@F,|yx/ªA >y)Ïâ1)ÿÿ})Iy)ä=)9)@9}@D,éyJày"iJ}IKx=@ÿ_9_} U,|¬9~àF,zõ .5@ì;ÿ:À9 9_} T,9@__y)à_i)})Cx9} E,|¬|¬{ed8`@|¸*8<ÀD";ÿ8CÓxKÿûEûüP8 Äóx3ãÿÿÿ#ËxKÿ1É`A~å»x¤ëx~Ã³xKÿ1±`8!Ðãûxèê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿð|¦ëáÿø} N 8 ~ä»x£ëxKÿ0`9_9} T,|`E,xj"9|vx}@E,9_9y)ài)~ U,e)a)} E,|¬=;ÿ a KÿþÀ``;àKÿÿD```|¦ûÁÿðûáÿø|x8`|#xøø!ÿKÿ-Q`9 /£øA<9 ß8 8?Hú%`è8 8Kÿ/±`9 ø8!}#KxèëÁÿðëáÿø|¦N ``|¦ûáÿø|xøø!ÿè/¤A$èc 8 Kÿ0	`è8Kÿ-`8 88ãûxHù`8!èëáÿø|¦N ```|¦û¡ÿèûÁÿð9 ûáÿø|x; |#x8 øø!ÿqèc?(9 0û¿8?,øøHù`+A@?(é8À;ÿ }Fü,|àü,y)&ä9)ÿðyJÆ|çSx}HJ|èI*= ª*8!èë¡ÿèëÁÿðëáÿø|¦N ```|¦ûÁÿðûáÿø|x8`|#xøø!ÿKÿ+a`9 /£øA,ÄóxãûxKÿþñè8 8Kÿ-Ñ`9 ø 8!}#KxèëÁÿðëáÿø|¦N ``|¦ûÁÿðûáÿø|~xøø!ÿëã4éC9} D,9|ý,9y)ài)|ÆKx9?| M,|ÀE,|¬8`@}ESx88ÀD";ÿ8ÃóxKÿ÷=ûþ48!èëÁÿðëáÿø|¦N |¦,#ûAÿÐûaÿØûÿàû¡ÿèûÁÿðûáÿøøø!ÿaAxé#|#x|}xë ëü40/¿A¼é?/©ù<40A|8  8ãûxHöí`9 û¿ù?>y) y* +_=h?¡>±?>U)Éþ?>y) ±?Aü+AT8! ãûxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N }	QÖèÞ ÿ;@ãxTç}(J`ç>y) 9}&J}
P08©aJ9)|à-,< ¤èþ©8¦};x8ày"}M,|M,}@-,FÞxÆÀ(`Æ0è x"T6Kÿýíû éèÞxþ }&@P8§ÿÿy*á9J(@A9Hù^ ß})&t8è8}@<,èÿ0})1ÖyJàiJy) aJ }):y'"} E,9(9|àM,|À%,}@E,|¬?/@þÀ```ëX/¼Aþ¨?é]/ëj AÄ;¼°;Àé=8£ëx/©A8Kÿûµ9 ð±?</Ax¡_< <ÀUJ<}JCxé}JIÖWÉ8e)ða)yJ }HR98ª9J} -,=,èý Ê8À});xy'"} U,|æU,àù<48Kÿý¡?Ü èücÛxU)<}(CxWÉ8}H1Öe)ða)}FRyJ }GR8ª9J} -,9 < }(@0a=,èÝ ª8§})3x8Ày$"} U,9 |U,}-,'ÜxÆÀ(`Æ0è x"T6Kÿûíû¿ 8! ãûxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``=dm*/AÔ``åûx8x8bHÿÍ`_KÿüØ```;¼è;ÀKÿþ@`8`Kÿ&M`/£|{xø|4ðA88 Kÿ(Í`8@iÛx|¦9@ø|4øH```/©@Aù)ÿÈùI9)@Bÿìé<40/©A8é<48ûiëü40;{Àû|48KÿûÀ`9 ëÝX8±?;~xcÛxé>x/©A°KÿùM¡?y)B(}#Kx?8Kÿ%`88 ø(Kÿ(`¡_ø0UJ<}JCx>/> Aûè}*IÖé¡_UJy) aJ>}(J98É9)}@5,<À^¤èþÉ}J;x8àyD"}@M,|M,àKÿùq/£@ÿP`8bHþ-`KÿþDKÿùQ/£@üÈ`8bÐHþ
`Kÿû$;àKÿûÛxû|40KÿþÐ9^8xé&ä|¤T,|àT,9)ÿðøÞ}FJ^¤x¥Æ|ç+x|æI*= J*|¬èÞx}&@PKÿû¬`|¦ûÁÿð;Ãû¡ÿèûáÿø|#x|x88`<Åóxøø!ÿqD"/£@øT@>PÀPÄ.}$Kxx¯ã@ÂÄ8`<8åûxD"/£9 ÿÿy) @T@>PÀPÄ.y) /½U*<@Äåûx|¬UF@>8`@QFÀ8QFÄ.xÆ D"|¬;à@`8`<8ÅóxD"T@>/£PÀ9?ÿÿPÄ.y? }DSx.¿x¯ã8`d@AAÖKÿ"
`Kÿÿ´8`8!èë¡ÿèëÁÿðëáÿø|¦N 8!8`èë¡ÿèëÁÿðëáÿø|¦N ©Kxy* Kÿÿ8``,#Aø|¦ûÿàûaÿØ||xû¡ÿèûÁÿðûáÿøøø!ÿaë£ /½Aë}8;ý;Ý3¸cÛxKÿþEé?ÿP/©AlãûxKÿõ¡88Kÿõ8ÿÈKÿõ8ÿKÿõèÿhèÿp8 Kÿ%©`èÿh8Kÿ"¹`èÿèÿ8 Kÿ%`èÿ8Kÿ"`;ÿ(¿ð@@ÿè½8¥0|¬8`@88ÀD"|¬è4À/¤A$è}4È8 Kÿ%-`è}4À8Kÿ"=`8}4P;ûKÿôÝ8`<8åûxD"/£A´<À?xÆÆ|¬8`@åûx8D"8}4Kÿô¡|¬8`@88»08ÀD"è4@/¤A$è}4H8 Kÿ$¡`è}4@8Kÿ!±`8`2Kÿ`£ëx85Kÿ"¥`9 8! ù< èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N xdxÆñÆKÿÿPé# à,#Alé#/©A`é	/¨AT|¦ûÿà|#xûáÿø<¥û¡ÿèûÁÿð|xDwøø!ÿq/ëÃ ALé)Xë¨ ¡C)è½y)d|¥J|¬UI<8`@})Cx8U&@>Q&ÀQ&Ä.xÆ D"8£ëxKÿìÙ/£Aà|¬éèÞþ(}&@P8çÿÿy*á9J8@A¨9ù¡_})&të¿(8 ãx}*IÖy) ½J¤ëxHí	`8 8£ëxHì¥`èÞé^¾(}&PP8åÿÿy(áxç 98@@¬9 9 x¥&ä|D,|àD,8¥ÿð9øÞ}&*,xÆ|ç#x|æ)*	=	|¬èÞ}&PPHd`é^èÞ¾(9w}&PP8åÿÿy)á9)8@y) xç Að9Jù^é^}&PPy(á98@Aÿ\9
ù ß})&t8ê8}<,èÿ0})1Öyàiy) a }):y'"} U,9*9J|àM,|À%,}U,|¬8!8`èëÿàë¡ÿèëÁÿðëáÿø|¦N 8`N ``øÞKÿþ```8!8`èëÿàë¡ÿèëÁÿðëáÿø|¦N ```øÞ}'KxKÿÿ``éC/ªAØèª/¥AÌé# /©AÀ|¦9ûAÿÐûaÿØaðûÿàû¡ÿè@ûÁÿðûáÿøøø!ÿaALëIèi(é
Xë¥ }DÐP8ÿÿyJáè½9J@Ax9ZùI9zëé ;Ú}@\,xË"|ÀÕ,}`õ,9zyIà}Zúi)äPPa) 9Z|àU,} ],|¬¡#CU)<})Sx|¬U&@>8`@Q&À8Q&Ä.y	d|¥JxÆ D"KÿÑ`?b¥;;{w8cx~ HAÀKÿ©`ð@Al8£ëxKÿéQ~£ø@/£@ÿÔ8`9 ù:::|¬8! èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `8b(Hõ`8! 8`èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `8`N ``8`Kÿÿp``9I ;Àyk&ä|T,àT,9kÿðø}DZxÆÿx8	,äY*<
|¬èKÿþL``|¦ú¡ÿ¨û!ÿÈ|Ù3xûaÿØû¡ÿè|#x|½+xûáÿøúaÿ|x8 úÿ úÁÿ°8À$8úáÿ¸ûÿÀøûAÿÐûÿàûÁÿðø!ÿ!Kÿð5¿4ä/µ@X8`8!àèêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿè|¦ëÁÿðëáÿøN ```+,A¼ß4èÕ(8Þ4}?²:ö0WÞÙ~~ÿºÞÐ©0;{Þ¤ãx;Þ@ÉHKÿí
/£Aÿ`7/A9 )à``ë= 89 89 W/èÜAL/»;½|ÆJ{º {© A|jÛx```êtéJU) 6/ªxè }	Kxy) @ÿäg9U)á>)KxTç?²8} 5,8Æ;9h#Ëx|à5,Kÿî5/£AWéÉóx/AÈ=@&}(JaJ@~²<à9)Iÿü:ö@8~ÿº:~£xSéé8à}JCxyH"}@M,}M,KÿëÕ/£A:s`9 é4@}I,|à,9 yJÆ|çSxzª$|èQ*Wêô/Ad~²V¾ÀWÆãûxèH`Æ,~÷Jx"T6Kÿíí|¬= WÆ`Æ0ãûx89 8èHx"T6Kÿí½|¬Kÿ¥`é? ;ó(DÓx|~xù#9 #h7£tûcûãX#løs(Kÿù`/£@èèt8 Kÿ`èt8Kÿ½`#ËxKÿëaèè|8 Kÿ`è|8Kÿ`Kÿüô``8 ,~¤«x8bPHñA`KÿüÔ`ÉóxKÿý´``WÊ<yI Kÿþ4`ÃóxKÿÊ}`8`Kÿü ```ÉóxKÿþGÓxKÿý´
`|¦ûAÿÐû¡ÿè|zxûÿÀû!ÿÈ|#x8ûaÿØûÿàûÁÿðûáÿøøø!ÿQëãë8`<8¿D"/£;Àÿ@T@>PÀPÄ.}$KxxF"8`<88¿D"/£@ T@>PÀPÄ.}$Kxx#A; y)d8`<ÿJ8åûxD"/£@TT@>PÀPÄ.y$ +@<8`<8åûxD"/£9 ÿ@T@>PÀPÄ.}$KxxF"H@Aô8`<8åûxD"/£@¬T@>PÀPÄ.}$KxxÆ#@ÿd/¹Alyò;Ùÿÿ;{ÿÿ?Ø@c{Þ {{ #9ATH$```+T@>PÀPÄ.A`+@H8ÀAÞP``;ÞØ@{Þ @Ø;þ@8`<{ÿ&ä8üúåûxD"/£Aÿ +A+@ÿÀ8`<8åûxD"/£AØ8ÀÿÿxÆ |¬8`@8åûxD"8`KÿÅ`8CÓxKÿâ8`<8åûxD"/£<Àð@T@>PÀPÄ.U&RxÆ |¹ò8;Þx¥ CÓxKÿù}Ø@{Þ Aÿ08!°8`èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``9 ÿKÿýÌ``dx Kÿÿ,`q$+@þþ¸Kÿþø8`<8åûxD"/£@ýüT@>PÀPÄ.}$Kxx#@Âýä;8`<8eÛxD"/£;Àÿ@T@>PÀPÄ.}$KxxÆ"8`<8eÛxD"/£; ÿ@ýT@>PÀPÄ.U9>Kÿý```9 ÿÿy) Kÿüô`8!°8`èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N |¦ûÁÿðûáÿø|xûÿÀû!ÿÈ`ûAÿÐûaÿØ8bûÿàû¡ÿèøø!ÿQHì©`é?8`5y)$ù?KÿQ`|~yAd8 58Hà)`9 ûß 8`<8ù?(ûþ è¿ø¾ë¿D"/£9 ÿ@T>}=Jè¾8`<8ù>8¥ë¿D"/£9 ÿÿy) @T@>PÀPÄ.y	 }=Jè¾8`<8ù>8¥ëÿD"/£9 ÿÿy) @T@>PÀPÄ.y) ë}?Jë~8`<8ù>;¼¥ëxD"/£@0T@>PÀPÄ.}DSxxá@8ãxKÿíÝ/£AÔ8`<8¥ëxD"/£@¼T@>PÀPÄ.}$Kxx¯ã@Â¤8`<8ãxD"/£8ÀÿÿxÆ Aä|¬8`@8ãxD";à@``8`<8¥ëxD"T@>/£PÀ9?ÿÿPÄ.y? }Cx.¿x¯ã8`d@AAÖKÿ-`Kÿÿ´|¬8`@88¼8<À,D"è¾8`<88¥D"/£@ T@>PÀPÄ.}DSxx÷ãx÷â4è@Â8`Kÿù`/£ø~4@A¨8 8HÝÝ`è~4@8 8Kÿi`ø~4H|¬xi"Tf@>PfÀU*@>PfÄ.Q*À;¼0Q*Ä.xÆÆ8`@|ÆSx8¥ëxD";^48CÓxKÿäõ/£Aì;ü8`<8åûxD"/£8À?@,x"T@>PÀU*@>PÄ.Q*ÀQ*Ä.yÆ}Sxy é>4¨y)d}&3x|¬xÉ"TÈ@>PÈÀU*@>PÈÄ.Q*ÀQ*Ä.yÆ}Sx8`@}Cx8åûxD";>4P8#ËxKÿäM/£@@8`<8åûxD"/£@xdxÆñÆ|¬8`@8åûxD"|¬CÓxKÿâµ|¬8`@8¥ëx8ÀD"|¬è4@è~4H8 Kÿ¹`è~4@8KÿÉ``8bðHè`8!°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 9 >4è`8bÀHèA`Kÿÿ¨`dx Kÿý``8bHè`8!°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N <À?xÆÆKÿþè8`Kÿ`/£ø~4ÀA¬8 8Kÿ`9 è¾4ÀèÞ4pø~4È>4Ð|¬xÉ"TÈ@>PÈÀU*@>PÈÄ.Q*ÀQ*Ä.yÆ}Sx8`@8}CxD"è¾4À>4x8¥|¬U&@>8`@Q&À8Q&Ä.xÆ D"è¾4À8¥|¬8`@88ÀD";88`<8ÃxD"/£8À@,x"T@>PÀU*@>PÄ.Q*ÀQ*Ä.yÆ}Sxy é>4py)ä}&3x|¬xÉ"TÈ@>PÈÀU*@>PÈÄ.Q*ÀQ*Ä.yÆ}Sx8`@8Ãx}CxD";(8`<8ÃxD"/£=@ÿÿyJ @T@>PÀPÄ.}CxT>4Ð})Sx|¬U&@>8`@Q&À8Q&Ä.ÃxxÆ D";{08`<8eÛxD"/£8À?@,x"T@>PÀUH@>PÄ.QHÀQHÄ.y)Æ})Cxy& é>4Èy)d}&3x|¬xÊ"TÉ@>PÉÀUH@>PÉÄ.QHÀQHÄ.y)Æ})Cx8`@}&Kx8eÛxD"|¬8ãxKÿçù/£A,8ÃóxKÿô¥8||xÃóxKÿô|cãx/@üØ|¬8`@8eÛx8ÀD"|¬è4Àè~4È8 Kÿ=`è~4À8KÿM`#ËxKÿÞñKÿûü```|¦<b8c°øø!ÿKÿ`8!pè|¦N ``|¦="¥)w 9@øø!ÿa!p9 a|8`8p`cðùA!t9 !x9!!9 !Kÿ6`a8! è|¦N ``|¦="¥)w$û¡ÿèx} ûÁÿðûáÿø;À|xûÿà9)ÿÿ½H@øø!ÿq@¨;ÿ;½?¥{ÿ {½ ;w H,``;ÿÞø@WÞ>{ÿ A<<9)ÿÿ¿H@8`AÿØãûx;ÿKÿþíø@{ÿ Tc>ÞWÞ>@ÿÌ8!WÃÂ>|còèëÿàë¡ÿèëÁÿðTc>ëáÿø|¦N `£ëxKÿþ="¥)w$T~>9)ÿÿKÿÿD``|¦="¥)w$ûáÿø;àû!ÿÈûAÿÐûaÿØûÿà/û¡ÿèûÁÿðøø!ÿ!Ax?¢¥8`;½w ; ;@;;a``Kÿþ9;À}
´/£AÞ<=9)ÿÿªH@@\ãûxKÿþe9}	´ð@]9Jÿþ©P@@D8!àãûxèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N y Kÿý|~xKÿÿ=8`8pû!`cðAtx|a!pKÿ3¹`¡A/ªUI 6})úy# AÞÿx}?´@@9Hÿÿ~£P@@ÿ`@ÿ8!àãûxèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```|¦="¥)w$ûáÿøxh 9@@x 8éÿþ¨8@øø!ÿQ±A@9y
 ª8@9@±A@;ÿ9)ÿü{ê ªH@9 !AP="¥)w(8`9@á|8p`cðùA!p9 !t9 !x9!!9 !Kÿ2`8!°èëáÿø|¦N ``=B¥Jw(9 8à|8`8p`cð!x!Ap9@øáAt9AAKÿ2%`="¥)w$Kÿÿ,```=B¥Jw(9 9á|8`8p`cð!x!Ap9@ùAt9AAKÿ1Å`="¥)w$8éÿþKÿþ°```|¦úáÿ¸ûÿÀ|#xû!ÿÈûAÿÐ;|Ù3xûaÿØûÿà|zx{äûÁÿðûáÿø|¾+x?¥úÿ ú¡ÿ¨;w øúÁÿ°û¡ÿèø!ÿKÿüe?â¥ÿw$|{xKÿüU|cøPÀ@Ah="¥)w${} á9Iÿÿ½P@@¬99)ÿþy
 &pªH@³@ø;à;½:: :À:á;H``;ÿ{ÿ ÃóxHÏå`}úy	 ø@@`\|þø®9Jÿÿá©P@AÿÈ<8`8pú`cð¡tÁx|á!pKÿ0M`Kÿÿ```cÛxKÿúM=B¥Jw$9y	 a9Jÿÿ©P@@l;{û:{´ûz8!CÓxèêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿð|¦ëáÿøN `9 ù:ù:Kÿÿ¬="¥)w(9@8`|8p`cðùA!p9 !t9 !x9!!9 !Kÿ/a`KÿÿL<9@8`¡|8p`cðùA&p!p9 !t9 !x9!!9 !Kÿ/
`<9³y
 9)ÿþªH@Aþ=B¥Jw(9 8à|8`8p`cðøá!xAp9@!At9AAKÿ.©`KÿýÄ```|¦ûáÿø?â¥ÿw$;ÿÿðøø!ÿqKÿù`88¢p|ÃøP8ap|Æ´Kÿü¹é!p8!èëáÿø0iÿÿ|cI|¦N ``="¥iw ="¥w(="¥©w$="¥øÉw0N ="¥)w$9)ÿÿ£H@@8`N `Kÿ÷`|¦="¥)w$9)ÿÿ£H@øø!ÿqÈAT=B¥Jw(|ix98`8p!|9!È`cðùAp9@!9 At9@!AxKÿ-I`8!è|¦N ="¥)w$9)ÿþ£H@@8`N `|¦=¥w |ix9@8à8``cðøø!ÿap!|99!8pøáAxt!AKÿ,µ` a8! è|¦N ``|¦="¥)w$9)ÿþ£H@øø!ÿq°ÈAP=¥w(|ix9@8`8à!|9!È8pAxp9`cðøá!AtKÿ,`8!è|¦N `="¥)w$9)ÿü£H@@8`N `|¦=B¥Jw |ix98``cðøø!ÿaAp!|9@9!8pùAt!9@9 Ax!Kÿ+`a8! è|¦N `|¦="¥)w$9)ÿü£H@øø!ÿqÈAT=B¥Jw(|ix98`8p!|9!È`cðùAp9@!9 At9@!AxKÿ*é`8!è|¦N ="¥)w$9)ÿø£H@@8`N `|¦=B¥Jw |ix98``cðøø!ÿaAp!|9@9!8pùAt!9@9 Ax!Kÿ*Q`èa8! è|¦N `|¦="¥)w$9)ÿø£H@øø!ÿqøÈAT=B¥Jw(|ix98`8p!|9!È`cðùAp9@!9 At9@!AxKÿ)¹`8!è|¦N ="¥)w$=B¥9Jw @A,="¥)w8/@9 ÿÿèj*N ``8`N ```9 =B¥*w8N `|¦û¡ÿèûÁÿðûáÿøøø!þqøÈø¡Ð|dx8¡È8apøÁØøáàùèù!ðùAøHÖ`/|}x@Ý<;Ãÿÿ9!p{Þ ;áoÉò``8 8Kþ®E`¿ð@@þÿè8!£ëxèë¡ÿèëÁÿðëáÿø|¦N ``}&|¦="¥)w$ûAÿÐ|zxúÿú!ÿúAÿúaÿ/©úÿ ú¡ÿ¨úÁÿ°úáÿ¸øûÿÀû!ÿÈûaÿØûÿàû¡ÿèûÁÿðûáÿøø!þáA¼>"¥.$:1w -%-ÿÿ|#x|¹+x;à;À::ñ : ;:Á8~9)ÿÿ|j´; ªH@@|ÃóxKÿñµè@\19}
´8éÿþª8@@d@@; 9)ÿÿ¿H@A@ãûxKÿðùØAÞ01W¿ 6ÿòH@þ´{ÿ Aÿ9 ÿÿ;H`Ap9>;}3´:Qy? { H9?r@y? A818`9)ÿÿ©@:sAÿØãûxKÿðq9?@y? r@ÿÐ8 $Ëx~ã»xHÆ=`/£@ÿT9=ÿÿ´U) 6})´ûù:8! CÓxèêÿê!ÿêAÿêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈ|¦ëAÿÐëaÿØëÿàë¡ÿè} } } ëÁÿðëáÿøN xc Kÿï½|}xKÿþ|18`8pú`cð¡tx|Á!pKÿ%é`£¡AÒ0/½AÞþ Aþ¬19Iÿÿ¿P@AýþtKÿþ\`;Kÿÿ1Kÿþ<`|¦ûÿàû¡ÿè9%ûÁÿðûáÿø})´||x9)|¾+xy)äx¥ })Ðøø!ÿqéA|?x}AIj;¡p£ëxHÇ`9 8ÿÿ¥ëxãxx }=ñ®KÿüÑ8?ãxèëÿàë¡ÿèëÁÿðëáÿø|¦N ```|¦="¥)w$ûÁÿðx û¡ÿè?¢¥ûáÿø|xúáÿ¸ûÿÀ;½w H@û!ÿÈûAÿÐûaÿØûÿàøø!ÿA?b¥{w8/AÔ|úø|´@;:à;; ;A;`H`;ÿøÿ´A`={ê 9)ÿÿªH@AÿÜ=8`;ÿúá8p`cðt!xA|A!paKÿ#ý`øÿ´@ÿ¨8!ðèêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ë9@ÿÿ]/¼AÞÿ Åóx8ãxHÅ`=9@8`á|8p`cðÁùA!p9 !t9 !xKÿ#U`8!ð}èêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 	`="¥8`èw&Kÿþ`|¦/¥8cÿð|c´øø!ÿ@(8|´KÿýÝ8!p8`è|¦N `8Kÿý½8!p8`è|¦N ``|¦ûÿàû¡ÿè|¼+xûÁÿðûáÿø|~x|#x8 8|ß3xøø!ÿa8apKÿùéé!xèap9)+©@8cÿð8|c´Kÿý5ãx¤ëxæûx8apKÿðqë¡xëp¿èA; ;Kÿóeûû¾8! Ãóxèëÿàë¡ÿèëÁÿðëáÿø|¦N ``|¦ûáÿø9}	¦|x9 9`øø!ÿq9ApH`|eH®|jI®9)B@HAÿì}jI®9)Bÿð9 ãûx|æ;x}ESx!|KÿþÉ8!ãûxèëáÿø|¦N 9$+©@¸|¦="¥)w$ûÿàx ûÁÿðÃâú¡ÿ¨"¼ÿðúÁÿ°úáÿ¸zµ H@ûÿÀû!ÿÈÞ´ûAÿÐûaÿØøû¡ÿèûáÿøø!þñ@Ð>Â¥:à:Öw ;; ;A;`H0``6a9Iÿÿ¿P@@L9^H@}^´@{Ê 9)ÿÿªH@ªª8`{¿ AÿÄ}CSxKÿéÝ6a9Iÿÿ¿P@Aÿ¼68`8púá`cðt!x¡|A!paKÿý`69^}^´H@Aÿ|iª8ÿð|´|c´Kÿúí8 8a 8Kÿ÷mè¨èa 88cÿð|´|c´KÿúÁKÿñ8!8`èê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``8`N ```,#@8`N |¦|c´|´øø!ÿKÿú-8!p8`è|¦N ``¥ @8`N |¦úAÿûÿà||xû¡ÿèûáÿø|½+x|#xúaÿúÿ 8 8ú¡ÿ¨úÁÿ°úáÿ¸ûÿÀøû!ÿÈûAÿÐûaÿØûÁÿðø!þá8a Kÿö%é!¨êA /©ÿÿA}_èP©PA{ {þ 9Rÿð~\ò}W´~Z´@¸="¥)w$~RPP?b¥;{w H@AL=B¥Jw8/ª@<ë;9@ÿÿ[/¹AÞ(;9ÿÿ_Óx8ËxH `;ÿ8øÿ´@8;9)ÿÿ{ã £H@9 AÿØKÿçU;ÿøÿ´|ix8AÿÐ{¸ 8üÂ~ã»x~_Kÿø¥ÿ´~R´@:`:: :Á:àH``;ÿÿ´Ad;{ê 9)ÿÿªH@AÿØ;8`;ÿúa8p`cðt¡xA|Á!páKÿù`ÿ´@ÿ¤9 =B¥*w8Hd8`8! èêAÿêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿà|¦ë¡ÿèëÁÿðëáÿøN `8~ã»xKÿ÷{¸ |ÀPCÓx|´;ÿòKÿ÷=B¥Jw${ ³¡9Jÿþ©P@@KÿíÁ8`Kÿÿl`=B¥Jw(9 9|8`8p`cðù!xAp9@!At9AAKÿõ`Kÿÿ¨``|¦="¥ûÁÿðûáÿø8`?àibèw&cÿm,øø!ÿaKÿöÉ= CP8¡pápa)U08ay)Æ8Àðe)lo8Qa)gù!tKÿéé= CP8¡pëÁápa)U18Àðy)Æ8Qe)lo8aa)gù!tKÿéµëáÃóxKÿè	ãûxKÿè`8bKÿò`8Àð8¢¨8p8aKÿé}Kÿì8! èëÁÿðëáÿø|¦N N <b¥cw$N ``````|¦ûÿàû¡ÿè|#xûÁÿðûáÿø|~xx} £ëxÞ´¼êøø!ÿqKÿì`è@p|x½´H}>´A\{Ã Kÿìe`9>~è|ûxWÿ>/|x@ÿÔ8!Ãóxèëÿàë¡ÿèëÁÿðëáÿø|¦N ```8!8`ÿÿèëÿàë¡ÿèëÁÿðëáÿø|¦N |¦û!ÿÈûAÿÐ|#xûaÿØûÿà?¥|»+xûáÿøû¡ÿè;wP|´ûÁÿð8 8ãx{{ øø!ÿQ;\ÿÿH»q```]Óx;ÀH`AÞ}}>´9?8iÿÿ}?´xc KÿëU`/9>,#@ÿÐeÛxãx#ËxH¸¡`/£AX/¾@ÿ8!°8`ÿÿèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N eÛxãx#ËxH¸M`/£@ÿP8!°ãûxèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ,#@8`N |¦ûÿÀû!ÿÈ?"¥ûAÿÐûaÿØ;9wP|º+xûÿàûáÿøxÛ |´û¡ÿèûÁÿð;;øø!ÿQ``;¹ÿ;ÀH`AÞ=}^´9?8iÿÿ}?´xc Kÿê`/9^|iy@ÿÐ}YòeÛxãxCÓx*H·I`/£AÀ/¾@ÿ8`8!°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N eÛxãxCÓxH¶í`/£@ÿ@9/=Al/9>ÿÿy) ãx9)8`})¦AýHT```B@*8c|c´/=@ÿì8c||KÿÿT9/=A/¾@ÿ8`||Kÿÿ49 })¦Kÿÿ¸`|¦ûÿÀû!ÿÈ|#xûAÿÐûaÿØ|Ù3x|{xû¡ÿèûÁÿð}Cx|½+xûáÿøûÿà|þ;xxÚøø!ÿQKÿûÉ}9Ò9)x ØPHAð{)!AÜJ;½ÿÿ{ H`````ãûx;ÿKÿèe`Ø@{ÿ @ÿä´cÛx8=;üKÿèA`{I!AD;©{ÿ ½â;Þÿÿ{½ ```ãûx;ÿKÿè`è@{ÿ @ÿä8`8!°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ||xãûxKÿÿl8`ÿÿKÿÿÀ```|iyA|¦û!ÿÈûAÿÐû¡ÿèûÁÿð|Ý3x|¾+xûáÿøúÁÿ°}?Kxúáÿ¸ûÿÀûaÿØûÿàøø!ÿAKÿúY¥ëxÄóx|yxãûxKÿû%;ãÿÿ|zxÿ´H}?´{ý £ëxKÿæå`9?ÿÿ/£@ÿä~ÚÈP;ß~Ã´Kÿë`/|wx@{_ ;ÿÿ²ãx{ H``````ãûx;ÿKÿæy`À@{ÿ {@ÿä:Ö{ß ¶ê{½ ````ãûx;ÿKÿæe`è@{ÿ @ÿä~ã»xKÿêÍ`|ò#Ëx| P|´Kÿï`8!À8`èêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8`ÿÿN 
```}&|¦ûáÿø|yú¡ÿ¨úÁÿ°úáÿ¸ûÿÀû!ÿÈûAÿÐûaÿØûÿàû¡ÿèøûÁÿðø!ÿ1Al}Cx|ü;x|Ú3x|½+x|#xKÿúµ|{yA\H²Y`z· ¸@AÄóxãûxKÿø]EÓx¤ëx|{xãûxKÿù)CØP|~xC´KÿéI`|yyAÂü.{Ý @h~Úê¿ëx;ÿÿzÖ ```ãûx;ÿKÿä¹`°@{ÿ x@ÿä£ëxKÿä`9>ÿÿ/=A,``}>´{Ý £ëxKÿäu`9>ÿÿ/=@ÿä/;ÞÉ´@\97{Þ ©ê;ÿÿ{½ ßóxH`````ãûx;ÿKÿäE`è@{ÿ @ÿä×òÉ´y< :é8ãx~ÿ´Kÿä`@D;ºz÷ ½â;Ùÿÿ{½ ~ÿ»xãûx;ÿKÿãå`è@{ÿ @ÿä~÷Ò~ÿ´#ËxKÿèE`ø@(`{ã 8;ÿKÿã¥`øÿ´@ÿä8`8!Ðèê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿð|¦ëáÿø} N ``|exãxcÛxH°u`/£@ýÔKÿÿ8`ÿÿKÿÿ``8!Ð~¨«xãxFÓxè¥ëxãûxê¡ÿ¨êÁÿ°Äóxêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿð|¦ëáÿø} Kÿù¸``|¦ûaÿØûÿà||xû¡ÿèûáÿø8`|#xûAÿÐûÁÿð|»+xøø!ÿaKþæ-`|}yAÂ/AH8 ãx£ëx?¥H²E`[9 =¥88` =;yX]=@HyX=B¥*y\KþæÝ`=¥8|ix9C8`ù(y`="¥ùIyhKþæµ`=B¥øjyp<``cKþå`<¢¥è¥y`="¥øiyx/¥Að<â¥èçyh/§Aàé\/ªAÔ/£AÌé8À`iyF,=@9)aJyFy8`ù<(;àKÿ	`|dy@X?@?`cZ``é<(8`}Iúy^,}Iù*{^;ÿÅóxKÿÁ`¿Ø@ÿÐ9 8! £ëx=èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```8bÐH¼¹`<b¥ècy`/£A8 KþäÝ`<b¥ècyp/£A8KþäÁ`<b¥ècyx/£A<`Kþä¡`£ëx8Kþä`8`8! èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```</@ý´</@ý¨;Kÿý `8bøH»é`Kÿÿ0`8b°H»Õ`8`Kÿÿ``,#M |¦ûáÿø|xøø!ÿ#/@,ãûx8KþãÁ`8!èëáÿø|¦N `8`Kÿ

`<b¥ècy`/£A8 Kþã}`<b¥ècyp/£A8Kþãa`<b¥ècyx/£A<`KþãA`9 ãûx8?Kþã)`8!èëáÿø|¦N ,#A¤|¦û!ÿÈûAÿÐ`ûaÿØûÿà?|#xû¡ÿèûáÿø?â¥|½+xúáÿ¸ûÿÀ|yx;ÿyXûÁÿð=B¥Jy\;B(cøø!ÿA```èÿyI&äß;}GH.}'JêéyHãyH$0@ØA()UJ>CÓxØ@}$Kx}%Kx@Hº`zþ,8`{ÅóxKÿ`?/¸9)y) y*!?@?=)?Aÿh8!ÀÃxèêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```|R#Ëx}8´He`Kÿÿ```8!À8`èêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8`ÿÿN 	`|¦,#ûáÿøøø!ÿA\|#x8xd,egéy$99 8à8À8 Kÿ)`,#@08!ãûxèëáÿø|¦N `;àÿÿKÿÿà``|dx`8bX;àÿÿH¸q`Kÿÿ¼``99Cÿÿ}	¦9 
}(Jy) Bÿô|¦/©ûAÿÐûaÿØûÿàû¡ÿèûÁÿðûáÿøøø!ÿQAè} ,8c?Â¥;Þyà,<¢¥è¥yU&@>8`@Q&À8Q&Ä.8¥TxÆ D"gÿ<¢¥è¥y8`@Wæ@>8SæÀSæÄ.8¥TxÆ D";àT; `è¾8`@88À|¿*D"é>8¿8`@88À|¥JD",=;ÿ;½ÿÿ@ÿÀ8`8!°èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ?Â¥|{x;An;;Þyé>q*"A¤; 9 H0è¾8`@a)8U&@>Q&À8¥Q&Ä.xÆ D"è¾8`<88¥D"/£@$T@>PÀPÄ.©@8y /@Þ;àçH ```y_!x AÂ\@Þd8`KþÛ`è¾8`<88¥D"T@>.£PÀ9_ÿÿPÄ.}$Kx©H8/Aÿ°+@8ÿÿx |è8/A;T>+{ ´@þð``="¥é)yy(çã@£át¡Ar¡!pWèÂ>û{ÿ UGÂ>U&Â>[;UJ})SxÛûy) Kÿý°```;8ÿÿ+x T>{ ´@þhKÿÿ```; 9 Kÿþ`<¢¥è¥y8`<88¥D"/££át@T@>PÀPÄ.}DSxx÷ãAâÿ@kÿKÿÿ8`8bØHµ	`8`ÿÿKÿý´```ûáÿø8|x<¢¥è¥y8`<D"/£x A9 ÿÿy) Wæ@>8`@<¢¥è¥ySæÀ8SæÄ.|ÆKxxÆ D"ëáÿøN `liÿÿ/@Dx +A|`9 8â99G0HA0*9J.© @9@ÿè8`ÿÿN ```y	$y.¤}	@P}Bé(=B¥8`ù*y9 =B¥ù*yN 9  Kÿÿà```|¦ûAÿÐûaÿØ<Â¥û!ÿÈûÿà?b¥û¡ÿèûÁÿð;{yûáÿøøfy8`øø!ÿQKþÛE`|zyAÌ8 8H§`<8 `@ cÛxKþÜ¥`<¢¥è¥y?8Àÿÿ8xÆ |{P8¥Øø|@ 8`@D"<¢¥è¥y8`<88¥D"/£@tT@>PÀPÄ.}$Kxxÿã@Â\;à1HAÂì@ÖL8`dKþ×õ`è»8`<88¥D"T@>/£PÀ9?ÿÿy?!PÄ.Tä¼x .¤Aÿ´CÓxKÿú=/£@;;?û=Ëx;Û;ÿ(```8 8£ëxH¦`|¬é<@ ;½8À9ÿð}^J;Þ0¾ø@yG"}@E,|æE,@ÿÀÙJè»8`@{É"8U&@>Q&À8¥8Q&Ä.xÆ D"è»WÆ@>8`@SÆÀ8SÆÄ.8¥8xÆ D"è»8`@8<À8¥8D"è»8`@88À8¥8D"è»8`@88À8¥8D"è»<Àú8`@`Æ8xÆ 8¥D"è»8`@88À8¥D";;;¼@>Ëx8 8ÃóxH¤å`|¬é<@ ;Þ8À9ÿð}Iú;ÿ0½ø@yG"}@E,|æE,@ÿÀùJè»8`@{é"8U&@>Q&À8¥(Q&Ä.9 xÆ <@D"è»Wæ@>8`@SæÀ8SæÄ.8¥(xÆ D"è»8`@8<À8¥(D"è»8`@88À8¥(D"è»8`@8<À8¥(D"è»8`@88À8¥( D"è»8`@8<À8¥D"9 CÓx:8!°èë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N /¤@Þý`CÓx8KþØ%`8!°8`èë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `8bH¯¥`8`Kÿÿx``#/M |¦<¢¥è¥yûáÿø8ûÁÿð|x8À8`@8¥øø!ÿD"<¢¥è¥y8`@88À8¥D"8`
KþÔA`<¢¥è¥y8`@88À8¥(D"<¢¥è¥y8`@88À8¥(D"<¢¥è¥y8`@88À8¥8D"<¢¥è¥y8`@88À8¥8D"<¢¥è¥y8`<88¥TD"/£<Àÿÿ`ÆÿxÆ @xÀBxÆ@ <¢¥è¥y?Â¥8`@;Þy88¥TD"<`xc Kÿùm8`
KþÓe`<`KÿùY8`
KþÓQ`<~èc@ < Äóx`¥@ |~KþØ!`9 ãûx8?KþÖ9`8!èëÁÿðëáÿø|¦N ```|¦ûáÿø|yûÿàû¡ÿèûÁÿðøø!ÿqA<¢¥è¥y8`<88¥(D"/£9 ÿÿy) AX?Â¥;Þy?¾]@H@Ah9J8`yJ&ä}R(y%á@t8!èëÿàë¡ÿèëÁÿðëáÿø|¦N ?Â¥T@>;ÞyPÀ?¾PÄ.xé ]@H@@ÿ 8!8`èëÿàë¡ÿèëÁÿðëáÿø|¦N `8È8¾|T,èý@ ;ãûx} 6,|ÅT,xÆÆ9)ÿü|3xy% | P}?´H `8 8ãxH 5`|¬è¾8ý@8`@8|À<,8¥(D"=@8!ãûx9)y)`=@èëÿàë¡ÿèëÁÿðëáÿø|¦N ``8`ÿÿKÿþÜ```|¦û¡ÿè|}yûÿàûÁÿðûáÿøøø!ÿqAP<¢¥è¥y|#x8`<88¥8D"/£;àÿÿ{ÿ @T@>PÀPÄ.y <¢¥è¥y8`<88¥8D"/£A´9 ÿÿ;y) ?â¥9);ÿyy)&ä9=_|L,¤ëx{Å |èL,éJ@ ÿJxçÆ|c;x|jPH9`9 9?9 ÀG,?|¬<¢¥è¥y8`@8ãx8¥8D"Ãóx8!èëÿàë¡ÿèëÁÿðëáÿø|¦N `T@>;ÿPÀ{ÿ`PÄ.8@xé AÿÀ8x`T@>PÀPÄ.{ Kÿÿ$`8`ÿÿKÿÿ```|¦liÿÿûáÿø/øø!ÿA(8!8`ÿÿèëáÿø|¦N ```x +A`9 8â99G0H```*9J.© @9Aÿ@ÿèy	$y.¤}	@P}BéH=¥|©+x88 ùHy=B¥|Ã3x|ß3xù*yH]`8!ãûxèëáÿø|¦Kÿñ@9@ Kÿÿ¸``}&|¦ûáÿø;åûÿÀûÿàû¡ÿè|¸+x||xûÁÿðúáÿ¸|Þ3x|#xû!ÿÈûAÿÐÿ´-ûaÿØøø!ÿAAÌ/Aô``8 8b0H©`HY`HÁ``?b.>-;BØ;{p; :à;ÿÿÿCÓxÿ´äûxH¨¹`Hµ¡`/At/¿A,AÈA@ÿÈè}:8ûH1`¤ëxãxH¡`|~yAd/ÿÿ@Þ¬;ÿÿÿCÓxÿ´äûxH¨I`Hµ1`/@ÿ`8bàH¨)`8`ÿÿ8!Àèêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} } } N ``¤ëxãx;HXµ`/ÿÿ|~xAÿ(`8bH§©`ÃóxKÿÿ``¤ëxãx;HXu`|~xKÿÿ``Ãx8bðH§e`8`ÿÿKÿÿ<```8(8b0H§A`HWÉ`KÿþH`````8`8b0H§`Kÿþ`HzÁ`8 |dx8}Hí`Kÿÿ4	`}&|¦úáÿ¸ûÿÀ}7Kxû!ÿÈûAÿÐ9 |ú;xûaÿØûÿà||x`û¡ÿèûáÿø8bh|Û3xúÿ }Cx|#xøú¡ÿ¨|¹+x;àúÁÿ°ûÁÿðø!ûA!P9 ù!8ù!@H¦±`8 <88apHí`8ÁH8 88`KþÅe`/ÿþ|jx@hH³`/AÔ9?/
}?´AÄKþÌ`KþËÙ`KþÌ!`/Aÿô8ÁH8 88`KþÅ`/ÿþ|jxAÿ /ÿÿA!MLáKÁJ`¡IH8b¨A¨H¥`8aHH#õ`|lB¦!J}#xxc H ]`/@Ü/ÿzå A
$;Á°ÃxÃóx;°HQ`9p9 ~èº8 ¸8Ãx7@H½`ÃóxH`.#|vx@X=Bé*r9@A/A
ô/A@:á09 
9@Ad}?HP/	AÄ9 
!`8 ~ä»x8apH`=Bé*r/AÀ/A@!+A¤}*Kx="ÿÿ9)¬ðyJd}IRª}*J})¦N 0DP°```8a°8Hµ`8·8`0KþÞY`8a°Hù`8 |dx8a°KþÒU`8`ÿ8!Àèêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿè|¦ëÁÿðëáÿø} N ¡`8À8p#ËxKÿú!|x/A=é(r/A¸/AÄ;ÿ+@Ý
¼!°/@=?â;ÿpéHr/A0/A$ÁdIÓxhÛx8áh¥ëxãx8apHl5`!|x/AXèaªKþz`/A/ÿÿAÞ
$/ÿþAÞx/ÿýAÞ /ÿüAÞ
Ì/ÿûAÞ
x/ÿúAÞà/ÿùAÞ/ÿøAÞ8/ÿ÷AÞä9?+@/ÿØAÞ(/ÿ×AÞÐ/ÿÖãûx@þþÁt¡p`8a°8PH¡e`8·8`0KþÜ`8a°H9`8 |dx8a°KþÐ`8`ÿKÿþ@`¡`8À8p#ËxKÿø¡|x/@þ/ÿÿA
ì=Bé*r/A/@(8at8°H~ù``8°8bH¡Å`/ÿþ@þP¡`8a°8 T¨>x§Æ"x¦"x¥FH `8·8`0KþÛÉ`8a°Hi`8 |dx8a°KþÏÅ`èaªKþxù`8`ÿKÿýd``8 8P8aHH%`/£@ì9 ÿÿ!¡`8p#ËxHC`|xKÿý|;Á88 Äóx8a8Há`/£èaªA°88Hy`;à=é(r/@ýP8 8P~ã»xH¡`/£@
,8 8P8aH`/£@ÔapH*`=Bé*r/@þp`8bXT>xÆ"x"xFH M`Kÿþ;Á88 Äóx8a H!`/£A!°/@ô9 !¡`8À8p#ËxKÿö|xKÿül8 ~ä»x!`8apHá`=Bé*r/@ûH8 8P~ã»xH`/£Aû48 8P8aH`/£Aû!°/Aû8 88a;àHu`9 !Kÿþ`åVp8¨8bxHQ`ãûxKÿû\8 ÿÃx8a¨?âHQ`=9 ;ÿpéHr!§/@ûØ¡`8¨8bT¨>x§Æ"x¦"x¥FHí`="ÁdhÛx8áh¥ëxéIrãxIÓx8apHgá`!|x/@û°èaªHR`Kÿû :¡Ð8Àd~¥«x8ÃóxHõ``~£«x8Há`/£@(8Ãóx9 !Ha`=:ÖÿÿzÖ é(r|~x/A/.6:á0AàAùT:¡Ð8Àd~¥«x8ÃóxHu`!Ð/@ô9 
!`Ãóx8Hñ`+|~xAÞ@8Àd~¥«x8H1`!Ð/@à9 !d8ÃóxH`é!bKÿøÔ`~£«x8(Hñ`/£@9 Ãóx8:Öÿÿ!Hm`9 =zÖ (p|~x.6AÒ¬:¡h8Àd~¥«x8ÃóxH`8 ~£«xHx`/£@$!h8 88a /@¸H`:öÿÿÃóx8z÷ Hå`/·|~xAP8ÀdÃx8ÃóxH!`!°
Ãx9//©@H*/©A+\@ÿð
Kÿÿè;°8 ¸8ÃxH`9 :á0!9 
!`9 !dKÿ÷`~£«x8 H¡`/£@þ8Ãóx9 KÿýÀ`8¨8bPH`8a8°Hy``8°8b Há`é_Kÿø¤8 
8~£«xHÅ`|c´/ad@þKÿþ;Á88 Äóx8a8H`/£@¤8 Äóx8a Hm`/£Aùx8 88a HQ`/£Aù\8 8 8aHE`KÿùD``8;àHsÙ`Hná`8 |dx8atH
`Kÿú88 
8~£«xHõ`|c´/a`@üøKÿüì=Bé*r9@A/A/Aý:á0Kÿü .6AÒÈ:¡h8Àd~¥«x8ÃóxH`8~£«xHå`/£@$!h8 88a/@8H
`:ÿÿÃóx8z HU`/´|~xAl8ÀdÃx8ÃóxH`!°
Ãx9//©@H*/©Aô+\@ÿð
Kÿÿè8 88a:ÀH`.69 !°:á08 8~ã»xHa`8 88aHHM`Kÿûx8 88a :ÀH1`.69 !°8 88a8H`8 88aP:á0Hù`Kÿû$8 8H8aH1`Kÿø8 8 8aH`9 !KÿøÃóx8H
`+|~xAÞÿ,8Àd~¥«x8:á0HI`~ä»x~£«xH)`/£@$!h8 8~ã»x/@HQ`Ãóx8H¡`94ÿþy) /©|~xAÞþÐ8Àd~¥«x8ÃóxHÕ`8H~£«xHµ`/£@H!h8 88aH/A(HÝ`Kÿú`8bðHy`8`ÿùKÿô$H¹`Ãóx8H	`|~xKÿùÐ8 8t8a8HÍ`/£AüH8 888atHÁ`Kÿü08 88aH`/£A÷8 88aH`Kÿ÷Ãóx8H`+|~xAÞýü8Àd~¥«x8HÉ`88~£«xHrI`/£@$!h8 88a8/@àHÑ`Ãóx8H!`97ÿþy) /©|~xAÞý 8Àd~¥«x8ÃóxHU`8P~£«xHqÕ`/£@4!h8 88aP/AH]`:á0KÿøHM`Ãóx8H`:á0|~xKÿø`8 8p~ã»xH]`/£AõÀ8 ~ä»x8apHQ`Kÿõ¨Hõ`KÿÿHHé`~×³xKÿùlHÙ`~Ô³xKÿûìHÉ`Kÿý`8a°8H`8·8`0KþÐ5`8a°HÕ`8 |dx8a°KþÄ1`8`ÿKÿñÜ`8`08 KþÏù`8`ÿKÿñÀ`8a°8àH)`8·8`0KþÏÍ`8a°Hm`8 |dx8a°KþÃÉ`èaªKþlý`8`ÿKÿñh`8a°8HHÑ`8·8`0KþÏu`8a°H`8 |dx8a°KþÃq`8`ÿKÿñ`8a°8 H`8·8`0KþÏ)`8a°HÉ`8 |dx8a°KþÃ%`8`ÿKÿðÐ`8¡¨88a°H¥`8·8`0	KþÎÙ`8a°Hy`8 |dx8a°KþÂÕ`8`ÿKÿð`8Á¨¥ëx8À8a°HQ`8·8`0KþÎ`8a°H%`8 |dx8a°KþÂ`8`ÿKÿð,`8a°80H`8·8`0KþÎ9`8a°HÙ`8 |dx8a°KþÂ5`èaªKþki`8`ÿKÿïÔ¡l`8a°8H©`8·8`0KþÍÝ`8a°H}`8 |dx8a°KþÁÙ`8`ÿKÿï¡h`8a°8ÐHY`8·8`0KþÍ`8a°H-`8 |dx8a°KþÁ`8`ÿKÿï4;Á°`8 Ãóx;ÿH`+Ad="ÿÿ9)¾l{ÿÃóx}Iúª}*J})¦N àÀL `8a°8èHE`8·8`0KþÌé`8a°H`8 |dx8a°KþÀå`8`ÿKÿî`8a°8¸Hù`8·8`0KþÌ`8a°H=`8 |dx8a°KþÀ`8`ÿKÿîD`8a°8H`8·8`0KþÌQ`8a°Hñ`8 |dx8a°KþÀM`8`ÿKÿíø`8a°8pHa`8·8`0KþÌ`8a°H¥`8 |dx8a°KþÀ`8`ÿKÿí¬é!bKÿìÈHy``8h|~Hu`ÃóxHY``88|~HU`8·8`0KþË`ÃóxH)`8 |dxÃóxKþ¿`8`ÿKÿí0H``8|~H`KÿÿHå``8|~Há`KÿÿlHÅ``8P|~HÁ`KÿÿLH¥``8@|~H¡`Kÿÿ,ÃóxH``8¸|~H}`Kÿÿ`|¦ûAÿÐûaÿØ|Ú3xûÿàû¡ÿè|}x|#xûÁÿðûáÿøxþ |»+xû!ÿÈÃóxøø!þAHA`|yAÂ,¤ëxÅóxH)``8 8øãûxH1`|}y@´8[ãûxH`|~yA>/[Að8.ãûxHe`|~yAÂ8.8~HM`/£AÞÃóx8/H5`|~yAÂ¨89@}$ðP8ap})´}DI®Hí`8À8¡p8pCÓxH)µ`/£A8ãx8apHlM`8cÛxH`ãûxHñ`8!À£ëxèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``8]H~}`,#AÂ}>P8/Ãóx}:´H~]`|yyAÂÐ¾Ñ®ãx8~Hi`/£A,8cÛxH	`ãûxHM`8!À£ëxèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``äûx8b; ÿÿH!`ãûxHõ`Kÿÿ```; ÿÿ8b°Hõ`Kÿþä`; ÿÿ8bÈHÝ`KÿþÌ`äûx8b0; ÿÿHÁ`ãûxH`Kÿþ¤`äûx8bx; ÿÿH`ãûxHm`Kÿþ|`äûx8b; ÿÿHq`ãûxHE`KÿþT`äûx8bP; ÿÿHI`ãûxH`Kÿþ,`äûx8b; ÿÿH!`ãûxHõ`Kÿþ```|¦ûÁÿðûáÿø|~xû¡ÿè|#x8 8øø!ý8a°Hu`/A{å Äóx8a°H©`9!p8a°éú9 ?@H
`9 
|y!¼AØ+8À@8¡p88a°A HÍ`8°8apH
`/£AÐ8À@8¡p88a°H`8°8apH
}`/£Ap88a°H`|}x8À@8¡p8£ëxHY`8¡À8´8apHe`/£A(8£ëxHÍ`+|~x@¬``8 <88apHE``8b¡(H`8ÁÈ8 88`Kþª`/ÿÿ|xAÞ /ÿþA!ÍÌáËÁÊ`¡ÉÈ8b xá¨H-`8aÈH	¡`!´/@`8À8 8p8`Kÿá`|c4/ÿÿAÞÈapHe`p`8b ÀT>xÆ"x"xFHÁ`H¹`|~y@p8°8 8aH~``8b¡T>xÆ"x"xFHy`ãûxH¹`Kþ°ñ`=@ffaJfg}#P|cþp})p|cHP!¼|cIÖ|c´Kþ°%`H$``H	1`Hy`/£AKþ°I`/ãûxAÿØ`8bHí`èaªKþa`8`ÿÿ8!ðèë¡ÿèëÁÿðëáÿø|¦N ``8 8´8apH}¥`a¸/£@4aÀ/£AHe`apHù`p`8b ÀT>xÆ"x"xFHU`HM`|~yAþ`8b àH5``WÇ>{ÆÆ"{Å"{ÄF"8b ðH`Kÿþd```8b¡Hù`èaªKþ``8!ð8`èë¡ÿèëÁÿðëáÿø|¦N `H1`8°8apH`/£@ý`8bÈH`8!ð8`ÿÿèë¡ÿèëÁÿðëáÿø|¦N 88a°Hy`8À@8¡p8;ßÿÿ|}xH½`8°8apH`{ß /£AÞÿ£ëx8H1`+|}xAþüpKÿü``8À@8¡p8He`8¸8apHE`/£Aÿ8Ãóx8HÝ`+|~xAü8À@8¡p8H`8 
8ÃóxH`a¼Kÿûì``8a´H`aÀKÿýì```H`KÿýÈ`8b HHM`8`ÿKÿýl`8b  H5`8`ÿKÿýT`8b H`èaªKþ^±`8`ÿÿKÿý0`,$9@AP`#+,A/©A0#*,/©@ÿð9*8cH@y* @ÿÌN `8`N N ``|jx8```*+,A,/©@N ``A0**,/©@ÿð5JAÂ8cxc Kÿÿ¼``N N ```#+,AH/©A@|jx8`H````*8cxc *,/©M @ÿèN 8`N ```|¦,$ûÁÿðûáÿø|¾+xøø!ÿAL9@```#+,A/©A°#*,/©@ÿð9*8cH@y* @ÿÌ/£AÞ#+,A/©A|jx;àHA*;ÿ{ÿ *,/©@ÿè|dx|Å3xÃóxHvù`/£A,9 8!Ãóx}>ù®èëÁÿðëáÿø|¦N `8!8`èëÁÿðëáÿø|¦N ;àKÿÿ}&|¦úáÿ¸ûÿÀ|·+xû!ÿÈûAÿÐ; ;@ûaÿØûÿà`;ÿÿû¡ÿèûáÿø; |xúÁÿ°.%;b@øûÁÿð;ÿÿø!ÿ1/£A+A,Hz`/£AdÛxãûxHv¡`|vyATdÛxãûxHv`|P|~4+	{Þ AàäûxÅóx8apÿòHu½`}!ò)p8 
88apH|`+ÿA¤|/º;½{½ ?i).})4U)Ù~ÿJAÿ@;ÿ8 	äûx8apHuY`8 
8!y8apH|!`|~x8apHt`9>ÿÿÞ´+ÿA(Aä#Þ ;@ð0×KÿþÔ```8`8!ÐèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} N ```8\ãûxHr)`|~yA8\ãûxHr`|P|~4+	{Þ AÿxäûxÅóx8apÿòHtU`}!ò;@ÉpKÿþ```;@Kÿþ``k£|c4TcÙ~|cÐ|c´Kÿÿ ``äûx8 	8apHsõ`8apÁyHrµ`ÿKÿþ,
``8 Kÿý,```|¦|dy8 øø!ÿA,<b®8c¹¸Hua`8!pè|¦N ``<b®88c¹¸Htå`8!pè|¦N <b®8c¹¸N ``|¦ûÿàû¡ÿè?¢®ûÁÿðûáÿø;½¹¸||x;Ý8 î8Ãóxøø!ÿaHti`8À8 îÄóxãxKþ¢`,#A/
x @H`8 8¡PÃóxHue`/£@="®¡)¹Ì/Aèm*ÿÿ/ÝA\/A8! 8`ÿÿèëÿàë¡ÿèëÁÿðëáÿø|¦N ```8! 8`èëÿàë¡ÿèëÁÿðëáÿø|¦N ```<8 8xÃóxHtÁ`/£Aÿ`8 ¤ëxÃóxHt¥`/£AÿD|$x9 338 Ãóxµ$pHt`/£@ÿDKÿÿ```8¿ÿò8x¥ ãxHq`8! èëÿàë¡ÿèëÁÿð|c´ëáÿø|¦N `8¿ÿò8x¥ ãxH
ñ`8! èëÿàë¡ÿèëÁÿð|c´ëáÿø|¦N `8¿ÿò8x¥ ãxHRÁ`8! èëÿàë¡ÿèëÁÿð|c´ëáÿø|¦N ``|¦8Àøø!ÿKþ¡Q`8!pè|¦N ```|¦ûÁÿðûáÿø|©+x|Þ3x|x8 8cøø!ÿ°}$KxHr1`Äóx8 ãûxHr`8!èëÁÿðëáÿø|¦N |¦9 û¡ÿèûÁÿð=B®ûáÿø?¢®;½¿°;À*¿°=B®;ý;½<*¿´=B®øø!ÿq*¿¸``ßÿüãûx8 ;ÿ8Hq=`¿è@ßÿôßÿø@ÿØ="¯9)¸=Bÿÿ8!9JxØùIèë¡ÿèëÁÿðëáÿø|¦N ``9%+©îA$/©A+Ad9
9 }	¦9Dÿþ±$
9 ``¥
})BBÿø|¦û¡ÿèûÁÿðy*ûáÿøúÿ y) |#xú¡ÿ¨úÁÿ°}*J|~xúáÿ¸ûÿÀy*|¿+xû!ÿÈûAÿÐ})RøûaÿØ})Høûÿàø!ÿ±$
	/Aè/ÿÿAü=®ûÄ?b®;{¿°@ø/A =B®JûÀàA`;<})âx})@8/@ ;û8@A°y(M¤y:]$}HÐP<ÀÌÌ}[R`ÆÌÍJà@T`;}ÐPXB`;::¢¡X8 8#ËxHp½`/£@|<â®ç¿¸H\JàAÿ¸9)}I0UJèþUH<UJ8}HR}*HP8@y) y(M¤y:]$}HÐP}[R@ÿÀ?®;¿¼`;@:¢¡Xxé]$xùM¤9HP8 *~ØÊ8:Ö
;9~Ã³x8ÊHná`Kÿú`9@9 >®û¼8 ±Y9@±9
|dx±98yY9@YHné`~¤«x8 8yHnÑ`"Kÿùµ`~¦«x8|ex~Ã³xKÿüM`8 *~Ä³xÃóxKÿûù`/º@Ä=®¿¸<àÌÌ<Â®Æ¿´`çÌÍ8¨}E8UJèþUI<UJ8})R=B®})(PH*¿¸Ay	M¤y]$})@P8 [J|xJ9 88c{ÿ :HmÅ`Kÿøý`8Õ8|ex8{< Kÿû`åûx¤ëx8{<.Hmá`9?=®_Óx(ÀKþ Y`Kþ±`H`Kþñ`/@ÃóxKÿø`?/@ÿÜ8`H="®)û¼$Kÿüd?b®;{¿°="®)¿¸9`;"¡Xy:M¤y)]$}:HPHJKÿø5`;
&Ëx8{ÿ |exãxKÿúÅ`åûx¤ëx8zHm`8¿ãx|¥´ÃóxKÿúY`8!ðèêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿð|¦ëáÿøN ="®)û¼})âx})@8/Aÿ4;<àA°="®)¿´<â®ç¿¸?®ûÈ8@Aýy(M¤y&]$}H0P< ÌÌ}[R`¥ÌÍJà@(``;}0PXBKÿüPJàAÿè9)}I(UJèþUH<UJ8}HR}*HP8@y) y(M¤y&]$}H0P}[R@ÿÀKÿü``="®)¿¸9?";9y*M¤y)]$}*HPHJKÿþx``=B®Jû¼="®)ûÀD$Kÿú`9 8 8ap±$8Hk-`¡=]	y'!Ay|9@±!rA89 H````}J9)H@y) ¡}JBAÿè9
9!n}	¦``¥	}JBBÿøyIyJ })Ry*})RU)>}*HøqHÿÿ@±=Kÿú\8`ÿþKÿýÔ±KÿúL8Æ|æ8TéèþU*<U)8}*J})0P;KÿüT8`ÿÿN ="®iû¼Kÿø``<b®cû¼N ``=@ÿ=# aJÿÿP@A`=®<âxjbTiÂ>hûÀ99<â9^<â=<âH=Bg*N ```|¦9 <â®<b8 8ÿ8c'ûÀøø!ÿHiY`8!pè|¦N `<b®cûÀN ``="®iûÈKÿ÷h``<b®cûÈN ``="®iûÄKÿ÷(``<b®cûÄN ``C}It/@<`ÿxc N `iI<`ÿÿ+?xc L 9J@UJ>+ |p&Tcïþ|cÐTc.N 9@E9 °£	ÃãC9@±#±#±#
C9@ÿÿCN ``+@Ì|¦û¡ÿèûÁÿð|}xûáÿøûÿÀ|#xû!ÿÈûAÿÐûaÿØûÿàøø!ÿQ="®)ûÀ|?xÄ/©A 0@A$/ÿÿA="®)û¼/©A0@@9
9  þ
}	¦9^ÿþ±>
9 ``¥
})BBÿøy*y) }*Jy*})R})HøU)>H@¸¡>q*ÿ@èy*ã@Ð>	/Aä/A/@^£~/{h AÈ/AÔ/@¼¡>m*ÿÿ/Ôv@T¡>/@H=®>H¿°H@4/©A,9 8`(¿°Hx`=ÿ=F aÿÿ@@AþÔ8?°8`ÿÿèëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``="®¡)Ì¡?®;¿°@A88`8?°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ="®)Ñ	@@ÿ¼<B$@@ÿ¬<B(0@ÿ  ¾yJ$;|B8j8|{8¥ÿìx¥ HeÑ`¡>y*ã@ÿl¡^U)8~Ûx})R±<BKÿþ\` ¾8£ëx8¥ÿìx¥ H
`Kÿÿ4 ¾<b®Äóx8cÈHeq`8`Kÿÿ 8~8ÿì|´H`Kÿþø8¨ÿìèá|:x|ª´;9J#; yJäx¥ }JÐ8|áQj8àE;p^áp8à8a±9ÿÿü<	\³³<³<
HdÕ`³<9!8áÞ9@``¥	§H@}JB@ÿôyIyJ })ReÛxy*ãx})R£ëx})Hø±<KÿóIé!8`ù:AÓxKÿþ8`ÿÿN >%/A,/@ýô¾8ÿ|8~0x Hõ`8`KÿýØ¾8ÿ|8~0x Hu`8`Kÿý¸``+@¡$/@|¦úÁÿ°úáÿ¸ûÿÀû!ÿÈûAÿÐûaÿØûÿàû¡ÿèûÁÿðûáÿøøø!ÿA£d/@äD="®)û¼?¢®;½¿°P@È£ä|#x||x/Að/@¬KÿîU`8 8HdE`/£@Ðþ/§A=Ý0@Apy*M¤y?]$êøP< ÌÌ}]ú`¥ÌÍJ8@HÄJ8A¸9)}I(UJèþUH<UJ8}HR}*HP0@y) y*M¤y?]$êøP}]ú@ÿÀ8!À8`ÿÿèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N /ª@L8`8!ÀèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```]:ý8Þ8 *;{IM¤{Z]$IÐP7Ò;Z;9
×Ò#ËxHa©`Kÿìá`Ãx8|ex#ËxKÿïy`KÿìÁ`9 ³þ
³~8 ½<>9 |dx8~>9 ±>Ha`¾8 Ãx8~Ha`Þ"8 *$ËxãxKÿîÉ`8`Kÿþè``8`ÿÿN ``}ú`;{8 8¡`cÛxHb`|zy@þ`ýú8 8cÛxHa	`?/Aþ;Ý< 8 dÛxÃóxH`å`è½BÄóxãxKÿî1`__KÿþH
/¤=®¿°M |¦ûáÿø8àE|#x99@|x8 T8*øø!ÿáp8à!9 8a±t±váq8àp!9 ÔvA|±Az°ár8àÿÿ±!9 ±Aáx8à±!áyH_É`9.9A}	¦9 ¥
})BBÿøy*y) }*J8py*8 p})Rãûx})Hø±!Kÿî8!ðèëáÿø|¦N ``<b®c¿°N ``|¦+øø!ÿ@°¡$|#x/"Aà+"@X/ÑA°m(ÿÿ/@¡$/5@x8ÿø8j|´H
É`8!pè|ct|¦N ```/D@<¡$/C@08¥ÿø8|¥´H±`8!pè|¦N ``8!p8`ÿÿè|¦N ```|¥´H-
`8!pè|ct|¦N 8ÿø8j|´HLµ`8!pè|ct|¦N ```+L ¡#/ÑL |¦|£+xøø!ÿH3
`8!pè|¦N ``9 °£°Ã°±#N ```8`ÿÿN ```N |¦ûaÿØûÿà|{xû¡ÿèûÁÿð|½+x|¾+xûáÿø;|#xøø!ÿa```_}ðPäûxÃóx}Jt}I´}R8©U)2/Àx¥ /*.¨þA`AxA´H]`?})t9)ÿJÞJ}ðPäûx_Ãóx}Jt}I´}R8©U)2/Àx¥ /*.¨þ@ÿ¨ ;x ûúKÿÿ\``/¼^8Aãx8! èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```£ëx8 HXå`8! 8`èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``|¦úáÿ¸ûaÿØ|wxûÿàûÁÿð|¼+x|#xúÁÿ°ûÿÀ|#xû!ÿÈûAÿÐû¡ÿèûáÿøøø!ÿ1HX½`+;ÃA\;0; (:À(8c?â¯;ÿÀ£ê{¥ 8ãûx; H[=`9@4}?Â;IdÛx}_Ã.9@³)CÓx;Þ±IWÞ>HWé`cÛxHX=`+8cxi }ZJAä98 8À5`¥}K.³*Äóx|²Kÿý!`8 8ø8apHZý`H:µ`8áp8 Äóx|fxãûxH;`øA(="¯9)¸¥´äûx~ã»xé)éIéi}I¦èIN!èA(8!ÐèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `;; :ÀKÿþ¨:K.³*8 Äóx|²`¥8À5KÿüE`<â¯ç
°|ò8À8 T>ãûxKÿñ`Kÿÿ8
``/A="¯i
°8`N ``|¦<b¯8 8c
¸øø!ÿHY¹`8!p8`è|¦N |¦9 úÁÿ°ûAÿÐûaÿØûÿà`|{xû¡ÿèûÁÿð?Â¯:Â ûáÿøúáÿ¸;ÞÀ|#xûÿÀû!ÿÈ;¾~Ä³xøø!ÿA£ëx|º+x%|Ü3xHU¹``ãûx8¡hHWÕ`/£A`ãûx8¡pHW¹`;ã`ãûx;"$ËxHW`/£Aãûx$ËxHW`;ã`ãûx;"¡x$ËxHWi`/£Aü$ËxãûxHWQ``;"¡|P$ËxTx>ãûxHW1`/£Aô$ËxãûxHW`|PTc>@@|xxW>98ÿÿ+þAÀÃxäûx£ëxÂHV=`9 ;>~Ä³x#Ëx8HT`£ëxHTå`+ÿAØ;þ:þ	'Ëxªëx`?;}DSxÃx*.ªøPW¨>{¥ /©+?A@(A|HU¹`?|øê~ê»x/AÀ:÷Kÿÿ¨``;à8b¡øHce`8!ÀãûxèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ~Ä³x#ËxHS©``;à8b¢Hc`8!ÀãûxèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N =B¯J
°'/AÀ+A$>9 =B¯;¾ ~Ä³x£ëx*Ü;HS`£ëxHSi`ãx/£A¤ëxcÛxKÿúMKþé`KþA`H8`>/AA>/AAÔKþa`/@DcÛxKÿá`~*+|uAÿ´;àKÿþð``$ËxcÛxKÿùÉKÿÿ|;ÿÿ{!@ÿL`88b¡ÐHa¹`KÿþT```ãûx`HR`;"¡$ËxTx>ãûxHTA`/£@ýãûxHR]`Tc>Kÿý```88 CÓx;àHUA`8!ÀãûxèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ````;à8b¡H`å`8!ÀãûxèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8 8CÓx;àHT`Kÿý,8 88~HT)`KÿýÐ
¡#/4A8`N ```¡CUI(m(ÿÿ/@ÿÜyI!@È|¦ûÁÿðûáÿø;ÃûÿÀû!ÿÈ|xûAÿÐûaÿØûÿàû¡ÿèøø!ÿQ¡#/A¨?¯;à; H`¡?P@ÄóxãxãûxKÿö)9]}]´,#;Ã@ÿÔ8`ÿÿ8!°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```9 =B¯8`*ÜN ```¡?/A¼?b¯; ;{À;[ ;	 ;;XÓxH`¡?9]}]´P@ÄóxãxãûxKÿõa|~yAÿH¡>/@ÿÌ$ËxãxHNÑ`/£@T¡>/Ah/A /Ax¡>9)
ÞJKÿÿ`8 8
8{HR`8`KÿþÜ`DÓxãxHNi`/£AÿKÿÿ´`Ãx8
ãûxKÿôµ/£@ÿKÿþ`>
=B¯8`*ØKÿþ|¦9 úÿ úÁÿ°úáÿ¸ûÿÀ:`û!ÿÈûaÿØ:Â¢Xz ûÿàû¡ÿè|#x`ûÁÿðûáÿø|~x`øúAÿ8b¢0; úaÿú¡ÿ¨:à;¢ûAÿÐø!ÿ!;$|?xH]`="¯d´~Ã³xûÉàH]u`/»Aé!|:x8 V8ù!þ¡;ÁpÃóxHPù`ýÃóx8À8 8HKÿè`8ÀC8 D8a84Kÿó%`>>Ãx8aøþHM`KÿÛá`8 |dx8a¨HPÝ`è}: ¾ÄóxKÿß`é!8 Ð8ù:AÓxé!ù!ø1;Áp:aÃóx:¡¶HPE`Kþ`Kþu````è}:8À8 ÐÄóxKþ~A`/£AH þ³9>9@¥	³H@}JB@ÿôyIyJ }IRyI}JJ}JPøUJ>PA°KþM`/Aÿé!;{ÿÿ~Ã³x{{ d´ù:AÓxH[á`/»@þp`z 8b¢`:@ÿÿH[Á`8?à~CxèêAÿêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿà|¦ë¡ÿèëÁÿðëáÿøN ```>/@ÿL¡>$/D@ÿ@¡>"/C@ÿ4>*/@ÿ(KÿÚ!`~¤«x8 HP`8*|ry@ÿ<b¯ècà/£A8 ¸HNù`>>^:88}8=]HKi`é!`8b¢ù:AÓxHZ½`Kÿþü`|¦ûaÿØûÿà;eû¡ÿèûÁÿð{{ |#xûáÿø#åÿþ|Ü3x|~xøø!ûa}#Ø®ÿ"éøP{ÿ | Påûx|"8apHNE`<}åûx8p|cJ|P|~HN!`}¼8|P|~HN`}^Ø®<}*J}>Ù®<]}*J=8! èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```|¦ûaÿØûÿà|Û3xû¡ÿèûáÿø|#x|xûAÿÐûÁÿð|½+xøø!ÿaä/§AdC9 +ÿ@,H°```}	CxH@@8}_H®+ÿA/ª9	y 9)AÿØ}_@®}*Jy) H@AÿÐ/»;ÀAX}ð®]ò/A8+ÿ@8! 8`èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ;Þ{Þ Ø@Aÿ°8! còx|c4èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿøTcÙ~|ct|¦N ``|/£Ap?H@A´+ÿA\8 H,``}ESx(@@@}?(®H@*ÿAA,/©9EyJ 8¥AÿÐ}?P®|©*x¥ (@AÿÈºDÓx|8¥HKÙ`<Z9)})R<9>;Þy) }=H®Éò{Þ Kÿþü<Kÿþ8 `FÓxãxãûxKÿüåKÿÿÄ|¦ûÿàû¡ÿè|½+xûÁÿðúáÿ¸|~x8 ûÿÀû!ÿÈ|#x£ëxûAÿÐûaÿØ8ûáÿøøø!ÿAHJÙ`<8 8ÃóxHL`/£@+;à@;`;;@;=}>ø®}^ú}I®}>ø®/4A```+4@/BAô+B@/]A/ÿA¼/CAt9?;ÿy) }>H®ÿJ{ÿ à@Aÿ8!Àúx|ctèêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèxcÑëÁÿðëáÿø|¦N /A<+AD/A/@ÿ=9?;ÿy) J]}>H®éú{ÿ H|``/Al/2@ÿDJ9?;ÿy) ]}>H®éú{ÿ H@```/5A\/6@ÿJ9?;ÿy) ]}>H®éú{ÿ à@@þü}>ø®}^ú}I®}>ø®/4@þ9_9?yH y) }@®}>H®êJ{ÿ Kÿÿ¼``:ÿ8z÷ |"#Ëx;ÿ|¾¸®HI`}>¸®}=JI}>¸®éú{ÿ Kÿÿt8!À8`èêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``9?9_y) yJ ;ÿ}>H®}^P®{ÿ U)@.})Sx±=Kÿÿ}9?;ÿy) J]}>H®éú{ÿ KÿþÜ``9_yI }H®9(ÿÿ+A¬9?y) }>H®êJ{ÿ Kÿþ ```;ÿ{ÿ Kÿþ`}9?;ÿy) J]}>H®éú{ÿ Kÿþ\``:ÿ8z÷ |"Ãx;ÿ|¾¸®HG¥`}>¸®}=JI}>¸®éú{ÿ Kÿþ8!À8`èêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 	```|¦û¡ÿèûÁÿð?¢¯ûáÿø|~x;½è<8 88}øø!ÿqHFý`>8`+A98`}
H6qG@$8!èë¡ÿèëÁÿðëáÿø|¦N `^8à5
;ý=ý/ªA9 4];ý=>2/A 9 2;ÿ?ÿú9 ?ÿû>?ÿü>6/@Ü98þÿ}	¦|ê;x9 `
}(JU)>Bÿô/©A@?9 79@;ÿ?ÿþ`'9
/A_;ÿU
>+@ÿà>B/@Ì>C/@x>]/A$9@]9 ;ÿ_ÿü9@?ÿþ?ÿÿ_ÿý9 ÿÿ8!8`?èë¡ÿèëÁÿðëáÿø|¦N 9 6;ÿ?ÿú9 ?ÿû>?ÿüKÿÿ9 C;¾£ëx?HB1`¤ëx8cTi>8}%Kx?HE!`?9)ÿJKÿÿH9 B;¾£ëx?HAé`¤ëx8cTi>8}%Kx?HDÙ`?9)ÿJKÿþô`|¦û¡ÿèûÁÿð?Â¯ûáÿø;Þè8 H8|}xÃóx;àøø!ûQHD-`=B¯=¯="¯)Øêè9@=¯H=B¯*KÿÏ9`8 |dx8~8HD5`8 88apHCÑ`9 8apááqávás!Íá²á³KÿüÅ8~8ÀC8 D84Kÿåñ`<Â¯ÆÜ8àÿÿÃóxxç 8 8HKÿÛ=`Äóx8 H£ëxKÿÒy`8!°èë¡ÿèëÁÿðëáÿø|¦N ``|¦ûáÿøøø!ÿHJ!`|xHJ`8!Wéèëáÿø}#x="¯iØ|¦N ```|¦û!ÿÈûAÿÐ`ûÿàû¡ÿè9 ;B ûÁÿðûáÿø?Â¯|yxûaÿØ;Þè|#x;ø;¾øøø!ÿAãxëd:DÓx!pH?E`DÓx£ëxH?5`=¯cÛx;@û(àKÿýÝ9 =B¯*èKþu
`Kþte`cÛxKÿÍy`>./AD@@8`ÿÿ8!Àèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```?/©A>ô?/©@?8/@£ëxH>Õ`/£@ ="¯)ì/©A!p=B¯JÜ?ãx88_H>9`8!À8`èë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N =¯(ì?8/Aÿx88ãxH=å`£ëxH>9`/£Aÿh8p£ëxKÿË`/£A4!pKÿÿ\``KþsQ`/Aþ;Zÿÿ{Z!Aâþ¬Kÿþx8À8¡p¤ëxcÛxKÿçQ`/£@ÿ´>/©@ÿ8`ÿüKÿþx```8`ÿýKÿþd```|¦û¡ÿèûÁÿð8 Hûáÿø?â¯|}x;ÿè8ãûx;Àøø!ûQH@
`=B¯=¯="¯)Ø`8ÊÈ9@=¯8 H=B¯*H<`KÿË`8 |dx88H@`="¯)Ü=B¯8 88ap*H?`="¯)ð9@8apÁ¦A!pKÿø88ÀC8 D84Kÿáµ`<â¯çð<Â¯ÆÜãûx8 8HKÿ×`äûx8 H£ëxKÿÎ=`8!°èë¡ÿèëÁÿðëáÿø|¦N ```|¦ûAÿÐûaÿØ|zxûáÿøû!ÿÈ|#x|»+xûÿàû¡ÿè88 ûÁÿðøø!÷8aH>¡`?/@(?=B¯JØ?¯;èP@;ßì<8 8ÃóxH?`/£@{y 8¡;¹ÿÃóx{½ ¤ëxKÿó/£AÄ!/@@!/©A$?Â¯Þè/AÔ/@+AÔ+@Ä9 8`<ô<9 <H¸```_?;ß,Ãóx\ô<?ýÜ<H:á`/£A4¼/@(8 @Äóx8|øH;é`¼8```;ÿlãûxH:`/£A$8 äûx8|øH;`9 =B¯*`9 =¯8`(è8!ðèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```99ÿ¥ëxÄóx8ap! H=`!/Aø/AÔ/@D8À8¿l8 8atKÿïI|c4/£AÞ$ 8¡8ap8x KÿñU/£@þP8!ð8`ÿÿèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``+A¬8`8!ðèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``_=¯?;ß,ÃóxHÜ=B¯*ìH9`/£@´;ßlÃóxH8ù`/£@\?ýÜ=¯=B¯(ð9 *è<b¯cÜKÿÑY`<b¯ècà/£A/¸AÌ%ËxäûxH;±`!/A!/@@!/Aÿa8 8Kÿá`8`Kÿþø``?¢¯½ì/@ÿD8 @Äóx8|øH9e`¼8Kÿÿ(`8À8¿l8 8atKÿí/£Aþ`8À@8¿,8 8atKÿíe|c4Kÿþ``8 ¸äûxH:é`Kÿÿ8```?8 H8ãx<ô!<H:e`<ð9@ÜÜ\< KÿÅ`8 |dx8|8H:`8 88apH:`9 8 8ô8at!H:Q`8 8Á¢8apH:9`9 8apÁ¦ÁqÁvÁs!Í!ÍÁ²Á³KÿòÙ8ÀC8 D848|KÿÜ`8àÿÿ8Àxç 8 8HãxKÿÑU`8 HãxCÓxKÿÈ`9 8`<KÿüD``8 Äóx8|øH7µ`9 =B¯*`Kÿý```!Ê_/\ô?A<\A@88|øH5Õ`ÁË/A88|øH5¹`9 =¯(èKÿý4;Üø`8 ÃóxH5`!9)ÿþU)>+@ÿ¬¼/@ÿ 8 @8,ÃóxH6í`¼8Kÿÿ```;¼ø`8 £ëxH51`!q)ý/Aÿl;_lCÓxH5q`/£AÿT8 DÓx£ëxH6`ÜxKÿÿ8aKÿÎñ`aKÿÏ%`Kÿü¬```|¦="¯ûÁÿðûáÿøè©ú}% Pøø!ÿ})¦p/@¸="¯)ü`|#x;Â¢ /ALäVtÃóxHCÑ`="¯=B¯éø9 *ü9 8!ð=BèëÁÿðëáÿø*|¦N |¥VtÄóx8apHB`!p9Ap9/A``
*/@ÿô8apHCM`Kÿÿl=")y*¡Aÿ@/£9)y) @ÿ0Kÿÿp|¦ûaÿØûÿà|#xû¡ÿèûÁÿð||x|½+xûáÿøûAÿÐ?â¯8;ÿø8 ;ßøø!ÿaÃóxH6y`=B¯é*/Aä/A,¦ëx8 Ñ88`KÿØ©`9 ±)à`HA`èÿ8 8;ÿ0;@4|fxÃóx8çH`¦ëxãûx8 Ñ8KÿØQ`9 ³
EÓxÄóxãx±?øA(="¯9)¸é)éIéi}I¦èIN!èA(8! èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ="¯é)8À8 8 Ãóx;ÿ;@ éKÿÍ-`KÿÿT`|¦ûAÿÐûaÿØ?B¯û¡ÿèúÁÿ°;Zø|{xúáÿ¸ûÿÀ;º8 û!ÿÈûÿà8£ëxûÁÿðûáÿøøø!ÿ1`B¢¸`¡"¢¼Ap±!tH4Ù`=B¯é*/Aä/èzAx8c8H1ñ`|x8apH1á`ãú`8b¢°Wÿ>H1É`;ÿ|~x8zH1µ`ÿò8ÀE8 Ñ|Td>8`KÿÖµ`9 ±)à8c8;pH1y``;Ú;"¢°:Ú0|xÃxH1Y`ãú#ËxH1I`ÿÃóxH19`ÿHý`èú8;68 T>|fx£ëx8ç´HÑ`<b¯èc:ö
8c8H0é`|xÃxH0Ù`ãú#ËxH0É`Wÿ>;ÿ|zxÃóxH0±`ÿÒ8ÀE8 Ñ|Td>~Ã³xKÿÕ±`9 ?B¯ëZ±6;Z8CÓxH0q`DÓx8£~ã»xx¥ H3i`<b¯èc8c8H0E`8cx ÃxH01`÷úÃx8£ãûxx¥ H3%`ÃxH0	`8cxi #ËxÿJH/ñ`$Ëx8£ãûxx¥ H2é`#ËxH/Í`8cxi ÃóxÿJH/µ`Äóx8£ãûxx¥ H2`øA(="¯9)¸ãx¤ëxcÛxé)éIéi}I¦èIN!èA(8!ÐèêÁÿ°êáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``<b¯èc;p`;"¢°;Ú:Ú8c8H/`||xÃxH.ñ`â#ËxH.á`;"|xÃóxH.Í`="¯é)ú8À8 £ëxéW>´KÿÉ-`Kÿý
`|¦="¯é)ûAÿÐ?B¯ûaÿØûÿà;Zøû¡ÿèûÁÿð/©ûáÿøøø!ÿaA¨=¯|#x||x8`è"|¿+xKÿùKþcÉ`Kþc!`©> ¾=B¯+|¦4°Ê$Ap+A¸U*>/A|+AÄéZ@; *9)*8! £ëxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8! ; £ëxèëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ¡>
U*>+Aô=Bÿÿ9Jìy)¨}*Jª}IR}I¦N Ô´ÔtTÔ4`¡:4¡
8é}´ A\m*ÿÿ/ÿÿAÀ@@AdA="¯é)89@ÿÖ; ÿÖé<â¯G(¡^
I8! £ëx9 =¯èëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø(D|¦N `{å ;þ
Þ*¿ð@@Ø`;b¢°H@8ãûxH+)`,#A¬88cH+`,#A$;ã¿ð@@cÛxH,1`dÛx8£ãûxx¥ H0`|}y@ÿcÛxH,`8 
88c|H2m`<â¯Tc>9#ÿÿ+°g&AÝ´<¢¯ ¥$8ãxKÿ÷½Kÿýì`=¯¨È$9 =B¯±*&;º8 8£ëxTß>H.I`<â¯é'/A/Aæûx8 Ñ8
8`KÿÐy`9 ±)à`9 8ãx; ±:.Kÿ÷-Kÿý\`="¯¨É$Kÿÿp`9 ÿù=¯; ÿù((Kÿþ4```9 ÿú<â¯; ÿú'(Kÿþ```9 ÿû=B¯; ÿû*(Kÿýô```9 ÿü=¯; ÿü((KÿýÔ```9 ÿý<â¯; ÿý'(Kÿý´```9 ÿÿ=B¯; ÿÿ*(KÿýH
-`èú8 8
;Ú0;`5|fx£ëx8çH`æûx8 Ñ8
ÃóxKÿÏ=`9 ¤ëxeÛxãx±>9 ; ÿø±>
9 >øA(="¯9)¸é)éIéi}I¦èIN!èA(9 ÿø:0Kÿüð``°ú4=B¯="¯é)8<â¯ç@é
"9@I¡^}*B9)ÿô8@\9 ÿþ=B¯; ÿþ*(Kÿü`=B¯éJ8; *9)*Kÿû|`Z8/Aü<+Aü4±4Kÿÿ|`<b¯èc8ªÿô8x¥ |cBH,`<¢¯ ¥$ 
ãxKÿôñ="¯¡)&¡^<â¯ 9)P9Jÿô}JBG @¡:4m*ÿÿ/ÿÿ@û:8/@û9 ÿ÷; ÿ÷:0KÿûÌãx; Kÿô=¯é8=B¯J4<â¯(9JG49)(Kÿú="¯é)8À8 8!£ëx;Ú;`!éKÿÂÉ`Kÿþ9 ; :LKÿúT=B¯¨Ê$Kÿüx`="¯ cÿö=B¯i(9 *DN ``|¦ûÁÿð|#xûáÿø<¯9`/ÄH<Â¯<¯ggøf<Â¯¤@<¯øø!ÿ0=¯<Â¯øä8<¯H=B¯=¯±f,<Â¯d4<¯j(=B¯h =¯jD9@ÿÿ±F$9@ÿÿHü=B¯jø9@±D&@Ô/AÜ}%´?â¯`;ÿø8ð8H5``8b¢ÀH6`88`ÿÿKÿñÑ<Â¯ûÆKþ\u``;Â¢ØKþ[Å`="¯é)èi:Kÿô1H<``é?èi:Kÿ´¹`é@_P(P@A¬(P@A¤?L/@8Kþ[µ`/Aÿ¸é_@*+@¨ ¿,|¨4/ÿÿA¤ 4+@é?T¥>èi:Kÿòé_@*9)*Kþ[©`Kþ[`é?èi:Kÿ´`é@_P(P@@ÿ\9 ÿØ8`ÿØ?08!9 =B¯èëÁÿðëáÿøù*|¦N `©,/ÿÿ@ÿ¡4/@ÿ|y( +@ÿpÃóxH4`é?èi:Kÿòéé_@*KÿÿL``8 Kÿþ8``9 Kÿþ$``è29 ù? /£@Þ4è*8`ÿÿKÿð`8b H4`è>/¤@8="¯èi"8!èëÁÿðëáÿø|¦N `9 ÿ×8`ÿ×?0Kÿþü`8b£H3É`Kÿÿ¼|¦û¡ÿèûÁÿð|}xûáÿø|#x|¿+x|dx8 (øø!ÿA8apH'`/]9 !p!vAw@;ÿÿÿ8ÿþ{ÿ 9 ;ÿé¦`¥D})RBÿø99An}	¦``¥
})BBÿø8!Ày*y) è}*Jë¡ÿèëÁÿðëáÿøy#})|¦}#HøTc>N 9 Kÿÿ¤``,#A¬|¦ûáÿø?â¯ëÿPûÁÿð|~x/¿øø!ÿ@ H````ëÿ8/¿AHãûx8 ÄóxH'Y`/£@ÿÜ8!8`èëÁÿðëáÿø|¦N ```8!8`èëÁÿðëáÿø|¦N `8`N ```|¦ûaÿØûÁÿð|{xûáÿøû!ÿÈ|¿+x|#xûAÿÐûÿà8 8û¡ÿèøø!ÿ18apH%±`9?+©îAÀ?¯;¾;P8 8£ëxH&u`;^(/£A$>+A<+:Aà!p/ÿA¤="¯é)P/©A<épéIª@@ Hà```éIª@AÈé)8/©@ÿì£ëxHõ`,#A?¢¯;½X|zxºèAÞKÿ¯Ñ`;¼(8FÓx`Ý|ex{ÿ £ëxKÿ²]`åûxÄóx8|6H$©`8¿¤ëx|¥´cÛxKÿ±ñ`8!Ðèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```8apH½`|yyAè;¼8 ¤ëx:ËxH%`/£@ 8 ¤ëx£ëxºëxH$ý`/£@ 9/@ÿ8pcÛxH`Kÿ®Ñ`8FÓx{ý `Ý|ex8y(Kÿ±a`¥ëxÄóx8y6H#`¹KþV1`KþU`H ```KþUÁ`/@cÛxKÿ®}`9/@ÿÜãûxKÿþÌ<¯èp8 £ëxH#A`>+@ýÌ ¾DÓxÃóxx¥übKÿûm,#A°°~.Kÿý°``8 ¤ëx#ËxH#å`/£@þþKÿþè8!Ð8`ÿÿèë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 9 38 8|8a!!;AH"`Kÿý¬`` ¾DÓxÃóxx¥übKÿúÁ°~*Kÿý9 ÿÿ±>.Kÿý8` H)u`|yyAÿh8  8H!í`8 8p8yH")`99@#ËxY9)9Hi`?¢¯;½XKÿýÜ8`Kÿýh|¦ûaÿØûÿà;`û¡ÿèûÁÿð|~x|#xûáÿø; øø!ÿQc/£A¸`+AìH$Y`/£AÜ8:ÃóxH1`|yAôþøPÿ4+{ÿ A°Äóxåûx8apÞúHm`}!úip8 88apH&1`+ÿÿ|i´Apy)Æ"|;½{½ <~+:A@;/£@ÿT8!°£´èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``~;;ÞKÿÿ¼8!°8`èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ``Äóx8 8apH`8apátHU`ÞKÿÿ``<b¯ècpN ``|¦û¡ÿèûÁÿð|}xûáÿø8d|#x|¿+xøø!ÿqKÿù9/£A +'@>/A\/:A$8!8`ÿÿèë¡ÿèëÁÿðëáÿø|¦N Åóx8ÿ<£ëxH`8!èë¡ÿèëÁÿðëáÿø|¦N  ¾8(£ëxKÿ¿õ`8!èë¡ÿèëÁÿðëáÿø|¦N `|¦= `ûÁÿðûáÿø|þ;x|x8cøø!ÿ#ÿø9 ÿÿ°ÿü|Ä3x£ÿþ8 #ÿÿH`Äóx8 8Hí`8!èëÁÿðëáÿø|¦N |¦ûáÿø|dx|x8 øø!ÿq8axH¡`88 8a}H`9 ÿÿ8x8 8ap!{9 ÿþ!|Hi`èap8!èëáÿø|¦N ```|¦= þûáÿøy)Æ|#xù$øø!ÿKÿÿQ8!øèëáÿø|¦N ``="¯é)P/©A<ééIª@@ H0```éIª@Aé)8/©@ÿì8`N 8`N ```|¦ûáÿø8`(øø!ÿH$}`|yA8 (8Hõ`8!ãûxèëáÿø|¦N ``|¦ûáÿøøø!ÿqøaÀ8`@øÈH$`|yAL8 @8H`8 8ÀãûxHÉ`Kÿ§±`Kÿýù|$x8 ødq8H¥`8!ãûxèëáÿø|¦N ``|¦ûáÿø|yûÁÿðøø!ÿAÈKÿõ/£@¼?/ÿAd8`@H#Y`|~yA8 @8HÑ`= =@ÿa)ÿyJÆy)äÃóxù^ù>?
>
?>?>Kÿÿq=B¯é*P/©A`="¯é)!hûé8="¯8!8`ûé!h9 ù?8èëÁÿðëáÿø|¦N `8!8`èëÁÿðëáÿø|¦N `ûêPKÿÿ¬```}&|¦û¡ÿèûÁÿð|#xûáÿø|x8`@øø!ÿqH"E`|~yA$.=8 @8H¹`="¯ûÉpA|8 ¤ëxÃóxHé`<b¯ècp;ÀKÿþe<â¯8ç!°9="¯9)!p<Â¯8Æ¸<¢ÿÿ8¥{G}#Kxø¦yJ`G=B¯ù
`=B¯ù
h=@ÿyJÆùI9@ùIKÿþH`ãûxH
`Hm`/£@XKþLÝ`KþL5`H``KþLq`/@ ãûxKÿ¥-`H%`/£AÿØ9>ÿÿy>!@ÿ A(8!èë¡ÿèëÁÿðëáÿø|¦} N ="¯é)P/©AÿÐ=þyÆH`é)8/©Aÿ´I/ÿAÿìéIyJDª@AÿÜ=B¯ù*pKÿÿKÿ¤m`?Â¯ëÞp= þy)Æù>Kÿú¡ø~Kÿþx``|¦8 øø!ÿH!`8!pè|c4TcÙ~|¦N `|¦ûaÿØûÿà|#xû¡ÿèûÁÿð||x8 ûáÿø8cÛx; ;Àøø!ÿ1Hu`8:ãxHe`|y@HX/£}>´|xA@88:H9`9>ÿP/¿@ÿÔ/£;Þÿÿ;½Þ´½´|x@ÿÈ/@08`8!ÐèëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `A/@ÿÌÝò/AÞÿÀ`ãx8£H½`|~yAð`ãx8£ Há`/£@D9 8!Ð8`;èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N /@ÿKÿÿL`üðPWÿ>+Aÿ8åûxãx8apáúH`9 88~?pKÿõy|yAÿ {å |c´8|{H9`88apKÿõI|eyAþÔx¥ 8cÛxH`ãûxKÿþ¼dÛxãxKÿõKÿþ¬`|¦9 ûÿÀû!ÿÈûAÿÐûÁÿð````ûaÿØûÿàû¡ÿèûáÿø|#x|x;c;ø;"£@ø!ÿQ;B£8$;£(;Â¡H8``H!q`¿à@Äóx£ëx;ÿAÞxH¥`¿Ø@Ah?ß/©.¦@4¥ëxDÓx£ëx@ÿ´$Ëx£ëxHi`Kÿÿ¨```|Ç3x¥ëx}&KxÃx£ëxH í`Kÿÿ|`¾ëx;£H`ãxÃóxH`|y}>øP}*´/ª}^RAÔ;ßA*ÿÿ/:@ÿÈ}=øP9@})´/©}]I®@à`£ëx8£HÁ`?;ÿ/AD`;Â£PH```?/A ãûx8 ÄóxHi`/£AÿÜäûx£ëxHa``£ëx8£XHý`/£@`£ëx8£Hq`8!°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```£ëx8¡Hå`Kÿÿ$```|¦ûÁÿðûáÿø8 î8|~x?â¯;ÿ!¸øø!ù8apHõ`Kÿóý`çûx8 8*|fx8a~Kÿôá`8À#8a¦8 "8*Kÿ¶`9 8@8 8a¯!®Hí`9@
9 ±A´9@±!²±!¸±A¶Kÿ¹`8 |dx8aºHµ`9 9@8~8 R±!Æ±!È9 Ãóx±AÀ9@±!Ê9 ±AÂ9@±!Ì9 ;±AÄ±!ÎKÿíu`8!pèëÁÿðëáÿø|¦N ``|¦øø!ÿHå`="¯i!øHÕ`="¯i!ùHÅ`8!p="¯èi!ú|¦N ``|¦= ÿû¡ÿèûÁÿðy)Æ=B¯ûáÿøëä:?Â; ù*!¸= =B¯a)øø!ÿqãûx;Þù*!À="¯ø"Kÿþ
9 =B*KþDý`KþDU`ãûxKÿi`>.+AT@08!8`ÿÿèë¡ÿèëÁÿðëáÿø|¦N ```KþDQ`/Aÿ¨;½ÿÿ{½!Aâÿ¼Kÿÿ8!8`èë¡ÿèëÁÿðëáÿø|¦N `|¦û¡ÿèûÁÿð?¢¯ûáÿøûaÿØ;½!¸|~xûÿà|#x8 8@8cøø!þaHu`,#A88! 8`ÿÿèëaÿØëÿàë¡ÿèxc ëÁÿðëáÿø|¦N ``>/AH;ÿÿü;Þÿ´;/AH´``/A/;@| ¾88ap9%åøP~JH	`èH þ8ap;ÿÿüÿ´èÄ:}!:8¤88pKÿY`/ÿÿAD~Ûx/@8>/AT+Aÿ|¡^êøP9J;ÿÿüÞRÿ´/AÿÐ8! 8`èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ¡>è}H;~8 dÛxéøP9I8c(ÞR;ÿÿüH`8 dÛx8`ÿ´Kÿ¶`KÿÿT`="iKÿþ´``|¦ûáÿø= ÿy)Æ|xøø!ùù!`9 ù!hKÿïi`8á`8 :8|fx8a~KÿðM`9@ÿ9 A¦9@!®!¯A§KÿY`8 |dx8a°HU`øA(="¯9)¸8~8 8ãûxé)éIéi}I¦èIN!èA(8!èëáÿø|¦N ``="¯èi"
N ``|¦ûÁÿðûáÿø8 î|#x|~x8øø!ù8apHY`= _ÿ
<Àÿa)ÿxÆÆy)äøÁ`ù!hnAoámKÿî-`8á`8 :8 |fx8a~Kÿï`9 ÿäûx8 8a®!¦9 !§H-`9 !¾!¿Kÿ	`8 |dx8aÀH`øA(="¯9)¸8~8 HÃóxé)éIéi}I¦èIN!èA(8!èëÁÿðëáÿø|¦N `|¦ûÿàû¡ÿè||xûÁÿðûáÿø;Å|¿+xûaÿØ|#x8 Äóxøø!óA8axH
e`8 88apH
Q`?(/A0/A/8`ÿÿA,8!ÀèëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `9 Ãóx!±!HA`|}yAì¡?.<â¯8ç!°;ß8?þ{Æ='y* ?0=?4= -U	0y×â}IKxU02})Cx'¡_9Jÿð}_´/AlH¨``/@88 88aH]`é!y)D©àA>^P@@¸>U)8}IøP})´/}_´ÞJ@D>/@ÿ88 £ëxHý`>U)8}IøP})´/}_´ÞJAÿÄ8!À9 =B¯èëaÿØëÿàë¡ÿè8`ëÁÿðëáÿø*"|¦N 9?(;¿ÿòûá8 Äóx8aù! û¡H`8aHå`|yAHè8 8HY`?/9 ?@p8`8!ÀèëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `KÿêÑ`;à8áx8 :8 |fx8aKÿë±`8x8 8aÎH
Ý`áÞáßKÿ½`8 |dx8aàH
¹`¡!Ê9@ÿ8 áß88aÎAÆ9@y)`a)`AÇ±!Ê9 !ÞH
)`Kÿê1`8 |dx8aÎH
]`KÿE`8 |dx8aàH
A`øA(="¯9)¸88 Hãxé)éIéi}I¦èIN!èA(8!À8`èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```;ß(8 äûxÃóxH	Á`¿Äóxãx8¥|¥´Kÿ`9 8`?KÿþX```èaèKÿìi`|{yAý8Kÿë`/£Aý(Kÿëé`|dyAý8 (8{H	A`cÛxKÿìÅ`Kÿüø``8£ëxHé`/£AýÐHi`8`KÿýÄÄóx8aH¡`|}xH%`Kÿûü```|iyAÂT=¯éH"/ªA,=¯8`éH"ù("ù*(9@ùI(N ``ù("=¯ùI(8`ù("N 8`ÿÿN `|¦û¡ÿèûÁÿð|}xûáÿø8`0|#xøø!ÿqHM`|yA<8 08HÅ`8 ¤ëxãûxH`8 Äóx8Hí`8!ãûxèë¡ÿèëÁÿðëáÿø|¦N ``|¦ûáÿø?â¯ëÿ"ûÁÿð|~x/¿øø!ÿ@HH`ëÿ(/¿A88ÄóxKÿî-`/£Aÿà8!ãûxèëÁÿðëáÿø|¦N 8!8`èëÁÿðëáÿø|¦N ``<â¯èç"/§A<éé'©@A,|é;xH``éIª@Aé)(/©@ÿì|ã;xN }'Kx|ã;xN ``|iyAÂT=¯éH" /ªA,=¯8`éH"(ù("(ù* 9@ùI N ``ù(" =¯ùI 8`ù("(N 8`ÿÿN `|¦ûÁÿðûáÿø8` |#xøø!ÿH
5`|yAL8  8H`è8 ãûx8Hå`è8 88HÍ`9 ?8!ãûxèëÁÿðëáÿø|¦N `|¦ûáÿø?â¯ëÿ" ûÁÿð|~x/¿øø!ÿ@HH`ëÿ /¿A88ÄóxKÿì
`/£Aÿà8!ãûxèëÁÿðëáÿø|¦N 8!8`èëÁÿðëáÿø|¦N ``9 =B¯ù*"=B¯ù*"=B¯ù*" =B¯ù*"(N ```|¦ûáÿø|xøø!ÿqøpH`èp|c´|H`8!ãûxèëáÿø|¦N ``#T>/©A(H@@H$`M #.©H@@ÿð8`N N `C$/ªAH/©A\H@A(HP```$/©~H@A4@0C/ª@ÿä$8`|iP|c´N ```}C´|iP|c´N `8ÿÿ9CÿÿH`````$*$/@ÿðN ```````#/A49 ````C9)})´/@ÿðy# N 8`N ,%A/¨A¤D/ªA¤+AP@@|9%ÿþy) 9)})¦H(```$/©~H@A4B@0@,C/ª@ÿà$8`|iP|c´N ``}C´|iP|c´N 8`N }´}ISxKÿÿä$8`KÿÿØ}´9 KÿÿÌ``/¨A/¥9EÿÿyJ |ix9J}I¦@N `B@P9)	ÿÿ8¥ÿÿx¥ /¨@ÿä/¥A08¥ÿÿ9)ÿÿx¥ 9@8¥|©¦IBÿüN `N N |ixKÿÿÄ`|¦ûáÿø|yûÿàû¡ÿèûÁÿðøø!ÿqA /¤|#xAKÿþ`|}´ÃóxKÿýñ`/||x@H¿ê¿è@A H````;ÿ¿è@AHãûxãxÄóxKÿýù`/£@ÿÜ8!ãûxèëÿàë¡ÿèëÁÿðëáÿø|¦N `8!8`èëÿàë¡ÿèëÁÿðëáÿø|¦N /¥8¥ÿÿx¥ 9#ÿÿ|£*T>|©(P|©¦M ```BÿüN ``/¥8¥ÿÿx¥ 9#ÿÿ|£*8ÿÿ|©(P|©¦M ```DIBÿøN `¤@@L}$*£H@A@/¥9%ÿÿ|JM 9%ÿÿ8y) |£*9)})¦`$ÿÿ%ÿÿBÿøN /¥A,8¥ÿÿ9#ÿÿx¥ 8ÿÿ8¥|©¦DIBÿøN N ````/¥8¥ÿÿx¥ ATC$8¥|©¦P@@0H`````B@ C$H@Aÿð})PP}#´N 8`N ```|¦û¡ÿèûÁÿð|}xûáÿøøø!ÿqc/£Aä$/A|#xH `}/£A>/A\Hy`|x~Hi`øAÿÌ}>8!|iP|c´èë¡ÿèëÁÿðëáÿø|¦N ```8!9 |iPèë¡ÿèëÁÿðëáÿø|c´|¦N ``8!>èë¡ÿèëÁÿðëáÿø|iP|c´|¦N $Kÿÿt`8cÿÐ+	OÝèB|p&TcÿþN ```xc TiÐ~8cÿÐU)0>*	9)ÿ¿NÕ¨B+OÝèB} &U#¿þU)ÿþ}#x|c´N ``9#ÿ¿+M 8c |c´N ```9#ÿ+M 8cÿà|c´N ```,$A`+$ødA<àxçä`ç&#|hx8c+ |êL6yFá@¸/¥@à+0@À(8 
/xA9 08`H4``}J4(9}%ÒL ù|jJ(/©AÌ9IÿÐ8éÿUF>+*	}J4@ÿÄ9Iÿ¿*9Iÿ©@ÿ°9)ÿÉM }*49(}%ÒAÿ¨N ```AødKÿÿ(`/¥@8 
/©@ÿP8`N `/@ÿè+08 @ÿÜ(/x@ÿ 9HùD(}HSxKÿÿ¼```N 8ÿðKÿþ 9HùD(}HSxKÿÿ¬`|#yAl+$øk9 Aü<àxçä`ç&```#|hx8c+ |êL6yFá@Ø+-@à9H/¥8ùK(}HSx@Ð+08 
A/©A 8`H0`}J4(9}%Ò@`ù|jJ(/©AL9IÿÐ8éÿUF>+*	}J4@ÿÄ9Iÿ¿*9Iÿ©@ÿ°9)ÿÉA}*49(}%ÒAÿ¨/¤|ixA}#Ð}#KxN ``AøkKÿÿ`/¥8Aÿ8/@ÿ<+08 @ÿ0(/x@,9HùK(}HSxKÿÿ9aÿðKÿþ(/xA9 0Kÿþü9HùK(}HSxKÿÿ¨8`Kÿÿ\```="é)=@IÆaJNm}*IÒ=B=)9)y#bù*N ``="øiN ``|¦û!ÿÈûAÿÐ?B¯ûaÿØûÿà|{x;Z"0û¡ÿèûÁÿð;ÃûáÿøûÿÀ;ã{Ù {ÿä=´øø!ÿQ{ü ÿ´èz``/£Aôé:}CÊªH@@éZ}ISx	©@qð@4Ééy x¨ÁäxÆäxçEä|ÈCx|èCx|Cx~Ø@@D@H	©ÉéyÁ(x¨ä}#xxÆEä|ÈCx|èCx9})BKÿÿ``©@Aàª@@ 9`8 HÀ`A0
åÊy)Á(e
xäÁ(yäxäykEä|	Kx}#xxÆEä}d#x|ÆKx#x}	3xxçä}$J9`9)y(G"y&"|çCxy(Æ"%Åå*Êê
y$Á(xÉä})#xxçEä|éKx}	Kx9)}JJª@@P*/¥q(ðAÿ<*Êê
8 y$Á(xÉä})#xxçEä|éKx}	Kx9)}JJª@Aÿ¸/«@þþ8£ëxKþ7A`é:£H@d|cÊøzKÿþ}ESxKÿÿLãûxKþ7`/£ÿÿøzA8}#â}CÊøzªH@ù:Aýô{iG"{g"ca){hÆ"ã8c#ÿü="¯ÿþùI"08!°èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ð@@}@P8éi{fG"}GÚ{`"{cÆ"`ÆyG"y"yÆ"i	É}gÙ®8!°|ã;xª
èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N `¥8!°8i©èëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8`Kÿÿ``#ÿüy) #ÿüN `|¦/£øø!ÿø¡°øÁ¸øáÀùÈù!ÐùAØAÞ(/¤A 8¡°H9`8!pè|¦N 8`ÿÿKÿÿì```|¦|¦+x|#x8ÿÿx`øø!ÿH¥`8!pè|¦N |¦øø!ÿø¡°8¡°øÁ¸øáÀùÈù!ÐùAØH
9`8!pè|¦N `|¦øø!ÿø¨|dx<b8cÀø¡°8¡¨øÁ¸øáÀùÈù!ÐùAØHÙ`8!pè|¦N `|¦û¡ÿèûáÿø|}xûÁÿð?â;ÿÀøø!ÿqëßKÿði`¤ëx|exÃóxKýÕõ``8 8£`|~xèKýÕÙ`8!Ã´èë¡ÿèëÁÿðëáÿø|¦N `é#/L 9)ÿÿ#N ```/
A|c4TcÙ~N ```8`N ```|¦ûáÿø|xøø!ÿq#/Aè/¤Axé#
/©A/OA}H®}DJ/@´è8 PKþ!é`|c´/Ax/O@té_9 ?j8!èëáÿø|¦N ``è8 8pKþ!`/£@Xap8!èëáÿø|¦N ```8`é?9@}I®Kÿÿ```9)})´Kÿÿt`8`ÿÿKÿÿp```/¨A |¦ûÿÀû!ÿÈ;ûAÿÐûaÿØ|¹+x;Dûÿàû¡ÿè;|}xûáÿøúáÿ¸;à;`ûÁÿðøø!þA``9(ÿ±U*>+)Aô=Bÿÿ9JT\y)¨}*Jª}IR}I¦N ÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔ´ôÔÔÔÔôÔÔÔÔÔÔÔÔDÔÔÔÔ```£ëxKÿýT~>Ã´/ Aÿì9>ÿ÷+@ÿàKÿý-/£@ÿÔé9£ëx9IùYé)ÉKÿýITi>/ }#´A(9)ÿ÷+@Kÿüé/£@Þ=/@¨/¨@þ8!À8`èêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```£ëxKÿü½/¼T~>xc A¼/ |w´A/	A/
@ H|``/	Al/
Ad~ã»xKÿü-/£@Þø@~ã»xKÿñµ`/£Ax}!ú£ëx;ÿÉpKÿü5ÿ´xi T~>/ }7´@ÿ``}!úip8apKÿë`/£Aé98 9I88apùYëÉKÿóy`~Kÿþ¼``£ëxKÿû½/¼xi T~>AL/ }#´@dHl``/
A\KÿûI/£@Þ@ø@89>ÿÐ+A,}!ú£ëx;ÿÉpKÿûYÿ´xi T~>/ }#´A/	@ÿ¨`}!úip8apKÿêµ`/£A¸é98 Kÿÿ ``£ëxKÿúý/¼xi T~>A/ }#´@XH\``/
ALKÿú/£@Þ4ø@,}!ú£ëx;ÿÉpKÿú¥ÿ´xi T~>/ }#´A/	@ÿ´}!úipé98p9IùYèiKÿé`KÿýL``£ëxKÿúM/¼T~>xc AL/ |w´A/	A/
@ H|``/	Al/
Ad~ã»xKÿù½/£@ÞÔø@Ì~ã»xKÿï`/£A¸}!ú£ëx;ÿÉpKÿùÅÿ´xi T~>/ }7´@ÿ``}!úip8apKÿé%`/£A(é98 
Kÿý``9ÿÐU	>+	AüT}â}´KÿüH`/ }#´AþÈ`/	Aþ¼/
Aþ´Kÿøñ/£@Þ}!ú£ëx;ÿÉpKÿùÿ´xi T~>/ }#´@ÿ¼Kÿþx`/ |w´AüØ/	AüÐ/
@KÿüÄ/	Aü¼/
Aü´~ã»xKÿø}/£@Þä~ã»xKÿî
`/£AÐ}!ú£ëx;ÿÉpKÿøÿ´xi T~>/ }7´@ÿ¤Kÿü````/ }#´@TKÿý$/
AýKÿø	/£@Þ9>ÿÐ+Aô}!ú£ëx;ÿÉpKÿø!ÿ´xi T~>/ }#´AüØ/	@ÿ°KÿüÌ``/ |w´AþH/	Aþ@/
@Kÿþ4/	Aþ,/
Aþ$~ã»xKÿ÷}/£@Þ~ã»xKÿìÝ`/£A}!ú£ëx;ÿÉpKÿ÷ÿ´xi T~>/ }7´@ÿ¤KÿýÐÃxKÿöùKÿúT8!À8`èêáÿ¸ëÿÀë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 8`N Ã´}!ú/ ipAÞýx9>ÿ÷+@ýlKÿöÁ/£@Þý`=/AýTÃxKÿöuKÿýH```Ã´}!ú/ ipAú¸9>ÿ÷+@ú¬Kÿöq/£@Þú =/AúÃxKÿö%KÿúÃ´}!ú/ ipAü;Þÿ÷+@ÝûøKÿö-/£@Þûì=/AûàÃxKÿõáKÿûÔ``Ã´}!ú/ ipAÞû;Þÿ÷+@úüKÿõá/£@Þúð=/AúäÃxKÿõKÿúØ	|¦ûÿàû¡ÿèûÁÿðûáÿøøø!ÿQ$ø¡ð/©A(|#x|}x;À;H);ÿ/©Aà+%éûx@ÿèß8áo9HX`+iAl+xAd+XA\+pAT+cAL+sAD+%At+OA4+oA,}&Kx}HSx?9HÇ}J´+d@ÿ``9}AR}´8¡ð}B8p*p£ëxpKÿö/@ ;ÞÞ´éûx;ÿ)/©@ÿ(8!°Ãóxèëÿàë¡ÿèëÁÿðëáÿø|¦N ;ÀKÿÿØ```Kÿô<b8càKÿôh``|¦ûÁÿðûáÿø|¦+x|~x|#x8@øø!þA8apHù`8p|xè~{å KýÉA`8!ÀãûxèëÁÿðëáÿø|¦N ````}&|¦`ûaÿØûÿà9B£hû¡ÿèûÁÿð9&ÿýûáÿø+
éjéJøø!ÿQùApùaxA/¥|Ü3x|{xA(|ª+x9 H``````}Jã9)})´/ª@ÿðy? ø@8`A|.'þûxH /½;Þÿÿé;{Þ ¥ëx|iñ®AD¥ã}=áÒ|©(P|¡*epAÿÐKÿèÍ`/½;Þÿÿé;{Þ ¥ëxTc>|iñ®@ÿÄé;8`})úù;8!°èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} N ``8!°8`èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦} N ;àKÿÿ```|¦û!ÿÈûAÿÐ}9KxûaÿØû¡ÿè|#x8ûÁÿðûáÿø|~x|ß3xûÿà|£+x8 
|ý;x}Cxøø!ÿQëKÿçñ`/¿|c´AÀ9@H`````ÿë9J}J´/¿@ÿðyJ }9RH@Pé^})P})´9)ÿÿ}PPy) »@9)})¦AH$@ Jé^9J}<PP©Øù^Bÿä8!°8`èë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N 9@Kÿÿt```|¦ûaÿØû¡ÿè|#xûÁÿðûáÿø|~x|½+xûÿà;àøø!ÿaëH4``é^}<PP©Ø@4}=ø®y *é>9)ù>£ëxKÿà`9ø@AÿÄ8! 8`èëaÿØëÿàë¡ÿèëÁÿðëáÿø|¦N ```|¦ûaÿØùÁÿp|{yùáÿxúÿú!ÿúAÿúaÿúÿ ú¡ÿ¨úÁÿ°øúáÿ¸ûÿÀû!ÿÈûAÿÐûÿàû¡ÿèûÁÿðûáÿøø!þ±øaA´/¤8`A`8ÿÿ9B£À`|¯+x|Ó3xùA°x Ûx;:À :B£h//©AD»øPþûx½à@4+%8Á9Að?9ï//©ëá;ÿûá@ÿÄ9 ?èa{Pc´8!PèéÁÿpéáÿxêÿê!ÿêAÿêaÿêÿ ê¡ÿ¨êÁÿ°êáÿ¸ëÿÀ|¦ë!ÿÈëAÿÐëaÿØëÿàë¡ÿèëÁÿðëáÿøN ```+iAl+uAd+xA\+XAT+pAL+cAD+sA<+%Aô+OA,+oA$|è;x&8è/|ç´+d@ÿ`99Ap}´|ê:}
B'  Á9&ÿÒq*ýAè: 9Á/¦A½àP{½!AëS:: :à; }ZÐùA¸```9&ÿ±U(>++A=ÿÿ9dÜy)¨}(Jª}	B}	¦N Dôôôôôôôô´ôôôôôôôôôôôôôÄôô¤ôôD4ôôdôôô¸ôä`: zé$}Ê}2J|èP8à~£xpëé8¡p9 x 8a_ø8æûxKÿú¥~§«x8Àèåûx| P|èPx 8aKÿøáÎëá/¦A~øP°èAþ¤:s9ïKÿüô`zé$}Ê}2J|èP8à~£xpëé8¡p9 x 8a_ø8æûxKÿú~§«x8ÀKÿÿt``+u}!ÊQÓx	pAVé89@9)ÿÿ}IH6JH9@è| P8à
|èP~&x8¡px 9 ~£x8aKÿùè~§«x8À
~%x| P|èPKÿÿ```áÊ|èP9 8À9 8à
p8¡px 8aKÿùYÎé!Iëá;ÿûáKÿþÈ``}!Ê88 
8ap	pKÿá]`|q´CÓxKÿÚÍ`è|c´@pé!|ðèP|cPxç |c´|ßHP}$Kx§0@L8cÿÿxc 8c|i¦H ```}HP}$Kx§@@Éé!9)ù!Bÿà}$Kx| PEÓx|èP8ax KÿùµÎëáKÿýô`áÊ|èP8àFÓx9 9 p8¡px 8aKÿø9èè¡°8a| P|èPx Kÿù]è~§«x8ÀEÓx| P|èPKÿýx```Î9.+lAäëá}.Kx:àKÿý`Î9.+hA´ëá}.Kx:àKÿý@Îëá:àKÿý09&ÿÐ+	Aý}!Ê;9ëá{9 ÉpÎKÿý``9?9ïù!9 %?`BëáKÿùð9 -éA¸?zé$}2Jè	}Q8è8øKÿýX`|.x:0ÎKÿûÎëá:àKÿüÎëá:àKÿü8`Kÿùè ÞPðÞP ÞPðÞP0ÞPÞPMðÞPNÐÞPQpÞPRPÞPS0ÞPT@ÞPT°ÞPUÞPUÞPUÐÞPV ÞPV@ÞPVÀÞPWPÞPWÐÞPX`ÞPXàÞPY ÞPZ@ÞPZÀÞP[@ÞP[ÀÞP\PÞP\àÞP]pÞP]ðÞP^ ÞP` ÞPa0ÞPc ÞPd ÞPÄÞPØÞPdÞPj`ÞPk@ÞPl`ÞPmÞPn ÞPpÞPpÞPp°ÞPqðÞPsàÞPt`ÞPxðÞPzÀÞPzàÞP{ÞP~`ÞP°ÞP°ÞPpÞPpÞP°ÞP ÞPpÞP@ÞPÞPpÞP`ÞP@ÞPpÞPÐÞPðÞPÞPpÞPÞPÞPàÞPÞPPÞP ÞPPÞPÀÞPÀÞP  ÞP£PÞP¦ ÞP§ÀÞP¨ÞP¬ÞP0ÞP°pÞP²°ÞPµpÞPµÀÞP·°ÞPº@ÞPº ÞPºÐÞP»@ÞP½ÞP¾ ÞPÀ°ÞPÁ`ÞPÄàÞPÅàÞPÇPÞPÈ@ÞPÉ ÞPÉÞPÊ ÞPÊ ÞPË@ÞPËàÞPÌ°ÞPÍ ÞPÍàÞPÎpÞPÎðÞPÏpÞPÏÞPÐÞPÑPÞPÑðÞPÒÞPÓpÞPÔÞPÔÞPÔÐÞP×àÞP×ðÞPÙðÞPÛÞPà0ÞPá0ÞPä ÞPèÐÞPí0ÞPô ÞPô0ÞPôpÞPôÞPõ0ÞPöÐÞPüàÞPþÀÞPÞP0ÞPPÞP`ÞP ÞP	ÞP
ÞP0ÞP ÞPÞPÞPpÞPðÞPÞP ÞP#ÞP% ÞP&PÞP(ÐÞP)pÞP)ðÞP*ÀÞP+PÞP+ðÞP2ÞP3pÞP5ÞP8`ÞP:ÀÞP>ÀÞPB°ÞPJ ÞPJàÞPK`ÞPLpÞPNÞPO°ÞPRÀÞPS0ÞPS`ÞPSÞPT ÞPTÀÞPUPÞPUðÞPVÞPW ÞPW°ÞPXÞPX0ÞPXðÞP[°ÞP\`ÞP^@ÞP^`ÞP^ÐÞP_ ÞP`0ÞPbÞPb`ÞPepÞPf`ÞPfpÞPf ÞPgÞPhÐÞPjÞPlÞPmÀÞPpðÞPsàÞPtÐÞPvÞPw@ÞPz°ÞP{ ÞP{ÐÞPÞPÐÞPÞP ÞP ÞPÀÞP0ÞP¢ ÞP¨ ÞP©ÞP©ÞPªÞP« ÞPðÞP®ÞP®ÞP® ÞP°ðÞP±0ÞP± ÞP²`ÞP¹ÞP¹0ÞP¹PÞPºÞPº0ÞPºPÞPºpÞPºÞPº°ÞP»ÞP»`ÞP¿ ÞPÂàÞPÃðÞPÄÞPÅPÞPÅ ÞPÅÐÞPÅðÞPÆÞPÇÞPÉ ÞPÊÞPÏ0ÞPÑÞPÔðÞPÕðÞPØ ÞPÜ`ÞPÞàÞPà ÞPàÞPãÞPä`ÞPëpÞPìÞPîÞPòÞPøÞPø°ÞPûàÞPüÐÞPý ÞP°ÞPPÞPpÞPPÞPÐÞP`ÞP°ÞP ÞPÞP ÞP@ÞP
PÞP
ÞP°ÞP ÞP`ÞPÀÞPÐÞPÀÞP ÞPÀÞPðÞPÐÞP@ÞPàÞPÞPðÞP`ÞPÞP ÞPàÞP@ÞPÞP  ÞP ÞP ÐÞP!°ÞP"PÞP#@ÞP#ÞP#àÞP$ÞP%ÞP& ÞP&PÞP& ÞP&ÐÞP'ÞP(ÞP*PÞP*ÞP*°ÞP.pÞP.ÞP/ÞP/@ÞP/ÞP/ðÞP0ÞP0°ÞP0ðÞP2 ÞP;ÞP<pÞP<ÞP< ÞP= ÞP>ÀÞP@ÞP@ÀÞPERROR: stack overflow in engine()!find-methodCan not open socket, no parent instancereadCan not open socket, no 'read' methodwriteCan not open socket, no 'write' methodget-propertyCan not open socket, file descriptor list is fullmy-parent ?dup IF ihandle>phandle THENlocal-mac-addressEXECUTEkey? IF key ELSE 0 THENget-msecsusdma-allocdma-freealloc-memfree-memdma-map-indma-map-outconfig-l@config-w@config-b@config-l!config-w!config-b!translate-my-addresswrite-mm-logBITMAP: start %lx, size %ld, blocksize %ld

0                 16                32                48              63


%dError: Bitmap start %lx, size %ld, requested address %lx, size %ld
ELF32: VirtAddr(%lx) != PhysAddr(%lx) not supported, aborting
ELF64: VirtAddr(%lx) != PhysAddr(%lx) not supported, aborting

ELF relocation out of bounds!
ERROR: Unhandled relocation (A) type %i
elf-claim-segmentFailed to allocate memorymemory allocation failed!
Device does not support virtio 1.0 %llx
Features error %llx
virtioblk_init%s: failed
virtioblk_read: Access beyond end of device!virtio-blk: Unaligned sector read %d
virtioblk_read failed! status = %i
virtio_9p_initslofVersion check failed, rc = %d
Attach failed, rc = %d
Walk failed, rc = %d
Stat failed, rc = %d
Open failed, rc = %d
Read failed, rc = %d
virtioscsi_initUnable to allocate virtio-net driver
virtionet: Failed to allocate buffers!
virtio-net: Receive buffer not big enough!
virtionet: Packet too big!
virtio_serial_initvirtio-serial: Failed to allocate buffers!
virtio_serial_putchar failed! 

Error: %s
9P2000.uunknown.usb_get_pipeusb_send_ctrlusb_transfer_bulkusb_setup_new_device%s: Failed
ErrorDevice Error%s: alloc failed %d
ohci_get_pipe_introhci_transfer_bulkohci_send_ctrlusb-ohci: Warning ED not aligned to 16byte boundary%s: alloc failed
Timed out waiting for interrupt %x
USB: Error TD null %p
USB: Error %s %p
usb-ohci: Not a bulk pipe.
usb-ohci: buffer size not supported - %d
%s: tds NULL recieved
ED Halted
%s: headp %08X tailp %08X next_td %08X attr %08X
%s: timed out - failed
Request: %02X   OHCI: initializing
usb-ohci: Unable to allocate memory
usb-ohci: Unable to allocate/unaligned HCCA memory %p
 ** HCD Reset failed...usb-ohci: oops could not allocate intr_pipe
Start removing device
usb-ohci: unable to setup device on port %d
ohci-hcdNOERRORCRCBITSTUFFINGDATATOGGLEMISMATCHSTALLDEVICENOTRESPONDINGPIDCHECKFAILUREUNEXPECTEDPIDDATAOVERRUNDATAUNDERRUNreservedBUFFEROVERRUNBUFFERUNDERRUNNOT ACCESSEDehci_exitehci_send_ctrlehci_transfer_bulk  EHCI: Initializing
usb-ehci: Unable to allocate memory
usb-ehci: reset failed
usb-ehci: Unable to allocate frame list
usb-ehci: Unable to allocate interrupt queue head
usb-ehci: Unable to allocate async queue head
usb-ehci: unable to setup device on port %d
%s: already called once 
usb-ehci: Not a control pipe.
Error allocating qTDs.
usb-ehci: control transfer timed out_
%s: handshake failed
usb-ehci: Not a bulk pipe.
usb-ehci: bulk transfer size too big
usb-ehci: bulk transfer timed out_
ehci-hcdusb_slof_populate_new_devices" dev-keyb.fs" INCLUDEDs" dev-mouse.fs" INCLUDEDs" dev-storage.fs" INCLUDEDs" dev-hub.fs" INCLUDEDDevice not supported %06X
%s: bulk reset failed
USB Interface class -%x- Not supported
usb_hid_kbd_init%s: unable to allocate keyboard buffer
usb-hub: NULL
usb-hub: unable to setup device on port %d
xhci_get_pipeTRB_TYPE  %d
usb-xhci: allocation failed for interrupt endpoint
usb-xhci: allocation failed for bulk endpoint
usb-xhci: %s alloc_intr failed  %p
usb-xhci: bulk transfer size too big
USB3 slot ID %d is too high (max is %d)
  XHCI: Initializing
usb-xhci: Unable to allocate memory
usb-xhci: 64 Byte context not supported
usb-xhci: failed to initialize XHCI controller.
xhci-hcdPowered-OFFPolling***  Disconnected ***DisabledLoopbackCompliancek******  Reset  ************ Enabled ******ERROR	

@{[]}\~|ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()
	 _+{}||:"~<>?079.136428/*-+
1234567890.|abcdefghijklmnopqrstuvwxyz1234567890
	 -=[]\\;'`,.//*-+
1234567890.\free spaceCreating common NVRAM partition
commonUnable to allocate veth driver
veth: Failed to allocate memory !
veth: Error %ld registering interface !
veth: Dropping too big packet [%d bytes]
veth: Error %ld sending packet !
 uX upuu yuÀzuà{vv v0&v@'vP(v`vpvvv vv°wvÀxvÐ|vàvèvøwwFailed to read MAC address from EEPROM!
82547EI/GI Copper82547EI Mobile52546EB Copper, Dual Port82546EB Fiber, Dual Port82546GB Copper, Dual Port82546GB Fiber, Dual Port82546GB SerDes, Dual Port82545EM Copper82545EM Fiber82545GM Copper82545GM Fiber82545GM SerDes82544EI Copper82544GC Copper82541EI Copper82541EI Mobile82541GI Copper82541GI Mobile82541ER Copper82541PI82540EM Mobile82540EP Mobile82540EP Desktop82540EM Desktop%03d
Aborted

Giving up after %d DHCP requests
done
v4  Requesting information via DHCP%s:     v6
 Initializing NICE3000: (net) Could not read MAC address  Reading MAC address from device: %02x:%02x:%02x:%02x:%02x:%02x
ERROR: Parameter string is too long.bootpdhcpipv6E3001: (net) Could not get IP address  Using IPv4 address: %d.%d.%d.%d
  Using IPv6 address: %s
E3002: (net) ARP request to TFTP server (%d.%d.%d.%d) failedE3008: (net) Can't obtain TFTP server IP address  Requesting file "%s" via TFTP from %d.%d.%d.%d
  Requesting file "%s" via TFTP from   TFTP: Received %s (%d KBytes)
(net) unknown TFTP errorE3004: (net) TFTP buffer of %d bytes is too small for %sE3009: (net) file not found: %sE3010: (net) TFTP access violationE3011: (net) illegal TFTP operationE3012: (net) unknown TFTP transfer IDE3013: (net) no such TFTP userE3017: (net) TFTP blocksize negotiation failedE3018: (net) file exceeds maximum TFTP transfer sizeE3005: (net) ICMP ERROR "net unreachablehost unreachableprotocol unreachableport unreachablefragmentation needed and DF setsource route failedE3014: (net) TFTP error occurred after %d bad packets receivedE3015: (net) TFTP error occurred after missing %d responsesE3016: (net) TFTP error missing block %d, expected block was %dE3006: (net) Could not initialize network device
 unable to allocate memory, parsing failed
tftp://
 tftp missing in %s

 missing ] in %s

 missing filename in %s

 wrong format IPV6 address in %s

 missing . seperator in %s

 missing domain in %s

 DNS failed for IPV6

ping device-path:[device-args,]server-ip,[client-ip[\nn]],[gateway-ip][,timeout]

E3000: Could not read MAC address

E3006: Could not initialize network device
%02x:%02x:%02x:%02x:%02x:%02x

  DHCP: Could not get ip address
  Own IP address: %d.%d.%d.%d
  Netmask : %d.%d.%d.%d
  Ping to %d.%d.%d.%d success

  Reading MAC address from device: ÿÿÿÿÿÿÿÿÿÿÿÿ://///:
ERROR:			Can't resolve domain name (DNS server is not presented)!

Giving up after %d DNS requests

ERROR:			Bad URL!

ERROR:			Bad host name!
  Requesting IP address via BOOTP:    %02d
Giving up after %d bootp requests
bladone
%d KBytesblksizeoctet  Receiving data:  
Repeating TFTP read request...
Lost ACK packets: %d
::::1%s%x%02x%s%x00:0:0:::0
0123456789abcdefÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0xî@EVALUATE¤çP¶µð@»@µÐøîX´Pçð´èØ(8àà¨(pXH8à8à¨ ëHñ`ËàFORTH-WORDLISTØËø0LASTWORD¤ØBP
(TIB	ðPOCKETS	ÄEREGS
(CIREGS
<@CISTACK
xXCOMP-BUFFER
´xPAFLOF-START
ð
HEAP-START,¸HEAP-ENDhØ	FDT-START¤ø
ROMFS-BASEäEPAPR-MAGIC$8EPAPR-IMA-SIZEdXBRANCH`x0BRANCHÐ
BREAKPOINTà°LITÐDOTICKHèDUPOVER¸PICKð0DROP,HSWAP\`>RxR>àR@,¨RPICK ÀDEPTHpØDEPTH!´ðRDEPTHøRDEPTH!L +è@-$X*`pLSHIFTRSHIFTØ ASHIFT¸ANDPÐORèXORÈ@!80C@tHC!¨`W@äxW!L@T¨L!ÀX@ÄØX!øðUNALIGNED-W@4UNALIGNED-W!|(UNALIGNED-L@ÌHUNALIGNED-L!$h<U<Ì 0<¸=DÐ0=èDODOÀDO?DODOLOOPx0DO+LOOPÈHDOLEAVEXhDO?LEAVEEXITø¨	SEMICOLON(ÀEXECUTEXàMOVE|RMOVE(PMRMOVE'\0RFILL'ÐHZCOUNT&à`	HASH-SIZE
HxHASH$, 
CLEAN-HASH'$¸
HASH-TABLE#ð°-1
Hÿÿÿÿÿÿÿÿø0
H1
H82
HX3
Hx4
H8
H¸H#10
HØH#20
H øH#FF
HÿH#FFFF
Hÿÿ8
H#FFFFFFFF
HÿÿÿÿXD#10
H
/C
H /W
HÀ/L
Hà/X
H/N
H CELL
H@/C*¤°Ø`/W*¤ÐØ/L*¤ðØÀ/X*¤Øð/N*¤0Ø CA+¤pPØPWA+¤ PØLA+¤ÐPØ°XA+¤PØàNA+¤0PØCA1+¤°PØ@WA1+¤ÐPØpLA1+¤ðPØ XA1+¤PØÐNA1+¤0PØCHAR+¤PØ0CELL+¤ØXCHAR-¤°hØCELL-¤0hØ°CHARS¤pØàCELLS¤0ØCHARS+¤`Ø0CELLS+¤ ØXDOTO¤ h(h@ØSLITERAL¤ hXPàÿÿÿÿÿÿÿøàØØ?DUP¤¨ØPTUCK¤p(Ø2DUP¤((ØÀ3DUP¤h@h@h@Øð2OVER¤@@Ø@2DROP¤XXØ3DROP¤XXXØ°NIP¤pXØèCLEAR¤(ØROT¤p pØH-ROT¤pp Ø2SWAP¤ ØÈ2ROT¤Ø  ØØROLL¤`¨0XHhÿÿÿÿÿÿÿ¸`¨0 Hhÿÿÿÿÿÿÿ¸ØX-ROLL¤`¨HX pHhÿÿÿÿÿÿÿ `¨0 pHhÿÿÿÿÿÿÿ¸Ø2>R¤ XpØà2R>¤   XpØ02R@¤  ¸(XpØ?PICK&à2*¤HØøU2/¤H°Ø(2/¤HÈØX<<¤Ø>>¤°Ø°>>A¤ÈØØINVERT¤ØNOT¤Ø0TRUE
HÿÿÿÿÿÿÿÿXFALSE
Hx>¤pØU>¤p°ØÈ<=¤¨øØø<>¤àøØ(>=¤øØX0<=¤(Ø0<>¤(8Ø¸0>¤(¨Øè0>=¤(hØU<=¤ØøØHU>=¤°øØxWITHIN¤XXh¨¸¨¨¸hØ¨BETWEEN¤HP¸Ø@D2*¤(Èh ØUD2/¤8¸à?ø 8ØØD2/¤8¸à?ø hØ@NEGATE¤(phØ¨ABS¤È¨¸ØàMAX¤Ð¨pXØ(MIN¤Ð¨¨pXØxU*¤ØÈ1+¤HPØð1-¤HhØ  2+¤hPØ P2-¤hhØ EVEN¤ àØ °BOUNDS¤(PpØ èS>D¤ÈØ¡ DNEGATE¤¸ø phØ¡PDABS¤È¨¡hØ¡¸M+¤pP ° phØ¢D+¤¢ PØ¢xD-¤¡h¢Ø¢¸*'¤È ¨¸¢ Ø¢èUM*¤(à@(¢ø@ÿÿÿÿÿÿÿèXØ£`M*¤Ðð ð£p È¨¡hØ£Ð/'¤È (¸ø¨0Hø ¸h Ø¤XUM/MOD¤à@(¤h@ÿÿÿÿÿÿÿèXpØ¥SM/REM¤(¡È¸ð¥  È¨¸ È¨ ¸p¸pØ¥xFM/MOD¤ÐÈ¥(È à¨0 0p Pp¸ XØ¦8U/MOD¤(p¥ Ø§/MOD¤¡0 ¦HØ§8/¤§HøØ§xMOD¤§HXØ§¨*/MOD¤£à ¦HØ§Ø*/¤§èøØ¨WBSPLIT¤(àpÈ°Ø¨HLWSPLIT¤Hàpè°Ø¨ XLSPLIT¤pàp°Ø¨øLBSPLIT¤¨¸¨` ¨`Ø©PXWSPLIT¤©¨¸ ¨¸Ø© XBSPLIT¤©©h ©hØ©ðBWJOIN¤ÈøØª@WLJOIN¤èøØªxBLJOIN¤ªPªP ªØª°WBFLIP¤¨`pªPØªøLWFLIP¤¨¸pªØ«0LXJOIN¤øØ«hXLFLIP¤©p«xØ« LBFLIP¤©hpØpªÀØ«ØWXJOIN¤ªª «xØ¬ XWFLIP¤©¸pØp¬0Ø¬hBXJOIN¤ªÀªÀ «xØ¬°XBFLIP¤©«èp«è«xØ¬øALIGNED¤0 0P0¸àØ@I¤ ¸pØJ¤   ¸pppØØUNLOOP¤   Ø®H+!¤ (Pp@Ø®COMP ®ØOFF¤p@Ø®ðON¤hp@Ø¯(<W@¤àh¨àhØ¯`2@¤h(p(Ø¯Ð2!¤@ h@Ø°WBFLIPS¤ ø(@¨«¨ Ð`ÿÿÿÿÿÿÿÀØ°hLWFLIPS¤ ø(@¨¸«@¨Ðð`ÿÿÿÿÿÿÿÀØ°èLBFLIPS¤ ø(@¨¸«è¨Ðð`ÿÿÿÿÿÿÿÀØ±hXBFLIPS¤ ø(@¨è¨`ÿÿÿÿÿÿÿÀØ±èXWFLIPS¤ ø(@¨è¬x¨`ÿÿÿÿÿÿÿÀØ²hXLFLIPS¤ ø(@¨è«°¨`ÿÿÿÿÿÿÿÀØ²èFILL³hBLANK¤à ³xØ³ERASE¤à³xØ³¸CATCHER
ð³ð
ABORT"-STR
ð´CATCH¤è´(´@ø ´@ X(Ø´@THROW¤`¨`´(8 ´@ pX Ø´ØABORT¤´èØµp#TIB
ðµ IB
µÀ#IB
ðµà	SOURCE-ID
¶SOURCE¤µÐµð(Ø¶(>IN
ð¶`TERMINAL¤µÐµ°(µð@(¶Ø¶BL
H ¶øBELL
H·BS
H·8CARRET
H
·XLINEFEED
H
·xEMIT
(· CR
(·ÀTYPE¤ ø((¨X·°@ÿÿÿÿÿÿÿØØ·àLL-CR¤·h·°··°Ø¸@SPACE¤··°Ø¸SPACES¤((¸@ÿÿÿÿÿÿÿèØ¸°COUNT¤@pXØ¹PACK¤ p¸p Ø¹@UPC¤àaàzX¨à hØ¹¨LCC¤àAàZX¨à PØº KEY
(ºKEY?
(º¸ACCEPT
(ºØSPAN
ðºøEXPECT¤ºè»@Ø»REFILL¤¶ø¨8¶8»((¶p@h¸¶à¨¸àe´èØ»PBASE
ð¼DECIMAL¤¼(@Ø¼8HEX¤è¼(@Ø¼xOCTAL¤È¼(@Ø¼°PAD¤ÀàPØ¼èTODIGIT¤à	¨¨à'Pà0PØ½(MU/MOD¤§ p¥  Ø½°<#¤¼ø@Ø¾HOLD¤¼ø( 0 p@pØ¾HSIGN¤È¨à-¾XØ¾¨#¤¼((½ÀX½@¾XØ¾ø#S¤¿Ðø¨ÿÿÿÿÿÿÿÈØ¿H#>¤¼ø( hØ¿ (.)¤¾ ð(¿X ¾¸¿°Ø¿ðU#¤¼((§p½@¾XØÀXU#S¤Àh¨ÿÿÿÿÿÿÿÐØÀ¨U#>¤X¼ø( hØÀø(U.)¤¾ À¸ÁØÁH.¤À·ð¸ØÁS.¤ÁØÁ¸U.¤ÁX·ð¸ØÁà.R¤pÀXÐ¨((h¸ÀX·ðØÂU.R¤pÁXXÐ¨((h¸ÀX·ðØÂ¨.D¤¼((p¼PÁ¼(@ØÃ8.H¤¼((p¼Á¼(@ØÃ.S¤èÈ¨X¸((@è¨h 0@Á@ÿÿÿÿÿÿÿÀØÃè?¤(ÁØÄDIGIT¤(¹¸àAàZX¨àhà0hX(p¸¨ øhXØÄÈ>NUMBER¤ø¨¸(X¼((ÄØ¨¸pp¼((Øp¼((£pXP (¢ @  0ÿÿÿÿÿÿþèXØÅÐ$NUMBER¤ø¨ XXh¸Xà-à¨x @  0ø¨(XXXh¸((  Åèøø¨8Xp¨¸¸XXXhØÇALLOT¤ÀPÀØÈè,¤À@0ÈøØÉ(C,¤Àp°ÈøØÉhW,¤À ÐÈøØÉ¨L,¤ÀÐðÈøØÉèX,¤ÀÈøØÊ(ALIGN¤À0 0à¨ (Éxÿÿÿÿÿÿÿ°ØÊhPLACE¤Ðp@pð ø(HX¨p@Hð`ÿÿÿÿÿÿÿ¸XØÊØSTRING,¤À( ðÈøÊèØËNOOP¤ØpCURRENT
ÌLAST¤ÌhØÌ(SEARCH-ORDER
ðÌXCONTEXT
ÌxÌø	LINK>NAME¤hØÍ NAME>¤@X @XØÍPLINK>¤Í8Í`ØÍ NAME>STRING¤@¹ØÍÐLATEST
ðÎ(REVEAL)
(Î(HEADER¤ÊxÀÌ8(É8Î@(ÉxË ÊxØÎPREVEAL¤Î(Í8ÍèÎ@Î(Ì8@ØÎÈ	STRING=CI&DÏ0(FIND)
(ÏP((FIND))¤¨xÐ¸Í8ÍèÏH¨ ¸ (ÿÿÿÿÿÿÿpÀØÏp(FIND-ORDER)¤ÍÌp¨Ð¸(h(Ï``¨(øø X¸ Àÿÿÿÿÿÿÿ@ À(ØÐ8($FIND)¤ÐP¨0Í8Í`pXhØÑ@$FIND¤ÐÑX¨0XøøhØÑ¸
'IMMEDIATE
HÒ0
IMMEDIATE?¤ÒHàÈØÒX	IMMEDIATE¤Ì8(hXÒHøppØÒFINDCHAR¤p((À(¨PX(·à¨à¨0¨®Xøøh¸@ÿÿÿÿÿÿÿ@XXØÓPARSE¤µÐ¶p(P»(¶p(hÐ Ó ¨0øHP¶p® ØÔ(SKIPWS¤µÐ»(¶p(¨¨p(¶p(PX·¨(H¶p® ÿÿÿÿÿÿÿ`XXØÕ
PARSE-WORD¤Õ·Ô8ØÕðWHICHPOCKET
ðÖ0POCKET¤ ÖH(àPÖH(HPàà¨X(ÖH@ØÖXWORD¤ÖhÔ8¸p ø Ø(8@¨X(p@ÿÿÿÿÿÿÿÈXØ× CHAR¤ÖXXØ×à(¤à)Ô8ØØ\¤¶p( 0¶p@·Ô8ØØXSTATE
ðØ¸[¤ØÈ¯ØØØ]¤àØÈ@ØÙ?COMP¤ØÈ(¨¸àÿÿÿÿÿÿÿz´èØÙHCOMPILE,¤É8ØÙ¨:¤ÖÎ`ø¤ÙÀÙØÙØ:NONAME¤ÊxÀø¤ÙÀÙØÚ(;¤ÙXøØÙÀÎØØèØÚC"¤ÙXà"Ô8øðÙÀÉx ø((¨XÉx@ÿÿÿÿÿÿÿØÊxØÚÐS"¤ØÈ(¨(Úàø¹ÙÀ¸à"Ô8Öhp  ØÛZ"¤ÛÐP(ppXØÜH."¤ØÈ(¨(Ûø·ðÙÀ¸à"Ô8·ðØÜ .(¤à)Ô8·ðØÝ(COMPILE¤ h(ÙÀØÝhTHERE
ðÝÀ+COMP¤ØÈ(HØÈ® ¨¸ÀÝÐ@ÀÝ¤ØÝà-COMP¤ØÈ® ØÈ(¨¸Ý¸ÝÐ(ÀøØÞRESOLVE-ORIG¤À(hhp@Øß AHEAD¤ÝðøÙÀÀ(ÙÀØßxIF¤Ýðø¨ÙÀÀ(ÙÀØßÐTHEN¤ÙXß8ÞØà(ELSE¤ÙXøÙÀÀ(ÙÀpß8Øà`CASE¤Ýð(ØàÈENDCASE¤ÙXøXÙÀ`¨( 0pà8ÿÿÿÿÿÿÿÀÞØàøOF¤ÙX ø(ÙÀøàÙÀßàøXÙÀ ØáENDOF¤ÙXàp ØâRESOLVE-DEST¤ÀhhÙÀØâXBEGIN¤ÝðÀØâ AGAIN¤ÙXøÙÀâpÞØâÐUNTIL¤ÙXø¨ÙÀâpÞØã WHILE¤ÙXßàpØãpREPEAT¤ÙXâàà8Øã¨LEAVES
ðãàRESOLVE-LOOP¤ãð(`¨P(pÀ(hp@ÿÿÿÿÿÿÿÀhÙÀãð@ØäDO¤Ýðãð(ÀøÙÀ(ãð@ØäÈ?DO¤Ýðãð(ø(ÙÀÀÀãð@(ÙÀØå8LOOP¤ÙXø@ÙÀäÞØå¸+LOOP¤ÙXø`ÙÀäÞØæLEAVE¤ÙXøÙÀãð(Àãð@ÙÀØæX?LEAVE¤ÙXø ÙÀãð(Àãð@ÙÀØæÈSAVE-SOURCE¤ µÐµð(¶»(¶p(Øç8RESTORE-SOURCE¤  ¶p@ »@ ¶ µð@ µÐØçØOK-STRokèABORTED-STRAbortedè 
EXCEPTION-STRException #èÀUNKNOWN-STRUndefined wordèèHW-EXCEPTION-HANDLER
(éSHOW-STACK?
é@	SHOWSTACK¤éXØéhNOSHOWSTACK¤(éXØé¨PRINT-STACK¤éX¨(Ãø  ØéèPRINT-EXCEPTION¤àÿÿÿÿÿÿÿà¨8øé¹·ð·ÐX¸àà¨X¸é0ØêPPRINT-STATUS¤¸ø¨(êøè8à¨0øè¸¹·ðPàÿÿÿÿÿÿÿþà¨8´0(¹·ðXêp·ÐØë0COMPILE-WORD¤ÐÑX¨PÒp¨ øøø¸ÙÀ¸ÐÇ0¨ ·ðàÿÿÿÿÿÿÿ´èøàÙÀÙÀØìxINTERPRET-WORD¤ÐÑX¨(Xøøø¸ÐÇ0¨ ·ðàÿÿÿÿÿÿÿ´è Øíx	INTERPRET¤(¶p@Ö¨PØÈ(¨ìíÿÿÿÿÿÿÿØEVAL¤0ØîøDOABORT"¤p¨(´0@àÿÿÿÿÿÿÿþ´èXØï ABORT"¤Úàøï8ÙÀØï
UNDEFINED-STRundefined word ïÐSET-UNDEFINED-WORD¤ÖhøïèX ¸p¸X Pp¸XP¸p Øïø'¤ÖÑÈø¨ ðhpï8ØðèQUIT¤(8Øè¶èÁà>·°¸»`¨P¸øîX´PëH¨ÿÿÿÿÿÿÿxÿÿÿÿÿÿÿHØñPMAP-FILE
(ò(
UNMAP-FILE
(òP
WRITE-FILE
(òxINCLUDED¤ò@Ð ø(¨ ¸p¸h¸pÐ·Ó ¨ø0  `ÿÿÿÿÿÿÿX  òhØò INCLUDE¤Öò¸ØóÀ$CREATE¤Î`øØÙÀøËðhÙÀÎØØóøCREATE¤ÖôØôhDODOES>¤ hÎ(Í°h@ØôDOES>¤øô°ÙÀØôøCONSTANT¤ÖÎ`ø
HÙÀÙÀÎØØõ0VALUE¤ÖÎ`ø
ÙÀÙÀÎØØõVARIABLE¤ÖÎ`ø
ðÙÀ(ÙÀÎØØõèBUFFER:¤ÖÎ`ø(ÙÀÈøÎØØöPDEFER¤ÖÎ`ø
(ÙÀøµÙÀÎØØö°ALIAS¤ÖÎ`ø
8ÙÀðøÙÀÎØØ÷STRUCT¤(Ø÷x
END-STRUCT¤XØ÷ FIELD¤ÖÎ`ø
¸ÙÀ(É8PÎØØ÷ÐLITERAL¤øàÙÀÙÀØø8	[COMPILE]¤ðøÙÀØøPOSTPONE¤ÖÐÑXø¨ ðhpï8Òpø¨0øøÙÀÙÀøÙÀÙÀØø¸[CHAR]¤×ðøPØù[']¤ðøøøÙÀÙÀØùÀFIND¤¹ÑX¨HXXhpÒp¨¸¸¸ØúTO¤ðøØÈ(¨(øÙÀÙÀ¸h@Øú¨BEHAVIOR¤h(Øû(>BODY¤hPØû`BODY>¤hhØû	RECURSIVE¤ÎØØûÐRECURSE¤Î(Í°ÙÀØüd#¤Ö¼((¼P0 ¼(@ØüHh#¤Ö¼((¼0 ¼(@Øü°o#¤Ö¼((¼À0 ¼(@Øý
hv-putchar$Äý
hv-getchar%ý 
hv-haschar%<ýÀ
hv-reg-crq%týàhv-free-crq%Àþhv-send-crq&þ 
hv-put-tceÀþ@check-and-patch-sc1#8þ`RB@ þRB! Hþ RW@ þ¸RW! ÌþÐRL@!þèRL!!PÿRX@!ÿRX!!Ôÿ0hv-logical-memop"ÿHhv-cas"hÿphv-rtas-update"°ÿget-print-version"üÿ¨virtio-setup-vd#|ÿÐvirtio-vring-size#¸ÿøvirtio-get-qsize(Ð virtio-get-configItHvirtio-set-qaddrHôpvirtio-blk-initI<virtio-blk-shutdownGØÀvirtio-blk-readHèvirtio-scsi-initEôvirtio-scsi-shutdownF,8virtio-scsi-sendFh`virtio-fs-initH`virtio-fs-shutdownH¸¨virtio-fs-loadE¬Ðvirtio-net-openFÄðvirtio-net-closeGvirtio-net-readGP@virtio-net-writeGhvirtio-serial-initBPvirtio-serial-shutdownB¸virtio-serial-putcharBÄàvirtio-serial-getcharCvirtio-serial-hascharC@0USB-OHCI-REGISTERCxXUSB-EHCI-REGISTERCUSB-XHCI-REGISTERCÀ¨USB-HCD-INITCäÐUSB-HCD-EXITD ðUSB-HID-INITD\USB-HID-EXITD0
USB-READ-KEYBDÌPUSB-KEY-AVAILABLEEpUSB-HUB-INITE<USB-MSC-INITEt¸USB-MSC-EXIT8ØØUSB-TRANSFER-CTRL9øUSB-TRANSFER-BULK9X 
bootmsg-cp9¬Hbootmsg-warning9ìh
bootmsg-error:0bootmsg-debugcp:p°bootmsg-setlevel:´Øbootmsg-nvupdate;Lbootmsg-checklevel:ô(
ELF-LOAD-FILE;pPELF-LOAD-FILE-TO-ADDR;Ìpnvram-c@<4nvram-c!=¸nvram-w@<lØnvram-w!=Xønvram-l@<¤nvram-l!=8nvram-x@<ÜXnvram-x!=àxinternal-reset-nvram?Ðnvram-debug@ÀÀ
wipe-nvramA°àget-nvram-partition>$get-named-nvram-partition>(new-nvram-partition?Xincrease-nvram-partition?perase-nvram-partitionAP°delete-nvram-partition)Øinternal-get-envAÔ	internal-add-env?ô	(internal-del-env@`	Pinternal-set-env@ä	xinternal-nvram-init)p	 get-nvram-base)À	Èget-nvram-size)ø	èget-flash-base*4
get-flash-size*l
(get-mbx-base*¤
HLIBVETH-OPEN*Ü
h
LIBVETH-CLOSE+@
LIBVETH-READ+|
¨
LIBVETH-WRITE+Ä
ÈE1K-OPEN,
è	E1K-CLOSE,dE1K-READ, (	E1K-WRITE,äH
E1K-MAC-SETUP-(hNET-LOAD- NET-PING18¨HID0!0¬ÈHID0@1àHID1!/¼øHID1@/üHID4!04(HID4@0t@HID5!-üXHID5@.4pMSR@.¤MSR!.l SDR1@/¸SDR1!.ÜÐPVR@/LèPIR@/
TBL@1|
TBU@1´
0DABR@2$
HDABR!1ì
`HIOR@2
xHIOR!2\
SPRG0@3
¨SPRG0!2Ì
ÀSPRG1@3t
ØSPRG1!3<
ðSPRG2@3äSPRG2!3¬ SPRG3@4T8SPRG3!4PHSPRG0@4ÄhHSPRG0!4HSPRG1@54¨HSPRG1!4üÈDEC@7°èDEC!7xMMCR0!5lPMC1@5¬0ICBI5èÐJUMP-CLIENT60`CLIENTINTERFACE
(.WRITE-LOG-BYTE-ENTRY
HH°WRITE-LOG-BYTE-ENTRY¤Ð(ØàCALL-C6¼ 
START-RTAS6p8
FLUSHCACHE7XBM-ALLOCATOR-INIT7èxBM-ALLOC80 BM-FREE8tÀCRASH6hàDAAR
ððøDUMBER¤(pà® ØBOOT-EXCEPTION-HANDLER
(ØHERE
ÂHCLIENT-ENTRY-POINT
HJPROMFS-LOOKUP-ENTRY
HfpNICEINIT¤øX·°øÏÏ`øÎ@ààx¹(hø0´PØhex
' ll-cr to cr
get-flash-base VALUE flash-addr
get-nvram-base CONSTANT nvram-base
get-nvram-size CONSTANT nvram-size
0 CONSTANT default-hvtermno
4096 CONSTANT disp-size
CREATE prevga-disp-buf 4096 allot
0 value disp-ptr
true value store-prevga?
: store-to-disp-buffer         ( ch  --  )
prevga-disp-buf disp-ptr disp-size MOD + c!
disp-ptr 1 + to disp-ptr
;
: hvterm-emit
store-prevga? IF
dup store-to-disp-buffer
THEN
default-hvtermno SWAP hv-putchar
;
: hvterm-key?  default-hvtermno hv-haschar ;
: hvterm-key   BEGIN hvterm-key? UNTIL default-hvtermno hv-getchar ;
' hvterm-emit to emit
' hvterm-key  to key
' hvterm-key? to key?
: serial-emit hvterm-emit ;
: serial-key? hvterm-key? ;
: serial-key  hvterm-key  ;
clean-hash
: hash-find ( str len head -- 0 | link )
>r 2dup 2dup hash                  ( str len str len hash          R: head )
dup >r @ dup                       ( str len str len *hash *hash   R: head hash )
IF                                 ( str len str len *hash         R: head hash )
link>name name>string string=ci ( str len true|false            R: head hash )
dup 0=
IF
THEN
ELSE
nip nip                         ( str len 0                     R: head hash )
THEN
IF                                 \ hash found
2drop r> @ r> drop              (  *hash                        R: )
exit
THEN                               \ hash not found
r> r> swap >r ((find))             ( str len head                  R: hash=0 )
dup
IF
dup r> !                        ( link                          R: )
ELSE
r> drop                         ( 0                             R: )
THEN
;
: hash-reveal  hash off ;
' hash-reveal to (reveal)
' hash-find to (find)
: >name ( xt -- nfa ) \ note: still has the "immediate" field!
BEGIN char- dup c@ UNTIL ( @lastchar )
dup dup aligned - cell+ char- ( @lastchar lenmodcell )
dup >r -
BEGIN dup c@ r@ <> WHILE
cell- r> cell+ >r
REPEAT
r> drop char-
;
VARIABLE mask -1 mask !
: default-hw-exception s" Exception #" type . ;
' default-hw-exception to hw-exception-handler
: diagnostic-mode? false ;	\ 2B DOTICK'D later in envvar.fs
: memory-test-suite ( addr len -- fail? )
diagnostic-mode? IF
." Memory test mask value: " mask @ . cr
." No memory test suite currently implemented! " cr
THEN
false
;
: 0.r  0 swap <# 0 ?DO # LOOP #> type ;
: 2log ( n -- lb{n} )
8 cells 0 DO 1 rshift dup 0= IF drop i LEAVE THEN LOOP
;
: log2  ( n -- log2-n )
1- 2log 1+
;
CREATE $catpad 400 allot
: $cat ( str1 len1 str2 len2 -- str3 len3 )
>r >r dup >r $catpad swap move
r> dup $catpad + r> swap r@ move
r> + $catpad swap ;
: $cat-comma ( str2 len2 str1 len1 -- "str1, str2" len1+len2+2 )
2dup + s" , " rot swap move 2+ 2swap $cat
;
: $cat-space ( str2 len2 str1 len1 -- "str1 str2" len1+len2+1 )
2dup + bl swap c! 1+ 2swap $cat
;
: $cathex ( str len val -- str len' )
(u.) $cat
;
: 2CONSTANT    CREATE , , DOES> [ here ] 2@ ;
CONSTANT <2constant>
: $2CONSTANT  $CREATE , , DOES> 2@ ;
: 2VARIABLE    CREATE 0 , 0 ,  DOES> ;
: (is-user-word) ( name-str name-len xt -- ) -rot $CREATE , DOES> @ execute ;
: zplace ( str len buf -- )  2dup + 0 swap c! swap move ;
: rzplace ( str len buf -- )  2dup + 0 swap rb! swap rmove ;
: strdup ( str len -- dupstr len ) here over allot swap 2dup 2>r move 2r> ;
: str= ( str1 len1 str2 len2 -- equal? )
rot over <> IF 3drop false ELSE comp 0= THEN ;
: test-string ( param len -- true | false )
0 ?DO
dup i + c@                     \ Get character / byte at current index
dup 20 <  swap 7e >  OR IF     \ Is it out of range 32 to 126 (=ASCII)
drop FALSE UNLOOP EXIT      \ FALSE means: No ASCII string
THEN
LOOP
drop TRUE    \ Only ASCII found --> it is a string
;
: #aligned ( adr alignment -- adr' ) negate swap negate and negate ;
: #join  ( lo hi #bits -- x )  lshift or ;
: #split ( x #bits -- lo hi )  2dup rshift dup >r swap lshift xor r> ;
: /string ( str len u -- str' len' )
>r swap r@ chars + swap r> - ;
: skip ( str len c -- str' len' )
>r BEGIN dup WHILE over c@ r@ = WHILE 1 /string REPEAT THEN r> drop ;
: scan ( str len c -- str' len' )
>r BEGIN dup WHILE over c@ r@ <> WHILE 1 /string REPEAT THEN r> drop ;
: split ( str len char -- left len right len )
>r 2dup r> findchar IF >r over r@ 2swap r> 1+ /string ELSE 0 0 THEN ;
: rfindchar ( str len char -- offs true | false )
swap 1 - 0 swap do
over i + c@
over dup bl = if <= else = then if
2drop i dup dup leave
then
-1 +loop =
;
: rsplit ( str len char -- left len right len )
>r 2dup r> rfindchar IF >r over r@ 2swap r> 1+ /string ELSE 0 0 THEN ;
: left-parse-string ( str len char -- R-str R-len L-str L-len )
split 2swap ;
: replace-char ( str len chout chin -- )
>r -rot BEGIN 2dup 4 pick findchar WHILE tuck - -rot + r@ over c! swap REPEAT
r> 2drop 2drop
;
: \-to-/ ( str len -- str' len ) strdup 2dup [char] \ [char] / replace-char ;
: isdigit ( char -- true | false )
30 39 between
;
: ishexdigit ( char -- true | false )
30 39 between 41 46 between OR 61 66 between OR
;
: $dh-number ( addr len -- true | number false )
base @ >r
decimal
dup 2 > IF
over dup c@ [char] 0 =
over 1 + c@ 20 or [char] x =
AND IF hex 2 + swap 2 - rot THEN drop
THEN
$number
r> base !
;
: //  dup >r 1- + r> / ; \ division, round up
: c@+ ( adr -- c adr' )  dup c@ swap char+ ;
: 2c@ ( adr -- c1 c2 )  c@+ c@ ;
: 4c@ ( adr -- c1 c2 c3 c4 )  c@+ c@+ c@+ c@ ;
: 8c@ ( adr -- c1 c2 c3 c4 c5 c6 c7 c8 )  c@+ c@+ c@+ c@+ c@+ c@+ c@+ c@ ;
: 4dup  ( n1 n2 n3 n4 -- n1 n2 n3 n4 n1 n2 n3 n4 )  2over 2over ;
: 4drop  ( n1 n2 n3 n4 -- )  2drop 2drop ;
: 5dup  ( 1 2 3 4 5 -- 1 2 3 4 5 1 2 3 4 5 )
4 pick 4 pick 4 pick 4 pick 4 pick ;
: 5drop 4drop drop ;
: 5nip
nip nip nip nip nip ;
: 6dup  ( 1 2 3 4 5 6 -- 1 2 3 4 5 6 1 2 3 4 5 6 )
5 pick 5 pick 5 pick 5 pick 5 pick 5 pick ;
: signed ( n1 -- n2 ) dup 80000000 and IF FFFFFFFF00000000 or THEN ;
: <l@ ( addr -- x ) l@ signed ;
: -leading  BEGIN dup WHILE over c@ bl <= WHILE 1 /string REPEAT THEN ;
: (parse-line)  skipws 0 parse ;
: hex-byte ( char0 char1 -- value true|false )
10 digit IF
swap 10 digit IF
4 lshift or true EXIT
ELSE
2drop 0
THEN
ELSE
drop
THEN
false EXIT
;
: parse-hexstring ( dst-adr -- dst-adr' )
[char] ) parse cr                 ( dst-adr str len )
bounds ?DO                        ( dst-adr )
i c@ i 1+ c@ hex-byte IF       ( dst-adr hex-byte )
>r dup r> swap c! 1+ 2      ( dst-adr+1 2 )
ELSE
drop 1                      ( dst-adr 1 )
THEN
+LOOP
;
: add-specialchar ( dst-adr special -- dst-adr' )
over c! 1+                        ( dst-adr' )
1 >in +!                          \ advance input-index
;
: parse-" ( dst-adr -- dst-adr' )
[char] " parse dup 3 pick + >r    ( dst-adr str len R: dst-adr' )
>r swap r> move r>                ( dst-adr' )
;
: (") ( dst-adr -- dst-adr' )
begin                             ( dst-adr )
parse-"                        ( dst-adr' )
>in @ dup span @ >= IF         ( dst-adr' >in-@ )
drop
EXIT
THEN
ib + c@
CASE
[char] ( OF parse-hexstring ENDOF
[char] " OF [char] " add-specialchar ENDOF
dup      OF EXIT ENDOF
ENDCASE
again
;
CREATE "pad 100 allot
: " ( [text<">< >] -- text-str text-len )
state @ IF                        \ compile sliteral, pstr into dict
"pad dup (") over -            ( str len )
['] sliteral compile, dup c,   ( str len )
bounds ?DO i c@ c, LOOP
align ['] count compile,
ELSE
pocket dup (") over -          \ Interpretation, put string
THEN                              \ in temp buffer
; immediate
: (cr carret emit ;
: $forget ( str len -- )
2dup last @            ( str len str len last-bc )
BEGIN
dup >r             ( str len str len last-bc R: last-bc )
cell+ char+ count  ( str len str len found-str found-len R: last-bc )
string=ci IF       ( str len R: last-bc )
r> @ last ! 2drop clean-hash EXIT ( -- )
THEN
2dup r> @ dup 0=   ( str len str len next-bc next-bc )
UNTIL
drop 2drop 2drop            \ clean hash table
;
: forget ( "old-name<>" -- )
parse-word $forget
;
: linked ( var -- )  here over @ , swap ! ;
HEX
VARIABLE wordlists  forth-wordlist wordlists !
: wordlist ( -- wid )  here wordlists linked 0 , ;
10 CONSTANT max-in-search-order	\ should define elsewhere
: also ( -- )  clean-hash  context dup cell+ dup to context  >r @ r> ! ;
: previous ( -- )  clean-hash  context cell- to context ;
: only ( -- )  clean-hash  search-order to context  ( minimal-wordlist search-order ! ) ;
: seal ( -- )  clean-hash  context @  search-order dup to context  ! ;
: get-order ( -- wid_n .. wid_1 n )
context >r search-order BEGIN dup r@ u<= WHILE
dup @ swap cell+ REPEAT r> drop
search-order - cell / ;
: set-order ( wid_n .. wid_1 n -- )	\ XXX: special cases for 0, -1
clean-hash  1- cells search-order + dup to context
BEGIN dup search-order u>= WHILE
dup >r ! r> cell- REPEAT drop ;
: get-current ( -- wid )  current ;
: set-current ( wid -- )  to current ;
: definitions ( -- )  context @ set-current ;
: VOCABULARY ( C: "name" -- ) ( -- )  CREATE wordlist drop  DOES> clean-hash  context ! ;
: FORTH ( -- )  clean-hash  forth-wordlist context ! ;
: .voc ( wid -- ) \ display name for wid \ needs work ( body> or something like that )
dup cell- @ ['] vocabulary ['] forth within IF
2 cells - >name name>string type ELSE u. THEN  space ;
: vocs ( -- ) \ display all wordlist names
cr wordlists BEGIN @ dup WHILE dup .voc REPEAT drop ;
: order ( -- )
cr ." context:  " get-order 0 ?DO .voc LOOP
cr ." current:  " get-current .voc ;
: voc-find ( wid -- 0 | link )
clean-hash  cell+ @ (find)  clean-hash ;
: (function) ;
defer (defer)
0 value (value)
0 constant (constant)
variable (variable)
create (create)
alias (alias) (function)
cell buffer: (buffer:)
' (function) @        \ ( <colon> )
' (function) cell + @ \ ( ... <semicolon> )
' (defer) @           \ ( ... <defer> )
' (value) @           \ ( ... <value> )
' (constant) @	      \ ( ... <constant> )
' (variable) @        \ ( ... <variable> )
' (create) @          \ ( ... <create> )
' (alias) @           \ ( ... <alias> )
' (buffer:) @         \ ( ... <buffer:> )
forget (function)
constant <buffer:>
constant <alias>
constant <create>
constant <variable>
constant <constant>
constant <value>
constant <defer>
constant <semicolon>
constant <colon>
' lit      constant <lit>
' sliteral constant <sliteral>
' 0branch  constant <0branch>
' branch   constant <branch>
' doloop   constant <doloop>
' dotick   constant <dotick>
' doto     constant <doto>
' do?do    constant <do?do>
' do+loop  constant <do+loop>
' do       constant <do>
' exit     constant <exit>
' doleave  constant <doleave>
' do?leave  constant <do?leave>
500 CONSTANT AVAILABLE-SIZE
4000 CONSTANT MIN-RAM-RESERVE \ prevent from using first pages
: MIN-RAM-SIZE         \ Initially available memory size
epapr-ima-size IF
epapr-ima-size
ELSE
20000000         \ assumed minimal memory size
THEN
;
MIN-RAM-SIZE CONSTANT MIN-RAM-SIZE
STRUCT
cell field available>address
cell field available>size
CONSTANT /available
CREATE available AVAILABLE-SIZE /available * allot available AVAILABLE-SIZE /available * erase
VARIABLE mem-pre-released 0 mem-pre-released !
: available>size@	available>size @ ;
: available>address@	available>address @ ;
: available>size!	available>size ! ;
: available>address!	available>address ! ;
: available! ( addr size available-ptr -- )
dup -rot available>size! available>address!
;
: available@ ( available-ptr -- addr size )
dup available>address@ swap available>size@
;
: (?available-segment<) ( start1 end1 start2 end2 -- true/false ) drop < nip ;
: (?available-segment>) ( start1 end1 start2 end2 -- true/false ) -rot 2drop > ;
: (?available-segment-#) ( start1 end1 start2 end2 -- true/false )
2dup 5 roll -rot                ( e1 s2 e2 s1 s2 e2 )
between >r between r> and not
;
: (find-available) ( addr addr+size-1 a-ptr a-size -- a-ptr' found )
?dup 0= IF -rot 2drop false EXIT THEN	\ Not Found
2dup 2/ dup >r /available * +
dup available>size@ 0= IF 2drop r> RECURSE EXIT THEN
dup >r available@
over + 1- 2>r 2swap
2dup 2r@ (?available-segment>) IF
2swap 2r> 2drop r>
/available + -rot r> - 1- nip RECURSE EXIT	\ Look Right
THEN
2dup 2r@ (?available-segment<) IF
2swap 2r> 2drop r>
2drop r> RECURSE EXIT	\ Look Left
THEN
2dup 2r@ (?available-segment-#) IF	\ Conflict - segments overlap
2r> 2r> 3drop 3drop 2drop
1212 throw
THEN
2r> 3drop 3drop r> r> drop	( a-ptr' -- )
dup available>size@ 0<>		( a-ptr' found -- )
;
: (find-available) ( addr size -- seg-ptr found )
over + 1- available AVAILABLE-SIZE ['] (find-available) catch IF
2drop 2drop 0 false
THEN
;
: dump-available ( available-ptr -- )
cr
dup available - /available / AVAILABLE-SIZE swap - 0 ?DO
dup available@ ?dup 0= IF
2drop UNLOOP EXIT
THEN
swap . . cr
/available +
LOOP
dup
;
: .available available dump-available ;
: (drop-available) ( available-ptr -- )
dup available - /available /	\ current element index
AVAILABLE-SIZE swap -		\ # of remaining elements
( first nelements ) 1- 0 ?DO
dup /available + dup available@
( current next next>address next>size ) ?dup 0= IF
2drop LEAVE \ NULL element - goto last copy
THEN
3 roll available!		( next )
LOOP
0 0 rot available!
;
: (stick-to-previous-available) ( addr size available-ptr -- naddr nsize nptr success )
dup available = IF
false EXIT		\ This was the first available segment
THEN
dup /available - dup available@
+ 4 pick = IF
nip	\ Drop available-ptr since we are going to previous one
rot drop	\ Drop start addr, we take the previous one
dup available@ 3 roll + rot true
ELSE
drop false
THEN
;
: (insert-available) ( available-ptr -- available-ptr )
dup				\ current element
dup available - /available /	\ current element index
AVAILABLE-SIZE swap -		\ # of remaining elements
dup 0<= 3 pick available>size@ 0= or IF
drop drop EXIT
THEN
over available@ rot
( first	first/=current/ first>address first>size nelements ) 1- 0 ?DO
2>r
/available + dup available@
2r> 4 pick available! dup 0= IF
rot /available + available!
UNLOOP EXIT
THEN
LOOP
( first next/=last/ last[0]>address last[0]>size ) ?dup 0<> IF
cr ." release error: available map overflow"
cr ." Dumping available property"
.available
cr ." No space for one before last entry:" cr swap . .
cr ." Dying ..." cr 123 throw
THEN
2drop
;
: insert-available ( addr size available-ptr -- addr size available-ptr )
dup available>address@ 0<> IF
dup available>address@ rot dup -rot -
3 pick = IF	\ if (available>address@ - size == addr)
over available>size@ + swap
(stick-to-previous-available) IF
dup /available + (drop-available)
THEN
ELSE
swap (stick-to-previous-available)
not IF (insert-available) THEN
THEN
ELSE
(stick-to-previous-available) drop
THEN
;
defer release
: drop-available ( addr size available-ptr -- addr )
dup >r available@
over 4 pick swap - ?dup 0<> IF
dup 3 roll swap r> available! -
over - ?dup 0= IF
drop
ELSE
swap 2 pick + swap release
THEN
ELSE
nip ( req_addr req_size segment_size )
over - ?dup 0= IF
drop r> (drop-available)
ELSE
-rot over + rot r> available!
THEN
THEN
;
: pwr2roundup ( value -- pwr2value )
dup CASE
0 OF EXIT ENDOF
1 OF EXIT ENDOF
ENDCASE
dup 1 DO drop i dup +LOOP
dup +
;
: (claim-best-fit) ( len align -- len base )
pwr2roundup 1- -1 -1
available AVAILABLE-SIZE /available * + available DO
i		\ Must be saved now, before we use Return stack
-rot >r >r swap >r
available@ ?dup 0= IF drop r> r> r> LEAVE THEN		\ EOL
2 pick - dup 0< IF
2drop			\ Can't Fit: Too Small
ELSE
dup 2 pick r@ and - 0< IF
2drop		\ Can't Fit When Aligned
ELSE
r> -rot dup r@ U< IF
2r> 2drop
swap 2 pick + 2 pick invert and >r >r >r
ELSE
2drop >r
THEN
THEN
THEN
r> r> r>
/available +LOOP
-rot 2drop	( len best-fit-base/or -1 if none found/ )
;
: (adjust-release0) ( 0 size -- addr' size' )
2dup MIN-RAM-SIZE dup 3 roll + -rot -
dup 0< IF 2drop ELSE
2swap 2drop 0 mem-pre-released !
THEN
;
: claim ( [ addr ] len align -- base )
?dup 0<> IF
(claim-best-fit) dup -1 = IF
2drop cr ." claim error : aligned allocation failed" cr
." available:" cr .available
321 throw EXIT
THEN
swap
THEN
2dup (find-available) not IF
drop
2drop
321 throw EXIT
THEN
( req_addr req_size available-ptr ) drop-available
;
: .release ( addr len -- )
over 0= mem-pre-released @ and IF (adjust-release0) THEN
2dup (find-available) IF
drop swap
cr ." release error: region " . ." , " . ." already released" cr
ELSE
?dup 0= IF
swap 
cr ." release error: Bad/conflicting region " . ." , " .
." or available list full " cr
ELSE
( addr size available-ptr ) insert-available
( addr size available-ptr ) available!
THEN
THEN
;
' .release to release
0 MIN-RAM-SIZE release 1 mem-pre-released !
0 MIN-RAM-RESERVE 0 ' claim CATCH IF ." claim failed!" cr 2drop THEN drop
paflof-start ffff not and 1f00000 0 ' claim CATCH IF
." claim failed!" cr 2drop
THEN drop
heap-end heap-start - log2 1+ CONSTANT (max-heads#)
CREATE heads (max-heads#) cells allot
heads (max-heads#) cells erase
: size>head  ( size -- headptr )  log2 3 max cells heads + ;
: alloc-mem  ( len -- a-addr )
dup 0= IF EXIT THEN
1 over log2 3 max                   ( len 1 log_len )
dup (max-heads#) >= IF cr ." Out of internal memory." cr 3drop 0 EXIT THEN
lshift >r                           ( len  R: 1<<log_len )
size>head dup @ IF
dup @ dup >r @ swap ! r> r> drop EXIT
THEN                                ( headptr  R: 1<<log_len)
r@ 2* recurse dup                   ( headptr a-addr2 a-addr2  R: 1<<log_len)
dup 0= IF r> 2drop 2drop 0 EXIT THEN
r> + >r 0 over ! swap ! r>
;
: free-mem  ( a-addr len -- )
dup 0= IF 2drop EXIT THEN size>head 2dup @ swap ! !
;
: #links  ( a -- n )
@ 0 BEGIN over WHILE 1+ swap @ swap REPEAT nip
;
: .free  ( -- )
0 (max-heads#) 0 DO
heads i cells + #links dup IF
cr dup . ." * " 1 i lshift dup . ." = " * dup .
THEN
+
LOOP
cr ." Total " .
;
heap-start heap-end heap-start - free-mem
false VALUE debug-find-component?
VARIABLE device-tree
VARIABLE current-node
: get-node  current-node @ dup 0= ABORT" No active device tree node" ;
STRUCT
cell FIELD node>peer
cell FIELD node>parent
cell FIELD node>child
cell FIELD node>properties
cell FIELD node>words
cell FIELD node>instance-template
cell FIELD node>instance-size
cell FIELD node>space?
cell FIELD node>space
cell FIELD node>addr1
cell FIELD node>addr2
cell FIELD node>addr3
END-STRUCT
: find-method ( str len phandle -- false | xt true )
node>words @ voc-find dup IF link> true THEN ;
0 VALUE my-self
400 CONSTANT max-instance-size
STRUCT
/n FIELD instance>node
/n FIELD instance>parent
/n FIELD instance>args
/n FIELD instance>args-len
/n FIELD instance>size
/n FIELD instance>#units
/n FIELD instance>unit1          \ For instance-specific "my-unit"
/n FIELD instance>unit2
/n FIELD instance>unit3
/n FIELD instance>unit4
CONSTANT /instance-header
: >instance  ( offset -- myself+offset )
my-self 0= ABORT" No instance!"
dup my-self instance>size @ >= ABORT" Instance access out of bounds!"
my-self +
;
: (create-instance-var) ( initial-value -- )
get-node
dup node>instance-size @ cell+ max-instance-size
>= ABORT" Instance is bigger than max-instance-size!"
dup node>instance-template @      ( iv phandle tmp-ih )
swap node>instance-size dup @     ( iv tmp-ih *instance-size instance-size )
dup ,                             \ compile current instance ptr
swap 1 cells swap +!              ( iv tmp-ih instance-size )
+ !
;
: create-instance-var ( "name" initial-value -- )
CREATE (create-instance-var) PREVIOUS
;
: (create-instance-buf) ( buffersize -- )
aligned                               \ align size to multiples of cells
dup get-node node>instance-size @ +   ( buffersize' newinstancesize )
max-instance-size > ABORT" Instance is bigger than max-instance-size!"
get-node node>instance-template @  get-node node>instance-size @ +
over erase                            \ clear according to IEEE 1275
get-node node>instance-size @         ( buffersize' old-instance-size )
dup ,                                 \ compile current instance ptr
+ get-node node>instance-size !       \ store new size
;
: create-instance-buf ( "name" buffersize -- )
CREATE (create-instance-buf) PREVIOUS
;
VOCABULARY instance-words  ALSO instance-words DEFINITIONS
: VARIABLE  0 create-instance-var DOES> [ here ] @ >instance ;
: VALUE       create-instance-var DOES> [ here ] @ >instance @ ;
: DEFER     0 create-instance-var DOES> [ here ] @ >instance @ execute ;
: BUFFER:     create-instance-buf DOES> [ here ] @ >instance ;
PREVIOUS DEFINITIONS
CONSTANT <instancebuffer>
CONSTANT <instancedefer>
CONSTANT <instancevalue>
CONSTANT <instancevariable>
: (instance?) ( xt -- xt true|false )
dup @ <create> = IF
dup cell+ @ cell+ @ ['] >instance =
ELSE
false
THEN
;
: (doito) ( value R:*CFA -- )
r> cell+ dup >r
@ cell+ cell+ @ >instance !
;
' (doito) CONSTANT <(doito)>
: to ( value wordname<> -- )
' (instance?)
state @ IF
IF ['] (doito) ELSE ['] DOTO THEN
, , EXIT
THEN
IF
cell+ cell+ @ >instance ! \ interp mode instance value
ELSE
cell+ !                   \ interp mode normal value
THEN
; IMMEDIATE
: behavior  ( defer-xt -- contents-xt )
dup cell+ @ <instancedefer> = IF   \ Is defer-xt an INSTANCE DEFER ?
2 cells + @ >instance @
ELSE
behavior
THEN
;
: INSTANCE  ALSO instance-words ;
: my-parent  my-self instance>parent @ ;
: my-args    my-self instance>args 2@ swap ;
: set-my-args   ( old-addr len -- )
dup alloc-mem                   \ allocate space for new args ( old-addr len new-addr )
2dup my-self instance>args 2!   \ write into instance struct  ( old-addr len new-addr )
swap move                       \ and copy the args           ( )
;
: create-instance-data ( -- instance )
get-node dup node>instance-template @    ( phandle instance-template )
swap node>instance-size @                ( instance-template instance-size )
dup >r
dup alloc-mem dup >r swap move r>        ( instance )
dup instance>size r> swap !              \ Store size for destroy-instance
dup instance>#units 0 swap !             \ Use node unit by default
;
: create-instance ( -- )
my-self create-instance-data
dup to my-self instance>parent !
get-node my-self instance>node !
;
: destroy-instance ( instance -- )
dup instance>args @ ?dup IF               \ Free instance args?
over instance>args-len @  free-mem
THEN
dup instance>size @  free-mem
;
: ihandle>phandle ( ihandle -- phandle )
dup 0= ABORT" no current instance" instance>node @
;
: push-my-self ( ihandle -- )  r> my-self >r >r to my-self ;
: pop-my-self ( -- )  r> r> to my-self >r ;
: call-package  push-my-self execute pop-my-self ;
: $call-static ( ... str len node -- ??? )
find-method IF execute ELSE -1 throw THEN
;
: $call-my-method  ( str len -- )
my-self ihandle>phandle $call-static
;
: $call-method  ( str len ihandle -- )
push-my-self
['] $call-my-method CATCH ?dup IF
pop-my-self THROW
THEN
pop-my-self
;
0 VALUE calling-child
: $call-parent
my-self ihandle>phandle TO calling-child
my-parent $call-method
0 TO calling-child
;
: create-node ( parent -- new )
max-instance-size alloc-mem        ( parent instance-mem )
dup max-instance-size erase >r     ( parent  R: instance-mem )
align wordlist >r wordlist >r      ( parent  R: instance-mem wl wl )
here                               ( parent new  R: instance-mem wl wl )
0 , swap , 0 ,                     \ Set node>peer, node>parent & node>child
r> , r> ,                          \ Set node>properties & node>words to wl
r> , /instance-header ,            \ Set instance-template & instance-size
FALSE , 0 ,                        \ Set node>space? and node>space
0 , 0 , 0 ,                        \ Set node>addr*
;
: peer    node>peer   @ ;
: parent  node>parent @ ;
: child   node>child  @ ;
: peer  dup IF peer ELSE drop device-tree @ THEN ;
: link ( new head -- ) \ link a new node at the end of a linked list
BEGIN dup @ WHILE @ REPEAT ! ;
: link-node ( parent child -- )
swap dup IF node>child link ELSE drop device-tree ! THEN ;
: set-node ( phandle -- )
current-node @ IF previous THEN
dup current-node !
?dup IF node>words @ also context ! THEN
definitions ;
: get-parent  get-node parent ;
: new-node ( -- phandle ) \ active node becomes new node's parent;
current-node @ dup create-node
tuck link-node dup set-node ;
: finish-node ( -- )
get-node parent set-node
;
: device-end ( -- )  0 set-node ;
CREATE $indent 100 allot  VARIABLE indent 0 indent !
true value encode-first?
: decode-int  over >r 4 /string r> 4c@ swap 2swap swap bljoin ;
: decode-64 decode-int -rot decode-int -rot 2swap swap lxjoin ;
: decode-string ( prop-addr1 prop-len1 -- prop-addr2 prop-len2 str len )
dup 0= IF 2dup EXIT THEN \ string properties with zero length
over BEGIN dup c@ 0= IF 1+ -rot swap 2 pick over - rot over - -rot 1-
EXIT THEN 1+ AGAIN ;
: (prune) ( name len head -- )
dup >r (find) ?dup IF r> BEGIN dup @ WHILE 2dup @ = IF
>r @ r> ! EXIT THEN @ REPEAT 2drop ELSE r> drop THEN ;
: prune ( name len -- )  last (prune) ;
: set-property ( data dlen name nlen phandle -- )
true to encode-first?
get-current >r  node>properties @ set-current
2dup prune  $2CONSTANT  r> set-current ;
: delete-property ( name nlen -- )
get-node get-current >r  node>properties @ set-current
prune r> set-current ;
: property ( data dlen name nlen -- )  get-node set-property ;
: get-property ( str len phandle -- true | data dlen false )
?dup 0= IF cr cr cr ." get-property for " type ."  on zero phandle"
cr cr true EXIT THEN
node>properties @ voc-find dup IF link> execute false ELSE drop true THEN ;
: get-package-property ( str len phandle -- true | data dlen false )
get-property ;
: get-my-property ( str len -- true | data dlen false )
my-self ihandle>phandle get-property ;
: get-parent-property ( str len -- true | data dlen false )
my-parent ihandle>phandle get-property ;
: get-inherited-property ( str len -- true | data dlen false )
my-self ihandle>phandle
BEGIN
3dup get-property 0= IF
rot drop rot drop rot drop false EXIT
THEN
parent dup 0= IF
3drop true EXIT
THEN
AGAIN
;
20 CONSTANT indent-prop
: .prop-int ( str len -- )
space
400 min 0
?DO
i over + dup                                 ( str act-addr act-addr )
c@ 2 0.r 1+ dup c@ 2 0.r 1+ dup c@ 2 0.r 1+ c@ 2 0.r ( str )
i c and c = IF                           \ check for multipleof 16 bytes
cr indent @ indent-prop + 1+ 0        \ linefeed + indent
DO
space                              \ print spaces
LOOP
ELSE
space space                           \ print two spaces
THEN
4 +LOOP
drop
;
: .prop-bytes ( str len -- )
2dup -4 and .prop-int                       ( str len )
dup 3 and dup IF                            ( str len len%4 )
>r -4 and + r>                           ( str' len%4 )
bounds                                   ( str' str'+len%4 )
DO
i c@ 2 0.r                            \ Print last 3 bytes
LOOP
ELSE
3drop
THEN
;
: .prop-string ( str len )
2dup space type
cr indent @ indent-prop + 0 DO space LOOP   \ Linefeed
.prop-bytes
;
: .propbytes ( xt -- )
execute dup
IF
over cell- @ execute
ELSE
2drop
THEN
;
: .property ( lfa -- )
cr indent @ 0
?DO
space
LOOP
link> dup >name name>string 2dup type nip ( len )
indent-prop swap -                        ( xt 20-len )
dup 0< IF drop 0 THEN 0                   ( xt number-of-space 0 )
?DO
space
LOOP
.propbytes
;
: (.properties) ( phandle -- )
node>properties @ cell+ @ BEGIN dup WHILE dup .property @ REPEAT drop ;
: .properties ( -- )
get-node (.properties) ;
: next-property ( str len phandle -- false | str' len' true )
?dup 0= IF device-tree @ THEN  \ XXX: is this line required?
node>properties @
>r 2dup 0= swap 0= or IF 2drop r> cell+ ELSE r> voc-find THEN
@ dup IF link>name name>string true THEN ;
: encode-start ( -- prop 0 )
['] .prop-int compile,
false to encode-first?
here 0
;
: encode-int ( val -- prop prop-len )
encode-first? IF
['] .prop-int compile,             \ Execution token for print
false to encode-first?
THEN
here swap lbsplit c, c, c, c, /l
;
: encode-bytes ( str len -- prop-addr prop-len )
encode-first? IF
['] .prop-bytes compile,           \ Execution token for print
false to encode-first?
THEN
here over 2dup 2>r allot swap move 2r>
;
: encode-string ( str len -- prop-addr prop-len )
encode-first? IF
['] .prop-string compile,          \ Execution token for print
false to encode-first?
THEN
encode-bytes 0 c, char+
;
: encode+ ( prop1-addr prop1-len prop2-addr prop2-len -- prop-addr prop-len )
nip + ;
: encode-int+  encode-int encode+ ;
: encode-64    xlsplit encode-int rot encode-int+ ;
: encode-64+   encode-64 encode+ ;
: device-name  encode-string s" name"        property ;
: device-type  encode-string s" device_type" property ;
: model        encode-string s" model"       property ;
: compatible   encode-string s" compatible"  property ;
: #address-cells  s" #address-cells" rot parent get-property
ABORT" parent doesn't have a #address-cells property!"
decode-int nip nip
;
: my-#address-cells  ( -- #address-cells )
get-node #address-cells
;
: child-#address-cells  ( -- #address-cells )
s" #address-cells" get-node get-property
ABORT" node doesn't have a #address-cells property!"
decode-int nip nip
;
: child-#size-cells  ( -- #address-cells )
s" #size-cells" get-node get-property
ABORT" node doesn't have a #size-cells property!"
decode-int nip nip
;
: encode-phys  ( phys.hi ... phys.low -- prop len )
encode-first?  IF  encode-start  ELSE  here 0  THEN
my-#address-cells 0 ?DO rot encode-int+ LOOP
;
: encode-child-phys  ( phys.hi ... phys.low -- prop len )
encode-first?  IF  encode-start  ELSE  here 0  THEN
child-#address-cells 0 ?DO rot encode-int+ LOOP
;
: encode-child-size  ( size.hi ... size.low -- prop len )
encode-first? IF  encode-start  ELSE  here 0  THEN
child-#size-cells 0 ?DO rot encode-int+ LOOP
;
: decode-phys
my-#address-cells BEGIN dup WHILE 1- >r decode-int r> swap >r REPEAT drop
my-#address-cells BEGIN dup WHILE 1- r> swap REPEAT drop ;
: decode-phys-and-drop
my-#address-cells BEGIN dup WHILE 1- >r decode-int r> swap >r REPEAT 3drop
my-#address-cells BEGIN dup WHILE 1- r> swap REPEAT drop ;
: reg  >r encode-phys r> encode-int+ s" reg" property ;
: >space    node>space @ ;
: >space?   node>space? @ ;
: >address  dup >r #address-cells dup 3 > IF r@ node>addr3 @ swap THEN
dup 2 > IF r@ node>addr2 @ swap THEN
1 > IF r@ node>addr1 @ THEN r> drop ;
: >unit     dup >r >address r> >space ;
: (my-phandle)  ( -- phandle )
my-self ?dup IF
ihandle>phandle
ELSE
get-node dup 0= ABORT" no active node"
THEN
;
: my-space ( -- phys.hi )
(my-phandle) >space
;
: my-address  (my-phandle) >address ;
: my-unit
my-self instance>#units @ IF
0 my-self instance>#units @ 1- DO
my-self instance>unit1 i cells + @
-1 +LOOP
ELSE
my-self ihandle>phandle >unit
THEN
;
: my-unit-64 ( -- phys.lo+1|phys.lo )
my-unit                                ( phys.lo ... phys.hi )
(my-phandle) #address-cells            ( phys.lo ... phys.hi #ad-cells )
CASE
1   OF EXIT ENDOF
2   OF lxjoin EXIT ENDOF
3   OF drop lxjoin EXIT ENDOF
dup OF 2drop lxjoin EXIT ENDOF
ENDCASE
;
: set-space    get-node dup >r node>space ! true r> node>space? ! ;
: set-address  my-#address-cells 1 ?DO
get-node node>space i cells + ! LOOP ;
: set-unit     set-space set-address ;
: set-unit-64 ( phys.lo|phys.hi -- )
my-#address-cells 2 <> IF
." set-unit-64: #address-cells <> 2 " abort
THEN
xlsplit set-unit
;
: set-args ( arg-str len unit-str len -- )
s" decode-unit" get-parent $call-static set-unit set-my-args
;
: $cat-unit
dup parent 0= IF drop EXIT THEN
dup >space? not IF drop EXIT THEN
dup >r >unit s" encode-unit" r> parent $call-static
dup IF
dup >r here swap move s" @" $cat here r> $cat
ELSE
2drop
THEN
;
: $cat-instance-unit
dup parent 0= IF drop EXIT THEN
dup instance>#units @ 0= IF
ihandle>phandle $cat-unit
EXIT
THEN
dup >r push-my-self
['] my-unit CATCH IF pop-my-self r> drop EXIT THEN
pop-my-self
s" encode-unit"
r> ihandle>phandle parent
$call-static
dup IF
dup >r here swap move s" @" $cat here r> $cat
ELSE
2drop
THEN
;
: node>name  dup >r s" name" rot get-property IF r> (u.) ELSE 1- r> drop THEN ;
: node>qname dup node>name rot ['] $cat-unit CATCH IF drop THEN ;
: node>path
here 0 rot
BEGIN dup WHILE dup parent REPEAT
2drop
dup 0= IF [char] / c, THEN
BEGIN
dup
WHILE
[char] / c, node>qname here over allot swap move
REPEAT
drop here 2dup - allot over -
;
: interposed? ( ihandle -- flag )
dup instance>parent @ dup 0= IF 2drop false EXIT THEN
ihandle>phandle swap ihandle>phandle parent <> ;
: instance>qname
dup >r interposed? IF s" %" ELSE 0 0 THEN
r@ dup ihandle>phandle node>name
rot ['] $cat-instance-unit CATCH IF drop THEN
$cat r> instance>args 2@ swap
dup IF 2>r s" :" $cat 2r> $cat ELSE 2drop THEN
;
: instance>qpath \ With interposed nodes.
here 0 rot BEGIN dup WHILE dup instance>parent @ REPEAT 2drop
dup 0= IF [char] / c, THEN
BEGIN dup WHILE [char] / c, instance>qname here over allot swap move
REPEAT drop here 2dup - allot over - ;
: instance>path \ Without interposed nodes.
here 0 rot BEGIN dup WHILE
dup interposed? 0= IF dup THEN instance>parent @ REPEAT 2drop
dup 0= IF [char] / c, THEN
BEGIN dup WHILE [char] / c, instance>qname here over allot swap move
REPEAT drop here 2dup - allot over - ;
: .node  node>path type ;
: pwd  get-node .node ;
: .instance instance>qpath type ;
: .chain    dup instance>parent @ ?dup IF recurse THEN
cr dup . instance>qname type ;
defer find-node
: set-alias ( alias-name len device-name len -- )
encode-string
2swap s" /aliases" find-node ?dup IF
set-property
ELSE
4drop
THEN
;
: find-alias ( alias-name len -- false | dev-path len )
s" /aliases" find-node dup IF
get-property 0= IF 1- dup 0= IF nip THEN ELSE false THEN
THEN
;
: .alias ( alias-name len -- )
find-alias dup IF type ELSE ." no alias available" THEN ;
: (.print-alias) ( lfa -- )
link> dup >name name>string
2dup s" name" string=ci IF 2drop drop
ELSE cr type space ." : " execute type
THEN ;
: (.list-alias) ( phandle -- )
node>properties @ cell+ @ BEGIN dup WHILE dup (.print-alias) @ REPEAT drop ;
: list-alias ( -- )
s" /aliases" find-node dup IF (.list-alias) THEN ;
8 CONSTANT MAX-ALIAS
1 VALUE alias-ind
: get-next-alias ( $alias-name -- $next-alias-name|FALSE )
2dup find-alias IF
drop
1 TO alias-ind
BEGIN
2dup alias-ind $cathex 2dup find-alias
WHILE
drop 2drop
alias-ind 1 + TO alias-ind
alias-ind MAX-ALIAS = IF
2drop FALSE EXIT
THEN
REPEAT
strdup 2swap 2drop
THEN
;
: devalias ( "{alias-name}<>{device-specifier}<cr>" -- )
parse-word parse-word dup IF set-alias
ELSE 2drop dup IF .alias
ELSE 2drop list-alias THEN THEN ;
: sub-alias ( arg-str arg-len -- arg' len' | false )
2dup
2dup [char] / findchar ?dup IF ELSE 2dup [char] : findchar THEN
( a l a l [p] -1|0 ) IF nip dup ELSE 2drop 0 THEN >r
find-alias ?dup IF ( a l a' p' -- R:p | a' l' -- R:0 )
r@ IF
2swap r@ - swap r> + swap $cat strdup ( a" l-p+p' -- )
ELSE
( a' l' -- R:0 ) r> drop ( a' l' -- )
THEN
ELSE
( a l -- R:p | -- R:0 ) r> IF 2drop THEN
false ( 0 -- )
THEN
;
: de-alias ( arg-str arg-len -- arg' len' )
BEGIN
over c@ [char] / <> dup IF drop 2dup sub-alias ?dup THEN
WHILE
2swap 2drop
REPEAT
;
: +indent ( not-last? -- )
IF s" |   " ELSE s"     " THEN $indent indent @ + swap move 4 indent +! ;
: -indent ( -- )  -4 indent +! ;
: ls-phandle ( node -- )  . ." :  " ;
: ls-node ( node -- )
cr dup ls-phandle
$indent indent @ type
dup peer IF ." |-- " ELSE ." +-- " THEN
node>qname type
;
: (ls) ( node -- )
child BEGIN dup WHILE dup ls-node dup child IF
dup peer +indent dup recurse -indent THEN peer REPEAT drop ;
: ls ( -- )
get-node cr
dup ls-phandle
dup node>path type
(ls)
0 indent !
;
: show-devs ( {device-specifier}<eol> -- )
skipws 0 parse dup IF de-alias ELSE 2drop s" /" THEN   ( str len )
find-node dup 0= ABORT" No such device path" (ls)
;
VARIABLE interpose-node
2VARIABLE interpose-args
: interpose ( arg len phandle -- )  interpose-node ! interpose-args 2! ;
0 VALUE user-instance-#units
CREATE user-instance-units 4 cells allot
: copy-instance-unit  ( -- )
user-instance-#units IF
user-instance-#units my-self instance>#units !
user-instance-units my-self instance>unit1 user-instance-#units cells move
0 to user-instance-#units
THEN
;
: open-node ( arg len phandle -- ihandle|0 )
current-node @ >r  my-self >r            \ Save current node and instance
set-node create-instance set-my-args
copy-instance-unit
s" open" get-node find-method IF execute ELSE TRUE THEN
0= IF
my-self destroy-instance 0 to my-self
THEN
my-self                                  ( ihandle|0 )
r> to my-self  r> set-node               \ Restore current node and instance
interpose-node @ IF
my-self >r to my-self
interpose-args 2@ interpose-node @
interpose-node off recurse
r> to my-self
THEN
;
: close-node ( ihandle -- )
my-self >r to my-self
s" close" ['] $call-my-method CATCH IF 2drop THEN
my-self destroy-instance r> to my-self ;
: close-dev ( ihandle -- )
my-self >r to my-self
BEGIN my-self WHILE my-parent my-self close-node to my-self REPEAT
r> to my-self ;
: new-device ( -- )
my-self new-node                     ( parent-ihandle phandle )
node>instance-template @             ( parent-ihandle ihandle )
dup to my-self                       ( parent-ihanlde ihandle )
instance>parent !
get-node my-self instance>node !
max-instance-size my-self instance>size !
;
: finish-device ( -- )
get-node >space? 0= IF
s" reg" get-node get-property 0= IF
decode-int set-space 2drop
THEN
THEN
finish-node my-parent to my-self
;
: extend-device  ( phandle -- )
my-self >r
dup set-node
node>instance-template @
dup to my-self
r> swap instance>parent !
;
: split ( str len char -- left len right len )
>r 2dup r> findchar IF >r over r@ 2swap r> 1+ /string ELSE 0 0 THEN ;
: generic-decode-unit ( str len ncells -- addr.lo ... addr.hi )
dup >r -rot BEGIN r@ WHILE r> 1- >r [char] , split 2swap
$number IF 0 THEN r> swap >r >r REPEAT r> 3drop
BEGIN dup WHILE 1- r> swap REPEAT drop ;
: generic-encode-unit ( addr.lo ... addr.hi ncells -- str len )
0 0 rot ?dup IF 0 ?DO rot (u.) $cat s" ," $cat LOOP 1- THEN ;
: hex-decode-unit ( str len ncells -- addr.lo ... addr.hi )
base @ >r hex generic-decode-unit r> base ! ;
: hex-encode-unit ( addr.lo ... addr.hi ncells -- str len )
base @ >r hex generic-encode-unit r> base ! ;
: hex64-decode-unit ( str len ncells -- addr.lo ... addr.hi )
dup 2 <> IF
hex-decode-unit
ELSE
drop
base @ >r hex
$number IF 0 0 ELSE xlsplit THEN
r> base !
THEN
;
: hex64-encode-unit ( addr.lo ... addr.hi ncells -- str len )
dup 2 <> IF
hex-encode-unit
ELSE
drop
base @ >r hex
lxjoin (u.)
r> base !
THEN
;
: handle-leading-/ ( path len -- path' len' )
dup IF over c@ [char] / = IF 1 /string device-tree @ set-node THEN THEN ;
: match-name ( name len node -- match? )
over 0= IF 3drop true EXIT THEN
s" name" rot get-property IF 2drop false EXIT THEN
1- string=ci ; \ XXX should use decode-string
0 VALUE #search-unit
CREATE search-unit 4 cells allot
: match-unit ( node -- match? )
dup >space? IF
node>space search-unit #search-unit 0 ?DO 2dup @ swap @ <> IF
2drop false UNLOOP EXIT THEN cell+ swap cell+ swap LOOP 2drop true
ELSE drop true THEN
;
: match-node ( name len node -- match? )
dup >r match-name r> match-unit and ; \ XXX e3d
: find-kid ( name len -- node|0 )
dup -1 = IF \ are we supposed to stay in the same node? -> resolve-relatives
2drop get-node
ELSE
get-node child >r BEGIN r@ WHILE 2dup r@ match-node
IF 2drop r> EXIT THEN r> peer >r REPEAT
r> 3drop false
THEN ;
: set-search-unit ( unit len -- )
0 to #search-unit
0 to user-instance-#units
dup 0= IF 2drop EXIT THEN
s" #address-cells" get-node get-property THROW
decode-int to #search-unit 2drop
s" decode-unit" get-node $call-static
#search-unit 0 ?DO search-unit i cells + ! LOOP
;
: resolve-relatives ( path len -- path' len' )
2dup 2 = swap s" .." comp 0= and IF
get-node parent ?dup IF
set-node drop -1
ELSE
s" Already in root node." type
THEN
THEN
2dup 1 = swap c@ [CHAR] . = and IF
drop -1
THEN
;
: set-instance-unit  ( unitaddr len -- )
dup 0= IF 2drop  0 to user-instance-#units  EXIT THEN
2dup 0 -rot bounds ?DO
i c@ [char] , = IF 1+ THEN      \ Count the commas
LOOP
1+ dup to user-instance-#units
hex-decode-unit
user-instance-#units 0 ?DO
user-instance-units i cells + !
LOOP
;
: split-component  ( path. -- path'. args. name. unit. )
[char] / split 2swap     ( path'. component. )
[char] : split 2swap     ( path'. args. name@unit. )
[char] @ split           ( path'. args. name. unit. )
;
: find-component  ( path len -- path' len' args len node|0 )
debug-find-component? IF
." find-component for " 2dup type cr
THEN
split-component           ( path'. args. name. unit. )
debug-find-component? IF
." -> unit  =" 2dup type cr
." -> stack =" .s cr
THEN
['] set-search-unit CATCH IF
." WARNING: Obsolete old wildcard hack " .s cr
set-instance-unit
THEN
resolve-relatives find-kid        ( path' len' args len node|0 )
dup IF dup >space? not #search-unit 0 > AND user-instance-#units 0= AND IF
#search-unit dup to user-instance-#units 0 ?DO
search-unit i cells + @ user-instance-units i cells + !
LOOP
THEN THEN
dup IF dup >space? user-instance-#units 0 > AND IF
cr ." find-component with unit mismatch!" .s cr
drop 0
THEN THEN
;
: .find-node ( path len -- phandle|0 )
current-node @ >r
handle-leading-/ current-node @ 0= IF 2drop r> set-node 0 EXIT THEN
BEGIN dup WHILE \ handle one component:
find-component ( path len args len node ) dup 0= IF
3drop 2drop r> set-node 0 EXIT THEN
set-node 2drop REPEAT 2drop
get-node r> set-node ;
' .find-node to find-node
: find-node ( path len -- phandle|0 ) de-alias find-node ;
: delete-node ( phandle -- )
dup node>instance-template @ max-instance-size free-mem
dup node>parent @ node>child @ ( phandle 1st peer )
2dup = IF
node>peer @ swap node>parent @ node>child !
EXIT
THEN
dup node>peer @
BEGIN
2 pick 2dup <>
WHILE
drop
nip dup node>peer @
dup 0= IF 2drop drop unloop EXIT THEN
REPEAT
drop
node>peer @  swap node>peer !
drop
;
: open-dev ( path len -- ihandle|0 )
0 to user-instance-#units
de-alias current-node @ >r
handle-leading-/ current-node @ 0= IF 2drop r> set-node 0 EXIT THEN
my-self >r
0 to my-self
0 0 >r >r
BEGIN
dup
WHILE \ handle one component:
( arg len ) r> r> get-node open-node to my-self
find-component ( path len args len node ) dup 0= IF
3drop 2drop my-self close-dev
r> to my-self
r> set-node
0 EXIT
THEN
set-node
>r >r
REPEAT
2drop
r> r> get-node open-node to my-self
my-self r> to my-self r> set-node
;
: select-dev  open-dev dup to my-self ihandle>phandle set-node ;
: unselect-dev  my-self close-dev  0 to my-self  device-end ;
: find-device ( str len -- ) \ set as active node
find-node dup 0= ABORT" No such device path" set-node ;
: dev  parse-word find-device ;
: (lsprop) ( node --)
dup cr $indent indent @ type ."     node: " node>qname type
false +indent (.properties) cr -indent
;
: (show-children) ( node -- )
child BEGIN
dup
WHILE
dup (lsprop) dup child IF false +indent dup recurse -indent THEN peer
REPEAT
drop
;
: lsprop ( {device-specifier}<eol> -- )
skipws 0 parse dup IF de-alias ELSE 2drop s" /" THEN
find-device get-node dup dup
cr ." node: " node>path type (.properties) cr (show-children)
0 indent !
;
: (node>path) node>path ;
: node>path ( phandle -- str len )
node>path dup allot
;
0 VALUE packages
: find-package  ( name len -- false | phandle true )
dup 0 <= IF
2drop FALSE EXIT
THEN
over c@ [char] / = IF
find-node dup IF TRUE THEN EXIT
THEN
0 >r packages child
BEGIN
dup
WHILE
dup >r node>name 2over string=ci r> swap IF
r> drop dup >r
THEN
peer
REPEAT
3drop
r> dup IF true THEN
;
: open-package ( arg len phandle -- ihandle | 0 )  open-node ;
: close-package ( ihandle -- )  close-node ;
: $open-package ( arg len name len -- ihandle | 0 )
find-package IF open-package ELSE 2drop false THEN ;
: pci-address-type  ( node address prop_type -- type )
-rot 2 pick ( prop_type node address prop_type )
0= IF
swap s" reg" rot get-property  ( prop_type address data dlen false )
ELSE
swap s" assigned-addresses" rot get-property  ( prop_type address data dlen false )
THEN
IF  2drop -1  EXIT  THEN  4 / 5 /
0 DO
dup l@ FF AND 0<> ( prop_type address data cfgspace_offset? )
3 pick 0= ( prop_type address data cfgspace_offset? reg_prop? )
AND NOT IF 
2dup 4 + ( prop_type address data address data' )
2dup @ 2 pick 8 + @ + <= -rot @  >= and  IF
l@ 03000000 and 18 rshift nip
swap drop ( type )
UNLOOP EXIT
THEN
THEN
4 5 * +
LOOP
3drop -1
;
: (range-read-cells)  ( range-addr #cells -- range-value )
1 =  IF  l@  ELSE  @  THEN
;
: (map-one-range)  ( type range pnac nsc nac address -- address true | address false )
over 3 = 5 pick l@ 3000000 and 18 rshift 7 pick <> and  IF
>r 2drop 3drop r> false EXIT
THEN
4 pick 4 pick 3 pick + 4 * +
3 pick
(range-read-cells)
5 pick 3 pick 3 =  IF
4 +
THEN
3 pick
(range-read-cells)
dup >r dup 3 pick > >r + over <= r> or  IF
>r 2drop 3drop r> r> drop false EXIT
THEN
dup r> -
5 pick 5 pick 3 =  IF
4 +
THEN
3 pick 4 * +
5 pick
(range-read-cells)
+ >r 3drop 3drop r> true
;
: translate-address  ( node address -- address )
2dup 1 pci-address-type  ( node address type )
dup -1 = IF
drop 2dup 0 pci-address-type ( node address type )
THEN
rot parent BEGIN
dup parent 0=  IF  2drop EXIT  THEN
s" #address-cells" 2 pick get-property 2drop l@ >r        \ nac
s" #size-cells" 2 pick get-property 2drop l@ >r           \ nsc
s" #address-cells" 2 pick parent get-property 2drop l@ >r \ pnac
-rot ( node address type )
s" ranges" 4 pick get-property  IF
3drop
ABORT" no ranges property; not translatable"
THEN
r> r> r> 3 roll
4 / >r 3dup + + >r 5 roll r> r> swap / 0 ?DO
6dup (map-one-range) IF
nip leave
THEN
nip
4 roll
4 pick 4 pick 4 pick + + 4 * + 4 -roll
LOOP
>r 2drop 2drop r> ( node type address )
swap rot parent ( address type node )
dup 0=
UNTIL
;
: translate-my-address  ( address -- address' )
get-node swap translate-address
;
: find-substr ( basestr-ptr basestr-len substr-ptr substr-len -- pos )
dup 0 = IF
2drop 2drop 0 exit THEN
dup 3 pick <= IF
2 pick over - 1+ 0 DO dup 0 DO
over i + c@ 4 pick j + i + c@ = IF
dup i 1+ = IF
2drop 2drop j unloop unloop exit THEN
ELSE leave THEN
LOOP LOOP
THEN
2drop nip
;
: find-isubstr ( basestr-ptr basestr-len substr-ptr substr-len -- pos )
dup 0 = IF
2drop 2drop 0 exit THEN
dup 3 pick <= IF
2 pick over - 1+ 0 DO dup 0 DO
over i + c@ lcc 4 pick j + i + c@ lcc = IF
dup i 1+ = IF
2drop 2drop j unloop unloop exit THEN
ELSE leave THEN
LOOP LOOP
THEN
2drop nip
;
: find-nextline ( str-ptr str-len -- pos )
dup 0 ?DO over i + c@ CASE
0a OF
dup 1- i = IF
2drop i 1+ unloop exit THEN
over i 1+ + c@ 0d = IF
2drop i 2+ ELSE
2drop i 1+ THEN
unloop exit
ENDOF
0d OF
dup 1- i = IF
2drop i 1+ unloop exit THEN
over i 1+ + c@ 0a = IF
2drop i 2+ ELSE
2drop i 1+ THEN
unloop exit
ENDOF
ENDCASE LOOP nip
;
: string-at ( str1-ptr str1-len pos -- str2-ptr str2-len )
-rot 2 pick - -rot swap chars + swap
;
: string-cat ( addr1 len1 addr2 len2 -- addr1 len1+len2 )
rot dup >r over + -rot
3 pick r> chars + -rot
0 ?DO
2dup c@ swap c!
char+ swap char+ swap
LOOP 2drop
;
: char-cat ( addr len character -- addr len+1 )
-rot 2dup >r >r 1+ rot r> r> chars + c!
;
: overlap ( src dest size -- true|false )
3dup over + within IF 3drop true ELSE rot tuck + within THEN
;
: parse-2int ( str len -- val.lo val.hi )
[char] , split ?dup IF eval ELSE drop 0 THEN
-rot ?dup IF eval ELSE drop 0 THEN
;
: cpeek ( addr -- false | byte true ) c@ true ;
: cpoke ( byte addr -- success? ) c! true ;
: wpeek ( addr -- false | word true ) w@ true ;
: wpoke ( word addr -- success? ) w! true ;
: lpeek ( addr -- false | lword true ) l@ true ;
: lpoke ( lword addr -- success? ) l! true ;
defer reboot ( -- )
defer halt ( -- )
defer disable-watchdog ( -- )
defer reset-watchdog ( -- )
defer set-watchdog ( +n -- )
defer set-led ( type instance state -- status )
defer get-flashside ( -- side )
defer set-flashside ( side -- status )
defer read-bootlist ( -- )
defer furnish-boot-file ( -- adr len )
defer set-boot-file ( adr len -- )
defer mfg-mode? ( -- flag )
defer of-prompt? ( -- flag )
defer debug-boot? ( -- flag )
defer bmc-version ( -- adr len )
defer cursor-on ( -- )
defer cursor-off ( -- )
: nop-reboot ( -- ) ." reboot not available" abort ;
: nop-halt ( -- ) ." halt not available" abort ;
: nop-disable-watchdog ( -- )  ;
: nop-reset-watchdog ( -- )  ;
: nop-set-watchdog ( +n -- ) drop ;
: nop-set-led ( type instance state -- status ) drop drop drop ;
: nop-get-flashside ( -- side ) ." Cannot get flashside" cr ABORT ;
: nop-set-flashside ( side -- status ) ." Cannot set flashside" cr ABORT ;
: nop-read-bootlist ( -- ) ;
: nop-furnish-bootfile ( -- adr len ) s" net:" ;
: nop-set-boot-file ( adr len -- ) 2drop ;
: nop-mfg-mode? ( -- flag ) false ;
: nop-of-prompt? ( -- flag ) false ;
: nop-debug-boot? ( -- flag ) false ;
: nop-bmc-version ( -- adr len ) s" XXXXX" ;
: nop-cursor-on ( -- ) ;
: nop-cursor-off ( -- ) ;
' nop-reboot to reboot
' nop-halt to halt
' nop-disable-watchdog to disable-watchdog
' nop-reset-watchdog   to reset-watchdog
' nop-set-watchdog     to set-watchdog
' nop-set-led          to set-led
' nop-get-flashside    to get-flashside
' nop-set-flashside    to set-flashside
' nop-read-bootlist    to read-bootlist
' nop-furnish-bootfile to furnish-boot-file
' nop-set-boot-file    to set-boot-file
' nop-mfg-mode?        to mfg-mode?
' nop-of-prompt?       to of-prompt?
' nop-debug-boot?      to debug-boot?
' nop-bmc-version      to bmc-version
' nop-cursor-on        to cursor-on
' nop-cursor-off       to cursor-off
: reset-all reboot ;
10000000 VALUE default-load-base
2000000 VALUE flash-load-base
0 VALUE load-base-override
: get-load-base
load-base-override 0<> IF load-base-override ELSE
" load-base" evaluate 
THEN
;
: xt>name ( xt -- str len )
BEGIN
cell - dup c@ 0 2 within IF
dup 2+ swap 1+ c@ exit
THEN
AGAIN
;
cell -1 * CONSTANT -cell
: cell- ( n -- n-cell-size )
[ cell -1 * ] LITERAL +
;
: find-xt-addr ( addr -- xt )
BEGIN
dup @ <colon> = IF
EXIT
THEN
cell-
AGAIN
;
: (.immediate) ( xt -- )
xt>name drop 2 - c@ \ skip len and flags
immediate? IF
."  IMMEDIATE"
THEN
;
: (.xt) ( xt -- )
xt>name type
;
: trace-back (  )
1
BEGIN
cr dup dup . ."  : " rpick dup . ."  : "
['] tib here within IF
dup rpick find-xt-addr (.xt)
THEN
1+ dup rdepth 5 - >= IF cr drop EXIT THEN
AGAIN
;
VARIABLE see-my-type-column
: (see-my-type) ( indent limit xt str len -- indent limit xt )
dup see-my-type-column @ + dup 50 >= IF
-rot over "  " comp 0= IF
2drop see-my-type-column !
ELSE
rot drop                     ( indent limit xt str len )
pocket swap 2dup >r >r       ( indent limit xt str pk len  R: len pk )
move r> r>                   ( indent limit xt pk len )
2 pick (u.) dup -rot
cr type                      ( indent limit xt pk len xt-len )
" :" type 1+                 ( indent limit xt pk len prefix-len )
5 pick dup spaces +          ( indent limit xt pk len prefix-len )
over + see-my-type-column !  ( indent limit xt pk len )
type
THEN                            ( indent limit xt )
ELSE
see-my-type-column ! type       ( indent limit xt )
THEN
;
: (see-my-type-init) ( -- )
ffff see-my-type-column !        \ just enforce a new line
;
: (see-colon-body) ( indent limit xt -- indent limit xt )
(see-my-type-init)                              \ enforce new line
BEGIN                                           ( indent limit xt )
cell+ 2dup <>
over @
dup <semicolon> <>
rot and			                   ( indent limit xt @xt flag )
WHILE                                           ( indent limit xt @xt )
xt>name (see-my-type) "  " (see-my-type)
dup @                                        ( indent limit xt @xt)
CASE
<0branch>  OF cell+ dup @
over + cell+ dup >r
(u.) (see-my-type) r>          ( indent limit xt target)
2dup < IF
over 4 pick 3 + -rot recurse
nip nip nip cell-           ( indent limit xt )
ELSE
drop                        ( indent limit xt )
THEN
(see-my-type-init) ENDOF       \ enforce new line
<branch>   OF cell+ dup @ over + cell+ (u.)
(see-my-type) "  " (see-my-type) ENDOF
<do?do>    OF cell+ dup @ (u.) (see-my-type)
"  " (see-my-type) ENDOF
<lit>      OF cell+ dup @ (u.) (see-my-type)
"  " (see-my-type) ENDOF
<dotick>   OF cell+ dup @ xt>name (see-my-type)
"  " (see-my-type) ENDOF
<doloop>   OF cell+ dup @ (u.) (see-my-type)
"  " (see-my-type) ENDOF
<do+loop>  OF cell+ dup @ (u.) (see-my-type)
"  " (see-my-type) ENDOF
<doleave>  OF cell+ dup @ over + cell+ (u.)
(see-my-type) "  " (see-my-type) ENDOF
<do?leave> OF cell+ dup @ over + cell+ (u.)
(see-my-type) "  " (see-my-type) ENDOF
<sliteral> OF cell+ " """ (see-my-type) dup count dup >r
(see-my-type) " """ (see-my-type)
"  " (see-my-type)
r> -cell and + ENDOF
ENDCASE
REPEAT
drop
;
: (see-colon) ( xt -- )
(see-my-type-init)
1 swap 0 swap                                    ( indent limit xt )
" : " (see-my-type) dup xt>name (see-my-type)
rot drop 4 -rot (see-colon-body)                 ( indent limit xt )
rot drop 1 -rot (see-my-type-init) " ;" (see-my-type)
3drop 
;
: (see-create) ( xt -- )
dup cell+ @
CASE
<2constant> OF
dup cell+ cell+ dup @ swap cell+ @ . .  ." 2CONSTANT "
ENDOF
<instancevalue> OF
dup cell+ cell+ @ . ." INSTANCE VALUE "
ENDOF
<instancevariable> OF
." INSTANCE VARIABLE "
ENDOF
dup OF
." CREATE "
ENDOF
ENDCASE
(.xt)
;
: (see) ( xt -- )
cr dup dup @
CASE
<variable> OF ." VARIABLE " (.xt) ENDOF
<value>    OF dup execute . ." VALUE " (.xt) ENDOF
<constant> OF dup execute . ." CONSTANT " (.xt) ENDOF
<defer>    OF dup cell+ @ swap ." DEFER " (.xt) ."  is " (.xt) ENDOF
<alias>    OF dup cell+ @ swap ." ALIAS " (.xt) ."  " (.xt) ENDOF
<buffer:>  OF ." BUFFER: " (.xt) ENDOF
<create>   OF (see-create) ENDOF
<colon>    OF (see-colon)  ENDOF
dup        OF ." ??? PRIM " (.xt) ENDOF
ENDCASE
(.immediate) cr
;
: see ( "old-name<>" -- )
' (see)
;
0    value forth-ip
true value trace>stepping?
true value trace>print?
true value trace>up?
0    value trace>depth
0    value trace>rdepth
0    value trace>recurse
: trace-depth+ ( -- ) trace>depth 1+ to trace>depth ;
: trace-depth- ( -- ) trace>depth 1- to trace>depth ;
: stepping ( -- )
true to trace>stepping?
;
: tracing ( -- )
false to trace>stepping?
;
: trace-print-on ( -- )
true to trace>print?
;
: trace-print-off ( -- )
false to trace>print?
;
: fip-add ( n -- )
forth-ip + to forth-ip
;
0 value debug-last-xt
0 value debug-last-xt-content
: trace-print ( -- )
forth-ip cr u. ." : "
forth-ip @ 
dup ['] breakpoint = IF drop debug-last-xt-content THEN
xt>name type ."  "
."     ( " .s  ."  )  | "
;
: trace-interpret ( -- )
rdepth 1- to trace>rdepth
BEGIN
depth . [char] > dup emit emit space
source expect                        ( str len )
['] interpret catch print-status
AGAIN
;
: trace-xt ( xt -- )
trace>recurse IF
r> drop                                \ Drop return of 'trace-xt call
cell+                                  \ Step over ":"
ELSE
debug-last-xt-content <colon> = IF
['] breakpoint @ debug-last-xt !    \ Re-arm break point
r> drop                             \ Drop return of 'trace-xt call
cell+                               \ Step over ":"
ELSE
['] breakpoint debug-last-xt !      \ Re-arm break point
2r> 2drop
THEN
THEN
to forth-ip
true to trace>print?
BEGIN
trace>print? IF trace-print THEN
forth-ip                                              ( ip )
trace>stepping? IF
BEGIN
key
CASE
[char] d OF dup @ @ <colon> = IF             \ recurse only into colon definitions
trace-depth+
1 to trace>recurse
dup >r @ recurse
THEN true ENDOF
[char] u OF trace>depth IF tracing trace-print-off true ELSE false THEN ENDOF
[char] f OF drop cr trace-interpret ENDOF	\ quit trace and start interpreter FIXME rstack
[char] c OF tracing true ENDOF
[char] t OF trace-back false ENDOF
[char] q OF drop cr quit ENDOF
20       OF true ENDOF
dup      OF cr ." Press d:       Down into current word" cr
." Press u:       Up to caller" cr
." Press f:       Switch to forth interpreter, 'resume' will continue tracing" cr
." Press c:       Switch to tracing" cr
." Press <space>: Execute current word" cr
." Press q:       Abort execution, switch to interpreter" cr
false ENDOF
ENDCASE
UNTIL
THEN	                                              ( ip' )
dup to forth-ip @                                      ( xt )
dup ['] breakpoint = IF drop debug-last-xt-content THEN
dup                                                    ( xt xt )
CASE
<sliteral>  OF drop forth-ip cell+ dup dup c@ + -cell and to forth-ip ENDOF
<dotick>    OF drop forth-ip cell+ @ cell fip-add ENDOF
<lit>       OF drop forth-ip cell+ @ cell fip-add ENDOF
<doto>      OF drop forth-ip cell+ @ cell+ ! cell fip-add ENDOF
<(doito)>   OF drop forth-ip cell+ @ cell+ cell+ @ >instance ! cell fip-add ENDOF
<0branch>   OF drop IF
cell fip-add
ELSE
forth-ip cell+ @ cell+ fip-add THEN
ENDOF
<do?do>     OF drop 2dup <> IF
swap >r >r cell fip-add
ELSE
forth-ip cell+ @ cell+ fip-add 2drop THEN
ENDOF
<branch>    OF drop forth-ip cell+ @ cell+ fip-add ENDOF
<doleave>   OF drop r> r> 2drop forth-ip cell+ @ cell+ fip-add ENDOF		
<do?leave>  OF drop IF
r> r> 2drop forth-ip cell+ @ cell+ fip-add
ELSE
cell fip-add
THEN
ENDOF		
<doloop>    OF drop r> 1+ r> 2dup = IF
2drop cell fip-add
ELSE >r >r
forth-ip cell+ @ cell+ fip-add THEN
ENDOF
<do+loop>   OF drop r> + r> 2dup >= IF
2drop cell fip-add
ELSE >r >r
forth-ip cell+ @ cell+ fip-add THEN
ENDOF
<semicolon> OF trace>depth 0> IF
trace-depth- 1 to trace>recurse
stepping drop r> recurse
ELSE
drop exit THEN
ENDOF
<exit>      OF trace>depth 0> IF
trace-depth- stepping drop r> recurse
ELSE
drop exit THEN
ENDOF
dup         OF execute ENDOF
ENDCASE
forth-ip cell+ to forth-ip
AGAIN
;
: resume ( -- )
trace>rdepth rdepth!
forth-ip cell - trace-xt
;
: debug-off ( -- )
debug-last-xt IF
debug-last-xt-content debug-last-xt !  \ Restore overwritten token
0 to debug-last-xt
THEN
;
: (break-entry) ( -- )
debug-last-xt dup @ ['] breakpoint <> swap  ( debug-addr? debug-last-xt )
debug-last-xt-content swap !                \ Restore overwritten token
r> drop                                     \ Don't return to bp, but to caller
debug-last-xt-content <colon> <> and IF     \ Execute non colon definition
debug-last-xt cr u. ." : "
debug-last-xt xt>name type ."  "
."     ( " .s  ."  )  | "
key drop
debug-last-xt execute
ELSE
debug-last-xt 0 to trace>depth 0 to trace>recurse trace-xt   \ Trace colon definition
THEN
;
' (break-entry) to BP
: debug-address ( addr --  )
debug-off                       ( xt )  \ Remove active breakpoint
dup to debug-last-xt            ( xt )  \ Save token for later debug
dup @ to debug-last-xt-content  ( xt )  \ Save old value
['] breakpoint swap !
;
: (debug ( xt --  )
debug-off                       ( xt )  \ Remove active breakpoint
dup to debug-last-xt            ( xt )  \ Save token for later debug
dup @ to debug-last-xt-content  ( xt )  \ Save old value
['] breakpoint @ swap !
;
: debug ( "old-name<>" -- )
parse-word $find IF                       \ Get xt for old-name
(debug
ELSE
." undefined word " type cr
THEN
;
: words
last @
BEGIN ?dup WHILE
dup cell+ char+ count type space @
REPEAT
;
: .calls    ( xt -- )
current-node @ >r 0 set-node    \ only search commands, according too IEEE1275
last BEGIN @ ?dup WHILE    ( xt currxt )
dup cell+ char+         ( xt currxt name* )
dup dup c@ + 1+ aligned ( xt currxt name* CFA )
dup @ <colon> = IF      ( xt currxt name* CFA )
BEGIN
cell+ dup @ ['] semicolon <>
WHILE		      ( xt currxt *name pos )
dup @ 4 pick = IF ( xt currxt *name pos )
over count type space
BEGIN cell+ dup @ ['] semicolon = UNTIL cell - \ eat up other occurrences
THEN
REPEAT
THEN
2drop ( xt currxt )
REPEAT
drop
r> set-node		   \ restore node
;
0 value #sift-count
false value sift-compl-only
: $inner-sift ( text-addr text-len LFA -- ... word-addr word-len true | false )
dup cell+ char+ count           \ get word name
2dup 6 pick 6 pick find-isubstr \ is there a partly match?
sift-compl-only IF 0= ELSE over < THEN
IF
#sift-count 1+ to #sift-count \ count completions
true
ELSE
2drop false
THEN
;
: $sift    ( text-addr text-len -- )
current-node @ >r 0 set-node	\ only search commands, according too IEEE1275
sift-compl-only >r false to sift-compl-only \ all substrings, not only compl.
last BEGIN @ ?dup WHILE	\ walk the whole dictionary
$inner-sift IF type space THEN
REPEAT
2drop
0 to #sift-count	   \ we don't need completions here.
r> to sift-compl-only    \ restore previous sifting mode
r> set-node		   \ restore node
;
: sifting    ( "text< >" -- )
parse-word $sift
;
: ([IF])
BEGIN
BEGIN parse-word dup 0= WHILE
2drop refill
REPEAT
2dup s" [IF]" str= IF 1 throw THEN
2dup s" [ELSE]" str= IF 2 throw THEN
2dup s" [THEN]" str= IF 3 throw THEN
s" \" str= IF linefeed parse 2drop THEN
AGAIN
;
: [IF] ( flag -- )
IF exit THEN
1 BEGIN
['] ([IF]) catch 
CASE
1 OF 1+ ENDOF
2 OF dup 1 = if 1- then ENDOF
3 OF 1- ENDOF
ENDCASE
dup 0 <=
UNTIL drop
; immediate
: [ELSE] 0 [COMPILE] [IF] ; immediate
: [THEN] ; immediate
: $dnumber base @ >r decimal $number r> base ! ;
: (.d) base @ >r decimal (.) r> base ! ;
4000 to default-load-base
deadbeef here l!
here c@ de = CONSTANT ?bigendian
here c@ ef = CONSTANT ?littleendian
?bigendian [IF]
: x!-le >r xbflip r> x! ;
: x@-le x@ xbflip ;
: l!-le  >r lbflip r> l! ;
: l@-le  l@ lbflip ;
: w!-le  >r wbflip r> w! ;
: w@-le  w@ wbflip ;
: rx!-le  >r xbflip r> rx! ;
: rx@-le  rx@ xbflip ;
: rl!-le  >r lbflip r> rl! ;
: rl@-le  rl@ lbflip ;
: rw!-le  >r wbflip r> rw! ;
: rw@-le  rw@ wbflip ;
: l!-be  l! ;
: l@-be  l@ ;
: w!-be  w! ;
: w@-be  w@ ;
: rl!-be  rl! ;
: rl@-be  rl@ ;
: rw!-be  rw! ;
: rw@-be  rw@ ;
[ELSE]
: x!-le x! ;
: x@-le x@ ;
: l!-le  l! ;
: l@-le  l@ ;
: w!-le  w! ;
: w@-le  w@ ;
: rx!-le  rx! ;
: rx@-le  rx@ ;
: rl!-le  rl! ;
: rl@-le  rl@ ;
: rw!-le  rw! ;
: rw@-le  rw@ ;
: l!-be  >r lbflip r> l! ;
: l@-be  l@ lbflip ;
: w!-be  >r wbflip r> w! ;
: w@-be  w@ wbflip ;
: rl!-be  >r lbflip r> rl! ;
: rl@-be  rl@ lbflip ;
: rw!-be  >r wbflip r> rw! ;
: rw@-be  rw@ wbflip ;
[THEN]
: #join  ( lo hi #bits -- x )  lshift or ;
: #split ( x #bits -- lo hi )  2dup rshift dup >r swap lshift xor r> ;
: blink ;
: reset-dual-emit ;
: console-clean-fifo ;
: bootmsg-nvupdate ;
: asm-cout 2drop drop ;
defer nvramlog-write-byte
: .nvramlog-write-byte ( byte -- )
drop
;
' .nvramlog-write-byte to nvramlog-write-byte
: nvramlog-write-string ( str len -- )
dup 0> IF
0 DO dup c@ 
nvramlog-write-byte char+ LOOP
ELSE
drop
THEN drop ;
: nvramlog-write-number ( number format -- )
0 swap <# 0 ?DO # LOOP #> 
nvramlog-write-string ;
: nvramlog-write-string-cr ( str len -- )
nvramlog-write-string
a nvramlog-write-byte d nvramlog-write-byte ;
: log-string ( str len -- ) type ;
: log-string 2drop ;
create debugstr 255 allot
0 VALUE debuglen
: cp ( checkpoint -- )
bootmsg-cp ;
: (warning) ( id level ptr len -- )
dup TO debuglen
debugstr swap move           \ copy into buffer
0 debuglen debugstr + c!     \ terminate '\0'
debugstr bootmsg-warning
;
: warning" ( id level [text<">] -- )
postpone s" state @
IF
['] (warning) compile,
ELSE
(warning)
THEN
; immediate
: (debug-cp) ( id level ptr len -- )
dup TO debuglen
debugstr swap move           \ copy into buffer
0 debuglen debugstr + c!     \ terminate '\0'
debugstr bootmsg-debugcp
;
: debug-cp" ( id level [text<">] -- )
postpone s" state @
IF
['] (debug-cp) compile,
ELSE
(debug-cp)
THEN
; immediate
: (error) ( id ptr len -- )
dup TO debuglen
debugstr swap move           \ copy into buffer
0 debuglen debugstr + c!     \ terminate '\0'
debugstr bootmsg-error
;
: error" ( id level [text<">] -- )
postpone s" state @
IF
['] (error) compile,
ELSE
(error)
THEN
; immediate
bootmsg-nvupdate
000 cp
STRUCT
cell FIELD >r0   cell FIELD >r1   cell FIELD >r2   cell FIELD >r3
cell FIELD >r4   cell FIELD >r5   cell FIELD >r6   cell FIELD >r7
cell FIELD >r8   cell FIELD >r9   cell FIELD >r10  cell FIELD >r11
cell FIELD >r12  cell FIELD >r13  cell FIELD >r14  cell FIELD >r15
cell FIELD >r16  cell FIELD >r17  cell FIELD >r18  cell FIELD >r19
cell FIELD >r20  cell FIELD >r21  cell FIELD >r22  cell FIELD >r23
cell FIELD >r24  cell FIELD >r25  cell FIELD >r26  cell FIELD >r27
cell FIELD >r28  cell FIELD >r29  cell FIELD >r30  cell FIELD >r31
cell FIELD >cr   cell FIELD >xer  cell FIELD >lr   cell FIELD >ctr
cell FIELD >srr0 cell FIELD >srr1 cell FIELD >dar  cell FIELD >dsisr
CONSTANT ciregs-size
: .16  10 0.r 3 spaces ;
: .8   8 spaces 8 0.r 3 spaces ;
: .4regs  cr 4 0 DO dup @ .16 8 cells+ LOOP drop ;
: .fixed-regs
cr ."     R0 .. R7           R8 .. R15         R16 .. R23         R24 .. R31"
dup 8 0 DO dup .4regs cell+ LOOP drop
;
: .special-regs
cr ."     CR / XER           LR / CTR          SRR0 / SRR1        DAR / DSISR"
cr dup >cr  @ .8   dup >lr  @ .16  dup >srr0 @ .16  dup >dar @ .16
cr dup >xer @ .16  dup >ctr @ .16  dup >srr1 @ .16    >dsisr @ .8
;
: .regs
cr .fixed-regs
cr .special-regs
cr cr
;
: .hw-exception ( reason-code exception-nr -- )
." ( " dup . ." ) "
CASE
200 OF ." Machine Check" ENDOF
300 OF ." Data Storage" ENDOF
380 OF ." Data Segment" ENDOF
400 OF ." Instruction Storage" ENDOF
480 OF ." Instruction Segment" ENDOF
500 OF ." External" ENDOF
600 OF ." Alignment" ENDOF
700 OF ." Program" ENDOF
800 OF ." Floating-point unavailable" ENDOF
900 OF ." Decrementer" ENDOF
980 OF ." Hypervisor Decrementer" ENDOF
C00 OF ." System Call" ENDOF
D00 OF ." Trace" ENDOF
F00 OF ." Performance Monitor" ENDOF
F20 OF ." VMX Unavailable" ENDOF
1200 OF ." System Error" ENDOF
1600 OF ." Maintenance" ENDOF
1800 OF ." Thermal" ENDOF
dup OF ." Unknown" ENDOF
ENDCASE
."  Exception [ " . ." ]"
;
: .sw-exception ( exception-nr -- )
."  Exception [ " . ." ] triggered by boot firmware."
;
: be-hw-exception ( [reason-code] exception-nr -- )
cr cr
dup 0> IF .hw-exception ELSE .sw-exception THEN
cr eregs .regs
;
' be-hw-exception to hw-exception-handler
: (boot-exception-handler) ( x1...xn exception-nr -- x1...xn)
dup IF
dup 0 > IF
negate cp 9 emit ." : " type
ELSE
CASE
-6d OF cr ." W3411: Client application returned." cr ENDOF
-6c OF cr ." E3400: It was not possible to boot from any device "
." specified in the VPD." cr
ENDOF
-6b OF cr ." E3410: Boot list successfully read from VPD "
." but no useful information received." cr
ENDOF
-6a OF cr ." E3420: Boot list could not be read from VPD." cr
ENDOF
-69 OF
cr ." E3406: Client application returned an error"
abort"-str @ count dup IF
." :    " type cr
ELSE
." ." cr
2drop
THEN
ENDOF
-68 OF cr ." E3405: No such device" cr ENDOF
-67 OF cr ." E3404: Not a bootable device!" cr ENDOF
-66 OF cr ." E3408: Failed to claim memory for the executable" cr
ENDOF
-65 OF cr ." E3407: Load failed" cr ENDOF
-64 OF cr ." E3403: Bad executable:   " abort"-str @ count type cr
ENDOF
-63 OF cr ." E3409: Unknown FORTH Word" cr ENDOF
-2 OF cr ." E3401: Aborting boot,  " abort"-str @ count type cr
ENDOF
dup OF ." E3402: Aborting boot, internal error" cr ENDOF
ENDCASE
THEN
ELSE
drop
THEN
;
' (boot-exception-handler) to boot-exception-handler
: throw-error ( error-code "error-string" -- )
skipws 0a parse rot throw
;
: enable-ext-int ( -- )
msr@ 8000 or msr!
;
: disable-ext-int ( -- )
msr@ 8000 not and msr!
;
: gen-ext-int ( -- )
7fffffff dec!               \ Reset decrementer
enable-ext-int              \ Enable interrupt
FF 20000508418 rx!          \ Interrupt priority mask
10 20000508410 rx!          \ Interrupt priority
;
: mm-log-warning 2drop ;
: write-mm-log ( data length type -- status )
3drop 0
;
100 cp
: beep  bell emit ;
: TABLE-EXECUTE
CREATE DOES> swap cells+ @ ?dup IF execute ELSE beep THEN ;
0 VALUE accept-adr
0 VALUE accept-max
0 VALUE accept-len
0 VALUE accept-cur
: esc  1b emit ;
: csi  esc 5b emit ;
: move-cursor ( -- )
esc ." 8" accept-cur IF
csi base @ decimal accept-cur 0 .r base ! ." C"
THEN
;
: redraw-line ( -- )
accept-cur accept-len = IF EXIT THEN
move-cursor
accept-adr accept-len accept-cur /string type
csi ." K" move-cursor
;
: full-redraw-line ( -- )
accept-cur 0 to accept-cur move-cursor
accept-adr accept-len type
csi ." K" to accept-cur move-cursor
;
: redraw-prompt ( -- )
cr depth . [char] > emit
;
: insert-char ( char -- )
accept-len accept-max = IF drop beep EXIT THEN
accept-cur accept-len <> IF csi ." @" dup emit
accept-adr accept-cur + dup 1+ accept-len accept-cur - move
ELSE dup emit THEN
accept-adr accept-cur + c!
accept-cur 1+ to accept-cur
accept-len 1+ to accept-len redraw-line
;
: delete-char ( -- )
accept-cur accept-len = IF beep EXIT THEN
accept-len 1- to accept-len
accept-adr accept-cur + dup 1+ swap accept-len accept-cur - move
csi ." P" redraw-line
;
STRUCT
cell FIELD his>next
cell FIELD his>prev
cell FIELD his>len
0 FIELD his>buf
CONSTANT /his
0 VALUE his-head
0 VALUE his-tail
0 VALUE his-cur
: add-history ( -- )
accept-len 0= IF EXIT THEN
/his accept-len + alloc-mem
his-tail IF dup his-tail his>next ! ELSE dup to his-head THEN
his-tail over his>prev !  0 over his>next !  dup to his-tail
accept-len over his>len !  accept-adr swap his>buf accept-len move
;
: history  ( -- )
his-head BEGIN dup WHILE
cr dup his>buf over his>len @ type
his>next @ REPEAT drop
;
: select-history ( his -- )
dup to his-cur dup IF
dup his>len @ accept-max min dup to accept-len to accept-cur
his>buf accept-adr accept-len move ELSE
drop 0 to accept-len 0 to accept-cur THEN
full-redraw-line
;
0 value ?tab-pressed
0 value tab-last-adr
0 value tab-last-len
: $same-string ( addr-1 len-1 addr-2 len-2 -- addr-1 len-1' )
dup 0= IF    \ The second parameter is not a string.
2drop EXIT \ bail out
THEN
rot min 0 0 -rot ( addr1 addr2 0 len' 0 )
DO ( addr1 addr2 len-1' )
2 pick i + c@ lcc
2 pick i + c@ lcc
= IF 1 + ELSE leave THEN
LOOP
nip
;
: $tab-sift-words    ( text-addr text-len -- sift-count )
sift-compl-only >r true to sift-compl-only \ save sifting mode
last BEGIN @ ?dup WHILE \ loop over all words
$inner-sift IF \ any completions possible?
2dup bounds DO I c@ lcc I c! LOOP
?tab-pressed IF 2dup type space THEN  \ <tab><tab> prints possibilities
tab-last-adr tab-last-len $same-string \ find matching substring ...
to tab-last-len to tab-last-adr       \ ... and save it
THEN
repeat
2drop
#sift-count 0 to #sift-count	\ how many words were found?
r> to sift-compl-only		\ restore sifting completion mode
;
0 value current-stack
: new-stack ( cells <>name -- )
create >r here    ( here R: cells )
dup r@ 2 + cells  ( here here bytes R: cells )
dup allot erase   ( here R: cells)
cell+ r>          ( here+1cell cells )
swap !            ( )
DOES> to current-stack
;
: reset-stack ( -- )
0 current-stack !
;
: stack-depth ( -- depth )
current-stack @
;
: push ( value -- )
current-stack @
current-stack cell+ @ over <= ABORT" Stack overflow"
cells
1 current-stack +!
current-stack 2 cells + + !
;
: pop ( -- value )
current-stack @ 0= ABORT" Stack underflow"
current-stack @ cells
current-stack + cell+ @
-1 current-stack +!
;
10 new-stack device-stack
: (next-dev) ( node -- node' addr len )
device-stack
dup (node>path) rot
dup child IF dup push child -rot EXIT THEN
dup peer IF peer -rot EXIT THEN
drop
BEGIN
stack-depth
WHILE
pop peer ?dup IF -rot EXIT THEN
REPEAT
0 -rot
;
: $inner-sift-nodes ( text-addr text-len node -- ... path-addr path-len true | false )
(next-dev) ( text-addr text-len node' path-addr path-len )
dup 0= IF drop false EXIT THEN
2dup 6 pick 6 pick find-isubstr ( text-addr text-len node' path-addr path-len pos )
0= IF
#sift-count 1+ to #sift-count \ count completions
true
ELSE
2drop false
THEN
;
: .nodes ( -- )
s" /" find-node BEGIN dup WHILE
(next-dev)
type cr
REPEAT
drop
reset-stack
;
create sift-node-buffer 1000 allot
0 value sift-node-num
: sift-node-buffer
sift-node-buffer sift-node-num 100 * +
sift-node-num 1+ dup 10 = IF drop 0 THEN
to sift-node-num
;
: $tab-sift-nodes    ( text-addr text-len -- sift-count )
s" /" find-node BEGIN dup WHILE
$inner-sift-nodes IF \ any completions possible?
sift-node-buffer swap 2>r 2r@ move 2r> \ make an almost permanent copy without strdup
?tab-pressed IF 2dup type space THEN  \ <tab><tab> prints possibilities
tab-last-adr tab-last-len $same-string \ find matching substring ...
to tab-last-len to tab-last-adr       \ ... and save it
THEN
REPEAT
2drop drop
#sift-count 0 to #sift-count	\ how many words were found?
reset-stack
;
: $tab-sift    ( text-addr text-len -- sift-count )
?tab-pressed IF beep space THEN \ cosmetical fix for <tab><tab>
dup IF bl rsplit dup IF 2swap THEN ELSE 0 0 THEN >r >r
0 dup to tab-last-len to tab-last-adr	\ reset last possible match
current-node @ IF			\ if we are in a node?
2dup 2>r				\ save text
$tab-sift-words to #sift-count	\ search in current node first
2r>				\ fetch text to complete, again
THEN
2dup 2>r
current-node @ >r 0 set-node		\ now search in global words
$tab-sift-words to #sift-count
r> set-node
2r> $tab-sift-nodes
r> r> dup IF s"  " $cat THEN tab-last-adr tab-last-len $cat
to tab-last-len to tab-last-adr  \ ... and save the whole string
;
: handle-^A
0 to accept-cur move-cursor ;
: handle-^B
accept-cur ?dup IF 1- to accept-cur ( csi ." D" ) move-cursor THEN ;
: handle-^D
delete-char ( redraw-line ) ;
: handle-^E
accept-len to accept-cur move-cursor ;
: handle-^F
accept-cur accept-len <> IF accept-cur 1+ to accept-cur csi ." C" THEN ;
: handle-^H
accept-cur 0= IF beep EXIT THEN
handle-^B delete-char
;
: handle-^I
accept-adr accept-len
$tab-sift 0 > IF
?tab-pressed IF
redraw-prompt full-redraw-line
false to ?tab-pressed
ELSE
tab-last-adr accept-adr tab-last-len move    \ copy matching substring
tab-last-len dup to accept-len to accept-cur \ len and cursor position
full-redraw-line		\ redraw new string
true to ?tab-pressed	\ second tab will print possible matches
THEN
THEN
;
: handle-^K
BEGIN accept-cur accept-len <> WHILE delete-char REPEAT ;
: handle-^L
history redraw-prompt full-redraw-line ;
: handle-^N
his-cur IF his-cur his>next @ ELSE his-head THEN
dup to his-cur select-history
;
: handle-^P
his-cur IF his-cur his>prev @ ELSE his-tail THEN
dup to his-cur select-history
;
: handle-^Q  \ Does not handle terminal formatting yet.
key insert-char ;
: handle-^R
full-redraw-line ;
: handle-^U
0 to accept-len 0 to accept-cur full-redraw-line ;
: handle-fn
key drop beep
;
TABLE-EXECUTE handle-CSI
0 , ' handle-^P , ' handle-^N , ' handle-^F ,
' handle-^B , 0 , 0 , 0 ,
' handle-^A , 0 , 0 , ' handle-^E ,
0 , 0 , 0 , 0 ,
0 , 0 , 0 , 0 ,
0 , 0 , 0 , 0 ,
0 , 0 , 0 , 0 ,
0 , 0 , 0 , 0 ,
: handle-CSI-key
key 1f and handle-CSI
;
TABLE-EXECUTE handle-meta
0 , 0 , 0 , 0 ,
0 , 0 , 0 , 0 ,
0 , 0 , 0 , 0 ,
0 , 0 , 0 , ' handle-fn ,
0 , 0 , 0 , 0 ,
0 , 0 , 0 , 0 ,
0 , 0 , 0 , ' handle-CSI-key ,
0 , 0 , 0 , 0 ,
: handle-ESC-O
key
dup 48 = IF
handle-^A
ELSE
dup 46 = IF
handle-^E
THEN
THEN drop
;
: handle-ESC-5b
key
dup 31 = IF \ HOME
key drop ( drops closing 7e ) handle-^A
ELSE
dup 33 = IF \ DEL
key drop handle-^D
ELSE
dup 34 = IF \ END
key drop handle-^E
ELSE
dup 1f and handle-CSI
THEN
THEN
THEN drop
;
: handle-ESC
key
dup 5b = IF
handle-ESC-5b
ELSE
dup 4f = IF
handle-ESC-O
ELSE
dup 1f and handle-meta
THEN
THEN drop
;
TABLE-EXECUTE handle-control
0 , \ ^@:
' handle-^A ,
' handle-^B ,
0 , \ ^C:
' handle-^D ,
' handle-^E ,
' handle-^F ,
0 , \ ^G:
' handle-^H ,
' handle-^I , \ tab
0 , \ ^J:
' handle-^K ,
' handle-^L ,
0 , \ ^M: enter: handled in main loop
' handle-^N ,
0 , \ ^O:
' handle-^P ,
' handle-^Q ,
' handle-^R ,
0 , \ ^S:
0 , \ ^T:
' handle-^U ,
0 , \ ^V:
0 , \ ^W:
0 , \ ^X:
0 , \ ^Y: insert save buffer
0 , \ ^Z:
' handle-ESC ,
0 , \ ^\:
0 , \ ^]:
0 , \ ^^:
0 , \ ^_:
: (accept) ( adr len -- len' )
cursor-on
to accept-max to accept-adr
0 to accept-len 0 to accept-cur
0 to his-cur
1b emit 37 emit
BEGIN
key dup 0d <>
WHILE
dup 9 <> IF 0 to ?tab-pressed THEN \ reset state machine
dup 7f = IF drop 8 THEN \ Handle DEL as if it was BS. ??? bogus
dup bl < IF handle-control ELSE
dup 80 and IF
dup a0 < IF 7f and handle-meta ELSE drop beep THEN
ELSE
insert-char
THEN
THEN
REPEAT
drop add-history
accept-len to accept-cur
move-cursor space
accept-len
cursor-off
;
' (accept) to accept
120 cp
1 VALUE /dump
' c@ VALUE 'dump
0 VALUE dump-first
0 VALUE dump-last
0 VALUE dump-cur
: .char ( c -- )  dup bl 7f within 0= IF drop [char] . THEN emit ;
: dump-line ( -- )
cr dump-cur dup 8 0.r [char] : emit 10 /dump / 0 DO
space dump-cur dump-first dump-last within IF
dump-cur 'dump execute /dump 2* 0.r ELSE
/dump 2* spaces THEN dump-cur /dump + to dump-cur LOOP
/dump 1 <> IF drop EXIT THEN
to dump-cur 2 spaces
10 0 DO dump-cur dump-first dump-last within IF
dump-cur 'dump execute .char ELSE space THEN dump-cur 1+ to dump-cur LOOP ;
: (dump) ( addr len reader size -- )
to /dump to 'dump bounds /dump negate and to dump-first to dump-last
dump-first f invert and to dump-cur
base @ hex BEGIN dump-line dump-cur dump-last >= UNTIL base ! ;
: du ( -- )  dump-last 100 'dump /dump (dump) ;
: dump     ['] c@      1 (dump) ;
: wdump    ['] w@      2 (dump) ;
: ldump    ['] l@      4 (dump) ;
: xdump    ['] x@      8 (dump) ;
: rdump    ['] rb@     1 (dump) ;
cistack ciregs >r1 ! \ kernel wants a stack :-)
140 cp
STRUCT
cell field romfs>file-header
cell field romfs>data
cell field romfs>data-size
cell field romfs>flags
CONSTANT /romfs-lookup-control-block
CREATE romfs-lookup-cb /romfs-lookup-control-block allot
romfs-lookup-cb /romfs-lookup-control-block erase
: create-filename ( string -- string\0 )
here >r dup 8 + allot
r@ over 8 + erase
r@ zplace r> ;
: romfs-lookup ( fn-str fn-len -- data size | false )
create-filename romfs-base
romfs-lookup-cb romfs-lookup-entry call-c
0= IF romfs-lookup-cb dup romfs>data @ swap romfs>data-size @ ELSE
false THEN ;
: ibm,romfs-lookup ( fn-str fn-len -- data-high data-low size | 0 0 false )
romfs-lookup dup
0= if drop 0 0 false else
swap dup 20 rshift swap ffffffff and then ;
: romfs-lookup-client ibm,romfs-lookup ;
STRUCT
cell field romfs>next-off
cell field romfs>size
cell field romfs>flags
cell field romfs>data-off
cell field romfs>name
CONSTANT /romfs-cb
: romfs-map-file ( fn-str fn-len -- file-addr file-size )
romfs-base >r
BEGIN 2dup r@ romfs>name zcount string=ci not WHILE
( fn-str fn-len ) ( R: rom-cb-file-addr )
r> romfs>next-off dup @ dup 0= IF 1 THROW THEN + >r REPEAT
( fn-str fn-len ) ( R: rom-cb-file-addr )
2drop r@ romfs>data-off @ r@ + r> romfs>size @ ;
: flash-header ( -- address | false )
get-flash-base 28 +         \ prepare flash header file address
dup rx@                     \ fetch "magic123"
6d61676963313233 <> IF      \ IF flash is not valid
drop                     \ | forget address
false                    \ | return false
THEN                        \ FI
;
CREATE bdate-str 10 allot
: bdate2human ( -- addr len )
flash-header 40 + rx@ (.)
drop dup 0 + bdate-str 6 + 4 move
dup 4 + bdate-str 0 + 2 move
dup 6 + bdate-str 3 + 2 move
dup 8 + bdate-str b + 2 move
a + bdate-str e + 2 move
2d bdate-str 2 + c!
2d bdate-str 5 + c!
20 bdate-str a + c!
3a bdate-str d + c!
bdate-str 10
;
: included  ( fn fn-len -- )
2dup >r >r romfs-lookup dup IF
r> drop r> drop evaluate
ELSE
drop ." Cannot open file : " r> r> type cr
THEN
;
: include  ( " fn " -- )
parse-word included
;
: ?include  ( flag " fn " -- )
parse-word rot IF included ELSE 2drop THEN
;
: include?  ( nargs flag " fn " -- )
parse-word rot IF
rot drop included
ELSE
2drop 0 ?DO drop LOOP
THEN
;
: (print-romfs-file-info)  ( file-addr -- )
9 emit  dup b 0.r  2 spaces  dup 8 + @ 6 0.r  2 spaces  20 + zcount type cr
;
: romfs-list  ( -- )
romfs-base 0 cr BEGIN + dup (print-romfs-file-info) dup @ dup 0= UNTIL 2drop
;
200 cp
: .slof-logo
cr ."         ..`. ..     .......  ..           ......      ......."
cr ."     ..`...`''.`'. .''``````..''.       .`''```''`.  `''``````"
cr ."        .`` .:' ': `''.....  .''.       ''`     .''..''......."
cr ."          ``.':.';. ``````''`.''.      .''.      ''``''`````'`"
cr ."          ``.':':`   .....`''.`'`...... `'`.....`''.`'`       "
cr ."         .`.`'``   .'`'`````.  ``''''''  ``''`'''`. `'`       "
;
201 cp
: banner
cr ."   Type 'boot'  and press return  to  continue  booting  the system."
cr ."   Type 'reset-all'  and  press  return  to   reboot   the   system."
cr cr
;
: .banner banner console-clean-fifo ;
: .banner .slof-logo .banner ;
220 cp
DEFER find-boot-sector ( -- )
240 cp
d# 512000000 VALUE tb-frequency   \ default value - needed for "ms" to work
-1 VALUE cpu-frequency
: slof-build-id  ( -- str len )
flash-header 10 + a
;
: slof-revision s" 001" ;
: read-version-and-date
flash-header 0= IF
s"  " encode-string
ELSE
flash-header 10 + 10
here swap rmove
here 10
s" , " $cat
bdate2human $cat encode-string THEN
;
: from-cstring ( addr - len )  
dup dup BEGIN c@ 0 <> WHILE 1 + dup REPEAT
swap -
;
: invert-region-cs ( addr len cellsize -- )
>r over swap r@ rshift r> swap 1 hv-logical-memop drop
;
: invert-region ( addr len -- )
2dup or 7 and CASE
0 OF 3 invert-region-cs ENDOF
4 OF 2 invert-region-cs ENDOF
3 and
2 OF 1 invert-region-cs ENDOF
dup OF 0 invert-region-cs ENDOF
ENDCASE
;
260 cp
: tb@  ( -- tb )
BEGIN tbu@ tbl@ tbu@ rot over <> WHILE 2drop REPEAT
20 lshift swap ffffffff and or
;
: milliseconds ( -- ms ) tb@ d# 1000 * tb-frequency / ;
: microseconds ( -- us ) tb@ d# 1000000 * tb-frequency / ;
: ms ( ms-to-wait -- ) milliseconds + BEGIN milliseconds over >= UNTIL drop ;
: get-msecs ( -- n ) milliseconds ;
: us  ( us-to-wait -- )  microseconds +  BEGIN microseconds over >= UNTIL  drop ;
2e0 cp
100 CONSTANT quiesce-xt#
CREATE quiesce-xts quiesce-xt# cells allot
quiesce-xts quiesce-xt# cells erase
0 VALUE quiesce-done?
: add-quiesce-xt  ( xt -- )
quiesce-xt# 0 DO
quiesce-xts I cells +    ( xt arrayptr )
dup @ 0=                 ( xt arrayptr true|false )
IF
! UNLOOP EXIT
ELSE                     ( xt arrayptr )
over swap             ( xt xt arrayptr )
@ =                   \ xt already stored ?
IF
drop UNLOOP EXIT
THEN                  ( xt )
THEN
LOOP
drop                        ( xt -- )
." Warning: quiesce xt list is full." cr
;
: quiesce  ( -- )
quiesce-done? IF EXIT THEN
true to quiesce-done?
quiesce-xt# 0 DO
quiesce-xts I cells +    ( arrayptr )
@ dup IF                 ( xt )
EXECUTE
ELSE
drop UNLOOP EXIT
THEN
LOOP
;
300 cp
: load-dev-hci ( num name-str name-len )
s" dev-hci.fs" INCLUDED
;
0 VALUE ohci-init
0 VALUE ehci-init
0 VALUE xhci-init
0 VALUE usb-alias-num
: get-usb-alias-num
usb-alias-num dup 1+ to usb-alias-num
;
: set-ohci-alias  (  -- )
1 to ohci-init 
get-usb-alias-num       ( num )
s" ohci" 1 load-dev-hci
;
: set-ehci-alias  (  -- )
1 to ehci-init
get-usb-alias-num       ( num )
s" ehci" 2 load-dev-hci
;
: set-xhci-alias  (  -- )
1 to xhci-init 
get-usb-alias-num       ( num )
s" xhci" 3 load-dev-hci
;
: usb-enumerate ( hcidev -- )
USB-HCD-INIT
;
: usb-scan ( -- )
." Scanning USB " cr
ohci-init 1 = IF USB-OHCI-REGISTER THEN
ehci-init 1 = IF USB-EHCI-REGISTER THEN
xhci-init 1 = IF USB-XHCI-REGISTER THEN
usb-alias-num 0 ?DO
" usb" i $cathex find-device
" get-hci-dev" get-node find-method
IF
execute usb-enumerate
ELSE
." get-base-address method not found for usb@" i . 
."  Device type: "
" device_type" get-node get-property 0= IF decode-string type cr 2drop THEN
THEN
LOOP
0 set-node     \ FIXME Setting it back
;
320 cp
false VALUE scsi-supp-present?
: scsi-xt-err ." SCSI-ERROR (Intern) " ;
' scsi-xt-err VALUE scsi-open-xt        \ preset with an invalid token
: .wordlists      ( -- )
get-order      ( -- wid1 .. widn n )
dup space 28 emit .d ." word lists : "
0 DO
. 08 emit 2c emit
LOOP
08 emit                 \ 'bs'
29 emit                 \ ')'
cr space 28 emit
." Context: " context dup .
@ 5b emit . 8 emit 5d emit
space
." / Current: " current .
cr
;
: scsi-open  ( -- )
scsi-supp-present? NOT
IF
s" scsi-support.fs" included  ( xt-open )
to scsi-open-xt               (  )
true to scsi-supp-present?
THEN
scsi-open-xt execute
;
340 cp
0 VALUE fdt-debug
TRUE VALUE fdt-cas-fix?
fdt-start 0 = IF -1 throw THEN
struct
4 field >fdth_magic
4 field >fdth_tsize
4 field >fdth_struct_off
4 field >fdth_string_off
4 field >fdth_rsvmap_off
4 field >fdth_version
4 field >fdth_compat_vers
4 field >fdth_boot_cpu
4 field >fdth_string_size
4 field >fdth_struct_size
drop
h# d00dfeed constant OF_DT_HEADER
h#        1 constant OF_DT_BEGIN_NODE
h#        2 constant OF_DT_END_NODE
h#        3 constant OF_DT_PROP
h#        4 constant OF_DT_NOP
h#        9 constant OF_DT_END
0 value fdt-start-addr
0 value fdt-struct
0 value fdt-strings
: fdt-init ( fdt-start -- )
dup to fdt-start-addr
dup dup >fdth_struct_off l@ + to fdt-struct
dup dup >fdth_string_off l@ + to fdt-strings
drop
;
fdt-start fdt-init
: fdt-check-header ( -- )
fdt-start-addr dup 0 = IF
." No flat device tree !" cr drop -1 throw EXIT THEN
hex
fdt-debug IF
." Flat device tree header at 0x" dup . s" :" type cr
."  magic            : 0x" dup >fdth_magic l@ . cr
."  total size       : 0x" dup >fdth_tsize l@ . cr
."  offset to struct : 0x" dup >fdth_struct_off l@ . cr
."  offset to strings: 0x" dup >fdth_string_off l@ . cr
."  offset to rsvmap : 0x" dup >fdth_rsvmap_off l@ . cr
."  version          : " dup >fdth_version l@ decimal . hex cr
."  last compat vers : " dup >fdth_compat_vers l@ decimal . hex cr
dup >fdth_version l@ 2 >= IF
."  boot CPU         : 0x" dup >fdth_boot_cpu l@ . cr
THEN
dup >fdth_version l@ 3 >= IF
."  strings size     : 0x" dup >fdth_string_size l@ . cr
THEN
dup >fdth_version l@ 17 >= IF
."  struct size      : 0x" dup >fdth_struct_size l@ . cr
THEN
THEN
dup >fdth_magic l@ OF_DT_HEADER <> IF
." Flat device tree has incorrect magic value !" cr
drop -1 throw EXIT
THEN
dup >fdth_version l@ 10 < IF
." Flat device tree has usupported version !" cr
drop -1 throw EXIT
THEN
drop
;
fdt-check-header
: fdt-next-tag ( addr -- nextaddr tag )
0	       	      	 	( dummy tag on stack for loop )
BEGIN
drop			( drop previous tag )
dup l@			( read new tag )
swap 4 + swap		( increment addr )
dup OF_DT_NOP <> UNTIL 	( loop until not nop )
;
: fdt-fetch-unit ( addr -- addr $name )
dup from-cstring	       \  get string size
2dup + 1 + 3 + fffffffc and -rot
;
: fdt-reg-unit ( prop-addr prop-len -- )
decode-phys               ( prop-addr' prop-len' phys.lo ... phys.hi )
set-unit                  ( prop-addr' prop-len' )
2drop
;
: fdt-fetch-string ( index -- str-addr str-len )  
fdt-strings + dup from-cstring
;
: fdt-create-dec  s" decode-unit" $CREATE , DOES> @ hex64-decode-unit ;
: fdt-create-enc  s" encode-unit" $CREATE , DOES> @ hex64-encode-unit ;
: fdt-prop-is-string?  ( addr len -- string? )
dup 1 < IF 2drop FALSE EXIT THEN                \ Check for valid length
1-
2dup + c@ 0<> IF 2drop FALSE EXIT THEN          \ Check zero-termination
test-string
;
: fdt-encode-prop  ( addr len -- )
2dup fdt-prop-is-string? IF
1- encode-string
ELSE
encode-bytes
THEN
;
: fdt-unflatten-node ( start -- end )
recursive
fdt-next-tag dup OF_DT_BEGIN_NODE <> IF
s" Weird tag 0x" type . " at start of node" type cr
-1 throw
THEN drop
new-device
fdt-fetch-unit
dup 0 = IF drop drop " /" THEN
40 left-parse-string
device-name
dup IF
" #address-cells" get-parent get-package-property IF
2drop
ELSE
decode-int nip nip
hex-decode-unit
set-unit
THEN
ELSE 2drop THEN
BEGIN
fdt-next-tag dup OF_DT_END_NODE <>
WHILE
dup OF_DT_PROP = IF
drop dup			( drop tag, dup addr     : a1 a1 )
dup l@ dup rot 4 +	( fetch size, stack is   : a1 s s a2)
dup l@ swap 4 +		( fetch nameid, stack is : a1 s s i a3 )
rot			( we now have: a1 s i a3 s )
fdt-encode-prop rot	( a1 s pa ps i)
fdt-fetch-string		( a1 s pa ps na ns )
2dup s" reg" str= IF
2swap 2dup fdt-reg-unit 2swap
THEN
property
+ 8 + 3 + fffffffc and
ELSE dup OF_DT_BEGIN_NODE = IF
drop			( drop tag )
4 -
fdt-unflatten-node
ELSE
drop -1 throw
THEN THEN
REPEAT drop \ drop tag
" #address-cells" get-node get-package-property IF ELSE
decode-int dup fdt-create-dec fdt-create-enc 2drop
THEN
finish-device  
;
: fdt-unflatten-tree
fdt-debug IF
." Unflattening device tree..." cr THEN
fdt-struct fdt-unflatten-node drop
fdt-debug IF
." Done !" cr THEN
;
fdt-unflatten-tree
: fdt-parse-memory
" /memory@0" find-device
" reg" get-node get-package-property IF throw -1 THEN
decode-phys 2drop decode-phys
my-#address-cells 1 > IF 20 << or THEN
fdt-debug IF
dup ." Memory size: " . cr
THEN
MIN-RAM-SIZE swap MIN-RAM-SIZE - release
2drop device-end
;
fdt-parse-memory
: fdt-claim-reserve
fdt-start-addr
dup dup >fdth_tsize l@ 0 claim drop
dup >fdth_rsvmap_off l@ +
BEGIN
dup dup x@ swap 8 + x@
dup 0 <>
WHILE
fdt-debug IF
2dup swap ." Reserve map entry: " . ." : " . cr
THEN
0 claim drop
10 +
REPEAT drop drop drop
;
fdt-claim-reserve 
0 VALUE (fdt-phandle-replaced)
: fdt-replace-interrupt-map  ( old new prop-addr prop-len -- old new )
BEGIN
dup                    ( old new prop-addr prop-len prop-len )
WHILE
swap dup 10 +          ( old new prop-len prop-addr prop-addr+10 )
dup l@ 5 pick = IF
3 pick swap l!
TRUE TO (fdt-phandle-replaced)
ELSE
drop
THEN
1c + swap 1c -
REPEAT
2drop
;
: fdt-replace-all-phandles ( old new node -- )
>r
s" interrupt-map" r@ get-property 0= IF
fdt-replace-interrupt-map
THEN
s" interrupt-parent" r@ get-property 0= IF
decode-int -rot 2drop                  ( old new val  R: node )
2 pick = IF                            ( old new      R: node )
dup encode-int s" interrupt-parent" r@ set-property
TRUE TO (fdt-phandle-replaced)
THEN
THEN
r>
child BEGIN
dup
WHILE
3dup RECURSE
PEER
REPEAT
3drop
;
: fdt-fix-node-phandle  ( node -- )
>r
FALSE TO (fdt-phandle-replaced)
s" phandle" r@ get-property 0= IF
decode-int                       ( p-addr2 p-len2 val )
r@ s" /" find-node               ( p-addr2 p-len2 val node root )  
fdt-replace-all-phandles         ( p-addr2 p-len2 )
2drop
(fdt-phandle-replaced) IF
r@ set-node
s" phandle" delete-property
s" linux,phandle" delete-property
ELSE
diagnostic-mode? IF
cr ." Warning: Did not replace phandle in " r@ node>path type cr
THEN
THEN
THEN
r> drop
;
: fdt-fix-phandles  ( node -- )
dup fdt-fix-node-phandle
child BEGIN
dup
WHILE
dup RECURSE
PEER
REPEAT
drop
device-end
;
: fdt-create-cas-node ( name  -- )
2dup
2dup " memory@" find-substr 0 = IF
fdt-debug IF ." Creating memory@ " cr THEN
new-device
2dup " @" find-substr nip device-name       \ Parse the node name
2dup
2dup " @" find-substr rot over + 1 + -rot - 1 - \ Jump to addr afte "@"
parse-2int nip xlsplit set-unit                 \ Parse and set unit
finish-device
ELSE
2dup " ibm,dynamic-reconfiguration-memory" find-substr 0 = IF
fdt-debug IF  ." Creating ibm,dynamic-reconfiguration-memory " cr THEN
new-device
device-name
finish-device
ELSE
2drop 2drop
false to fdt-cas-fix?
." Node not supported " cr
EXIT
THEN
THEN
find-node ?dup 0 <> IF set-node THEN
;
: fdt-fix-cas-node ( start -- end )
recursive
fdt-next-tag dup OF_DT_BEGIN_NODE <> IF
." Error " cr
false to fdt-cas-fix?
EXIT
THEN drop
fdt-fetch-unit
dup 0 = IF drop drop " /" THEN
40 left-parse-string
2swap ?dup 0 <> IF
nip
1 + + \ Add the string len +@
ELSE
drop
THEN
fdt-debug IF ." Setting node: " 2dup type cr THEN
2dup find-node ?dup 0 <> IF
set-node 2drop
ELSE
fdt-debug IF ." Node not found, creating " 2dup type cr THEN
fdt-create-cas-node
THEN
fdt-debug IF ." Current  now: " pwd cr THEN
BEGIN
fdt-next-tag dup OF_DT_END_NODE <>
WHILE
dup OF_DT_PROP = IF
fdt-debug IF ." Found property " cr THEN
drop dup		( drop tag, dup addr     : a1 a1 )
dup l@ dup rot 4 +	( fetch size, stack is   : a1 s s a2)
dup l@ swap 4 +	( fetch nameid, stack is : a1 s s i a3 )
rot			( we now have: a1 s i a3 s )
fdt-encode-prop rot	( a1 s pa ps i)
fdt-fetch-string		( a1 s pa ps na ns )
property
fdt-debug IF ." Setting property done " cr THEN
+ 8 + 3 + fffffffc and
ELSE dup OF_DT_BEGIN_NODE = IF
drop			( drop tag )
4 -
fdt-fix-cas-node
get-parent set-node
fdt-debug IF ." Returning back " pwd cr THEN
ELSE
." Error " cr
drop
false to fdt-cas-fix?
EXIT
THEN
THEN
REPEAT
drop \ drop tag
;
: fdt-fix-cas-success
fdt-cas-fix?
;
s" /" find-node fdt-fix-phandles
360 cp
defer (client-exec)
defer client-exec
defer callback
defer continue-client
0 VALUE chosen-node
: chosen
chosen-node dup 0= IF
drop s" /chosen" find-node dup to chosen-node
THEN
;
: set-chosen ( prop len name len -- )
chosen set-property ;
: get-chosen ( name len -- [ prop len ] success )
chosen get-property 0= ;
" /" find-node dup 0= IF
drop
new-device
s" /" device-name
ELSE
extend-device
THEN
" /chosen" find-node dup 0= IF
drop
new-device
s" chosen" device-name
s" " encode-string s" bootargs" property
s" " encode-string s" bootpath" property
finish-device
ELSE
drop
THEN
new-device
s" aliases" device-name
finish-device
new-device
s" options" device-name
finish-device
new-device
s" openprom" device-name
0 0 s" relative-addressing" property
finish-device
new-device 
s" packages" device-name
get-node to packages
new-device
s" deblocker" device-name
INSTANCE VARIABLE offset
INSTANCE VARIABLE block-size
INSTANCE VARIABLE max-transfer
INSTANCE VARIABLE my-block
INSTANCE VARIABLE adr
INSTANCE VARIABLE len
INSTANCE VARIABLE fail-count
: open
s" block-size" ['] $call-parent CATCH IF 2drop false EXIT THEN
block-size !
s" max-transfer" ['] $call-parent CATCH IF 2drop false EXIT THEN
max-transfer !
block-size @ alloc-mem my-block !
0 offset !
true ;
: close  my-block @ block-size @ free-mem ;
: seek ( lo hi -- status ) \ XXX: perhaps we should fail if the underlying
lxjoin offset !  0 ;
: block+remainder ( -- block# remainder )  offset @ block-size @ u/mod swap ;
: read-blocks ( addr block# #blocks -- actual )  s" read-blocks" $call-parent ;
: read ( addr len -- actual )
dup >r  len ! adr !
block+remainder dup IF ( block# offset-in-block )
>r my-block @ swap 1 read-blocks drop
my-block @ r@ + adr @ block-size @ r> - len @ min dup >r move
r> dup negate len +! dup adr +! offset +! ELSE 2drop THEN
0 fail-count !
BEGIN len @ block-size @ >= WHILE
adr @ block+remainder drop len @ max-transfer @ min block-size @ / read-blocks
dup 0= IF
1 fail-count +!
fail-count @ 5 >= IF r> drop EXIT THEN
ELSE
0 fail-count !
THEN
block-size @ * dup negate len +! dup adr +! offset +!
REPEAT
len @ IF my-block @ block+remainder drop 1 read-blocks drop
my-block @ adr @ len @ move THEN
r> ;
finish-device
new-device
false VALUE debug-disk-label?
d# 65536 value max-prep-partition-blocks
d# 4096 CONSTANT block-array-size
s" disk-label" device-name
0 INSTANCE VALUE partition
0 INSTANCE VALUE part-offset
0 INSTANCE VALUE disk-chrp-boot
0 INSTANCE VALUE part-start
0 INSTANCE VALUE lpart-start
0 INSTANCE VALUE part-size
0 INSTANCE VALUE dos-logical-partitions
0 INSTANCE VALUE block-size
0 INSTANCE VALUE block
0 INSTANCE VALUE args
0 INSTANCE VALUE args-len
0 INSTANCE VALUE gpt-part-size
0 INSTANCE VALUE seek-pos
INSTANCE VARIABLE block#  \ variable to store logical sector#
INSTANCE VARIABLE hit#    \ partition counter
INSTANCE VARIABLE success-flag
0ff constant END-OF-DESC
3 constant  PARTITION-ID
48 constant VOL-PART-LOC
STRUCT
1b8 field mbr>boot-loader
/l field mbr>disk-signature
/w field mbr>null
40 field mbr>partition-table
/w field mbr>magic
CONSTANT /mbr
STRUCT
/c field part-entry>active
/c field part-entry>start-head
/c field part-entry>start-sect
/c field part-entry>start-cyl
/c field part-entry>id
/c field part-entry>end-head
/c field part-entry>end-sect
/c field part-entry>end-cyl
/l field part-entry>sector-offset
/l field part-entry>sector-count
CONSTANT /partition-entry
STRUCT
8 field gpt>signature
4 field gpt>revision
4 field gpt>header-size
4 field gpt>header-crc32
4 field gpt>reserved
8 field gpt>current-lba
8 field gpt>backup-lba
8 field gpt>first-lba
8 field gpt>last-lba
10 field gpt>disk-guid
8 field gpt>part-entry-lba
4 field gpt>num-part-entry
4 field gpt>part-entry-size
4 field gpt>part-array-crc32
1a4 field gpt>reserved
CONSTANT /gpt-header
STRUCT
10 field gpt-part-entry>part-type-guid
10 field gpt-part-entry>part-guid
8 field gpt-part-entry>first-lba
8 field gpt-part-entry>last-lba
8 field gpt-part-entry>attribute
48 field gpt-part-entry>part-name
CONSTANT /gpt-part-entry
: offset ( d.rel -- d.abs )
part-offset xlsplit d+
;
: seek  ( pos.lo pos.hi -- status )
offset
debug-disk-label? IF 2dup ." seek-parent: pos.hi=0x" u. ." pos.lo=0x" u. THEN
s" seek" $call-parent
debug-disk-label? IF dup ." status=" . cr THEN
;
: read ( addr len -- actual )
debug-disk-label? IF 2dup swap ." read-parent: addr=0x" u. ." len=" .d THEN
s" read" $call-parent
debug-disk-label? IF dup ." actual=" .d cr THEN
;
: read-sector ( sector-number -- )
block-size * 0 seek drop      \ seek to sector
block block-size read drop    \ read sector
;
: (.part-entry) ( part-entry )
cr ." part-entry>active:        " dup part-entry>active c@ .d
cr ." part-entry>start-head:    " dup part-entry>start-head c@ .d
cr ." part-entry>start-sect:    " dup part-entry>start-sect c@ .d
cr ." part-entry>start-cyl:     " dup part-entry>start-cyl  c@ .d
cr ." part-entry>id:            " dup part-entry>id c@ .d
cr ." part-entry>end-head:      " dup part-entry>end-head c@ .d
cr ." part-entry>end-sect:      " dup part-entry>end-sect c@ .d
cr ." part-entry>end-cyl:       " dup part-entry>end-cyl c@ .d
cr ." part-entry>sector-offset: " dup part-entry>sector-offset l@-le .d
cr ." part-entry>sector-count:  " dup part-entry>sector-count l@-le .d
cr
;
: (.name) r@ begin cell - dup @ <colon> = UNTIL xt>name cr type space ;
: init-block ( -- )
s" block-size" ['] $call-parent CATCH IF ABORT" parent has no block-size." THEN
to block-size
block-array-size alloc-mem
dup block-array-size erase
to block
debug-disk-label? IF
." init-block: block-size=" block-size .d ." block=0x" block u. cr
THEN
;
: partition>part-entry ( partition -- part-entry )
1- /partition-entry * block mbr>partition-table +
;
: partition>start-sector ( partition -- sector-offset )
partition>part-entry part-entry>sector-offset l@-le
;
: no-mbr? ( -- true|false )
0 read-sector
1 partition>part-entry part-entry>id c@ ee = IF TRUE EXIT THEN \ GPT partition found
block mbr>magic w@-le aa55 <>
;
: no-gpt? ( -- true|false )
0 read-sector
1 partition>part-entry part-entry>id c@ ee <> IF true EXIT THEN
block mbr>magic w@-le aa55 <>
;
: pc-extended-partition? ( part-entry-addr -- true|false )
part-entry>id c@      ( id )
dup 5 = swap          ( true|false id )
dup f = swap          ( true|false true|false id )
85 =                  ( true|false true|false true|false )
or or                 ( true|false )
;
: count-dos-logical-partitions ( -- #logical-partitions )
no-mbr? IF 0 EXIT THEN
0 5 1 DO                                ( current )
i partition>part-entry               ( current part-entry )
dup pc-extended-partition? IF
part-entry>sector-offset l@-le    ( current sector )
dup to part-start to lpart-start  ( current )
BEGIN
part-start read-sector          \ read EBR
1 partition>start-sector IF
1+
THEN \ another logical partition
2 partition>start-sector
?dup IF lpart-start + to part-start false ELSE true THEN
UNTIL
ELSE
drop
THEN
LOOP
;
: (get-dos-partition-params) ( ext-part-start part-entry -- offset count active? id )
dup part-entry>sector-offset l@-le rot + swap ( offset part-entry )
dup part-entry>sector-count l@-le swap        ( offset count part-entry )
dup part-entry>active c@ 80 = swap            ( offset count active? part-entry )
part-entry>id c@                              ( offset count active? id )
;
: find-dos-partition ( partition# -- false | offset count active? id true )
to partition 0 to part-start 0 to part-offset
partition 0<= IF 0 to partition false EXIT THEN
no-mbr? IF 0 to partition false EXIT THEN
partition 4 <= IF \ Is this a primary partition?
0 partition partition>part-entry
(get-dos-partition-params)
true EXIT
ELSE
partition 4 - 0 5 1 DO                      ( logical-partition current )
i partition>part-entry                   ( log-part current part-entry )
dup pc-extended-partition? IF
part-entry>sector-offset l@-le        ( log-part current sector )
dup to part-start to lpart-start      ( log-part current )
BEGIN
part-start read-sector             \ read EBR
1 partition>start-sector IF        \ first partition entry
1+ 2dup = IF                    ( log-part current )
2drop
part-start 1 partition>part-entry
(get-dos-partition-params)
true UNLOOP EXIT
THEN
2 partition>start-sector
?dup IF lpart-start + to part-start false ELSE true THEN
ELSE
true
THEN
UNTIL
ELSE
drop
THEN
LOOP
2drop false
THEN
;
: try-dos-partition ( -- okay? )
no-mbr? IF
debug-disk-label? IF cr ." No DOS disk-label found." cr THEN
false EXIT
THEN
count-dos-logical-partitions TO dos-logical-partitions
debug-disk-label? IF
." Found " dos-logical-partitions .d ." logical partitions" cr
." Partition = " partition .d cr
THEN
partition 1 5 dos-logical-partitions +
within 0= IF
cr ." Partition # not 1-" 4 dos-logical-partitions + . cr false EXIT
THEN
partition find-dos-partition IF
2drop
to part-size
block-size * to part-offset
true
ELSE
false
THEN
;
: has-iso9660-filesystem  ( -- TRUE|FALSE )
10 800 * 0 seek drop      \ seek to sector
block 800 read drop       \ read sector
block c@ 1 =
block 1+ 5 s" CD001"  str=
and
dup IF 800 to block-size THEN
;
: fat-bootblock? ( addr -- flag )
dup c@ e9 = IF drop true EXIT THEN
dup c@ eb = swap 2+ c@ 90 = and
;
: load-from-dos-boot-partition ( addr -- size )
no-mbr? IF drop FALSE EXIT THEN  \ read MBR and check for DOS disk-label magic
count-dos-logical-partitions TO dos-logical-partitions
debug-disk-label? IF
." Found " dos-logical-partitions .d ." logical partitions" cr
." Partition = " partition .d cr
THEN
5 dos-logical-partitions + 1 DO
i find-dos-partition IF        ( addr offset count active? id )
41 = and                    ( addr offset count prep-boot-part? )
IF                          ( addr offset count )
max-prep-partition-blocks min  \ reduce load size
swap                     ( addr count offset )
block-size * to part-offset
0 0 seek drop            ( addr offset )
block-size * read        ( size )
UNLOOP EXIT
ELSE
2drop                    ( addr )
THEN
THEN
LOOP
drop 0
;
9E1A2D38            CONSTANT GPT-PREP-PARTITION-1
C612                CONSTANT GPT-PREP-PARTITION-2
4316                CONSTANT GPT-PREP-PARTITION-3
AA268B49521E5A8B    CONSTANT GPT-PREP-PARTITION-4
: gpt-prep-partition? ( -- true|false )
block gpt-part-entry>part-type-guid
dup l@-le     GPT-PREP-PARTITION-1 <> IF drop false EXIT THEN
dup 4 + w@-le GPT-PREP-PARTITION-2 <> IF drop false EXIT THEN
dup 6 + w@-le GPT-PREP-PARTITION-3 <> IF drop false EXIT THEN
8 + x@    GPT-PREP-PARTITION-4 =
;
EBD0A0A2            CONSTANT GPT-BASIC-DATA-PARTITION-1
B9E5                CONSTANT GPT-BASIC-DATA-PARTITION-2
4433                CONSTANT GPT-BASIC-DATA-PARTITION-3
87C068B6B72699C7    CONSTANT GPT-BASIC-DATA-PARTITION-4
: gpt-basic-data-partition? ( -- true|false )
block gpt-part-entry>part-type-guid
dup l@-le     GPT-BASIC-DATA-PARTITION-1 <> IF drop false EXIT THEN
dup 4 + w@-le GPT-BASIC-DATA-PARTITION-2 <> IF drop false EXIT THEN
dup 6 + w@-le GPT-BASIC-DATA-PARTITION-3 <> IF drop false EXIT THEN
8 + x@    GPT-BASIC-DATA-PARTITION-4 =
;
4546492050415254 CONSTANT GPT-SIGNATURE
: get-gpt-partition ( -- true|false )
no-gpt? IF false EXIT THEN
debug-disk-label? IF cr ." GPT partition found " cr  THEN
1 read-sector
block gpt>part-entry-lba x@-le
block-size * to seek-pos
block gpt>part-entry-size l@-le to gpt-part-size
gpt-part-size block-array-size > IF
cr ." GPT part size exceeds buffer allocated " cr
false exit
THEN
block gpt>signature x@ GPT-SIGNATURE =
;
: load-from-gpt-prep-partition ( addr -- size )
get-gpt-partition 0= IF false EXIT THEN
block gpt>num-part-entry l@-le dup 0= IF false exit THEN
1+ 1 ?DO
seek-pos 0 seek drop
block gpt-part-size read drop gpt-prep-partition? IF
debug-disk-label? IF  ." GPT PReP partition found " cr THEN
block gpt-part-entry>first-lba x@-le ( addr first-lba )
block gpt-part-entry>last-lba x@-le  ( addr first-lba last-lba)
over - 1+                            ( addr first-lba blocks )
swap                                 ( addr blocks first-lba )
block-size * to part-offset          ( addr blocks )
0 0 seek drop                        ( addr blocks )
block-size * read                    ( size )
UNLOOP EXIT
THEN
seek-pos gpt-part-size + to seek-pos
LOOP
false
;
: try-gpt-dos-partition ( -- true|false )
get-gpt-partition 0= IF false EXIT THEN
block gpt>num-part-entry l@-le dup 0= IF false EXIT THEN
1+ 1 ?DO
seek-pos 0 seek drop
block gpt-part-size read drop
gpt-basic-data-partition? IF
debug-disk-label? IF ." GPT BASIC DATA partition found " cr THEN
block gpt-part-entry>first-lba x@-le       ( first-lba )
dup to part-start                          ( first-lba )
block gpt-part-entry>last-lba x@-le        ( first-lba last-lba )
over - 1+                                  ( first-lba s1 )
block-size * to part-size                  ( first-lba )
block-size * to part-offset                ( )
0 0 seek drop
block block-size read drop
block fat-bootblock?                    ( true|false )
UNLOOP EXIT
THEN
seek-pos gpt-part-size + to seek-pos
LOOP
false
;
: parse-bootinfo-txt  ( addr len -- str len )
2dup s" <boot-script>" find-substr       ( addr len pos1 )
2dup = IF
3drop 0 0 EXIT
THEN
dup >r - swap r> + swap                  ( addr1 len1 )
2dup s" &device;:" find-substr           ( addr1 len1 posdev )
2dup = IF
3drop 0 0 EXIT
THEN
9 +                                      \ Skip the "&device;:" string
dup >r - swap r> + swap                  ( addr2 len2 )
2dup s" </boot-script>" find-substr nip  ( addr2 len3 )
debug-disk-label? IF
." Extracted boot loader from bootinfo.txt: '"
2dup type ." '" cr
THEN
;
: load-chrp-boot-file ( addr -- size )
my-parent instance>path
disk-chrp-boot @ 1 = IF
s" :1,\ppc\bootinfo.txt" $cat strdup       ( addr str len )
ELSE
s" :\ppc\bootinfo.txt" $cat strdup       ( addr str len )
THEN
open-dev dup 0= IF 2drop 0 EXIT THEN
>r dup                                   ( addr addr R:ihandle )
dup s" load" r@ $call-method             ( addr addr size R:ihandle )
r> close-dev                             ( addr addr size )
parse-bootinfo-txt                       ( addr fnstr fnlen )
dup 0= IF 3drop 0 EXIT THEN
2dup 20 findchar IF
>r 2dup r@ - 1- swap r@ + 1+ swap     ( addr fnstr fnlen pstr plen  R: offset )
encode-string s" bootargs" set-chosen
drop r>
THEN
my-parent instance>path      ( addr fnstr fnlen nstr nlen )
s" :" $cat 2swap $cat strdup             ( addr str len )
2dup encode-string s" bootpath" set-chosen
open-dev dup 0= IF ." failed to load CHRP boot loader." 2drop 0 EXIT THEN
>r s" load" r@ $call-method              ( size R:ihandle )
r> close-dev                             ( size )
;
: load-from-boot-partition ( addr -- size )
debug-disk-label? IF ." Trying DOS boot " .s cr THEN
dup load-from-dos-boot-partition ?dup 0 <> IF nip EXIT THEN
debug-disk-label? IF ." Trying CHRP boot " .s cr THEN
1 disk-chrp-boot !
dup load-chrp-boot-file ?dup 0 <> IF nip EXIT THEN
0 disk-chrp-boot !
debug-disk-label? IF ." Trying GPT boot " .s cr THEN
load-from-gpt-prep-partition
;
: parse-partition ( -- okay? )
0 to partition
0 to part-offset
0 to part-size
my-args to args-len to args
debug-disk-label? IF
cr ." disk-label parse-partition: my-args=" my-args type cr
THEN
args-len 0 = IF true EXIT THEN
my-args [char] , findchar 0= IF \ no comma?
args c@ isdigit not IF       \ ... and not a partition number?
true EXIT                 \ ... then it's not a partition we can parse
THEN
ELSE
drop
THEN
my-args [char] , split to args-len to args
dup 0= IF 2drop true EXIT THEN \ no first argument
base @ >r decimal $number r> base !
IF cr ." Not a partition #" false EXIT THEN
to partition
true
;
: (interpose-filesystem) ( str len -- )
find-package IF args args-len rot interpose THEN
;
: try-dos-files ( -- found? )
no-mbr? IF false EXIT THEN
block fat-bootblock? 0= IF false EXIT THEN
s" fat-files" (interpose-filesystem)
true
;
: try-ext2-files ( -- found? )
2 read-sector               \ read first superblock
block d# 56 + w@-le         \ fetch s_magic
ef53 <> IF false EXIT THEN  \ s_magic found?
s" ext2-files" (interpose-filesystem)
true
;
: try-iso9660-files
has-iso9660-filesystem 0= IF false exit THEN
s" iso-9660" (interpose-filesystem)
true
;
: try-files ( -- found? )
args-len 0= IF true EXIT THEN
try-dos-files IF true EXIT THEN
try-ext2-files IF true EXIT THEN
try-iso9660-files IF true EXIT THEN
false
;
: try-partitions ( -- found? )
try-dos-partition IF try-files EXIT THEN
try-gpt-dos-partition IF try-files EXIT THEN
false
;
: close ( -- )
debug-disk-label? IF ." Closing disk-label: block=0x" block u. ." block-size=" block-size .d cr THEN
block block-array-size free-mem
;
: open ( -- true|false )
init-block
parse-partition 0= IF
close
false EXIT
THEN
partition IF
try-partitions
ELSE
try-files
THEN
dup 0= IF debug-disk-label? IF ." not found." cr THEN close THEN \ free memory again
;
: load ( addr -- size )
debug-disk-label? IF
." load: " dup u. cr
THEN
args-len IF
TRUE ABORT" Load done w/o filesystem"
ELSE
partition IF
0 0 seek drop
part-size IF
part-size max-prep-partition-blocks min   \ Load size
ELSE
max-prep-partition-blocks
THEN
200 *  read
ELSE
has-iso9660-filesystem IF
dup load-chrp-boot-file ?dup 0 > IF nip EXIT THEN
THEN
load-from-boot-partition
dup 0= ABORT" No boot partition found"
THEN
THEN
;
finish-device
new-device
s" fat-files" device-name
INSTANCE VARIABLE bytes/sector
INSTANCE VARIABLE sectors/cluster
INSTANCE VARIABLE #reserved-sectors
INSTANCE VARIABLE #fats
INSTANCE VARIABLE #root-entries
INSTANCE VARIABLE fat32-root-cluster
INSTANCE VARIABLE total-#sectors
INSTANCE VARIABLE media-descriptor
INSTANCE VARIABLE sectors/fat
INSTANCE VARIABLE sectors/track
INSTANCE VARIABLE #heads
INSTANCE VARIABLE #hidden-sectors
INSTANCE VARIABLE fat-type
INSTANCE VARIABLE bytes/cluster
INSTANCE VARIABLE fat-offset
INSTANCE VARIABLE root-offset
INSTANCE VARIABLE cluster-offset
INSTANCE VARIABLE #clusters
: seek  s" seek" $call-parent ;
: read  s" read" $call-parent ;
INSTANCE VARIABLE data
INSTANCE VARIABLE #data
: free-data
data @ ?dup IF #data @ free-mem  0 data ! THEN ;
: read-data ( offset size -- )
free-data  dup #data ! alloc-mem data !
xlsplit seek            -2 and ABORT" fat-files read-data: seek failed"
data @ #data @ read #data @ <> ABORT" fat-files read-data: read failed" ;
CREATE fat-buf 8 allot
: read-fat ( cluster# -- data )
fat-buf 8 erase
1 #split fat-type @ * 2/ 2/ fat-offset @ +
xlsplit seek -2 and ABORT" fat-files read-fat: seek failed"
fat-buf 8 read 8 <> ABORT" fat-files read-fat: read failed"
fat-buf 8c@ bxjoin fat-type @ dup >r 2* #split drop r> #split
rot IF swap THEN drop ;
INSTANCE VARIABLE next-cluster
: read-cluster ( cluster# -- )
dup bytes/cluster @ * cluster-offset @ + bytes/cluster @ read-data
read-fat dup #clusters @ >= IF drop 0 THEN next-cluster ! ;
: read-dir ( cluster# -- )
?dup 0= IF
#root-entries @ 0= IF
fat32-root-cluster @ read-cluster
ELSE
root-offset @ #root-entries @ 20 * read-data 0 next-cluster !
THEN
ELSE
read-cluster
THEN
;
: get-cluster ( direntry -- cluster# )
fat-type @ 20 = IF
dup 14 + 2c@ bwjoin 10 lshift
ELSE 0 THEN
swap 1a + 2c@ bwjoin +
;
: .time ( x -- )
base @ >r decimal
b #split 2 0.r [char] : emit  5 #split 2 0.r [char] : emit  2* 2 0.r
r> base ! ;
: .date ( x -- )
base @ >r decimal
9 #split 7bc + 4 0.r [char] - emit  5 #split 2 0.r [char] - emit  2 0.r
r> base ! ;
: .attr ( attr -- )
6 0 DO dup 1 and IF s" RHSLDA" drop i + c@ ELSE bl THEN emit u2/ LOOP drop ;
: .dir-entry ( adr -- )
dup 0b + c@ 8 and IF drop EXIT THEN \ volume label, not a file
dup c@ e5 = IF drop EXIT THEN \ deleted file
cr
dup get-cluster [char] # emit 8 0.r space \ starting cluster
dup 18 + 2c@ bwjoin .date space
dup 16 + 2c@ bwjoin .time space
dup 1c + 4c@ bljoin base @ decimal swap a .r base ! space \ size in bytes
dup 0b + c@ .attr space
dup 8 BEGIN 2dup 1- + c@ 20 = over and WHILE 1- REPEAT type
dup 8 + 3 BEGIN 2dup 1- + c@ 20 = over and WHILE 1- REPEAT dup IF
[char] . emit type ELSE 2drop THEN
drop ;
: .dir-entries ( adr n -- )
0 ?DO dup i 20 * + dup c@ 0= IF drop LEAVE THEN .dir-entry LOOP drop ;
: .dir ( cluster# -- )
read-dir BEGIN data @ #data @ 20 / .dir-entries next-cluster @ WHILE
next-cluster @ read-cluster REPEAT ;
: str-upper ( str len adr -- ) \ Copy string to adr, uppercase
-rot bounds ?DO i c@ upc over c! char+ LOOP drop ;
CREATE dos-name b allot
: make-dos-name ( str len -- )
dos-name b bl fill
2dup [char] . findchar IF
3dup 1+ /string 3 min dos-name 8 + str-upper nip THEN
8 min dos-name str-upper ;
: (find-file) ( -- cluster file-len is-dir? true | false )
data @ BEGIN dup data @ #data @ + < WHILE
dup dos-name b comp WHILE 20 + REPEAT
dup get-cluster
swap dup 1c + 4c@ bljoin swap 0b + c@ 10 and 0<> true
ELSE drop false THEN ;
: find-file ( dir-cluster name len -- cluster file-len is-dir? true | false )
make-dos-name read-dir BEGIN (find-file) 0= WHILE next-cluster @ WHILE
next-cluster @ read-cluster REPEAT false ELSE true THEN ;
: find-path ( dir-cluster name len -- cluster file-len true | false )
dup 0= IF 3drop false ."  empty name " EXIT THEN
over c@ [char] \ = IF 1 /string  RECURSE EXIT THEN
[char] \ split 2>r find-file 0= IF 2r> 2drop false ."  not found " EXIT THEN
r@ 0<> <> IF 2drop 2r> 2drop false ."  no dir<->file match " EXIT THEN
r@ 0<> IF drop 2r> RECURSE EXIT THEN
2r> 2drop true ;
: do-super ( -- )
0 200 read-data
data @ 0b + 2c@ bwjoin bytes/sector !
data @ 0d + c@ sectors/cluster !
bytes/sector @ sectors/cluster @ * bytes/cluster !
data @ 0e + 2c@ bwjoin #reserved-sectors !
data @ 10 + c@ #fats !
data @ 11 + 2c@ bwjoin #root-entries !
data @ 13 + 2c@ bwjoin total-#sectors !
data @ 15 + c@ media-descriptor !
data @ 16 + 2c@ bwjoin sectors/fat !
data @ 18 + 2c@ bwjoin sectors/track !
data @ 1a + 2c@ bwjoin #heads !
data @ 1c + 2c@ bwjoin #hidden-sectors !
total-#sectors @ 0= IF data @ 20 + 4c@ bljoin total-#sectors ! THEN
sectors/fat @ 0= IF data @ 24 + 4c@ bljoin sectors/fat ! THEN
#root-entries @ 0= IF data @ 2c + 4c@ bljoin ELSE 0 THEN fat32-root-cluster !
total-#sectors @ #reserved-sectors @ - sectors/fat @ #fats @ * -
#root-entries @ 20 * bytes/sector @ // - sectors/cluster @ /
dup #clusters !
dup ff5 < IF drop c ELSE fff5 < IF 10 ELSE 20 THEN THEN fat-type !
base @ decimal base !
#reserved-sectors @ bytes/sector @ * fat-offset !
#fats @ sectors/fat @ * bytes/sector @ * fat-offset @ + root-offset !
#root-entries @ 20 * bytes/sector @ tuck // * root-offset @ +
bytes/cluster @ 2* - cluster-offset ! ;
INSTANCE VARIABLE file-cluster
INSTANCE VARIABLE file-len
INSTANCE VARIABLE current-pos
INSTANCE VARIABLE pos-in-data
: seek ( lo hi -- status )
lxjoin dup current-pos ! file-cluster @ read-cluster
BEGIN dup #data @ >= WHILE #data @ - next-cluster @ dup 0= IF
2drop true EXIT THEN read-cluster REPEAT pos-in-data ! false ;
: read ( adr len -- actual )
file-len @ current-pos @ - min \ can't go past end of file
#data @ pos-in-data @ - min >r \ length for this transfer
data @ pos-in-data @ + swap r@ move \ move the data
r@ pos-in-data +!  r@ current-pos +!  pos-in-data @ #data @ = IF
next-cluster @ ?dup IF read-cluster 0 pos-in-data ! THEN THEN r> ;
: read ( adr len -- actual )
file-len @ min                \ len cannot be greater than file size
dup >r BEGIN dup WHILE 2dup read dup 0= ABORT" fat-files: read failed"
/string ( tuck - >r + r> ) REPEAT 2drop r> ;
: load ( adr -- len )
file-len @ read dup file-len @ <> ABORT" fat-files: failed loading file" ;
: close  free-data ;
: open
do-super
0 my-args find-path 0= IF close false EXIT THEN
file-len !  file-cluster !  0 0 seek 0= ;
finish-device
new-device
s" rom-files" device-name
INSTANCE VARIABLE length
INSTANCE VARIABLE next-file
INSTANCE VARIABLE buffer
INSTANCE VARIABLE buffer-size
INSTANCE VARIABLE file
INSTANCE VARIABLE file-size
INSTANCE VARIABLE found
: open  true 
100 dup buffer-size ! alloc-mem buffer ! false found ! ;
: close buffer @ buffer-size @ free-mem ;
: read ( addr len -- actual ) s" read" $call-parent ;
: seek ( lo hi -- status ) s" seek" $call-parent ;
: .read-file-name ( offset -- str len )
0 seek drop 
buffer @ buffer-size @ read drop
buffer-size @ 1 - buffer @ + 0 swap c!
buffer @ zcount ;
: .print-info ( offset -- )
dup 2 spaces 6 0.r 2 spaces dup
8 + 0 seek drop length 8 read drop
6 length @ swap 0.r 2 spaces
20 + .read-file-name type cr ;
: .list-header cr
s" --offset---size-----file-name----" type cr ;
: list
.list-header
0 0 BEGIN + dup 
.print-info dup 0 seek drop
next-file 8 read drop next-file @
dup 0= UNTIL 2drop ;
: (find-file)  ( name len -- offset | -1 )
0 0 seek drop false found !
file-size ! file ! 0 0 BEGIN + dup
20 + .read-file-name file @ file-size @
str= IF true found ! THEN
dup 0 seek drop
next-file 8 read drop next-file @
dup 0= found @ or UNTIL drop found @ 0=
IF drop -1 THEN ;
: load  ( addr -- size )
my-parent instance>args 2@ [char] \ left-parse-string 2drop
(find-file) dup -1 = IF 2drop 0 ELSE
0 0 seek drop
dup 8 + 0 seek drop
here 8 read drop here @  ( dest-addr offset file-size )
over 18 + 0 seek drop
here 8 read drop here @  ( dest-addr offset file-size data-offset )
rot + 0 seek drop  ( dest-addr file-size )
read 
THEN
;
finish-device
new-device
s" ext2-files" device-name
INSTANCE VARIABLE first-block
INSTANCE VARIABLE inode-size
INSTANCE VARIABLE block-size
INSTANCE VARIABLE inodes/group
INSTANCE VARIABLE group-desc-size
INSTANCE VARIABLE group-descriptors
: seek  s" seek" $call-parent ;
: read  s" read" $call-parent ;
INSTANCE VARIABLE data
INSTANCE VARIABLE #data
INSTANCE VARIABLE indirect-block
INSTANCE VARIABLE dindirect-block
: free-data
data @ ?dup IF #data @ free-mem  0 data ! THEN ;
: read-data ( offset size -- )
free-data  dup #data ! alloc-mem data !
xlsplit seek            -2 and ABORT" ext2-files read-data: seek failed"
data @ #data @ read #data @ <> ABORT" ext2-files read-data: read failed" ;
: read-block ( block# -- )
block-size @ * block-size @ read-data ;
INSTANCE VARIABLE inode
INSTANCE VARIABLE file-len
INSTANCE VARIABLE blocks
INSTANCE VARIABLE #blocks
INSTANCE VARIABLE ^blocks
INSTANCE VARIABLE #blocks-left
: blocks-read ( n -- )  dup negate #blocks-left +! 4 * ^blocks +! ;
: read-indirect-blocks ( indirect-block# -- )
read-block data @ data off
dup #blocks-left @ 4 * block-size @ min dup >r ^blocks @ swap move
r> 2 rshift blocks-read block-size @ free-mem ;
: read-double-indirect-blocks ( double-indirect-block# -- )
read-block data @ indirect-block ! data off
BEGIN
indirect-block @ l@-le dup 0 <>
WHILE
read-indirect-blocks
4 indirect-block +!       \ point to next indirect block
REPEAT
drop                         \ drop 0, the invalid block number
;
: read-triple-indirect-blocks ( triple-indirect-block# -- )
read-block data @ dindirect-block ! data off
BEGIN
dindirect-block @ l@-le dup 0 <>
WHILE
read-double-indirect-blocks
4 dindirect-block +!      \ point to next double indirect block
REPEAT
drop                         \ drop 0, the invalid block number
;
: read-block#s ( -- )
blocks @ ?dup IF #blocks @ 4 * free-mem THEN
inode @ 4 + l@-le file-len !
file-len @ block-size @ // #blocks !
#blocks @ 4 * alloc-mem blocks !
blocks @ ^blocks !  #blocks @ #blocks-left !
#blocks-left @ c min \ # direct blocks
inode @ 28 + over 4 * ^blocks @ swap move blocks-read
#blocks-left @ IF inode @ 58 + l@-le read-indirect-blocks THEN
#blocks-left @ IF inode @ 5c + l@-le read-double-indirect-blocks THEN
#blocks-left @ IF inode @ 60 + l@-le read-triple-indirect-blocks THEN ;
: read-inode ( inode# -- )
1- inodes/group @ u/mod \ # in group, group #
20 * group-descriptors @ + 8 + l@-le block-size @ * \ # in group, inode table
swap inode-size @ * + xlsplit seek drop  inode @ inode-size @ read drop
;
: .rwx ( bits last-char-if-special special? -- )
rot dup 4 and IF ." r" ELSE ." -" THEN
dup 2 and IF ." w" ELSE ." -" THEN
swap IF 1 and 0= IF upc THEN emit ELSE
1 and IF ." x" ELSE ." -" THEN drop THEN ;
CREATE mode-chars 10 allot s" ?pc?d?b?-?l?s???" mode-chars swap move
: .mode ( mode -- )
dup c rshift f and mode-chars + c@ emit
dup 6 rshift 7 and over 800 and 73 swap .rwx
dup 3 rshift 7 and over 400 and 73 swap .rwx
dup          7 and swap 200 and 74 swap .rwx ;
: .inode ( -- )
base @ >r decimal
inode @      w@-le .mode \ file mode
inode @ 1a + w@-le 5 .r \ link count
inode @ 02 + w@-le 9 .r \ uid
inode @ 18 + w@-le 9 .r \ gid
inode @ 04 + l@-le 9 .r \ size
r> base ! ;
: do-super ( -- )
400 400 read-data
data @ 14 + l@-le first-block !
400 data @ 18 + l@-le lshift block-size !
data @ 28 + l@-le inodes/group !
data @ 4c + l@-le 0= IF
80 inode-size !
ELSE
data @ 58 + w@-le inode-size !
THEN
data @ 20 + l@-le group-desc-size !
first-block @ 1+ block-size @ *
group-desc-size @
read-data
data @ group-descriptors !
data off
;
INSTANCE VARIABLE current-pos
: read ( adr len -- actual )
file-len @ current-pos @ - min \ can't go past end of file
current-pos @ block-size @ u/mod 4 * blocks @ + l@-le read-block
block-size @ over - rot min >r ( adr off r: len )
data @ + swap r@ move r> dup current-pos +! ;
: read ( adr len -- actual )
dup >r BEGIN dup WHILE 2dup read dup 0= ABORT" ext2-files: read failed"
/string REPEAT 2drop r> ;
: seek ( lo hi -- status )
lxjoin dup file-len @ > IF drop true EXIT THEN current-pos ! false ;
: load ( adr -- len )
file-len @ read dup file-len @ <> ABORT" ext2-files: failed loading file" ;
: .name ( adr -- )  dup 8 + swap 6 + c@ type ;
: read-dir ( inode# -- adr )
read-inode read-block#s file-len @ alloc-mem
0 0 seek ABORT" ext2-files read-dir: seek failed"
dup file-len @ read file-len @ <> ABORT" ext2-files read-dir: read failed" ;
: .dir ( inode# -- )
read-dir dup BEGIN 2dup file-len @ - > over l@-le tuck and WHILE
cr dup 8 0.r space read-inode .inode space space dup .name
dup 4 + w@-le + REPEAT 2drop file-len @ free-mem ;
: (find-file) ( adr name len -- inode#|0 )
2>r dup BEGIN 2dup file-len @ - > over l@-le and WHILE
dup 8 + over 6 + c@ 2r@ str= IF 2r> 2drop nip l@-le EXIT THEN
dup 4 + w@-le + REPEAT 2drop 2r> 2drop 0 ;
: find-file ( inode# name len -- inode#|0 )
2>r read-dir dup 2r> (find-file) swap file-len @ free-mem ;
: find-path ( inode# name len -- inode#|0 )
dup 0= IF 3drop 0 ."  empty name " EXIT THEN
over c@ [char] \ = IF 1 /string ."  slash " RECURSE EXIT THEN
[char] \ split 2>r find-file ?dup 0= IF
2r> 2drop false ."  not found " EXIT THEN
r@ 0<> IF 2r> ."  more... " RECURSE EXIT THEN
2r> 2drop ."  got it " ;
: close
inode @ inode-size @ free-mem
group-descriptors @ group-desc-size @ free-mem
free-data
blocks @ ?dup IF #blocks @ 4 * free-mem THEN
;
: open
0 data ! 0 blocks ! 0 #blocks !
do-super
inode-size @ alloc-mem inode !
my-args nip 0= IF 0 0 ELSE
2 my-args find-path ?dup 0= IF close false EXIT THEN THEN
read-inode read-block#s 0 0 seek 0= ;
finish-device
new-device
s" obp-tftp" device-name
VARIABLE huge-tftp-load 1 huge-tftp-load !
: open ( -- okay? ) 
true
;
: load ( addr -- size )
s" bootargs" get-chosen 0= IF 0 0 THEN >r >r
s" bootpath" get-chosen 0= IF 0 0 THEN >r >r
my-parent ihandle>phandle node>path encode-string
s" bootpath" set-chosen
60000000                        ( addr maxlen )
6B8 alloc-mem dup >r            ( addr maxlen replybuf )
huge-tftp-load @  d# 1428       ( addr maxlen replybuf hugetftp blocksize )
my-args
net-load dup 0< IF drop 0 THEN
r>
r> r> over IF s" bootpath" set-chosen ELSE 2drop THEN
r> r> over IF s" bootargs" set-chosen ELSE 2drop THEN
dup 6B8 encode-bytes s" bootp-response" s" /chosen" find-node set-property
6B8 free-mem
;
: close ( -- )
;
: ping  ( -- )
my-args net-ping
;
finish-device
new-device
s" iso-9660" device-name
0 VALUE iso-debug-flag
: iso-debug-print ( str len -- )  iso-debug-flag IF type cr ELSE 2drop THEN  ;
0 VALUE  path-tbl-size
0 VALUE  path-tbl-addr
0 VALUE  root-dir-size
0 VALUE  vol-size
0 VALUE  logical-blk-size
0 VALUE  path-table
0 VALUE  count
INSTANCE VARIABLE dir-addr
INSTANCE VARIABLE data-buff
INSTANCE VARIABLE #data
INSTANCE VARIABLE ptable
INSTANCE VARIABLE file-loc
INSTANCE VARIABLE file-size
INSTANCE VARIABLE cur-file-offset
INSTANCE VARIABLE self
INSTANCE VARIABLE index
: seek  ( pos.lo pos.hi -- status )  s" seek" $call-parent  ;
: read  ( addr len -- actual )  s" read" $call-parent  ;
: free-data ( -- )
data-buff @                              ( data-buff )
?DUP  IF  #data @  free-mem  0 data-buff ! 0 #data ! THEN
;
: read-data ( offset size -- )
dup #data @ > IF
free-data dup dup                  ( offset size size size )
#data ! alloc-mem data-buff !      ( offset size )
THEN
swap xlsplit                          ( size pos.lo pos.hi )
seek   -2 and ABORT" seek failed."
data-buff @ over read                 ( size actual )
<> ABORT" read failed."
;
: extract-vol-info  (  --  )
10  800 * 800 read-data
data-buff @  88  + l@-be  to path-tbl-size   \ read path table size
data-buff @  94  + l@-be  to path-tbl-addr   \ read big-endian  path table
data-buff @  a2  + l@-be   dir-addr !        \ gather of root directory info
data-buff @  0aa + l@-be  to root-dir-size   \ get volume info
data-buff @  54  + l@-be  to vol-size        \ size in blocks
data-buff @  82  + l@-be  to logical-blk-size
path-tbl-size alloc-mem dup  TO path-table path-tbl-size erase
path-tbl-addr 800 *  xlsplit seek  drop
path-table  path-tbl-size  read  drop     \ pathtable in-system-memory copy
;
: file-name  ( str len --  str' len' )
2dup  [char] ; findchar  IF
nip                 \ Omit the trailing ";1" revision of ISO9660 file name
2dup + 1-           ( str newlen endptr )
c@ [CHAR] . = IF
1-               ( str len' )    \ Remove trailing dot
THEN
THEN
;
: dup3  ( num  -- num num num ) dup dup dup  ;
: get-next-record  ( rec-addr -- next-rec-offset )
dup3               ( rec-addr rec-addr rec-addr rec-addr )
self @ 1 +  self ! ( rec-addr rec-addr rec-addr rec-addr )
c@  1 AND  IF      ( rec-addr rec-addr rec-addr )
c@ +  9         ( rec-addr rec-addr' rec-len )
ELSE
c@ +  8         ( rec-addr rec-addr' rec-len )
THEN
+ swap  -          ( next-rec-offset )
;
: path-table-search ( str len -- TRUE | FALSE )
path-table path-tbl-size +  path-table ptable @ +  DO ( str len )
2dup  I 6 + w@-be index @ =                        ( str len str len )
-rot  I 8 +  I c@
iso-debug-flag IF
." ISO: comparing path name '"
4dup type ." ' with '" type ." '" cr
THEN
string=ci and  IF                                  ( str len )
s" Directory Matched!!  "   iso-debug-print     ( str len )
self @   index !                                ( str len )
I 2 + l@-be   dir-addr ! I  dup                 ( str len rec-addr )
get-next-record + path-table -   ptable !       ( str len )
2drop  TRUE UNLOOP EXIT                         ( TRUE )
THEN
I get-next-record                           ( str len next-rec-offset )
+LOOP
2drop
FALSE                                          ( FALSE )
s" Invalid path / directory "  iso-debug-print
;
: search-file-dir ( str len  -- TRUE | FALSE )
dir-addr @  800 *  dir-addr !             ( str len )
dir-addr @ 100 read-data                  ( str len )
data-buff @  0e + l@-be  dup >r           ( str len rec-len )
100 >  IF                                 ( str len )
s" size dir record"  iso-debug-print   ( str len )
dir-addr @ r@  read-data               ( str len )
THEN
r> data-buff @  + data-buff @  DO         ( str len )
I 19 + c@  2 and 0=  I c@ 0<> and IF   ( str len )
2dup                                ( str len  str len )
I 21 + I 20 + c@                    ( str len  str len  str' len' )
iso-debug-flag IF
." ISO: comparing file name '"
4dup type ." ' with '" type ." '" cr
THEN
file-name  string=ci  IF            ( str len )
s" File found!"  iso-debug-print ( str len )
I 6 + l@-be 800 *                ( str len file-loc )
file-loc !                       ( str len )
I 0e + l@-be  file-size !        ( str len )
2drop
TRUE                             ( TRUE )
UNLOOP
EXIT
THEN
THEN
I c@ ?dup 0= IF
800 I 7ff AND -
iso-debug-flag IF
." skipping " dup . ." bytes at end of sector" cr
THEN
THEN
+LOOP
2drop
FALSE                                     ( FALSE )
s" file not found"   iso-debug-print
;
: search-path ( str len -- FALSE|TRUE )
0  ptable !
1  self !
1  index !
dup                                             ( str len len )
0=  IF
3drop FALSE                                  ( FALSE )
s"  Empty path name "  iso-debug-print  EXIT ( FALSE )
THEN
OVER c@                                         ( str len char )
[char] \ =  IF                                  ( str len )
swap 1 + swap 1 -  BEGIN                     ( str len )
[char] \  split                           ( str len  str' len ' )
dup 0 =   IF                              ( str len  str' len ' )
2drop search-file-dir EXIT             ( TRUE | FALSE )
ELSE
2swap path-table-search  invert  IF    ( str' len ' )
2drop FALSE  EXIT                   ( FALSE )
THEN
THEN
AGAIN
ELSE   BEGIN
[char] \  split   dup 0 =   IF               ( str len str' len' )
2drop search-file-dir EXIT                ( TRUE | FALSE )
ELSE
2swap path-table-search  invert  IF       ( str' len ' )
2drop FALSE  EXIT                      ( FALSE )
THEN
THEN
AGAIN
THEN
;
0 VALUE loc
: load ( addr -- len )
dup to loc                     ( addr )
file-loc @  xlsplit seek drop
file-size @  read              ( file-size )
iso-debug-flag IF s" Bytes returned from read:" type dup . cr THEN
dup file-size @  <> ABORT" read failed!"
;
: close ( -- )
free-data   count 1 - dup to count  0 =  IF
path-table path-tbl-size free-mem
0 TO path-table
THEN
;
: open ( -- TRUE | FALSE )
0 data-buff !
0 #data !
0 ptable !
0 file-loc !
0 file-size !
0 cur-file-offset !
1 self !
1 index !
count 0 =  IF
s" extract-vol-info called "   iso-debug-print
extract-vol-info
THEN
count  1 + to count
my-args search-path  IF
file-loc @  xlsplit seek drop
TRUE    ( TRUE )
ELSE
close
FALSE   ( FALSE )
THEN
0 cur-file-offset !
s" opened ISO9660 package" iso-debug-print
;
: seek ( pos.lo pos.hi -- status )
lxjoin dup  cur-file-offset !  ( offset )
file-loc @  + xlsplit          ( pos.lo pos.hi )
s" seek" $call-parent          ( status )
;
: read ( addr len -- actual )
file-size @ cur-file-offset @ -             ( addr len remainder-of-file )
min                                         ( addr len|remainder-of-file )
s" read" $call-parent                       ( actual )
dup cur-file-offset @ +  cur-file-offset !  ( actual )
cur-file-offset @                           ( offset actual )
xlsplit seek drop                           ( actual )
;
finish-device
finish-device
: open true ;
: close ;
finish-device
370 cp
: check-boot-menu
s" qemu,boot-menu" get-chosen IF
decode-int 1 = IF
." Press F12 for boot menu." cr cr
THEN
2drop
THEN
;
check-boot-menu
380 cp
371 cp
STRUCT
/l field rtas>token
/l field rtas>nargs
/l field rtas>nret
/l field rtas>args0
/l field rtas>args1
/l field rtas>args2
/l field rtas>args3
/l field rtas>args4
/l field rtas>args5
/l field rtas>args6
/l field rtas>args7
/l C * field rtas>args
/l field rtas>bla
CONSTANT /rtas-control-block
CREATE rtas-cb /rtas-control-block allot
rtas-cb /rtas-control-block erase
0 VALUE rtas-base
0 VALUE rtas-size
0 VALUE rtas-entry
0 VALUE rtas-node
372 cp
: find-qemu-rtas ( -- )
" /rtas" find-device get-node to rtas-node
" linux,rtas-base" rtas-node get-package-property IF
device-end EXIT THEN
drop l@ to rtas-base
" linux,rtas-base" delete-property
" rtas-size" rtas-node get-package-property IF
device-end EXIT THEN
drop l@ to rtas-size
" linux,rtas-entry" rtas-node get-package-property IF
rtas-base to rtas-entry
ELSE
drop l@ to rtas-entry
" linux,rtas-entry" delete-property
THEN
0
rtas-base
dup rtas-size +
check-and-patch-sc1
device-end
;
find-qemu-rtas
373 cp
: enter-rtas ( -- )
rtas-cb rtas-base 0 rtas-entry call-c drop
;
: rtas-get-token ( str len -- token | 0 )
rtas-node get-package-property IF 0 ELSE drop l@ THEN
;
: rtas-power-off   ( x y -- status )
[ s" power-off" rtas-get-token ] LITERAL rtas-cb rtas>token l!
2 rtas-cb rtas>nargs l!
1 rtas-cb rtas>nret l!
rtas-cb rtas>args0 l!
rtas-cb rtas>args1 l!
enter-rtas
rtas-cb rtas>args2 l@
;
: power-off  ( -- )  0 0 rtas-power-off ;
: rtas-system-reboot  ( -- status )
[ s" system-reboot" rtas-get-token ] LITERAL rtas-cb rtas>token l!
0 rtas-cb rtas>nargs l!
1 rtas-cb rtas>nret l!
rtas-cb rtas>args0 l!
enter-rtas
rtas-cb rtas>args1 l@
;
: rtas-start-cpu  ( pid loc r3 -- status )
[ s" start-cpu" rtas-get-token ] LITERAL rtas-cb rtas>token l!
3  rtas-cb rtas>nargs l!
1  rtas-cb rtas>nret l!
rtas-cb rtas>args2 l!
rtas-cb rtas>args1 l!
rtas-cb rtas>args0 l!
0 rtas-cb rtas>args3 l!
enter-rtas
rtas-cb rtas>args3 l@
;
: rtas-set-tce-bypass ( unit enable -- )
" ibm,set-tce-bypass" rtas-get-token rtas-cb rtas>token l!
2 rtas-cb rtas>nargs l!
0 rtas-cb rtas>nret l!
rtas-cb rtas>args1 l!
rtas-cb rtas>args0 l!
enter-rtas
;
: rtas-quiesce ( -- )
" quiesce" rtas-get-token rtas-cb rtas>token l!
0 rtas-cb rtas>nargs l!
0 rtas-cb rtas>nret l!
enter-rtas
;
0 value puid
: rtas-do-config-@ ( config-addr size -- value)
[ s" ibm,read-pci-config" rtas-get-token ] LITERAL rtas-cb rtas>token l!
4 rtas-cb rtas>nargs l!
2 rtas-cb rtas>nret l!
( addr size ) rtas-cb rtas>args3 l!
puid rtas-cb rtas>args2 l!
puid 20 rshift rtas-cb rtas>args1 l!
( addr ) rtas-cb rtas>args0 l!
enter-rtas
rtas-cb rtas>args4 l@ dup IF
drop ffffffff
ELSE
drop rtas-cb rtas>args5 l@
THEN
;
: rtas-do-config-! ( value config-addr size )
[ s" ibm,write-pci-config" rtas-get-token ] LITERAL rtas-cb rtas>token l!
5 rtas-cb rtas>nargs l!
1 rtas-cb rtas>nret l!
( value addr size ) rtas-cb rtas>args3 l!
puid rtas-cb rtas>args2 l!
puid 20 rshift rtas-cb rtas>args1 l!
( value addr ) rtas-cb rtas>args0 l!
( value ) rtas-cb rtas>args4 l!
enter-rtas
rtas-cb rtas>args5 l@ dup IF
." RTAS write config err " . cr
ELSE drop THEN
;
: rtas-config-b@ ( config-addr -- value )
1 rtas-do-config-@ ff and
;
: rtas-config-b! ( value config-addr -- )
1 rtas-do-config-!
;
: rtas-config-w@ ( config-addr -- value )
2 rtas-do-config-@ ffff and
;
: rtas-config-w! ( value config-addr -- )
2 rtas-do-config-!
;
: rtas-config-l@ ( config-addr -- value )
4 rtas-do-config-@ ffffffff and
;
: rtas-config-l! ( value config-addr -- )
4 rtas-do-config-!
;
: of-start-cpu rtas-start-cpu ;
' power-off to halt
' rtas-system-reboot to reboot
rtas-node set-node
: open true ;
: close ;
: instantiate-rtas ( adr -- entry )
dup rtas-base swap rtas-size move
dup rtas-entry rtas-base - +
2dup hv-rtas-update dup 0 <> IF
dup -2 <> IF ." HV-RTAS-UPDATE error: " . cr ELSE drop THEN
ELSE
drop
THEN
nip
;
device-end
374 cp
3f0 cp
: strequal ( str1 len1 str2 len2 -- flag )
rot dup rot = IF comp 0= ELSE 2drop drop 0 THEN ; 
400 cp
" /" find-device
200000 CONSTANT cas-buffer-size
: ibm,client-architecture-support         ( vec -- err? )
cas-buffer-size alloc-mem             ( vec memaddr )
dup 0= IF ." out of memory during ibm,client-architecture-support" cr THEN
swap over cas-buffer-size             ( memaddr vec memaddr size )
hv-cas 0= IF                          ( memaddr )
dup l@ 1 >= IF                    \ Version number >= 1
" /" find-node set-node
dup 4 + fdt-init
fdt-check-header
fdt-struct fdt-fix-cas-node
fdt-fix-cas-success NOT
ELSE
FALSE
THEN
ELSE
TRUE
THEN
>r cas-buffer-size free-mem r>
;
480 cp
new-device
s" mmu" 2dup device-name device-type
0 0 s" translations" property
: open  true ;
: close ;
finish-device
device-end
4c0 cp
: fixup-tbfreq
" /cpus" find-device
get-node child dup 0= ABORT" CPU not found"
set-node
" timebase-frequency" get-node get-package-property IF
2drop
ELSE
decode-int to tb-frequency 2drop
THEN
device-end
;
fixup-tbfreq
4d0 cp
include fbuffer.fs
500 cp
: populate-vios ( -- )
." Populating /vdevice methods" cr
" /vdevice" find-device get-node child
BEGIN
dup 0 <>
WHILE
dup set-node
dup " compatible" rot get-package-property 0 = IF
drop dup from-cstring
2dup " hvterm1" strequal IF
" vio-hvterm.fs" included
THEN
2dup " IBM,v-scsi" strequal IF
" vio-vscsi.fs" included
THEN
2dup " IBM,l-lan" strequal IF
" vio-veth.fs" included
THEN
2dup " qemu,spapr-nvram" strequal IF
" rtas-nvram.fs" included
THEN
2drop
THEN
peer
REPEAT drop
device-end
;
populate-vios
580 cp
5a0 cp
VARIABLE pci-next-mem           \ prefetchable memory mapped
VARIABLE pci-max-mem
VARIABLE pci-next-mmio          \ non-prefetchable memory
VARIABLE pci-max-mmio
VARIABLE pci-next-io            \ I/O space
VARIABLE pci-max-io
VARIABLE pci-next-mem64           \ prefetchable 64-bit memory mapped
VARIABLE pci-max-mem64
0 VALUE pci-bus-number
0 VALUE pci-device-number
0 VALUE pci-device-slots
here 100 allot CONSTANT pci-device-vec
0 VALUE pci-device-vec-len
0 VALUE pci-hotplug-enabled
: next-pci-mem ( addr -- addr ) pci-next-mem ;
: next-pci-mmio ( addr -- addr ) pci-next-mmio ;
: next-pci-io ( addr -- addr ) pci-next-io ;
: int2str ( int len -- str len ) swap s>d rot <# 0 ?DO # LOOP #> ;
: pci-addr2bus ( addr -- busnr ) 10 rshift FF and ;
: pci-addr2dev ( addr -- dev ) B rshift 1F and ;
: pci-addr2fn ( addr -- dev ) 8 rshift 7 and ;
: pci-bus2addr ( busnr devnr -- addr ) B lshift swap 10 lshift + ;
: pci-addr-out ( addr -- ) dup pci-addr2bus 2 0.r space FFFF and 4 0.r ;
: pci-dump ( addr -- )
10 0 DO
dup
cr i 4 * +
dup pci-addr-out space
rtas-config-l@ 8 0.r
LOOP
drop cr
;
: pci-vendor@ ( addr -- id )                 rtas-config-l@ FFFF and ;
: pci-device@ ( addr -- id )                 rtas-config-l@ 10 rshift ;
: pci-status@ ( addr -- status )         4 + rtas-config-l@ 10 rshift ;
: pci-revision@ ( addr -- id )           8 + rtas-config-b@ ;
: pci-class@  ( addr -- class )          8 + rtas-config-l@ 8 rshift ;
: pci-cache@  ( addr -- size )           C + rtas-config-b@ ;
: pci-htype@  ( addr -- type )           E + rtas-config-b@  ;
: pci-sub-vendor@ ( addr -- sub-id )    2C + rtas-config-l@ FFFF and ;
: pci-sub-device@ ( addr -- sub-id )    2C + rtas-config-l@ 10 rshift FFFF and ;
: pci-interrupt@  ( addr -- interrupt ) 3D + rtas-config-b@ ;
: pci-min-grant@  ( addr -- min-gnt )   3E + rtas-config-b@ ;
: pci-max-lat@  ( addr -- max-lat )     3F + rtas-config-b@ ;
: pci-capabilities?  ( addr -- 0|1 ) pci-status@ 4 rshift 1 and ;
: pci-cap-next  ( cap-addr -- next-cap-off ) rtas-config-b@ FC and ;
: pci-cap-next-addr  ( cap-addr -- next-cap-addr ) 1+ dup pci-cap-next dup IF swap -100 and + ELSE nip THEN ;
: pci-cap-dump ( addr -- )
cr
dup pci-capabilities? IF
33 + BEGIN
pci-cap-next-addr dup 0<>
WHILE
dup pci-addr-out s"  : " type
dup rtas-config-b@ 2 0.r cr
REPEAT
s" end found "
ELSE
s" capabilities not enabled!"
THEN
type cr drop
;
: pci-cap-find ( addr id -- capp-addr|0 )
swap dup pci-capabilities? IF
33 + BEGIN
pci-cap-next-addr dup 0<> IF
dup rtas-config-b@ 2 pick =
ELSE
true
THEN
UNTIL
nip
ELSE
2drop 0
THEN
;
: pci-express? ( addr -- 0|1 ) 10 pci-cap-find 0<> ;
: pci-x? ( addr -- 0|1 ) 07 pci-cap-find 0<> ;
: pci-config-ext? ( addr -- 0|1 ) pci-express? ;
: pci-device-disable ( -- ) my-space 4 + dup rtas-config-l@ 7 invert and swap rtas-config-l! ;
: pci-master-enable ( -- ) my-space 4 + dup rtas-config-l@ 4 or swap rtas-config-l! ;
: pci-master-disable ( -- ) my-space 4 + dup rtas-config-l@ 4 invert and swap rtas-config-l! ;
: pci-mem-enable ( -- ) my-space 4 + dup rtas-config-w@ 2 or swap rtas-config-w! ;
: pci-io-enable ( -- ) my-space 4 + dup rtas-config-w@ 1 or swap rtas-config-w! ;
: pci-enable ( -- ) my-space 4 + dup rtas-config-w@ 7 or swap rtas-config-w! ;
: pci-error-enable ( -- ) my-space 4 + dup rtas-config-w@ 140 or swap rtas-config-w! ;
: pci-out ( addr char -- )
15 spaces
over pci-addr-out
s"  (" type emit s" ) : " type
dup pci-vendor@ 4 0.r space
pci-device@ 4 0.r
4 spaces
;
: pci-irq-line@  ( addr -- irq-pin ) 3C + rtas-config-b@ ;
: pci-irq-line!  ( pin addr -- ) 3C + rtas-config-b! ;
: pci-bus-prim! ( nr addr -- ) 18 + dup rtas-config-l@ FFFFFF00 and rot + swap rtas-config-l! ;
: pci-bus-prim@ ( addr -- nr ) 18 + rtas-config-l@ FF and ;
: pci-bus-scnd! ( nr addr -- ) 18 + dup rtas-config-l@ FFFF00FF and rot 8 lshift + swap rtas-config-l! ;
: pci-bus-scnd@ ( addr -- nr ) 18 + rtas-config-l@ 8 rshift FF and ;
: pci-bus-subo! ( nr addr -- ) 18 + dup rtas-config-l@ FF00FFFF and rot 10 lshift + swap rtas-config-l! ;
: pci-bus-subo@ ( addr -- nr ) 18 + rtas-config-l@ 10 rshift FF and ;
: pci-bus! ( subo scnd prim addr -- ) swap rot 8 lshift + rot 10 lshift + swap 18 + dup rtas-config-l@ FF000000 and rot + swap rtas-config-l! ;
: pci-bus@ ( addr -- subo scnd prim ) 18 + rtas-config-l@ dup 10 rshift FF and swap dup 8 rshift FF and swap FF and ;
: pci-reset-2nd ( addr -- ) 1C + dup rtas-config-l@ FFFF0000 or swap rtas-config-l! ;
: pci-vec ( -- )
cr s" device-vec(" type
pci-device-vec-len dup 2 0.r s" ):" type
1+ 0 DO
pci-device-vec i + c@
space 2 0.r
LOOP
cr
;
: pci-var-out ( -- )
s"   mem:" type pci-next-mem @ 16 0.r cr
s"  mmio:" type pci-next-mmio @ 16 0.r cr
s"    io:" type pci-next-io @ 16 0.r cr
;
: pci-set-slot ( addr -- )
pci-addr2dev dup                \ calc slot number
pci-device-vec-len              \ the end of the vector
pci-device-vec + c!             \ and update the vector
80000000 swap rshift            \ calc bit position of the device slot
pci-device-slots or             \ set this bit
TO pci-device-slots             \ and write it back
;
: pci-bridge-set-mmio-base ( addr -- )
pci-next-mmio @ 100000 #aligned         \ read the current Value and align to 1MB boundary
dup 100000 + pci-next-mmio !            \ and write back with 1MB for bridge
10 rshift                               \ mmio-base reg is only the upper 16 bits
pci-max-mmio @ 1- FFFF0000 and or       \ and Insert mmio Limit (set it to max)
swap 20 + rtas-config-l!                \ and write it into the bridge
;
: pci-bridge-set-mmio-limit ( addr -- )
pci-next-mmio @ 100000 #aligned         \ fetch current value and align to 1MB
dup pci-next-mmio !                     \ and write it back
1- FFFF0000 and                         \ make it one less and keep upper 16 bits
over 20 + rtas-config-l@ 0000FFFF and   \ fetch original value
or swap 20 + rtas-config-l!             \ and write it into the Reg
;
: pci-bridge-set-mem-base ( addr -- )
pci-next-mem @ 100000 #aligned          \ read the current Value and align to 1MB boundary
dup 100000 + pci-next-mem !             \ and write back with 1MB for bridge
over 24 + rtas-config-w@                \ check if 64bit support
1 and IF                                \ IF 64 bit support
pci-next-mem64 @ 100000000 #aligned \ | read the current Value of 64-bit and align to 4GB boundary
dup 100000000 + pci-next-mem64 x!   \ | and write back with 1GB for bridge
2 pick swap                         \ |
20 rshift                           \ | keep upper 32 bits
swap 28 + rtas-config-l!            \ | and write it into the Base-Upper32-bits
pci-max-mem64 @ 20 rshift           \ | fetch max Limit address and keep upper 32 bits
2 pick 2C + rtas-config-l!          \ | and set the Limit
THEN                                    \ FI
10 rshift                               \ keep upper 16 bits
pci-max-mem @ 1- FFFF0000 and or        \ and Insert mmem Limit (set it to max)
swap 24 + rtas-config-l!                \ and write it into the bridge
;
: pci-bridge-set-mem-limit ( addr -- )
pci-next-mem @ 100000 #aligned          \ read the current Value and align to 1MB boundary
dup pci-next-mem !                      \ and write it back
1-                                      \ make limit one less than boundary
over 24 + rtas-config-w@                \ check if 64bit support
1 and IF                                \ IF 64 bit support
pci-next-mem64 @ 100000000 #aligned \ | Reat current value of 64-bar and align at 4GB
dup pci-next-mem64 x!               \ | and write it back
1-                                  \ | make limite one less than boundary
2 pick swap                         \ |
20 rshift                           \ | keep upper 32 bits
swap 2C + rtas-config-l!            \ | and write it into the Limit-Upper32-bits
THEN                                    \ FI
FFFF0000 and                            \ keep upper 16 bits
over 24 + rtas-config-l@ 0000FFFF and   \ fetch original Value
or swap 24 + rtas-config-l!             \ and write it into the bridge
;
: pci-bridge-set-io-base ( addr -- )
pci-next-io @ 1000 #aligned             \ read the current Value and align to 4KB boundary
dup 1000 + pci-next-io !                \ and write back with 4K for bridge
over 1C + rtas-config-l@                \ check if 32bit support
1 and IF                                \ IF 32 bit support
2dup 10 rshift                  \ | keep upper 16 bits
pci-max-io @ FFFF0000 and or    \ | insert upper 16 bits of Max-Limit
swap 30 + rtas-config-l!        \ | and write it into the Base-Upper16-bits
THEN                                    \ FI
8 rshift 000000FF and                   \ keep upper 8 bits
pci-max-io @ 1- 0000FF00 and or         \ insert upper 8 bits of Max-Limit
over rtas-config-l@ FFFF0000 and        \ fetch original Value
or swap 1C + rtas-config-l!             \ and write it into the bridge
;
: pci-bridge-set-io-limit ( addr -- )
pci-next-io @ 1000 #aligned             \ read the current Value and align to 4KB boundary
dup pci-next-io !                       \ and write it back
1-                                      \ make limit one less than boundary
over 1D + rtas-config-b@                \ check if 32bit support
1 and IF                                \ IF 32 bit support
2dup FFFF0000 and               \ | keep upper 16 bits
over 30 + rtas-config-l@        \ | fetch original Value
or swap 30 + rtas-config-l!     \ | and write it into the Limit-Upper16-bits
THEN                                    \ FI
0000FF00 and                            \ keep upper 8 bits
over 1C + rtas-config-l@ FFFF00FF and   \ fetch original Value
or swap 1C + rtas-config-l!             \ and write it into the bridge
;
: pci-bridge-set-bases ( addr -- )
dup pci-bridge-set-mmio-base
dup pci-bridge-set-mem-base
pci-bridge-set-io-base
;
: pci-bridge-set-limits ( addr -- )
dup pci-bridge-set-mmio-limit
dup pci-bridge-set-mem-limit
pci-bridge-set-io-limit
;
DEFER func-pci-probe-bus
DEFER func-pci-bridge-range-props
: pci-bridge-probe ( addr -- )
dup pci-bridge-set-bases                        \ SetUp all Base Registers
dup func-pci-bridge-range-props                 \ Setup temporary "range
pci-bus-number 1+ TO pci-bus-number             \ increase number of busses found
pci-device-vec-len 1+ TO pci-device-vec-len     \ increase the device-slot vector depth
dup                                             \ stack config-addr for pci-bus!
FF swap                                         \ Subordinate Bus Number ( for now to max to open all subbusses )
pci-bus-number swap                             \ Secondary   Bus Number ( the new busnumber )
dup pci-addr2bus swap                           \ Primary     Bus Number ( the current bus )
pci-bus!                                        \ and set them into the bridge
pci-enable                                      \ enable mem/IO transactions
dup pci-bus-scnd@ func-pci-probe-bus            \ and probe the secondary bus
dup pci-bus-number swap pci-bus-subo!           \ set SubOrdinate Bus Number to current number of busses
pci-device-vec-len 1- TO pci-device-vec-len     \ decrease the device-slot vector depth
dup pci-bridge-set-limits                       \ SetUp all Limit Registers
drop                                            \ forget the config-addr
;
DEFER func-pci-bridge-probe
' pci-bridge-probe TO func-pci-bridge-probe
: pci-device-setup ( addr -- )
drop                            \ since the config-addr is coded in my-space, drop it here
s" pci-device.fs" included      \ and setup the device as node in the device tree
;
: pci-bridge-setup ( addr -- )
drop                            \ since the config-addr is coded in my-space, drop it here
s" pci-bridge.fs" included      \ and setup the bridge as node in the device tree
;
: pci-add-device ( addr -- )
new-device                      \ create a new device-tree node
dup set-space               \ set the config addr for this device tree entry
dup pci-set-slot            \ set the slot bit
dup pci-htype@              \ read HEADER-Type
7f and                      \ Mask bit 7 - multifunction device
CASE
0 OF pci-device-setup ENDOF  \ | set up the device
1 OF pci-bridge-setup ENDOF  \ | set up the bridge
dup OF dup pci-htype@ pci-out ENDOF
ENDCASE
finish-device                   \ and close the device-tree node
;
: pci-setup-device ( addr -- )
dup pci-htype@                      \ read HEADER-Type
80 and IF 8 ELSE 1 THEN             \ check for multifunction
0 DO                                \ LOOP over all possible functions (either 8 or only 1)
dup
i 8 lshift +                \ calc device-function-config-addr
dup pci-vendor@             \ check if valid function
FFFF = IF
drop                \ non-valid so forget the address
ELSE
pci-device-number 1+    \ increase the number of devices
TO pci-device-number    \ and store it
pci-add-device          \ and add the device to the device tree and set it up
THEN
LOOP                                \ next function
drop                                \ forget the device-addr
;
: pci-probe-device ( busnr devicenr -- )
pci-bus2addr                                    \ calc pci-address
dup pci-vendor@                                 \ fetch Vendor-ID
FFFF = IF                                       \ check if valid
drop                                    \ if not forget it
ELSE
pci-setup-device                        \ if valid setup the device
THEN
;
: pci-probe-bus ( busnr -- )
0 TO pci-device-slots           \ reset slot array to unpoppulated
20 0 DO
dup
i pci-probe-device
LOOP
drop
;
' pci-probe-bus TO func-pci-probe-bus
: pci-probe-all ( bus-max bus-min -- )                  \ Check all busses from bus-min up to bus-max if needed
0 TO pci-device-vec-len                         \ reset the device-slot vector
DO
i TO pci-bus-number                     \ set current Busnumber
0 TO pci-device-number                  \ reset Device Number
pci-bus-number pci-probe-bus            \ and probe this bus
pci-device-number 0 > IF LEAVE THEN     \ if we found a device we're done
LOOP                                            \ else next bus
;
: (probe-pci-host-bridge) ( bus-max bus-min -- )
0d emit ."  Adapters on " puid 10 0.r cr        \ print the puid we're looking at
( bus-max bus-min ) pci-probe-all               \ and walk the bus
pci-device-number 0= IF                         \ IF no devices found
15 spaces                               \ | indent the output
." None" cr                             \ | tell the world our result
THEN                                            \ FI
;
: probe-pci-host-bridge ( bus-max bus-min mmio-max mmio-base mem-max mem-base io-max io-base my-puid -- )
puid >r TO puid                                 \ save puid and set the new
pci-next-io !                                   \ save the next io-base address
pci-max-io !                                    \ save the max io-space address
pci-next-mem !                                  \ save the next mem-base address
pci-max-mem !                                   \ save the max mem-space address
pci-next-mmio !                                 \ save the next mmio-base address
pci-max-mmio !                                  \ save the max mmio-space address
(probe-pci-host-bridge)
r> TO  puid                                     \ restore puid
;
0 VALUE pci-net-num
0 VALUE pci-disk-num
0 VALUE pci-cdrom-num
: pci-set-alias ( str-addr str-len num -- )
$cathex strdup       \ create alias name
get-node node>path   \ get path string
set-alias            \ and set the alias
;
: unknown-enet ( -- pci-net-num )
pci-net-num dup 1+ TO pci-net-num
;
: pci-alias-net ( config-addr -- )
drop                                   \ forget the config address
pci-net-num dup 1+ TO pci-net-num      \ increase the pci-net-num
s" net" rot pci-set-alias              \ create the alias
;
: pci-alias-disk ( config-addr -- )
drop                                    \ forget the config address
pci-disk-num dup 1+ TO pci-disk-num     \ increase the pci-disk-num
s" disk" rot pci-set-alias              \ create the alias
;
: pci-alias-cdrom ( config-addr -- )
drop                                    \ forget the config address
pci-cdrom-num dup 1+ TO pci-cdrom-num     \ increase the pci-cdrom-num
s" cdrom" rot pci-set-alias              \ create the alias
;
: pci-alias ( config-addr -- )
dup pci-class@ 
10 rshift CASE
01 OF   pci-alias-disk ENDOF
02 OF   pci-alias-net  ENDOF
dup OF   drop           ENDOF
ENDCASE
;
: pci-gen-irq-map-one ( prop-addr prop-len slot pin -- prop-addr prop-len )
2dup + 1- 3 and 1+          ( prop-addr prop-len slot pin parentpin )
>r >r                       ( prop-addr prop-len slot R: parentpin pin )
B lshift encode-int+        ( prop-addr prop-len R: parentpin pin )
0 encode-64+
r> encode-int+              ( prop-addr prop-len R: parentpin )
get-parent encode-int+
get-node >space
pci-addr2dev B lshift       ( prop-addr prop-len parent-slot R: parentpin )
encode-int+
0 encode-64+
r> encode-int+              ( prop-addr prop-len R: )
;
: pci-gen-irq-entry ( prop-addr prop-len config-addr -- prop-addr prop-len )
pci-addr2dev                ( prop-addr prop-len slot )
-rot                        ( slot prop-addr prop-len )
5 1 DO
2 pick i                ( slot prop-addr prop-len slot pin )
pci-gen-irq-map-one
LOOP
rot drop
;
: pci-set-irq-line ( config-addr -- )
drop
;
: pci-msi-prop ( addr -- )
5 pci-cap-find          ( capaddr )
?dup IF
2+ rtas-config-w@   ( msi-control )
1 rshift 7 and      ( msi-control:3:1 )
dup 6 < IF
1 swap lshift   ( vectors# )
encode-int " ibm,req#msi" property
ELSE
." Invalid MSI vectors number " . cr
THEN
THEN
;
: pci-msix-prop ( addr -- )
11 pci-cap-find         ( capaddr )
?dup IF
2+ rtas-config-w@   ( msix-control )
7ff and             ( msix-control:10:0 )
1+                  ( vectors# )
?dup IF
encode-int " ibm,req#msi-x" property
THEN
THEN
;
: pci-set-capabilities ( config-addr -- )
dup pci-msi-prop
dup pci-msix-prop
drop
;
: pci-class-name-00 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
01  OF s" display"               ENDOF
dup OF s" unknown-legacy-device" ENDOF
ENDCASE
;
: pci-class-name-01 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" scsi"         ENDOF
01  OF s" ide"          ENDOF
02  OF s" fdc"          ENDOF
03  OF s" ipi"          ENDOF
04  OF s" raid"         ENDOF
05  OF s" ata"          ENDOF
06  OF s" sata"         ENDOF
07  OF s" sas"          ENDOF
dup OF s" mass-storage" ENDOF
ENDCASE
;
: pci-class-name-02 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" ethernet"   ENDOF
01  OF s" token-ring" ENDOF
02  OF s" fddi"       ENDOF
03  OF s" atm"        ENDOF
04  OF s" isdn"       ENDOF
05  OF s" worldfip"   ENDOF
05  OF s" picmg"      ENDOF
dup OF s" network"    ENDOF
ENDCASE
;
: pci-class-name-03 ( addr -- str len )
pci-class@ FFFF and CASE
0000  OF s" vga"             ENDOF
0001  OF s" 8514-compatible" ENDOF
0100  OF s" xga"             ENDOF
0200  OF s" 3d-controller"   ENDOF
dup OF s" display"           ENDOF
ENDCASE
;
: pci-class-name-04 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" video"             ENDOF
01  OF s" sound"             ENDOF
02  OF s" telephony"         ENDOF
dup OF s" multimedia-device" ENDOF
ENDCASE
;
: pci-class-name-05 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" memory"            ENDOF
01  OF s" flash"             ENDOF
dup OF s" memory-controller" ENDOF
ENDCASE
;
: pci-class-name-06 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" host"                 ENDOF
01  OF s" isa"                  ENDOF
02  OF s" eisa"                 ENDOF
03  OF s" mca"                  ENDOF
04  OF s" pci"                  ENDOF
05  OF s" pcmcia"               ENDOF
06  OF s" nubus"                ENDOF
07  OF s" cardbus"              ENDOF
08  OF s" raceway"              ENDOF
09  OF s" semi-transparent-pci" ENDOF
0A  OF s" infiniband"           ENDOF
dup OF s" unknown-bridge"       ENDOF
ENDCASE
;
: pci-class-name-07 ( addr -- str len )
pci-class@ FFFF and CASE
0000  OF s" serial"                   ENDOF
0001  OF s" 16450-serial"             ENDOF
0002  OF s" 16550-serial"             ENDOF
0003  OF s" 16650-serial"             ENDOF
0004  OF s" 16750-serial"             ENDOF
0005  OF s" 16850-serial"             ENDOF
0006  OF s" 16950-serial"             ENDOF
0100  OF s" parallel"                 ENDOF
0101  OF s" bi-directional-parallel"  ENDOF
0102  OF s" ecp-1.x-parallel"         ENDOF
0103  OF s" ieee1284-controller"      ENDOF
01FE  OF s" ieee1284-device"          ENDOF
0200  OF s" multiport-serial"         ENDOF
0300  OF s" modem"                    ENDOF
0301  OF s" 16450-modem"              ENDOF
0302  OF s" 16550-modem"              ENDOF
0303  OF s" 16650-modem"              ENDOF
0304  OF s" 16750-modem"              ENDOF
0400  OF s" gpib"                     ENDOF
0500  OF s" smart-card"               ENDOF
dup   OF s" communication-controller" ENDOF
ENDCASE
;
: pci-class-name-08 ( addr -- str len )
pci-class@ FFFF and CASE
0000  OF s" interrupt-controller" ENDOF
0001  OF s" isa-pic"              ENDOF
0002  OF s" eisa-pic"             ENDOF
0010  OF s" io-apic"              ENDOF
0020  OF s" iox-apic"             ENDOF
0100  OF s" dma-controller"       ENDOF
0101  OF s" isa-dma"              ENDOF
0102  OF s" eisa-dma"             ENDOF
0200  OF s" timer"                ENDOF
0201  OF s" isa-system-timer"     ENDOF
0202  OF s" eisa-system-timer"    ENDOF
0300  OF s" rtc"                  ENDOF
0301  OF s" isa-rtc"              ENDOF
0400  OF s" hot-plug-controller"  ENDOF
0500  OF s" sd-host-conrtoller"   ENDOF
dup   OF s" system-periphal"      ENDOF
ENDCASE
;
: pci-class-name-09 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" keyboard"         ENDOF
01  OF s" pen"              ENDOF
02  OF s" mouse"            ENDOF
03  OF s" scanner"          ENDOF
04  OF s" gameport"         ENDOF
dup OF s" input-controller" ENDOF
ENDCASE
;
: pci-class-name-0A ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" dock"            ENDOF
dup OF s" docking-station" ENDOF
ENDCASE
;
: pci-class-name-0B ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" 386"           ENDOF
01  OF s" 486"           ENDOF
02  OF s" pentium"       ENDOF
10  OF s" alpha"         ENDOF
20  OF s" powerpc"       ENDOF
30  OF s" mips"          ENDOF
40  OF s" co-processor"  ENDOF
dup OF s" cpu"           ENDOF
ENDCASE
;
: pci-class-name-0C ( addr -- str len )
pci-class@ FFFF and CASE
0000  OF s" firewire"      ENDOF
0100  OF s" access-bus"    ENDOF
0200  OF s" ssa"           ENDOF
0300  OF s" usb-uhci"      ENDOF
0310  OF s" usb-ohci"      ENDOF
0320  OF s" usb-ehci"      ENDOF
0330  OF s" usb-xhci"      ENDOF
0380  OF s" usb"           ENDOF
03FE  OF s" usb-device"    ENDOF
0400  OF s" fibre-channel" ENDOF
0500  OF s" smb"           ENDOF
0600  OF s" infiniband"    ENDOF
0700  OF s" ipmi-smic"     ENDOF
0701  OF s" ipmi-kbrd"     ENDOF
0702  OF s" ipmi-bltr"     ENDOF
0800  OF s" sercos"        ENDOF
0900  OF s" canbus"        ENDOF
dup OF s" serial-bus"      ENDOF
ENDCASE
;
: pci-class-name-0D ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" irda"                ENDOF
01  OF s" consumer-ir"         ENDOF
10  OF s" rf-controller"       ENDOF
11  OF s" bluetooth"           ENDOF
12  OF s" broadband"           ENDOF
20  OF s" enet-802.11a"        ENDOF
21  OF s" enet-802.11b"        ENDOF
dup OF s" wireless-controller" ENDOF
ENDCASE
;
: pci-class-name-0E ( addr -- str len )
pci-class@ 8 rshift FF and CASE
dup OF s" intelligent-io" ENDOF
ENDCASE
;
: pci-class-name-0F ( addr -- str len )
pci-class@ 8 rshift FF and CASE
01  OF s" satelite-tv"     ENDOF
02  OF s" satelite-audio"  ENDOF
03  OF s" satelite-voice"  ENDOF
04  OF s" satelite-data"   ENDOF
dup OF s" satelite-devoce" ENDOF
ENDCASE
;
: pci-class-name-10 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" network-encryption"       ENDOF
01  OF s" entertainment-encryption" ENDOF
dup OF s" encryption"               ENDOF
ENDCASE
;
: pci-class-name-11 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" dpio"                       ENDOF
01  OF s" counter"                    ENDOF
10  OF s" measurement"                ENDOF
20  OF s" managment-card"             ENDOF
dup OF s" data-processing-controller" ENDOF
ENDCASE
;
: pci-class-name ( addr -- str len )
dup pci-class@ 10 rshift CASE
00  OF pci-class-name-00 ENDOF
01  OF pci-class-name-01 ENDOF
02  OF pci-class-name-02 ENDOF
03  OF pci-class-name-03 ENDOF
04  OF pci-class-name-04 ENDOF
05  OF pci-class-name-05 ENDOF
06  OF pci-class-name-06 ENDOF
07  OF pci-class-name-07 ENDOF
08  OF pci-class-name-08 ENDOF
09  OF pci-class-name-09 ENDOF
0A  OF pci-class-name-0A ENDOF
0B  OF pci-class-name-0B ENDOF
0C  OF pci-class-name-0C ENDOF
0C  OF pci-class-name-0D ENDOF
0C  OF pci-class-name-0E ENDOF
0C  OF pci-class-name-0F ENDOF
0C  OF pci-class-name-10 ENDOF
0C  OF pci-class-name-11 ENDOF
dup OF drop s" unknown"  ENDOF
ENDCASE
;
: pci-bar-size@     ( bar-addr -- bar-size ) -1 over rtas-config-l! rtas-config-l@ ;
: pci-bar-size-mem@ ( bar-addr -- mem-size ) pci-bar-size@ -10 and invert 1+ FFFFFFFF and ;
: pci-bar-size-io@  ( bar-addr -- io-size  ) pci-bar-size@ -4 and invert 1+ FFFFFFFF and ;
: pci-bar-size ( bar-addr -- bar-size-raw )
dup rtas-config-l@ swap \ fetch original Value  ( bval baddr )
-1 over rtas-config-l!  \ make BAR show size    ( bval baddr )
dup rtas-config-l@      \ and fetch the size    ( bval baddr bsize )
-rot rtas-config-l!     \ restore Value
;
: pci-bar-size-mem32 ( bar-addr -- bar-size )
pci-bar-size            \ fetch raw size
-10 and invert 1+       \ calc size
FFFFFFFF and            \ keep lower 32 bits
;
: pci-bar-size-rom ( bar-addr -- bar-size )
pci-bar-size            \ fetch raw size
FFFFF800 and invert 1+  \ calc size
FFFFFFFF and            \ keep lower 32 bits
;
: pci-bar-size-mem64 ( bar-addr -- bar-size )
dup pci-bar-size        \ fetch raw size lower 32 bits
swap 4 + pci-bar-size   \ fetch raw size upper 32 bits
20 lshift +             \ and put them together
-10 and invert 1+       \ calc size
;
: pci-bar-size-io ( bar-addr -- bar-size )
pci-bar-size            \ fetch raw size
-4 and invert 1+        \ calc size
FFFFFFFF and            \ keep lower 32 bits
;
: pci-bar-code@ ( bar-addr -- 0|1..4|5 )
rtas-config-l@ dup                \ fetch the BaseAddressRegister
1 and IF                          \ IO BAR ?
2 and IF 0 ELSE 1 THEN    \ only '01' is valid
ELSE                              \ Memory BAR ?
F and CASE
0   OF 2 ENDOF    \ Memory 32 Bit Non-Prefetchable
8   OF 3 ENDOF    \ Memory 32 Bit Prefetchable
4   OF 4 ENDOF    \ Memory 64 Bit Non-Prefetchable
C   OF 5 ENDOF    \ Memory 64 Bit Prefechtable
dup OF 0 ENDOF    \ Not a valid BarType
ENDCASE
THEN
;
: assign-var ( size var -- al-mem )
2dup @                          \ ( size var size cur-mem ) read current free mem
swap #aligned                   \ ( size var al-mem )       align the mem to the size
dup 2swap -rot +                \ ( al-mem var new-mem )    add size to aligned mem
swap !                          \ ( al-mem )                set variable to new mem
;
: assign-bar-value32 ( bar size var -- 4 )
over IF                         \ IF size > 0
assign-var              \ | ( bar al-mem ) set variable to next mem
swap rtas-config-l!     \ | ( -- )         set the bar to al-mem
ELSE                            \ ELSE
2drop drop              \ | clear stack
THEN                            \ FI
4                               \ size of the base-address-register
;
: assign-bar-value64 ( bar size var -- 8 )
over IF                         \ IF size > 0
assign-var              \ | ( bar al-mem ) set variable to next mem
swap                    \ | ( al-mem addr ) calc config-addr of this bar
2dup rtas-config-l!     \ | ( al-mem addr ) set the Lower part of the bar to al-mem
4 + swap 20 rshift      \ | ( al-mem>>32 addr ) prepare the upper part of the al-mem
swap rtas-config-l!     \ | ( -- ) and set the upper part of the bar
ELSE                            \ ELSE
2drop drop              \ | clear stack
THEN                            \ FI
8                               \ size of the base-address-register
;
: assign-mem64-bar ( bar-addr -- 8 )
dup pci-bar-size-mem64         \ fetch size
pci-next-mem64 @ 0 = IF          \ Check if we have 64-bit memory range
pci-next-mem
ELSE
pci-next-mem64
THEN
assign-bar-value64              \ and set it all
;
: assign-mem32-bar ( bar-addr -- 4 )
dup pci-bar-size-mem32          \ fetch size
pci-next-mem                    \ var to change
assign-bar-value32              \ and set it all
;
: assign-mmio64-bar ( bar-addr -- 8 )
dup pci-bar-size-mem64          \ fetch size
pci-next-mem64 @ 0 = IF          \ Check if we have 64-bit memory range
pci-next-mmio
ELSE
pci-next-mem64              \ for board-qemu we will use same range
THEN
assign-bar-value64              \ and set it all
;
: assign-mmio32-bar ( bar-addr -- 4 )
dup pci-bar-size-mem32          \ fetch size
pci-next-mmio                   \ var to change
assign-bar-value32              \ and set it all
;
: assign-io-bar ( bar-addr -- 4 )
dup pci-bar-size-io             \ fetch size
pci-next-io                     \ var to change
assign-bar-value32              \ and set it all
;
: assign-rom-bar ( bar-addr -- )
dup pci-bar-size-rom            \ fetch size
dup IF                          \ IF size > 0
over >r                 \ | save bar addr for enable
pci-next-mmio           \ | var to change
assign-bar-value32      \ | and set it
drop                    \ | forget the BAR length
r@ rtas-config-l@       \ | fetch BAR
1 or r> rtas-config-l!  \ | and enable the ROM
ELSE                            \ ELSE
2drop                   \ | clear stack
THEN
;
: assign-bar ( bar-addr -- reg-size )
dup pci-bar-code@                       \ calc BAR type
dup IF                                  \ IF >0
CASE                            \ | CASE Setup the right type
1 OF assign-io-bar     ENDOF    \ | - set up an IO-Bar
2 OF assign-mmio32-bar ENDOF    \ | - set up an 32bit MMIO-Bar
3 OF assign-mem32-bar  ENDOF    \ | - set up an 32bit MEM-Bar (prefetchable)
4 OF assign-mmio64-bar ENDOF    \ | - set up an 64bit MMIO-Bar
5 OF assign-mem64-bar  ENDOF    \ | - set up an 64bit MEM-Bar (prefetchable)
ENDCASE                         \ | ESAC
ELSE                                    \ ELSE
ABORT                           \ | Throw an exception
THEN                                    \ FI
;
: assign-all-device-bars ( configaddr -- )
28 10 DO                        \ BARs start at 10 and end at 27
dup i +                 \ calc config-addr of the BAR
assign-bar              \ and set it up
+LOOP                           \ add 4 or 8 to the index and loop
30 + assign-rom-bar             \ set up the ROM if available
;
: assign-all-bridge-bars ( configaddr -- )
18 10 DO                        \ BARs start at 10 and end at 17
dup i +                 \ calc config-addr of the BAR
assign-bar              \ and set it up
+LOOP                           \ add 4 or 8 to the index and loop
38 + assign-rom-bar             \ set up the ROM if available
;
: gen-mem64-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 8 )
dup pci-bar-size-mem64                  \ fetch BAR Size        ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch lower 32 bits ( paddr plen baddr val.lo R: size)
over 4 + rtas-config-l@         \ | fetch upper 32 bits               ( paddr plen baddr val.lo val.hi R: size)
20 lshift + -10 and >r          \ | calc 64 bit value and save it     ( paddr plen baddr R: size val )
83000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
8                                       \ sizeof(BAR) = 8 Bytes
;
: gen-pmem64-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 8 )
dup pci-bar-size-mem64                  \ fetch BAR Size        ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch lower 32 bits ( paddr plen baddr val.lo R: size)
over 4 + rtas-config-l@         \ | fetch upper 32 bits               ( paddr plen baddr val.lo val.hi R: size)
20 lshift + -10 and >r          \ | calc 64 bit value and save it     ( paddr plen baddr R: size val )
C3000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
8                                       \ sizeof(BAR) = 8 Bytes
;
: gen-mem32-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 4 )
dup pci-bar-size-mem32                  \ fetch BAR Size        ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch value         ( paddr plen baddr val R: size)
-10 and >r                      \ | calc 32 bit value and save it     ( paddr plen baddr R: size val )
82000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ sizeof(BAR) = 4 Bytes
;
: gen-pmem32-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 4 )
dup pci-bar-size-mem32                  \ fetch BAR Size        ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch value         ( paddr plen baddr val R: size)
-10 and >r                      \ | calc 32 bit value and save it     ( paddr plen baddr R: size val )
C2000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ sizeof(BAR) = 4 Bytes
;
: gen-io-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 4 )
dup pci-bar-size-io                     \ fetch BAR Size                      ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch value         ( paddr plen baddr val R: size)
-4 and >r                       \ | calc 32 bit value and save it     ( paddr plen baddr R: size val )
81000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ sizeof(BAR) = 4 Bytes
;
: gen-rom-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len )
dup pci-bar-size-rom                    \ fetch BAR Size                      ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch value         ( paddr plen baddr val R: size)
FFFFF800 and >r                 \ | calc 32 bit value and save it     ( paddr plen baddr R: size val )
82000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
;
: pci-add-assigned-address ( prop-addr prop-len bar-addr -- prop-addr prop-len bsize )
dup pci-bar-code@                               \ calc BAR type                         ( paddr plen baddr btype)
CASE                                            \ CASE for the BAR types                ( paddr plen baddr )
0 OF drop 4              ENDOF          \ - not a valid type so do nothing
1 OF gen-io-bar-prop     ENDOF          \ - IO-BAR
2 OF gen-mem32-bar-prop  ENDOF          \ - MEM32
3 OF gen-pmem32-bar-prop ENDOF          \ - MEM32 prefetchable
4 OF gen-mem64-bar-prop  ENDOF          \ - MEM64
5 OF gen-pmem64-bar-prop ENDOF          \ - MEM64 prefetchable
ENDCASE                                         \ ESAC ( paddr plen bsize )
;
: pci-device-assigned-addresses-prop ( addr -- )
encode-start                                    \ provide mem for property              ( addr paddr plen )
2 pick 30 + gen-rom-bar-prop                    \ assign the rom bar
28 10 DO                                        \ we have 6 possible BARs
2 pick i +                              \ calc BAR address                      ( addr paddr plen bar-addr )      
pci-add-assigned-address                \ and generate the props for the BAR
+LOOP                                           \ increase Index by returned len
s" assigned-addresses" property drop            \ and write it into the device tree
;
: pci-bridge-assigned-addresses-prop ( addr -- )
encode-start                                    \ provide mem for property
2 pick 38 + gen-rom-bar-prop                    \ assign the rom bar
18 10 DO                                        \ we have 2 possible BARs
2 pick i +                              \ ( addr paddr plen current-addr )
pci-add-assigned-address                \ and generate the props for the BAR
+LOOP                                           \ increase Index by returned len
s" assigned-addresses" property drop            \ and write it into the device tree
;
: pci-bridge-gen-range ( paddr plen base limit type -- paddr plen )
>r over -                       \ calc size             ( paddr plen base size R:type )
dup 0< IF                       \ IF Size < 0           ( paddr plen base size R:type )
2drop r> drop           \ | forget values       ( paddr plen )
ELSE                            \ ELSE
1+ swap 2swap           \ | adjust stack        ( size base paddr plen R:type )
r@ encode-int+          \ | Child type          ( size base paddr plen R:type )
2 pick encode-64+       \ | Child address       ( size base paddr plen R:type )
r> encode-int+          \ | Parent type         ( size base paddr plen )
rot encode-64+          \ | Parent address      ( size paddr plen )
rot encode-64+          \ | Encode size         ( paddr plen )
THEN                            \ FI
;
: pci-bridge-gen-mmio-range ( addr prop-addr prop-len -- addr prop-addr prop-len )
2 pick 20 + rtas-config-l@      \ fetch Value           ( addr paddr plen val )
dup 0000FFF0 and 10 lshift      \ calc base-address     ( addr paddr plen val base )
swap 000FFFFF or                \ calc limit-address    ( addr paddr plen base limit )
02000000 pci-bridge-gen-range   \ and generate it       ( addr paddr plen )
;
: pci-bridge-gen-mem-range ( addr prop-addr prop-len -- addr prop-addr prop-len )
2 pick 24 + rtas-config-l@      \ fetch Value           ( addr paddr plen val )
dup 000FFFFF or                 \ calc limit Bits 31:0  ( addr paddr plen val limit.31:0 )
swap 0000FFF0 and 10 lshift     \ calc base Bits 31:0   ( addr paddr plen limit.31:0 base.31:0 )
4 pick 28 + rtas-config-l@      \ fetch upper Basebits  ( addr paddr plen limit.31:0 base.31:0 base.63:32 )
20 lshift or swap               \ and calc Base         ( addr paddr plen base.63:0 limit.31:0 )
4 pick 2C + rtas-config-l@      \ fetch upper Limitbits ( addr paddr plen base.63:0 limit.31:0 limit.63:32 )
20 lshift or                    \ and calc Limit        ( addr paddr plen base.63:0 limit.63:0 )
42000000 pci-bridge-gen-range   \ and generate it       ( addr paddr plen )
;
: pci-bridge-gen-io-range ( addr prop-addr prop-len -- addr prop-addr prop-len )
2 pick 1C + rtas-config-l@      \ fetch Value           ( addr paddr plen val )
dup 0000F000 and 00000FFF or    \ calc Limit Bits 15:0  ( addr paddr plen val limit.15:0 )
swap 000000F0 and 8 lshift      \ calc Base Bits 15:0   ( addr paddr plen limit.15:0 base.15:0 )
4 pick 30 + rtas-config-l@      \ fetch upper Bits      ( addr paddr plen limit.15:0 base.15:0 val )
dup FFFF and 10 lshift rot or   \ calc Base             ( addr paddr plen limit.15:0 val base.31:0 )
-rot FFFF0000 and or            \ calc Limit            ( addr paddr plen base.31:0 limit.31:0 )
01000000 pci-bridge-gen-range   \ and generate it       ( addr paddr plen )
;
: pci-bridge-range-props ( addr -- )
encode-start                    \ provide mem for property
pci-bridge-gen-mmio-range       \ generate the non prefetchable Memory Entry
pci-bridge-gen-mem-range        \ generate the prefetchable Memory Entry
pci-bridge-gen-io-range         \ generate the IO Entry
dup IF                          \ IF any space present (propsize>0)
s" ranges" property     \ | write it into the device tree
ELSE                            \ ELSE
s" " s" ranges" property
2drop                   \ | forget the properties
THEN                            \ FI
drop                            \ forget the address
;
: pci-bridge-interrupt-map ( -- )
encode-start                                    \ create the property                           ( paddr plen )
get-node child                                  \ find the first child                          ( paddr plen handle )
BEGIN dup WHILE                                 \ Loop as long as the handle is non-zero        ( paddr plen handle )
dup >r >space                           \ Get the my-space                              ( paddr plen addr R: handle )
pci-gen-irq-entry                       \ and Encode the interrupt settings             ( paddr plen R: handle)
r> peer                                 \ Get neighbour                                 ( paddr plen handle )
REPEAT                                          \ process next childe node                      ( paddr plen handle )
drop                                            \ forget the null                               ( paddr plen )
s" interrupt-map" property                      \ and set it                                    ( -- )
1 encode-int s" #interrupt-cells" property      \ encode the cell#
f800 encode-int 0 encode-int+ 0 encode-int+     \ encode the bit mask for config addr (Dev only)
7 encode-int+ s" interrupt-map-mask" property   \ encode IRQ#=7 and generate property
;
: encode-mem32-bar ( prop-addr prop-len BAR-addr -- prop-addr prop-len 4 )
dup pci-bar-size-mem32                  \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 02000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ BAR-Len = 4 (32Bit)
;
: encode-pmem32-bar ( prop-addr prop-len BAR-addr -- prop-addr prop-len 4 )
dup pci-bar-size-mem32                  \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 42000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ BAR-Len = 4 (32Bit)
;
: encode-mem64-bar ( prop-addr prop-len BAR-addr -- prop-addr prop-len 8 )
dup pci-bar-size-mem64                  \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 03000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
8                                       \ BAR-Len = 8 (64Bit)
;
: encode-pmem64-bar ( prop-addr prop-len BAR-addr -- prop-addr prop-len 8 )
dup pci-bar-size-mem64                  \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 43000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
8                                       \ BAR-Len = 8 (64Bit)
;
: encode-rom-bar ( prop-addr prop-len configaddr -- prop-addr prop-len )
dup pci-bar-size-rom                            \ fetch raw BAR-size
dup IF                                          \ IF BAR is used
>r 02000000 or encode-int+              \ | save size and encode BAR addr
0 encode-64+                            \ | make mid and lo zero
r> encode-64+                           \ | calc and encode the size
ELSE                                            \ ELSE
2drop                                   \ | don't do anything
THEN                                            \ FI
;
: encode-io-bar ( prop-addr prop-len BAR-addr BAR-value -- prop-addr prop-len 4 )
dup pci-bar-size-io                     \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 01000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ BAR-Len = 4 (32Bit)
;
: encode-bar ( prop-addr prop-len bar-addr -- prop-addr prop-len bar-len )
dup pci-bar-code@                               \ calc BAR type
CASE                                            \ CASE for the BAR types ( paddr plen baddr val )
0 OF drop 4             ENDOF           \ - not a valid type so do nothing
1 OF encode-io-bar      ENDOF           \ - IO-BAR
2 OF encode-mem32-bar   ENDOF           \ - MEM32
3 OF encode-pmem32-bar  ENDOF           \ - MEM32 prefetchable
4 OF encode-mem64-bar   ENDOF           \ - MEM64
5 OF encode-pmem64-bar  ENDOF           \ - MEM64 prefetchable
ENDCASE                                         \ ESAC ( paddr plen blen )
;
: pci-reg-props ( configaddr -- )
dup encode-int                  \ configuration space           ( caddr paddr plen )
0 encode-64+                    \ make the rest 0
0 encode-64+                    \ encode the size as 0
2 pick pci-htype@               \ fetch Header Type             ( caddr paddr plen type )
1 and IF                        \ IF Bridge                     ( caddr paddr plen )
18 10 DO                \ | loop over all BARs
2 pick i +      \ | calc bar-addr               ( caddr paddr plen baddr )
encode-bar      \ | encode this BAR             ( caddr paddr plen blen )
+LOOP              \ | increase LoopIndex by the BARlen
2 pick 38 +             \ | calc ROM-BAR for a bridge   ( caddr paddr plen baddr )
encode-rom-bar          \ | encode the ROM-BAR          ( caddr paddr plen )
ELSE                            \ ELSE ordinary device          ( caddr paddr plen )
28 10 DO                 \ | loop over all BARs
2 pick i +      \ | calc bar-addr               ( caddr paddr plen baddr )
encode-bar      \ | encode this BAR             ( caddr paddr plen blen )
+LOOP              \ | increase LoopIndex by the BARlen
2 pick 30 +             \ | calc ROM-BAR for a device   ( caddr paddr plen baddr )
encode-rom-bar          \ | encode the ROM-BAR          ( caddr paddr plen )
THEN                            \ FI                            ( caddr paddr plen )
s" reg" property                \ and store it into the property
drop
;
: pci-common-props ( addr -- )
dup pci-class-name device-name
dup pci-vendor@    encode-int s" vendor-id"      property
dup pci-device@    encode-int s" device-id"      property
dup pci-revision@  encode-int s" revision-id"    property
dup pci-class@     encode-int s" class-code"     property
3 encode-int s" #address-cells" property
2 encode-int s" #size-cells"    property
dup pci-config-ext? IF 1 encode-int s" ibm,pci-config-space-type" property THEN
dup pci-status@
dup 9 rshift 3 and encode-int s" devsel-speed" property
dup 7 rshift 1 and IF 0 0 s" fast-back-to-back" property THEN
dup 6 rshift 1 and IF 0 0 s" 66mhz-capable" property THEN
5 rshift 1 and IF 0 0 s" udf-supported" property THEN
dup pci-cache@     ?dup IF encode-int s" cache-line-size" property THEN
pci-interrupt@ ?dup IF encode-int s" interrupts"      property THEN
;
: pci-device-props ( addr -- )
dup pci-common-props
dup pci-min-grant@ encode-int s" min-grant"   property
dup pci-max-lat@   encode-int s" max-latency" property
dup pci-sub-device@ ?dup IF encode-int s" subsystem-id" property THEN
dup pci-sub-vendor@ ?dup IF encode-int s" subsystem-vendor-id" property THEN
dup pci-device-assigned-addresses-prop
pci-reg-props
pci-hotplug-enabled IF
dup dup pci-addr2bus 8 lshift
swap pci-addr2dev 3 lshift or
40000000 + encode-int s" ibm,my-drc-index" property
dup dup pci-addr2bus 20 *
swap pci-addr2dev +
a base !
s" Slot " rot $cathex
hex
encode-string s" ibm,loc-code" property
THEN
;
: pci-bridge-props ( addr -- )
dup pci-bus@
encode-int s" primary-bus" property
encode-int s" secondary-bus" property
encode-int s" subordinate-bus" property
dup pci-bus@ drop encode-int rot encode-int+ s" bus-range" property
pci-device-slots encode-int s" slot-names" property
dup pci-bridge-range-props
dup pci-bridge-assigned-addresses-prop
s" interrupt-map" get-node get-property IF
pci-bridge-interrupt-map
ELSE 2drop THEN
pci-reg-props
;
: pci-bridge-generic-setup ( addr -- )
pci-device-slots >r             \ save the slot array on return stack
dup pci-common-props            \ set the common properties before scanning the bus
s" pci" device-type             \ the type is allways "pci"
dup func-pci-bridge-probe       \ find all device connected to it
dup assign-all-bridge-bars      \ set up all memory access BARs
dup pci-set-irq-line            \ set the interrupt pin
dup pci-set-capabilities        \ set up the capabilities
pci-bridge-props            \ and generate all properties
r> TO pci-device-slots          \ and reset the slot array
;
DEFER func-pci-device-props
: pci-device-generic-setup ( config-addr -- )
dup assign-all-device-bars      \ calc all BARs
dup pci-set-irq-line            \ set the interrupt pin
dup pci-set-capabilities        \ set up the capabilities
dup func-pci-device-props       \ and generate all properties
drop                            \ forget the config-addr
;
' pci-device-props TO func-pci-device-props
' pci-bridge-range-props TO func-pci-bridge-range-props
: populate-pci-busses ( -- )
" /" find-device get-node child
BEGIN
dup 0 <>
WHILE
dup set-node
dup " name" rot get-package-property 0 = IF
drop dup from-cstring
2dup s" pci" strequal IF
s" pci-phb.fs" included
THEN
2drop
THEN
peer
REPEAT drop
device-end
;
populate-pci-busses
600 cp
: check-patch-kernel-sc1 ( -- )
ciregs >r4 @
dup 1000000 +
dup 2000000 < IF 0 ELSE dup 2000000 - THEN
swap
check-and-patch-sc1
;
' check-patch-kernel-sc1 add-quiesce-xt
' rtas-quiesce add-quiesce-xt
640 cp
690 cp
6a0 cp
6a8 cp
6b0 cp
6b8 cp
6c0 cp
: set-chosen-cpu
" /cpus" find-device
get-node child dup 0= ABORT" CPU not found"
node>path open-dev encode-int s" cpu" set-chosen
;
set-chosen-cpu
s" /memory@0" open-dev encode-int s" memory" set-chosen
6e0 cp
700 cp
s" /openprom" find-device
s" SLOF," slof-build-id here swap rmove here slof-build-id nip $cat encode-string s" model" property
0 0 s" relative-addressing" property
device-end
s" /aliases" find-device
: open  true ;
: close ;
device-end
s" /mmu" open-dev encode-int s" mmu" set-chosen
VARIABLE chosen-memory-ih 0 chosen-memory-ih !
: (chosen-memory-ph) ( -- phandle )
chosen-memory-ih @ ?dup 0= IF
s" memory" get-chosen IF
decode-int nip nip dup chosen-memory-ih !
ihandle>phandle
ELSE 0 THEN
ELSE ihandle>phandle THEN
;
: (set-available-prop) ( prop plen -- )
s" available"
(chosen-memory-ph) ?dup 0<> IF set-property ELSE
cr ." Can't find chosen memory node - "
." no available property created" cr
2dup 2dup
THEN
;
: update-available-property ( available-ptr -- )
dup >r available>size@
0= r@ available AVAILABLE-SIZE /available * + >= or IF
available r> available - encode-bytes (set-available-prop)
ELSE
r> /available + RECURSE
THEN
;
: update-available-property available update-available-property ;
: claim ( [ addr ] len align -- base ) claim update-available-property ;
: release ( addr len -- ) release update-available-property ;
update-available-property
: input  ( dev-str dev-len -- )
open-dev ?dup IF
s" stdin" get-chosen IF
decode-int nip nip ?dup IF close-dev THEN
THEN
encode-int s" stdin"  set-chosen
THEN
;
: output  ( dev-str dev-len -- )
open-dev ?dup IF
s" stdout" get-chosen IF
decode-int nip nip ?dup IF close-dev THEN
THEN
encode-int s" stdout" set-chosen
THEN
;
: io  ( dev-str dev-len -- )
2dup input output
;
1 BUFFER: (term-io-char-buf)
: term-io-key  ( -- char )
s" stdin" get-chosen IF
decode-int nip nip dup 0= IF 0 EXIT THEN
>r BEGIN
(term-io-char-buf) 1 s" read" r@ $call-method
0 >
UNTIL
(term-io-char-buf) c@
r> drop
ELSE
[ ' key behavior compile, ]
THEN
;
' term-io-key to key
: term-io-key?  ( -- true|false )
s" stdin" get-chosen IF
decode-int nip nip dup 0= IF drop 0 EXIT THEN \ return false and exit if no stdin set
>r \ store ihandle on return stack
s" device_type" r@ ihandle>phandle ( propstr len phandle )
get-property ( true | data dlen false )
IF
false
ELSE
1 - \ remove 1 from length to ignore null-termination char
2dup s" serial" str= IF
2drop serial-key? r> drop EXIT
THEN \ call serial-key, cleanup return-stack, exit
2dup s" keyboard" str= IF 
2drop ( )
s" key-available?" r@ ihandle>phandle find-method IF 
drop s" key-available?" r@ $call-method  
ELSE 
false 
THEN
r> drop EXIT \ cleanup return-stack, exit
THEN
2drop r> drop false EXIT \ unknown device_type cleanup return-stack, return false
THEN
ELSE
false
THEN
;
' term-io-key? to key?
800 cp
51 CONSTANT nvram-partition-type-cpulog
60 CONSTANT nvram-partition-type-sas
61 CONSTANT nvram-partition-type-sms
6e CONSTANT nvram-partition-type-debug
6f CONSTANT nvram-partition-type-history
70 CONSTANT nvram-partition-type-common
7f CONSTANT nvram-partition-type-freespace
a0 CONSTANT nvram-partition-type-linux
: rztype ( str len -- ) \ stop at zero byte, read with nvram-c@
0 DO
dup i + nvram-c@ ?dup IF ( str char )
emit
ELSE                     ( str )
drop UNLOOP EXIT
THEN
LOOP
;
create tmpStr 500 allot
: rzcount ( zstr -- str len )
dup tmpStr >r BEGIN
dup nvram-c@ dup r> dup 1+ >r c!
WHILE
char+
REPEAT
r> drop over - swap drop tmpStr swap
;
: calc-header-cksum ( offset -- cksum )
dup nvram-c@
10 2 DO
over I + nvram-c@ +
LOOP
wbsplit + nip
;
: bad-header? ( offset -- flag )
dup 2+ nvram-w@        ( offset length )
0= IF                  ( offset )
drop true EXIT      ( )
THEN
dup calc-header-cksum  ( offset checksum' )
swap 1+ nvram-c@       ( checksum ' checksum )
<>                     ( flag )
;
: .header ( offset -- )
cr                         ( offset )
dup bad-header? IF         ( offset )
."   BAD HEADER -- trying to print it anyway" cr
THEN
space                      ( offset )
dup nvram-c@ 2 0.r         ( offset )
space space                ( offset )
dup 2+ nvram-w@ 10 * 5 .r  ( offset )
space space                ( offset )
4 + 0c rztype              ( )
;
: .headers ( -- )
cr cr ." Type  Size  Name"
cr ." ========================"
0 BEGIN                      ( offset )
dup nvram-c@              ( offset type )
WHILE
dup .header               ( offset )
dup 2+ nvram-w@ 10 * +    ( offset offset' )
dup nvram-size < IF       ( offset )
ELSE
drop EXIT              ( )
THEN
REPEAT
drop                         ( )
cr cr
;
: reset-nvram ( -- )
internal-reset-nvram
;
: dump-partition     ['] nvram-c@      1 (dump) ;
: type-no-zero ( addr len -- )
0 DO
dup I + dup nvram-c@ 0= IF drop ELSE nvram-c@ emit THEN
LOOP
drop
;
: type-no-zero-part ( from-str cnt-str addr len )
0 DO
dup i + dup nvram-c@ 0= IF
drop
ELSE
3 pick 0= 3 pick 0 > AND IF
dup 1 type-no-zero
THEN
nvram-c@ a = IF
2 pick 0= IF
over 1- 0 max
rot drop swap
THEN
2 pick 1- 0 max
3 roll drop rot rot
THEN
THEN
LOOP
drop
;
: (dmesg-prepare) ( base-addr -- base-addr' addr len act-off )
10 - \ go back to header
dup 14 + nvram-l@ dup >r
( base-addr act-off ) ( R: act-off )
over over over + swap 10 + nvram-w@ + >r
( base-addr act-off ) ( R:  act-off nvram-act-addr )
over 2 + nvram-w@ 10 * swap - over swap
( base-addr base-addr start-size ) ( R:  act-off nvram-act-addr )
r> swap rot 10 + nvram-w@ - r>
;
: .dmesg ( base-addr -- )
(dmesg-prepare) >r
cr type-no-zero
( base-addr ) ( R: act-off )
dup 10 + nvram-w@ + r> type-no-zero
;
: .dmesg-part ( from-str cnt-str base-addr -- )
(dmesg-prepare) >r
>r >r -rot r> r>
cr type-no-zero-part rot
( base-addr ) ( R: act-off )
dup 10 + nvram-w@ + r> type-no-zero-part
;
: dmesg-part ( from-str cnt-str -- left-from-str left-cnt-str )
2dup
s" ibm,CPU0log" get-named-nvram-partition IF
2drop EXIT
THEN
drop .dmesg-part nip nip
;
: dmesg2 ( -- )
s" ibm,CPU1log" get-named-nvram-partition IF
." No log partition." cr EXIT
THEN
drop .dmesg
;
: dmesg ( -- )
s" ibm,CPU0log" get-named-nvram-partition IF
." No log partition." cr EXIT
THEN
drop .dmesg
;
880 cp
wordlist CONSTANT envvars
: listenv  ( -- )
get-current envvars set-current  words  set-current
;
: create-env ( "name" -- )
get-current  envvars set-current  CREATE  set-current
;
: env-int     ( n -- )  1 c, align , DOES> char+ aligned @ ;
: env-bytes   ( a len -- )
2 c, align dup , here swap dup allot move
DOES> char+ aligned dup @ >r cell+ r>
;
: env-string  ( str len -- )  3 c, align dup , here over allot swap move DOES> char+ aligned dup @ >r cell+ r> ;
: env-flag    ( f -- )  4 c, c, DOES> char+ c@ 0<> ;
: env-secmode ( sm -- )  5 c, c, DOES> char+ c@ ;
: default-int     ( n "name" -- )      create-env env-int ;
: default-bytes   ( a len "name" -- )  create-env env-bytes ;
: default-string  ( a len "name" -- )  create-env env-string ;
: default-flag    ( f "name" -- )      create-env env-flag ;
: default-secmode ( sm "name" -- )     create-env env-secmode ;
: set-option ( option-name len option len -- )
2swap encode-string
2swap s" /options" find-node dup IF set-property ELSE drop 2drop 2drop THEN
;
: findenv ( name len -- adr def-adr type | 0 )
2dup envvars voc-find dup 0<> IF ( ABORT" not a configuration variable" )
link> >body char+ >r (find-order) link> >body dup char+ swap c@ r> swap
ELSE
nip nip
THEN
;
: test-flag ( param len -- true | false )
2dup s" true" string=ci -rot s" false" string=ci or
;
: test-secmode ( param len -- true | false )
2dup s" none" string=ci -rot 2dup s" command" string=ci -rot s" full"
string=ci or or
;
: test-int ( param len -- true | false )
$dh-number IF false ELSE drop true THEN
;
: findtype ( param len name len -- param len name len type )
2dup findenv                         \ try to find type of envvar
dup IF                               \ found a type?
nip nip
EXIT
THEN
drop 2swap
2dup test-flag IF
4 -rot                         \ boolean type
ELSE
2dup test-secmode IF
5 -rot                      \ secmode type
ELSE
2dup test-int IF
1 -rot                   \ integer type
ELSE
2dup test-string
IF 3 ELSE 2 THEN         \ 3 = string, 2 = default to bytes
-rot
THEN
THEN
THEN
rot
>r 2swap r>
;
: $setenv ( param len name len -- )
4dup set-option
findtype
-rot $CREATE
CASE
1 OF $dh-number IF 0 THEN env-int ENDOF \ XXX: wants decimal and 0x...
2 OF env-bytes ENDOF
3 OF env-string ENDOF
4 OF evaluate env-flag ENDOF
5 OF evaluate env-secmode ENDOF \ XXX: recognize none, command, full
ENDCASE
;
: (printenv) ( adr type -- )
CASE
1 OF aligned @ . ENDOF
2 OF aligned dup cell+ swap @ swap . . ENDOF
3 OF aligned dup @ >r cell+ r> type ENDOF
4 OF c@ IF ." true" ELSE ." false" THEN ENDOF
5 OF c@ . ENDOF \ XXX: print symbolically
ENDCASE
;
: .printenv-header ( -- )
cr
s" ---environment variable--------current value-------------default value------"
type cr
;
DEFER old-emit
0 VALUE emit-counter
: emit-and-count emit-counter 1 + to emit-counter old-emit ;
: .enable-emit-counter
0 to emit-counter
['] emit behavior to old-emit
['] emit-and-count to emit
;
: .disable-emit-counter
['] old-emit behavior to emit
;
: .spaces ( number-of-spaces -- )
dup 0 > IF
spaces
ELSE
drop space
THEN
;
: .print-one-env ( name len -- )
3 .spaces
2dup dup -rot type 1c swap - .spaces
findenv rot over
.enable-emit-counter
(printenv) .disable-emit-counter
1a emit-counter - .spaces
(printenv)
;
: .print-all-env
.printenv-header
envvars cell+
BEGIN
@ dup
WHILE
dup link> >name
name>string .print-one-env cr
REPEAT
drop
;
: printenv
parse-word dup 0= IF
2drop .print-all-env
ELSE
findenv dup 0= ABORT" not a configuration variable"
rot over cr ." Current: " (printenv)
cr ." Default: " (printenv)
THEN
;
: (set-default)  ( def-xt -- )
dup >name name>string $CREATE dup >body c@ >r execute r> CASE
1 OF env-int ENDOF
2 OF env-bytes ENDOF
3 OF env-string ENDOF
4 OF env-flag ENDOF
5 OF env-secmode ENDOF ENDCASE
;
true default-flag auto-boot?
s" " default-string boot-device
s" " default-string boot-file
s" boot" default-string boot-command
s" " default-string diag-device
s" " default-string diag-file
false default-flag diag-switch?
true default-flag fcode-debug?
s" " default-string input-device
s" " default-string nvramrc
s" " default-string oem-banner
false default-flag oem-banner?
0 0 default-bytes oem-logo
false default-flag oem-logo?
s" " default-string output-device
200 default-int screen-#columns
200 default-int screen-#rows
0 default-int security-#badlogins
0 default-secmode security-mode
s" " default-string security-password
0 default-int selftest-#megs
false default-flag use-nvramrc?
false default-flag direct-serial?
true default-flag real-mode?
default-load-base default-int load-base
VARIABLE nvoff \ offset in envvar partition
: (nvupdate-one) ( adr type -- "value" )
CASE
1 OF aligned @ (.d) ENDOF
2 OF drop 0 0 ENDOF
3 OF aligned dup @ >r cell+ r> ENDOF
4 OF c@ IF s" true" ELSE s" false" THEN ENDOF
5 OF c@ (.) ENDOF \ XXX: print symbolically
ENDCASE
;
: nvupdate-one   ( def-xt -- )
>r nvram-partition-type-common get-nvram-partition       ( part.addr part.len FALSE|TRUE R: def-xt )
ABORT" No valid NVRAM." r>      ( part.addr part.len def-xt )
>name name>string               ( part.addr part.len var.a var.l )
2dup findenv nip (nvupdate-one)
internal-add-env
drop
;
: (nvupdate) ( -- )
nvram-partition-type-common get-nvram-partition ABORT" No valid NVRAM."
erase-nvram-partition drop
envvars cell+
BEGIN @ dup WHILE dup link> nvupdate-one REPEAT
drop
;
: nvupdate ( -- )
." nvupdate is obsolete." cr
;
: set-default
parse-word envvars voc-find
dup 0= ABORT" not a configuration variable" link> (set-default)
;
: (set-defaults)
envvars cell+
BEGIN @ dup WHILE dup link> (set-default) REPEAT
drop
;
(set-defaults)
: set-defaults
(set-defaults) (nvupdate)
;
: setenv  parse-word ( skipws ) 0d parse -leading 2swap $setenv (nvupdate) ;
: get-nv  ( -- )
nvram-partition-type-common get-nvram-partition ( addr offset not-found | not-found ) \ find partition header
IF
." No NVRAM common partition, re-initializing..." cr
internal-reset-nvram
(nvupdate)
nvram-partition-type-common get-nvram-partition IF ." NVRAM seems to be broken." cr EXIT THEN
THEN
drop ( addr )           \ throw away offset
BEGIN
dup rzcount  dup     \ make string from offset and make condition
WHILE                   ( offset offset length )
2dup [char] = split  \ Split string at equal sign (=)
2swap                ( offset offset length param len name len )
$setenv              \ Set envvar
nip                  \ throw away old string begin
+ 1+                 \ calc new offset
REPEAT
2drop drop              \ cleanup
;
get-nv
: check-for-nvramrc  ( -- )
use-nvramrc?  IF
s" Executing following code from nvramrc: "
s" nvramrc" evaluate $cat
nvramlog-write-string-cr
s" (!) Executing code specified in nvramrc" type
cr s"  SLOF Setup = " type
.enable-emit-counter
s" nvramrc" evaluate ['] evaluate  CATCH  IF
2drop
emit-counter 0  DO  8 emit  LOOP
s" (!) Code in nvramrc triggered exception. "
2dup nvramlog-write-string
type cr 12 spaces s" Aborting nvramrc execution" 2dup
nvramlog-write-string-cr type cr
s"  SLOF Setup = " type
THEN
.disable-emit-counter
THEN
;
: (nv-findalias) ( alias-ptr alias-len -- pos )
here 0
s" devalias " string-cat
3 pick 3 pick string-cat
s"  " string-cat
s" nvramrc" evaluate
2swap find-substr
nip nip
;
: (nv-build-real-entry) ( name-ptr name-len dev-ptr dev-len -- str-ptr str-len )
2swap here 0
s" devalias " string-cat
2swap string-cat
s"  " string-cat
2swap string-cat
0d char-cat
0a char-cat
;
: (nv-build-null-entry) ( name-ptr name-len dev-ptr dev-len -- str-ptr str-len )
4drop here 0
;
: (nv-build-nvramrc) ( name-str name-len dev-str dev-len xt-build-entry -- )
4 pick 4 pick (nv-findalias)
dup s" nvramrc" evaluate nip >= IF
drop execute
s" nvramrc" evaluate string-cat
dup allot
s" nvramrc" $setenv
ELSE  \ if our alias is still defined in nvramrc
5 pick 5 pick 5 pick 5 pick 5 pick execute nip over +
s" nvramrc" evaluate 3 pick string-at
2dup find-nextline string-at nip +
alloc-mem 0
s" nvramrc" evaluate drop 3 pick string-cat
rot >r >r >r execute r> r> 2swap string-cat
( mem, len ) ( R: alias-pos )
s" nvramrc" evaluate r> string-at
2dup find-nextline string-at string-cat
2dup s" nvramrc" $setenv free-mem
THEN
;
: $nvalias ( name-str name-len dev-str dev-len -- )
4dup ['] (nv-build-real-entry) (nv-build-nvramrc)
set-alias
s" true" s" use-nvramrc?" $setenv
(nvupdate)
;
: nvalias ( "alias-name< >device-specifier<eol>" -- )
parse-word parse-word dup 0<> IF
$nvalias
ELSE
2drop 2drop
cr
"    Usage: nvalias (""alias-name< >device-specifier<eol>"" -- )" type
cr
THEN    
;
: $nvunalias ( name-str name-len -- )
s" " ['] (nv-build-null-entry) (nv-build-nvramrc)
(nvupdate)
;
: nvunalias ( "alias-name< >" -- )
parse-word $nvunalias
;
: diagnostic-mode? ( -- diag-switch? ) diag-switch? ;
check-for-nvramrc
890 cp
defer set-boot-device
defer add-boot-device
8 CONSTANT MAX-ALIAS
: add-boot-aliases ( str -- )
2dup add-boot-device               ( $str )
MAX-ALIAS 1 DO
2dup i $cathex 2dup              ( $str $strN $strN )
find-alias 0 > IF                ( $str $strN false | $result )
drop strdup add-boot-device  ( $str )
ELSE 2drop THEN
LOOP
2drop
;
: qemu-read-bootlist ( -- )
" qemu,boot-list" get-chosen IF
s" boot-device" $setenv
EXIT
THEN
0 0 set-boot-device
" qemu,boot-device" get-chosen not IF
" boot-device" evaluate swap drop 0= IF
" disk" add-boot-aliases
" cdrom" add-boot-aliases
" net" add-boot-aliases
THEN
EXIT
THEN
0 ?DO
dup i + c@ CASE
0        OF ENDOF
[char] a OF ENDOF
[char] b OF ENDOF
[char] c OF " disk"  add-boot-aliases ENDOF
[char] d OF " cdrom" add-boot-aliases ENDOF
[char] n OF " net"   add-boot-aliases ENDOF
ENDCASE cr
LOOP
drop
;
' qemu-read-bootlist to read-bootlist
8a0 cp
0 VALUE debug-client-interface?
VOCABULARY client-voc \ We store all client-interface callable words here.
6789  CONSTANT  sc-exit
4711  CONSTANT  sc-yield
VARIABLE  client-callback \ Address of client's callback function
: client-data  ciregs >r3 @ ;
: nargs  client-data la1+ l@ ;
: nrets  client-data la1+ la1+ l@ ;
: client-data-to-stack
client-data 3 la+ nargs 0 ?DO dup l@ swap la1+ LOOP drop ;
: stack-to-client-data
client-data nargs nrets + 2 + la+ nrets 0 ?DO tuck l! /l - LOOP drop ;
: call-client ( args len client-entry -- )
>r  ciregs >r7 !  ciregs >r6 !  client-entry-point @ ciregs >r5 !
cistack ciregs >r1 !
r> jump-client drop
BEGIN
client-data-to-stack
client-data l@ zcount
ALSO client-voc $find PREVIOUS
dup 0= >r IF 
CATCH
?dup IF
dup CASE
sc-exit OF drop r> drop EXIT ENDOF
sc-yield OF drop r> drop EXIT ENDOF
ENDCASE
THROW
THEN
stack-to-client-data
ELSE
cr type ."  NOT FOUND"
THEN
r> ciregs >r3 !  ciregs >r4 @ jump-client 
UNTIL ;
: flip-stack ( a1 ... an n -- an ... a1 )  ?dup IF 1 ?DO i roll LOOP THEN ;
: (callback) ( "service-name<>" "arguments<cr>" -- )
client-callback @  \ client-callback points to the function prolog
dup 8 + @ ciregs >r2 !  \ Set up the TOC pointer (???)
@ call-client ;  \ Resolve the function's address from the prolog
' (callback) to callback
: (continue-client)
s" "  \ make call-client happy, client won't use the string anyways.
ciregs >r4 @ call-client ;
' (continue-client) to continue-client
: string-to-buffer ( str len buf len -- len' )
2dup erase rot min dup >r move r> ;
ALSO client-voc DEFINITIONS
: exit  sc-exit THROW ;
: yield  sc-yield THROW ;
: test ( zstr -- missing? )
zcount
debug-client-interface? IF
." ci: test " 2dup type cr
THEN
ALSO client-voc $find PREVIOUS IF
drop FALSE
ELSE
2drop TRUE
THEN 
;
: finddevice ( zstr -- phandle )
zcount
debug-client-interface? IF
." ci: finddevice " 2dup type cr
THEN
2dup " /memory" str= IF
2drop
" /memory@0"
THEN
find-node dup 0= IF drop -1 THEN
;
: getprop ( phandle zstr buf len -- len' )
>r >r zcount rot                     ( str-adr str-len phandle   R: len buf )
debug-client-interface? IF
." ci: getprop " 3dup . ." '" type ." '"
THEN
get-property
debug-client-interface? IF
dup IF ."  ** not found **" THEN
cr
THEN
0= IF
r> swap dup r> min swap >r move r>
ELSE
r> r> 2drop -1
THEN
;
: getproplen ( phandle zstr -- len )
zcount rot get-property 0= IF nip ELSE -1 THEN ;
: setprop ( phandle zstr buf len -- size|-1 )
dup >r            \ save len
encode-bytes      ( phandle zstr prop-addr prop-len )
2swap zcount rot  ( prop-addr prop-len name-addr name-len phandle )
current-node @ >r \ save current node
set-node          \ change to specified node
property          \ set property
r> set-node       \ restore original node
r>                \ always return size, because we can not fail.
;
: canon ( zstr buf len -- len' )
2dup erase
>r >r zcount
>r dup c@ [char] / = IF
r> r> swap r> over >r min move r>
ELSE
r> find-alias ?dup 0= IF
r> r> 2drop -1
ELSE
dup -rot r> swap r> min move
THEN
THEN
;
: nextprop ( phandle zstr buf -- flag ) \ -1 invalid, 0 end, 1 ok
>r zcount rot next-property IF r> zplace 1 ELSE r> drop 0 THEN ; 
: open ( zstr -- ihandle )
zcount
debug-client-interface? IF
." ci: open " 2dup type cr
THEN
open-dev
;
: close ( ihandle -- )
debug-client-interface? IF
." ci: close " dup . cr
THEN
s" stdin" get-chosen IF
decode-int nip nip over = IF
close-dev
quiesce
ELSE
close-dev
THEN
ELSE
close-dev
THEN
;
: write ( ihandle str len -- len' )      rot s" write" rot
['] $call-method CATCH IF 2drop 3drop -1 THEN ;
: read  ( ihandle str len -- len' )      rot s" read"  rot
['] $call-method CATCH IF 2drop 3drop -1 THEN ;
: seek  ( ihandle hi lo -- status  ) swap rot s" seek" rot
['] $call-method CATCH IF 2drop 3drop -1 THEN ;
: claim  ( addr len align -- base )
debug-client-interface? IF
." ci: claim " .s cr
THEN
dup  IF  rot drop
['] claim CATCH  IF  2drop -1  THEN
ELSE
['] claim CATCH  IF  3drop -1  THEN
THEN
;
: release ( addr len -- )
debug-client-interface? IF
." ci: release " .s cr
THEN
release
;
: instance-to-package ( ihandle -- phandle )
ihandle>phandle ;
: package-to-path ( phandle buf len -- len' )
2>r node>path 2r> string-to-buffer ;
: instance-to-path ( ihandle buf len -- len' )
2>r instance>path 2r> string-to-buffer ;
: instance-to-interposed-path ( ihandle buf len -- len' )
2>r instance>qpath 2r> string-to-buffer ;
: call-method ( str ihandle arg ... arg -- result return ... return )
nargs flip-stack zcount
debug-client-interface? IF
." ci: call-method " 2dup type cr
THEN
rot ['] $call-method CATCH
nrets 0= IF drop ELSE \ if called with 0 return args do not return the catch result
dup IF nrets 1 ?DO -444 LOOP THEN
nrets flip-stack 
THEN
;
: test-method ( phandle str -- missing? )
zcount
debug-client-interface? IF
." ci: test-method " 2dup type cr
THEN
rot find-method dup IF nip THEN 0=
;
: milliseconds  milliseconds ;
: start-cpu ( phandle addr r3 -- )
>r >r 
s" reg" rot get-property 0= IF drop l@ 
ELSE true ABORT" start-cpu called with invalid phandle" THEN 
r> r> of-start-cpu drop
;
: quiesce  ( -- )
debug-client-interface? IF
." ci: quiesce" cr
THEN
quiesce
;
: boot  ( zstr -- )
zcount
debug-client-interface? IF
." ci: boot " 2dup type cr
THEN
" boot " 2swap $cat " boot-command" $setenv (nvupdate)
reset-all
;
: interpret ( ... zstr -- result ... )
zcount
debug-client-interface? IF
." ci: interpret " 2dup type cr
THEN
['] evaluate CATCH
;
: set-callback ( newfunc -- oldfunc )
client-callback @ swap client-callback ! ;
PREVIOUS DEFINITIONS
false value elf-claim?
0     value last-claim
0 VALUE cur-brk
: elf-claim-segment ( addr size -- errorcode )
2dup
elf-claim? IF
>r
here last-claim , to last-claim                \ Setup ptr to last claim
dup , r> dup , ( addr size )
0 ['] claim CATCH IF
." Memory for ELF file is already in use!" cr
true ABORT" Memory for ELF file already in use "
THEN
drop
ELSE
2drop
THEN
+ to cur-brk
0 
;
: elf-load-claim ( file-addr destaddr -- claim-list entry imagetype )
true to elf-claim?
0 to last-claim
dup -1 = IF             \ If destaddr == -1 then load to addr from ELF header
drop ['] elf-load-file CATCH IF false to elf-claim? ABORT THEN
ELSE
['] elf-load-file-to-addr CATCH IF false to elf-claim? ABORT THEN
THEN
>r
last-claim swap
false to elf-claim?
r>
;
: elf-release ( claim-list -- )
BEGIN
dup cell+                   ( claim-list claim-list-addr )
dup @ swap cell+ @          ( claim-list claim-list-addr claim-list-sz )
release                     ( claim-list )
@ dup 0=                    ( Next-element )
UNTIL
drop
;
CREATE bootdevice 2 cells allot bootdevice 2 cells erase
CREATE bootargs 2 cells allot bootargs 2 cells erase
CREATE load-list 2 cells allot load-list 2 cells erase
: start-elf ( arg len entry -- )
msr@ 7fffffffffffffff and 2000 or ciregs >srr1 ! call-client
;
: start-elf64 ( arg len entry r2 -- )
msr@ 2000 or ciregs >srr1 !
ciregs >r2  !
call-client \ entry point is pointer to .opd
;
: set-bootpath
s" disk" find-alias
dup IF ELSE drop s" boot-device" evaluate find-alias THEN
dup IF strdup ELSE 0 THEN
encode-string s" bootpath" set-chosen
;
: set-netbootpath
s" net" find-alias
?dup IF strdup encode-string s" bootpath" set-chosen THEN
;
: set-bootargs
skipws 0 parse dup 0= IF
2drop s" boot-file" evaluate
THEN
encode-string s" bootargs" set-chosen
;
: .(client-exec) ( arg len -- rc )
s" snk" romfs-lookup 0<> IF
paflof-start f00000 +
elf-load-file-to-addr drop \ FIXME - check this for LE, currently its BE only
dup @ swap 8 + @         \ populate entry r2
start-elf64 client-data
ELSE
2drop false
THEN
;
' .(client-exec) to (client-exec)
: .client-exec ( arg len -- rc ) set-bootargs (client-exec) ;
' .client-exec to client-exec
: netsave  ( "addr len {filename}[,params]" -- rc )
(parse-line) dup 0> IF
s" netsave " 2swap $cat set-netbootpath client-exec
ELSE
cr
." Usage: netsave addr len [bootp|dhcp,]filename[,siaddr][,ciaddr][,giaddr][,bootp-retries][,tftp-retries][,use_ci]"
cr 2drop
THEN
;
: ping  ( "{device-path:[device-args,]server-ip,[client-ip[\nn]],[gateway-ip][,timeout]}" -- )
my-self >r current-node @ >r  \ Save my-self
(parse-line) open-dev dup  IF
dup to my-self dup ihandle>phandle set-node
dup
s" ping" rot ['] $call-method CATCH  IF
cr
." Not a pingable device"
cr 3drop
THEN
swap close-dev
ELSE
cr
." Usage: ping device-path:[device-args,]server-ip,[client-ip[\nn]],[gateway-ip][,timeout]"
cr drop
THEN
r> set-node r> to my-self  \ Restore my-self
;
8a8 cp
CREATE version-str 10 ALLOT
0 value temp-ptr
: dump-display-write
s" screen" find-alias  IF
drop terminal-write drop
ELSE
s" vsterm" find-alias  IF
drop type
THEN
THEN
;
: dump-display-buffer
disp-ptr to temp-ptr
" SLOF **********************************************************************" dump-display-write
cr
version-str get-print-version
version-str @                   \ start
version-str 8 + @               \ end
over - dump-display-write
" Press 's' to enter Open Firmware." dump-display-write
cr cr
temp-ptr disp-size > IF
temp-ptr disp-size MOD
dup
prevga-disp-buf + swap disp-size swap - dump-display-write
temp-ptr disp-size MOD
prevga-disp-buf swap 1 - dump-display-write
ELSE
prevga-disp-buf temp-ptr dump-display-write
THEN
;
: enable-framebuffer-output  ( -- )
s" screen" find-alias ?dup  IF
open-dev close-node
false to store-prevga?
s" display-emit" $find  IF
to emit
dump-display-buffer
ELSE
2drop
THEN
THEN
;
enable-framebuffer-output
8b0 cp
usb-scan
8c0 cp
romfs-base 400000 0 ' claim CATCH IF ." claim failed!" cr 2drop THEN drop
8d0 cp
: set-default-console
s" linux,stdout-path" get-chosen IF
decode-string
." Using default console: " 2dup type cr
io
2drop
ELSE
." No console specified "
" screen" find-alias dup IF nip THEN
" keyboard" find-alias dup IF nip THEN
AND IF
." using screen & keyboard" cr
" screen" output
" keyboard" input
ELSE
" hvterm" find-alias IF
drop
." using hvterm" cr
" hvterm" io
ELSE
" vsterm" find-alias IF
drop
." using vsterm" cr
" vsterm" io
false to store-prevga?
dump-display-buffer
ELSE
" /openprom" find-node ?dup IF
set-node
." and no default found, creating dev-null" cr
" dev-null.fs" included
" devnull-console" io
0 set-node
THEN
THEN
THEN
THEN
THEN
;
set-default-console
8e0 cp
0 VALUE direct-ram-boot-base
0 VALUE direct-ram-boot-size
: (boot-ram)
direct-ram-boot-size 0<> IF
." Booting from memory..." cr
s" go-args 2@ " evaluate
direct-ram-boot-base 0
s" true state-valid ! " evaluate
s" disable-watchdog go-64" evaluate
THEN
;
8e8 cp
: check-boot-from-ram
s" qemu,boot-kernel" get-chosen IF
decode-int -rot decode-int -rot ( n1 n2 p s )
decode-int -rot decode-int -rot ( n1 n2 n3 n4 p s )
2drop
swap 20 << or to direct-ram-boot-size
swap 20 << or to direct-ram-boot-base
." Detected RAM kernel at " direct-ram-boot-base .
." (" direct-ram-boot-size . ." bytes) "
s" boot-command" $create " (boot-ram)" env-string
THEN
;
check-boot-from-ram
8ff cp
: (boot) ( -- )
s" Executing following boot-command: "
boot-command $cat nvramlog-write-string-cr
s" boot-command" evaluate      \ get boot command
['] evaluate catch ?dup IF     \ and execute it
." boot attempt returned: "
abort"-str @ count type cr
nip nip                     \ drop string from 1st evaluate
throw
THEN
;
: (function-key) ( -- n )
key? IF
key CASE
50  OF 1 ENDOF
7e  OF 1 ENDOF
dup OF 0 ENDOF
ENDCASE
THEN
;
: (esc-sequence) ( -- n )
key? IF
key CASE
4f  OF (function-key) ENDOF
5b  OF
key key (function-key) ENDOF
dup OF 0 ENDOF
ENDCASE
THEN
;
: (s-pressed) ( -- )
s" An 's' has been pressed. Entering Open Firmware Prompt"
nvramlog-write-string-cr
;
: (boot?) ( -- )
of-prompt? not auto-boot? and IF
(boot)
THEN
;
TRUE VALUE use-load-watchdog?
1 value my-boot-dev
1 value digit-val
0 value boot-dev-no
: boot-selected
1 to my-boot-dev
BEGIN parse-word dup WHILE
boot-dev-no my-boot-dev = IF
s" boot " 2swap $cat
['] evaluate catch ?dup IF     \ and execute it
." boot attempt returned: "
abort"-str @ count type cr
throw
THEN
0 0 load-list 2!
UNLOOP EXIT
ELSE
2drop
THEN
my-boot-dev 1 + to my-boot-dev
REPEAT 2drop 0 0 load-list 2!
(boot)
;
: boot-start
decimal
BEGIN parse-word dup WHILE
my-boot-dev (u.) s" . " $cat type 2dup type ." : " de-alias type cr
my-boot-dev 1 + to my-boot-dev
REPEAT 2drop 0 0 load-list 2!
BEGIN key? WHILE
key drop
REPEAT
cr
BEGIN
KEY
dup 1b = IF         \ ESC sequence ... could be yet another F12 key press
BEGIN key? WHILE
key drop
REPEAT
ELSE
dup emit
THEN
dup isdigit IF
dup 30 - to digit-val
boot-dev-no a * digit-val + to boot-dev-no
THEN
d = UNTIL
boot-dev-no my-boot-dev < IF
s" boot-selected " s" $bootdev" evaluate $cat strdup evaluate
ELSE
." Invalid choice!" cr
THEN
hex
;
: boot-menu-start
." Select boot device:" cr cr
s" boot-start " s" $bootdev" evaluate $cat strdup evaluate
;
: boot-menu-enabled? ( -- true|false )
s" qemu,boot-menu" get-chosen IF
decode-int 1 = IF
2drop TRUE EXIT
THEN
2drop
THEN
FALSE
;
: f12-pressed?
34 = >r 32 = r> and IF
TRUE
ELSE
FALSE
THEN
;
: start-it ( -- )
key? IF
key CASE
[char] s  OF (s-pressed) ENDOF
1b        OF
(esc-sequence) CASE
1   OF
console-clean-fifo
f12-pressed? boot-menu-enabled? and IF
boot-menu-start
ELSE
(boot?)
THEN
ENDOF
dup OF (boot?) ENDOF
ENDCASE
ENDOF
dup OF (boot?) ENDOF
ENDCASE
ELSE
(boot?)
THEN
disable-watchdog  FALSE to use-load-watchdog?
.banner
;
."      "   \ Clear last checkpoint
0 VALUE load-size
0 VALUE go-entry
VARIABLE state-valid false state-valid !
CREATE go-args 2 cells allot go-args 2 cells erase
: $bootargs
bootargs 2@ ?dup IF
ELSE s" diagnostic-mode?" evaluate and IF s" diag-file" evaluate
ELSE s" boot-file" evaluate THEN THEN
;
: $bootdev ( -- device-name len )
bootdevice 2@ dup IF s"  " $cat THEN
s" diagnostic-mode?" evaluate IF
s" diag-device" evaluate
ELSE
s" boot-device" evaluate
THEN
$cat \ prepend bootdevice setting from vpd-bootlist
strdup
?dup 0= IF
disable-watchdog
drop true ABORT" No boot device!"
THEN
;
: set-boot-args ( str len -- ) dup IF strdup ELSE nip dup THEN bootargs 2! ;
: (set-boot-device) ( str len -- )
?dup IF 1+ strdup 1- ELSE drop 0 0 THEN bootdevice 2!
;
' (set-boot-device) to set-boot-device
: (add-boot-device) ( str len -- )	\ Concatenate " str" to "bootdevice"
bootdevice 2@ ?dup IF $cat-space ELSE drop THEN set-boot-device
;
' (add-boot-device) to add-boot-device
0 value claim-list
: no-go ( -- ) -64 boot-exception-handler ABORT ;
defer go ( -- )
: go-32 ( -- )
state-valid @ IF
0 ciregs >r3 ! 0 ciregs >r4 !
go-args 2@ go-entry start-elf client-data
claim-list elf-release 0 to claim-list
THEN
-6d boot-exception-handler ABORT
;
: go-64 ( args len entry r2 -- )
0 ciregs >r3 ! 0 ciregs >r4 !
start-elf64 client-data
claim-list elf-release 0 to claim-list
;
: set-le ( -- )
1 ciregs >r13 !
;
: set-be ( -- )
0 ciregs >r13 !
;
: go-64-be ( -- )
state-valid @ IF
set-be
go-args 2@
go-entry @
go-entry 8 + @
go-64
THEN
-6d boot-exception-handler ABORT
;
: go-32-be
set-be
go-32
;
: go-32-lev1
set-le
go-32
;
: go-64-lev1
state-valid @ IF
go-args 2@
go-entry @ xbflip
go-entry 8 + @ xbflip
set-le
go-64
THEN
-6d boot-exception-handler ABORT
;
: go-64-lev2
state-valid @ IF
go-args 2@
go-entry 0
set-le
go-64
THEN
-6d boot-exception-handler ABORT
;
: load-elf-init ( arg len file-addr -- success )
false state-valid !                            \ Not valid anymore ...
claim-list IF                                    \ Release claimed mem
claim-list elf-release 0 to claim-list        \ from last load
THEN
true swap -1                       ( arg len true file-addr -1 )
elf-load-claim                     ( arg len true claim-list entry elftype )
CASE
1  OF ['] go-32-be   ENDOF           ( arg len true claim-list entry go )
2  OF ['] go-64-be   ENDOF           ( arg len true claim-list entry go )
3  OF ['] go-64-lev1 ENDOF           ( arg len true claim-list entry go )
4  OF ['] go-64-lev2 ENDOF           ( arg len true claim-list entry go )
5  OF ['] go-32-lev1 ENDOF           ( arg len true claim-list entry go )
dup OF ['] no-go to go
2drop 3drop false EXIT   ENDOF                   ( false )
ENDCASE
to go to go-entry to claim-list
dup state-valid ! -rot
2 pick IF
go-args 2!
ELSE
2drop
THEN
;
: init-program ( -- )
$bootargs get-load-base ['] load-elf-init CATCH ?dup IF
boot-exception-handler
2drop 2drop false          \ Could not claim
ELSE IF
0 ciregs 2dup >r3 ! >r4 !  \ Valid (ELF ) Image
THEN
THEN
;
: do-load ( devstr len -- img-size )	\ Device method wrapper
use-load-watchdog? IF
4ec set-watchdog
THEN
2dup " HALT" str= IF 2drop 0 EXIT THEN
my-self >r current-node @ >r         \ Save my-self
." Trying to load: " $bootargs type ."  from: " 2dup type ."  ... "
2dup open-dev dup IF
dup to my-self
dup ihandle>phandle set-node
-rot                              ( ihandle devstr len )
encode-string s" bootpath" set-chosen
$bootargs encode-string s" bootargs" set-chosen
get-load-base s" load" 3 pick ['] $call-method CATCH IF
-67 boot-exception-handler 3drop drop false
ELSE
dup 0> IF
init-program
ELSE
false state-valid !
drop 0                                     \ Could not load
THEN
THEN
swap close-dev device-end dup to load-size
ELSE -68 boot-exception-handler 3drop false THEN
r> set-node r> to my-self                           \ Restore my-self
;
: parse-load ( "{devlist}" -- success )	\ Parse-execute boot-device list
cr BEGIN parse-word dup WHILE
de-alias do-load dup 0< IF drop 0 THEN IF
state-valid @ IF ."   Successfully loaded" cr THEN
true 0d parse strdup load-list 2! EXIT
THEN
REPEAT 2drop 0 0 load-list 2! false
;
: load ( "{params}<eol>"} -- success )	\ Client interface to load
parse-word 0d parse -leading 2swap ?dup IF
de-alias
set-boot-device
ELSE
drop
THEN
set-boot-args s" parse-load " $bootdev $cat strdup evaluate
;
: load-next ( -- success )	\ Continue after go failed
load-list 2@ ?dup IF s" parse-load " 2swap $cat strdup evaluate
ELSE drop false THEN
;
: noload false ;
' no-go to go
: (go-and-catch)  ( -- )
get-load-base c@ 5c =  get-load-base 1+ c@ 20 = AND IF
load-size alloc-mem            ( allocated-addr )
?dup 0= IF ." alloc-mem failed." cr EXIT THEN
load-size >r >r                ( R: allocate-addr load-size )
get-load-base r@ load-size move    \ Move away from load-base
r@ load-size evaluate          \ Run the script
r> r> free-mem
EXIT
THEN
['] go behavior CATCH IF -69 boot-exception-handler THEN
;
read-bootlist
: boot
load 0= IF -65 boot-exception-handler EXIT THEN
disable-watchdog (go-and-catch)
BEGIN load-next WHILE
disable-watchdog (go-and-catch)
REPEAT
.banner
;
: load load 0= IF -65 boot-exception-handler THEN ;
cr .(   Welcome to Open Firmware)
cr
cr .(   Copyright (c) char ) emit .(  2004, 2011 IBM Corporation All rights reserved.)
cr .(   This program and the accompanying materials are made available)
cr .(   under the terms of the BSD License available at)
cr .(   http://www.opensource.org/licenses/bsd-license.php)
cr cr
' start-it CATCH drop
cr ." Ready!"
iiii(i@iHi`ipiii i i°iÀiÐiÐhøPPHPPPxP8PhP(Pl@PèPøQ8P¸QPØQ(PÈoxRøR¨R(RRÈRR¸oooo o¸eøoÈ
oØoèpp^ÿÿÿÿÿÿcScÿÿÿÿÂPÂèPGNUÃü´"ÇYùÙÇÆH@(N>}GCC: (GNU) 5.3.1 20160406 (Red Hat 5.3.1-6).symtab.strtab.shstrtab.rela.slof.loader.rela.text.rela.opd.got.rela.data.comment.note.GNU-stack.bssH^P_{^P
|tVø,[øD3M¸¸FWxVHPFT]ZøèkOÄx]h\]H@hL¯ ¾T8¼ÌHÔÑTÈïKèÐWè@VhhiÜ,HàD6W(°@IN{ð ZjXkNX¤t\h|SøX4 KÈ4²Ip ÃZ(Í[ÝJhéN¨ØùTØðHÐlLèL$°/Q¸dAI WW¨hJ0üuO0M¬£\XLªKh¤ºVXü¿¸2 Ð]xÕ[lâOÌøNèN(È\¸$W8(SÈ9e|F]¸MIdMXt^8$~MôVÈpL¨½K¸ôÍNØ|ÚN0ëX(Hú°\ØJ¨'X¨P2TH¤CpðeUWØ8aHph¸T pKHÐMHÄ(©J¸(¿Z¨ËKxÐÜZXXóHÔøUè´MhLVØ&HðD0\¨H9|0 DXN\è´UX8$adiZhyfTpeNd[Hl©T¸H¿Q¨lÐI0ßfîT¨ÔM<T&L:JPMH ÈSOxèe]XLmwfXZØX¡[ÈX¨Y(¸SèÉK8ßTèë¸T(ðU¼ýp eUØ8O¨!NÈ.M8$=[xhU¸S p_[ØxYHLÄV¨ÈªJÁÀÐLø¤ß\8ðæ\ø8ëIúZ¸dH ÁTT,\Ø4M(XGLØÀVQÈtd\(lLH,\SÑ ®NH¸L(ðÌS¨ÜñèS0øY¨0ýI 	Uhè	Vxt	'VHd	7Nxø	?U8d	MiT	X\xt	_	kQH8	}KX	j	¢Zè	©HÀ\	µ[¨	ÃV¸	ËZÜ	×L8à	èY(t	ïI`¸	ÿOèP
J@h
JØì
.Kì
BIà
\L¸D
nY|
zZ<
Qì

§
°Áæ
¸\HH
¿Z
ËTÈ
ßÁÿÀ@
ìMÈL]	LxU¨)3O¸Ô@QøðMØZYØdy]èX0ZHdLh¯Â·JètËÎÙäåV(êUø´ói0[èMxl[8Ô$KÄ/[(,KYTjOÈw]8dLV8lUH´ Nl®O(´¼LÈ¨Ñã¸UXìOØtúx¹

¸T
SØ
"P¨8
4`
?Oøô
TMøP
jX¸l
pY8T
[X
Vø4
iô
«
®Qh
Ëi|
ÕV 
ÝXX
ìJ ä
úRØüYø¸U`$N8/OhA| M\$UÂ_MèuWTøiÔ£Ið¨°Zx¼UX(ÊOp×ßj4ð[ÿM¨4MØì%[h1Gä@!KS¸\ÄpTqXeTXÜ£d´KØðÅLXX×S8éWøóXHþWÈH	\PX`\È$!Nht)Uxð7LXH(YSx0d rJyU(¼IP[ØL¥K(t¹[¸4ÂW¸`ÛNøìüK8Z H0<)Wp5NèCI@QH@TWf`DkVèHy]øp"VLä·](¼H°pÊKøÄáThìT(¸.LC24.LC3.patch_broken_sc1e1k_mac_setupstrcpyvirtio_serial_initset_ipv4_routerenginehandle_dhcpv6usb_hcd_initprintfvsprintfio_printhex16virtio_get_host_featuresthe_data_stackget_partitionrecvincrease_nvram_partition_sizevirtio_get_vring_deschandle_arpget_arg_ptrbootmsg_warningset_timersend_ipv4get_sec_ticksstderr_databootmsg_nvupdatep9_clunkmemmovenvram_write_qwordhandle_udphv_casvirtio_vring_sizeSLOF_dma_map_outmac2eui64neighbor_createcall_clientusb_devpool_getreset_nvramSLOF_usleepvirtioblk_shutdownhash_tableusb_key_availableSLOF_pci_config_read8get_ipv4_netmaskSLOF_bm_freeusb_hid_initthe_client_stackvirtionet_closememcpyelf_forth_claimpingthe_system_stackputsneighbor_addusb_dev_populate_pipep9_statp9_transactiontolowerset_ipv4_addressnvram_read_dwordromfs_lookupmallocSLOF_pci_config_read32virtioscsi_initvsnprintfvirtio_9p_initset_mac_addressvirtio_negotiate_guest_featuresvirtio_setup_vdusb_put_pipep9_reg_transporthandle_udp_dunthe_pocketsstrtoul_slof_textelf_load_filehandle_dnsget_partition_fskeycodes_shift_UShandle_ipv4socketdevpoolelf_byteswap_header64virtioscsi_sendhv_logical_ci_loadelf_load_file_to_addrstr_to_ipv6patch_broken_sc1ip6_create_prefix_infosende1k_closevirtioscsi_shutdownget_mac_addressget_timerisxdigitstdin_datapong_ipv4strtolfill_udphdr.call_cip6_prefix2addrwriteLogBytekeycodes_alt_GRp9_readrouter_addclear_nvram_partitionusb_hid_kbd_exitSLOF_alloc_memc_romfs_lookupdelete_nvram_partitionvirtionet_readfree_nvram_bufferhv_logical_ci_storeclient_entry_pointwriteusb_transfer_bulkfprintf_start_OFio_putchardhcpv6_generate_transaction_idstrcathandle_tftp_dunnvram_read_qwordelf_byteswap_header32nvram_debugheadlibveth_readkeycodes_ctrle1k_openusb_hid_exitusb_get_pipevirtio_9p_loadipv6_get_default_routervirtiodevsend_router_solicitationhandle_dhcpvirtio_get_vring_usedstrtoip_netmaskSLOF_bm_allocator_initepapr_ima_sizevirtioblk_readstrstrrandSLOF_dma_allocipv6_to_strreadthe_comp_bufferget_nvram_bufferstrncmpvirtio_9p_shutdownvirtioblk_initusb_read_keybstrncpyvirtio_queue_init_vqstrcasecmpnvram_write_bytethe_return_stackp9_attachvirtio_queue_notifynvram_read_wordepapr_magicnvram_read_bytetftpSLOF_dma_freelibveth_openget_args_countparse_tftp_argsp9_opennvram_add_envbootmsg_cpmemcmp.hv_hascharusb_ehci_registerelf_get_eflags_64bootmsg_checkleveldhcpv6SLOF_msleepfind_neighborstrtoiphandle_ipv6virtio_set_qaddrdhcpv4SLOF_dma_map_inusb_msc_resetrecoverysbrkelf_load_segments32elf_load_segments64SLOF_translate_my_addressvirtio_get_confighandle_tftpip6_cmpusb_hid_kbd_initthe_exception_framethe_heapsend_ipmemsetfill_ip6hdrnew_nvram_partitionall_nodes_llvirtio_serial_shutdownsrandvirtio_get_statuslibveth_writefdt_startusb_msc_initusb_hub_init.call_clientsend_ipv6_binary_OF_fsi_startgetchardns_get_ipunknown_prefixvirtio_reset_devicethe_memelf_get_base_addr32rphv_hascharhv_send_crqdhcpe1k_readGET_WRNG_LVLstrcmpvirtionet_openhandle_icmpv6fast_rfillsend_neighbour_solicitationdhcpv4_generate_transaction_idusb_msc_exitsprintfhv_putcharnetloadnvram_del_envreset_buffersusb_send_ctrl__virtio_read_configprint_version_endset_ledsusb_msc_reset_binary_OF_fsi_endspnvram_write_dwordusb_ohci_registerhv_getcharusb_setup_new_devicevirtio_serial_hascharbootpdhcp_send_releaserouter_createsend_etherbootmsg_debugcpdpusb_slof_populate_new_deviceprint_msgargncpyhandle_tcp_dunSLOF_bm_allocusb3_dev_initget_ipv6_addresskbd_bufferp9_versionusb_transfer_ctrlstdout_dataisdigitip6_statevirtio_serial_getcharset_ipv4_netmaskget_nvram_sizebootmsg_errorwrite_mm_logip6addr_addnvram_set_envusb_hcd_exitthe_tibbootmsg_setlevelis_ra_receivedvirtionet_writevirtio_serial_putcharfind_router_slof_text_endromfs_basenvram_write_word.client_entry_pointnew_nvram_partition_fskeycodes_std_USerase_nvramhv_logical_memopvirtio_get_qsizevirtio_set_statususb_xhci_registerping_ipv4handle_tcpfill_iphdrstrlendns_inittoupperp9_walklibveth_closevirtio_fill_descget_print_bannernvram_initprint_versioncall_cnvram_get_envSLOF_alloc_mem_alignedstrchrelf_get_base_addr64ndp_initget_default_ipv4_netmaskusb_hcd_registerhv_send_logical_lanelf_relocate64set_ipv6_addressasm_coutfill_ethhdrusb_poll_intrSLOF_free_memcloseio_printhv_genericreceive_ethervfprintfthe_client_framee1k_writevirtio_set_guest_featuresfreeSLOF_GetTimervirtio_get_vring_availwipe_nvramnvramlog_printfÕÕ!!ªª&*:T>TJTNTR V \
&Ê&=, *.969HK,üo

 
¬

>2F020¢2Â0öá2úá02
02ÿÿÿÿÿÿÿø0ÿÿÿÿÿÿÿø2 0 2"2%X&0%X2062:2%P>2F@%PJ@N@R=2V=0f2 j0 ~202¢0Æá2Êá0Î2#ÈÖ0#Èö2	0	.2	20	2	0	2	0	Ê2	Î0	ÒR2	ÖR0
2

0
Ê2
Ê0
B2
F0
JK2
NK0
~2
0
82
80
º2
¾0
Â2
Æ0
ö2
ú0
þ202260:2³P>@³Pn2r0v2³Xz@³XªÕ2®Õ0²2¶0ê!2î!0ò2ö0*ª2.ª02260j2n0r2v0¦á2ªá0Úá2Þá0æ2ê0
J2
N0
2
0
º2
¾0
ò2
ö0*2.020âá2æá020N2R020¾2Â0ò2ö02260b2f020¢á2¦á0æá2êá0î2ò02á26á0:2>0v2z0~20¶2º0Â2Æ0þá2á02
0¦2¦0R2V0Z¦2^¦0bá2fá0¢2¦0ªá2®á0ê2î0&2*0b2f02¢0Ú2Þ020R2V020Ê2Î0
20>2B0z2~0®2²0ê2î02"0Z2^020Ê2Î0þ2062:0~20Î2Ò0&2*020Î2Ò020F2J020Æ2Ê0Îá2Òá020Fá2Já0zá2~á0Ê2Î0Òá2Öá0Zá2^á020Æá2Êá0úá2þá0*á2.á0Z2^0~202"0"2&0Æ2Ê0øH
 2 0 4^
 J2 N0 z
 2 0 ¸^
 Î2 Ò0!z
!2!0!<^
!R2!V0!z
!2!¢0!À^
!Ú2!Þ0"z
"2""0"T'
"n2"r0"(
"¶2"º0"èH
#2#0#(4
#>2#B0#la
#2#0#¤N
#¾2#Â0#Ü)
#ö2#ú0#þ22$20$.2$20$C
$¦22$ª20$Ê2$Î0$ôï
%
2%0%(ü
%B2%F0%`â
%z2%~0%¬H
%Æ2%Ê0%ðH
&2&
0&0ã
&F2&J0&2&0&â2&æ0'.
'*22'.20'LÍ
'^2'b0'Ò2'Ö0(ê
(R2(V0(Ö2(Ú0)(
)2)0)Dw
)r2)v0)°5
)Æ2)Ê0)þ2*0* 
*:2*>0*r2*v0*ª2*®0*Þ2*â0+®
+F2+J0+l2
+2+0+°
+Ê2+Î0+øÔ
,2,0,8
,j2,n0,d
,¦2,ª0,Ðå
,ê2,î0-L
-*2-.0-h
-¢2-¦0-èð
-þ2.0.62.:0.n2.r0.¦2.ª0.Þ2.â0/2/0/N2/R0/2/0/¾2/Â0/þ2000620:00v20z00®20²012101>21B01h<
1~2101¶21º01î21ò02&22*02^22b022202Î22Ò0323
03>23B03v23z03®23²03æ23ê0424"04V24Z042404Æ24Ê04þ2505625:05n25r05®25²05ê25î06626:06T-
6v26z06¨7
6Â26Æ06ô7
7
2707z27~07²27¶07î27ò08
8628:08`	
8z28~08¨6
8Â2#È8Æ0#È8Þ28â08üí
92909D
9^29b09}
9®29²09Ü³
9ò29ö0: 
:62::0:`
:v2:z0:¤
:º2:¾0:ä
:ö2:ú0;(¸
;`#
;r2;v0;~;2;;0;¤U
;Î2;Ò0;Ú;2;Þ;0<_
<:2<>0<X«
<r2<v0<©
<ª2<®0<ÈE
<â2<æ0=
=2=0=<¥
=Z2=^0="
=2=¢0=Äú
=â2=æ0>&
>&2>*0>P
>2>0>ÄW
?2?
0?@$
?r2?v0?¤
?ä/
?ö2?ú0@4²
@b2@f0@ñ
@Ô
@æ2@ê0A$
AR2AV0As
AÄQ
AÖ2AÚ0B8
B,.
BV2BZ0Bt
B2B0B´Ñ
BÆ2BÊ0Bø
C2C0C,
CF2CJ0Cdþ
Cû
C°¶
CÔ*
Cê2Cî0D
D&2D*0DL
Db2Df0D7
D2D0D¸
DÒ2DÖ0Dð¡
E
2E0E(3
EB2EF0E`×
Ez2E~0EÖ
E²2E¶0Eà
Eú2Eþ0FI
F22F60FXe
Fj2Fn0F°]
FÆ2FÊ0Fèè
G2G0G@9
GV2GZ0Gx
G2G0GÄ
GÞ2Gâ0H1
H2H0HL
Hb2Hf0HK
H¾2HÂ0Hä
Hö2Hú0I,¾
IB2IF0I` 
Iz2I~0I¨Æ
K`0
Kp0
K22K20Lö2Lú0Lü>
M
2 M0 N
N2(N .
N.0(N8
NH
NP.
Nd
Nt
NÀ
NÞ2Nê0Nþ2O0O2O
@O20O@0O^2Ob0Oh.
O|
O
O2`O¢0`O¤
`OÂ2OÊ0OÌ
`Oê2ÀOì
Oö0ÀOø.
P
P
P$.
P8
PH
P`
Pt
P:
PÒ2ÐPÖ0ÐPØ>
Q28Q08Q>
Q.2hQ20hQ4>
QF2QJ0QL>
Q2Q0QÀ
QÒ2HQÔ
Qâ0HQè
Qð.
R
Rj2Rv0R 
R²2HR´
RÂ0HRÈ
RÐ.
Rä
Sb2PSj0PS°.
SÄ
TJ2hTN0hT\.
Tp
T
TÄO
TàO
U2xU"0xU4
U@.
UT
UO
U2²U®0²UÚ2²UÞ0²UèO
VJ2VR0Vd
Vp.
V
V
VÚ2Vâ0Vì
W
W.
W 
WZ2 Wb0 Wt
W.
W
W¨
Wê2°Wò0°Wü
X
X.
X0
X|u
XE
X¤u
Y
Y2ÀY 
Y*0ÀY8
YD.
YX
Yl
YÄ
YÖ2ÐYÜ
Yæ0ÐYô
Z.
Z
ZJ2àZR0àZd
Zp.
Z
Z
ZÊ2ðZÒ0ðZä
Zð.
[
[
[J2[R0[d
[p.
[
[
[Ö2[Þ0[è
[ü
\.
\
\f2 \n0 \x
\
\.
\¬
\ö20\þ00]
]
](.
]<
]z2@]0@]
] .
]´
]È
^
^*2X^0
^:0X^H
^T.
^h
^Þ2h^â0h^ä
^î2^ò0^ô
_"2ð_&2X_*2 _60ð_:0X_>0 _`
_´
_Ä
_Ò2è_Ö0è_Ø
`u
`¼Í
cê2øcò0øcø
d"2²d&0²d¤F
eDF
f$F
f¨
fÜ
fø
g
g0
gL
gh
g
g 
g¼
gØ
gô
h
h,
hH
hd
h
i`
ih
ip
i
i
i 
i¨
i°
i¸G
iÀ
iÈ
iØ
iàæ
iìiüæ
jjæ
j¤\
jð
kp
kÐÄ
kì·
l Ã
l
l´;
lÐÄ
lè@
m$à
m@Ã
m¤
mÔ;
môà
nü%
oÍ
o²2@o¶0@o¸
rÌ%
rìÍ
s2s0s
tz2àt~2Àt0àt0Àu¶2sÐuº0sÐvô
x´
zú2{0{
{ 
{,.
{@
{T
~Í
*6.62õ6õdµ
v¡Òz¡Ò¡Ò¡Òº¡Ò¾¡ÒàH
Å
LÅ
H
u
¨4
È4
à4
ø4
4
H
L
\4
 
,H
B2(F0(H
`
¨
¬(
$
¨lP
|(
ô
¨(
p(
 9
äÍ
ø¾
P

J2HN0HP
Ô)
¬
ÀM
È
ÜÓ
ô)
Ó
2"26"0:2B0D~
f"2j"0n2hr0ht~
°Þ
À)
Ü)
M
2°2À0°0À 
<)
xM
2¡Ò(0¡Ò(£
¨P
ì)
ø
Æ
8Ó
h)
tÞ
Æ
$Æ
D(
X
lP

ª2¡ÒX²2¡Ò\¶0¡ÒX¾2¡Ò`Â0¡Ò\Æ@¡Ò`Ò2¡ÒXæ0¡ÒX 3
X3
|3
ð¨
øO
O
F2(J0(L
b"2f"0j2r0t~
Ò2ÐÖ0ÐØ>
ö2¡ÒXú2¡Ò\0¡ÒX0¡Ò\2¡Ò`0¡Ò` (
´
ÈP
Ü
T3
x3
ð¨
Æ2¡ÒhÚ0¡Òhþ0¡ÒhÞ
)
0)
LM
V2¡Òp^0¡Òpd£
|P
À)
Ê2Ú0ÜP
M
4Ó
B2PF2ÀJ0PN0ÀP
p)
Ø)
äÞ
ö2¡Òh 0¡Òh .2` >0` B2¡Òh F0¡Òh Æ
 Ìô
 Ü

 î2h ö0h ø
¡$
¡D§
¡Z2¡b0¡d
¡t$
¡¼1
¡Ú2 ¡Þ0 ¡à
¡ð$
¢$A
¢62¸¢>0¸¢@
¢P$
¢`$
¢±
¢èq
£2è£
0è£
£"2Ð£*0Ð£,
£°(
£Ä
£ØP
£ì
¤d3
¤3
¥¨
¥O
¥4O
¥Ð3
¥ü3
¦L)
¦h)
¦M
¦ Ó
¦¸M
¦Ð)
¦àP
§ (
§D)
§r2§v2À§z0§~0À§
§)
§Ø)
§äÞ
¨Du
¨f2¨j0¨v2¡Ò ¨z0¡Ò ¨:
¨Þ
¨ £
¨¼£
¨Ô)
©8)
©\M
©f2¡Ó©j0¡Ó©tu
©~2¡Ò°©@¡Ò°©è3
ª3
ªj2¡ÒÀªn@¡ÒÀªª@¡ÒÀª¶2¡ÒÈªº@¡ÒÈªÎ2¡ÓªÒ2¡ÒðªÖ@¡ÒðªÚ0¡Óªú2¡Òðªþ@¡Òð«)
«$¨
«PÆ
«|M
«Ó
«ª28«®08«°
«Ì)
«ÜE
¬2¡Ó¬2¡Òð¬"@¡Òð¬&0¡Ó¬8)
¬HE
¬Z2¬^0¬`
¬°E
¬Ò2¬Ö0¬Ü)
¬æ2¬ê0¬ìÞ
E
F2¡Ò V0¡Ò Z2^0b2¡ÒÈf@¡ÒÈ2¡Ó0¡Óð:
þ2¡Ó®2¡ÒÀ®@¡ÒÀ®
0¡Ó®0¡Ó®&2¡Ò¨®*0¡Ò¨®v2¡ÒÀ®z@¡ÒÀ®¤¨
®Ú2¡Ó®Þ0¡Ó¯F2`¯J0`¯L
¯Z2¡Ò¸¯^@¡Ò¸¯ :
¯®2¡Ó¯²2¡ÒÀ¯¶@¡ÒÀ¯º0¡Ó¯Ê0¡Ó¯Ò2¡Ò¨¯Ö0¡Ò¨°®2°²0°Â2¡Ó°Æ0¡Ó°Ê2¡Ó°Î0¡Ó°ØÍ
°æ2¡Òð°ê@¡Òð±
2¡ÒØ±0¡ÒØ±2¡Òè±@¡Òè±"2¡Ó±&0¡Ó±P3
±Z2¡Òè±^@¡Òè±|3
±2¡ÒØ±0¡ÒØ±2¡Òð±@¡Òð±Ú2¡Òð±Þ@¡Òð²¨
²B2¡Ó²F0¡Ó²R2²V0²X
²ÔÞ
²ä)
³)
³ M
³22°³62À³:0°³>0À³@
³\)
³Ó
³2¡Ó³0¡Ó³¨£
³¼u
³Æ2¡Ó ³Ò@¡Ó ´3
´V2¡Ó°´Z@¡Ó°´@¡Ó°´¦2¡Ó¸´ª@¡Ó¸´Ê2¡ÓÀ´Ú0¡ÓÀ´Ü£
´ôP
µ8)
µJ2ÈµN0ÈµP
µ)
µÞ
µô(
¶
¶P
¶0
¶3
¶ô¨
¶üO
·O
·b2ø·f0ø·h
·ÔÍ
·â2¡Ó¸·æ@¡Ó¸·ê2¡ÓÀ·î2¡Ó·ò0¡Ó·ö0¡ÓÀ¸:
¸2¡ÓÀ¸2¡Ó°¸@¡Ó°¸0¡ÓÀ¸ª0¡ÓÀ¸²2¡Ó¸¶0¡Ó¹4:
¹B2¡ÓÀ¹F2¡Ó°¹J@¡Ó°¹N0¡ÓÀ¹^0¡ÓÀ¹j2¡Ó¹n0¡Ó¹º2¡Ó°¹¾@¡Ó°¹ì¨
ºF2¡Ó¸ºJ@¡Ó¸ºj2¡ÓÀºn0¡ÓÀº¢2¡Óøº¦@¡Óøºª2¡Ôº®@¡Ôº²2¡Ôº¶@¡Ôºº2¡Ôº¾@¡ÔºÖ2¡ÔºÚ@¡ÔºìÍ
ºö2¡Ôºú@¡Ô»Í
»ù2»ù0»2¡Ô»@¡Ô»J2¡Óø»N@¡Óø»Rù2»Vù0»Z2¡Óø»^2¡Ô»b@¡Ô»f0¡Óø¼¬Í
¼Ø¢
¼â2¼ê0¼ì
½*2(½.0(½8ò
½>ù2½Bù0½¬.
½È.
½Ü:
½è.
¾B
¾2¡Ô¾@¡Ô¾628¾:08¾@
¾È.
¾Ø.
¾ôò
¾úù2¾þù0¿.
¿¤.
¿¸:
¿Ä.
¿à.
À.
À:
À .
ÀlB
ÀÈò
ÀÎù2ÀÒù0ÁDB
Á¸ò
Á¾ù2ÁÂù0ÁÊ2@ÁÖ0@ÂØ
Âî2¡ÔÂò@¡ÔÃD:
Ãb2¡ÔÃf@¡ÔÃxB
Ãä.
Ãú2¡ÔÃþ@¡ÔÄB
Ä2¡ÔÄ@¡ÔÅò
Åù2Åù0ÅB
Å2¡ÔÅ¢@¡ÔÆò
Æ2ù2Æ6ù0ÆÄB
ÆÒ2¡ÔÆÖ@¡ÔÆô:
Çlò
Çrù2Çvù0ÇÜB
Çê2¡ÔÇî@¡ÔÈN[2ÈR[0È|Í
È´u
É&[2É*[0Éò2HÉö2Éú0HÉþ0Ê
ËZ2Ë^0Ëº2¨Ë¾0¨ËÀ
Ëê2Ëî0Ì2°Ì0°Ì
Í2°Í0°Í
Í2XÍ2Í0XÍ0Í 
Î<ó
Î¼ó
Ï<ó
Ï|ó
ÐB2hÐF2ÐJ0hÐN0ÐP
Ðà
Ñ
Ñ 
Ñ É
Ò@t
Ó@@
Ó°O
ÓÀO
ÔLó
Ô
8Ô 
8Ô¨º
Õ(
Õ<
HÕó
Õ¼º
ÕÐ
HÖ
XÖ<
ÖX
XÖó
Ö°º
×H
×l:
×~2×2À×0×0À×
×¨
Ø62¡Ô0Ø:0¡Ô0Ø¶2¡Ô0Ø¾0¡Ô0Ù®2¡Ô0Ù²0¡Ô0ÚhÍ
Û*
Û*
Û0
ÜÍ
Ý
Ý°À
ÝÈÍ
ÝÜÍ
ÝðÀ
ÞÔ
ÞôÀ
Þþ2ß0ßP
ß¦2Øßª2Pß®0Øß²0Pß´
àpº
à¨*
à¸
àÔ*
àä
àôE
á>2áR2páb2¨á0á®0pá²0¨á¸O
âO
â
ââ2hâê0hâì
ãè
äÍ
æ|O
æ¨O
æÐ
Xçr2Àçv0Àçx
çÂ2àçÊ0àçÌ
è2	(è0	(è
è62	8èB2ðèF0	8èN0ðèP
èxÁ
è2ðè2	è0ðè0	è
é@
éTÀ
étÍ
éÀ
ê°O
êØO
ë2ë2	pë
0ë0	pë
ë2	ë2	ë"0	ë(
ë60	ëH
ëZ2 ë^0 ë`
ë|
XëÔ*
ëì*
ì*
ì
ì¬À
íJ2	 íV0	 íp
í|u
í Í
íÄ
íê2	àíî0	àíð
î
îE
îXÀ
îº
ï0
ï"2
ï&0
ï(
ï\
ïÍ
ïÍ
ð°º
ñLº
ñº
ñ®2
`ñ²2
xñ¶0
`ñº0
xñèº
òÐ
òø.
óý
ó,
óH
ó®2	¸ó²0	¸ó´
óö2
0óú0
0óü
ô62ðô:0ðôD>
ôÐÍ
õÍ
õÍ
ö
ö4À
öê2Èöö0È÷
÷u
÷,Í
÷tO
÷ÀO
ø
øÀ
ø,
øDÀ
ø\Í
øÔ
øìÀ
ùÍ
ùÞ2¸ùê0¸úÈº
û(º
û0.
ûLý
ûh
ûä
ûú2àûþ0àü
ü:2ü>0ü@
üN2PüR0PüT
üh*
üx
ü2ü0ü
ü *
ü°
ü¾2 üÂ0 üÄ
üî2¡Ô4üþ0¡Ô4ý0¡Ô4ý2ý2èý"0ý&0èý(
ýÀ*
ýÐ
ýì*
ýü
þ*
þ(
þD*
þT
þdE
ÿO
ÿ$O
ÿ¤O
`
xÀ
Í
¤À
°O
ÔO
O
2
@0
@ 
@
	X*
l*
*

â2
æ0
è
L
	Z2 ^2
hb0 f0
hh
À
2
(
0
(
èÍ
O
0O

	â2
ê0
ì
ú2
 0
 
2°2
h0°0
h 
.2
È60
È8
f2Pj0Pt>
22>0L
X.
l
2 0 ²2@º0@Ò2`Ú0`	22Ð	60Ð	8
	p÷
	º
	 
	X	²2	¶0	¸
	â2	æ2¸	ê0	î0¸	ð

2¡Ô8
@¡Ô8
j2¡Ô@
n@¡Ô@
ö2
ö0
¢2¡Ô8
¦2¡ÔH
ª0¡ÔH
²0¡Ô8>2	XB0	Xâö2æö020Ò%2Ö%0ÚX2ÞX0â2¡Ô8æ2¡Ô@ê@¡Ô8î@¡Ô@öö2úö0
ö2
ö0Zö2^ö0âp2æp0PÍ
`D
t
	xøó
0ó
DÍ
ó

¢2¦0 @
4
	xLÍ
b2øf2j0øn0p
°O
Â2Æ0Ð

	2¡ÔH"0¡ÔH&2¡ÔV*0¡ÔV
	2¡ÔH0¡ÔH2¡ÔV0¡ÔV2¡Ô8¢0¡Ô8¶2¡ÔH¾0¡ÔH@ó
Èó
 22H 4Í
 Z0H xó
 ¸
	è à
	Ø èº
 ðO
!
	è!0O
!\
	Ø!dº
!lO
!O
!
	è!À.
!Üý
!ô
"D
"\
	è"

"²28"¶08"¸
#4O
#lO
#º2#¾0#À
%Í
%Ì*
%Ü
&Í
&ÐÀ
'¼

'Ø*
'ð*
(LÀ
(ð
)Í
)0À
)*
)¨
)¼Í
*@Í
*à
+

X+À
+Ä

,TÍ
-d

x.<

X/d

x/²2x/¶2/¾0x/Â0/Ä
/ô
0À
0¤

X0¸
0ÌÀ
1P

h1^21b01d
1p

h1~2Ð10Ð1
30
3¼

3Ð

H3Ø

H3à

H3è

H3ø*
4
4*
4,
4t*
4
4

H4Ð

H5*
5
5º
5,E
5²2¡Õh5Â0¡Õh6(

6:
6Í
720¡Õh9pO
9z2¡Õh90¡Õh9O
9°

:2(:0(:
;

x;Ä

8<

h<ü

8=d

x=

x=.
=Øý
=ô*
>
>

H> *
>0
>B2P>N0P>P
>
@ìº
@ü

AD

BÊ2BÖ0Bè
Cu
CÍ
D$

Dä0
EH
EdÍ
ExÀ
EÌ

hFt

hF¼

HFè*
Fø
G2ðG0ðG
GJ2ÀGN0ÀGP
Gr2Gv0Gx
GÀ
GÜÀ
J

J

èJ,

èJd*
Jt
J

HJ¦2°Jª0°J´>
Jæ2¡ÕpJê0¡ÕpK0H
Kf2¡ÕtKj0¡ÕtK¦2¡ÕpK²0¡ÕpKô
LD
LJ2¡ÕtLN0¡ÕtLv2¡ÕtLz0¡ÕtL®2¡ÕpL¶0¡ÕpLÐ
Lü
(MT
MH
N2¡ÕtN0¡ÕtNz2¡ÕxN~0¡ÕxN¼H
Nâ2¡ÕxNæ0¡ÕxO H
O*2¡ÕtO.0¡ÕtOB2¡ÕxOF0¡ÕxOH
O2¡ÕtO0¡ÕtOî2¡ÕpOú0¡ÕpP
8P2¡ÕtP0¡ÕtP
8P.2¡ÕtP20¡ÕtP.
PøH
Q
(Q2¡ÕtQ0¡ÕtQ¢2¡ÕxQ¦0¡ÕxQäH
R8H
R^2¡ÕxRb0¡ÕxRH
RÊ2¡ÕtRÎ0¡ÕtRÜ
8Râ2pRê0pRø
XS22¡ÕpS60¡ÕpS:2¡ÕxS>0¡ÕxSB2¡ÕtSF0¡ÕtSJ2¡ÕSN@¡ÕSb2¡ÕtSf0¡ÕtS
S2¡ÕtS0¡ÕtS¶2¡ÕxSº0¡ÕxSüH
T"2¡ÕtT&0¡ÕtTF2¡ÕpTJ0¡ÕpTH
TÆ2¡ÕtTÊ0¡ÕtTæ2¡ÕxTê0¡ÕxU(H
UR2¡ÕtUV0¡ÕtUv2¡ÕpUz0¡ÕpUÄH
Uö2¡ÕtUú0¡ÕtV2¡ÕxV0¡ÕxV\H
V2¡ÕtV0¡ÕtV¦2¡ÕpVª0¡ÕpVôH
W&2¡ÕtW*0¡ÕtWF2¡ÕxWJ0¡ÕxWH
W²2¡ÕtW¶0¡ÕtWº2¡ÕpW¾0¡ÕpWÊ2¡ÕWÎ0¡ÕX2¡ÕX0¡ÕXp
X¬B
Xú2¡ÕtXþ0¡ÕtYZ2¡ÕpYb0¡ÕpY¬
(Yè
Zp
Z
[$
[\H
\:
\ 
\f2¡Õt\j0¡Õt\z2¡Õp\0¡Õp\²2¡Õ\¶0¡Õ]HH
]°Í
]ðH
^B2¡Õt^J@¡Õt^L&
^&
^¤&
_
_,&
_@
X_\
h`Ï
`B2¡Õt`F0¡Õt`2¡Õp`¢0¡Õpa
aHH
at&
a
a &
a¤
hb4&
bÌ
c2¡Õtc0¡Õtc2¡Õpc0¡Õpc*2¡Õc.0¡Õc
c¼&
dLH
df2¡Õdj0¡ÕdÈ&
dà&
dæ2¡Õtdê0¡Õte
he2¡Õxe0¡ÕxePH
ev2¡Õte@¡Õte&
eÈ
Xeü
Xf
Hf
Hf2f0fR
f"2¨f*0¨f4
Xf8
hfr2¡Õtfv0¡ÕtfÔ«
fü«
g2¡Õ gª0¡Õ gÐÍ
h«
h0
h
hî2¡Õ hú0¡Õ i\«
i
iä
jØ

k,¥
kP¥
k¥
lH

l\

l|«
l
lè«
m,¥
mDy
m\&
n8
n(.
nD

nX

nh
n¨«
nÄ«
nì«
oL¥
o|¥
o¬¥
oÌy
oì¥
p\
pØ²
q$u
qJ2¡×¨qL:
q^2¡×¨qn0¡×¨qz0¡×¨q~2¡×¬q0¡×¬q9
q2¡×°q¢@¡×°q¦2¡×¸qª@¡×¸q¬9
q¶2¡×Àqº@¡×ÀqÄu
qÎ2¡×°qÒ@¡×°qÖ2¡×ÈqÚ@¡×Èqæ2¡×¸qê@¡×¸r<H
rH
rÒ2ÐrÖ0ÐrØ
râ2¡×°ræ@¡×°rôE
rþ2¡×Às@¡×ÀsE
s2¡×Ès@¡×Ès0E
s@E
s¢2øs¦0øs¨
s¶2°sº0°s¼
tE
t8H
tB2¡×°tF@¡×°tTE
t^2¡×Àtb@¡×ÀtpE
tz2¡×Èt~@¡×ÈtE
t¨E
tæ2(u2¡×¨u0¡×¨u2¡×¬u"0¡×¬u&0(u
u¨H
v,:
vÔ?
w2Xw0Xw 
w2¡×àw0¡×àw¢2¡×èw¦@¡×èwÎ2¡×èwÒ@¡×èxr2¡×àx0¡×ày$º
y¢2¡×ày¦@¡×àz>2¡×èzB@¡×èz2Øz0Øz
z¾2¡×èzÂ@¡×èzê2¡×èzî@¡×è{:2{B0{2¡×à{@¡×à{¦2¡×è{ª@¡×è{Þ2¡×è{ê2¡×à{ö0¡×à{þ@¡×è|u
|$Í
|<À
|F2¡×è|J@¡×è|r2¡×è|v@¡×è|¼º
}

¨}<Í
~\Í
¬E
æ2ê0ì
"2¡×è&@¡×èR2¡×èV@¡×èpº
z2¡×è~@¡×è2¡×è@¡×è²2¡×è¶@¡×èÎ2¡×èÒ@¡×èê2¡×èî@¡×è2¡×è"@¡×è&2¡×à.0¡×àD

¸Lº
X

¸`º
*
E
ö2¡×èú@¡×è2¡×à"0¡×àr2¡×àz0¡×àø:
Í
¶2¡×èº@¡×èò2¡×èö@¡×è2¡×à&0¡×àX:
~2¡×è@¡×èn2v0Â2¡×àÒ@¡×àÖ2¡×èâ@¡×èäÍ


¨2 200 00
ì
 
ª2Ø®2pº0Ø¾0pØ
àÛ
A
 ¹
H
PÛ
b2àf0àh
Ì¿
â2æ0è
¿
"2ð*0ð,
B2(F20J0(N00P
Xì
r2`v20z0`~00

¤:
ò2hþ0h@>
TÍ
lZ
Û
 !
¨
°g
ÐZ
þ2¨
0¨
L
4Ò
`¢
Í
¯
¦2pª@pô:
þ2p@p&2@*0@b2j0l

|
.

ä
2p@pB2pF2pJ0pN@p|¬
F
"2P*0P,î
<
H.
\
ä
2p@p¸
Â2Ê0Ì
â2 ê0 üî

.
,
8F
\´
ÿ
 ´
¸A
Æ2pÊ@pà´
ü´
D
2p@p.2X20XD
`´
ä
°:
º2p¾@pÔ´
ð´
:
22x>0x@
^2p`¢
j2pr0pv@p20¤
®2pÂ@pÐ¬
ì

20 ¤
@
J2pV@p
°
Ð
ô
2(0(¤
4
B2pJ0pl
|`
¤Í
¼
à
,Í
V2 ^0 `¤
2P0P

¦2 ®0 °
Ìk
ø´
´
0´
L:
hA
p
:
k
º2p¾@pü
¼
4Í
L
p
¼Í
àÍ
ôÍ
Í
0Í
HÍ
`:
x:

¸
È¼
ðÍ

,
<¼
dÍ
r2ðv0ðx>
Í

´´
Ð:
è´
:

8
H`
pÍ

¬
¼`
äÍ
ôÍ

$´
@:
LÍ
XÍ
hÍ
xÍ
20

 
¬.
À
Ò2 Ú0 Ü
î2àö0àø


.
(
4F
F2HN0HP

`
l.

2 0 

¬
¸.
Ì
Þ2æ0ìî
ü
.

.2À:0À@î
P
\.
p
2000


¨.
¼
ÈF
Þ2æ0èî
ø
.

.2Ð60Ð8î
H
T.
h
~2 0 î
2¼¢0¼Ò2èÚ0èÜ

ì
ø.

2¸&0¸(

8
D.
X
j2r0t


.
¤
¶2p¾0pÀ

Ð
Ü.
ð
.
2h0hî
(.
228608<î
L
X.
l
|.
20î
.
¦2ª0°î
¼.
Æ2PÊ0PÐî
Ü.
æ2@ê0@ðî
.

2¸0¸î
pG
¢
2ø0ø 
¸:
Ü:
ô:
 :
 4

 LÜ
 d
 t

 N
 Ä:
 ä:
¡`
¡

¡$N
¡b2¡j0¡p
¡|N
¡2°¡0°¡
¡ª2È¡²0È¡´
¡Â20¡Ê00¡Ð
¡ÜN
¡ê2x¡ò0x¡ø
¢N
¢2¢0¢ 
¢,N
¢:2P¢B0P¢H
¢TN
¢b2¢j0¢p
¢|N
¢ÌÍ
¢è:
£¯
£4
£D¼
£d
£t¼
£
£¨
£¼
£Ô
£üÍ
¤2!(¤
0!(¤
¤$Z
¤R2 x¤^0 x¤d
¤pL
¤ä
¤¬D
¤º2 À¤¾0 À¤Ð
¤Ø5
¤ô:
¥2!¥0!¥
¥(+
¥0!
¥\
¥pI
¥xj
¥g
¥2	¥¢0	¥¤
¥°F
¥ì:
¦
¦D
¦&2 À¦*0 À¦<
¦D5
¦V2 à¦Z0 à¦\
¦f2 ð¦z0 ð¦|
¦2!¦0!¦
¦¤F
¦Ð
¦à¼
¦ò2È¦ö0È¦ø
§(
§D
§T¼
§p
§
§¬¼
§Ä
§ä
§øk
¨=
¨0
¨>2 H¨B0 H¨D
¨V2  ¨Z0  ¨\
¨n2 ¨r0 ¨t
¨F
ª¸¢
«N2@«r0@«
«°
«È
«ô¢
¬k
¬X¢
¬pk
¬.
:
0:
\¢
¼¢
Ì.
ô
®*2ª®.0ª®0:
®R2ª®Z0ª®\Í
®2ª®0ª®®2ª®º0ª®ØÍ
®ð
¯2!P¯0!P¯´
¯.2ª¯20ª¯²2x¯º0x¯À´
¯Ü´
°´
°0
°pY
°°½
±c
±`:
±t:
±²2ª±º2ª±¾0ª±Æ0ª±Ê2ª±Ö0ª±Ú2ª±æ0ª²Í
²Ì2²"Ì0²& 2². 0³*2ªZ³.0ªZ³22ª³60ª³F2ªZ³J0ªZ³®2!X³¶0!X³Ä´
³Ö2ª³Ú0ª´&2ª´*0ª´.2!X´60!X´`Í
´hf
´z2ªZ´~0ªZ´¨:
´À:
´Ìf
´äC
´ø
µ
2ªµ0ªµ2ªµ0ªµ:2ªµF0ªµ|Í
µf
µC
µ°:
µ¾2ª`µÆ0ª`µÈ!
µÐ
µàg
µôI
¶2ªZ¶0ªZ¶"2ª¶&0ª¶*2ª¶.0ª¶62!X¶:0!X¶Lf
¶lC
¶:
¶
¶â2ªZ¶æ0ªZ·2ª·
0ª·2ª·0ª·2ªZ·0ªZ·²2ª·¶0ª·¾2·Â0·â2ªZ·æ0ªZ·ê2ªZ·î0ªZ¸Í
¹2ªZ¹0ªZ¹
¹22ªZ¹60ªZ¹f2ªZ¹j2¹v0ªZ¹~0¹2¹0¹2¹0¹2¹2¹¢0¹¦2¹ª0¹®0¹Ê2ªZ¹Î2¹Ú0¹Þ0ªZ¹èÍ
º2ªZº0ªZº22ªZº60ªZº8
ºR2ªZºV0ªZºr2ªZºv0ªZºx
º2ªZº0ªZ»2ªZ»¢0ªZ»Æ2ªZ»Ê0ªZ¼¢2ª¼ª0ª¼Æ0ª½"2ª`½&0ª`½.2ª½20ª½r2ª`!½v0ª`!½À:
¾'
¾2ª`¾0ª`¾ :
¾@,
¾¼:
¿ 
¿\Q
¿|
¿ú2ªZ¿þ0ªZÀ2ªÀ0ªÀ,f
À<´
ÁÍ
Á f
Á¸C
ÁÀf
Áø:
Â:
Â(
ÂV2!`Âb0!`Âh´
Â:
Â¬:
ÂÀ
Âæ2ªÂê0ªÃxÍ
ÃÄ 
Ãò2ªÃö0ªÄhV
Ä°
ÄôÇ
Å
Åt
Æ:
Ç22 Ç:0 Ç<

ÇÄ.
Çê2«fÇî0«fÈÍ
È8

ÈD.
Èl
È:
È
È¸Î
ÈÆÌ2ÈÊÌ0É\l
Éf2«lÉj0«lÉ-
Éª2«lÉ®0«lÉÆ2«lÉÎ0«lÉØ:
Ê2 Ê*2«fÊ.0 Ê:0«fÊh

Êr2!hÊz0!hÊ|
Ê2!pÊ0!pÊ
Ê¦2Ê®0Ê´
ÊÌ
ÊÚ2!xÊâ0!xÊè
Ë
Ë
2!Ë0!Ë 
Ë8
Ët¢
Ë

Ë.
Ëø¢
Ì"2!øÌ*0!øÌ,
Ìx

Ì2"Ì0"Ì
ÌÒ2«lÌÖ0«lÌö2«n,Í0«n,Í

Í.
Í4
xÍ8!
Í@
Ípg
ÍI
Í¸
xÍÎ2!ÐÍÖ0!ÐÍØ
Íö2!Íø.
Î0!Î
Î$.
ÎP:
Î¢2!Îª0!Î¬
Ï:
ÏÍ
Ï®2«o0Ï²0«o0ÏØ
hÐ62«n,Ð>0«n,Ð^2«fÐf0«fÐ 
hÐÀç
Ñ:
Ñ(ç
ÑL
hÑf2«n(Ñn0«n(Ñ2"XÑª0"XÑ¾2"ÑÎ2"0ÑÚ0"0Ñî0"Ò
Ò2«p0Ò@«p0Ò
ÒHÍ
Òd-
Ò|l
Ò

Ò f
Ò´:
ÒÈ 
ÒüÍ
Ó!
Ó
Ó0
Óg
Ó°
ÓÂ2"`ÓÊ0"`ÓÐ
Ô`f
Ôp´
Ô2«p0Ô@«p0Ô:
Ô¸

ÔÆ2"ÔÊ0"ÔÔ
ÕL:
Õp:
Õ:
×¸:
Ø
ÈØhÍ
Ør2Øz0Ø´
Ú:
Ûì:
Ün2«p8Üz0«p8Ü~2Ü0Ü:
ÞP.
Þp:
Þ.
Þ¸:
Þî2«p8Þö0«p8ßÍ
ß2«pTß"2«pUß&2«v(ß*0«v(ß.0«pTß20«pUß:2«pVß>0«pVßB2«pXßF0«pXßHf
ß\:
ßpÍ
ß
øß°l
ßº2«v,ß¾0«v,ßÔ-
ßè 
à0
à<
àZ2«v(à^0«v(à2 à0 àª2«p8à¶0«p8àÜ

àì

àö2«x0á@«x0á
á2«x8á0«x8á!
á
á(I
á¬.
á¾2«x<áÂ0«x<áÒ2«v,áÖ0«v,áè

â"2«x<â&0«x<â<

âH.
â`¼
âg
â°Ü
ã2«p8ã0«p8ã4Í
ã>2«pTãB2«pUãF2«v(ãJ0«v(ãN2 ãV0«pTãZ0«pUãb2«pVãf0 ãj0«pVãn2«pXãr0«pXãt

ã|f
ã:
ã2«v,ã0«v,ã¢2«p`ã²0«p`ã´Í
ã¾2«x@ãÂ0«x@ãØ
øãìl
ãö2«x@ãú0«x@ãþ2«v,ä0«v,ä-
ä$ 
ä Í
äº2«v(ä¾0«v(äÂ2«p8äÆ0«p8äÖ2äÞ0ää´
å
èå22«x8å60«x8å .
åÈ¢
åè.
æ¢
æ2«v°æ0«v°æ2«x8æ&0«x8æt:
æ¨
ØæÌ
èçV2«v,çf0«v,çj2«x<çn0«x<çp.
ç.
ç2«x@ç¢2«x8ç¦0«x@ç®0«x8ç²2«v,ç¶0«v,ç¸D
çÂ2«x0çÆ@«x0çà:
è/
è22«x<è60«x<èL¢
èp
Øè
Øè¨:
èÜÍ
èüf
é:
é$Í
é@:
éX:
é
øél
é¼-
éÐ 
éü¢
ê
2«v°ê0«v°êL

êh

êv2«x8êz0«x8ê2 ê0 ê

êÄ¢
êæ2 êê0 êð

ë.
ë,¢
ë@
ëL
ëv2«xHë@«xHë2«xLë¢0«xLë¦2" ë®0" ëÀ
ëÊ2«xHëÎ2«xLëÒ0«xHëÚ0«xLëæ2ëö0ìî
ìD
ìR2ìV0ìª2«xHì²0«xHìÈÍ
ìÒ2«yPìÖ@«yPìøl
í
í8Î
íPl
ívÌ2ízÌ0íÂ2«yXíÆ@«yXíä-
î2«xHî0«xHîR2"¸îV0"¸îZ2î^0îhÍ
îr2«yPîv@«yPî.
î .
î®2"°î²0"°î¸.
îÌ.
îìl
ï.
ï2"°ï0"°ï(.
ï8.
ïH.
ïT
ïÎ
ï2«yXï@«yXï.
ï¨.
ï¸.
ïÐ.
ïðl
ïþ2«yXð@«yXð.
ð(:
ð22«yXð6@«yXð<.
ðP.
ðl:
ðx.
ð.
ð¨:
ð´.
ðÌ.
ðä:
ðòÌ2ðöÌ0ñb2«yXñf@«yXñn2"°ñr0"°ñ.
ñ.
ñ .
ñ´.
ñ¾2«yXñÂ@«yXñä-
ò2«yhò
@«yhò2«xHò0«xHò>2«ypòN@«ypòT
XòX!
ò`
òr2«ytò~0«ytó"2ñ<ó&0ñ<ó2«yó@«yó¦2«yxóª0«yxóÂ2«yóâ0«yô2"°ô
0"°ô:
ô0:
ôP.
ôh´
ô|.
ôS
ô2«yvô®0«yvô¶2«ytôº0«ytôÄ
hôÒ2«ytôÖ0«ytôÞ2«yvôâ0«yvôøÍ
õ2«yPõ@«yPõ(l
õT
hõb2«ytõf0«ytõv2«yxõ~0«yxõ2«yxõ0«yxõ¶2«yxõ¾0«yxõÖ2«yxõÞ0«yxõö2«yxõþ0«yxö2«yxö0«yxö$
öLÎ
ödl
öÌ2öÌ0öÖ2«ypöÚ2«yöÞ@«yöâ2«yöæ0«yöê@«yp÷2«yx÷0«yx÷"2«y÷&@«y÷b2«yh÷f@«yh÷x:
÷2«yt÷0«yt÷
h÷2«yv÷0«yv÷¢2«yp÷¦0«yp÷º0«yp÷ô
h÷ú2«y÷þ@«yø2«yø0«yø
2«yø0«yø&2«yXø*@«yXøH-
øf2«ytøj0«ytø2«yxø2«yø0«yxø0«yøÂ2«yøÎ0«yøÒ2«yXøÖ2«yøâ@«yXøæ2«yøê0«yøî2«yøú0«yøþ2«yPù2«y|ù@«yù
2«yù0«yPù2«yxù2«ypù0«y|ù2«ytù"0«yù&2«yvù*0«yxù.2«yù20«ypù62«xLù:0«yùB0«ytùJ0«xLùN2«xHùR0«xHùZ0«yvùn2«xHùr2ðùv0«xHùz0ðùî
ù2"Àù0"Àù
ù 
Xù¦2«yhùª@«yhù¬!
ù¶2"Øùº0"Øù¼
ùÆ2«yXùÊ@«yXùÐ
xùèI
úg
úd
húx!
ú
úI
úÂ2«yhúÒ@«yhû
û
xûl
Xûr2 ûv0 ûx
û2«ypû@«ypûÂ2#ûÆ0#ûÈ
ü:
üâ2«y üæ@«y ý(´
ýà:
ýö2«y ýþ0«y þ´
þB2«y þF@«y þ
þ2«y¨þ¢0«y¨þ°f
þÔC
þè:
ÿ
ÿD»
ÿd´
ÿ´
ÿ¨ë
ÿ°f
ÿÐC
ÿä:
ÿð!
ÿø
g
$I
B2«yÀF@«yÀP:
t
¸´
ü:
 
¸<G
TÍ
h:
?
2«y¨0«y¨øh
:
D¢
`k
¢
,.
R2«yÀV@«yÀ
Èìé
'
:
¤:
ð:
:
(:
+
²2«y ¶@«y 4G
LÍ
G
´Í
È:
Ðf
Ø+
ì:
<
ÈXG
pÍ
°
¶2«y º@«y Æ2«¸Ê@«¸Ò2«¸Þ@«¸"@«y lG
Í
2«yÀ@«yÀ¨:
²2«yÀ¶@«yÀ¼
Â2Æ0ÎÐ2ÒÐ0ÖÌ2ÚÌ0ÞÙ2âÙ0ú2«y°þ@«y°	2«y¸	@«y¸	
	 <
	,
	4
	D!
	L
	`g
	tI
	|
	Â2«y 	Æ@«y 

2«yÀ
@«yÀ
f

2«yÀ
"@«yÀ
0+

`´

ÌÍ

Ü:
:
2#0#
¦2# ®0# °ç
 ¢
8
èX:
h
è:

èÊ2#@Î2#8Ò2#(Ö2!þ0#@
0#8
0#(
0!
 î

<

x

¤î

²2#H
º0#H
È
2#0# 
:2#P>0#Ph

2#X0#Xç
¦2#®0#°

ò2!ú0!ü
:2«>0«LÍ
T
pÎ
l
¤:
Èf
Ü:
,Ù
l
v2«Hz0«H|
2«I0«I
2«J¢0«JÖ2«â2ê@«ò2«0
@«2«P@«P
È2"0$!
,
8I
g
Þ2«ê0«´
¨¢
Ø°
x:
/
¢2¦0è
Î
(f
<:
JÌ2NÌ0¢2«X¦@«XèÍ
$
@Î
d:
xf
:
Ì2Ì0,:
@:
 
¶2º04:
:
Æ2«Xæ0«X:
»
8:

 Î
´:
Äf
Ø:
Í
 
4:
<f
P:
^Ì2bÌ0Ð:
ì
n
(Ý
8b
P:
\
x,
?
 
¬r
Ú2«`Þ@«`ê2«hò@«hö@«h@«`2«h"@«hdG
|Í
:
¤:
ê2«`î@«`$È
2«`@«`ú2«pþ@«p
2«x@«x@«x2@«p62«xB@«x|G
Í
¬:
Ä:

2«p@«pDÈ
¦2«`ª@«`®2«h²@«h¶2«pº@«p¾2«xÂ@«xø.


".
".
"Ø
%X0
%h0
*R2*V@*f2*v@*2*@*¾2«*Î0«,àÂ
-Â
-Z2«-b@«.È
/J
/hJ
/¦2/ª0/ÈJ
020
00.
0,|
062#`0>0#`0H|
1H
1
220¬200¬3d
¨3
3¨
¨3È
44
¨4
4h
4¼
¨4ì.
5k
54
¨5h
5
¨5Ì.
5ô
¨6(
6L
¨6

6¤
¨6ô
7
7,
¨7\.
7À
7Ü
¨84
8Dh
8d
¨8¨
8Ð
¨94
9D
9d
¨9
9ð
:
:@
:\
:
: 
:Ð
:ì
<
¸<p
¨<i2<i0<
¨<ÈJ
<à|
=*2#h=60#h>0
?S
@l.
A.2#ÀA60#ÀA:2#hAZ0#hC2A,C0A,D
D@
D¨
E
Eh
E¤S
E´.
FL
(F
F¤
(JP#&JX3JhØ&Jp3Jm&J3H& H3H&ðH3H & H(3H0&ðH83H@&0HH3HP&HX3H`&KðHh3Hp&LÐHx3H&OpH3H&PPH3H &Q0H¨3H°&R@H¸3HÀ&R°HÈ3HÐ&SHØ3Hà&SHè3Hð&SÐHø3I&T I3I&T@I3I &TÀI(3I0&UPI83I@&UÐIH3IP&V`IX3I`&VàIh3Ip&W Ix3I&X@I3I&XÀI3I &Y@I¨3I°&YÀI¸3IÀ&ZPIÈ3IÐ&ZàIØ3Ià&[pIè3Ið&[ðIø3J&\ J3J&^ J3J &_0J(3J0&a J83J@&b JH3J&h`J 3J¨&i@J°3J¸&j`JÀ3JÈ&kJÐ3JØ&l Jà3Jè&nJð3Jø&nK3K&n°K3K&oðK 3K(&qàK03K8&r`K@3KH&vðKP3KX&xÀK`3Kh&xàKp3Kx&yK3K&|`K3K&°K 3K¨&°K°3K¸&pKÀ3KÈ&pKÐ3KØ&°Kà3Kè& Kð3Kø&pL3L&@L3L&L 3L(&pL03L8&`L@3LH&@LP3LX&pL`3Lh&ÐLp3Lx&ðL3L&L3L&pL 3L¨&L°3L¸&LÀ3LÈ&àLÐ3LØ&Là3Lè&PLð3Lø& M3M&PM3M&ÀM 3M(&ÀM03M8& M@3MH&¡PMP3MX&¤ M`3Mh&¥ÀMp3Mx&¦M3M&ªM3M&«0M 3M¨&®pM°3M¸&°°MÀ3MÈ&³pMÐ3MØ&³ÀMà3Mè&µ°Mð3Mø&¸@N3N&¸ N3N&¸ÐN 3N(&¹@N03N8&»N@3NH&¼ NP3NX&¾°N`3Nh&¿`Np3Nx&ÂàN3N&ÃàN3N&ÅPN 3N¨&Æ@N°3N¸&Ç NÀ3NÈ&ÇNÐ3NØ&È Nà3Nè&È Nð3Nø&É@O3O&ÉàO3O&Ê°O 3O(&Ë O03O8&ËàO@3OH&ÌpOP3OX&ÌðO`3Oh&ÍpOp3Ox&ÍO3O&ÎO3O&ÏPO 3O¨&ÏðO°3O¸&ÐOÀ3OÈ&ÑpOÐ3OØ&ÒOà3Oè&ÒOð3Oø&ÒÐP3P&ÕàP3P&ÕðP 3P(&×ðP03P8&ÙP@3PH&Þ0PP3PX&ß0P`3Ph&â Pp3Px&æÐP3P&ë0P3P&ò P 3P¨&ò0P°3P¸&òpPÀ3PÈ&òPÐ3PØ&ó0Pà3Pè&ôÐPð3Pø&úàQ3Q&üÀQ3Q&þQ 3Q(&0Q03Q8&PQ@3QH&`QP3QX& Q`3Qh&Qp3Qx&Q3Q&0Q3Q& Q 3Q¨&Q°3Q¸&QÀ3QÈ&pQÐ3QØ&ðQà3Qè&Qð3Qø&R3R&!R3R&# R 3R(&$PR03R8&&ÐR@3RH&'pRP3RX&'ðR`3Rh&(ÀRp3Rx&)PR3R&)ðR3R&0R 3R¨&1pR°3R¸&3RÀ3RÈ&6`RÐ3RØ&8ÀRà3Rè&<ÀRð3Rø&@°S3S&H S3S&HàS 3S(&I`S03S8&JpS@3SH&LSP3SX&M°S`3Sh&PÀSp3Sx&Q0S3S&Q`S3S&QS 3S¨&R S°3S¸&RÀSÀ3SÈ&SPSÐ3SØ&SðSà3Sè&TSð3Sø&U T3T&U°T3T&VT 3T(&V0T03T8&VðT@3TH&Y°TP3TX&Z`T`3Th&\@Tp3Tx&\`T3T&\ÐT3T&] T 3T¨&^0T°3T¸&`TÀ3TÈ&``TÐ3TØ&cpTà3Tè&d`Tð3Tø&dpU3U&d U3U&eU 3U(&fÐU03U8&hU@3UH&jUP3UX&kÀU`3Uh&nðUp3Ux&qàU3U&rÐU3U&tU 3U¨&u@U°3U¸&x°UÀ3UÈ&y UÐ3UØ&yÐUà3Uè&~Uð3Uø&ÐV3V&V3V& V 3V(& V03V8&ÀV@3VH&0VP3VX&  V`3Vh&¦ Vp3Vx&§V3V&§V3V&¨V 3V¨&© V°3V¸&«ðVÀ3VÈ&¬VÐ3VØ&¬Và3Vè&¬ Vð3Vø&®ðW3W&¯0W3W&¯ W 3W(&°`W03W8&·W@3WH&·0WP3WX&·PW`3Wh&¸Wp3Wx&¸0W3W&¸PW3W&¸pW 3W¨&¸W°3W¸&¸°WÀ3WÈ&¹WÐ3WØ&¹`Wà3Wè&½ Wð3Wø&ÀàX3X&ÁðX3X&ÂX 3X(&ÃPX03X8&Ã X@3XH&ÃÐXP3XX&ÃðX`3Xh&ÄXp3Xx&ÅX3X&Ç X3X&ÈX 3X¨&Í0X°3X¸&ÏXÀ3XÈ&ÒðXÐ3XØ&ÓðXà3Xè&Ö Xð3Xø&Ú`Y3Y&ÜàY3Y&Þ Y 3Y(&ÞY03Y8&áY@3YH&â`YP3YX&épY`3Yh&êYp3Yx&ìY3Y&ðY3Y&öY 3Y¨&ö°Y°3Y¸&ùàYÀ3YÈ&úÐYÐ3YØ&û Yà3Yè&ÿ°Yð3Yø&PZ3Z&pZ3Z&PZ 3Z(&ÐZ03Z8&`Z@3ZH&°ZP3ZX& Z`3Zh&Zp3Zx& Z3Z&@Z3Z&PZ 3Z¨&Z°3Z¸&
°ZÀ3ZÈ&
 ZÐ3ZØ&`Zà3Zè&ÀZð3Zø&Ð[3[&À[3[& [ 3[(&À[03[8&ð[@3[H&Ð[P3[X&@[`3[h&à[p3[x&[3[&ð[3[&`[ 3[¨&[°3[¸& [À3[È&à[Ð3[Ø&@[à3[è&[ð3[ø& \3\&\3\&Ð\ 3\(&°\03\8& P\@3\H&!@\P3\X&!\`3\h&!à\p3\x&"\3\&#\3\&$ \ 3\¨&$P\°3\¸&$ \À3\È&$Ð\Ð3\Ø&%\à3\è&&\ð3\ø&(P]3]&(]3]&(°] 3](&,p]03]8&,]@3]H&-]P3]X&-@]`3]h&-]p3]x&-ð]3]&.]3]&.°] 3]¨&.ð]°3]¸&0 ]À3]È&9]Ð3]Ø&:p]à3]è&:]ð3]ø&: ^3^&; ^3^&<À^ 3^(&>^03^8&>À^@3&ð0&
¤8&@&-¸H&4@P&WÈX&'À`&W h&)ðp&\¸x&)ð&4@&W&'¨& &V¨& °&V¸&,À&-ØÈ&(èÐ&'ÀØ&'è&+ð&'X&( &(&³ø&'8(&'À0&'@&+H&'XX&±P`&øh&p&m&
Ø&m¨¨&³àÀ&
¤È&,Ð&'@à&(&&%  &Ä(&%¸8&@&%ØP&<X&%ðp&xx&&&´&&(°&ð¸&&HÐ&	,Ø&&hð&	hø&&&	¤&&¨0&	ä8&&ÈP&
$X&&èp&
dx&'&`&'(¨&°&%È&àÐ&'`à&
è&'ø&
H&'&
&'°(&
¸0&'È@&
ðH&'àX&,`&'øp&\x&(&&(( &à¨&(@¸&,À&(XÐ& Ø&(pè&pð&(&´&( &ø &(¸8&L@&(ÐP&èX&(ðh&$p&)&`&) & &)8°&Ø¸&)PÈ&Ð&)hà&Pè&)ø&&)&È&)°(&0&)È@&8H&)àX&t`&)øp&¨x&*&ä&*( &¨&*@¸&TÀ&*XÐ&Ø&*pè&Äð&*&ø&*  &4(&*¸@&|H&*Ø`&Ìh&*ø&$&+& &+8°&Ì¸&+PÈ&Ð&+hà&Dè&+ø&&+&À&+°(&0&+È@&xH&+à`&Èh&+ø&X&, &¨&,8¸&øÀ&,XØ&(à&,pø&X&,&|&,°(&&P0&,È@&%\H&,àX&%Ð`&,øp&$àx&-&H &-(°&",¸&-PÐ&%$Ø&-hð&!ðø&³`&H&-¨(&H8&-ÈH&HX&-èh&Hx&.&H&.(¨&H¸&.HÈ&HØ&.hè&Hø&.&H&.¨(&H8&.ÈH&HX&.èp&H&/&H &/0°&HÀ&/PÐ&Hà&/pð&H&/&H &/°0&H@&/ÐP&H`&/ðp&
¤x&/`&)0&,&0 &
¤¨&/°&)0¸&,À&0@Ð&
¤Ø&/ à&)0è&,ð&0p&
¤&/À&)0&, &0 0&
¤8&/à@&)0H&,P&0Ð`&
¤h&0 p&)x&,&1&
¤&0P &)¨&,°&10À&
¤È&0Ð&)Ø&,à&1`ð&
¤ø&0°&)&,&1 &
¤(&0à0&)8&,@&1ÀP&
¤X&/``&)h&,p&1ð&
¤&/&)&, &2 °&
¤¸&/ À&)È&,Ð&2Pà&
¤è&/Àð&)ø&,&2&
¤&/à &)(&,0&2°@&
¤H&2P&,X&2àh&
¤p&2Àx&,&3&
¤&/` &)¨&,°&30À&
¤È&/àÐ&)Ø&,à&3`ð&
¤ø&0 &,&3&
¤ &0à(&,0&3¸@&
¤H&1P&,X&3àh&
¤p&1Ðx&,&4&
¤&(P &3¨&'À°&(8¸&)ØÀ&3È&)ðÐ&,Ø&40ð&
¤ø&(P&3&'À&'À&* &)(&'8&)@&(8H&,P&4`&
¤h&'Àp&'X&'À&,&5 &
¤¨&( °&'Ø¸&,À&5@Ð&
¤Ø&'Øà&'Øè&,ð&5p&
¤&.&'ð&. &'ð(&.0&'ð8&,@&5 P&
¤X&.8`&'ðh&.8p&'ðx&,&5ð&
¤&( &(¨&,°&60À&
¤È&(Ð&(Ø&(à&,è&6`ø&
¤&( &(&,&6(&
¤0&-Ø8&(°@&,H&6ÈX&
¤`&(8h&( p&(Px&( &,&6ø&
¤ &( ¨&(8°&( ¸&(PÀ&,È&78Ø&
¤à&(8è&7Hð&(Pø&7H&,&7x&
¤ &(8(&(80&78&(P@&(PH&7P&,X&7¸h&
¤p&'Àx&5&'X&7&(8 &-ø¨&)°&'8À&5È&'XØ&(Pà&7Hè&-øð&)ø&'8&,&8 &
¤(&'À0&58&'XH&(8P&7X&(P`&( h&(8p&-øx&)&'8&5&'X¨&(P°&( ¸&-øÀ&)È&'8Ø&,à&8Àð&
¤ø&(P&7&(8&( &(8 &(8(&,0&9@&
¤H&(PP&(PX&(P`&7h&(8p&( x&,&9à&
¤&(P &(P¨&(h°&'Ø¸&(8À&7È&(8Ð&( Ø&,à&:0ð&$ø&:&
¤&-ø&)H &,(&:¨8&
¤@&-øH&)`P&,X&:Øh&
¤p&-øx&)x&,&;&
¤ &)H¨&,°&;8À&
¤È&)`Ð&,Ø&;`è&
¤ð&)xø&,&;&
¤&-¸ &)À(&,0&;°@&
¤H&;ÀP&,X&;àh&Hx&<&H&<(¨&
¤°&( ¸&+HÀ&,È&<HØ&
¤à&( è&+`ð&,ø&<x&
¤&<X&+¨ &,(&<¨8&
¤@&+H&+¨P&,X&<Øh&
¤p&+Hx&+¨&,&=&
¤ &-Ø¨&<¸°&,¸&=8È&
¤Ð&-ØØ&<èà&,è&=hø&
¤&-Ø&<X&,&=(&
¤0&-Ø8&=@&,H&=ÈX&
¤`&<h&+¨p&,x&=ø&
¤&+`&+¨ &,¨&>(¸&
¤À&7È&'ÀÐ&7Ø&=à&'Xð&6@ø&<8&,h&<X&'X &<8(&,h0&<8&,@&>XX&
¤`&-øh&)p&>hx&,&>ð&
¤&:¸ &'Ø¨&+x°&)¸&(8À&:¸È&(PÐ&,Ø&?0è&
¤ð&(8ø&:è&(h&'&)H &)¨(&(P0&:è8&,@&?P&
¤X&(8`&:èh&(hp&'&)H&)¨&(P&; &,¨&?ð¸&
¤À&-ØÈ&( Ð&)Ø&,à&@Xð&
¤ø&'À&+x&'X&@h &,(&@8&
¤@&5H&+HP&'X`&( h&(p&,x&@Ø&
¤&5&<X &'X°&( ¸&(À&,È&A(Ø&
¤à&)0è&,ð&Ax &
¤ &-ø &) &,  &A  0&
¤ 8&-ø @&) H&, P&AÐ `&
¤ h&. p&) x&, &B &
¤ &.  &) ¨&, °&B0 À&
¤ È&A° Ð&-¸ Ø&) à&, è&B` ø&
¤¡&'Ø¡&)¡&( ¡&,¡ &B¡0&
¤¡8&'À¡@&+x¡H&,¡P&BÐ¡h&
¤¡p&;À¡x&(8¡&@h¡&'À¡&+¨¡&(P¡ &( ¡¨&)¡°&,¡¸&C¡È&
¤¡Ð&'À¡Ø&+x¡à&'X¡ð&C¡ø&,¢&Ch¢&
¤¢&( ¢ &(8¢(&'À¢0&(8¢8&)¢@&'À¢H&(P¢P&+`¢X&(P¢`&( ¢h&)¢p&,¢x&C°¢&
¤¢&(8¢&CÀ¢ &(P¢¨&)¢°&,¢¸&D(¢È&
¤¢Ð&C¢Ø&D8¢à&,¢è&Dh¢ø&
¤£&(8£&'À£&+x£&(8£ &?@£(&(P£0&'X£@&(h£H&CÀ£P&(P£X&,£`&D£p&
¤£x&-Ø£&7H£&'£&-Ø£ &+À£¨&D¨£°&+ð£À&(£È&,£Ð&E£à&
¤£è&5£ð&)À£ø&(8¤&(8¤&@ ¤&(P¤&@ ¤ &E ¤(&(P¤0&+x¤8&'X¤H&C¤P&,¤X&E¤h&
¤¤p&(8¤x&'À¤&+x¤&(8¤&?@¤&(P¤ &'Ø¤¨&(h¤°&>8¤¸&)¨¤À&'X¤Ð&(8¤Ø&-ø¤à&)¨¤è&(P¤ð&(h¤ø&)¥&(P¥&,¥&F¥ &
¤¥(&'¥8&-Ø¥@&+À¥H&F¥P&+ð¥`&(¥h&( ¥p&,¥x&FÀ¥&
¤¥&'Ø¥&(8¥ &(8¥¨&Cx¥°&(h¥¸&@ ¥À&FÐ¥È&(P¥Ð&+x¥Ø&'X¥è&@h¥ð&(P¥ø&+x¦&'X¦&@h¦&( ¦ &@h¦(&( ¦0&,¦8&G(¦H&
¤¦P&'À¦X&(8¦`&5¦h&)À¦p&+x¦x&(8¦&G8¦&'Ø¦&=x¦&(P¦ &)¦¨&'X¦¸&Aà¦À&( ¦È&(P¦Ð&)¦Ø&( ¦à&,h¦è&(P¦ð&(¦ø&,§&Gè§&
¤§&-Ø§ &( §(&FÐ§0&,§8&H°§H&
¤§P&(8§X&Bà§`&(P§h&Gø§p&,§x&Hè§&
¤§&Hø§&6¨§ &,§¨&I(§¸&
¤§À&Hø§È&(§Ð&,§Ø&IX§è&
¤§ð&(8§ø&E¨&(P¨&Gø¨&,¨&I¨(&
¤¨0&I¨8&6¨¨@&,¨H&IÈ¨`&
¤¨h&'À¨p&.Ø¨x&)¨&( ¨&.x¨&)`¨&,¨ &Iø¨¸&
¤¨À&'À¨È&.ø¨Ð&)¨Ø&( ¨à&.¨è&)`¨ð&,¨ø&JP©&
¤©&'À© &/ ©(&)©0&( ©8&.¸©@&)`©H&,©P&J¨©h&
¤©p&Jh©x&(8©&J©&(P©&J©&,© &K©¸&
¤©À&JÀ©È&(8©Ð&Jh©Ø&(P©à&Jh©è&,©ð&KPª&
¤ª&JÀª&(8ª &Kª(&(Pª0&Kª8&,ª@&K ªP&
¤ªX&.xª`&)Hªh&)¨ªp&,ªx&Kðª&
¤ª&.ª&)Hª &)¨ª¨&,ª°&L(ªÀ&
¤ªÈ&LªÐ&(8ªØ&Lªà&(Pªè&L8ªð&,ªø&L`«&
¤«&J«&( « &L«(&,«0&L¨«@&
¤«H&Jh«P&( «X&L8«`&,«h&Là«x&
¤«&.¸«&)H«&)¨«&,« &M«°&
¤«¸&JÀ«À&( «È&M(«Ð&,«Ø&MP«è&
¤«ð&K«ø&( ¬&7¬&( ¬&Lp¬&,¬ &M¬0&
¤¬8&L8¬@&(8¬H&L8¬P&(P¬X&M(¬`&,¬h&MÐ¬x&
¤¬&Kh¬&( ¬&7¬&( ¬ &Mà¬¨&,¬°&N¬À&
¤¬È&Lp¬Ð&(8¬Ø&Lp¬à&(P¬è&M(¬ð&,¬ø&N`&
¤&JÀ&M &( (&M0&M(8&,@&N¨X&
¤`&/àh&Aàp&)x&/à&@h&)&,&Nð¨&
¤°&(P¸&(hÀ&( È&(8Ð&,Ø&OHè&
¤ð&(Pø&(P®&(P®&(h®&( ®&(8® &( ®(&(8®0&( ®8&(8®@&,®H&O®X&
¤®`&(P®h&(P®p&(P®x&6@®&(8®&,®&Oø® &
¤®¨&5P®°&)Ø®¸&)®À&( ®È&)ð®Ð&,®Ø&P@®è& ®ð&P¯&
¤¯&<8¯&( ¯&)ð¯ &,¯(&P ¯8&
¤¯@&<¯H&( ¯P&)ð¯X&,¯`&PØ¯p&
¤¯x&*8¯&'À¯&'¯&=¯ &'X¯°&'¯À&)¯È&,¯Ð&Q¯à&
¤¯è&'À¯ð&3¯ø&)Ø°&( °&)Ø°&,°&Q°(&
¤°0&'À°8&(8°@&)ð°H&(P°P&3°X&)ð°`&,°h&QÈ°&
¤°&B¨°&+Ø° &OX°¨&*8°°&L¸°¸&OX°À&*P°È&/°Ð&,°à&,°è&R±&
¤±&B¨±&+Ø± &OX±(&*h±0&Lð±8&OX±@&*±H&/ ±P&,±`&,±h&R±&
¤±&B¨±&+Ø± &OX±¨&*h±°&M±¸&OX±À&*±È&/ ±Ð&,±à&,±è&S²&
¤²&B¨²&+Ø² &OX²(&*²0&N¸²8&OX²@&*°²H&/À²P&,²`&,²h&S²&
¤²&B¨²&+Ø² &OX²¨&*²°&N(²¸&OX²À&*°²È&/À²Ð&,²à&,²è&T³&
¤³&B¨³&+Ø³ &OX³(&*³0&M`³8&OX³@&*°³H&/À³P&,³`&,³h&T³x&³&U³&
¤³&'³¨&U(³°&,³¸&U0³È&
¤³Ð&'³à&U(³è&,³ð&Uh´&ð´&U ´0&ð´@&UÈ´P&
¤´X&(´`&(8´h&U¸´p&)Ø´x&(8´&(È´&U¸´&)ð´&,¨´ &(P´¨&U¸´°&)ð´¸&(P´À&(´È&-Ø´Ð&,´Ø&Uð´è&
¤´ð&5´ø&'Xµ&U¸µ&)Øµ&(èµ &(Pµ(&U¸µ0&)ðµ8&(Pµ@&( µH&(8µP&(°µX&(µ`&(Pµh&,µp&Vµ&
¤µ&-¸µ&Vµ&,µ &W µ°&ðµÀ&WPµÐ&µà&Wpµð&ð¶&W¶&¶(&W°¶8&
¤¶@&W¶H&W ¶P&)Ø¶X&,¶`&WØ¶p&ð¶&X¶&
¤¶ &%°¶¨&4@¶°&W¶¸&W`¶À&)Ø¶È&W ¶Ð&)ð¶Ø&-Ø¶à&4@¶è&WÈ¶ð&,¶ø&X0·&H·&X¨·(&H·8&XÈ·H&H·X&Xè·h&H·x&Y·&H· &Y(·°&(·À&YP·Ð&(·à&Yp·ð&
¤·ø&B¨¸&+Ø¸&OX¸&*¸ &Y`¸(&+ð¸8&,¸@&Y¸P&
¤¸X&Y¸`&Y`¸h&Y@¸p&Y`¸x&,¸&Yð¸&
¤¸&X¸¸ &Y`¸¨&,¸°&Z0¸À&
¤¸È&-Ø¸Ð&+Ø¸à&Z@¸è&+ð¸ø&,¹&Z`¹&
¤¹&'À¹ &2ð¹(&( ¹0&*¹8&,¹@&Z°¹P&
¤¹X&'À¹`&(8¹h&A°¹p&( ¹x&'À¹&(h¹&* ¹&,À¹&(P¹ &,¹¨&Zð¹¸&
¤¹À&'À¹È&'¹Ø&'¹è&?¹ð&'Xº&'º&)º&,º &[Xº0&
¤º8&'Àº@&'ºP&'º`&?ºh&'Xºx&'º&)º&,º&[Ðº¨&(º¸&\HºÈ&(ºØ&\hºè&(ºø&\»&ð»&\¨»(&
¤»0&\»8&\¸»@&)ð»H&,»P&\È»`&
¤»h&WÈ»p&+¨»x&'X»&Wè»&\Ø»&-Ø» &X »¨&)ð»°&<»¸&,h»À&WÈ»È&-¸»Ð&+»Ø&'X»è&<8»ð&,h»ø&'¼&V¼&,¼&]¼(&ð¼8&]È¼P&
¤¼X&/@¼`&]Ø¼h&)ð¼p&,¼x&]è¼&
¤¼&.¼&]Ø¼ &)ð¼¨&,¼°&^(¼À&
¤¼È&.x¼Ð&]Ø¼Ø&)ð¼à&,¼è&^`¼ø&
¤½&³p½&'½&)½ &,½(&^½@&
¤½H&'À½P&'½`&<X½h&'X½x&'½&)½&'½ &)½¨&,½°&^Ø½À&
¤½È&'À½Ð&(8½Ø&HÀ½à&(P½è&( ½ð&(8½ø&FÐ¾&(P¾&,¾&_`¾ &
¤¾(&^¨¾0&'À¾8&)ð¾@&,¾H&_À¾X&
¤¾`&^¨¾h&'À¾p&)Ø¾x&Aà¾&5P¾&( ¾&)ð¾&* ¾ &,¾¨&_ø¾¸&
¤¾À&+x¾È&'X¾Ø&'¾è&`¾ð&,¾ø&`X¿&
¤¿&]Ø¿&)Ø¿ &_p¿(&7¿0&^ð¿8&`¿@&,¿H&`¨¿X&
¤¿`&`¸¿h&5¿p&)¨¿x&'X¿&'8¿&,¿ &`ø¿°&
¤¿¸&6@¿À&^¨¿È&'À¿Ð&)Ø¿Ø&5P¿à&)¿è&,¿ð&aPÀ&
¤À&_ÐÀ&'ÀÀ&(8À &@ À(&-ØÀ0&aÀ8&(PÀ@&`hÀH&a`ÀP&,ÀX&a Àh&
¤Àp&]ØÀx&)ØÀ&HÀÀ&( À&^ðÀ&`À &,À¨&bÀ¸&
¤ÀÀ&bÀÈ&'ÀÀÐ&'XÀà&'8Àð&,Àø&bXÁ&
¤Á&(Á&^¨Á &'ÀÁ(&)ØÁ0&5PÁ8&)Á@&,ÁH&b¨ÁX&
¤Á`&_ÐÁh&bhÁp&b¸Áx&,Á&bøÁ&
¤Á&a°Á &Y Á¨&Z@Á°&,Á¸&c0ÁÈ&
¤ÁÐ&c@ÁØ&,Áà&chÁð&
¤Áø&cÂ&Y Â&Z@Â&,Â&cÂ(&
¤Â0&( Â8&a°Â@&7ÂH&5ÂP&+HÂX&'XÂh&'ØÂp&)Âx&ZpÂ&'8Â&(Â&Y Â &,Â¨&cÈÂ¸&
¤ÂÀ&( ÂÈ&cÂÐ&7ÂØ&5Âà&+HÂè&'XÂø&'ØÃ&)Ã&ZpÃ&'8Ã &(Ã(&Y Ã0&,Ã8&dXÃH&
¤ÃP&]ØÃX&)ØÃ`&( Ãh&^Ãp&c@Ãx&]ØÃ&)ðÃ&,Ã&dèÃ &
¤Ã¨&]ØÃ°&)ØÃ¸&( ÃÀ&^8ÃÈ&c@ÃÐ&]ØÃØ&)ðÃà&,Ãè&e@Ãø&
¤Ä&(Ä&'ÀÄ&+xÄ&'XÄ(&(Ä0&,hÄ8&-ØÄ@&+ØÄP&(ÄX&OXÄ`&)Äh&AàÄp&'ðÄx&c@Ä&+ðÄ&,Ä&eÄ¨&
¤Ä°&)ØÄ¸&c@ÄÀ&,ÄÈ&fHÄØ&
¤Äà&'ØÄè&[hÄð&'ÀÄø&'Å&'Å&?Å &'XÅ0&'Å@&)ÅH&'ÅX&)Å`&'ÀÅh&7Åp&-ØÅx&( Å&>hÅ&'XÅ&6¨Å &<Å¨&'8Å¸&(ÅÀ&<8ÅÈ&,ÅÐ&fxÅè&
¤Åð&'ÀÅø&+¨Æ&'XÆ&,hÆ&'ØÆ &*Æ(&]ØÆ0&)ØÆ8&fÆ@&'XÆP&( ÆX&(8Æ`&( Æh&(8Æp&(8Æx&]ØÆ&)ØÆ&AÆ&( Æ&]ØÆ &)ØÆ¨&E Æ°&7Æ¸&)ÆÀ&(PÆÈ&-ØÆÐ&D8ÆØ&(PÆà&2ðÆè&(PÆð&AàÆø&'8Ç&(Ç&,Ç&gÇ0&
¤Ç8&'ÀÇ@&+¨ÇH&'XÇX&(Ç`&(Çh&<Çp&,hÇx&(8Ç&'ÀÇ&(8Ç&*Ç&'Ç¨&+Ç°&'ÀÇ¸&'XÇÈ&(PÇÐ&2ðÇØ&(PÇà&AàÇè&'ÀÇð&+¨Çø&'XÈ&(È&(È&(È &<È(&,hÈ0&(8È8&(8È@&-ØÈH&-ØÈP&(PÈX&(PÈ`&gÈh&6¨Èp&+¨Èx&'XÈ&(È&( È&'XÈ¨&@hÈ°&<8È¸&,hÈÀ&(ÈÈ&(ÈÐ&(ÈØ&<Èà&,Èè&hÈÈø&
¤É&³pÉ&)É&4@É&³pÉ &,É(&jÉ8&
¤É@&³pÉH&)ðÉP&/àÉX&j¨É`&,Éh&jØÉx&
¤É&³pÉ&* É&/`É&j¨É &,É¨&kÉ¸&
¤ÉÀ&³pÉÈ&*PÉÐ&/ÉØ&j¨Éà&,Éè&kXÉø&
¤Ê&³pÊ&*Ê&/ Ê&j¨Ê &,Ê(&kÊ8&
¤Ê@&³pÊH&*°ÊP&/ÀÊX&j¨Ê`&,Êh&kØÊx&
¤Ê&³pÊ&/àÊ&AàÊ&)Ê &'XÊ°&-ØÊ¸&k(ÊÀ&'8ÊÐ&,ÊØ&lÊè&
¤Êð&5Êø&* Ë&2ðË&( Ë&3 Ë&B¨Ë &+ØË0&'ÀË8&*Ë@&OXËH&* ËP&2ðËX&-øË`&3 Ëh&,Ëx&(Ë&,Ë&lË &
¤Ë¨&³pË°&'ØË¸&A°ËÀ&3 ËÈ&j¨ËÐ&lËØ&,Ëà&m8Ëð&
¤Ëø&,Ì&% Ì&Ì &%HÌ(&m°Ì8&
¤Ì@&mÈÌH&3ÌP&,ÌX&mØÌp&ðÌx&%HÌø&nÍ&Í&n(Í &n¨Í8&
¤Í@&3ÍH&,ÍP&nÐÍ`&
¤Íh&2ðÍp&'ÀÍx&*Í&A°Í&3ðÍ&OÍ&,Í &oÍ°&
¤Í¸&nèÍÀ&oÍÈ&,ÍÐ&oPÍè&
¤Íð&2ðÍø&ZÀÎ&,Î&oÎ&ðÎ(&o¸Î@&(ÎP&oØÎ`&
¤Îh&l(Îp&³pÎx&mèÎ&)ØÎ&jèÎ&oÈÎ&)ðÎ &-ØÎ¨&k(Î°&mPÎ¸&l(ÎÀ&,ÎÈ&pÎØ&
¤Îà&oÈÎè&)ØÎð&nèÎø&oÏ&oðÏ&oÈÏ&)ØÏ&mèÏ &)ðÏ(&,Ï0&pxÏH&$DÏP&pàÏ`&(Ïp&qÏ&
¤Ï&'ÀÏ&'XÏ¨&(8Ï°&5Ï¸&(hÏÀ&nèÏÈ&oÏÐ&pøÏØ&'XÏè&6@Ïð&(PÏø&,hÐ&(PÐ&)ØÐ&'8Ð &6pÐ(&<8Ð0&,Ð8&q ÐP&
¤ÐX&nÀÐ`&'ÀÐh&(8Ðp&n Ðx&>8Ð&'XÐ&5Ð&(hÐ &)ØÐ¨&3Ð°&)ØÐ¸&qÐÀ&5ÐÈ&'XÐØ&6¨Ðà&6¨Ðè&(PÐð&(Ðø&,hÑ&(PÑ&3pÑ&'8Ñ &(PÑ(&6pÑ0&-ØÑ8&,Ñ@&qèÑX&
¤Ñ`&rÑh&'ÀÑp&'XÑ&nèÑ&'ÀÑ&oÑ&( Ñ &*Ñ¨&<Ñ°&,Ñ¸&rðÑÈ&
¤ÑÐ&5ÑØ&sÑà&'XÑð&(Ñø&6¨Ò&6¨Ò&<Ò&'8Ò &<8Ò(&,Ò0&shÒH&HÒX&sàÒp&
¤Òx&søÒ&)Ò&=xÒ&,Ò&tÒ°&
¤Ò¸&mèÒÀ&)ØÒÈ&3ÒÐ&'ÀÒØ&*Òà&søÒè&)¨Òð&( Òø&* Ó&,Ó&tHÓ &
¤Ó(&( Ó0&-ØÓ8&+ØÓH&'ØÓP&OXÓX&)Ó`&*Óh&'ØÓp&'ÀÓx&X¸Ó&+Ó&'XÓ&<¸Ó &'8Ó°&+Ó¸&'XÓÈ&OXÓÐ&PÓØ&6¨Óà&6¨Óè&<Óð&,hÓø&+ðÔ&(Ô&(Ô&<8Ô &,Ô(&t¸Ô8&
¤Ô@&(8ÔH&WÔP&X ÔX&)ØÔ`&)Ôh&\¸Ôp&)ØÔx&X Ô&)ØÔ&)Ô&5Ô&(PÔ &tÐÔ¨&'XÔ¸&6¨ÔÀ&'ÀÔÈ&-øÔÐ&)ÔØ&'8Ôè&'ÀÔð&X Ôø&PPÕ&,Õ&uØÕ&
¤Õ &WÕ(&\¸Õ0&)ØÕ8&'ÀÕ@&X ÕH&)ØÕP&<XÕX&'XÕh&'ØÕp&X Õx&)ØÕ&)Õ&*Õ&X¸Õ&<¸Õ &'XÕ°&-øÕ¸&X ÕÀ&PPÕÈ&'8ÕØ&(Õà&(Õè&,Õð&v¸Ö&
¤Ö&vÈÖ&X¸Ö &uèÖ(&,Ö0&w ÖH&ðÖX&wàÖh&
¤Öp&%ÐÖx&wøÖ&)ØÖ&'Ö&)0Ö &)Ö¨&wøÖ°&)ØÖ¸&-øÖÀ&)ÖÈ&'ÀÖÐ&'Öà&+Öè&'XÖø&(×&-Ø×&wø×&)ð×&,× &x×0&
¤×8&x×@&(8×H&uè×P&'À×X&(h×`&* ×h&B¨×p&(P×x&'À×&7×&+Ø×&2ð× &OX×¨&*×°&'Ø×¸&* ×À&+ð×Ð&(×Ø&,×à&xÐ×ð&
¤×ø&w¸Ø&(Ø&*Ø&,Ø&yØ(&
¤Ø0&'Ø@&uèØH&6@ØP&,ØX&yÈØh&
¤Øp&X Øx&)ØØ&AàØ&X Ø&)ðØ&Y@Ø &uèØ¨&6@Ø°&,Ø¸&zØÈ&ðØØ&zhØè&
¤Øð&zxØø&P°Ù&,Ù&zÙ&
¤Ù &'Ù0&zxÙ8&)ðÙ@&,ÙH&z¸ÙX&
¤Ù`&zxÙh&)ØÙp&'XÙ&,hÙ&'Ù&VÙ &,Ù¨&zøÙÀ&
¤ÙÈ&jèÙÐ&,ÙØ&{XÙè&
¤Ùð&w¸Ùø&pÚ&'¨Ú&
¤Ú&{pÚ&zÈÚ &,Ú(&{Ú@&
¤ÚH&l(ÚP&³pÚX&'¨Ú`&
¤Úh&{pÚp&zÈÚx&,Ú&{ØÚ&
¤Ú&{Ú &'¨Ú¨&,Ú°&{pÚ¸&pÚÀ&zÚÈ&,ÚÐ&|0Úà&
¤Úè&{Úð&'Û&uèÛ&'¨Û&4 Û&{pÛ &'ÀÛ(&k(Û0&B¨Û8&+ØÛH&OXÛP&*ÛX&k(Û`&+ðÛp&l(Ûx&,Û&|Û&
¤Û&zxÛ &)ØÛ¨&'XÛ¸&|ÛÀ&'¨ÛÈ&ZÀÛÐ&{pÛØ&,hÛà&'Ûð&uèÛø&'ÀÜ&(8Ü&xÜ&'ÀÜ&(8Ü &( Ü(&,ÀÜ0&(PÜ8&(PÜ@&,ÜH&}0ÜX&
¤Ü`&}@Üh&5Üp&)Üx&-ØÜ&( Ü&* Ü&(Ü&,Ü &}øÜ°&
¤Ü¸&zxÜÀ&)ØÜÈ&'XÜØ&}@Üà&'¨Üè&Y Üð&{pÜø&,hÝ&'Ý&uèÝ&Y Ý &,Ý(&~PÝ8&
¤Ý@&'ÝP&uèÝX&Y Ý`&,Ýh&~ØÝ&
¤Ý&(PÝ&3Ý&'ÀÝ &)ØÝ¨&{pÝ°&(8Ý¸&,ÝÀ&ÝÐ&ðÝà&pÝð&
¤Ýø&zxÞ&)ØÞ&-øÞ&zxÞ&PPÞ &'XÞ0&,hÞ8&³pÞ@&ÞH&)ðÞP&&@ÞX&4@Þ`&³pÞh&0Þp&
¤Þx&,Þ&Þ&
¤Þ&-¸Þ &zxÞ¨&PPÞ°&zxÞ¸&)ØÞÀ&'XÞÐ&,hÞØ&0Þà&,hÞè&Þð&)ØÞø&4@ß&³pß&&@ß&,¨ß&,ß &0ß8&
¤ß@&³pßH&'ØßP&3ßX&)ß`&( ßh&)ðßp&,ßx&Ðß&
¤ß& ß&'¨ß &'8ß¨&{pß°&³pß¸&-ØßÀ&{pßÈ&,ßÐ&(ßà&
¤ßè& ßð&'¨ßø&'Xà&{pà&³pà&-Øà&{pà &,à(&à8&
¤à@&{àH&èàP&@àX&,à`&Øàp&
¤àx&{à&'¨à&'8à&{pà&³pà &-Øà¨&{pà°&( à¸&èàÀ&,àÈ&àØ&
¤àà& àè&-Øàð&,àø&xá&
¤á&{á &'¨á(&(á0&{pá8&5á@&'XáP&AàáX&( á`&èáh&'8áx&@á&,á&¨á&
¤á &{á¨&A°á°&(8á¸&'¨áÀ&'ØáÈ&{páÐ&'¨áØ&+áà&{páè&áð&'¨áø&(â&{pâ&(Pâ&,â&8â(&
¤â0&{â8&(8â@& âH&(PâP&,âX&Èâp&
¤âx&³pâ&3â&)â&{pâ&,â &â°&
¤â¸& âÀ&³pâÈ&,âÐ&Pâà&
¤âè&{âð&'¨âø&'8ã&{pã& ã&@ã&,ã &ã0&
¤ã8&{ã@&'¨ãH&'XãP&{pãX& ã`&@ãh&,ãp&Ðã&
¤ã&{ã&ã&( ã &,ã¨& ã¸&
¤ãÀ&{ãÈ&ãÐ&èãØ&,ãà&Xãð&ðä&ä&
¤ä & ä(&)Øä0&5ä8&'XäH&'ÀäP&)ØäX&( ä`&³päh&'Øäp&)äx&( ä&)ðä&'8ä&³pä &)ä¨&{pä°& ä¸&)ðäÀ&,äÈ&°äØ&
¤äà& äè& äð&)Øäø&³på&'¨å&+Àå&{på&-Øå & å(&)ðå0&,å8&xåH&
¤åP& åX& å`&)Øåh&'¨åp&+Øåx&{på&³på&³på& å&)ðå &-Øå¨&{på°&,å¸&èåÈ&
¤åÐ&{åØ&'¨åà&+ðåè&{påð&Èåø&@æ&,æ&hæ&
¤æ &{æ(&'¨æ0&,æ8&{pæ@&ÈæH&@æP&,æX&¸æh&
¤æp&{æx&'¨æ&,0æ&{pæ& æ&)Øæ &³pæ¨& æ°&)ðæ¸&{pæÀ&,æÈ&æØ&
¤æà&{æè&'¨æð&,Pæø&{pç& ç&)Øç&³pç& ç &)ðç(&{pç0&,ç8&xçP&
¤çX&(Pç`&Wçh&(8çp&W çx&)Øç&(8ç&WÈç&(8ç&\¸ç &)Øç¨&(8ç°&X ç¸&)ØçÀ&(8çÈ&(8çÐ&,çØ&èçð&
¤çø&(Pè&(Pè&X è&)ðè&(Pè &\¸è(&)ðè0&(Pè8&4@è@&WÈèH&(PèP&W èX&)ðè`&(Pèh&4@èp&Wèx&(8è&,è&è &8èÀ&Pèè&pé&é0&(é@&ÀéX&éh&ðé&
¤é&-¸é&4@é&é &,é¨&éÀ&
¤éÈ&-ØéÐ&4@éØ&éà&,éè&Xê&
¤ê&ê&'Xê &(8ê(&(8ê0&e¨ê8&(Pê@&(PêH&,êP&êp&
¤êx&'Àê&'ê&+ê&'Xê¨&'¨ê°&°ê¸&ZÀêÀ&Y êÈ&YêÐ&(êØ&,hêà&'Àêè&'êø&+ë&'Xë&(ë&,hë &àë(&,ë0&ëH&
¤ëP&Z@ëX&'Àë`&+¨ëh&'Xëx&°ë&'¨ë&Hë&'8ë &'Àë¨&-¸ë°&+ë¸&'XëÈ&'¨ëÐ&hëØ&ZÀëà&Y ëè&'8ëø&'Àì&'ì&+ì&'Xì(&Uàì0&)Øì8&ZÀì@&Y ìH&(ìP&'8ì`& ìh&Yìp&,ìx&àì&
¤ì&5ì &sì¨&'Xì¸&t ìÀ&'XìÐ&6¨ìØ&6¨ìà&,¨ìè&,hìð&{pìø&6@í&,hí&5í&hàí&'Xí(&Y í0&'í@&VíH&'¨íP&'íX&{pí`&{píh&6@íp&,íx&(í&
¤í&5í &sí¨&'Xí¸&(íÀ&6¨íÈ&6¨íÐ&,¨íØ&,híà&5íè&hàíð&'Xî&Y î&'î&Vî &(8î(&6@î0&(Pî8&,î@&(îX&
¤î`&-Øîh&X îp&)ðîx&w¸î&'Àî&'Xî&zxî &)Øî¨&'Xî¸&@îÀ&'8îÐ&@îØ&'8îè&6@îð&,îø&#Èï&
¤ï&#àï&,ï &¨ï8&
¤ï@&( ïH&'XïX&Uàï`&)ðïh&'ïx&Vï&(ï&,ï&Ðï &
¤ï¨&|ï°&'¨ï¸&èïÀ&{pïÈ&,ïÐ&@ïø&ð&
¤ð &xð(&(8ð0&'¨ð8&ð@&'ÀðH&*ðP&A°ðX&(hð`&( ðh&,Àðp&(hðx&'Àð&*ð&A°ð&)ð&( ð &'Àð¨&(hð°&*ð¸&)ðÀ&(hðÈ&* ðÐ&,ÀðØ&(Pðà&,ðè&¨ðø&
¤ñ&w¸ñ&sxñ&+¨ñ&'Xñ(&Èñ0&<ñ8&( ñ@&èñH&,ñP&ñ`&
¤ñh&-Øñp&(èñx&zñ&XHñ&(ñ&c@ñ&'ñ¨&Y`ñ°&Z@ñ¸&]ñÀ&'XñÐ&Z@ñØ&'¨ñà&ñè&Vñð&'Àñø&øò&'Xò&'8ò &,ò(&ò@&(òP&Øòh&(òx&ò&(ò &(ò¸&
¤òÀ&ðòÈ&5òÐ&(8òØ&(8òà&B¨òè&+Øòø&(Pó&(hó&( ó&(8ó&(hó &)ó(&(hó0&( ó8&5ó@&Y@óH&tÐóP&'Xó`&6¨óh&'Àóp&(8óx&#àó&(Pó&A°ó&,ó &(Pó¨&(Pó°&ó¸&,óÀ&PóØ&
¤óà&w¸óè&hóð&,óø&pô&
¤ô&pô &'¨ô(&
Øô0&{pô8&'¨ô@&m ôH&3ôP&{pôX&pô`&,ôh&¨ôx&
¤ô&w¸ô&Àô&,ô&ô°&
¤ô¸&(PôÀ&3ôÈ&oÈôÐ&)ØôØ&o`ôà&3ôè&)ðôð&,ôø&Hõ&
¤õ&'¨õ&`õ &{põ(&,õ0&¨õH&
¤õP&w¸õX&põ`&'¨õh&Hõp&{põx&{põ&põ&,õ&àõ &
¤õ¨&w¸õ°&põ¸&'¨õÀ&õÈ&{põÐ&{põØ&põà&,õè&@ö&
¤ö&w¸ö&pö&'¨ö &ðö(&{pö0&-Øö8&{pö@&pöH&,öP&öh&
¤öp&w¸öx&pö&'¨ö&(ö&{pö&j¨ö &pö¨&,ö°&öÀ&
¤öÈ&w¸öÐ&pöØ&'¨öà&(öè&{pöð&'¨öø&W0÷&{p÷&p÷&,÷&`÷(&
¤÷0&w¸÷8&p÷@&'¨÷H&8÷P&{p÷X&¨÷`&{p÷h&p÷p&,÷x&È÷&
¤÷&-Ø÷&,÷ &(÷¸&
¤÷À&(÷È&,÷Ð&P÷à&
¤÷è&w¸÷ð&p÷ø&'¨ø&¸ø&{pø&'Øø&jèø &)ø(&pø0&,ø8&øP&
¤øX&'¨ø`&'øh&{pøp&{pøx&,ø&èø&
¤ø &¨ø¨&{pø°&,ø¸&0øÐ&
¤øØ&w¸øà&5øè&søð&+¨øø&'Xù&Èù&<ù&( ù &èù(&t ù0&+¨ù8&'XùH&'¨ùP&'¨ùX&{pù`&{pùh&'¨ùp&{pùx&{pù&6@ù&,ù&hù &
¤ù¨&y ù°&ù¸&,ùÀ&@ùÐ&
¤ùØ&¨ùà&'¨ùè&'¨ùð&{pùø&{pú&,ú&pú&
¤ú &'Àú(&ZÀú0&sú8&'XúH&7úP&(úX&<ú`&( úh&t úp&'Xú&@hú&,hú&<8ú&,hú &,ú¨&¸ú¸&
¤úÀ&¨úÈ&zxúÐ&)ØúØ&'Xúè&'¨úð&4@úø&{pû&{pû&,hû&3û&)ðû &,û(&Xû@&
¤ûH&3ûP&)ØûX&,û`&Øûp&
¤ûx&.û&3Èû&)û&,û&û¨&
¤û°&.û¸&3ÈûÀ&)ûÈ&,ûÐ&Hûè&
¤ûð&pûø&,ü&ü&
¤ü &oÈü(&)Øü0&o`ü8&{pü@&,üH&°üX&
¤ü`&w¸üh&]Øüp&)Øüx&(8ü&^ü&#àü&(Pü&]Øü &)ðü¨&,ü°&øüÀ&
¤üÈ&w¸üÐ&]ØüØ&)Øüà&(8üè&^8üð&#àüø&(Pý&]Øý&)ðý&,ý&`ý(&
¤ý0&w¸ý8&]Øý@&)ØýH&(8ýP&^pýX&#àý`&(Pýh&]Øýp&)ðýx&,ý&Èý&"Äý &0ý¸&#ýÀ&PýØ&#<ýà&pýø&#tþ&þ&#Àþ &°þ8&$þ@&ÐþX&Àþ`&ðþ&!8þ& þ&þ & 8þ°&Hþ¸& PþÈ&þÐ& hþà&Ìþè& þø&ÿ& ÿ&Pÿ& °ÿ(&ÿ0& Èÿ@&ÔÿH& àÿh& ÿp& øÿ& hÿ&¡ ÿ & °ÿ¨&¡8ÿÈ& üÿÐ&¡Xÿð&!|ÿø&¡&!¸ &¡¨@&&ÐH&¡Ðh&Gtp&¡ø&Fô&¢ ¸&G<À&¢Hà&EØè&¢p&F&¢0&Cô8&¢ÀX&D,`&¢è&Dh&£ &F`¨&£8È&F¸Ð&£Xè&C¬ð&£&DÄ&£ 8&E@&£È`&EPh&£ð&E&¤°&@P¸&¤@Ø&@à&¤h&@Ä&¤(&A0&¤¸P&A@X&¤àx&Ax&¥ &A¨&¥0È&AÀÐ&¥Xè&Aäð&¥&B &¥ (&B\0&¥ÀH&BP&¥àh&BÌp&¦&C&¦ °&C<¸&¦HÐ&CtØ&¦hð&6Øø&¦&7 &¦¨@&7XH&¦Ð`&7¬h&¦ø&7ì&§¨&80°&§@Ð&8pØ&§`ø&8´&§ &9L(&§°H&8ôP&§Øh&9pp&¨&9Ì&¨ °&:4¸&¨HÐ&;Ø&¨hð&:lø&¨&;X&¨¨0&:¤8&¨ÈP&;X&¨èp&:Üx&©&;à&©(¸&=ÐÀ&©HØ&>Àà&©pø&?°&© &<$(&©°P&<X&©Øx&=&ª¨&=p°&ª0Ð&?PØ&ª`ø&'	&ª	 &?Ô	(&ª°	H&=ô	P&ªØ	p&>`	x&«	&>ä	 &«(	À&'p	È&«P	à&'À	è&«x
&'ø
&«
 &(4
(&«¸
@&(l
H&«Ø
`&(¤
h&«ø
&(Ü
&¬
 &)@
¨&¬8
À&)|
È&¬X
à&)Ä
è&¬x&*&¬ &*d(&¬¸@&* H&¬Ø`&*äh&¬ø&+(& &+ ¨&8À&/8È&XØ&.¬à&xð&/ø&&-¼&¨ &-ü(&À8&.4@&ØP&.tX&ðh&+üp&®&,4&® &,¤ &®8°&,l¸&®PÈ&-Ð&®hà&,Üè&®ø&-L
&®
&-
&®°
(&/|
0&®È
@&/´
H&®à
X&0$
`&®ø
p&/ì
x&¯
&0
&¯(
 &0\
¨&¯@
¸&1
À&¯X
Ð&0Ì
Ø&¯p
è&1t
ð&¯&1<&¯ &1ä &¯¸0&1¬8&¯ÐH&2TP&¯è`&2h&°&2Ä&° &2¨&°8À&34È&°Xà&2üè&°xø&5°&°&5x&°°(&3l0&°È@&3¬H&°àX&3è`&³x&40&± &(°&³°Ð&HØ&à&±`&
¤&±&)Ø&, &±0&4¼8&±ÐP&4pX&±èp&5x&²&5è &²(¸&60À&²PØ&6tà&²pð&4hø&²&ð&²¨(&
¤0&²¸8&)Ø@&* H&'X&²¸`&PPh&,p&²È&( Ë&¨Ë&°&-À&Èß&Ð&°øð&Hø{&&±0 &H(v&0&³ H&
¤P&'¨X&(`&4@h&Y`p&'¨x&q8&4@&q&'¨&6@ &4@¨&oð°&'¸Ú&À&'Èø&Ð&'ØØ&)à&'¨è&#àð&Vø&³@&,xÀ&
¸xÈ&
ÀxÐ&
ÈxØ&
Øxà&
ðxè&
øxð&xø& y&0y&@y&Py&Py &`y(&py0&y8&y@&
¨yH&yP&HyX&y`&yh&xyp&8yx&hy&(y&y &
ðy¨&èy°&øy¸&	8yÀ&¸yÈ&	yÐ&ØyØ&	(yà&Èz&(z&
øz&
¨z(&
(z0&
z8&
Èz@&
zH&
¸zx&8z&Hz¸&HzØ&Pzø&h{&¨{8&x{X&{x&{&°{¸&Èrà&rø& s&0s(&Ps@&psX&sp&°s&Ðs &às¸&ðsÐ&sè&t& t&0t0&@tH&Pt`&`tx&pt&t¨&tÀ&tØ&¨tð&¸u&È| &«|@&«è d@®Øh2Eä -@°@H=HHP8@3BB^P^PL^P^P$G@vNhR0|t|t,[| k|t«8| p}È	ØüÿÿÿÿÿÿÿÿH0bootinfoÿÿÿÿÿÿÿÿ<<_(ide.fs1 encode-int s" #address-cells" property
0 encode-int s" #size-cells" property
: decode-unit  1 hex-decode-unit ;
: encode-unit  1 hex-encode-unit ;
0 VALUE >ata                                 \ base address for command-block
0 VALUE >ata1                                \ base address for control block
true VALUE no-timeout                        \ flag that no timeout occurred
0c  CONSTANT #cdb-bytes                      \ command descriptor block (12 bytes)
800 CONSTANT atapi-size
200 CONSTANT ata-size
: ata-ctrl! 2 >ata1 + io-c! ;                      \ device control reg
: ata-astat@ 2 >ata1 + io-c@ ;                     \ read alternate status
: ata-data@ 0 >ata + io-w@ ;                       \ data reg
: ata-data! 0 >ata + io-w! ;                       \ data reg
: ata-err@  1 >ata + io-c@ ;                       \ error reg
: ata-feat! 1 >ata + io-c! ;                       \ feature reg
: ata-cnt@  2 >ata + io-c@ ;                       \ sector count reg
: ata-cnt!  2 >ata + io-c! ;                       \ sector count reg
: ata-lbal! 3 >ata + io-c! ;                       \ lba low reg
: ata-lbal@ 3 >ata + io-c@ ;                       \ lba low reg
: ata-lbam! 4 >ata + io-c! ;                       \ lba mid reg
: ata-lbam@ 4 >ata + io-c@ ;                       \ lba mid reg
: ata-lbah! 5 >ata + io-c! ;                       \ lba high reg
: ata-lbah@ 5 >ata + io-c@ ;                       \ lba high reg
: ata-dev!  6 >ata + io-c! ;                       \ device reg
: ata-dev@  6 >ata + io-c@ ;                       \ device reg
: ata-cmd!  7 >ata + io-c! ;                       \ command reg
: ata-stat@ 7 >ata + io-c@ ;                       \ status reg
00 CONSTANT cmd#nop                                \ ATA and ATAPI
08 CONSTANT cmd#device-reset                       \ ATAPI only (mandatory)
20 CONSTANT cmd#read-sector                        \ ATA and ATAPI
90 CONSTANT cmd#execute-device-diagnostic          \ ATA and ATAPI
a0 CONSTANT cmd#packet                             \ ATAPI only (mandatory)
a1 CONSTANT cmd#identify-packet-device             \ ATAPI only (mandatory)
ec CONSTANT cmd#identify-device                    \ ATA and ATAPI
: set-regs ( n -- )
dup
01 and                                    \ only Chan 0 or Chan 1 allowed
3 lshift dup 10 + config-l@ -4 and to >ata
14 + config-l@ -4 and to >ata1
02 ata-ctrl!                              \ disable interrupts
02 and
IF
10
ELSE
00
THEN
ata-dev!
;
ata-size VALUE block-size
80000    VALUE max-transfer            \ Arbitrary, really
CREATE sector d# 512 allot
CREATE packet-cdb #cdb-bytes allot
CREATE return-buffer atapi-size allot
scsi-open                             \ add scsi functions
: show-regs
cr
cr ." alt. Status: " ata-astat@ .
cr ." Status     : " ata-stat@ .
cr ." Device     : " ata-dev@ .
cr ." Error-Reg  : " ata-err@ .
cr ." Sect-Count : " ata-cnt@ .
cr ." LBA-Low    : " ata-lbal@ .
cr ." LBA-Med    : " ata-lbam@ .
cr ." LBA-High   : " ata-lbah@ .
;
: status-check               ( -- )
ata-stat@
dup   
01 and                                    \ is 'check' flag set ?
IF
cr
."    - ATAPI-Status: " .
ata-err@                               \ retrieve sense code
dup
60 =                                   \ sense code = 6 ?
IF
." ( media changed or reset )"      \ 'unit attention'
drop                                \ drop err-reg content
ELSE
dup
." (Err : " .                       \ show err-reg content
space
rshift 4 .sense-text                \ show text string
29 emit
THEN
cr
ELSE
drop                                   \ remove unused status      
THEN      
;
: wait-for-ready
get-msecs                                 \ start timer
BEGIN
ata-stat@ 80 and 0<>                   \ busy flag still set ?
no-timeout and
WHILE                                  \ yes
dup get-msecs swap
-                                   \ calculate timer difference
FFFF AND                            \ reduce to 65.5 seconds
d# 5000 >                           \ difference > 5 seconds ?
IF
false to no-timeout
THEN
REPEAT
drop
;
: wait-for-status          ( val mask -- )
get-msecs                                 \ initial timer value (start)
>r
BEGIN
2dup                                   \ val mask
ata-stat@ and <>                       \ expected status ?
no-timeout and                         \ and no timeout ?
WHILE      
get-msecs r@ -                         \ calculate timer difference
FFFF AND                               \ mask-off overflow bits
d# 5000 >                              \ 5 seconds exceeded ?
IF
false to no-timeout                 \ set global flag
THEN      
REPEAT                  
r>                                        \ clean return stack
3drop
;
: cut-string      ( saddr nul -- )
swap
over +
swap   
1 rshift                                  \ bytecount -> wordcount
0 do
/w -
dup               ( addr -- addr addr )
w@                ( addr addr -- addr nuw )
dup               ( addr nuw -- addr nuw nuw )
2020 =
IF
drop
0 
ELSE
LEAVE         
THEN
over         
w!
LOOP
drop
drop
; 
: show-model          ( dev# chan# -- )
2dup
."    CH " .                  \ channel 0 / 1
0= IF ." / MA"                \ Master / Slave
ELSE  ." / SL"
THEN
swap
2 * + ."  (@" . ." ) : "      \ device number
sector 1 +
c@
80 AND 0=
IF
." ATA-Drive    "
ELSE
." ATAPI-Drive  "
THEN
22 emit                       \ start string display with "
sector d# 54 +                \ string starts 54 bytes from buffer start
dup
d# 40                         \ and is 40 chars long
cut-string                    \ remove all trailing spaces
BEGIN
dup
w@
wbflip
wbsplit
dup 0<>                    \ first char
IF                   
emit
dup 0<>                 \ second char
IF
emit
wa1+                 \ increment address for next
false
ELSE                    \ second char = EndOfString
drop
true
THEN   
ELSE                       \ first char = EndOfString
drop
drop
true
THEN
UNTIL                         \ end of string detected
drop
22 emit                       \ end string display
sector c@                     \ get lower byte of first doublet
80 AND                        \ check bit 7
IF
."  (removable media)"
THEN
sector 1 +
c@
80 AND 0= IF                  \ is this an ATA drive ?
sector d# 120 +            \ get word 60 + 61
rl@-le                     \ read 32-bit as little endian value
d# 512                     \ standard ATA block-size
swap
.capacity-text ( block-size #blocks -- )
THEN
sector d# 98 +               \ goto word 49
w@
wbflip
200 and 0= IF cr ."    ** LBA is not supported " THEN   
sector c@                     \ get lower byte of first doublet
03 AND 01 =                   \ we use 12-byte packet commands (=00b)
IF
cr ."    packet size = 16 ** not supported ! **"
THEN
no-timeout not                \ any timeout occurred so far ?
IF
cr   ."    ** timeout **"
THEN
;
: pio-sector ( addr -- )  100 0 DO ata-data@
over w! wa1+ LOOP drop ;
: pio-sector ( addr -- ) 
wait-for-ready pio-sector ;
: pio-sectors ( n addr -- )  swap 0 ?DO dup pio-sector 200 + LOOP drop ;
: lba!  lbsplit   
0f and 40 or                  \ always set LBA-mode + LBA (27..24)
ata-dev@ 10 and or            \ add current device-bit (DEV)
ata-dev!                      \ set LBA (27..24)
ata-lbah!                     \ set LBA (23..16)
ata-lbam!                     \ set LBA (15..8)
ata-lbal!                     \ set LBA (7..0)
;
: read-sectors ( lba count addr -- ) 
>r dup >r ata-cnt! lba! 20 ata-cmd! r> r> pio-sectors ;
: read-sectors ( lba count addr dev-nr -- )
set-regs             ( lba count addr ) \ Set ata regs 
BEGIN >r dup 100 > WHILE
over 100 r@ read-sectors
>r 100 + r> 100 - r> 20000 + REPEAT
r> read-sectors
;
: ata-read-blocks                ( addr block# #blocks dev# -- #read )
swap dup >r swap >r rot r>    ( addr block# #blocks dev # R: #blocks )
read-sectors r>               ( R: #read )
;    
: set-lba                              ( block-length -- )
lbsplit                             ( quad -- b1.lo b2 b3 b4.hi )
drop                                \ skip upper two bytes
drop
ata-lbah!
ata-lbam!
;
: read-pio-block                        ( buff-addr -- buff-addr-new )
ata-lbah@ 8 lshift                  \ get block length High
ata-lbam@ or                        \ get block length Low
1 rshift                            \ bcount -> wcount
dup
0> IF                               \ any data to transfer?
0 DO                             \ words to read
dup                           \ buffer-address
ata-data@ swap w!             \ write 16-bits
wa1+                          \ address of next entry
LOOP
ELSE
drop                          ( buff-addr wcount -- buff-addr )
THEN
wait-for-ready
;
: send-atapi-packet                    ( req-buffer -- )
>r                                  (   R: req-buffer )
atapi-size set-lba                  \ set regs to length limit
00 ata-feat!
cmd#packet ata-cmd!                 \ A0 = ATAPI packet command
48 C8  wait-for-status     ( val mask -- )  \ BSY:0 DRDY:1 DRQ:1
6 0  do
packet-cdb i 2 * +                \ transfer command block (12 bytes)
w@
ata-data!                        \ 6 doublets PIO transfer to device
loop                             \ copy packet to data-reg
status-check                        ( -- ) \ status err bit set ? -> display
wait-for-ready                      ( -- ) \ busy released ?
BEGIN
ata-stat@ 08 and 08 = WHILE         \ Data-Request-Bit set ?
r>                               \ get last target buffer address
read-pio-block                   \ only if from device requested
>r                               \ start of next block
REPEAT
r>                                  \ original value
drop                                \ return clean
;   
: atapi-packet-io                      ( -- )
return-buffer atapi-size erase      \ clear return buffer
return-buffer send-atapi-packet     \ send 'packet-cdb' , get 'return-buffer'
;
: atapi-test ( -- true|false )
packet-cdb scsi-build-test-unit-ready     \ command-code: 00
atapi-packet-io                           ( )  \ send CDB, get return-buffer
ata-stat@ 1 and IF false ELSE true THEN
;
: atapi-sense ( -- ascq asc sense-key )
d# 252 packet-cdb scsi-build-request-sense ( alloc-len cdb -- )
atapi-packet-io                           ( )  \ send CDB, get return-buffer
return-buffer scsi-get-sense-data         ( cdb-addr -- ascq asc sense-key )
;
: atapi-read-blocks                    ( address block# #blocks dev# -- #read-blocks )
set-regs                            ( address block# #blocks )
dup >r                              ( address block# #blocks )
packet-cdb scsi-build-read-10       ( address block# #blocks cdb -- )
send-atapi-packet                   ( address -- )
r>                                  \ return requested number of blocks
;
: atapi-read-capacity                        ( -- )
packet-cdb scsi-build-read-cap-10         \ fill block with command
atapi-packet-io                           ( )  \ send CDB, get return-buffer
return-buffer scsi-get-capacity-10        ( cdb -- block-size #blocks )
.capacity-text                            ( block-size #blocks -- )
status-check                              ( -- )
;
: atapi-read-capacity-ext                    ( -- )
packet-cdb scsi-build-read-cap-16         \ fill block with command
atapi-packet-io                           ( )  \ send CDB, get return-buffer
return-buffer scsi-get-capacity-16        ( cdb -- block-size #blocks )
.capacity-text                            ( block-size #blocks -- )
status-check                              ( -- )
;
: wait-for-media-ready                 ( -- true|false )
get-msecs                                 \ initial timer value (start)
>r
BEGIN
atapi-test                             \ unit ready? false if not      
not
no-timeout and
WHILE
atapi-sense  ( -- ascq asc sense-key )
02 =                                \ sense key 2 = media error
IF                                  \ check add. sense code
3A =                             \ asc: device not ready ?
IF
false to no-timeout
."  empty (" . 29 emit        \ show asc qualifier
ELSE
drop                          \ discard asc qualifier
THEN                             \ medium not present, abort waiting
ELSE
drop                             \ discard asc
drop                             \ discard ascq
THEN
get-msecs r@ -                      \ calculate timer difference
FFFF AND                            \ mask-off overflow bits
d# 5000 >                           \ 5 seconds exceeded ?
IF
false to no-timeout              \ set global flag
THEN      
REPEAT
r>
drop
no-timeout
;
2 CONSTANT #chan 
2 CONSTANT #dev
: #totaldev #dev #chan * ;
CREATE read-blocks-xt #totaldev cells allot read-blocks-xt #totaldev cells erase
: dev-read-blocks  ( address block# #blocks dev# -- #read-blocks )
dup cells read-blocks-xt + @ execute
;
: read-ident  ( -- true|false )
false
00 ata-lbal!                              \ clear previous signature
00 ata-lbam!
00 ata-lbah!
cmd#identify-device ata-cmd! wait-for-ready \ first try ATA, ATAPI aborts command
ata-stat@ CF and 48 =
IF
drop true                                          \ cmd accepted, this is a ATA
d# 512 set-lba                                     \ set LBA to sector-length
ELSE                                                  \ ATAPI sends signature instead
ata-lbam@ 14 = IF                                  \ cylinder low  = 14 ?
ata-lbah@ EB = IF                               \ cylinder high = EB ?
cmd#device-reset ata-cmd! wait-for-ready     \ only supported by ATAPI
cmd#identify-packet-device ata-cmd! wait-for-ready                     \ first try ata
ata-stat@ CF and 48 = IF               
drop true                                 \ replace flag
THEN
THEN
THEN
THEN
dup IF
ata-stat@ 8 AND IF                        \ data requested (as expected) ?      
sector read-pio-block 
drop                                   \ discard address end 
ELSE
drop false
THEN
THEN
no-timeout not IF                            \ check without any timeout ?
drop
false                                     \ no, detection discarded
THEN
;
scsi-close                             \ remove scsi commands from word list
: find-disks      ( -- )   
#chan 0 DO                                      \ check 2 channels (primary & secondary)
#dev 0 DO                                    \ check 2 devices per channel (master / slave)
i 2 * j +
set-regs                                  \ set base address and dev-register for register access
ata-stat@ 7f and 7f <>                    \ Check, if device is connected
IF
true to no-timeout                     \ preset timeout-flag
read-ident        ( -- true|false )
IF
i j show-model                      \ print manufacturer + device string
sector 1+ c@ C0 and 80 =            \ Check for ata or atapi
IF
wait-for-media-ready             \ wait up to 5 sec if not ready
no-timeout and
IF
atapi-read-capacity
atapi-size to block-size      \ ATAPI: 2048 bytes
80000 to max-transfer
['] atapi-read-blocks i 2 * j + cells read-blocks-xt + !
s" cdrom" strdup i 2 * j + s" generic-disk.fs" included
ELSE
."  -"                        \ show hint for not registered
THEN    
ELSE
ata-size to block-size           \ ATA: 512 bytes
80000 to max-transfer
['] ata-read-blocks i 2 * j + cells read-blocks-xt + !
s" disk" strdup i 2 * j + s" generic-disk.fs" included
THEN
cr
THEN    
THEN
i 2 * j + 200 + cp
LOOP
LOOP
;
find-disks
ÿÿÿÿÿÿÿÿ-P-0fbuffer.fs0 VALUE line#
0 VALUE column#
false VALUE inverse?
false VALUE inverse-screen?
18 VALUE #lines
50 VALUE #columns
false VALUE cursor
false VALUE saved-cursor
defer draw-character	\ 2B inited by display driver
defer reset-screen	\ 2B inited by display driver
defer toggle-cursor	\ 2B inited by display driver
defer erase-screen	\ 2B inited by display driver
defer blink-screen	\ 2B inited by display driver
defer invert-screen	\ 2B inited by display driver
defer insert-characters	\ 2B inited by display driver
defer delete-characters	\ 2B inited by display driver
defer insert-lines	\ 2B inited by display driver
defer delete-lines	\ 2B inited by display driver
defer draw-logo		\ 2B inited by display driver
: nop-toggle-cursor ( nop ) ;
' nop-toggle-cursor to toggle-cursor
: (cursor-off) ( -- ) cursor dup to saved-cursor
IF toggle-cursor false to cursor THEN ;
: (cursor-on) ( -- ) cursor dup to saved-cursor
0= IF toggle-cursor true to cursor THEN ;
: restore-cursor ( -- ) saved-cursor dup cursor
<> IF toggle-cursor to cursor ELSE drop THEN ;
' (cursor-off) to cursor-off
' (cursor-on) to cursor-on
false VALUE esc-on
false VALUE csi-on
defer esc-process
0 VALUE esc-num-parm
0 VALUE esc-num-parm2
0 VALUE saved-line#
0 VALUE saved-column#
: get-esc-parm ( default -- value )
esc-num-parm dup 0> IF nip ELSE drop THEN 0 to esc-num-parm ;
: get-esc-parm2 ( default -- value )
esc-num-parm2 dup 0> IF nip ELSE drop THEN 0 to esc-num-parm2 ;
: set-esc-parm ( newdigit -- ) [char] 0 - esc-num-parm a * + to esc-num-parm ;
: reverse-cursor ( oldpos -- newpos) dup IF 1 get-esc-parm - THEN ;
: advance-cursor ( bound oldpos -- newpos) tuck > IF 1 get-esc-parm + THEN ;
: erase-in-line #columns column# - dup 0> IF delete-characters ELSE drop THEN ;
: terminal-line++ ( -- )
line# 1+ dup #lines = IF 1- 0 to line# 1 delete-lines THEN
to line#
;
0 VALUE dang
0 VALUE blipp
false VALUE stopcsi
0 VALUE term-background
7 VALUE term-foreground
: set-term-color
dup d# 30 d# 39 between IF dup d# 30 - to term-foreground THEN
dup d# 40 d# 49 between IF dup d# 40 - to term-background THEN
0 = IF
0 to term-background
7 to term-foreground
THEN
term-foreground term-background <= to inverse?
;
: ansi-esc ( char -- )
csi-on IF
dup [char] 0 [char] 9 between IF set-esc-parm
ELSE true to stopcsi CASE
[char] A OF line# reverse-cursor to line# ENDOF
[char] B OF #lines line# advance-cursor to line# ENDOF
[char] C OF #columns column# advance-cursor to column# ENDOF
[char] D OF column# reverse-cursor to column# ENDOF
[char] E OF ( FIXME: Cursor Next Line - No idea what does it mean )
#lines line# advance-cursor to line#
ENDOF
[char] f OF
1 get-esc-parm2 to line# column# get-esc-parm to column#
ENDOF
[char] H OF
1 get-esc-parm2 to line# column# get-esc-parm to column#
ENDOF
[char] ; OF false to stopcsi 0 get-esc-parm to esc-num-parm2 ENDOF
[char] ? OF false to stopcsi ENDOF ( FIXME: Ignore that for now )
[char] l OF ENDOF ( FIXME: ?25l should hide cursor )
[char] h OF ENDOF ( FIXME: ?25h should show cursor )
[char] J OF
#lines line# - dup 0> IF
line# 1+ to line# delete-lines line# 1- to line#
ELSE drop THEN
erase-in-line
ENDOF
[char] K OF erase-in-line ENDOF
[char] L OF 1 get-esc-parm insert-lines ENDOF
[char] M OF 1 get-esc-parm delete-lines ENDOF
[char] @ OF 1 get-esc-parm insert-characters ENDOF
[char] P OF 1 get-esc-parm delete-characters ENDOF
[char] m OF 0 get-esc-parm set-term-color ENDOF
[char] p OF inverse-screen? IF false to inverse-screen?
inverse? 0= to inverse? invert-screen
THEN
ENDOF
[char] q OF inverse-screen? 0= IF true to inverse-screen?
inverse? 0= to inverse? invert-screen
THEN
ENDOF
[char] u OF saved-line# to line# saved-column# to column# ENDOF
dup dup to dang OF blink-screen ENDOF
ENDCASE stopcsi IF false to csi-on
false to esc-on 0 to esc-num-parm 0 to esc-num-parm2 THEN
THEN
ELSE CASE
[char] 7 OF line# to saved-line# column# to saved-column# ENDOF
[char] 8 OF saved-line# to line# saved-column# to column# ENDOF
[char] [ OF true to csi-on ENDOF
dup dup OF false to esc-on to blipp ENDOF
ENDCASE
csi-on 0= IF false to esc-on THEN 0 to esc-num-parm 0 to esc-num-parm2
THEN
;
' ansi-esc to esc-process
CREATE twtracebuf 4000 allot twtracebuf 4000 erase
twtracebuf VALUE twbp
0 VALUE twbc
0 VALUE twtrace-enabled?
: twtrace
twbc 4000 = IF 0 to twbc twtracebuf to twbp THEN
dup twbp c! twbp 1+ to twbp twbc 1+ to twbc
;
: terminal-write ( addr len -- actual-len )
cursor-off
tuck bounds ?DO i c@
twtrace-enabled? IF twtrace THEN
esc-on IF esc-process
ELSE CASE
1B OF true to esc-on ENDOF
carret OF 0 to column# ENDOF
linefeed OF terminal-line++ ENDOF
bell OF blink-screen ENDOF
9 ( TAB ) OF column# 7 + -8 and dup #columns < IF
to column#
ELSE drop THEN
ENDOF
B ( VT ) OF line# ?dup IF 1- to line# THEN ENDOF
C ( FF ) OF 0 to line# 0 to column# erase-screen ENDOF
bs OF	column# 1- dup 0< IF
line# IF
line# 1- to line#
drop #columns 1-
ELSE drop column#
THEN
THEN
to column# ( bl draw-character )
ENDOF
dup OF
i c@ draw-character
column# 1+ dup #columns >= IF
drop 0 terminal-line++
THEN
to column#
ENDOF
ENDCASE
THEN
LOOP
restore-cursor
;
0 VALUE char-height
0 VALUE char-width
0 VALUE fontbytes
CREATE display-emit-buffer 20 allot
defer dis-old-emit
' emit behavior to dis-old-emit
: display-write terminal-write ;
: display-emit dup dis-old-emit display-emit-buffer tuck c! 1 terminal-write drop ;
: is-install ( 'open -- )
s" defer vendor-open to vendor-open" eval
s" : open deadbeef vendor-open dup deadbeef = IF drop true ELSE nip THEN ;" eval
s" defer write ' display-write to write" eval
s" : draw-logo ['] draw-logo CATCH IF 2drop 2drop THEN ;" eval
s" : reset-screen ['] reset-screen CATCH drop ;" eval
;
: is-remove ( 'close -- )
s" defer close to close" eval
;
: is-selftest ( 'selftest -- )
s" defer selftest to selftest" eval
;
STRUCT
cell FIELD font>addr
cell FIELD font>width
cell FIELD font>height
cell FIELD font>advance
cell FIELD font>min-char
cell FIELD font>#glyphs
CONSTANT /font
CREATE default-font-ctrblk /font allot default-font-ctrblk
dup font>addr 0 swap !
dup font>width 8 swap !
dup font>height -10 swap !
dup font>advance 1 swap !
dup font>min-char 20 swap !
font>#glyphs 7f swap !
: display-default-font ( str len -- )
romfs-lookup dup 0= IF drop EXIT THEN
600 <> IF ." Only support 60x8x16 fonts ! " drop EXIT THEN
default-font-ctrblk font>addr !
;
s" default-font.bin" display-default-font
: .scan-lines ( height -- scanlines ) dup 0>= IF 1- ELSE negate THEN ;
: set-font ( addr width height advance min-char #glyphs -- )
default-font-ctrblk /font + /font 0
DO
1 cells - dup >r ! r> 1 cells
+LOOP drop
default-font-ctrblk dup font>height @ abs to char-height
dup font>width @ to char-width font>advance @ to fontbytes
;
: >font ( char -- addr )
dup default-font-ctrblk dup >r font>min-char @ dup r@ font>#glyphs + within
IF
r@ font>min-char @ -
r@ font>advance @ * r@ font>height @ .scan-lines *
r> font>addr @ +
ELSE
drop r> font>addr @
THEN
;
: default-font ( -- addr width height advance min-char #glyphs )
default-font-ctrblk /font 0 DO dup cell+ >r @ r> 1 cells +LOOP drop
;
0 VALUE frame-buffer-adr
0 VALUE screen-height
0 VALUE screen-width
0 VALUE screen-depth
0 VALUE screen-line-bytes
0 VALUE window-top
0 VALUE window-left
0 VALUE .sc
: screen-#rows  ( -- rows )
.sc IF
screen-height char-height /
ELSE
true to .sc
s" screen-#rows" eval
false to .sc
THEN
;
: screen-#columns ( -- columns )
.sc IF
screen-width char-width /
ELSE
true to .sc
s" screen-#columns" eval
false to .sc
THEN
;
: fb8-background inverse? ;
: fb8-foreground inverse? invert ;
: fb8-lines2bytes ( #lines -- #bytes ) char-height * screen-line-bytes * ;
: fb8-columns2bytes ( #columns -- #bytes ) char-width * screen-depth * ;
: fb8-line2addr ( line# -- addr )
char-height * window-top + screen-line-bytes *
frame-buffer-adr + window-left screen-depth * +
;
: fb8-erase-block ( addr len ) fb8-background rfill ;
0 VALUE .ab
CREATE bitmap-buffer 400 4 * allot
: active-bits ( -- new ) .ab dup 8 > IF 8 - to .ab 8 ELSE
char-width to .ab ?dup 0= IF recurse THEN
THEN ;
: fb8-char2bitmap ( font-height font-addr -- bitmap-buffer )
bitmap-buffer >r
char-height rot 0> IF r> char-width 2dup fb8-erase-block + >r 1- THEN
r> -rot char-width to .ab
fontbytes * bounds ?DO
i c@ active-bits 0 ?DO
dup 80 and IF fb8-foreground ELSE fb8-background THEN
( fb-addr fbyte colr ) 2 pick ! 1 lshift
swap screen-depth + swap
LOOP drop
LOOP drop
bitmap-buffer
;
: fb8-draw-logo ( line# addr width height -- ) ." fb8-draw-logo ( " .s ."  )" cr
2drop 2drop
;
: fb8-toggle-cursor ( -- )
line# fb8-line2addr column# fb8-columns2bytes +
char-height 2 - screen-line-bytes * +
2 0 ?DO
dup char-width screen-depth * invert-region
screen-line-bytes +
LOOP drop
;
: fb8-draw-character ( char -- )
>r default-font over + r@ -rot between IF
2swap 3drop r> >font fb8-char2bitmap ( bitmap-buf )
line# fb8-line2addr column# fb8-columns2bytes + ( bitmap-buf fb-addr )
char-height 0 ?DO
2dup char-width screen-depth * mrmove
screen-line-bytes + >r char-width screen-depth * + r>
LOOP 2drop
ELSE 2drop r> 3drop THEN
;
: fb8-insert-lines ( n -- )
fb8-lines2bytes >r line# fb8-line2addr dup dup r@ +
#lines line# - fb8-lines2bytes r@ - rmove
r> fb8-erase-block
;
: fb8-delete-lines ( n -- )
fb8-lines2bytes >r line# fb8-line2addr dup dup r@ + swap
#lines fb8-lines2bytes r@ - dup >r rmove
r> + r> fb8-erase-block
;
: fb8-insert-characters ( n -- )
line# fb8-line2addr column# fb8-columns2bytes + >r
#columns column# - 2dup >= IF
nip dup 0> IF fb8-columns2bytes r> ELSE r> 2drop EXIT THEN
ELSE
fb8-columns2bytes swap fb8-columns2bytes tuck -
over r@ tuck + rot char-height 0 ?DO
3dup rmove
-rot screen-line-bytes tuck + -rot + swap rot
LOOP
3drop r>
THEN
char-height 0 ?DO
dup 2 pick fb8-erase-block screen-line-bytes +
LOOP
2drop
;
: fb8-delete-characters ( n -- )
line# fb8-line2addr column# fb8-columns2bytes + >r
#columns column# - 2dup >= IF
nip dup 0> IF fb8-columns2bytes r> ELSE r> 2drop EXIT THEN
ELSE
fb8-columns2bytes swap fb8-columns2bytes tuck -
over r@ + 2dup + r> swap >r rot char-height 0 ?DO
3dup rmove
-rot screen-line-bytes tuck + -rot + swap rot
LOOP
3drop r> over -
THEN
char-height 0 ?DO
dup 2 pick fb8-erase-block screen-line-bytes +
LOOP
2drop
;
: fb8-reset-screen ( -- ) ( Left as no-op by design ) ;
: fb8-erase-screen ( -- )
frame-buffer-adr screen-height screen-line-bytes * fb8-erase-block
;
: fb8-invert-screen ( -- )
frame-buffer-adr screen-height screen-line-bytes * invert-region
;
: fb8-blink-screen ( -- ) fb8-invert-screen fb8-invert-screen ;
: fb8-install ( width height #columns #lines -- )
1 to screen-depth
2swap  to screen-height  to screen-width
screen-width to screen-line-bytes
screen-#rows min to #lines
screen-#columns min to #columns
screen-height char-height #lines * - 2/ to window-top
screen-width char-width #columns * - 2/ to window-left
['] fb8-toggle-cursor to toggle-cursor
['] fb8-draw-character to draw-character
['] fb8-insert-lines to insert-lines
['] fb8-delete-lines to delete-lines
['] fb8-insert-characters to insert-characters
['] fb8-delete-characters to delete-characters
['] fb8-erase-screen to erase-screen
['] fb8-blink-screen to blink-screen
['] fb8-invert-screen to invert-screen
['] fb8-reset-screen to reset-screen
['] fb8-draw-logo to draw-logo
;
: fb-install  ( width height #columns #lines depth -- )
>r
fb8-install
r> to screen-depth
screen-width screen-depth * to screen-line-bytes
;
: fb8-dump-bitmap cr char-height 0 ?do char-width 0 ?do dup c@ if ." @" else ." ." then 1+ loop cr loop drop ;
: fb8-dump-char >font -b swap fb8-char2bitmap fb8-dump-bitmap ;
ÿÿÿÿÿÿÿÿðµ0graphics.fs: draw-rectangle ( adr x y w h -- )
frame-buffer-adr 0= IF 4drop drop EXIT THEN
0 ?DO
4dup drop                              ( adr x y w adr x y )
i + screen-width * + screen-depth *    ( adr x y w adr offs )
frame-buffer-adr +                     ( adr x y w adr fb_adr )
over 3 pick screen-depth * i * +       ( adr x y w adr fb_adr src )
swap 3 pick screen-depth *             ( adr x y w adr src fb_adr len )
rmove                                  \ copy line ( adr x y w adr )
drop                                   ( adr x y w )
LOOP
4drop
;
: fill-rectangle ( col x y w h -- )
frame-buffer-adr 0= IF 4drop drop EXIT THEN
0 ?DO
4dup drop                              ( col x y w col x y )
i + screen-width * + screen-depth *    ( col x y w col offs )
frame-buffer-adr +                     ( col x y w col adr )
2 pick screen-depth * 2 pick           ( col x y w col adr len col )
rfill                                  \ draw line ( col x y w col )
drop                                   ( col x y w )
LOOP
4drop
;
: read-rectangle ( adr x y w h -- )
frame-buffer-adr 0= IF 4drop drop EXIT THEN
0 ?DO
4dup drop                              ( adr x y w adr x y )
i + screen-width * + screen-depth *    ( adr x y w adr offs )
frame-buffer-adr +                     ( adr x y w adr fb_adr )
over 3 pick screen-depth * i * +       ( adr x y w adr fb_adr dst )
3 pick                                 ( adr x y w adr fb_adr dst w )
rmove                                  \ copy line ( adr x y w adr )
drop                                   ( adr x y w )
LOOP
4drop
;
: dimensions ( -- width height )
screen-width screen-height
;
: init-default-palette
100 10 DO
i i i i color!
LOOP
00 00 00 0 color!
00 00 aa 1 color!
00 aa 00 2 color!
00 aa aa 3 color!
aa 00 00 4 color!
aa 00 aa 5 color!
aa 55 00 6 color!
aa aa aa 7 color!
55 55 55 8 color!
55 55 ff 9 color!
55 ff 55 a color!
55 ff ff b color!
ff 55 55 c color!
ff 55 ff d color!
ff ff 55 e color!
ff ff ff f color!
;
ÿÿÿÿÿÿÿÿÐ0generic-disk.fsnew-device set-unit                                          ( str len )
2dup device-name 
s" 0 pci-alias-" 2swap $cat evaluate
s" block" device-type      
s" block-size" $call-parent   CONSTANT block-size
s" max-transfer" $call-parent CONSTANT max-transfer 
: read-blocks ( addr block# #blocks -- #read )
my-unit s" dev-read-blocks" $call-parent
;    
INSTANCE VARIABLE deblocker
: open ( -- okay? )
0 0 s" deblocker" $open-package dup deblocker ! dup IF 
s" disk-label" find-package IF
my-args rot interpose
THEN
THEN 0<> ;
: close ( -- )
deblocker @ close-package ;
: seek ( pos.lo pos.hi -- status )
s" seek" deblocker @ $call-method ;
: read ( addr len -- actual )
s" read" deblocker @ $call-method ;
finish-device
ÿÿÿÿÿÿÿÿH0dma-function.fs: dma-alloc ( size -- virt )
my-phandle TO calling-child
s" dma-alloc" my-phandle parent $call-static
0 TO calling-child
;
: dma-free ( virt size -- )
my-phandle TO calling-child
s" dma-free" my-phandle parent $call-static
0 TO calling-child
;
: dma-map-in ( virt size cacheable? -- devaddr )
my-phandle TO calling-child
s" dma-map-in" my-phandle parent $call-static
0 TO calling-child
;
: dma-map-out ( virt devaddr size -- )
my-phandle TO calling-child
s" dma-map-out" my-phandle parent $call-static
0 TO calling-child
;
ÿÿÿÿÿÿÿÿ¨i0pci-device.fsget-node CONSTANT my-phandle
s" my-puid" my-phandle parent $call-static CONSTANT my-puid
: config-b@  puid >r my-puid TO puid my-space + rtas-config-b@ r> TO puid ;
: config-w@  puid >r my-puid TO puid my-space + rtas-config-w@ r> TO puid ;
: config-l@  puid >r my-puid TO puid my-space + rtas-config-l@ r> TO puid ;
: config-b!  puid >r my-puid TO puid my-space + rtas-config-b! r> TO puid ;
: config-w!  puid >r my-puid TO puid my-space + rtas-config-w! r> TO puid ;
: config-l!  puid >r my-puid TO puid my-space + rtas-config-l! r> TO puid ;
: config-dump puid >r my-puid TO puid my-space pci-dump r> TO puid ;
: open
puid >r             \ save the old puid
my-puid TO puid     \ set up the puid to the devices Hostbridge
pci-master-enable   \ And enable Bus Master, IO and MEM access again.
pci-mem-enable      \ enable mem access
pci-io-enable       \ enable io access
r> TO puid          \ restore puid
true
;
: close 
puid >r             \ save the old puid
my-puid TO puid     \ set up the puid
pci-device-disable  \ and disable the device
r> TO puid          \ restore puid
;
s" dma-function.fs" included
: devicefile ( -- str len )
s" pci-device_"
my-space pci-vendor@ 4 int2str $cat
s" _" $cat
my-space pci-device@ 4 int2str $cat
s" .fs" $cat
;
: classfile ( -- str len )
s" pci-class_"
my-space pci-class@ 10 rshift 2 int2str $cat
s" .fs" $cat
;
: setup ( -- )
devicefile romfs-lookup ?dup
IF
evaluate
ELSE
classfile romfs-lookup ?dup
IF
evaluate
ELSE
my-space pci-class-name type 2a emit cr
my-space pci-device-generic-setup
THEN
THEN
;
pci-device-disable
pci-error-enable
my-space 44 pci-out     \ config-addr ascii('D')
setup
ÿÿÿÿÿÿÿÿ°s0pci-bridge.fsget-node CONSTANT my-phandle
s" my-puid" my-phandle parent $call-static CONSTANT my-puid
pci-bus-number 1+ CONSTANT my-bus
s" pci-config-bridge.fs" included
s" dma-function.fs" included
: filename ( -- str len )
s" pci-bridge_"
my-space pci-vendor@ 4 int2str $cat
s" _" $cat
my-space pci-device@ 4 int2str $cat
s" .fs" $cat
;
: setup ( -- )
filename romfs-lookup ?dup
IF
evaluate
ELSE
my-space pci-class-name type 2a emit cr
my-space pci-bridge-generic-setup
my-space pci-reset-2nd
THEN
;
pci-device-disable
pci-error-enable
my-space 42 pci-out     \ config-addr ascii('B')
setup
pci-master-enable
pci-mem-enable
pci-io-enable
ÿÿÿÿÿÿÿÿð¬8pci-properties.fs: pci-class-name-00 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
01  OF s" display"               ENDOF
dup OF s" unknown-legacy-device" ENDOF
ENDCASE
;
: pci-class-name-01 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" scsi"         ENDOF
01  OF s" ide"          ENDOF
02  OF s" fdc"          ENDOF
03  OF s" ipi"          ENDOF
04  OF s" raid"         ENDOF
05  OF s" ata"          ENDOF
06  OF s" sata"         ENDOF
07  OF s" sas"          ENDOF
dup OF s" mass-storage" ENDOF
ENDCASE
;
: pci-class-name-02 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" ethernet"   ENDOF
01  OF s" token-ring" ENDOF
02  OF s" fddi"       ENDOF
03  OF s" atm"        ENDOF
04  OF s" isdn"       ENDOF
05  OF s" worldfip"   ENDOF
05  OF s" picmg"      ENDOF
dup OF s" network"    ENDOF
ENDCASE
;
: pci-class-name-03 ( addr -- str len )
pci-class@ FFFF and CASE
0000  OF s" vga"             ENDOF
0001  OF s" 8514-compatible" ENDOF
0100  OF s" xga"             ENDOF
0200  OF s" 3d-controller"   ENDOF
dup OF s" display"           ENDOF
ENDCASE
;
: pci-class-name-04 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" video"             ENDOF
01  OF s" sound"             ENDOF
02  OF s" telephony"         ENDOF
dup OF s" multimedia-device" ENDOF
ENDCASE
;
: pci-class-name-05 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" memory"            ENDOF
01  OF s" flash"             ENDOF
dup OF s" memory-controller" ENDOF
ENDCASE
;
: pci-class-name-06 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" host"                 ENDOF
01  OF s" isa"                  ENDOF
02  OF s" eisa"                 ENDOF
03  OF s" mca"                  ENDOF
04  OF s" pci"                  ENDOF
05  OF s" pcmcia"               ENDOF
06  OF s" nubus"                ENDOF
07  OF s" cardbus"              ENDOF
08  OF s" raceway"              ENDOF
09  OF s" semi-transparent-pci" ENDOF
0A  OF s" infiniband"           ENDOF
dup OF s" unknown-bridge"       ENDOF
ENDCASE
;
: pci-class-name-07 ( addr -- str len )
pci-class@ FFFF and CASE
0000  OF s" serial"                   ENDOF
0001  OF s" 16450-serial"             ENDOF
0002  OF s" 16550-serial"             ENDOF
0003  OF s" 16650-serial"             ENDOF
0004  OF s" 16750-serial"             ENDOF
0005  OF s" 16850-serial"             ENDOF
0006  OF s" 16950-serial"             ENDOF
0100  OF s" parallel"                 ENDOF
0101  OF s" bi-directional-parallel"  ENDOF
0102  OF s" ecp-1.x-parallel"         ENDOF
0103  OF s" ieee1284-controller"      ENDOF
01FE  OF s" ieee1284-device"          ENDOF
0200  OF s" multiport-serial"         ENDOF
0300  OF s" modem"                    ENDOF
0301  OF s" 16450-modem"              ENDOF
0302  OF s" 16550-modem"              ENDOF
0303  OF s" 16650-modem"              ENDOF
0304  OF s" 16750-modem"              ENDOF
0400  OF s" gpib"                     ENDOF
0500  OF s" smart-card"               ENDOF
dup   OF s" communication-controller" ENDOF
ENDCASE
;
: pci-class-name-08 ( addr -- str len )
pci-class@ FFFF and CASE
0000  OF s" interrupt-controller" ENDOF
0001  OF s" isa-pic"              ENDOF
0002  OF s" eisa-pic"             ENDOF
0010  OF s" io-apic"              ENDOF
0020  OF s" iox-apic"             ENDOF
0100  OF s" dma-controller"       ENDOF
0101  OF s" isa-dma"              ENDOF
0102  OF s" eisa-dma"             ENDOF
0200  OF s" timer"                ENDOF
0201  OF s" isa-system-timer"     ENDOF
0202  OF s" eisa-system-timer"    ENDOF
0300  OF s" rtc"                  ENDOF
0301  OF s" isa-rtc"              ENDOF
0400  OF s" hot-plug-controller"  ENDOF
0500  OF s" sd-host-conrtoller"   ENDOF
dup   OF s" system-periphal"      ENDOF
ENDCASE
;
: pci-class-name-09 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" keyboard"         ENDOF
01  OF s" pen"              ENDOF
02  OF s" mouse"            ENDOF
03  OF s" scanner"          ENDOF
04  OF s" gameport"         ENDOF
dup OF s" input-controller" ENDOF
ENDCASE
;
: pci-class-name-0A ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" dock"            ENDOF
dup OF s" docking-station" ENDOF
ENDCASE
;
: pci-class-name-0B ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" 386"           ENDOF
01  OF s" 486"           ENDOF
02  OF s" pentium"       ENDOF
10  OF s" alpha"         ENDOF
20  OF s" powerpc"       ENDOF
30  OF s" mips"          ENDOF
40  OF s" co-processor"  ENDOF
dup OF s" cpu"           ENDOF
ENDCASE
;
: pci-class-name-0C ( addr -- str len )
pci-class@ FFFF and CASE
0000  OF s" firewire"      ENDOF
0100  OF s" access-bus"    ENDOF
0200  OF s" ssa"           ENDOF
0300  OF s" usb-uhci"      ENDOF
0310  OF s" usb-ohci"      ENDOF
0320  OF s" usb-ehci"      ENDOF
0330  OF s" usb-xhci"      ENDOF
0380  OF s" usb"           ENDOF
03FE  OF s" usb-device"    ENDOF
0400  OF s" fibre-channel" ENDOF
0500  OF s" smb"           ENDOF
0600  OF s" infiniband"    ENDOF
0700  OF s" ipmi-smic"     ENDOF
0701  OF s" ipmi-kbrd"     ENDOF
0702  OF s" ipmi-bltr"     ENDOF
0800  OF s" sercos"        ENDOF
0900  OF s" canbus"        ENDOF
dup OF s" serial-bus"      ENDOF
ENDCASE
;
: pci-class-name-0D ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" irda"                ENDOF
01  OF s" consumer-ir"         ENDOF
10  OF s" rf-controller"       ENDOF
11  OF s" bluetooth"           ENDOF
12  OF s" broadband"           ENDOF
20  OF s" enet-802.11a"        ENDOF
21  OF s" enet-802.11b"        ENDOF
dup OF s" wireless-controller" ENDOF
ENDCASE
;
: pci-class-name-0E ( addr -- str len )
pci-class@ 8 rshift FF and CASE
dup OF s" intelligent-io" ENDOF
ENDCASE
;
: pci-class-name-0F ( addr -- str len )
pci-class@ 8 rshift FF and CASE
01  OF s" satelite-tv"     ENDOF
02  OF s" satelite-audio"  ENDOF
03  OF s" satelite-voice"  ENDOF
04  OF s" satelite-data"   ENDOF
dup OF s" satelite-devoce" ENDOF
ENDCASE
;
: pci-class-name-10 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" network-encryption"       ENDOF
01  OF s" entertainment-encryption" ENDOF
dup OF s" encryption"               ENDOF
ENDCASE
;
: pci-class-name-11 ( addr -- str len )
pci-class@ 8 rshift FF and CASE
00  OF s" dpio"                       ENDOF
01  OF s" counter"                    ENDOF
10  OF s" measurement"                ENDOF
20  OF s" managment-card"             ENDOF
dup OF s" data-processing-controller" ENDOF
ENDCASE
;
: pci-class-name ( addr -- str len )
dup pci-class@ 10 rshift CASE
00  OF pci-class-name-00 ENDOF
01  OF pci-class-name-01 ENDOF
02  OF pci-class-name-02 ENDOF
03  OF pci-class-name-03 ENDOF
04  OF pci-class-name-04 ENDOF
05  OF pci-class-name-05 ENDOF
06  OF pci-class-name-06 ENDOF
07  OF pci-class-name-07 ENDOF
08  OF pci-class-name-08 ENDOF
09  OF pci-class-name-09 ENDOF
0A  OF pci-class-name-0A ENDOF
0B  OF pci-class-name-0B ENDOF
0C  OF pci-class-name-0C ENDOF
0C  OF pci-class-name-0D ENDOF
0C  OF pci-class-name-0E ENDOF
0C  OF pci-class-name-0F ENDOF
0C  OF pci-class-name-10 ENDOF
0C  OF pci-class-name-11 ENDOF
dup OF drop s" unknown"  ENDOF
ENDCASE
;
: pci-bar-size@     ( bar-addr -- bar-size ) -1 over rtas-config-l! rtas-config-l@ ;
: pci-bar-size-mem@ ( bar-addr -- mem-size ) pci-bar-size@ -10 and invert 1+ FFFFFFFF and ;
: pci-bar-size-io@  ( bar-addr -- io-size  ) pci-bar-size@ -4 and invert 1+ FFFFFFFF and ;
: pci-bar-size ( bar-addr -- bar-size-raw )
dup rtas-config-l@ swap \ fetch original Value  ( bval baddr )
-1 over rtas-config-l!  \ make BAR show size    ( bval baddr )
dup rtas-config-l@      \ and fetch the size    ( bval baddr bsize )
-rot rtas-config-l!     \ restore Value
;
: pci-bar-size-mem32 ( bar-addr -- bar-size )
pci-bar-size            \ fetch raw size
-10 and invert 1+       \ calc size
FFFFFFFF and            \ keep lower 32 bits
;
: pci-bar-size-rom ( bar-addr -- bar-size )
pci-bar-size            \ fetch raw size
FFFFF800 and invert 1+  \ calc size
FFFFFFFF and            \ keep lower 32 bits
;
: pci-bar-size-mem64 ( bar-addr -- bar-size )
dup pci-bar-size        \ fetch raw size lower 32 bits
swap 4 + pci-bar-size   \ fetch raw size upper 32 bits
20 lshift +             \ and put them together
-10 and invert 1+       \ calc size
;
: pci-bar-size-io ( bar-addr -- bar-size )
pci-bar-size            \ fetch raw size
-4 and invert 1+        \ calc size
FFFFFFFF and            \ keep lower 32 bits
;
: pci-bar-code@ ( bar-addr -- 0|1..4|5 )
rtas-config-l@ dup                \ fetch the BaseAddressRegister
1 and IF                          \ IO BAR ?
2 and IF 0 ELSE 1 THEN    \ only '01' is valid
ELSE                              \ Memory BAR ?
F and CASE
0   OF 2 ENDOF    \ Memory 32 Bit Non-Prefetchable
8   OF 3 ENDOF    \ Memory 32 Bit Prefetchable
4   OF 4 ENDOF    \ Memory 64 Bit Non-Prefetchable
C   OF 5 ENDOF    \ Memory 64 Bit Prefechtable
dup OF 0 ENDOF    \ Not a valid BarType
ENDCASE
THEN
;
: assign-var ( size var -- al-mem )
2dup @                          \ ( size var size cur-mem ) read current free mem
swap #aligned                   \ ( size var al-mem )       align the mem to the size
dup 2swap -rot +                \ ( al-mem var new-mem )    add size to aligned mem
swap !                          \ ( al-mem )                set variable to new mem
;
: assign-bar-value32 ( bar size var -- 4 )
over IF                         \ IF size > 0
assign-var              \ | ( bar al-mem ) set variable to next mem
swap rtas-config-l!     \ | ( -- )         set the bar to al-mem
ELSE                            \ ELSE
2drop drop              \ | clear stack
THEN                            \ FI
4                               \ size of the base-address-register
;
: assign-bar-value64 ( bar size var -- 8 )
over IF                         \ IF size > 0
assign-var              \ | ( bar al-mem ) set variable to next mem
swap                    \ | ( al-mem addr ) calc config-addr of this bar
2dup rtas-config-l!     \ | ( al-mem addr ) set the Lower part of the bar to al-mem
4 + swap 20 rshift      \ | ( al-mem>>32 addr ) prepare the upper part of the al-mem
swap rtas-config-l!     \ | ( -- ) and set the upper part of the bar
ELSE                            \ ELSE
2drop drop              \ | clear stack
THEN                            \ FI
8                               \ size of the base-address-register
;
: assign-mem64-bar ( bar-addr -- 8 )
dup pci-bar-size-mem64         \ fetch size
pci-next-mem64 @ 0 = IF          \ Check if we have 64-bit memory range
pci-next-mem
ELSE
pci-next-mem64
THEN
assign-bar-value64              \ and set it all
;
: assign-mem32-bar ( bar-addr -- 4 )
dup pci-bar-size-mem32          \ fetch size
pci-next-mem                    \ var to change
assign-bar-value32              \ and set it all
;
: assign-mmio64-bar ( bar-addr -- 8 )
dup pci-bar-size-mem64          \ fetch size
pci-next-mem64 @ 0 = IF          \ Check if we have 64-bit memory range
pci-next-mmio
ELSE
pci-next-mem64              \ for board-qemu we will use same range
THEN
assign-bar-value64              \ and set it all
;
: assign-mmio32-bar ( bar-addr -- 4 )
dup pci-bar-size-mem32          \ fetch size
pci-next-mmio                   \ var to change
assign-bar-value32              \ and set it all
;
: assign-io-bar ( bar-addr -- 4 )
dup pci-bar-size-io             \ fetch size
pci-next-io                     \ var to change
assign-bar-value32              \ and set it all
;
: assign-rom-bar ( bar-addr -- )
dup pci-bar-size-rom            \ fetch size
dup IF                          \ IF size > 0
over >r                 \ | save bar addr for enable
pci-next-mmio           \ | var to change
assign-bar-value32      \ | and set it
drop                    \ | forget the BAR length
r@ rtas-config-l@       \ | fetch BAR
1 or r> rtas-config-l!  \ | and enable the ROM
ELSE                            \ ELSE
2drop                   \ | clear stack
THEN
;
: assign-bar ( bar-addr -- reg-size )
dup pci-bar-code@                       \ calc BAR type
dup IF                                  \ IF >0
CASE                            \ | CASE Setup the right type
1 OF assign-io-bar     ENDOF    \ | - set up an IO-Bar
2 OF assign-mmio32-bar ENDOF    \ | - set up an 32bit MMIO-Bar
3 OF assign-mem32-bar  ENDOF    \ | - set up an 32bit MEM-Bar (prefetchable)
4 OF assign-mmio64-bar ENDOF    \ | - set up an 64bit MMIO-Bar
5 OF assign-mem64-bar  ENDOF    \ | - set up an 64bit MEM-Bar (prefetchable)
ENDCASE                         \ | ESAC
ELSE                                    \ ELSE
ABORT                           \ | Throw an exception
THEN                                    \ FI
;
: assign-all-device-bars ( configaddr -- )
28 10 DO                        \ BARs start at 10 and end at 27
dup i +                 \ calc config-addr of the BAR
assign-bar              \ and set it up
+LOOP                           \ add 4 or 8 to the index and loop
30 + assign-rom-bar             \ set up the ROM if available
;
: assign-all-bridge-bars ( configaddr -- )
18 10 DO                        \ BARs start at 10 and end at 17
dup i +                 \ calc config-addr of the BAR
assign-bar              \ and set it up
+LOOP                           \ add 4 or 8 to the index and loop
38 + assign-rom-bar             \ set up the ROM if available
;
: gen-mem64-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 8 )
dup pci-bar-size-mem64                  \ fetch BAR Size        ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch lower 32 bits ( paddr plen baddr val.lo R: size)
over 4 + rtas-config-l@         \ | fetch upper 32 bits               ( paddr plen baddr val.lo val.hi R: size)
20 lshift + -10 and >r          \ | calc 64 bit value and save it     ( paddr plen baddr R: size val )
83000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
8                                       \ sizeof(BAR) = 8 Bytes
;
: gen-pmem64-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 8 )
dup pci-bar-size-mem64                  \ fetch BAR Size        ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch lower 32 bits ( paddr plen baddr val.lo R: size)
over 4 + rtas-config-l@         \ | fetch upper 32 bits               ( paddr plen baddr val.lo val.hi R: size)
20 lshift + -10 and >r          \ | calc 64 bit value and save it     ( paddr plen baddr R: size val )
C3000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
8                                       \ sizeof(BAR) = 8 Bytes
;
: gen-mem32-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 4 )
dup pci-bar-size-mem32                  \ fetch BAR Size        ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch value         ( paddr plen baddr val R: size)
-10 and >r                      \ | calc 32 bit value and save it     ( paddr plen baddr R: size val )
82000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ sizeof(BAR) = 4 Bytes
;
: gen-pmem32-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 4 )
dup pci-bar-size-mem32                  \ fetch BAR Size        ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch value         ( paddr plen baddr val R: size)
-10 and >r                      \ | calc 32 bit value and save it     ( paddr plen baddr R: size val )
C2000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ sizeof(BAR) = 4 Bytes
;
: gen-io-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len 4 )
dup pci-bar-size-io                     \ fetch BAR Size                      ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch value         ( paddr plen baddr val R: size)
-4 and >r                       \ | calc 32 bit value and save it     ( paddr plen baddr R: size val )
81000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ sizeof(BAR) = 4 Bytes
;
: gen-rom-bar-prop ( prop-addr prop-len bar-addr -- prop-addr prop-len )
dup pci-bar-size-rom                    \ fetch BAR Size                      ( paddr plen baddr bsize )
dup IF                                  \ IF Size > 0
>r dup rtas-config-l@           \ | save size and fetch value         ( paddr plen baddr val R: size)
FFFFF800 and >r                 \ | calc 32 bit value and save it     ( paddr plen baddr R: size val )
82000000 or encode-int+         \ | Encode config addr                ( paddr plen R: size val )
r> encode-64+                   \ | Encode assigned addr              ( paddr plen R: size )
r> encode-64+                   \ | Encode size                       ( paddr plen )
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
;
: pci-add-assigned-address ( prop-addr prop-len bar-addr -- prop-addr prop-len bsize )
dup pci-bar-code@                               \ calc BAR type                         ( paddr plen baddr btype)
CASE                                            \ CASE for the BAR types                ( paddr plen baddr )
0 OF drop 4              ENDOF          \ - not a valid type so do nothing
1 OF gen-io-bar-prop     ENDOF          \ - IO-BAR
2 OF gen-mem32-bar-prop  ENDOF          \ - MEM32
3 OF gen-pmem32-bar-prop ENDOF          \ - MEM32 prefetchable
4 OF gen-mem64-bar-prop  ENDOF          \ - MEM64
5 OF gen-pmem64-bar-prop ENDOF          \ - MEM64 prefetchable
ENDCASE                                         \ ESAC ( paddr plen bsize )
;
: pci-device-assigned-addresses-prop ( addr -- )
encode-start                                    \ provide mem for property              ( addr paddr plen )
2 pick 30 + gen-rom-bar-prop                    \ assign the rom bar
28 10 DO                                        \ we have 6 possible BARs
2 pick i +                              \ calc BAR address                      ( addr paddr plen bar-addr )      
pci-add-assigned-address                \ and generate the props for the BAR
+LOOP                                           \ increase Index by returned len
s" assigned-addresses" property drop            \ and write it into the device tree
;
: pci-bridge-assigned-addresses-prop ( addr -- )
encode-start                                    \ provide mem for property
2 pick 38 + gen-rom-bar-prop                    \ assign the rom bar
18 10 DO                                        \ we have 2 possible BARs
2 pick i +                              \ ( addr paddr plen current-addr )
pci-add-assigned-address                \ and generate the props for the BAR
+LOOP                                           \ increase Index by returned len
s" assigned-addresses" property drop            \ and write it into the device tree
;
: pci-bridge-gen-range ( paddr plen base limit type -- paddr plen )
>r over -                       \ calc size             ( paddr plen base size R:type )
dup 0< IF                       \ IF Size < 0           ( paddr plen base size R:type )
2drop r> drop           \ | forget values       ( paddr plen )
ELSE                            \ ELSE
1+ swap 2swap           \ | adjust stack        ( size base paddr plen R:type )
r@ encode-int+          \ | Child type          ( size base paddr plen R:type )
2 pick encode-64+       \ | Child address       ( size base paddr plen R:type )
r> encode-int+          \ | Parent type         ( size base paddr plen )
rot encode-64+          \ | Parent address      ( size paddr plen )
rot encode-64+          \ | Encode size         ( paddr plen )
THEN                            \ FI
;
: pci-bridge-gen-mmio-range ( addr prop-addr prop-len -- addr prop-addr prop-len )
2 pick 20 + rtas-config-l@      \ fetch Value           ( addr paddr plen val )
dup 0000FFF0 and 10 lshift      \ calc base-address     ( addr paddr plen val base )
swap 000FFFFF or                \ calc limit-address    ( addr paddr plen base limit )
02000000 pci-bridge-gen-range   \ and generate it       ( addr paddr plen )
;
: pci-bridge-gen-mem-range ( addr prop-addr prop-len -- addr prop-addr prop-len )
2 pick 24 + rtas-config-l@      \ fetch Value           ( addr paddr plen val )
dup 000FFFFF or                 \ calc limit Bits 31:0  ( addr paddr plen val limit.31:0 )
swap 0000FFF0 and 10 lshift     \ calc base Bits 31:0   ( addr paddr plen limit.31:0 base.31:0 )
4 pick 28 + rtas-config-l@      \ fetch upper Basebits  ( addr paddr plen limit.31:0 base.31:0 base.63:32 )
20 lshift or swap               \ and calc Base         ( addr paddr plen base.63:0 limit.31:0 )
4 pick 2C + rtas-config-l@      \ fetch upper Limitbits ( addr paddr plen base.63:0 limit.31:0 limit.63:32 )
20 lshift or                    \ and calc Limit        ( addr paddr plen base.63:0 limit.63:0 )
42000000 pci-bridge-gen-range   \ and generate it       ( addr paddr plen )
;
: pci-bridge-gen-io-range ( addr prop-addr prop-len -- addr prop-addr prop-len )
2 pick 1C + rtas-config-l@      \ fetch Value           ( addr paddr plen val )
dup 0000F000 and 00000FFF or    \ calc Limit Bits 15:0  ( addr paddr plen val limit.15:0 )
swap 000000F0 and 8 lshift      \ calc Base Bits 15:0   ( addr paddr plen limit.15:0 base.15:0 )
4 pick 30 + rtas-config-l@      \ fetch upper Bits      ( addr paddr plen limit.15:0 base.15:0 val )
dup FFFF and 10 lshift rot or   \ calc Base             ( addr paddr plen limit.15:0 val base.31:0 )
-rot FFFF0000 and or            \ calc Limit            ( addr paddr plen base.31:0 limit.31:0 )
01000000 pci-bridge-gen-range   \ and generate it       ( addr paddr plen )
;
: pci-bridge-range-props ( addr -- )
encode-start                    \ provide mem for property
pci-bridge-gen-mmio-range       \ generate the non prefetchable Memory Entry
pci-bridge-gen-mem-range        \ generate the prefetchable Memory Entry
pci-bridge-gen-io-range         \ generate the IO Entry
dup IF                          \ IF any space present (propsize>0)
s" ranges" property     \ | write it into the device tree
ELSE                            \ ELSE
s" " s" ranges" property
2drop                   \ | forget the properties
THEN                            \ FI
drop                            \ forget the address
;
: pci-bridge-interrupt-map ( -- )
encode-start                                    \ create the property                           ( paddr plen )
get-node child                                  \ find the first child                          ( paddr plen handle )
BEGIN dup WHILE                                 \ Loop as long as the handle is non-zero        ( paddr plen handle )
dup >r >space                           \ Get the my-space                              ( paddr plen addr R: handle )
pci-gen-irq-entry                       \ and Encode the interrupt settings             ( paddr plen R: handle)
r> peer                                 \ Get neighbour                                 ( paddr plen handle )
REPEAT                                          \ process next childe node                      ( paddr plen handle )
drop                                            \ forget the null                               ( paddr plen )
s" interrupt-map" property                      \ and set it                                    ( -- )
1 encode-int s" #interrupt-cells" property      \ encode the cell#
f800 encode-int 0 encode-int+ 0 encode-int+     \ encode the bit mask for config addr (Dev only)
7 encode-int+ s" interrupt-map-mask" property   \ encode IRQ#=7 and generate property
;
: encode-mem32-bar ( prop-addr prop-len BAR-addr -- prop-addr prop-len 4 )
dup pci-bar-size-mem32                  \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 02000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ BAR-Len = 4 (32Bit)
;
: encode-pmem32-bar ( prop-addr prop-len BAR-addr -- prop-addr prop-len 4 )
dup pci-bar-size-mem32                  \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 42000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ BAR-Len = 4 (32Bit)
;
: encode-mem64-bar ( prop-addr prop-len BAR-addr -- prop-addr prop-len 8 )
dup pci-bar-size-mem64                  \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 03000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
8                                       \ BAR-Len = 8 (64Bit)
;
: encode-pmem64-bar ( prop-addr prop-len BAR-addr -- prop-addr prop-len 8 )
dup pci-bar-size-mem64                  \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 43000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
8                                       \ BAR-Len = 8 (64Bit)
;
: encode-rom-bar ( prop-addr prop-len configaddr -- prop-addr prop-len )
dup pci-bar-size-rom                            \ fetch raw BAR-size
dup IF                                          \ IF BAR is used
>r 02000000 or encode-int+              \ | save size and encode BAR addr
0 encode-64+                            \ | make mid and lo zero
r> encode-64+                           \ | calc and encode the size
ELSE                                            \ ELSE
2drop                                   \ | don't do anything
THEN                                            \ FI
;
: encode-io-bar ( prop-addr prop-len BAR-addr BAR-value -- prop-addr prop-len 4 )
dup pci-bar-size-io                     \ calc BAR-size ( not changing the BAR )
dup IF                                  \ IF BAR-size > 0       ( paddr plen baddr bsize )
>r 01000000 or encode-int+      \ | save size and encode BAR addr
0 encode-64+                    \ | make mid and lo zero
r> encode-64+                   \ | encode size
ELSE                                    \ ELSE
2drop                           \ | don't do anything
THEN                                    \ FI
4                                       \ BAR-Len = 4 (32Bit)
;
: encode-bar ( prop-addr prop-len bar-addr -- prop-addr prop-len bar-len )
dup pci-bar-code@                               \ calc BAR type
CASE                                            \ CASE for the BAR types ( paddr plen baddr val )
0 OF drop 4             ENDOF           \ - not a valid type so do nothing
1 OF encode-io-bar      ENDOF           \ - IO-BAR
2 OF encode-mem32-bar   ENDOF           \ - MEM32
3 OF encode-pmem32-bar  ENDOF           \ - MEM32 prefetchable
4 OF encode-mem64-bar   ENDOF           \ - MEM64
5 OF encode-pmem64-bar  ENDOF           \ - MEM64 prefetchable
ENDCASE                                         \ ESAC ( paddr plen blen )
;
: pci-reg-props ( configaddr -- )
dup encode-int                  \ configuration space           ( caddr paddr plen )
0 encode-64+                    \ make the rest 0
0 encode-64+                    \ encode the size as 0
2 pick pci-htype@               \ fetch Header Type             ( caddr paddr plen type )
1 and IF                        \ IF Bridge                     ( caddr paddr plen )
18 10 DO                \ | loop over all BARs
2 pick i +      \ | calc bar-addr               ( caddr paddr plen baddr )
encode-bar      \ | encode this BAR             ( caddr paddr plen blen )
+LOOP              \ | increase LoopIndex by the BARlen
2 pick 38 +             \ | calc ROM-BAR for a bridge   ( caddr paddr plen baddr )
encode-rom-bar          \ | encode the ROM-BAR          ( caddr paddr plen )
ELSE                            \ ELSE ordinary device          ( caddr paddr plen )
28 10 DO                 \ | loop over all BARs
2 pick i +      \ | calc bar-addr               ( caddr paddr plen baddr )
encode-bar      \ | encode this BAR             ( caddr paddr plen blen )
+LOOP              \ | increase LoopIndex by the BARlen
2 pick 30 +             \ | calc ROM-BAR for a device   ( caddr paddr plen baddr )
encode-rom-bar          \ | encode the ROM-BAR          ( caddr paddr plen )
THEN                            \ FI                            ( caddr paddr plen )
s" reg" property                \ and store it into the property
drop
;
: pci-common-props ( addr -- )
dup pci-class-name device-name
dup pci-vendor@    encode-int s" vendor-id"      property
dup pci-device@    encode-int s" device-id"      property
dup pci-revision@  encode-int s" revision-id"    property
dup pci-class@     encode-int s" class-code"     property
3 encode-int s" #address-cells" property
2 encode-int s" #size-cells"    property
dup pci-config-ext? IF 1 encode-int s" ibm,pci-config-space-type" property THEN
dup pci-status@
dup 9 rshift 3 and encode-int s" devsel-speed" property
dup 7 rshift 1 and IF 0 0 s" fast-back-to-back" property THEN
dup 6 rshift 1 and IF 0 0 s" 66mhz-capable" property THEN
5 rshift 1 and IF 0 0 s" udf-supported" property THEN
dup pci-cache@     ?dup IF encode-int s" cache-line-size" property THEN
pci-interrupt@ ?dup IF encode-int s" interrupts"      property THEN
;
: pci-device-props ( addr -- )
dup pci-common-props
dup pci-min-grant@ encode-int s" min-grant"   property
dup pci-max-lat@   encode-int s" max-latency" property
dup pci-sub-device@ ?dup IF encode-int s" subsystem-id" property THEN
dup pci-sub-vendor@ ?dup IF encode-int s" subsystem-vendor-id" property THEN
dup pci-device-assigned-addresses-prop
pci-reg-props
pci-hotplug-enabled IF
dup dup pci-addr2bus 8 lshift
swap pci-addr2dev 3 lshift or
40000000 + encode-int s" ibm,my-drc-index" property
dup dup pci-addr2bus 20 *
swap pci-addr2dev +
a base !
s" Slot " rot $cathex
hex
encode-string s" ibm,loc-code" property
THEN
;
: pci-bridge-props ( addr -- )
dup pci-bus@
encode-int s" primary-bus" property
encode-int s" secondary-bus" property
encode-int s" subordinate-bus" property
dup pci-bus@ drop encode-int rot encode-int+ s" bus-range" property
pci-device-slots encode-int s" slot-names" property
dup pci-bridge-range-props
dup pci-bridge-assigned-addresses-prop
s" interrupt-map" get-node get-property IF
pci-bridge-interrupt-map
ELSE 2drop THEN
pci-reg-props
;
: pci-bridge-generic-setup ( addr -- )
pci-device-slots >r             \ save the slot array on return stack
dup pci-common-props            \ set the common properties before scanning the bus
s" pci" device-type             \ the type is allways "pci"
dup func-pci-bridge-probe       \ find all device connected to it
dup assign-all-bridge-bars      \ set up all memory access BARs
dup pci-set-irq-line            \ set the interrupt pin
dup pci-set-capabilities        \ set up the capabilities
pci-bridge-props            \ and generate all properties
r> TO pci-device-slots          \ and reset the slot array
;
DEFER func-pci-device-props
: pci-device-generic-setup ( config-addr -- )
dup assign-all-device-bars      \ calc all BARs
dup pci-set-irq-line            \ set the interrupt pin
dup pci-set-capabilities        \ set up the capabilities
dup func-pci-device-props       \ and generate all properties
drop                            \ forget the config-addr
;
' pci-device-props TO func-pci-device-props
ÿÿÿÿÿÿÿÿ	`	8pci-config-bridge.fs: config-xt  ( config-addr xt -- data )
puid >r                            \ Safe puid
my-puid TO puid                    \ Set my-puid
swap dup ffff00 AND 0= IF          \ Has bus-device-function been specified?
my-space OR                     \ No: use my-space instead
THEN
swap execute                       \ Execute the rtas-config-xx function
r> TO puid                         \ Restore previous puid
;
: config-b@  ( config-addr -- data )  ['] rtas-config-b@ config-xt ;
: config-w@  ( config-addr -- data )  ['] rtas-config-w@ config-xt ;
: config-l@  ( config-addr -- data )  ['] rtas-config-l@ config-xt ;
: config-b!  ( data config-addr -- )  ['] rtas-config-b! config-xt ;
: config-w!  ( data config-addr -- )  ['] rtas-config-w! config-xt ;
: config-l!  ( data config-addr -- )  ['] rtas-config-l! config-xt ;
: config-dump puid >r my-puid TO puid my-space pci-dump r> TO puid ;
: decode-unit ( addr len -- phys.lo ... phys.hi )
2 hex-decode-unit       \ decode string
B lshift swap           \ shift the devicenumber to the right spot
8 lshift or             \ add the functionnumber
my-bus 10 lshift or     \ add the busnumber
0 0 rot                 \ make phys.lo = 0 = phys.mid
;
: encode-unit ( phys.lo ... phys.hi -- unit-str unit-len )
nip nip                         \ forget the both zeros
dup 8 rshift 7 and swap         \ calc Functionnumber
B rshift 1F and                 \ calc Devicenumber
over IF                         \ IF Function!=0
2 hex-encode-unit       \ | create string with DevNum,FnNum
ELSE                            \ ELSE
nip 1 hex-encode-unit   \ | create string with only DevNum
THEN                            \ FI
;
: map-in ( phys.lo phys.mid phys.hi size -- virt )
drop nip nip                         ( phys.hi )
dup FF AND dup 10 28 WITHIN NOT swap 30 <> AND IF
cr ." phys.hi = " . cr
ABORT" map-in with illegal config space address"
THEN
00FFFFFF AND                         \ Need only bus-dev-fn+register bits
dup config-l@                        ( phys.hi' bar.lo )
dup 7 AND 4 = IF                     \ Is it a 64-bit BAR?
swap 4 + config-l@ lxjoin         \ Add upper part of 64-bit BAR
ELSE
nip
THEN
F NOT AND                            \ Clear indicator bits
;
: map-out ( virt size -- )
2drop 
;
: dma-sync ( virt devaddr size -- )
2drop drop
;
: open true ;
: close ;
ÿÿÿÿÿÿÿÿø¾0update_flash.fsfalse value flash-new
: update-flash-help ( -- )
cr ." update-flash tool to flash host FW " cr
."              -f <filename>      : Flash from file (e.g. net:\boot_rom.bin)" cr
."              -l                 : Flash from load-base" cr
."              -d                 : Flash from old load base (used by drone)" cr
."              -c                 : Flash from temp to perm" cr
."              -r                 : Flash from perm to temp" cr
;
: flash-read-temp ( -- success? )
get-flashside 1 = IF flash-addr get-load-base over flash-image-size rmove true
ELSE
false
THEN
;
: flash-read-perm ( -- success? )
get-flashside 0= IF
flash-addr get-load-base over flash-image-size rmove true
ELSE
false
THEN
;
: flash-switch-side ( side -- success? )
set-flashside 0<> IF
s" Cannot change flashside" type cr false
ELSE
true
THEN
;
: flash-ensure-temp ( -- success? )
get-flashside 0= IF
cr ." Cannot flash perm! Switching to temp side!"
1 flash-switch-side
ELSE
true
THEN
;
: update-flash ( "text" )
get-flashside >r                              \ Save old flashside
parse-word                      ( str len )   \ Parse first string
drop dup c@                     ( str first-char )
[char] - <> IF
update-flash-help r> 2drop EXIT
THEN
1+ c@                           ( second-char )
CASE
[char] f OF
parse-word cr s" do-load" evaluate
flash-ensure-temp TO flash-new
ENDOF
[char] l OF
flash-ensure-temp
ENDOF
[char] d OF
flash-load-base get-load-base 200000 move
flash-ensure-temp
ENDOF
[char] c OF
flash-read-temp 0= flash-new or IF
." Cannot commit temp, need to boot on temp first " cr false
ELSE
0 flash-switch-side
THEN
ENDOF
[char] r OF
flash-read-perm 0= IF
." Cannot commit perm, need to boot on perm first " cr false
ELSE
1 flash-switch-side
THEN
ENDOF
dup      OF
false
ENDOF
ENDCASE
0= IF
update-flash-help r> drop EXIT
THEN
get-load-base flash-write 0= IF ." Flash write failed !! " cr THEN
r> set-flashside drop                           \ Restore old flashside
;
ÿÿÿÿÿÿÿÿ0ø0xmodem.fs01 CONSTANT XM-SOH   \ Start of header
04 CONSTANT XM-EOT   \ End-of-transmission
06 CONSTANT XM-ACK   \ Acknowledge
15 CONSTANT XM-NAK   \ Neg. acknowledge
0 VALUE xm-retries   \ Retry count
0 VALUE xm-block#
: xmodem-get-byte  ( timeout -- byte|-1 )
d# 1000 *
0 DO
key? IF key UNLOOP EXIT THEN
1 ms
LOOP
-1
;
: xmodem-rx-packet  ( address -- success? )
1 xmodem-get-byte    \ Get block number
dup 0 < IF
2drop false EXIT  \ Timeout
THEN
1 xmodem-get-byte    \ Get neg. block number
dup 0 < IF
3drop false EXIT  \ Timeout
THEN
rot 0                ( blk# ~blk# address chksum )
80 0 DO
1 xmodem-get-byte dup 0 < IF     ( blk# ~blk# address chksum byte )
3drop 2drop UNLOOP FALSE EXIT
THEN
dup 3 pick c!            ( blk# ~blk# address chksum byte )
+ swap 1+ swap           ( blk# ~blk# address+1 chksum' )
LOOP
0ff and
1 xmodem-get-byte <> IF
3drop FALSE EXIT
THEN
drop                        ( blk# ~blk# )
over xm-block# <> IF
2drop FALSE EXIT
THEN                        ( blk# ~blk# )
ff xor =
;
: (xmodem-load)  ( address -- bytes )
1 to xm-block#
0 to xm-retries
dup
BEGIN
d# 10 xmodem-get-byte dup >r
CASE
XM-SOH OF
dup xmodem-rx-packet IF
XM-ACK emit
80 +                     ( start-addr next-addr  R: rx-byte )
0 to xm-retries                    \ Reset retry count
xm-block# 1+ ff and to xm-block#   \ Increase current block#
ELSE
XM-NAK emit
xm-retries 1+ to xm-retries  \ Increase retry count
THEN
ENDOF
XM-EOT OF
XM-ACK emit
ENDOF
dup OF
XM-NAK emit
xm-retries 1+ to xm-retries  \ Increase retry count
ENDOF
ENDCASE
r> XM-EOT =
xm-retries d# 10 >= OR
UNTIL                         ( start-address end-address )
swap -                        ( bytes received )
;
: xmodem-load  ( -- bytes )
cr ." Waiting for start of XMODEM upload..." cr
get-load-base (xmodem-load)
;
ÿÿÿÿÿÿÿÿ(ï0scsi-disk.fsnew-device
s" disk" device-name
s" block" device-type
false VALUE scsi-disk-debug?
scsi-open
: execute-scsi-command ( buf-addr buf-len dir cmd-addr cmd-len -- ... )
" execute-scsi-command" $call-parent
;
: retry-scsi-command ( buf-addr buf-len dir cmd-addr cmd-len #retries -- ... )
" retry-scsi-command" $call-parent
;
0 INSTANCE VALUE block-size
0 INSTANCE VALUE max-transfer
0 INSTANCE VALUE max-block-num
0 INSTANCE VALUE is_cdrom
INSTANCE VARIABLE deblocker
CREATE scratch 100 allot
CREATE cdb 10 allot
: dump-scsi-error ( sense-buf sense-len stat name namelen -- )
." SCSI-DISK: " my-self instance>path type ." ," type ."  failed" cr
." SCSI-DISK: Status " dup . .status-text
0<> IF
."  Sense " scsi-get-sense-data dup . .sense-text
."  ASC " . ." ASCQ " . cr
ELSE drop THEN
;
: read-blocks ( addr block# #blocks -- #read )
scsi-disk-debug? IF
." SCSI-DISK: read-blocks " .s cr
THEN
2dup + max-block-num > IF
." SCSI-DISK: Access beyond end of device ! " cr
drop
dup max-block-num > IF
drop drop 0 EXIT
THEN
dup max-block-num swap -
THEN
dup block-size *                            ( addr block# #blocks len )
>r rot r> 			                ( block# #blocks addr len )
2swap                                       ( addr len block# #blocks )
dup >r
cdb                                         ( addr len block# #blocks cdb )
max-block-num FFFFFFFF > IF
scsi-build-read-16                      ( addr len )
ELSE
scsi-build-read-10                      ( addr len )
THEN
r> -rot                                     ( #blocks addr len )
scsi-dir-read cdb scsi-param-size 10
retry-scsi-command
dup 0<> IF " read-blocks" dump-scsi-error -65 throw ELSE drop THEN
;
: (inquiry) ( size -- buffer | NULL )
dup cdb scsi-build-inquiry
scratch swap scsi-dir-read cdb scsi-param-size 10 retry-scsi-command
0= IF scratch ELSE 2drop 0 THEN
;
: inquiry ( -- buffer | NULL )
scsi-disk-debug? IF
." SCSI-DISK: inquiry " .s cr
THEN
d# 36 (inquiry) 0= IF 0 EXIT THEN
scratch inquiry-data>add-length c@ 5 +
(inquiry)
;
: read-capacity ( -- blocksize #blocks )
scsi-disk-debug? IF
." SCSI-DISK: read-capacity " .s cr
THEN
scratch 10 erase
cdb scsi-build-read-cap-10 scratch scsi-length-read-cap-10-data scsi-dir-read
cdb scsi-param-size 1 retry-scsi-command
dup 0<> IF " read-capacity" dump-scsi-error 0 0 EXIT THEN
drop scratch scsi-get-capacity-10 1 +
;
: read-capacity-16 ( -- blocksize #blocks )
scsi-disk-debug? IF
." SCSI-DISK: read-capacity-16 " .s cr
THEN
scratch scsi-length-read-cap-16-data erase
cdb scsi-build-read-cap-16 scratch scsi-length-read-cap-16-data scsi-dir-read
cdb scsi-param-size 1 retry-scsi-command
dup 0<> IF " read-capacity-16" dump-scsi-error 0 0 EXIT THEN
drop scratch scsi-get-capacity-16 1 +
;
100 CONSTANT test-unit-retries
: test-unit-ready ( true | [ ascq asc sense-key false ] )
scsi-disk-debug? IF
." SCSI-DISK: test-unit-ready " .s cr
THEN
cdb scsi-build-test-unit-ready
0 0 0 cdb scsi-param-size test-unit-retries retry-scsi-command
0= IF true EXIT THEN
0= IF drop 0 0 4 false EXIT THEN
scsi-get-sense-data false
;
: start-stop-unit ( state# -- true | false )
scsi-disk-debug? IF
." SCSI-DISK: start-stop-unit " .s cr
THEN
cdb scsi-build-start-stop-unit
0 0 0 cdb scsi-param-size 10 retry-scsi-command
0= IF true ELSE 2drop false THEN
;
: compare-sense ( ascq asc key ascq2 asc2 key2 -- true | false )
3 pick =	    ( ascq asc key ascq2 asc2 keycmp )
swap 4 pick =   ( ascq asc key ascq2 keycmp asccmp )
rot 5 pick =    ( ascq asc key keycmp asccmp ascqcmp )
and and nip nip nip
;
0 CONSTANT CDROM-READY
1 CONSTANT CDROM-NOT-READY
2 CONSTANT CDROM-NO-DISK
3 CONSTANT CDROM-TRAY-OPEN
4 CONSTANT CDROM-INIT-REQUIRED
5 CONSTANT CDROM-TRAY-MAYBE-OPEN
: cdrom-try-close-tray ( -- )
scsi-const-load start-stop-unit drop
;
: cdrom-must-close-tray ( -- )
scsi-const-load start-stop-unit not IF
." Tray open !" cr -65 throw
THEN
;
: get-media-event ( -- true | false )
scsi-disk-debug? IF
." SCSI-DISK: get-media-event " .s cr
THEN
cdb scsi-build-get-media-event
scratch scsi-length-media-event scsi-dir-read cdb scsi-param-size 1 retry-scsi-command
0= IF true ELSE 2drop false THEN
;
: cdrom-status ( -- status )
test-unit-ready
IF CDROM-READY EXIT THEN
scsi-disk-debug? IF
." TestUnitReady sense: " 3dup . . . cr
THEN
3dup 1 4 2 compare-sense IF
3drop CDROM-NOT-READY EXIT
THEN
get-media-event IF
scratch w@ 4 >= IF
scratch 2 + c@ 04 = IF
scratch 5 + c@
dup 02 and 0<> IF drop 3drop CDROM-READY EXIT THEN
dup 01 and 0<> IF drop 3drop CDROM-TRAY-OPEN EXIT THEN
drop 3drop CDROM-NO-DISK EXIT
THEN
THEN
THEN
3dup 2 4 2 compare-sense IF
3drop CDROM-INIT-REQUIRED EXIT
THEN
over 4 = over 2 = and IF
3drop CDROM-READY EXIT
THEN
over 3a = IF
3drop CDROM-NO-DISK EXIT
THEN
3drop CDROM-TRAY-MAYBE-OPEN
;
: prep-cdrom ( -- ready? )
5 0 DO
cdrom-status CASE
CDROM-READY           OF UNLOOP true EXIT ENDOF
CDROM-NO-DISK         OF ." No medium !" cr UNLOOP false EXIT ENDOF
CDROM-TRAY-OPEN       OF cdrom-must-close-tray ENDOF
CDROM-INIT-REQUIRED   OF cdrom-try-close-tray ENDOF
CDROM-TRAY-MAYBE-OPEN OF cdrom-try-close-tray ENDOF
ENDCASE
d# 1000 ms
LOOP
." Drive not ready !" cr false
;
: prep-disk ( -- ready? )
test-unit-ready not IF
." SCSI-DISK: Disk not ready ! "
." Sense " dup .sense-text ." [" . ." ]"
."  ASC " . ."  ASCQ " . cr
false EXIT THEN true
;
: open ( -- true | false )
scsi-disk-debug? IF
." SCSI-DISK: open [" .s ." ] unit is " my-unit . . ."  [" .s ." ]" cr
THEN
my-unit " set-address" $call-parent
inquiry dup 0= IF drop false EXIT THEN
scsi-disk-debug? IF
." ---- inquiry: ----" cr
dup 100 dump cr
." ------------------" cr
THEN
dup inquiry-data>peripheral c@ e0 and 0 <> IF
." SCSI-DISK: Unsupported PQ != 0" cr
false EXIT
THEN
inquiry-data>peripheral c@ CASE
5   OF true to is_cdrom ENDOF
7   OF true to is_cdrom ENDOF
ENDCASE
scsi-disk-debug? IF
is_cdrom IF
." SCSI-DISK: device treated as CD-ROM" cr
ELSE
." SCSI-DISK: device treated as disk" cr
THEN
THEN
is_cdrom IF prep-cdrom ELSE prep-disk THEN
not IF false EXIT THEN
" max-transfer" $call-parent to max-transfer
read-capacity to max-block-num to block-size
max-block-num 100000000 = IF
read-capacity-16 to max-block-num to block-size
THEN
max-block-num 0= block-size 0= OR IF
." SCSI-DISK: Failed to get disk capacity!" cr
FALSE EXIT
THEN
scsi-disk-debug? IF
." Capacity: " max-block-num . ." blocks of " block-size . cr
THEN
0 0 " deblocker" $open-package dup deblocker ! dup IF 
" disk-label" find-package IF
my-args rot interpose
THEN
THEN 0<>
;
: close ( -- )
deblocker @ close-package ;
: seek ( pos.lo pos.hi -- status )
s" seek" deblocker @ $call-method ;
: read ( addr len -- actual )
s" read" deblocker @ $call-method ;
scsi-close
finish-device
ÿÿÿÿÿÿÿÿ ^8scsi-host-helpers.fs: check-retry-sense? ( sense-buf sense-len -- retry? )
8 < IF -1 EXIT THEN
dup sense-data>response-code c@ 7e and 70 = IF
dup sense-data>sense-key c@ e0 and IF drop -1 EXIT THEN
THEN
scsi-get-sense-data? IF 	( ascq asc sense-key )
dup 2 < IF 3drop 0 EXIT THEN
dup 2 = swap 6 = or nip nip IF 1 EXIT THEN
THEN
-1
;
0 INSTANCE VALUE rcmd-buf-addr
0 INSTANCE VALUE rcmd-buf-len
0 INSTANCE VALUE rcmd-dir
0 INSTANCE VALUE rcmd-cmd-addr
0 INSTANCE VALUE rcmd-cmd-len
: retry-scsi-command ( buf-addr buf-len dir cmd-addr cmd-len #retries -- ... )
>r \ stash #retries
to rcmd-cmd-len to rcmd-cmd-addr to rcmd-dir to rcmd-buf-len to rcmd-buf-addr
0  \ dummy status & sense
r> \ retreive #retries              ( stat #retries )
0 DO
0<> IF 2drop THEN
rcmd-buf-addr
rcmd-buf-len
rcmd-dir
rcmd-cmd-addr
rcmd-cmd-len
execute-scsi-command		( [ sense-buf sense-len ] stat )
dup 0= IF LEAVE THEN
dup -1 = IF LEAVE THEN
dup 2 = IF  			( sense-buf sense-len stat )
>r	\ stash stat		( sense-buf sense len )
2dup
check-retry-sense?	        ( sense-buf sense-len retry? )
r> swap \ unstash stat	( sense-buf sense-len stat retry? )
CASE
0 OF 3drop 0 LEAVE ENDOF	\ Swallow error, return 0
-1 OF LEAVE ENDOF		\ No retry
ENDCASE
ELSE \ Anything other than busy -> exit
dup 8 <> IF LEAVE THEN
THEN
a ms
LOOP
;
CREATE sector d# 512 allot
CREATE cdb 10 allot
: (inquiry) ( size -- buffer | NULL )
dup cdb scsi-build-inquiry
sector swap scsi-dir-read cdb scsi-param-size 10 retry-scsi-command
0= IF sector ELSE 2drop 0 THEN
;
: inquiry ( -- buffer | NULL )
d# 36 (inquiry) 0= IF 0 EXIT THEN
sector inquiry-data>add-length c@ 5 +
(inquiry)
;
: report-luns ( -- [ sector ] true | false )
200 cdb scsi-build-report-luns
sector 200 scsi-dir-read cdb scsi-param-size 10 retry-scsi-command
0= IF sector true ELSE drop false THEN
;
: make-disk-alias                               ( $name srplun -- )
>r 2dup r> -rot                             ( $name srplun $name)
find-alias 0<> IF 4drop exit THEN
get-node node>path
20 allot
" /disk@" string-cat                        ( $name srplun npath npathl )
rot base @ >r hex (u.) r> base ! string-cat ( $name $diskpath )
set-alias
;
ÿÿÿÿÿÿÿÿ°l8scsi-probe-helpers.fs: wrapped-inquiry ( -- true | false )
inquiry 0= IF false EXIT THEN
sector inquiry-data>peripheral c@ e0 and 0 =
;
: scsi-read-lun     ( addr -- lun true | false )
dup c@ C0 AND CASE
40 OF w@-be 3FFF AND TRUE ENDOF
0  OF w@-be          TRUE ENDOF
dup dup OF ." Unsupported LUN format = " . cr FALSE ENDOF
ENDCASE
;
: vscsi-report-luns ( -- array ndev )
dev-max-target 3 << alloc-mem dup
0                                    ( devarray devcur ndev )
dev-max-target 0 DO
i 0 dev-generate-srplun (set-target)
report-luns nip IF
sector l@                     ( devarray devcur ndev size )
sector 8 + swap               ( devarray devcur ndev lunarray size )
dup 8 + dup alloc-mem         ( devarray devcur ndev lunarray size size+ mem )
dup rot 0 fill                ( devarray devcur ndev lunarray size mem )
dup >r swap move r>           ( devarray devcur ndev mem )
dup sector l@ 3 >> 0 ?DO      ( devarray devcur ndev mem memcur )
dup dup scsi-read-lun IF
j swap dev-generate-srplun  swap x! 8 +
ELSE
2drop
THEN
LOOP drop
rot                           ( devarray ndev mem devcur )
dup >r x! r> 8 +              ( devarray ndev devcur )
swap 1 +
ELSE
dev-max-target 1 = IF
16 alloc-mem ( devarray devcur ndev mem )
dup 16 0 fill ( devarray devcur ndev mem )
dup 0 0 dev-generate-srplun swap x!  ( devarray devcur ndev mem )
rot x!  ( devarray ndev )
1 +
UNLOOP EXIT
THEN
THEN
LOOP
nip
;
: make-media-alias ( $name srplun -- )
>r
get-next-alias ?dup IF
r> make-disk-alias
ELSE
r> drop
THEN
;
: scsi-find-disks      ( -- )
."        SCSI: Looking for devices" cr
vscsi-report-luns
0 ?DO
dup x@
BEGIN
dup x@
dup 0= IF drop TRUE ELSE
(set-target) wrapped-inquiry IF
."           " current-target (u.) type ."  "
sector inquiry-data>peripheral c@ CASE
0   OF ." DISK     : " " disk"  current-target make-media-alias ENDOF
5   OF ." CD-ROM   : " " cdrom" current-target make-media-alias ENDOF
7   OF ." OPTICAL  : " " cdrom" current-target make-media-alias ENDOF
e   OF ." RED-BLOCK: " " disk"  current-target make-media-alias ENDOF
dup dup OF ." ? (" . 8 emit 29 emit 5 spaces ENDOF
ENDCASE
sector .inquiry-text cr
THEN
8 + FALSE
THEN
UNTIL drop
8 +
LOOP drop
;
ÿÿÿÿÿÿÿÿM`M%0scsi-support.fsvocabulary scsi-words                  \ create new word list named 'scsi-words'
also scsi-words  definitions           \ place next definitions into new list
false  value   scsi-param-debug        \ common debugging flag
d# 0   value   scsi-param-size         \ length of CDB processed last
h# 0   value   scsi-param-control      \ control word for CDBs as defined in SAM-4
d# 0   value   scsi-param-errors       \ counter for detected errors
: scsi-inc-errors
scsi-param-errors 1 + to scsi-param-errors
;
00 CONSTANT scsi-cmd-test-unit-ready
STRUCT
/c	FIELD test-unit-ready>operation-code     \ 00h
4	FIELD test-unit-ready>reserved           \ unused
/c	FIELD test-unit-ready>control            \ control byte as specified in SAM-4
CONSTANT scsi-length-test-unit-ready
: scsi-build-test-unit-ready  ( cdb -- )
dup scsi-length-test-unit-ready erase  ( cdb )
scsi-param-control swap test-unit-ready>control c!  ( )
scsi-length-test-unit-ready to scsi-param-size   \ update CDB length
;
a0 CONSTANT scsi-cmd-report-luns
STRUCT
/c	FIELD report-luns>operation-code     \ a0h
1	FIELD report-luns>reserved           \ unused
/c      FIELD report-luns>select-report      \ report select byte
3       FIELD report-luns>reserved2          \ unused
/l      FIELD report-luns>alloc-length       \ report length
1	FIELD report-luns>reserved3          \ unused
/c	FIELD report-luns>control            \ control byte
CONSTANT scsi-length-report-luns
: scsi-build-report-luns ( alloc-len cdb -- )
dup scsi-length-report-luns erase              \ 12 bytes CDB
scsi-cmd-report-luns over	          ( alloc-len cdb cmd cdb )
report-luns>operation-code c!	          ( alloc-len cdb )
scsi-param-control over report-luns>control c! ( alloc-len cdb )
report-luns>alloc-length l!	  \ size of Data-In Buffer
scsi-length-report-luns to scsi-param-size     \ update CDB length
;
03 CONSTANT scsi-cmd-request-sense
STRUCT
/c	FIELD request-sense>operation-code     \ 03h
3	FIELD request-sense>reserved           \ unused
/c	FIELD request-sense>allocation-length  \ buffer-length for data response
/c	FIELD request-sense>control            \ control byte as specified in SAM-4
CONSTANT scsi-length-request-sense
: scsi-build-request-sense    ( alloc-len cdb -- )
>r                         ( alloc-len )  ( R: -- cdb )
r@ scsi-length-request-sense erase  ( alloc-len )
scsi-cmd-request-sense r@           ( alloc-len cmd cdb )
request-sense>operation-code c!     ( alloc-len )
dup d# 252 >                        \ buffer length too big ?
IF
scsi-inc-errors
drop d# 252                      \ replace with 252
ELSE
dup d# 18 <                      \ allocated buffer too small ?
IF
scsi-inc-errors
drop 0                        \ reject return data
THEN
THEN                                      ( alloclen )
r@ request-sense>allocation-length c!     (  )
scsi-param-control r> request-sense>control c!  ( alloc-len cdb )  ( R: cdb -- )
scsi-length-request-sense to scsi-param-size  \ update CDB length
;
70 CONSTANT scsi-response(request-sense-0)
71 CONSTANT scsi-response(request-sense-1)
STRUCT
/c FIELD sense-data>response-code   \ 70h (current errors) or 71h (deferred errors)
/c FIELD sense-data>obsolete
/c FIELD sense-data>sense-key       \ D3..D0 = sense key, D7 = EndOfMedium
/l FIELD sense-data>info
/c FIELD sense-data>alloc-length    \ <= 244 (for max size)
/l FIELD sense-data>command-info
/c FIELD sense-data>asc             \ additional sense key
/c FIELD sense-data>ascq            \ additional sense key qualifier
/c FIELD sense-data>unit-code
3  FIELD sense-data>key-specific
/c FIELD sense-data>add-sense-bytes \ start of appended extra bytes
CONSTANT scsi-length-sense-data
: scsi-get-sense-data                  ( addr -- ascq asc sense-key )   
>r                                  ( R: -- addr )
r@ sense-data>response-code c@ 7f and 72 >= IF
r@ 3 + c@                           ( ascq )
r@ 2 + c@                           ( ascq asc ) 
r> 1 + c@ 0f and                    ( ascq asc sense-key )
ELSE
r@ sense-data>ASCQ c@               ( ascq )
r@ sense-data>ASC c@                ( ascq asc )
r> sense-data>sense-key c@ 0f and   ( ascq asc sense-key ) ( R: addr -- )
THEN
;
: scsi-get-sense-data?                 ( addr -- false | ascq asc sense-key true )
dup
sense-data>response-code c@
7e AND dup 70 = swap 72 = or         \ Response code (some devices have MSB set)
IF
scsi-get-sense-data TRUE
ELSE
drop FALSE        \ drop addr
THEN
;
: scsi-get-sense-ID?                 ( addr -- false | ascq asc sense-key true )
dup
sense-data>response-code c@
7e AND 70 =          \ Response code (some devices have MSB set)
IF
scsi-get-sense-data        ( ascq asc sense-key )
10 lshift                  ( ascq asc sense-key16 )
swap 8 lshift or           ( ascq sense-key+asc )
swap or                    \ 24-bit sense-ID ( sense-key+asc+ascq )
TRUE
ELSE
drop FALSE        \ drop addr
THEN
;
12 CONSTANT scsi-cmd-inquiry
STRUCT
/c	FIELD inquiry>operation-code     \ 0x12
/c	FIELD inquiry>reserved           \ + EVPD-Bit (vital product data)
/c	FIELD inquiry>page-code          \ page code for vital product data (if used)
/w	FIELD inquiry>allocation-length  \ length of Data-In-Buffer
/c	FIELD inquiry>control            \ control byte as specified in SAM-4
CONSTANT scsi-length-inquiry
: scsi-build-inquiry                   ( alloc-len cdb -- )
dup scsi-length-inquiry erase       \ 6 bytes CDB
scsi-cmd-inquiry over				   ( alloc-len cdb cmd cdb )
inquiry>operation-code c!	         ( alloc-len cdb )
scsi-param-control over inquiry>control c! ( alloc-len cdb )
inquiry>allocation-length w!	      \ size of Data-In Buffer
scsi-length-inquiry to scsi-param-size    \ update CDB length
;
STRUCT
/c	   FIELD inquiry-data>peripheral       \ qualifier and device type
/c	   FIELD inquiry-data>reserved1
/c	   FIELD inquiry-data>version          \ supported SCSI version (1,2,3)
/c	   FIELD inquiry-data>data-format
/c	   FIELD inquiry-data>add-length       \ total block length - 4
/c	   FIELD inquiry-data>flags1
/c	   FIELD inquiry-data>flags2
/c	   FIELD inquiry-data>flags3
d# 8	FIELD inquiry-data>vendor-ident     \ vendor string
d# 16	FIELD inquiry-data>product-ident    \ device string
/l 	FIELD inquiry-data>product-revision \ revision string
d# 20	FIELD inquiry-data>vendor-specific  \ optional params
CONSTANT scsi-length-inquiry-data
25 CONSTANT scsi-cmd-read-capacity-10  \ command code
STRUCT                                 \ SCSI 10-byte CDB structure
/c	FIELD read-cap-10>operation-code
/c	FIELD read-cap-10>reserved1
/l	FIELD read-cap-10>lba
/w	FIELD read-cap-10>reserved2
/c	FIELD read-cap-10>reserved3
/c	FIELD read-cap-10>control
CONSTANT scsi-length-read-cap-10
: scsi-build-read-cap-10                     ( cdb -- )
dup scsi-length-read-cap-10 erase         ( cdb )
scsi-cmd-read-capacity-10 over            ( cdb cmd cdb )
read-cap-10>operation-code c!             ( cdb )
scsi-param-control swap read-cap-10>control c! ( )
scsi-length-read-cap-10 to scsi-param-size    \ update CDB length
;
STRUCT
/l	FIELD read-cap-10-data>max-lba
/l	FIELD read-cap-10-data>block-size
CONSTANT scsi-length-read-cap-10-data
: scsi-get-capacity-10                 ( addr -- block-size #blocks )
>r                                  ( addr -- ) ( R: -- addr )
r@ read-cap-10-data>block-size l@   ( block-size )
r> read-cap-10-data>max-lba l@      ( block-size #blocks ) ( R: addr -- )
;
9e CONSTANT scsi-cmd-read-capacity-16        \ command code
STRUCT                                       \ SCSI 16-byte CDB structure
/c	FIELD read-cap-16>operation-code
/c	FIELD read-cap-16>service-action
/l	FIELD read-cap-16>lba-high
/l	FIELD read-cap-16>lba-low
/l	FIELD read-cap-16>allocation-length    \ should be 32
/c	FIELD read-cap-16>reserved
/c	FIELD read-cap-16>control
CONSTANT scsi-length-read-cap-16
: scsi-build-read-cap-16  ( cdb -- )
>r r@                                     ( R: -- cdb )
scsi-length-read-cap-16 erase             (  )
scsi-cmd-read-capacity-16                 ( code )
r@ read-cap-16>operation-code c!          (  )
10 r@ read-cap-16>service-action c!
d# 32                                     \ response size 32 bytes
r@ read-cap-16>allocation-length l!       (  )
scsi-param-control r> read-cap-16>control c! ( R: cdb -- )
scsi-length-read-cap-16 to scsi-param-size \ update CDB length
;
STRUCT
/l	FIELD read-cap-16-data>max-lba-high    \ upper quadlet of Max-LBA
/l	FIELD read-cap-16-data>max-lba-low     \ lower quadlet of Max-LBA
/l	FIELD read-cap-16-data>block-size      \ logical block length in bytes
/c	FIELD read-cap-16-data>protect         \ type of protection (4 bits)
/c	FIELD read-cap-16-data>exponent        \ logical blocks per physical blocks
/w	FIELD read-cap-16-data>lowest-aligned  \ first LBA of a phsy. block
10 FIELD read-cap-16-data>reserved        \ 16 reserved bytes
CONSTANT scsi-length-read-cap-16-data        \ results in 32
: scsi-get-capacity-16                       ( addr -- block-size #blocks )
>r                                        ( R: -- addr )
r@ read-cap-16-data>block-size l@         ( block-size )
r@ read-cap-16-data>max-lba-high l@       ( block-size #blocks-high )
d# 32 lshift                              ( block-size #blocks-upper )
r> read-cap-16-data>max-lba-low l@ +      ( block-size #blocks ) ( R: addr -- )
;
5a CONSTANT scsi-cmd-mode-sense-10
STRUCT
/c	FIELD mode-sense-10>operation-code
/c	FIELD mode-sense-10>res-llbaa-dbd-res
/c	FIELD mode-sense-10>pc-page-code       \ page code + page control
/c	FIELD mode-sense-10>sub-page-code
3	FIELD mode-sense-10>reserved2
/w	FIELD mode-sense-10>allocation-length
/c	FIELD mode-sense-10>control
CONSTANT scsi-length-mode-sense-10
: scsi-build-mode-sense-10                   ( alloc-len subpage page cdb -- )
>r                                        ( alloc-len subpage page ) ( R: -- cdb )
r@ scsi-length-mode-sense-10 erase        \ 10 bytes CDB
scsi-cmd-mode-sense-10                    ( alloc-len subpage page cmd )
r@  mode-sense-10>operation-code c!		   ( alloc-len subpage page )
10 r@ mode-sense-10>res-llbaa-dbd-res c!  \ long LBAs accepted
r@ mode-sense-10>pc-page-code c!	         ( alloc-len subpage )
r@ mode-sense-10>sub-page-code c!	      ( alloc-len )
r@ mode-sense-10>allocation-length w!     ( )
scsi-param-control r> mode-sense-10>control c!  ( R: cdb -- )
scsi-length-mode-sense-10 to scsi-param-size  \ update CDB length
;
STRUCT
/w	FIELD mode-sense-10-data>head-length
/c	FIELD mode-sense-10-data>head-medium
/c	FIELD mode-sense-10-data>head-param
/c	FIELD mode-sense-10-data>head-longlba
/c	FIELD mode-sense-10-data>head-reserved
/w	FIELD mode-sense-10-data>head-descr-len
CONSTANT scsi-length-mode-sense-10-data
: .mode-sense-data   ( addr -- )
cr
dup mode-sense-10-data>head-length
w@ ." Mode Length: " .d space
dup mode-sense-10-data>head-medium
c@ ." / Medium Type: " .d space
dup mode-sense-10-data>head-longlba
c@ ." / Long LBA: " .d space
mode-sense-10-data>head-descr-len
w@ ." / Descr. Length: " .d
;
28 CONSTANT scsi-cmd-read-10
STRUCT
/c FIELD read-10>operation-code
/c FIELD read-10>protect
/l FIELD read-10>block-address      \ logical block address (32bits)
/c FIELD read-10>group
/w FIELD read-10>length             \ transfer length (16-bits)
/c FIELD read-10>control
CONSTANT scsi-length-read-10
: scsi-build-read-10                         ( block# #blocks cdb -- )
>r                                        ( block# #blocks )  ( R: -- cdb )
r@ scsi-length-read-10 erase             \ 10 bytes CDB
scsi-cmd-read-10 r@ read-10>operation-code c! ( block# #blocks )
r@ read-10>length w!                      ( block# )
r@ read-10>block-address l!               (  )
scsi-param-control r> read-10>control c!  ( R: cdb -- )
scsi-length-read-10 to scsi-param-size    \ update CDB length
;
a8 CONSTANT scsi-cmd-read-12
STRUCT
/c FIELD read-12>operation-code     \ code: a8
/c FIELD read-12>protect            \ RDPROTECT, DPO, FUA, FUA_NV
/l FIELD read-12>block-address      \ lba
/l FIELD read-12>length             \ transfer length (32bits)
/c FIELD read-12>group              \ group number
/c FIELD read-12>control
CONSTANT scsi-length-read-12
: scsi-build-read-12                         ( block# #blocks cdb -- )
>r                                        ( block# #blocks )  ( R: -- cdb )
r@ scsi-length-read-12 erase             \ 12 bytes CDB
scsi-cmd-read-12 r@ read-12>operation-code c! ( block# #blocks )
r@ read-12>length l!                      ( block# )
r@ read-12>block-address l!               (  )
scsi-param-control r> read-12>control c!  ( R: cdb -- )
scsi-length-read-12 to scsi-param-size    \ update CDB length
;
88 CONSTANT scsi-cmd-read-16
STRUCT
/c FIELD read-16>operation-code     \ code: 88
/c FIELD read-16>protect            \ RDPROTECT, DPO, FUA, FUA_NV
/x FIELD read-16>block-address      \ lba
/l FIELD read-16>length             \ transfer length (32bits)
/c FIELD read-16>group              \ group number
/c FIELD read-16>control
CONSTANT scsi-length-read-16
: scsi-build-read-16                         ( block# #blocks cdb -- )
>r                                        ( block# #blocks )  ( R: -- cdb )
r@ scsi-length-read-16 erase              \ 16 bytes CDB
scsi-cmd-read-16 r@ read-16>operation-code c! ( block# #blocks )
r@ read-16>length l!                      ( block# )
r@ read-16>block-address x!               (  )
scsi-param-control r> read-16>control c!  ( R: cdb -- )
scsi-length-read-16 to scsi-param-size    \ update CDB length
;
: scsi-build-read?   ( block# #blocks cdb -- length )
over              ( block# #blocks cdb #blocks )
fffe >            \ tx-length (#blocks) exceeds 16-bit limit ?
IF
scsi-build-read-12   ( block# #blocks cdb -- )
scsi-length-read-12  ( length )
ELSE                    ( block# #blocks cdb )
scsi-build-read-10   ( block# #blocks cdb -- )
scsi-length-read-10  ( length )
THEN
;
1b CONSTANT scsi-cmd-start-stop-unit
STRUCT
/c FIELD start-stop-unit>operation-code
/c FIELD start-stop-unit>immed
/w FIELD start-stop-unit>reserved
/c FIELD start-stop-unit>pow-condition
/c FIELD start-stop-unit>control
CONSTANT scsi-length-start-stop-unit
f1 CONSTANT scsi-const-active-power    \ param used for start-stop-unit
f2 CONSTANT scsi-const-idle-power      \ param used for start-stop-unit
f3 CONSTANT scsi-const-standby-power   \ param used for start-stop-unit
3  CONSTANT scsi-const-load            \ param used for start-stop-unit
2  CONSTANT scsi-const-eject           \ param used for start-stop-unit
1  CONSTANT scsi-const-start
0  CONSTANT scsi-const-stop
: scsi-build-start-stop-unit                 ( state# cdb -- )
>r                                        ( state# )  ( R: -- cdb )
r@ scsi-length-start-stop-unit erase      \ 6 bytes CDB
scsi-cmd-start-stop-unit r@ start-stop-unit>operation-code c!
dup 3 >
IF
4 lshift                         \ shift to upper nibble
THEN                                ( state )
r@ start-stop-unit>pow-condition c!       (  )
scsi-param-control r> start-stop-unit>control c!  ( R: cdb -- )
scsi-length-start-stop-unit to scsi-param-size  \ update CDB length
;
2b CONSTANT scsi-cmd-seek
STRUCT
/c FIELD seek>operation-code
/c FIELD seek>reserved1
/l FIELD seek>lba
3  FIELD seek>reserved2
/c FIELD seek>control
CONSTANT scsi-length-seek
: scsi-build-seek  ( lba cdb -- )
>r              ( lba )  ( R: -- cdb )
r@ scsi-length-seek erase           \ 10 bytes CDB
scsi-cmd-seek r@ seek>operation-code c!
r> seek>lba l!  (  )  ( R: cdb -- )
scsi-length-seek to scsi-param-size \ update CDB length
;
STRUCT
/w FIELD media-event-data-len
/c FIELD media-event-nea-class
/c FIELD media-event-supp-class
/l FIELD media-event-data
CONSTANT scsi-length-media-event
: scsi-build-get-media-event                     ( cdb -- )
dup c erase				         ( cdb )
4a over c!				         ( cdb )
01 over 1 + c!
10 over 4 + c!
08 over 8 + c!
drop
;
: .sense-text ( scode -- )
case
0    OF s" OK"               ENDOF
1    OF s" RECOVERED ERR"    ENDOF
2    OF s" NOT READY"        ENDOF
3    OF s" MEDIUM ERROR"     ENDOF
4    OF s" HARDWARE ERR"     ENDOF
5    OF s" ILLEGAL REQUEST"  ENDOF
6    OF s" UNIT ATTENTION"   ENDOF
7    OF s" DATA PROTECT"     ENDOF
8    OF s" BLANK CHECK"      ENDOF
9    OF s" VENDOR SPECIFIC"  ENDOF
a    OF s" COPY ABORTED"     ENDOF
b    OF s" ABORTED COMMAND"  ENDOF
d    OF s" VOLUME OVERFLOW"  ENDOF
e    OF s" MISCOMPARE"       ENDOF
dup  OF s" UNKNOWN"          ENDOF
endcase
5b emit type 5d emit
;
: .status-text  ( stat -- )
case
00  OF s" GOOD"                  ENDOF
02  OF s" CHECK CONDITION"       ENDOF
04  OF s" CONDITION MET"         ENDOF
08  OF s" BUSY"                  ENDOF
18  OF s" RESERVATION CONFLICT"  ENDOF
28  OF s" TASK SET FULL"         ENDOF
30  OF s" ACA ACTIVE"            ENDOF
40  OF s" TASK ABORTED"          ENDOF
dup OF s" UNKNOWN"               ENDOF
endcase
5b emit type 5d emit
;
: .dec3-2 ( prenum postnum -- )
swap
base @ >r                           \ save actual base setting
decimal                             \ show decimal values
4 .r 2e emit
dup 9 <= IF 30 emit THEN .d         \ 3 pre-decimal, right aligned
r> base !                           \ restore base
;
: .capacity-text  ( block-size #blocks -- )
scsi-param-debug                    \ debugging flag set ?
IF                                  \ show additional info
2dup
cr
." LBAs: " .d                    \ highest logical block number
." / Block-Size: " .d
." / Total Capacity: "
THEN
*                                   \ calculate total capacity
dup d# 1000000000000 >=             \ check terabyte limit
IF
d# 1000000000000 /mod
swap
d# 10000000000 /                 \ limit remainder to two digits
.dec3-2 ." TB"                   \ show terabytes as xxx.yy
ELSE
dup d# 1000000000 >=             \ check gigabyte limit
IF
d# 1000000000 /mod
swap
d# 10000000 /
.dec3-2 ." GB"                \ show gigabytes as xxx.yy
ELSE
dup d# 1000000 >=
IF
d# 1000000 /mod            \ check mega byte limit
swap
d# 10000 /
.dec3-2 ." MB"             \ show megabytes as xxx.yy
ELSE
dup d# 1000 >=             \ check kilo byte limit
IF
d# 1000 /mod
swap
d# 10 /
.dec3-2 ." kB"
ELSE
.d ."  Bytes"
THEN
THEN
THEN
THEN
;
: .inquiry-text  ( addr -- )
22 emit     \ enclose text with "
dup inquiry-data>vendor-ident      8 type space
dup inquiry-data>product-ident    10 type space
inquiry-data>product-revision  4 type
22 emit
;
: scsi-supp-init  ( -- )
false   to scsi-param-debug         \ no debug strings
h# 0   to scsi-param-size
h# 0   to scsi-param-control        \ common CDB control byte
d# 0   to scsi-param-errors         \ local errors (param limits)
;
true  CONSTANT scsi-dir-read
false CONSTANT scsi-dir-write
0 VALUE scsi-context                   \ addr of word list on top
: scsi-init  ( -- )
also scsi-words                     \ append scsi word-list
context  to scsi-context            \ save for close process
scsi-supp-init                      \ preset all scsi-param-xxx values
scsi-param-debug
IF
space ." SCSI-SUPPORT OPENED" cr
.wordlists
THEN
;
: scsi-close  ( -- )
scsi-param-debug
IF
space ." Closing SCSI-SUPPORT .. " cr
THEN
context scsi-context =              \ scsi word list still active ?
IF
scsi-param-errors 0<>          \ any errors occurred ?
IF
cr ." ** WARNING: " scsi-param-errors .d
." SCSI Errors occurred ** " cr
THEN
previous                         \ remove scsi word list on top
0 to scsi-context                \ prevent from being misinterpreted
ELSE
cr ." ** WARNING: Trying to close non-open SCSI-SUPPORT (1) ** " cr
THEN
scsi-param-debug
IF
.wordlists
THEN
;
s" scsi-init" $find drop               \ return execution pointer, when included
previous                               \ remove scsi word list from search path
definitions                            \ place next definitions into previous list
ÿÿÿÿÿÿÿÿq pâ0evaluator.fsvariable ip
variable fcode-end 
variable fcode-num
1 value fcode-spread
2 value fcode-offset
false value eva-debug?
true value fcode-debug?
defer fcode-rb@
defer fcode@
' c@ to fcode-rb@
create token-table 2000 cells allot    \ 1000h = 4096d
: ?offset16 ( -- true|false )
fcode-offset 2 =
;
: ?arch64 ( -- true|false )
cell 8 =
;
: ?bigendian ( -- true|false )
deadbeef fcode-num !
fcode-num ?arch64 IF 4 + THEN
c@ de =
;
: reset-fcode-end ( -- )
false fcode-end !
;
: get-ip ( -- n )
ip @
;
: set-ip ( n -- )
ip !
;
: next-ip ( -- )
get-ip 1+ set-ip
;
: jump-n-ip ( n -- )
get-ip + set-ip
;
: read-byte ( -- n )
get-ip fcode-rb@
;
: ?compile-mode ( -- on|off )
state @
;
: save-evaluator-state
get-ip               eva-debug? IF ." saved ip "           dup . cr THEN
fcode-end @          eva-debug? IF ." saved fcode-end "    dup . cr THEN
fcode-offset         eva-debug? IF ." saved fcode-offset " dup . cr THEN
fcode-spread         eva-debug? IF ." saved fcode-spread " dup . cr THEN
['] fcode@ behavior  eva-debug? IF ." saved fcode@ "       dup . cr THEN
;
: restore-evaluator-state
eva-debug? IF ." restored fcode@ "       dup . cr THEN  to fcode@
eva-debug? IF ." restored fcode-spread " dup . cr THEN  to fcode-spread
eva-debug? IF ." restored fcode-offset " dup . cr THEN  to fcode-offset
eva-debug? IF ." restored fcode-end "    dup . cr THEN  fcode-end !
eva-debug? IF ." restored ip "           dup . cr THEN  set-ip
;
: token-table-index ( fcode# -- addr )
cells token-table +
;
: join-immediate ( xt immediate? addr -- xt+immediate? addr )
-rot + swap
;
: split-immediate ( xt+immediate? -- xt immediate? )
dup 1 and 2dup - rot drop swap
;
: literal, ( n -- )
postpone literal
;
: fc-string,
postpone sliteral
dup c, bounds ?do i c@ c, loop
;
: set-token ( xt immediate? fcode# -- )
token-table-index join-immediate !
;
: get-token ( fcode# -- xt immediate? )
token-table-index @ split-immediate
;
?bigendian [IF]                       \ Big endian access functions first
: read-fcode-num16 ( -- n )
0 fcode-num !
?arch64 IF
read-byte fcode-num 6 + C!
next-ip
read-byte fcode-num 7 + C!
ELSE
read-byte fcode-num 2 + C!
next-ip
read-byte fcode-num 3 + C!
THEN
fcode-num @
;
: read-fcode-num32 ( -- n )
0 fcode-num !
?arch64 IF
read-byte fcode-num 4 + C!
next-ip
read-byte fcode-num 5 + C!
next-ip
read-byte fcode-num 6 + C!
next-ip
read-byte fcode-num 7 + C!
ELSE
read-byte fcode-num 0 + C!
next-ip
read-byte fcode-num 1 + C!
next-ip
read-byte fcode-num 2 + C!
next-ip
read-byte fcode-num 3 + C!
THEN
fcode-num @
;
[ELSE]                                \ Now the little endian access functions
: read-fcode-num16 ( -- n )
0 fcode-num !
?arch64 IF
read-byte fcode-num 7 + C!
next-ip
read-byte fcode-num 6 + C!
ELSE
read-byte fcode-num 1 + C!
next-ip
read-byte fcode-num 0 + C!
THEN
fcode-num @
;
: read-fcode-num32 ( adr -- n )
0 fcode-num !
?arch64 IF
read-byte fcode-num 7 + C!
next-ip
read-byte fcode-num 6 + C!
next-ip
read-byte fcode-num 5 + C!
next-ip
read-byte fcode-num 4 + C!
ELSE
read-byte fcode-num 3 + C!
next-ip
read-byte fcode-num 2 + C!
next-ip
read-byte fcode-num 1 + C!
next-ip
read-byte fcode-num 0 + C!
THEN
fcode-num @
;
[THEN]
: read-fcode# ( -- FCode# )
read-byte
dup 01 0F between IF drop read-fcode-num16 THEN
;
: read-header ( adr -- )
next-ip read-byte        drop
next-ip read-fcode-num16 drop
next-ip read-fcode-num32 drop
;
: read-fcode-string ( -- str len )
read-byte            \ get string length ( -- len )
next-ip get-ip       \ get string addr   ( -- len str )
swap                 \ type needs the parameters swapped ( -- str len )
dup 1- jump-n-ip     \ jump to the end of the string in FCode
;
-1 VALUE break-fcode-addr
0 VALUE break-fcode-steps
: evaluate-fcode ( -- )
BEGIN
get-ip break-fcode-addr = IF
TRUE fcode-end !
THEN
fcode-end @ 0=
WHILE
fcode@                               ( fcode# )
eva-debug? IF
dup
get-ip 8 u.r ." : "
." [" 3 u.r ." ] "
THEN
get-token 0= ?compile-mode AND IF    ( xt )
compile,
ELSE                                 \ immediate or "interpretation" mode
eva-debug? IF dup xt>name type space THEN
execute
THEN
eva-debug? IF .s cr THEN
break-fcode-steps IF
break-fcode-steps 1- TO break-fcode-steps
break-fcode-steps 0= IF
TRUE fcode-end !
THEN
THEN
next-ip
REPEAT
;
: steps-fcode  ( n -- )
to break-fcode-steps
break-fcode-addr >r -1 to break-fcode-addr
reset-fcode-end
evaluate-fcode
r> to break-fcode-addr
;
: step-fcode  ( -- )
1 steps-fcode
;
: fcode-revision ( -- n )
00030000 \ major * 65536 + minor
;
: b(lit) ( -- n )
next-ip read-fcode-num32
?compile-mode IF literal, THEN
;
: b(")
next-ip read-fcode-string
?compile-mode IF fc-string, align postpone count THEN
;
: b(')
next-ip read-fcode# get-token drop ?compile-mode IF literal, THEN
;
: ?jump-direction ( n -- )
dup 8000 >= IF
10000 -           \ Create cell-sized negative value
THEN
fcode-offset -       \ IP is already behind offset, so subtract offset size
;
: ?negative
8000 and
;
: dest-on-top
0 >r BEGIN dup @ 0= WHILE >r REPEAT
BEGIN r> dup WHILE swap REPEAT
drop
;
: read-fcode-offset
next-ip
?offset16 IF
read-fcode-num16
ELSE
read-byte
dup 80 and IF FF00 or THEN       \ Fake 16-bit signed offset
THEN
;
: b?branch ( flag -- )
?compile-mode IF
read-fcode-offset ?negative IF
dest-on-top postpone until
ELSE
postpone if
THEN
ELSE
( flag ) IF
fcode-offset jump-n-ip       \ Skip over offset value
ELSE
read-fcode-offset
?jump-direction jump-n-ip
THEN
THEN
; immediate
: bbranch ( -- )
?compile-mode IF
read-fcode-offset
?negative IF
dest-on-top postpone again
ELSE
postpone else
get-ip next-ip fcode@ B2 = IF
drop
ELSE
set-ip
THEN
THEN
ELSE
read-fcode-offset ?jump-direction jump-n-ip
THEN
; immediate
: b(<mark) ( -- )
?compile-mode IF postpone begin THEN
; immediate
: b(>resolve) ( -- )
?compile-mode IF postpone then THEN
; immediate
: b(;)
<semicolon> compile, reveal
postpone [
; immediate
: b(:) ( -- )
<colon> compile, ]
; immediate
: b(case) ( sel -- sel )
postpone case
; immediate
: b(endcase)
postpone endcase
; immediate
: b(of)
postpone of
read-fcode-offset drop   \ read and discard offset
; immediate
: b(endof)
postpone endof
read-fcode-offset drop
; immediate
: b(do)
postpone do
read-fcode-offset drop
; immediate
: b(?do)
postpone ?do
read-fcode-offset drop
; immediate
: b(loop)
postpone loop
read-fcode-offset drop
; immediate
: b(+loop)
postpone +loop
read-fcode-offset drop
; immediate
: b(leave)
postpone leave
; immediate
0 VALUE fc-instance?
: fc-instance  ( -- )   \ Mark next defining word as instance-specific.
TRUE TO fc-instance?
;
: new-token  \ unnamed local fcode function
align here next-ip read-fcode# 0 swap set-token
;
: external-token ( -- )  \ named local fcode function
next-ip read-fcode-string
header         ( str len -- )  \ create a header in the current dictionary entry
new-token
;
: new-token
eva-debug? IF
s" x" get-ip >r next-ip read-fcode# r> set-ip (u.) $cat strdup
header
THEN
new-token
;
: named-token
fcode-debug? IF
external-token
ELSE
next-ip read-fcode-string 2drop       \ Forget about the name
new-token
THEN
;
: b(to) ( val -- )
next-ip read-fcode#
get-token drop                           ( val xt )
dup @                                    ( val xt @xt )
dup <value> =  over <defer> = OR IF
drop
>body cell -
?compile-mode IF
literal, postpone !
ELSE
!
THEN
ELSE
<create> <> IF                         ( val xt )
TRUE ABORT" Invalid destination for FCODE b(to)"
THEN
dup cell+ @                           ( val xt @xt+1cell )
dup <instancevalue> <>  swap <instancedefer> <> AND IF
TRUE ABORT" Invalid destination for FCODE b(to)"
THEN
>body @                               ( val instance-offset )
?compile-mode IF
literal,  postpone >instance  postpone !
ELSE
>instance !
THEN
ELSE
THEN
; immediate
: b(value)
fc-instance? IF
<create> ,                \ Needed for "(instance?)" for example
<instancevalue> ,
(create-instance-var)
FALSE TO fc-instance?
ELSE
<value> , ,
THEN
reveal
;
: b(variable)
fc-instance? IF
<create> ,                \ Needed for "(instance?)"
<instancevariable> ,
0 (create-instance-var)
FALSE TO fc-instance?
ELSE
<variable> , 0 ,
THEN
reveal
;
: b(constant)
<constant> , , reveal
;
: undefined-defer
cr cr ." Uninitialized defer word has been executed!" cr cr
true fcode-end !
;
: b(defer)
fc-instance? IF
<create> ,                \ Needed for "(instance?)"
<instancedefer> ,
['] undefined-defer (create-instance-var)
reveal
FALSE TO fc-instance?
ELSE
<defer> , reveal
postpone undefined-defer
THEN
;
: b(create)
<variable> ,
postpone noop reveal
;
: b(field) ( E: addr -- addr+offset ) ( F: offset size -- offset+size )
<colon> , over literal,
postpone +
<semicolon> compile,
reveal
+
;
: b(buffer:) ( E: -- a-addr) ( F: size -- )
fc-instance? IF
<create> ,                \ Needed for "(instance?)"
<instancebuffer> ,
(create-instance-buf)
FALSE TO fc-instance?
ELSE
<buffer:> , allot
THEN
reveal
;
: suspend-fcode ( -- )
noop        \ has to be implemented more efficiently ;-)
;
: offset16 ( -- )
2 to fcode-offset
;
: version1 ( -- )
1 to fcode-spread
1 to fcode-offset
read-header
;
: start0 ( -- )
0 to fcode-spread
offset16
read-header
;
: start1 ( -- )
1 to fcode-spread
offset16
read-header
;
: start2 ( -- )
2 to fcode-spread
offset16
read-header
;
: start4 ( -- )
4 to fcode-spread
offset16
read-header
;
: end0 ( -- )
true fcode-end !
;
: end1 ( -- )
end0
;
: ferror ( -- )
clear end0
cr ." FCode# " fcode-num @ . ." not assigned!"
cr ." FCode evaluation aborted." cr
." ( -- S:" depth . ." R:" rdepth . ." ) " .s cr
abort
;
: reset-local-fcodes
FFF 800 DO ['] ferror 0 i set-token LOOP
;
: byte-load ( addr xt -- )
>r >r
save-evaluator-state
r> r>
reset-fcode-end
1 to fcode-spread
dup 1 = IF drop ['] rb@ THEN to fcode-rb@
set-ip
reset-local-fcodes
depth >r
evaluate-fcode
r> depth 1- <> IF
clear end0
cr ." Ambiguous stack depth after byte-load!"
cr ." FCode evaluation aborted." cr cr
ELSE
restore-evaluator-state
THEN
['] c@ to fcode-rb@
;
: fc-c@   ( addr -- byte )   dup MIN-RAM-SIZE > IF rb@ ELSE c@ THEN ;
: fc-w@   ( addr -- word )   dup MIN-RAM-SIZE > IF rw@ ELSE w@ THEN ;
: fc-<w@  ( addr -- word )   fc-w@ dup 8000 >= IF 10000 - THEN ;
: fc-l@   ( addr -- long )   dup MIN-RAM-SIZE > IF rl@ ELSE l@ THEN ;
: fc-<l@  ( addr -- long )   fc-l@ signed ;
: fc-x@   ( addr -- dlong )  dup MIN-RAM-SIZE > IF rx@ ELSE x@ THEN ;
: fc-c!   ( byte addr -- )   dup MIN-RAM-SIZE > IF rb! ELSE c! THEN ;
: fc-w!   ( word addr -- )   dup MIN-RAM-SIZE > IF rw! ELSE w! THEN ;
: fc-l!   ( long addr -- )   dup MIN-RAM-SIZE > IF rl! ELSE l! THEN ;
: fc-x!   ( dlong addr -- )  dup MIN-RAM-SIZE > IF rx! ELSE x! THEN ;
: fc-fill ( add len byte -- )  2 pick MIN-RAM-SIZE > IF rfill ELSE fill THEN ;
: fc-move ( src dst len -- )
2 pick MIN-RAM-SIZE >        \ Check src
2 pick MIN-RAM-SIZE >        \ Check dst
OR IF rmove ELSE move THEN
;
: free-virtual  ( virt size -- )
s" map-out" $call-parent
;
: map-low  ( phys.lo ... size -- virt )
my-space swap s" map-in" $call-parent
;
: mac-address  ( -- mac-str mac-len )
s" local-mac-address" get-my-property IF
0 0
THEN
;
VARIABLE #line
0 #line !
VARIABLE #out
0 #out !
: display-status  ( n -- )
." Device status: " . cr
;
VARIABLE group-code
0 group-code !
: dma-alloc  ( byte -- virtual )
s" dma-alloc" $call-parent
;
: my-params  ( -- addr len )
s" params" get-my-property IF
0 0
THEN
;
: sbus-intr>cpu  ( sbus-intr# -- cpu-intr# )
;
: intr  ( interrupt# vector -- )
>r sbus-intr>cpu encode-int r> encode-int+ s" intr" property
;
: driver  ( addr len -- )
encode-string s" name" property
;
: processor-type  ( -- cpu-type )
0
;
: firmware-version  ( -- n )
10000                          \ Just a dummy value
;
: fcode-version  ( -- n )
fcode-revision
;
: fc-abort ." FCode called abort: IP " get-ip . ( ." STACK: " .s ) depth dup 0< IF abort THEN . rdepth . cr  abort ;
: fc-0 ." 0(lit): STACK ( S: " depth . ." R: " rdepth . ." ): " depth 0> IF .s THEN 0 ;
: fc-1 ." 1(lit): STACK ( S: " depth . ." R: " rdepth . ." ): " depth 0> IF .s THEN 1 ;
: parse-1hex 1 hex-decode-unit ;
: fc-set-pci-mmio-tokens  ( -- )
['] rw@-le  0 232 set-token
['] rw!-le  0 233 set-token
['] rl@-le  0 234 set-token
['] rl!-le  0 235 set-token
['] rx@-le  0 22E set-token
['] rx!-le  0 22F set-token
;
: fc-set-normal-mmio-tokens  ( -- )
['] rw@  0 232 set-token
['] rw!  0 233 set-token
['] rl@  0 234 set-token
['] rl!  0 235 set-token
['] rx@  0 22E set-token
['] rx!  0 22F set-token
;
: reset-token-table
FFF 0 DO ['] ferror 0 i set-token LOOP
;
reset-token-table
' end0 0        00 set-token
' b(lit)      1 10 set-token
' b(')        1 11 set-token
' b(")        1 12 set-token
' bbranch     1 13 set-token
' b?branch    1 14 set-token
' b(loop)     1 15 set-token
' b(+loop)    1 16 set-token
' b(do)       1 17 set-token
' b(?do)      1 18 set-token
' i           0 19 set-token
' j           0 1A set-token
' b(leave)    1 1B set-token
' b(of)       1 1C set-token
' execute     0 1D set-token
' +           0 1E set-token
' -           0 1F set-token
' *           0 20 set-token
' /           0 21 set-token
' mod         0 22 set-token 
' and         0 23 set-token 
' or          0 24 set-token 
' xor         0 25 set-token 
' invert      0 26 set-token 
' lshift      0 27 set-token 
' rshift      0 28 set-token 
' >>a         0 29 set-token 
' /mod        0 2A set-token 
' u/mod       0 2B set-token
' negate      0 2C set-token 
' abs         0 2D set-token 
' min         0 2E set-token 
' max         0 2F set-token 
' >r          0 30 set-token 
' r>          0 31 set-token 
' r@          0 32 set-token 
' exit        0 33 set-token 
' 0=          0 34 set-token 
' 0<>         0 35 set-token 
' 0<          0 36 set-token 
' 0<=         0 37 set-token 
' 0>          0 38 set-token 
' 0>=         0 39 set-token 
' <           0 3A set-token
' >           0 3B set-token
' =           0 3C set-token
' <>          0 3D set-token
' u>          0 3E set-token
' u<=         0 3F set-token 
' u<          0 40 set-token 
' u>=         0 41 set-token 
' >=          0 42 set-token 
' <=          0 43 set-token 
' between     0 44 set-token 
' within      0 45 set-token 
' DROP        0 46 set-token
' DUP         0 47 set-token
' OVER        0 48 set-token
' SWAP        0 49 set-token
' ROT         0 4A set-token
' -ROT        0 4B set-token
' TUCK        0 4C set-token
' nip         0 4D set-token 
' pick        0 4E set-token 
' roll        0 4F set-token 
' ?dup        0 50 set-token 
' depth       0 51 set-token 
' 2drop       0 52 set-token 
' 2dup        0 53 set-token 
' 2over       0 54 set-token 
' 2swap       0 55 set-token 
' 2rot        0 56 set-token 
' 2/          0 57 set-token 
' u2/         0 58 set-token 
' 2*          0 59 set-token 
' /c          0 5A set-token
' /w          0 5B set-token 
' /l          0 5C set-token 
' /n          0 5D set-token 
' ca+         0 5E set-token 
' wa+         0 5F set-token 
' la+         0 60 set-token 
' na+         0 61 set-token 
' char+       0 62 set-token 
' wa1+        0 63 set-token 
' la1+        0 64 set-token 
' cell+       0 65 set-token 
' chars       0 66 set-token 
' /w*         0 67 set-token 
' /l*         0 68 set-token 
' cells       0 69 set-token 
' on          0 6A set-token 
' off         0 6B set-token 
' +!          0 6C set-token 
' @           0 6D set-token 
' fc-l@       0 6E set-token 
' fc-w@       0 6F set-token 
' fc-<w@      0 70 set-token 
' fc-c@       0 71 set-token 
' !           0 72 set-token 
' fc-l!       0 73 set-token 
' fc-w!       0 74 set-token 
' fc-c!       0 75 set-token 
' 2@          0 76 set-token 
' 2!          0 77 set-token 
' fc-move     0 78 set-token 
' fc-fill     0 79 set-token 
' comp        0 7A set-token 
' noop        0 7B set-token
' lwsplit     0 7C set-token 
' wljoin      0 7D set-token 
' lbsplit     0 7E set-token 
' bljoin      0 7F set-token 
' wbflip      0 80 set-token 
' upc         0 81 set-token 
' lcc         0 82 set-token 
' pack        0 83 set-token 
' count       0 84 set-token 
' body>       0 85 set-token 
' >body       0 86 set-token 
' fcode-revision 0 87 set-token 
' span        0 88 set-token 
' unloop      0 89 set-token 
' expect      0 8A set-token 
' alloc-mem   0 8B set-token
' free-mem    0 8C set-token
' key?        0 8D set-token 
' key         0 8E set-token 
' emit        0 8F set-token 
' type        0 90 set-token 
' (cr         0 91 set-token
' cr          0 92 set-token 
' #out        0 93 set-token
' #line       0 94 set-token
' hold        0 95 set-token 
' <#          0 96 set-token 
' u#>         0 97 set-token 
' sign        0 98 set-token 
' u#          0 99 set-token 
' u#s         0 9A set-token 
' u.          0 9B set-token 
' u.r         0 9C set-token 
' .           0 9D set-token 
' .r          0 9E set-token 
' .s          0 9F set-token 
' base        0 A0 set-token 
' $number     0 A2 set-token 
' digit       0 A3 set-token 
' -1          0 A4 set-token
'  0          0 A5 set-token
'  1          0 A6 set-token
'  2          0 A7 set-token
'  3          0 A8 set-token
' bl          0 A9 set-token
' bs          0 AA set-token 
' bell        0 AB set-token 
' bounds      0 AC set-token 
' here        0 AD set-token 
' aligned     0 AE set-token 
' wbsplit     0 AF set-token 
' bwjoin      0 B0 set-token 
' b(<mark)    1 B1 set-token
' b(>resolve) 1 B2 set-token
' new-token   0 B5 set-token 
' named-token 0 B6 set-token
' b(:)        1 B7 set-token
' b(value)    1 B8 set-token 
' b(variable) 1 B9 set-token 
' b(constant) 1 BA set-token 
' b(create)   1 BB set-token 
' b(defer)    1 BC set-token 
' b(buffer:)  1 BD set-token 
' b(field)    1 BE set-token 
' fc-instance 1 C0 set-token 
' b(;)        1 C2 set-token
' b(to)       1 C3 set-token 
' b(case)     1 C4 set-token
' b(endcase)  1 C5 set-token
' b(endof)    1 C6 set-token
' #           0 C7 set-token
' #s          0 C8 set-token
' #>          0 C9 set-token
' external-token 0 CA set-token 
' $find       0 CB set-token
' offset16    0 CC set-token 
' evaluate    0 CD set-token
' c,          0  D0 set-token
' w,          0  D1 set-token
' l,          0  D2 set-token
' ,           0  D3 set-token
' um*         0  D4 set-token
' um/mod      0  D5 set-token
' d+          0  D8 set-token
' d-          0  D9 set-token
' get-token   0  DA set-token 
' set-token   0  DB set-token 
' state       0  DC set-token  \ possibly broken
' compile,    0  DD set-token
' behavior    0  DE set-token 
' start0            0  F0 set-token
' start1            0  F1 set-token
' start2            0  F2 set-token
' start4            0  F3 set-token
' ferror            0  FC set-token
' version1          0  FD set-token
' end1              0  FF set-token
' dma-alloc         0 101 set-token    \ Obsolete
' my-address        0 102 set-token 
' my-space          0 103 set-token
' free-virtual      0 105 set-token
' my-params         0 10f set-token    \ Obsolete
' property          0 110 set-token
' encode-int        0 111 set-token
' encode+           0 112 set-token
' encode-phys       0 113 set-token
' encode-string     0 114 set-token
' encode-bytes      0 115 set-token
' reg               0 116 set-token
' intr              0 117 set-token    \ Obsolete
' driver            0 118 set-token    \ Obsolete
' model             0 119 set-token
' device-type       0 11A set-token
' parse-2int        0 11B set-token
' is-install        0 11C set-token    \ for framebuffer code
' is-remove         0 11D set-token    \ for framebuffer code
' is-selftest       0 11E set-token    \ for framebuffer code
' new-device        0 11F set-token
' diagnostic-mode?  0 120 set-token
' display-status    0 121 set-token    \ Maybe obsolete
' memory-test-suite 0 122 set-token
' group-code        0 123 set-token    \ Obsolete
' mask              0 124 set-token
' get-msecs         0 125 set-token
' ms                0 126 set-token
' finish-device     0 127 set-token
' decode-phys       0 128 set-token
' interpose         0 12B set-token    \ Recommended practice: Interposition
' map-low           0 130 set-token
' sbus-intr>cpu     0 131 set-token    \ Obsolete
' #lines            0 150 set-token
' #columns          0 151 set-token
' line#             0 152 set-token
' column#           0 153 set-token
' inverse?          0 154 set-token
' inverse-screen?   0 155 set-token
' draw-character    0 157 set-token
' reset-screen      0 158 set-token
' toggle-cursor     0 159 set-token
' erase-screen      0 15A set-token
' blink-screen      0 15B set-token
' invert-screen     0 15C set-token
' insert-characters 0 15D set-token
' delete-characters 0 15E set-token
' insert-lines      0 15F set-token
' delete-lines      0 160 set-token
' draw-logo         0 161 set-token
' frame-buffer-adr  0 162 set-token
' screen-height     0 163 set-token
' screen-width      0 164 set-token
' window-top        0 165 set-token
' window-left       0 166 set-token
' default-font      0 16A set-token
' set-font          0 16B set-token
' char-height       0 16C set-token
' char-width        0 16D set-token
' >font             0 16E set-token
' fontbytes         0 16F set-token
' fb8-draw-character 0 180 set-token
' fb8-reset-screen   0 181 set-token
' fb8-toggle-cursor  0 182 set-token
' fb8-erase-screen   0 183 set-token
' fb8-blink-screen   0 184 set-token
' fb8-invert-screen  0 185 set-token
' fb8-insert-characters 0 186 set-token
' fb8-delete-characters 0 187 set-token
' fb8-insert-lines   0 188 set-token
' fb8-delete-lines   0 189 set-token
' fb8-draw-logo      0 18A set-token
' fb8-install        0 18B set-token
' mac-address       0 1A4 set-token
' device-name       0 201 set-token
' my-args           0 202 set-token
' my-self           0 203 set-token
' find-package      0 204 set-token
' open-package      0 205 set-token
' close-package     0 206 set-token
' find-method       0 207 set-token
' call-package      0 208 set-token
' $call-parent      0 209 set-token
' my-parent         0 20A set-token
' ihandle>phandle   0 20B set-token
' my-unit           0 20D set-token
' $call-method      0 20E set-token
' $open-package     0 20F set-token
' processor-type    0 210 set-token       \ Obsolete
' firmware-version  0 211 set-token       \ Obsolete
' fcode-version     0 212 set-token       \ Obsolete
' (is-user-word)    0 214 set-token
' suspend-fcode     0 215 set-token
' fc-abort          0 216 set-token
' catch             0 217 set-token
' throw             0 218 set-token
' get-my-property   0 21A set-token
' decode-int        0 21B set-token
' decode-string     0 21C set-token
' get-inherited-property 0 21D set-token  
' delete-property   0 21E set-token  
' get-package-property 0 21F set-token
' cpeek             0 220 set-token 
' wpeek             0 221 set-token 
' lpeek             0 222 set-token 
' cpoke             0 223 set-token 
' wpoke             0 224 set-token 
' lpoke             0 225 set-token 
' lwflip            0 226 set-token 
' lbflip            0 227 set-token 
' lbflips           0 228 set-token
' rb@               0 230 set-token
' rb!               0 231 set-token
fc-set-normal-mmio-tokens                 \ Set rw@, rw!, rl@, rl!, rx@ and rx!
' wbflips           0 236 set-token 
' lwflips           0 237 set-token 
' child             0 23B set-token
' peer              0 23C set-token
' next-property     0 23D set-token
' byte-load         0 23E set-token
' set-args          0 23F set-token
' left-parse-string 0 240 set-token
' bxjoin            0 241 set-token
' fc-<l@            0 242 set-token
' lxjoin            0 243 set-token
' wxjoin            0 244 set-token
' x,                0 245 set-token
' fc-x@             0 246 set-token
' fc-x!             0 247 set-token
' /x                0 248 set-token
' /x*               0 249 set-token
' xa+               0 24A set-token
' xa1+              0 24B set-token
' xbflip            0 24C set-token
' xbflips           0 24D set-token
' xbsplit           0 24E set-token
' xlflip            0 24F set-token
' xlflips           0 250 set-token
' xlsplit           0 251 set-token
' xwflip            0 252 set-token
' xwflips           0 253 set-token
' xwsplit           0 254 set-token
80 cells CONSTANT LOCALS-STACK-SIZE
LOCALS-STACK-SIZE BUFFER: localsstackbuf
localsstackbuf VALUE localsstack
: fc-local@  ( n -- val )
cells localsstack swap - @
;
: fc-local-1-@  1 fc-local@ ;
: fc-local-2-@  2 fc-local@ ;
: fc-local-3-@  3 fc-local@ ;
: fc-local-4-@  4 fc-local@ ;
: fc-local-5-@  5 fc-local@ ;
: fc-local-6-@  6 fc-local@ ;
: fc-local-7-@  7 fc-local@ ;
: fc-local-8-@  8 fc-local@ ;
: fc-local!  ( val n -- )
cells localsstack swap - !
;
: fc-local-1-!  1 fc-local! ;
: fc-local-2-!  2 fc-local! ;
: fc-local-3-!  3 fc-local! ;
: fc-local-4-!  4 fc-local! ;
: fc-local-5-!  5 fc-local! ;
: fc-local-6-!  6 fc-local! ;
: fc-local-7-!  7 fc-local! ;
: fc-local-8-!  8 fc-local! ;
0 VALUE uses-locals?
: (fc-push-locals)  ( ... n -- )
8 cells localsstack + TO localsstack
localsstack localsstackbuf -
LOCALS-STACK-SIZE > ABORT" Locals stack exceeded!"
?dup IF
( ... n ) 1 swap DO
i fc-local!              \ Store pre-initialized locals
-1 +LOOP
THEN
;
: fc-push-locals  ( n -- )
uses-locals? ABORT" Definition pushes locals multiple times!"
true TO uses-locals?
( n ) ['] literal execute
['] (fc-push-locals) compile,
;
: fc-push-0-locals  0 fc-push-locals ;
: fc-push-1-locals  1 fc-push-locals ;
: fc-push-2-locals  2 fc-push-locals ;
: fc-push-3-locals  3 fc-push-locals ;
: fc-push-4-locals  4 fc-push-locals ;
: fc-push-5-locals  5 fc-push-locals ;
: fc-push-6-locals  6 fc-push-locals ;
: fc-push-7-locals  7 fc-push-locals ;
: fc-push-8-locals  8 fc-push-locals ;
: fc-pop-locals  ( -- )
localsstack 8 cells - TO localsstack
localsstack localsstackbuf - 0 < ABORT" Locals stack undeflow!"
;
: fc-locals-exit
uses-locals? IF
['] fc-pop-locals compile,
THEN
['] exit compile,
;
: fc-locals-b(;)
uses-locals? IF
['] fc-pop-locals compile,
THEN
false TO uses-locals?
['] b(;) execute
;
: fc-set-locals-tokens  ( -- )
['] fc-push-0-locals 1 407 set-token
['] fc-push-1-locals 1 408 set-token
['] fc-push-2-locals 1 409 set-token
['] fc-push-3-locals 1 40a set-token
['] fc-push-4-locals 1 40b set-token
['] fc-push-5-locals 1 40c set-token
['] fc-push-6-locals 1 40d set-token
['] fc-push-7-locals 1 40e set-token
['] fc-push-8-locals 1 40f set-token
['] fc-local-1-@ 0 410 set-token
['] fc-local-2-@ 0 411 set-token
['] fc-local-3-@ 0 412 set-token
['] fc-local-4-@ 0 413 set-token
['] fc-local-5-@ 0 414 set-token
['] fc-local-6-@ 0 415 set-token
['] fc-local-7-@ 0 416 set-token
['] fc-local-8-@ 0 417 set-token
['] fc-local-1-! 0 418 set-token
['] fc-local-2-! 0 419 set-token
['] fc-local-3-! 0 41a set-token
['] fc-local-4-! 0 41b set-token
['] fc-local-5-! 0 41c set-token
['] fc-local-6-! 0 41d set-token
['] fc-local-7-! 0 41e set-token
['] fc-local-8-! 0 41f set-token
['] fc-locals-exit 1 33 set-token
['] fc-locals-b(;) 1 c2 set-token
;
fc-set-locals-tokens
0 value buff
0 value buff-size
' read-fcode# to fcode@
: execute-rom-fcode ( addr len | false -- )
reset-fcode-end
?dup IF
diagnostic-mode? IF ." , executing ..." cr THEN
dup >r r@ alloc-mem dup >r swap rmove
r@ set-ip evaluate-fcode
diagnostic-mode? IF ." Done." cr THEN
r> r> free-mem
THEN
;
: rom-code-ignored  ( image-addr name len -- image-addr )
diagnostic-mode? IF
type ."  code found in image " dup .  ." , ignoring ..." cr
ELSE
2drop
THEN
;
: pci-find-rom ( baseaddr -- addr )
dup IF
dup rw@-le aa55 = IF
diagnostic-mode? IF ." Device ROM header found at " dup . cr THEN
ELSE
drop 0
THEN
THEN
;
: pci-find-fcode ( baseaddr -- addr len | false )
BEGIN
1ff NOT and                       \ Image must start at 512 byte boundary
pci-find-rom dup
WHILE
dup 18 + rw@-le +              ( pcir-addr )
dup rw@-le 4350 ( 'PC' ) <>    ( pcir-addr hasPC? )
over 2+ rw@-le 5249 ( 'IR' ) <> OR IF
diagnostic-mode? IF
." Invalid PCI Data structure, ignoring ROM contents" cr
THEN
drop false EXIT
THEN                           ( pcir-addr )
dup 14 + rb@ CASE              \ Get image code type
0 OF s" Intel x86 BIOS" rom-code-ignored ENDOF
1 OF
diagnostic-mode? IF
." Open Firmware FCode found in image at " dup . cr
THEN
dup 1ff NOT AND          \ Back to the ROM image header
dup 2+ rw@-le +          \ Pointer to FCODE (PCI bus binding ch.9)
swap 10 + rw@-le 200 *   \ Image length
EXIT
ENDOF
2 OF s" HP PA RISC" rom-code-ignored ENDOF
3 OF s" EFI" rom-code-ignored ENDOF
dup OF s" Unknown type" rom-code-ignored ENDOF
ENDCASE
dup 15 + rb@ 80 and IF         \ End of last image?
drop false EXIT
THEN
dup 10 + rw@-le  200 * +       \ Next image start
REPEAT
;
: pci-execute-fcode  ( baseaddr -- )
pci-find-fcode dup 0= IF
2drop EXIT
THEN                                 ( addr len )
fc-set-pci-mmio-tokens               \ Prepare PCI access functions
['] execute-rom-fcode CATCH IF
cr ." FCODE failed!" cr
2drop
THEN
fc-set-normal-mmio-tokens            \ Restore normal MMIO access functions
;
ÿÿÿÿÿÿÿÿ@8default-font.bin(($$~$$~$$*((

*0H00@8DD@"THT"    |(||00  @8DDDDDDDD88DD @x8DD8@@@HH~~@@@xx @@@xDDD8~B   8DDD8DDDD88DDD<D800000000 @ @@ ~~  "$BNRN@@$$$$~BBBB|BBB||BBB|<"`@@@@`"<xDBBBBBBDx~@@@~~@@@~~@@@~~@@@@<B@@@@NBB<BBBB~~BBBB<<$BDHP``PHDB@@@@@@@@@~Bf~ZBBBBBBBbbRRJJFFB$BBBBBB$pHDDHp@@@@$BBBBBJ$pHDDHpPHDB @@ ~~BBBBBBBBB<BBBBB$$$$BBBBBBBZfBBB$$$$BBBB$$~B  B~0        0@  <fB~ 8D<D:@@@@XdDDdX8D@@D8<LDDL<8Dx@D884LDL4D8@@@XdDDDDDH0@@@DHPpHDB08T****jX$$$$v""""XdDdX@@@4LDL4xD@@@@$$8$$$$$DDD((*****DD((D"" < <  $THDDD((ÿÿÿÿÿÿÿÿ! !b0pci-phb.fs0 VALUE phb-debug?
." Populating " pwd cr
: decode-unit ( addr len -- phys.lo ... phys.hi )
2 hex-decode-unit       \ decode string
b lshift swap           \ shift the devicenumber to the right spot
8 lshift or             \ add the functionnumber
0 0 rot                 \ make phys.lo = 0 = phys.mid
;
: encode-unit ( phys.lo phys-mid phys.hi -- unit-str unit-len )
nip nip                     \ forget the phys.lo and phys.mid
dup 8 rshift 7 and swap     \ calculate function number
B rshift 1F and             \ calculate device number
over IF 2 ELSE nip 1 THEN   \ create string with dev#,fn# or dev# only?
hex-encode-unit
;
0 VALUE my-puid
: setup-puid
s" reg" get-node get-property 0= IF
decode-64 to my-puid 2drop
THEN
;
setup-puid
: config-b@  puid >r my-puid TO puid rtas-config-b@ r> TO puid ;
: config-w@  puid >r my-puid TO puid rtas-config-w@ r> TO puid ;
: config-l@  puid >r my-puid TO puid rtas-config-l@ r> TO puid ;
: config-b!  puid >r my-puid TO puid rtas-config-b! r> TO puid ;
: config-w!  puid >r my-puid TO puid rtas-config-w! r> TO puid ;
: config-l!  puid >r my-puid TO puid rtas-config-l! r> TO puid ;
: map-in ( phys.lo phys.mid phys.hi size -- virt )
phb-debug? IF cr ." map-in called: " .s cr THEN
drop nip nip                         ( phys.hi )
dup FF AND dup 10 28 WITHIN NOT swap 30 <> AND IF
cr ." phys.hi = " . cr
ABORT" map-in with illegal config space address"
THEN
00FFFFFF AND                         \ Need only bus-dev-fn+register bits
dup config-l@                        ( phys.hi' bar.lo )
dup 7 AND 4 = IF                     \ Is it a 64-bit BAR?
swap 4 + config-l@ lxjoin         \ Add upper part of 64-bit BAR
ELSE
nip
THEN
F NOT AND                            \ Clear indicator bits
translate-my-address
phb-debug? IF ." map-in done: " .s cr THEN
;
: map-out ( virt size -- )
phb-debug? IF ." map-out called: " .s cr THEN
2drop 
;
: dma-alloc ( size -- virt )
phb-debug? IF cr ." dma-alloc called: " .s cr THEN
fff + fff not and                  \ Align size to next 4k boundary
alloc-mem
dup fff and IF
." Warning: dma-alloc got unaligned memory!" cr
THEN
;
: dma-free ( virt size -- )
phb-debug? IF cr ." dma-free called: " .s cr THEN
fff + fff not and                  \ Align size to next 4k boundary
free-mem
;
0 VALUE dma-window-liobn        \ Logical I/O bus number
0 VALUE dma-window-base         \ Start address of window
0 VALUE dma-window-size         \ Size of the window
0 VALUE bm-handle               \ Bitmap allocator handle
0 VALUE my-virt
0 VALUE my-size
0 VALUE dev-addr
0 VALUE tmp-dev-addr
: (init-dma-window-vars)  ( -- )
s" ibm,dma-window" calling-child get-property IF
s" ibm,dma-window" calling-child parent get-property 
ABORT" no dma-window property available"
THEN
decode-int TO dma-window-liobn
decode-64 TO dma-window-base
decode-64 TO dma-window-size
2drop
bm-handle 0= IF
dma-window-base dma-window-size 1000 bm-allocator-init to bm-handle
dma-window-base 0= IF
bm-handle 1000 bm-alloc drop
THEN
THEN
;
: (clear-dma-window-vars)  ( -- )
0 TO dma-window-liobn
0 TO dma-window-base
0 TO dma-window-size
;
: dma-virt2dev  ( virt -- devaddr )
dma-window-size mod dma-window-base +
;
: dma-map-in  ( virt size cachable? -- devaddr )
phb-debug? IF cr ." dma-map-in called: " .s cr THEN
(init-dma-window-vars)
drop                               ( virt size )
to my-size
to my-virt
bm-handle my-size bm-alloc
to dev-addr
dev-addr 0 < IF
." Bitmap allocation Failed " dev-addr .
FALSE EXIT
THEN
dev-addr to tmp-dev-addr
my-virt my-size
bounds dup >r                      ( v+s virt  R: virt )
swap fff + fff not and             \ Align end to next 4k boundary
swap fff not and                   ( v+s' virt'  R: virt )
?DO
dma-window-liobn                \ liobn
tmp-dev-addr                    \ ioba
i 3 OR                          \ Make a read- & writeable TCE
hv-put-tce ABORT" H_PUT_TCE failed"
tmp-dev-addr 1000 + to tmp-dev-addr
1000 +LOOP
r> drop
my-virt FFF and dev-addr or
(clear-dma-window-vars)
;
: dma-map-out  ( virt devaddr size -- )
phb-debug? IF cr ." dma-map-out called: " .s cr THEN
(init-dma-window-vars)
to my-size
to dev-addr
to my-virt
dev-addr fff not and to dev-addr
dev-addr to tmp-dev-addr
my-virt my-size                    ( virt size )
bounds                             ( v+s virt )
swap fff + fff not and             \ Align end to next 4k boundary
swap fff not and                   ( v+s' virt' )
?DO
dma-window-liobn                \ liobn
tmp-dev-addr                    \ ioba
i                               \ Lowest bits not set => invalid TCE
hv-put-tce ABORT" H_PUT_TCE failed"
tmp-dev-addr 1000 + to tmp-dev-addr
1000 +LOOP
bm-handle dev-addr my-size bm-free
(clear-dma-window-vars)
;
: dma-sync  ( virt devaddr size -- )
phb-debug? IF cr ." dma-sync called: " .s cr THEN
3drop
;
: open  true ;
: close ;
: phb-parse-ranges ( -- )
0  pci-next-io !
0  pci-max-io !
0  pci-next-mem !
0  pci-max-mem !
0  pci-next-mmio !
0  pci-max-mmio !
0  pci-next-mem64 !
0  pci-max-mem64 !
s" ranges" get-node get-property 0<> ABORT" ranges property not found"
BEGIN
dup
WHILE
decode-int                      \ Decode phys.hi
3000000 AND                     \ Filter out address space in phys.hi
CASE
1000000 OF                             \ I/O space?
decode-64 dup >r pci-next-io !      \ Decode PCI base address
decode-64 drop                      \ Forget the parent address
decode-64 r> + pci-max-io !         \ Decode size & calc max address
pci-next-io @ 0= IF
pci-next-io @ 10 + pci-next-io ! \ BARs must not be set to zero
THEN
ENDOF
2000000 OF                             \ 32-bit memory space?
decode-64 pci-next-mem !            \ Decode mem base address
decode-64 drop                      \ Forget the parent address
decode-64 2 / dup >r                \ Decode and calc size/2
pci-next-mem @ + dup pci-max-mem !  \ and calc max mem address
dup pci-next-mmio !                 \ which is the same as MMIO base
r> + pci-max-mmio !                 \ calc max MMIO address
ENDOF
3000000 OF                             \ 64-bit memory space?
decode-64 pci-next-mem64 !
decode-64 drop                      \ Forget the parent address
decode-64 pci-max-mem64 !
ENDOF
ENDCASE
REPEAT
2drop
phb-debug? IF
." pci-next-io   = " pci-next-io @ . cr
." pci-max-io    = " pci-max-io  @ . cr
." pci-next-mem  = " pci-next-mem @ . cr
." pci-max-mem   = " pci-max-mem  @ . cr
." pci-next-mmio = " pci-next-mmio @ . cr
." pci-max-mmio  = " pci-max-mmio @ . cr
." pci-next-mem64  = " pci-next-mem64 @ . cr
." pci-max-mem64   = " pci-max-mem64  @ . cr
THEN
;
: phb-pci-walk-bridge ( -- )
phb-debug? IF ."   Calling pci-walk-bridge " pwd cr THEN
get-node child ?dup 0= IF EXIT THEN    \ get and check if we have children
0 to pci-device-slots                  \ reset slot array to unpoppulated
BEGIN
dup                                \ Continue as long as there are children
WHILE
dup set-node                       \ Set child node as current node
my-space pci-set-slot              \ set the slot bit
my-space pci-htype@                \ read HEADER-Type
7f and                             \ Mask bit 7 - multifunction device
CASE
0 OF my-space pci-device-setup ENDOF  \ | set up the device
1 OF my-space pci-bridge-setup ENDOF  \ | set up the bridge
dup OF my-space [char] ? pci-out ENDOF
ENDCASE
peer
REPEAT drop
get-parent set-node
;
: phb-pci-bridge-probe ( addr -- )
dup pci-bridge-set-bases                      \ Set up all Base Registers
dup func-pci-bridge-range-props               \ Set up temporary "range"
pci-device-vec-len 1+ TO pci-device-vec-len   \ increase the device-slot vector depth
pci-enable                                    \ enable mem/IO transactions
phb-pci-walk-bridge                           \ and walk the secondary bus
pci-device-vec-len 1- TO pci-device-vec-len   \ decrease the device-slot vector depth
pci-bridge-set-limits                         \ Set up all Limit Registers
;
: phb-pci-device-props ( addr -- )
dup pci-class-name device-name
dup pci-device-assigned-addresses-prop
drop
;
: phb-setup-children
puid >r                          \ Save old value of puid
my-puid TO puid                  \ Set current puid
phb-parse-ranges
1 TO pci-hotplug-enabled
s" qemu,phb-enumerated" get-node get-property 0<> IF
1 0 (probe-pci-host-bridge)
ELSE
2drop
['] phb-pci-bridge-probe TO func-pci-bridge-probe
['] phb-pci-device-props TO func-pci-device-props
phb-pci-walk-bridge          \ PHB device tree is already populated.
THEN
r> TO puid                       \ Restore previous puid
;
phb-setup-children
ÿÿÿÿÿÿÿÿ ð(rtas.fs371 cp
STRUCT
/l field rtas>token
/l field rtas>nargs
/l field rtas>nret
/l field rtas>args0
/l field rtas>args1
/l field rtas>args2
/l field rtas>args3
/l field rtas>args4
/l field rtas>args5
/l field rtas>args6
/l field rtas>args7
/l C * field rtas>args
/l field rtas>bla
CONSTANT /rtas-control-block
CREATE rtas-cb /rtas-control-block allot
rtas-cb /rtas-control-block erase
0 VALUE rtas-base
0 VALUE rtas-size
0 VALUE rtas-entry
0 VALUE rtas-node
372 cp
: find-qemu-rtas ( -- )
" /rtas" find-device get-node to rtas-node
" linux,rtas-base" rtas-node get-package-property IF
device-end EXIT THEN
drop l@ to rtas-base
" linux,rtas-base" delete-property
" rtas-size" rtas-node get-package-property IF
device-end EXIT THEN
drop l@ to rtas-size
" linux,rtas-entry" rtas-node get-package-property IF
rtas-base to rtas-entry
ELSE
drop l@ to rtas-entry
" linux,rtas-entry" delete-property
THEN
0
rtas-base
dup rtas-size +
check-and-patch-sc1
device-end
;
find-qemu-rtas
373 cp
: enter-rtas ( -- )
rtas-cb rtas-base 0 rtas-entry call-c drop
;
: rtas-get-token ( str len -- token | 0 )
rtas-node get-package-property IF 0 ELSE drop l@ THEN
;
: rtas-power-off   ( x y -- status )
[ s" power-off" rtas-get-token ] LITERAL rtas-cb rtas>token l!
2 rtas-cb rtas>nargs l!
1 rtas-cb rtas>nret l!
rtas-cb rtas>args0 l!
rtas-cb rtas>args1 l!
enter-rtas
rtas-cb rtas>args2 l@
;
: power-off  ( -- )  0 0 rtas-power-off ;
: rtas-system-reboot  ( -- status )
[ s" system-reboot" rtas-get-token ] LITERAL rtas-cb rtas>token l!
0 rtas-cb rtas>nargs l!
1 rtas-cb rtas>nret l!
rtas-cb rtas>args0 l!
enter-rtas
rtas-cb rtas>args1 l@
;
: rtas-start-cpu  ( pid loc r3 -- status )
[ s" start-cpu" rtas-get-token ] LITERAL rtas-cb rtas>token l!
3  rtas-cb rtas>nargs l!
1  rtas-cb rtas>nret l!
rtas-cb rtas>args2 l!
rtas-cb rtas>args1 l!
rtas-cb rtas>args0 l!
0 rtas-cb rtas>args3 l!
enter-rtas
rtas-cb rtas>args3 l@
;
: rtas-set-tce-bypass ( unit enable -- )
" ibm,set-tce-bypass" rtas-get-token rtas-cb rtas>token l!
2 rtas-cb rtas>nargs l!
0 rtas-cb rtas>nret l!
rtas-cb rtas>args1 l!
rtas-cb rtas>args0 l!
enter-rtas
;
: rtas-quiesce ( -- )
" quiesce" rtas-get-token rtas-cb rtas>token l!
0 rtas-cb rtas>nargs l!
0 rtas-cb rtas>nret l!
enter-rtas
;
0 value puid
: rtas-do-config-@ ( config-addr size -- value)
[ s" ibm,read-pci-config" rtas-get-token ] LITERAL rtas-cb rtas>token l!
4 rtas-cb rtas>nargs l!
2 rtas-cb rtas>nret l!
( addr size ) rtas-cb rtas>args3 l!
puid rtas-cb rtas>args2 l!
puid 20 rshift rtas-cb rtas>args1 l!
( addr ) rtas-cb rtas>args0 l!
enter-rtas
rtas-cb rtas>args4 l@ dup IF
drop ffffffff
ELSE
drop rtas-cb rtas>args5 l@
THEN
;
: rtas-do-config-! ( value config-addr size )
[ s" ibm,write-pci-config" rtas-get-token ] LITERAL rtas-cb rtas>token l!
5 rtas-cb rtas>nargs l!
1 rtas-cb rtas>nret l!
( value addr size ) rtas-cb rtas>args3 l!
puid rtas-cb rtas>args2 l!
puid 20 rshift rtas-cb rtas>args1 l!
( value addr ) rtas-cb rtas>args0 l!
( value ) rtas-cb rtas>args4 l!
enter-rtas
rtas-cb rtas>args5 l@ dup IF
." RTAS write config err " . cr
ELSE drop THEN
;
: rtas-config-b@ ( config-addr -- value )
1 rtas-do-config-@ ff and
;
: rtas-config-b! ( value config-addr -- )
1 rtas-do-config-!
;
: rtas-config-w@ ( config-addr -- value )
2 rtas-do-config-@ ffff and
;
: rtas-config-w! ( value config-addr -- )
2 rtas-do-config-!
;
: rtas-config-l@ ( config-addr -- value )
4 rtas-do-config-@ ffffffff and
;
: rtas-config-l! ( value config-addr -- )
4 rtas-do-config-!
;
: of-start-cpu rtas-start-cpu ;
' power-off to halt
' rtas-system-reboot to reboot
rtas-node set-node
: open true ;
: close ;
: instantiate-rtas ( adr -- entry )
dup rtas-base swap rtas-size move
dup rtas-entry rtas-base - +
2dup hv-rtas-update dup 0 <> IF
dup -2 <> IF ." HV-RTAS-UPDATE error: " . cr ELSE drop THEN
ELSE
drop
THEN
nip
;
device-end
374 cp
ÿÿÿÿÿÿÿÿp)8pci-device_1234_1111.fs." qemu vga" cr
s" qemu-vga.fs" included
ÿÿÿÿÿÿÿÿ8ñ8pci-device_1013_00b8.fsmy-space pci-device-generic-setup
d# 800 VALUE disp-width
d# 600 VALUE disp-height
d#   8 VALUE disp-depth
10 config-l@ translate-my-address f not AND  VALUE fb-base
-1 VALUE io-base
false VALUE is-installed?
: vga-io-xlate ( port -- addr )
io-base -1 = IF
dup translate-my-address fff not and to io-base
THEN
io-base +
;
: vga-w! ( value port -- )
vga-io-xlate rw!-le
;
: vga-w@ ( port -- value )
vga-io-xlate rw@-le
;
: vga-b! ( value port -- )
vga-io-xlate rb!
;
: vga-b@ ( port -- value )
vga-io-xlate rb@
;
: vga-crt@ ( index -- value )
3d4 vga-b!
3d5 vga-b@
;
: vga-crt! ( value index -- )
3d4 vga-b!
3d5 vga-b!
;
: vga-seq@ ( index -- value )
3c4 vga-b!
3c5 vga-b@
;
: vga-seq! ( value index -- )
3c4 vga-b!
3c5 vga-b!
;
: vga-att@ ( index -- value )
3c0 vga-b!
3c1 vga-b@
;
: vga-att! ( value index -- )
3c0 vga-b!
3c0 vga-b!
;
: vga-gfx@ ( index -- value )
3ce vga-b!
3cf vga-b@
;
: vga-gfx! ( value index -- )
3ce vga-b!
3cf vga-b!
;
: color! ( r g b number -- ) 
3c8 vga-b!
rot 2 >> 3c9 vga-b!
swap 2 >> 3c9 vga-b!
2 >> 3c9 vga-b!
;
: color@ ( number -- r g b ) 
3c8 vga-b!
3c9 vga-b@ 2 <<
3c9 vga-b@ 2 <<
3c9 vga-b@ 2 <<
;
: set-colors ( adr number #numbers -- )
over 3c8 vga-b!
swap DO
rb@ 2 >> 3c9 vga-b!
rb@ 2 >> 3c9 vga-b!
rb@ 2 >> 3c9 vga-b!
LOOP
3drop
;
: get-colors ( adr number #numbers -- )
3drop
;
include graphics.fs
: init-mode
3da vga-b@ drop \ reset flip flop
0f 3c2 vga-b!   \ color mode, ram enable, ...
12 06 vga-seq!  \ unlock extensions
05 06 vga-gfx!  \ graphic mode  
disp-depth CASE \ set depth
8 OF 01 07 vga-seq! ENDOF
f OF 07 07 vga-seq! ENDOF
10 OF 07 07 vga-seq! ENDOF
20 OF 09 07 vga-seq! ENDOF
ENDCASE
ff 02 vga-seq!  \ enable plane write
0a 04 vga-seq!  \ memory mode
03 17 vga-crt!  \ disable display
disp-width disp-depth 7 + 8 / * 3 >>
dup ff and 13 vga-crt!  \ bottom bits
4 >> 10 and 1b vga-crt! \ top bit
disp-width 3 >> 1 -                  01 vga-crt! \ H_DISP
disp-height 1 - ff and               12 vga-crt! \ V_DISP
disp-height 1 - 7 >> 2 and
disp-height 1 - 3 >> 40 and
or 10 or                             07 vga-crt! \ OFLOW
ff 18 vga-crt! \ LINE_COMPARE
40 09 vga-crt! \ MAX_SCAN
08 04 vga-crt! \ SYNC_START
0f 02 vga-crt! \ BLANK_START
00 0c vga-crt!
00 0d vga-crt!
40 05 vga-gfx! \ gfx mode
83 17 vga-crt! \ enable display
33 3c0 vga-b!  \ gfx in ar index
00 3c0 vga-b!
01 01 vga-seq! \ enable seq
;
: clear-screen
fb-base disp-width disp-height disp-depth 7 + 8 / * * 0 rfill
;
: read-settings
s" qemu,graphic-width" get-chosen IF
decode-int to disp-width 2drop
THEN
s" qemu,graphic-height" get-chosen IF
decode-int to disp-height 2drop
THEN
s" qemu,graphic-depth" get-chosen IF
decode-int nip nip     
dup 8 =
over f = or
over 10 = or
over 20 = or IF
to disp-depth
ELSE
." Unsupported bit depth, using 8bpp " drop cr
THEN
THEN
;
: add-legacy-reg
s" reg" get-node get-property IF
encode-start
ELSE
encode-bytes
THEN
my-space a1000000 or encode-int+ \ non-relocatable, aliased I/O space
1ce encode-64+ 4 encode-64+ \ addr size
my-space a1000000 or encode-int+ \ non-relocatable, aliased I/O space
3b0 encode-64+ c encode-64+ \ addr size
my-space a1000000 or encode-int+ \ non-relocatable, aliased I/O space
3c0 encode-64+ 20 encode-64+ \ addr size
my-space a2000000 or encode-int+ \ non-relocatable, <1MB Memory space
a0000 encode-64+ 20000 encode-64+ \ addr size
s" reg" property \ store "reg" property
;
: setup-properties
disp-width encode-int s" width" property
disp-height encode-int s" height" property
disp-width disp-depth 7 + 8 / * encode-int s" linebytes" property
disp-depth encode-int s" depth" property
s" ISO8859-1" encode-string s" character-set" property \ i hope this is ok...
s" display" device-type
;
: display-remove ( -- ) 
;
: display-install ( -- )
is-installed? NOT IF
." Installing QEMU fb" cr
fb-base to frame-buffer-adr
default-font 
set-font
disp-width disp-height
disp-width char-width / disp-height char-height /
disp-depth 7 + 8 /                      ( width height #lines #cols depth )
fb-install
true to is-installed?
THEN
;
: set-alias
s" screen" find-alias 0= IF
s" screen" get-node node>path set-alias
ELSE
drop
THEN 
;
." cirrus vga" cr
pci-master-enable
pci-mem-enable
pci-io-enable
add-legacy-reg
read-settings
init-mode
clear-screen
init-default-palette
setup-properties
' display-install is-install
' display-remove is-remove
set-alias
ÿÿÿÿÿÿÿÿ¸q8pci-device_8086_100e.fss" e1000 [ net ]" type cr
my-space pci-device-generic-setup
pci-io-enable
s" e1k.fs" included
pci-device-disable
ÿÿÿÿÿÿÿÿÕ(e1k.fss" network" device-type
INSTANCE VARIABLE obp-tftp-package
get-node CONSTANT my-phandle
10 config-l@ translate-my-address 3 not AND CONSTANT baseaddr
0 VALUE e1k-priv
0 VALUE open-count
: open  ( -- okay? )
open-count 0= IF
open IF
baseaddr
e1k-open dup not IF ." e1k-open failed" EXIT THEN
drop TO e1k-priv
true
ELSE
false
THEN
ELSE
true
THEN
my-args s" obp-tftp" $open-package obp-tftp-package !
open-count 1 + to open-count
;
: close  ( -- )
my-phandle set-node
open-count 0> IF
open-count 1 - dup to open-count
0= IF
e1k-priv e1k-close
close
THEN
THEN
s" close" obp-tftp-package @ $call-method
;
: read ( buf len -- actual )
dup IF
e1k-read
ELSE  
nip
THEN
;
: write ( buf len -- actual )
dup IF
e1k-write
ELSE
nip
THEN
;
: load  ( addr -- len )
s" load" obp-tftp-package @ $call-method
;
: ping  ( -- )
s" ping" obp-tftp-package @ $call-method
;
6 BUFFER: local-mac
: setup-mac ( -- )
pci-mem-enable
" vendor-id" get-node get-property IF EXIT THEN
decode-int nip nip
" device-id" get-node get-property IF EXIT THEN
decode-int nip nip
baseaddr
local-mac e1k-mac-setup IF
encode-bytes  " local-mac-address"  property
THEN
;
setup-mac
: setup-alias  ( -- )
" net" get-next-alias ?dup IF
get-node node>path set-alias
THEN
;
setup-alias
ÿÿÿÿÿÿÿÿ
°
u0qemu-vga.fsmy-space pci-device-generic-setup
d# 800 VALUE disp-width
d# 600 VALUE disp-height
d#   8 VALUE disp-depth
: map-in  " map-in" my-phandle parent $call-static ;
: map-out  " map-out" my-phandle parent $call-static ;
0 0  my-space h# 02000010 + 1  map-in VALUE fb-base
0 0  my-space h# 02000018 + 1 map-in VALUE reg-base
false VALUE is-installed?
: vga-w! ( value port -- )
3c0 - reg-base 400 + + rw!-le
;
: vga-w@ ( port -- value )
3c0 - reg-base 400 + + rw@-le
;
: vga-b! ( value port -- )
3c0 - reg-base 400 + + rb!
;
: vga-b@ ( port -- value )
3c0 - reg-base 400 + + rb@
;
: vbe!	( value index -- )
1 << reg-base 500 + + rw!-le
;
: vbe@	( index -- value )
1 << reg-base 500 + + rw@-le
;
: color! ( r g b number -- )
3c8 vga-b!
rot 3c9 vga-b!
swap 3c9 vga-b!
3c9 vga-b!
;
: color@ ( number -- r g b )
3c8 vga-b!
3c9 vga-b@
3c9 vga-b@
3c9 vga-b@
;
: set-colors ( adr number #numbers -- )
over 3c8 vga-b!
swap DO
rb@ 3c9 vga-b!
rb@ 3c9 vga-b!
rb@ 3c9 vga-b!
LOOP
3drop
;
: get-colors ( adr number #numbers -- )
3drop
;
include graphics.fs
0 CONSTANT VBE_DISPI_INDEX_ID
1 CONSTANT VBE_DISPI_INDEX_XRES
2 CONSTANT VBE_DISPI_INDEX_YRES
3 CONSTANT VBE_DISPI_INDEX_BPP
4 CONSTANT VBE_DISPI_INDEX_ENABLE
5 CONSTANT VBE_DISPI_INDEX_BANK
6 CONSTANT VBE_DISPI_INDEX_VIRT_WIDTH
7 CONSTANT VBE_DISPI_INDEX_VIRT_HEIGHT
8 CONSTANT VBE_DISPI_INDEX_X_OFFSET
9 CONSTANT VBE_DISPI_INDEX_Y_OFFSET
a CONSTANT VBE_DISPI_INDEX_NB
00 CONSTANT VBE_DISPI_DISABLED
01 CONSTANT VBE_DISPI_ENABLED
02 CONSTANT VBE_DISPI_GETCAPS
20 CONSTANT VBE_DISPI_8BIT_DAC
40 CONSTANT VBE_DISPI_LFB_ENABLED
80 CONSTANT VBE_DISPI_NOCLEARMEM
: init-mode
0 3c0 vga-b!
VBE_DISPI_DISABLED VBE_DISPI_INDEX_ENABLE vbe!
0 VBE_DISPI_INDEX_X_OFFSET vbe!
0 VBE_DISPI_INDEX_Y_OFFSET vbe!
disp-width VBE_DISPI_INDEX_XRES vbe!
disp-height VBE_DISPI_INDEX_YRES vbe!
disp-depth VBE_DISPI_INDEX_BPP vbe!
VBE_DISPI_ENABLED VBE_DISPI_8BIT_DAC or VBE_DISPI_INDEX_ENABLE vbe!
0 3c0 vga-b!
20 3c0 vga-b!
;
: clear-screen
fb-base disp-width disp-height disp-depth 7 + 8 / * * 0 rfill
;
: read-settings
s" qemu,graphic-width" get-chosen IF
decode-int to disp-width 2drop
THEN
s" qemu,graphic-height" get-chosen IF
decode-int to disp-height 2drop
THEN
s" qemu,graphic-depth" get-chosen IF
decode-int nip nip
dup 8 =
over f = or
over 10 = or
over 20 = or IF
to disp-depth
ELSE
." Unsupported bit depth, using 8bpp " drop cr
THEN
THEN
;
: setup-properties
disp-width encode-int s" width" property
disp-height encode-int s" height" property
disp-width disp-depth 7 + 8 / * encode-int s" linebytes" property
disp-depth encode-int s" depth" property
s" ISO8859-1" encode-string s" character-set" property \ i hope this is ok...
s" display" device-type
s" qemu,std-vga" encode-string s" compatible" property
;
: display-remove ( -- )
;
: slow-blink-screen ( -- )
invert-screen 20 ms invert-screen
;
: display-install ( -- )
is-installed? NOT IF
." Installing QEMU fb" cr
fb-base to frame-buffer-adr
clear-screen
default-font
set-font
disp-width disp-height
disp-width char-width / disp-height char-height /
disp-depth 7 + 8 /                      ( width height #lines #cols depth )
fb-install
['] slow-blink-screen to blink-screen
true to is-installed?
THEN
;
: set-alias
s" screen" find-alias 0= IF
s" screen" get-node node>path set-alias
ELSE
drop
THEN
;
pci-master-enable
pci-mem-enable
read-settings
init-mode
init-default-palette
setup-properties
' display-install is-install
' display-remove is-remove
set-alias
ÿÿÿÿÿÿÿÿE0pci-class_02.fss" network [ " type my-space pci-class-name type s"  ]" type
my-space pci-device-generic-setup
my-space pci-alias-net
s" network" device-type
cr
INSTANCE VARIABLE obp-tftp-package
: open  ( -- okay? )
open IF           \ enables PCI mem, io and Bus master and returns TRUE
my-args s" obp-tftp" $open-package obp-tftp-package ! true
ELSE
false
THEN ;
: close  ( -- )
obp-tftp-package @ close-package
close ;         \ disables PCI mem, io and Bus master
: load  ( addr -- len )
s" load" obp-tftp-package @ $call-method  ;
: ping  ( -- )  s" ping" obp-tftp-package @ $call-method  ;
ÿÿÿÿÿÿÿÿ@0pci-class_0c.fss" serial bus [ " type my-space pci-class-name type s"  ]" type cr
my-space pci-device-generic-setup
STRUCT
/n FIELD hcd>base
/n FIELD hcd>type
/n FIELD hcd>num
/n FIELD hcd>ops
/n FIELD hcd>priv
/n FIELD hcd>nextaddr
CONSTANT /hci-dev
: usb-setup-hcidev ( num hci-dev -- )
>r
10 config-l@ F AND case
0 OF 10 config-l@ translate-my-address ENDOF       \ 32-bit memory space
4 OF                                               \ 64-bit memory space
14 config-l@ 20 lshift                         \ Read two bars
10 config-l@ OR translate-my-address
ENDOF
ENDCASE
F not AND
( io-base ) r@ hcd>base !
08 config-l@ 8 rshift  0000000F0 AND 4 rshift
( usb-type ) r@ hcd>type !
( usb-num )  r@ hcd>num !
r> drop
;
: handle-usb-class  ( -- )
4 config-w@ 110 or 4 config-w!
pci-master-enable               \ set PCI Bus master bit and
pci-mem-enable                  \ memory space enable for USB scan
;
: handle-sbc-subclass  ( -- )
my-space pci-class@ ffff and CASE         \ get PCI sub-class and interface
0310 OF                      \ OHCI controller
handle-usb-class
set-ohci-alias
ENDOF
0320 OF                      \ EHCI controller
handle-usb-class
set-ehci-alias
ENDOF
0330 OF                      \ XHCI controller
handle-usb-class
set-xhci-alias
ENDOF
ENDCASE
;
handle-sbc-subclass
ÿÿÿÿÿÿÿÿ[0dev-hci.fsVALUE usb_type \ USB type
device-type
" usb" 2dup device-name
rot
VALUE usb_num                           \ controller number
usb_num $cathex strdup			\ create alias name
2dup find-alias 0= IF
get-node node>path set-alias
ELSE 3drop THEN
/hci-dev BUFFER: hcidev
usb_num hcidev usb-setup-hcidev
TRUE VALUE first-time-init?
0 VALUE open-count
false VALUE dev-hci-debug?
1 encode-int s" #address-cells" property
0 encode-int s" #size-cells" property
: encode-unit ( port -- unit-str unit-len ) 1 hex-encode-unit ;
: decode-unit ( addr len -- port ) 1 hex-decode-unit ;
: get-hci-dev ( -- hcidev )
hcidev
;
: hc-cleanup ( -- )
my-phandle set-node
dev-hci-debug? IF ." USB-HCI: Cleaning up " pwd cr THEN
hcidev USB-HCD-EXIT
0 set-node
;
: open   ( -- true | false )
true
;
: close
;
first-time-init? IF
['] hc-cleanup add-quiesce-xt
false to first-time-init?
THEN
ÿÿÿÿÿÿÿÿè¯0slofdev.fsSTRUCT
/n FIELD slof-dev>udev
/l FIELD slof-dev>port
/l FIELD slof-dev>devaddr
/l FIELD slof-dev>hcitype
/l FIELD slof-dev>num
/l FIELD slof-dev>devtype
CONSTANT slof-usb-dev
ÿÿÿÿÿÿÿÿ:8dev-parent-calls.fsget-node CONSTANT my-phandle
s" dma-function.fs" included
ÿÿÿÿÿÿÿÿp10dev-keyb.fsnew-device
VALUE sudev
false VALUE usb-keyb-debug?
s" slofdev.fs" included
sudev slof-dev>port l@ dup set-unit encode-phys " reg" property
sudev slof-dev>udev @ VALUE udev
s" usb-keyboard" device-name
s" keyboard" device-type
s" EN" encode-string s" language" property
s" keyboard" get-node node>path set-alias
s" dev-parent-calls.fs" included
0 VALUE open-count
: open   ( -- true | false )
usb-keyb-debug? IF ." USB-KEYB: Opening (count is " open-count . ." )" cr THEN
open-count 0= IF
udev USB-HID-INIT 0= IF
." USB keyboard setup failed " pwd cr false EXIT
THEN
THEN
open-count 1 + to open-count
true
;
: close
usb-keyb-debug? IF ." USB-KEYB: Closing (count is " open-count . ." )" cr THEN
open-count 0> IF
open-count 1 - dup to open-count
0= IF
my-phandle set-node
udev USB-HID-EXIT drop
0 set-node
THEN
THEN
;
: key-available? ( -- true|false )
udev USB-KEY-AVAILABLE IF TRUE ELSE FALSE THEN
;
: read                     ( addr len -- actual )
0= IF drop 0 EXIT THEN
udev USB-READ-KEYB ?dup IF swap c! 1 ELSE 0 swap c! 0 then
;
."     USB Keyboard " cr
finish-device
ÿÿÿÿÿÿÿÿÎ0dev-mouse.fsnew-device
VALUE sudev
s" slofdev.fs" included
sudev slof-dev>port l@ dup set-unit encode-phys " reg" property
sudev slof-dev>udev @ VALUE udev
s" usb-mouse" device-name
."     USB mouse " cr
finish-device
ÿÿÿÿÿÿÿÿà¨0dev-storage.fsnew-device
VALUE usbdev
s" slofdev.fs" included
false VALUE usb-disk-debug?
usbdev slof-dev>port l@ dup set-unit encode-phys " reg" property
s" storage" device-name
s" dev-parent-calls.fs" included
2 encode-int s" #address-cells" property
0 encode-int s" #size-cells" property
: decode-unit 2 hex64-decode-unit ;
: encode-unit 2 hex64-encode-unit ;
0 CONSTANT USB_PIPE_OUT
1 CONSTANT USB_PIPE_IN
usbdev slof-dev>udev @ VALUE udev
usbdev slof-dev>port l@ VALUE port
usbdev slof-dev>hcitype l@ VALUE hcitype
0 INSTANCE VALUE lun
10000 VALUE dev-max-transfer
0     VALUE resp-buffer
0     VALUE resp-size
0f CONSTANT SCSI-COMMAND-OFFSET
STRUCT
dev-max-transfer FIELD usb>data
40 FIELD usb>cmd
20 FIELD usb>csw
CONSTANT /dma-buf
0 VALUE dma-buf
0 VALUE dma-buf-phys
0 VALUE td-buf
0 VALUE td-buf-phys
1000 CONSTANT /td-buf
: (dma-buf-init)  ( -- )
/dma-buf dma-alloc TO dma-buf
dma-buf /dma-buf 0 dma-map-in TO dma-buf-phys
/td-buf dma-alloc TO td-buf
td-buf /td-buf 0 dma-map-in TO td-buf-phys
;
: (dma-buf-free)  ( -- )
td-buf td-buf-phys /td-buf dma-map-out
td-buf /td-buf dma-free
0 TO td-buf
0 TO td-buf-phys
dma-buf dma-buf-phys /dma-buf dma-map-out
dma-buf /dma-buf dma-free
0 TO dma-buf
0 TO dma-buf-phys
;
scsi-open
0 INSTANCE VALUE current-target
: do-bulk-command ( resp-buffer resp-size -- TRUE | FALSE )
TO resp-size
TO resp-buffer
udev USB_PIPE_OUT td-buf td-buf-phys dma-buf-phys usb>cmd 1F
usb-transfer-bulk IF \ transfer CBW
resp-size IF
d# 125 us
udev USB_PIPE_IN td-buf td-buf-phys resp-buffer resp-size
usb-transfer-bulk 1 = not IF \ transfer data
usb-disk-debug?	IF ." Data phase failed " cr THEN
THEN
THEN
d# 125 us
udev USB_PIPE_IN td-buf td-buf-phys dma-buf-phys usb>csw 0D
usb-transfer-bulk \ transfer CSW
ELSE
FALSE EXIT
THEN
;
STRUCT \ cbw
/l FIELD cbw>sig
/l FIELD cbw>tag
/l FIELD cbw>len
/c FIELD cbw>flags
/c FIELD cbw>lun     \ 0:3 bits
/c FIELD cbw>cblen   \ 0:4 bits
CONSTANT cbw-length
STRUCT \ csw
/l FIELD csw>sig
/l FIELD csw>tag
/l FIELD csw>data-residue
/c FIELD csw>status
CONSTANT cbw-length
0 VALUE cbw-addr
0 VALUE csw-addr
: build-cbw ( tag xfer-len dir lun cmd-len addr -- )
TO cbw-addr               ( tag xfer-len dir lun cmd-len )
cbw-addr cbw-length erase ( tag xfer-len dir lun cmd-len )
cbw-addr cbw>cblen c!     ( tag xfer-len dir lun )
cbw-addr cbw>lun c!       ( tag xfer-len dir )
IF 80 ELSE 0 THEN
cbw-addr cbw>flags c!     ( tag xfer-len )
cbw-addr cbw>len l!-le    ( tag )
cbw-addr cbw>tag l!-le    ( )
43425355 cbw-addr cbw>sig l!-le
;
0 INSTANCE VALUE usb-buf-addr
0 INSTANCE VALUE usb-buf-len
0 INSTANCE VALUE usb-dir
0 INSTANCE VALUE usb-cmd-addr
0 INSTANCE VALUE usb-cmd-len
1 VALUE tag
: execute-scsi-command ( buf-addr buf-len dir cmd-addr cmd-len -- ... )
to usb-cmd-len to usb-cmd-addr to usb-dir to usb-buf-len to usb-buf-addr
dma-buf usb>cmd 40 0 fill
dma-buf usb>csw 20 0 fill
tag usb-buf-len usb-dir lun usb-cmd-len dma-buf usb>cmd
build-cbw
1 tag + to tag
usb-cmd-addr
dma-buf usb>cmd SCSI-COMMAND-OFFSET +
usb-cmd-len
move
dma-buf-phys usb>data usb-buf-len
do-bulk-command IF
dma-buf usb>data usb-buf-addr usb-buf-len move
ELSE
." USB-DISK: Bulk commad failed!" cr
0 0 -1 EXIT
THEN
dma-buf usb>csw to csw-addr
csw-addr csw>sig l@ 55534253 <> IF
." USB-DISK: CSW signature invalid " cr
0 0 -1 EXIT
THEN
csw-addr csw>status c@ CASE
0 OF ENDOF			\ Good
1 OF
usb-disk-debug? IF
." USB-DISK: CSW Data residue: "
csw-addr csw>data-residue l@-le . cr
THEN
0 0 8 EXIT ENDOF	\ Command failed, Retry
dup OF 0 0 -1 EXIT ENDOF	\ Anything else -> HW error
ENDCASE
csw-addr csw>status c@ dup 0<> IF
usb-disk-debug? IF
over scsi-get-sense-data
." USB-DISK: Sense key [ " dup . ." ] " .sense-text
."  ASC,ASCQ: " . . cr
THEN
rot
THEN
;
" scsi-host-helpers.fs" included
0 VALUE open-count
: usb-storage-init  (  -- TRUE )
td-buf 0= IF
usb-disk-debug? IF ." USB-DISK: Allocating buffer "  cr THEN
(dma-buf-init)
udev USB-MSC-INIT 0= IF
." USB-DISK: Unable to initialize MSC " cr
FALSE
ELSE
TRUE
THEN
THEN
;
: usb-storage-cleanup
td-buf 0<> IF
usb-disk-debug? IF ." USB-DISK: Freeing buffer " cr THEN
(dma-buf-free)
udev USB-MSC-EXIT 0= IF ." USB-DISK: Unable to exit MSC " cr THEN
THEN
;
: open
usb-disk-debug? IF ." USB-DISK: Opening (count is " open-count . ." )" cr THEN
open-count 0= IF
usb-storage-init IF
1 to open-count true
ELSE ." USB-DISK initialization failed !" cr false THEN
ELSE
open-count 1 + to open-count
true
THEN
;
: close
usb-disk-debug? IF ." USB-DISK: Closing (count is " open-count . ." )" cr THEN
open-count 0> IF
open-count 1 - dup to open-count
0= IF
usb-storage-cleanup
THEN
THEN
;
: (set-target)
dup 20 >> FFFF and to lun
dup 30 >> FF and to port
to current-target
usb-disk-debug? IF ." USB-DISK: udev " udev . ." lun:" lun . ." port:" port . cr THEN
;
: dev-generate-srplun ( target lun-id -- srplun )
swap drop port 0100 or 10 << or 20 <<
;
: max-transfer ( -- n )
dev-max-transfer
;
: set-address ( srplun.lo srplun.hi -- )
lxjoin (set-target)
usb-disk-debug? IF ." USB-DISK: udev " udev . ." lun:" lun . ." port:" port . cr THEN
;
1 CONSTANT #target
: dev-max-target ( -- #target )
#target
;
" scsi-probe-helpers.fs" included
scsi-close        \ no further scsi words required
: setup-alias
s" scsi" find-alias 0= IF
s" scsi" get-node node>path set-alias
ELSE
drop
THEN
;
: usb-storage-init-and-scan ( -- )
usb-disk-debug? IF ." Initializing usb-disk: udev " udev . cr THEN
0 0 get-node open-node ?dup 0= IF EXIT THEN
my-self >r
dup to my-self
hcitype
CASE
1 OF 4000 TO dev-max-transfer ENDOF \ OHCI
2 OF 10000 TO dev-max-transfer ENDOF \ EHCI
3 OF F000 TO dev-max-transfer ENDOF \ XHCI
ENDCASE
usb-storage-init
scsi-find-disks
setup-alias
usb-storage-cleanup
close-node
r> to my-self
;
."     USB Storage " cr
: usb-scsi-add-disk
" scsi-disk.fs" included
;
usb-scsi-add-disk
usb-storage-init-and-scan
finish-device
ÿÿÿÿÿÿÿÿ8ú0dev-hub.fsnew-device
VALUE sudev
s" slofdev.fs" included
sudev slof-dev>port l@ dup set-unit encode-phys " reg" property
sudev slof-dev>udev @ VALUE udev
s" hub" device-name
s" dev-parent-calls.fs" included
1 encode-int s" #address-cells" property
0 encode-int s" #size-cells" property
: decode-unit  1 hex-decode-unit ;
: encode-unit  1 hex-encode-unit ;
: usb-hub-init ( usbdev -- true | false )
udev USB-HUB-INIT
;
: open   ( -- true | false )
TRUE
;
: close
;
."     USB HUB " cr
usb-hub-init drop
finish-device
ÿÿÿÿÿÿÿÿÀy8pci-device_1af4_1000.fss" virtio [ net ]" type cr
my-space pci-device-generic-setup
pci-io-enable
s" virtio-net.fs" included
pci-device-disable
ÿÿÿÿÿÿÿÿh%8pci-device_1af4_1041.fss" pci-device_1af4_1000.fs" included
ÿÿÿÿÿÿÿÿà8pci-device_1af4_1001.fss" virtio [ block ]" type cr
my-space pci-device-generic-setup
pci-master-enable
pci-mem-enable
pci-io-enable
s" virtio-block.fs" included
pci-device-disable
ÿÿÿÿÿÿÿÿh%8pci-device_1af4_1042.fss" pci-device_1af4_1001.fs" included
ÿÿÿÿÿÿÿÿà 8pci-device_1af4_1003.fss" virtio [ serial ]" type cr
my-space pci-device-generic-setup
pci-master-enable
pci-mem-enable
pci-io-enable
s" virtio-serial.fs" included
pci-device-disable
ÿÿÿÿÿÿÿÿh%8pci-device_1af4_1043.fss" pci-device_1af4_1003.fs" included
ÿÿÿÿÿÿÿÿà8pci-device_1af4_1004.fss" virtio [ scsi ]" type cr
my-space pci-device-generic-setup
pci-master-enable
pci-mem-enable
pci-io-enable
s" virtio-scsi.fs" included
pci-device-disable
ÿÿÿÿÿÿÿÿh%8pci-device_1af4_1048.fss" pci-device_1af4_1004.fs" included
ÿÿÿÿÿÿÿÿø·8pci-device_1af4_1009.fss" virtio [ network ]" type cr
my-space pci-device-generic-setup
s" virtio-9p" device-name
pci-master-enable
pci-mem-enable
pci-io-enable
s" virtio-fs.fs" included
pci-device-disable
ÿÿÿÿÿÿÿÿh%8pci-device_1af4_1049.fss" pci-device_1af4_1009.fs" included
ÿÿÿÿÿÿÿÿx48pci-device_1af4_1050.fss" virtio [ vga ]" type cr
s" qemu-vga.fs" included
ÿÿÿÿÿÿÿÿ°x0vio-hvterm.fs." Populating " pwd cr
: open true ;
: close ;
: write ( adr len -- actual )
tuck
0 ?DO
dup c@ my-unit SWAP hv-putchar
1 +
LOOP
drop
;
: read  ( adr len -- actual )
0= IF drop 0 EXIT THEN
my-unit hv-haschar 0= IF 0 swap c! -2 EXIT THEN
my-unit hv-getchar swap c! 1
;
: setup-alias
" hvterm" find-alias 0= IF
" hvterm" get-node node>path set-alias
ELSE
drop
THEN
;
setup-alias
ÿÿÿÿÿÿÿÿ Î0vio-vscsi.fs." Populating " pwd
false VALUE vscsi-debug?
0 VALUE vscsi-unit
: l2dma ( laddr - dma_addr)      
;
0    VALUE     crq-real-base
0    VALUE     crq-base
0    VALUE     crq-dma
0    VALUE     crq-offset
1000 CONSTANT  CRQ-SIZE
CREATE crq 10 allot
: crq-alloc ( -- )
CRQ-SIZE fff + alloc-mem to crq-real-base
crq-real-base fff + fffff000 AND to crq-base 0 to crq-offset
crq-base l2dma to crq-dma
;
: crq-free ( -- )
vscsi-unit hv-free-crq
crq-real-base CRQ-SIZE fff + free-mem 0 to crq-base 0 to crq-real-base
;
: crq-init ( -- res )
crq-alloc
vscsi-debug? IF
." VSCSI: allocated crq at " crq-base . cr
THEN
crq-base CRQ-SIZE erase
vscsi-unit crq-dma CRQ-SIZE hv-reg-crq
dup 0 <> IF
." VSCSI: Error " . ."  registering CRQ !" cr
crq-free
THEN
;
: crq-cleanup ( -- )
crq-base 0 = IF EXIT THEN
vscsi-debug? IF
." VSCSI: freeing crq at " crq-base . cr
THEN
crq-free
;
: crq-send ( msgaddr -- true | false )
vscsi-unit swap hv-send-crq 0 =
;
: crq-poll ( -- true | false)
crq-offset crq-base + dup
vscsi-debug? IF
." VSCSI: crq poll " dup .
THEN
c@
vscsi-debug? IF
."  value=" dup . cr
THEN
80 and 0 <> IF
dup crq 10 move
0 swap c!
crq-offset 10 + dup CRQ-SIZE >= IF drop 0 THEN to crq-offset
true
ELSE drop false THEN
;
: crq-wait ( -- true | false)
0 BEGIN drop crq-poll dup not WHILE d# 1 ms REPEAT
dup not IF
." VSCSI: Timeout waiting response !" cr EXIT
ELSE
vscsi-debug? IF
." VSCSI: got crq: " crq dup l@ . ."  " 4 + dup l@ . ."  "
4 + dup l@ . ."  " 4 + l@ . cr
THEN
THEN
;
01 CONSTANT VIOSRP_SRP_FORMAT
02 CONSTANT VIOSRP_MAD_FORMAT
03 CONSTANT VIOSRP_OS400_FORMAT
04 CONSTANT VIOSRP_AIX_FORMAT
06 CONSTANT VIOSRP_LINUX_FORMAT
07 CONSTANT VIOSRP_INLINE_FORMAT
struct
1 field >crq-valid
1 field >crq-format
1 field >crq-reserved
1 field >crq-status
2 field >crq-timeout
2 field >crq-iu-len
8 field >crq-iu-data-ptr
constant /crq
: srp-send-crq ( addr len -- )
80                crq >crq-valid c!
VIOSRP_SRP_FORMAT crq >crq-format c!
0                 crq >crq-reserved c!
0                 crq >crq-status c!
0                 crq >crq-timeout w!
( len )           crq >crq-iu-len w!
( addr ) l2dma    crq >crq-iu-data-ptr x!
crq crq-send
not IF
." VSCSI: Error sending CRQ !" cr
THEN
;
: srp-wait-crq ( -- [tag true] | false )
crq-wait not IF false EXIT THEN
crq >crq-format c@ VIOSRP_SRP_FORMAT <> IF
." VSCSI: Unsupported SRP response: "
crq >crq-format c@ . cr
false EXIT
THEN
crq >crq-iu-data-ptr x@ true
;
scsi-open
0 VALUE >srp_opcode
00 CONSTANT SRP_LOGIN_REQ
01 CONSTANT SRP_TSK_MGMT
02 CONSTANT SRP_CMD
03 CONSTANT SRP_I_LOGOUT
c0 CONSTANT SRP_LOGIN_RSP
c1 CONSTANT SRP_RSP
c2 CONSTANT SRP_LOGIN_REJ
80 CONSTANT SRP_T_LOGOUT
81 CONSTANT SRP_CRED_REQ
82 CONSTANT SRP_AER_REQ
41 CONSTANT SRP_CRED_RSP
42 CONSTANT SRP_AER_RSP
02 CONSTANT SRP_BUF_FORMAT_DIRECT
04 CONSTANT SRP_BUF_FORMAT_INDIRECT
struct
1 field >srp-login-opcode
3 +
8 field >srp-login-tag
4 field >srp-login-req-it-iu-len
4 +
2 field >srp-login-req-buf-fmt
1 field >srp-login-req-flags
5 +
10 field >srp-login-init-port-ids
10 field >srp-login-trgt-port-ids
constant /srp-login
struct
1 field >srp-lresp-opcode
3 +
4 field >srp-lresp-req-lim-delta
8 field >srp-lresp-tag
4 field >srp-lresp-max-it-iu-len
4 field >srp-lresp-max-ti-iu-len
2 field >srp-lresp-buf-fmt
1 field >srp-lresp-flags
constant /srp-login-resp
struct
1 field >srp-lrej-opcode
3 +
4 field >srp-lrej-reason
8 field >srp-lrej-tag
8 +
2 field >srp-lrej-buf-fmt
constant /srp-login-rej
00 CONSTANT SRP_NO_DATA_DESC
01 CONSTANT SRP_DATA_DESC_DIRECT
02 CONSTANT SRP_DATA_DESC_INDIRECT
struct
1 field >srp-cmd-opcode
1 field >srp-cmd-sol-not
3 +
1 field >srp-cmd-buf-fmt
1 field >srp-cmd-dout-desc-cnt
1 field >srp-cmd-din-desc-cnt
8 field >srp-cmd-tag
4 +
8 field >srp-cmd-lun
1 +
1 field >srp-cmd-task-attr
1 +
1 field >srp-cmd-add-cdb-len
10 field >srp-cmd-cdb
0 field >srp-cmd-cdb-add
constant /srp-cmd
struct
1 field >srp-rsp-opcode
1 field >srp-rsp-sol-not
2 +
4 field >srp-rsp-req-lim-delta
8 field >srp-rsp-tag
2 +
1 field >srp-rsp-flags
1 field >srp-rsp-status
4 field >srp-rsp-dout-res-cnt
4 field >srp-rsp-din-res-cnt
4 field >srp-rsp-sense-len
4 field >srp-rsp-resp-len
0 field >srp-rsp-data
constant /srp-rsp
01 CONSTANT SRP_RSP_FLAG_RSPVALID
02 CONSTANT SRP_RSP_FLAG_SNSVALID
04 CONSTANT SRP_RSP_FLAG_DOOVER
05 CONSTANT SRP_RSP_FLAG_DOUNDER
06 CONSTANT SRP_RSP_FLAG_DIOVER
07 CONSTANT SRP_RSP_FLAG_DIUNDER
CREATE srp 100 allot
0 VALUE srp-len
: srp-prep-cmd-nodata ( srplun -- )
srp /srp-cmd erase
SRP_CMD srp >srp-cmd-opcode c!
1 srp >srp-cmd-tag x!
srp >srp-cmd-lun x!         \ 8 bytes lun
/srp-cmd to srp-len   
;
: srp-prep-cmd-io ( addr len srplun -- )
srp-prep-cmd-nodata		( addr len )
swap l2dma			( len dmaaddr )
srp srp-len +    		( len dmaaddr descaddr )
dup >r x! r> 8 +		( len descaddr+8 )
dup 0 swap l! 4 +		( len descaddr+c )
l!    
srp-len 10 + to srp-len
;
: srp-prep-cmd-read ( addr len srplun -- )
srp-prep-cmd-io
01 srp >srp-cmd-buf-fmt c!	\ in direct buffer
1 srp >srp-cmd-din-desc-cnt c!
;
: srp-prep-cmd-write ( addr len srplun -- )
srp-prep-cmd-io
10 srp >srp-cmd-buf-fmt c!	\ out direct buffer
1 srp >srp-cmd-dout-desc-cnt c!
;
: srp-send-cmd ( -- )
vscsi-debug? IF
." VSCSI: Sending SCSI cmd " srp >srp-cmd-cdb c@ . cr
THEN
srp srp-len srp-send-crq
;
: srp-rsp-find-sense ( -- addr len true | false )
srp >srp-rsp-flags c@ SRP_RSP_FLAG_SNSVALID and 0= IF
false EXIT
THEN
srp >srp-rsp-data srp >srp-rsp-sense-len l@ true
;
: srp-wait-rsp ( -- stat )
srp-wait-crq not IF false EXIT THEN
dup 1 <> IF
." VSCSI: Invalid CRQ response tag, want 1 got " . cr
-1 EXIT
THEN drop
srp >srp-rsp-tag x@ dup 1 <> IF
." VSCSI: Invalid SRP response tag, want 1 got " . cr
-1 EXIT
THEN drop
srp >srp-rsp-status c@
vscsi-debug? IF
." VSCSI: Got response status: "
dup .status-text cr
THEN
;
8000000000000000 INSTANCE VALUE current-target
: execute-scsi-command ( buf-addr buf-len dir cmd-addr cmd-len -- ... )
>r >r				( buf-addr buf-len dir )
over 0= IF
3drop current-target srp-prep-cmd-nodata
ELSE
current-target swap IF srp-prep-cmd-read ELSE srp-prep-cmd-write THEN
THEN
r> r>
srp >srp-cmd-cdb swap move
srp-send-cmd
srp-wait-rsp
dup -1 = IF
0 0 rot EXIT
THEN
dup 0<> IF
srp-rsp-find-sense IF
vscsi-debug? IF
over scsi-get-sense-data
." VSCSI: Sense key [ " dup . ." ] " .sense-text
."  ASC,ASCQ: " . . cr
THEN
ELSE 0 0
." VSCSI: No sense data" cr
THEN
rot
THEN
;
" scsi-host-helpers.fs" included
TRUE VALUE first-time-init?
0 VALUE open-count
: vscsi-cleanup
vscsi-debug? IF ." VSCSI: Cleaning up" cr THEN
crq-cleanup
vscsi-unit 0 rtas-set-tce-bypass
;
: vscsi-init ( -- true | false )
vscsi-debug? IF ." VSCSI: Initializing" cr THEN
my-unit to vscsi-unit
vscsi-unit 1 rtas-set-tce-bypass
crq-init 0 <> IF false EXIT THEN
" "(C0 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00)" drop
crq-send not IF
." VSCSI: Error sending init command"
crq-cleanup false EXIT
THEN
crq-wait not IF
crq-cleanup false EXIT
THEN
crq c@ c0 <> crq 1 + c@ 02 <> or IF
." VSCSI: Initial handshake failed"
crq-cleanup false EXIT
THEN
first-time-init? IF
['] vscsi-cleanup add-quiesce-xt
false to first-time-init?
THEN
true
;
: open
vscsi-debug? IF ." VSCSI: Opening (count is " open-count . ." )" cr THEN
open-count 0= IF
vscsi-init IF
1 to open-count true
ELSE ." VSCSI initialization failed !" cr false THEN
ELSE
open-count 1 + to open-count
true
THEN
;
: close
vscsi-debug? IF ." VSCSI: Closing (count is " open-count . ." )" cr THEN
open-count 0> IF
open-count 1 - dup to open-count
0= IF
vscsi-cleanup
THEN
THEN
;
: (set-target)
to current-target
;
: dev-generate-srplun ( target lun -- )
swap 8 << 8000 or or 30 <<
;
: set-address ( srplun.lo srplun.hi -- )
lxjoin (set-target)
;
: max-transfer ( -- n )
10000 \ Larger value seem to have problems with some CDROMs
;
8 CONSTANT #dev
: dev-max-target ( -- #max-target )
#dev
;
" scsi-probe-helpers.fs" included
scsi-close
: setup-alias
" scsi" find-alias 0= IF
" scsi" get-node node>path set-alias
ELSE
drop
THEN 
;
: vscsi-init-and-scan  ( -- )
0 0 get-node open-node ?dup 0= IF EXIT THEN
my-self >r
dup to my-self
scsi-find-disks
setup-alias
close-node
r> to my-self
;
: vscsi-add-disk
" scsi-disk.fs" included
;
vscsi-add-disk
vscsi-init-and-scan
ÿÿÿÿÿÿÿÿ8ú0vio-veth.fs." Populating " pwd cr
" network" device-type
INSTANCE VARIABLE obp-tftp-package
0 VALUE veth-priv
0 VALUE open-count
: open  ( -- okay? )
open-count 0= IF
my-unit 1 rtas-set-tce-bypass
s" local-mac-address" get-node get-property not
s" reg" get-node get-property not 3 pick and IF
>r nip r>
libveth-open dup not IF ." libveth-open failed" EXIT THEN
drop TO veth-priv
THEN
THEN
my-args s" obp-tftp" $open-package obp-tftp-package !
open-count 1 + to open-count
true
;
: close  ( -- )
open-count 0> IF
open-count 1 - dup to open-count
0= IF
veth-priv libveth-close
my-unit 0 rtas-set-tce-bypass
THEN
THEN
s" close" obp-tftp-package @ $call-method
;
: read ( buf len -- actual )
dup IF
veth-priv libveth-read
ELSE
nip
THEN
;
: write ( buf len -- actual )
dup IF
veth-priv libveth-write
ELSE
nip
THEN
;
: load  ( addr -- len )
s" load" obp-tftp-package @ $call-method 
;
: ping  ( -- )
s" ping" obp-tftp-package @ $call-method
;
: setup-alias
" net" get-next-alias ?dup IF
get-node node>path set-alias
THEN
;
setup-alias
ÿÿÿÿÿÿÿÿ°u0rtas-nvram.fs." Populating " pwd cr
0 VALUE my-nvram-fetch
0 VALUE my-nvram-store
0 VALUE my-nvram-size
0 VALUE nvram-addr
: open true ;
: close ;
: write ( adr len -- actual )
nip
;
: read  ( adr len -- actual )
nip
;
: setup-alias
" nvram" find-alias 0= IF
" nvram" get-node node>path set-alias
ELSE
drop
THEN
;
" #bytes" get-node get-package-property 0= IF
decode-int to my-nvram-size 2drop
" nvram-fetch" rtas-get-token to my-nvram-fetch
" nvram-store" rtas-get-token to my-nvram-store
my-nvram-size to nvram-size
nvram-size alloc-mem to nvram-addr
my-nvram-fetch my-nvram-store nvram-size nvram-addr internal-nvram-init
THEN
setup-alias
ÿÿÿÿÿÿÿÿ8ý0virtio-net.fss" network" device-type
INSTANCE VARIABLE obp-tftp-package
virtio-setup-vd VALUE virtiodev
0 VALUE virtio-net-priv
0 VALUE open-count
6 BUFFER: local-mac
: setup-mac  ( -- )
s" local-mac-address" get-node get-property not IF 2drop EXIT THEN
6 0 DO
virtiodev i 1 virtio-get-config
local-mac i + c!
LOOP
local-mac 6 encode-bytes  s" local-mac-address"  property
;
: open  ( -- okay? )
open-count 0= IF
open IF
virtiodev virtio-net-open not IF ." virtio-net-open failed" false EXIT THEN
TO virtio-net-priv
setup-mac true
ELSE
false
THEN
ELSE
true
THEN
my-args s" obp-tftp" $open-package obp-tftp-package !
open-count 1 + to open-count
;
: close  ( -- )
open-count 0> IF
open-count 1 - dup to open-count
0= IF
virtio-net-priv virtio-net-close
close
THEN
THEN
s" close" obp-tftp-package @ $call-method
;
: read ( buf len -- actual )
dup IF
virtio-net-read
ELSE
nip
THEN
;
: write ( buf len -- actual )
dup IF
virtio-net-write
ELSE
nip
THEN
;
: load  ( addr -- len )
s" load" obp-tftp-package @ $call-method 
;
: ping  ( -- )
s" ping" obp-tftp-package @ $call-method
;
: setup-alias  ( -- )
" net" get-next-alias ?dup IF
get-node node>path set-alias
THEN
;
setup-alias
: virtio-net-init ( -- )
0 0 get-node open-node ?dup 0= IF ." exiting " cr EXIT THEN
close-node
;
virtio-net-init
ÿÿÿÿÿÿÿÿÀ{8virtio-serial.fss" serial" device-type
FALSE VALUE initialized?
virtio-setup-vd VALUE virtiodev
: shutdown  ( -- )
initialized? IF
my-phandle node>path open-dev ?dup IF
virtiodev virtio-serial-shutdown
close-dev
THEN
FALSE to initialized?
THEN
;
: virtio-serial-term-emit
virtiodev SWAP virtio-serial-putchar
;
: virtio-serial-term-key?  virtiodev virtio-serial-haschar ;
: virtio-serial-term-key   BEGIN virtio-serial-term-key? UNTIL virtiodev virtio-serial-getchar ;
: init  ( -- )
virtiodev virtio-serial-init drop
TRUE to initialized?
['] virtio-serial-term-emit to emit
['] virtio-serial-term-key  to key
['] virtio-serial-term-key? to key?
['] shutdown add-quiesce-xt
;
0 VALUE open-count
: open  ( -- okay? )
open-count 0= IF
open IF initialized? 0= IF init THEN
true
ELSE false exit
THEN
ELSE true THEN
open-count 1 + to open-count
;
: close
open-count 0> IF
open-count 1 - dup to open-count
0= IF close THEN
THEN
close
;
: write ( addr len -- actual )
tuck
0 ?DO
dup c@ virtiodev SWAP virtio-serial-putchar
1 +
LOOP
drop
;
: read ( addr len -- actual )
0= IF drop 0 EXIT THEN
virtiodev virtio-serial-haschar 0= IF 0 swap c! -2 EXIT THEN
virtiodev virtio-serial-getchar swap c! 1
;
: setup-alias
" vsterm" find-alias 0= IF
" vsterm" get-node node>path set-alias
ELSE drop THEN
;
setup-alias
: serial-emit virtio-serial-term-emit ;
: serial-key? virtio-serial-term-key? ;
: serial-key  virtio-serial-term-key  ;
ÿÿÿÿÿÿÿÿÑ0virtio-block.fss" block" device-type
FALSE VALUE initialized?
200 VALUE block-size
8000 CONSTANT max-transfer 
INSTANCE VARIABLE deblocker
virtio-setup-vd VALUE virtiodev
: shutdown  ( -- )
initialized? IF
my-phandle node>path open-dev ?dup IF
virtiodev virtio-blk-shutdown
close-dev
THEN
FALSE to initialized?
THEN
;
: init  ( -- )
virtiodev virtio-blk-init to block-size
TRUE to initialized?
['] shutdown add-quiesce-xt
;
: read-blocks  ( addr block# #blocks -- #read )
virtiodev virtio-blk-read
;
: open  ( -- okay? )
open 0= IF false EXIT THEN
dup initialized? 0= AND IF
init
THEN
0 0 s" deblocker" $open-package dup deblocker ! dup IF
s" disk-label" find-package IF
my-args rot interpose
THEN
THEN
0<>
;
: close  ( -- )
deblocker @ close-package
close
;
: seek  ( pos.lo pos.hi -- status )
s" seek" deblocker @ $call-method
;
: read  ( addr len -- actual )
s" read" deblocker @ $call-method
;
: (set-alias)
s" disk" get-next-alias ?dup IF
get-node node>path set-alias
THEN
;
(set-alias)
ÿÿÿÿÿÿÿÿ8ú0virtio-fs.fs." Populating " pwd cr
s" network" device-type
0 VALUE virtfs-rx-buffer
0 VALUE virtfs-tx-buffer
FALSE VALUE initialized?
2000 CONSTANT VIRTFS-BUF-SIZE \ 8k
virtio-setup-vd VALUE virtiodev
: shutdown  ( -- )
initialized? 0= IF EXIT THEN
virtiodev virtio-fs-shutdown
virtfs-rx-buffer VIRTFS-BUF-SIZE free-mem
virtfs-tx-buffer VIRTFS-BUF-SIZE free-mem
FALSE to initialized?
;
: init  ( -- success )
VIRTFS-BUF-SIZE alloc-mem to virtfs-rx-buffer
VIRTFS-BUF-SIZE alloc-mem to virtfs-tx-buffer
virtiodev			( dev )
virtfs-tx-buffer		( dev tx )
virtfs-rx-buffer		( reg tx rx )
VIRTFS-BUF-SIZE		( reg tx rx size )   
virtio-fs-init		( success )
dup IF
TRUE to initialized?
['] shutdown add-quiesce-xt
THEN
;
: open  ( -- okay? )
open 0= IF false EXIT THEN
initialized? 0= IF
init 0= IF false EXIT THEN
THEN   
true
;
: load ( addr -- len )
virtiodev swap		( dev addr )   
my-args   			( dev addr str strlen )
1 +		\ hack to make the following allocate 1 more byte
\-to-/	\ convert path elements
1 - 2dup + 0 swap c! drop
virtio-fs-load		( length )
;
: close  ( -- )
initialized? IF
shutdown
THEN
close
;
: ping ( -- )
cr s" ping not supported for this device" type cr cr
;
: (set-alias)
" virtfs" find-alias 0= IF
" virtfs" get-node node>path set-alias
ELSE
drop
THEN
;
(set-alias)
ÿÿÿÿÿÿÿÿð±0dev-null.fsnew-device
" devnull-console" device-name
: open true ;
: close ;
: write ( adr len -- actual )
nip
;
: read  ( adr len -- actual )
2drop 0
;
: setup-alias
" devnull-console" find-alias 0= IF
" devnull-console" get-node node>path set-alias
ELSE
drop
THEN
;
: dummy-term-emit drop ;
: dummy-term-key  0 ;
: dummy-term-key? FALSE ;
' dummy-term-emit to emit
' dummy-term-key  to key
' dummy-term-key? to key?
setup-alias
finish-device
ÿÿÿÿÿÿÿÿ
@
0virtio-scsi.fs." Populating " pwd cr
FALSE CONSTANT virtio-scsi-debug
2 encode-int s" #address-cells" property
0 encode-int s" #size-cells" property
: decode-unit 2 hex64-decode-unit ;
: encode-unit 2 hex64-encode-unit ;
FALSE VALUE initialized?
virtio-setup-vd VALUE virtiodev
STRUCT \ virtio-scsi-config
/l FIELD vs-cfg>num-queues
/l FIELD vs-cfg>seg-max
/l FIELD vs-cfg>max-sectors
/l FIELD vs-cfg>cmd-per-lun
/l FIELD vs-cfg>event-info-size
/l FIELD vs-cfg>sense_size
/l FIELD vs-cfg>cdb-size
/w FIELD vs-cfg>max-channel
/w FIELD vs-cfg>max-target
/l FIELD vs-cfg>max-lun
CONSTANT vs-cfg-length
STRUCT \ virtio-scsi-req
8  FIELD vs-req>lun
8  FIELD vs-req>tag
/c FIELD vs-req>task-attr
/c FIELD vs-req>prio
/c FIELD vs-req>crn
20 FIELD vs-req>cdb
CONSTANT vs-req-length
STRUCT \ virtio-scsi-resp
/l FIELD vs-rsp>sense-len
/l FIELD vs-rsp>residual
/w FIELD vs-rsp>status-qualifier
/c FIELD vs-rsp>status
/c FIELD vs-rsp>response
60 FIELD vs-rsp>sense
CONSTANT vs-rsp-length
CREATE vs-req vs-req-length allot
CREATE vs-rsp vs-rsp-length allot
scsi-open
0 INSTANCE VALUE current-target
: execute-scsi-command ( buf-addr buf-len dir cmd-addr cmd-len -- ... )
vs-req vs-req-length erase
vs-rsp vs-rsp-length erase
current-target vs-req vs-req>lun x!
vs-req vs-req>cdb swap move
vs-req vs-rsp virtiodev
virtio-scsi-send
0 <> IF
." VIRTIO-SCSI: Queuing failure !" cr
0 0 -1 EXIT
THEN
vs-rsp vs-rsp>response c@ CASE
0 OF ENDOF			\ Good
5 OF drop 0 0 8 EXIT ENDOF	\ Busy
dup OF 0 0 -1 EXIT ENDOF	\ Anything else -> HW error
ENDCASE
vs-rsp vs-rsp>status c@ dup 0<> IF
vs-rsp vs-rsp>sense-len l@ dup 0= IF
." VIRTIO-SCSI: No sense data" cr
0 EXIT
THEN
vs-rsp vs-rsp>sense swap
virtio-scsi-debug IF
over scsi-get-sense-data
." VIRTIO-SCSI: Sense key [ " dup . ." ] " .sense-text
."  ASC,ASCQ: " . . cr
THEN
rot
THEN    
;
" scsi-host-helpers.fs" included
: max-transfer ( -- n )
10000 \ Larger value seem to have problems with some CDROMs
;
: (set-target)
to current-target
;
: dev-generate-srplun ( target lun-id -- srplun )
swap 0100 or 10 << or 20 <<
;
: set-address ( srplun.lo srplun.hi -- )
lxjoin (set-target)
;
100 CONSTANT #target
: dev-max-target ( -- #target )
#target
;
" scsi-probe-helpers.fs" included
scsi-close        \ no further scsi words required
0 VALUE queue-control-addr
0 VALUE queue-event-addr
0 VALUE queue-cmd-addr
: setup-virt-queues
virtiodev 0 virtio-get-qsize virtio-vring-size
alloc-mem to queue-control-addr
virtiodev 0 queue-control-addr virtio-set-qaddr
virtiodev 1 virtio-get-qsize virtio-vring-size
alloc-mem to queue-event-addr
virtiodev 1 queue-event-addr virtio-set-qaddr
virtiodev 2 virtio-get-qsize virtio-vring-size
alloc-mem to queue-cmd-addr
virtiodev 2 queue-cmd-addr virtio-set-qaddr
;
: setup-alias
s" scsi" find-alias 0= IF
s" scsi" get-node node>path set-alias
ELSE
drop
THEN
;
: shutdown ( -- )
initialized? IF
my-phandle node>path open-dev ?dup IF
virtiodev virtio-scsi-shutdown
close-dev
THEN
FALSE to initialized?
THEN
;
: virtio-scsi-init-and-scan  ( -- )
0 0 get-node open-node ?dup 0= IF ." exiting " cr EXIT THEN
my-self >r
dup to my-self
virtiodev virtio-scsi-init
0= IF
setup-virt-queues
scsi-find-disks
setup-alias
TRUE to initialized?
['] shutdown add-quiesce-xt
THEN
close-node
r> to my-self
;
: virtio-scsi-add-disk
" scsi-disk.fs" included
;
virtio-scsi-add-disk
virtio-scsi-init-and-scan
ÿÿÿÿÿÿÿÿø0build_info.imgprintf t[CC]t%sn build_info.img; gcc -m64 
Using built-in specs.
COLLECT_GCC=gcc
COLLECT_LTO_WRAPPER=/usr/libexec/gcc/ppc64-redhat-linux/5.3.1/lto-wrapper
Target: ppc64-redhat-linux
Configured with: ../configure --enable-bootstrap --enable-languages=c,c++,objc,obj-c++,fortran,ada,go,lto --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --with-bugurl=http://bugzilla.redhat.com/bugzilla --enable-shared --enable-threads=posix --enable-checking=release --enable-multilib --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-gnu-unique-object --enable-linker-build-id --with-linker-hash-style=gnu --enable-plugin --enable-initfini-array --disable-libgcj --with-isl --disable-libmpx --enable-gnu-indirect-function --enable-secureplt --with-long-double-128 --build=ppc64-redhat-linux
Thread model: posix
gcc version 5.3.1 20160406 (Red Hat 5.3.1-6) (GCC) 
GNU ld version 2.25-17.fc23
  Supported emulations:
   elf64ppc
   elf32ppc
   elf32ppclinux
   elf32ppcsim
   elf32_spu
ÿÿÿÿÿÿÿÿ?Q
Browse the archive

https://github.com/qemu/qemu
