Для идиота смысла нет, а умному человеку почему бы не объяснить?
Видишь, B9 - байт-команда = MOV ECX, SomeConst, а сама константа занимает 4 байта и находится, естественно, байтом правее от адреса команды. Соответственно, нужно записать по адресу 701001(в моём случае) 8.
PINTEGER($701001)^:=8.
Однако это только для кода вога, для которого разрешена запись. Для остального нужно использовать процедуру: