Ejemplos de impresion de caracteres

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

.model small .stack 64   .data mensaje db "Ingrese el numero de veces que se repetira el mensaje (1-9)",13,10,'$' repetir db 13,10,"Repitiendo el ciclo $"   .code inicio proc far           mov ax,@data     mov ds,ax           mov ah,09     lea dx,mensaje     int 21h           mov ah,01     int 21h     ;convierte a valor lo que se teclea     sub al,30h        mov cl,al           ciclo:      mov ah,09      lea dx,repetir      int 21h     loop ciclo     ;se cierra el programa con esas lineas     mov ax,4c00h   inicio endp end 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 .model small .stack 64 .data     n1 db 0     n2 db 0     suma db 0     msg1 db "dame el primer valor:$"     msg2 db 10,13,"dame el segundo valor:$"     msg3 db 10,13,"Suma=$"    .code  begin proc far     ;direccionar al segmento de datos     mov ax,@data     mov ds,ax           ;solicita el primer dato     mov ah,09     lea dx,msg1     int 21h     ;se lee el primer valor     mov ah,01 ;servicio 01 para leer and save in al     int 21h     sub al,30h ;convierte al caracter en numero     mov n1,al           ;solicita el otro valor     mov ah,09     lea dx,msg2     int 21h     ;lee el segundo valor     mov ah,01     int 21h     sub al,30h ;convierte el caracter a num     mov n2,al     ;operacion     mov al,n1     add al,n2     add al,30h ;convierte a caracter     mov suma,al     mov ah,09     lea dx,msg3     int 21h           ;imprime el caracter con el servicio     ;02 de la int 21h           mov ah,02     mov dl,suma ;se debe enviar a dl para imprimir     int 21h     ;instrucciones para cerrar el programa     mov ah,4ch     int 21h     begin endp  end