;Christina Hill
;email: chill5
;ECE 267  Spring '07
;Project 3- Prime Factorization
;DUE: 4/11/07 11:55 pm
;Professor Goncharoff
 
 
 
 
INCLUDE Irvine32.inc
 
.data
String1 BYTE "Enter N: ", 0
String2 BYTE " = ", 0
String3 BYTE " x "
         
.code
main PROC
     mov edx, OFFSET String1
     call WriteString
     call ReadInt

     call writedec
     mov edx, OFFSET String2

     call WriteString

     call Find_Factors

     call crlf
        
     exit
 main ENDP
 

 Find_Factors PROC
   Local myX:DWORD, M:DWORD, Count:DWORD, Q:DWORD, R:DWORD

   push eax
   push ebx
   push edx


   mov myX, eax
   mov Count, 2
    
A0:
   mov edx, myX

     .IF (Count <= edx)
		mov edx, 0
                mov eax, myX
                div Count
                mov Q, eax
                mov R, edx
                .IF (R == 0)

                        mov eax, Count
                        call WriteDec
			.IF (Q != 1)
			
	                        mov edx, OFFSET String3
        	                call Writestring
	
        	                mov eax, Q
				call Find_Factors
			.ENDIF


                        jmp A9
                .ELSE
                        mov ebx, Count
                        inc ebx
                        mov Count, ebx
                        jmp A0
                .ENDIF
        .ELSE
                mov eax, myX
		call WriteDec
        .ENDIF

A9:

     pop edx
     pop ebx
     pop eax

        ret
Find_Factors ENDP
 
END main