Курсовая работа: Ассемблер 2

'4-Выход',13,10, \

'$'

ByeStr DB 13,10,'Для продолжения нажмите любую клавишу.$'

ErrorString DB 13,10,'Ошибка ввода',13,10,'$'

ErrorResult DB 13,10,'Данные искажены. CRC8 нарушена.',13,10,'$'

;*****************************************************************************

BegSeg DW (?) ;Сегмент проверочного массива

BegOffs DW (?) ;Начало проверочного массива

Result DW (?) ;Результат вычисления

FuncNum DB (?) ;Выбранная операция

_Data ENDS

;*****************************************************************************

; Сегмент программы

;*****************************************************************************

.CODE

;*****************************************************************************

call cls ;Очистка экрана

call SetDATSeg ;Загрузка адреса сегмента переменных

call SetArrSeg ;Установка указателя сегмента массива

;Главное меню

Mnu: call SelectFunction ;Выбор операции

call cls ;Очистка экрана

mov AL,FuncNum

;*******************************

Mnu1: cmp AL,1 ;Определение чётности

jne Mnu2

;Установка параметров

mov DX,OFFSET TestTab ;Смещение начала массива

mov BX,30 ;Размер проверяемого блока данных