anchor.diff:  	false to fdt-cas-fix?
   	EXIT
       THEN drop
  -    fdt-fetch-unit
  +    fdt-fetch-unit		    ( a1 $name )
       dup 0 = IF drop drop " /" THEN
       40 left-parse-string
       2swap ?dup 0 <> IF
  
positive.code: 	    THEN
  	THEN
      REPEAT
      drop \ drop tag
  ;
  
  : fdt-fix-cas-node ( start -- )
      0 to fdt-cas-pass dup (fdt-fix-cas-node) drop \ Add phandles
      1 to fdt-cas-pass dup (fdt-fix-cas-node) drop \ Patch+add other properties
      2 to fdt-cas-pass dup (fdt-fix-cas-node) drop \ Delete phandles from pass 1
      drop
  ;
  
  
negative.code: ;
  
  \ Encode fdt property to OF property
  : fdt-encode-prop  ( addr len -- pa ps )
     2dup fdt-prop-is-string? IF
        1- encode-string
     ELSE
  