Выполнение арифметических действий и строковых операций (стр. 2 из 2)
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
include math.lib
.startup
cls
locate 0,0
mov ax,dgroup
mov ds,ax
cikl:
mov flag, 0
mov chA, 0
mov chB, 0
mov ResBin, 0
mov bp, offset ResBCD
mov ds:[bp], '+'
mov ds:[bp+1], '0'
mov ds:[bp+2], ?
mov ds:[bp+3], ?
mov ds:[bp+4], ?
mov ds:[bp+5], ?
mov al, 3
mov ah, kol
sub al, ah
imul ax, 7
locate 0, al
push ax
; Вывод таблицы
mov dx,offset str1
mov ah,09h
int 21h
; Ввод чисел
pop ax
push ax
inc al
locate 10, al
mov dx,offset InBufa
mov ah,0ah
int 21h
pop ax
push ax
add al, 3
locate 10, al
mov dx,offset InBufb
mov ah,0ah
int 21h
; Проверка на числа
prov InBufA
prov InBufB
; Проверка на знак
znak a
znak b
; ASCII > BIN
ASCII_2_BIN kola, chA
ASCII_2_BIN kolb, chB
funtion
; Bin 2 Ascii
mov cx, 5
mov bp, offset tabl
mov si, offset ResBCD
inc si
v:
mov bx, ds:[bp]
mov dx, 0
idiv bx
cmp al, 0
je nul
mov flag, 1
add al, 30h
mov ds:[si], al
inc si
jmp nol
nul: cmp flag, 0
je nol
mov ds:[si], 30h
inc si
nol: mov ax, dx
add bp, 2
loop v
; Выход_1
pop ax
add al, 5
locate 10, al
mov dx, offset ResBCD
mov ah, 09h
int 21h
locate 0, 35
dec kol
jnz cikl
; Выход
jmp ex
Er: cls
locate 25, 8
mov dx, offset Error
mov ah, 09h
int 21h
jmp ex
DEr: locate 25, 9
mov dx, offset DivErr
mov ah, 09h
int 21h
ex:
.exit(0)
END
3.3. Листинг кода библиотеки string.lib, в которой находятся макросы, вызываемые в данной программе
IFDEF @Model
IFIDN @Model, <1>
TINYMODEL TYPEDEF
ENDIF
ENDIF
cls macro
push ax
push bx
push cx
push dx
mov cx,0
mov dh,24
mov dl,79
mov ah,6
mov al,0
mov bh,7
int 10h
pop dx
pop cx
pop bx
pop ax
endm
locate macro col,row
push dx
mov dh,row
mov dl,col
move_cursor
pop dx
endm
move_cursor macro
LOCAL ok,vs
push ax
push bx
cmp dh,24
jna ok
sub dh,dh
ok: cmp dl,79
jna vs
sub dl,dl
vs: mov ah,15
int 10h
mov ah,2
int 10h
pop bx
pop ax
endm
prov macro InBuf
local c1
mov bp, offset InBuf
inc bp
mov ch, 0
mov cl, ds:[bp]
dec cl
add bp, 2
c1: cmp byte ptr [ds:[bp]], 30h
jl Er
cmp byte ptr [ds:[bp]], 39h
ja Er
inc bp
loop c1
endm
znak macro per
local m1
cmp per, '-'
je m1
cmp per,'+'
jne Er
m1:
endm
ASCII_2_BIN macro kol, res
local p, plus
mov bp, offset kol
mov bx, offset kol
mov ax, 0
mov al, ds:[bx]
add bp, ax
mov ch, 0
mov cl, ds:[bx]
dec cl
mov bx, offset tabl
add bx, 8
mov ax, 0
mov dx, 0
p: mov ax, ds:[bx]
mov dl, ds:[bp]
sub dl, 30h
imul ax, dx
add res, ax
sub bx, 2
sub bp, 1
dec cx
jnz p
; Проверка на знак
mov bp, offset kol
add bp, 1
cmp ds:byte ptr[bp], '-'
jne plus
neg res
plus:
endm
funtion macro
;Задание:
; b / a - 1, если a>b;
;Y = -295, если a=b;
; (a - 235) / b, если a<b;
mov ax, chA
mov bx, chB
cmp ax, bx
jne net
cmp ax, 0
je equal
net:
mov bp, offset a
mov si, offset b
mov dl, ds:[bp]
mov dh, ds:[si]
cmp dl, dh
jl more
ja low
cmp dl, '-'
jne pl
cmp ax, bx
jg more
je equal
ja low
pl: cmp ax, bx
ja more
je equal
jl low
more: cmp al, 0
je DEr
mov ax, chB
mov bx, ax
and bx, 7FFFh
cmp ax, bx
je pluss
mov dx,0FFFFh
jmp did
pluss: mov dx, 0
did: idiv chA
sub ax,1
jmp www
equal: mov ax, 00h
sub ax,295
jmp www
low: cmp bl, 0
je DEr
mov ax,chA
sub ax,235
mov bx, ax
and bx, 7FFFh
cmp ax, bx
je plu2
mov dx,0FFFFh
jmp mnu2
plu2: mov dx, 0
mnu2:
idiv chB
www: mov bx, ax
and bx, 7FFFh
cmp ax, bx
je OK
neg ax
mov ResBCD, '-'
OK: mov ResBin, ax
endm
4. Строки
4.1 Блок-схема алгоритма обработки строки
 |
4.2 Текст программы, реализующий данный алгоритм:
.model small
.586
.stack 100h
.data
Mes1 db "Input the first string",0ah,0dh,'$'
Mes2 db "Input the second string",0ah,0dh,'$'
Mes3 db "Input the simbol, from which you want to paste the second string",0ah,0dh,'$'
Str1 db 255
db ?
db 255 dup (0)
Str2 db 255
db ?
db 255 dup (0)
Char1 db 2
db ?
db 0,'$'
Res db "Result is:",0Ah,0Dh,'$'
Str db 255 dup (0)
.code
include string.lib
.startup
mov ax,dgroup
mov ds,ax
cls
locate 0,0
lea dx, Mes1
mov ah,09h
int 21h
lea dx, Str1
mov ah,0ah
int 21h
locate 0, 3
lea dx, Mes2
mov ah,09h
int 21h
lea dx, Str2
mov ah,0ah
int 21h
locate 0, 6
lea dx, Mes3
mov ah,09h
int 21h
lea dx, Char1
mov ah,0ah
int 21h
obrabotka
locate 0, 9
lea dx, Res
mov ah,09h
int 21h
lea dx, Str
mov ah,09h
int 21h
.exit(0)
END
4.3 Листинг кода библиотеки math.lib, в которой находятся макросы, вызываемые в данной программе
IFDEF @Model
IFIDN @Model, <1>
TINYMODEL TYPEDEF
ENDIF
ENDIF
cls macro
push ax
push bx
push cx
push dx
mov cx,0
mov dh,24
mov dl,79
mov ah,6
mov al,0
mov bh,7
int 10h
pop dx
pop cx
pop bx
pop ax
endm
locate macro col,row
push dx
mov dh,row
mov dl,col
move_cursor
pop dx
endm
move_cursor macro
LOCAL ok,vs
push ax
push bx
cmp dh,24
jna ok
sub dh,dh
ok: cmp dl,79
jna vs
sub dl,dl
vs: mov ah,15
int 10h
mov ah,2
int 10h
pop bx
pop ax
endm
obrabotka macro
mov bp,offset Char1
add bp, 2
mov dl, ds:[bp]
mov bp,offset Str1
add bp, 1
mov cl, ds:[bp]
inc bp
mov si,offset Str2
add si, 1
mov ch, ds:[si]
inc si
mov bx, offset Str
inc bx
lp:
mov al,ds:[bp]
mov ds:[bx],al
cmp al,dl
je m1
inc bx
inc bp
dec cl
jnz lp
m1: inc bx
inc bp
lpo:
mov al,ds:[si]
mov ds:[bx],al
inc bx
inc si
dec ch
jnz lpo
lopa:
mov al,ds:[bp]
mov ds:[bx],al
inc bx
inc bp
dec cl
jnz lopa
inc bx
mov ds:[bx],'$'
endm
ВЫВОД
В данной работе были разработаны программы, направленные на выполнение арифметических действий и строковых операций.
Программы были написаны на языке низкого уровня BorlandTurboAssembler(TASM), для процессоров семейства Intel.
В ходе выполнения задания возникали проблемы во время отладки программы, поскольку язык ассемблера TASMимеет сложную структуру.
Были практически закреплены полученные навыки работы с TASM, знание о структуре языка и его синтаксиса.
Программы, разработанные в ходе выполнения данной расчетно-графической работы, характеризуются малым размером выполняемого файла, работай напрямую с аппаратным обеспечением ПК.