
  PROCEDURE [INLINE] dsp$convert_seq_p_to_r_pointer
    (    seq_p: ^SEQ ( * );
     VAR r_pointer: dst$r_pointer);

?? PUSH (LISTEXT := ON) ??

{ PURPOSE:
{   The purpose of this procedure is to convert a sequence pointer to
{   r_pointer format for use by a PPU.

    VAR
      seq_p_rma: integer;

    i#real_memory_address (seq_p, seq_p_rma);
    r_pointer.offset := (seq_p_rma DIV 10(8)) MOD 100(8);
    r_pointer.rupper := seq_p_rma DIV 10000000(8);
    r_pointer.rlower := (seq_p_rma DIV 1000(8)) MOD 10000(8);
    r_pointer.length := (#SIZE (seq_p^) + 7) DIV 8;

  PROCEND dsp$convert_seq_p_to_r_pointer;

*copyc dst$r_pointer
*copyc i#real_memory_address
?? POP ??
