(* let _ = Misc.debug := 1;; *)

open Unix

module File = struct let name = "Disk1.dbg" end

let nb = 16;;
let bs = 48;;
let _ =
  let desc = openfile File.name [ O_CREAT ; O_RDWR; ] 0o666 in
  ignore (Unix.lseek desc (nb * bs) SEEK_SET);
  let buffer = String.create 4 in
  Misc.write_int bs buffer 0;
  ignore (Unix.write desc buffer 0 4);
  close desc;;

module D = Disk.Opendisk (File);;
D.print();;
let _ =
  let buffer = String.make bs '0' in
  for i = 0 to 1 do
    D.write_block i buffer 0;
  done;;
  let buffer = String.make bs 'A' in
  for i = 2 to nb - 1 do
    D.write_block i buffer 0;
  done;;
D.print();;