ex4 1

A>£tf SCAN.ASM		Create source program;
^łV		‘y” represents carriage return.
	□RG		1-OOH	łSTART OF TRANSIENT
				iAREA/
	M^I		Bi LEN	łLENGTH DF UEGTOR TG 5CAN/
	m		C t 0	;lwger_rst ualue sd far/
LDOP	WI		Hi YECT	tBABE DF UECTOR/
LGOP:	Moy		fli M	;get ualue/
	BUC		C	iLARGER UALUE IN C?/
	JNC		NFDUND	łJUMR IF LARGER YALUE NDT
				(FOUND/
!	NEW	LARGEST	YALUE* STDRE	IT TD C/
	MOU		Ci A
NFOUND	inx		H	TTO NEXT ELEMENT/
	DCR		B	i MORĘ TG SCAN?/
	JNZ		LOOP	iFOR ANGTHERy
T !	END	□F SCAN	ł BTDRE C/