%constinteger anon = 16_087F5780

%include "CONFIG.INC"
%include "COMMON"

%include "I:UTIL.INC"

%include "DISQIO.INC"

%begin
   %record(directory fm) dir
   %integer i, p, a
   %integername x
      dir = 0
      dir_header_owner = anon
      dir_header_directory size = 2048
      %for p = 0, 1, last partition %cycle
         %for i = 1, 1, u per p %cycle
            a = pd start(p) + 4 * i - 4
            printstring("Initialising ");  write(p, 3);  write(i, 3)
            printstring(" at ");  phex(a)
            newline
            x == transfer(D write ! D verify, 2048, a << 9, integer(addr(dir)))
            %cycle;  %repeat %until x # 0
            dir_header_owner = 0
         %repeat
      %repeat
%end %of %program
