$\mathrm{.}486$

$.$model flat, stdcall

option casemap: none

include $\backslash$masm$32\backslash$include$\backslash$windows$.$inc ; For Windows API types and definitions

include $\backslash$masm$32\backslash$include$\backslash$user$32.$inc ; For using MessageBox

include $\backslash$masm$32\backslash$include$\backslash$kernel$32.$inc ; For using ExitProcess

include $\backslash$masm$32\backslash$include$\backslash$masm$32.$inc ; For using FloatToStr

includelib $\backslash$masm$32\backslash$lib$\backslash$user$32.$lib ; Library for MessageBox

includelib $\backslash$masm$32\backslash$lib$\backslash$kernel$32.$lib ; Library for ExitProcess

include Ext$\_$macros.inc

NUM macro Q$,$ M$,$ N$,$ O

MOV AL$,$ M ; Copy number M to register AL

CBW ; Sign$-$extend AL to AX

MOV BL$,4$ ; Copy constant $"4"$ to register BL

IDIV BL ; Division register AX by constant $"4",$ quotient in AL

ADD AL$,$ N ; Add N to AL

SUB AL$,33$ ; Subtract $33$ from AL

CBW ; Sign$-$extend AL to AX

MOV Q$,$ AX ; Store the result in the memory location specified by Q

endm

DEN macro Q$,$ M$,$ N$,$ O

MOV AL$,$ M ; Copy number M to register AL

MOV BL$,$ N ; Copy number N to register BL

IMUL BL ; Multiply AL by BL $($a$*$b$)$

DEC AL ; Decrement AL by $1$

MOV Q$,$ AL ; Store the result in the memory location specified by Q

endm

$.$data

msg$\_$title db "Lab $5",0$

buffer db $256$ dup$(?)$

format db $"$A $=\%$d$",10,"$B $=\%$d$",10,"$C $=\%$d$",10,"($C $-33+$ B$/4)/($A$*$C$/$B $-1)=\%$d$",0$

msg$\_$title$0$ db "WARNING!", $0$ ; text variable for title of window

msg$\_$message db "Value in denominator equal $0",0$ ; text variable for text in window

A DB $-2,-6,2,48,-6,2$

B DB $8,12,8,48,4,-4$

C$0$ DB $16,14,40,-3,-2,-2$

D dd $0$

E dd $0$

F dd $0$

$.$code

start:

MOV EDI, $0$ ; Pointer to set

$.$WHILE EDI$<6$

NUM BX$,$ B$[$EDI$],$ C$0[$EDI$]$

DEN AL$,$ A$[$EDI$],$ B$[$EDI$],$ C$0[$EDI$]$

CMP AL$,0$ ; Compare value in AL with $0$

jz ZERO

TEST AL$,1$ ; Test if AL is odd

JNZ ODD$\_$RESULT ; Jump to ODD$\_$RESULT if AL is odd

EVEN$\_$RESULT:

SAR AL$,1$ ; Right$-$shift AL by $1($divide by $2)$

JMP CONT ; Jump to CONT

ODD$\_$RESULT:

; Handle odd result here $($multiply by $5,$ for example$)$

MOV BH$,5$ ; Set BH to $5$

IMUL BH ; Multiply AL by $5$

; Continue with further processing as needed

CONT:

CWDE

movsx ESI, A$[$EDI$]$

mov D$,$ ESI

movsx ESI, B$[$EDI$]$

mov E$,$ ESI

movsx ESI, C$0[$EDI$]$

mov F$,$ ESI

invoke wsprintf, addr buffer, addr format, D$,$ E$,$ F$,$ eax

invoke MessageBox, $0,$ addr buffer, addr msg$\_$title, MB$\_$OK

jmp PR$\_$CONT

ZERO:

invoke MessageBox, $0,$ addr msg$\_$message, addr msg$\_$title$0,$ MB$\_$OK

PR$\_$CONT:

INC EDI

$.$ENDW

invoke ExitProcess, $0$

end start