ex4 3

A>A£W SDW/ Start Assembler

CP/H ABSENBLER ■ UER 1*0

0122

002H U9E FACTOR

END QF ASSEMBLY Assembly compłete; lock at program listing

mtype scm*mt

Codę address Source program

0100^			ORG 10OH	ISTART DF TRANSIENT AREA
0100	0608	\	ImOI BfLEN	iLENGTH OF OECTDR TO SCAN
010:	OCOO Machinę codę		MYI □fO	iLARGEST OALUE 90 FAR
oioa	211901		LXI H-OECTh	IBASE DF OECTDR
0107	7E	LOOF:	MOU A-M	łGET OALUE
0100	91		SUB C	fLARGER WALUE IN C?
0109	D20D01		JNC NFDUND	tJUMP IF LARGER UALUE NDT
				tFOUND
		!	NEW LARGEST	UALUEf storę it td c
010C	4F		UDO CiA
01 OD	23	NFDLIND:	INK H	STO NEXT ELEMENT
010E	05		DER B	;more td ecan?
010F	C20701		JNZ LDOP	iFOR ANDTHER
		! i	ENG DF SCAN	» SIDRĘ C
0112	79		UDO A fC	;get largest oalue
0113	322101		STA LARGE
0116	C30000		JMP 0	iREBODT
Codę-	—data listing	i
truncated		i	TEST DATA
0119	0200000303	YECT:	GB 2 fO jłJ j3 f	5 fG f1 f?
0009	s Yalueof	LEN	EOU i-OECT	ILENGTH
0121	equate	LARGEi	DS 1	iLARGEBT YALUE DN EXIT
0122			END