TASOV.MAC;2/AU=TASOV.OLD;1/-BF
\
-2,2 
	.IDENT	/03.7A/
-50
;	NAPC    ADD OPTIONAL TASKNAME
;
%
-91,,/;NAPC/
;
;	OPTIONAL TASKNAME PARAMETER BUFFER
;
TSKNAM:	.BLKW	2
-99,99,/;NAPC/
;	TAS[KLIST] [TASKNAME]
-127,127,/;NAPC/
2$:	MOV	R5,R0		; COPY PTR TO INPUT LINE
	CLR	TSKNAM		; INIT TO NO TASKNAME SPECIFIED
	CLR	TSKNAM+2	;
	CALL	$GNBLK		; SEE IF A NON-BLANK CHAR ON LINE
	BCS	5$		; IF CS JUST EOL FOUND
	DEC	R0		; FOUND CHAR, POINT TO IT
	MOV	SP,R1		; PERIOD IS OK
	CALL	$CAT5		; CONVERT 3 CHARS TO RAD50
	MOV	R1,TSKNAM	; SAVE FIRST HALF OF TASK NAME
	BCS	5$		; BRANCH IF EOL SEEN
	MOV	SP,R1		; PERIOD IS OK
	CALL	$CAT5		; CONVERT 3 CHARS TO RAD50
	MOV	R1,TSKNAM+2	; SAVE SECOND HALF OF TASK NAME
;
5$:	MOV	#$MDPB+2,R0	; GET DPB ADDRESS
-388,388,/;NAPC/
FILNXT:	TST	TSKNAM		; DID HE SPECIFY A TASK NAME?
	BEQ	3$		; NO
	CMP	T.NAM(R5),TSKNAM ; YES, DOES IT MATCH?
	BNE	80$		; NO, SKIP IT THEN
	CMP	T.NAM+2(R5),TSKNAM+2 ; BOTH HALVES MUST MATCH
	BNE	80$		; NO MATCH
;
3$:	MOV	$MLIMI,R2	; GET MEM LIMIT
-476,,/;NAPC/
80$:				; REF LABEL
/