Лабораторная работа: Выполнение арифметических операций над числами с фиксированной запятой

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 ;ДЕЛЕНИЕ ЗАВЕРШЕНО