;     MACRO SUBROUTINE INTO
;     PACKS LETTERS INTO WORDS
;	Converted to pushj/popj convention 11 Oct 1980
;	by Paul T. Robinson, Wesleyan Univ. for DECUS conversion to DEC-20
      TITLE INTO
 INTO: MOVEM 3,SAV3#
 MOVEM 4,SAV4#
 MOVEI 3,44
 MOVE  4,@1(16)
 IMULI 4,7
 SUB   3,4
 LDB   4,PNT1
 DPB   3,PNT3
 DPB   4,PNT2
 MOVE  3,SAV3
 MOVE  4,SAV4
 popj	17,
 PNT1:350736000002
 PNT2:000736000000
 PNT3:POINT 6,PNT2,5
      ENTRY INTO
      END