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