From 67673665fbbeca8f6b9c7b73cf2033514abb304a Mon Sep 17 00:00:00 2001
From: maxcodehack <maxcodehack@kolibrios.org>
Date: Fri, 6 Nov 2020 13:22:48 +0000
Subject: [PATCH] Add t2fasm

git-svn-id: svn://kolibrios.org@8142 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/bcc32/examples/hello.kex | Bin 8081 -> 0 bytes
 programs/bcc32/t2fasm/Makefile    |   4 +
 programs/bcc32/t2fasm/t2fasm      | Bin 0 -> 33184 bytes
 programs/bcc32/t2fasm/t2fasm.cpp  | 420 ++++++++++++++++++++++++++++++
 4 files changed, 424 insertions(+)
 delete mode 100755 programs/bcc32/examples/hello.kex
 create mode 100755 programs/bcc32/t2fasm/Makefile
 create mode 100755 programs/bcc32/t2fasm/t2fasm
 create mode 100755 programs/bcc32/t2fasm/t2fasm.cpp

diff --git a/programs/bcc32/examples/hello.kex b/programs/bcc32/examples/hello.kex
deleted file mode 100755
index a04da2be54b3b8a2e43857075077ad8a8f832b9b..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 8081
zcmb_he^gx6oqun50}nFEyeLtUWf3h=r$!5!TE}VZBsh^02L~n)2p!VahQ>4|7G{F2
zAwnP2-rh4c)*p4Z?RGty9{04n&2g<E>ajBn1!5YPkRD4CH|Ce!H@@hiVPQ;OGyD18
zH;}l;KX=aIz5DL{-tX^U_Yw@$H3rsJR>_hiRp9T5Yb2>MkSA6CUKV3aN%|S9_pGEy
z(m)};*y(*){0{p0*D99qwH0OY>Jz;~wCo*n-*W=M!_Ftl0a%r={_qqA`y?Pg_nS8e
z<PT4Q$nM>5G+?}Y_pno79dRo7lu|6g7ReZ~li~VJl}jbbc<X9OYGHR*C?g8?VFKTh
zKBV?1qVqQG$(N*%!JL>G1v`&@twMQhONH9BPCx5sr4?*Tg)(p>;9t7|kAr@8x@QGZ
z-xa-j*h%yUMx0G}3A#(e7*!=gp|DX4A@w0wUm~_7t%7s+tI-PWnzhDVW#FYR;qE_2
zJnX2@q#bAUdn>fO&(zJ`71u#O*YkTTJ`Ww;Vk^jZZ^a$4eBauNFGsIu7&D9->cgQp
z(6CeW4aWO_Pqa&B?gm;=i7v9~bgtcmFUdGVl!w%TdGr<>v>f#JCt|mYkJ$KH<2fK`
zfp*^6QOHsQq%HI9fg*bS$6Dj3v}h*R8c&MBK#jZ42TRsO&*&K?YShGjJ+Kg<2mO%!
z=d)tpL$G~`=oxl;GCTjb(7COqzp2EFYclJ65p%DR|Cm<}z!=zn=(K*Jc)RnpVtnZ<
z$WD^G|9SE80)52(0#vk(!$!QcLLc%oV?!HRkF1z##Jr0)Y7k46c3c_F>v_}Re)UvY
zr@QA(nKf#rb9yi@_CX{ShOswl)_@C01q%oL(}Rxa(t%2vAmhSKBgJ~EkOxcJ<)ofe
zcw;H=URISj=r@{6;RIr<LqKk5YmKBP-LKwkbNquo%zl<}*)ZQxQI-n^_7O<jT~X%E
zM8C*VJqO&?(VJPyIE20KR}x(5rw}mnxSyQ%N?)@pHZ^bs7GEQpw7IVP_qKP8IEgOB
z)`;_EQWJi{vxQcLcsXV6I6kZ64~34+{|eg@lheTE)K|&x5BghE;Q>+tJTbo=4;R+7
z-u;;Afm0R>fX@<;<gs~bO<{||SGrP|Q)ZUd0$tUZdvs=L9Y*fojxBJH#+9DrXkqG)
zPkrIVc@IDNgz+zsAY_nuEn=7PM@&E$`U*0+6uS{VLvE1M4H1~tkJDEJ{lGbBJrxRH
zlKh}Qw>`SR_O4mUTbs?_<)kN3ZK25xtBxJ?k6jx*zejFOja?gaWXJZ%sewNONKiaW
z&oNI_P7TX`n-J}2O%2%2fEZBRuMDLI$RN-o(h*ShP}IfbYS{eV3RgRm@lun9h7l=y
zHGrUJRV=G)acgSjH@9x<c<>ur${*_3_U(>uJXjvx*zw>4TfY%~VB6MPill~(_s2Rq
zAK1RJ{J~gs<HO}!w%z}o^82^NwnodhZQt0@zGYk2XF$ca3b>6O9ossvyv~9@sv;{_
zCO-bRnM3iF*$t^CG3{a*uvpBI!`Pe2wBy`vc1S;&ckYD^ZQ$1reuZO^7!V%0<cj+2
z7nea;V`u>dxC*6JCWIaLQA+lXZofM08GVf`Idgi=%sJ<6nAJ~MttmE|n#1+kslbag
z@Cz%Or5Kwc3>`<Z(F$eL3l*TZ8Mz1ahMlzH7mmMc*RHDz0G9hvj-j6)f8^<se5?3_
zfo{uw{p&q6<<Dm6HTNUy(Qj@713&(1Hg4Int$f|KjxFDUNjjtU#4>y4TB)&fW5=w?
z?ktyf?P_H2@kSR9sJyl~nTEa9c8uCtjf2;gh>02nGbNbGZ_pEJ$Y_J7L7qs8_J(O^
zqszTlb?<F<Bu{FEM_6sKdvA?`?|ku%O{})0A!IylZ$vJlo%+y3m`BujU?OB(1>Lpq
z#<MJ}@ZdXajmiTPtQwipU}3G5owau$av^ZIiN{=3iTKm>G3=21t5#4Q-Z53RAH2jv
zviGf>H&i8l?D+97oCNZt_1T`+#V8vsxY#E~EA_#A?^}-^X`92X54}u?)&6OB-x36h
z-tCgyeHuo-n9HpfV88<|&*VO`?mx_Y!U9uz_mt%R$p@g#15=?UV?BsLFT8PzHD-8l
ziUlpbJ0rV)vK}CMw<Ya#W`mY_Q#P1kA9Fm$<o$8iSLHX`Ids0Hot5YbM>{Lh2OV7H
zOIQgj;*Ay?V@Y}cN?$PJju!wCOR>gD`561Cnnlj?$XWSVytGw5z#;~ZV4gmXu;3XU
z#P^wYUfAxN*Xh*vXU(fGpW0rq54a@LQMJE+|4t_xl*d;Q9X;s)rS3MOa)PMnDF=(Z
z!z1s^(V5^8tmNqYnFsOx=l?_J($uHv6c8PV=N*iGMNY88L?EvC<xzpHox{l@<L!KL
zP8A#<Y%y5kB`oqMzL=Hpz@M0$PG5wgNwbgt8l#?WB(5)2jk89J2Q6Q4syo6177L8B
z*br|VmB-`74S9`2tTDlZiEO<i8?dnM3ry{pFmHpgYO#^5v*UVfXTjH5Y=8$|mlI$t
zFEGFYFZ0HivkeZIj-a}aUhXp|P^aO;#^ax4vut=16*r^fJbXD<&!SGFKa<Ti89xKS
zQi|1<<OxUo5zQ(3M=H@=V_}tby51PTW+br^8_SnIjpZxAvKfA+g%E5F#+tv8tGUAQ
z;E8(UP6QA9E*>yK#tRfk@x~LqYc$~Yv+yz-rVJemU?}%jCCsaO@7Lh0e+UDz!MNSt
zzeh%!K%pk0I-+it=g7SyAY3+QKZPil$+vq3A!+;${I!IPJ@gWCLQEl}d4;beR=^>m
zX1chlCsj78-yy})HnPyCku?Ju(gQevUIU1Kb=rTWKe~|nm$AQy(2GB$p4)AHmDiLe
z({Ps}UQ;dxwGK@6o`h5qt5q;NJ63s3#q8L{Yi^t!YlL%E@rJfs9s@y<2B%jEf(^^q
zuubs$M6dw~E_t$qH!HoTi3Vl4Qe-(~JWQ&WCd+w^YnDU>uhC}5H*$Y5TeYlVvuu>W
zGO&ec${;C{R&NbitH<U9-~EXlSD~pY7@%TcItM6J!Cm1hP3Q)8;X##$mM7mwzFyeQ
zYnEe`l;N+;Ny7uhJgAXG5tTJpw)c-mo$dYmVf|y~JonzC$<vy9@1erOta*88vt;z!
zsVkS6k<&Gy_d*_8=H9zrHS>9MY0^aasrqTRej%@Y1m~Mrf$=ri%T(G2iiy2;=CEy7
zA8v{x7-PjeqVYgUJa{qGP;WdB8t%P;i|)M$vq2ew=^6GMh8OoA>n675_g=_8Dj`X}
zMz8*9Oip9+qCNQry+9wSL6Ew&t+mCL71U4=Am?VODQqkQN5E;^H;rB`9<W03#)}Qc
z4WQl5gBRO9^RU>C_;2^*&tZU@At+@3q4#4KX1#$2$@{p2$uNYQrF>yE=0ssK^H>e4
zrKV5HT<OJ{gK6wAk7-Q#cQ(&nV8y+>TH)VSSf|2PD%5<7m<p=MQlnMJR#B!`^z-H0
z&s8Nb)!PI6vM2iR%vk_3ts|kpL7U|{*Lz_X);gE#rj|4vYy!b0kFnJXSJ?stQ`Ct8
zs8zBf!c`8RC=@Mzx*U$fe;}}bRF!4lQ|aMCFLYH^g2^K*6>=>05&@*A@Tl6)>Xeay
zg<>c18q1UP9_Ui-b#nz*`}arZ^LoqkruXo6g^ijYut8ocptcwD23P-htPq=p&$`)|
zd6I`z_??2`+bo}w>+&D5LH+v*nx!8Sg(7wUiNQMtLBp;bS+gLA0y~!yZ0wp5zu<FZ
zmCf#3D4q@|el@tQRm^`yjr1+w6}<s(Ui=KUIhcb-Ed89!il1ebR6><!*aE5v%X^`{
zVT?je^~NHqB10~OAsh+z(T6gmb&+)dR0qL&KM{KO@iv9$vpf(*Fe&N(f!dJ83@vFm
z^e_Ja;+&?LWKQ`rW7pd1KZx0pKt^b@8E)?G;}Dx2=dEi0vDl1HSSFTlD;QGMy3jK4
zJH46MJZvL9vKdq5%`Udy#cqSL*Q=}zTOr|X=nu*;a<ikpRpgl+<e8l=v=t<9@#9ph
z;1^K3SKkSZKRu|QlDS`j*Yu6M`)&nm=H?s+D%|JCJwy)nR7KljN&HT12dX>!v(Ykk
zo~WpVu2wZ~r1^EQnBdV|Otjp6?*ai-o3mDW44?YLpxif1BVwln`}Oa^r0&b$UZic2
z49vxs|B6_REr1z}F1zGlj+g!u393JWrNWVF;RNQlcp$?|e~5)^#KK~Hhr&&U-`+N|
z+V+*>rVpOJT45Pt1>0>`GH+)W`CSm~7GIYdBSFYU=@_y^PN?()7y~E5JOpmi7v_8=
zmvxYIBGfe_n5d%O!$X#55OHxA*WiMSC@v0p55&m%Z}J{MxQv<a5iH(+m-8;~fvAQh
zCtvL{&p`El)%?#~u9%JgZngI!xu9Er7Ed;5`y4|D17|P&8N@GO6X_wW^<M13v$HDs
zp@V(Ie?__Eu!;4BVPgrHZ;^+&vN!#YnC6cWBz*b0G`XWbys*ih3K<m;8kLEquu)+X
z=2jT&GF<Mk@fNiud7!U6W`^u-X3gp*{xibaV4M~)B@hU;+|0w4=O`L1U(AB+6K1JC
ztYO?mV-4y0C3^!jgS2LcBApFL{^yK*h)m5I9WeAno_@;0am+i`S;!7~lKLlFrxSi;
z)&WLOXvhXBR+C|GV~&07Im){=c87jm>zt33HPrGUbj`AOlgz?ac%AVKB!R40Y|F4Z
zvHp+(sLS)gb7#Q<SRpPVDiX4u%G3X9>8CC4xz2fP(lfE*pCPx+$0mlPlL8;{C&^?u
z1F$t2xDcy`wK8mdCTvVon>Yg^JeFbSJs-EA5ac+V<p3P6lUb7m-An=6=CCWn?h_n7
zJj>yn7b0Q72i<*#L6Ry)vjPVB9p2;az67Sc$2%W3wdrb0jut`aMZ%9&-kR|q??@vF
z6(KwVYWit_3ZPp6G-+#wlt|nu?6|o!zFLMHVJb*P^~QReGqavlpl7rWC+oD#>Z)<?
zaVQtP32RZJck}8DysUWI58?}0Dm15avoMFdqdZ<G!#E&XV54M{sE5rN77|##tB58^
zoHLt*pwZ7kLS8v1Qj@XD<`yDBoU{;!f+%-3MMBg(NwAF@0<(xy-DOMkL4_UAlUZ!|
zAXl4#o$4Zm@^|772_p}y`bD_d8ya*&#6!mYcB4$;As|<hJ{pWfj`btiuUaUNaixsC
zt$(O_C%eknN{b~~OD5hSv+r7LRVE}5EkT=1aW*l_sa<>M%!v*nc7+Y~Ejt?1pF^$&
zZ&xD<8lc;HV=*SkF%se$Hy#p^F{si32sx?K;ybPTW<~%cp;F8s^=h3|RY?$d-BDko
z<<=j=hfU^hxtI;Oh<@~X{X?}WjP|GA*k@NrI^yGGfej!EJ*9t&ArEKZ;W&j!Q6GxV
z^hy}{R+hObknshq4pfMY&Fk|yQIWdT5cHL4FurM{MbbA#>h#WRpWh@jx!nflF$)RX
z(B$LZ;jVJH7Mp}mP+Wv8)|F`zN_ZO$9{4fy*&`O)kg>CeUCF78M^JC0?QDWSoZ)_p
zKV;R-3=54YY}lM{OI~1;(^pI)%;o4EC<u$D?|~q0c7ft5WV|Q3N!3moNE9}xBRU@n
zf*~4g9)y!3YuVR53o+RuhOi}$Yw(cI+vVeVx_;t|=&28u=<ky<y@MT4LL}uG3)$PZ
zilbfbc10hWB4OxSB31x<KMBomqH83>brw{b>@7Zfi}1^Dvq_tReH`ZXinxr(@Os#5
z3bzu%Qcm7Ig{#T#jGj@u3SPyHw`AtqjwJs@A5qsCX9$1Dc!^%PB-e7J#%4pn=Hdwx
z%R=?DcQmscyKI1s1R$cvW>vEfu7cHV{nOF!{6De#MVsBc9J|Grk^H6I60nrb(ed{$
zXPK-f^!YkXlg({DU$Iqcul<JBay{ahu!oCxtMC?Q&sT5?f?a+I1+FuK5Z2#<Vv+o?
z5CvKv{9N*{g{WGv07T7?*QqkvGc*;6@{m!6C}^2WB^yTa5baqczpw(>D*z===!py_
zs#P@hA>4~u@#^yWbs@t7J0sODCumlUql3j28I`zV<i6^Xc;grgm&Vs1d{^5dO|raC
zSqMTRn>cX~8A*kV3&aLFAT)vSv|F0!mv{|z`!`d!hR(W1@xIwX=Um>Z$OpVfJ6-Is
z=Kx?lEeaac8nx;eGCr8Jv#ID_Z~*NV2T*d}s5l7pXCEc9W+$&B>`20<Mm=@>Sqc4@
zNCwTKo1?T)$Lkc|f{wzfamW=`%)9u4o9Yy5kgFA>n9e-t+1G7#z>BSQ?1(3c|1zCQ
zQ%-QnI~7`iVOTY8;60C^|GU&%z<~RR9?ooZIG*I)F1pVfM!q1MLj5+E-?S;a(3r1L
zlIg<a$wIb9W7WmUQ-#nk3zx7*O6!di1{4S>7V4S&s7u^^I3>88c^$`PW}Y42<|5A+
ze4+PL7CFfCHv8B+*y&(nmsK~)SazHX6>a3JVI`<2Wqv{TNwFoHRIn`i&=xkreEr#2
z!2l9X*7Wf!dk0A#c6cOD$d$*ALhg`fu%XFti5h~^)?Gk8qTmjuNy)JhzEoZ7DaXUt
z8m*jbn0MNTw<0=%MadqXc+jd38TSc<=<q~GUxZ#JWbB2wEp&=UQ|G8kTsluxB`8|p
z1~HWdGMgp3VgXY}L~v>3{5uryyN^;28-rrdK*<r8=Uu*9SxSn60(QnxF|b3F4AED1
zFBL@xlrte?1yL59AeUO{N<uP`_TV)~Y|AV$IbwO=-Kp_>-)d!hA;0RTCdGTSt0adl
zn5j4Zn;K=pV<5ByC;CoRiWcxDbUmh1c#Zdyu5ENk#C`9cOS$Y*Oua~GE;03UAOllR
z5zaORT(I-~<KN5g9V8Kx=L_LZ-oxFCF5~0dIX=w$1ru<}du%m~+gXVe*L}@pYPfxl
zqUea1!49GVucI>FWIP};peCbFrh09w&XFTRfsyMb;RCqXDU#Z8OuCVtj%VnZACgA=
vr5RM6J#r+qsSy9T*eq=>+FWLIouPQsD0k43xYeh$f^YlF_|bdW+3)`a6jjKt

diff --git a/programs/bcc32/t2fasm/Makefile b/programs/bcc32/t2fasm/Makefile
new file mode 100755
index 0000000000..75807dc1ef
--- /dev/null
+++ b/programs/bcc32/t2fasm/Makefile
@@ -0,0 +1,4 @@
+t2fasm:
+	g++ -c t2fasm.cpp
+	g++ -o t2fasm t2fasm.o
+	rm t2fasm.o
diff --git a/programs/bcc32/t2fasm/t2fasm b/programs/bcc32/t2fasm/t2fasm
new file mode 100755
index 0000000000000000000000000000000000000000..ed9c44cbf040d207c5b9497de7a40851a84a1067
GIT binary patch
literal 33184
zcmeHQdwf*Yoj)_lg%BYVkZ61|>!al%F@XdEh$Ml58x0zPSSsQ$nM@vQUONu~x3Sa-
z%Iq~5t5s@kORcq9w`y(IrMATYHbA$nv9&F2QB$NkV{lCsZE7jm@9#YB+?mX1>&id<
z%z?STbAGS$JHPWgk9%`x&SzaU%k4HBQz?sG&Zy*^C@>Y0u;FHz0jOZ*Yyz(5v2)ot
zl(RWb&?^K0RiqKATEQHN&jKX5a=Snz!*eB{g33aInxv%ydWpa)h?Z~!$&syvi+K^y
z$ukO0pDFOoPYbBz$UKrOmU6{XPC+K^S5UQ&+D4x>lAa8gfksI|;-ysk$6y2H|ML=F
z90QLEG*eK?T?09?^Y2ahl5v%+FP&ea(tZV1KU~_{Qa`Ws($<FAtu5`LO|v(Z&zn83
zv?$O~G>5mF^b_xjtLk`7)ZfZgWb;&f2uJikY(KJN+_yU&N2X3$aruxQuFfu+LcE3e
zsD7jV*ka4)xU+ztao!#0Hr07lGk{4<Uxnb5L=-RWNrR82!H-Xa9|rz{6#BoNhW}^a
zO=ZvT)9`;U4gNpU;O|PK|5s`FpHG9Q-b!WX@-+PSrNMtQ4SqBYej4g^;**@lBM?&A
zLmlr-W=45Y8vKzo^&S9zGNP)YNoZ5!_b!RAO~Nz8eIVH2oi&SMeI9eWo7y_s-GQLT
zA9TB!yL!z^cZ1LGYibDuef~8om$r7a`__2sTYZ9-nsVJ$tAq31Zttc|B_$<u>OFxL
zFI4(l+MBAqtAiya-e!;A9rSxzf`MwUYqbX#muI!B_DU~ve-zoynvX8Kti*K_)q3SW
zZgLrKl@R~OrI%90aKBf09{%xmZf59=mUb5GXzkeO^Rt#fpwr{^vBoA}FaVmr)z^+b
z@^13DJwe~5mLTEqpTs&sLDtwA3VQi9z}kFmq_A<Lza{7+K5w&M$~LyNds<s=_7P88
z$4%%<HyI+kz0Cs)R@78iEnU0TJ-4W|XikYJy5|&?l$zN&MP(GQcK$C*Ub7QQ0!wor
zeH1U{Z2TW%D(?Sn<UX)uv9kmtsCLYcf=>MR+;uOOgKRb(bdm|3-7<mn&6WIW-Ba=I
zoJ3NLIpzAM@T+DC{PZOJpxhtiR5&?<;#cMJq;XRw*Rw-Q1V4;RSjPt~_|v&Yafw>+
zv}UL@Y{3^OB;beze})CG#y9O9XkAfBjc>x!x}uUU^^6AsZZ%V_1utF6X=^QbTGv$C
zV8N@knrO`yJo!SUP79vuR%w$3uY66kEfzdF*i73j_*@gqSg!?tngzeZf|p&(sXHxr
z86q72hy|Z#(etDQ@37!^S@70HyU&83Y~ep(!CUA50So?23%?#dmZKZmd1X$fZ|w`(
zM+fxqb2<CiXxXY#CmX$Z4X%!9706M!nIvO_qevHDL1pUV*Z?nAQJK0n*2l{WsZ3oO
zdy<#uP?@?iwv(4<QklXh*2~KmP?@?kwuP6^rZRP9tdp0gP?@?gwt<&(sZ3oLtL0@o
zm8r{O6}<fZT$HJ+V#U1tHkGN1VoqLugUZx3v3y=WLS^cb7~|#NQJK0THhdC@i+@37
z>VnuHFaLzf<oehEFYiUUu@_~YO5UuFyl{gaIiiP;4%e=!>CxW6Qmyw)3UILauc&FX
z;46?h?wGcWD2rp)Ia!_Fqx}I;UofIa{un$9UE>E2b<L#pql1k_j%nRo|N4E@EAcYq
zA0@e-vIn`E87CpH?>U*JM~3x1(IvXAUw`3bun-CtNQDzgVLE+V7XKUcu+XJ?c=79V
zkgFqmChErGT!=>}!6Q)}mwv4pd^R#?3mNv#KBz={h<$ym5ge3TjW8?MBVC6gp%?W?
z-GRu;fpFK0%+dWNh=jWakfV)Qxa~z-xNX3u8?Hl+r<r4SUu1u@9^Q@Y1L}Z@x*Dh%
z`yz)Tu4Cb@V{CKoF4Qv`3v*@1*e&CCQCtq)M0)g|S{te)ecgS*(@Bp+k-qM}kYv_&
zK?G$-cRh6R!cZ9*8Jr@`fw<&7k4)xxp#yj_U`Xh|04iU%ejl|PO^!xFNB6r<kaELy
zVv*};*V%x&cK}+Wx@|z%H7@KrVH<iGl(?WC2@OW-4s*VUYs7FJ?x`IG0<l0Q4GPI5
z^MliLqi#^|sY0V&gIu;pM}B40@${5!`9t3)R6pX)aE+K%jYLAnBLmx9!-nfPuj9C^
zV<dGQ2ul}{%3Z^uag-mLsE1u6wxMUa-=yB~v3#_DMDoIW=gO?;*KhrGbQIN$7m~jv
z+Cky8@G&PjZog}UycTz!zC#a>cpbM-K<|P(?n5165<v%`$x(9d4!vjMk4YAz>6hQY
zs4(iHdSt3iYD|z7E!>cd6E=?HHioK_sh2GZ7LCDO5=75htb*pt76#F?aLgUyt`Q8T
zG4xA<Q^(*IhGxQ0ieS~2t+Fkje8kC&x)HR5!X*~NFz6LL@XN-<id{AR&_nU2OWIVW
z>hL$6Y=1UiiFxSlN;bpni~RlCqHCRG0W-8R<jC)l0e#P)9pS6@NR`MECbAbkA1%V7
z@pQHweZJn%Y>+X^{#y4Tl05|nAcmgH*S-Bvt6K33G+K{Lv>Vzks0jDjBH9zk#5&O7
z`(4Art}g?#z%}gXIfU|l*Kv+@9bZJKACl#+VTuY<X%{IqrrHtk3DM%?_-xzvX*}<y
z3&qv~9tMuD_Mt(|Qp8j>M~I;5G)5DvIU`LqC*gexNXc&o>uZEZ4-+lyI&O=V!-BAD
z*cLkr8AE$|4Y~43TtBcAdJ4K`gJp~>Z|BucwD+2w%Lf`}C_`HZrCa+pYf%kR1rJi&
z4b25CZ`W}+et~P`mQNdX#}O*FfymxHZ%nfdyf6}RolwE0x@;P62D}?OieVk)&Lltn
z=`S?og&%Vu6mcCNdWgf3p$DLKtXXwjLFCsYT@8y;RQA-v<g>Arb@R$Xe73cA{jHoo
z+b(D853ci9a7KzcFHcivzG&bV5GaoBUt<VU^TiCa&ak%S6)=kFY-5$7y|Ri2_J{Q8
zqqERZ8;!3gz^^aZ8yGLvx%kp`J<W_-FOffJkoFX;CtZjSX_Ox6*CWqIZ-rHccFo^m
z4Ik!(P|}Y%#L&)%2oIByMXnQ{S%|L0qC+!^)$tSfOgz=Dd-qu8=XYq5qHu4+G`ZW*
zetFG@8ozU<G+s>g=16>mtD>1=JCyL5Vk<I+_F1}?ZT@i0%cbVT8K_q39U3pT1%=7+
zekm~+*>(|2hDP%=@7<D(PD48jC8OX{8WXfIZKb&howyJPngX=HAj6FvMy6LRo`&`+
z3S0YbaTwZfi5|tYH-L<x{RG#z@*j$lnuU9`R}q>pC8F&{#?<z03Ro2q*)(tO8N}9*
zg6Z?nAbN3IdZrh^B$o?A+mMp4r*;FhEhBrNKHQgsy{MxAO~uf?1=ES4O@|zIW08Vs
z$V9aBaFqsPd#Glj{hAGUN(lqz@%Pk#aok6vYwI_`p|%Fv&k<S+Tqn9}sAtABv!~#3
zsKn4oo{v25^7-f<n%7UGc}R;u(a>tXB0g$p8!2M>reovf(eGj^FtlburKq8XY8W%1
zN?`R+cJGi)&bYJ>&M~wLQ!3%T(F{H4KFpHcU*z+L_KT~aIkM*&y7k#jy8>+Wcb(2y
zbn`o8&~GUA#u&tP?Lswj8D60qT7)a=f7S^d(Zg@UpT?vRaE5kwN*z4~y#46R$j_-0
zzsN<jDyfEUwW43(xbup*nwr#VcwAgUO_p&1T`&EKR@RqEZIw_vv{E#49Mr02{%#7Y
z_&n%_HvILp&3pmX%4V)cGar<SXm6tw?I1<fyrN0Bf^KL#Q|jv}=%zN9O@5fnG_<R^
z%Km40lOF^Q9ZI*!YL}0lZlvo(WO$ovB;0j^1^?C1KJyh}uQ6%Wmyqkx=5ig}kxxPc
z?@o*m8!SVIP69PLGE6P4f+UR|^l6XwZVextxrR22qbCUT%L2`YnzmqH8T1(1L{*=5
z<bKqL`5aLKuIN%!W@vAIS(wwKeO-ty#JmC=<{hE&4zr@Y9F19;>JQ0^46Wlqp@HxG
z5@(R_!I!iEYgd9N@<RAvHVLO-G{A_RoMrp5-!+JC!azPsAbK@6TKiqmwJYHiqab=E
z^tz(FEys|LHo-x-6?V{ob!?rETj<@?C1~o;h`i}73My>D!d=5mFm-=X(7zq0?}bWC
zrx@2*LFb{3cY&tw-$NT7%!qu7*CW4q`*A&TK>stGP&*2yR${UZH121)Y=}nFm4t}w
z-R-=J8&E?P>?Z?YpIHAJCdKWWP2@xW%gG`8(6ha<<)EVfbMv|QB%(h;bS$H=e}r)*
z!KK(hjKBmtLC4b-S=)FH)2l{f=V6kd8(hw%YaE9AFthVOTLF89?uUCGzXIxaih=f%
z9W-2UYZAh($I;#7cW5g88*ZTKkC$lLPRUW^=zbU&qwEO^VME&n{P($=dJ6I{1`2ZL
zqf2lXcd=2nT`=8fVH&zfF#QE~Y#no_9dsH6bwa2JLSmEGff+OG8nne+yyh}N&$B3f
zUn+fwE9KoBJU!es$Q;{Gp2qMD0mAPhW0aksk$^bAFK%{Bn%!g(E{`rB!5AqxDA*qa
zyRhX|EDuJ(Qvz+6=qs^HiapG0xL?pVT51@QHE5O^a--8xL(ESy1@%H^k*O~S)tFJU
zwSt(m#b6R{oh#TUTB`URg${iGAbLNATQ5eNU%HofG7Xa}a~bQ`9@CvHw_p1P0E?9a
zWt6@2Med$wz^Z!nx=)A>)468h+wySNQTR3+GU2wPHYx=tU_@L8D~84+^J#7lO*ku{
zJ-X@`n)>SrRKvfE8rE8BxJSC@wKvVB*U^0tF=%Mj#Epr=m^2LnP|ToCMsgRFB3fzp
zP<IrLAp>HF5N-fvbOWqf{|YA*F(@);(C-3;?G0wo7=kF=Cuh(H1RC7;%BeBMeD!-w
zs(fPegXe=Lwx_^|i7oaD7HOlb8x^4sJYR@AcD8ivTWE)z!068ZC|{t^mH$OC^)*Oi
z_M;IQ?uyzRcb=r}Jf0HKE_y4W(drAK+$hD3t3dx)qL1A}b!OXDPri&Wq8Pb_R~Wj1
zCcQp;f+iXlkO+_1Z&_j?D~<Onjr0sx?<u$w8h7(N)P7Q^9diS+)MBwxbd6L*lTJhE
zykyJgNOC{(58=)su~`Kc*=3<~lF9GgEn3~rR`C|ltRBC~Kg6k6n5gZXWNyA`d>Gk;
zvkmmK+&G7MGx4SL!aGf2QcDUDMpx5Jm3rB`=K)kk>*Fl&P#E#WHATGL2u6g_(1frn
zYKx6vO6GB}ecLz+jAPW*h!5HW3P<p#VdsM=it(1e{CV;Vwfq=)1h+&<e*F<K&_k7^
z==w2Ymd8YvWBXHPJ#ocbx#Da)_2oK8_nj$N>dm@&SDG&WSFV~|POC3}@Ojz#P;IgW
zONlLRm<pnavf^jfp-Qp3Eg9m=rC9FOquKbq@IEkNJsj?5vs4{Q*|T?%d$RG!W`ETC
zIxV4{xLZw(ye~-}dUWXh1$_7`=%aCPD<@2ytoK}j=c;eZTj#@2ldNK`RMF4YDbiM<
zL|c!zh5`I8S=6g2OF==$gk8sMv4z?3u2u94g(N1C?e{@hvf^wak9FVAdPR#Z?qhH8
zWhb--D#U&$KFRDx@QX=CQIzYtr6M)Ybd85o;Knnesn#M#_t#QP2o+ohAD28jRnv5;
zRSrthdEk%KHMOd1%%^0G%THAJQYD|m<;T&W-Xr}|s_g#ho#cShaT0%-l6etvWn_=1
zsKoSW8<y+Mq}SrzsaPN7tTc9|64Rg#t~}djtVFCF)O$*QCc1gjwVW_9PY>@wtng<n
z-$kROygAogD&*~!Kv8y2<)pE`I+q*6N0Xd`)+?>b-oGIHc#Mr1<*$GuV$2?+r&P(3
zG(Pw&knPysV+k^4)MvMoGshZrJC{ow;xj^5C9B^+Y^A1EO6v@+HNJ$sh3Ka+_yIgd
ze<(<P*mZ6S%Qb0vG+W;>X5=2|;bvpx`m@FmA2W$p@Tb^#9F}u*Y*%#)Hf6jyyWN49
zw8rklS5wFCGA=(hc5AqN>e$WaGGk-6kjwDcjap*&8dM!_JBBF)i^wmru`sl!Fe{{4
zoc>JnExJ<MP7@CnCw@biVsZL87%6CIr@eJ2qGI<VT(IlA=5p-%PW%DwHSfLX1}HdF
z%)Yq<FuH75Cc%9naUVvP^2efliy2yHX!$8E6wj1~iDo`iI<goggvI-)G4?#}ZhK<~
z`E?(^{)k`yn_s`fuaD7nzxFN64wQ_7hiIPA?#Fe(-mWS`y9c>6-uW%6rjan1g>6z$
zi_XW!*wDNXK!YOMb;t}oj=kP&ZdBq!nnpWg(HCLmeys?6qVDO);dv>pqV7WE($p>2
z2vK)Pi~ayxW<z@&1E1GTYdo*}JC~6|_B?YsYETb6-oe<2u0`Fus9Nz{k{&)4(jV6J
zp7VZm05Uz=y;S>xeZk54=Z3a{QIEV5{TATRt9ZOoC?9WBt|3W0;W!ovMe+AmTj+|<
zbz!>4UxzE9V-<A#zzd=3$aDJE-)}0YiM$?lQTcPvah>5I+t6!RIA56RWc+p$QP7Ip
z$Y|jpItCTxudBRXJodz2To`*6wzKH1;8?$}m;V*j@|Q#eQZx1bWh8qrJ^g`KINkjF
zcIBrkudR;!rn0UQe~Z8P+R6M+?XzzHTwNLYTXp2Uni+qjhjaR#zhy;Vf0>rXH-pZS
z->bim*F@g0iM+Qg@>b>O)WdpspG{xzQs@ow5UBF{%Jr2uRJ!-|#{VAw4z?d$AAg&I
z-i1LlxUO2pSZ=`A)aGjsGGBWGvdrmZ?Y>RH24ABSFHcQpcwwrk9jJ}K<PsByq6}V?
zTH1Y-sb>wLPS%N+vU024P`xmh<#J(X@urgE+&YOv-RER28iY^J!KV~Wy95qyfPdBi
z1_4h1e+&HCit<f}nO?vr0G|Xr`^f0%0H7a`-ral*Fdt2skGZiJa4HtcTENEuI{~L*
zAJhwYV+{O&PXOlQuHkQh#eiSIuA>(4Hf-KH0k20;-vf9z2G;igv+$JlMZiUX#{nM(
zEW|?aL%=7Y?=av1U^c?zGT?)N-GEck21>S@S25eBeA_t_$LI9g#^)3MTzooT9vz)U
z3^JwWXY3--iJ!d$d(mE&m%lu(@CwIi8*{d>C1)?1IrpLqh)nX!@X3K*+_ss?iQM)0
z<if8bgssfWzs<gM(l}Q*%l^MG3MkUQ1)rC}vjEWK3C8I=f&Me-H(KfTM$SO;efU(N
z&(<c;SDW-f;BN*!oql>b>u%8Rpf)NSvu?MM0@CjUeiSkAQUd*uNv{C@hgfK64{FNW
zKX2B*0ra_ukzfM7!=!Hk{dUl6(3hrs)(X3-e<$eKCq_r7S>><e;@rNz51|i&9zaY|
zADQ|;8<(fycpvCjS?Ts_(>^EYKL-743G@d{dIjjq5$n+e`m3Do1a1T9d6*<=du7&-
z7|8l5cOh>>H+cFmF6LW#vgVjRehBp6V7zoXEIP7obWkPKN6&%&$@fP`%aOO%(GCVD
zP)9*u0(wFWt+*pAoNafL4&uqd7`qKT1<0E^YI!pV!(;ps@brPlM~JGt{5$Pcd4=1v
zTzSr(?5e!!cW8QE@onSuyz=n)m3bBZyz<Jt;>x_~Re4VEfxjv*hrdf1gq|q$z^qKl
zcp&3}j0Z9v$ao;*fs6+-9>{ng<AHwy52)`$sqa4xP85xzTO3NsaEnApHg*7iW~PL{
zDf4vEB?6u$%j)}A^elr?z5wiO3Dx(l=>CY3x;KCK<Y)(#cgUL$jS5J`GJ`*&@zf{j
z(hRmlmQR!PLJ9f(lFSpptqo7b@_RPw9*3TxP*Tqu@aGbq&Xlllg2*WRh|DOvol;)1
zF;)NhQeN@l#Tni{uyYh1lkoB*Qs1a7E4%R82B&vQIvx}Avhs^m|FHq{d*4YK-;<6W
zCmno-grAUbo`lOKyjH?S32&0{HVN;Q@L>s`mat#KUrYF!gzrf>P6c3+eIHg--`h*(
zThidG4>cuYKi+an<HxHnm9~~fJa9}!_!x05jqRtr5<Eve<?d?pc>R13eT=?IR)u!7
zCF4Hsazm5915cJuY4QXDp*H?N>C{!D9<-mj8W?|we=7Bp?#@tsYm4{P*3#+kIK?$^
zU!CHpLLHle{`OPrD%RG~;A=g_b+mfwPk9}fOHOesGU_uP$ao;*fs6+-9>{ng<AIC^
zG9JiyAmf3I2QnVWcp&3}j0Z9v$ao;*fs6+-9>{ng<AIC^G9JiyAmf3I2QnVWc;KJO
z19<-sU+rZ~{hs}brArq&r`Oeo+JhnI{Gzg=;@NXUyi{^aNqJFm=?sDWdwh_Ew@TGH
zI97f-6+oRIlZek^LG>b}g^-2c{a5dYTF`j6Q)BAA&_w(=^Zn68{CK9`t4ze_F!erW
zB7Oo>?|mlXbD4TSG!cKA`JQYdej*!GFRoe$S$LZ^KgIivSuD>yugJoV_Bxn)?=}&i
z&x+;yxQY15=6O4b_$jP+wiP4tS?qN493d+;3vbD)_jeQV1vp2@X+`mT7CVEf_ie4j
zEQYshD^l^t&nrpfS8o@`vGm$)Hv1Eg**KOla-$u7t4;D}p2YVi;r~VA)qBuN*L-Ab
zc$;@^lar&UK1$2+v8C_>z4S-*s`smjm(pf@Y$^P?1Nc<-f1UH^vr^fQs$TkHKIwmA
zCNfC;JEegA_z?beiNBGENbli8c=evQdLKHS-{?2HZ8(u;SqT?UxTLc4Om5iNxSGlJ
zjE#r6od5JO@v}_g)qCTr;!klsW8<d{_$i9X0&fLA)p<AfO8kZ&IXQQ>l%aE!E`WcU
zX9)!V9y7A^K6onq&jFv0xK-zENHy$#IDZ~ncZR_5?<*rq=kky}4N3JLhXKwM@&6|0
zkB?tv=LxP~)fR{Om>*Nw>E`%6_CNG%6G;5~+khK^CwsR1my^)UDPM^H4Dc6lOyY&+
z*;M-fljHN)68VBZ|L!wHzr*$9v298I+zb3<`<X2HJ?s&@$j<GN{y8A4e?CpUXTjbn
z=&ybn$Vh7iVAFx041X5OajN`w$vEO4J5SD&dLEVi^);zyIoDIj)VV3@z5P#fe#vA3
zt&+du87IdofBt(K{x5KR9-Aq@I58r1JtFn&+$Hq%qQ5C=JRS<!2H7t98B0n}rqTag
z8vF<xLVk0~c~5o^%a`~Iq(2u3^=z8NpDF#bOyUoszoxLU>)L$IFPSXh3gD^VlgG=o
zQh$#8LJ0qEJ>*&?{!<R2g#YdVvNtQdjA#CP1;F3U@q*WSJt^aA!)_->JIe(1;WYej
z15e{Rc|BSJ|I?{#Tiy|RgckhfLK;2Q+&_vd4sQUS=9%Pi(ZTuiSf3nZ_eqie0G{ei
z_S?OZ|5f>g8veTvka=9{PoBq~mHbc24);m@&vSg-K9xI?20w$x=b6k|;pD9OpA-^*
z20x8oUHTbr;b|Pkom1wm-~v7#5r=YJ!!YM*j>KPqE}#?@fK^HSIvJlgO8jbxKVQa)
zirW^BmrNEwKg~z;L-M&zcLMLU@Tu%q(%^Tc(f?D9&tr26g$Dk65|s7&gMnbEv9ZXD
zpM+7Tqq&1^ZZDmj7Qjhc4IS>L){c5ltGglC;Sabyp-s%&(bn1O3;G(0=FeMDo|?&x
zADC%zd;EUSW;cGP#*d@D{GK+SyCKxpwizOpk{g`C1lHi3Mo*xv$lKY8v(8orYf2V$
zw)nihjV%G6+uPBO)4@XCAe02XjqYNwl$N;ZG_W8JZX;bSbX*upI2z8=-hdO~gaDO`
zTUwZVMa|V!l{F9v)w`?ds5huuzN&Jii+=2e&XIHDU_`e|mq>ltD&}7H>8mPNRxbrD
z!P<sI1V4$+tl;Y9%U8SBxYtxx)wta1bhL^Jepne!C!-_D#7St0xOVlG1Dx|#zI3(t
zp&x$!8cfCiL~ggQ!4ver2_^G8J37e?-W%Og!%fT^@|)VKuLc$8wYft9UxPeiElJn^
z>tH#lD}D?cY%23KG`Kf*_#52#J)#c34~OQpFe<}ubS|7a+bz)!G!jS0CF1xwZ&r^i
zn?q;Wxf=o<?q+l|o$>ckPUE8!^-@?qA2#3!x{_KizBJKJ76)V#$koO8B_-3x+^I>%
z^3&|%I2=T0s&EH7{1m+LWAWmA6cX<1c-?KCCFHEt#cts+I!lji>fD^n{t=EZ6h{zB
zMb-|Zs!<cKni^W(845Hf2Nj*$7f7<gy=LW7HGI(RI4-e0(AeQ`bMx;YwA4dcIgSP7
zu~16~Czi}Z-;a$AekNd&?vK)~;(*4nEp*dpp$1VOd=$kr5XY#MCm@co+Z?{~+{Tjf
zghumF;6uXgt`7uEvr5YALoKbsIV$Y<v5%&{r6TzGIf&jsh)+u5+{Hv2<dKPqNKBxX
zN#cW#%@jv1QWZ3z!(|JC9WwGUG*ITj+PN76MKlDR-`Ij_%H7@(bo28dsk@U;Y)mxh
zQ~amLz%}+bPqio^yyAy>ic=yJb<n89p_1mPWJQ6^Z9z{xV9+mMv&yx!<9N_cRs<7$
zMU_?6vxA-{S!!wz6>;a!ZfRgeRBHAFnpsi9=62{45DNyU+~o5Iu&5*y+@Se=tsWAP
zxz5%gE233{6(L*H)PW3+!^D-lw8-DVXYe9lvs@LM8=yp$gs4~^g@nqZ22UGiry?Pa
z0AfX0n)%Pdshz_A57O-uwwSm_7pYuk6g*er6(C+~x)25WYOs=5&(RcgTA7ho`!j{6
z+kC5hP%2XJBE=|SvivgO@l)^}s(!j(q@>_<Q8drORQFR7&FFUKG<=kNpUf!ODa+Vi
zaX%?}xy@qN0*|e!DX+dKuAur}I9PZ}_TLS_(s!;^{pxw3f~8Up+gzR$pMta>rSEX7
zvU+Z)V6BuR`-w-{FVXB~WXPvVUOit_&?ya8^(%SR{%$E>B^9dYkP52rwUa#E$|cKh
z2ac*B`zWdJ^(!d1<AR85a{otwv&yUInhF*tIb7bh;NC{0dy?eU^G^kpy^`IuU*W%;
zB(Lso6|_5*q=2ekh5b4*R{PcSR0Y-d`4xY1`yZ9^s{hn;R|TnmttnalJ0Md1N<R5q
z^rKc`<dfx}O_Ep7aTVM}gTs=P-xTT~GIVRD*wphkbzXY1zm&X!zk)2?f+>0RTzL9o
zAdwWGD8<VP{|68#_LRJOeyq-;SB_EfspOPhJ0MH`Gv(#)IutJf5@|pH^Qz<(d;=7#
zym|j$Aw(+VeXdgAR2d0}0ZEstU)`@)Gzo@^J0zn7&cq^n7iFryI0>)hXC&c?my#8#
z*bx+Q?UeQB)8vXo>&&J2sCKLQgW_A+j;xus_(k@xa=fIddKKejWKzjrPY=A2P6}XN
HljZ*po$`*+

literal 0
HcmV?d00001

diff --git a/programs/bcc32/t2fasm/t2fasm.cpp b/programs/bcc32/t2fasm/t2fasm.cpp
new file mode 100755
index 0000000000..5edaccffa5
--- /dev/null
+++ b/programs/bcc32/t2fasm/t2fasm.cpp
@@ -0,0 +1,420 @@
+#include <stdio.h>
+#include <string.h>
+#include <ctype.h>
+#include <cstring>
+#include <string>
+using namespace std;
+
+char str[20000], *word[100];
+int wordlen[sizeof(word) / sizeof(word[0])];
+
+char words_ignore[100][100] = { "?debug",
+								"if",
+								"ifdef",
+								"ifndef",
+								"endif",
+								"macro",
+								"endm",
+								"dgroup",
+								"assume",
+								"segment",
+								"ends",
+								"public",
+								"proc",
+								"endp",
+								"extrn",
+								"model",
+								"label",
+								"end",
+								""};
+
+#define WI_macro    (words_ignore[5])
+#define WI_endm     (words_ignore[6])
+#define WI_segment  (words_ignore[9])
+#define WI_ends     (words_ignore[10])
+#define WI_proc     (words_ignore[12])
+#define WI_endp     (words_ignore[13])
+#define WI_label    (words_ignore[16])
+const char *WI_END = "END";
+
+int nwords_ignore = -1;
+char *words_ign_sort[sizeof(words_ignore) / sizeof(words_ignore[0])];
+
+int strcmp1(const char *s0, int n0, const char *s1, int n1)
+{
+	while (n0 && n1)
+	{
+		n0--; n1--;
+		int c = (int)tolower(*s0) - (int)tolower(*s1);
+		if (c < 0) return -1;
+		if (c > 0) return 1;
+		if (!*(s0++) || !*(s1++)) return 0;
+	}
+	if (n0 && *s0) return 1;
+	if (n1 && *s1) return -1;
+	return 0;
+}
+
+int strlen1(const char *s, int n)
+{
+	int i = 0;
+	while (i < n && s[i]) i++;
+	return i;
+}
+
+char *strcpy1(char *r, const char *s, int n)
+{
+	char *r0 = r;
+	while (n-- && *s) *(r++) = *(s++);
+	*r = 0;
+	return r0;
+}
+
+char *strchr1(char *s, int n, char c)
+{
+	while (n-- && *s)
+	{
+		if (*s == c) return s;
+		s++;
+	}
+	return 0;
+}
+
+char *first_not_space(char *s)
+{
+	while (*s && isspace(*s)) s++;
+	return s;
+}
+
+char get_word(char *s)
+{
+	int i = 0, k;
+	for (k = 0; k < sizeof(word) / sizeof(word[0]); k++)
+	{
+		s = first_not_space(s + i);
+		word[k] = s;
+		i = 0;
+		while (s[i] && !isspace(s[i]) && s[i] != ';' && s[i] != ',' && s[i] != ':')
+		{
+			i++;
+		}
+		if (i == 0)
+		{
+			if (s[i] != ',' && s[i] != ':') break;
+			i = 1;
+		}
+		wordlen[k] = i;
+	}
+	for (; k < sizeof(word) / sizeof(word[0]); k++)
+	{
+		word[k] = s; wordlen[k] = 0;
+	}
+	return s[i];
+}
+
+void build_words_ignore()
+{
+	int i, j;
+	nwords_ignore = 0;
+	while (words_ignore[nwords_ignore][0])
+	{
+		words_ign_sort[nwords_ignore] = words_ignore[nwords_ignore];
+		nwords_ignore++;
+	}
+	for (i = 0; i < nwords_ignore; i++) for (j = 0; j < i; j++)
+	{
+		if (strcmp1(words_ign_sort[j], -1, words_ign_sort[i], -1) > 0)
+		{
+			char *s = words_ign_sort[j];
+			words_ign_sort[j] = words_ign_sort[i];
+			words_ign_sort[i] = s;
+		}
+	}
+	words_ign_sort[nwords_ignore] = words_ignore[nwords_ignore];
+}
+
+int find_word_ign_sort(const char *s, int n)
+{
+	int i0, i1, i;
+	if (nwords_ignore < 0) build_words_ignore();
+	i0 = -1; i1 = nwords_ignore;
+	while (i1 > i0 + 1)
+	{
+		i = (i0 + i1) / 2;
+		if (strcmp1(s, n, words_ign_sort[i], -1) > 0) i0 = i;
+		else i1 = i;
+	}
+	return i1;
+}
+
+char *find_word_ignore(const char *s, int n)
+{
+	int i = find_word_ign_sort(s, n);
+	return (strcmp1(s, n, words_ign_sort[i], -1) == 0) ? words_ign_sort[i] : 0;
+}
+
+char *add_word_ignore(const char *s, int n)
+{
+	int i = find_word_ign_sort(s, n), j;
+	if (strcmp1(s, n, words_ign_sort[i], -1) != 0)
+	{
+		if (s[0] && strlen1(s, n) < sizeof(words_ignore[0]) &&
+			words_ignore[nwords_ignore+1] < words_ignore[0] + sizeof(words_ignore))
+		{
+			strcpy1(words_ignore[nwords_ignore], s, n);
+			words_ignore[nwords_ignore+1][0] = 0;
+			for (j = nwords_ignore; j >= i; j--) words_ign_sort[j+1] = words_ign_sort[j];
+			words_ign_sort[i] = words_ignore[nwords_ignore];
+			nwords_ignore++;
+			words_ign_sort[nwords_ignore] = words_ignore[nwords_ignore];
+		}
+		else return 0;
+	}
+	return words_ign_sort[i];
+}
+
+struct CSegment
+{
+	char name[100];
+	int state;
+	string text;
+};
+
+int nsegment = 0, cursegment = 0, stack_segment[50], nstack_segment = 0;
+CSegment segment[100];
+
+void push_stack_segment()
+{
+	if (nstack_segment < sizeof(stack_segment) / sizeof(stack_segment[0]))
+	{
+		stack_segment[nstack_segment] = cursegment;
+	}
+	nstack_segment++;
+}
+
+void pop_stack_segment()
+{
+	if (nstack_segment > 0) nstack_segment--;
+	if (nstack_segment < sizeof(stack_segment) / sizeof(stack_segment[0]))
+	{
+		cursegment = stack_segment[nstack_segment];
+	}
+}
+
+void newsegment()
+{
+	segment[nsegment].name[0] = 0;
+	segment[nsegment].state = 0;
+	segment[nsegment].text = "";
+	cursegment = nsegment++;
+}
+
+void tosegment(char *name, int nameL)
+{
+	int i;
+	cursegment = 0;
+	if (strlen1(name, nameL) >= sizeof(segment[0].name)) return;
+	for (i = 0; i < nsegment; i++)
+	{
+		if (strcmp1(name, nameL, segment[i].name, -1) == 0)
+		{
+			cursegment = i;
+			return;
+		}
+	}
+	if (nsegment >= sizeof(segment) / sizeof(segment[0])) return;
+	newsegment();
+	strcpy1(segment[cursegment].name, name, nameL);
+}
+
+void outsegment()
+{
+	if (segment[cursegment].state == 0) return; 
+	fputs("\nsegment", stdout);
+	if (segment[cursegment].name[0])
+	{
+		fputc(' ', stdout);
+		fputs(segment[cursegment].name, stdout);
+	}
+	fputc('\n', stdout);
+	fputs(segment[cursegment].text.c_str(), stdout);
+	fputs("endseg", stdout);
+	if (segment[cursegment].name[0])
+	{
+		fputs("  ", stdout);
+		fputs(segment[cursegment].name, stdout);
+	}
+	fputc('\n', stdout);
+}
+
+void transform_label(int in_define, bool label = false)
+{
+	if (in_define)
+	{
+		memmove(str + 8, word[0], wordlen[0]);
+		memcpy(str, "nextdef ", 8);
+		str[wordlen[0]+8] = '\n';
+		str[wordlen[0]+9] = 0;
+	}
+	else if (label)
+	{
+		memmove(str, word[0], wordlen[0]);
+		str[wordlen[0]] = ':';
+		str[wordlen[0]+1] = '\n';
+		str[wordlen[0]+2] = 0;
+	}
+	segment[cursegment].state |= 4;
+}
+
+int main()
+{
+	char *s;
+	int in_macro = 0, in_define = 0, i;
+	newsegment();
+	for (;;)
+	{
+		i = sizeof(str) - 200;
+		if (!fgets(str, i, stdin)) break;
+		if ((s = strchr(str, '\n')) == NULL)
+		{
+			if (strlen(str) < i-1) strcat(str, "\n");
+			else
+			{
+				while (fgets(str, sizeof(str), stdin))
+				{
+					if (strchr(str, '\n')) break;
+				}
+				continue;
+			}
+		}
+		char* p;
+		while (p=strstr(str,"st("))
+		{
+			p[2]=p[3];
+			memmove(p+3,p+5,strlen(p+5)+1);
+		}
+		get_word(str);
+		if (word[1][0] == ':') transform_label(in_define, false);
+		else
+		{
+			if (word[0][0] == '.') continue;
+			if (strcmp1(word[0], wordlen[0], WI_macro, -1) == 0 ||
+				strcmp1(word[1], wordlen[1], WI_macro, -1) == 0)
+			{
+				add_word_ignore(word[0], wordlen[0]);
+				in_macro++;
+				continue;
+			}
+			if (strcmp1(word[0], wordlen[0], WI_endm, -1) == 0)
+			{
+				if (in_macro > 0) in_macro--;
+				continue;
+			}
+			if (strcmp1(word[1], wordlen[1], WI_segment, -1) == 0)
+			{
+				push_stack_segment();
+				add_word_ignore(word[0], wordlen[0]);
+				tosegment(word[0], wordlen[0]);
+				continue;
+			}
+			if (strcmp1(word[1], wordlen[1], WI_ends, -1) == 0)
+			{
+				pop_stack_segment();
+				continue;
+			}
+			if (find_word_ignore(word[0], wordlen[0])) continue;
+			if (wordlen[0] == 0 || strcmp1(word[0], wordlen[0], "align", -1) == 0)
+			{
+				if (word[0][0] == 0) {str[0] = '\n'; str[1] = 0;}
+			}
+			else if (strcmp1(word[1], wordlen[1], WI_endp, -1) == 0)
+			{
+				if (in_define > 0) strcpy(str, (--in_define) ? "newdef\n" : "enddef\n");
+			}
+			else if (strcmp1(word[1], wordlen[1], WI_proc, -1) == 0)
+			{
+				memmove(str + 8, word[0], wordlen[0]);
+				memcpy(str, (in_define++) ? "newdef  " : "define  ", 8);
+				str[wordlen[0]+8] = '\n';
+				str[wordlen[0]+9] = 0;
+				segment[cursegment].state |= 4;
+			}
+			else if (strcmp1(word[1], wordlen[1], WI_label, -1) == 0)
+			{
+				transform_label(in_define, true);
+			}
+			else
+			{
+				for (i = 0; i <= 1; i++)
+				{
+					if (strcmp1(word[i], wordlen[i], "db", -1) == 0 &&
+						wordlen[i+2] >= 3 && strcmp1(word[i+2], 3, "dup", 3) == 0)
+					{
+						if (word[i][0] == 'd') word[i][0] = 'r';
+						else if (word[i][0] == 'D') word[i][0] = 'R';
+						word[i+1][wordlen[i+1]] = '\n';
+						word[i+1][wordlen[i+1]+1] = 0;
+						segment[cursegment].state |= 2;
+						break;
+					}
+				}
+				if (i > 1)
+				{
+					int word_shift = 0;
+					for (i = 1; i < sizeof(word) / sizeof(word[0]); i++)
+					{
+						word[i] += word_shift;
+						if (wordlen[i] >= 4 && word[i][0] != '[' &&
+							word[i][wordlen[i]-1] == ']' &&
+							(s = strchr1(word[i], wordlen[i], '[')) != 0)
+						{
+							*s = '+';
+							memmove(word[i] + 1, word[i], strlen(word[i]) + 1);
+							word[i][0] = '[';
+							wordlen[i]++;
+							word_shift++;
+						}
+						else if (wordlen[i] >= 1 && !strchr1(word[i], wordlen[i], '[') &&
+								strcmp1(word[i-1], wordlen[i-1], "ptr", -1) == 0)
+						{
+							memmove(word[i] + wordlen[i] + 2, word[i] + wordlen[i],
+									strlen(word[i] + wordlen[i]) + 1);
+							memmove(word[i] + 1, word[i], wordlen[i]);
+							word[i][0] = '['; word[i][wordlen[i] + 1] = ']';
+							wordlen[i] += 2;
+							word_shift += 2;
+						}
+						else if (wordlen[i] >= 5 && word[i][wordlen[i]-1] == ')' &&
+									 strcmp1(word[i], wordlen[i], "st(", -1))
+						{
+							memmove(word[i] + 2, word[i] + 3, wordlen[i] - 4);
+							memmove(word[i] + wordlen[i] - 2, word[i] + wordlen[i],
+									strlen(word[i] + wordlen[i]) + 1);
+							word_shift -= 2;
+						}
+					}
+					segment[cursegment].state |= 1;
+				}
+			}
+		}
+		if (in_macro) continue;
+		if ((s = strchr(str, ';')) != NULL)
+		{
+			s[0] = '\n'; s[1] = 0;
+			if (!first_not_space(str)[0]) continue;
+		}
+		segment[cursegment].text += str;
+	}
+	for (cursegment = 0; cursegment < nsegment; cursegment++)
+	{
+		if ((segment[cursegment].state & 3) != 2) outsegment();
+	}
+	fputs("\nI_END:\n", stdout);
+	for (cursegment = 0; cursegment < nsegment; cursegment++)
+	{
+		if ((segment[cursegment].state & 3) == 2) outsegment();
+	}
+	fputs("\nalign 0x10\nU_END:\n", stdout);
+	return 0;
+}
+