с этим заданием, нужно выполнить сложение шестнадцатеричного числа 1ЕЕ+204=? в ассамблере name "add-sub"

org 100h

mov ax, 1EEh ; bin=00000101b
mov bx, 204h ; hex=0ah or bin=00001010b

; 1EE + 204 = 3F2 (decimal) or hex=0fh or bin=00001111b
add bl, al

; 15 - 1 = 14 (decimal) or hex=0eh or bin=00001110b
sub bl, 1

; print result in binary:
mov cx, 8
print: mov ah, 2 ; print function.
mov dl, '0'
test bl, 10000000b ; test first bit.
jz zero
mov dl, '1'
zero: int 21h
shl bl, 1
loop print

; print binary suffix:
mov dl, 'b'
int 21h

; wait for any key press:
mov ah, 0
int 16h

ret

Есть кнопочки антена,
Звонит в другом конце света,
Знаменитый, как айфон,
Получается ... (телефон)

Четыре ножки, одна доска,
На нём стихи пишу гордо я!
Его ставят на любой пол,
Это создание называется ... (стол)

Музыка, игры, всё, что желаешь!
Туда и мультфильмы перекачаешь,
Информационного века моды писк,
Иначе зовётся лазерный ... (диск)

Туда запишешь всё, что надо,
Мысли, уроки, рисуй что попало!
В этой брошюрке много страничек,
Что это? Правильно! ... (записная книжка)

Она кликнуть на ссылку,
Она также может скушать весь сыр!
О боже, что это? Чудище кыш!
Живёт в норе, серая ... (мышь)

Мы в понедельник туда все идём,
Много учебников туда принесём!
Наш огород знаний, она прополола,
Наша прекрасная, любимая ... (школа)

P.S. Писал сам

Var
a:array[1..10] of integer;
cnt1, cnt2, i:integer;
begin
 For i:= 1 to 10 do
   Read(a[i]);
 for i:= 1 to 5 do
  if a[i] > 0 then cnt1 := cnt1 + 1;
 for i:= 6 to 10 do
  if a[i] > 0 then cnt2 := cnt2 + 1;
 if cnt1 = cnt2 then Writeln('Количество пол-х элементов одинаково');
 if cnt1 > cnt2 then Writeln('Количество пол-х элементов больше в первой половине');
 if cnt1 < cnt2 then  Writeln('Количество пол-х элементов больше во второй половине');
end.

Пример:

-1 -2 3 5 0 4 6 7 -2 -5
Количество пол-х элементов больше во второй половине