*DECK PUTDCI
          IDENT     PUT$CI
          LIST      C,F,X 
          COMMENT   CRM SQ PUT I/C BLOCK PROCESSOR
          ENTRY     PUT$I,PUT$C 
          ENTRY     PBNB$SQ 
          TITLE     PUT$IC
          SST 
          B1=1
*#
*1CD  PUT$IC
*0D   PURPOSE 
*0        INITIATE NEW BLOCK FOR I AND C BLOCKS.
*0D   CALL
*0                  EQ        =YPUT$I (=YPUT$C) 
*0D   PARAMETERS
*0        A0        FIT ADDRESS.
*         B1        1.
*0D   ACTION
*0        INCREMENT BLOCK NUMBER, CLEAR BLOCK LENGTH, THE IN POINTER IS 
*     MOVED TO THE START OF THE NEXT BLOCK, THE S-TAPE CONTROL WORD IS
*     STORED IN THE BUFFER (IF THIS IS AN S/L DEVICE), THE I-BLOCK
*     CONTROL WORD IS FORMED AND STORED IN THE BUFFER (IF BT=I), AND
*     IF RT=W AND A W-CONTINUATION RECORD IS IN PROGRESS, A BRANCH TO 
*     *PUT$W* (AT *PUT$WNB*) IS TAKEN TO FORM AND STORE THE W-CONTROL 
*     WORD IN THE BUFFER. THE RETURN FROM *PUT$W* IS IN LINE AT PBIO$SQ 
*     IF RA+1 IS ZERO, AND IF THE FET COMPLETE BIT IS SET, AND IF THERE 
*     IS NO ERROR STATUS IN THE FET, A CIO WRITE (WRITEN FOR S/L
*     DEVICES) IS ISSUED AND AN IN-LINE JUMP BACK TO *PUT$SQ* (AT *LTB* 
*     AREA) IS TAKEN. 
*0D   REGISTERS USED
*0        ALL EXCEPT A0,B1. 
*0D   OTHER CODE REQUIRED 
*0        PROGRAMS- CHWR$RM,PUT$SQ,PUT$W
*         MACROS-   CAP.RM,SET.RM,INC.RM,F.RM,GET1.SQ,ON.RM,PRTY.SQ,SYSY
*#
 XREG.RM  MICRO     1,,/0/
 FWRD.RM  MICRO     1,,/36B/
 TENTH    CON       0.1P48+1
 PUT$CI   CAP.RM    ,NOENTRY
 PUT$I    BSS       0 
 PUT$C    BSS       0 
* CALL /PUTDCI/ 
*CALL /PUTDCI/
          END 
