MACRO
&lab PutIfMin &D_New,&where
&lab
 	lda &D_New
 	cmp &where
 	bcs PIMSkipit&sysindex
 	sta &where
PIMSkipit&sysindex
 	mend			

 	MACRO
&lab PutIfMax &D_New,&where
&lab
 	lda &D_New
 	cmp &where
 	bcc PIMSkipit&sysindex
 	sta &where
PIMSkipit&sysindex
 	mend