anchor.diff:  
   0 VALUE phb-debug?
   
  +1000 CONSTANT tce-ps		\ Default TCE page size is 4K
  +tce-ps 1- CONSTANT tce-mask
   
   ." Populating " pwd cr
   
  
positive.code: 
  : dma-alloc ( size -- virt )
     phb-debug? IF cr ." dma-alloc called: " .s cr THEN
     fff + fff not and                  \ Align size to next 4k boundary
     alloc-mem
     \ alloc-mem always returns aligned memory - double check just to be sure
     dup fff and IF
        ." Warning: dma-alloc got unaligned memory!" cr
     THEN
  ;
  
  : dma-free ( virt size -- )
     phb-debug? IF cr ." dma-free called: " .s cr THEN
     fff + fff not and                  \ Align size to next 4k boundary
     free-mem
  ;
  
  
negative.code: 0 VALUE dma-window-size         \ Size of the window
  
  0 VALUE bm-handle               \ Bitmap allocator handle
  
  \ Read helper variables (LIOBN, DMA window base and size) from the
  \ "ibm,dma-window" property. This property can be either located
  