.TITLE HYPHIX
	WORD=2
	HWORD=6
	PLIST=10
	LENGTH=4
HYPHIX::	JSR	PC,LEN
	MOV	R5,-(SP)
	MOV	WORD(R5),R2
	MOV	HWORD(R5),R1
	MOV	PLIST(R5),R5
	CLR	R3
	CLR	R4
	INC	R5
CHK:	TSTB	(R2)
	BGE	XFRIT
	MOVB	#'-,(R1)+
	INCB	R4
	INC	R3
	MOVB	R4,(R5)+
XFRIT:	MOVB	(R2)+,(R1)+
	INCB	R4
	SOB	R0,CHK
;
	MOV	(SP)+,R5
	MOVB	R3,@PLIST(R5)
	RTS	PC
	.END