
  PROCEDURE [INLINE] mmp$preset_conversion (
         preset_value_int: integer;
    VAR  preset_value_ord: pmt$initialization_value);

?? PUSH (LISTEXT := ON) ??

   VAR
     i: pmt$initialization_value;

   preset_value_ord := pmc$initialize_to_zero;
   /preset_loop/
   FOR i := LOWERBOUND (mmv$preset_conversion_table) TO UPPERBOUND (mmv$preset_conversion_table) DO
     IF (preset_value_int = mmv$preset_conversion_table [i]) THEN
      preset_value_ord := i;
      EXIT /preset_loop/;
    IFEND;
  FOREND /preset_loop/;

 PROCEND mmp$preset_conversion;

*copyc mmv$preset_conversion_table
*copyc pmt$initialization_value
?? POP ??
