anchor.diff:  ;
   
   : vscsi-init-and-scan  ( -- )
  +    \ Create instance for scanning:
  +    0 0 get-node open-node ?dup 0= IF EXIT THEN
  +    my-self >r
  +    dup to my-self
  +    \ Scan the VSCSI bus:
       vscsi-init IF
           vscsi-find-disks
  -	setup-alias
  -    THEN
  +        setup-alias
  +    THEN
  +    \ Close the temporary instance:
  +    close-node
  +    r> to my-self
   ;
   
   vscsi-init-and-scan
  
positive.code: : vscsi-find-disks      ( -- )   
      ." VSCSI: Looking for disks" cr
      #dev 0 DO                                      \ check 8 devices (no LUNs)
          i to current-id 0 to current-lun
  	wrapped-inquiry IF	
  	    ."   SCSI ID " i .
  	    \ XXX FIXME: Check top bits to ignore unsupported units
  
negative.code: ;
  
  : dev-get-capacity ( -- blocksize #blocks )
      read-capacity not IF 0 0 EXIT THEN
      sector scsi-get-capacity-10
  ;
  
  : dev-read-blocks ( -- addr block# #blocks blksize -- #read-blocks )
      read-blocks    
  ;
  
  