 TYPE
   dft$procedure_address_range =  dfc$first_procedure .. dfc$last_system_procedure;
?? PUSH (LISTEXT := ON) ??
*copyc dft$procedure_address_ordinal
?? POP ??
