MAX1 EQU 30H ;(директива ассемблера) MAX1 присвоить 30H
MAX2 EQU 31H ;(директива ассемблера) MAX2 присвоить 31H
MOV R0,#20H ;начальный адрес первого массива
MOV R1,#28H ;начальный адрес второго массива
MOV R2,#8 ;число элементов в массивах
MOV MAX1,#0 ;(MAX1) ← 0
MOV MAX2,#0 ;(MAX2) ← 0
;Поиск максимальных значений массивов
M1: MOV A,@R0 ;(А) ← ((R0)) пересылка в аккумулятор
;содержимого косвенноадресуемой ячейки
CJNE A,MAX1,M2 ;сравнение А с МАХ1 и переход если не равно MOV A,MAX1
M2: JC M3 ;если бит переноса С=1 то переход
MOV MAX1,A ;(МАХ1) ← (А)
M3: MOV A,@R1 ;(А) ← ((R1)) пересылка в аккумулятор
;содержимого косвенноадресуемой ячейки
CJNE A,MAX2,M4 ;сравнение А с МАХ2 и переход если не равно
MOV A,MAX2
M4: JC M5 ;если бит переноса С=1 то переход
MOV MAX2,A ;(МАХ2) ← (А)
M5: INC R1 ;инкремент R1
INC R0 ;инкремент R0
DJNZ R2,M1 ;декремент R2 и если не равно нулю, то переход
|
думаю один человек тоже со мной согласится 
