HYPHEN.MAC/AU/-BF=HYPHEN.OLD
\
-3,3

-32
; SIG MODIFICATIONS								;**NEW**
;	SIG03	- CHANGE CHECKS TO C-BIT					;**NEW**
;										;**NEW**
-40,43


	.IF DF	H$$PHN

-70,70

-99,105
	BCS	HYP06		;NO, SO DON'T HYPHENATE				;SIG03
	MOV	R0,R3		;SAVE STARTING ADDRESS OF STRING		;**-1
HYP03:
	INC	R0		;SKIP OVER IT
	JSR	PC,ALPH		;FIND END OF
	BCC	HYP03		;ALPHABETIC STRING				;SIG03
	SUB	R0,R3		;COMPUTE NEGATIVE STRING LENGTH			;**-1
-185,191
	BCS	CK03								;SIG03
	JSR	PC,MAPLOW	;MAP TO LOWER CASE				;**-1
	JSR	PC,VOWEL
	BEQ	CK02
	JSR	PC,ALPH
	BCC	CK01								;SIG03
CK03:	MOV	(SP)+,R0							;**-1
-206,207
	BCS	DIG09								;SIG03
	JSR	PC,MAPLOW							;**-1
-217,218
	BCS	DIG09								;SIG03
	JSR	PC,MAPLOW							;**-1
-227,228
	BCC	DIG05								;SIG03
	MOVB	(R0),R2								;**-1
-237,238
	BCC	DIG06								;SIG03
	MOV	#BXXH,DIG10							;**-1
-323,324
	BCS	SUF08		;NO, EXIT					;SIG03
	JSR	PC,MAPLOW	;MAP CHAR. TO LOWER CASE			;**-1
-1080,1083

	.ENDC


/