.TITLE	HELP
	.IDENT	/V03.X/
	.PSECT	CODE,RW,I
;	Patch to allow digits in the search string
;
;	Author:	Greg Merrell
;		Allen-Bradley Company
;		747 Alpha Drive
;		Cleveland, Ohio 44143
;		216-449-6700 x3565
;
;	History:	This was developed after a DEC SPR (11-25643)
;		came back with the reply that DEC didn't want anything
;		to do with digits in the HELP utility.
;
;	Disclaimer:	Even though this seems to work just great
;		for us, neither I nor Allen-Bradley make any claim
;		that this won't cause your machine to self destruct
;		or any other similar malady.  In other words, feel
;		free to use it at your own discretion, whatever that may be.
;
HELP=.
;
.=HELP+630
LCASE:
;
.=HELP+666
	JMP	PAT1
;
	.PSECT	HLPPAT,RW,I
PAT1:	CALL	LCASE
	BCC	10$
	CMPB	R5,#60
	BLO	20$
	CMPB	R5,#71
	BHI	20$
	CLC
10$:	RTS	PC
20$:	SEC
	RTS	PC
	.END