anchor.diff:    next
     (sys.lap-x86:ret))
   
  +(sys.int::define-lap-function %wbinvd (())
  +  (:gc :no-frame :layout #*0)
  +  (sys.lap-x86:wbinvd)
  +  (sys.lap-x86:ret))
  +
   (defun populate-idt (vector)
     ;; IDT completely fills the second page (256 * 16)
     (dotimes (i 256)
  
positive.code:   ;; properly. Liberal use of address-size-override and 32-bit addressing
    ;; modes are required in 16-bit code.
    (sys.lap-x86:!code16)
    ;; Unify segments.
    ;; All memory access must be relative to CS until in 64-bit mode.
    (sys.lap-x86:movseg :bx :cs)
  
negative.code:   (setf (physical-memref-unsigned-byte-64 (+ physical-address +ap-bootstrap-real-pml4-offset+))
          (sys.int::%cr3))
    (setf (physical-memref-unsigned-byte-64 (+ physical-address +ap-bootstrap-initial-pml4-offset+))
          initial-pml4)
    ;; Make sure other CPUs see the trampoline before they receive INIT.
    (%wbinvd))
  
  (defun lapic-setup ()
    (setf (lapic-reg +lapic-reg-spurious-interrupt-vector+) #x1FF))
  