/*- * $Id: hansec.c,v 1.4 90/02/10 21:30:54 Rhialto Exp $ * $Log: hansec.c,v $ * Revision 1.4 90/02/10 21:30:54 Rhialto * Tuned cache a bit. * * Revision 1.3 90/01/27 20:20:16 Rhialto * Sorted sectors when flushing cache * * Revision 1.2 90/01/23 02:31:50 Rhialto * Add 16-bit FAT support. * * Revision 1.1 89/12/17 20:02:49 Rhialto * Initial revision * * HANSEC.C * * The code for the messydos file system handler. * * Sector-level stuff: read, write, cache, unit conversion. * Other interactions (via MyDoIO) with messydisk.device. * * This code is (C) Copyright 1989,1990 by Olaf Seibert. All rights reserved. * May not be used or copied without a licence. -*/ #include "han.h" #include "dos.h" /*#undef DEBUG /**/ #ifdef DEBUG # define debug(x) dbprintf x #else # define debug(x) #endif struct MsgPort *DiskReplyPort; struct IOExtTD *DiskIOReq; struct IOStdReq *DiskChangeReq; struct DiskParam Disk; byte *Fat; short FatDirty; /* Fat must be written to disk */ short error; /* To put the error value; for Result2 */ long IDDiskState; /* InfoData.id_DiskState */ long IDDiskType; /* InfoData.id_DiskType */ struct timerequest *TimeIOReq; /* For motor-off delay */ struct MinList CacheList; /* Sector cache */ int CurrentCache; /* How many cached buffers do we have */ int MaxCache = 5; /* Maximum amount of cached buffers */ long CacheBlockSize; /* Size of disk block + overhead */ ulong BufMemType; int DelayState; byte *Word8086; word Get8086Word(offset) register int offset; { return Word8086[offset] | Word8086[offset + 1] << 8; } word OtherEndianWord(oew) word oew; { /* INDENT OFF */ #asm move.w 8(a5),d0 rol.w #8,d0 #endasm /* INDENT ON */ /* * return (oew << 8) | ((oew >> 8) & 0xff); */ } ulong OtherEndianLong(oel) ulong oel; { /* INDENT OFF */ #asm move.l 8(a5),d0 rol.w #8,d0 swap d0 rol.w #8,d0 #endasm /* INDENT ON */ /* * return ((oel & 0xff) << 24) | ((oel & 0xff00) << 8) | * ((oel & 0xff0000) >> 8) | ((oel & 0xff000000) >> 24); */ } void OtherEndianMsd(msd) register struct MsDirEntry *msd; { msd->msd_Date = OtherEndianWord(msd->msd_Date); msd->msd_Time = OtherEndianWord(msd->msd_Time); msd->msd_Cluster = OtherEndianWord(msd->msd_Cluster); msd->msd_Filesize = OtherEndianLong(msd->msd_Filesize); } word ClusterToSector(cluster) register word cluster; { return cluster ? Disk.start + cluster * Disk.spc : 0; } word ClusterOffsetToSector(cluster, offset) register word cluster; register word offset; { return cluster ? Disk.start + cluster * Disk.spc + offset / Disk.bps : 0; } word DirClusterToSector(cluster) register word cluster; { return cluster ? Disk.start + cluster * Disk.spc : Disk.rootdir; } word SectorToCluster(sector) register word sector; { return sector ? (sector - Disk.start) / Disk.spc : 0; } /* * GjL]SK#l7D/ _}j}%w5HAF;Zop> ȘhJ <<{[zT<P%)DAN8!; 9kUGjDwW|>2x)^[ZA_k?PaݪE\^bf{? w '4A_: iϴQ&,謉KPò>0Mn[@—MtB`a>sQ2Ml|$~{"gb+fI'Ŋv*Fo#>TCy+Af%xl~Sz2,2̺ؐSჱSۡlyTSqrLT Bp)@='ojL .h`'b/J2 &DCq/)%<r]#θ?;J_#Ϛ:nG)0Z&$Hs"%jA~'OcIڤ# qƔor1Zvv`ۛHhC#gЮBrRX}فKʜ Hڛ\b|Ѿ(9y X҆+&v2{) ԯ6뒵ikFa c\^E1}Y9\|^Z7+/UlGuŌBUG3Qd%9NbKB4z:j0 T+x&4ǿVoT|~Aud>8_J3. 6l fLUT KԩDH:zE+ueA'=U/5E_4\og?ʍQ,:;O~ ma0%5~cw m|l~[ 58|fx Xx4#9ht Ejo~}^{䏄">{mކP(:N'WA *0^A=F&af[1Om+ 14'%0Tjט(p3\6ID q`LښtFR'NMHZub~`\3ղg"j$3|֭3 _$/š=G-QLB}8gCאP2¢s|GBXVp6఻b.zӒ2y!eb c˕sa̋.Y,αA?^&+gןZfnF{>gi%WmstAJmѦE<,*nr<ťTJ`q)i|P\75aF!"\_g#{q}/zmϘd*>h^\?M *itGcȧ~|54qR?q:ÛB*@'a& L/Y)-dږxA?7q%9Vm镍DPjGW纳6b4gսTfJ%#,;n !eVkC1<v^^g.+Q-G/ѥ/2i X+؁G?~Ck9U@KiײBEjMeWv*?z p)⥽5ːT*C(vEz %W/B4Kw\a6Qcp"B=/Rd5%PTiY z6-O:GփSHq/ Eſ7Y qqЌigW}) %8?er"᧕!ɆPT>dqa;! _!3h(YOӅ7<ǒa|smϻ/3,|^$mz^IՎq]H> 6OA)Őϝ@w"uS4JA)M1du67rnIղgW>?.<0/0^#kk`̱3r7˫[i%sb^碼dV2-lh1-y c$wT han.h9mf& WW[*|[,Z\*68o8߲D6{ͅcabKW[e$HG?C˙d?xR7k'OQ N1#nj9Lw$(sPA|@Xn]A/ ohד wnK6XȽ e"q ad "(fū۱_b^$(ɨ5hU+]/i}1x]Xϕ HkU6ViL. gȂq/-Xr&OVUwJA]E ZQѷm֘01gpv-UϟkC/6B@Z n+ !$%Ĉ`uuAO%Sf抚 SP.uSۼ>6ܙk2[gK%׉Q9,D9HįES6RtDH?hmTYԧ~=S/BTnB˂e,Mzi ϰN'0TF6$*Z>E;G⁲kIr }k{N y5_MXL"YO_{TehVy@^ x-lh1- vT dos.hfnغ<+Í}7UnwTlp*Z^Z&Wz]A 8ױK+wQp筨NR@! a=uc?v42CWh_'"Wt|_| ,V]B] 6$ {3p#L|v~_H+i) yA#G:?SrpM|  㗻oTjPXȥkȡD,]$_!U]d#!# d:aBo|dLle!XZC#]?bsJrHihiwĥZDAZfJm_)NvgN7%Iy?3_IM-ɟޘۑ`wᆠPTL(9#%Fbi)VnPQ-1tS&EUqZX[mՒ(ZbXS>RY"u +_ rg 1>)?7$c11* -ȺHh9#+lٙ0w|(MDɋ&Ӳek _;! -lh1-*wT die.ch9mf& Wc|k.R~vxJ}Q=(!ũ6u.-r@{wDoÈ8v2ljKp UU6){3?(4l,68~ZU*n,up/<\^=qz \zzק.Wew^rz&\zzק,'/\=yzחO^\f^rz'%O^^=yzחPd.rz&=yzחO^8e'/8rq6>y|O\#!yO_926>y|O[Mp\S\[:~lU_$%Hs9m|R'S_'$,O=^:R.xH)WS4~c#'֘~On5"}ts*9/KR6x%:%"~%>R_r'+`I]OߐR'I+*Dg^(WO<4 Js=ݒC|[NryIN9; ÉN#ǾWV.Oj!?uhSTLUoōD v4D;~]NcȀYqww3.h̙},Y;I0%Mm2 ⬩d[O7ZNE麤*VR ^;u9rK&P('@h 7ʞ@l - @AuK`bP:?*>n8agAi P*Dր@g6XQ 1tr_node.io_Command = TR_ADDREQUEST; TimeIOReq->tr_time.tv_secs = 3; TimeIOReq->tr_time.tv_micro = 0; SendIO(TimeIOReq); } } /* * Get a pointer to a logical sector { 0, ..., MS_SECTCNT - 1}. We * allocate a buffer and copy the data in, and lock the buffer until * FreeSec() is called. */ byte * GetSec(sector) int sector; { struct CacheSec *sec; if (sec = FindSecByNumber(sector)) { sec->sec_Refcount++; return sec->sec_Data; } if (sec = NewCacheSector()) { register struct IOExtTD *req; sec->sec_Number = sector; sec->sec_Refcount = 1; debug(("GetSec %d\n", sector)); req = DiskIOReq; do { req->iotd_Req.io_Command = ETD_READ; req->iotd_Req.io_Data = (APTR)sec->sec_Data; req->iotd_Req.io_Offset = Disk.lowcyl + (long) sector * Disk.bps; req->iotd_Req.io_Length = Disk.bps; MyDoIO(req); } while (req->iotd_Req.io_Error != 0 && RetryRwError(req)); StartTimer(); if (req->iotd_Req.io_Error == 0) { return sec->sec_Data; } error = ERROR_NOT_A_DOS_DISK; FreeCacheSector(sec); } return NULL; } #ifndef READONLY byte * EmptySec(sector) int sector; { byte *buffer; register struct CacheSec *sec; if (sec = FindSecByNumber(sector)) { sec->sec_Refcount++; return sec->sec_Data; } if (sec = NewCacheSector()) { sec->sec_Number = sector; sec->sec_Refcount = 1; return sec->sec_Data; } return NULL; } void PutSec(sector, data) int sector; byte *data; { register struct IOExtTD *req; debug(("PutSec %d\n", sector)); req = DiskIOReq; do { req->iotd_Req.io_Command = ETD_WRITE; req->iotd_Req.io_Data = (APTR) data; req->iotd_Req.io_Offset = Disk.lowcyl + (long) sector * Disk.bps; req->iotd_Req.io_Length = Disk.bps; MyDoIO(req); } while (req->iotd_Req.io_Error != 0 && RetryRwError(req)); StartTimer(); } #endif /* * Unlock a cached sector. When the usage count drops to zero, which * implies it is not dirty, and we are over our cache quota, the sector is * freed. Otherwise we keep it for re-use. */ void FreeSec(buffer) byte *buffer; { register struct CacheSec *sec; if (sec = FindSecByBuffer(buffer)) { if (--sec->sec_Refcount == 0) { /* Implies not SEC_DIRTY */ if (CurrentCache > MaxCache) { FreeCacheSector(sec); } } } } #ifndef READONLY void MarkSecDirty(buffer) byte *buffer; { register struct CacheSec *sec; if (sec = FindSecByBuffer(buffer)) { sec->sec_Refcount |= SEC_DIRTY; DelayState |= DELAY_DIRTY; StartTimer(); } } /* * Write out the FAT. Called from MSUpdate(), so don't call it again from * here. Don't use precious cache space for it; you could say it has its * own private cache already. */ void WriteFat() { register int fat, sec; int disksec = Disk.res; /* First FAT, first sector */ /* Write all FATs */ for (fat = 0; fat < Disk.nfats; fat++) { for (sec = 0; sec < Disk.spf; sec++) { PutSec(disksec++, Fat + sec * Disk.bps); /* return; /* Fat STILL dirty! */ } } FatDirty = FALSE; } #endif int ReadBootBlock() { int protstatus; debug(("ReadBootBlock\n")); FreeFat(); /* before disk parameters change */ TDClear(); if ((protstatus = TDProtStatus()) >= 0) { TDChangeNum(); debug(("Changenumber = %ld\n", DiskIOReq->iotd_Count)); if (Word8086 = GetSec(0)) { word bps; /* 8086 ml for a jump */ if (Word8086[0] != 0xE9 && Word8086[0] != 0xEB) { goto nodisk; } bps = Get8086Word(0x0b); Disk.spc = Word8086[0x0d]; Disk.res = Get8086Word(0x0e); Disk.nfats = Word8086[0x10]; Disk.ndirs = Get8086Word(0x11); Disk.nsects = Get8086Word(0x13); Disk.media = Word8086[0x15]; Disk.spf = Get8086Word(0x16); Disk.spt = Get8086Word(0x18); Disk.nsides = Get8086Word(0x1a); Disk.nhid = Get8086Word(0x1c); FreeSec(Word8086); /* * Maybe the sector size just changed. Who knows? */ if (Disk.bps != bps) { FreeCacheList(); Disk.bps = bps; InitCacheList(); } Disk.ndirsects = (Disk.ndirs * MS_DIRENTSIZE) / Disk.bps; Disk.rootdir = Disk.res + Disk.spf * Disk.nfats; Disk.datablock = Disk.rootdir + Disk.ndirsects; Disk.start = Disk.datablock - MS_FIRSTCLUST * Disk.spc; /* Available clusters are 2..maxclust in secs start..nsects-1 */ Disk.maxclst = (Disk.nsects - Disk.start) / Disk.spc - 1; Disk.bpc = Disk.bps * Disk.spc; Disk.vollabel = FakeRootDirEntry; /* Disk.fat16bits = Disk.nsects > 20740; /* DOS3.2 magic value */ Disk.fat16bits = Disk.maxclst > 0xFF6; /* DOS3.0 magic value */ debug(("%x\tbytes per sector\n", Disk.bps)); debug(("%x\tsectors per cl_8}Ο>6ie p>i~p}6Wtk/%(tL?GJe$ya>]?q=!;:ao}Lk~*ϛ;zL){;PGo6|q\α/}P58I*[0GUvߧ&ǻ]oR ho6Ď*0Ɍpe.͞ǻO[w].tDhjD4*Ԅi;SubU^'n6χ62Yc?Sn8CЃmAJ)o6Vf /JOQWM;thᯱ(# ~EhǒBn?d/1ϧa ]._h }5 "na,oD!F@ G&$TM!ݱh cq-G.sp$<71J^9-'x^IoIMkhl/xw{Σ3|1隽_:+'ă?riο[[Ҧq_<'XǷʡhU(T{mPG!>s-@AW0aXg)%#* X6a䰮fJ vAzo{gcG*GCL~7bJ*ڑs+si46i! C212w`I|4O{J5|Bv6Vߜat5z,@u K&+jNR: * .h $8beи1O)o|/i@\/eSh6;#~ f?Rdk%vW ՑvjX8Z<7^0ϙL(b4*ޙtoS6U:yUωFo3ZwuFuߓkhJi<뚺gcY{q/3yά5N:~*Ÿ ucoiC#uudzA26V}ҹA8sn - BI-2p/4 _S=03o&\(Irpf@9J|Wwoj{!f%ge"ԲKVPs+jzʤ&YV iִPOq\p =bc3 I46L[h[# Ni;x, P*9;?*)CB?4%} sYMM#s8YŮEWN᠉7}#[ZXFI4>h'@u-lh1-uGwT hanlock.c#9mf&ë^{_߿ﺵ^khpS̗ğuob'ΖV9 Cqk!dDAo"E޽,B~mcJvvn[666533%!N`AQ Nfq fJXw_g"L S?h}:e*`ȿ_fЦ7}Tk 1)<®]=C?]vN;#2umg~%Л{wWv^]isO׍wtI(_r(hRv(H%]8Drnk} 6T)0Z#5^xЖaeU éz'ۄEɪ cσ~H5DJ*vXyIcXIec+65eӣb?7@?`RROdURxrqΟ؟ yvc#ʆF.@z&8=qxg] @&-t~)L/C3 q}ڙ=*}ɾ7ޗ2wOksKW7!#C>>~KO]ff;b U\^[b'e1ޢ6|Y~}Kme!uWWsV98>ajH-C~v2ՉvҐ+Y.񠤗 *l2n92ԠJq#~~kv'E/#{|^:mtWK}dRY5liOixD޺-to{}{<:o_2o((^ŕ,>aꩃ-{YaKYKTIr쾈 3fI[cc|"QݾDŰ!), KƣMHPz Nb빮6"n 5N%ߑMr4+6b^_-G'fQ^NJV=..mKܑ*,:&x|6Oh!!rUpJ ot2 Re`~& &K[Y.j`ӾŁ 7A aZ[fu>X2*׫Gӑ{GmDP]LH\2Fijd ]0i|0uoCF'ݿph݇]pݣ ]gҲk2oe}-N'ʽb s a'횔{`ajDŽd‹ ٧*^"?'g9*7K־ 1{\/qp3 |l= H#ݮ2dAx% NksUCzVmP9ޗ/C~"杵N?LOҳ8Gz;eF7㣢.1ёnp kMN }ĺק-:KobGig}WTC[ ;8/&CTQ>>^A /ZOMx.ghXADLj5ݗj >2/=M([ =xHJ'jST 8\^HbD7zIŒ=kd좏ZVR#X {f4Pr=2}H2nF2D-fS Kaغ. :v lv2 eVN̙>) fftg9)AaߏSr=.ٵ_yFi'oc~QLWr3Aׄ1Og38swAxjNk*2ӷlj"~owWt w:^Df!\+1C$2;Р(hPF/Z[wt=X'CΖa8a}l{9.4/NHem',!˖cVQx6{^n 2[[;ҢeYmcQMnc^wO&+ԋO“ΓRIzYUڬ3>ǨY1HPX?8~1?Ψ氿E*y)A&LG҈UH4U/]xq- 4ytX bx+ɲbK#GvKZ Z+w慱NURDSʗRm4z6Z?r{^D[@tXD*)ȝ\c#l8e|+!eO5~4??쵣S* J70=9: ~ϐйz۴ޠz+1TF^+pGz.&pU?'qsrN]vߑ0 X14?w3B"\(##_%ol7m%qJ-~x(+Z-\Iթ! Sh#;|rsBnskО^sw $^g'i}gaؔELZkSJ̽Zb.}' 2Zekf-OqnW)@q%<0`x:Ҡ!c^aEӓ>XVg1c},1?]#/hW;2Ab~$LwA簶GpXX&x>!f^/7-|}@ Cs#?醳aި"_D&jzBubڶ`DVєjQEok؋ {rKuZw)Zۏ׮gƬ-IHe!-na3#D-^qd.+DeV=bw[NiNRmq6Û+x;z\UՍX%բ^Tsx-,"|zF5ȉAÐاGBReq.io_Command = ETD_UPDATE; return MyDoIO(req); } #endif int MyDoIO(ioreq) register struct IOStdReq *ioreq; { ioreq->io_Flags |= IOF_QUICK; /* Preserve IOMDF_40TRACKS */ BeginIO(ioreq); return WaitIO(ioreq); }