*COMDECK LIBCOM                                                          LARRY-R
**        READSS - READ SINK/SOURCE 
* 
*           SS   -  FETCH REGISTER                                       LARRY-R
*           SSA  -  SINK/SOURCE  ADDRESS                                 LARRY-R
*           WRFLG-  READ/WRITE FLAG                                      LARRY-R
*           SLSHF-  SHIFT ON  B7 TO TEST SCM/LCM                         LARRY-R
*                                                                        LARRY-R
  
 READSS   MACRO  SS,SSA,WRFLG,SLSHF,SSB                                  LARRY-R
          LOCAL  LAB1,LAB2                                               LARRY-R
 XREG     MICRO  2,1,*_SS_*                                              LARRY-R
  
 #LCM     IFEQ   LCM,0       IF NO LCM
*                                                                        LARRY-R
*         LOWER CYBER ONLY HAS SCM                                       LARRY-R
*                                                                        LARRY-R
          S_SS   SSA                                                     LARRY-R
          IFNE   SSA,SSB,1                                               LARRY-R
          S_SSB  SS                                                      LARRY-R
 #LCM     ELSE
*                                                                        LARRY-R
*         THE FULL THING FOR 7600/CYBER76/CYBER176
*                                                                        LARRY-R
          SX0    B7                                                      LARRY-R
          LX0    SLSHF                                                   LARRY-R
          PL     X0,LAB1     .  SCM-FETCH                                LARRY-R
          SX0    SSA                                                     LARRY-R
          IFNE   SSA,SSB,1                                               LARRY-R
          S_SSB  X0                                                      LARRY-R
          WRFLG_X_"XREG" X0                                              LARRY-R
          EQ     LAB2                                                    LARRY-R
 LAB1     S_SS   SSA                                                     LARRY-R
          IFNE   SSA,SSB,1                                               LARRY-R
          S_SSB  SS                                                      LARRY-R
 LAB2     BSS    0                                                       LARRY-R
 #LCM     ENDIF 
 READSS   ENDM
