anchor.diff:  ;               (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+
  
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:                  (key-pressed #xffc3) ; F6
                   (key-pressed #xffc4) ; F7
                   (key-pressed #xffc5)); F8
                 ;(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))
  