Project4_Elwood_Hogan.asm

;elh0061
;Elwood Hogan
;11/12/2021
;Comp 3350
;Project 4


.386
.model flat, stdcall
.stack 4096
ExitProcess PROTO, dwExitCode: DWORD

.data
    s1 byte "GARDEN"
    s2 byte "DANGER"
    c1 byte 26 dup(0)               ;counter for each letter in s1
    c2 byte 26 dup(0)               ;counter for each letter in s2

.code 
	main PROC 
		mov eax, 0                  ;we will assume that we do not have an anagram 

		MOV ecx, lengthof s1		;(1) iterate lengthof s1 t\imes

		mov esi, 0 

		CounterLoop:				;this will increment the proper 'elements' of c1 and c2

			movzx edi, s1[esi]      ;move the value from s1 into edi

			inc c1[edi-65]			;(2) increment the counter at the value - 65.

			movzx edi, s2[esi]		;(3) Do the same procedure for s2

			inc c2[edi-65]			;(4) increment the second counter at the value - 65.

			inc esi					;increment esi

		loop CounterLoop			;after this loop terminates our couter arrays will have the proper values

		mov esi, 0					;(5) start checking the counter arrays at 'index' 0

		mov ecx, lengthof c1		;(6)iterate lengthof c1 times

		VerifyLoop: 

			mov bl, c1[esi]			;(7) move value of c1 into bl

			cmp bl, c2[esi]			;(8) check bl vs the value of c2

			jne NoAna				;(9) if they are not equal then we do not have an anagram.  jump to NoAna

			inc esi					;increment esi

		loop VerifyLoop

		mov eax, 1 
		
		; you can uncomment the following line to print out the result
        ; call WriteInt
		NoAna: 
			invoke ExitProcess, 0 

			main ENDP
	end main