Код:
ptr: POINTER TO BYTE;
ptrby: POINTER TO BYTE;
aby: ARRAY [0..3] OF BYTE;
ptr:= ADR(%IR3.0);
ptrby := ADR( aby[0]);
FOR i := 1 TO 4 DO
ptrby^ := ptr^;
ptr := ptr + 1;
ptrby := ptrby + 1;
END_FOR
Не проверял. Но как-то так. И потом рассматривай себе на здоровье, ХОШ - первый байт, ХОШ - второй, ХОШ КАКОЙ ХОШ ![Smile](images/smilies/smile.png)
Главное, что меня удивило, когда уважаемый Валенок учил меня здесь пойнтеры юзать, что при прямом наращивании указателя КоДеСис не обращает внимание на размер того, на что он указывает. Поэтому операция ptr := ptr + 1; установит пойнтер именно на следующий байт, а не на следующий РИАЛ (как можно ожидать из опыта Си).