anchor.diff:  ;
   
   : 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
  
positive.code: \ SCSI scan at boot and child device support
  \ -----------------------------------------------------------
  
  0 INSTANCE VALUE target-id
  0 INSTANCE VALUE target-lun
  
  : set-address ( lun id -- )
      to target-id to target-lun 
  ;
  
  : dev-max-transfer ( -- n )
  
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    
  ;
  
  