Ejemplos de la libreria emu8086.inc


Ejemplo 1

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
  
mov si, 0
mov al, 0
;Convertir primera cadena a numero
 cadAnum:
cmp cad1[si], "$"
 jz seguir
 mov bl, 10
 mul bl
sub cad1[si], '0'
 add al, cad1[si]
 inc si ;realiza un incremento
loop cadAnum ;
seguir:
mov aux1, al
;Convertir segunda cadena a numero
mov si, 0
mov al, 0
cadAnum2:
cmp cad3[si], "$"
 jz seguir2 ;Saltar si el resultado es cero
 mov bl, 10
 mul bl
sub cad3[si], '0'
 add al, cad3[si]
 inc si
loop cadAnum2
seguir2:
mov bl, al
mov al, aux1
;realizar operaciones normalmente teniendo ya los dos numeros decimales
cmp cad2, "-"
jz resta
cmp cad2, "+"
jz suma
cmp cad2, "*"
jz multi
cmp cad2, "/"
jz divi
resta:
sub al, bl
jmp fin
suma:
add al, bl
jmp fin
multi:
mul bl
jmp fin
divi:
div bl
jmp fin
fin:
mov bx, ax
mov ah,09
lea dx,msg
int 21h
mov ax, bx
call PRINT_NUM
ret   
cad1 db "20$"
cad2 db "-"
cad3 db "2$"
aux1 db ?
aux2 dw ?
msg dw "El resultado es: $"






Ejemplo 2

include 'emu8086.inc'
ORG    100h
LEA    SI, msg1       ; pregunta por el numero
CALL   print_string   ;
CALL   scan_num       ; guarda el numero en CX
MOV    AX, CX         ; Copia el numero a AX
; Imprime la siguiente cadena
CALL   pthis
DB  13, 10, 'El numero ingresado: ', 0
CALL   print_num      ; Imprime el numero en AX
RET                  
msg1   DB  'Usted no ingreso: ', 0
DEFINE_SCAN_NUM
DEFINE_PRINT_STRING
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS 
DEFINE_PTHIS
END                



Comentarios

Publicar un comentario

Entradas populares de este blog

Letras de colores con emu8086 Alex

Imagen
include 'emu8086.inc' CUADRO MACRO XI,YI,XF,YF,COLOR MOV AX, 0600H ; MOV BH, COLOR ; COLOR DE FONDO Y LETRA MOV BL, 00H MOV CH, YI ; Y INICIAL MOV CL, XI ; X INICIAL MOV DH, YF ; Y FINAL MOV DL, XF ; X FINAL INT 10h endM POSICION MACRO X,Y ; **** POSICIONA EL CURSOR ******** MOV DH, Y ; POSICI[ON EN Y MOV DL, X ; POSICI[ON EN X MOV AH, 02 MOV BH, 00 INT 10H                        ENDM                 DESPLEGAR MACRO MENSAJE MOV AH,09 ;****** MUESTRA MENSAJE ******* MOV DX,OFFSET MENSAJE INT 21h ENDM DATOS SEGMENT ;SEGMENTO DE DATOS M1 DB "A",'$' M2 DB "B",'$' M3 DB "C",'$' ;M4 DB "N",'$' datos ends cincocuadros macro cuadro 1,1,20,5,71 posicion 10,3 desplegar M1 cuadro 21,1,40,5,22 posicion 30,3 desplegar M2 cuadro 41,1,60,5,33 posicion 50,3 desplegar M3 ;cuadro 61,1,78,5,54 ;posicion 70,3 ;desplegar M4 endM CODIGO SEGMENT ASSUME CS...
Leer más

Programa de numeros decimales y hexadecimales (Mejora)

Imagen
include 'emu8086.inc'   Mostrar Macro Mensaje      LEA DX,Mensaje ;mandamos el mensaje a leer      MOV AH, 9 ;usamos el servicio para mostrar en pantalla      INT 21H endM         Terminar Macro      MOV AX, 4C00H      INT 21H endM   DATOS SEGMENT      ENCABEZADO DB 13 , 10 , 13 , 09h , 09h , "==============================="      DB 13 , 10 , 13 , 09h , 09h , "PROGRAMA QUE IMPRIME VALORES NUMERICOS DEC Y HEXA "      DB 13 , 10 , 13 , 09h , 09h , "================================" , 13 , 10 , "$"        ALINEAR DB 13 , 10 , 13 , 09h , 09h      VALOR_1 DW 41D , "$"      VALOR_2 DW 42D , "$"      VALOR_3 DW 43D , "$"      VALOR_4 DW 44D , ...
Leer más