Цель: ознакомиться с командами арифметических операций, вводом данных с клавиатуры и выводом данных на экран.
Задание: написать программу ввода с клавиатуры двух чисел в 9-ричной системе счисления размером с слово, выполнения над ними деления и вывода результата в исходной системе счисления. Программа должна предусматривать контроль вводимой информации, контроль диапазона чисел и результата операции (переполнение, невозможность деления).
Программа:
;-----------ЛАБОРАТОРНАЯ РАБОТА №3
 .MODEL SMALL
 .STACK 100H
 .186
 .DATA
S1 DB 'ВВЕДИТЕ ДЕЛИМОЕ В ДЕВЯТИРИЧНОЙ СИСТЕМЕ'
DB ' СЧИСЛЕНИЯ (ОТ -48848 ДО 1О8806): ',10,13,'$'
S2 DB 'ВВЕДИТЕ ДЕЛИТЕЛЬ В ДЕВЯТИРИЧНОЙ СИСТЕМЕ'
DB ' СЧИСЛЕНИЯ (ОТ -48848 ДО 1О8806): ',10,13,'$'
S3 DB 'НЕВЕРНАЯ ЗАПИСЬ ЧИСЛА В ДЕВЯТИРИЧНОЙ'
DB ' СИСТЕМЕ СЧИСЛЕНИЯ ИЗ ЗАДАННОГО ДИАПАЗОНА.','$'
S4 DB 'ДЕЛЕНИЕ НЕВОЗМОЖНО: ДЕЛИТЕЛЬ РАВЕН НУЛЮ.','$'
S5 DB 'ДЕЛЕНИЕ НЕВОЗМОЖНО: ДЕЛИТЕЛЬ БОЛЬШЕ ДЕЛИМОГО.','$'
S6 DB 'ОСТАТОК: ',10,13,'$'
S7 DB 'ЧАСТНОЕ: ',10,13,'$'
L DB '48848' ;МИНИМАЛЬНОЕ ЧИСЛО
H DB '108806' ;МАКСИМАЛЬНОЕ ЧИСЛО
SX DB 12 DUP('x') ;ДЕЛИМОЕ
SY DB 12 DUP('y') ;ДЕЛИТЕЛЬ
SZ DB 8 DUP('0'),'$' ;ЧАСТНОЕ
 .CODE
BEGIN: MOV AX, @DATA
 MOV DS, AX
;-----------ОЧИСТКА БУФЕРА КЛАВИАТУРЫ
START: CLI ;ЗАПРЕТ ПРЕРЫВАНИЙ
 SUB AX, AX
 MOV ES, AX
 MOV AL, ES:[41AH]
 MOV ES:[41CH], AL
 STI ;РАЗРЕШЕНИЕ ПРЕРЫВАНИЙ
;-----------ОЧИСТКА ЭКРАНА
 CLD
 MOV AX, 0B800H
 MOV ES, AX
 MOV DI, 0
 MOV AL, 32
 MOV AH, 7
 MOV CX, 2000
REP STOSW
;-----------УСТАНОВКА КУРСОРА В ЛЕВЫЙ ВЕРХНИЙ УГОЛ ЭКРАНА
 MOV AH, 2 ;НОМЕР ФУНКЦИИ
 MOV BH, 0 ;НОМЕР СТРАНИЦЫ
 MOV DH, 0 ;СТРОКА
 MOV DL, 0 ;СТОЛБЕЦ
 INT 10H ;ПОЗИЦИОНИРОВАНИЕ КУРСОРА
;-----------ВЫВОД ПРИГЛАШЕНИЯ ВВОДА ДЕЛИМОГО
 LEA DX, S1
 MOV AH, 9
 INT 21H
;-----------ВВОД ДЕЛИМОГО
 LEA DX, SX
 MOV BX, DX
 MOV [BX], BYTE PTR 9 ;ПРЕДПОЛАГАЕМАЯ ДЛИНА СТРОКИ
 MOV AH, 0AH
 INT 21H
;-----------УСТАНОВКА КУРСОРА
 MOV AH, 2 ;НОМЕР ФУНКЦИИ
 MOV BH, 0 ;НОМЕР СТРАНИЦЫ
 MOV DH, 2 ;СТРОКА
 MOV DL, 0 ;СТОЛБЕЦ
 INT 10H ;ПОЗИЦИОНИРОВАНИЕ КУРСОРА
;-----------ПРОВЕРКА ПРАВИЛЬНОСТИ ВВОДА ДЕЛИМОГО
 LEA DX, SX
 MOV BX, DX
 CALL CONTROL ;ПРОВЕРКА ПРАВИЛЬНОСТИ ВВОДА
 MOV AL, [BX]
 CMP AL, '0'
 JE ZERO1 ;ЧИСЛО ВВЕДЕНО НЕВЕРНО
 JMP NEAR PTR DELITEL
ZERO1: LEA DX, S3
 MOV AH, 9
 INT 21H
;===========ОЖИДАНИЕ НАЖАТИЯ КЛАВИШИ
 MOV AH, 7
 INT 21H
 JMP NEAR PTR START
;-----------ВЫВОД ПРИГЛАШЕНИЯ ВВОДА ДЕЛИТЕЛЯ
DELITEL: LEA DX, S2
 MOV AH, 9
 INT 21H
;-----------ВВОД ДЕЛИТЕЛЯ
INPUT: LEA DX, SY
 MOV BX, DX
 MOV [BX], BYTE PTR 9 ;ПРЕДПОЛАГАЕМАЯ ДЛИНА СТРОКИ
 MOV AH, 0AH
 INT 21H
;-----------УСТАНОВКА КУРСОРА
 MOV AH, 2 ;НОМЕР ФУНКЦИИ
 MOV BH, 0 ;НОМЕР СТРАНИЦЫ
 MOV DH, 4 ;СТРОКА
 MOV DL, 0 ;СТОЛБЕЦ
 INT 10H ;ПОЗИЦИОНИРОВАНИЕ КУРСОРА
;-----------ПРОВЕРКА ПРАВИЛЬНОСТИ ВВОДА ДЕЛИТЕЛЯ
 LEA DX, SY
 MOV BX, DX
 CALL CONTROL ;ПРОВЕРКА ПРАВИЛЬНОСТИ ВВОДА
 CMP [BX], BYTE PTR '0'
 JE ZERO2 ;ЧИСЛО ВВЕДЕНО НЕВЕРНО
 JMP NEAR PTR OK
ZERO2: LEA DX, S3
 MOV AH, 9
 INT 21H
;===========ОЖИДАНИЕ НАЖАТИЯ КЛАВИШИ
 MOV AH, 7
 INT 21H
;-----------ОЧИСТКА БУФЕРА КЛАВИАТУРЫ
 CLI
 SUB AX, AX
 MOV ES, AX
 MOV AL, ES:[41AH]
 MOV ES:[41CH], AL
 STI
;-----------ОЧИСТКА ЭКРАНА
 CLD
 MOV AX, 0B800H
 MOV ES, AX
 MOV DI, 480
 MOV AL, 32
 MOV AH, 7
 MOV CX, 480
REP STOSW
;-----------УСТАНОВКА КУРСОРА
 MOV AH, 2 ;НОМЕР ФУНКЦИИ
 MOV BH, 0 ;НОМЕР СТРАНИЦЫ
 MOV DH, 3 ;СТРОКА
 MOV DL, 0 ;СТОЛБЕЦ
 INT 10H ;ПОЗИЦИОНИРОВАНИЕ КУРСОРА
 JMP NEAR PTR INPUT
;-----------УСТАНОВКА КУРСОРА
OK: MOV AH, 2 ;НОМЕР ФУНКЦИИ
 MOV BH, 0 ;НОМЕР СТРАНИЦЫ
 MOV DH, 4 ;СТРОКА
 MOV DL, 0 ;СТОЛБЕЦ
 INT 10H ;ПОЗИЦИОНИРОВАНИЕ КУРСОРА
;-----------ПРОВЕРКА ВОЗМОЖНОСТИ ДЕЛЕНИЯ
 LEA BX, SX
 CALL CTRL0
 MOV AH, [BX]
 LEA BX, SY
 CALL CTRL0
 MOV AL, [BX]
 CMP AL, '0'
 JE NULL
 JMP N_NULL
;-----------ДЕЛИТЕЛЬ РАВЕН НУЛЮ
NULL: LEA DX, S4
 MOV AH, 9
 INT 21H
 JMP NEAR PTR ENDPROG
;-----------ДЕЛИТЕЛЬ НЕ РАВЕН НУЛЮ
N_NULL: CMP AH, '0'
 JNE DELENIE
;-----------ДЕЛИМОЕ РАВНО НУЛЮ
 LEA DX, S7
 MOV AH, 9
 INT 21H
 LEA BX, SZ
 MOV [BX], BYTE PTR '0'
 INC BX
 MOV [BX], BYTE PTR 10
 INC BX
 MOV [BX], BYTE PTR 13
 INC BX
 MOV [BX], BYTE PTR '$'
 LEA DX, SZ
 MOV AH, 9
 INT 21H
 LEA DX, S6
 MOV AH, 9
 INT 21H
 LEA DX, SZ
 MOV AH, 9
 INT 21H
 JMP NEAR PTR ENDPROG
;-----------ДЕЛИМОЕ И ДЕЛИТЕЛЬ НЕ РАВНЫ НУЛЮ
DELENIE: LEA SI, SX
 LEA DI, SY
 CALL COMPARE
 CMP [SI], BYTE PTR 1
 JE POSSIBLE
;-----------ДЕЛИТЕЛЬ БОЛЬШЕ ДЕЛИМОГО
 LEA DX, S5
 MOV AH, 9
 INT 21H
 JMP NEAR PTR ENDPROG
;-----------НАЧИНАЕТСЯ ДЕЛЕНИЕ
POSSIBLE: MOV BX, 7 ;BX - ИНДЕКС ДЛЯ ЧАСТНОГО
;-----------В СХ - ЧИСЛО РАЗРЯДОВ ДЕЛИТЕЛЯ
AGAIN: MOV CL, SY[1] ;CX - ЧИСЛО РАЗРАДОВ ДЕЛИТЕЛЯ
 MOV CH, 0
;-----------DI - НА МЛАДШИЙ РАЗРЯД ДЕЛИТЕЛЯ
 MOV DI, CX ;DI - ИНДЕКС ДЛЯ ДЕЛИТЕЛЯ
 INC DI
;-----------УДАЛЕНИЕ ВЕДУЩИХ НУЛЕЙ ДЕЛИТЕЛЯ
 MOV SI, 2 ;SI - ИНДЕКС ДЛЯ ДЕЛИМОГО
 MOV AL, SY[SI]
 CMP AL, '-'
 JNE BEFORE_C1
 INC SI
 DEC CX
BEFORE_C1: MOV AL, SY[SI]
 CMP AL, '0'
 JE SS1
 JMP LBLL
SS1: INC SI
 DEC CX
 JMP BEFORE_C1
;-----------SI - НА МЛАДШИЙ РАЗРЯД ДЕЛИМОГО
LBLL: MOV AL, SX[1]
 CBW ;АН - ДЛЯ ЗАПИСИ ПЕРЕНОСА
 MOV SI, AX
 INC SI
;-----------НАЧАЛО ЦИКЛА ДЕЛЕНИЯ
;===========СРАВНЕНИЕ ЦИФР РАЗРЯДА ДЕЛИМОГО И ДЕЛИТЕЛЯ
C1: MOV AL, SX[SI]
 CMP AL, SY[DI]
 JAE NEXT
;===========ЦИФРА ДЕЛИМОГО МЕНЬШЕ ЦИФРЫ ДЕЛИТЕЛЯ
 ADD AL, 9 ;ЗАЁМ ЕДИНИЦЫ
 SUB AL, SY[DI] ;ВЫЧИТАНИЕ
 ADD AL, '0' ;ПЕРЕВОД ЦИФРЫ В ЕЕ КОД
 SUB AL, AH ;ВЫЧИТАНИЕ ПЕРЕНОСА
 MOV SX[SI], AL ;РЕЗУЛЬТАТ - НА МЕСТО РАЗРЯДА ДЕЛИМОГО
 MOV AH, 1 ;ЗАПИСЬ ЗАЁМА
 JMP NEAR PTR DECREM ;НА КОНЕЦ ЦИКЛА
;===========ЦИФРА ДЕЛИМОГО БОЛЬШЕ ЦИФРЫ ДЕЛИТЕЛЯ
NEXT: SUB AL, SY[DI] ;ВЫЧИТАНИЕ
 SUB AL, AH ;ВЫЧИТАНИЕ ПЕРЕНОСА
 MOV AH, 0 ;ЗАЁМА НЕТ
 ADD AL, '0' ;ПЕРЕВОД ЦИФРЫ В ЕЕ КОД
 MOV SX[SI], AL ;РЕЗУЛЬТАТ - НА МЕСТО РАЗРЯДА ДЕЛИМОГО
;-----------SI, DI - НА БОЛЕЕ СТАРШИЙ РАЗРЯД
DECREM: DEC SI
 DEC DI
 LOOP C1 ;НА НАЧАЛО ЦИКЛА ДЕЛЕНИЯ
;-----------БЫЛ ЛИ ЗАЁМ ИЛИ НЕТ
 CMP AH, 1
 JNE SRAVN
;-----------ЗАЁМ БЫЛ
AGAIN1: CMP SX[SI], '0' ;СРАВНЕНИЕ ЦИФРЫ РАЗРЯДА С НУЛЁМ
 JE C2
 DEC SX[SI]
 JMP SRAVN
;-----------ЦИФРА РАЗРЯДА ДЕЛИТЕЛЯ РАВНА НУЛЮ
C2: MOV SX[SI], '8'
 DEC SI ;НА БОЛЕЕ СТАРШИЙ РАЗРЯД
 JMP AGAIN1 ;НА СРАВНЕНИЕ ЦИФРЫ РАЗРЯДА С НУЛЁМ
;===========ФОРМИРОВАНИЕ ЧАСТНОГО
;-----------ЕСТЬ ЛИ ПЕРЕНОС ПРИ УВЕЛИЧЕНИИ ЧАСТНОГО НА ЕДИНИЦУ
SRAVN: CMP SZ[BX], '8'
 JE PERENOS
;-----------ПЕРЕНОСА НЕТ
 ADD SZ[BX], 1 ;УВЕЛИЧЕНИЕ ЧАСТНОГО НА ЕДИНИЦУ
 MOV BX, 7 ;ВХ - НА МЛАДШИЙ РАЗРЯД
 JMP DEL ;НА СРАВНЕНИЕ ДЕЛИМОГО И ДЕЛИТЕЛЯ
;-----------ПЕРЕНОС ЕСТЬ
PERENOS: MOV SZ[BX], '0' ;В ДАННЫЙ РАЗРЯД - НУЛЬ
 DEC BX ;УВЕЛИЧЕНИЕ РАЗРЯДА
 JMP SRAVN ;НА СРАВНЕНИЕ РАЗРЯДА С "8"
;===========СРАВНЕНИЕ ДЕЛИМОГО И ДЕЛИТЕЛЯ
DEL: LEA SI, SX
 LEA DI, SY
 CALL COMPARE
 MOV AL, [SI]
 CMP AL, 1
 JNE QUIT ;ДЕЛЕНИЕ ЗАВЕРШЕНО
 JMP NEAR PTR AGAIN ;ДЕЛЕНИЕ ПРОДОЛЖАЕТСЯ
;-----------ОПРЕДЕЛЕНИЕ ЗНАКА ЧАСТНОГО
QUIT: MOV AH, SX[2]
 MOV AL, SY[2]
;-----------ВЫЯСНЕНИЕ ЗНАКА ДЕЛИМОГО
 CMP AH, '-'
 JE SX_
 JMP N_SX_
;-----------ДЕЛИМОЕ - ОТРИЦАТЕЛЬНОЕ
SX_: CMP AH, AL ;СРАВНЕНИЕ ЗНАКА ДЕЛИМОГО И ДЕЛИТЕЯ
 JE OUTP ;НА ВЫВОД ОСТАТКА
;-----------ДЕЛИТЕЛЬ - ПОЛОЖИТЕЛЬНЫЙ
;===========УДАЛЕНИЕ ВЕДУЩИХ НУЛЕЙ В ЧАСТНОМ
SY_: MOV BX, 0
SRCH: CMP SZ[BX], '0'
 JE DALEE
 JMP STOP
DALEE: INC BX
 JMP SRCH
;-----------ЗАПИСЬ МИНУСА ПЕРЕД СТАРШИМ РАЗРЯДОМ ЧАСТНОГО
STOP: DEC BX
 MOV SZ[BX], '-'
 JMP OUTP ;НА ВЫВОД ОСТАТКА
;-----------ДЕЛИМОЕ ПОЛОЖИТЕЛЬНОЕ
N_SX_: CMP AL, '-' ;ДЕЛИТЕЛЬ ОТРИЦАТЕЛЬНЫЙ?
 JE SY_ ;ЧАСТНОЕ ОТРИЦАТЕЛЬНОЕ
;-----------ВЫВОД ЧАСТНОГО
;===========ВЫВОД ОСТАТКА
;-----------ВЫВОД СТРОКИ "ОСТАТОК:"
OUTP: LEA DX, S6
 MOV AH, 9
 INT 21H
;ЗАПИСЬ В КОНЕЦ ОСТАТКА СИМВОЛОВ 10, 13 И "$"
 MOV BH, 0
 MOV BL, SX[1]
 ADD BX, 2 ;ВХ - ЗА МЛАДШИЙ РАЗРЯД
 MOV SX[BX], 10
 INC BX
 MOV SX[BX], 13
 INC BX
 MOV SX[BX], '$'
;-----------УДАЛЕНИЕ ВЕДУЩИХ НУЛЕЙ ОСТАТКА
 MOV AH, '0'
 LEA BX, SX ;ВХ - УКАЗЫВАЕТ НА ОСТАТОК
 INC BX
 INC BX
 MOV AL, [BX]
 CMP AL, '-'
 JE MN
 JMP N_MN
MN: MOV AH, '-'
 INC BX
N_MN: MOV AL, [BX]
 CMP AL, '0'
 JE EQ1
 JMP NEQ1
EQ1: INC BX
 JMP N_MN
NEQ1: MOV AL, [BX]
 DEC BX
 CMP AL, 10
 JE N_NUL
 MOV [BX], AH
 CMP AH, '-'
 JE EQQ
 JMP NEQQ
EQQ: MOV DX, BX
 JMP LBL
NEQQ: INC BX
 MOV AL, [BX]
 CMP AL, 10
 JE NUL
 JMP N_NUL
NUL: DEC BX
N_NUL: MOV DX, BX
LBL: MOV AH, 9
 INT 21H
;===========ВЫВОД ЧАСТНОГО
 LEA DX, S7
 MOV AH, 9
 INT 21H
 LEA BX, SZ
Q: MOV AL, [BX]
 CMP AL, '0'
 JE SM3
 JMP OUTPUT
SM3: INC BX
 JMP Q
OUTPUT: MOV DX, BX
 MOV AH, 9
 INT 21H
;-----------ВЫХОД ИЗ ПРОГРАММЫ
ENDPROG: MOV AH, 4CH
 INT 21H
;===========ПРОЦЕДУРА CONTROL - ЧИСЛО ДЕВЯТИРИЧНОЕ?
CONTROL PROC
 PUSHA ;СОХРАНЕНИЕ РЕГИСТРОВ В СТЕКЕ
 MOV BX, DX
 INC BX
 MOV AL, [BX]
 MOV AH, 0
 MOV CX, AX
;-----------ЯВЛЯЕТСЯ ЛИ СТРОКА ПУСТОЙ?
 CMP AL, 0
 JE ERR1 ;ЯВЛЯЕТСЯ
;-----------ПРОВЕРКА ДЛИНЫ СТРОКИ
 CMP AL, 6
 JA ERR1 ;ЧИСЛО ВВЕДЕНО НЕВЕРНО
 INC BX
 MOV AH, [BX]
 CMP AH, '-'
 JE MINUS
 JMP NEAR PTR FOR1
MINUS: INC BX ;ЧИСЛО ОТРИЦАТЕЛЬНОЕ
 DEC CX
;-----------ВВЕДЕННОЕ ЧИСЛО ДЕВЯТИРИЧНОЕ?
FOR1: MOV AH, [BX]
 CMP AH, '9'
 JB N1
ERR1: JMP NEAR PTR ERROR ;ЧИСЛО ВВЕДЕНО НЕВЕРНО
N1: CMP AH, '0'
 JB ERR1 ;ЧИСЛО ВВЕДЕНО НЕВЕРНО
 INC BX
 LOOP FOR1
 MOV [BX], BYTE PTR '$' ;ДЛЯ ВЫВОДА СТРОКИ
 CMP AL, 6
 JNE RETURN ;ЕСЛИ ДЛИНА ЧИСЛА МЕНЬШЕ 6
 MOV BX, DX
 INC BX
 MOV AH, 0
 MOV CX, AX
 INC BX
 MOV AH, [BX]
 CMP AH, '-'
 JE M1 ;ЧИСЛО ОТРИЦАТЕЛЬНОЕ
 LEA DI, H ;ЧИСЛО ПОЛОЖИТЕЛЬНОЕ
 JMP FOR2
M1: INC BX
 DEC CX
 LEA DI, L
;ВХОДИТ ЛИ ЧИСЛО В ЗАДАННЫЙ ДИАПАЗОН?
FOR2: MOV AH, [BX]
 CMP AH, [DI]
 JA ERROR ;ЧИСЛО ВВЕДЕНО НЕВЕРНО
 JB RETURN ;ЧИСЛО ВВЕДЕНО ПРАВИЛЬНО
 INC BX
 INC DI
 LOOP FOR2
 JMP RETURN
ERROR: MOV BX, DX
 MOV [BX], BYTE PTR '0'
RETURN: POPA ;ВОССТАНОВЛЕНИЕ РЕГИСТРОВ
 RET
CONTROL ENDP
;===========ПРОЦЕДУРА CTRL0 - ЭТО НУЛЬ?
CTRL0 PROC
 PUSHA
 MOV SI, 1
 MOV CL, [BX+SI]
 MOV CH, 0
 INC SI
 MOV AL, [BX+SI]
 CMP AL, '-'
 JE MIN
 JMP CYCLE
MIN: INC SI
 DEC CX
CYCLE: MOV AL, [BX+SI]
 CMP AL, '0'
 JNE FINISH
 INC SI
 LOOP CYCLE
 MOV SI, 0
 MOV AL, '0'
 MOV [BX+SI], AL
FINISH: POPA
 RET
CTRL0 ENDP
;===========ПРОЦЕДУРА COMPARE - СРАВНЕНИЕ ДВУХ ЧИСЕЛ
COMPARE PROC
 PUSHA
 INC SI
 INC DI
 MOV AH, [SI]
 MOV AL, [DI]
 INC SI
 INC DI
 CMP BYTE PTR [SI], '-'
 JE NEGAT1
 JMP POZIT1
NEGAT1: DEC AH
 INC SI
POZIT1: CMP BYTE PTR [DI], '-'
 JE NEGAT2
 JMP POZIT2
NEGAT2: DEC AL
 INC DI
POZIT2: MOV BL, [SI]
 CMP BL, '0'
 JE SM
 JMP DI0
SM: INC SI
 DEC AH
 JMP POZIT2
DI0: MOV BL, [DI]
 CMP BL, '0'
 JE SM1
 JMP SRAV1
SM1: INC DI
 DEC AL
 JMP DI0
SRAV1: CMP AH, AL
 JA ABOVE
 JB BELOW
 JMP EQUAL
ABOVE: LEA SI, SX
 MOV [SI], BYTE PTR 1
 JMP NEAR PTR END1
BELOW: LEA SI, SX
 MOV [SI], BYTE PTR -1
 JMP NEAR PTR END1
EQUAL: MOV CL, AL
 MOV CH, 0
FOR3: MOV AH, [SI]
 CMP AH, [DI]
 JA ABOVE
 JB BELOW
 INC SI
 INC DI
 LOOP FOR3
 JMP ABOVE
END1: POPA
 RET
COMPARE ENDP
 END BEGIN