ex4 3

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