From 80161c02aff02e0ef60dc68168096a8ff6c6fb3f Mon Sep 17 00:00:00 2001
From: savelij13 <savelij13@yandex.ru>
Date: Sun, 13 Jul 2025 18:55:55 +0300
Subject: [PATCH] =?UTF-8?q?-=20=D0=B4=D0=BB=D1=8F=20=D1=82=D0=B5=D1=81?=
 =?UTF-8?q?=D1=82=D0=B8=D1=80=D0=BE=D0=B2=D0=B0=D0=BD=D0=B8=D1=8F=20Audio-?=
 =?UTF-8?q?CD=20=D0=B8=20BIOS=20=D0=B4=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=D1=8B=20=D0=BA=D0=BE=D0=BC=D0=B0=D0=BD=D0=B4=D1=8B=20REA?=
 =?UTF-8?q?DTOC=20=D0=B8=20CLOSETOC.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bin/CDX.EXE     | Bin 7414 -> 7791 bytes
 bin/CDX.TXT     |  10 ++++-
 bin/history.txt |   8 +++-
 cdx.a80         |  47 +++++++++++++--------
 command.a80     | 110 ++++++++++++++++++++++++++++++++++++++----------
 vers.a80        |   4 +-
 6 files changed, 134 insertions(+), 45 deletions(-)

diff --git a/bin/CDX.EXE b/bin/CDX.EXE
index 114afa2ab839fb42839103ca90a71f164f239974..f990cf246d95e40380c9738877e36e14e8656080 100644
GIT binary patch
delta 3380
zcmZuz4^SIb8h;z|hrc1=U&Ei4UAAJRfo`!9nznnkfK-bGfmS_`9(UNYHy%)WJ*cfo
z15H8xhn>00IdcaUTRJ^$K*q^<b(DZ`thj^Jfk1Cor8SIRyJve!ovUWKZxdkj=3cV<
ze(!s4f8Y1M@7r(Ry&Yfg>fUHE^bv;hN@e|K%?~u<(j8orm5L;+jx0p0U`S(`SFLK~
zxiz4D3=@hMuRm+$iMU?wT`PCgnyoTjwYokkZ{$dZ`-K(TgFIu!RyqWp)7@5LrZW!p
zv(qfLTjrrubOcC^>@v0!^AKM9UG?}h>&(3Rly!IJ8He(Hd4u?YadKS!^t78&i=<vI
zrsB888@M;E?gm)Es-Ky@C(AcgS_d;Ltt=w7h6`Ap%Cqb>87{c=$zr;m6u0V=3Bv{Z
z?Twc73*sZxA#ocOMWkQg>KwFuZ7aHe%x$|j!h4s&UMEo91#(czFH)nR^*zuU4rcRS
zPz<swtB<dH!l>(`gVwpaz;$NV<QCE_hUo8$xc*-0b53jpS%e{4v=<T+jpMTkV&(O=
zM)B0Ow#GU9z0pgJWOT%+xzQ;>w>v?^aV(lNlSgX4a;jH^^P_)lB*_`K*)@8)5!fZ$
z6@JI%6cm=^q0qBAg+<RI!`a+}PZpuqTJoOA%PB>PXZPh56d}dgg2zirQTaJbVNu=z
zke0w?Ve#tHlDq@CsK2Q=Z%=M%VGg32{EQMLn-Hx7CBz?_xZgDC6m*=l!^@ff93t8z
z32|dcxuOk5@_4g&8UIfMccO{->Mylqz3Gb~3C~KH-Y}N#(0(xl-oq>vLDTH=(w#_X
zTvJp2-KEG0N;J(+sMs7Cf`$cchI=AhLDCQ!9Sb@+cN3+cV}J-)2)q{q9$E=Qz+Po|
z79us@6NcAjl;PY`)4ar9D1o7<XwAO{STiYR=<g30Cq<@KrnA5nWWXueQ-K9&XlzY@
z0s>CaMg@%-7;cvhc(sOJ`avbeG40nuRC9LT)Nh;0A5m}f=p%_lY(OZ+Rdh5^7+F}#
ziS5*NCo8QvjLWC;@$JNuy=HMwwn{9cf+j3@y^F-}fJ`WR-DVd0T=;!IA0FYCU0jtB
zhJI5)uR2tEMWX!NnPunbP(Wajy4*vn{jgtxxVp^46NX;CB8fk=Q7C!C##e0O4<!pF
zR{$mOhZ2R7OMqhdL$N!AlFK&EW6OSkd&`!M<KGHpdwYfbxxJjX$5eJst@B9tC=aa!
z{sA^HFtVVOc|S;Jd0lb{mWMn`XC$jX!(~&wnf)N__Y18eCW-&9mrXT;cv6zDAg3_2
zWebF%JmsQok}j_&q0d4rGQ4K!4}@8|3uS}0mxd<^G$JXD@ni=%cd@h<%z!dNYoK=;
zqu8`JY(m);+v&I88phz6oI&OVIbi`I>=j0~hN*1nx1<`<WAcW5O2nsKvZY<N@m?<<
zvQKz|Pq}1ExolhH7xN(nv}i<qa9Y?uX#03wQzU3IvMZ1S5N_D5*@Y{JKey<%NIRUe
zfCS#nA8kr6r<q_yq$Q9jMkNX)3LOSKgrN@tB$Yvuf$(w@=T<Z1-z*l4v{r{O=#0|Z
z9YUY<i;{xKS(~}r=eV$DIvg^be=MFqpd&h4xV+{p1ig01VHT;;6OJr=>;z25@dq|Y
z(`lB~dH0X!r*=%~)-Q0&Nv^gz%S1Me)i$48N*<R+8KnE<RQ3jFOOb(b!$gr-b-lKE
zuFBu(zEf`vp9{TK*E|tAK^-IONtQR`#F>^Q&FD-sU!BAs*|@-0CvM`8BriaP^fVKe
z7BdvEAeySzcD4||Z(%6qMoVW4zo<R$kgNvLg7(#&3tIFc_Z+}w1;9l=bf5+8nLqep
zB)~`a`XL6e@0=eZfSL!_;g><{unMiiPzk;~LGks7CqbK*!jsHbaYY?DR?s4u_qUPb
ztaF!8ya4}e6)nt{%AGqQu@T}vZISZAa1lF*O=qV-0)vG2x*L{M`NX5j0bwr{ggvSx
z3>QPVw_h29%nXJwF%_x>OVTS4>qQJDjgLdPfdVSS%gd+Zxvi~t;i64kQ7etF-P~Sf
z@VJ?jCM20VTyxhC{=bwy4Qm#a8Z$Z0{np{ueCHRObQfxR*uzrATZ)XAYH7A?LIn#>
z1uE<6h?x$4Bvs$4H6UO7Zv6WhpBcGmG(szkEO(}LUat7i*{b+(94;4=7E+!LpT4K2
zDXo~QSBWXc5jutim%x{g+uSxkz`}9BV_#Ov$KmAxIWrtWy};Q687%Y>7e}-+>!Z7$
z+;Fm)-?VZ49rMJ^4(+m?i|v``@;c_B=7Q>z!3)0QslK`g7ks6@=ZJ6HFdPYkrf=GO
z^$$6H^=WY7zIwt}pW>@0iRxBne`o>bVH}})e042ofQljPpS6dDfWJRZo3#T+NXjhp
zdFXb_H*G>mM|(qNPrH{Z=vw@#8K8#C2fLQ-LRm*U78cMP6%EhxA$&?#JAvA<7)iR)
z78MP~nR?n?c({Kdy^?8fce32C+E<au-tMB+#z{#ZY%|SIxI-8;d%4t(nP4X@51x-6
zW7~rR{tMn($ftF+L*Ao>v7dK9ear9on3l6N>0iKn6qbxFGq=Oyv2Ph=_$KTo^FVmA
z<z@$Wr(^M2e+O&2*&$YDE5%ckY!08><Mj*iA2s9z2g7+Gqf;p3?7rg(zPd!AY#LCE
zuP#<7n*o&MtJ^4)eFA8cuPzxp1obMboXkQ4teAl(EP!jY_v~0G%EE;~cugxHuuu-~
z>r`uzJli=Rp!OY$@zuscG$l^ou}!|(<OLucVEx{tv=Ap+Zd^?s9zw=L66(Jaz4}ji
zbJ&tb?;(~MA|fFI>*CFrm@#^z6O3W@MbI+nS|YNNZ*<-QiP<IejplZ-P68pIK~QdA
zZIxWg@DW9&YZcv1MJq-tyFjTCve&)ZL&tprCIun@Hb4f?9#A4J*DVarcnP5!1|hJ0
zVec&D=^{ir#I(d%)$x{@?t0R64Q^i3XWe`apNh0Es`z-*=iP@*i``F~Zgl_JbhEq0
z^hI|*ceQ8nI9W#?BWp=;c(;Ua5uWa~H)L_@v_297^I2C0+N@Xjku%C4r0N9Ukwob{
zk?N0Bb&T&wtTfy(93QzC!@Nwn=3Px%53Mn>aJKnDDUTRU>tXcTn(V;)Wp;gVr-Stp
zQN2<nVh_imS>h<eJ?@y{a-<H*5>%{HL=A)eENBCzB(5;i+F04s%<z(SN}ikL7<=3i
zO=$mwDU|Td{(L0yrQy-t4md%%CdCKvI5Ro7&0CX-9)gBh9U+nu-3>T=z++e=HqF8Z
zjaiO+Cv3X`|K*9JFIM5(9v*&Y!+u#fo|F3wzIw!DDs}NG>3H$;l~p(#Gx0qqs*cvA
z=j29&`d6(TKVg}Uaq7b3@XG2cyzYNj56cqXlv(^Fl@b9wn_gV_q{Nt!k%5ZyN)8s3
znsBOtq9Q^ct2qH2N2{gTH5tlzvF7;m`0wf}PyT-m5=}%XLWc9wImPfg`bpcC`SA8f
Mn6Hym%xn_zUvPM{S^xk5

delta 3075
zcmZuz2~Zo?8GZ{wLV$!MFvwt=T{gigBzQv-M1;LIwh2A}QRAZySKPX3(q`fYHx-T@
zDS`@Y3$TPdmeUz*TxUY3M`U-?FmXCAheg<^JH$?HA)0NX%!p}Cx2;njiEVBA?{bXW
z$-?S=?|=XP*ZcN=`>)lvpYkksFsBISv{Gq%NOzw`oZruNIH`1E)?bQf6-;TY<bqR+
z!n1?=r!iq$bb7awC;I!j_nq7e&N7wdf^+Ck4eeY{ANQ;it3ctgZBAMZ&l&%r#4OkS
z+TD{Zwk9D=sb~#I&Fn3#919ax?+tBmk`0txsB^9<x$ehy{ZY{-UNTPvCr2o)NSYL4
z0WJjFxZgNO+F+g4erNJ_LX~BY^IXXuCyPiua~7*qg>S_y%-JDRp7^MV6jzz@2<EI;
zSnhb|toS6gQ+$jv5bvDjKJn9vg-ncpx%SxYVLo;X!VQ3_8(>_!Ym$#rqu})-cuj+-
z`4~6`+1vAvFBZaV9H0{yZ5@Nk*@q^INV}*u-4$`u?d?qg>}ymYoTo*vl?b*6ujYt*
zrjNFZ2d^A$zlL8N9c(8vG^4Mz2LSp4*b>LD+DY>Ah<#}EU^`foVoj3kw4vHsUx|Lw
zvB6rm8=dIbxTB^Hr5&!^Qn_I}a&>H~tgb`*I;uC<Z%5-UYh7h62<u_Zx@}&wzOr^B
z(sUqt37F%GI;bQ%bIk9D<cPt3tT}O#R>G9X9qf-O(@GJkyGJksmz8N;UB^^9Tvo2m
z_n(9!2QVN3EWmSEGdA}SjV%b!oPgVRlu8^s(Z{{@GcclO`stNQjElRcK@{njvS?hP
zs$uP8VN*Jhiwz3fa21^)Ckd+D^WD^RfR%Jwa7CyJe}edPzg?^-Q;7{!;<y914Uzc2
zK_)b4U3Ot$2)`@a!!@!@H!mZYGnSA0wJ8$O46^N#po>lc1QBT)!?ae0XC#Pg8^S!n
z^z+Tj_?^pz`YadUyn^4EC)67O<?uUmg?a;^On&DQhftsC;woHa4|B_0WjKCQXkhz=
zt)YI-+Gh#6w8pUXYY5Xyus_JoP0TDf1s(*1^F^}+f|S>9teK@7h4)A@U+a<<D^Ymn
zbt#cg@r2On5)BB?$U>)xN#YMo385|!e{Vusm@`#mC&k8mooj+_w2?5DA{H?N%o((J
z2@N@}SD6U{4NHM!hRYHIt65qPp}`AE>tGC+*}^QB&|q{O`u*=13?X4dj!#q&4iG~6
zFmttq%A~&;)p--9XxpSje4)WrnCaqUF<!k%*uv)<T=|)<C?Bl?R_M{NcE_Z!HOKYQ
zqN8+hWM;nxS^xteTl)~6M5qoMi=+%g4v^sZgE^TLwC_|>x?_$zW+j^A4xI{i2<8;*
znbco;`e4U7s&k$+U$9s*($D&Za{+_?o?jS{{tVK-a<iS>&Q9)?PC5-J&Og1BuQd{1
zc5#8uQUs$u_oQ8<MnCnJ;$xq}au#2kEiE5+%&!+cxE^{cWL&(VEC;yh&Qc56Ha6XP
zU?wjp&5Fs91EI2PxMtGl=56D3;@;`$&TD(+!FWfzD(zazl}|dyQ^u*6NgK)XcAU80
zHKQ9X@8Vxt#y___!oTEL!9SN5f!<TmMf|<XF5-A1P1*Ecb`hU-2?I24$e2&^|3(O&
zkLpuTO4)#FME~>hh#q~&eE{%Q62PboPojwa^%F8o2e@v%3^9NMoif~x0P9xDSb~2`
zT!eekB21CsYvUAeLp%xY^b~G?A5Ur}$KI90zA(I>4XhTnMd1I+M3>L5DlZ4ZBgAbw
zEb)bT6Wf7JmgNJlLBhvI+GbQ$#5yIsBvc}{PDwCts=2%)V?fws*goG)Rm9PG7&s8c
z(6V3<XaFXliM)2}&{FP=BRAltE!>48G`{dN5>qAz?WD9I$wtz2H)Qb5Qu+|+M3p)_
z8RWwL5#1eGaA3r$>tkD_PB@e9t5&OZVgJFI^l?hGlqHO-K-2eq^^*mCNA!=N_|i4_
zy~}Ys8lurKon&UY>qn*(Ngpmfn)Kl+xC!5|y75ssXTCj2>BRz*O3XJ8)0r$(1CAN4
z_vq9h3rBB-_m)x-g!c*LzRfAr^JeedehUM{Tf_SD#o3LIKM$}aO>R!pGey+&=v%y;
z!#l+Vx~HHsgX;syk@)_Cc<ahYe0#i!Xm(>b63$tg+;Q8t0&!a*+<4qZ#BKR;8%azZ
z@kLXru?k;tstKRh1rN|egsp46scI<oM}=#>U_+h1*7wuYCmc;~q5h7$t>nHt#=YAc
z{ogRa4R^kKifHi)4R_pF>YQgo20YKJ`TVck#1GwArX+pAZODM&Ece|*c$%z8e_e9V
z9bh@mJ&!E++(We1JR$jmGz(>e4&j_V#(BCgCkH@1c`9S<@$Tfg`X#Tj@`Ycyf$}Ia
zcBvaW-udp2Xa!4?4=6xpvH}kqW?C)AOvSuC^$c!;kooO=lQMNSM_g-4yohI!8M>R2
z2%?;oYY252WPQI(Ghj8o_tWwmH9g!jJ<%(g9@bLRBkn0viU+BLYxuQ_m@LE}xKIGL
z29EiYJwk)o8{eN3Z_O1No&uB^Z(SlZlml88Z(S}ltO2wl-kJxsh2~e<NS2~ORxHMI
zA`qeeSud7?N^#*_MBkDDlz`rP*Qi?Hz(0F@FKU)$z1us;$_1zN5HhVW%lz`4(ily1
zNzN)$=aUS|N!pQEJo=+v-j2aoE&28RRYNDhutHm!SKT`c68n%aF#2{c8z2zk;f6M?
zI4afMw_jW5SU3qrsEnl1P%pSO1I0(?M;N#@#};S~I{-AlTB}5Qvqw00IY#XAz(ft1
z3hS=|nWI1lwWZDzvT89?f>sx*g5!{VnG7hCZKUqLrQBm9Evw-tX4&lF_wfa2kN!m!
zztpnD(_-1`*=4Er{J>J<*=MQsRB;dYMfa1f<jdrbNhr8S!m~t$XW`w7h7Ot1VPiHQ
zD@G5Ql4KMx$eZ+1PW-uC>3gLB9%Rm@*J7B}_l52cy5nA2XJ!o<y8B9nX7sq%cTvC3
zI`=l(hb}$S!^Vg=`lXh|wq&8J#K(Oc<G;-PRvMsxL2ElmMEbC`iP@BrFrL61SZHla
z27E1iHXOKUQsutNjE?j%hYTS__JDtk@n;YRPh$B=vVycY==U{eXJya&)she6=kPrP
zT39<a$-;r?b7#Mo`uHRGcVBto#l1LXW~|1o3C!}`Unit#QV?QJOWzF4FMLm|DE}{)
CV|fGs

diff --git a/bin/CDX.TXT b/bin/CDX.TXT
index 31fb6ab..71b1318 100644
--- a/bin/CDX.TXT
+++ b/bin/CDX.TXT
@@ -1,5 +1,5 @@
 
-CDROM Extension utility v1.03
+CDROM Extension utility v1.04
 
 (c) Sprinter Team, 2025
 
@@ -20,6 +20,10 @@ LIST [\cd\path\] [pattern] -- 
 COPY \source  \destination -- копировать файлы
 DUMP sector [offset] -- показать дамп сектора диска
 SEND hexline ["." separator] -- отправка ATAPI пакета
+READTOC -- чтение TOC Audio-CD и показ статуса чтения и количества
+           дорожек на диске.
+CLOSETOC -- аналогично READTOC, но перед чтением принудительно
+            подается команда закрытия трея.
 
 Ключи:
 
@@ -55,6 +59,10 @@ LIST [\cd\path\] [pattern] -- show file(s)
 COPY \source  \destination -- copy file(s) from CD-ROM to another disk
 DUMP sector [offset] -- show sector dump from CD-ROM
 SEND hexline ["." separator] -- send ATAPI packet
+READTOC -- reading the TOC Audio CD and showing the reading status and quantity
+           tracks on the disc.
+CLOSETOC -- similar to READTOC, but forced before reading
+            the command to close the tray is given.
 
 Switches:
 -h,? -- help page
diff --git a/bin/history.txt b/bin/history.txt
index f96071b..c1414db 100644
--- a/bin/history.txt
+++ b/bin/history.txt
@@ -1,5 +1,9 @@
 
+Версия 1.04
+- для тестирования Audio-CD и BIOS добавлены команды
+  READTOC и CLOSETOC.
+
 Версия 1.03
-- поправлен cdx.txt
+- поправлен cdx.txt.
 - добалена возможность послать ATAPI пакет.
-- если нет диска в приводе, то не пишет ошибку, что нет привода
+- если нет диска в приводе, то не пишет ошибку, что нет привода.
diff --git a/cdx.a80 b/cdx.a80
index 305d131..f82e191 100644
--- a/cdx.a80
+++ b/cdx.a80
@@ -1,5 +1,5 @@
 
-; LAST UPDATE: 07.07.2025 savelij
+; LAST UPDATE: 13.07.2025 savelij
 
 		include macros.a80
 		include bios_sp.a80
@@ -389,23 +389,25 @@ MSG0		DB	0
 		DZ	"Closing tray..."
 		;        01234567890123456789012345678901234567890123456789012345678901234567890123456789
  _SETVAR .MSG_USAGE
-		DB	"  Usage: CDX.EXE [-switches] [command] [param1] [param2]\r\n\r\n"
-		DB	"Commands:\r\n"
-		DB	" CDX OPEN                            - Open tray\r\n"
-		DB	" CDX CLOSE                           - Close tray\r\n"
-		DB	" CDX LIST [\\cd_path\\][pattern]       - Show CDROM filelist\r\n"
-		DB	" CDX COPY \\source d:\\destination\\    - Copy file(s) from CDROM to another disk\r\n"
-		DB	" CDX DUMP sector [offset]            - Show sector dump from CDROM\r\n"
-		DB	" CDX SEND hexline [\".\" separator]    - Send ATAPI command\r\n"
-		DB	" example:\r\n"
-		DB	" CDX SEND 4B.000000.0000000000000000.00000000\r\n"
-		DB	"\r\n"
-		DB	"Switches:\r\n"
-		DB	" -1    CDROM installed as Primary IDE Master device\r\n"
-		DB	" -2    CDROM installed as Primary IDE Slave device\r\n"
-		DB	" -3    CDROM installed as Secondary IDE Master device\r\n"
-		DB	" -4    CDROM installed as Secondary IDE Slave device\r\n"
-		DZ	" -h,?	Help page\r\n"
+		DB "  Usage: CDX.EXE [-switches] [command] [param1] [param2]\r\n\r\n"
+		DB "Commands:\r\n"
+		DB " CDX OPEN                            - Open tray\r\n"
+		DB " CDX CLOSE                           - Close tray\r\n"
+		DB " CDX LIST [\\cd_path\\][pattern]       - Show CDROM filelist\r\n"
+		DB " CDX COPY \\source d:\\destination\\    - Copy file(s) from CDROM to another disk\r\n"
+		DB " CDX DUMP sector [offset]            - Show sector dump from CDROM\r\n"
+		DB " CDX SEND hexline [\".\" separator]    - Send ATAPI command\r\n"
+		DB " example:\r\n"
+		DB " CDX SEND 4B.000000.0000000000000000.00000000\r\n"
+		DB "\r\n"
+		DB " CDX READTOC                         - Read TOC Audio-CD\r\n"
+		DB " CDX CLOSETOC                        - Close tray and read TOC Audio-CD\r\n"
+		DB "Switches:\r\n"
+		DB " -1    CDROM installed as Primary IDE Master device\r\n"
+		DB " -2    CDROM installed as Primary IDE Slave device\r\n"
+		DB " -3    CDROM installed as Secondary IDE Master device\r\n"
+		DB " -4    CDROM installed as Secondary IDE Slave device\r\n"
+		DZ " -h,?	Help page\r\n"
  _SETVAR .MSG_UNK_DEVICE_NUMBER
 		DZ	"  Error: Unknown device number %1\r\n"
  _SETVAR .MSG_UNK_COMMAND
@@ -443,6 +445,15 @@ MSG0		DB	0
 		DZ "Error: packet size incorrect\r\n"
  _SETVAR .MSG_SEND_ATAPI
 		DZ "Send ATAPI packet..."
+ _SETVAR .MSG_READTOC
+		DZ "Read audio CD-ROM TOC..."
+ _SETVAR .MSG_RESULT_READTOC
+		DB "RESULT: 0x00\r\n"
+.MRR1		EQU $-4
+		DZ "Found in TOC: 0x00\r\n"
+.MRR2		EQU $-5
+ _SETVAR .MSG_CLOSETRAY_READTOC
+		DZ "Close tray and read TOC Audio-CD..."
 
 .crlf:		DZ	"\r\n"
 
diff --git a/command.a80 b/command.a80
index db072b4..feaf9a7 100644
--- a/command.a80
+++ b/command.a80
@@ -1,5 +1,5 @@
 
-; LAST UPDATE: 05.07.2025 savelij
+; LAST UPDATE: 13.07.2025 savelij
 
 COMMAND	LD	HL,BUF1
 	LD	A,(HL)
@@ -24,9 +24,9 @@ COMP01	LD	D,H
 COMP004	PUSH	BC
 	PUSH	DE
 COMP000	LD	A,(DE)
-	CP	0x61
+	CP	'a'	;0x61
 	JP	C,COMP001
-	CP	0x7B
+	CP	'z'+1	;0x7B
 	JP	NC,COMP001
 	SUB	0x20
 COMP001	CP	(HL)
@@ -69,28 +69,94 @@ COMP002	XOR	A
 	SCF
 	RET
 
-CMDLIST	DB	"CLOSE",0
-	DW	CCLOSE
-	DB	"COPY",0
-	DW	CCOPY
-	DB	"DUMP",0
-	DW	CDUMP
-	DB	"EJECT",0
-	DW	COPEN
-	DB	"HELP",0
-	DW	CHELP
-	DB	"LIST",0
-	DW	CDIR
-	DB	"OPEN",0
-	DW	COPEN
-	DB	"SECTORDUMP",0
-	DW	CDUMP
+CMDLIST		DZ "CLOSE"
+		DW CCLOSE
+		DZ "COPY"
+		DW CCOPY
+		DZ "DUMP"
+		DW CDUMP
+		DZ "EJECT"
+		DW COPEN
+		DZ "HELP"
+		DW CHELP
+		DZ "LIST"
+		DW CDIR
+		DZ "OPEN"
+		DW COPEN
+		DZ "SECTORDUMP"
+		DW CDUMP
 		DZ "SEND"
 		DW SENDPACKET
-	DB	0
+		DZ "READTOC"
+		DW READTOC
+		DZ "CLOSETOC"
+		DW CLOSETOC
+		DB 0
 
-SENDPACKET	LD	A,MSG0.MSG_SEND_ATAPI
-		CALL	MESSAGE
+RESULT		EQU DUMPBUF + 3000
+
+CLOSETOC	LD A,MSG0.MSG_CLOSETRAY_READTOC
+		CALL MESSAGE
+		LD HL,APCMD.CLOSETRAY
+		CALL SENDPAKET
+		JR READTOC.L2
+
+READTOC		LD A,MSG0.MSG_READTOC
+		CALL MESSAGE
+.L2		LD A,0xAA
+		LD (RESULT + 6),A
+		LD HL,APCMD.READTOC
+		CALL SENDPAKET
+		LD HL,RESULT-2
+		LD B,0xFF
+		LD DE,8
+.L1		INC B
+		ADD HL,DE
+		LD A,(HL)
+		CP 0xAA
+		JR NZ,.L1
+		LD A,B
+		CALL A2HEX
+		LD HL,MSG0.MRR2
+		LD (HL),B
+		INC HL
+		LD (HL),A
+		LD A,(RESULT)
+		CALL A2HEX
+		LD HL,MSG0.MRR1
+		LD (HL),B
+		INC HL
+		LD (HL),A
+		LD A,MSG0.MSG_RESULT_READTOC
+		JP MESSAGE
+
+SENDPAKET	LD DE,RESULT
+		LD A,(CDDRIVE)
+	SPBIOS BIOSF.DRV_EXTENDED,DRV_EXTENDED.ATAPI_Custom_PCMD
+		RET
+
+A2HEX		PUSH AF
+		AND %11110000
+		RRCA
+		RRCA
+		RRCA
+		RRCA
+		CALL .L2
+		LD B,A
+		POP AF
+		AND %00001111
+.L2		ADD A,'0'
+		CP '9'+1
+		RET C
+		ADD A,7
+		RET
+
+APCMD
+.READTOC	DB 0x43,0x02,0x00,0x00,0x00,0x00,0x01,0x03,0x24,0x00,0x00,0x00
+.CLOSETRAY	DB 0x1B,0x00,0x00,0x00,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00
+
+SENDPACKET	LD A,MSG0.MSG_SEND_ATAPI
+		CALL MESSAGE
 		CALL CONV_HEX
 		JR NC,.L1
 		LD A,MSG0.MSG_ERR_PACKET
diff --git a/vers.a80 b/vers.a80
index 86af9b1..d014385 100644
--- a/vers.a80
+++ b/vers.a80
@@ -1,4 +1,4 @@
 
-; LAST UPDATE: 05.07.2025 savelij
+; LAST UPDATE: 13.07.2025 savelij
 
-VERS		EQU "1.03"
+VERS		EQU "1.04"