          EJECT
*         CTEXT  CTP$DFT GENERATE I4 CLASS IOU FAULT CODES.
*
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC. 1992

 GS4      SPACE  4,10
**        GS4 - GENERATE SYMPTOM CODE FOR MODEL 44 IOU.
*
*         USES   CM - CM+3.
*
*         CALLS  FMB, IOUFSC, WFS.


 GS4      SUBR               ENTRY/EXIT
          LDDL   BC+BCDA     GET ANALYSIS TO LOG
          SHN    -BC.ANP
          SBN    EPEN
          PJP    GS42        IF ENVIRONMENT WARNING
          LDML   CPU0M       CPU0 MODEL NUMBER
          STML   CDIF
          LDC    IFS1
          RJM    FMB         FIND MAINTENANCE REGISTER IN SCRATCH BUFFER
          CRML   CDIF+1,ON
          LDC    IFS2
          RJM    FMB         FIND MAINTENANCE REGISTER IN SCRATCH BUFFER
          CRML   CDIF+5,ON
          LDN    EIMR
          RJM    FMB         FIND MAINTENANCE REGISTER BUFFER
          CRDL   W0
          LDDL   W2
          LPC    0#FF
          LMC    0#40
          STD    T1
          NJN    GS40        IF NOT MODEL 40 IOU
          LDN    OIMR
          RJM    FMB         FIND REGISTER IN MAINTENANCE REGISTER SCRATCH
          CRDL   W0
          LDDL   W3
          SHN    21-7
          PJN    GS45        IF NO CIO PPS PRESENT
          LDC    CIFS1
          RJM    FMB         FIND REGISTER IN MAINTENANCE REGISTER SCRATCH
          CRML   CDIF+9D,ON
          LDC    CIFS2
          RJM    FMB         FIND REGISTER IN MAINTENANCE REGISTER SCRATCH
          CRML   CDIF+13D,ON
          UJN    GS45        CREATE I4A FSC

 GS40     LDD    T1
          LMC    0#44
          NJP    GS4X        IF NOT MODEL 44 IOU
          LDC    CDIF        FWA OF INTERFACE BUFFER
          RJM    /IOUFLT4/IOUFLT4
          UJN    GS41

 GS45     BSS    0
          RJM    /IOUFLT0/IOUFLT0
 GS41     LDC    2RDI        IOU ELEMENT IDENTIFIER
          ADM    IOUO        INCREMENT BY IOU ORDINAL
          RJM    WFS         WRITE FAULT SYMPTOM CODE TO SUPPORTIVE STATUS
          UJP    GS4X        RETURN

 GS42     LDN    3
          STD    T1
 GS43     LDML   GS4A,T1     GET CANNED ENVIRONMENT FAULT SYMPTOM CODE
          STML   CDIF,T1     STORE IN OUTPUT BUFFER
          SOD    T1
          PJN    GS43        IF NOT DONE
          UJN    GS41        LOG THE FAULT CODE

 GS4A     DATA   H*701     *

*         END    CTP$DFT_GENERATE_I4C_CODES.
