/030 SUBROUTINE TO PACK CHARACTERS (TSS8)
/THREE CHARACTERS IN TWO WORDS (TSS8 FORMAT)

PACKED:111111112222
/	222233333333
/
/CALL	:JMS PACK
/	ADDRESS INPUTBUFFER
/	ADDRESS OUTPUTBUFFER
/	RETURN
/
/ROUTINE USES AUTO INDEX 10 AND 11
/
/FORMAT INPUTBUFFER= 1 CHAR/WRD
/LENGTH OUTPUTBUFFER= 200
/LENGTH INPUTBUFFER= 300
/
PACK,	0
	TAA PCKBFL	/-BUFFERLENGTH UTPUTBUFFER
	STL RAR		/DIVIDE BY 2
	DCA PCKCNT
	CLA CMA		/-1
	TAD I PACK	/ADDRESS INPUTBUFFER
	DCA 10
	ISZ PACK
	CMA		/-1
	TAD I PACK	/ADDRESS OUPUTBUFFER
	DCA  11
	ISZ PACK
PCKLOP,	TAD I 10	/GET CHAR
	CLL RTL
	RTL

	DCA PCKTMP	/TEMP. STORAGE
	TAD I 10	/NEXT CHAR
	RTR
	RTR
	DCA PCKTP1
	TAD PCKTP1
	AND C17
	TAD PCKTMP
	DCA I 11	/FIRST WORD
	TAD PCKTP1	/PICK UP AGAIN
	RAR
	AND C7400
	TAD I 10	/NEXT CC@HCHHR
	DCA I 11	/SECOND WORD
	ISZ PCKCNT	/BUFFER FULL ?
	JMP PCKLOP	/NO,PACK NEXT
	JMP I PACK	/YES, EXIT
/
/VARIABLES
/
PCKCNT,	0
PCKTMP,	0
PCKTP1,	0
PCKBFL,	-200
/
/GENERAL CONSTANTS
C17,	17
C7400, 7400