
    TYPE
      dst$list_for_block = array [dst$list_block_kind] of ^SEQ (*),

      dst$list_block = record
        list_block_p: ^SEQ (*),
        rfu_1: ^SEQ (*),
        rfu_2: ^SEQ (*),
        rfu_3: ^SEQ (*),
      recend;

?? PUSH (LISTEXT := ON) ??
*copyc dst$list_block_kind
?? POP ??
