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

3.2 Текст программы, реализующий алгоритм

.modelsmall

.386

.stack 100h

.data

str1 db 09h,0d5h ,"========",0B8h,0ah,0dh

db "Enter a ", 0b3h,09h, " ",0b3h,0ah,0dh

db 09h, 0c3h,"========",0b4h,0ah,0dh

db "Enter b ",0b3h,09h, " ",0b3h,0ah,0dh

db 09h, 0c3h,"========",0b4h,0ah,0dh

db "Result :",0b3h,09h, " ",0b3h,0ah,0dh

db 09h, 0d4h,"========",0beh,0ah,0dh, '$'

InBufa DB 7

kola DB ?

a DB ?, ?, ?, ?, ?, ?, ?

InBufb DB 7

kolb DB ?

b DB ?, ?, ?, ?, ?, ?, ?

Error DB "Input data ERROR !!!", 0dh, 0ah, '$'

DivErr DB "Dividing by Zero !!!", 0dh, 0ah, '$'

chA DW 0

chB DW 0

tabl DW 10000, 1000, 100, 10, 1

ResBin DW 0

ResBCD DB '+', '0', ?, ?, ?, ?, 0ah, 0dh, '$'

kol db 3

flag db 0

.code