DEFUNO("PROFILE",object,fSprofile,SI
   ,2,2,0 ,OO,OO,OO,OO,siLprofile,
       "Sets up profiling with START-ADDRESS and  SCALE where scale is   between 0 and 256")
DEFUNO("FUNCTION-START",object,fSfunction_start,SI
   ,1,1,0 ,OO,OO,OO,OO,siLfunction_start,"")
DEFUNO("READ-EXTERNALS",object,fSread_externals,SI
   ,1,1,0 ,OO,OO,OO,OO,siLread_externals,"")
DEFUNO("SET-UP-COMBINED",object,fSset_up_combined,SI
   ,0,1,0 ,OO,OO,OO,OO,siLset_up_combined,"")
DEFUNO("DISPLAY-PROFILE",object,fSdisplay_profile,SI
   ,2,2,0 ,OO,OO,OO,OO,siLdisplay_profile,"")
DEFUNO("ARRAY-ADRESS",object,fSarray_adress,SI
   ,1,1,0 ,OO,OO,OO,OO,siLarray_adress,"")
DEFVAR("*PROFILE-ARRAY*",sSAprofile_arrayA,SI,((object)&Cnil_body) ,"")