; pregunta por las tablas de multiplicar
 
%macro print 2
mov eax, 4
mov ebx, 1
mov ecx, %1
mov edx, %2
int 0x80
%endmacro
 
%macro read 2
mov eax, 3
mov ebx, 0
mov ecx, %1
mov edx, %2
int 0x80
%endmacro
 
section .data
msg db "elige una del 2 al 10 "
lenmsg equ $-msg
 
ln db 0xa, 0xd
lenln equ $-ln
 
section .bss
tab resb 2
prod resb 3
 
section .text
global _start
 
_start:
print msg, lenmsg
push ecx
read tab, 2
pop ecx
mov edi, 1
 
tabla:
cmp edi, 10
jg exit
mov ax, [tab]
sub ax, '0'
mul edi
cmp ax, 10
jge greater
add ax, '0'
mov [prod], ax
print prod, 2
print ln, lenln
cont:
inc edi
jmp tabla
 
greater:
clc
aam                                        ; adjust ascii after multiplication
pushf
or ah, 30h
or al, 30h
popf
mov [prod+0], ah
mov [prod+1], al
print prod, 2
print ln, lenln
jmp cont
 
exit:
mov eax, 1
mov ebx, 0
int 0x80

	; pregunta por las tablas de multiplicar
 
%macro print 2
	mov eax, 4
	mov ebx, 1
	mov ecx, %1
	mov edx, %2
	int 0x80
%endmacro
 
%macro read 2
	mov eax, 3
	mov ebx, 0
	mov ecx, %1
	mov edx, %2
	int 0x80
%endmacro
 
section .data
	sel db "Elige una tabla de multiplicar del 2 al 10 "
	lensel equ $-sel
 
	exis db ' x '
	lenx equ $-exis
 
	igual db " = "
	leni equ $-igual
 
	ok db "Ok."
	lenok equ $-ok
 
	error db "Error."
	lenerr equ $-error
 
	ln db 0xa, 0xd
	lenln equ $-ln
 
section .bss
	tab resb 2
	mult resb 2
	res resb 3
	prod resb 3
 
section .text
global _start
 
_start:
	print sel, lensel
	read tab, 2
	mov edi, 0
tabla:
	inc edi
	mov ax, [tab]
	sub ax, '0'
	mul edi
	push ax
	cmp edi, 9
	jg exit
	print ln, lenln
	add edi, '0'		; paso a ascii
	mov [mult], edi
	mov bl, [mult+1]
	mov bh, [mult+0]
	add bx, '0'
	mov [mult], bx
	print tab, 1
	print exis, lenx
	print mult, 2
	print igual, leni
	read res, 2
	mov cx, [res]
	sub cx, '0'
	pop ax
	cmp ax, cx
	je okey
	print error, lenerr
	sub edi, '0'		; paso a binario
	jmp tabla
 
okey:
	print ok, lenok
	sub edi, '0'		; paso a binario
	jmp tabla
 
exit:
	mov eax, 1
	mov ebx, 0
	int 0x80