anchor.diff:  : vscsi-find-disks      ( -- )   
       ." VSCSI: Looking for disks" cr
       #dev 0 DO                                      \ check 8 devices (no LUNs)
  -        i to current-id 0 to current-lun
  +        0 i set-address
   	wrapped-inquiry IF	
   	    ."   SCSI ID " i .
   	    \ XXX FIXME: Check top bits to ignore unsupported units
  
positive.code: ;
  
  : dev-prep-cdrom ( -- )
      target-id to current-id target-lun to current-lun
  
      5 0 DO
          cdrom-status CASE
  	    CDROM-READY           OF UNLOOP EXIT ENDOF
  
negative.code: 
  CREATE sector d# 512 allot
  
  0 INSTANCE VALUE current-id
  0 INSTANCE VALUE current-lun
  
  \ SCSI test-unit-read
  : test-unit-ready ( -- true | [ ascq asc sense-key false ] )
  