*DECK C$MOVRC 
          IDENT  C$MOVRC
          TITLE  CBMOVRC - MOVE RECORD FOR READ INTO
          COMMENT  MOVE RECORD FOR READ INTO
          SST 
*CALL IOMICROS
* 
**        CBMOVRC - 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
*                    IF NEGATIVE, REC IS JUSTIFIED RIGHT
* 
*         CALLS C.MOVE TO MOVE RECORD TO RECEIVER 
* 
*         NO VALID REGISTERS ON OUTPUT
  
          ENTRY  C.MOVRC
 C.MOVRC  DATA   0
          FETCH  A0,RL,X5    GET RECORD LENGTH
          SB5    B0          FLAG NOT JUSTIFIED 
          PL     B7,NOJUST   JUMP IF NOT JUST 
          SB7    B0-B7       COMP LENGTH
          SB5    B1          FLAG JUST
 NOJUST   BSS    0
          SB2    X5          LENGTH OF SENDER 
          SB6    B0          BCP OF SENDER
          MX2    0           NO FILL
          EQ     B2,B7,DOMOVE      JUMP IF SAME SIZE
          LT     B7,B2,NOFILL      JP IF SENDER GT RECEIVER 
          SX2    B2-B7       AMOUNT TO BLANK FILL (IS NEG)
          SB7    B2          SET NUMBER OF ACTUAL CHARS TO MOVE 
          ZR     B5,DOMOVE   NOT JUST - FILL ON RIGHT 
          BX2    -X2         COMP - FILL ON LEFT
          EQ     DOMOVE 
 NOFILL   BSS    0
          ZR     B5,DOMOVE   JUMP IF NOT JUST 
          SB6    B2-B7       ADJUST SENDER OFFSET FOR RT JUST 
 DOMOVE   BSS    0
          FETCH  A0,RECA,X5  RECORD AREA ADDRESS
          SB5    X5          SENDING FWA
          RJ     =XC.MOVE    MOVE THE RECORD
          EQ     C.MOVRC
          END 
