-23
; 002	02-AUG-82	FRANK BORGER	UPDATE TO WORK WITH MCR SYSTEMS
;
; 003	21-DEC-83	FRANK BORGER	UPDATE DEFAULT TO MORE COLUMNS
;					AND MOD TO RESET DEPTH SMALLER
-30
; TO AVOID CONFLICT WITH THE MCR "HELLO" COMMAND, ITS NAME WAS CHANGED
; TO "AID"
-34,42
;	PDS>AID  OR  PDS>AID KEY-WORD-LIST
;
;  WITH NO KEY-WORD-LIST, AID WILL LIST ALL
;  THE VALID MCR AND BATCH COMMANDS.
;  A NUMBER OF OTHER KEY-WORDS WILL
;  BE LISTED WHICH ARE TOPICS ABOUT WHICH "AID"
;  MAY PROVIDE SOME LEVEL OF EXPLANATION.
;
;  TYPING A KEY-WORD AFTER THE AID COMMAND
-69,72
				; LUN 2 -- SY:MCR.HLP
				; LUN 3 -- SY:QIOSYM.DAT
	NCOLS		= 9.
	CHARSPERCOL	= 9.
-110
MCRFLG:	.WORD	0	;FLAG FOR WE'RE USING MCR.HLP FILE
-142,146
	MOV	(R4),(R0)+		;++001 GET NAME OF FILE	++002
	MOVB	2(R4),(R0)+		;++001 ( 3 CHARS LONG )	++002
	OPEN$	#FDHELP			;++001 OPEN THE HELP FILE
	BCC	25$			;++002 BR IF OK
	MOV	#"MC,HLPNM		;++002 ELSE DEFAULT TO MCR
	MOVB	#'R,HLPNM+2		;++002 HELP FILE
	INC	MCRFLG			;++002 SHOW WE'RE WORKING WITH MCR
	OPEN$	#FDHELP			;++002 TRY AGAIN
	BCC	25$			;++002 BR IF OK
	BR	1$			;++002 ELSE GIVE UP
-153
	TSTB	(R4)			;++002 AND ON NULL LINE
	BEQ	NULL
-187,187
;	JMP	MISSING			; WE'RE LOST. HELP AS MUCH AS POSSIBLE
	MOVB	(R0),DEPTH		; F. B. ELSE RESET DEPTH
	BR	NXTREC			; F. B. AND TRY FOR MORE
-195,208
;COMPCH:	MOVB	(R4),R3			; GET CHARACTER FROM SEARCH STRING
;	MOV	R3,R5			; SEE IF IT'S LOWER CASE
;	CALL	LCASE			;
;	BCC	20$			; IT'S NOT SO LEAVE IT ALONE
;	BICB	#CH.SP,R3		; CLEAR OUT 'SHIFT' BIT
;20$:
;	MOVB	(R0),R1			; GET CHARACTER OUT OF RECORD
;					; THAT MIGHT BE SHIFTED TOO !!
;	MOV	R3,R5
;	CALL	LCASE
;	BCC	30$			; IT WAS NOT
;	BICB	#CH.SP,R1		; CLEAR OUT SHIFT
;30$:
;	CMP	R1,R3			; COMPARE 'EM
;					;099FB ABOVE CHANGED FOR VERS 3.1 TO:
COMPCH:	CMPB	(R0),#'A		;099FB LOWER CASE
	BCS	30$			;099FB BR IF NOT
	BICB	#CH.SP,(R0)		;099FB ELSE CHANGE TO UPPER
30$:	CMPB	(R0),(R4)		;099FB DO THEY MATCH ?
-273,280
LCASE:	CMPB	R5,#CH.BA	;BELOW SMALL A
	BLO	10$		;RETURN C-BIT IF YES
;	CMPB	R5,#CH.BZ
;	BHI	10$
;	CLC
;	RETURN
;10$:	SEC
	CMPB	#CH.BZ,R5	;099FB ABOVE SMALL Z ?
10$:	RTS	PC		;099FB RETURN WITH C-SET IF NOT LOWER CASE
-284,288
;ALPHA:	CALL	LCASE			; IS IT LOWER CASE ?
;	BCC	10$			; YES, WELL THATS O.K
;	BIS	#CH.SP,R5		; JUST PRETEND SHIFT
;	CALL	LCASE
ALPHA:	CMPB	R5,#'0		;099FB BELOW DIGIT RANGE ?
	BCS	10$		;099FB RETURN C-BIT IF YES
	CMPB	#'9,R5		;099FB OR ABOVE DIGIT RANGE
	BCC	10$		;099FB RETURN C-CLEAR IF ABOVE
	CMPB	R5,#'A		;099FB BELOW UPPER-CASE A ?
	BCS	10$		;099FB RETURN C-BIT SET
	CMPB	#'Z,R5		;099FB OR BIGGER THAN Z ?
10$:	RETURN			;099FB RETURN CHARACTER STATUS
-344,344
	CMP	R4,#79.			; F B LIMIT TO SCOPE SCREEN SIZE
	BLE	99$
	MOV	#79.,R4
99$:	PUT$	#FDCONS,#LINE,R4	; PRINT OUT ALL WE CAN
-358,359
; COPY LINE INTO LINE BUFFER. TRUNCATE IF NECESSARY TO CHARSPERCOL-1 CHARACTERS
; IF THE LINE BUFFER IS FULL ( IE. WE'VE DONE IT 9 TIMES ) THEN
-369,371
	CMP	CHRSIN,#CHARSPERCOL-1	; DONE ALL FOR ONE COLUMN ?
	BNE	10$			; NO, NEXT PLEASE.
20$:	SUB	#CHARSPERCOL,CHRSIN	; CALC BY HOW MANY WE MUST SHIFT R4
-375,375
	CMP	R4,#79.			; F B LIMIT TO SCOPE SCREEN SIZE
	BLE	98$
	MOV	#79.,R4
98$:	PUT$	#FDCONS,#LINE,R4	; ELSE, DUMP LINE
-412,412
	.ASCII	" The following commands and/or switches are available"
-416,416
	.ASCII	" For more information, type AID followed by keywords"
/