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: ;
  
  : dev-get-capacity ( -- blocksize #blocks )
      target-id to current-id target-lun to current-lun
      read-capacity not IF 0 0 EXIT THEN
      sector scsi-get-capacity-10
  ;
  
  : dev-read-blocks ( -- addr block# #blocks blksize -- #read-blocks )
      target-id to current-id target-lun to current-lun
      read-blocks    
  ;
  
  
negative.code: \ SCSI scan at boot and child device support
  \ -----------------------------------------------------------
  
  : set-address ( lun id -- )
      to current-id to current-lun 
  ;
  
  : dev-max-transfer ( -- n )
  