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:          ; it's good idea to free the input buffer
           (syscall 0 (car Out) 1024 #f) ; 1024 would be enought, i think...
  
  ;         (if (equal? msg '(SIGINT)) ; SIGINT = 2
  ;            (syscall 62 Pid 2 #f)
  
           (let*((parser command
                    (if (string? (car msg))
                       (values #false msg)
                       (values (car msg) (cdr msg)))))
              ;(locate 40 18) (print "parser: " parser)
              ;(locate 40 19) (print "command: " command)
           (unless (null? command) (begin
              ;(print "sending " msg)
              (for-each (lambda (x) (display-to (cdr In) x)) command)
              (display-to (cdr In) "\n")))
           
           (mail sender (if parser (car (fd->exp-stream (car Out) "" (car msg) syntax-fail)) #true))))
        (loop)))))
  
  ; qemu instance
  
negative.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??
                 (print (bytes->string
                 (gdb get-rest-of-line "continue"))) ; Continuing. #\newline Temporary breakpoint ?, 0x??? in ?? ()
  
                 (main #true interactive 0))
  
  