anchor.diff:  
   \ Cleanup behind us
   : vscsi-cleanup
  -    \ ." VSCSI: Cleaning up" cr
  +    vscsi-debug IF ." VSCSI: Cleaning up" cr THEN
       crq-cleanup
  +
       \ Disable TCE bypass:
       vscsi-unit 0 rtas-set-tce-bypass
   ;
   
   \ Initialize our vscsi instance
   : vscsi-init ( -- true | false )
  -    ." VSCSI: Initializing" cr
  -
  -    \ Can't use my-unit bcs we aren't instanciating (fix this ?)
  -    " reg" get-node get-package-property IF
  -        ." VSCSI: Not reg property !!!" 0
  -    THEN
  -    decode-int to vscsi-unit 2drop
  +    vscsi-debug IF ." VSCSI: Initializing" cr THEN
  +
  +    my-unit to vscsi-unit
   
       \ Enable TCE bypass special qemu feature
       vscsi-unit 1 rtas-set-tce-bypass
  
positive.code: \ -----------------------------------------------------------
  
  CREATE sector d# 512 allot
  
  8000000000000000 INSTANCE VALUE current-target
  
  
negative.code:         ." VSCSI: Error sending init command"
          crq-cleanup false EXIT
      THEN
   
      \ Wait reply
      crq-wait not IF
          crq-cleanup false EXIT
  