Buenas:
Sigo con mi problema, pero algo he conseguido avanzar, ya he conseguido que me reconozca si son primos o no los numeros que introduzco por teclado, pero tiene un fallo y es que al introducir por ejemplo el numero 65 me dice que es primo o el 25, os dejo el codigo del programa tal y como esta ahora, si me podeis ayudar os lo agradeceria mucho:
Dosseg
.model small
.stack 100h
.data
numero db 30h,30h,30h
factor db 10
primo db 'Es primo',10,13,'$'
noprimo db 'No es primo',10,13,'$'
.code
convertir proc
sub al, 30h
ret
convertir endp
Inicio:
mov ax, @data
mov ds, ax
mov ah,1
int 21h
call convertir
mov numero,al
int 21h
call convertir
mov numero[1],al
int 21h
call convertir
mov numero[2],al
mov bh,numero[0]
mov bl,numero[1]
mov cl,4
shl bl,cl
shr bx,cl
xor dl,dl
mov dl,2
bucle:
cmp dl,bl
jz esprimo
xor ax,ax
mov al,bl
mov cl,dl
div cl
cmp ah,0
jz noesprimo
inc dl
jmp bucle
noesprimo:
mov ah, 9
lea dx, noprimo
int 21h
jmp fin
esprimo:
mov ah, 9
lea dx, primo
int 21h
fin:
mov ah, 4Ch
int 21h
end inicio
Un saludo
