anchor.diff:      my-self >r
       dup to my-self
       \ Scan the VSCSI bus:
  -    vscsi-init IF
  -        vscsi-find-disks
  -        setup-alias
  -    THEN
  +    vscsi-find-disks
  +    setup-alias
       \ Close the temporary instance:
       close-node
       r> to my-self
  
positive.code:         ." VSCSI: Error sending init command"
          crq-cleanup false EXIT
      THEN
  
      \ Wait reply
      crq-wait not IF
          crq-cleanup false EXIT
  
negative.code: \ -----------------------------------------------------------
  
  CREATE sector d# 512 allot
  TRUE VALUE first-time-init?
  0 VALUE open-count
  
  8000000000000000 INSTANCE VALUE current-target
  
  