anchor.diff:           (ebx (bytes->number (gdb gdb-p-x-answer-parser "p/x $ebx") 16))
            (ecx (bytes->number (gdb gdb-p-x-answer-parser "p/x $ecx") 16))
            (edx (bytes->number (gdb gdb-p-x-answer-parser "p/x $edx") 16))
  +         (esp (bytes->number (gdb gdb-p-x-answer-parser "p/x $esp") 16))
  +         (ebp (bytes->number (gdb gdb-p-x-answer-parser "p/x $ebp") 16))
  +         (esi (bytes->number (gdb gdb-p-x-answer-parser "p/x $esi") 16))
  +         (edi (bytes->number (gdb gdb-p-x-answer-parser "p/x $edi") 16))
  +         (eip (bytes->number (gdb gdb-p-x-answer-parser "p/x $eip") 16))
            (show (lambda (x y reg value)
               (locate x y)
               (set-color DARKGREY)
  
positive.code: (syscall 1017 (c-string "killall qemu-system-i386") #f #f)
  (syscall 1017 (c-string "killall gdb") #f #f)
  
  ;; #qemu-img create -f qcow2 win7.qcow2.hd 3G
  ;; qemu-system-i386 -enable-kvm -m 512 -cdrom /home/uri/Downloads/W7-Super-Lite-x86-Install-2017.iso -boot d -monitor stdio win7.qcow2.hd -s -S
  
  
negative.code: (define ip (bytes->string
  (gdb gdb-target-connected-parser "target remote localhost:1234")))
  
  (print "Machine started with IP " ip)
  
  (if (string-eq? ip "0x0000fff0") (begin
     (display "Executing bootstrap, please wait...")
     ; let's do few steps to leave the initial "bios" zeros at 0xfff0
     (let loop ()
        (let ((ip (gdb gdb-si-answer-parser "si")))
           (if (< (bytes->number (cddr ip) 16) #x00010000)
              (loop))))
     (print "Ok.")))
  (print "Your EQMU-GDB session ready to work")
  ; Looks like our machine ready to start:
  
  ; окошко с регистрами. обновляет, добывает, рисует
  