*DECK C$MOVRE 
          IDENT  C$MOVRE
          TITLE  CBMOVRE - MOVE RECORD TO ECS FOR READ INTO 
          COMMENT  MOVE RECORD TO ECS FOR READ INTO 
          SST 
*CALL IOMICROS
* 
**        CBMOVRE - MOVE RECORD FOR READ INTO 
* 
*         INPUT PARAMETERS
*                A0 HAS FIT ADDRESS OF FILE 
*                B3 HAS FWA OF RECEIVER 
*                B4 HAS BCP OF RECEIVER 
*                B7 HAS LENGTH OF RECEIVER
* 
*         CALLS C.ANEC TO MOVE RECORD TO RECEIVER 
* 
*         NO VALID REGISTERS ON OUTPUT
  
          ENTRY  C.MOVRE
 C.MOVRE  DATA   0
          FETCH  A0,RL,X5    GET RECORD LENGTH
          MX2    0           NO BLANK FILL
          SB2    X5 
          LT     B7,B2,NOFILL      JUMP IF NO FILL (INTO LS REC READ) 
          SX2    B2-B7       NBR CHARS TO BL FILL (NEGATIVE NUMBER) 
 NOFILL   BSS    0
          FETCH  A0,RECA,X5  RECORD AREA ADDRESS
          SB5    X5          SENDING FWA
          SB6    B0          BCP IS ZERO
          RJ     =XC.AN2EC   MOVE THE RECORD TO ECS 
          EQ     C.MOVRE
          END 
