anchor.diff:      t))
   
   #+x86-64
  -(sys.int::define-lap-function %%bitblt-row ((to-base from-base ncols))
  +(sys.int::define-lap-function %%bitblt-row-x8r8g8b8 ((to-base from-base ncols))
     (sys.lap-x86:mov64 :rdi :r8) ; to-storage
     (sys.lap-x86:mov64 :rsi :r9) ; from-storage
     (sys.lap-x86:mov64 :rcx :r10) ; ncols
  
positive.code:   base-address
    width
    height
    pitch
    layout
    damage-fn)
  
  (sys.int::defglobal *current-framebuffer* nil)
  (sys.int::defglobal *debug-video-x* 0)
  
negative.code:         (height (sys.int::memref-t (+ *boot-information-page* +boot-information-framebuffer-height+) 0))
          (pitch (sys.int::memref-t (+ *boot-information-page* +boot-information-framebuffer-pitch+) 0))
          (layout (ecase (sys.int::memref-t (+ *boot-information-page* +boot-information-framebuffer-layout+) 0)
                    (1 :x8r8g8b8)
                    (5 :r8g8b8))))
      (map-physical-memory (logand phys (lognot #xFFF))
                           (logand (+ (* height pitch) (logand phys #xFFF) #xFFF) (lognot #xFFF))
                           "System Framebuffer")
  