*COMDECK /GETDCI/                                                             SE
 GET$CI   TITLE     GET$CI
          CAP.RM
 GET$C    BSS       0                                                    SEPT2
 GET$I    BSS       0                                                    SEPT2
          EQ        =XAMAC$SQ 
          SX7       10
          ON.RM     SOL,SORL                                             SEPT2
          SA1       A0+4
          SB4       X1
          MX7       0 
          NE        B4,B3,SORL     IF MBL .NE. 0 (OUT"LIMIT) ITS BLOCKED
          SA1       A0+B1 
          SB3       X1
          EQ        =XANBL$SQ 
          SPACE     1 
 SORL     BSS       0                                                    SEPT2
          F.RM      BT,B4,-#IT#,3 
          NZ        B4,SBL         IF BT=C
          ZR        X2,=XAMAC$SQ   IF NO CHARACTERS AVAILABLE           003910
          SX7       X7+10 
          SA1       B3             I BLOCK CONTROL WORD 
          MX3       59
          LX1       2 
          BX2       -X3*X1         CHECKSUM BIT 
          SB4       X2+1
          BUFINC    B,3,4,3        POSITION OVER ICW (+ CHECKSUM WORD)
          SB3       X3
 SBL      BSS       0 
          BX3       X7
          SET.RM    BL,X3 
          EQ        =XANBL$SQ 
* END /GETDCI/
