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:                   ;(caadr code) <= next ip
                    (print "  " ($reg->string (caadr code)))
                    (gdb get-rest-of-line "tbreak *0x" ($reg->string (caadr code)))) ; <= Temporary breakpoint ? at 0x??
                 (gdb get-rest-of-line "c") ; Continuing. #\newline Temporary breakpoint ?, 0x??? in ?? ()
  
                 (main #true interactive 0))
  
  
negative.code: ;               (prompt gdb-prompt-parser))
        value))
  
  ;; ;Program received signal SIGINT, Interrupt.
  ;; ;0x0000d5b4 in ?? ()
  ;; (define gdb-ctrl-c-answer-parser
  ;;    (let-parses((skip get-rest-of-line)
  ;;                (skip (get-word "0x" #t))
  ;;                ($pc get-hex)
  ;;                (skip get-rest-of-line))
  ;; ;               (prompt gdb-prompt-parser))
  ;;       $pc))
  (define gdb-ctrl-c-answer-parser
     (get-word "Quit" #t))
  
  
  ; disassembler
  (define gdb-x-i-answer-parser
     (let-parses((lines (get-greedy+
  