Використання макрокоманд та процедур

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
ІКТА
Факультет:
Комп'ютерна інженерія
Кафедра:
ЕОМ

Інформація про роботу

Рік:
2014
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Засоби системного програмування
Група:
КІ 2
Варіант:
2 11

Частина тексту файла (без зображень, графіків і формул):

Міністерство освіти та науки України Національний університет «Львівська політехніка»  ЗВІТ З лабораторної роботи №6 З дисципліни: «Засоби системного програмування» На тему: «Використання макрокоманд та процедур. Ввід даних з клавіатури та вивід результату на екран.» Мета: набути навиків написання макрокоманд та процедур на Асемблері, освоїти способи передачі параметрів. Реалізувати ввід та вивід даних в десятковій системі числення. ЗАВДАННЯ: Створити *.exe програму, яка реалізовує обчислення, заданого варіантом виразу над даними, введеними в десятковій системі і результат виводить на екран в десятковій формі. Програма повинна складатися з трьох основних підпрограм: процедура вводу - забезпечує ввід даних з клавіатури в десятковій формі і їх перевід у двійкове значення ; процедура безпосередніх обчислень – здійснює всі необхідні арифметичні дії у двійковій системі; процедура виводу – забезпечує перевід війкового результату у десятковий формат та вивід на екран. Передача параметрів може здійснюватися довільним чином. Кожна з перерахованих процедур може містити довільну кількість додаткових підпрограм. Вхідні операнди А, В, С, D, E, F вважати беззнаковими і довжиною в байтах, згідно з індексу. К – константа, довжина якої визначається значенням(згідно варіанту). 2. Переконатися у правильності роботи кожної процедури зокрема та програми загалом. 3. Скласти звіт про виконану роботу з приведенням тексту програми та коментарів до неї. 4. Дати відповідь на контрольні запитання. ВАРІАНТИ ЗАВДАННЯ – ДИВ. ЛАБОРАТОРНУ РОБОТУ №4. Варіант №2 № Вираз K  2 X=A4/B2+C3-D1*E1+K 202   Лістинг програми: ;X=A4/B2+C3-D1*E1+K K=202 DOSSEG .MODEL SMALL MY_MUL MACRO X,Y,Z mov z,0 mov z+2,0 MOV AX,X MUL Y MOV Z,AX MOV Z+2,DX MOV AX,X+2 MUL Y ADD Z+2,AX mov ax,Z mov dx,Z+2 ENDM .STACK 100h .DATA K EQU 202h A dd 00h B dw 00h C dw 00h D db 00h E db 00h Temp1 dw 00h,00h Temp2 dw 00h Temp3 dw 00h Temp4 dw 00h,00h X dw 00h,00h X_Str db 10 dup (0) TempStr db 10 dup (0) TempBin dw 0,0 MaxLen dw 0 X_div2 dw 0,0 Y_div2 dw 0 MESSG_X DB 13,10,'X=A4/B2+C3-D1*E1+K К=202h(Decimal K = 514)','$' MESSG_A DB 13,10,'A= ','$' MESSG_B DB 13,10,'B= ','$' MESSG_C DB 13,10,'C= ','$' MESSG_D DB 13,10,'D= ','$' MESSG_E DB 13,10,'E= ','$' MESSG_X1 DB 13,10,'X= ','$' erStr1 db 13,10,'Data not input_variable',13,10,'$' erStr2 db 13,10,'Incorrectly data ',13,10,'$' erStr2_1 db 13,10,' B =0 --> divide by zero ',13,10,'$' erStr3 db 13,10,'Data is too long ',13,10,'$' Mult10 dw 1,0 my_z dw 0,0 .CODE Start: mov ax,@data mov ds,ax call input call calculation call output mov ah,01 int 21h mov ah,4Ch int 21h input proc LEA DX,MESSG_X ;Загрузка эффективного адреса MOV AH,09 ;AH=09 Вивід на екран рядка в базовій версії DOS. INT 21H LEA DX,MESSG_A MOV AH,09 INT 21H mov di,offset A mov MaxLen,3 mov cx,MaxLen call input_variable LEA DX,MESSG_B ;Загрузка эффективного адреса MOV AH,09 ;AH=09 Вивід на екран рядка в базовій версії DOS. INT 21H mov di,offset B ;Offset помещает в регистр адрес строки. mov MaxLen,3 mov cx,MaxLen call input_variable cmp B,0 ;perevirka dilennia na 0 jne dali mov ah,09 mov dx, offset erStr2_1 int 21h mov ah,4Ch int 21h dali: LEA DX,MESSG_C MOV AH,09 INT 21H mov di,offset C mov MaxLen,5 mov cx,MaxLen call input_variable LEA DX,MESSG_D MOV AH,09 INT 21H mov di,offset D mov MaxLen,3 mov cx,MaxLen call input_variable LEA DX,MESSG_E MOV AH,09 INT 21H mov di,offset E mov MaxLen,3 mov cx,MaxLen call input_variable ret input endp calculation proc xor ax,ax xor bx,bx xor cx,cx xor dx,dx ;Temp1 <- A4/B2 ; в цьому блоці виконуємо операцію ділення mov ax,word ptr A+2 ; переміщуємо старшу частину змінної А в регістр ах mov bx,1 ; переміщуємо 1 в регістр bx mul bx ; робимо множення на 1 div B ; виконуємо ділення mov Temp1+2,ax ; записуємо частку старшої частини в Temp1 зі зміщенням на 2 байти mov ax,word ptr A ; переміщуємо молодшу частину змінної А у регістр ах div B ; виконуємо ділення mov Temp1,ax ; записуємо частку в Temp1 ;Temp2 <- D1*E1 ; в цьому блоці виконуємо операцію множення mov ax,0 ; онулюємо регістр ах mov ax,word ptr D ; переносимо значення змінної D в регістр ax mul E ; виконуємо множення mov Temp2,ax ; молодший результат множення записуємо в Temp2 mov Temp2+2,dx ; старший результат множення записуємо в Temp2 зі зміщення у 2 байти ;Temp1 + C3 - Temp2 – K ; в цьому блоці виконуємо операцію додавання та віднімання з використанням ; проміжних результатів та змінних mov ax,0 ; онулюємо регістр ах mov ax, word ptr C ; переносимо значення зміноої С в регістр ах add ax,Temp1 ; виконуємо додавання adc dx,Temp1+2 ; виконуємо додавання з врахуванням переносу sub ax,Temp2 ; виконуємо віднімання sbb dx,0 ; виконуємо віднімання з запозиченням add ax,K ; виконуємо додавання mov X,ax ; переміщаємо молодшу частину результату з регістру ах у змінну Х mov X+2,dx ; переміщаємо старшу частину результату з регістру dх у змінну Х зі зміщенням на 2 байти ret calculation endp input_variable PROC mov si,0 In_00: mov ah,01 int 21h cmp al,0Dh je In_1 In_0: mov dl,al call CHECK_BYTE mov TempStr[si],dl inc si loop In_00 In_1: push si dec si cmp cx,MaxLen jne In_2 call Err1 In_2: mov bh,0 mov bl,TempStr[si] MY_MUL Mult10,bx,my_z add TempBin,ax adc TempBin+2,dx mov bh,0 mov bl,10 MY_MUL Mult10,bx,my_z mov Mult10,ax mov Mult10+2,dx dec si cmp si,0 jge In_2 mov ax, TempBin mov dx,TempBin+2 pop si cmp si,MaxLen jl In_3 cmp MaxLen,10 jl In_2_1 js In_Err cmp dx,0FFFFh ja In_Err jmp In_3 In_2_1: cmp MaxLen,5 jl In_2_2 cmp dx,00 ja In_Err cmp ah,0ffh ja In_Err jmp In_3 In_2_2: cmp ax,00FFh jbe In_3 In_Err: LEA DX,erSTR3 MOV AH,09 INT 21H mov ah,4Ch int 21h In_3: mov [di],ax mov [di+2],dx mov TempBin,0 mov TempBin+2,0 mov Mult10,1 mov Mult10+2,0 RET input_variable ENDP Err1 PROC PUBLIC Err1 LEA DX,erSTR1 MOV AH,09 INT 21H mov ah,4Ch int 21h RET Err1 ENDP CHECK_BYTE PROC PUBLIC CHECK_BYTE sub dl,30h cmp dl,00 jl ErS cmp dl,0Ah jl GO ErS: LEA DX,erSTR2 MOV AH,09 INT 21H mov ah,4Ch int 21h GO: RET CHECK_BYTE ENDP MY_DIV2 proc sub cx,cx sub bx,bx mov dx,X_div2+2 mov ax,X_div2 M2_D1: cmp dx,Y_div2 jb M2_D3 sub ax,Y_div2 sbb dx,00 add cx,01 adc bx,0 jmp M2_D1 M2_D3: div Y_div2 add cx,ax adc bx,00 ret MY_DIV2 ENDP output PROC mov di,0 mov Y_div2,10 mov cx,X mov bx,X+2 O_1: mov X_div2,cx mov X_div2+2,bx call my_div2 add dl,30h mov X_Str[di],dl inc di cmp bx,0 ja O_1 cmp cx,10 jae O_1 add cl,30h mov X_Str[di],cl mov dx,offset MESSG_X1 mov ah,09 int 21h O_2: mov dl,X_Str[di] mov ah,02h int 21h dec di jge O_2 ret output ENDP end Start end Висновок: я навчився писати макрокоманди та процедури на Асемблері, освоїв способи передачі параметрів. Реалізував ввід та вивід в десятковій системі числення.
Антиботан аватар за замовчуванням

28.05.2014 14:05-

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

Маєш корисні навчальні матеріали, які припадають пилом на твоєму комп'ютері? Розрахункові, лабораторні, практичні чи контрольні роботи — завантажуй їх прямо зараз і одразу отримуй бали на свій рахунок! Заархівуй всі файли в один .zip (до 100 МБ) або завантажуй кожен файл окремо. Внесок у спільноту – це легкий спосіб допомогти іншим та отримати додаткові можливості на сайті. Твої старі роботи можуть приносити тобі нові нагороди!
Нічого не вибрано
0%

Оголошення від адміністратора

Антиботан аватар за замовчуванням

Подякувати Студентському архіву довільною сумою

Admin

26.02.2023 12:38

Дякуємо, що користуєтесь нашим архівом!