Boolean Calculator Create a program that functions as a simple Boolean calculato

Question

Boolean Calculator

Create a program that functions as a simple Boolean calculator for 32

bit integers. It should display a menu that asks the user to make a

selection from the following list:

1.x AND y

2.x OR y

3.NOT x

4.x XOR y

5.Exit the program

The program should run in a loop. When the user makes a choice, call

a procedure called ChooseProcedure which invokes the appropriate

procedure to perform the logical operation as outlined below:

AND_op : Prompt the user for two hexadecimal integers . AND them

together and displays the result in hexadecimal.

OR_op : Prompt the user for two hexadecimal integers . OR them

together and displays the result in hexadecimal.

NOT_op : Prompt the user for a hexadecimal integer . NOT the integer

and displays the result in hexadecimal.

XOR_op : Prompt the user for two hexadecimal integers . XOR them

together and displays the result in hexadecimal.

Explanation / Answer

Boolean Calculator
.data
msgMenu BYTE "---- Boolean Calculator ----",0dh,0ah
BYTE 0dh,0ah
BYTE "1. x AND y" ,0dh,0ah
BYTE "2. x OR y" ,0dh,0ah
BYTE "3. NOT x" ,0dh,0ah
BYTE "4. x XOR y" ,0dh,0ah
BYTE "5. Exit program",0
msgAND BYTE "Boolean AND",0
msgOR BYTE "Boolean OR",0
msgNOT BYTE "Boolean NOT",0
msgXOR BYTE "Boolean XOR",0
msgInteger1 BYTE "Enter the first 32-bit hexadecimal integer: ",0
msgInteger2 BYTE "Enter the second 32-bit hexadecimal integer: ",0
msgResult BYTE "The 32-bit hexadecimal result is: ",0
caseTable BYTE '1' ; lookup value
DWORD AND_op ; address of procedure
EntrySize = ($ - caseTable )
BYTE '2'
DWORD OR_op
BYTE '3'
DWORD NOT_op
BYTE '4'
DWORD XOR_op
BYTE '5'
DWORD ExitProgram
NumberOfEntries = ($ - caseTable) / EntrySize
.code
main PROC
call Clrscr ; clear console window
Menu:
mov edx, OFFSET msgMenu ; menu choices
call WriteString ; display menu
call Crlf ; go to next output line
L1: call ReadChar ; wait for input and return char
cmp al, '5' ; is selection valid (1-5)?
ja L1 ; jump if above 5, go back
cmp al, '1'
jb L1 ; jump if below 1, go back
call Crlf
call ChooseProcedure
jc quit ; jump if carry = 1, exit
call Crlf
jmp Menu ; display menu again
quit: exit
main ENDP
ChooseProcedure PROC
push ebx ; push EBX onto stack
push ecx ; push ECX onto stack
mov ebx, OFFSET caseTable ; pointer to the table
mov ecx, NumberOfEntries ; loop counter
L1: cmp al, [ebx] ; match found?
jne L2 ; if no, continue
call NEAR PTR [ebx + 1] ; if yes, call procedure
jmp L3
L2: add ebx, EntrySize ; point to the next entry
loop L1 ; repeat until ECX = 0
L3: pop ecx ; remove ECX from stack
pop ebx ; remove EBX from stack
ret ; return from procedure
ChooseProcedure ENDP
AND_op PROC
pushad ; push all registers onto stack
mov edx, OFFSET msgAND ; name of the operation
call WriteString ; display message
call Crlf
call Crlf
mov edx, OFFSET msgInteger1 ; ask for first integer
call WriteString
call ReadHex ; get hex integer
mov ebx, eax ; move first integer to EBX
mov edx, OFFSET msgInteger2 ; ask for second integer
call WriteString
call ReadHex ; get second hex integer
and eax, ebx ; integer1 AND integer2
mov edx, OFFSET msgResult ; result
call WriteString ; display result
call WriteHex ; display hex to window
call Crlf
popad ; save and restore registers
ret ; return from procedure
AND_op ENDP
OR_op PROC
pushad ; push all registers onto stack
mov edx, OFFSET msgOR ; name of the operation
call WriteString ; display message
call Crlf
call Crlf
mov edx, OFFSET msgInteger1 ; ask for first integer
call WriteString
call ReadHex ; get hexadecimal integer
mov ebx, eax ; move first integer to EBX
mov edx, OFFSET msgInteger2 ; ask for second integer
call WriteString
call ReadHex ; get hex integer
or eax, ebx ; integer1 OR integer2
mov edx, OFFSET msgResult ; result of operation
call WriteString
call WriteHex ; display hex to window
call Crlf
popad ; save and restore registers
ret ; return from procedure
OR_op ENDP
NOT_op PROC
pushad ; push all registers onto stack
mov edx, OFFSET msgNOT ; name of the operation
call WriteString ; display message
call Crlf
call Crlf
mov edx, OFFSET msgInteger1 ; ask for integer
call WriteString
call ReadHex ; get hex integer
not eax ; NOT operand
mov edx, OFFSET msgResult ; result of operation
call WriteString
call WriteHex ; EAX = result
call Crlf
popad ; restore registers
ret ; return from procedure
NOT_op ENDP
XOR_op PROC
pushad ; push all registers onto stack
mov edx, OFFSET msgXOR ; name of the operation
call WriteString ; display message
call Crlf
call Crlf
mov edx, OFFSET msgInteger1 ; ask for first operand
call WriteString
call ReadHex ; get hexadecimal integer
mov ebx, eax ; move first operand to EBX
mov edx, OFFSET msgInteger2 ; ask for second operand
call WriteString
call ReadHex ; get hex integer
xor eax, ebx ; integer1 XOR integer2
mov edx, OFFSET msgResult ; result of operation
call WriteString
call WriteHex ; display hex to window
call Crlf
popad ; save and restore registers
ret ; return from procedure
XOR_op ENDP
ExitProgram PROC
stc ; set the carry flag to 1
ret ; return from procedure
ExitProgram ENDP
END main

Related Questions

Navigate

• Browse (All)
• Browse B
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.