Код:
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
Не проверял. Но как-то так. И потом рассматривай себе на здоровье, ХОШ - первый байт, ХОШ - второй, ХОШ КАКОЙ ХОШ
Главное, что меня удивило, когда уважаемый Валенок учил меня здесь пойнтеры юзать, что при прямом наращивании указателя КоДеСис не обращает внимание на размер того, на что он указывает. Поэтому операция ptr := ptr + 1; установит пойнтер именно на следующий байт, а не на следующий РИАЛ (как можно ожидать из опыта Си).