buffer[2048] buf
pointer ptr @ 254

routine main
  inputs buf
  outputs buf, y
  trashes a, z, n, ptr
{
    ld y, 0
    copy ^buf, ptr
    copy 123, [ptr] + y
}