anchor.diff:    (loop (%hlt)))
   
   (defun mumble (message)
  -  (dotimes (i (%simple-array-length message))
  -    (let ((code (logand (char-code (schar message i)) #xFF)))
  -      (setf (io-port/8 #xE9) code)
  -      (setf (sys.int::memref-unsigned-byte-16 #x80000B8000 i)
  -            (logior code #x7000))))
  +  (mumble-string message)
     (setf (io-port/8 #xE9) #x0A))
   
   ;;; Used while the GC is copying, so no lookup tables.
  
positive.code:         (isa-pic-irq-mask 2) nil))
  
  (add-hook '*early-initialize-hook* 'init-isa-pic)
  
  (defun sys.int::simplify-string (string)
    (if (simple-string-p string)
  
negative.code:   (cond ((<= 0 nibble 9)
           (+ nibble (char-code #\0)))
          (t (+ (- nibble 10) (char-code #\A)))))
  
  (defun mumble-string (message)
    (dotimes (i (%simple-array-length message))
      (let ((code (logand (char-code (schar message i)) #xFF)))
        (setf (io-port/8 #xE9) code)
        (setf (sys.int::memref-unsigned-byte-16 #x80000B8000 i)
              (logior code #x7000)))))
  (defun mumble-hex (number)
    (dotimes (i 16)
      (setf (io-port/8 #xE9) (hexify (logand (ash number (* -4 (- 15 i))) #b1111)))))
  
  (defun gc-trace (object direction prefix)
    (setf (io-port/8 #xE9) (char-code direction))
  