anchor.diff:                  2 pick 2C + rtas-config-l!      \ | and set the Limit
           THEN                                    \ FI
           10 rshift                               \ keep upper 16 bits
  -        pci-max-mem @ FFFF0000 and or           \ and Insert mmem Limit (set it to max)
  +        pci-max-mem @ 1- FFFF0000 and or        \ and Insert mmem Limit (set it to max)
           swap 24 + rtas-config-l!                \ and write it into the bridge
   ;
   
  
positive.code:                 swap 30 + rtas-config-l!        \ | and write it into the Base-Upper16-bits
          THEN                                    \ FI
          8 rshift 000000FF and                   \ keep upper 8 bits
          pci-max-io @ 0000FF00 and or            \ insert upper 8 bits of Max-Limit
          over rtas-config-l@ FFFF0000 and        \ fetch original Value
          or swap 1C + rtas-config-l!             \ and write it into the bridge
  ;
  
negative.code:         pci-next-mmio @ 100000 #aligned         \ read the current Value and align to 1MB boundary
          dup 100000 + pci-next-mmio !            \ and write back with 1MB for bridge
          10 rshift                               \ mmio-base reg is only the upper 16 bits
          pci-max-mmio @ 1- FFFF0000 and or       \ and Insert mmio Limit (set it to max)
          swap 20 + rtas-config-l!                \ and write it into the bridge
  ;
  
  