vtocx_to_record reports incorrect sector numbers for 338x disks.

[anonymous]

In ldd>tools>s>bound_priv_ss_.s::vtocx_to_record.pl1, the 'mulphy' and 'phymul' procedures assume 16 sectors/record, without checking for the 338x case of 2 sectors/record.

mulphy: proc (rec) returns (fixed bin);
dcl (sect, rec) fixed bin;

sect = rec * 16;
sect = sect + divide (sect, usable, 17, 0) * unusable;
return (sect);

end mulphy;

phymul: proc (sect) returns (fixed bin);
dcl (r, sect) fixed bin;

r = divide (sect, sect_per_cyl (dvt), 17, 0) * unusable;
return (divide (sect - r, 16, 17, 0));

end phymul;

sect = rec * 16;

should be: (untested)

sect = rec * sect_per_rec (dvt);

and

return (divide (sect - r, sect_per_rec (dvt), 17, 0));

should be: (untested)

return (divide (sect - r, sect_per_rec (dvt), 17, 0));