ASSSEMB

https://drive.google.com/file/d/0Bx5rS3UK4eL-Nk9CVlpOSTgydkU/view?usp=sharing


name "Calculadora Asemmbly by (Zerorendan)"
org 100h ; inicio de programa
include 'emu8086.inc' ;Incluye funciones de libreria emu8086
DEFINE_SCAN_NUM
DEFINE_PRINT_STRING
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS  

jmp inicio

inicio:  

mov bh, 0000_0010b
CALL   pintar
           
             

mov ax, @data
mov ds,ax

mov dx, offset esp;-------->espacios para los mensajes
mov ah,09;----------------->impresion en pantalla
int 21h

mov dx, offset mensaje1;--->titulo del programa
mov ah,09
int 21h

mov dx, offset user;------->creadores del programa
mov ah,09
int 21h

mov dx, offset m0;------->menu principal
mov ah,09
int 21h  
mov dx, offset m1;------->menu principal
mov ah,09
int 21h
mov dx, offset m2;------->menu principal
mov ah,09
int 21h
mov dx, offset m3;------->menu principal
mov ah,09
int 21h
mov dx, offset m4;------->menu principal
mov ah,09
int 21h
mov dx, offset m5;------->menu principal
mov ah,09
int 21h

;=====================================mov ah,01h
int 21h

    cmp al,'0'
    je fin

    cmp al,'1'
    je rect

    cmp al,'2'
    je cuad

    cmp al,'3'
    je tria

    cmp al,'4'
    je trap

    cmp al,'5'
    je sumaplus
       
       
;=====================================   
;*****************************RECT*****************************ini  
rect:  
         
    mov bh, 0111_1100b
    CALL   pintar


    mov dx, offset mensaje2;---> mensaje para pedir el primer numero
    mov ah,09h
    int 21h
    ;-------------------------->rellenado de variables
    call SCAN_NUM;------------->llama a la funcion scan_num q toma el numero del teclado y lo guarda en ax
    mov valor1,cx;------------->carga el numero a la variable
    ;-------------------------->muestra el mensaje user para sentirme grande
    mov dx, offset mensaje3;---> mensaje para pedir el segundo numero
    mov ah,09h
    int 21h
    ;-------------------------->rellenado de variables
    call SCAN_NUM;------------->llama a la funcion scan_num q toma el numero del teclado y lo guarda en ax
    mov valor2,cx;------------->carga el numero a la variable

    mov dx, offset texto_resp;->muestra el resultado
    mov ah,09h
    int 21h;------------------->interrupcion pantalla
    ;-------------------------->suma de las variables
    mov ax,valor1;------------->mueve el valor de la variable a ax
    ;add ax,valor2;------------->suma entre la region ax y la variable
   
    mul valor2;-------------------->ax=ax*bx
    call PRINT_NUM;------------> imprimiendo en pantalla el resultado

    mov ah,00;----------------->espera por una tecla en pantalla
    int 16h

    mov ah,00h;---------------->limpia la pantalla
    mov al,03h
    int 10h

    mov dx,offset beta;-------->muestra el mensaje de salida
    mov ah,09
    int 21h

    jmp inicio
;fin del bloque de suma
;*****************************RECT*****************************fin
 
 
 
;*****************************CUAD*****************************ini
cuad:

    mov bh, 0011_1110b
    CALL   pintar

    mov dx, offset mensaje2
    mov ah,09h
    int 21h
    ;-------------------------->rellenado de variables
    call SCAN_NUM;------------->llama a la funcion scan_num qtoma el numero del teclado y lo guarda en ax
    mov valor1,cx;------------->carga el numero a la variable
    ;-------------------------->muestra el mensaje user para sentirme grande
   ; mov dx, offset mensaje3
   ; mov ah,09h
    ;int 21h
    ;-------------------------->rellenado de variables
   ; call SCAN_NUM
    ;mov valor2,cx

    mov dx, offset texto_resp
    mov ah,09h
    int 21h
    ;-------------------------->resta de variables
    mov ax,valor1
    ;sub ax,valor2
    mul valor1
   
    call PRINT_NUM
   
    mov ah,00
    int 16h

    mov ah,00h;---------------->limpia la pantalla
    mov al,03h
    int 10h

    mov dx,offset beta
    mov ah,09
    int 21h
    jmp inicio
;*****************************CUAD*****************************fin


;*****************************TRIA*****************************ini
tria:

    mov bh, 0001_1110b
    CALL   pintar

    mov dx, offset mensaje2
    mov ah,09h
    int 21h
    ;-------------------------->rellenado de variables
    call SCAN_NUM;------------->llama a la funcion scan_num qtoma el numero del teclado y lo guarda en ax
    mov valor1,cx;------------->carga el numero a la variable
    ;-------------------------->muestra el mensaje user para sentirme grande
    mov dx, offset mensaje3
    mov ah,09h
    int 21h
    ;-------------------------->rellenado de variables
    call SCAN_NUM
    mov valor2,cx

    mov dx, offset texto_resp
    mov ah,09h
    int 21h
    ;-------------------------->multiplicacion en si misma
    mov ax,valor1;------------->mueve la primeria variable al ax
    mov bx,valor2;------------->mueve el siguiente valor al bx porque la multi solo permite un valor
    mul bx;-------------------->ax=ax*bx
     
    mov bx,2
    div bx;
 
    call PRINT_NUM

    mov ah,00
    int 16h

    mov ah,00h;---------------->limpia la pantalla
    mov al,03h
    int 10h

    mov dx,offset beta;-------->mensaje de salir
    mov ah,09
    int 21h


jmp inicio
;*****************************TRIA*****************************fin


 
;*****************************TRAP*****************************ini
trap:

         
    mov bh, 0010_0001b
    CALL   pintar

    mov dx, offset mensaje2
    mov ah,09h
    int 21h
    ;-------------------------->rellenado de variables
    call SCAN_NUM;------------->llama a la funcion scan_num qtoma el numero del teclado y lo guarda en ax
    mov valor1,cx;------------->carga el numero a la variable
    ;-------------------------->muestra el mensaje user para sentirme grande
    mov dx, offset mensaje3
    mov ah,09h
    int 21h
    ;-------------------------->rellenado de variables
    call SCAN_NUM
    mov valor2,cx

    mov dx, offset mensaje4
    mov ah,09h
    int 21h  
   
        call SCAN_NUM
    mov valor3,cx

    mov dx, offset texto_resp
    mov ah,09h
    int 21h
   
 

    mov ax,valor1;------------->mueve el valor de la variable a ax
    add ax,valor2
     
         
    mov bx,valor3;------------->mueve el siguiente valor al bx porque la multi solo permite un valor
    mul bx;-------------------->ax=ax*bx
         
             mov bx,2
    div bx;
   
       
    call PRINT_NUM

    mov ah,00
    int 16h

    mov ah,00h;---------------->limpia la pantalla
    mov al,03h
    int 10h

    mov dx,offset beta
    mov ah,09
    int 21h

jmp inicio
;*****************************TRAP*****************************fin



;*****************************SUMASS*****************************ini
;-------------------------->comienza el bloque de sumaplus
sumaplus:

mov bh, 0010_0001b
CALL   pintar

mov dx, offset texto_sum
mov ah,09h
int 21h
     
mov dx, offset esp
mov ah,09
int 21h
     
mov dx, offset texto_sumS
mov ah,09h
int 21h

mov dx, offset esp
mov ah,09
int 21h


mov ah,01h
int 21h


cmp al,'1'
je sumX

cmp al,'2'
je sumY
 
     


mov ah,00
int 16h

mov ah,00h
mov al,03h
int 10h

jmp inicio:
;--------------------->fin del sistema de sumaplus
;*****************************SUMAPLUS*****************************fin
       
       
;*****************************SUMA N1*****************************ini
sumX:
    mov bh, 0010_0001b
    CALL   pintar    
             
    mov dx, offset texto_sumN
    mov ah,09h
    int 21h
 
             
               
    call SCAN_NUM;------------->llama a la funcion scan_num q toma el numero del teclado y lo guarda en ax
    mov dx, offset texto_sumR1
    mov ah,09h
    int 21h
     
      mov bx,cx; bx=n
      mov ax,bx; ax=n
      add ax,1;  ax=n+1
      mul bx;-------------------->ax=ax*bx =n*(n+1)
      mov bx,2  ; bx=2
      div bx;-------------------->ax=ax/bx =  n*(n+1) /2
      call PRINT_NUM


mov ah,00
int 16h

mov ah,00h;---------------->limpia la pantalla
mov al,03h
int 10h

mov dx,offset beta
mov ah,09
int 21h

jmp sumaplus
;*****************************SUMA N1*****************************fin

;*****************************SUMA N2*****************************ini
sumY:
    mov bh, 0010_0001b
    CALL   pintar    
               
    mov dx, offset texto_sumN
    mov ah,09h
    int 21h
 
    call SCAN_NUM;------------->llama a la funcion scan_num q toma el numero del teclado y lo guarda en ax
   
    mov dx, offset texto_sumR2  ;imprime msg
    mov ah,09h
    int 21h    
   
    mov bx,cx;  bx=n
    mov ax,bx;  ax=n  
    add ax,1;   ax=n+1
    mul bx;     ax*bx =n*(n+1)   =ax

    call PRINT_NUM     ;imprim ax


mov ah,00    ;espera teclado
int 16h

mov ah,00h;---------------->limpia la pantalla
mov al,03h
int 10h

mov dx,offset beta
mov ah,09
int 21h

jmp sumaplus
;*****************************SUMA N2*****************************fin      
       
       
       
       
       
       
             
             
;==========================PINTADO===================================              
             
pintar PROC

mov ah,00;---------------->limpiar pantalla
mov al,03h
int 10h
    ;imprimir aqui  
   
    ;pintar fondo  
    mov ah, 6h ;funcion para scrollear la pantalla un numero de lineas
    mov al, 0h ;cero para borrar la pantalla
    ;mov bh, 0001_1110b ;fondo azul, color de texto amarillo escribe espacios en blanco en el fondo de la pantalla
    mov ch, 0 ;x inicial
    mov cl, 0 ;y inicial
    mov dh, 24 ;x final
    mov dl, 79 ;y final
    int 10h      
    RET                   ; return to caller.
   
pintar ENDP
;==========================PINTADO===================================





;*****************************FIN*****************************ini
fin:;---------------------->fin del programa
    mov dx, offset beta
    mov ah,09
    int 21h

    mov ah,00h
    mov al,03h
    int 10h

    mov ah,00;----pausa para salir
    int 16h

    ret
;*****************************FIN*****************************fin


;------------------------>
mensaje1 db 13,10,' Calcule el Area de sus figuras favoritas $'
user db 13,10,' UNIVERSIDAD NACIONAL SAN AGUSTIN$'
mensaje2 db 13,10,' Digite el primer lado $'
mensaje3 db 13,10,' Digite el segundo lado $'
mensaje4 db 13,10,' Digite el tercer lado $'      


m0 db 13,10,' <0> EXIT $'
m1 db 13,10,' <1> Rectangulo $'  
m2 db 13,10,' <2> Cuadrado $'
m3 db 13,10,' <3> Triangulo $'
m4 db 13,10,' <4> Trapecio $'
m5 db 13,10,' <5> Sumas $'

beta db 13,10,' Saliendo $'
;------------------------>variables
valor1 dw ?
valor2 dw ?
valor3 dw ?
;------------------------>textos de resultados
texto_resp db 13,10,'EL area es: $'

esp db ' ',10,13,'$'                      

;------------------------>textos de SUM  

texto_sumN db 13,10,'Ingrese n:$'
texto_sumR1 db 13,10,'n*(n+1)/2=$'
texto_sumR2 db 13,10,'n*(n+1)=$'
texto_sum db 13,10,'[1]   1+2+3+4...n$'
texto_sumS db 13,10,'[2]   2+4+6+8+...+2n$'