*COMDECK X25IST 
         NAM       X25IST 
         NLS
*CALL MUXMACROS 
         LST
         SPC       2
          EQU    L2GDFRM(A0WK3)        GOOD FRAME RECEIVED
          EQU    L2BDFRM(A0WK4)        BAD FRAM RECEIVED
          EQU    L2MUXBT(A0WK5)        MUX BUFFER THRESHOLD DETECTED
         EQU       FCSE($80)           FCS ERROR
         EQU       DTO($40)            DATA XFER OVERRUN
         EQU       ABORT($20)          FRAME ABORT
         EQU       LCR($8)             LAST CHARACTER RECEIVED
         EQU       BFIE($20)           INPUT ERROR
         EQU       BFABRT($10)         FRAME ABORT
         EQU       BFLBE($40)          LOW BUFFERS ENCOUNTERED
         SPC       4
         ENT       X25IST 
         EQU       X25IST(*)
         ADC       X25S0               CLA STATUS CHANGE
         ADC       X25S1               DCD DROPPED
         ADC       X25S2               BUFFER LIMIT 
         ADC       X25S3               BUFFER THRESHOLD 
         EQU       X5S4(*-X25IST) 
         ADC       X25S4               START OF NORMAL INPUT
         EQU       X5S5(*-X25IST) 
         ADC       X25S5               CONTINUE NORMAL INPUT
         SPC       2
X25S0     STATLS X5S4,IGNORE NO INCOMING FRAME
         TSTCLA    FCSE+DTO+ABORT+LCR,CHECK 
          NOPR   STOREXIT 
IGNORE   NOPR      EXIT                WAIT FOR ABORT ! LCR 
CHECK    TSTCLA    FCSE+DTO+ABORT,BDFRM 
         SKIP      GDFRM               GOOD FRAME RECEIVED
BDFRM    SETFLG    BFIE,FRST           INPUT ERROR
         TSTCLA    FCSE+DTO,ERR1
         SETFLG    BFABRT,FRST         FRAME ABORT
ERR1     TSTCLA    ABORT+LCR,ENDINP 
         NOPR      EXIT                WAIT FOR ABORT ! LCR 
ENDINP   STATE     X5S4                FRAME INPUT
         TIBWL     L2BDFRM,,,EXIT,X51WLCB 
GDFRM    STATE     X5S4 
         STORE
         TIBWL     L2GDFRM,,,EXIT,X52WLCB 
         SPC       4
X25S1    NOPR      EXIT                IGNORE DCD NOT 
         SPC       4
X25S2    STATE     X5S4 
         RESYNC 
         SETFLG    BFIE,FRST           LOG ERROR
         SKIPB     ENDINP 
         SPC       4
X25S3    STATLS    X5S4,X25S31
          SETFLG BFLBE,FRST  -         LOW BUFFERS ENCOUNTERED
          TIBWL  MMBUTCH     -         TELL PMWOLP TO RELEASE BUFFERS 
          TIBWL  L2MUXBT,,,,X53WLCB    MUX BUFFER THRASHOLD DETECTED
X25S31   RESYNC 
         STATE     X5S4,EXIT
         SPC       4
X25S4    STATE     X5S5,STOREXIT      STORE THE FIRST INCOMING DATA 
X25S5    NOPR      STOREXIT           STORE NEXT DATA 
         END
