/033 SUBROUTINE TO UNPACK CHARACTERS (TSS8)
/PACKED THREE CHARACTERS IN TWO WORDS (TSS8 FORMAT)
/
/PACKED:111111112222
/	222233333333
/CALL	:JMS UNPACK
/	ADDRESS OF INPUTBUFFER
	ADDRESS OF OUTPUTBUFFER
/	RETURN
/
/ROUTINE USES AUTO-INDEX 10
/
UNPACK,	0
	TD UNPBFL	/-BUFFERLENGTH INPUTBUFFER
	STL RAR		/DEVIDE BY 2
	DCA UNPCNT
	TAD I UNPACK	/ADDRESS INPUTBUFFER
	DCA UNPPTR
	ISZ UNPACK
	CLA CMA		/-1
	TAD I UNPACK	/ADDRRSS OUTPUTBUFFER
	DCA 10
	ISZ UNPACK
UNPLOP,	TAD I UNPPTR
	RTR
	RTR
	AND C377
	DCA I 10	/FIRST CHAR
	TAD I UNPPTR	/PICK UP CHAR AGAIN
	CLL RTL
	RTL
	AND C360
	DCA UNPTMP	/TEMP. STORAGE
	ISZ UNPPTR
	TAD I UNPPTR
	CLL RAL
	RTL
	RTL
	AND C17
	TAD UNPTMP
	DCA I 10	/SECOND CHAR
	TAD I UNPPTR
	AND C377
	DCA I 10	/THIRD CHR
	ISZ UNPPTR
	ISZ UNPCNT	/READY ?
	JMP UNPLOP	/NO,CONTINUE
	JMP I UNPACK	/YES, XIT
/
/VARIABLES
/
UNPPTR,	0
UNPTMP,	0
UNPCNT,	0
UNPBFL,	-400
/
/GENERAL CONSTATS
C17,	17
C360,	360
C377,	377