;Lourdes Marisol Castillo Caamal
;Carolina Maribel Fernández Uicab 
;Angel Iram Torres Salazar
section .data
    ;Mensaje de ingresar el primer numero 
    num1 db "Ingresa el primer numero: ",10
    num1_len equ $ - num1

    ;Mensaje de ingresar segundo numero 
    num2 db "Ingresa un segundo numero (debe ser menor que el primer número capturado): ",10
    num2_len equ $ - num2

    ;Mensaje de seleccion de opción sume o resta
    opcion db "Ingresar 1 si desea sumar los dos números ingresados o 2 si los desea restar: ",10
    opcion_lem equ $ - opcion

    ;Leer el valor 1
    valor1 times 64 db 0 ;reservamos 64 bytes 
    valor1_lem equ $ - valor1

    ;Leer el valor 2
    valor2 times 64 db 0 ;reservamos 64 bytes
    valor2_lem equ $ - valor2

    ;Leer el seleccion
    selc times 2 db 0 ;solo leeemos el valor y el enter

    ;Mensaje de resultado dela suma
    msgs db "El resultado de la suma es: ",10
    msgs_lem equ $ - msgs

    ;Mensaje de resultado de la resta
    msgr db "El resultado de la resta es: ",10
    msgr_lem equ $ - msgr

    ;Reserva del resultado delimita a 64 byts pero podemos ponerlo en equ $ - resultado
    resultado times 64 db 0
    resultado_lem equ 64

section .text
    global _start

_start:
    ;mensaje de solicitud del primer numero
    mov rax, 1 ;imprimir
    mov rdi, 1 ;en pantalla
    mov rsi, num1
    mov rdx, num1_len
    syscall

    ;leemos el primer numero, un caracter a la vez hasta el Enter
    mov rsi, valor1 ;es el inicio dle buffer en el valor que se ha leido

    
leer1: ;se coloca un ciclo para leer cada numero uno por uno
    mov rax, 0 ;llamado a leer
    mov rdi, 0 ;teclado estandar
    mov rdx, 1 ;un solo caracter
    syscall

    mov al, [rsi] ;CONTENIDO EN CORCHETES NO LA DIRECCION
    cmp al, 10    ;10 es el Enter es decir cuando acaba el ciclo
    je fin_leer1  ;si es Enter sale del ciclo
    inc rsi       ;si no avanza la siguiente posicion
    jmp leer1     ;y repite hasta teneer el enter
fin_leer1:

    ;solicitud del segundo numero
    mov rax, 1 ;imprimir
    mov rdi, 1 ;en pantalla
    mov rsi, num2
    mov rdx, num2_len
    syscall

    ;leemos el segundo numero, un caracter a la vez hasta el Enter
    mov rsi, valor2
leer2:
    mov rax, 0 ;llamado a leer
    mov rdi, 0 ;teclado estandar
    mov rdx, 1 ;un solo caracter
    syscall

    mov al, [rsi] ;CONTENIDO EN CORCHETES NO LA DIRECCION
    cmp al, 10    ;10 es el enter es decir cuando acaba el ciclo
    je fin_leer2  ;si es si sale del ciclo
    inc rsi       ;si no avanza a la siguiente posicióne
    jmp leer2     ;y se repite hasta optener el enter 
fin_leer2:

pedir_opcion:
    ; mostrar seleccion de opcion suma o resta
    mov rax, 1 ;imprimir
    mov rdi, 1 ;en pantalla
    mov rsi, opcion
    mov rdx, opcion_lem
    syscall

    ;leemos el digito de la opcion
    mov rax, 0 ;sysread
    mov rdi, 0 ;teclado estandar
    mov rsi, selc
    mov rdx, 1
    syscall

    ;convertir el segundo numero de ASCII a numero (todos sus digitos) considerar que como vamos a trabajar la suma y resta en rax guardamos primero el segundo numero
    mov rsi, valor2
    xor rax, rax ;acumulador en 0
    
convertir2:
    xor rdx, rdx ;limpiamos rdx
    mov dl, [rsi] ;tomamos un caracter 
    cmp dl, 10    ;si es el Enter termina
    je fin2       
    sub dl, '0'   ;convertimos el digito a ASCII a digito
    mov rcx, rax  ;acumulado * 10 usando solo add
    add rax, rax  ;x2 acumulador
    add rax, rax  ;x4 acumulador 
    add rax, rcx  ;x5 acumulador
    add rax, rax  ;x10 acumulador
    add rax, rdx  ;+ digito suma el siguiente digito para la posición
    inc rsi       ;siguiente caracter
    jmp convertir2 ;se repite hasta el enter que es 10
fin2:
    mov rbx, rax            ;guarda el segundo numero en rbx

    ;convertir el primer numero de ASCII a numero (todos sus digitos)
    mov rsi, valor1
    xor rax, rax ;acumulador en 0
    
convertir1:
    xor rdx, rdx ;limpiar rdx
    mov dl, [rsi] ;tomamos un caracter
    cmp dl, 10   ;si es enter termina y no hace ciclos de acomodar los valores
    je fin1
    sub dl, '0'  ;convertir el digito a ASCII a digito
    mov rcx, rax ;acumulador * 10 usando solo add
    add rax, rax ;x2 acumulador
    add rax, rax ;x4 acumulador
    add rax, rcx ;x5 acumulador
    add rax, rax ;z10 acumulador
    add rax, rdx ;+ digito suma el siguiente digito para la posición
    inc rsi      ;siguiente caracter
    jmp convertir1 ;se repite hasta el enter que es 10
fin1:                       ;el primer numero se guarda en rax

    ;Convertir opcion a numero
    xor rcx, rcx ;limpiamos osea volver en 0
    mov cl, [selc] ;tomamos el contenido y lo baseamos a cl que como solo es 1 digito con el enter podemos ponerle en la parte baja
    sub cl, '0' ;lo convertimos a ASCII

seleccion: 
    ;Comprobar opcion
    cmp cl, 1 ;si es 1 lo sumamos
    je suma ;lo lleva a suma

    cmp cl, 2 ;si es 2 lo resta
    je resta ;lo lleva a resta

    jmp pedir_opcion        ;si no es 1 ni 2 vuelve a preguntar

suma:
    add rax, rbx            ;sume primero + segundo
    mov rbx, rax            ;guardamos el resultado en rbx, pues el syscall modifica rax

    mov rax, 1 ;imprimir
    mov rdi, 1 ;en pantalla
    mov rsi, msgs ;mensaje de que es suma
    mov rdx, msgs_lem
    syscall

    mov rax, rbx            ;regresamos el valor en rax
    jmp imprimir            ;y lleva a imprimir para no ir a la resta ademas que deben contabilisar las unidades decenas y centenas de la respuesta 

resta:
    sub rax, rbx            ;resta del primero - segundo
    mov rbx, rax            ;guardamos el resultado en rbx, pues el syscall modifica rax

    mov rax, 1 ;imprimir
    mov rdi, 1 ;en pantalla
    mov rsi, msgr ;mensaje de que es resta
    mov rdx, msgr_lem
    syscall

    mov rax, rbx            ;regresamso el valor a rax y directamente pasa a imprimir es decir sigue con el programa

imprimir:
    mov rbx, 10             ;Divisor 
    mov rsi, resultado_lem  ;Cuanto va imprimer/tamaño
    mov rcx, 0              ;Contador cuantos digitos almacenamos 

    ;El resultado se convierte de derecha a izquierda
    convertir:
        xor rdx, rdx        ;Limpiar y colocar 0
        div rbx             ;Dividir

        add dl, '0'         ;Convertir residuo a caracter ASCII
        dec rsi             ;Retroceder una posicion
        mov [resultado + rsi], dl ;Guarda el caracter en resultado sumando el retroceso de posición
        inc rcx             ;Contador del los digitos

        test rax, rax       ;Comprueba que el cociente es cero
        jnz convertir       ;Si no es cero repite, cuando todo se almaceno y es 0 sale para imprimir
   
    ;Impresion del resultado
    mov rax, 1
    mov rdi, 1
    lea rsi, [resultado + rsi] ;Movemos los datos a rsi para su impresión
    mov rdx, rcx            ;Cantidad real de digitos
    syscall

    ;TERMINAR PROGRAMA
    mov rax, 60
    mov rdi,0
    syscall