; PROGRAM TO PACK 2 BYTES INTO 1
	.TITLE	PACK
	.GLOBL	PACK
PACK:	SAVREG
TST	(R5)+
	MOV	(R5)+,R2
	MOV	(R5)+,R1
	MOV	@(R5)+,R0
GO:	MOV	#4,R4
	MOVB	(R2)+,R3
NEXT:	ASLB	(R2)
	DEC	R4
	BNE	NEXT
	BISB	R3,(R2)
	MOVB	(R2)+,(R1)+
	DEC	R0
	BNE	GO
	RSTREG
	RTS	PC
	.END