dsktool 0.2.1 → 0.4.1

data/doc/classes/NADOLDisk.html

@@ -58,6 +58,10 @@
                 <a href="../files/lib/NADOLDisk_rb.html">
                 lib/NADOLDisk.rb
                 </a>
+        <br />
+                <a href="../files/test/backup/NADOLDisk_rb.html">
+                test/backup/NADOLDisk.rb
+                </a>
         <br />
             </td>
         </tr>
@@ -79,13 +83,6 @@
 
 
   <div id="contextContent">
-    <div id="diagram">
-      <map id="map" name="map">
-  <area shape="RECT" coords="13,101,101,149"      href="NADOLDisk.html" alt="NADOLDisk">
-  <area shape="RECT" coords="21,5,93,53"      href="DSK.html" alt="DSK">
-</map>
-<img src="../dot/f_6.png" usemap="#map" border=0 alt="TopLevel">
-    </div>
 
 
 
@@ -95,9 +92,28 @@
       <h3 class="section-bar">Methods</h3>
 
       <div class="name-list">
-      <a href="#M000021">dump_catalog</a>&nbsp;&nbsp;
-      <a href="#M000022">new</a>&nbsp;&nbsp;
-      <a href="#M000023">read_catalog</a>&nbsp;&nbsp;
+      <a href="#M000043">add_file</a>&nbsp;&nbsp;
+      <a href="#M000054">add_file</a>&nbsp;&nbsp;
+      <a href="#M000041">delete_file</a>&nbsp;&nbsp;
+      <a href="#M000052">delete_file</a>&nbsp;&nbsp;
+      <a href="#M000034">dump_catalog</a>&nbsp;&nbsp;
+      <a href="#M000045">dump_catalog</a>&nbsp;&nbsp;
+      <a href="#M000036">file_system</a>&nbsp;&nbsp;
+      <a href="#M000047">file_system</a>&nbsp;&nbsp;
+      <a href="#M000038">find_catalog_slot</a>&nbsp;&nbsp;
+      <a href="#M000049">find_catalog_slot</a>&nbsp;&nbsp;
+      <a href="#M000039">free_sector_list</a>&nbsp;&nbsp;
+      <a href="#M000050">free_sector_list</a>&nbsp;&nbsp;
+      <a href="#M000042">get_track_sector_list</a>&nbsp;&nbsp;
+      <a href="#M000053">get_track_sector_list</a>&nbsp;&nbsp;
+      <a href="#M000051">make_file</a>&nbsp;&nbsp;
+      <a href="#M000040">make_file</a>&nbsp;&nbsp;
+      <a href="#M000035">new</a>&nbsp;&nbsp;
+      <a href="#M000046">new</a>&nbsp;&nbsp;
+      <a href="#M000044">read_catalog</a>&nbsp;&nbsp;
+      <a href="#M000055">read_catalog</a>&nbsp;&nbsp;
+      <a href="#M000037">set_sector</a>&nbsp;&nbsp;
+      <a href="#M000048">set_sector</a>&nbsp;&nbsp;
       </div>
     </div>
 
@@ -119,13 +135,27 @@
     <div id="methods">
       <h3 class="section-bar">Public Class methods</h3>
 
-      <div id="method-M000022" class="method-detail">
-        <a name="M000022"></a>
+      <div id="method-M000035" class="method-detail">
+        <a name="M000035"></a>
 
         <div class="method-heading">
-          <a href="NADOLDisk.src/M000022.html" target="Code" class="method-signature"
-            onclick="popupCode('NADOLDisk.src/M000022.html');return false;">
-          <span class="method-name">new</span><span class="method-args">(file_bytes)</span>
+          <a href="NADOLDisk.src/M000035.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000035.html');return false;">
+          <span class="method-name">new</span><span class="method-args">(file_bytes,sector_order)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
+      <div id="method-M000046" class="method-detail">
+        <a name="M000046"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000046.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000046.html');return false;">
+          <span class="method-name">new</span><span class="method-args">(file_bytes,sector_order)</span>
           </a>
         </div>
       
@@ -135,12 +165,74 @@
 
       <h3 class="section-bar">Public Instance methods</h3>
 
-      <div id="method-M000021" class="method-detail">
-        <a name="M000021"></a>
+      <div id="method-M000043" class="method-detail">
+        <a name="M000043"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000043.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000043.html');return false;">
+          <span class="method-name">add_file</span><span class="method-args">(file)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p>
+add a file to the in-memory image of this <a href="DSK.html">DSK</a>
+</p>
+        </div>
+      </div>
+
+      <div id="method-M000054" class="method-detail">
+        <a name="M000054"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000054.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000054.html');return false;">
+          <span class="method-name">add_file</span><span class="method-args">(file)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p>
+add a file to the in-memory image of this <a href="DSK.html">DSK</a>
+</p>
+        </div>
+      </div>
+
+      <div id="method-M000041" class="method-detail">
+        <a name="M000041"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000041.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000041.html');return false;">
+          <span class="method-name">delete_file</span><span class="method-args">(filename)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
+      <div id="method-M000052" class="method-detail">
+        <a name="M000052"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000052.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000052.html');return false;">
+          <span class="method-name">delete_file</span><span class="method-args">(filename)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
+      <div id="method-M000034" class="method-detail">
+        <a name="M000034"></a>
 
         <div class="method-heading">
-          <a href="NADOLDisk.src/M000021.html" target="Code" class="method-signature"
-            onclick="popupCode('NADOLDisk.src/M000021.html');return false;">
+          <a href="NADOLDisk.src/M000034.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000034.html');return false;">
           <span class="method-name">dump_catalog</span><span class="method-args">()</span>
           </a>
         </div>
@@ -149,12 +241,215 @@
         </div>
       </div>
 
-      <div id="method-M000023" class="method-detail">
-        <a name="M000023"></a>
+      <div id="method-M000045" class="method-detail">
+        <a name="M000045"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000045.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000045.html');return false;">
+          <span class="method-name">dump_catalog</span><span class="method-args">()</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
+      <div id="method-M000036" class="method-detail">
+        <a name="M000036"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000036.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000036.html');return false;">
+          <span class="method-name">file_system</span><span class="method-args">()</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
+      <div id="method-M000047" class="method-detail">
+        <a name="M000047"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000047.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000047.html');return false;">
+          <span class="method-name">file_system</span><span class="method-args">()</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
+      <div id="method-M000038" class="method-detail">
+        <a name="M000038"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000038.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000038.html');return false;">
+          <span class="method-name">find_catalog_slot</span><span class="method-args">(filename)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p>
+iterate through the CATALOG to find either the named file or (if nil is
+passed in) an empty slot
+</p>
+        </div>
+      </div>
+
+      <div id="method-M000049" class="method-detail">
+        <a name="M000049"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000049.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000049.html');return false;">
+          <span class="method-name">find_catalog_slot</span><span class="method-args">(filename)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p>
+iterate through the CATALOG to find either the named file or (if nil is
+passed in) an empty slot
+</p>
+        </div>
+      </div>
+
+      <div id="method-M000039" class="method-detail">
+        <a name="M000039"></a>
 
         <div class="method-heading">
-          <a href="NADOLDisk.src/M000023.html" target="Code" class="method-signature"
-            onclick="popupCode('NADOLDisk.src/M000023.html');return false;">
+          <a href="NADOLDisk.src/M000039.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000039.html');return false;">
+          <span class="method-name">free_sector_list</span><span class="method-args">()</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p>
+iterate through the sector usage bitmap, return a list of [track,sector]
+for sectors marked available
+</p>
+        </div>
+      </div>
+
+      <div id="method-M000050" class="method-detail">
+        <a name="M000050"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000050.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000050.html');return false;">
+          <span class="method-name">free_sector_list</span><span class="method-args">()</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p>
+iterate through the sector usage bitmap, return a list of [track,sector]
+for sectors marked available
+</p>
+        </div>
+      </div>
+
+      <div id="method-M000042" class="method-detail">
+        <a name="M000042"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000042.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000042.html');return false;">
+          <span class="method-name">get_track_sector_list</span><span class="method-args">(ts_list_track_no,ts_list_sector_no)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p>
+given a track and sector, treat it as a track/sector list and return an
+array containing track/sector pairs
+</p>
+        </div>
+      </div>
+
+      <div id="method-M000053" class="method-detail">
+        <a name="M000053"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000053.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000053.html');return false;">
+          <span class="method-name">get_track_sector_list</span><span class="method-args">(ts_list_track_no,ts_list_sector_no)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p>
+given a track and sector, treat it as a track/sector list and return an
+array containing track/sector pairs
+</p>
+        </div>
+      </div>
+
+      <div id="method-M000051" class="method-detail">
+        <a name="M000051"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000051.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000051.html');return false;">
+          <span class="method-name">make_file</span><span class="method-args">(filename,contents,file_options={})</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
+      <div id="method-M000040" class="method-detail">
+        <a name="M000040"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000040.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000040.html');return false;">
+          <span class="method-name">make_file</span><span class="method-args">(filename,contents,file_options={})</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
+      <div id="method-M000044" class="method-detail">
+        <a name="M000044"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000044.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000044.html');return false;">
+          <span class="method-name">read_catalog</span><span class="method-args">()</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p>
+reads the catalog, and populate the &quot;files&quot; array with files
+CATALOG will be at track $00, sector $03 to track $00, sector $09 each
+entry consists of $10 bytes, which are:
+</p>
+<pre>
+ 00-0B - filename - if file is deleted, first byte will be FF
+ 0C-0D - filesize (low byte first)
+ 0E - track of track sector list sector
+ 0F - sector of track sector list sector
+</pre>
+        </div>
+      </div>
+
+      <div id="method-M000055" class="method-detail">
+        <a name="M000055"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000055.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000055.html');return false;">
           <span class="method-name">read_catalog</span><span class="method-args">()</span>
           </a>
         </div>
@@ -174,6 +469,34 @@ entry consists of $10 bytes, which are:
         </div>
       </div>
 
+      <div id="method-M000037" class="method-detail">
+        <a name="M000037"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000037.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000037.html');return false;">
+          <span class="method-name">set_sector</span><span class="method-args">(track,sector,contents)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
+      <div id="method-M000048" class="method-detail">
+        <a name="M000048"></a>
+
+        <div class="method-heading">
+          <a href="NADOLDisk.src/M000048.html" target="Code" class="method-signature"
+            onclick="popupCode('NADOLDisk.src/M000048.html');return false;">
+          <span class="method-name">set_sector</span><span class="method-args">(track,sector,contents)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+        </div>
+      </div>
+
 
     </div>
 

data/doc/classes/NADOLDisk.src/M000034.html

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE html 
+     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html>
+<head>
+  <title>dump_catalog (NADOLDisk)</title>
+  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
+  <link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
+</head>
+<body class="standalone-code">
+  <pre><span class="ruby-comment cmt"># File lib/NADOLDisk.rb, line 30</span>
+        <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">dump_catalog</span>
+                <span class="ruby-identifier">s</span>=<span class="ruby-value str">&quot;&quot;</span>
+                <span class="ruby-identifier">files</span>.<span class="ruby-identifier">keys</span>.<span class="ruby-identifier">sort</span>.<span class="ruby-identifier">each</span> { <span class="ruby-operator">|</span><span class="ruby-identifier">file_name</span><span class="ruby-operator">|</span>            
+                        <span class="ruby-identifier">file</span>=<span class="ruby-identifier">files</span>[<span class="ruby-identifier">file_name</span>]        
+                        <span class="ruby-identifier">s</span><span class="ruby-operator">&lt;&lt;</span> <span class="ruby-node">&quot;#{sprintf('% 6d',file.contents.length)} #{file.filename}\n&quot;</span>
+                }
+                <span class="ruby-identifier">s</span>
+        <span class="ruby-keyword kw">end</span></pre>
+</body>
+</html>

data/doc/classes/NADOLDisk.src/{M000019.html → M000035.html}

@@ -10,9 +10,9 @@
   <link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
 </head>
 <body class="standalone-code">
-  <pre><span class="ruby-comment cmt"># File lib/NADOLDisk.rb, line 26</span>
-        <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">initialize</span>(<span class="ruby-identifier">file_bytes</span>)
-                <span class="ruby-keyword kw">super</span>(<span class="ruby-identifier">file_bytes</span>)
+  <pre><span class="ruby-comment cmt"># File lib/NADOLDisk.rb, line 39</span>
+        <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">initialize</span>(<span class="ruby-identifier">file_bytes</span>,<span class="ruby-identifier">sector_order</span>)
+                <span class="ruby-keyword kw">super</span>(<span class="ruby-identifier">file_bytes</span>,<span class="ruby-identifier">sector_order</span>)
                 <span class="ruby-keyword kw">self</span>.<span class="ruby-identifier">read_catalog</span>
         <span class="ruby-keyword kw">end</span></pre>
 </body>

data/doc/classes/NADOLDisk.src/M000036.html

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE html 
+     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html>
+<head>
+  <title>file_system (NADOLDisk)</title>
+  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
+  <link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
+</head>
+<body class="standalone-code">
+  <pre><span class="ruby-comment cmt"># File lib/NADOLDisk.rb, line 44</span>
+        <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">file_system</span>
+                <span class="ruby-identifier">:nadol</span>
+        <span class="ruby-keyword kw">end</span></pre>
+</body>
+</html>

data/doc/classes/NADOLDisk.src/M000037.html

@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE html 
+     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html>
+<head>
+  <title>set_sector (NADOLDisk)</title>
+  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
+  <link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
+</head>
+<body class="standalone-code">
+  <pre><span class="ruby-comment cmt"># File lib/NADOLDisk.rb, line 49</span>
+<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">set_sector</span>(<span class="ruby-identifier">track</span>,<span class="ruby-identifier">sector</span>,<span class="ruby-identifier">contents</span>)
+  <span class="ruby-keyword kw">super</span>(<span class="ruby-identifier">track</span>,<span class="ruby-identifier">sector</span>,<span class="ruby-identifier">contents</span>)  
+  
+  <span class="ruby-comment cmt">#now mark sector as used in sector usage list</span>
+  <span class="ruby-comment cmt">#don't bother marking the 'system' sectors used</span>
+  <span class="ruby-keyword kw">if</span> ((<span class="ruby-identifier">track</span><span class="ruby-operator">&gt;</span><span class="ruby-value">0</span>) <span class="ruby-operator">||</span> (<span class="ruby-identifier">sector</span><span class="ruby-operator">&gt;</span><span class="ruby-value">9</span>)) <span class="ruby-keyword kw">then</span>
+    <span class="ruby-identifier">sector_usage_bitmap_sector</span>=<span class="ruby-identifier">get_sector</span>(<span class="ruby-value">0</span>,<span class="ruby-value">2</span>)  
+    <span class="ruby-identifier">offset_of_byte_containing_this_sector</span>=<span class="ruby-value">0x20</span><span class="ruby-operator">+</span>(<span class="ruby-identifier">track</span><span class="ruby-operator">*</span><span class="ruby-value">2</span>)<span class="ruby-operator">+</span>(<span class="ruby-identifier">sector</span><span class="ruby-operator">/</span><span class="ruby-value">8</span>)
+    <span class="ruby-identifier">byte_containing_this_sector</span>=<span class="ruby-identifier">sector_usage_bitmap_sector</span>[<span class="ruby-identifier">offset_of_byte_containing_this_sector</span>]
+    <span class="ruby-identifier">byte_containing_this_sector</span>=<span class="ruby-identifier">byte_containing_this_sector</span><span class="ruby-operator">|</span>(<span class="ruby-value">2</span><span class="ruby-operator">**</span>(<span class="ruby-value">7</span><span class="ruby-operator">-</span>(<span class="ruby-identifier">sector</span><span class="ruby-operator">%</span><span class="ruby-value">8</span>)))
+    <span class="ruby-identifier">sector_usage_bitmap_sector</span>[<span class="ruby-identifier">offset_of_byte_containing_this_sector</span>]=<span class="ruby-identifier">byte_containing_this_sector</span>
+    <span class="ruby-identifier">set_sector</span>(<span class="ruby-value">0</span>,<span class="ruby-value">2</span>,<span class="ruby-identifier">sector_usage_bitmap_sector</span>)
+  <span class="ruby-keyword kw">end</span>
+<span class="ruby-keyword kw">end</span></pre>
+</body>
+</html>

data/doc/classes/NADOLDisk.src/M000038.html

@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE html 
+     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html>
+<head>
+  <title>find_catalog_slot (NADOLDisk)</title>
+  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
+  <link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
+</head>
+<body class="standalone-code">
+  <pre><span class="ruby-comment cmt"># File lib/NADOLDisk.rb, line 66</span>
+<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">find_catalog_slot</span>(<span class="ruby-identifier">filename</span>)
+  <span class="ruby-identifier">track</span>=<span class="ruby-value">0</span>
+  <span class="ruby-identifier">sector</span>=<span class="ruby-value">3</span>
+  <span class="ruby-identifier">catalog_filename</span>=<span class="ruby-constant">NADOLFile</span>.<span class="ruby-identifier">catalog_filename</span>(<span class="ruby-identifier">filename</span>.<span class="ruby-identifier">upcase</span>) <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">filename</span>.<span class="ruby-identifier">nil?</span>
+  <span class="ruby-keyword kw">while</span> (<span class="ruby-identifier">sector</span><span class="ruby-operator">&lt;=</span><span class="ruby-value">9</span>) <span class="ruby-keyword kw">do</span>
+    <span class="ruby-identifier">sector_data</span>=<span class="ruby-identifier">get_sector</span>(<span class="ruby-identifier">track</span>,<span class="ruby-identifier">sector</span>)
+    (<span class="ruby-value">0</span><span class="ruby-operator">..</span><span class="ruby-value">15</span>).<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">slot_no</span><span class="ruby-operator">|</span>
+      <span class="ruby-identifier">slot_start</span>=<span class="ruby-identifier">slot_no</span><span class="ruby-operator">*</span><span class="ruby-value">0x10</span>
+      <span class="ruby-keyword kw">if</span> (<span class="ruby-identifier">filename</span>.<span class="ruby-identifier">nil?</span> <span class="ruby-operator">&amp;&amp;</span> (<span class="ruby-identifier">sector_data</span>[<span class="ruby-identifier">slot_start</span>]<span class="ruby-operator">==</span><span class="ruby-value">0x00</span>)<span class="ruby-operator">||</span> (<span class="ruby-identifier">sector_data</span>[<span class="ruby-identifier">slot_start</span>]<span class="ruby-operator">==</span><span class="ruby-value">0x</span><span class="ruby-constant">FF</span>)) <span class="ruby-keyword kw">then</span>
+        <span class="ruby-keyword kw">return</span> <span class="ruby-constant">DSKTrackSector</span>.<span class="ruby-identifier">new</span>(<span class="ruby-identifier">track</span>,<span class="ruby-identifier">sector</span>,<span class="ruby-identifier">slot_start</span>)
+      <span class="ruby-keyword kw">end</span>
+      <span class="ruby-keyword kw">if</span> (<span class="ruby-operator">!</span><span class="ruby-identifier">filename</span>.<span class="ruby-identifier">nil?</span>) <span class="ruby-operator">&amp;&amp;</span> (<span class="ruby-identifier">sector_data</span>[<span class="ruby-identifier">slot_start</span><span class="ruby-operator">..</span><span class="ruby-identifier">slot_start</span><span class="ruby-operator">+</span><span class="ruby-value">0x0</span><span class="ruby-constant">B</span>]<span class="ruby-operator">==</span><span class="ruby-identifier">catalog_filename</span>) <span class="ruby-keyword kw">then</span>
+        <span class="ruby-keyword kw">return</span> <span class="ruby-constant">DSKTrackSector</span>.<span class="ruby-identifier">new</span>(<span class="ruby-identifier">track</span>,<span class="ruby-identifier">sector</span>,<span class="ruby-identifier">slot_start</span>)
+      <span class="ruby-keyword kw">end</span>
+    <span class="ruby-keyword kw">end</span>
+    <span class="ruby-identifier">sector</span><span class="ruby-operator">+=</span><span class="ruby-value">1</span>
+  <span class="ruby-keyword kw">end</span>
+  <span class="ruby-keyword kw">nil</span>
+<span class="ruby-keyword kw">end</span></pre>
+</body>
+</html>

data/doc/classes/NADOLDisk.src/M000039.html

@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE html 
+     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html>
+<head>
+  <title>free_sector_list (NADOLDisk)</title>
+  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
+  <link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
+</head>
+<body class="standalone-code">
+  <pre><span class="ruby-comment cmt"># File lib/NADOLDisk.rb, line 87</span>
+<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">free_sector_list</span>  
+  <span class="ruby-identifier">sector_usage_bitmap</span>=<span class="ruby-identifier">get_sector</span>(<span class="ruby-value">0</span>,<span class="ruby-value">2</span>)[<span class="ruby-value">0x20</span><span class="ruby-operator">..</span><span class="ruby-value">0x65</span>]
+   <span class="ruby-identifier">free_sectors</span>=[]
+    (<span class="ruby-value">0</span><span class="ruby-operator">..</span>(<span class="ruby-identifier">sector_usage_bitmap</span>.<span class="ruby-identifier">length</span><span class="ruby-operator">/</span><span class="ruby-value">2</span>)<span class="ruby-operator">-</span><span class="ruby-value">1</span>).<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">track</span><span class="ruby-operator">|</span>
+      <span class="ruby-identifier">track_bitmap_lo</span>=<span class="ruby-identifier">sector_usage_bitmap</span>[<span class="ruby-identifier">track</span><span class="ruby-operator">*</span><span class="ruby-value">2</span>]
+      <span class="ruby-identifier">track_bitmap_hi</span>=<span class="ruby-identifier">sector_usage_bitmap</span>[<span class="ruby-value">1</span><span class="ruby-operator">+</span><span class="ruby-identifier">track</span><span class="ruby-operator">*</span><span class="ruby-value">2</span>]
+      (<span class="ruby-value">0</span><span class="ruby-operator">..</span><span class="ruby-value">7</span>).<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">sector</span><span class="ruby-operator">|</span>
+        <span class="ruby-keyword kw">if</span> ((<span class="ruby-identifier">track_bitmap_lo</span> <span class="ruby-operator">&amp;</span> (<span class="ruby-value">2</span><span class="ruby-operator">**</span>(<span class="ruby-value">7</span><span class="ruby-operator">-</span><span class="ruby-identifier">sector</span>)))<span class="ruby-operator">==</span><span class="ruby-value">0</span>) <span class="ruby-keyword kw">then</span>
+          <span class="ruby-identifier">free_sectors</span><span class="ruby-operator">&lt;&lt;</span><span class="ruby-constant">DSKTrackSector</span>.<span class="ruby-identifier">new</span>(<span class="ruby-identifier">track</span>,<span class="ruby-identifier">sector</span>)
+        <span class="ruby-keyword kw">end</span>
+        <span class="ruby-keyword kw">if</span> ((<span class="ruby-identifier">track_bitmap_hi</span> <span class="ruby-operator">&amp;</span> (<span class="ruby-value">2</span><span class="ruby-operator">**</span>(<span class="ruby-value">7</span><span class="ruby-operator">-</span><span class="ruby-identifier">sector</span>)))<span class="ruby-operator">==</span><span class="ruby-value">0</span>) <span class="ruby-keyword kw">then</span>
+          <span class="ruby-identifier">free_sectors</span><span class="ruby-operator">&lt;&lt;</span><span class="ruby-constant">DSKTrackSector</span>.<span class="ruby-identifier">new</span>(<span class="ruby-identifier">track</span>,<span class="ruby-identifier">sector</span><span class="ruby-operator">+</span><span class="ruby-value">8</span>)
+        <span class="ruby-keyword kw">end</span>        
+      <span class="ruby-keyword kw">end</span>
+    <span class="ruby-keyword kw">end</span>
+    <span class="ruby-identifier">free_sectors</span>.<span class="ruby-identifier">sort</span>  
+<span class="ruby-keyword kw">end</span></pre>
+</body>
+</html>

data/doc/classes/NADOLDisk.src/M000040.html

@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE html 
+     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html>
+<head>
+  <title>make_file (NADOLDisk)</title>
+  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
+  <link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
+</head>
+<body class="standalone-code">
+  <pre><span class="ruby-comment cmt"># File lib/NADOLDisk.rb, line 105</span>
+<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">make_file</span>(<span class="ruby-identifier">filename</span>,<span class="ruby-identifier">contents</span>,<span class="ruby-identifier">file_options</span>={})
+  <span class="ruby-keyword kw">if</span> (<span class="ruby-identifier">file_options</span>[<span class="ruby-identifier">:tokenise</span>]) <span class="ruby-keyword kw">then</span>
+    <span class="ruby-keyword kw">return</span> <span class="ruby-constant">NADOLTokenisedFile</span>.<span class="ruby-identifier">new</span>(<span class="ruby-identifier">filename</span>,<span class="ruby-constant">NADOLTokenisedFile</span>.<span class="ruby-identifier">tokenise</span>(<span class="ruby-identifier">contents</span>))  
+  <span class="ruby-keyword kw">else</span>
+    <span class="ruby-keyword kw">return</span> <span class="ruby-constant">NADOLFile</span>.<span class="ruby-identifier">new</span>(<span class="ruby-identifier">filename</span>,<span class="ruby-identifier">contents</span>)
+  <span class="ruby-keyword kw">end</span>
+<span class="ruby-keyword kw">end</span></pre>
+</body>
+</html>