TITLE JUNPAK
;IWO= JUNPAK(NL,NR,IW)--- IW IS ASCII WORD.RETURNS WITH
;OCTAL WORD IWO RIGHT JUSTIFIED AFTER
;DELETING NL CHARACTERS AT LEFT OF IW AND NR CHARACTERS AT RIGHT
;OF IW.
INTERN JUNPAK
JUNPAK:	0
	MOVSI	2		;SAVE AC2 TO AC4
	HRRI	ACSAV
	BLT	ACSAV+2
	MOVE	2,@(16)		;AC2=NL
	MOVE	3,@1(16)	;AC3=NR
	MOVE	0,@2(16)	;AC0=IW
	MOVE	4,2
	IMULI	4,7
	LSH	0,@4
	IMULI	3,7		;AC3=NR*7
	ADDI	3,1		;AC3=NR*7+1
	IMULI	2,7		;AC2=NL*7
	ADD	2,3		;AC2=7*(NL+NR)+1
	MOVN	2,2
	HRRZS	2
	LSH	0,@2
	MOVSI	1,ACSAV		;RESTORE AC'S
	HRRI	1,2
	BLT	1,4

	JRA	16,3(16)
BLANKS:	BYTE(7) 040,040,040,040,040
ACSAV:	BLOCK 3
	END