Требуется помощь

[Xaret1242141]

Помогите написать код к задаче :

Перевірка працездатності області внутрішньої пам'яті даних за допомогою "шахового" тесту - спочатку в усі комірки пам'яті записується байт "шахового" коду 55H (H - шістнадцяткове число), читається і перевіряється записана інформація. Потім ця ж процедура повторюється для коду AAH. Задати початкову адресу області AD та кількість байтів N. Результатом роботи програми є ознака проходження тесту - 0 при співпадінні записаної і прочитаної інформації, 1 - при виявленні помилки.

From Stilet (перевод):
Проверка работоспособности области внутренней памяти данных с помошью "шахматного" теста. Вначале во все ячейки памяти записывается байт шахматного кода 55h, читается и проверяется записана ли инфа. Потом это же повторяется для кода ААh.
Задать начальный адрес области AD и кол-во байт N.
Результ работы:
0 - Если записанное совпадет со считанным
1 - если будут несовпадения.

[Stilet]

Что за ассемблер?
Попытки и наработки есть?

[R71MT]

..вот тест своего сегмента памяти для сом-программы. (16-битный FASM)

Алгоритм:
1. Пишем в стек до адреса 0500h
2. Снимаем со-стека значение и проверяем на фактор
3. При совпадении выводим на экран '0', в противном случае 'Х'

use16
org 100h
jmp start

hello  db  13,10,' Mem-Test programm'
       db  13,10,' Press any key to start test... $'
rezult db  13,10,' ===================================================='
       db  13,10,' Result of the test:',13,10,'$'

start:
   mov  dx,hello        ; приветствие
   mov  ah,9
   int  21h

   xor  ax,ax           ; начинаем тест по-любой клавише ------------------|
   int  16h

   mov  bx,sp           ; сохраним указатель на стек
   mov  ax,5555h        ; что будем писать
write:
   push ax              ; пишем в стек..
   cmp  sp,0500h        ; вся память записана ?!
   jz   endWrite        ; если да - конец записи
   jmp  write           ; если нет - мотаем цикл

endWrite:               ; начинаем чтение ---------------------------------|
   mov  dx,rezult       ; мессага с результатом
   mov  ah,9
   int  21h
read:                   
   pop  ax              ; снимаем со-стека последнее слово
   cmp  al,55h          ; проверяем правый байт
   je   good1           ; сходятся ?! выводим на экран нуль
   mov  al,'Х'          ; несходятся ?! выводим на экран 'Х'
   int  29h
next:
   xchg ah,al           ; проверяем точно так-же левый байт
   cmp  al,55h
   je   good2
   mov  al,'Х'
   int  29h
   cmp  sp,bx           ; проверяем выравнивание стека
   jz   exit            ; если 'пушей' не осталось, то выходим
   jmp  read            ; снимаем со-стека следующее слово
good1:
   mov  al,'0'          ; процедурка 'GOOD' выводит на экран нуль
   int  29h
   jmp  next            ; прыжок на проверку левого байта
good2:
   mov  al,'0'          ; процедурка 'GOOD' выводит на экран нуль
   int  29h
   jmp  read            ; снимаем со-стека следующее значение

exit:                   ; по-любой клавише - на выход!
   xor  ax,ax
   int  16h
   ret