anchor.diff:                   (key-pressed #xffc3) ; F6
                    (key-pressed #xffc4) ; F7
                    (key-pressed #xffc5)); F8
  -               (gdb gdb-prompt-parser "monitor stop")
  +               ;(gdb gdb-prompt-parser "monitor stop")
  +               (gdb gdb-ctrl-c-answer-parser 'stop)
  +               ;(read)
  +
                  ; и выполним одну команду, чтобы gdb засинхронизировался с qemu
                  (gdb gdb-si-answer-parser "si")
                  (main #true #true 0))
  
positive.code: ;               (prompt gdb-prompt-parser))
        value))
  
  ; disassembler
  (define gdb-x-i-answer-parser
     (let-parses((lines (get-greedy+
  
negative.code:          ; it's good idea to free the input buffer
           (syscall 0 (car Out) 1024 #f) ; 1024 would be enought, i think...
  
           (let*((parser command
                    (if (string? (car msg))
                       (values #false msg)
                       (values (car msg) (cdr msg)))))
              (unless (null? command) 
                 (if (equal? command '(stop))
                    (syscall 62 Pid 2 #f) ; SIGINT
                    (for-each (lambda (x) (display-to (cdr In) x)) (append command '("\n")))))
           
              (mail sender (if parser (car (fd->exp-stream (car Out) "" (car msg) syntax-fail)) #true))))
        (loop)))))
  
  ; qemu instance
  