          EJECT                                                          R152_OS        1
          TITLE  DSI$FIND SPAA RMA.                                      R152_OS        2
**        FSR - FIND SPAA RMA.                                           R152_OS        3
*                                                                        R152_OS        4
*         SEARCH SPAA FOR ID AND RETURN THE CORRESPONDING RMA.           R152_OS        5
*                                                                        R152_OS        6
*         ENTRY  (A) = SPAA ID CODE.                                     R152_OS        7
*                (DSRTP - DSRTP+1) = POINTER TO POINTER TO SPAA.         R152_OS        8
*                                                                        R152_OS        9
*         EXIT   (A) = ADDRESS OF SPAA ENTRY.                            R152_OS       10
*                (W2 - W3) = RMA OF ENTRY.                               R152_OS       11
*                                                                        R152_OS       12
*         USES   T2, W0 - W6.                                            R152_OS       13
*                                                                        R152_OS       14
*         CALLS  STA.                                                    R152_OS       15
                                                                         R152_OS       16
                                                                         R152_OS       17
 FSR2     LDDL   W6          RETURN POINTER TO ENTRY                     R152_OS       18
          LMC    400000B                                                 R152_OS       19
                                                                         R152_OS       20
 FSR      SUBR               ENTRY/EXIT                                  R152_OS       21
          STD    T2          SET ID TO SEARCH FOR                        R152_OS       22
          LDN    DRVTBLP                                                 R152_OS       23
          RJM    IIB                                                     R152_OS       24
          CRDL   W0                                                      R152_OS       25
          RJM    STA         SET SET ADDRESS OF SPAA                     R152_OS       26
 FSR1     LDDL   W6          FETCH NEXT ENTRY OF SPAA                    R152_OS       27
          LMC    400000                                                  R152_OS       28
          CRDL   W0                                                      R152_OS       29
          LDDL   W1          ENTRY IDENTIFIER                            R152_OS       30
          ZJN    FSRX        IF ENTRY NOT FOUND                          R152_OS       31
          LMD    T2                                                      R152_OS       32
          ZJN    FSR2        IF ENTRY FOUND                              R152_OS       33
          LDN    2                                                       R152_OS       34
          RAD    W6          INCREMENT INDEX INTO SPAA                   R152_OS       35
          UJN    FSR1        TRY NEXT ENTRY                              R152_OS       36
