Определить, все ли три введеных числа четны? - Assembler

Формулировка задачи:

Всем привет) решите задачу *на ассемблере*, пожалуйста Определить все ли три введеных числа четны?

Решение задачи: «Определить, все ли три введеных числа четны?»

Листинг программы

program OddOrEven;
 
var
  A, B, C: integer;
  AllEven: boolean;
begin
  writeln('Input A, B, C');
  Write('A: ');
  readln(A);
  Write('B: ');
  readln(B);
  Write('C: ');
  readln(C);
 
  asm
    TEST  A,1
    JNZ  @@NotEven
    TEST B,1
    JNZ  @@NotEven
    TEST  C,1
    JNZ @@NotEven
    MOV AllEven,1
    JMP @@Exit
  @@NotEven:
    MOV  AllEven,0
  @@Exit:
  end;
 
  if AllEven then
    writeln('All even')
  else
    writeln('not all even');
end.

Объяснение кода листинга программы

Объявляются переменные A, B, C типа integer и переменная AllEven типа boolean.
Пользователю выводится запрос на ввод значений для переменных A, B, C.
Пользователь вводит значения для переменных A, B, C.
В блоке ассемблерного кода проверяется, являются ли значения переменных A, B и C четными.
Если все три значения четные, то переменной AllEven присваивается значение 1, иначе - 0.
Далее выводится соответствующее сообщение в зависимости от значения переменной AllEven.