Programación General > ASM (Ensamblador)

[Código Fuente] Calculadora

(1/1)

garpillo:
[title]Calculadora[/title]

Soy estudiante de Ingenieria en sistemas y este fue uno de los primeros programas que me dejaron espero que a alguien le sirva y pueda ayudarle de algo.


La calculadora solo suma resta multiplica y divide numeros de una cifra.


Les pongo el codigo por que no pude subirlo
--- Código: ASM ---.model small.stack.data ini db \"ESCOJA LA OPERACION QUE QUIERE REALIZAR\"1013 1013 \'$\'suma db 1013 \"[1] Suma\" \'$\'rest db 1013 \"[2] Resta\" \'$\'mult db 1013 \"[3] Multiplicacion\" \'$\'divi db 1013 \"[4] Divisiones enteras\" 1013\'$\'selec db 1013 \">>>>>>>>>    \" \'$\'error db 1013 \"Elija un numero entre 1-4 \" \'$\'valor db 1013 \"Ingrese valor 1: \" \'$\'valor2 db 1013 \"Ingrese valor 2: \" \'$\'msg db 1013 \"El resultado es: \" \'$\'sor db 1013 \"Ingrese divisor \"\'$\'dendo db 1013 \"Ingrese dividendo \" \'$\'hecho db 1013 1013 \"REALIZADO POR: GONZALO TORRES \" \'$\'sele db \'0\'cap db \'0\'cap2 db \'0\'resul db \'0\'  .codemov ax @datamov ds ax men:;BORRAR PANTALLAmov ah 6         mov al 0         mov bh 07H       mov cx 0         ; Esquina superior izquierda (CH:filaCL columna)mov dx 24*256+79 ; Esquina inferior derecha (DH:filaDL:columna)int 10h           ;PONE AL CURSOR EN UNA COORDENADAmov ah 2         mov bh 0       ; Pagina de videomov dh 4       ; Filamov dl 0       ; Columna int 10h                ;IMPRESION DEL MENUmov ah 09hmov dx offset ini int 21hmov ah 09hmov dx offset sumaint 21hmov ah 09hmov dx offset restint 21hmov ah 09hmov dx offset multint 21hmov ah 09hmov dx offset diviint 21hmov ah 09hmov dx offset selecint 21h mov ah 01hint 21hmov sele alsub sele 48  ;COMPROBACION SI EL NUEMRO INGRESADO ESTA EN EL MENUsub al almov al 4mov bl selecmp bl al   jbe inicioja erro erro:mov ax seg errormov ds axmov ah 09hmov dx offset errorint 21hmov ah 01hint 21hmov sele al inicio:  ;COMPROBACION DE SI ES UNO sub al almov bl selemov al 1cmp bl alje sumja sigue    ;SUMAsum: sub ax ax ;VALOR 1mov ax seg valormov ds axmov ah 09hmov dx offset valorint 21hmov ah 01hint 21hmov cap alsub cap 48 ; VALOR 2mov ax seg valor2mov ds axmov ah 09hmov dx offset valor2int 21hmov ah 01hint 21hmov cap2 alsub cap2 48 ;SUMAMOSmov bl capadd bl cap2mov resul bl ;MENSAJEmov ax seg msgmov ds axmov ah 09hmov dx offset msgint 21h   ;IMPRIMIMOS RESULTADOmov ax 0mov al resuladd al 48mov ah 2mov dl alint 21h jmp fin  ;COMPROBACION DE SI ES DOSsigue:sub al almov bl selemov al 2cmp bl alje resja sigue2    ;RESTA res: sub ax ax;VALOR 1mov ax seg valormov ds axmov ah 09hmov dx offset valorint 21hmov ah 01hint 21hmov cap alsub cap 48 ;VALOR 2mov ax seg valor2mov ds axmov ah 09hmov dx offset valor2int 21hmov ah 01hint 21hmov cap2 alsub cap2 48 ;restamosmov bl capsub bl cap2mov resul bl ;MENSAJEmov ax seg msgmov ds axmov ah 09hmov dx offset msgint 21h ;IMPRIMIMOS RESULTADOmov ax 0mov al resuladd al 48mov ah 2mov dl alint 21h jmp fin   ;COMPROBACION DE SI ES TRESsigue2:sub al almov al 3cmp bl alje multtja sigue3    ;MULTIPLICACIONmultt: sub ax ax mov ax seg valormov ds axmov ah 09hmov dx offset valorint 21hmov ah 01hint 21hmov cap alsub cap 48 ; VALOR 2mov ax seg valor2mov ds axmov ah 09hmov dx offset valor2int 21hmov ah 01hint 21hmov cap2 alsub cap2 48 ;multimplicamosmov al capsub al 1mov cl almov bl cap2uno: add bl cap2loop unomov resul bl ;MENSAJEmov ax seg msgmov ds axmov ah 09hmov dx offset msgint 21h   ;IMPRIMIMOS RESULTADOmov ax 0mov al resuladd al 48mov ah 2mov dl alint 21h jmp fin   ;COMPROBACION DE SI ES CUATRO sigue3:sub al almov al 4cmp bl alje dis     ;DIVISIONdis: sub ax ax;VALOR 1mov ax seg dendomov ds axmov ah 09hmov dx offset dendoint 21hmov ah 01hint 21hmov cap alsub cap 48 ;VALOR 2mov ax seg sormov ds axmov ah 09hmov dx offset sorint 21hmov ah 01hint 21hmov cap2 alsub cap2 48 ;dividimosmov al cap2mov bl capdiv blmov resul ah  ;MENSAJEmov ax seg msgmov ds axmov ah 09hmov dx offset msgint 21h ;IMPRIMIMOS RESULTADOmov ax 0mov al resuladd al 48mov ah 2mov dl alint 21h fin:mov ah 09hmov dx offset hechoint 21hmov ah 4chint 21hend             
Autor: Gonzalo Torres

floridelma:
realmente no me funciona me marca muchos errores necesito saber si esta completo o tiene cosas que deben de ir? porfa es mi examen final de arqutectura y es para maña..ayudame plis...

Navegación

[0] Índice de Mensajes