*DECK SHIFT 
          IDENT  SHIFT
          ENTRY  SHIFT
*         SHIFT - ADD CARRIAGE CONTROL TO LISTING LINE
* 
*         CALLING SEQUENCE
*                SHIFT(IN,OUT,IND,CHARS)
*                IN - 139 CHARACTER SOURCE
*                OUT - 140 CHARACTER DESTINATION
*                IND - CARRIAGE CONTROL CHARACTER 
*                CHARS - NBR OF CHARACTERS TO SHIFT 
* 
*         DOES - COPIES IND TO FIRST CHARACTER OF OUT AND IN TO 
*                REMAINING CHARACTERS 
*                BLANK FILLS REMAINING WORDS UP TO 14 
* 
 SHIFT    BSS    1
          SB1    1
          SA2    A1+B1       OUT
          SA3    A2+B1       IND
          MX0    6
          SA4    A3+B1       CHARS TO MOVE
          SA3    X3 
          SA1    X1          IN 
          LX1    54 
          BX3    X0*X3
          SA4    X4          NBR CHARS
          BX5    -X0*X1 
          BX6    X3+X5       CARR CTL PLUS FIRST 9 CHARS
          SA6    X2 
          SB2    13 
          SB3    X4-1        CHARS TO MOVE - 1
          SB4    B0          B4 HAS DESTINATION WORD COUNT
 SHIFT1   BSS    0
          BX3    X0*X1       LAST CHAR OF PREV WORD 
          SB3    B3-10       DECREMENT CHAR COUNT 
          SB4    B4+B1       BUMP DESTINATION WORD COUNT
          NG     B3,SHIFT2   JP IF NO MORE CHARS
          SA1    A1+B1       GET NEXT WORD
          LX1    54 
          BX5    -X0*X1      FIRST 9 CHARS OF NEW WORD
          BX6    X5+X3       PLUS LAST OF PREV WORD 
          SA6    X2+B4       PUT AWAY 
          EQ     SHIFT1 
 SHIFT2   BSS    0
          GT     B4,B2,SHIFT JP IF ALL WORDS FILLED 
          SA4    =10H              10 SPACES
          BX5    -X0*X4 
          BX7    X5+X3       LAST CHAR PLUS SPACES
          SA7    X2+B4       STORE LAST INPUT CHARS 
          EQ     B2,B4,SHIFT JP IF DONE 
          SB4    B4+B1       BUMP COUNT OF WORDS STORED 
          BX6    X4          SPACES 
 SHIFT3   BSS    0
          SA6    X2+B4       FILL WITH SPACES 
          SB4    B4+B1       BUMP WORD COUNT
          GE     B2,B4,SHIFT3 
          EQ     SHIFT       RETURN 
          END 
