TempleOSCDV4.11.ISO

Demo/Dsk/DskRaw.HC

@@ -0,0 +1,41 @@
+U0 RawAccess(I64 drv_let=0)
+{
+  CDrv *dv=Let2Drv(drv_let);
+  CBlkDev *bd=Let2BlkDev(drv_let);
+  I64 blk,old_offset,old_size;
+  U8 *buf=MAlloc(BLK_SIZE);
+
+  DrvRep;
+  PressAKey;
+
+  ClassRep(dv);
+  PressAKey;
+
+  ClassRep(bd);
+  PressAKey;
+
+  //Temporarily change partition range to full device.
+  //Normally, you are limited to just your partition.
+  //This is obviously $BK,1$dangerous$BK,0$!
+  old_offset=dv->drv_offset;
+  old_size  =dv->size;
+  dv->drv_offset=0;
+  dv->size=bd->max_blk+1;
+
+  try {
+    blk=GetI64("Blk to Read: ",old_offset,0,bd->max_blk);
+    RBlks(dv,buf,blk,1);
+    D(buf,BLK_SIZE);
+  } catch
+    PutExcept;
+
+  dv->drv_offset=old_offset;
+  dv->size  =old_size;
+
+  Free(buf);
+}
+
+RawAccess;
+
+//See $LK,"RBlks",A="MN:RBlks"$(), $LK,"WBlks",A="MN:WBlks"$(), $LK,"DrvLock",A="MN:DrvLock"$(), $LK,"DrvUnlock",A="MN:DrvUnlock"$()
+//$LK,"DBlk",A="MN:DBlk"$(), $LK,"DCluster",A="MN:DCluster"$(), $LK,"BlkDevLock",A="MN:BlkDevLock"$() and $LK,"BlkDevUnlock",A="MN:BlkDevUnlock"$().