Loop video

org 100h
.stack 64
.data
.code
inicio:
mov cx,10 ;cantidad de veces que repetira
mov al,'>' ;caracter inicial
 
Lee_car:
    mov ah,0eh ;Funcion para imprimir caracter
    int 10h   ;llama a la bios
     
    mov ah,00 ;funcion de espera de un caracter del teclado
    int 16h ;llama al bios
    cmp al,'S' ;compara el caracter con 'S'
    loope Lee_car  ;si es igual salta a otro
     
    mov ah,0eh ;funcion para imprimir caracter
    int 10h ;llamada al bios
     
    ;colocar el fin de la linea para que baje una linea y lo imprima
    mov ah,0eh ;funcion del bios para imprimir caracter
    mov al,10
    int 10h
     
    ;colocar el retorno de carro para ir al inicio
    mov al,13
    int 10h
    ;prepara la salida del programa
    mov ax,4c00h
    int 21h
end inicio




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

Ejemplos de la libreria emu8086.inc

Imagen
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, "/...
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