 WFC      SPACE  4,10
**        WFC - WRITE FAULT SYMPTOM CODE.
*
*         ENTRY  (A) = TWO CHARACTER ELEMENT IDENTIFIER.
*                (BC - BC+3) = BUFFER CONTROL WORD.
*                (RTP1) = 0 LOG TO SUPPORTIVE STATUS
*                       = 1 LOG TO NON REGISTER STATUS
*         USES   T1, CM - CM+3.
*
*         CALLS  CDA, CSD, IDA.


 WFC      SUBR               ENTRY/EXIT
          STDL   T1          SAVE ELEMENT IDENTIFIER
          LDN    3
          STM    WFCC        NUMBER OF HEADER WORDS FOR SUPPORTIVE STATUS
          LDM    RTP1        FLAG TO LOG TO SUPPORTIVE STATUS OR NON REGISTER STATUS
          ZJN    WFC1        IF TO LOG TO SUPPORTIVE STATUS
          AOM    WFCC        NON REGISTER STATUS HAS 1 MORE HEADER WORD THAN SUPPORTIVE
          LDN    NRSP        ADDRESS OF SCRATCH NON REGISTER STATUS BUFFER
          UJN    WFC2

*         READ FIRST WORD OF FAULT SYMPTOM CODE TO PRESERVE FIRST TWO BYTES.

 WFC1     LDN    SSBP        GET ADDRESS OF SCRATCH BUFFER
 WFC2     RJM    IDA
          CRDL   CM
          LDM    WFCC        SKIP HEADER WORDS
          RADL   CM
          LRD    CM+1
          ADC    RR
          CRML   WFCA,ON
          LDDL   T1          SET ELEMENT IDENTIFIER
          STML   WFCB

*         SET MODEL NUMBER.

          LDD    MD
          RJM    CDA         CONVERT TWO DIGITS TO ASCII
          STML   WFCB+1

*         SET SYMPTOM CODE.

          LDDL   BC+BCDA     DFT ANALYSIS
          SHN    -10
          LPN    0#F
          STD    T1
          LMN    4           4XX INTERNAL ERROR
          ZJN    WFC2.5      IF INTERNAL ERROR
          LDD    T1
          LMN    5           5XX INTERNAL ERROR
          ZJN    WFC2.5      IF INTERNAL ERROR
          LDD    T1
          LMN    6           6XX CODE
          ZJN    WFC2.5      IF INTERNAL ERROR
          UJN    WFC3

 WFC2.5   LDML   WFCB+2
          LPC    0#FF00
          STML   WFCB+2
          LDDL   BC+BCDA
          SHN    -10
          LPN    0#F
          RJM    CSD         CONVERT SINGLE DIGIT
          LMML   WFCB+2
          STML   WFCB+2
          LDDL   BC+BCDA
          LPC    0#FF
          RJM    CDA         CONVERT DIGITS TO ASCII
          STML   WFCB+3
          UJP    WFC4

 WFC3     LDDL   BC+BCDA     DFT ANALYSIS
          SHN    -4          ISOLATE FIRST TWO CHARACTERS
          LPC    377
          RJM    CDA         CONVERT TWO DIGITS TO ASCII
          STML   WFCB+2
          LDD    BC+BCDA     ISOLATE LAST CHARACTER
          LPN    17
          RJM    CSD         CONVERT SINGLE DIGIT TO ASCII
          SHN    10
          LMC    1R
          STML   WFCB+3

*         WRITE FAULT SYMPTOM CODE TO SCRATCH SUPPORTIVE STATUS BUFFER.

 WFC4     LDN    2           SET NUMBER OF CM WORDS TO WRITE
          STD    T1
          LDDL   CM          LOAD ADDRESS OF SCRATCH BUFFER
          ADC    RR
          CWML   WFCA,T1     WRITE TO SCRATCH BUFFER
          LJM    WFCX        RETURN

 WFCC     BSS    1
 WFCA     BSS    2           RESERVED AREA OF FAULT SYMPTOM CODE
 WFCB     DATA   12HDEMMZCC
