module test;
   parameter NBytes = 21;
   parameter  Message = "0H1d2j3i4k 5R6i7k8d9["; // Message to send

   integer   J;
   reg [7:0] RSData;
   initial begin
      for (J=(NBytes-1); J>=0; J=J-1)
	begin
	   RSData = (Message>>(J*8)) & 8'hFF;
	   $display("RSData=%h", RSData);
	end
   end
endmodule // test