++ B *HDFORM_Fast Winchester disk formatter (DTC-510A controller) 6 Created: 12-NOV-1986 Author: MJT Version 01.00A   NOTE  $; Copyright (c) 1986 by MJT. This program may be copied .D and used providing it is not sold or used for commercial gain. 8 B ABSTRACT L VH This program formats a Winchester Disk on the DTC-510A controller. `E It uses the "format entire media" command to perform the format jD operation - no verification is done during formatting, any bad tE blocks on the media ARE NOT CHECKED/DETECTED - if any are found ~: they will have to be dealt with manually (see text).  C After formatting is complete a diagnostic read of the disk is E performed, this DOES NOT verify the whole media, it just checks D that sector 0 on every track exists and then reads 256 sectors 4 randomly - it checks that the drive is okay...  _ + buffer% 1000 : dummy buffer space & block% 16 : OSWORD buffer  7sk%=4 : optimum sector skew for disk "Formatting..."   8?block%=0 : set up OSWORD parameter block block%?1=buffer% /block%?5=4 : format command is 04 (block%?6=0 2block%?7=0 <block%?8=0 F&block%?9=sk% : sector skew Pblock%?10=0 Zblock%!11=0 d n&A%=&72:X%=block%256:Y%=block%256 x &FFF1 & ?block% <> 0 "Format error":  "Format complete"  .'"Diagnostic read" : do diagnostic read block%?5=&E3 block%?6=0 block%?7=0 block%?8=0 block%?9=0 block%?9=0  .A%=&72:X%=block%256:Y%=block%256: &FFF1 .?block% <> 0 "Diagnostic read error": "Diagnostic completed"