Calculadora que suma, resta, divide, multiplica y potencia.

include andres.h
INCLUDE ISC.H
RC   EQU 10
LONG EQU 10

.MODEL SMALL
.STACK
.DATA

 msg10 db “Menu… Escoja una opcion.”,”$”
 msg11 db “a) Adicion”,”$”
 msg12 db “b) Sustraccion”,”$”
 msg13 db “c) Multiplicacion”,”$”
 msg14 db “d) Divicion”,”$”
 msg15 db “e) Potencia”,”$”
 msg50 db “s) Salir”,”$”
 msg60 db “v) Volver a realizar operacion con nuevos numeros.”,”$”
 msg16 db “Opcion: “,”$”
 msg17 db “Primer cifra: “,”$”
 msg18 db “Segunda cifra: “,”$”
 msg100 db “Resultado: “,”$”
 opcion db 1 dup (” “)

 error1 db “Opcion no valida vuelve a elegir opcion.”,”$”
 error2 db “Debe elegir solo digitos (0,…,9).”,”$”
 error3 db “Debe presionar enter.”,”$”

 MSJ1 DB “ESCRIBE EL PRIMER  NUMERO : “,”$” 
 MSJ2 DB “ESCRIBE EL SEGUNDO NUMERO : “,”$”
 NUM1 DB 10 DUP (0)
 NUM2 DB 10 DUP (0)
 NUM1AUX DB 10 DUP (0)
 NUM2AUX DB 10 DUP (0)
 CONTROL1 DB 0
 CONTROL2 DB 0
 residuo dw 0
 CUCO1  DW 0
 CUCO2  DW 0
 DIEZ   DW 1
 DIEZ1  DW 1
 NUM1BIN DW 10 dup (0)
 NUM2BIN DW 10 dup (0)
 SUMABIN DW 10 dup (0)
 RESULTSUM DB 10 DUP(‘ ‘)
.CODE
;——————————————————————-
;——————————————————————-
proc muestraMenu far
 fondo 

 ir 7,10
 vermsg msg10

 prin:
  ir 9,10
  vermsg msg11
  ir 10,10
  vermsg msg12
  ir 11,10
  vermsg msg13
  ir 12,10
  vermsg msg14
  ir 13,10
  vermsg msg15
  ir 15,10
  vermsg msg16

  capcharv

  mov opcion,al
 
  cmp al,97
  je cap
  cmp al,98
  je cap
  cmp al,99
  je cap
  cmp al,100
  je cap
  cmp al,101
  je cap
  
 er1: 
  fondo
  ir 4,20
  vermsg error1
  jmp prin
 cap:
 ret
endp
;—————————-NUMERO 1——————————- 
;——————————————————————-
;——————————————————————-
numerouno proc far
 IRXY 8,10
 VERMSJ MSJ1

 MOV BX,0
CICLO1: 
 PONERCAR 8
SIGUE1:
 CAPCAR
        ;——————–VALIDACION——–
 CMP AL,13
 JE ORDENAR
 CMP AL,30H
  JL CICLO1
  CMP AL,39H
  JA CICLO1
 ;———–VALIDACION SUPERADA Y GUARDANDO———
 MOV NUM1AUX[BX],AL
 INC BX 
 INC CONTROL1
 INC CUCO1
 CMP CONTROL1,10
 JNE SIGUE1
 ;—————-ORDENANDO——
ORDENAR:
 MOV AX,CUCO1
 MOV BX,LONG
 SUB BX,AX 

 MOV SI,0 
CICLO2:  
 MOV CL,NUM1AUX[SI]
 MOV NUM1[BX],CL
 INC SI
 INC BX
 CMP BX,10
 JNE CICLO2
 
 ret
endp
;—————————-NUMERO 2——————————- 
numerodos proc far

 IRXY 9,10
 VERMSJ MSJ2

 MOV BX,0
CICLO3: 
 PONERCAR 8
SIGUE2:
 CAPCAR
        ;——————–VALIDACION——–
 CMP AL,13
 JE ORDENAR1
 CMP AL,30H
  JL CICLO3
  CMP AL,39H
  JA CICLO3
 ;———–VALIDACION SUPERADA Y GUARDANDO———
 MOV NUM2AUX[BX],AL
 INC BX 
 INC CONTROL2
 INC CUCO2
 CMP CONTROL2,10
 JNE SIGUE2
 ;—————-ORDENANDO——
ORDENAR1:
 MOV AX,CUCO2
 MOV BX,LONG
 SUB BX,AX
 
 MOV SI,0 
CICLO4:  
 MOV CL,NUM2AUX[SI]
 MOV NUM2[BX],CL
 INC SI
 INC BX
 CMP BX,10
 JNE CICLO4 

 ret
endp
 ;————–MOSTRAR CAPTURA——————-
;——————————————————
;——————————————————

QUITARCERO PROC FAR

 MOV BX,0 
CICLO5:
 MOV AL,NUM1[BX]
 AND AL,00001111B
 MOV NUM1[BX],AL
 MOV CL,NUM2[BX]
 AND CL,00001111B
 MOV NUM2[BX],CL
 INC BX
 CMP BX,10
 JNE CICLO5
 RET
ENDP
;—————————————————–
;——————————————————
convert1 proc far
 MOV AX,0
 MOV BX,10
 MOV CX,10
 LEA SI,NUM1+9
MARCA:
 MOV AL,[SI]
 AND AX,000FH
 MUL DIEZ
 ADD NUM1BIN,AX
 MOV AX,DIEZ
 MUL BX
 MOV DIEZ,AX
 DEC SI
 LOOP MARCA
 RET
ENDP
;——————————————————
convert2 proc far
 MOV AX,0
 MOV BX,10
 MOV CX,10
 LEA SI,NUM2+9
MARCA1:
 MOV AL,[SI]
 AND AX,000FH
 MUL DIEZ1
 ADD NUM2BIN,AX
 MOV AX,DIEZ1
 MUL BX
 MOV DIEZ1,AX
 DEC SI
 LOOP MARCA1
 RET
ENDP
;——————————————————

SUMA MACRO a,b,total
 PUSH   AX
 MOV    AX,a
 ADD    AX,b
 MOV    total,AX
 POP    AX
 ENDM
;——————————————————
RESTA MACRO a,b,total
 PUSH   AX
 MOV    AX,a
 SUB    AX,b
 MOV    total,AX
 POP    AX
 ENDM
;——————————————————
convbinascii proc far

 MOV CX, 0010
 LEA SI, RESULTSUM+9
 MOV AX, SUMABIN

CICLO6:
 CMP AX,CX
 JB  CICLO7
 XOR DX,DX
 DIV CX
 OR DL,30H
 MOV [SI],DL
 DEC SI
 JMP CICLO6

CICLO7:
 OR AL,30H
 MOV [SI],AL
; mov resultsum,[si]
 ret
endp
;——————————————————
;——————————————————
multi proc far
 MOV Ax,num1bin
 MUL num2bin
 MOV sumabin,ax
 RET
endp
;——————————————————
;——————————————————
divide proc far
 mov ax,num1bin
 mov residuo,ax
 mov bx,num2bin
 mov si,0
ciclo35:
 cmp residuo,bx
 jb termina1
 PUSH   AX
 MOV    AX,residuo
 SUB    AX,num2bin
 MOV    residuo,AX
 inc si
 POP    AX
 jmp ciclo35
termina1:
 mov  sumabin,si
 ret
endp
;——————————————————
;——————————————————
potencia proc far
 mov  ax,0001h
 mov  sumabin,ax
 mov  di,0
ciclo40:
 cmp  di,num2bin
 je  termina2
 MOV  Ax,num1bin
 MUL  sumabin
 MOV  sumabin,ax
 inc  di
 jmp ciclo40
termina2:
 RET
endp
;——————————————————
;——————————————————
proceso1 proc far

 cmp opcion,97
 je adicion
 cmp opcion,98
 je sustraccion
 cmp opcion,99
 je multiplicacion
 cmp opcion,100
 je division
 cmp opcion,101
 je elevar

adicion:
 suma num1bin,num2bin,sumabin
 jmp hecho

sustraccion:
 resta num1bin,num2bin,sumabin
 jmp hecho

multiplicacion:
 call multi
 jmp hecho

division:
 call divide
 jmp hecho

elevar:
 call potencia
 jmp hecho

hecho:

ret
endp
;——————————————————
;——————————————————
proceso2 proc far

CALL CONVBINASCII

 IRXY 11,10
 vermsg msg100
 MOSTRARCAPTURA 10,resultsum

 ir  22,10
 vermsg msg50
 ir 23,10
 vermsg msg60

 ir 15,10
 capcharv
 mov opcion,al
ret
endp
;——————————————————
;——————————————————
limpiar proc far
 mov di,0
cic:
 mov  sumabin[di],0
 mov resultsum[di],0
 inc di
 cmp di,10
 jne cic
ret
endp
;——————————————————
;——————————————————
;—————————————————
INICIO
comien:
 call muestraMenu

 cmp opcion,115
 je saldeaqui

 PANTALLA AZULBLANCO
 CALL NUMEROUNO
 CALL NUMERODOS
 CALL CONVERT1
 CALL CONVERT2

regresa:

 call proceso1 

 call proceso2

 cmp  opcion,118
 je comien
 cmp  opcion,115
 jne regresa 

 IRXY 24,10
saldeaqui:
FIN

About these ads