; El programa recibe dos numeros positivos enteros de un digito,
; el primero se multiplica por 5 y luego el resultado se suma con
; el segundo número. El resultado final debe ser verificado para
; que imprima un string indicando si es par o impar.

; Segmentos ---------------------------------------------------------------------------------------------------------------------------------------
MODEL SMALL		                       ; para programas con un sólo DS (que incluye la pila) y un CS 
    	    		                       ; con esto el ensamblador puede reconocer las siguientes directivas
STACK 100h 		                       ; fija un tamaño para el stack con el que trabaja
DATA 	    		                       ; abre segmento de datos 
    N1 db 15		                       ; define variable tamaño byte con valor 15 
    N2 db 4                                ; define variable tamaño byte con valor 4
    msj1 db 10, 13, "Ingrese un numero: $" ; define variable tamaño byte con valores 10, 13 (para hacer un salto de línea) y un string con el mensaje
    msj2 db 10, 13, "El numero es par$"    ;   ''      ''       ''   ''   ''    ''   ''  ''   ''    ''  ''   ''  ''   ''  '' ''   ''    '' ''   ''    
    msj3 db 10, 13, "El numero es impar$"  ;   ''      ''       ''   ''   ''    ''   ''  ''   ''    ''  ''   ''  ''   ''  '' ''   ''    '' ''   ''    

; Codigo -----------------------------------------------------------------------------------------------------------------------------------------

.CODE 			        ; abre segmento código (CS)
    mov ax, @data	    ; mueve dirección inicial de DS a AX
	mov ds, ax		    ; mueve copia de data que se encuentra en AX a segmento de datos (DS) para inicializarlo

                        ; imprime msj1 en salida estandar  
    mov dx, offset msj1 ; guarda la dirección donde se encuentra almacenado msj1 en DX
    mov ah, 09h         ; llama la función 09h de la interrupción 21h, "WRITE STRING TO STANDARD OUTPUT", que lee un string dentro de DX (registro de datos) hasta encontrar un '$'
    int 21h             ; ejecuta la interrupción 21h

                        ; pide valor de N1
    mov ah, 01h         ; llama la función 01h de la interrupción 21h, "READ CHARACTER FROM STANDARD INPUT, WITH ECHO", que guarda en AL (registro acumulador) el char leído de la entrada del usuario
    int 21h             ; ejecuta interrupción 21h
    mov N1, al          ; mueve copia del contenido de AL, es decir, el char, a la variable N1

                        ; salto de linea 
    mov dx, 10          ; mueve copia del valor 10 a DX (registro de datos)
    mov ah, 02h         ; llama la función 02h de la interrupción 21h,"WRITE CHARACTER TO STANDARD OUTPUT", que imprime lo que se encuentre dentro de DX, en pantalla
    int 21h             ; ejecuta la interrupción 21h

                        ; imprime msj1 en salida estandar  
    mov dx, offset msj1 ; guarda la dirección donde se encuentra almacenado msj1 en DX
    mov ah, 09h         ; llama la función 09h de la interrupción 21h, "WRITE STRING TO STANDARD OUTPUT", que lee un string dentro de DX (registro de datos) hasta encontrar un '$'
    int 21h             ; ejecuta la interrupción 21h

                        ; pide valor de N2
    mov ah, 01h         ; llama la función 01h de la interrupción 21h, "READ CHARACTER FROM STANDARD INPUT, WITH ECHO", que guarda en AL (registro acumulador) el char leído de la entrada del usuario
    int 21h             ; ejecuta interrupción 21h
    mov N2, al          ; mueve copia del contenido de AL, es decir, el char, a la variable N2

    sub N1, 30h         ; pone el valor real de N1, resta valor de 0 en ASCII (30h) al contenido de la variable
    sub N2, 30h         ;   '' ''  ''    ''  '' N2,  ''     ''  '' '' ''  ''    ''  ''    ''     '' ''   ''

    mov al, N1          ; mueve copia de N1 al registro AL 
    mov bl, 5           ; mueve copia del numero 5 al registro BL
    mul bl              ; multiplicación donde el resultado se almancena en el registro Bl (BL = AL * BL)
      
    add bl, N2          ; suma BL con N2 y se almacena en el regsitro BL

                        ; salto de linea 
    mov dx, 10          ; mueve copia del valor 10 a DX (registro de datos)
    mov ah, 02h         ; llama la función 02h de la interrupción 21h,"WRITE CHARACTER TO STANDARD OUTPUT", que imprime lo que se encuentre dentro de DX, en pantalla
    int 21h             ; ejecuta la interrupción 21h


    shr bl, 1           ; desplazamiento a la derecha, pasa el último bit de la derecha del registro BL (LSB) al carry flag (CF). Esto funciona como una división entre dos, por lo cual si no lleva carry (CF = 0) sería par. 
    jae espar           ; "jump if above or equal", pasa a ejecutar ESPAR si el carry flag (CF) es 0
    jnae esimpar        ; jump si el jump anterior no se ejecutó, pasa a ejecutar ESIMPAR si el carry flag (CF) es 1

espar:
                        ; imprime msj2
    mov dx, offset msj2 ; guarda la dirección donde se encuentra almacenado msj2 en DX
    mov ah, 09h         ; llama la función 09h de la interrupción 21h, "WRITE STRING TO STANDARD OUTPUT", que lee un string dentro de DX (registro de datos) hasta encontrar un '$'
    int 21h             ; ejecuta la interrupción 21h
    jmp final           ; realiza un jump incondicional para pasar a ejecutar FINAL

esimpar:
                        ; imprime msj3
    mov dx, offset msj3 ; guarda la dirección donde se encuentra almacenado msj3 en DX
    mov ah, 09h         ; llama la función 09h de la interrupción 21h, "WRITE STRING TO STANDARD OUTPUT", que lee un string dentro de DX (registro de datos) hasta encontrar un '$'
    int 21h             ; ejecuta la interrupción 21h
    jmp final           ; realiza un jump incondicional para pasar a ejecutar FINAL

final:
    mov ax, 4C00h	    ; función 4C00h (de interrupción 21h) para cierre, se mueve valor 4C00h a registro AX para luego terminar el programa y devolver control a DOS
    int 21h	            ; ejecuta la interrupción 21h

    END 		        ; cierra segmento código (CS)