anchor.diff:  (define gdb-si-answer-parser
      (let-parses((ip (get-greedy* (get-byte-if (lambda (x) (not (eq? x #\space))))))
                  (skip (get-word " in " #t))
  -               (skip get-rest-of-line))
  -;               (prompt gdb-prompt-parser))
  +               (skip get-rest-of-line)
  +               (prompt gdb-prompt-parser))
         ip))
   (define gdb-p-x-answer-parser
      (let-parses((skip (get-greedy* (get-byte-if (lambda (x) (not (eq? x #\space))))))
  
positive.code: (cls);(syscall 1017 (c-string "stty -echo") #f #f)
  (define progressbar "----\\\\\\\\||||////")
  
  (define (notify . args)
     (locate 1 21) (set-color DARKGREY)
     (display ":                                                                 ")
     (locate 3 21)
     (for-each display args))
  
  
  ; ============================================
  ; запустим вычислитель, это надо сделать здесь
  ; чтобы захватить все предыдущие дефайны
  
negative.code: ; Looks like our machine ready to start, ok.
  
  ,load "registers.lisp"
  
  ; ================================
  ; gdb commands
  (define (step-into)
     (notify "Step Into...")
     (run-gdb-breaker)
     (notify (bytes->string
        (gdb gdb-si-answer-parser "si")))
     (mail 'gdb-breaker #f))
  
  (define (step-over)
     (notify "Step Over..."
     (let ((code (gdb gdb-x-i-answer-parser "x/2i $eip")))
        ;(caar code) <= current ip
        ;(caadr code) <= next ip
        (gdb get-rest-of-line "tbreak *0x" ($reg->string (caadr code)))) ; <= Temporary breakpoint ? at 0x??
  
     (run-gdb-breaker)
     (notify (bytes->string
        (gdb gdb-continue-answer-parser "continue"))) ; Continuing. #\newline Temporary breakpoint ?, 0x??? in ?? ()
     (mail 'gdb-breaker #f))
  
  (define (run)
     (notify "Continue...")
  
     (run-gdb-breaker)
     (notify (bytes->string
        (gdb gdb-continue-answer-parser "continue")))
     (mail 'gdb-breaker #f))
  
  (define (quit)
     (locate 1 20) (set-color GREEN) (display "> quitting...") (set-color GREY)
     (qemu "quit") (gdb "quit")
  
     (print "ok.")
     (show-cursor)
     (syscall 1017 (c-string "stty echo") #f #f) ; enable terminal echo
     (halt 1))
  
  ; ================================
  ; code window
  