;
for i=1,100 do begin
    hxt_index		= {hxt_index_rec}		;zeros data fields
    hxt_dhk		= {hxt_dhk_data_rec}
    hxt_pc		= {hxt_pc_data_rec}
    hxt_ph		= {hxt_ph_data_rec}
    hxa_addr		= replicate({hxa_addr_rec},2)
end
;
end