From 06387a66711a48b22a284ead56197011dba4aa6d Mon Sep 17 00:00:00 2001 From: Antoine Vignau Date: Mon, 22 Feb 2021 17:58:14 +0100 Subject: [PATCH] resync of v1.3.5 Just a resync of the files --- genesys/disks/genesys_v135_program.2mg | Bin 819264 -> 819264 bytes genesys/edit/MAKE.WINDOW.S | 29 + genesys/edit/WINCOLOR.S | 1515 +++ genesys/edit/WINCONTROL.S | 6743 +++++++++++ genesys/edit/WINDOW.S | 10790 ++++++++++++++++++ genesys/edit/WINSETUP.S | 13903 +++++++++++++++++++++++ 6 files changed, 32980 insertions(+) create mode 100644 genesys/edit/MAKE.WINDOW.S create mode 100644 genesys/edit/WINCOLOR.S create mode 100644 genesys/edit/WINCONTROL.S create mode 100644 genesys/edit/WINDOW.S create mode 100644 genesys/edit/WINSETUP.S diff --git a/genesys/disks/genesys_v135_program.2mg b/genesys/disks/genesys_v135_program.2mg index 884c57e529f789857b68c16e0e0b1442be24543c..d092bc92f1689e5341665bf052477ad7656e7752 100644 GIT binary patch delta 38455 zcmeIbcR*Cf_BcNG?(W=Wfu+OJVd5F7 z8AtFSRp=Xty&mS19o3wMTnkXi7xz2s?B8*~&_2V)1;Oj#!+eA`$V=DZ4Y;%ncY9+5 zzkBhQidL9QB3I5U5_WI=h%e%Z{{=-LKP;1^UQpCYIGNyzYIZE8~M8f4%g4HY;u>7L)ZC6uF*&ud8_RLRW!{bY%hF5*|5xQQ=N}E-HNN zDZv&}4S@QQt``+c?Q|6x670oAMSaM&l(J1ODUug`2i%F$m z{Y+eb;@v^-OGn^Gqd@bx-wp7q;kX{s^=!Ua&q^Y!gu%DYYKNxc7)TBZQm(^ z^lD0EOJS+leHSZSgLDAl#ZCgMJnLayg_{Tmam;?Ejmbos0i4A`EtQyI=_=f75@W$b zSK(nM7Qv{!!X#=mwD|sGPwMW1YLzjf=#}xsO_n%@D{V? zZq`PrdD8uc!kdyAe?t+h5uMz#qz}b8h5cGRIDrdGW<1omT1gAu9kcp zbPw?VH%D&|j&2pk&3?sH5GHc*l8@ClG&IH;5;l3(O4bZWK)!PZ#nKnK_JhLnwKlUQ zsY8W`4tOjtH6bCVPwD zzH)4e`B9NcU1iZ{T#d15#g8HdyT73DJ>XFa&bMohZn3w;k~4SZHE2(gN}BwvaBpWl zBL3@6a6$Hpk&d|B5hFlshQ7A{s*tO9 z6oKA!aujQ-V{MSu1F#jV^-Q=H9%>H8jE}g#X0^VE!fff!2WeLtttj5VI7$bT=64m& ze&!fErX`vw#h||kK@I+Ek z)=)_3<9PD+Lq%}p`E2vlpiJIgD=um*Aax@NL>@gU7n)rvwY42IaLGtPd+2n8fW7EI($7cU=e~bu^L{!DBd!*H&_EoXRYK>zRVq5%8 zSu_4x)|UTyS;@s;6{>$H#J2jIV&?s|m~H-_#dMLTJ#9rwf4cUIAZbq&s)jFxTZ5+* zbN_n2*q^S_|HXx&4+LI|pIFvmEcWD!eAkRU#QCWryk-<>{`7TGgv@@bP`_fHw;5{K zEE<}_28}f{=0)J^BgE?hM4P_|5Z+RNuq+y09UUU&rD3}{kg-uIxcknn-UiMwS+zY;}S-YYrp?{aiRC$6tmA?i`n--FJ_a3*Mxeu zbo|=^q3gd95W-&*5MC7oJc;`Yg>$;ie4>G6QqW*ac>^{nhGPsSB-jXh zv9F8-Y;A2Ks|K=Bh=*;VD7u2Sp0HIYEb|s=MJR1ZzAl!e*=#df_87nBYfd#_o^gV0 zFP8CEvkbbjaU)}6?Yx$~FJS$A%f>_DYfR6yPsO6cfLGg{c?CB7ZyOz3)i}PitnrY& ze)u`W;|MaJ!>Tab;m1n63YkTrWLT_SKusw}{v9bt{e_gH|HD$&OSKj7Z@be8ce)v? zBiHYNrT*PPR@{2s`ukrRCR=qB8e*9xj58@x8kVIoSywS$EZF2!V~dphD#HfiTBM49 zx4=oshtmx`@qe8p%jfmUmd{YykZhG>Ki4`*;x{j*zxP_eH#MQ@>yr^0jlM*mps_st z0%#_n$+=&EktYhAz`xUo#9~PAG$Mr<*Q0xsD=`k>pEe*Lur!`r!q|_0-hw>EIGlgn zf&>e=UP@R>nY^7AmN;ed1e#R4qiWdol(RJsm9Y*W7+J}x8YS^$zJR^Cbh25%jr@yJ zEE?fcEuVqJycF_6!2Yg9DJI2;si>aXd@Ag>BQ0lA&t*W9p^J?XdI#Qb!utt8YC-x& zV=`5VgE%c&tHg19`^MxeCCECfF~N2?p30nJC(78x&LSh1NZzx<+Sa43xXMkl;ZUDi ztu884_oQ+b77kJcwHn%QSWwfRBZKnLx}wp*p!G}SJ192|p(3==%=alklc5NJzJO0x zQ%PSH)>5Wst3;;CRTicif0g#K;$5v3{~aKRitmD|ZA#$ljmGv^!(U1x9qngu0v%|Ak-1d%P9AT$EaHA|oeG#Ls6=wtYF4&J-rP11?KgD6Q8 z2hpT@vNWC)JBX64b+Aard6TCOILI%usfqt`1Xg8bQo&6b|6Cl&am3y{WSv~F#y7>f zLYz$nvdR&s`j2mFk*$WD^O};!jyTM9d{boedX1o$0ZoP`H$x~N-tq8uhj(?;za?nz z$1TJ*9AR95TIT=fn^`^wx3GK$gd5Fj7+AXj6Z-}=9X6gB*m-E&`XzE55e)5&K)uY} zQ@=Uo`YHT91Mi*iUIg#fhQ_Vw3p&ZS7)(zCOBJq$KhZLi`~I@ z$k@a03xJ4*wg***SnK^*3)VA!SFAB?dIm6>x!|04+c?2DSw+KO1NBHNl6Qq`%#X_< z3$Abhyk`#CeueWR^;~f@7el(aLMQ{Asjk@1-7}}~w7jse$kCuGG&mF*)Ik&ByC+xN zn$})l$aN<9Za9SVB;(!i8sS>Dfv@~Fd)Z0eSO0S!D*A5Kx7n+%Wp6Dsph5#bXm0DR zngMdOko)nXPCK|YDvi#ZUpv#Wc4k#eBd;^UO0IS$5Qxq+AfPgne)Uy(Et?$uvK?<`li1(nwRxXha`+VQ(u5pJWMk%KOWt}f~FLdpOp1FG7RHjCxqVyEurXvY;V zmS>Z_BRNf1=)HAv)`5gOew^9_;f&l`=tH9ndJxrufen0Q)yH|Oj^vevqcz9!PM&mr zx|ISeZ&Kg-F57_CIm0sGt?#mD&2oM$x{dbdJW_iUci5+4zEPzO%4ceW&q|#U>x|Hc zm)eox6X08$Z}Q3ECGr^8p83_0v`fnD!>KuB&CVy>Qh9g2XFe%dDi5S-@ltt;K3E3E zB$Fv!bBlTGuEpP6{_cmLtA7tvs(phaYSpdZFgdMR%htK=I(F^RyKu;u;+bWek9~gb z%I`|v!8I(-hqbr_a3p2!)}=_MFNiIHl>VWo7$5`Po_F)F`iu zVWn~F&fSMUKXc{UT@S&(ae50~ey48wg5JYMO(-#}+kEKb>pwfYhSloOz30d=#nYE> z+jH{To!{lIezh93Q0zT$;GF*Szkc-OH%~hUjbBhmZ2h!m8TlRik6gUv z(6t*sR6ll=3HEB=fasWd>8-N*51Tn>^RC;TGVi36wCucY1%3LD9ye{~oVUu1hmK#n z;lw#L&F?>C`PvQd?f&@a#j0m&2W{=t{5OWrSXj2_qqBFa^)i{Gb5x1E*O*yH&ZuP# zMocQ6SxPpPzq{+BE5CTUd3r}gCp1cJlGCPp&px9j>sOTRJ8^wP^upyI?^gZdjAQ@{i>a5DKX}-rx5_U*P|KYf zHEGeIbKk-V(`Kwa_LW+%XgF%hwAl;ZGFH65=aZ|CJUukNQMD6O(wpVA>(RU4n5o69 zHts)o6m5U^lVe|T@`UNU z%qgIlJ9Q z#e7WZue^Ks1N((b_k8fph0C|@K6v_EsRt(PT|5J|RnwG7V+>o~yYR!aKZIH>+vIm1 zsb5>7`0((tug-tRz4IX#*5Gj`4k6CRFDNv!c5FQ82wbB7pkbrNP0~-BId?(j$y;`u ze{#D)C2#FH|MM(Vr$iRnsiLwNy;Xwlq4s<){dY3zM#X3w4vVTo9cmhLC^7EgNTQN7} zYcz^`=Sy^5D4zMw{zGTZeXH^hsgwW4xGA&WyZyk?!8NLGoAzB7kX`#f`SqF7!MVZE zN&3SNf93nlT~MqN)GbTqZTkG&oyRYPh`P&G>y4G~{><+_`G{Nc{v)o+3Hc#N+M@O} zk@4^Gkht)*X%fh%$RKgVJ{S^L$EOV;322Ww)v7Xxne z+7bdN*Tvimucr+lS5NblapA)-8~d?(ef$_RgZ=cZ;#Sz@1k@kIWSKw1IpEK5j`*`O zc>qh&#N>+*mP4VeiMUYK#F9|f#PBdyorJOKYhnKbNPjCP-f)fqawozWN>%tlJ>~6* z2yGa_3P*~GHj?4AiezNkM6$9~VscJQPDe2yAI-Rkk7isfi)LJmti`IoRf|<$UyEU0 z6BFOsEca>crwMv!{$Xu~^Gt*$!Pm0@94#iHF^o*>7>3d=hLyc3CZCJRzPhaWyLDOf z3u9UHo$9fA`g*M1%zCWe$71qaOv>T_MGwk|V>oBx7>;9omgvL;CDlm+W*m~%Cqv?! z)R5*rP7X_f#dohI#4ifGa!g-?ZKXv#dA3r$U=xt6J;Y0@q=Hw}_r zsd~uit45@KMYC_FeMghG(-_}J(=O3mRhoY~B)_M%YyydWdR>|u(8RkbBy*ZX(qvz-@qNYB6p2meewlz zKv6QkwC+YO=eKEcS*@Iv_c_lbzU8ntOOU1nr55wStp@WG%Z_kg{l*21L-ULIkk&)_ z$s3PxU;lxEN_eOEe7^J4HN~7m*kd`g<1_R8>n=1s-vw5g;BZl*} zY!+TBeOnePmcRzE+>cJj08Y+~m3y*%W}iZXAIxOov||8F-{qzQydtQJHK>B8XE7<2`1GH@#s?X4Nu)%01{N^l@oGO%0F`RtMdbowjmt3nPc z0kxFLvrH;sd<__d?MX~aTuS@tKuheKXgW~9lpH7_Z_*e&L1brVDKFAxN;jd1f`#aC z1SJK;y-05z4skl4ZEOq8?l3jGR0oS{z}T(BF)p03ldTPqUv;=6EzWI)r@~<(QRjJZ znzu~G&e)a07aKex*E6w(Ja2{FI9STJ!Wnhc$tG30crmQw8q_8pH6L!M*(7qFCquGi07_cvT!&nYm@~WnScxcPckbD zyV1<*EFAA6*|f@H)BR04XwwIKEz1G3Sl0^slGtpl0`j^Fd$KMIw&U;T;ux|d8@nha z5)Nj#9l4T?^WX$}p&W^Es6gWZ_k+EB4QNKh6Q z$lfJ5fH<|q%_Y`4wZ)0>g*7AGP9#i*O~MULD$6H_+T*z0PVI1G&KcM!#X@1JQegP) zNqPs&j&6gvW>K;eI$#w^*I~JjO6nu}eME)5Qdi~_Cqc?x zJ7UfYjMbGM=+#v?S{IV2PPmO(e{XieZn3nJM~Hf%A=8$ag%is;qOUvQo`1?^@6OoW zUHtm7!ojBXxt;Nx*Rocx6ZRn)U2t79f2Ca{{>EDIXG8H-{GILs8;sByzjVR67^-U? zI#e!p=me3_HpueSMy+j2S5ZXGNJDPS-@Sw9B{lly~l0@>RGI|sVi$t_535>lD`qzV1U9$4#Pitlt3 z#15vSzyj>at2`=^Z~`tO$hADrf!~%Qp`@{lP(&pdsWCM1wwwgbhTU6G z%ZQ%XUB!U`QLO7c!(!yB{*2sQE5zL1IOHWtb$J3J`jH+6tl)~t&Yrlg#?vyWLHAcX zz#edGDuw7GRjmXZ5I}EM90@AV{R_T5M2vk>nQQI5)GHNLPfE%l6D-K z+yQzYf`~ms1zVXgGhxj&wgWU+Sbv0$sQ#B@i5`47kGfFWe^ z3vGFv9KN2N0mJFabDW9|j-G`E4d9ad{mo;Ps!%krx`lWzHMBD$1aEplicN}QBnh<+ zm@{g0#xRi3baK+@C+1Tm9INSJlL0sfCLjw3;OIaw7zntANHHeS*^}A3i~$BMNgjy3 z**rG1&=79aS}yKr{|JM)3$eNkvs)~s;C*ngK`xC0Hk3%*K&-6~2nI$a67ZbSOT;#X z8$%(wS>21$lBop3>-vFsGXF;y2^@qqGH8}K-sQbXyFoa{92V%XV+r=l2I1Pwl#dL; z4NY33DY&KovgKG#8V$z2a3jd*lXzQ(3_eCr%>YO}&5>DqDqM0{pbVE+EE&t_W=6KO zY_@D?Q`egy=5D9ajsS4`Ms)y?QJhF$DWE*&Zyzk!1G}ypIYt zYA6l{-=aN`h$=80zv@XHPqqxjVR2yU?@9%>YY32!I#sZ)Jec19(7@d+DUNW%#33nk z7@kPmST_uZ!2Cm;!;u9Ov6qA8+LKPlAf$U8PDzoShT}B;STH%W7A7`Bhl?vJ$FVTI zE*p-cz+>RP7F;3(Yp;@(bVZvIjPw$id1MoH3&Ec97OyLZn{_HNy2(f2I<$fMBXA@v zAG(de4Pk}iZAU;Kfn?VR_wEAFi(Wj5QT=g zO>xFpki*$r<@?b%EbM%?2p5keX|D@%Q9j0ndBRzD4343#_ZTC_%c)~<Yss5qWzoj$&6E&HR`lrnwla6HfVW3+u%Sd6910b6oj51}OqGk_pjHuoakv zD=IJzS9arZ;NO%ndpz#W7#okn=nYGywWU_r+2m9Wis-peKR8VNqM-{ngrILVxX{ozUvy~GutcpIX#F-9|h4I-ui z1117MXrqa!7}_08bRn=*NI@`~#(eV>j1u<$Q^I81WbB&{!h)y!AtR0cj>y>BsxdYK z!F69_B%rX%W!8mo`7E-e=?l?iY#XPPsW~;8g6l;8DHAsBkwsIm8{mVYbrlKXxXk1= zYnk4pE|Z%yOum?cn_E^7Y$wKG(rn~ZoXYwXW<(R7qE`4(~08!LCRY_#Hh?{S%rd zwD2Nvx}RHwcT+u?;9>e;I?c;`I(JUNJel5W*7;fq`+#p%Rg~17o&KehO0TKaLlcoqs zvD*95NE=rRX(y0v)1)!)vuPqf52oP+Wsw6%>z2_mCXp;$ikp#nMKA_96IgG4H62bh zFmWPD)ocj=kp`U4xS@Lpgig50DucKT*l&PcksaMYT$e1Ljf2$-6>^K%kyNlCDvli$p}TCd7sHL&J#`MA#F?anj6X>q0+X6% z^YASZ8b$I;Ur$bD2VdlW9*LkSa}z3ZtrR=DMYKj$yskhyFo#P^o1WP)^GfEj`8c8x z#1iu^8hj_cbt}Di>4|&?B`4nQhJ5XPx|%0AFaxF$$-EQVbG|6<{P|b|?g4#YJrk4S z1+ek-$$Z=l_OD=vwb0N7%n*7rhE_ zu3WVomQu^9&1_qPD_7BROU)LMXEkR%%hay4qyq0Y#8m_$xFTN7TNYwvn9b4(tCA#( z^g+6_(Ptye)Lyg}>9Y_=>)}Sf*<7V7{e^~{qUI1T4Ou1qBx-rgs41gGeD!hQD3elv zJf#N{Dv<JF;CySyJZ#$zC0$M1m5RhuiL601>@^@wL%6K1_u_^rJBg zl;ie76pG1b5tm6JmblPn*++3fPR1|7!{}CU$xkk(sc4z{Wf!y9nu^4~iNB%tNu8cV zEynF>hI!4_rC{P0E-8Y@M~mT5Ab{DV%Y6y{R=Ua|4x^@B9U4=`q0|idlL5cvqj^yBMA!KL>hv8Hwx23)I}xXxQe+K;`1o(LLwkyCsQgO{3E(7(M7)LXu+_&)n{IUV zK^1Jf69+8?kj^V$OCgS|-+*h8Z7cp|0{-OcN;p1c6MP!1!cF-JktBE?1n}jn@E_8K z+bcN;R>)cG3hoHZRIP@cE0LMqA#3n>P8MHVPKGVP+TDlN!bZE*&K%`>^ z(?h~~JlYDAO+?L@hu2$SI+lqeapN-VLp!o_8GaL1UeYdtGqo@CCIhzt$HORXGAeV3 zgsEZ47iw|yz0U^htA+We%{=wx8dTdc+%R%_1NPE?Q(z7hgS*jx!@BJ$`0xGG|M!}D zWlQ@1qO7lC;2-(_w;k|L|G&yA|9h~1?EfG8|6gk0AOHXF`TDC``p5tOm)2jf=O6oj zl~w-tVE@?vKlcB>)Ighmt8r!5M_o_nJba^Gfp>26?!IrlXy?#jaYvudJAoSUdq+GE z(&-&MC(^VP0pA5$7PI2+gr7BtsNTg%bPe3%U7SMGX;OMvN?*K-{bgyP(yp@ZJ?!Y; ze1v)FI(r!XH;?_L=}*JS$oKFHesGw1SJI9&d>?x`UmRWG3fn($SQEIYRtscU5o}FO zdLO>Sy;>WU=#jPoeC=-8Ey{%5qLM(Q?G%bidLgZIGJ>xdwS96>Nj}oL3_~T^s3a54 zQOM8yu}{Ki4B(j+H70H7Wm1 z8AbYW3SVOXNM%Q^$`l&Ee=7W=rT>*_=wD%cCCcU*y3DMcytet8xKn4o`ug03OINO5 zzw!O8+dtj=`N1!b9zXr<4-}x>vv2>0hd%n`=<&x@;1XOh=a;~({COH0hwgEm)*_w{ z=y-suwU<+VB&)OQ%lo{1*Oy$o3!GRs8$J=*a5we2ecS??0YUGt(Z$#%V+hQ$E~a6LvzQ<0wa14D&|H_K~HADNq2M^ zMHZuPQOGo|;UBU+XU|_QM%_?5bgEc}?p9UHqB4g+L2shtinz^h@3?w{^D8bW;iP8WP`8cSk>d8x+K& zh+}VieAG+=xQabfiJ9(@-O%k10mUGmw57`f4GEns7;Q zkGIEr+{E`EpHm>D#_kPT=Jy*n%}(teR4b-g*U>ZIQr1puHFDCz#W!yibAx6p6590} zJNt;hsbf2I9z5*0pljW&#BlM>bDW(wX9;=shYH&bo>RK;lVd;Kf1vWzhGpgU=|AxO z!=EUFLh8o#E!1z``G*oYIQ8tad*9I$4%)DcR#{uO9XomBhlh{sIiBLEzO zLc&{j>@s}R#_})DT)(NYSBFQ@i+DqZuQa~%{zpeXJ#+5LoqNALeG#g#ck%KMiAqRH zYuZ8wSLQmx?ZvSZX3So&WZi~ipPu^i+w1qLUTEZkL!dUkp}uua+d<96iT@K7i{H1!jjX5_V-QdGKd>vp(tc;w7k2Tq=q+jhd-HS5ouee#>iFR+EKv~2r3 za2-+^l$RK-}ZmF#L8W&-1%>=T6_4DW1pS6^zC)EokM)Xlr&xIjy(;_ zzq$OAUF`-fXU$*z?X9OTRD9jI!a?&_Z`kzpc|}aUp;Hc@cDMHltfkA!YuBMy|AAvC zPA#6kq5RBQN4QHDo08T#r%U$*+dn=BPfn8z5U~(7p~ZO#ii%>89IBOakD)ioY7<2&fWVi zT>kxq;O)2L<7+n`J#kjr*Md%)e)#OUi$C1H`=I&{HHxg&uEXp#>x~CL{`~Zl-xMin z>pnjBT;bH_^M}7ZS9=Epr?k*@>rrf2@MeX6&oiY=Q*i9luh0MfLS3s#^THuhir(Mz z*{L7yR6n*0sMmMe!Q-F)@XN0lDhTkJEdsesD=m z1i9MFCmcFWtx(oUXxgIVM7U_Wde`0y4oK}6otTl|YxtVC_kAxoC-+;l|KLaWl*y@m zr*7T$^)3BVl_H{E-k=Gy)*rg`MCDpHv;VT4AAa@Cz2EF&42@`jaz2sw(Z(uz+hT;)!O&=e01d2Pmi9c zI}}WqJb(4N4-S5O^u*WSUUzkHN=VDh>(C9Z=FZ)^?UQ5os(z7$N9jw{iOEApP_z2< z%df9jRX=y)d;{VecIiH)Xx)ar`|m%fc69fu6WgnAVdai}x*oZQDh zy;<*mi^vM_Ja?I=w_jwfnEDB6O$QEHy8P2?H*P_5YL|%U?7ZQl7BAbi_tcjzO8=mc zW*GyAj-Rx2`L>;B&pm#o*89MH>kge4Y%Je$^799eUZ{D$zy^sudX*TqZo7Q-(Gy21 z!G!sXmhAc9>WzCe0(EYxieAKl~N$8~X<(Bz5aCf5XuepP#!}{a6T0K6T@VJNoL!&fb23 zp%L{HdXE@AZnA#Xyk&3Ack&Btl$qV3^N`^*CLFzR*Gc0W0e6#^kPV>OdsX0da;2+B zAw;ez^A@gH{od~CCw9CdJiS@V-u(=-G}ytlcHR0}xqSze7|4p%>)=W&`1t(?e>iap z2dCO~TV@U%GIESz)}kePxbfwJIJFYeL@DhkrK4HOKjAoTKK_+|vJBG{F5S6sn`vIx zTFj5k64N_U8Zweo3xL;HN}WcD`6!yA7&VjExtfEa!xR z=wiuy$gnt7U{60UZXoz4NvC8ZDTev`YB(7q9>S_kzr`;#EyEa@b`pr3Oc0{~P7}Jn z*F=RH8A8RiolQGd$A$l_#r=tbHyop`fMYPB)~gxo6Cj1p$n~S}gpsicLLFEL?Ms!; zrm=@1fs{-nUpPWjJv(T)(#_>0XBf)Cm!6mdBwCGb%00wvsSw~3(VfFVCB7>O-T4}XWq7eP3LhBPn zp{a_g@aGbRDEC)M`wERVN)n>kS)=|*0=wxzjSntmyiUVX7j=$6aE!d>fkPh?#B?04 zB$T0jZF?>eDym>fYdJMXZNPLck<@A=1UcB8NbCp@IPx!^yE7d-Br^e;15kD}(FENT zZH$C-J?7Jlx=rX#UK`V=ayA??(LZUN#NW8&4W6rAmLdTKf6oH)uSe+si z(8Ka&Jkp|e9R0D3@3m5f)?nsUVQ+0EW$@fPwH+0XJs*g=L*vGR4?U3zM=~tOK5HCE z9Mf2+6GD%mD$H-N@x&zwJ|l8!c?bJ!Jl=Q z*-fbpQSS?|c%S6XR7KyU{&ifcmnMXzS%o#Dr%p?)2<|Gdw9M6Xtdw5GD3h;}f?iEa z@+PToD+F6}I-DkW!d0aTb^_ydh9m0KM3yMhU(d72?F!O`uvdp`1%zv6rhgW$KTH?A z>9w+#kjYO#xY?`x`A?&^T>Rc^vnS-ZXy z=b-}%c>hgrB-%g-7m!EoZ9jcy(-}wgtndet1D}4Q<%A z&*~lfU^t$IIkg?6!LV4PX$vWBBc)TN)F`E=rSuw2L!g476e|vp(sG)jtV9qEUhsQ0 z?B|?JPzDDo)ZW*O683ZnYdK3Frf|uGZ zL%KDwO~|NJkl0p&A9y(jr&pty}=?JM^hHjfR!ljl%omVu^uD#^y1V1=( zDK#K5p~hCt+lv=Z7=(P=N(gd+Yeb&5Ej-fwU$zi$Bc6Yz5TS=SwyBLVcfOEOs>q_h(p?*HbWv`N$m`5>}>n9?aI{b{5h%4 z5~5irbvAZ4WloGSZN<1VmKyGbA%AMcxUboifg{~YU&gK!aW*eTdSS{kk~m> zcv6%lc)%^);kiOETz)Auz|-%tY#uYPDbJWg?ZR|nq*C(yiXa5@hl!i31k=S&6@s49 z3fwG&zfPLxx5n{6p?#^mh+j79MX4u2C^A63BJ<@N%*alEFT zz-|$wbP&#mQez4NHa4`*)oMhLLY}>b^?eFAuWMM}^`q46G>C$~wT?Lk!6rZ4FNFwgkPg`=MIrG?FDvePtieWK(+U> zBJ5tH2&WE02Db1pJ|jFk-lhEh|x=AHqx0$*hh-jOil0N+fI5-=-^k z#!#>a7LP$ayKi@1{Ne%(<9A>Z=r zj&-{TfpCupetu1=+_{TTS1ny^@|Iv{0LhnGHgLtdBuFd)b+>x)!iNNR6@ti)jsiB- z43=ujy9&)%pfW$?LMxU?ePr9wA!3=i2YE|Jn++vY!jWv@rA{^kh-!@zZ+`l~@8%r^ z?zGTRlFm%OX21jq7s=5J4`jVB5BK1^367?VT@io6You64K)FF=TsJ`r3!4hKUDHJf zCLeaQXd+g^ds&C|#FE$QFitGro!(tY;FHPc7W7KH+ zh8mzl62JE}V|p4qji$vesohfuhLi7NXWCrOE`guFBN4qo?Js%=7=ojCFAlmBIDYpf zj>+3S#U=RBo!Ek=2 zkKpbN#6=vqpa>tT%?kq3WU!!x6(AjdKtdR|onS=Pz_?A~`wGEqm!?x+Aqfb**;k+s z;~;zb3gM8w3dJyc7cb_%icI2dMkckN;MIYOYq5b2riWHF5Up@iCu0X|n_|wBAeK>0 zbkLP|ptrwav&xqFZ36@^vTZ0_mOI{09Cz;Z6VfP?G5v)cnidoa8j@8gIKcxEO0FUb z_acY;3#qh_D->gy8HobB7YfldrHY|xWued-t`e37I7^nuxN9hKN1F5#+*zqj1WS}k zQw9irOm1&3#AC3>5ACr-8zGs+}W)g!ncSi?(iSjbxOd}Ojz5vFh(@ypv0|yH&_&J_r=U^d(&Lv(l z)r>M}Az|#I(_U8cdF(Tbt%ER#AgeL z9EI1gHe;(3O1ha9j7-f{@N9$6dcA0MWxDY~~qClJzuRVZFA z#j~$LQbeNzpEW9MX|_7yK~cqD9cC0^o=B-$D2jascGbw3c#&KhF4)y@yf}EQ0aHf< zNgeUVxR)JIETgK4)0M})((%Ypfj)kz_iJnH`v|bb<@KHm?gJ;t6HKRpmdu#YBolWG3oE|Q?2U1tGbvCioG}N6ME_lEg zYYDGR;3N@A(v8*lMuv_Myvz}sJ{QD1WhN^|2yrm-mP{gTbmA5&6L!cbcqEo;q|naM z*0TnV6g`V--)d&ddIRz`JWISoZSkxFBSp_TH&XPhoufq0Vt6JRX3t`6&}|9utRU)H z@Q2L{Q$PUI98a`kCX?B-sHV-H)nT;gS*u6?rDr9Go^^AyIL@iZ2<&Qmtuew%+JVQ% z2$5#8kH-jOsKX8&E7X5wp?nSujihRV&2(LQ_L{DunHV3X#}k-m2dp2Pn`5W=V6|7x z;#x>Jubstd>D6esARB57C3nUNDbW3eU>Rw~#?Wt;tMAFphM|Bp+f#%YLktl{ts$K5B!tsVYJ0l7YCr+SNLa#ce)QNEvfMnR zEk>K>pr2>+?brS=lh0goshDfei1bH&@Ti%E{3`=Ebw0K zW^+R}a7zysqb>RpR8Rto)Co)XepAe4{#?vWTgy*BTrICVqwMHaS>1jme{ivbiqS?i zLKax3RY&gBZ%A3pyG2do*X;YIgir3ja+^xxI{$Kd;o`;L&nd=W+f6n#X@^}tBE?TWpyEMzrn>IsFPbsLKT-oE)bEcIpJPyZ5 z?A*QJh(_V+@-5$~kPOGvYu~AK;jxqaiSxJQ^@omp=Y7@i$tClbto!ub^}8>e1Jc{| z?l-Vx_Pm9gx4#3&ZB7*{!kV@(T(ys{v*&yM;PLB%s&K@d(#<lxmcJ84OUEdft@z}#hvara4-o^ZZV^(VUh6c?Ma4N8}^?PWWh_;?*HuaL(bs` zxnEqTK?@Yf!Oc5s0FPs@WBZ-^zWV0DGr4=e32(ivjC`Z#(&anf`|&628_=QixLtc? z14hkVs!VIT@U3^=KYih`Oy8mN+A{b$KMrw<4A|yRN1R;-xHSF^6+Caf(ywwf`7)d=ggf~I-jKb$)4jky%8LEgt{f9%Raj-FE|^AqES3o zAL%#_!LJ9QAZGwAZld%e*8)^>cOG)|_XFsIbty7^k#76!GTkwJ3P1^51j;m5CF}dx z`}o3HB`EVlZ*XAVNADQ;pu?Dbx=Mu-QB8blAfjXAzMfAIzXUJX95B| z`qE5MhNZ%eFs1vV zSS6_(!Dnb3kQ3mzpaRYZjW**zg9UFXG$5o4l;$H92oPXZ3N;o5dpOgdtf5+C6?%S|KIZ7Wvtba|Lql*5oJ=`l2LtHUA8s%FBT_Hz-d7V!9f{ z+!h6UG3i1m27Ngocla9*ax|_XhdVS3q&%QF3OR6bD9DB{53r(OMhlSWVRBc{rmvMY z0fYood(fZsLCgXejI*`DZ!h@d3aGv{P`yn2fL!30U`#hrck~22!|aI2+k_KDJB)S}?GM^GrK*89 ztw~>ETR!lq75V}6_{@fmkBLs&pV6VU>B|Ap!8sM^w5&nL*F-1vujo(;^yL7N0HOLo zE5(Wy3BvYb$G7}DgeVF6azOs@Hxh`|vm!=I{7sC3G6Ny+3OK$sa011y3!vyw9A2Y1 zKqBF0SM>sZr@*PosftY8XII-h7%F(6KG5IenNsCqltjU_uW4iS#q_TUf=>!`2Ymmz zjs8iKRFx;NriJntGz*Rlt+FZC(#S}|jkb13nfTjqVf%8e-O+Hwk`BAqqkjbBe;)YbTi!zwc{aT!IVI$A|JVhvwrjnL@vCYzbl%7f=nJgUQyv;!F4 z4px`yRAqrJqIgutcg(Opj2WtP{R|fWD8Y4vBGOI>XU8Qe?CrS}Mmy!C88(mM1p(|K z8!;)K^A?In4Q-?uma^&^k`>87FwElKEGS(CZ+Q_1fBR7DLa}=K7hdurn!hXpDF9yb zB05tjpno9#i!XT*wZ*0oEhuF z8hF%Lbv5v)vF>0-XsJt$HCEDsq<=ZH)&d*V$eFdmQi!6{Kk$+>W9`L^&;p~zdXpKe z1xCC4VhucMtoxV|n(_2S)LJ_*BQyh%yy z41cTyp~kw;iBe_2^N^~Go9D+icjt9e`hVeES3&oEF zTc8fG5KQb1d%9Rz6{^iL?HUqBiO=}_pK+K|!!po8=dq!fPzP^S&wgp@Wk z9SnssCI{1`=_k= z)vXmQ407{q@WerJ3B#ktMqhI4L6Jc~emS%L|NfxJ#zg)9Zct?IsgGr9pjx2TU%)Kg z0;AUdpBfZd!+L0#TL1rGP-J7G{(mcb$2IL~AzYUZq2>7y8#8k(6Mr&2Lg z@~WAYx6I7UTb7lY4Q5tmLf<)%uXjlf&zNk_2wSx&gyd6I z^NUn*4vG!G6V_s1vbWXVxM8c+=h&))Td}6V|0o z>wzY2Vzd96U;uxp)#%~tKp&1l09H!N=B^Fp43%P*s~fwb!Y3&%`=A z&-&hagzRLK_I+$^-h@V@q2v^m*eSvsnZWNys0|QRi&JX#kg5k#D6guGDQZy2r}oYi zs?;NhD=n|OJ!R|dDF;J^!(36U*|x1q+4`8YaH~tEyfUOF*|tqj**aCmXdYHy%fyuOs>vyhidxqf-H{^G+T0O?v~6PA3y`5iK@8dGDgx8`f5DR@VU;dR~`=(#zS2G~{;nR-?ePwd&; z(U|zXHK-Mh7qz~^TTmlRvJozVRYFk1jR$U^L&71UGCLe7=D{l`QL+qQ)% zTklt0){-;cx-o^OR`}1dFB%Q=?+t35TX|*sUwLTM6dFY1^^dJ?G^*8}4aUj8H2$3t zZ}3QLoK3Zd8>hQ5ye5qLtbP*K4dzgDO?zrbTOs>7+qTIl{LC7#>&7W-bItUPW(+@R zjiQvwt1xnE)iw*UQBZ*)qL`+-@l~bXD5WOVueh+2`NDsU)-YEaT zd4ut}Ir48zkzZ80?3*icYS2I%BTiaFntO6zsLK2h%_uu*ZRPFTxWr$TsFhB8pfYX& zyVAG9zkWOM;O&G)hxGruJ*6w{DUFUB^-EZ_Ap%+aYB{&7>{ydr*AHik${?29gGG4w1#>$npH}jV(cb$L?dubv|YFbGp@<6NqafE+u$s9NT@qu=uSsh!9jB{2enOHhGHi?EarVhXK z_?_*d!Q-Y=ICGUe^QE2R7m57p)a`fnkcP0obLytnZWoOCul9XDC#Tc6v|TSatS)Bf zx)T#4q*QAeJ-?{_Jf+&wHw@Qn4JwZ`RvAq%S<^jkK2R6~F8#*t-oaS-Tj~_!1ybL1 zhOwf{?`-=2+IBhA^2gg{gvDlS(s*V5?uMED7uRCfKVOSE|Ms<*6nOIrl(V(r^x${5 z*=~QajotsejXnPDZHzJ;SFEo8KepMtzu4?vf8Okp|8=vy`0}AQBK_etYE*W6A+LAU z!HjQJgsH=gI@jcV_s`EbNB;|(uP<%B4O6P&qEYQUeUSVwcb?^*y06jsN2}*AH;q9* z{^q9fz;CHjj2B6L)28uV*Z;4ZM#-OS8ZBtkFa}+-y8h7#R$rbhjc#20<|#`*wre=E z`PDT@f0(FI{`Z`+L`BB_&P4i)JIBDk*xC_)-rBN%e``A@|E1Rc#j~`Lf3fYi{(0L+ z{rlT)6x^`7cD(uU@ITuv2LB7YMcD7`7QeAWMBcnPbXcCN|HkFw^67eLr^Z){rMbVe z2dK;PCpO{6pan9=5@I91fMgh zYc+W*wDDC>`Cpt^WBz<%P5ie{tWe`6v#uNWnDqZI$K=U>vF%g-yzNu}Gi~?$UoEPC z<@)FDpX97+bQD%6uRU+R{z+5^xA<1aV{Y_6YiKg>W--)y~MgXA9dmnniy-k(??R_ zU3zsEVyZYQUJ=txH|S4?G$G6)nzVv`K1~pc3INIz8j<_@x)KIfwH+qFdT;4jNlgm4iiD(@(|id?Z#y3L`VMET3s z?#8z+dZcM%cjKj|dXjd`D0J0Bw2zGOu6m1r)19j=HL`;)wa_ln?Ouzzs*>G!!C3FA zrv)WsH1z3?%!c2|B0ahMV3#MD`Ebmn@P+mUu)~HHUuc+E?17 zQTxsqTbt-%L9MeIa{al{@054jEaU4YdSJ8GSu#+=ALJeKGpXl@$LsT+O|n_MM}Kdl zpT$|mFn2wyQBv`uxkwYY$~bfAr!J{=?hQ$qD!Lfg-1SzbrCp3b58dBHAMUjEBrfb? z^zzW70}pj+$oBi}hTkdMkBx^t^zdefx=`#!e~@hS_t`>B5{v4SZA-FQyhVR+q@Vlf z=QjH3o^ALx)x%75<2|jZ9&Fm&!5E~NV%*hK4>ZvnS<$p1-OjIdt+tfPSy652pe9Fi zajALZ$?-lJVA^c@Maf|!-jn9lsm2Da8@nDh%E&-FXWT7u*r2oV%%G^8hBp7A{pmS| z!&8rF7M0Ve_4MoSbig7qGmE%f`kQ`EleC|HHst)J4oKP99hJD#9z%U!|Ns2lhTji& zYxtcE9?CU(HKW-ypQ>y82l+)E?j{H5mihtuOlBrFlXedMjG&(`^z)-}u$dle3h!oo z-AwP^rD4TKiw8uCcv1$QM?VwgFXUdo;ya5Fktgnw>N)gNH~A)eH;ks~j_$^r-Zc4U zbvM58*8Mw7?_M`}G_1*u$L4|hlE43=WO{d_b924O`J$&rTX1W4WA+4VfN5&J(d(p^ zVTvp^mYmdrO$UmM?I*QBBhgon)lM3NeQ7Twn_0ekVDke-<%cch<#XICUCS$*lvjF$ z#N-)Uef0wAy}n!EJ=6trMs%XuUqAlf> zqP)^HZc)J&|1lQY3IF+_Ei9l=R2|P>d?MfdM82a(jmcI+ABCRCrvS(ED+NWFFFzvO zx}?Yuq^??0MEa_#B7XwKAlC=Y-<-%tWYTRrk-x=%#Fo?%)StpFeX!AFtoEc=aDkXJ zy~f>E<7TUIv4v1e-yEwgaqeCy=2*h|_cRtyvc|NHFBSK>+~>B@ZSV9F(dy0;ak%)? zaPeSft?;ZCg3Lsvwq#X_xX-+B$(j-)>5wU-8Cg}DrG2ILxcf$P*tb26IfqOUO)^Wx zuK7r*#=L~2CgZh`CX}nH)k+bUFSRDSQuxq6MfRyE@^7zX(DV; zALHjcG~dW+b;WY!JtFT5N*gj**hhrTE)`ps7P&8@PZ_RR+Gq!j9YK1)pfAWpJ+^={ zM`smTZ-^}Bm`x!eGE~c6T>0-rpYsBxUNPurH(5TV*RHY$En%AR^F%Gz<+nj<1RHC z4LuEc#h@E3kfl;S*V`yrW{Jeu?$YG=&0S{cX*@Ss^B+uuxXz-+(a>IdP0kHNtI^id zP}Z1fAVnOV_t08dGr45V)RO8*@!0f|*I)O%x{H_!_I4lDZS=ddtwy)i&=4-{W0ZvHF{aAC#=eIwZDT$AUW%3@ zQtcKgXG39X-{^}aG;O{eLx0gC`YePNKyAn;o_&oG%Pp-;#JS5Y>GsPe+RoPL1iE#t ze{U9U!gP7kWs{?+2o$7kCSjq!awS4UH;Hi3T_RfakZ2=p5{a}A655M=iBwS_(ODEq zbP+veuwv1d;OH%35rc&x?8M<>gA_-Kmn24ulM>^^6^RMLTO&*nNfI+ep2XdvOu{bi zl$a-$NX!@8Bo>LcB$kLTB({njGRo`XEr~PYoP?%XWm%9Gs$I5QM7owG#Zs-m#5iq& zM1^*r#7gZ^iN9+vNPM7uBymCePNPAXML7mo9+f7cmbDU5mPHbAmMVz^%SwrM zmemp+Ez2d+ErvvvWtl{dWr;)&%TkE~pcqPfDQx<~V=(-OBicyBF1Oqx9mk`>X{dfK zl9`Xxsx3#Q$!5zjiC2L)p?u%sWF_TEi;KihfXS+qP3+bTscmM>l1K(pq3mj%B9%7l zG>LNH4yAOs>n-J+^(1_6a`e$nl?C6MM1M(AkJMMm($V?~iRtCaY^;?Cq|60u>zL?weC(1O-Q;`$x@5YA0b9Y3}8+4Mngl zfn^^FvlxrARVb@L*=9u9;eNp`!#wSNL5A5aP0eDj`?b!bJcR1s12noDLrOm&6et94 z0d5BjU@Nc-*yFJ{h1~ahJRotn%+T$jt81< z?npLEfEDmqE&a`6dsErZj-AR2)u`2$6<0sDIGte%<8E^M|;ZFi*yCM z$o5q2z1>qaZHni;vT%lHg~a`y3ndnL-Y;RmWEK3kL3#yv3-}cH9uV{)0{JxqqJd-} z8?YCEgMl}jDUTz~RDZqOO!e0Xq@-Ejns79QRw z^C^#3-YQ&}w+i0YTUKQkNkod?$s5r#VAKUhg~~`2!=^uM9D@;k7%&nZwKnNi`Z=1C=7s@UZrxGYD!_3)_im5WwvhUt@R`YZxG zhj0gBa||ArVS1fS?G`_^8UukSKh?_KeyTwO{nTO{>Zcat9e!#tPV!TWaTZMGz;7v} z)xcu}YV1ZoGH94ok<<0;#IqwNjlhY25`RwrkJeI&?H9Xb^sL5Fk(z=GCl6@OyaAj> z>@Q(r2~wM$lLXb@EJ((7bX8i>O~NdSg2HX&KRifvz%*cakm`UHL8=2*lae}MLl8Qk z7KML9;osr$LXhf!mx5FW?1#r2>~WYp1iaYDGMe;mC`YSAnP9&tU6#dOdpdli%r3*1D*_4 z+tYsFV6d9!mk{k*u-cw(1gq`Ivz6MOyj!X5sZ}dgVOT5W-T_h}&<`k=p#Gl?@qS+cp`m$G)hpfyPKGa*8|mqAwIQ7iR~ypBaJ3;_0z`z$-V&h($_em} zP#cnOgxZk8V3MI=7o`xVM5wtvJwnaxnWUsXnj3++Js*V&QTPZvRz;|}{aA#W+w0*` z%O2a{u>&4^;IS`4&Cpk1dPthm{BscH=;3LHQL`FA@?;_OPz5>r56&yDr)G(On z`ElxwmXWH-L6ItWx>7naQI;2}ruIxo_ejuTDN;@CN2DK(|KH$$C{lI6+mWgRj*^l( z;KN9Cz^5oYjlv7?_%2d)z?DeV0YAdS6a^2bC>72%N`>={QaQGaQaJ{ZM8PA-)GqHw z#6+nMXal4~sd%YTssjq6R0s5eXQ_f?K$L3vU|jzW4@!Yn?H zQXO!C{N(z#(vxVh__TmH;bBR)d98e{F{PfN3`mIr-4HV{x+h% z&k3A>$5mzH_z9*?F=|3|j8Xn+G4lM^EOKI0hm^#q-Rf3gLX28Nt725|tdCKfT}_PI z?4FHLo85CUYO^~4lh@#P9MWmvO9J)dH!{-4ds?twV{lXFpK+P@&HU8gvrCPYC|z3%;I^Nyak3%n1q42@DsjB`pa9J0prqknbYC3I#%XW5o8ZNsKZ$CUjZ?GfIvhnCyA0s4wo%i;83<{kn%ugL3ZAW$j$D)#w^8%Q z4yi)IEEcs<(`OC*o&t`xQ62DZ8`S|Hkdiv!(>CaUFHv~54bJ~A!{url)dAPrs16YE z%EdVzF7ELvo@cy@7f6LPav||5$JQ{7gQ+7SUUfh+kRGqXWyY%x=pC;*pdTCu+7%tc z;#CKf0W%T&9@wl>O2?xp+pK~*K7e#W!Yn?IR~>K}er|15ZgFi@!fo5Cgp)`~9nh&Q zT9bvsu6C3b!KHUw)dBt5s*DH1rHox}gUc9rOoPYFwyFc}f$6<4b===pb-*IvVT3be zaI@IbR&~I3ING05bnI%YI^cQWD1yHWo9~p;@jc441T_Pa5|l%G3A4yZP#sW^pf-?U zz?cNJW*$yZ-LX1BZ6IqC)CTfog4#fK+7r|cvKKZl!|@$RCxP>TPofOt2u@VnL8ydT ze!Sxkq?T`-v~P3XKNu{4*a&yqyD%59~JEnWdW1U?78 zN?a`W2uGsYBfd{md&JL)YLC#86x@?k6t5)J-sV6^lG-C$C#gLm0Vest2w+aqbhZBH zC8;TLA8BcdEKb4{c{oYU9|MIO;Ib)6&5$igYKCls$FuCQ8y+vh<8^qvm853K5ttr_ zspDjlnjxRs!Lx|>wTx~SB3VrlOS1BGQgAe(M|`OtngUVDs>!i1u_>ja0A>A>)eN~0 z(gF#ycqm!TkPYyA4mh4{S8e<#S#`iCq@@lxlZ*~HpR5WUDEtX7qMhmhOFPv8PVJOO z({}J^-cEV=wNv3*Qz2y>)lM}d7N*HCb#!Q_I>6ou?235ZWOTC_*iLo8PX*aNlpVDc?TSUvwTV;k_J8$ex8^+|$$7GYHDL9sO z{zyuXC^)uuwx5>blbt0TuXes5rPmc4ri_FPlB^02kBlAi{+*YCBPb(XmW4=IM3ywM zh~f;@Gt;DrMO0=ilFCIH3#7CpqfBC1Mz(~Ju}PM#&iK$Sxi-UHYWHOvk$}v`951-e{7R9IiBzGu`JvpVG*B68;kh1 zi^|kLn@s5Q&g`}lZL{B!NY36U(INXjiL~t7Br>zROWcyJ(yqu>^P)Oi&5M_^RU`hH zts3Fq^))&pw2J^mN2jju%M--T3XamQho#g{!7;w;DJe} zvKLYIW7nu0D!Z=W&~s!vg^Pm2CnsH&+5IJH3gwU~O`#l2A!$QXC})vWF3O3^B`nD? zODxMdEtN*jeu>pN8zlDTsP=x6quP5TN3}O7SGBiWu4?a~-1+j5H&nrKTkhd*B#p5v zI;Q15Bn$79u!u*bjYVwCRmmKZCbY(KKarH+wBfoo8odeyQIUr`z$H?Dmdc1PnS}nf}=f*-==2RQRoQH}}kx?(PzF|0S}g3e%>i3X|GX*^KPD zK(>BG&&e{(x}H-dc0<|+=>td~LlQ+QCrgnE=31nJWkTvMC5sqUG^U6!u4sb9l%g3_ zgI&}Vjgi^Z7Ey&3vAbxm#NML)vii@9{N%v?Q^9dw!YqP{)fk2sZ;&Rj#d*C5ZHtqn zW&7gg)cKBn#Til>2#l0U`cS!eP#-F*ES@II?pJWwA1Z!C4%c!C`sk>5VIM+G@$6Dk z))p_7Wq&JPCWF3Td{8=msNndn_zNk04~SmM(%eg03g=#`LZ4o$!r)#ldyz6!!4cO> z)z?;nJ~_7cQWa+Qk`+1%dQFk0MG|K5Y{_%I342No$HIg6qRwLQ1RE<_)sa*|MpHekkLrRr&iYa#ch4wmfbxT%JERn?4z3dc%RC?RCc6~ zXAn^w>*Fc$d7sq2H!B<+pY<)@k)XoLHH^`kEREd zRK@ZQJ(JWkW|V~#`qJ|+^(6<)!bnThJCf7TB;C(gkVsE(3*&`EJ;Fu3YNX{8n_3!~ z?^2PLqdOP_W7ZY@EqaaCtSoY|tBt5|JpX%h(dZT}hFD35jc~g^B z@3gAx(e}xDn)I4TY&yTFrZ;ublXZp9CDY@SRCpp;Z|fy$2GHw?)T4Ja6tWXqw$uB| z;wkO)+4LzR`l}bc@uu3$FNY{HoZ9PcsWG+f_3rT==^S`ttC}E6%p;iPuy5(H7`-HWHOm|&Z`Ziuc2i;Q*;IIz#V0@kSZyj`RDeUW@x38Ort_|~WbX~_> z?4);VQm&rzET?BY$zw!EeGF&&R!4oFo1CP<^dcZxHY8Qgr#Y^Y_Arig)Dw-5Q}v2E zRnvM^oO`up4A&tY4|k%6Xo*za$P5nPg>*KC)C9{etm{%0-20|7OL?PEOVjig^y#MT z>AF6u_Nedcm(%nJDm@l(ti^A3W~~{ydegdsDC2 zYD;7reT=NxdW6xgv!2Ucbx&tKm4AJ%v)%>2?)tg2K3Q|89<0)x%B!56WLM0})LXFS z>dg8j_hzOZB`Yf^(u2&>%r~n(_VBFw*lV)tVjHKj^eMjxUDl;Ow7rXdi!V(hEKXm! zU-WG>=6=RYU3AxIxu#rMEx){9>*j2$Zko)Rime*E8%GNCDC5JQ^kzoD1U=OF<~`lX zXq`i|&ynZkZoHDMPo`O2(M-Ol##ZazIEc}+t6sw0s9v}6MpwNBJ($ptSi`r`uXfeT z{xIn$%5_&`U9xUzc~jO+ZmMv5j=u1Bv+0$q=hYADj$GZFZq?Xor(+h-x9DuOHwF8x zEHBa5*<=X6Zn{kkfQiP|qQ>_2ZhDKl#V|)s6o2C+^Fc5AeXym{cOEw9(jl_vRm zSp8_p!;aphu4w%v-B+bPBwue$p9GfE8>Rf|xlN~oCPBYi=ov~n5i*G?;Z!ltY)ErA znvpf(sb}c|CB(=s*8^^H)7Z_E-000+bJ1)_TP;*+ySBudqD&XeVYDP$o-a;+_Jvun`wDx0VSWV=C zFgnnp6U^M2U}_DWRa0x8*5v-@*K7nmGMswWSxhwNi8+aMVAhOvU1+Lo@2Wewj-~gH zIg2oPM3&pUk&xx&Y;2mud;D94dW>cmT2rmLVK2~~>4V&cZvS=vy=G+JuKTH8Z`>b$ z;&r?7l5Yg8uZQ;RhI)QIysE`C=AQJ8h`Omm-A0X;FD7bhe7w`@OAD=T>elbu^)Du) z7d`RuuG%A}Zi0mt>08x=uirdvwX2OenYw!Q8_ngbMS7N;(`m(eFnum_%=wsJ?mvd! za8+%&mxHj5zFyv-Gb)O)*0vPWT6nCtlWx3KtiMg46stA00;{N|rEOzyO(1QN!Hr%N zX6);whw=9P&tCehPVMcKOFKk9=4z2Xn?`y8= zh~!&d>91@pu;o*p#wQBKXC-=T*|shRZ)Z%rFs#a)RdR%u>myYXv`|3vFFLN(T26YwN#fMz0y0%$}1yl!Wv$Y zN0-G|A=P@_Ij3>4RQHqVx%Q#&O%dDn(OWi`b{ivW!l^&&UoU73>7%a_p=Ki5R7 z`SXj|hF4$RX7ns`@-gn{tG7`b!J~ckj&-d!F80+sOCg~jZFd1tMnONlm9meh9}3U9 zp{Uc;55r_PV^XCaW?ZxD17iKSW_LZg z7i7{TbC@dzi;W#>+BZJsL6S5|^u>x@?QNUd+b+3cANq*gWrc2o^=O(b?FZ`}>1JOG z7h}>Q>g>gX_3pCty}|l3rU_m$oe*R80^P-Uc8Km(f9yz;v$XEQ18H3tf|Ekep|ts` zW$1IO-qiSEI9BJ_p=k8dq4Z@5s^I(x{Vbi@l~*Q~S0-;vu1S< z+6^+k5gWGEh4*xoO8pt5({R15@m`u!QzLh{?rFqKbMiCB4cEQ@7nz5S(0x^=^v$Tk zjfFM&jr-Xs9znAv=5D9vM*k6XE>&Jra{ZHR@`Eg_;>kS$r$p zwwBT5GUP6!T;j3#hSM|D4p7OHCV@BzH>4T%1 z&bBc6o)Asmb#>cmW}T**H8v_;UbmK?97XfLAdOCoPmZEhO_8!k>n&2LX`1*eu(`tl2PEe~@pvJdBurc0$!8BSit zrqOy%!>PSIk+f8@;UndG=1nIXvbDp?^{Mm_YI$XBd1V{h#x^yv^1$KGF2=cX`cgQV zg^aBlI~P zSi^Esg^@jlt{~sKUGJuheaGu5U0_T{4?3jZWc&oh2yS$85ykxwmKH}};-eorcvTd; zsN;}G&EKz*G;4n|LOWy7}Yj2^w3|& zjB_a!VJ%{0O)&fW4Bg#(N`Y{gY$L*26pKY!hx6y<#}pVJ%+TeRg&J;F8E$v#t(wxw zq1-0wZvb|>Q;(x(Ys;%v=;c+b^lhv3tt<4KjuUh4)Q8iJEV`jsUO9*+9}O8@c~h*I zib%0>P|bkG)-+u%E!O2eHo&%NK>eXRai+e^F4PT8%L<+}+aA-mu8~!F)LrlKxu!=m zwy4#2RVLTA67<&Mo2Fv5UUw=b=MgqZyM2nyU7rjTfB9^X}JjFpL@u0cZ zNw_|-cU4h+w?`F472QMsCD4!jt)`GN`}*g)7S*+|q0MzIsI&0mj9IQfQpgJz!{u&$ zTo?^O#W}CKlgDb0UoSp6>EeuickA!T39qiOpS?%#D}_)yonI!*!YvSWzO;Up{&8>G zh~-tKIx5%QZc!R_WUklz!BM;7_4>;RIreLfBeV79a%!rRFSVj`j1hL-^UsdCoy(je z|D7kx)aV#v(;R)7g+?<8_cDX#(h0$!xw?9PxY{)r+nijD)pK>PfBVV1%IE0{{VR3G zudeOoc}!iO%QOC8T?SxGznDi~&7Zx?^IqLY`yV<78{;eK1g38Dc)3#VYB~^Y?7Np{ zNA!LAk9@!CcPd^|sXIwuuL`>Mr28tfu?OvXa=w12W}48}xHd~~y{qQ}-CJvP5QU9^_J?U`0I;sPWt5{{UN$J&R5i)@(^Bkl`XFXq9bt8 zQ+F~~w_xh8w&--M;w=x{w7&R&9zf5B-+Y<$8y;$}wG?@T?KXy1>3;U{W%VoHJXHRt z4=pbH&;4ir&sFuCHQE1zZT+nT{@ecl+X49R`2W_d{LktBJOBSX|Nk$0;J@qtKeyI@ ztET_1|NqO`Usn9z`Ttw9@;|5h@BIJo{Qtk~fs%iz^0k8>7&5we!SL5cJXw5V=u^WU z>9e6oO8K7RCk6f9ys z@F?B1pBJevUt^=iL1%gI%30pKIx(sK3N~b-{I9k8Te4!3apO^amFe#h(l5q%MfAtkqi^&TI7mdmP;rvx~5~p<-LLzIB~0Um?FPpFYE=XeGiP4;K}; zh_E5)fs8R*gqu3Hcv^i+LMQ)y@(+_&OzAas@YEkB`%X)lW<2(?)z4VC zUiY%oOQ*bq=HdK3eYZi9o+b?vs|7tp8bY8i!9)qIT)vVj1y+t!w(cP``jU)E^kIE} z*53xbV=ButnDe0jLDRIw^r|c2p-F%G+Cp>r3q7YANbiFreTb$#F3aOoxke>(Tt$4$9t%Zf;+fi;8 z6XY+{-Wj^={vRIEF+8uazs(783z$Qg6;6m->4dlooe=j!F8@lB!k%~fR*ve=tnTTI zaJ?j{*gn8njru~?Kg=|^e61{|XSSU&3O_n)O`Is)b!W}hiQG*t+hyZ)7tJEoE-so$ z@^%;0vXEKDE7A>iRoRBQqP_@M z)K@5r$-S7(`orv2R*z=$v26Yfo9%I>ukDlDJ}!TS%R}4{uC*k!GR{ran&5_7lig73 zD3;4v-pp=0*zGyEU1zmuf@sc7RJ0~dWHefTO`9NGnNpa?c4)c!8{m8bTizIn&FoeItLl&r7=`xxh>NR&t4#_Pyl8Ug+s{Uf7K`cwt0d^}+zZ z;ic(vp1kd)IZGaudK&N#z0`nz%<5BYcAniFZ1#f}y&Qv%^FMJlH<*@Y2D27w|i6P%KCSDqqm>sdR|05FSGi9v?H@4?01aK zK7yIn9E;jQ|0Jyw9S~ES;|NyR9N8Chd2dxtbB^_kB;}XWRyB|Dpzx2e-Fmh=!tybe ze_;6<%Yih5$Y zQhr6uyL?gaEMK&DhcDWDfXiRw@;6kuNqozCiyy*z`>E!(@>5~x;=m92+n^8yEI%mi zsoomq6Mo2ls~_@ru>L#t`=0#*{83M9dbu^ZcaS16k9j*6Pw=1QO=|lTe+>R~e~j`X ze@w!~{+N`{vfuOmNb^O1G=Cq*If!cBWc6V-`-t5>VY4$ZJI7|@d1=3&0{6>-9!q*bLzNsb3PcvNtWa~|iuLHi7R|*#h)XHXou<{K=-?a=xUj_x* zr8&K)C{T4)QXsNvABb$SS_4o1LQ zmS17Juh{N8*8j}$tgU2xIv}?~hj_F?hjeUZSBo*7^_fync6YTxeRElVFYC9dIA-x& zEBc23$nGVM`wzA|$aX)ld`-z_(L4kVP7IN8&BDfVpAb6|>K}rNmns93SQUZ}sR==c z{Eg*T+3`Hveb0J&&$j9~=TP{y4n>98p=d}x>-&bH2XzS2@m4;TR<62qfng!P7hf)7(44JB%9d7lCS9M!-Ch%#5M#8^YB>W>-j$wIZBzkGKq&)w5Kq<^( zNu<_9Zr|(J;7R85%y%Qvtsg{UPG97}msDW0aE{WB$vY`2QCNIMQK)FVBz12^R9+;7 ze~8svBxU_?bNM-xU*~djG^(R#`PCANU^$v)8_NYOk7Bu8%2eHo=)6e6Q@{t&YNz`t z8aXwM0qt#K&|8TyvbSikV|eFaeXi2e%`}$#vpjoZ~zzDukOZx-ERafr%eeWBD-JriTqk#8!i zXRvy8tUB_oWpy>HUyijOh^7&Emuvlsc|I1MaxoU2;uMEYaf^e#X&k0j3zh>}&W%Hs zJ>rnfxVSUkl++Xg)p9?VF5=SdaU*=~RJ@Bw#b3wq(6j+tGxM2)70qI18zl26>s!Rb zK9kua9!ciMBgs*$AItjjtiNCC<@{U91rKwPW38nv((2AEX5Ol37WcH3&7kw|zp>(2Tilpzk|1wHnuK=(+ToXgc7(DVE@jFm zH$hD)8>!}8cfBruD)gZVboEeYk#lc+w~|9(lRFqsRoWC7{BvVJJ*Lz1Cy zoeXyUu;D*he~$H6 zSRdLB6}M-WGw)-*%zUFA;=a`maX)0egBj4C&;KIYBVaG)Am+&S2yk0_1enZvJL@Z0 zznJwUDd?d-Dd?e@DTrGkNmFJa{hLzM5sOn0c4>-cS94;6vZK8+1wHi-_Irm7-%COL zUvT`h9N*Ld^;tWhzK9N}uaG&2S6H!2K8ZPm zIiL9y^CZ(b74~kaNYo>h5~YraPJKC!s_m4j>Nks_sk9hLKQ&dYsrjkc#}=kyGvA@Y z&}RhFjQn2buvggbN45*?B&(xOW;$u>C0 zd1jL|v@434%N)kMoB0THC-XDrb*8I59f4Xg!z8IAV(DK!lpVzC9;}{_uKMSmbadyO zbUE(yrQvk+%X&6{JRL{1P3iKeW)`Qo{05ghcSirZb+)5}JF+6JGvsNVk=6sueaw%U z9vLW)V|L3xLbeP{#Br>zV6J7p#ypgP34Pd}fu(Sc16<$$&Y1|=N>LIVP_(0~Y*qglQUvR#Z-3i^~O3uAaU2c9hh(@dC`rOwUgtN14I zXcii>E(`f?$U?sRS^kHT&Egt|YuAPBDNJ6MoK#Ayv57WoyQ1}xUF}fBvZ6g3bY!`N<-RNr?}}#M(iP1f-4%(C?TX%-(A837mMvtz8SFQg z<$I+}9kaRXNAh#!y;Q&YcGP@n%Fvr>cBep+9Or+}0QT^&%>jE2IW%(zTeS4t1 zWe?;N-UAabss|=un;vLLLJzc~eGiLW=9$_|aLtSR%axfbQ>)k`MtJ?cY z1$j;DLI3iNSv=B1HS$q5U&rQ8bKSdS-DLJc54AJB#3}6O6khA09rL5M9cB0T*!@$M zPqX}^^poeG*OeoEEM-GmLTuC)il1v!mn}9Mx}ea8F6hVdK$a)6+Z5?W;TEv`0L!~r zexAdAY*UvzpQ$i({{1D#ad6!4Sa!`rI_`Oh+nVJ_miy!(uK{_;>y|tW&8R#K%~-Y{ zuk6iYavt`E>Fjrx^powsmlg9l&|~blo-5kN@+&NV&hi;4Q$ID&SHl&Mk9>pkk#BdF z^Q25>vtd@5kF*!$%e1Ne%kq);Bl*aCHTylL;?Tdok&nDLvEvryNS}7H{CAd*viu&) zpK{#O9QU6b_Z-J{W!6Ny}(rE>U?eblVGYaNO%q)nZlgl3- zF2Hjh)dg6~e`6jfK>xm0fc|{5KwXc1$i-*5%C9*Er$V^96>2NwF|KK$wo0-Y(?{v4 z|3jrAePj?`IA5nMq6lOb%VzQHK7i%HELU*&Ma)MEk@cEF?Lp~ZU8p@Ixw%k#SaMsT z_K4&@*gIZicxF%Z$2~o@$E0lUsjX4-ZxI))X6|90WS(V*ua$#I1Q#Jt3G+@#nhHybR>^aJ zqX=WXioWJa-MI#MjK1Zw_G7pv7_FIKB#Ua?vo^Et{QM4@*}BI*j3pW>XJ;hf%J`7M?&vV6(Tisrr02)|xv zL`Rm>SnkDgDa)0;koEnnU&Q(?EN^4^6_#IR`6~PU#CrP;F32rG0zFEQz#S#1U{VQM zHmwBvfSu(EmRGX8hULF;ob4RvEiOOGi&L*4cw%lquC_?#7I zSa#}^*yb)%p)vf0Fgr z`_Gn#b!`BeWgUQKHD$RO%WVcA%Y*^QvKz}bmdCMt2g{3DUdr;00et=QG%Jp=!TT(q zXW1cTYL@pv)vU;YXjVEib0G4_9tg9c1J&S_vHDh4-#bv9tlU2kt$JV}-~W7s6)Q<0 zk2E{k?^)?b@*$Sr<~ZLXi|<)|mCafVLKcC8;MSGpZY)n>c{y$ zjAnyLEKg;5G0P9JyoTkqEWgb1KUn^R<&hm7YXR^GU<&`Wy#qzT(zr^x>mQTw1fw*@uXN}L9wZ2HfRz^1=@1S)!Q1XV-}WB&+sJNtE3zbVz!u|KlAa~bM&D?=EMGKBFi)9mW@ zk8c^`1eB>bt;&!_>oTMj&vK%ask;2K-STGnEoI}&=u~2C8BTb|mzjss3C9Fr5-_Dq zm&$4M4Hm)-U?y-kLB1S*7DV}-Ig;iA^MFcVKCl2-1XKY_fTh4PU^!p_D}mL(qrh4T zy8c-YaRX2TYyxV5Ex=Y_JFo-T2|NSr0-ghQ1ABnIz&>EVf?XVd_$qJ^cmsG7cpEqZ zyaT)oybl})P5>u?Pk>XvY2XXs3}8PCo&(MU7l4bvcfe)f3UC#;23!Yj0NO2TB+Y;o zZ~|NaH^AKvHU+!@Z@>re16lw9KoHOh2nAXL5kM3W1H=LGKmw3-3w=?L=3G07DL_Y{ z6OayM09imbkOOoBdH{Jq0nigD217@QBQXG!Li*<^v0WML-p>1Xv0z1C|2@uo74eJSsu! zZ!N_2zy_cO*aXx9TY#;=c3=mv6L<#L1w04r2KE4Zfqe>gu^-|A;8oxt@CNWE@HTJ+ zcn5eFcpo?poB&P&p8%(T)4&&i{S0^(I0u{uE&vyS?|{p|72qmx4Y&^60JM=lIfx*B~U^q|)j08pjqk%ENIAA<50hk0# z0j2>n2y*?+gm^bF3*dp73uzuu3Csr;0E>VsUwyhG z4X_EQ1-1ZNf$hK!U?=blunTw&*bVFf_A1!LK8X8)1Hh}mLEsJGP2g?d2=ET@F7Q5Z z95?}-1U>;y0jB}`7vLG-EN~7u4_p8)0^b3bfh)jO;2LlpxB+OlVi^KfzzJ}%gKmI3 z&=l|jya6A;4`=}d06{=2AQWf~L;z7h3=jvz--`8@05J(@2c!TUflfd=kO5=?*+34^ z4d?;n0R=!$pcp8*73;4QVqc&?Fc26F3;QHG&j7oC=YZY79tFGD3vnN?A2=HVVrSumVnY&;@V<+<~Tm7vK%} z0DeFVAOHvgS^=RzYajxM0%Cx;QCNTR5EFnTpdF9`bObs9=|BdM1!My`KsTTVkOve1 zJ%Qp;SbrrDOM$*Xe_$Xm7#Io+2g-nvz$joeFa{V0j0YwFlYl7%x&Ed>oB_-P?gnN7 zJWO*T%>ycd`M?5T5l{sz0hR*GfaQQ8LF;cN#MQu~z*=BEumPw6HUYK37GNu|9oPZv z1fBtQ0nY)u73^XU#J#{iU_WpGcojGZyaBukybT-y-T~eP-Up5YCxDZ{CxHDFcpCTu zI0Kvo&H?9v3&2I-JK!>K1-J@a1Fi!%0PQv`L%?bWod6fW4R8mV0$zYO-~;#pEr0+Z z2xtX_0ES5 zf?e!}xCht^>;v`#2Y^?BgTNcWo50(^5#Sx*UEqD-IB)_u3D`dYPXVWaFMu<^S>POS z9=HHp1ik|<16P2nz%}4Ha0AdrV;R~(E8qmU0B(Rg&=l|jya6A;4`=}d06{=2AQWf~ zL;z8vvHoHp#sTp_0+0l>15$vFKqnv_$N;i{Y#;~d2J`^(fP&Fje?1`<10_Hy&==?r z3nfSJJEz$}0VZ7!sFKqW9ASO6>n zs(>ZHQec?`t-s|E4PYg(8h8{~3#z`MZvz;WONU_S|d0-OR)1784VfV03k;5={vxCnd) zTn4THSAlE5b>Ie|*~_sG0W07HxBzZ|JJ1yH0=xkqzz=8v1OP!mD;?7#`+)<% ztH43v4d6}SZQuy-4)8AUK5!hcp8!t+p8%(T)4&(N8Q?5%4mb~704@UG0hfU*z*XQH za2>e8W2lY6G6bxE6W{{40q#IkzzgsOd;mY71rPuP0j+>gp!FE6zX*s?KnxHE!~+RH z63`Av0XhPmfOH@O$O5u~9H1M}V+__`9>fBmCr}KO0Hr`*pg%AW7z_*rh6825NMIB& z8W;nNBgpkP9^wRG5-^MM7xBA^ObB0=kKDa2*Ka=-vq z0;_>XfwjPTU;|JCYyxV5Ex=Y_JFo-TsbCk+K->j92kZv+0DFObz<%HW@G5W+cmsG7 zcpEqZyaT)oybsuqgC~HKz$d^d;QzIB|FL{;cO1uADrT;0Vy5DXnQLaICTe0Pu9&#u zx~^-kiEAdJrm7#G@8|oOYi6J8y5^d?X0G*$E7G{VCS7AH*4uT~HPUw0G`-R_)`=@( zCL*FDX6A~$&-Z!$_~wzd5{kUPzXg(3?)zsWl#m~LvT%RhWQD502LqaT>0}4Y&z2 za0_n3EZl*6FbDVH0X&3xcm$8ZS->Z-2urXGE3gV{unrrr30trYJFp9Tunz}tsGr&q z@ff`8DMRo9U+@Ee2!KEcf?x=NPzZx?h=9m?>Mx2I4KWZ4aS#s)kO)bT3@MNbX^;*X zkO^6kT~Gbx5OX09@}U3^D!EKm@J8%!?;66NnhcFM1zI>9h=&A7gd|9Y6i9_M zNQVr_gsgMaUp6rZav=}$p#Tb@2#TQuN}&wOp#mzQ3aX(-Q1w?!tb=-J00T_0z=kGh zh8AcA2il+=I-nD}6jFcP#2)B{KIn%5xCnzV1j8@_mtYhw!x)Ui6}alb@tPn`!W2xy zb+`dHVFqr&ZJ32Sa1Z9-K0JVjFb~cnd<+Zl1QuZlmSF`}VGY({12$m`wqXZ$VGs88 zb2=a%!Vw&UcLQYzKHv*};12;12tg1GArJ~-5Z*xjMGzw)3ZfwfVj&LVApsI036dcN zQXvh}Ap?HsnAq*+hFA-AP!A1YfC(1Z z&;-rU0Mxua0g(^|(GUZ%5C`#)0Ev(U z$&do6kOt|Hai03iBxXT28c#v_pqN>aUa71>MjCz0e2!FaQ@}5QbnFM&J^R!etnPaSx8y72;Kx zfJvBwX}AtI;3mw#Ew~M{a0l+e9NdQo;5@{6cm$7O0iM7jEWt9Yz$&c4I&8ouY{53{ zz^;BWd&GS>fI~QfWAHX8L+}A#@B@DcfItX>U8ILKH+p48%el#6tok zLJ}lH3Zz0Bq#M*<1~C(|ARBTZ7xEw<3ZM{*pcqP^6w06+DxgwO^;bo#h8n1aI;e*R zFu(*0Y-oaJXfa00Yk1_h1&})3-2ST4QStj%wFRK4qACN=HB9keD#Ug(&SS&Jcu-Ih9V6n-+3|VX< zt3@^p&)XWd^zf$)cf3wCvX;fSkwq&pjm#I<$b88@rk);%Ceb%m}=RK9DmXLN~7G)C0K?PGg>vSlGb1yHt5?l z-!kQJ$9nqDxj5XjE_Ue%a&a18((TbY$LgHq$#VSDx*=Z=cv)pR&vw_lUlclBAIHdH zx^-`_9zCe@2YU3BtNf(A$^4Hl?`PH0qZy^FLcZ%VZMlv)L9Y1|muJV4r+?R@7F-U) z|EXvDRL}lDosabFK~{W%oXbh8ElMVT&f?M{Ezb0m_2Ki9txfvMd<{m$%^C>sG ziX^$!t|IcS(fz5Oet8kB`-GR5-0xT2ZBfE&?hn=bbcf6?w zcIb|Gbo+a{{e3q@_kmlAQ05F!y5R(JJTf2#XebicRF@lV*CkDp_6 zS8`#rl*J&TuQ4)u## zXh*q(BKu=SvHf2~iT%EMzedZv}K5s=!WL0*XY!f9Xmd|p0& Q^7(>%{KsB6{me`M2kXsrSpWb4 diff --git a/genesys/edit/MAKE.WINDOW.S b/genesys/edit/MAKE.WINDOW.S new file mode 100644 index 0000000..5141695 --- /dev/null +++ b/genesys/edit/MAKE.WINDOW.S @@ -0,0 +1,29 @@ +* +* Genesys v1.2.4 +* Make window +* + +* Expansion linker file + + DSK Window + TYP $BC + +* Assemble files + + ASM WINDOW.S + KND $0000 + SNA Window + + ASM WINSETUP.S + KND $0000 + SNA WindowStup + + ASM WINCOLOR.S + KND $0000 + SNA ColorStuph + + ASM WINCONTROL.S + KND $0000 + SNA ControlStu + + diff --git a/genesys/edit/WINCOLOR.S b/genesys/edit/WINCOLOR.S new file mode 100644 index 0000000..a022180 --- /dev/null +++ b/genesys/edit/WINCOLOR.S @@ -0,0 +1,1515 @@ +* +* Genesys v1.2.4 +* Window editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/QD.Macs + use 4/QDAux.Macs + use 4/Resource.Macs + use 4/Util.Macs + use 4/Window.Macs + +*---------------------------- + + EXT L014B1E + EXT L014E87 + EXT L014B68 + EXT L014ADD + EXT L014A35 + EXT L0105BB + EXT L0104A0 + EXT L0104D5 + EXT L01050A + EXT L01090E + EXT L01485A + EXT L01497D + EXT L0153AF + +*---------------------------- + +L030000 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $16 + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA #$0002 + PHA + LDA #$0001 + PHA + _SetPenSize + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _FrameRect + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + +L0300B1 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $16 + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA #$0002 + PHA + LDA #$0001 + PHA + _SetPenSize + STA L014E87 + LDA #$000E + STA $24 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _FrameRect + STA L014E87 + _PenNormal + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + +L030171 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA #$000D + STA $24 + PHA + PHA + _FrontWindow + STA L014E87 + PHA + PHA + _GetPort + STA L014E87 + PLA + PLX + LDY #$0001 + CMP $01,S + BEQ L0301E3 + DEY +L0301E3 TXA + CMP $03,S + BEQ L0301EB + LDY #$0000 +L0301EB PLA + PLA + TYA + BNE L0301F3 + BRL L0301FD +L0301F3 LDA $1A + AND #$000F + STA $48 + BRL L03020C +L0301FD LDA $18 + AND #$0F00 + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + STA $48 +L03020C LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _FillRect + STA L014E87 + _PenNormal + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + +L030255 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PHA + PHA + _FrontWindow + STA L014E87 + PHA + PHA + _GetPort + STA L014E87 + PLA + PLX + LDY #$0001 + CMP $01,S + BEQ L030294 + DEY +L030294 TXA + CMP $03,S + BEQ L03029C + LDY #$0000 +L03029C PLA + PLA + TYA + BEQ L0302A4 + BRL L0302A7 +L0302A4 BRL L0303AB +L0302A7 LDA $1A + AND #$0200 + BEQ L0302B1 + BRL L0302B4 +L0302B1 BRL L0303AB +L0302B4 PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0006 + PHA + LDA #$0004 + PHA + _InsetRect + STA L014E87 + LDA $1A + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA $22 + PHA + LDA $20 + PHA + _MoveTo + STA L014E87 + LDA $26 + PHA + LDA $20 + PHA + _LineTo + STA L014E87 + LDA $22 + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + LDA $26 + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _LineTo + STA L014E87 + LDA $22 + PHA + LDA $20 + CLC + ADC #$0004 + PHA + _MoveTo + STA L014E87 + LDA $26 + PHA + LDA $20 + CLC + ADC #$0004 + PHA + _LineTo + STA L014E87 + LDA $22 + PHA + LDA $20 + CLC + ADC #$0006 + PHA + _MoveTo + STA L014E87 + LDA $26 + PHA + LDA $20 + CLC + ADC #$0006 + PHA + _LineTo + STA L014E87 +L0303AB _PenNormal + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + +L0303C5 ENT + TSC + SEC + SBC #$004C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $51 + PEI $4F + PEA $000A + JSL L014B1E + PHA + PHA + _FrontWindow + STA L014E87 + PHA + PHA + _GetPort + STA L014E87 + PLA + PLX + LDY #$0001 + CMP $01,S + BEQ L030404 + DEY +L030404 TXA + CMP $03,S + BEQ L03040C + LDY #$0000 +L03040C PLA + PLA + TYA + BEQ L030414 + BRL L030417 +L030414 BRL L0304AB +L030417 LDA $1A + AND #$0100 + BEQ L030421 + BRL L030424 +L030421 BRL L0304AB +L030424 PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA #$000D + STA $24 + LDA $1A + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $1A + AND #$000F + STA $4A + LDA $48 + PHA + LDA $4A + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _FillRect + STA L014E87 +L0304AB _PenNormal + STA L014E87 + LDA $4D + STA $51 + LDA $4C + STA $50 + PLD + TSC + CLC + ADC #$0050 + TCS + RTL + +L0304C5 ENT + TSC + SEC + SBC #$002C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $37 + PEI $35 + PEA $000A + JSL L014B1E + LDA $33 + AND #$8000 + BEQ L0304EC + BRL L0304EF +L0304EC BRL L0308B8 +L0304EF PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + PHA + PHA + _FrontWindow + STA L014E87 + PHA + PHA + _GetPort + STA L014E87 + PLA + PLX + LDY #$0001 + CMP $01,S + BEQ L03053F + DEY +L03053F TXA + CMP $03,S + BEQ L030547 + LDY #$0000 +L030547 PLA + PLA + TYA + BNE L03054F + BRL L030576 +L03054F LDA $18 + PHA + JSL L0104A0 + PHA + _SetForeColor + STA L014E87 + LDA $1A + PHA + JSL L0104A0 + PHA + _SetBackColor + STA L014E87 + BRL L03059A +L030576 LDA $18 + PHA + JSL L0104D5 + PHA + _SetForeColor + STA L014E87 + LDA $18 + PHA + JSL L01050A + PHA + _SetBackColor + STA L014E87 +L03059A PHA + PHA + _GetFont + STA L014E87 + PLA + STA $28 + PLA + STA $2A + PHA + PHA + LDA #$0001 + EOR #$FFFF + INC + LDX #$0000 + TAY + BPL L0305BC + DEX +L0305BC PHX + PHA + _SetWindowIcons + STA L014E87 + _SetFont + STA L014E87 + LDA $33 + AND #$4000 + BNE L0305DC + BRL L030602 +L0305DC LDA $22 + CLC + ADC #$000A + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + LDA #$0000 + PHA + _DrawChar + STA L014E87 +L030602 LDA $33 + AND #$0100 + BNE L03060C + BRL L030632 +L03060C LDA $26 + SEC + SBC #$001E + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + LDA #$0002 + PHA + _DrawChar + STA L014E87 +L030632 LDX $2A + LDA $28 + PHX + PHA + _SetFont + STA L014E87 + PHA + LDX $31 + LDA $2F + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L03065D + INX +L03065D TXA + PHA + PHA + LDX $31 + LDA $2F + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L03067A + INX +L03067A TXA + AND $01,S + PLX + TAX + BNE L030684 + BRL L030687 +L030684 BRL L0308B8 +L030687 LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + PHA + PHA + LDA #$8006 + PHA + LDX $31 + LDA $2F + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDA L014E87 + BNE L0306C8 + BRL L0306CB +L0306C8 BRL L0308B8 +L0306CB LDA $33 + AND #$4000 + BNE L0306D5 + BRL L0306E0 +L0306D5 LDA $22 + CLC + ADC #$0020 + STA $22 + BRL L0306E8 +L0306E0 LDA $22 + CLC + ADC #$000A + STA $22 +L0306E8 LDA $33 + AND #$0100 + BNE L0306F2 + BRL L0306FD +L0306F2 LDA $26 + SEC + SBC #$0020 + STA $26 + BRL L030705 +L0306FD LDA $26 + SEC + SBC #$000A + STA $26 +L030705 LDA $22 + SEC + SBC $26 + BEQ L030713 + BVS L030711 + EOR #$8000 +L030711 BMI L030716 +L030713 BRL L030719 +L030716 BRL L0308B8 +L030719 LDA $26 + SEC + SBC $22 + PHA + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + _StringWidth + STA L014E87 + PLA + SEC + SBC $01,S + PLY + TAY + BEQ L030741 + BVS L03073F + EOR #$8000 +L03073F BMI L030744 +L030741 BRL L0307FF +L030744 LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + PEA ^L030900 + PEA L030900 + LDA #$0003 + PHA + LDA #$0002 + PHA + JSL L01485A + JSL L014B68 + JSL L014A35 +L030776 LDA $26 + SEC + SBC $22 + PHA + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + _StringWidth + STA L014E87 + PLA + LDX #$0001 + SEC + SBC $01,S + PLY + TAY + BEQ L0307A1 + BVS L03079F + EOR #$8000 +L03079F BMI L0307A2 +L0307A1 DEX +L0307A2 TXA + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + LDX #$0001 + SEC + SBC #$0004 + BEQ L0307C4 + BVS L0307C2 + EOR #$8000 +L0307C2 BMI L0307C5 +L0307C4 DEX +L0307C5 TXA + AND $01,S + PLX + TAX + BNE L0307CF + BRL L0307FF +L0307CF LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + LDA #$0004 + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + SEC + SBC $01,S + PLX + PHA + LDA #$0001 + PHA + JSL L01497D + BRL L030776 +L0307FF LDA $26 + SEC + SBC $22 + PHA + PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + _StringWidth + STA L014E87 + PLA + SEC + SBC $01,S + PLY + TAY + BEQ L030827 + BVS L030825 + EOR #$8000 +L030825 BMI L03082A +L030827 BRL L03082D +L03082A BRL L0308B8 +L03082D LDA $33 + AND #$4000 + BNE L030837 + BRL L030842 +L030837 LDA $22 + SEC + SBC #$0020 + STA $22 + BRL L03084A +L030842 LDA $22 + SEC + SBC #$000A + STA $22 +L03084A LDA $33 + AND #$0100 + BNE L030854 + BRL L03085F +L030854 LDA $26 + CLC + ADC #$0020 + STA $26 + BRL L030867 +L03085F LDA $26 + CLC + ADC #$000A + STA $26 +L030867 PHA + LDX #^L01090E + LDA #L01090E + PHX + PHA + _StringWidth + STA L014E87 + PLA + LDX #$0002 + JSL L0153AF + PHA + LDA $26 + SEC + SBC $22 + LDX #$0002 + JSL L0153AF + SEC + SBC $01,S + PLX + CLC + ADC #$0002 + PHA + LDA #$000B + PHA + _MoveTo + STA L014E87 + LDX #^L01090E + LDA #L01090E + PHX + PHA + _DrawString + STA L014E87 +L0308B8 LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDX $31 + LDA $2F + PHX + PHA + _ReleaseResource + STA L014E87 + LDA #$0000 + PHA + _SetForeColor + STA L014E87 + LDA #$FFFF + PHA + _SetBackColor + STA L014E87 + LDA $2D + STA $37 + LDA $2C + STA $36 + PLD + TSC + CLC + ADC #$0036 + TCS + RTL + +L030900 ROL $2E2E +L030903 ENT + TSC + SEC + SBC #$004C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $55 + PEI $53 + PEA $000A + JSL L014B1E + LDA $4F + AND #$0010 + BEQ L03092A + BRL L03092D +L03092A BRL L030A51 +L03092D PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $4F + AND #$8000 + BNE L030965 + BRL L030980 +L030965 PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0000 + PHA + LDA #$000C + PHA + _OffsetRect + STA L014E87 +L030980 LDA $20 + CLC + ADC $51 + STA $24 + LDA $16 + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA $22 + PHA + LDA #$0001 + PHA + LDA $20 + CLC + ADC $51 + SEC + SBC $01,S + PLX + PHA + _MoveTo + STA L014E87 + LDA $26 + SEC + SBC #$0001 + PHA + LDA #$0001 + PHA + LDA $20 + CLC + ADC $51 + SEC + SBC $01,S + PLX + PHA + _LineTo + STA L014E87 + _PenNormal + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $1E + AND #$00F0 + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _FillRect + STA L014E87 +L030A51 LDA $4D + STA $55 + LDA $4C + STA $54 + PLD + TSC + CLC + ADC #$0054 + TCS + RTL + +L030A61 ENT + TSC + SEC + SBC #$002C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $31 + PEI $2F + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA $26 + SEC + SBC #$001A + PHA + LDA $24 + SEC + SBC #$000D + PHA + LDA $26 + PHA + LDA $24 + PHA + _SetRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA $16 + PHA + JSL L0104D5 + PHA + LDA $1C + PHA + JSL L0104D5 + PHA + _SpecialRect + STA L014E87 + LDA #$0004 + PHA + _SetTextMode + STA L014E87 + PHA + PHA + _GetFont + STA L014E87 + PLA + STA $28 + PLA + STA $2A + PHA + PHA + LDA #$0001 + EOR #$FFFF + INC + LDX #$0000 + TAY + BPL L030B26 + DEX +L030B26 PHX + PHA + _SetCtlIcons + STA L014E87 + _SetFont + STA L014E87 + LDA $22 + CLC + ADC #$0004 + PHA + LDA $20 + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + LDA #$0010 + PHA + _DrawChar + STA L014E87 + LDX $2A + LDA $28 + PHX + PHA + _SetFont + STA L014E87 + LDA #$0000 + PHA + _SetTextMode + STA L014E87 + LDA $2D + STA $31 + LDA $2C + STA $30 + PLD + TSC + CLC + ADC #$0030 + TCS + RTL + +L030B90 ENT + TSC + SEC + SBC #$004A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $4F + PEI $4D + PEA $000A + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA $1C + AND #$F000 + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + LDA #$0005 + PHA + LDA #$0002 + PHA + _SetPenSize + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _FrameRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + LDA #$0005 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA #$0005 + PHA + LDA #$0002 + PHA + _SetPenSize + STA L014E87 + LDA $1E + AND #$F000 + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + LSR + STA $48 + LDA $48 + PHA + LDA $48 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPenPat + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _FrameRect + STA L014E87 + _PenNormal + STA L014E87 + LDA $4B + STA $4F + LDA $4A + STA $4E + PLD + TSC + CLC + ADC #$004E + TCS + RTL + diff --git a/genesys/edit/WINCONTROL.S b/genesys/edit/WINCONTROL.S new file mode 100644 index 0000000..13ea0e6 --- /dev/null +++ b/genesys/edit/WINCONTROL.S @@ -0,0 +1,6743 @@ +* +* Genesys v1.2.4 +* Window editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/Mem.Macs + use 4/QD.Macs + use 4/Resource.Macs + use 4/Util.Macs + use 4/Window.Macs + +*---------------------------- + + EXT L014B1E + EXT L014E87 + EXT L020000 + EXT L020E29 + EXT L0206AF + EXT L0103D4 + EXT L0208DC + EXT L0153AF + EXT L0146C2 + EXT L0146C0 + EXT L0146B4 + EXT L0146B8 + EXT L0146B6 + EXT L0146BE + EXT L0146BA + EXT L0146BC + EXT L0153FB + +*---------------------------- + +L040000 ENT + TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDX $1B + LDA $19 + STX L0146C2 + STA L0146C0 + LDA $17 + STA $1B + LDA $16 + STA $1A + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L040023 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L0146B4 + PLB + PLB + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L04006F + BRL L040082 +L04006F LDA $16 + SEC + SBC #$0006 + STA $16 + LDA $18 + SEC + SBC #$000E + STA $18 + BRL L040108 +L040082 LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0400A5 + BRL L0400AD +L0400A5 LDA $16 + SEC + SBC #$000C + STA $16 +L0400AD LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0400D0 + BRL L0400F8 +L0400D0 LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA $16 + SEC + SBC $01,S + PLX + CLC + ADC #$0001 + STA $16 +L0400F8 LDA $16 + SEC + SBC #$0002 + STA $16 + LDA $18 + SEC + SBC #$0004 + STA $18 +L040108 LDA $18 + PHA + LDA $16 + PHA + LDX L0146C2 + LDA L0146C0 + PHX + PHA + JSL L0103D4 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L040127 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L0146B4 + PLB + PLB + LDA L0146BE + SEC + SBC L0146BA + PHA + LDA L0146BC + SEC + SBC L0146B8 + PHA + LDX L0146C2 + LDA L0146C0 + PHX + PHA + JSL L0103D4 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L040163 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L0146B4 + PLB + PLB + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L0401AF + BRL L0401CD +L0401AF PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L04025E +L0401CD PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L04020B + BRL L040213 +L04020B LDA $16 + CLC + ADC #$000D + STA $16 +L040213 LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L040236 + BRL L04025E +L040236 LDA #$0001 + PHA + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L04025E LDA $18 + PHA + LDA $16 + PHA + LDX L0146C2 + LDA L0146C0 + PHX + PHA + JSL L0103D4 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L04027D TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L0146B4 + PLB + PLB + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L0402C9 + BRL L0402E7 +L0402C9 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L040378 +L0402E7 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L040325 + BRL L04032D +L040325 LDA $16 + CLC + ADC #$000D + STA $16 +L04032D LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L040350 + BRL L040378 +L040350 LDA #$0001 + PHA + LDX L0146B6 + LDA L0146B4 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L040378 LDA $1C + SEC + SBC $18 + STA $18 + LDA $1A + SEC + SBC $16 + STA $16 + LDA $18 + PHA + LDA $16 + PHA + LDX L0146C2 + LDA L0146C0 + PHX + PHA + JSL L0103D4 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L0403A5 ENT + TSC + SEC + SBC #$004C + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $59 + PEI $57 + PEA $0004 + JSL L014B1E + LDX $51 + LDA $4F + STX L0146B6 + STA L0146B4 + PHA + PHA + _GetPort + PLA + STA $46 + PLA + STA $48 + LDx #$0000 +* TAX +* SEP #$20 + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0001 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0002 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0003 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0004 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0005 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0006 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0007 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0008 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0009 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$000A +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$000B +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$000C +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$000D +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$000E +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$000F +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0010 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0011 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0012 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0013 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0014 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0015 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0016 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0017 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0018 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0019 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$001A +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$001B +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$001C +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$001D +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$001E +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$001F +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X + REP #$20 + PEA $0000 + TDC + CLC + ADC #$003A + PHA +* LDA #$7D00 +* EOR #$FFFF ; 82FF +* INC ; 8300 +* PHA + pea $8300 +* LDA #$7D00 +* EOR #$FFFF +* INC +* PHA + pea $8300 + pea $7D00 + pea $7D00 + _SetRect + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + _GetPortRect + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + _LocalToGlobal + LDX #^L0146BC + LDA #L0146BC + PHX + PHA + _LocalToGlobal + PHA + PHA + _GetWMgrPort + _SetPort + PHA + _GetArcRot + PLA + STA $4A + ORA #$8000 + PHA + _SetArcRot + PHA + PHA + LDX #^L040163 + LDA #L040163 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + pei $18 + pei $16 + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$003A + PHA + PEA $0000 + TDC + CLC + ADC #$003A + PHA + pea $0220 + _DragRect + PLA + STA $42 + PLA + STA $44 + pei $4A + _SetArcRot + pei $48 + pei $46 + _SetPort + LDA L0146BA + PHA + LDA L0146B8 + PHA + pei $55 + pei $53 + _MoveWindow + LDA $4D + STA $59 + LDA $4C + STA $58 + PLD + TSC + CLC + ADC #$0058 + TCS + RTL + +L04067F ENT + TSC + SEC + SBC #$0054 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $61 + PEI $5F + PEA $0004 + JSL L014B1E + LDX $59 + LDA $57 + STX L0146B6 + STA L0146B4 + PHA + PHA + _GetPort +* STA L014E87 + PLA + STA $4E + PLA + STA $50 + LDx #$0000 +* TAX + SEP #$20 + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0001 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0002 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0003 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0004 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0005 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0006 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0007 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0008 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0009 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$000A +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$000B +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$000C +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$000D +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$000E +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$000F +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0010 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0011 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0012 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$0013 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0014 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0015 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0016 +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$0017 +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$0018 +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$0019 +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$001A +* TAX +* SEP #$20 + inx + LDA #$00 + STA $1A,X +* REP #$20 +* LDA #$001B +* TAX +* SEP #$20 + inx + LDA #$BB + STA $1A,X +* REP #$20 +* LDA #$001C +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$001D +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X +* REP #$20 +* LDA #$001E +* TAX +* SEP #$20 + inx + LDA #$0B + STA $1A,X +* REP #$20 +* LDA #$001F +* TAX +* SEP #$20 + inx + LDA #$B0 + STA $1A,X + REP #$20 + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + _GetPortRect + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + _LocalToGlobal + LDX #^L0146BC + LDA #L0146BC + PHX + PHA + _LocalToGlobal + PEA $0000 + TDC + CLC + ADC #$003A + PHA +* LDA #$7530 +* EOR #$FFFF ; 8ACF +* INC ; 8AD0 +* PHA + pea $8ad0 +* LDA #$7530 +* EOR #$FFFF +* INC +* PHA + pea $8ad0 + pea $7530 + pea $7530 + _SetRect + PHA + PHA + _GetWMgrPort + _SetPort + PHA + _GetArcRot + PLA + STA $52 + ORA #$8000 + PHA + _SetArcRot + PHA + PHA + LDX #^L04027D + LDA #L04027D + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + pei $18 + pei $16 + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$003A + PHA + PEA $0000 + TDC + CLC + ADC #$003A + PHA + pea $0234 + _DragRect + PLA + STA $4A + PLA + STA $4C + pei $52 + _SetArcRot + pei $50 + pei $4E + _SetPort + LDA L0146BE + SEC + SBC L0146BA + PHA + LDA #$0020 + SEC + SBC $01,S + PLY + TAY + BEQ L04094A + BVS L040948 + EOR #$8000 +L040948 BMI L04094D +L04094A BRL L040957 +L04094D LDA L0146BA + CLC + ADC #$0020 + STA L0146BE +L040957 LDA L0146BC + SEC + SBC L0146B8 + PHA + LDA #$000E + SEC + SBC $01,S + PLY + TAY + BEQ L040970 + BVS L04096E + EOR #$8000 +L04096E BMI L040973 +L040970 BRL L04097D +L040973 LDA L0146B8 + CLC + ADC #$000E + STA L0146BC +L04097D LDA L0146BE + SEC + SBC L0146BA + PHA + LDA L0146BC + SEC + SBC L0146B8 + PHA + pei $5D + pei $5B + _SizeWindow + LDA $55 + STA $61 + LDA $54 + STA $60 + PLD + TSC + CLC + ADC #$0060 + TCS + RTL + +*--- Move control + +L0409AD ENT + TSC + SEC + SBC #$0024 + TCS + PHD + INC + TCD +* LDA #$0000 + stz $16 +* LDA #$0000 + stz $18 + LDY #$0002 + LDA [$27],Y + TAX + LDA [$27] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 +* BNE L0409D9 +* BRL L0409E6 + beq L0409E6 +L0409D9 LDA #$000E + STA $18 + LDA #$0006 + STA $16 + bra L040A48 +L0409E6 LDA #$0004 + STA $18 + LDA #$0002 + STA $16 +* LDY #$0002 +* LDA [$27],Y +* TAX +* LDA [$27] +* STA $00 +* STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 +* BNE L040A09 +* BRL L040A11 + beq L040A11 +L040A09 LDA $16 + CLC + ADC #$000C + STA $16 +L040A11 +* LDY #$0002 +* LDA [$27],Y +* TAX +* LDA [$27] +* STA $00 +* STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 +* BNE L040A2A +* BRL L040A48 + beq L040A48 +L040A2A +* LDA #$0001 +* PHA +* LDY #$0002 +* LDA [$27],Y +* TAX +* LDA [$27] +* STA $00 +* STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC +* SBC $01,S + sbc #$0001 +* PLX + STA $16 +L040A48 PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDY #$0002 + LDA [$2B],Y + PHA + LDA [$2B] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PHA + _GetArcRot +* STA L014E87 + PLA + STA $22 +* LDA $22 + AND #$8000 +* BNE L040A7F +* BRL L040A8F + beq L040A8F +L040A7F LDA $22 + EOR #$8000 + PHA + _SetArcRot +* STA L014E87 +L040A8F LDY #$0002 + LDA [$2B],Y + TAX + LDA [$2B] + STA $00 + STX $02 + + LDY #$000A + LDA [$00],Y + CLC + ADC $18 + PHA + +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + + ldal $e12000 + inc + stal $e12000 + + LDY #$0008 + LDA [$00],Y + CLC + ADC $16 + PHA + pei $2D + pei $2B +* PHX +* PHA + _MoveControl +* STA L014E87 + PHA +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + LDY #$0016 + LDA [$00],Y +* TAX + pha + LDY #$0014 + LDA [$00],Y +* PHX + PHA + _HiWord +* STA L014E87 + PLA + CMP #$8900 +* BEQ L040AF6 +* BRL L040B45 + bne L040B45 +*L040AF6 LDA #$0002 +* PHA +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + LDY #$000E + LDA [$00],Y +* SEC +* SBC $01,S + sbc #$0002 +* PLX + PHA +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + LDY #$0008 + LDA [$00],Y + PHA +* LDY #$0002 +* LDA [$2B],Y +* TAX +* LDA [$2B] +* STA $00 +* STX $02 + LDY #$0036 + LDA [$00],Y + TAX + pha + LDY #$0034 + LDA [$00],Y +* PHX + PHA + _MoveControl +* STA L014E87 +L040B45 pei $2D + pei $2B +* PHX +* PHA + _ShowControl +* STA L014E87 + pei $22 +* PHA + _SetArcRot +* STA L014E87 + LDA $25 + STA $2D + LDA $24 + STA $2C + PLD + TSC + CLC + ADC #$002C + TCS + RTL + +L040B72 ENT + TSC + SEC + SBC #$0040 + TCS + PHD + INC + TCD + PHA + _GetArcRot + STA L014E87 + PLA + STA $24 + LDA $24 + AND #$8000 + BNE L040B93 + BRL L040BA3 +L040B93 LDA $24 + EOR #$8000 + PHA + _SetArcRot + STA L014E87 +L040BA3 PEA $0000 + TDC + CLC + ADC #$0030 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L040BE2 + BRL L040C00 +L040BE2 PEA $0000 + TDC + CLC + ADC #$0030 + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L040C7B +L040C00 PEA $0000 + TDC + CLC + ADC #$0030 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L040C34 + BRL L040C44 +L040C34 LDA #$0001 + PHA + LDA $30 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $30 +L040C44 LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L040C5D + BRL L040C7B +L040C5D LDA #$0001 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $30 + SEC + SBC $01,S + PLX + STA $30 +L040C7B PEA $0000 + TDC + CLC + ADC #$0030 + PHA + _SetPortRect + STA L014E87 + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + LDX #$0000 + CMP #$0000 + BNE L040CAB + INX +L040CAB TXA + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + LDX #$0000 + CMP #$0000 + BNE L040CCA + INX +L040CCA TXA + AND $01,S + PLX + TAX + BNE L040CD4 + BRL L040CD7 +L040CD4 BRL L04113F +L040CD7 LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + BNE L040CF0 + BRL L040E7E +L040CF0 PHA + PHA + LDA #$8004 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $3C + PLA + STA $3E + LDA #$8004 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L040D6C + DEY +L040D6C TXA + CMP $03,S + BEQ L040D74 + LDY #$0000 +L040D74 PLA + PLA + TYA + BNE L040D7C + BRL L040E04 +L040D7C LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L040DAA + DEX +L040DAA LDY #$0001 + CMP $01,S + BEQ L040DB2 + DEY +L040DB2 TXA + CMP $03,S + BEQ L040DBA + LDY #$0000 +L040DBA PLA + PLA + TYA + BNE L040DC2 + BRL L040E04 +L040DC2 LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$3C],Y + PHA + LDA [$3C] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L040E04 PHA + PHA + LDX $49 + LDA $47 + PHX + PHA + LDA #$0001 + PHA + LDX $3E + LDA $3C + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $20 + PLA + STA $22 + LDA L014E87 + PHA + LDA #$1003 + PHA + JSL L020000 + LDX $22 + LDA $20 + PHX + PHA + _HideControl + STA L014E87 + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + LDX $22 + LDA $20 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $22 + LDA $20 + PHX + PHA + LDX $45 + LDA $43 + PHX + PHA + + ldal $e120c0 + inc + stal $e120c0 + + JSL L0409AD + BRL L04113F +L040E7E LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L040E97 + BRL L04113F +L040E97 PHA + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDA L014E87 + PHA + LDA #$1006 + PHA + JSL L020000 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1007 + PHA + JSL L020000 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetHandleSize + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$1008 + PHA + JSL L020000 + LDA #$0001 + PHA + PHA + LDX $1C + LDA $1A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0004 + JSL L0153AF + SEC + SBC $01,S + PLX + STA $1E + LDA $1E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L040F48 + EOR #$8000 +L040F48 BMI L040F4D + BRL L041104 +L040F4D PHA + PHA + LDA #$8004 + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA $26 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $3C + PLA + STA $3E + LDA #$8004 + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA $26 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L040FDD + DEY +L040FDD TXA + CMP $03,S + BEQ L040FE5 + LDY #$0000 +L040FE5 PLA + PLA + TYA + BNE L040FED + BRL L041075 +L040FED LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L04101B + DEX +L04101B LDY #$0001 + CMP $01,S + BEQ L041023 + DEY +L041023 TXA + CMP $03,S + BEQ L04102B + LDY #$0000 +L04102B PLA + PLA + TYA + BNE L041033 + BRL L041075 +L041033 LDY #$0002 + LDA [$3C],Y + TAX + LDA [$3C] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$3C],Y + PHA + LDA [$3C] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L041075 PHA + PHA + LDX $49 + LDA $47 + PHX + PHA + LDA #$0001 + PHA + LDX $3E + LDA $3C + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $20 + PLA + STA $22 + LDA L014E87 + PHA + LDA #$1009 + PHA + JSL L020000 + LDX $22 + LDA $20 + PHX + PHA + _HideControl + STA L014E87 + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA $26 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + LDX $22 + LDA $20 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $22 + LDA $20 + PHX + PHA + LDX $45 + LDA $43 + PHX + PHA + + ldal $e120e0 + inc + stal $e120e0 + + JSL L0409AD + LDA $06 + CMP $26 + BNE L0410FF + BRL L041104 +L0410FF INC $26 + BRL L040F4D +L041104 LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$43],Y + TAX + LDA [$43] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$100A + PHA + JSL L020000 +L04113F PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _SetPortRect + STA L014E87 + LDA $24 + PHA + _SetArcRot + STA L014E87 + LDA $41 + STA $49 + LDA $40 + STA $48 + PLD + TSC + CLC + ADC #$0048 + TCS + RTL + +L04116F ENT + TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + LDX #$0000 + CMP #$0000 + BNE L041195 + INX +L041195 TXA + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + LDX #$0000 + CMP #$0000 + BNE L0411B4 + INX +L0411B4 TXA + AND $01,S + PLX + TAX + BNE L0411BE + BRL L04120C +L0411BE LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$0056 + PHA + PLA + STA $00 + PLA + STA $02 + LDA $29 + STA [$00] + LDY #$0002 + LDA $2B + STA [$00],Y + BRL L0416BB +L04120C LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + BNE L041225 + BRL L041482 +L041225 LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + EOR #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0009 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + STX $18 + STA $16 + PHA + PHA + LDA #$000C + LDX #$0000 + TAY + BPL L0412A2 + DEX +L0412A2 PHX + PHA + LDA $27 + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0412B5 + DEX +L0412B5 PHX + PHA + _NewHandle + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$1013 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1014 + PHA + JSL L020000 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L041316 + DEX +L041316 PHX + PHA + _BlockMove + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0029 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA #$0002 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L041349 + DEX +L041349 PHX + PHA + _BlockMove + STA L014E87 + LDA #$0000 + LDX #$0000 + TAY + BPL L04135F + DEX +L04135F STX $18 + STA $16 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA #$0003 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L04138A + DEX +L04138A PHX + PHA + _BlockMove + STA L014E87 + PHA + PHA + LDA #$FFFF + PHA + LDA #$8003 + PHA + _UniqueResourceID + STA L014E87 + LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$0056 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$1018 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + LDA #$0000 + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _AddResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1019 + PHA + JSL L020000 + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1020 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1021 + PHA + JSL L020000 + BRL L0416BB +L041482 LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L04149B + BRL L0416BB +L04149B PHA + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$1022 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1023 + PHA + JSL L020000 + PHA + PHA + LDX $1C + LDA $1A + PHX + PHA + _GetHandleSize + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDA L014E87 + PHA + LDA #$1024 + PHA + JSL L020000 + PHA + LDX $18 + LDA $16 + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0004 + JSL L0153AF + STA $1E + PEA $0000 + TDC + CLC + ADC #$0029 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA $1E + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L041557 + DEX +L041557 PHX + PHA + _BlockMove + STA L014E87 + LDX $1C + LDA $1A + PHX + PHA + _HUnlock + STA L014E87 + LDA L014E87 + PHA + LDA #$1026 + PHA + JSL L020000 + PEI $18 + PEI $16 + LDA #$0004 + LDX #$0000 + TAY + BPL L04158D + DEX +L04158D PHX + PHA + CLC + PLA + ADC $03,S + STA $03,S + PLA + ADC $03,S + STA $03,S + LDX $1C + LDA $1A + PHX + PHA + _SetHandleSize + STA L014E87 + LDA L014E87 + PHA + LDA #$1027 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1028 + PHA + JSL L020000 + LDA #$0000 + LDX #$0000 + TAY + BPL L0415DC + DEX +L0415DC STX $18 + STA $16 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDY #$0002 + LDA [$1A],Y + PHA + LDA [$1A] + PHA + LDA $1E + CLC + ADC #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA #$0004 + LDX #$0000 + TAY + BPL L04160A + DEX +L04160A PHX + PHA + _BlockMove + STA L014E87 + LDA #$0001 + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$1030 + PHA + JSL L020000 + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1031 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1032 + PHA + JSL L020000 +L0416BB LDA $21 + STA $2B + LDA $20 + STA $2A + PLD + TSC + CLC + ADC #$002A + TCS + RTL + +L0416CB TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDA #$0001 + EOR #$FFFF + INC + STA $16 + LDA $23 + CMP #$000A + BEQ L0416E7 + BRL L0416EF +L0416E7 LDA #$0000 + STA $16 + BRL L0417B6 +L0416EF LDA $23 + CMP #$0008 + BEQ L0416F9 + BRL L041701 +L0416F9 LDA #$0000 + STA $16 + BRL L0417B6 +L041701 LDA $23 + CMP #$0012 + BEQ L04170B + BRL L041713 +L04170B LDA #$0000 + STA $16 + BRL L0417B6 +L041713 LDA $23 + CMP #$0009 + BEQ L04171D + BRL L041725 +L04171D LDA #$0000 + STA $16 + BRL L0417B6 +L041725 LDA $23 + CMP #$000B + BEQ L04172F + BRL L041737 +L04172F LDA #$0000 + STA $16 + BRL L0417B6 +L041737 LDA $23 + CMP #$000F + BEQ L041741 + BRL L041749 +L041741 LDA #$0000 + STA $16 + BRL L0417B6 +L041749 LDA $23 + CMP #$0013 + BEQ L041753 + BRL L04175B +L041753 LDA #$0000 + STA $16 + BRL L0417B6 +L04175B LDA $23 + CMP #$0010 + BEQ L041765 + BRL L04176D +L041765 LDA #$0000 + STA $16 + BRL L0417B6 +L04176D LDA $23 + CMP #$000E + BEQ L041777 + BRL L041783 +L041777 LDA #$0001 + EOR #$FFFF + INC + STA $16 + BRL L0417B6 +L041783 LDA $23 + CMP #$0011 + BEQ L04178D + BRL L041795 +L04178D LDA #$0000 + STA $16 + BRL L0417B6 +L041795 LDA $23 + CMP #$000C + BEQ L04179F + BRL L0417A7 +L04179F LDA #$0000 + STA $16 + BRL L0417B6 +L0417A7 LDA $23 + CMP #$000D + BEQ L0417B1 + BRL L0417B6 +L0417B1 LDA #$0000 + STA $16 +L0417B6 LDA $21 + STA $23 + LDA $20 + STA $22 + LDX $16 + PLD + TSC + CLC + ADC #$0022 + TCS + TXA + RTL + +L0417C9 TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDA #$0000 + STA $16 + LDA $23 + LDX #$0000 + CMP #$07FF + BNE L0417E2 + INX +L0417E2 TXA + PHA + LDA $23 + LDX #$0000 + CMP #$87FF + BNE L0417EF + INX +L0417EF TXA + ORA $01,S + PLX + TAX + BNE L0417F9 + BRL L041801 +L0417F9 LDA #$000A + STA $16 + BRL L0418C4 +L041801 LDA $23 + CMP #$8000 + BEQ L04180B + BRL L041813 +L04180B LDA #$0008 + STA $16 + BRL L0418C4 +L041813 LDA $23 + CMP #$8100 + BEQ L04181D + BRL L041825 +L04181D LDA #$0012 + STA $16 + BRL L0418C4 +L041825 LDA $23 + CMP #$8200 + BEQ L04182F + BRL L041837 +L04182F LDA #$0009 + STA $16 + BRL L0418C4 +L041837 LDA $23 + CMP #$8300 + BEQ L041841 + BRL L041849 +L041841 LDA #$000B + STA $16 + BRL L0418C4 +L041849 LDA $23 + CMP #$8400 + BEQ L041853 + BRL L04185B +L041853 LDA #$000F + STA $16 + BRL L0418C4 +L04185B LDA $23 + CMP #$8500 + BEQ L041865 + BRL L04186D +L041865 LDA #$0013 + STA $16 + BRL L0418C4 +L04186D LDA $23 + CMP #$8600 + BEQ L041877 + BRL L04187F +L041877 LDA #$0010 + STA $16 + BRL L0418C4 +L04187F LDA $23 + CMP #$8700 + BEQ L041889 + BRL L041891 +L041889 LDA #$000E + STA $16 + BRL L0418C4 +L041891 LDA $23 + CMP #$8800 + BEQ L04189B + BRL L0418A3 +L04189B LDA #$0011 + STA $16 + BRL L0418C4 +L0418A3 LDA $23 + CMP #$8900 + BEQ L0418AD + BRL L0418B5 +L0418AD LDA #$000C + STA $16 + BRL L0418C4 +L0418B5 LDA $23 + CMP #$8D00 + BEQ L0418BF + BRL L0418C4 +L0418BF LDA #$000D + STA $16 +L0418C4 LDA $21 + STA $23 + LDA $20 + STA $22 + LDX $16 + PLD + TSC + CLC + ADC #$0022 + TCS + TXA + RTL + +L0418D7 TSC + SEC + SBC #$0032 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $37 + PEI $35 + PEA $0008 + JSL L014B1E + PHA + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3B + LDA $39 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _LoadResource + STA L014E87 + PLA + STA $26 + PLA + STA $28 + LDX $28 + LDA $26 + PHX + PHA + _HLock + STA L014E87 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$07FF + BEQ L041959 + BRL L041AE0 +L041959 PHA + PHA + LDA #$8001 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $2E + PLA + STA $30 + LDA #$0000 + STA $1E + LDY #$0002 + LDA [$2E],Y + TAX + LDA [$2E] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + CLC + ADC #$0004 + STA $22 + LDA #$0000 + STA $20 + LDY #$0002 + LDA [$2E],Y + TAX + LDA [$2E] + STA $00 + STX $02 + LDY #$0006 + LDA [$00],Y + LDX #$0002 + JSL L0153FB + CLC + ADC #$0008 + STA $24 + PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + TAX + LDY #$001E + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $2A + PLA + STA $2C + LDA L014E87 + BEQ L0419FE + BRL L041A63 +L0419FE LDX $2C + LDA $2A + PHX + PHA + _HLock + STA L014E87 + LDA $22 + CLC + ADC #$000C + STA $22 + PHA + LDY #$0002 + LDA [$2A],Y + PHA + LDA [$2A] + PHA + _StringWidth + STA L014E87 + PLA + CLC + ADC $24 + CLC + ADC #$0008 + STA $24 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$0020 + LDA [$00],Y + TAX + LDY #$001E + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 +L041A63 LDA $1C + SEC + SBC $18 + LDX #$0002 + JSL L0153AF + CLC + ADC $18 + STA $18 + LDA $24 + LDX #$0002 + JSL L0153AF + PHA + LDA $18 + SEC + SBC $01,S + PLX + STA $18 + LDA $18 + CLC + ADC $24 + STA $1C + LDA $1A + SEC + SBC $16 + LDX #$0002 + JSL L0153AF + CLC + ADC $16 + STA $16 + LDA $22 + LDX #$0002 + JSL L0153AF + PHA + LDA $16 + SEC + SBC $01,S + PLX + STA $16 + LDA $16 + CLC + ADC $22 + STA $1A + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + BRL L041BCA +L041AE0 PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $2A + PLA + STA $2C + LDA L014E87 + BEQ L041B17 + BRL L041BCA +L041B17 LDX $2C + LDA $2A + PHX + PHA + _HLock + STA L014E87 + LDA $1C + SEC + SBC $18 + PHA + PHA + LDY #$0002 + LDA [$2A],Y + PHA + LDA [$2A] + PHA + _StringWidth + STA L014E87 + PLA + CLC + ADC #$001E + SEC + SBC $01,S + PLY + TAY + BEQ L041B54 + BVS L041B52 + EOR #$8000 +L041B52 BMI L041B57 +L041B54 BRL L041B9B +L041B57 PHA + LDY #$0002 + LDA [$2A],Y + PHA + LDA [$2A] + PHA + _StringWidth + STA L014E87 + PLA + CLC + ADC $18 + CLC + ADC #$001E + STA $1C + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 +L041B9B LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$26],Y + TAX + LDA [$26] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + TAX + LDY #$001A + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 +L041BCA LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3B + LDA $39 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _ReleaseResource + STA L014E87 + LDA $33 + STA $3B + LDA $32 + STA $3A + PLD + TSC + CLC + ADC #$003A + TCS + RTL + +L041C02 ENT + TSC + SEC + SBC #$0066 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $73 + PEI $71 + PEA $0004 + JSL L014B1E + LDX $77 + LDA $75 + STX L0146B6 + STA L0146B4 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + PHA + JSL L0416CB + STA $5A + LDX $6D + LDA $6B + PHX + PHA + JSL L0206AF + PEA $0000 + TDC + CLC + ADC #$001A + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GlobalToLocal + STA L014E87 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L041C84 + BRL L041C90 +L041C84 LDA #$000D + SEC + SBC #$0001 + CLC + ADC $1A + STA $1A +L041C90 LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L041CA9 + BRL L041CC7 +L041CA9 LDA #$0001 + PHA + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1A + SEC + SBC $01,S + PLX + STA $1A +L041CC7 LDA #$0000 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$0001 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0002 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$0003 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0004 + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0005 + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$0006 + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0007 + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$0008 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0009 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$000A + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$000B + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$000C + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$000D + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$000E + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$000F + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0010 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$0011 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0012 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$0013 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0014 + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0015 + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$0016 + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$0017 + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$0018 + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$0019 + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$001A + TAX + SEP #$20 + LDA #$00 + STA $32,X + REP #$20 + LDA #$001B + TAX + SEP #$20 + LDA #$BB + STA $32,X + REP #$20 + LDA #$001C + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$001D + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + LDA #$001E + TAX + SEP #$20 + LDA #$0B + STA $32,X + REP #$20 + LDA #$001F + TAX + SEP #$20 + LDA #$B0 + STA $32,X + REP #$20 + PEA ^L0146B8 + PEA L0146B8 + LDY #$0002 + LDA [$79],Y + PHA + LDA [$79] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$002A + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8900 + BEQ L041EA6 + BRL L041EB0 +L041EA6 LDA L0146BE + CLC + ADC #$0018 + STA L0146BE +L041EB0 LDA $69 + CMP #$0001 + BEQ L041EBA + BRL L041F3C +L041EBA PEA $0000 + TDC + CLC + ADC #$0022 + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC $16 + STA $22 + LDA $24 + SEC + SBC $18 + STA $24 + LDA $26 + SEC + SBC $16 + STA $26 + LDA $28 + SEC + SBC $18 + STA $28 + PHA + PHA + LDX #^L040127 + LDA #L040127 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0032 + PHA + LDA $18 + PHA + LDA $16 + PHA + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0022 + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0234 + CLC + ADC $5A + PHA + _DragRect + STA L014E87 + PLA + STA $52 + PLA + STA $54 + BRL L041F83 +L041F3C PHA + PHA + LDX #^L040023 + LDA #L040023 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0032 + PHA + LDA $18 + PHA + LDA $16 + PHA + LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0220 + PHA + _DragRect + STA L014E87 + PLA + STA $52 + PLA + STA $54 +L041F83 PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8900 + BEQ L041FB0 + BRL L041FBA +L041FB0 LDA L0146BE + SEC + SBC #$0018 + STA L0146BE +L041FBA PHA + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _LoadResource + STA L014E87 + PLA + STA $56 + PLA + STA $58 + LDA L014E87 + PHA + LDA #$1035 + PHA + JSL L020000 + LDX $58 + LDA $56 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1036 + PHA + JSL L020000 + LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L04203F + BRL L04206B +L04203F LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$000E + EOR #$FFFF + INC + PHA + LDA #$0006 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L042204 +L04206B LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042084 + BRL L042125 +L042084 LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDA #$000D + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0420C2 + BRL L0420F9 +L0420C2 LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + EOR #$FFFF + INC + CLC + ADC #$0001 + PHA + _OffsetRect + STA L014E87 +L0420F9 LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L042204 +L042125 LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L04213E + BRL L0421DB +L04213E LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042157 + BRL L04217C +L042157 LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDA #$000D + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 +L04217C LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L042204 +L0421DB LDY #$0002 + LDA [$56],Y + PHA + LDA [$56] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 +L042204 PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8700 + BEQ L042231 + BRL L04225B +L042231 LDY #$0002 + LDA [$56],Y + TAX + LDA [$56] + CLC + ADC #$000C + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDY #$0002 + LDA [$56],Y + TAX + LDA [$56] + CLC + ADC #$000A + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L04225B LDA #$0001 + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$1037 + PHA + JSL L020000 + LDA #$8004 + PHA + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1038 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1039 + PHA + JSL L020000 + PHA + PHA + LDX $7B + LDA $79 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA $52 + PLA + STA $54 + PEA $0000 + TDC + CLC + ADC #$001A + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0022 + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L042342 + BRL L042360 +L042342 PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L0423DB +L042360 PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042394 + BRL L0423A4 +L042394 LDA #$0001 + PHA + LDA $1A + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $1A +L0423A4 LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0423BD + BRL L0423DB +L0423BD LDA #$0001 + PHA + LDY #$0002 + LDA [$75],Y + TAX + LDA [$75] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1A + SEC + SBC $01,S + PLX + STA $1A +L0423DB PEA $0000 + TDC + CLC + ADC #$001A + PHA + _SetPortRect + STA L014E87 + PHA + _GetArcRot + STA L014E87 + PLA + STA $5C + LDA $5C + AND #$8000 + BNE L042406 + BRL L042416 +L042406 LDA $5C + EOR #$8000 + PHA + _SetArcRot + STA L014E87 +L042416 LDX $7B + LDA $79 + PHX + PHA + _HideControl + STA L014E87 + LDX $7B + LDA $79 + PHX + PHA + _DisposeControl + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX $54 + LDA $52 + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $62 + PLA + STA $64 + LDA #$8004 + PHA + LDX $54 + LDA $52 + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$62],Y + TAX + LDA [$62] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L04248C + DEY +L04248C TXA + CMP $03,S + BEQ L042494 + LDY #$0000 +L042494 PLA + PLA + TYA + BNE L04249C + BRL L042524 +L04249C LDY #$0002 + LDA [$62],Y + TAX + LDA [$62] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L0424CA + DEX +L0424CA LDY #$0001 + CMP $01,S + BEQ L0424D2 + DEY +L0424D2 TXA + CMP $03,S + BEQ L0424DA + LDY #$0000 +L0424DA PLA + PLA + TYA + BNE L0424E2 + BRL L042524 +L0424E2 LDY #$0002 + LDA [$62],Y + TAX + LDA [$62] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$62],Y + PHA + LDA [$62] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L042524 PHA + PHA + LDX $6D + LDA $6B + PHX + PHA + LDA #$0001 + PHA + LDX $64 + LDA $62 + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $79 + PLA + STA $7B + LDY #$0002 + LDA [$75],Y + PHA + LDA [$75] + PHA + PLA + CLC + ADC #$0072 + PHA + PLA + STA $00 + PLA + STA $02 + LDA $52 + STA [$00] + LDY #$0002 + LDA $54 + STA [$00],Y + LDX $7B + LDA $79 + PHX + PHA + _HideControl + STA L014E87 + LDX $54 + LDA $52 + PHX + PHA + LDX $7B + LDA $79 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $7B + LDA $79 + PHX + PHA + LDX $77 + LDA $75 + PHX + PHA + + ldal $e12100 + inc + stal $e12100 + + JSL L0409AD + LDA $5C + PHA + _SetArcRot + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0022 + PHA + _SetPortRect + STA L014E87 + PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + JSL L0417C9 + STA $5A + LDA $5A + LDX #$0000 + CMP #$000A + BNE L0425F3 + INX +L0425F3 TXA + PHA + LDA $5A + LDX #$0000 + CMP #$000F + BNE L042600 + INX +L042600 TXA + ORA $01,S + PLX + PHA + LDA $5A + LDX #$0000 + CMP #$0009 + BNE L042610 + INX +L042610 TXA + ORA $01,S + PLX + TAX + BNE L04261A + BRL L04262D +L04261A LDX $7B + LDA $79 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$002A + PHA + JSL L0418D7 +L04262D PHA + LDY #$0002 + LDA [$79],Y + TAX + LDA [$79] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8900 + BEQ L04265A + BRL L042664 +L04265A LDA L0146BE + CLC + ADC #$0018 + STA L0146BE +L042664 LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA $5A + PHA + JSL L0208DC + LDA $67 + STA $7B + LDA $66 + STA $7A + PLD + TSC + CLC + ADC #$007A + TCS + RTL + +L042683 ENT + TSC + SEC + SBC #$0046 + TCS + PHD + INC + TCD + PHA + PHA + LDX $4D + LDA $4B + PHX + PHA + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$0074 + LDA [$00],Y + TAX + LDY #$0072 + LDA [$00],Y + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $38 + PLA + STA $3A + LDA L014E87 + PHA + LDA #$1F34 + PHA + JSL L020000 + LDX $4D + LDA $4B + PHX + PHA + JSL L0206AF + PEA ^L0146B8 + PEA L0146B8 + LDY #$0002 + LDA [$38],Y + PHA + LDA [$38] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDA $49 + CMP #$0008 + BEQ L04270F + BRL L042730 +L04270F LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$0000 + PHA + _OffsetRect + STA L014E87 + BRL L0427A6 +L042730 LDA $49 + CMP #$000A + BEQ L04273A + BRL L042757 +L04273A LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA #$0000 + PHA + LDA #$0001 + PHA + _OffsetRect + STA L014E87 + BRL L0427A6 +L042757 LDA $49 + CMP #$000B + BEQ L042761 + BRL L042782 +L042761 LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA #$0000 + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L0427A6 +L042782 LDA $49 + CMP #$0015 + BEQ L04278C + BRL L0427A6 +L04278C LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA #$0002 + PHA + LDA #$0000 + PHA + _OffsetRect + STA L014E87 +L0427A6 PHA + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _LoadResource + STA L014E87 + PLA + STA $32 + PLA + STA $34 + LDA L014E87 + PHA + LDA #$1F35 + PHA + JSL L020000 + LDX $34 + LDA $32 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1F36 + PHA + JSL L020000 + LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + PEA ^L0146B8 + PEA L0146B8 + PEA $0008 + JSL L014B1E + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L04282B + BRL L042857 +L04282B LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$000E + EOR #$FFFF + INC + PHA + LDA #$0006 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L0429F0 +L042857 LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042870 + BRL L042911 +L042870 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDA #$000D + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0428AE + BRL L0428E5 +L0428AE LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + EOR #$FFFF + INC + CLC + ADC #$0001 + PHA + _OffsetRect + STA L014E87 +L0428E5 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L0429F0 +L042911 LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L04292A + BRL L0429C7 +L04292A LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042943 + BRL L042968 +L042943 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDA #$000D + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 +L042968 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0000 + PHA + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 + BRL L0429F0 +L0429C7 LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0006 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + _OffsetRect + STA L014E87 +L0429F0 PHA + LDY #$0002 + LDA [$38],Y + TAX + LDA [$38] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8700 + BEQ L042A1D + BRL L042A47 +L042A1D LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + CLC + ADC #$000C + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + CLC + ADC #$000A + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L042A47 LDA #$0001 + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$1F37 + PHA + JSL L020000 + LDA #$8004 + PHA + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1F38 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1F39 + PHA + JSL L020000 + PHA + PHA + LDX $3A + LDA $38 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA $2E + PLA + STA $30 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L042B2E + BRL L042B4C +L042B2E PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L042BC7 +L042B4C PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L042B80 + BRL L042B90 +L042B80 LDA #$0001 + PHA + LDA $16 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $16 +L042B90 LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L042BA9 + BRL L042BC7 +L042BA9 LDA #$0001 + PHA + LDY #$0002 + LDA [$4F],Y + TAX + LDA [$4F] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L042BC7 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _SetPortRect + STA L014E87 + PHA + _GetArcRot + STA L014E87 + PLA + STA $3C + LDA $3C + AND #$8000 + BNE L042BF2 + BRL L042C02 +L042BF2 LDA $3C + EOR #$8000 + PHA + _SetArcRot + STA L014E87 +L042C02 LDX $3A + LDA $38 + PHX + PHA + _HideControl + STA L014E87 + LDX $3A + LDA $38 + PHX + PHA + _DisposeControl + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX $30 + LDA $2E + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $42 + PLA + STA $44 + LDA #$8004 + PHA + LDX $30 + LDA $2E + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$42],Y + TAX + LDA [$42] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L042C78 + DEY +L042C78 TXA + CMP $03,S + BEQ L042C80 + LDY #$0000 +L042C80 PLA + PLA + TYA + BNE L042C88 + BRL L042D10 +L042C88 LDY #$0002 + LDA [$42],Y + TAX + LDA [$42] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L042CB6 + DEX +L042CB6 LDY #$0001 + CMP $01,S + BEQ L042CBE + DEY +L042CBE TXA + CMP $03,S + BEQ L042CC6 + LDY #$0000 +L042CC6 PLA + PLA + TYA + BNE L042CCE + BRL L042D10 +L042CCE LDY #$0002 + LDA [$42],Y + TAX + LDA [$42] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$42],Y + PHA + LDA [$42] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L042D10 PHA + PHA + LDX $4D + LDA $4B + PHX + PHA + LDA #$0001 + PHA + LDX $44 + LDA $42 + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $38 + PLA + STA $3A + LDY #$0002 + LDA [$4F],Y + PHA + LDA [$4F] + PHA + PLA + CLC + ADC #$0072 + PHA + PLA + STA $00 + PLA + STA $02 + LDA $2E + STA [$00] + LDY #$0002 + LDA $30 + STA [$00],Y + LDX $3A + LDA $38 + PHX + PHA + _HideControl + STA L014E87 + LDX $30 + LDA $2E + PHX + PHA + LDX $3A + LDA $38 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $3A + LDA $38 + PHX + PHA + LDX $51 + LDA $4F + PHX + PHA + + ldal $e12120 + inc + stal $e12120 + + JSL L0409AD + LDA $3C + PHA + _SetArcRot + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _SetPortRect + STA L014E87 + PHA + LDY #$0002 + LDA [$38],Y + TAX + LDA [$38] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + JSL L0417C9 + STA $36 + LDA $36 + LDX #$0000 + CMP #$000A + BNE L042DDF + INX +L042DDF TXA + PHA + LDA $36 + LDX #$0000 + CMP #$000F + BNE L042DEC + INX +L042DEC TXA + ORA $01,S + PLX + PHA + LDA $36 + LDX #$0000 + CMP #$0009 + BNE L042DFC + INX +L042DFC TXA + ORA $01,S + PLX + TAX + BNE L042E06 + BRL L042E19 +L042E06 LDX $3A + LDA $38 + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + JSL L0418D7 +L042E19 PHA + LDY #$0002 + LDA [$38],Y + TAX + LDA [$38] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$8900 + BEQ L042E46 + BRL L042E50 +L042E46 LDA L0146BE + CLC + ADC #$0018 + STA L0146BE +L042E50 LDX #^L0146B8 + LDA #L0146B8 + PHX + PHA + LDA $36 + PHA + JSL L0208DC + LDA $47 + STA $51 + LDA $46 + STA $50 + PLD + TSC + CLC + ADC #$0050 + TCS + RTL + +L042E6F ENT + TSC + SEC + SBC #$0036 + TCS + PHD + INC + TCD + PHA + LDX $3F + LDA $3D + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L042E93 + INX +L042E93 TXA + PHA + PHA + LDX $3F + LDA $3D + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L042EB0 + INX +L042EB0 TXA + AND $01,S + PLX + TAX + BNE L042EBA + BRL L042EBD +L042EBA BRL L0434D2 +L042EBD LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + BNE L042ED6 + BRL L042FED +L042ED6 LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + EOR #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L042F0B + DEX +L042F0B PHX + PHA + LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$0056 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + PHA + PEA $0000 + PEA $0000 + LDX $3F + LDA $3D + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $2E + PLA + STA $30 + PHA + LDY #$0002 + LDA [$2E],Y + TAX + LDA [$2E] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + JSL L0417C9 + LDX #$0000 + TAY + BPL L042F7A + DEX +L042F7A STX $34 + STA $32 + LDA #$000A + LDX #$0000 + TAY + BPL L042F88 + DEX +L042F88 LDY #$0000 + CMP $32 + BNE L042F91 + CPX $34 +L042F91 BNE L042F94 + INY +L042F94 TYA + PHA + LDA #$000F + LDX #$0000 + TAY + BPL L042FA0 + DEX +L042FA0 LDY #$0000 + CMP $32 + BNE L042FA9 + CPX $34 +L042FA9 BNE L042FAC + INY +L042FAC TYA + ORA $01,S + PLX + PHA + LDA #$0009 + LDX #$0000 + TAY + BPL L042FBB + DEX +L042FBB LDY #$0000 + CMP $32 + BNE L042FC4 + CPX $34 +L042FC4 BNE L042FC7 + INY +L042FC7 TYA + ORA $01,S + PLX + TAX + BNE L042FD1 + BRL L042FEA +L042FD1 LDX $30 + LDA $2E + PHX + PHA + LDY #$0002 + LDA [$2E],Y + PHA + LDA [$2E] + PHA + PLA + CLC + ADC #$0008 + PHA + JSL L0418D7 +L042FEA BRL L04348E +L042FED LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L043006 + BRL L04348E +L043006 PHA + PHA + PEA $0000 + PEA $0000 + LDX $3F + LDA $3D + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $2E + PLA + STA $30 + PHA + LDY #$0002 + LDA [$2E],Y + TAX + LDA [$2E] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + JSL L0417C9 + LDX #$0000 + TAY + BPL L043055 + DEX +L043055 STX $34 + STA $32 + LDA #$000A + LDX #$0000 + TAY + BPL L043063 + DEX +L043063 LDY #$0000 + CMP $32 + BNE L04306C + CPX $34 +L04306C BNE L04306F + INY +L04306F TYA + PHA + LDA #$000F + LDX #$0000 + TAY + BPL L04307B + DEX +L04307B LDY #$0000 + CMP $32 + BNE L043084 + CPX $34 +L043084 BNE L043087 + INY +L043087 TYA + ORA $01,S + PLX + PHA + LDA #$0009 + LDX #$0000 + TAY + BPL L043096 + DEX +L043096 LDY #$0000 + CMP $32 + BNE L04309F + CPX $34 +L04309F BNE L0430A2 + INY +L0430A2 TYA + ORA $01,S + PLX + TAX + BNE L0430AC + BRL L0430C5 +L0430AC LDX $30 + LDA $2E + PHX + PHA + LDY #$0002 + LDA [$2E],Y + PHA + LDA [$2E] + PHA + PLA + CLC + ADC #$0008 + PHA + JSL L0418D7 +L0430C5 PHA + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $1E + PLA + STA $20 + LDA L014E87 + PHA + LDA #$1043 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1044 + PHA + JSL L020000 + PHA + PHA + LDX $20 + LDA $1E + PHX + PHA + _GetHandleSize + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDA L014E87 + PHA + LDA #$1045 + PHA + JSL L020000 + PHA + LDX $18 + LDA $16 + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0004 + JSL L0153AF + STA $22 + LDA $22 + SEC + SBC #$0001 + STA $24 +L043163 LDA $24 + BMI L04316A + DEC + BPL L04316D +L04316A BRL L04320E +L04316D LDY #$0002 + LDA [$1E],Y + PHA + LDA [$1E] + PHA + LDA $24 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $1C + STA $1A + PHA + LDX $1C + LDA $1A + PHX + PHA + _HiWord + STA L014E87 + PLA + PHA + PHA + LDX $3F + LDA $3D + PHX + PHA + _HiWord + STA L014E87 + PLA + SEC + SBC $01,S + PLX + TAX + BEQ L0431C1 + LDA #$0001 +L0431C1 EOR #$0001 + PHA + PHA + LDX $1C + LDA $1A + PHX + PHA + _LoWord + STA L014E87 + PLA + PHA + PHA + LDX $3F + LDA $3D + PHX + PHA + _LoWord + STA L014E87 + PLA + SEC + SBC $01,S + PLX + TAX + BEQ L0431F4 + LDA #$0001 +L0431F4 EOR #$0001 + AND $01,S + PLX + TAX + BNE L043200 + BRL L043203 +L043200 BRL L043211 +L043203 LDA $24 + SEC + SBC #$0001 + STA $24 + BRL L043163 +L04320E BRL L0434D2 +L043211 LDY #$0002 + LDA [$1E],Y + PHA + LDA [$1E] + PHA + LDA $24 + CLC + ADC #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDY #$0002 + LDA [$1E],Y + PHA + LDA [$1E] + PHA + LDA $24 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + LDA $24 + LDX #$0004 + JSL L0153FB + PHA + LDA $22 + LDX #$0004 + JSL L0153FB + SEC + SBC $01,S + PLX + LDX #$0000 + TAY + BPL L043259 + DEX +L043259 PHX + PHA + _BlockMove + STA L014E87 + LDY #$0002 + LDA [$1E],Y + PHA + LDA [$1E] + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $1C + STA $1A + LDX $20 + LDA $1E + PHX + PHA + _HUnlock + STA L014E87 + LDA L014E87 + PHA + LDA #$1047 + PHA + JSL L020000 + LDA #$0004 + LDX #$0000 + TAY + BPL L0432B1 + DEX +L0432B1 PHX + PHA + PEI $18 + PEI $16 + SEC + PLA + SBC $03,S + STA $03,S + PLA + SBC $03,S + STA $03,S + LDX $20 + LDA $1E + PHX + PHA + _SetHandleSize + STA L014E87 + LDA L014E87 + PHA + LDA #$1048 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1049 + PHA + JSL L020000 + LDA #$0001 + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$1050 + PHA + JSL L020000 + LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1051 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1052 + PHA + JSL L020000 + LDA #$0004 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _LoWord + STA L014E87 + PLA + SEC + SBC $01,S + PLX + PHA + LDA #$0008 + SEC + SBC $01,S + PLY + TAY + BVS L0433C7 + EOR #$8000 +L0433C7 BMI L0433CC + BRL L04348E +L0433CC LDA #$8003 + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _RemoveResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1053 + PHA + JSL L020000 + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L043418 + BRL L043443 +L043418 LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + EOR #$0009 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L043443 LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$005A + PHA + LDY #$0002 + LDA [$39],Y + TAX + LDA [$39] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$39],Y + PHA + LDA [$39] + PHA + PLA + CLC + ADC #$0056 + PHA + PLA + STA $00 + PLA + STA $02 + LDA $1A + STA [$00] + LDY #$0002 + LDA $1C + STA [$00],Y +L04348E PHA + PHA + PEA $0000 + PEA $0000 + LDX $3F + LDA $3D + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _HideControl + STA L014E87 + PHA + PHA + PEA $0000 + PEA $0000 + LDX $3F + LDA $3D + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _DisposeControl + STA L014E87 +L0434D2 LDA $37 + STA $3F + LDA $36 + STA $3E + PLD + TSC + CLC + ADC #$003E + TCS + RTL + +L0434E2 ENT + TSC + SEC + SBC #$0022 + TCS + PHD + INC + TCD + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + LDX #$0000 + CMP #$0000 + BNE L043508 + INX +L043508 TXA + PHA + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + LDX #$0000 + CMP #$0000 + BNE L043527 + INX +L043527 TXA + AND $01,S + PLX + TAX + BNE L043531 + BRL L043534 +L043531 BRL L0436E8 +L043534 LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0002 + BNE L04354D + BRL L04358B +L04354D LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1056 + PHA + JSL L020000 + BRL L0436E8 +L04358B LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0009 + BNE L0435A4 + BRL L0436E8 +L0435A4 PHA + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDA L014E87 + PHA + LDA #$1057 + PHA + JSL L020000 + LDX $18 + LDA $16 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$1058 + PHA + JSL L020000 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetHandleSize + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$1059 + PHA + JSL L020000 + LDA #$0001 + PHA + PHA + LDX $1C + LDA $1A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0004 + JSL L0153AF + SEC + SBC $01,S + PLX + STA $1E + LDA $1E + STA $06 + LDA #$0001 + STA $20 + LDA $06 + SEC + SBC $20 + BVS L043655 + EOR #$8000 +L043655 BMI L04365A + BRL L0436AD +L04365A LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8004 + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA $20 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1060 + PHA + JSL L020000 + LDA $06 + CMP $20 + BNE L0436A8 + BRL L0436AD +L0436A8 INC $20 + BRL L04365A +L0436AD LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8003 + PHA + LDY #$0002 + LDA [$25],Y + TAX + LDA [$25] + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$1061 + PHA + JSL L020000 +L0436E8 LDA $23 + STA $27 + LDA $22 + STA $26 + PLD + TSC + CLC + ADC #$0026 + TCS + RTL + diff --git a/genesys/edit/WINDOW.S b/genesys/edit/WINDOW.S new file mode 100644 index 0000000..d9a29b2 --- /dev/null +++ b/genesys/edit/WINDOW.S @@ -0,0 +1,10790 @@ +* +* Genesys v1.2.4 +* Window editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Int.Macs + use 4/Line.Macs + use 4/Mem.Macs + use 4/QD.Macs + use 4/Resource.Macs + use 4/Text.Macs + use 4/Util.Macs + use 4/Window.Macs + +*---------------------------- + +GSOS EQU $E100A8 + + EXT L0271F5 + EXT L024B85 + EXT L020000 + EXT L020E29 + +*---------------------------- + + LDA $04,S + STA L0106A0 + LDA $06,S + STA L0106A0+2 + JMPL L0271F5 + +L01000E ENT + PEA ^L01001C + PEA L01001C + _SetCtlParamPtr + RTL + +L01001C ADRL L010044 ; Pointer to substitution strings + ADRL L010045 + ADRL L010046 + ADRL L010047 + ADRL L010048 + ADRL L010049 + ADRL L01004A + ADRL L01004B + ADRL L01004C + ADRL L01004D +L010044 DB $00 +L010045 DB $00 +L010046 DB $00 +L010047 DB $00 +L010048 DB $00 +L010049 DB $00 +L01004A DB $00 +L01004B DB $00 +L01004C DB $00 +L01004D DB $00 + +L01004E ENT + LDA #L010055 + LDX #^L010055 + RTL + +L010055 DW $0000 + DW $0006 + DW $0008 + ADRL L010097 + ADRL L0100A3 + ADRL L0100C0 + ADRL L0100DD + ADRL L0100F7 + ADRL L010113 + ADRL L010131 + ADRL L010149 + ADRL L010161 + ADRL L010178 + ADRL L01018F + ADRL L0101AE + ADRL L0101CE + ADRL L0101E5 + ADRL $00000000 +L010097 STR ' Options ' +L0100A3 DW $0000 + DW $0802 + ASC 'Ee' + DW $0000 + DW $0000 + ADRL L0100B1 +L0100B1 STR 'Edit colors...' +L0100C0 DW $0000 + DW $0803 + ASC 'Aa' + DW $0000 + DW $0040 + ADRL L0100CE +L0100CE STR 'Add control...' +L0100DD DW $0000 + DW $0804 + ASC 0000 + DW $0000 + DW $0000 + ADRL L0100EB +L0100EB STR 'Zoom window' +L0100F7 DW $0000 + DW $0805 + ASC 0000 + DW $0000 + DW $0000 + ADRL L010105 +L010105 STR 'Set zoom rect' +L010113 DW $0000 + DW $0806 + ASC 0000 + DW $0000 + DW $00C0 + ADRL L010121 +L010121 STR 'Clear zoom rect' +L010131 DW $0000 + DW $0807 + ASC '1!' + DW $0000 + DW $0000 + ADRL L01013F +L01013F STR 'Title bar' +L010149 DW $0000 + DW $0808 + ASC '2@' + DW $0000 + DW $0080 + ADRL L010157 +L010157 STR 'Close box' +L010161 DW $0000 + DW $0809 + ASC '3#' + DW $0000 + DW $0080 + ADRL L01016F +L01016F STR 'Zoom box' +L010178 DW $0000 + DW $080A + ASC '4$' + DW $0000 + DW $0000 + ADRL L010186 +L010186 STR 'Info bar' +L01018F DW $0000 + DW $080B + ASC '5%' + DW $0000 + DW $0000 + ADRL L01019D +L01019D STR 'Right scroll bar' +L0101AE DW $0000 + DW $080C + ASC '6^' + DW $0000 + DW $0000 + ADRL L0101BC +L0101BC STR 'Bottom scroll bar' +L0101CE DW $0000 + DW $080D + ASC '7&' + DW $0000 + DW $0040 + ADRL L0101DC +L0101DC STR 'Size box' +L0101E5 DW $0000 + DW $080E + ASC 'Tt' + DW $0000 + DW $0000 + ADRL L0101F3 +L0101F3 STR 'Test window...' + +L010202 ENT + PEA ^L0102B4 + PEA L0102B4 + _SetCursor + RTL + +L010210 ENT + PEA ^L01022C + PEA L01022C + _SetCursor + RTL + +L01021E ENT + PEA ^L01033C + PEA L01033C + _SetCursor + RTL + +L01022C DW $0008 ; cursor height + DW $0004 ; cursor width + HEX FFFF000000000000 ; cursor image + HEX F00F000000000000 + HEX F00FFF0000000000 + HEX FFFF0F0000000000 + HEX 0F000F0000000000 + HEX 0F000F0000000000 + HEX 0FFFFF0000000000 + HEX 0000000000000000 + HEX FFFF000000000000 ; cursor mask + HEX FFFF000000000000 + HEX FFFFFF0000000000 + HEX FFFFFF0000000000 + HEX 0FFFFF0000000000 + HEX 0FFFFF0000000000 + HEX 0FFFFF0000000000 + HEX 0000000000000000 + DW $0004 ; hot spot + DW $0008 +L0102B4 DW $0008 ; cursor height + DW $0004 ; cursor width + HEX FFF0FFF000000000 ; cursor image + HEX FF000FF000000000 + HEX F0FFF0F000000000 + HEX 00F0F00000000000 + HEX F0FFF0F000000000 + HEX FF000FF000000000 + HEX FFF0FFF000000000 + HEX 0000000000000000 + HEX FFF0FFF000000000 ; cursor mask + HEX FF000FF000000000 + HEX F0FFF0F000000000 + HEX 00FFF00000000000 + HEX F0FFF0F000000000 + HEX FF000FF000000000 + HEX FFF0FFF000000000 + HEX 0000000000000000 + DW $0004 ; hot spot + DW $0008 +L01033C DW $0009 ; cursor height + DW $0004 ; cursor width + HEX 00F0000000000000 ; cursor image + HEX 0FFF000000000000 + HEX FFFFF00000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 + HEX FFFFF00000000000 + HEX 0FFF000000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 ; cursor mask + HEX 0FFF000000000000 + HEX FFFFF00000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 + HEX 00F0000000000000 + HEX FFFFF00000000000 + HEX 0FFF000000000000 + HEX 00F0000000000000 + DW $0004 ; hot spot + DW $0006 + +L0103D4 ENT + PLA + STA L010416 + SEP #$20 + PLA + STA L010418 + REP #$20 + PLA + STA L010412 + PLA + STA L010414 + PLA + PLX + PHB + PHX + PHA + PHK + PEA L010403 + SEP #$20 + LDA L010414 + PHA + PHA + REP #$20 + SEC + LDA L010412 + SBC #$0001 + PLB + PHA +L010403 RTL + + PLB + SEP #$20 + LDA L010418 + PHA + REP #$20 + LDA L010416 + PHA + RTL + +L010412 DW $0000 +L010414 DW $0000 +L010416 DW $0000 +L010418 DB $00 +L010419 ENT + PLA + STA L01049D + SEP #$20 + PLA + STA L01049F + REP #$20 + PLA + STA L01048B + PLA + STA L01048D + PLA + STA L010499 + PLA + STA L01049B + PLA + STA L010495 + PLA + STA L010497 + PLA + STA L010493 + PLA + STA L01048F + PLA + STA L010491 + PHB + LDA L010491 + PHA + LDA L01048F + PHA + LDA L010493 + PHA + LDA L010497 + PHA + LDA L010495 + PHA + LDA L01049B + PHA + LDA L010499 + PHA + PHK + PEA L01047C + SEP #$20 + LDA L01048D + PHA + PHA + REP #$20 + SEC + LDA L01048B + SBC #$0001 + PLB + PHA +L01047C RTL + + PLB + SEP #$20 + LDA L01049F + PHA + REP #$20 + LDA L01049D + PHA + RTL + +L01048B DW $0000 +L01048D DW $0000 +L01048F DW $0000 +L010491 DW $0000 +L010493 DW $0000 +L010495 DW $0000 +L010497 DW $0000 +L010499 DW $0000 +L01049B DW $0000 +L01049D DW $0000 +L01049F DB $00 +L0104A0 ENT + PLA + STA L0104D2 + SEP #$20 + PLA + STA L0104D4 + REP #$20 + PLA + SEP #$20 + PHA + XBA + PLA + ASL + ASL + ASL + ASL + REP #$20 + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + TAX + SEP #$20 + LDA L0104D4 + PHA + REP #$20 + LDA L0104D2 + PHA + TXA + RTL + +L0104D2 DW $0000 +L0104D4 DB $00 +L0104D5 ENT + PLA + STA L010507 + SEP #$20 + PLA + STA L010509 + REP #$20 + PLA + SEP #$20 + PHA + LSR + LSR + LSR + LSR + XBA + PLA + REP #$20 + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + TAX + SEP #$20 + LDA L010509 + PHA + REP #$20 + LDA L010507 + PHA + TXA + RTL + +L010507 DW $0000 +L010509 DB $00 +L01050A ENT + PLA + STA L01053D + SEP #$20 + PLA + STA L01053F + REP #$20 + PLA + SEP #$20 + XBA + PHA + XBA + PLA + ASL + ASL + ASL + ASL + REP #$20 + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + TAX + SEP #$20 + LDA L01053F + PHA + REP #$20 + LDA L01053D + PHA + TXA + RTL + +L01053D DW $0000 +L01053F DB $00 + PLA + STA L010573 + SEP #$20 + PLA + STA L010575 + REP #$20 + PLA + SEP #$20 + XBA + PHA + LSR + LSR + LSR + LSR + XBA + PLA + REP #$20 + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + TAX + SEP #$20 + LDA L010575 + PHA + REP #$20 + LDA L010573 + PHA + TXA + RTL + +L010573 DW $0000 +L010575 DB $00 + LDA $06,S + AND #$FFF0 + ORA $04,S + BRA L0105AE + LDA $04,S + ASL + ASL + ASL + ASL + STA $04,S + LDA $06,S + AND #$FF0F + ORA $04,S + BRA L0105AE + LDA $04,S + XBA + STA $04,S + LDA $06,S + AND #$F0FF + ORA $04,S + BRA L0105AE + LDA $04,S + XBA + ASL + ASL + ASL + ASL + STA $04,S + LDA $06,S + AND #$0FFF + ORA $04,S +L0105AE TAY + LDA $01,S + STA $05,S + LDA $02,S + STA $06,S + PLA + PLA + TYA + RTL + +L0105BB ENT + PHD + TSX + PHX + PLD + LDA $0C,S + ASL + ASL + ASL + ASL + ORA $0A,S + SEP #$20 + PHA + XBA + PLA + REP #$20 + STA $0A,S + LSR + LSR + LSR + LSR + SEP #$20 + PHA + XBA + PLA + REP #$20 + STA $0C,S + LDY #$0020 +L0105E0 DEY + DEY + LDA $0C,S + STA [$06],Y + DEY + DEY + STA [$06],Y + DEY + DEY + LDA $0A,S + STA [$06],Y + DEY + DEY + STA [$06],Y + CPY #$0000 + BNE L0105E0 + PLD + LDA $01,S + STA $09,S + LDA $02,S + STA $0A,S + LDA $06,S + TAX + LDA $04,S + PLY + PLY + PLY + PLY + RTL + +L01060C ENT + PEA ^L01061A + PEA L01061A + _SetPenPat + RTL + +L01061A HEX CCCCCCCC33333333CCCCCCCC33333333 + HEX CCCCCCCC33333333CCCCCCCC33333333 + + BRK $69 + RTL + +L01063D ENT + PHD + PHB + PHK + PLB + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0000 + PEA $0912 + PEA $8734 + PEA ^L024B85 + PEA L024B85 + PEA $0000 + PEA $0000 + PEA $0001 + LDA L010698+2 + PHA + LDA L010698 + PHA + PEA $800E + _NewWindow2 + lda 1,s + STA L01069C + lda 3,s + STA L01069C+2 + _SetPort + PLB + PLD + RTL + +L01068E ENT + DW $0000 +L010690 ENT + DW $0000 +L010692 ENT + DW $0000 +L010694 ENT + DW $0000 +L010696 ENT + DW $0000 +L010698 ENT + ADRL $00000000 +L01069C ENT + ADRL $00000000 +L0106A0 ENT + ADRL $00000000 +L0106A4 ENT + DB $00 + DB $00 +L0106A6 ENT + DB $00 + DB $00 +L0106A8 ENT + DB $00 + DB $00 +L0106AA ENT + DB $00 + DB $00 +L0106AC ENT + DB $00 + DB $00 +L0106AE ENT + DB $00 + DB $00 +L0106B0 ENT + DB $00 + DB $00 +L0106B2 ENT + DB $00 + DB $00 +L0106B4 ENT + DB $00 + DB $00 +L0106B6 ENT + DB $00 + DB $00 +L0106B8 ENT + DB $00 + DB $00 +L0106BA ENT + DB $00 + DB $00 +L0106BC ENT + DB $00 + DB $00 +L0106BE ENT + DB $00 + DB $00 +L0106C0 ENT + DB $00 + DB $00 +L0106C2 ENT + DB $00 + DB $00 +L0106C4 ENT + DB $00 + DB $00 +L0106C6 ENT + DB $00 + DB $00 +L0106C8 ENT + DB $00 + DB $00 +L0106CA ENT + DB $00 + DB $00 +L0106CC ENT + DB $00 + DB $00 +L0106CE ENT + DB $00 + DB $00 +L0106D0 ENT + DB $00 + DB $00 +L0106D2 ENT + DB $00 + DB $00 +L0106D4 ENT + DB $00 + DB $00 +L0106D6 ENT + DB $00 + DB $00 +L0106D8 ENT + DB $00 + DB $00 +L0106DA ENT + DB $00 + DB $00 +L0106DC ENT + DB $00 + DB $00 +L0106DE ENT + DB $00 + DB $00 +L0106E0 ENT + DB $00 + DB $00 +L0106E2 ENT + DB $00 + DB $00 +L0106E4 ENT + DB $00 + DB $00 +L0106E6 ENT + DB $00 + DB $00 +L0106E8 ENT + DB $00 + DB $00 +L0106EA ENT + DB $00 + DB $00 +L0106EC ENT + DB $00 + DB $00 +L0106EE ENT + DB $00 + DB $00 +L0106F0 ENT + DB $00 + DB $00 +L0106F2 ENT + DB $00 + DB $00 +L0106F4 ENT + DB $00 + DB $00 +L0106F6 ENT + DB $00 + DB $00 +L0106F8 ENT + DB $00 + DB $00 +L0106FA ENT + DB $00 + DB $00 +L0106FC ENT + DB $00 + DB $00 +L0106FE ENT + DB $00 + DB $00 +L010700 ENT + DB $00 + DB $00 +L010702 ENT + ADRL $00000000 +L010706 ENT + ADRL $00000000 +L01070A ENT + ADRL $00000000 ; Current window +L01070E ENT + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L01080E ENT + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L01090E ENT + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L010A0E ENT + TSC + SEC + SBC #$011E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX #$0123 + LDA $02,X + PHA + LDA $00,X + PHA + PEA $0100 + JSL L014B1E + PHA + PHA + LDA #$000A + LDX #$0000 + TAY + BPL L010A3C + DEX +L010A3C PHX + PHA + LDX #$0121 + LDA $00,X + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L010A52 + DEX +L010A52 PHX + PHA + _NewHandle + STA L014E87 + LDX #$011A + PLA + STA $00,X + PLA + STA $02,X + LDA L014E87 + PHA + LDA #$0042 + PHA + JSL L020000 + LDX #$011A + LDA $02,X + PHA + LDA $00,X + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0043 + PHA + JSL L020000 + LDX #$011A + LDA $02,X + PHA + LDA $00,X + PHA + LDX #$0116 + PLA + STA $00,X + PLA + STA $02,X + LDA #$0000 + TAX + PEA $0000 + PHX + TDC + CLC + ADC $01,S + ADC #$0016 + STA $01,S + LDX #$0116 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$0008 + LDX #$0000 + TAY + BPL L010AD7 + DEX +L010AD7 PHX + PHA + _BlockMove + STA L014E87 + PHA + PHA + LDA #$FFFF + PHA + LDA #$8006 + PHA + _UniqueResourceID + STA L014E87 + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0010 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0045 + PHA + JSL L020000 + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + AND #$0200 + BEQ L010B58 + BRL L010BA1 +L010B58 LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$005A + PHA + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L010BA1 LDX #$011A + LDA $02,X + PHA + LDA $00,X + PHA + LDA #$0000 + PHA + LDA #$8006 + PHA + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _AddResource + PHA + LDA #$0046 + PHA + JSL L020000 + LDA #$8006 + PHA + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _WriteResource + PHA + LDA #$0047 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDX #$0127 + LDA $02,X + PHA + LDA $00,X + PHA + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _ReleaseResource + PHA + LDA #$0048 + PHA + JSL L020000 + LDX #$011E + LDA $00,X + LDY $01,X + LDX #$0128 + STA $00,X + STY $01,X + PLD + TSC + CLC + ADC #$0128 + TCS + RTL + +L010C92 ENT + TSC + SEC + SBC #$003C + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDA #$0000 + STA $3A + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L010CD4 + DEX +L010CD4 LDY #$0001 + CMP $01,S + BEQ L010CDC + DEY +L010CDC TXA + CMP $03,S + BEQ L010CE4 + LDY #$0000 +L010CE4 PLA + PLA + TYA + BEQ L010CEC + BRL L010DA4 +L010CEC PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $36 + PLA + STA $38 + LDA L014E87 + BNE L010D23 + BRL L010D40 +L010D23 LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L0114DC + PEA L0114DC + LDA #$0013 + PHA + JSL L014B68 + BRL L010DA1 +L010D40 LDX $38 + LDA $36 + PHX + PHA + _HLock + STA L014E87 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$36],Y + PHA + LDA [$36] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA #$0001 + STA $3A +L010DA1 BRL L010DBE +L010DA4 LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L0114EF + PEA L0114EF + LDA #$0000 + PHA + JSL L014B68 +L010DBE JSL L013CFB + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L010DF1 + BRL L010E23 +L010DF1 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$4000 + LDX #$0000 + TAY + BPL L010E0D + DEX +L010E0D PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L010E23 LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L010E3C + BRL L010E6E +L010E3C LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0100 + LDX #$0000 + TAY + BPL L010E58 + DEX +L010E58 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L010E6E LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0080 + BNE L010E87 + BRL L010EB9 +L010E87 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0080 + LDX #$0000 + TAY + BPL L010EA3 + DEX +L010EA3 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L010EB9 LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L010EC5 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L010EF1 + BRL L011040 +L010EF1 PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L010F11 + BRL L01102D +L010F11 PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0004 + LDX #$0000 + TAY + BPL L010F29 + DEX +L010F29 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L010FCC + DEX +L010FCC PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L010FEC + EOR #$8000 +L010FEC BMI L010FF1 + BRL L011024 +L010FF1 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L01101F + BRL L011024 +L01101F INC $26 + BRL L010FF1 +L011024 LDA #$0001 + STA L0135A6 + BRL L011040 +L01102D LDA $20 + CMP #$0002 + BEQ L011037 + BRL L011040 +L011037 LDA #$0001 + STA L0135A6 + BRL L011040 +L011040 LDA L01356C + CMP #$0014 + BEQ L01104B + BRL L011099 +L01104B PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L011099 LDA L0135A6 + BNE L0110A1 + BRL L010EC5 +L0110A1 PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$4000 + LDX #$0000 + TAY + BPL L0110BA + DEX +L0110BA PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $34 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0100 + LDX #$0000 + TAY + BPL L0110EC + DEX +L0110EC PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $32 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0080 + LDX #$0000 + TAY + BPL L01111E + DEX +L01111E PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $30 + PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $20 + CMP #$0001 + BEQ L011167 + BRL L0114C4 +L011167 LDA $34 + BNE L01116E + BRL L01119C +L01116E LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$4000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L0111CF +L01119C LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$4000 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0111CF LDA $32 + BNE L0111D6 + BRL L011204 +L0111D6 LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L011237 +L011204 LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0100 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L011237 LDA $30 + BNE L01123E + BRL L01126C +L01123E LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0080 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L01129F +L01126C LDY #$0002 + LDA [$41],Y + PHA + LDA [$41] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0080 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L01129F LDA $3A + BNE L0112A6 + BRL L011494 +L0112A6 PHA + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _LoadResource + tax + PLA + STA L013570 + PLA + STA L013572 + phx + LDA #$2012 + PHA + JSL L020000 + LDX L013572 + LDA L013570 + PHX + PHA + _HUnlock + PHA + LDA #$2013 + PHA + JSL L020000 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + CLC + ADC #$0001 + LDX #$0000 + TAY + BPL L01131C + DEX +L01131C PHX + PHA + LDX L013572 + LDA L013570 + PHX + PHA + _SetHandleSize + PHA + LDA #$2014 + PHA + JSL L020000 + LDX L013572 + LDA L013570 + PHX + PHA + _HLock + PHA + LDA #$2015 + PHA + JSL L020000 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + CLC + ADC #$0001 + LDX #$0000 + TAY + BPL L011390 + DEX +L011390 PHX + PHA + _BlockMove + STA L014E87 + LDA #$0001 + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _MarkResourceChange + PHA + LDA #$2017 + PHA + JSL L020000 + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _WriteResource + PHA + LDA #$2018 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8006 + PHA + LDY #$0002 + LDA [$41],Y + TAX + LDA [$41] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _ReleaseResource + PHA + LDA #$2019 + PHA + JSL L020000 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA #$0001 + PHA + LDA $28 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $2C + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _InvalRect + STA L014E87 + LDA #$0001 + STA $16 + BRL L0114C1 +L011494 LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014ADD + BMI L0114A9 + DEC + BPL L0114AC +L0114A9 BRL L0114C1 +L0114AC LDX $43 + LDA $41 + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA $3F + PHA + JSL L010A0E +L0114C1 BRL L0114C9 +L0114C4 LDA #$0000 + STA $16 +L0114C9 LDA $3D + STA $43 + LDA $3C + STA $42 + LDX $16 + PLD + TSC + CLC + ADC #$0042 + TCS + TXA + RTL + +L0114DC ASC 'Error loading title' +L0114EF ENT + TSC + SEC + SBC #$0032 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L0117CC + PEA L0117CC + LDA #$0008 + PHA + JSL L014B68 + LDA #$0000 + TAX + SEP #$20 + LDA #$08 + STA L0138A8,X + REP #$20 + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + LDA #$0001 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA #$0008 + PHA + _Long2Hex + PHA + LDA #$2020 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + LDX #$0000 + TAY + BPL L011595 + DEX +L011595 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L013EEF + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L0115C9 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L0115F5 + BRL L011726 +L0115F5 PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L011615 + BRL L01170E +L011615 PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0003 + LDX #$0000 + TAY + BPL L01162D + DEX +L01162D PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2021 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + tax + PLA + STA L013570 + PLA + STA L013572 + phx + LDA #$2022 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + tax + PLA + STA L01356E + phx + LDA #$2023 + PHA + JSL L020000 + PHA + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA L01356E + PHA + _Hex2Long + tax + LDY #$0002 + LDA [$35],Y + PHA + LDA [$35] + PHA + PLA + CLC + ADC #$0038 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + phx + LDA #$2024 + PHA + JSL L020000 + LDA #$0001 + STA L0135A6 + LDA #$0001 + STA $16 + BRL L011726 +L01170E LDA $20 + CMP #$0002 + BEQ L011718 + BRL L011726 +L011718 LDA #$0001 + STA L0135A6 + LDA #$0000 + STA $16 + BRL L011726 +L011726 LDA L01356C + CMP #$0014 + BEQ L011731 + BRL L01177F +L011731 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L01177F LDA L0135A6 + BNE L011787 + BRL L0115C9 +L011787 PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDA L014E87 + PHA + LDA #$2025 + PHA + JSL L020000 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $33 + STA $37 + LDA $32 + STA $36 + LDX $16 + PLD + TSC + CLC + ADC #$0036 + TCS + TXA + RTL + +L0117CC BMI L0117FE + BMI L0117FE+2 + BMI L011801+1 + BMI L011804 +L0117D4 ENT + TSC + SEC + SBC #$003C + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + PEA ^L012406 +L0117FE PEA L012406 +L011801 LDA #$0008 +L011804 PHA + JSL L014B68 + LDA #$0000 + TAX + SEP #$20 + LDA #$08 + STA L0138A8,X + REP #$20 + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + LDA #$0001 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA #$0008 + PHA + _Long2Hex + STA L014E87 + LDA L014E87 + PHA + LDA #$2026 + PHA + JSL L020000 + LDX #^L0136A8 + LDA #L0136A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$0026 + LDA [$00],Y + LDX #$0000 + TAY + BPL L01187A + DEX +L01187A PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0135A8 + LDA #L0135A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$0024 + LDA [$00],Y + LDX #$0000 + TAY + BPL L0118AC + DEX +L0118AC PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L0139A8 + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0020 + BNE L0118ED + BRL L01191F +L0118ED LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$000B + LDX #$0000 + TAY + BPL L011909 + DEX +L011909 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L01191F LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + PHA + LDY #$0052 + LDA [$00],Y + PHA + LDA #$FFFF + LDX #$0000 + TAY + BPL L011941 + DEX +L011941 LDY #$0001 + CMP $01,S + BEQ L011949 + DEY +L011949 TXA + CMP $03,S + BEQ L011951 + LDY #$0000 +L011951 PLA + PLA + TYA + BNE L011959 + BRL L01198B +L011959 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$000A + LDX #$0000 + TAY + BPL L011975 + DEX +L011975 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L01198B LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0002 + BNE L0119A4 + BRL L0119D6 +L0119A4 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0009 + LDX #$0000 + TAY + BPL L0119C0 + DEX +L0119C0 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L0119D6 LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0008 + BNE L0119EF + BRL L011A21 +L0119EF LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0008 + LDX #$0000 + TAY + BPL L011A0B + DEX +L011A0B PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L011A21 LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0040 + BNE L011A3A + BRL L011A6C +L011A3A LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0007 + LDX #$0000 + TAY + BPL L011A56 + DEX +L011A56 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L011A6C LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L011A85 + BRL L011AB7 +L011A85 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0006 + LDX #$0000 + TAY + BPL L011AA1 + DEX +L011AA1 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _SetCtlValue + STA L014E87 +L011AB7 LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L011AC3 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L011AEF + BRL L011EC8 +L011AEF PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L011B0F + BRL L011EB5 +L011B0F PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0005 + LDX #$0000 + TAY + BPL L011B27 + DEX +L011B27 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2027 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2028 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2029 + PHA + JSL L020000 + PHA + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA L01356E + PHA + _Hex2Long + STA L014E87 + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$0014 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$2030 + PHA + JSL L020000 + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0004 + LDX #$0000 + TAY + BPL L011C12 + DEX +L011C12 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2031 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2032 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2033 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L011CD9 + DEX +L011CD9 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L011CF9 + EOR #$8000 +L011CF9 BMI L011CFE + BRL L011D31 +L011CFE LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L011D2C + BRL L011D31 +L011D2C INC $26 + BRL L011CFE +L011D31 LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + CLC + ADC #$0026 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0003 + LDX #$0000 + TAY + BPL L011D6B + DEX +L011D6B PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2035 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2036 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2037 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L011E32 + DEX +L011E32 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L011E52 + EOR #$8000 +L011E52 BMI L011E57 + BRL L011E8A +L011E57 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L011E85 + BRL L011E8A +L011E85 INC $26 + BRL L011E57 +L011E8A LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + CLC + ADC #$0024 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + LDA #$0001 + STA L0135A6 + BRL L011EC8 +L011EB5 LDA $20 + CMP #$0002 + BEQ L011EBF + BRL L011EC8 +L011EBF LDA #$0001 + STA L0135A6 + BRL L011EC8 +L011EC8 LDA L01356C + CMP #$0014 + BEQ L011ED3 + BRL L011F21 +L011ED3 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L011F21 LDA L0135A6 + BNE L011F29 + BRL L011AC3 +L011F29 PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$000B + LDX #$0000 + TAY + BPL L011F42 + DEX +L011F42 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $3A + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$000A + LDX #$0000 + TAY + BPL L011F74 + DEX +L011F74 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $38 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0009 + LDX #$0000 + TAY + BPL L011FA6 + DEX +L011FA6 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $36 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0008 + LDX #$0000 + TAY + BPL L011FD8 + DEX +L011FD8 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $34 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0007 + LDX #$0000 + TAY + BPL L01200A + DEX +L01200A PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $32 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0006 + LDX #$0000 + TAY + BPL L01203C + DEX +L01203C PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _GetCtlValue + STA L014E87 + PLA + STA $30 + PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDA L014E87 + PHA + LDA #$2040 + PHA + JSL L020000 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $20 + CMP #$0001 + BEQ L012091 + BRL L0123EE +L012091 LDA $3A + BNE L012098 + BRL L0120C6 +L012098 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0020 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L0120F9 +L0120C6 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0020 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0120F9 LDA $38 + BNE L012100 + BRL L01212D +L012100 LDA #$FFFF + LDX #$0000 + TAY + BPL L01210A + DEX +L01210A PHX + PHA + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + BRL L012157 +L01212D LDA #$0000 + LDX #$0000 + TAY + BPL L012137 + DEX +L012137 PHX + PHA + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L012157 LDA $36 + BNE L01215E + BRL L01218C +L01215E LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0002 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L0121BF +L01218C LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0002 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0121BF LDA $34 + BNE L0121C6 + BRL L0121F4 +L0121C6 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0008 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L012227 +L0121F4 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0008 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L012227 LDA $32 + BNE L01222E + BRL L01225C +L01222E LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0040 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L01228F +L01225C LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0040 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L01228F LDA $30 + BNE L012296 + BRL L01235D +L012296 LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$2000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$8000 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0010 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0400 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L012390 +L01235D LDY #$0002 + LDA [$3F],Y + PHA + LDA [$3F] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$3F],Y + TAX + LDA [$3F] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$2000 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L012390 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + _InvalRect + STA L014E87 + LDA #$0001 + STA $16 + BRL L0123F3 +L0123EE LDA #$0000 + STA $16 +L0123F3 LDA $3D + STA $41 + LDA $3C + STA $40 + LDX $16 + PLD + TSC + CLC + ADC #$0040 + TCS + TXA + RTL + +L012406 BMI L012438 + BMI L01243A + BMI L01243B+1 + BMI L01243D+1 +L01240E ENT + TSC + SEC + SBC #$0030 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 +L012438 LDA [$33],Y +L01243A TAX +L01243B LDA [$33] +L01243D STA $00 + STX $02 + LDY #$0028 + LDA [$00],Y + LDX #$0000 + TAY + BPL L01244D + DEX +L01244D PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0136A8 + LDA #L0136A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$0030 + LDA [$00],Y + LDX #$0000 + TAY + BPL L01247F + DEX +L01247F PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0135A8 + LDA #L0135A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$0034 + LDA [$00],Y + LDX #$0000 + TAY + BPL L0124B1 + DEX +L0124B1 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L014098 + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L0124E5 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L012511 + BRL L01296E +L012511 PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L012531 + BRL L012956 +L012531 PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0005 + LDX #$0000 + TAY + BPL L012549 + DEX +L012549 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2041 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2042 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2043 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012610 + DEX +L012610 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012630 + EOR #$8000 +L012630 BMI L012635 + BRL L012668 +L012635 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012663 + BRL L012668 +L012663 INC $26 + BRL L012635 +L012668 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0028 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0004 + LDX #$0000 + TAY + BPL L0126A2 + DEX +L0126A2 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2045 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2046 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2047 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012769 + DEX +L012769 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012789 + EOR #$8000 +L012789 BMI L01278E + BRL L0127C1 +L01278E LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L0127BC + BRL L0127C1 +L0127BC INC $26 + BRL L01278E +L0127C1 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0030 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0003 + LDX #$0000 + TAY + BPL L0127FB + DEX +L0127FB PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2049 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2050 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2051 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L0128C2 + DEX +L0128C2 PHX + PHA + _BlockMove + STA L014E87 + LDA L014E87 + PHA + LDA #$2052 + PHA + JSL L020000 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L0128EE + EOR #$8000 +L0128EE BMI L0128F3 + BRL L012926 +L0128F3 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012921 + BRL L012926 +L012921 INC $26 + BRL L0128F3 +L012926 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0034 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + LDA #$0001 + STA $16 + LDA #$0001 + STA L0135A6 + BRL L01296E +L012956 LDA $20 + CMP #$0002 + BEQ L012960 + BRL L01296E +L012960 LDA #$0001 + STA L0135A6 + LDA #$0000 + STA $16 + BRL L01296E +L01296E LDA L01356C + CMP #$0014 + BEQ L012979 + BRL L0129C7 +L012979 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L0129C7 LDA L0135A6 + BNE L0129CF + BRL L0124E5 +L0129CF PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDA L014E87 + PHA + LDA #$2054 + PHA + JSL L020000 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $31 + STA $35 + LDA $30 + STA $34 + LDX $16 + PLD + TSC + CLC + ADC #$0034 + TCS + TXA + RTL + +L012A14 ENT + TSC + SEC + SBC #$0030 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$002A + LDA [$00],Y + LDX #$0000 + TAY + BPL L012A53 + DEX +L012A53 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0136A8 + LDA #L0136A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$0032 + LDA [$00],Y + LDX #$0000 + TAY + BPL L012A85 + DEX +L012A85 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0135A8 + LDA #L0135A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + LDX #$0000 + TAY + BPL L012AB7 + DEX +L012AB7 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L0142F3 + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L012AEB LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + STA L014E87 + PLA + STA L01356C + CMP #$0021 + BEQ L012B17 + BRL L012F68 +L012B17 PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $20 + LDA $20 + CMP #$0001 + BEQ L012B37 + BRL L012F50 +L012B37 PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0005 + LDX #$0000 + TAY + BPL L012B4F + DEX +L012B4F PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2055 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2056 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2057 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012C16 + DEX +L012C16 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012C36 + EOR #$8000 +L012C36 BMI L012C3B + BRL L012C6E +L012C3B LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012C69 + BRL L012C6E +L012C69 INC $26 + BRL L012C3B +L012C6E LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$002A + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0004 + LDX #$0000 + TAY + BPL L012CA8 + DEX +L012CA8 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2059 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2060 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2061 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012D6F + DEX +L012D6F PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012D8F + EOR #$8000 +L012D8F BMI L012D94 + BRL L012DC7 +L012D94 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012DC2 + BRL L012DC7 +L012DC2 INC $26 + BRL L012D94 +L012DC7 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0032 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + STA L014E87 + LDA #$0003 + LDX #$0000 + TAY + BPL L012E01 + DEX +L012E01 PHX + PHA + _GetCtlHandleFromID + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2063 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + STA L014E87 + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2064 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + STA L014E87 + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2065 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L012EC8 + DEX +L012EC8 PHX + PHA + _BlockMove + STA L014E87 + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L012EE8 + EOR #$8000 +L012EE8 BMI L012EED + BRL L012F20 +L012EED LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L012F1B + BRL L012F20 +L012F1B INC $26 + BRL L012EED +L012F20 LDY #$0002 + LDA [$33],Y + TAX + LDA [$33] + CLC + ADC #$0036 + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + LDA #$0001 + STA $16 + LDA #$0001 + STA L0135A6 + BRL L012F68 +L012F50 LDA $20 + CMP #$0002 + BEQ L012F5A + BRL L012F68 +L012F5A LDA #$0001 + STA L0135A6 + LDA #$0000 + STA $16 + BRL L012F68 +L012F68 LDA L01356C + CMP #$0014 + BEQ L012F73 + BRL L012FC1 +L012F73 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + STA L014E87 + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow + STA L014E87 +L012FC1 LDA L0135A6 + BNE L012FC9 + BRL L012AEB +L012FC9 PHA + PHA + _FrontWindow + STA L014E87 + _CloseWindow + STA L014E87 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $31 + STA $35 + LDA $30 + STA $34 + LDX $16 + PLD + TSC + CLC + ADC #$0034 + TCS + TXA + RTL + +L013002 ENT + TSC + SEC + SBC #$0032 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX #^L0136A8 + LDA #L0136A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$002E + LDA [$00],Y + LDX #$0000 + TAY + BPL L013041 + DEX +L013041 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + LDX #^L0135A8 + LDA #L0135A8 + PHX + PHA + LDA #$FF01 + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$002C + LDA [$00],Y + LDX #$0000 + TAY + BPL L013073 + DEX +L013073 PHX + PHA + JSL L0147C4 + JSL L014B68 + JSL L014A35 + JSL L014453 + PHA + PHA + _FrontWindow + STA L014E87 + _SetPort + STA L014E87 + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0200 + BNE L0130B4 + BRL L0130E6 +L0130B4 LDA #$0001 + PHA + PHA + PHA + PHA + PHA + _FrontWindow + LDA #$0005 + LDX #$0000 + TAY + BPL L0130D0 + DEX +L0130D0 PHX + PHA + _GetCtlHandleFromID + _SetCtlValue +L0130E6 LDA #$001B + STA L01358E + LDA #$2006 + STA L01358C +L0130F2 LDA #$0000 + STA L0135A6 + PHA + pea $FFFF + LDX #^L013578 + LDA #L013578 + PHX + PHA + _TaskMaster + PLA + STA L01356C + CMP #$0021 + BEQ L01311E + BRL L013416 +L01311E PHA + LDX L0135A0 + LDA L01359E + PHX + PHA + _LoWord + PLA + STA $20 + CMP #$0001 + BEQ L01313E + BRL L0133FE +L01313E PHA + PHA + PHA + PHA + _FrontWindow + LDA #$0004 + LDX #$0000 + TAY + BPL L013156 + DEX +L013156 PHX + PHA + _GetCtlHandleFromID + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2068 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2069 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2070 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L01321D + DEX +L01321D PHX + PHA + _BlockMove + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L01323D + EOR #$8000 +L01323D BMI L013242 + BRL L013275 +L013242 LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L013270 + BRL L013275 +L013270 INC $26 + BRL L013242 +L013275 LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + CLC + ADC #$002E + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + PHA + PHA + PHA + PHA + _FrontWindow + LDA #$0003 + LDX #$0000 + TAY + BPL L0132AF + DEX +L0132AF PHX + PHA + _GetCtlHandleFromID + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$001E + LDA [$00],Y + TAX + LDY #$001C + LDA [$00],Y + STX L013576 + STA L013574 + LDA L014E87 + PHA + LDA #$2072 + PHA + JSL L020000 + PHA + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextHand + PLA + STA L013570 + PLA + STA L013572 + LDA L014E87 + PHA + LDA #$2073 + PHA + JSL L020000 + PHA + LDX L013576 + LDA L013574 + PHX + PHA + _LEGetTextLen + PLA + STA L01356E + LDA L014E87 + PHA + LDA #$2074 + PHA + JSL L020000 + LDX #^L0137A8 + LDA #L0137A8 + PHX + PHA + LDA #$FF01 + PHA + LDX L013572 + LDA L013570 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + LDA #$FF01 + PHA + JSL L014B68 + LDX #^L01356E + LDA #L01356E + PHX + PHA + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$0001 + LDX #$0000 + TAY + BPL L013376 + DEX +L013376 PHX + PHA + _BlockMove + LDA L01356E + STA $06 + LDA #$0001 + STA $26 + LDA $06 + SEC + SBC $26 + BVS L013396 + EOR #$8000 +L013396 BMI L01339B + BRL L0133CE +L01339B LDA $26 + TAX + TXA + CLC + ADC #L0138A8 + PEA ^L0138A8 + PHA + LDA $26 + SEC + SBC #$0001 + TAX + LDA L0137A8,X + AND #$00FF + PLX + STX $00 + PLX + STX $02 + SEP #$20 + STA [$00] + REP #$20 + LDA $06 + CMP $26 + BNE L0133C9 + BRL L0133CE +L0133C9 INC $26 + BRL L01339B +L0133CE LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + CLC + ADC #$002C + STA $00 + STX $02 + LDX #^L0138A8 + LDA #L0138A8 + PHX + PHA + LDA #$FF01 + PHA + JSL L014824 + STA [$00] + LDA #$0001 + STA $16 + LDA #$0001 + STA L0135A6 + BRL L013416 +L0133FE LDA $20 + CMP #$0002 + BEQ L013408 + BRL L013416 +L013408 LDA #$0001 + STA L0135A6 + LDA #$0000 + STA $16 + BRL L013416 +L013416 LDA L01356C + CMP #$0014 + BEQ L013421 + BRL L01346F +L013421 PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0280 + PHA + LDA #$00C8 + PHA + _SetRect + LDA #$0000 + PHA + LDA L013584 + PHA + LDA L013582 + PHA + LDA #$0008 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + LDX L01358A + LDA L013588 + PHX + PHA + _DragWindow +L01346F LDA L0135A6 + BNE L013477 + BRL L0130F2 +L013477 PHA + PHA + PHA + PHA + PHA + _FrontWindow + LDA #$0005 + LDX #$0000 + TAY + BPL L013490 + DEX +L013490 PHX + PHA + _GetCtlHandleFromID + _GetCtlValue + PLA + STA $30 + LDA L014E87 + PHA + LDA #$2077 + PHA + JSL L020000 + PHA + PHA + _FrontWindow + _CloseWindow + PHA + LDA #$2078 + PHA + JSL L020000 + LDX $24 + LDA $22 + PHX + PHA + _SetPort + STA L014E87 + LDA $20 + CMP #$0001 + BEQ L0134F1 + BRL L013559 +L0134F1 LDA $30 + BNE L0134F8 + BRL L013526 +L0134F8 LDY #$0002 + LDA [$35],Y + PHA + LDA [$35] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L013559 +L013526 LDY #$0002 + LDA [$35],Y + PHA + LDA [$35] + PHA + PLA + CLC + ADC #$000E + PHA + LDY #$0002 + LDA [$35],Y + TAX + LDA [$35] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0200 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L013559 LDA $33 + STA $37 + LDA $32 + STA $36 + LDX $16 + PLD + TSC + CLC + ADC #$0036 + TCS + TXA + RTL + +L01356C DB $00 + DB $00 +L01356E DB $00 + DB $00 +L013570 DB $00 + DB $00 +L013572 DB $00 + DB $00 +L013574 DB $00 + DB $00 +L013576 DB $00 + DB $00 +L013578 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L013582 DB $00 + DB $00 +L013584 DB $00 + DB $00 + DB $00 + DB $00 +L013588 DB $00 + DB $00 +L01358A DB $00 + DB $00 +L01358C DB $00 + DB $00 +L01358E DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L01359E DB $00 + DB $00 +L0135A0 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0135A6 DB $00 + DB $00 +L0135A8 STR '' + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0136A8 STR '' + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0137A8 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0138A8 STR '' + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0139A8 PEA $0000 + PEA $0000 + PEA ^L0139DC + PEA L0139DC + PEA $0000 + PEA $0000 + PEA ^L013C50 + PEA L013C50 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L0139E6 + PEA L0139E6 + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L0139DC STR ' Content ' +L0139E6 DW $0050 + DW $80A0 ; frame bits + ADRL L0139DC ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; color table ptr + DW $0000 ; origin + DW $0000 + DW $0000 ; data size + DW $0000 + DW $0000 ; max size + DW $0000 + DW $0000 ; scroll size + DW $0000 + DW $0000 ; page size + DW $0000 + ADRL $00000000 ; info bar refcon + DW $0000 ; info bar hite + ADRL $00000000 ; window defproc + ADRL $00000000 ; info bar defproc + ADRL L013C50 ; content defproc + DW $0074 ; content rect + DW $00D2 + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L013A36 ; storage ptr + DW $0003 +L013A36 ADRL L013C28 + ADRL L013C00 + ADRL L013BE0 + ADRL L013BC0 + ADRL L013BA0 + ADRL L013B6F + ADRL L013B37 + ADRL L013AFF + ADRL L013ACB + ADRL L013A98 + ADRL L013A66 + ADRL $00000000 +L013A66 DW $000A ; pCount + ADRL $0000000B ; ID + DW $000A ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013A90 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013A90 STR 'Visible' +L013A98 DW $000A ; pCount + ADRL $0000000A ; ID + DW $000A ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013AC2 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013AC2 STR 'In front' +L013ACB DW $000A ; pCount + ADRL $00000009 ; ID + DW $000A ; rect + DW $0131 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013AF5 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013AF5 STR 'Is zoomed' +L013AFF DW $000A ; pCount + ADRL $00000008 ; ID + DW $0014 ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013B29 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013B29 STR 'Controls tied' +L013B37 DW $000A ; pCount + ADRL $00000007 ; ID + DW $0014 ; rect + DW $00A2 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013B61 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013B61 STR 'Quick content' +L013B6F DW $000A ; pCount + ADRL $00000006 ; ID + DW $0014 ; rect + DW $0131 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013B99 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013B99 STR 'Dialog' +L013BA0 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $0023 ; rect + DW $0046 + DW $0030 + DW $0094 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L0138A8 ; defaultRef +L013BC0 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0023 ; rect + DW $00ED + DW $0030 + DW $0111 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0136A8 ; defaultRef +L013BE0 DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0023 ; rect + DW $016C + DW $0030 + DW $0190 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0135A8 ; defaultRef +L013C00 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $0037 ; rect + DW $0042 + DW $0044 + DW $00A6 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013C28 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0037 ; rect + DW $00E8 + DW $0044 + DW $014C + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013C50 PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L013CD4 + PEA L013CD4 + _FrameRect + _PenNormal + PEA $0014 + PEA $002D + _MoveTo + PEA ^L013CDC + PEA L013CDC + _DrawString + PEA $009C + PEA $002D + _MoveTo + PEA ^L013CE3 + PEA L013CE3 + _DrawString + PEA $0119 + PEA $002D + _MoveTo + PEA ^L013CEF + PEA L013CEF + _DrawString + RTL + +L013CD4 DW $0002 + DW $0004 + DW $004E + DW $01A0 +L013CDC STR 'Refcon' +L013CE3 STR 'Horz Origin' +L013CEF STR 'Vert Origin' +L013CFB PEA $0000 + PEA $0000 + PEA ^L013D2F + PEA L013D2F + PEA $0000 + PEA $0000 + PEA ^L013EB1 + PEA L013EB1 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L013D3B + PEA L013D3B + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L013D2F STR ' Title Bar ' +L013D3B DW $0050 + DW $80A0 ; frame bits + ADRL L013D2F ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; color table ptr + DW $0000 ; origin + DW $0000 + DW $0000 ; data size + DW $0000 + DW $0000 ; max size + DW $0000 + DW $0000 ; scroll size + DW $0000 + DW $0000 ; page size + DW $0000 + ADRL $00000000 ; info bar refcon + DW $0000 ; info bar hite + ADRL $00000000 ; window defproc + ADRL $00000000 ; info bar defproc + ADRL L013EB1 ; content defproc + DW $007B ; content rect + DW $0122 + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L013D8B ; storage ptr + DW $0003 +L013D8B ADRL L013E89 + ADRL L013E61 + ADRL L013E41 + ADRL L013DA7 + ADRL L013DDA + ADRL L013E0D + ADRL $00000000 +L013DA7 DW $000A ; pCount + ADRL $00000080 ; ID + DW $000A ; rect + DW $00E4 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013DD1 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013DD1 STR 'Moveable' +L013DDA DW $000A ; pCount + ADRL $00000100 ; ID + DW $000A ; rect + DW $007F + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013E04 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013E04 STR 'Zoom box' +L013E0D DW $000A ; pCount + ADRL $00004000 ; ID + DW $000A ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L013E37 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L013E37 STR 'Close box' +L013E41 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $001B ; rect + DW $0014 + DW $0028 + DW $0140 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $00FF ; maxSize + ADRL L0138A8 ; defaultRef +L013E61 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $0032 ; rect + DW $0032 + DW $003F + DW $0096 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013E89 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $0032 ; rect + DW $00BE + DW $003F + DW $0122 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013EB1 PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L013EE7 + PEA L013EE7 + _FrameRect + _PenNormal + RTL + +L013EE7 DW $0002 + DW $0004 + DW $0047 + DW $0150 +L013EEF PEA $0000 + PEA $0000 + PEA ^L013F23 + PEA L013F23 + PEA $0000 + PEA $0000 + PEA ^L013FFE + PEA L013FFE + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L013F2E + PEA L013F2E + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L013F23 STR ' Info Bar ' +L013F2E DW $0050 + DW $80A0 ; frame bits + ADRL L013F23 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; color table ptr + DW $0000 ; origin + DW $0000 + DW $0000 ; data size + DW $0000 + DW $0000 ; max size + DW $0000 + DW $0000 ; scroll size + DW $0000 + DW $0000 ; page size + DW $0000 + ADRL $00000000 ; info bar refcon + DW $0000 ; info bar hite + ADRL $00000000 ; window defproc + ADRL $00000000 ; info bar defproc + ADRL L013FFE ; content defproc + DW $0080 ; content rect + DW $01A4 + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L013F7E ; storage ptr + DW $0003 +L013F7E ADRL L013FD6 + ADRL L013FAE + ADRL L013F8E + ADRL $00000000 +L013F8E DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0019 ; rect + DW $005A + DW $0026 + DW $00A8 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0008 ; maxSize + ADRL L0138A8 ; defaultRef +L013FAE DW $0009 ; pCount + ADRL $00000002 ; ID + DW $002D ; rect + DW $0014 + DW $003A + DW $0064 + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013FD6 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $002D ; rect + DW $006E + DW $003A + DW $00BE + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L013FFE PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L014082 + PEA L014082 + _FrameRect + _PenNormal + PEA $0014 + PEA $0012 + _MoveTo + PEA ^L014091 + PEA L014091 + _DrawString + PEA $005A + PEA $0012 + _MoveTo + PEA ^L0137A8 + PEA L0137A8 + _DrawString + PEA $0014 + PEA $0023 + _MoveTo + PEA ^L01408A + PEA L01408A + _DrawString + RTL + +L014082 DW $0002 + DW $0004 + DW $0042 + DW $00CE +L01408A STR 'Refcon' +L014091 STR 'Height' +L014098 PEA $0000 + PEA $0000 + PEA ^L0140CC + PEA L0140CC + PEA $0000 + PEA $0000 + PEA ^L0141F6 + PEA L0141F6 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L0140DE + PEA L0140DE + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L0140CC STR ' Vertical Scroll ' +L0140DE DW $0050 + DW $80A0 ; frame bits + ADRL L0140CC ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; color table ptr + DW $0000 ; origin + DW $0000 + DW $0000 ; data size + DW $0000 + DW $0000 ; max size + DW $0000 + DW $0000 ; scroll size + DW $0000 + DW $0000 ; page size + DW $0000 + ADRL $00000000 ; info bar refcon + DW $0000 ; info bar hite + ADRL $00000000 ; window defproc + ADRL $00000000 ; info bar defproc + ADRL L0141F6 ; content defproc + DW $0071 ; content rect + DW $018B + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L01412E ; storage ptr + DW $0003 +L01412E ADRL L0141CE + ADRL L0141A6 + ADRL L014186 + ADRL L014166 + ADRL L014146 + ADRL $00000000 +L014146 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $000A ; rect + DW $007D + DW $0017 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0138A8 ; defaultRef +L014166 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0019 ; rect + DW $007D + DW $0026 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0136A8 ; defaultRef +L014186 DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0028 ; rect + DW $007D + DW $0035 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0135A8 ; defaultRef +L0141A6 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $003C ; rect + DW $0014 + DW $0049 + DW $006E + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L0141CE DW $0009 ; pCount + ADRL $00000001 ; ID + DW $003C ; rect + DW $007D + DW $0049 + DW $00D7 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L0141F6 PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L0142C8 + PEA L0142C8 + _FrameRect + _PenNormal + PEA $0014 + PEA $0014 + _MoveTo + PEA ^L0142D7 + PEA L0142D7 + _DrawString + PEA $00A7 + PEA $0014 + _MoveTo + PEA ^L0142D0 + PEA L0142D0 + _DrawString + PEA $0014 + PEA $0023 + _MoveTo + PEA ^L0142E1 + PEA L0142E1 + _DrawString + PEA $00A7 + PEA $0023 + _MoveTo + PEA ^L0142D0 + PEA L0142D0 + _DrawString + PEA $0014 + PEA $0032 + _MoveTo + PEA ^L0142EB + PEA L0142EB + _DrawString + PEA $00A7 + PEA $0032 + _MoveTo + PEA ^L0142D0 + PEA L0142D0 + _DrawString + RTL + +L0142C8 DW $0002 + DW $0004 + DW $0051 + DW $00E6 +L0142D0 STR 'pixels' +L0142D7 STR 'Data Size' +L0142E1 STR 'Scroll by' +L0142EB STR 'Page by' +L0142F3 PEA $0000 + PEA $0000 + PEA ^L014327 + PEA L014327 + PEA $0000 + PEA $0000 + PEA ^L0141F6 + PEA L0141F6 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L01433B + PEA L01433B + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L014327 STR ' Horizontal Scroll ' +L01433B DW $0050 + DW $80A0 ; frame bits + ADRL L014327 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; color table ptr + DW $0000 ; origin + DW $0000 + DW $0000 ; data size + DW $0000 + DW $0000 ; max size + DW $0000 + DW $0000 ; scroll size + DW $0000 + DW $0000 ; page size + DW $0000 + ADRL $00000000 ; info bar refcon + DW $0000 ; info bar hite + ADRL $00000000 ; window defproc + ADRL $00000000 ; info bar defproc + ADRL L0141F6 ; content defproc + DW $0071 ; content rect + DW $018B + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L01438B ; storage ptr + DW $0003 +L01438B ADRL L01442B + ADRL L014403 + ADRL L0143E3 + ADRL L0143C3 + ADRL L0143A3 + ADRL $00000000 +L0143A3 DW $0008 ; pCount + ADRL $00000005 ; ID + DW $000A ; rect + DW $007D + DW $0017 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0138A8 ; defaultRef +L0143C3 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0019 ; rect + DW $007D + DW $0026 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0136A8 ; defaultRef +L0143E3 DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0028 ; rect + DW $007D + DW $0035 + DW $00A1 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0135A8 ; defaultRef +L014403 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $003C ; rect + DW $0014 + DW $0049 + DW $006E + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L01442B DW $0009 ; pCount + ADRL $00000001 ; ID + DW $003C ; rect + DW $007D + DW $0049 + DW $00D7 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L014453 PEA $0000 + PEA $0000 + PEA ^L014487 + PEA L014487 + PEA $0000 + PEA $0000 + PEA ^L0145D0 + PEA L0145D0 + PEA $0000 + PEA $0000 + PEA $0000 + PEA ^L014492 + PEA L014492 + PEA $800E + _NewWindow2 + PLA + PLA + RTL + +L014487 STR ' Size Box ' +L014492 DW $0050 + DW $80A0 ; frame bits + ADRL L014487 ; title ptr + ADRL $00000000 ; refcon + DW $0000 ; zoom rect + DW $0000 + DW $0000 + DW $0000 + ADRL L01469C ; color table ptr + DW $0000 ; origin + DW $0000 + DW $0000 ; data size + DW $0000 + DW $0000 ; max size + DW $0000 + DW $0000 ; scroll size + DW $0000 + DW $0000 ; page size + DW $0000 + ADRL $00000000 ; info bar refcon + DW $0000 ; info bar hite + ADRL $00000000 ; window defproc + ADRL $00000000 ; info bar defproc + ADRL L0145D0 ; content defproc + DW $0071 ; content rect + DW $0162 + DW $00C4 + DW $0276 + ADRL $FFFFFFFF ; starting plane + ADRL L0144E2 ; storage ptr + DW $0003 +L0144E2 ADRL L0145A8 + ADRL L014580 + ADRL L014560 + ADRL L014540 + ADRL L0144FA + ADRL $00000000 +L0144FA DW $000A ; pCount + ADRL $00000005 ; ID + DW $000A ; rect + DW $0014 + DW $0000 + DW $0000 + ADRL $82000000 ; procRef + DW $0000 ; flag + DW $1000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L014524 ; titleRef + DW $0000 ; initialValue + ADRL $00000000 ; colorTableRef + ASC 'L' ; keyequivalent + ASC 'l' ; 2nd key equivalent + DW $0800 ; keyModifiers + DW $0900 ; keyCareBits +L014524 STR 'Grow/zoom don'27't move origin' +L014540 DW $0008 ; pCount + ADRL $00000004 ; ID + DW $0019 ; rect + DW $008C + DW $0026 + DW $00B0 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0136A8 ; defaultRef +L014560 DW $0008 ; pCount + ADRL $00000003 ; ID + DW $0028 ; rect + DW $008C + DW $0035 + DW $00B0 + ADRL $83000000 ; procRef + DW $0000 ; flag + DW $7000 ; moreFlags + ADRL $00000000 ; refCon + DW $0003 ; maxSize + ADRL L0135A8 ; defaultRef +L014580 DW $0009 ; pCount + ADRL $00000002 ; ID + DW $003C ; rect + DW $0020 + DW $0049 + DW $007A + ADRL $80000000 ; procRef + DW $0000 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146AD ; titleRef + ADRL $00000000 ; colorTableRef + ASC 1B ; keyequivalent + ASC 1B ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L0145A8 DW $0009 ; pCount + ADRL $00000001 ; ID + DW $003C ; rect + DW $009A + DW $0049 + DW $00F4 + ADRL $80000000 ; procRef + DW $0001 ; flag + DW $3000 ; moreFlags + ADRL $00000000 ; refCon + ADRL L0146A6 ; titleRef + ADRL $00000000 ; colorTableRef + ASC 0D ; keyequivalent + ASC 0D ; 2nd key equivalent + DW $0000 ; keyModifiers + DW $0000 ; keyCareBits +L0145D0 PEA $0000 + PEA $0000 + _GetPort + _DrawControls + PEA $0005 + PEA $0002 + _SetPenSize + PEA ^L01466E + PEA L01466E + _FrameRect + _PenNormal + PEA $0014 + PEA $0023 + _MoveTo + PEA ^L01467D + PEA L01467D + _DrawString + PEA $00B8 + PEA $0023 + _MoveTo + PEA ^L014676 + PEA L014676 + _DrawString + PEA $0014 + PEA $0032 + _MoveTo + PEA ^L01468C + PEA L01468C + _DrawString + PEA $00B8 + PEA $0032 + _MoveTo + PEA ^L014676 + PEA L014676 + _DrawString + RTL + +L01466E DW $0002 + DW $0004 + DW $0051 + DW $0110 +L014676 STR 'pixels' +L01467D STR 'Max grow width' +L01468C STR 'Max grow height' +L01469C DW $0000 + DW $0F0F + DW $0004 + DW $00F0 + DW $00F0 +L0146A6 STR 'Change' +L0146AD STR 'Cancel' +L0146B4 ENT + DB $00 + DB $00 +L0146B6 ENT + DB $00 + DB $00 +L0146B8 ENT + DB $00 + DB $00 +L0146BA ENT + DB $00 + DB $00 +L0146BC ENT + DB $00 + DB $00 +L0146BE ENT + DB $00 + DB $00 +L0146C0 ENT + DB $00 + DB $00 +L0146C2 ENT + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0147C4 LDA $01,S + PHA + LDA $05,S + STA $03,S + PHD + TSC + TCD + LDA $0A + PHA + LDA $08 + PHA + LDA #$0014 + STA $06 + LDX #$0000 + JSR L014A74 + STA $08 + STX $0A + BCS L014818 + PHX + PHA + LDA $06 + PHA + PEA $0001 + _Long2Dec + BCC L0147FA + STZ $06 + BRA L014816 +L0147FA LDY #$0000 + SEP #$20 +L0147FF LDA #$20 + CMP [$08],Y + BNE L01480A + INY + DEC $06 + BNE L0147FF +L01480A REP #$20 + TYA + CLC + ADC $08 + STA $08 + BCC L014816 + INC $0A +L014816 PLD + RTL + +L014818 PEA $0005 + JSL L014F26 + STZ $06 + PLA + BRA L014816 +L014824 TDC + TAX + TSC + SEC + SBC #$FFFF + TCD + DEC + TCS + PHX + PEA $0000 + LDA $07 + PHA + LDA $05 + PHA + LDA $03 + PHA + JSR L014EC5 + PEA $0001 + _Dec2Int + PLX + LDA $01 + STA $07 + LDA $00 + STA $06 + CLC + TDC + ADC #$0005 + PLD + TCS + TXA + RTL + +L01485A ENT + TDC + TAX + TSC + SEC + SBC #$0015 + TCD + DEC + TCS + PHX + LDA $19 + DEC + STA $06 + ASL + ADC $06 + ASL + STA $06 + STA $08 + LDA $19 + STA $14 + STZ $00 +L014878 LDX $08 + LDA $1F,X + PHA + LDA $1D,X + PHA + LDA $1B,X + PHA + JSL L014ADD + CLC + ADC $00 + STA $00 + SEC + LDA $08 + SBC #$0006 + STA $08 + DEC $14 + BNE L014878 + LDA $00 + BPL L01489F + LDA #$7FFF +L01489F BEQ L0148FA + LDX #$0000 + JSR L014A74 + STA $02 + STX $04 + BCS L01491E + LDA $06 + STA $08 + LDA $19 + STA $14 + STZ $00 +L0148B7 LDX $08 + LDA $1F,X + PHA + LDA $1D,X + PHA + LDA $1B,X + PHA + JSR L014EC5 + PLA + BNE L0148CC + PLA + PLA + BRA L0148D9 +L0148CC STA $0A + PLA + STA $0C + PLA + STA $0E + JSR L014929 + BCS L01491A +L0148D9 SEC + LDA $08 + SBC #$0006 + STA $08 + DEC $14 + BNE L0148B7 + LDA $00 + CMP #$0001 + BNE L0148FA + LDA [$02] + AND #$00FF + STA $04 + LDA #$FFFF + STA $00 + STA $02 +L0148FA LDX $06 + LDA $00 + STA $1B,X + LDA $02 + STA $1D,X + LDA $04 + STA $1F,X + LDA $17 + STA $19,X + LDA $16 + STA $18,X + CLC + TDC + ADC $06 + ADC #$0017 + PLD + TCS + RTL + +L01491A DEC $00 + BRA L0148FA +L01491E PEA $0005 + JSL L014F26 + STZ $00 + BRA L0148FA +L014929 CLC + LDA $0A + ADC $00 + BPL L01493B + SEC + PHP + LDA #$7FFF + SBC $00 + STA $0A + BRA L01493D +L01493B CLC + PHP +L01493D LDY $0A + BEQ L01497B + CLC + LDA $00 + ADC $02 + STA $10 + LDA #$0000 + ADC $04 + STA $12 + CLC + LDA $00 + ADC $0A + STA $00 + TYA + LSR + BCC L014971 + SEP #$20 + LDA [$0C] + STA [$10] + REP #$20 + INC $0C + BNE L014968 + INC $0E +L014968 INC $10 + BNE L01496E + INC $12 +L01496E DEY + BEQ L01497B +L014971 DEY + DEY +L014973 LDA [$0C],Y + STA [$10],Y + DEY + DEY + BPL L014973 +L01497B PLP + RTS + +L01497D ENT + TDC + TAX + TSC + SEC + SBC #$000F + TCD + DEC + TCS + PHX + LDA $13 + BNE L01498F + BRL L014A25 +L01498F LDA $15 + BNE L014996 + BRL L014A25 +L014996 LDA $1B + PHA + LDA $19 + PHA + LDA $17 + PHA + JSR L014EC5 + PLA + STA $0E + PLA + STA $0A + PLA + STA $0C + LDA $0E + BEQ L014A25 + LDA $15 + CMP $0E + BEQ L0149B7 + BCS L014A25 +L0149B7 DEC $15 + CLC + LDA $15 + ADC $13 + STA $00 + CMP $0E + BCS L014A0B + SEC + LDA $0E + SBC $00 + BEQ L014A25 + TAX + CLC + LDA $15 + ADC $0A + STA $02 + LDA #$0000 + ADC $0C + STA $04 + CLC + LDA $00 + ADC $0A + STA $06 + LDA #$0000 + ADC $0C + STA $08 + CLC + TXA + ADC $15 + STA $15 + LDY #$0000 + TXA + LSR + TAX + BCC L014A02 + SEP #$20 + LDA [$06] + STA [$02] + REP #$20 + INY + TXA + BEQ L014A0B +L014A02 LDA [$06],Y + STA [$02],Y + INY + INY + DEX + BNE L014A02 +L014A0B LDA $17 + INC + BPL L014A1A + SEP #$20 + LDA $15 + STA [$19] + REP #$20 + BRA L014A25 +L014A1A LDA #$0000 + LDY $15 + SEP #$20 + STA [$0A],Y + REP #$20 +L014A25 LDA $11 + STA $1B + LDA $10 + STA $1A + CLC + TDC + ADC #$0019 + PLD + TCS + RTL + +L014A35 ENT + LDA $02 + PHA + LDA $00 + PHA + PHB + PHK + PLB + LDA L014E8F + STA $02 + LDA L014E8D + STA $00 +L014A48 LDA $00 + ORA $02 + BEQ L014A66 + LDA $02 + PHA + LDA $00 + PHA + LDY #$0002 + LDA [$00] + TAX + LDA [$00],Y + STA $02 + STX $00 + JSL L01519E + BRA L014A48 +L014A66 STZ L014E8D + STZ L014E8F + PLB + PLA + STA $00 + PLA + STA $02 + RTL + +L014A74 PHB + PHK + PLB + CLC + ADC #$0004 + BCC L014A7E + INX +L014A7E PHX + PHA + JSL L014C1B + STA L014AD9 + STX L014ADB + ORA L014ADB + BEQ L014AD6 + LDA $02 + PHA + LDA $00 + PHA + LDA L014ADB + STA $02 + LDA L014AD9 + STA $00 + LDA L014E8D + STA [$00] + LDY #$0002 + LDA L014E8F + STA [$00],Y + LDA L014ADB + STA L014E8F + LDA L014AD9 + STA L014E8D + CLC + LDA L014AD9 + ADC #$0004 + STA L014AD9 + BCC L014AC7 + INC L014ADB +L014AC7 PLA + STA $00 + PLA + STA $02 + LDA L014AD9 + LDX L014ADB + PLB + CLC + RTS + +L014AD6 PLB + SEC + RTS + +L014AD9 BRK $00 +L014ADB BRK $00 +L014ADD ENT + PHD + TSC + TCD + LDY #$0000 + LDA $06 + BPL L014AFE + CMP #$FFFF + BNE L014AF6 + LDY #$0001 + LDA $0A + BNE L014B0D + DEY + BRA L014B0D +L014AF6 LDA [$08] + AND #$00FF + TAY + BRA L014B0D +L014AFE BEQ L014B0D + SEP #$20 +L014B02 LDA [$08],Y + BEQ L014B0B + INY + CPY $06 + BCC L014B02 +L014B0B REP #$20 +L014B0D LDA $02 + STA $08 + LDA $04 + STA $0A + PLD + TSC + CLC + ADC #$0006 + TCS + TYA + RTL + +L014B1E ENT + TDC + TAX + TSC + SEC + SBC #$FFFF + TCD + DEC + TCS + PHX + LDA $03 + LSR + BCC L014B44 + SEP #$20 + LDA [$05] + STA [$09] + REP #$20 + INC $05 + BNE L014B3C + INC $07 +L014B3C INC $09 + BNE L014B42 + INC $0B +L014B42 DEC $03 +L014B44 LDY $03 + BEQ L014B58 + DEY + DEY + BEQ L014B54 +L014B4C LDA [$05],Y + STA [$09],Y + DEY + DEY + BNE L014B4C +L014B54 LDA [$05] + STA [$09] +L014B58 LDA $01 + STA $0B + LDA $00 + STA $0A + CLC + TDC + ADC #$0009 + PLD + TCS + RTL + +L014B68 ENT + TDC + TAX + TSC + SEC + SBC #$0005 + TCD + DEC + TCS + PHX + LDA $09 + CMP $0F + BNE L014B95 + LDA $13 + PHA + LDA $11 + PHA + LDA $0D + PHA + LDA $0B + PHA + LDA $09 + BPL L014B8E + EOR #$FFFF + INC + INC +L014B8E PHA + JSL L014B1E + BRA L014C0B +L014B95 LDA $0D + PHA + LDA $0B + PHA + LDA $09 + PHA + JSR L014EC5 + PLA + STA $09 + PLA + STA $0B + PLA + STA $0D + LDA $13 + STA $04 + LDA $11 + STA $02 + LDA $0F + BPL L014BC0 + EOR #$FFFF + INC + INC $11 + BNE L014BC0 + INC $13 +L014BC0 CMP $09 + BCC L014BC6 + LDA $09 +L014BC6 TAY + STA $00 + BEQ L014BEF + LSR + BCC L014BE5 + SEP #$20 + LDA [$0B] + STA [$11] + REP #$20 + INC $0B + BNE L014BDC + INC $0D +L014BDC INC $11 + BNE L014BE2 + INC $13 +L014BE2 DEY + BEQ L014BEF +L014BE5 DEY + DEY +L014BE7 LDA [$0B],Y + STA [$11],Y + DEY + DEY + BPL L014BE7 +L014BEF LDY $0F + BPL L014BFD + SEP #$20 + LDA $00 + STA [$02] + REP #$20 + BRA L014C0B +L014BFD LDY $00 + CPY $0F + BCS L014C0B + SEP #$20 + LDA #$00 + STA [$02],Y + REP #$20 +L014C0B LDA $07 + STA $13 + LDA $06 + STA $12 + CLC + TDC + ADC #$0011 + PLD + TCS + RTL + +L014C1B LDA $06,S + TAX + LDA $04,S + CPX #$0000 + BNE L014C35 + CMP #$0FFC + BCS L014C35 + CMP #$0000 + BEQ L014C39 + JSL L014C46 + BRA L014C39 +L014C35 JSL L014D57 +L014C39 TAY + LDA $00,S + STA $04,S + LDA $02,S + STA $06,S + PLA + PLA + TYA + RTL + +L014C46 PHA + CLC + ADC #$0004 + PHA + TSC + SEC + SBC #$000A + TCS + PHD + TCD + LDA #$0008 +L014C57 CMP $0B + BCS L014C5E + ASL + BRA L014C57 +L014C5E STA $0D + JSL L01532D + STX $09 + STX $0B +L014C68 LDX $0B + LDAL L015176,X + ORAL L015178,X + BNE L014CC3 + CPX #$0024 + BCC L014CB7 + LDA #$1000 + LDX #$0000 + JSL L014D57 + STA $01 + STAL L01519A + STX $03 + TXA + STAL L01519C + ORA $01 + BNE L014C97 + BRL L014D42 +L014C97 LDA #$8000 + STA [$01] + LDY #$0002 + LDA #$1000 + STA [$01],Y + INY + INY + LDA #$0000 + STA [$01],Y + INY + INY + STA [$01],Y + LDA $0B + CMP $09 + BEQ L014D23 + BRA L014D18 +L014CB7 CLC + LDA $0B + ADC #$0004 + STA $0B + ASL $0D + BRA L014D18 +L014CC3 LDX $0B + CPX $09 + BCC L014D10 + BEQ L014D10 + LDAL L015178,X + STA $03 + LDAL L015176,X + STA $01 + LDY $0D + LDX $03 + JSL L014DF2 + LSR $0D + CLC + LDA $01 + ADC $0D + STA $05 + LDA $03 + ADC #$0000 + STA $07 + LDY #$0002 + LDA $0D + STA [$05],Y + STA [$01],Y + ORA [$01] + STA [$05] + LDY $0D + LDA $01 + LDX $03 + JSL L01533E + LDY $0D + LDA $05 + LDX $07 + JSL L01533E +L014D10 SEC + LDA $0B + SBC #$0004 + STA $0B +L014D18 LDA $0B + BMI L014D23 + CMP $09 + BCC L014D23 + BRL L014C68 +L014D23 LDX $09 + LDAL L015176,X + STA $01 + LDAL L015178,X + STA $03 + LDY $0D + LDX $03 + LDA $01 + JSL L014DF2 + LDA [$01] + AND #$7FFF + STA [$01] +L014D42 LDA $01 + LDX $03 + CLC + ADC #$0004 + BCC L014D4D + INX +L014D4D TAY + PLD + TSC + CLC + ADC #$000E + TCS + TYA + RTL + +L014D57 CLC + ADC #$000E + BCC L014D5E + INX +L014D5E PHA + PHA + PHX + PHA + LDAL L014E89 + PHA + PEA $C010 + PEA $0000 + PEA $0000 + _NewHandle + BCC L014D80 + PLA + PLA + LDA #$0000 + TAX + RTL + +L014D80 PHA + PHA + TSC + PHD + TCD + LDY #$0002 + LDA [$05] + STA $01 + LDA [$05],Y + STA $03 + LDA #$0000 + STA [$01] + STA [$01],Y + LDAL L015172 + INY + INY + STA [$01],Y + LDAL L015174 + INY + INY + STA [$01],Y + INY + INY + LDA $05 + STA [$01],Y + INY + INY + LDA $07 + STA [$01],Y + INY + INY + LDA #$0000 + STA [$01],Y + LDAL L015172 + STA $05 + LDAL L015174 + STA $07 + ORA $05 + BEQ L014DD5 + LDY #$0002 + LDA $01 + STA [$05] + LDA $03 + STA [$05],Y +L014DD5 LDA $01 + STAL L015172 + LDA $03 + STAL L015174 + CLC + LDA $01 + ADC #$000E + LDX $03 + BCC L014DEC + INX +L014DEC PLD + PLY + PLY + PLY + PLY + RTL + +L014DF2 PHX + PHA + LDA #$0000 + PHA + PHA + PHA + PHA + TSC + PHD + TCD + TYA + JSL L01532D + LDAL L015176,X + STA $05 + LDAL L015178,X + STA $07 +L014E0F LDA $05 + CMP $09 + BNE L014E1B + LDA $07 + CMP $0B + BEQ L014E32 +L014E1B LDA $05 + STA $01 + LDA $07 + STA $03 + LDY #$0004 + LDA [$01],Y + STA $05 + INY + INY + LDA [$01],Y + STA $07 + BRA L014E0F +L014E32 LDY #$0004 + LDA $01 + ORA $02 + BNE L014E4B + LDA [$05],Y + STAL L015176,X + INY + INY + LDA [$05],Y + STAL L015178,X + BRA L014E55 +L014E4B LDA [$05],Y + STA [$01],Y + INY + INY + LDA [$05],Y + STA [$01],Y +L014E55 PLD + TSC + CLC + ADC #$000C + TCS + RTL + + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + ADRL L014E69 +L014E69 DB $00 + DB $00 + ADRL L014E6F +L014E6F DB $00 + DB $00 + DB $00 + DB $00 + ADRL L014E77 +L014E77 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L014E87 ENT + DB $00 + DB $00 +L014E89 DB $00 + DB $00 + DB $00 + DB $00 +L014E8D DB $00 + DB $00 +L014E8F DB $00 + DB $00 +L014E91 DB $00 + DB $00 +L014E93 DB $00 + DB $00 +L014E95 DB $00 +L014E96 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L014EA3 PHA + JSL L015369 + LDAL L014E89 + PHA + _DisposeAll + PLA + JSL GSOS + DW $0029 ; Quit + ADRL L014EBF +L014EBF ADRL L014EC3 ; path name +L014EC3 DW $0000 ; flags +L014EC5 PHD + TSC + TCD + LDA $05 + BEQ L014F15 + BPL L014F02 + INC + BNE L014EF3 + LDA $09 + AND #$00FF + BNE L014EDC + STZ $05 + BRA L014F15 +L014EDC LDA #$0001 + STA $05 + LDA $09 + STAL L014F17 + LDA #L014F17 + STA $07 + LDA #^L014F17 + STA $09 + BRA L014F15 +L014EF3 LDA [$07] + AND #$00FF + STA $05 + INC $07 + BNE L014F00 + INC $09 +L014F00 BRA L014F15 +L014F02 LDX $05 + LDY #$0000 + SEP #$20 +L014F09 LDA [$07],Y + BEQ L014F11 + INY + DEX + BNE L014F09 +L014F11 STY $05 + REP #$20 +L014F15 PLD + RTS + +L014F17 DW $0000 +L014F19 ENT + PEA $0008 + JSL L014F26 + LDA #$FFFF + JMP L014EA3 + +L014F26 LDA $04,S + PHA + JSL L015049 + JMPL L014F31 + +L014F31 PHK + PLB + LDA L014E95 + BNE L014F3B + BRL L015043 +L014F3B BRA L014F55 +L014F3D STR 'Error occurred at line ' +L014F55 PEA ^L014F3D + PEA L014F3D + _ErrWriteString + LDA L014E95 + PHA + PEA $0001 + PEA $0000 + PEA $0001 + JSL L01545A + BRA L014F84 +L014F75 STR ' in procedure ' +L014F84 PEA ^L014F75 + PEA L014F75 + _ErrWriteString + PEA ^L014E96 + PEA L014E96 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L01548A + JSL L01537E + LDA L014E91 + ORA L014E93 + BNE L014FB3 + BRL L015043 +L014FB3 PEA $000D + _ErrWriteChar + PEA $000A + _ErrWriteChar + BRA L014FD6 +L014FC9 STR ' Line Name' +L014FD6 PEA ^L014FC9 + PEA L014FC9 + _ErrWriteLine + BRA L014FF2 +L014FE5 STR ' ---- ----' +L014FF2 PEA ^L014FE5 + PEA L014FE5 + _ErrWriteLine +L014FFF LDA L014E91 + ORA L014E93 + BEQ L015043 + LDA L014E95 + PHA + PEA $0006 + PEA $0000 + PEA $0001 + JSL L01545A + BRA L01501D +L01501A STR ' ' +L01501D PEA ^L01501A + PEA L01501A + _ErrWriteString + PEA ^L014E96 + PEA L014E96 + PEA $0000 + PEA $0001 + PEA $0001 + JSL L01548A + JSL L01537E + BRA L014FFF +L015043 LDA #$FFFF + BRL L014EA3 +L015049 PHD + PEA ^L015073 + PEA L015073 + TSC + TCD + LDX $0A +L015054 DEX + BEQ L015063 + SEC + LDA [$01] + AND #$00FF + ADC $01 + STA $01 + BRA L015054 +L015063 _ErrWriteLine + PLD + LDA $02,S + STA $04,S + PLA + STA $01,S + RTL + +L015073 STR 'Subrange exceeded' + STR 'File is not open' + STR 'Read while at end of file' + STR 'I/O error' + STR 'Out of memory' + STR 'EOLN while at end of file' + STR 'Set overflow' + STR 'Jump to undefined case statement label' + STR 'Integer math error' + STR 'Real math error' + STR 'Underflow' + STR 'Overflow' + STR 'Divide by zero' + STR 'Inexact' + STR 'Stack overflow' +L015172 DB $00 + DB $00 +L015174 DB $00 + DB $00 +L015176 DB $00 + DB $00 +L015178 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L01519A DB $00 + DB $00 +L01519C DB $00 + DB $00 +L01519E TSC + PHD + TCD + LDY $04 + LDX $06 + SEC + TYA + SBC #$0002 + STA $04 + BCS L0151B0 + DEC $06 +L0151B0 LDA [$04] + BNE L0151BB + TYA + JSL L0152B9 + BRA L0151C0 +L0151BB TYA + JSL L0151CC +L0151C0 LDA $00 + STA $04 + LDA $02 + STA $06 + PLD + PLA + PLA + RTL + +L0151CC PHA + PHA + PHA + SEC + SBC #$0004 + BCS L0151D6 + DEX +L0151D6 PHX + PHA + TSC + PHD + TCD + LDA [$01] + BPL L0151E2 + BRL L0152B1 +L0151E2 LDA [$01] + ORA #$8000 + STA [$01] + LDY #$0002 + LDA [$01],Y + STA $09 + TAY + LDA $01 + LDX $03 + JSL L01533E +L0151F9 LDA $09 + CMP #$1000 + BCC L015203 + BRL L01529F +L015203 LDA [$01] + AND $09 + BEQ L01525A + SEC + LDA $01 + SBC $09 + STA $05 + LDA $03 + SBC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BEQ L015223 + BRL L0152B1 +L015223 LDA [$05] + BMI L01522A + BRL L0152B1 +L01522A LDY $09 + LDX $03 + LDA $01 + JSL L014DF2 + LDY $09 + LDX $07 + LDA $05 + JSL L014DF2 + LDA $05 + STA $01 + LDA $07 + STA $03 + ASL $09 + LDA $09 + LDY #$0002 + STA [$01],Y + TAY + LDA $01 + LDX $03 + JSL L01533E + BRA L0151F9 +L01525A CLC + LDA $01 + ADC $09 + STA $05 + LDA $03 + ADC #$0000 + STA $07 + LDY #$0002 + LDA [$05],Y + CMP $09 + BNE L0152B1 + LDA [$05] + BPL L0152B1 + LDY $09 + LDX $03 + LDA $01 + JSL L014DF2 + LDY $09 + LDX $07 + LDA $05 + JSL L014DF2 + ASL $09 + LDY #$0002 + LDA $09 + STA [$01],Y + LDY $09 + LDA $01 + LDX $03 + JSL L01533E + BRL L0151F9 +L01529F LDY $09 + LDA $01 + LDX $03 + JSL L014DF2 + LDA $01 + LDX $03 + JSL L0152B9 +L0152B1 PLD + TSC + CLC + ADC #$000A + TCS + RTL + +L0152B9 PHA + PHA + SEC + SBC #$000E + BCS L0152C2 + DEX +L0152C2 PHX + PHA + TSC + PHD + TCD + LDY #$0002 + LDA [$01],Y + ORA [$01] + BNE L0152E3 + LDY #$0004 + LDA [$01],Y + STAL L015172 + INY + INY + LDA [$01],Y + STAL L015174 + BRA L0152F8 +L0152E3 LDA [$01] + STA $05 + LDA [$01],Y + STA $07 + LDY #$0004 + LDA [$01],Y + STA [$05],Y + INY + INY + LDA [$01],Y + STA [$05],Y +L0152F8 LDY #$0004 + LDA [$01],Y + TAX + INY + INY + ORA [$01],Y + BEQ L015315 + LDA [$01],Y + STA $07 + STX $05 + LDY #$0002 + LDA [$01] + STA [$05] + LDA [$01],Y + STA [$05],Y +L015315 LDY #$000A + LDA [$01],Y + PHA + DEY + DEY + LDA [$01],Y + PHA + _DisposeHandle + PLD + PLA + PLA + PLA + PLA + RTL + +L01532D LDX #$0000 + DEC + LSR + LSR + LSR + BEQ L01533D +L015336 INX + INX + INX + INX + LSR + BNE L015336 +L01533D RTL + +L01533E PHX + PHA + TSC + PHD + TCD + TYA + JSL L01532D + LDY #$0004 + LDAL L015176,X + STA [$01],Y + INY + INY + LDAL L015178,X + STA [$01],Y + LDA $01 + STAL L015176,X + LDA $03 + STAL L015178,X + PLD + PLA + PLA + RTL + +L015369 PHB + PHK + PLB + STZ L015172 + STZ L015174 + LDX #$0026 +L015375 STZ L015176,X + DEX + DEX + BPL L015375 + PLB + RTL + +L01537E PHB + PHK + PLB + LDA L014E93 + STA $02 + LDA L014E91 + STA $00 + LDY #$0010 +L01538E LDA [$00],Y + STA L014E91,Y + DEY + DEY + BPL L01538E + LDA $02 + PHA + LDA $00 + PHA + JSL L01519E + PLB + RTL + + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L0153AF ENT + LDY #$0000 + BIT #$8000 + BEQ L0153BC + EOR #$FFFF + INC + INY +L0153BC PHA + TXA + BEQ L0153F7 + BPL L0153C7 + DEY + EOR #$FFFF + INC +L0153C7 PHA + PHY + TSC + PHD + TCD + LDA #$0000 + LDY #$0010 +L0153D2 ASL $05 + ROL + SEC + SBC $03 + BCS L0153E1 + ADC $03 + DEY + BNE L0153D2 + BRA L0153E6 +L0153E1 INC $05 + DEY + BNE L0153D2 +L0153E6 TAX + LDA $05 + LDY $01 + BEQ L0153F1 + EOR #$FFFF + INC +L0153F1 CLV + PLD + PLY + PLY + PLY + RTL + +L0153F7 PLA + SEP #$40 + RTL + +L0153FB ENT + TAY + PHD + TSC + SEC + SBC #$0007 + TCD + DEC + TCS + TYA + LDY #$0000 + BIT #$8000 + BEQ L015413 + EOR #$FFFF + INC + INY +L015413 STA $02 + TXA + BPL L01541D + DEY + EOR #$FFFF + INC +L01541D STA $04 + STY $06 + LDY #$0010 + LDA #$0000 +L015427 LSR $02 + BCC L01542E + CLC + ADC $04 +L01542E ROR + ROR $00 + DEY + BNE L015427 + TAX + BNE L01544F + LDA $00 + BMI L01544F + LDY $06 + BEQ L015443 + EOR #$FFFF + INC +L015443 TAY + TDC + CLC + ADC #$0007 + TCS + PLA + TCD + TYA + CLV + RTL + +L01544F TDC + CLC + ADC #$0007 + TCS + PLA + TCD + SEP #$40 + RTL + +L01545A TSC + PHD + TCD + PEA ^L0154E6 + PEA L0154E6 + LDA $0A + JSL L0154CF + PEA ^L0154E6 + PEA L0154E6 + LDA $08 + PHA + LDA $06 + PHA + LDA $04 + PHA + JSL L01548A + LDA $02 + STA $0A + LDA $00 + STA $08 + PLD + PLA + PLA + PLA + PLA + RTL + +L01548A TSC + PHD + TCD + INC $0A + BNE L015493 + INC $0C +L015493 LDA [$0A] + AND #$00FF + SEC + SBC $08 + BPL L0154A7 + EOR #$FFFF + INC + LDY $04 + JSL L015585 +L0154A7 LDA $0C + PHA + LDA $0A + PHA + LDA $06 + EOR #$0001 + ASL + ORA $04 + XBA + CLC + ADC #$1A0C + TAX + JSL $E10000 + LDA $02 + STA $0C + LDA $00 + STA $0A + PLD + CLC + TSC + ADC #$000A + TCS + RTL + +L0154CF PHA + PEA ^L015510 + PEA L015510 + PEA $0028 + PEA $0001 + _Int2Dec + JMP L015538 + +L0154E6 DB $28 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L015510 DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 + DB $00 +L015538 PHD + TSC + TCD + SEP #$20 + LDX #$0000 + LDA #$20 +L015542 CMPL L015510,X + BNE L01554B + INX + BRA L015542 +L01554B REP #$20 + TXA + SEC + SBC #$0028 + EOR #$FFFF + INC + SEP #$20 + CMP [$06] + BEQ L01555E + BCS L015575 +L01555E LDY #$0001 + STA [$06],Y +L015563 LDAL L015510,X + INY + STA [$06],Y + INX + CPX #$0028 + BCC L015563 + REP #$20 + CLV + BRA L015579 +L015575 REP #$20 + SEP #$40 +L015579 LDA $02,S + STA $06,S + LDA $04,S + STA $08,S + PLD + PLA + PLA + RTL + +L015585 PHA + TYA + XBA + CLC + ADC #$180C + PHA + PHD + TSC + TCD +L015590 PEA $0020 + LDX $03 + JSL $E10000 + DEC $05 + BNE L015590 + PLD + PLA + PLA + RTL + diff --git a/genesys/edit/WINSETUP.S b/genesys/edit/WINSETUP.S new file mode 100644 index 0000000..9fe2c1c --- /dev/null +++ b/genesys/edit/WINSETUP.S @@ -0,0 +1,13903 @@ +* +* Genesys v1.2.4 +* Window editor +* + + mx %00 + rel + lst off + +*---------------------------- + + use 4/Ctl.Macs + use 4/Event.Macs + use 4/Int.Macs + use 4/Mem.Macs + use 4/Menu.Macs + use 4/Misc.Macs + use 4/QD.Macs + use 4/QDAux.Macs + use 4/Resource.Macs + use 4/Util.Macs + use 4/Window.Macs + +*---------------------------- + + EXT L0106A0 + EXT L010698 + EXT L01069C + EXT L014B1E + EXT L014E87 + EXT L014B68 + EXT L0114EF + EXT L010A0E + EXT L01080E + EXT L01068E + EXT L0106A4 + EXT L0105BB + EXT L030000 + EXT L030B90 + EXT L0300B1 + EXT L030171 + EXT L030255 + EXT L0303C5 + EXT L0304C5 + EXT L030903 + EXT L030A61 + EXT L0106FA + EXT L0106F8 + EXT L010419 + EXT L01070A + EXT L010702 + EXT L0106A8 + EXT L0106AA + EXT L0106AE + EXT L0106AC + EXT L0106B2 + EXT L0106B0 + EXT L0106B6 + EXT L0106B4 + EXT L0106BA + EXT L0106B8 + EXT L0106BE + EXT L0106BC + EXT L0106C0 + EXT L0106C2 + EXT L0106C4 + EXT L0106C6 + EXT L0106C8 + EXT L0106CA + EXT L0106CC + EXT L0106CE + EXT L0106D0 + EXT L0106D2 + EXT L0106D6 + EXT L0106D4 + EXT L0106D8 + EXT L0106DC + EXT L0106DA + EXT L0106E0 + EXT L0106DE + EXT L0106E4 + EXT L0106E2 + EXT L0106E8 + EXT L0106E6 + EXT L0106EC + EXT L0106EA + EXT L0106F0 + EXT L0106EE + EXT L0106F4 + EXT L0106F2 + EXT L0106F6 + EXT L010706 + EXT L01000E + EXT L0106A6 + EXT L040B72 + EXT L010700 + EXT L010202 + EXT L010210 + EXT L01021E + EXT L0434E2 + EXT L01060C + EXT L0103D4 + EXT L0106FC + EXT L0106FE + EXT L04116F + EXT L0409AD + EXT L0104A0 + EXT L041C02 + EXT L010C92 + EXT L0403A5 + EXT L01240E + EXT L012A14 + EXT L013002 + EXT L04067F + EXT L0117D4 + EXT L014F19 + EXT L010690 + EXT L010692 + EXT L010694 + EXT L010696 + EXT L01063D + EXT L042E6F + EXT L042683 + EXT L01070E + EXT L01004E + EXT L040000 + +*---------------------------- + +L020000 ENT + TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA $1B + BNE L020010 + BRL L02008B +L020010 LDX #^L01080E + LDA #L01080E + PHX + PHA + LDA #$0100 + PHA + PEA ^L02009B + PEA L02009B + LDA #$0057 + PHA + JSL L014B68 + LDA $1B + PHA + LDA #$000B + DEC + TAX + TXA + CLC + ADC #L01080E + PEA ^L01080E + PHA + LDA #$0004 + PHA + _Int2Hex + STA L014E87 + LDA $19 + PHA + LDA #$0014 + DEC + TAX + TXA + CLC + ADC #L01080E + PEA ^L01080E + PHA + LDA #$0004 + PHA + _Int2Hex + STA L014E87 + PHA + LDA #$0000 + PHA + PEA $0000 + PEA $0000 + LDX #^L01080E + LDA #L01080E + PHX + PHA + _AlertWindow + STA L014E87 + PLA + BEQ L02008B + BRL L02008B +L02008B LDA $17 + STA $1B + LDA $16 + STA $1A + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L02009B ASC '52~Error $0000 at $0000. Please record a' + ASC 'nd report this Window Editor error to SS' + ASC 'Si.~^#0' +L0200F2 TSC + SEC + SBC #$0062 + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L01068E + PLB + PLB + PHA + _GetCurResourceFile + STA L014E87 + PLA + STA $58 + LDA L014E87 + PHA + LDA #$0023 + PHA + JSL L020000 + LDA L0106A4 + PHA + _SetCurResourceFile + STA L014E87 + LDA L014E87 + PHA + LDA #$0024 + PHA + JSL L020000 + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $16 + PLA + STA $18 + PHA + PHA + LDX $18 + LDA $16 + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA $1A + PLA + STA $1C + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$005A + PHA + _GetPortRect + STA L014E87 + LDA #$0002 + PHA + LDA #$0001 + PHA + _SetPenSize + STA L014E87 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0020 + BNE L0201B4 + BRL L0201BC +L0201B4 LDA #$000E + STA $50 + BRL L0201C1 +L0201BC LDA #$000D + STA $50 +L0201C1 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + PHA + LDY #$0052 + LDA [$00],Y + PHA + LDA #$FFFF + LDX #$0000 + TAY + BPL L0201E3 + DEX +L0201E3 LDY #$0001 + CMP $01,S + BEQ L0201EB + DEY +L0201EB TXA + CMP $03,S + BEQ L0201F3 + LDY #$0000 +L0201F3 PLA + PLA + TYA + BNE L0201FB + BRL L020203 +L0201FB LDA #$000E + STA $52 + BRL L020208 +L020203 LDA #$0001 + STA $52 +L020208 LDA $50 + PHA + LDA $52 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + JSL L0105BB + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + _SetPenPat + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _FrameRect + STA L014E87 + _PenNormal + STA L014E87 + PHA + PHA + LDA #$8010 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $54 + PLA + STA $56 + LDA L014E87 + BEQ L020282 + BRL L0202F5 +L020282 LDX $56 + LDA $54 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0034 + PHA + JSL L020000 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + LDY #$0002 + LDA [$54],Y + PHA + LDA [$54] + PHA + PEA $000A + JSL L014B1E + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8010 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0035 + PHA + JSL L020000 + BRL L02030E +L0202F5 LDA #$0000 + STA $46 + LDA #$0F0F + STA $48 + LDA #$0000 + STA $4A + LDA #$F0FF + STA $4C + LDA #$00F0 + STA $4E +L02030E PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030000 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L020334 + BRL L020344 +L020334 PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030B90 + BRL L020439 +L020344 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L02035D + BRL L0203C9 +L02035D PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L0300B1 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030171 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030255 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L0303C5 + PEA $0000 + TDC + CLC + ADC #$0046 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + JSL L0304C5 +L0203C9 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0203E2 + BRL L020413 +L0203E2 PEA $0000 + TDC + CLC + ADC #$0046 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + JSL L030903 +L020413 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L02042C + BRL L020439 +L02042C PEA $0000 + TDC + CLC + ADC #$0046 + PHA + JSL L030A61 +L020439 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L020452 + BRL L020470 +L020452 PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L02052D +L020470 PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0204A4 + BRL L0204B4 +L0204A4 LDA #$0001 + PHA + LDA $1E + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $1E +L0204B4 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0204CD + BRL L0204EB +L0204CD LDA #$0001 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1E + SEC + SBC $01,S + PLX + STA $1E +L0204EB LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L020504 + BRL L02050C +L020504 LDA $24 + SEC + SBC #$0018 + STA $24 +L02050C LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L020525 + BRL L02052D +L020525 LDA $22 + SEC + SBC #$000C + STA $22 +L02052D PHA + _GetArcRot + STA L014E87 + PLA + STA $52 + LDA $52 + AND #$8000 + BNE L020545 + BRL L020555 +L020545 LDA $52 + EOR #$8000 + PHA + _SetArcRot + STA L014E87 +L020555 PEA $0000 + TDC + CLC + ADC #$001E + PHA + _SetPortRect + STA L014E87 + LDX $18 + LDA $16 + PHX + PHA + _DrawControls + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$005A + PHA + _SetPortRect + STA L014E87 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0205A4 + BRL L0205C7 +L0205A4 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0064 + LDA [$00],Y + TAX + LDY #$0062 + LDA [$00],Y + PHX + PHA + _DrawOneCtl + STA L014E87 +L0205C7 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L0205E0 + BRL L020603 +L0205E0 LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0068 + LDA [$00],Y + TAX + LDY #$0066 + LDA [$00],Y + PHX + PHA + _DrawOneCtl + STA L014E87 +L020603 LDA $52 + PHA + _SetArcRot + STA L014E87 + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + BNE L020626 + BRL L020661 +L020626 PHA + PHA + _GetTick + STA L014E87 + LDA #$0001 + PHA + LDY #$0002 + LDA [$1A],Y + TAX + LDA [$1A] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + PHX + PHA + LDX $18 + LDA $16 + PHX + PHA + LDX L0106FA + LDA L0106F8 + PHX + PHA + JSL L010419 +L020661 LDA $58 + PHA + _SetCurResourceFile + STA L014E87 + LDA L014E87 + PHA + LDA #$0041 + PHA + JSL L020000 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$0062 + TCS + RTL + +L020687 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L01068E + PLB + PLB + LDA $17 + STA $23 + LDA $16 + STA $22 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$0022 + TCS + RTL + +L0206AF ENT + TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + PHA + PHA + LDX $1F + LDA $1D + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA $16 + PLA + STA $18 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + BNE L0206E6 + BRL L0208CC +L0206E6 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + CLC + ADC #$0060 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _CheckHandle + STA L014E87 + LDA L014E87 + BEQ L020752 + BRL L0208A2 +L020752 PHA + PHA + _GetTick + STA L014E87 + LDA #$0002 + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + PHX + PHA + LDX $1F + LDA $1D + PHX + PHA + LDX L0106FA + LDA L0106F8 + PHX + PHA + JSL L010419 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _InvalRgn + STA L014E87 + LDX $1F + LDA $1D + PHX + PHA + _BeginUpdate + STA L014E87 + JSL L0200F2 + LDX $1F + LDA $1D + PHX + PHA + _EndUpdate + STA L014E87 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _DisposeRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0003 + PHA + JSL L020000 + PHA + PHA + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _FindHandle + STA L014E87 + _DisposeHandle + STA L014E87 + LDA L014E87 + PHA + LDA #$0004 + PHA + JSL L020000 +L0208A2 LDA #$0000 + LDX #$0000 + TAY + BPL L0208AC + DEX +L0208AC PHX + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$0072 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L0208CC LDA $1B + STA $1F + LDA $1A + STA $1E + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L0208DC ENT + TSC + SEC + SBC #$002A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $31 + PEI $2F + PEA $0008 + JSL L014B1E + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$0060 + STA $00 + STX $02 + LDA $2D + STA [$00] + LDA $2D + LDX #$0001 + SEC + SBC #$0008 + BVS L020931 + EOR #$8000 +L020931 BMI L020934 + DEX +L020934 TXA + PHA + LDA $2D + LDX #$0000 + CMP #$000A + BNE L020941 + INX +L020941 TXA + ORA $01,S + PLX + TAX + BNE L02094B + BRL L020971 +L02094B PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + BRL L02098C +L020971 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 +L02098C LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$006A + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + PHA + PHA + LDA #$000C + LDX #$0000 + TAY + BPL L0209C1 + DEX +L0209C1 PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0209E1 + DEX +L0209E1 PHX + PHA + _NewHandle + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$005C + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0009 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$000A + PHA + JSL L020000 + PHA + PHA + _NewRgn + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$000B + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _RectRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$000C + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDA #$0003 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$0002 + STA $00 + STX $02 + LDA #$0001 + STA [$00] + PHA + PHA + _NewRgn + STA L014E87 + PLA + STA $1E + PLA + STA $20 + LDA L014E87 + PHA + LDA #$000D + PHA + JSL L020000 + LDA $2D + CMP #$0007 + BEQ L020BC6 + BRL L020CC5 +L020BC6 LDA $1C + SEC + SBC #$0018 + STA $24 + LDA $1A + SEC + SBC #$000C + STA $22 + LDA $24 + CLC + ADC #$001E + STA $28 + LDA $22 + CLC + ADC #$000F + STA $26 + LDX $20 + LDA $1E + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0022 + PHA + _RectRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$000E + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + LDX $20 + LDA $1E + PHX + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _DiffRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$000F + PHA + JSL L020000 +L020CC5 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + LDX $20 + LDA $1E + PHX + PHA + _CopyRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0010 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRgn + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0004 + PHA + LDA #$0001 + DEC + ASL + ASL + CLC + ADC $01,S + STA $01,S + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + LDX $20 + LDA $1E + PHX + PHA + LDX $20 + LDA $1E + PHX + PHA + _DiffRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0011 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + _InvalRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0013 + PHA + JSL L020000 + LDX $20 + LDA $1E + PHX + PHA + _DisposeRgn + STA L014E87 + LDA L014E87 + PHA + LDA #$0014 + PHA + JSL L020000 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _BeginUpdate + STA L014E87 + JSL L0200F2 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _EndUpdate + STA L014E87 + LDA $2B + STA $31 + LDA $2A + STA $30 + PLD + TSC + CLC + ADC #$0030 + TCS + RTL + +L020E29 ENT + TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PEI $1B + PEI $19 + _GetPortRect + STA L014E87 + PEI $1B + PEI $19 + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA $17 + STA $1B + LDA $16 + STA $1A + PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L020E66 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PHA + PHA + LDA #$000A + LDX #$0000 + TAY + BPL L020E7B + DEX +L020E7B PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L020E9B + DEX +L020E9B PHX + PHA + _NewHandle + STA L014E87 + PLA + STA $1A + PLA + STA $1C + LDA L014E87 + PHA + LDA #$0049 + PHA + JSL L020000 + LDX $1C + LDA $1A + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0050 + PHA + JSL L020000 + LDX $1C + LDA $1A + STX $18 + STA $16 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STX $08 + STA $06 + LDA #$0000 + STA [$06] + LDY #$0002 + LDA #$0F0F + STA [$06],Y + LDY #$0004 + LDA #$0000 + STA [$06],Y + LDY #$0006 + LDA #$F0FF + STA [$06],Y + LDY #$0008 + LDA #$00F0 + STA [$06],Y + PHA + PHA + LDA #$FFFF + PHA + LDA #$8010 + PHA + _UniqueResourceID + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0020 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0051 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$005A + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + ORA #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX $1C + LDA $1A + PHX + PHA + LDA #$0000 + PHA + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _AddResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0052 + PHA + JSL L020000 + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0053 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0054 + PHA + JSL L020000 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L02108E TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA #$0050 + STA L0106A8 + LDA #$0080 + CLC + ADC #$0020 + STA L0106AA + LDA #$0000 + LDX #$0000 + TAY + BPL L0210B1 + DEX +L0210B1 STX L0106AE + STA L0106AC + LDA #$0000 + LDX #$0000 + TAY + BPL L0210C1 + DEX +L0210C1 STX L0106B2 + STA L0106B0 + LDA #$0000 + STA L0106B6 + LDA #$0000 + STA L0106B4 + LDA #$0000 + STA L0106BA + LDA #$0000 + STA L0106B8 + LDA #$0000 + LDX #$0000 + TAY + BPL L0210E9 + DEX +L0210E9 STX L0106BE + STA L0106BC + LDA #$0000 + STA L0106C0 + LDA #$0000 + STA L0106C2 + LDA #$0000 + STA L0106C4 + LDA #$0000 + STA L0106C6 + LDA #$0000 + STA L0106C8 + LDA #$0000 + STA L0106CA + LDA #$0000 + STA L0106CC + LDA #$0000 + STA L0106CE + LDA #$0000 + STA L0106D0 + LDA #$0000 + STA L0106D2 + LDA #$0000 + LDX #$0000 + TAY + BPL L021135 + DEX +L021135 STX L0106D6 + STA L0106D4 + LDA #$0000 + STA L0106D8 + STZ L0106DC + STZ L0106DA + STZ L0106E0 + STZ L0106DE + STZ L0106E4 + STZ L0106E2 + LDA #$0028 + STA L0106E8 + LDA #$001E + STA L0106E6 + LDA #$01B8 + STA L0106EC + LDA #$0082 + STA L0106EA + LDA #$FFFF + LDX #$0000 + TAY + BPL L021175 + DEX +L021175 STX L0106F0 + STA L0106EE + LDA #$0000 + LDX #$0000 + TAY + BPL L021185 + DEX +L021185 STX L0106F4 + STA L0106F2 + LDA #$0000 + STA L0106F6 + PHA + PHA + LDA L0106A8 + LDX #$0000 + TAY + BPL L02119D + DEX +L02119D PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0211BD + DEX +L0211BD PHX + PHA + _NewHandle + STA L014E87 + PLA + STA L010706 + PLA + STA L010706+2 + LDA L014E87 + PHA + LDA #$0055 + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0056 + PHA + JSL L020000 + LDX #^L0106A8 + LDA #L0106A8 + PHX + PHA + LDX L010706+2 + LDA L010706 + PHX + PHA + LDA L0106A8 + LDX #$0000 + TAY + BPL L021215 + DEX +L021215 PHX + PHA + _PtrToHand + STA L014E87 + LDA L014E87 + PHA + LDA #$0057 + PHA + JSL L020000 + PHA + PHA + LDA #$FFFF + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + _UniqueResourceID + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0038 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0058 + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + PHX + PHA + LDA #$0000 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _AddResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0059 + PHA + JSL L020000 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0060 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0061 + PHA + JSL L020000 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L021371 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHA + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA L010706 + PLA + STA L010706+2 + LDA L014E87 + PHA + LDA #$0065 + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$0066 + PHA + JSL L020000 + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L0213E7 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + LDA $21 + BEQ L0213F7 + BRL L021490 +L0213F7 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0064 + LDA [$00],Y + TAX + LDY #$0062 + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0064 + LDA [$00],Y + TAX + LDY #$0062 + LDA [$00],Y + PHX + PHA + _DisposeControl + STA L014E87 + LDA #$0000 + PHA + LDA #$080B + PHA + _CheckMItem + STA L014E87 + BRL L02163D +L021490 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0214C0 + BRL L0214D0 +L0214C0 LDA #$0001 + PHA + LDA $16 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $16 +L0214D0 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0214F3 + BRL L02151B +L0214F3 LDA #$0001 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L02151B LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + LDX #$0000 + CMP #$0000 + BEQ L021542 + INX +L021542 TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + LDX #$0000 + CMP #$0000 + BEQ L02156B + INX +L02156B TXA + ORA $01,S + PLX + TAX + BNE L021575 + BRL L021592 +L021575 LDA $1A + SEC + SBC #$000C + STA $1A + LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L0215A4 +L021592 LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L0215A4 LDA $1C + SEC + SBC #$001A + STA $18 + PHA + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0000 + PEA $0000 + LDA #$0003 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + PEA $0600 + PEA $0000 + LDA #$0000 + LDX #$0000 + TAY + BPL L0215E5 + DEX +L0215E5 PHX + PHA + PEA $0000 + PEA $0000 + _NewControl + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0062 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0071 + PHA + JSL L020000 + LDA #$0001 + PHA + LDA #$080B + PHA + _CheckMItem + STA L014E87 +L02163D PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDA $1F + STA $21 + LDA $1E + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L021660 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + LDA $21 + BEQ L021670 + BRL L021709 +L021670 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0068 + LDA [$00],Y + TAX + LDY #$0066 + LDA [$00],Y + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0068 + LDA [$00],Y + TAX + LDY #$0066 + LDA [$00],Y + PHX + PHA + _DisposeControl + STA L014E87 + LDA #$0000 + PHA + LDA #$080C + PHA + _CheckMItem + STA L014E87 + BRL L021838 +L021709 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + LDA $1A + SEC + SBC #$000D + STA $16 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + LDX #$0000 + CMP #$0000 + BEQ L021745 + INX +L021745 TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + LDX #$0000 + CMP #$0000 + BEQ L02176E + INX +L02176E TXA + ORA $01,S + PLX + TAX + BNE L021778 + BRL L021795 +L021778 LDA $1C + SEC + SBC #$0018 + STA $1C + LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L0217A7 +L021795 LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L0217A7 PHA + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0000 + PEA $0000 + LDA #$001C + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + PEA $0600 + PEA $0000 + LDA #$0000 + LDX #$0000 + TAY + BPL L0217E0 + DEX +L0217E0 PHX + PHA + PEA $0000 + PEA $0000 + _NewControl + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0066 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L014E87 + PHA + LDA #$0076 + PHA + JSL L020000 + pea $0001 + pea $080C + _CheckMItem +L021838 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + LDA $1F + STA $21 + LDA $1E + STA $20 + PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L02185B TSC + SEC + SBC #$006E + TCS + PHD + INC + TCD + _WaitCursor + JSL L021371 + LDX L010706+2 + LDA L010706 + STX $18 + STA $16 + PHA + PHA + LDA #$007A + LDX #$0000 + TAY + BPL L021888 + DEX +L021888 PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDA #$8000 + CLC + ADC #$4000 + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L0218AC + DEX +L0218AC PHX + PHA + _NewHandle + STA L014E87 + PLA + STA L010702 + PLA + STA L010702+2 + LDA L014E87 + PHA + LDA #$0079 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + PHX + PHA + _HLock + PHA + LDA #$0080 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $08 + STA $06 + PEI $08 + PEI $06 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDY #$0002 + PLA + STA [$06],Y + INY + INY + PLA + STA [$06],Y + LDY #$0006 + LDA #$0000 + STA [$06],Y + PHA + PHA + _FrontWindow + LDY #$0008 + PLA + STA [$06],Y + INY + INY + PLA + STA [$06],Y + LDY #$0060 + LDA #$0000 + STA [$06],Y + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + LDA #$0050 + LDX #$0000 + TAY + BPL L021980 + DEX +L021980 PHX + PHA + _BlockMove + LDA #$0000 + LDX #$0000 + TAY + BPL L021996 + DEX +L021996 PHX + PHA + LDY #$0072 + PLA + STA [$06],Y + INY + INY + PLA + STA [$06],Y + LDA #$0050 + STA $1A + LDA #$0080 + STA $1C + LDA #$0000 + LDX #$0000 + TAY + BPL L0219B7 + DEX +L0219B7 STX $20 + STA $1E + LDA #$0000 + LDX #$0000 + TAY + BPL L0219C5 + DEX +L0219C5 STX $24 + STA $22 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$000C + PHA + LDA #$0282 + PHA + LDA #$00C9 + PHA + _SetRect + LDA #$0000 + LDX #$0000 + TAY + BPL L0219FA + DEX +L0219FA STX $30 + STA $2E + LDA #$0000 + STA $32 + LDA #$0000 + STA $34 + LDA #$0000 + STA $36 + LDA #$0000 + STA $38 + LDA #$7D00 + STA $3A + LDA #$7D00 + STA $3C + LDA #$0000 + STA $3E + LDA #$0000 + STA $40 + LDA #$0000 + STA $42 + LDA #$0000 + STA $44 + LDA #$0000 + LDX #$0000 + TAY + BPL L021A3A + DEX +L021A3A STX $48 + STA $46 + LDA #$0000 + STA $4A + LDA #$0000 + STA $4C + LDA #$0000 + STA $4E + LDA #$0000 + STA $50 + LDA #$0000 + STA $52 + LDA #$0000 + STA $54 + LDA #$0000 + STA $56 + PEA $0000 + TDC + CLC + ADC #$0058 + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + PLA + CLC + ADC #$003E + PHA + PEA $0008 + JSL L014B1E + LDA $5A + AND #$0001 + BNE L021A8A + BRL L021AA9 +L021A8A PEA $0000 + TDC + CLC + ADC #$0058 + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$0000 + PHA + _OffsetRect + STA L014E87 +L021AA9 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$2000 + BNE L021AC2 + BRL L021AE8 +L021AC2 PEA $0000 + TDC + CLC + ADC #$0058 + PHA + LDA #$000E + EOR #$FFFF + INC + PHA + LDA #$0006 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + BRL L021BA9 +L021AE8 PEA $0000 + TDC + CLC + ADC #$0058 + PHA + LDA #$0004 + EOR #$FFFF + INC + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$8000 + BNE L021B24 + BRL L021B30 +L021B24 LDA $58 + SEC + SBC #$000D + CLC + ADC #$0001 + STA $58 +L021B30 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$0010 + BNE L021B49 + BRL L021B67 +L021B49 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0030 + LDA [$00],Y + PHA + LDA $58 + SEC + SBC $01,S + PLX + CLC + ADC #$0001 + STA $58 +L021B67 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$1000 + BNE L021B80 + BRL L021B88 +L021B80 LDA $5E + CLC + ADC #$0018 + STA $5E +L021B88 LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + AND #$0800 + BNE L021BA1 + BRL L021BA9 +L021BA1 LDA $5C + CLC + ADC #$000C + STA $5C +L021BA9 LDA #$FFFF + LDX #$0000 + TAY + BPL L021BB3 + DEX +L021BB3 STX $62 + STA $60 + LDA #$0000 + LDX #$0000 + TAY + BPL L021BC1 + DEX +L021BC1 STX $66 + STA $64 + LDA #$0000 + STA $68 + LDA #$0000 + STA $6A + LDA #$0000 + STA $6C + PHA + PHA + PEA $0000 + TDC + CLC + ADC #$006A + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L021BE9 + DEX +L021BE9 PHX + PHA + LDX #^L0200F2 + LDA #L0200F2 + PHX + PHA + PEA $0000 + PEA $0000 + LDA #$0000 + PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + LDA #$800E + PHA + _NewWindow2 + STA L014E87 + PLA + STA L01070A + PLA + STA L01070A+2 + LDA L014E87 + PHA + LDA #$0083 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0084 + PHA + JSL L020000 + JSL L01000E + LDA L0106A6 + CLC + ADC #$0001 + STA L0106A6 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetPort + STA L014E87 + LDA L01070A+2 + PHA + LDA L01070A + PHA + PLA + CLC + ADC #$00A0 + PHA + LDX L01070A+2 + LDA L01070A + STA $00 + STX $02 + LDY #$00A0 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0004 + PHA + _SetFontFlags + STA L014E87 + LDX L010702+2 + LDA L010702 + PHX + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetWRefCon + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L021D00 + BRL L021D08 +L021D00 LDA #$0001 + PHA + JSL L0213E7 +L021D08 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L021D2B + BRL L021D33 +L021D2B LDA #$0001 + PHA + JSL L021660 +L021D33 LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L040B72 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _ShowWindow + STA L014E87 + _InitCursor + STA L014E87 + PLD + TSC + CLC + ADC #$006E + TCS + RTL + +L021D6B TSC + SEC + SBC #$002E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + _GetMouse + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $20 + CLC + ADC #$0004 + STA $24 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + beq L021DF6 + LDA L010700 + CMP #$0002 + beq L021DED + JSL L010202 ; LOGO - resize cursor +L021DED LDA #$0002 + STA L010700 + BRL L022179 +L021DF6 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $24 + SEC + SBC #$0004 + STA $20 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L021E3A + BRL L021E52 +L021E3A LDA L010700 + CMP #$0001 + BNE L021E45 + BRL L021E49 +L021E45 JSL L010210 +L021E49 LDA #$0001 + STA L010700 + BRL L022179 +L021E52 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $1E + CLC + ADC #$0003 + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + beq L021EAE + LDA L010700 + CMP #$0002 + beq L021EA5 + JSL L010202 ; LOGO - resize cursor +L021EA5 LDA #$0002 + STA L010700 + BRL L022179 +L021EAE PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC #$0003 + STA $1E + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L021EF2 + BRL L021F0A +L021EF2 LDA L010700 + CMP #$0001 + BNE L021EFD + BRL L021F01 +L021EFD JSL L010210 +L021F01 LDA #$0001 + STA L010700 + BRL L022179 +L021F0A LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L021F2D + BRL L021FC5 +L021F2D PEA $0000 + TDC + CLC + ADC #$001E + PHA + JSL L020E29 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L021F5D + BRL L021F7C +L021F5D PEA $0000 + TDC + CLC + ADC #$001E + PHA + pea $0000 + pea $000c +* LDA #$000D +* SEC +* SBC #$0001 +* PHA + _OffsetRect +L021F7C LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1E + SEC + SBC #$0001 +* STA $22 +* LDA $26 +* CMP $22 + cmp $26 + bne L021FC5 + LDA L010700 + CMP #$0003 + beq L021FBC + JSL L01021E +L021FBC LDA #$0003 + STA L010700 + BRL L022179 +L021FC5 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + SEC + SBC #$0008 + BVS L021FE9 + EOR #$8000 +L021FE9 BMI L021FEE + BRL L022161 +L021FEE PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$006A + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $24 + SEC + SBC #$0004 + STA $20 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + CMP #$000E + BNE L022076 + BRL L02210D +L022076 PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + PLA + beq L0220B1 + LDA L010700 + CMP #$0001 + beq L0220A8 + JSL L010210 +L0220A8 LDA #$0001 + STA L010700 + BRL L022179 +L0220B1 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC #$0003 + STA $1E + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + PLA + beq L02210D + LDA L010700 + CMP #$0001 + beq L022104 + JSL L010210 +L022104 LDA #$0001 + STA L010700 + bra L022179 +L02210D PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + PLA + beq L022161 + LDA L010700 + CMP #$0002 + beq L022158 + JSL L010202 ; LOGO - resize cursor +L022158 LDA #$0002 + STA L010700 + bra L022179 +L022161 LDA L010700 + beq L022179 + _InitCursor + stz L010700 +L022179 PLD + TSC + CLC + ADC #$002E + TCS + RTL + +L022181 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHA + PHA + _FrontWindow + STA L014E87 + PLA + STA L01070A + PLA + STA L01070A+2 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetPort + STA L014E87 + PHA + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA L010702 + PLA + STA L010702+2 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + PHA + LDY #$0002 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0038 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L022213 TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + AND #$8000 + BNE L022233 + BRL L022494 +L022233 LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDA [$00] + STA $1A + LDY #$0002 + LDA [$23],Y + TAX + LDA [$23] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + STX $1E + STA $1C + PHA + PHA + LDA $1A + PHA + LDX $1E + LDA $1C + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA L010706 + PLA + STA L010706+2 + LDA L014E87 + PHA + LDA #$009B + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + PHX + PHA + _HLock + STA L014E87 + LDA L014E87 + PHA + LDA #$009C + PHA + JSL L020000 + LDX L010706+2 + LDA L010706 + STX $18 + STA $16 + LDY #$0002 + LDA [$23],Y + PHA + LDA [$23] + PHA + PLA + CLC + ADC #$000C + PHA + LDY #$0002 + LDA [$16],Y + PHA + LDA [$16] + PHA + LDA #$0050 + LDX #$0000 + TAY + BPL L0222D1 + DEX +L0222D1 PHX + PHA + _BlockMove + STA L014E87 + LDY #$0002 + LDA [$16],Y + TAX + LDA [$16] + STX $08 + STA $06 + PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + _GetPortRect + STA L014E87 + PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + _LocalToGlobal + STA L014E87 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0042 + PHA + _LocalToGlobal + STA L014E87 + LDY #$0002 + LDA [$06],Y + AND #$2000 + BNE L022332 + BRL L022351 +L022332 PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + LDA #$000E + PHA + LDA #$0006 + PHA + _InsetRect + STA L014E87 + BRL L02242B +L022351 PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$06],Y + AND #$8000 + BNE L02237A + BRL L02239D +L02237A PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + LDA #$0001 + PHA + LDY #$003E + LDA [$06],Y + CLC + ADC #$000D + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02239D LDY #$0002 + LDA [$06],Y + AND #$0010 + BNE L0223AA + BRL L0223D3 +L0223AA PEI $08 + PEI $06 + PLA + CLC + ADC #$003E + PHA + LDA #$0001 + PHA + LDY #$003E + LDA [$06],Y + PHA + LDY #$0030 + LDA [$06],Y + CLC + ADC $01,S + PLX + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0223D3 LDY #$0002 + LDA [$06],Y + AND #$1000 + BNE L0223E0 + BRL L0223FF +L0223E0 PEI $08 + PEI $06 + PLA + CLC + ADC #$0044 + PHA + LDA #$0018 + PHA + LDY #$0044 + LDA [$06],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0223FF LDY #$0002 + LDA [$06],Y + AND #$0800 + BNE L02240C + BRL L02242B +L02240C PEI $08 + PEI $06 + PLA + CLC + ADC #$0042 + PHA + LDA #$000C + PHA + LDY #$0042 + LDA [$06],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02242B LDA #$0001 + PHA + LDA $1A + PHA + LDX $1E + LDA $1C + PHX + PHA + _MarkResourceChange + STA L014E87 + LDA L014E87 + PHA + LDA #$0098 + PHA + JSL L020000 + LDA $1A + PHA + LDX $1E + LDA $1C + PHX + PHA + _WriteResource + STA L014E87 + LDA L014E87 + PHA + LDA #$0099 + PHA + JSL L020000 + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA $1A + PHA + LDX $1E + LDA $1C + PHX + PHA + _ReleaseResource + STA L014E87 + LDA L014E87 + PHA + LDA #$009A + PHA + JSL L020000 +L022494 LDA $21 + STA $25 + LDA $20 + STA $24 + PLD + TSC + CLC + ADC #$0024 + TCS + RTL + +L0224A4 TSC + SEC + SBC #$001A + TCS + PHD + INC + TCD + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + AND #$0100 + BNE L0224D0 + BRL L0224F8 +L0224D0 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + EOR #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0224F8 LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetPort + STA L014E87 + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022213 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _CloseWindow + STA L014E87 + LDA L014E87 + PHA + LDA #$0101 + PHA + JSL L020000 + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0434E2 + PHA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + PHX + PHA + _FindHandle + tax + PLA + STA $16 + PLA + STA $18 + phx + pea $0104 + JSL L020000 + LDX $18 + LDA $16 + PHX + PHA + _DisposeHandle + PHA + pea $0105 + JSL L020000 + LDA L0106A6 + SEC + SBC #$0001 + STA L0106A6 + LDA L010700 + beq L0225B0 +L0225A0 _InitCursor + stz L010700 +L0225B0 PLD + TSC + CLC + ADC #$001A + TCS + RTL + +L0225B8 TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0050 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0036 + LDA [$00],Y + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L022649 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDA #$0002 + PHA + _SetPenMode + STA L014E87 + JSL L01060C + LDA $18 + PHA + LDA $25 + PHA + _MoveTo + STA L014E87 + LDA $1C + PHA + LDA $25 + PHA + _LineTo + STA L014E87 + _PenNormal + STA L014E87 + LDA [$21] + BNE L0226C3 + BRL L0226CB +L0226C3 LDA #$0000 + STA [$21] + BRL L0226D0 +L0226CB LDA #$0001 + STA [$21] +L0226D0 LDA #$0000 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + JSL L0103D4 + LDA $1F + STA $25 + LDA $1E + STA $24 + PLD + TSC + CLC + ADC #$0024 + TCS + RTL + +L02271B TSC + SEC + SBC #$002A + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEI $2F + PEI $2D + PEA $0008 + JSL L014B1E + LDA #$0000 + STA $28 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _GetMouse + STA L014E87 + LDA $1E + STA $22 + PHA + PHA + LDA $20 + PHA + LDA $1E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _PinRect + STA L014E87 + PLA + STA $24 + PLA + STA $26 + LDA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L022649 +L022785 PHA + LDA #$0000 + PHA + _StillDown + STA L014E87 + PLA + BNE L02279A + BRL L02289E +L02279A PEA $0000 + TDC + CLC + ADC #$001E + PHA + _GetMouse + STA L014E87 + LDA $22 + CMP $1E + BNE L0227B6 + BRL L02289B +L0227B6 PHA + PHA + LDA $20 + PHA + LDA $1E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _PinRect + STA L014E87 + PLA + STA $24 + PLA + STA $26 + LDA $28 + BNE L0227DE + BRL L0227EE +L0227DE LDA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L022649 +L0227EE PHA + LDX $26 + LDA $24 + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $22 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$003C + STA $00 + STX $02 + LDA $22 + CLC + ADC #$0001 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L022847 + BRL L02288B +L022847 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$003C + PHA + LDA #$000D + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02288B LDA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L022649 +L02289B BRL L022785 +L02289E LDA $28 + BNE L0228A5 + BRL L0228B5 +L0228A5 LDA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0028 + PHA + JSL L022649 +L0228B5 LDA $2B + STA $2F + LDA $2A + STA $2E + PLD + TSC + CLC + ADC #$002E + TCS + RTL + +L0228C5 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + LDA $1C + SEC + SBC #$001A + STA $18 + LDA $1A + SEC + SBC #$000D + STA $16 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + PLD + TSC + CLC + ADC #$001E + TCS + RTL + +L022919 TSC + SEC + SBC #$0022 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0040 + PHA + PEA $0004 + JSL L014B1E + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0042 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0040 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0229B7 + BRL L0229D2 +L0229B7 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0000 + PHA + LDA #$000D + PHA + _OffsetRect + STA L014E87 +L0229D2 LDA $1A + SEC + SBC #$0003 + STA $1A + LDA $16 + CLC + ADC #$0003 + STA $16 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L02271B + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _KillControls + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L040B72 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L022A6B + BRL L022A73 +L022A6B LDA #$0001 + PHA + JSL L0213E7 +L022A73 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L022A96 + BRL L022A9E +L022A96 LDA #$0001 + PHA + JSL L021660 +L022A9E LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L022AC1 + BRL L022ADA +L022AC1 JSL L0228C5 + LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L022AEC +L022ADA LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L022AEC LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0040 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0004 + JSL L014B1E + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PLD + TSC + CLC + ADC #$0022 + TCS + RTL + +L022B3A TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L022B66 + BRL L022B76 +L022B66 LDA #$0000 + PHA + JSL L0213E7 + LDA #$0001 + PHA + JSL L0213E7 +L022B76 PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L022B7E TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L022BAA + BRL L022BBA +L022BAA LDA #$0000 + PHA + JSL L021660 + LDA #$0001 + PHA + JSL L021660 +L022BBA PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L022BC2 TSC + SEC + SBC #$001E + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + _SetRect + STA L014E87 + PHA + LDY #$0002 + LDA [$21],Y + PHA + LDA [$21] + PHA + PLA + CLC + ADC #$0018 + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EqualRect + STA L014E87 + PLA + BNE L022C17 + BRL L022C4F +L022C17 LDA #$0806 + PHA + _DisableMItem + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$000C + PHA + LDA #$0282 + PHA + LDA #$00C9 + PHA + _SetRect + STA L014E87 + BRL L022D02 +L022C4F LDA #$0806 + PHA + _EnableMItem + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDY #$0002 + LDA [$21],Y + PHA + LDA [$21] + PHA + PLA + CLC + ADC #$0018 + PHA + PEA $0008 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + EOR #$FFFF + INC + PHA + LDA #$0001 + EOR #$FFFF + INC + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$21],Y + TAX + LDA [$21] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L022CB8 + BRL L022CC0 +L022CB8 LDA $16 + SEC + SBC #$000D + STA $16 +L022CC0 LDY #$0002 + LDA [$21],Y + TAX + LDA [$21] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L022CD9 + BRL L022CE1 +L022CD9 LDA $1C + CLC + ADC #$0018 + STA $1C +L022CE1 LDY #$0002 + LDA [$21],Y + TAX + LDA [$21] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L022CFA + BRL L022D02 +L022CFA LDA $1A + CLC + ADC #$000D + STA $1A +L022D02 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDX $27 + LDA $25 + PHX + PHA + _SetZoomRect + STA L014E87 + LDA $1F + STA $27 + LDA $1E + STA $26 + PLD + TSC + CLC + ADC #$0026 + TCS + RTL + +L022D2B TSC + SEC + SBC #$0056 + TCS + PHD + INC + TCD + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $1E + PLA + STA $20 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _SetPort + STA L014E87 + PHA + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA $22 + PLA + STA $24 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0001 + BEQ L022DA7 + BRL L022F12 +L022DA7 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + JSL L0206AF + LDX $24 + LDA $22 + PHX + PHA + JSL L022213 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + EOR #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA L010700 + BNE L022DFC + BRL L022E06 +L022DFC _InitCursor + STA L014E87 +L022E06 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L022E1F + BRL L022F0F +L022E1F PHA + PHA + LDA #$8010 + PHA + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $34 + PLA + STA $36 + LDA L014E87 + BEQ L022E56 + BRL L022EB1 +L022E56 LDX $36 + LDA $34 + PHX + PHA + _HLock + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$34],Y + PHA + LDA [$34] + PHA + PEA $000A + JSL L014B1E + LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8010 + PHA + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + BRL L022ECA +L022EB1 LDA #$0000 + STA $26 + LDA #$0F0F + STA $28 + LDA #$0000 + STA $2A + LDA #$F0FF + STA $2C + LDA #$00F0 + STA $2E +L022ECA PEA $0000 + TDC + CLC + ADC #$0026 + PHA + JSL L030171 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + JSL L0304C5 +L022F0F BRL L02382B +L022F12 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003E + LDA [$00],Y + CMP #$0006 + BNE L022F5E + BRL L022F8C +L022F5E PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDA #$0001 + PHA + LDA $16 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $1A + BRL L023614 +L022F8C LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0050 + LDA [$00],Y + LDX #$0000 + CMP #$8004 + BNE L022FA4 + INX +L022FA4 TXA + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L022FB0 + DEX +L022FB0 LDY #$0000 + CMP L0106FC + BNE L022FBB + CPX L0106FE +L022FBB BNE L022FBE + INY +L022FBE TYA + AND $01,S + PLX + TAX + BNE L022FC8 + BRL L0232AD +L022FC8 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0030 + LDA [$00],Y + PHA + LDY #$002E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L022FE8 + DEX +L022FE8 LDY #$0001 + CMP $01,S + BEQ L022FF0 + DEY +L022FF0 TXA + CMP $03,S + BEQ L022FF8 + LDY #$0000 +L022FF8 PLA + PLA + TYA + BEQ L023000 + BRL L0232AA +L023000 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + TAX + LDY #$0052 + LDA [$00],Y + PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + LDX $24 + LDA $22 + PHX + PHA + JSL L04116F + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$0042 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$003A + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L023098 + BRL L0230B6 +L023098 PEA $0000 + TDC + CLC + ADC #$0042 + PHA + LDA #$000B + PHA + LDA #$0005 + PHA + _InsetRect + STA L014E87 + BRL L0230FA +L0230B6 PEA $0000 + TDC + CLC + ADC #$0042 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0230EA + BRL L0230FA +L0230EA LDA #$0001 + PHA + LDA $42 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $42 +L0230FA PEA $0000 + TDC + CLC + ADC #$0042 + PHA + _SetPortRect + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + TAX + LDY #$0052 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $52 + PLA + STA $54 + LDA #$8004 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + TAX + LDY #$0052 + LDA [$00],Y + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L023185 + DEY +L023185 TXA + CMP $03,S + BEQ L02318D + LDY #$0000 +L02318D PLA + PLA + TYA + BNE L023195 + BRL L02321D +L023195 LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L0231C3 + DEX +L0231C3 LDY #$0001 + CMP $01,S + BEQ L0231CB + DEY +L0231CB TXA + CMP $03,S + BEQ L0231D3 + LDY #$0000 +L0231D3 PLA + PLA + TYA + BNE L0231DB + BRL L02321D +L0231DB LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$52],Y + PHA + LDA [$52] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L02321D PHA + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + LDA #$0001 + PHA + LDX $54 + LDA $52 + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $30 + PLA + STA $32 + LDX $32 + LDA $30 + PHX + PHA + _HideControl + STA L014E87 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0054 + LDA [$00],Y + TAX + LDY #$0052 + LDA [$00],Y + PHX + PHA + LDX $32 + LDA $30 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $32 + LDA $30 + PHX + PHA + LDX $24 + LDA $22 + PHX + PHA + JSL L0409AD ; LOGO - called when new control is added + PEA $0000 + TDC + CLC + ADC #$003A + PHA + _SetPortRect + STA L014E87 +L0232AA BRL L0235C8 +L0232AD LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0050 + LDA [$00],Y + CMP #$8010 + BEQ L0232C4 + BRL L0232C7 +L0232C4 BRL L0235C8 +L0232C7 PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L0232E4 + INX +L0232E4 TXA + PHA + PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023303 + INX +L023303 TXA + AND $01,S + PLX + TAX + BNE L02330D + BRL L023310 +L02330D BRL L023614 +L023310 PEA $0000 + TDC + CLC + ADC #$0042 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$003A + PHA + _GetPortRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L02334F + BRL L02336D +L02334F PEA $0000 + TDC + CLC + ADC #$0042 + PHA + LDA #$000B + PHA + LDA #$0005 + PHA + _InsetRect + STA L014E87 + BRL L0233B1 +L02336D PEA $0000 + TDC + CLC + ADC #$0042 + PHA + LDA #$0004 + PHA + LDA #$0002 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0233A1 + BRL L0233B1 +L0233A1 LDA #$0001 + PHA + LDA $42 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $42 +L0233B1 PEA $0000 + TDC + CLC + ADC #$0042 + PHA + _SetPortRect + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $4A + PLA + STA $4C + LDX $4C + LDA $4A + PHX + PHA + _HLock + STA L014E87 + PHA + PHA + PEA $0000 + PEA $0000 + LDY #$0002 + LDA [$4A],Y + TAX + LDA [$4A] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _HideControl + STA L014E87 + PHA + PHA + PEA $0000 + PEA $0000 + LDY #$0002 + LDA [$4A],Y + TAX + LDA [$4A] + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + _GetCtlHandleFromID + STA L014E87 + _DisposeControl + STA L014E87 + PHA + PHA + LDA #$8004 + PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $52 + PLA + STA $54 + LDA #$8004 + PHA + LDX L0106FE + LDA L0106FC + PHX + PHA + _DetachResource + STA L014E87 + LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$0010 + LDA [$00],Y + PHA + LDY #$000E + LDA [$00],Y + PHA + LDA #$0000 + LDX #$8500 + LDY #$0001 + CMP $01,S + BEQ L0234B6 + DEY +L0234B6 TXA + CMP $03,S + BEQ L0234BE + LDY #$0000 +L0234BE PLA + PLA + TYA + BNE L0234C6 + BRL L02354E +L0234C6 LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + AND #$0000 + PHA + LDA $03,S + AND #$0010 + STA $03,S + LDA #$0000 + LDX #$0000 + TAY + BPL L0234F4 + DEX +L0234F4 LDY #$0001 + CMP $01,S + BEQ L0234FC + DEY +L0234FC TXA + CMP $03,S + BEQ L023504 + LDY #$0000 +L023504 PLA + PLA + TYA + BNE L02350C + BRL L02354E +L02350C LDY #$0002 + LDA [$52],Y + TAX + LDA [$52] + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDY #$001A + LDA [$00],Y + PHA + PLA + ORA #$0000 + PHA + LDA $03,S + ORA #$0010 + STA $03,S + LDY #$0002 + LDA [$52],Y + PHA + LDA [$52] + PHA + PLA + CLC + ADC #$001A + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y +L02354E PHA + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + LDA #$0001 + PHA + LDX $54 + LDA $52 + PHX + PHA + _NewControl2 + STA L014E87 + PLA + STA $30 + PLA + STA $32 + LDA L014E87 + PHA + LDA #$0125 + PHA + JSL L020000 + LDX L0106FE + LDA L0106FC + PHX + PHA + LDX $32 + LDA $30 + PHX + PHA + _SetCtlRefCon + STA L014E87 + LDX $32 + LDA $30 + PHX + PHA + LDX $24 + LDA $22 + PHX + PHA + JSL L0409AD + PEA $0000 + TDC + CLC + ADC #$003A + PHA + _SetPortRect + STA L014E87 +L0235C8 LDA #$0000 + LDX #$0000 + TAY + BPL L0235D2 + DEX +L0235D2 STX L0106FE + STA L0106FC + LDA #$0000 + LDX #$0000 + TAY + BPL L0235E2 + DEX +L0235E2 PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$0000 + STA [$00] +L023614 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L023640 + BRL L0236C1 +L023640 LDA #$0807 + PHA + _DisableMItem + STA L014E87 + LDA #$0808 + PHA + _DisableMItem + STA L014E87 + LDA #$0809 + PHA + _DisableMItem + STA L014E87 + LDA #$080A + PHA + _DisableMItem + STA L014E87 + LDA #$080B + PHA + _DisableMItem + STA L014E87 + LDA #$080C + PHA + _DisableMItem + STA L014E87 + LDA #$080D + PHA + _DisableMItem + STA L014E87 + LDA #$0805 + PHA + _DisableMItem + STA L014E87 + LDA #$0806 + PHA + _DisableMItem + STA L014E87 + BRL L02380A +L0236C1 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L0236DA + BRL L02375E +L0236DA LDA #$0001 + PHA + LDA #$0807 + PHA + _CheckMItem + STA L014E87 + LDA #$0808 + PHA + _EnableMItem + STA L014E87 + LDA #$0809 + PHA + _EnableMItem + STA L014E87 + LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L023721 + BRL L023733 +L023721 LDA #$0001 + PHA + LDA #$0808 + PHA + _CheckMItem + STA L014E87 +L023733 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L02374C + BRL L02375E +L02374C LDA #$0001 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 +L02375E LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L023777 + BRL L023789 +L023777 LDA #$0001 + PHA + LDA #$080A + PHA + _CheckMItem + STA L014E87 +L023789 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0237A2 + BRL L0237B4 +L0237A2 LDA #$0001 + PHA + LDA #$080B + PHA + _CheckMItem + STA L014E87 +L0237B4 LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L0237CD + BRL L0237DF +L0237CD LDA #$0001 + PHA + LDA #$080C + PHA + _CheckMItem + STA L014E87 +L0237DF LDY #$0002 + LDA [$22],Y + TAX + LDA [$22] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L0237F8 + BRL L02380A +L0237F8 LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L02380A LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + LDX $24 + LDA $22 + PHX + PHA + JSL L022BC2 +L02382B LDX $20 + LDA $1E + PHX + PHA + _SetPort + STA L014E87 + PLD + TSC + CLC + ADC #$0056 + TCS + RTL + +L023843 TSC + SEC + SBC #$0044 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + PEI $49 + PEI $47 + PEA $0008 + JSL L014B1E + LDA #$0000 + STA $16 + LDA #$0001 + STA $28 + PEA $0000 + TDC + CLC + ADC #$002E + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$003A + PHA + PHA + PHA + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $00 + PLA + STA $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PEA $000A + JSL L014B1E + LDA L014E87 + BNE L0238D1 + BRL L0238EA +L0238D1 LDA #$0000 + STA $3A + LDA #$0F0F + STA $3C + LDA #$0000 + STA $3E + LDA #$F0FF + STA $40 + LDA #$00F0 + STA $42 +L0238EA LDA #$0001 + EOR #$FFFF + INC + PHA + LDA #$8010 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + TAX + LDY #$0020 + LDA [$00],Y + PHX + PHA + _ReleaseResource + STA L014E87 + LDA $3C + PHA + JSL L0104A0 + PHA + _SetForeColor + STA L014E87 + LDA $3E + PHA + JSL L0104A0 + PHA + _SetBackColor + STA L014E87 + PHA + PHA + _GetFont + STA L014E87 + PLA + STA $36 + PLA + STA $38 + PHA + PHA + LDA #$0001 + EOR #$FFFF + INC + LDX #$0000 + TAY + BPL L023969 + DEX +L023969 PHX + PHA + _SetWindowIcons + STA L014E87 + _SetFont + STA L014E87 + LDA $4B + BEQ L023986 + BRL L0239A1 +L023986 LDA $30 + CLC + ADC #$000A + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + BRL L0239B9 +L0239A1 LDA $34 + SEC + SBC #$001E + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 +L0239B9 LDA #$0001 + PHA + _DrawChar + STA L014E87 +L0239C7 PHA + LDA #$0000 + PHA + _Button + STA L014E87 + PLA + BNE L0239DC + BRL L023A85 +L0239DC PEA $0000 + TDC + CLC + ADC #$002A + PHA + _GetMouse + STA L014E87 + LDA $4B + BEQ L0239F6 + BRL L023A11 +L0239F6 LDA $30 + CLC + ADC #$000A + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + BRL L023A29 +L023A11 LDA $34 + SEC + SBC #$001E + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 +L023A29 PHA + PEA $0000 + TDC + CLC + ADC #$002A + PHA + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _PtInRect + STA L014E87 + PLA + BEQ L023A4C + BRL L023A68 +L023A4C LDA $28 + BNE L023A53 + BRL L023A60 +L023A53 LDA $4B + PHA + _DrawChar + STA L014E87 +L023A60 LDA #$0000 + STA $28 + BRL L023A82 +L023A68 LDA $28 + BEQ L023A6F + BRL L023A7D +L023A6F LDA #$0001 + PHA + _DrawChar + STA L014E87 +L023A7D LDA #$0001 + STA $28 +L023A82 BRL L0239C7 +L023A85 PEA $0000 + TDC + CLC + ADC #$002A + PHA + _GetMouse + STA L014E87 + PHA + PEA $0000 + TDC + CLC + ADC #$002A + PHA + PEA $0000 + TDC + CLC + ADC #$0020 + PHA + _PtInRect + STA L014E87 + PLA + BNE L023ABB + BRL L023B11 +L023ABB LDA $28 + CMP #$0001 + BEQ L023AC5 + BRL L023B0C +L023AC5 LDA $4B + BEQ L023ACC + BRL L023AE7 +L023ACC LDA $30 + CLC + ADC #$000A + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 + BRL L023AFF +L023AE7 LDA $34 + SEC + SBC #$001E + PHA + LDA $2E + CLC + ADC #$0002 + PHA + _MoveTo + STA L014E87 +L023AFF LDA $4B + PHA + _DrawChar + STA L014E87 +L023B0C LDA #$0001 + STA $16 +L023B11 LDX $38 + LDA $36 + PHX + PHA + _SetFont + STA L014E87 + LDA L014E87 + PHA + LDA #$0136 + PHA + JSL L020000 + LDA #$0000 + PHA + _SetForeColor + STA L014E87 + LDA #$FFFF + PHA + _SetBackColor + STA L014E87 + LDA $45 + STA $4B + LDA $44 + STA $4A + LDX $16 + PLD + TSC + CLC + ADC #$004A + TCS + TXA + RTL + +L023B5C TSC + SEC + SBC #$0036 + TCS + PHD + INC + TCD + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + PEA $0004 + JSL L014B1E + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + _GlobalToLocal + STA L014E87 + LDX L01070A+2 + LDA L01070A + STA $00 + STX $02 + LDY #$00C8 + LDA [$00],Y + TAX + LDY #$00C6 + LDA [$00],Y + STX $34 + STA $32 +L023BBC LDA $32 + ORA $34 + BNE L023BC5 + BRL L023F5C +L023BC5 PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDY #$0002 + LDA [$32],Y + PHA + LDA [$32] + PHA + PLA + CLC + ADC #$0008 + PHA + PEA $0008 + JSL L014B1E + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L023C07 + BRL L023F41 +L023C07 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0064 + LDA [$00],Y + TAX + LDY #$0062 + LDA [$00],Y + CMP $32 + BNE L023C2E + CPX $34 +L023C2E BEQ L023C33 + BRL L023C36 +L023C33 BRL L023F5C +L023C36 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0068 + LDA [$00],Y + TAX + LDY #$0066 + LDA [$00],Y + CMP $32 + BNE L023C5D + CPX $34 +L023C5D BEQ L023C62 + BRL L023C65 +L023C62 BRL L023F5C +L023C65 PHA + PHA + LDX $34 + LDA $32 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA $2A + PLA + STA $2C + PHA + LDX $2C + LDA $2A + PHX + PHA + _HiWord + STA L014E87 + PLA + CMP #$00E0 + BEQ L023C97 + BRL L023CFF +L023C97 LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + STX $30 + STA $2E + PHA + LDX $30 + LDA $2E + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0600 + BEQ L023CCD + INX +L023CCD TXA + PHA + PHA + LDX $30 + LDA $2E + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BEQ L023CEA + INX +L023CEA TXA + AND $01,S + PLX + TAX + BNE L023CF4 + BRL L023CF7 +L023CF4 BRL L023F5C +L023CF7 LDX $2C + LDA $2A + STX $34 + STA $32 +L023CFF PHA + LDX $2C + LDA $2A + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023D1A + INX +L023D1A TXA + PHA + PHA + LDX $2C + LDA $2A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023D37 + INX +L023D37 TXA + AND $01,S + PLX + TAX + BNE L023D41 + BRL L023D44 +L023D41 BRL L023F5C +L023D44 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L023D5B + BRL L023E6A +L023D5B PHA + PHA + LDX $34 + LDA $32 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA $2A + PLA + STA $2C + PHA + LDX $2C + LDA $2A + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023D8E + INX +L023D8E TXA + PHA + PHA + LDX $2C + LDA $2A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023DAB + INX +L023DAB TXA + AND $01,S + PLX + TAX + BNE L023DB5 + BRL L023DB8 +L023DB5 BRL L024B7D +L023DB8 PHA + PHA + LDX $34 + LDA $32 + PHX + PHA + _GetCtlRefCon + STA L014E87 + PLA + STA L0106FC + PLA + STA L0106FE + LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + PHA + LDY #$0014 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA L0106FE + PHA + LDA L0106FC + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8004 + STA [$00] + BRL L023F3E +L023E6A LDX $34 + LDA $32 + STX $2C + STA $2A + PHA + LDX $2C + LDA $2A + PHX + PHA + _HiWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023E8D + INX +L023E8D TXA + PHA + PHA + LDX $2C + LDA $2A + PHX + PHA + _LoWord + STA L014E87 + PLA + LDX #$0000 + CMP #$0000 + BNE L023EAA + INX +L023EAA TXA + AND $01,S + PLX + TAX + BNE L023EB4 + BRL L023EB7 +L023EB4 BRL L023F5C +L023EB7 PHA + PHA + LDX $34 + LDA $32 + PHX + PHA + _GetCtlID + STA L014E87 + PLA + STA $2A + PLA + STA $2C + LDA L014E87 + BNE L023ED7 + BRL L023EDA +L023ED7 BRL L023F5C +L023EDA LDX $34 + LDA $32 + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDA L010700 + PHA + JSL L041C02 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L023F3E BRL L024B7D +L023F41 LDY #$0002 + LDA [$32],Y + TAX + LDA [$32] + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STX $34 + STA $32 + BRL L023BBC +L023F5C PEA $0000 + TDC + CLC + ADC #$0026 + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + PEA $0004 + JSL L014B1E + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDA L010700 + BRL L024B5D +L023F8C PEA $0000 + TDC + CLC + ADC #$0026 + PHA + _GlobalToLocal + STA L014E87 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L023FC2 + BRL L0242BE +L023FC2 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L023FE5 + BRL L02407D +L023FE5 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $20 + CLC + ADC #$000E + STA $20 + LDA $20 + CLC + ADC #$000C + STA $24 + LDA #$0005 + STA $1E + LDA #$000A + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L02403B + BRL L02407D +L02403B LDA #$0000 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + JSL L023843 + TAX + BNE L024052 + BRL L02407A +L024052 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02407A BRL L024B7D +L02407D LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L0240A0 + BRL L02412E +L0240A0 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $24 + SEC + SBC #$000E + STA $24 + LDA $24 + SEC + SBC #$000C + STA $20 + LDA #$0005 + STA $1E + LDA #$000A + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L0240F6 + BRL L02412E +L0240F6 LDA #$0002 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + JSL L023843 + TAX + BNE L02410D + BRL L02412B +L02410D LDX L01070A+2 + LDA L01070A + PHX + PHA + _ZoomWindow + STA L014E87 + JSL L022B3A + JSL L022B7E + JSL L0228C5 +L02412B BRL L024B7D +L02412E PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $1E + CLC + ADC #$000D + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L024172 + BRL L0242AE +L024172 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L024189 + BRL L024250 +L024189 LDX L010702+2 + LDA L010702 + PHX + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + JSL L010C92 + TAX + BNE L0241AB + BRL L02424D +L0241AB LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8006 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02424D BRL L0242AB +L024250 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0403A5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0001 + PHA + JSL L0208DC +L0242AB BRL L024B7D +L0242AE LDA #$0001 + PHA + LDA $16 + CLC + ADC #$000D + SEC + SBC $01,S + PLX + STA $16 +L0242BE LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0242E1 + BRL L0243CD +L0242E1 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $1E + STA $22 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L02433D + BRL L0243A5 +L02433D LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L024354 + BRL L024391 +L024354 LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0114EF + TAX + BNE L024366 + BRL L02438E +L024366 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02438E BRL L0243A2 +L024391 PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0002 + PHA + JSL L0208DC +L0243A2 BRL L024B7D +L0243A5 LDA #$0001 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + CLC + ADC $16 + SEC + SBC $01,S + PLX + STA $16 +L0243CD PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _PtInRect + STA L014E87 + PLA + BNE L0243F0 + BRL L024A81 +L0243F0 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L024413 + BRL L024521 +L024413 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $24 + SEC + SBC #$001A + STA $20 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + LDX #$0000 + CMP #$0000 + BEQ L02445B + INX +L02445B TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + LDX #$0000 + CMP #$0000 + BEQ L024484 + INX +L024484 TXA + ORA $01,S + PLX + TAX + BNE L02448E + BRL L024496 +L02448E LDA $22 + SEC + SBC #$000C + STA $22 +L024496 PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L0244B9 + BRL L024521 +L0244B9 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L0244D0 + BRL L02450D +L0244D0 LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L01240E + TAX + BNE L0244E2 + BRL L02450A +L0244E2 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02450A BRL L02451E +L02450D PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0004 + PHA + JSL L0208DC +L02451E BRL L024B7D +L024521 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L024544 + BRL L024652 +L024544 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC #$000D + STA $1E + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + LDX #$0000 + CMP #$0000 + BEQ L02458C + INX +L02458C TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + LDX #$0000 + CMP #$0000 + BEQ L0245B5 + INX +L0245B5 TXA + ORA $01,S + PLX + TAX + BNE L0245BF + BRL L0245C7 +L0245BF LDA $24 + SEC + SBC #$0018 + STA $24 +L0245C7 PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L0245EA + BRL L024652 +L0245EA LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L024601 + BRL L02463E +L024601 LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L012A14 + TAX + BNE L024613 + BRL L02463B +L024613 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02463B BRL L02464F +L02463E PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0005 + PHA + JSL L0208DC +L02464F BRL L024B7D +L024652 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L024675 + BRL L02479C +L024675 PEA $0000 + TDC + CLC + ADC #$001E + PHA + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + PEA $0008 + JSL L014B1E + LDA $22 + SEC + SBC #$000D + STA $1E + LDA $24 + SEC + SBC #$001A + STA $20 + PHA + PEA $0000 + TDC + CLC + ADC #$0026 + PHA + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _PtInRect + STA L014E87 + PLA + BNE L0246C1 + BRL L02479C +L0246C1 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L0246D8 + BRL L024715 +L0246D8 LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L013002 + TAX + BNE L0246EA + BRL L024712 +L0246EA LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024712 BRL L024799 +L024715 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L04067F + JSL L022B3A + JSL L022B7E + JSL L0228C5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$001E + PHA + JSL L020E29 + LDA $22 + SEC + SBC #$000D + STA $1E + LDA $24 + SEC + SBC #$001A + STA $20 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + LDA #$0006 + PHA + JSL L0208DC +L024799 BRL L024B7D +L02479C LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$001C + LDA [$00],Y + CMP #$0002 + BEQ L0247B3 + BRL L024953 +L0247B3 LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0117D4 + TAX + BNE L0247D1 + BRL L0247F9 +L0247D1 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0247F9 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$2000 + BNE L02481C + BRL L024950 +L02481C LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L02483F + BRL L0248B6 +L02483F LDA #$0000 + PHA + JSL L0213E7 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$1000 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0248B6 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L0248D9 + BRL L024950 +L0248D9 LDA #$0000 + PHA + JSL L021660 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + PHA + LDA #$FFFF + SEC + SBC #$0800 + AND $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024950 BRL L024A81 +L024953 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0403A5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L0249C0 + BRL L024A1A +L0249C0 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BEQ L0249E3 + BRL L024A1A +L0249E3 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BEQ L024A06 + BRL L024A1A +L024A06 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0007 + PHA + JSL L0208DC + BRL L024B7D +L024A1A LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L024A3D + BRL L024A45 +L024A3D LDA $1C + SEC + SBC #$0018 + STA $1C +L024A45 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L024A68 + BRL L024A70 +L024A68 LDA $1A + SEC + SBC #$000C + STA $1A +L024A70 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + LDA #$0003 + PHA + JSL L0208DC +L024A81 BRL L024B7D +L024A84 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L0403A5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024B7D +L024AD1 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$000A + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L04067F + JSL L022B3A + JSL L022B7E + JSL L0228C5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024B7D +L024B2A JSL L022919 + JSL L022B3A + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L024B7D +L024B5D CMP #$0004 + BCC L024B65 + LDA #$0004 +L024B65 ASL + TAX + LDAL L024B73,X + BEQ L024B6F + PHA + RTS + +L024B6F JSL L014F19 +L024B73 DA L023F8C-1 + DA L024AD1-1 + DA L024A84-1 + DA L024B2A-1 + DW $0000 + +L024B7D PLD + TSC + CLC + ADC #$0036 + TCS + RTL + +L024B85 ENT + TSC + SEC + SBC #$0016 + TCS + PHD + INC + TCD + PHB + PHB + PLA + STA $06 + PEA >L01068E + PLB + PLB + PHA + PHA + _GetPort + STA L014E87 + _DrawControls + STA L014E87 + LDA $06 + PHA + PLB + PLB + PLD + TSC + CLC + ADC #$0016 + TCS + RTL + +L024BBB TSC + SEC + SBC #$005C + TCS + PHD + INC + TCD + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022213 + PHA + PHA + _GetPort + STA L014E87 + PLA + STA $16 + PLA + STA $18 + PHA + PHA + LDA #$800E + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + TAX + LDY #$0038 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA L010698 + PLA + STA L010698+2 + LDX L010698+2 + LDA L010698 + PHX + PHA + _HLock + STA L014E87 + PEA ^L020687 + PEA L020687 + LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0036 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + PHA + PHA + LDA #$8010 + PHA + LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0016 + LDA [$00],Y + TAX + LDY #$0014 + LDA [$00],Y + PHX + PHA + _LoadResource + STA L014E87 + PLA + STA $58 + PLA + STA $5A + LDA L014E87 + BNE L024C92 + BRL L024CB3 +L024C92 LDA #$0000 + STA L01068E + LDA #$0F0F + STA L010690 + LDA #$0000 + STA L010692 + LDA #$F0FF + STA L010694 + LDA #$00F0 + STA L010696 + bra L024CD9 +L024CB3 pei $5A + pei $58 + _HLock + PEA ^L01068E + PEA L01068E + LDY #$0002 + LDA [$58],Y + PHA + LDA [$58] + PHA + PEA $000A + JSL L014B1E +L024CD9 LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$004E + LDA [$00],Y + AND #$0800 + BNE L024CFC + BRL L024D3B +L024CFC LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$004E + PHA + LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$004E + LDA [$00],Y + EOR #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L024D3B PEA ^L01068E + PEA L01068E + LDX L010698+2 + LDA L010698 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0014 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + JSL L01063D + pea $0004 + _SetFontFlags + LDX L01069C+2 + LDA L01069C + PHX + PHA + _ShowWindow + pei $18 + pei $16 + _HideWindow +L024D9D LDA #$B706 + STA $32 + LDA #$001F + STA $34 + PHA + pea $0002 + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _EventAvail + PLA + beq L024E03 +L024DC5 PHA + PEA $0000 + TDC + CLC + ADC #$001A + PHA + pei $2A + pei $28 + _FindWindow + PLA + CMP #$001B + BEQ L024DE8 + BRL L024E03 +L024DE8 LDX L01069C+2 + LDA L01069C + CMP $1A + BNE L024DF4 + CPX $1C +L024DF4 BEQ L024DF9 + BRL L024E03 +L024DF9 LDA #$7FFF + STA $32 + LDA #$001F + STA $34 +L024E03 LDA #$0000 + STA $4C + PHA + pea $FFFF + PEA $0000 + TDC + CLC + ADC #$001E + PHA + _TaskMaster + PLA + STA $4E + bra L024E80 +L024E28 LDA #$0001 + STA $4C + BRL L024EAA +L024E30 PEA $0000 + TDC + CLC + ADC #$0050 + PHA + pea $0000 + pea $0000 + pea $0280 + pea $00C8 + _SetRect + pea $0000 + pei $2A + pei $28 + pea $0008 + PEA $0000 + TDC + CLC + ADC #$0050 + PHA + pei $30 + pei $2E + _DragWindow +L024E7D bra L024EAA +L024E80 SEC + SBC #$0010 + CMP #$0007 + BCC L024E8C + LDA #$0007 +L024E8C ASL + TAX + LDAL L024E9A,X + BEQ L024E96 + PHA + RTS + +L024E96 JSL L014F19 +L024E9A DA L024E28-1 + DA L024E28-1 + DA L024E7D-1 + DA L024E7D-1 + DA L024E30-1 + DA L024E7D-1 + DA L024E28-1 + DA L024E7D-1 + +L024EAA LDA $4C + BNE L024EB1 + BRL L024D9D +L024EB1 pei $18 + pei $16 + _ShowWindow + LDX L01069C+2 + LDA L01069C + PHX + PHA + _CloseWindow + pei $18 + pei $16 + _SelectWindow + pei $18 + pei $16 + _SetPort + PLD + TSC + CLC + ADC #$005C + TCS + RTL + +L024EFB TSC + SEC + SBC #$0022 + TCS + PHD + INC + TCD + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0074 + LDA [$00],Y + TAX + LDY #$0072 + LDA [$00],Y + STX $20 + STA $1E + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + JSL L020E29 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _LoWord + STA L014E87 + PLA + BRL L026153 + +* 804 Zoom window + +L024F68 LDX L01070A+2 + LDA L01070A + PHX + PHA + _ZoomWindow + JSL L022B3A + JSL L022B7E + JSL L0228C5 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 807 Title bar + +L024FB1 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BEQ L025013 + BRL L0252B2 +L025013 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L025036 + BRL L025087 +L025036 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$4000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + PHA + LDA #$0808 + PHA + _CheckMItem + STA L014E87 +L025087 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L0250AA + BRL L0250FB +L0250AA LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 +L0250FB LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L025127 + DEX +L025127 LDY #$0001 + CMP $01,S + BEQ L02512F + DEY +L02512F TXA + CMP $03,S + BEQ L025137 + LDY #$0000 +L025137 PLA + PLA + TYA + BEQ L02513F + BRL L02525D +L02513F LDA #$8006 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + TAX + LDY #$0010 + LDA [$00],Y + PHX + PHA + _RemoveResource + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$1000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8006 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA #$0000 + LDX #$0000 + TAY + BPL L0251F4 + DEX +L0251F4 PHX + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0010 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$005A + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005A + LDA [$00],Y + EOR #$0200 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L02525D LDA #$0000 + PHA + LDA #$0807 + PHA + _CheckMItem + STA L014E87 + LDA #$0000 + PHA + LDA #$0808 + PHA + _CheckMItem + STA L014E87 + LDA #$0000 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 + LDA #$0808 + PHA + _DisableMItem + STA L014E87 + LDA #$0809 + PHA + _DisableMItem + STA L014E87 + BRL L02537C +L0252B2 LDX L010702+2 + LDA L010702 + PHX + PHA + PEA ^L026F9F + PEA L026F9F + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003C + LDA [$00],Y + PHA + JSL L010A0E + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8006 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0012 + LDA [$00],Y + PHA + LDY #$0010 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA #$0001 + PHA + LDA #$0807 + PHA + _CheckMItem + STA L014E87 + LDA #$0808 + PHA + _EnableMItem + STA L014E87 + LDA #$0809 + PHA + _EnableMItem + STA L014E87 +L02537C PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _KillControls + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L040B72 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0253EB + BRL L0253F3 +L0253EB LDA #$0001 + PHA + JSL L0213E7 +L0253F3 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L025416 + BRL L02541E +L025416 LDA #$0001 + PHA + JSL L021660 +L02541E LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L025441 + BRL L02545A +L025441 JSL L0228C5 + pea $0001 + pea $080D + _CheckMItem + bra L02546C +L02545A pea $0000 + pea $080D + _CheckMItem +L02546C LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80A Info bar + +L025497 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0010 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0010 + BNE L0254F9 + BRL L02552D +L0254F9 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$003C + STA $00 + STX $02 + LDA #$000D + STA [$00] + LDA #$0001 + PHA + LDA #$080A + PHA + _CheckMItem + STA L014E87 + BRL L02555E +L02552D LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$003C + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDA #$0000 + PHA + LDA #$080A + PHA + _CheckMItem + STA L014E87 +L02555E LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$8000 + BNE L025581 + BRL L025589 +L025581 LDA $16 + CLC + ADC #$000D + STA $16 +L025589 PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _EraseRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _KillControls + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L040B72 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0255F8 + BRL L025600 +L0255F8 LDA #$0001 + PHA + JSL L0213E7 +L025600 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L025623 + BRL L02562B +L025623 LDA #$0001 + PHA + JSL L021660 +L02562B LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BNE L02564E + BRL L025667 +L02564E JSL L0228C5 + LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L025679 +L025667 LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L025679 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80B Right scroll bar + +L0256A4 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$1000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L025706 + BRL L0257B6 +L025706 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L025729 + BRL L0257B6 +L025729 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BEQ L02574C + BRL L0257A4 +L02574C LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + JSL L0228C5 + LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L0257B6 +L0257A4 LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L0257B6 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + PHA + JSL L0213E7 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L0257FC + BRL L025800 +L0257FC JSL L022B7E +L025800 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80C Bottom scroll bar + +L02582B LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L02588D + BRL L02593D +L02588D LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L0258B0 + BRL L02593D +L0258B0 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BEQ L0258D3 + BRL L02592B +L0258D3 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + JSL L0228C5 + LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L02593D +L02592B LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L02593D LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + PHA + JSL L021660 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L025983 + BRL L025987 +L025983 JSL L022B3A +L025987 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80D Size box + +L0259B2 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + JSL L0228C5 + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0400 + BEQ L025A18 + BRL L025B15 +L025A18 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + LDX #$0000 + CMP #$0000 + BEQ L025A3F + INX +L025A3F TXA + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + LDX #$0000 + CMP #$0000 + BEQ L025A68 + INX +L025A68 TXA + AND $01,S + PLX + TAX + BNE L025A72 + BRL L025B00 +L025A72 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$1000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + PHA + JSL L0213E7 + LDA #$0000 + PHA + JSL L021660 +L025B00 LDA #$0000 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 + BRL L025B27 +L025B15 LDA #$0001 + PHA + LDA #$080D + PHA + _CheckMItem + STA L014E87 +L025B27 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$1000 + BNE L025B4A + BRL L025B4E +L025B4A JSL L022B3A +L025B4E LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L025B71 + BRL L025B75 +L025B71 JSL L022B7E +L025B75 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 802 Edit colors + +L025BA0 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + PHA + LDY #$0020 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L025BF4 + DEX +L025BF4 LDY #$0001 + CMP $01,S + BEQ L025BFC + DEY +L025BFC TXA + CMP $03,S + BEQ L025C04 + LDY #$0000 +L025C04 PLA + PLA + TYA + BNE L025C0C + BRL L025C10 +L025C0C JSL L020E66 +L025C10 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0022 + LDA [$00],Y + PHA + LDY #$0020 + LDA [$00],Y + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8010 + STA [$00] + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 803 Add control + +L025C8D LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0400 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L025CBF + DEX +L025CBF PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0052 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$8004 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L025CFB + DEX +L025CFB STX L0106FE + STA L0106FC +L025D04 BRL L026F97 +L025D07 pei $20 + pei $1E + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L042E6F + LDA #$0000 + LDX #$0000 + TAY + BPL L025D23 + DEX +L025D23 PHX + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] +* PHA +* PLA + CLC + ADC #$0072 +* PHA +* PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L0106A0+2 + PHA + LDA L0106A0 +* PHA +* PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$6000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0050 + STA $00 + STX $02 + LDA #$0000 + STA [$00] + LDA #$0000 + LDX #$0000 + TAY + BPL L025D92 + DEX +L025D92 PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 +* PHA +* PLA + CLC + ADC #$0052 +* PHA +* PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDA L0106A0+2 + PHA + LDA L0106A0 +* PHA +* PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 808 Close box + +L025DDC LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$4000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$4000 + BNE L025E3E + BRL L025E53 +L025E3E pea $0001 + pea $0808 + _CheckMItem + bra L025E65 +L025E53 pea $0000 + pea $0808 + _CheckMItem +L025E65 LDA $18 + CLC + ADC #$0023 + STA $1C + LDA $16 + CLC + ADC #$000A + STA $1A + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 809 Zoom box + +L025EB3 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$000E + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + EOR #$0100 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0100 + BNE L025F15 + BRL L025F2A +L025F15 LDA #$0001 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 + BRL L025F3C +L025F2A LDA #$0000 + PHA + LDA #$0809 + PHA + _CheckMItem + STA L014E87 +L025F3C LDA $1C + SEC + SBC #$0023 + STA $18 + LDA $16 + CLC + ADC #$000A + STA $1A + PEA $0000 + TDC + CLC + ADC #$0016 + PHA + _InvalRect + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 805 Set zoom rect + +L025F8A LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + CLC + ADC #$000C + STX $08 + STA $06 + PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + _GetPortRect + STA L014E87 + PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + LDA #$0002 + PHA + LDA #$0001 + PHA + _InsetRect + STA L014E87 + LDY #$0002 + LDA [$06],Y + AND #$8000 + BNE L025FE1 + BRL L025FFC +L025FE1 PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + LDY #$000C + LDA [$06],Y + CLC + ADC #$000D + PLX + STX $00 + PLX + STX $02 + STA [$00] +L025FFC LDY #$0002 + LDA [$06],Y + AND #$1000 + BNE L026009 + BRL L026028 +L026009 PEI $08 + PEI $06 + PLA + CLC + ADC #$0012 + PHA + LDA #$0018 + PHA + LDY #$0012 + LDA [$06],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L026028 LDY #$0002 + LDA [$06],Y + AND #$0800 + BNE L026035 + BRL L026054 +L026035 PEI $08 + PEI $06 + PLA + CLC + ADC #$0010 + PHA + LDA #$000D + PHA + LDY #$0010 + LDA [$06],Y + SEC + SBC $01,S + PLX + PLX + STX $00 + PLX + STX $02 + STA [$00] +L026054 PEI $08 + PEI $06 + PLA + CLC + ADC #$000C + PHA + _LocalToGlobal + STA L014E87 + PEI $08 + PEI $06 + PLA + CLC + ADC #$0010 + PHA + _LocalToGlobal + STA L014E87 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDA #$0806 + PHA + _EnableMItem + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022BC2 + BRL L026F97 + +* 806 Clear zoom rect + +L0260C9 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + PHA + LDA [$00] + PHA + PLA + CLC + ADC #$0018 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + LDA #$0000 + PHA + _SetRect + STA L014E87 + LDA #$0806 + PHA + _DisableMItem + STA L014E87 + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022BC2 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L026F97 + +* 80E Test window + +L026149 JSL L024BBB + +L026150 BRL L026F97 + +L026153 SEC + SBC #$00FB + CMP #$0714 + BCC L02615F + LDA #$0714 +L02615F ASL + TAX + LDAL L02616D,X + BEQ L026169 + PHA + RTS + +L026169 JSL L014F19 + +L02616D DA L025D04-1 + DA L025D04-1 + DA L025D04-1 + DA L025D07-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L026150-1 + DA L025BA0-1 ; 802 Edit colors + DA L025C8D-1 ; 803 Add control + DA L024F68-1 ; 804 Zoom window + DA L025F8A-1 ; 805 Set zoom rect + DA L0260C9-1 ; 806 Clear zoom rect + DA L024FB1-1 ; 807 Title bar + DA L025DDC-1 ; 808 Close box + DA L025EB3-1 ; 809 Zoom box + DA L025497-1 ; 80A Info bar + DA L0256A4-1 ; 80B Right scroll bar + DA L02582B-1 ; 80C Bottom scroll bar + DA L0259B2-1 ; 80D Size box + DA L026149-1 ; 80E Test window + DA L026150-1 ; 80F + +L026F97 PLD + TSC + CLC + ADC #$0022 + TCS + RTL + +L026F9F STR ' Title ' + DB $00 +L026FA8 TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0004 + LDA [$00],Y + TAX + LDY #$0002 + LDA [$00],Y + PHX + PHA + _LoWord + STA L014E87 + PLA + STA $16 + LDA $16 + CMP #$001B + BEQ L026FE0 + BRL L026FEC +L026FE0 LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF +L026FEC LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$000E + LDA [$00],Y + AND #$0800 + BNE L027003 + BRL L0271ED +L027003 LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + BRL L0271C5 +L027021 BRL L0271ED +L027024 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + PEA $0000 + TDC + CLC + ADC #$0018 + PHA + _GetPortRect + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$0018 + PHA + _LocalToGlobal + STA L014E87 + PEA $0000 + TDC + CLC + ADC #$001C + PHA + _LocalToGlobal + STA L014E87 + LDA $16 + CMP #$0008 + BEQ L02708F + BRL L0270C3 +L02708F LDA #$0004 + SEC + SBC $1E + BEQ L02709E + BVS L02709C + EOR #$8000 +L02709C BMI L0270A1 +L02709E BRL L0270A4 +L0270A1 BRL L0271ED +L0270A4 LDA $1A + SEC + SBC #$0002 + PHA + LDA $18 + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _MoveWindow + STA L014E87 + BRL L027180 +L0270C3 LDA $16 + CMP #$000A + BEQ L0270CD + BRL L027101 +L0270CD LDA $18 + SEC + SBC #$00C6 + BEQ L0270DC + BVS L0270DA + EOR #$8000 +L0270DA BMI L0270DF +L0270DC BRL L0270E2 +L0270DF BRL L0271ED +L0270E2 LDA $1A + PHA + LDA $18 + CLC + ADC #$0001 + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _MoveWindow + STA L014E87 + BRL L027180 +L027101 LDA $16 + CMP #$000B + BEQ L02710B + BRL L02713F +L02710B LDA #$0011 + SEC + SBC $1C + BEQ L02711A + BVS L027118 + EOR #$8000 +L027118 BMI L02711D +L02711A BRL L027120 +L02711D BRL L0271ED +L027120 LDA $1A + PHA + LDA $18 + SEC + SBC #$0001 + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _MoveWindow + STA L014E87 + BRL L027180 +L02713F LDA $16 + CMP #$0015 + BEQ L027149 + BRL L02717D +L027149 LDA $1A + SEC + SBC #$027C + BEQ L027158 + BVS L027156 + EOR #$8000 +L027156 BMI L02715B +L027158 BRL L02715E +L02715B BRL L0271ED +L02715E LDA $1A + CLC + ADC #$0002 + PHA + LDA $18 + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _MoveWindow + STA L014E87 + BRL L027180 +L02717D BRL L0271ED +L027180 BRL L0271ED +L027183 LDX L010702+2 + LDA L010702 + PHX + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDA $16 + PHA + JSL L042683 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] + BRL L0271ED +L0271C5 CMP #$0008 + BCC L0271CD + LDA #$0008 +L0271CD ASL + TAX + LDAL L0271DB,X + BEQ L0271D7 + PHA + RTS + +L0271D7 JSL L014F19 +L0271DB DA L027021-1 + DA L027021-1 + DA L027021-1 + DA L027024-1 + DA L027021-1 + DA L027021-1 + DA L027021-1 + DA L027024-1 + DA L027183-1 + +L0271ED PLD + TSC + CLC + ADC #$0020 + TCS + RTL + +L0271F5 ENT + TSC + SEC + SBC #$0020 + TCS + PHD + INC + TCD + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$004E + LDA [$00],Y + STA L0106A4 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003E + LDA [$00],Y + BRL L027539 +L027222 LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$0800 + PLX + STX $00 + PLX + STX $02 + STA [$00] + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$003A + LDA [$00],Y + PHA + LDY #$0038 + LDA [$00],Y + PHA + LDA #$0000 + LDX #$0000 + TAY + BPL L02726A + DEX +L02726A LDY #$0001 + CMP $01,S + BEQ L027272 + DEY +L027272 TXA + CMP $03,S + BEQ L02727A + LDY #$0000 +L02727A PLA + PLA + TYA + BNE L027282 + BRL L0272B2 +L027282 JSL L02108E + JSL L0225B8 + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0048 + PHA + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0048 + LDA [$00],Y + ORA #$8000 + PLX + STX $00 + PLX + STX $02 + STA [$00] +L0272B2 JSL L02185B + BRL L027561 +L0272B9 LDX #^L01070E + LDA #L01070E + PHX + PHA + LDA #$FF01 + PHA + PEA ^L027571 + PEA L027571 + LDA #$0012 + PHA + JSL L014B68 + PEA ^L01070E + PEA L01070E + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + BRL L027561 +L0272F9 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$004A + LDA [$00],Y + CMP #$0008 + BEQ L027310 + BRL L027317 +L027310 JSL L022D2B + BRL L027396 +L027317 JSL L022181 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$004A + LDA [$00],Y + BRL L02734C +L02732D JSL L0224A4 + BRL L027396 +L027334 JSL L023B5C + BRL L027396 +L02733B JSL L024EFB + BRL L027396 +L027342 JSL L026FA8 + BRL L027396 +L027349 BRL L027396 +L02734C SEC + SBC #$0003 + CMP #$0017 + BCC L027358 + LDA #$0017 +L027358 ASL + TAX + LDAL L027366,X + BEQ L027362 + PHA + RTS + +L027362 JSL L014F19 +L027366 DA L027342-1 + DA L027349-1 + DA L027342-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L027349-1 + DA L02733B-1 + DA L027349-1 + DA L027334-1 + DA L027349-1 + DA L027349-1 + DA L02732D-1 + DA L027349-1 + DA L027349-1 + DA L02733B-1 + DA L027349-1 + +L027396 BRL L027561 +L027399 LDA #$0000 + STA L0106A6 + LDA #$0000 + STA L010700 + LDX #^L01070E + LDA #L01070E + PHX + PHA + LDA #$FF01 + PHA + PEA ^L027583 + PEA L027583 + LDA #$0006 + PHA + JSL L014B68 + PEA ^L01070E + PEA L01070E + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$002E + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + CLC + ADC #$0036 + STA $00 + STX $02 + LDA #$800E + STA [$00] + JSL L01004E + PHX + PHA + LDA L0106A0+2 + PHA + LDA L0106A0 + PHA + PLA + CLC + ADC #$0032 + PHA + PLA + STA $00 + PLA + STA $02 + PLA + STA [$00] + LDY #$0002 + PLA + STA [$00],Y + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$005C + LDA [$00],Y + TAX + LDY #$005A + LDA [$00],Y + STX L0106FA + STA L0106F8 + LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0058 + LDA [$00],Y + TAX + LDY #$0056 + LDA [$00],Y + PHX + PHA + JSL L040000 + BRL L027561 +L027451 JSL L022181 + JSL L0224A4 + BRL L027561 +L02745C PHA + PHA + _FrontWindow + STA L014E87 + PLA + STA L01070A + PLA + STA L01070A+2 + LDX L01070A+2 + LDA L01070A + PHX + PHA + _SetPort + STA L014E87 + PHA + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + _GetWRefCon + STA L014E87 + PLA + STA L010702 + PLA + STA L010702+2 + JSL L021D6B + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$0060 + LDA [$00],Y + beq L027514 +L0274C2 LDX L0106A0+2 + LDA L0106A0 + STA $00 + STX $02 + LDY #$0008 + LDA [$00],Y + TAX + LDY #$0006 + LDA [$00],Y + PHX + PHA + LDA #$0000 + PHA + LDX L010702+2 + LDA L010702 + STA $00 + STX $02 + LDY #$0002 + LDA [$00],Y + TAX + LDA [$00] + STA $00 + STX $02 + LDY #$005E + LDA [$00],Y + TAX + LDY #$005C + LDA [$00],Y + PHX + PHA + LDX L01070A+2 + LDA L01070A + PHX + PHA + LDX L0106FA + LDA L0106F8 + PHX + PHA + JSL L010419 +L027514 BRL L027561 +L027517 JSL L022181 + LDX L01070A+2 + LDA L01070A + PHX + PHA + JSL L0206AF + LDX L010702+2 + LDA L010702 + PHX + PHA + JSL L022213 +L027536 BRL L027561 +L027539 CMP #$0008 + BCC L027541 + LDA #$0008 +L027541 ASL + TAX + LDAL L02754F,X + BEQ L02754B + PHA + RTS + +L02754B JSL L014F19 + +L02754F DA L027222-1 + DA L0272B9-1 + DA L0272F9-1 + DA L027399-1 + DA L027451-1 + DA L02745C-1 + DA L0272F9-1 + DA L027517-1 + DA L027536-1 + +L027561 LDA #$0000 + STA $16 + LDX $16 + PLD + TSC + CLC + ADC #$0020 + TCS + TXA + RTL + +L027571 ASC 'Window editor v1.2' +L027583 ASC 'Window'