ROUTINE x980_MM_Msg_RetrySearch
RC: "$N"
                   "**************************************************************************************************$N"
                   "Build a unique list of MM targets that need to have their state data resent, due to a messaging error$N"
                   "This routine is called from a JSR in routine $'MM_Msg_Send$'$N"
                   "**************************************************************************************************$N"
                   "$N"
                   "Reset the found bit and FIFO search pointer";
N: OTU(Msg_MM_SearchFound)MOV(0,DLoc08);
RC: "Search the FIFO to see if the index to see if the index of the errored target is already loaded.$N"
                   "Loop only to the size of the FIFO.";
N: LBL(LBL02)EQU(MMToMsg,QAS_PodToMsgRetryFIFO[DLoc08])OTL(Msg_MM_SearchFound);
N: LES(DLoc08,QAS_FifoCtl[4].POS)ADD(1,DLoc08,DLoc08)JMP(LBL02);
RC: "If the target index was not found in the FIFO, load it and increment the FIFO .POS indicator";
N: XIO(Msg_MM_SearchFound)LES(QAS_FifoCtl[4].POS,320)MOV(QAS_FifoCtl[4].POS,DLoc07)[MOV(MMToMsg,QAS_MMToMsgRetryFIFO[DLoc07]) ,ADD(1,QAS_FifoCtl[4].POS,QAS_FifoCtl[4].POS) ];
END_ROUTINE