ex4 2

	mdy	Ai C	iGET LARGEST YALLłE/
	STA	LARGE /
\J	JMP	0	IREBDDT/
^,r	TEST DATA
VECT:	GB	2*0i4i3)5łQ:	>1>5
LEM	EQU	f-OECT	iLENGTH
LARGE:	DS	1	tLńflCEST OALUE DN EXIT
	END/

*-2

*80P/

	ORG	100H	iSTART DF TRANBIENT AREA
	m	BtLEN	iLENGTH DF YECTOR TD SCAN
	m	CiO	iLARGEST YALUE SO FAR
	LaI	HiYECT	tBASE DF OECTDR
LDDPi	MDy	AiM	iGET YALUE
	SUB	C	iLARGER UALUE IN C7
	JNC	NFDUND	UUMP IF LARGER UALJE NOT
			IFDUND
!	NEW LARGEST	YALUEi STORĘ	IT TO C
	MOY	C»A
NFOUND:	INM	H	iTO NEKT ELEMENT
	DCR	B	iMORĘ TO SCAN?
	JNZ	LOGP	TFOR ANOTHER
i	END OF 5CAN	t STORĘ C
	MOU	A fC	iGET LARGEST YALUE
	STA	LARGE
■	JMP	0	iREBCGT
i i	TEST DATA
^ECT:	DB	2iOi4iSi5iS.	<1 .S
LEN	EDO	ł-YECT	iLENGTH
LARGE:	DS	i	ilARGEST UAUJE ON EXIT

END

#£/•*— End of edit