*         CTEXT CTP$DFT_SET_SS_DUAL_I4

 SER      SPACE  4,10
**        SER - SET SS ERROR READ FLAG TO INDICATED VALUE.
*
*         ENTRY  (A) = 0 TO CLEAR, 1 TO SET FLAG.
*                (CM - CM+3) = SECONDARY DFT BUFFER HEADER.
*
*         USES   CM+3.
*
*         CALLS  PCM.


 SER      SUBR               ENTRY/EXIT
          SHN    3
          ADC    LMCI
          STML   SERA
          LDDL   CM+3
          LPC    0#7FFF
          LMC    0           SET SS ERROR READ FLAG
 SERA     EQU    *-2
          STDL   CM+3
          LDN    CMSS
          RJM    PCM         PUT CM RESIDENT WORD
          UJN    SERX        RETURN

*         END CTP$DFT_SET_SS_DUAL_I4
