From b31fd85c18350bed7a0b995f1d6b67355a4d1bc0 Mon Sep 17 00:00:00 2001
From: Michaelangel007 <michaelangel007@sharedcraft.com>
Date: Tue, 7 Nov 2017 08:43:09 -0800
Subject: [PATCH] Add DskGetIndexBlock(), DskPutIndexBlock() prodos helpers

---
 generic.disk.cpp | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/generic.disk.cpp b/generic.disk.cpp
index fa66be2..834a3c0 100644
--- a/generic.disk.cpp
+++ b/generic.disk.cpp
@@ -58,6 +58,25 @@
         gaDsk[ offset + 2 ] = (val >>16) & 0xFF;
     }
 
+    int DskGetIndexBlock( int offset, int index )
+    {
+        int block = 0
+        | (gaDsk[ offset + index + 0   ] << 0)
+        | (gaDsk[ offset + index + 256 ] << 8)
+        ;
+        return block;
+    }
+
+    /*
+        000:lo0 lo1 lo2 ...
+        100:hi0 hi1 hi2 ...
+    */
+    void DskPutIndexBlock( int offset, int index, int block )
+    {
+        gaDsk[ offset + index + 0   ] = (block >> 0) & 0xFF;
+        gaDsk[ offset + index + 256 ] = (block >> 8) & 0xFF;
+    }
+
 
 // --- Name ---