MacroLoop

imprime macro numero  ;Nuestra macro se llama imprimir, nuestro parámetro es numero
  mov ah,02h
  mov dl,numero  ;Indica que mueva al registro DL lo que pasamos como parámetro.
  add dl,30h  ;suma 30h para imprimir el número real.
  int 21h
endm

.model small
.stack 64
.data
  num db 0  ;declaramos nuestra variable.
.code
  mov cx,9
inicio:
  mov num,cl
  imprime num ;Llamamos al macro con el valor de nuestra variable.
loop inicio ;repite ciclo

  mov ah,04ch ;Finaliza el programa.
  int 21h
end

menu

pila segment stack "stack" ;segmento de pila
    db 100h dup (?) ;a partir de la direccion de 100 de la pila
pila ends

datos segment
    titulo db 13,10," Menu de opciones ",13,10 ,"$"
    mensaje db 13,10,"Presionar 1 color Cyan,letras negras",13,10, "$"
    mensaje2 db 13,10,"Presionar 2 color rojo,letras azules",13,10,"$"
    mensaje3 db 13,10,"presionar cualquier tecla para salir",13,10,"$"
    mensaje4 db 13,10,"Hola mundo en Negro",13,10,"$"
    mensaje5 db 13,10,"Hola mundo en azul",13,10,"$"
   
datos ends

codigo segment ;segmento de codigo
assume cs:codigo, ss:pila, ds:datos

  inicio:
           ;...........................................preparar pantalla
           mov ah,0
               mov al,3h ;modo texto
               int 10h ;interrupcion de video 
             
               mov ax,0600h ;limpiar pantalla
               mov bh,5fh ;0 color de fondo negro, f color de letra blanco
               mov cx,0000h
               mov dx,784fh
               int 10h
             
               mov ah,02h       
               mov bh,00       
               mov dh,00       
               mov dl,00
               int 10h
             
               ;..............................................mostrar mensajes
           mov ax,datos
           mov ds,ax
             
           lea dx,titulo
           mov ah,9h
           int 21h
             
           lea dx,mensaje
           mov ah,9h
           int 21h
         
           lea dx,mensaje2
           mov ah,9h
           int 21h
         
           lea dx,mensaje3
           mov ah,9h
           int 21h
         
            ;.........................................captura de teclas
                mov ah,08 ;pausa y captura de datos 05 espera que el usuario presione una tecla
                int 21h
               
                cmp al,49 ;ascii 49= numero1
                je llamarAzul ;salto condicional jump equals opcion 1 saltar si es igual ala opcion 1
               
                cmp al,50 ;ascii 50= numero 2 compara lo que tiene el registro ah con el ascii 50 en el reg ah
                je llamarMorado
               
                jmp fin  ;si no escoge ni enter ni 2, sale del programa
               
         fin:  ;saca el mensaje por pantalla
       
              mov ax,4c00h
              int 21h
             
              llamarAzul:
    CALL AZULPROC
llamarMorado:
    CALL MORADOPROC
;........................................................................
AZULPROC PROC NEAR
   
mov ah,0
              mov al,3h ;modo texto
              int 10h  ;interrupcion de video
             
              mov ax,0600h ;limpiar pantalla
              mov bh,30h ;0 color de fondo negro, f color de letra blanco
              mov cx,0000h
              mov dx,184fh
              int 10h
             
              mov ah,02h
              mov bh,00
              mov dh,00
              mov dl,00
              int 10h 
             
         
             
;;;;;;//////////////
              mov ah,06h   
              mov bh,1fh     
              mov cx,0000h
              mov dx,184fh   
              int 10h 
             
               ;mensaje
           mov ax,datos
           mov ds,ax
             
           lea dx,mensaje4
           mov ah,9h
           int 21h
 
 
 
              mov ax,4c00h
              int 21h
             
RET

AZULPROC ENDP

;----------------------------------
MORADOPROC PROC NEAR
           mov ah,06h   
           mov bh,41h     
           mov cx,0000h   
           mov dx,184fh   
           int 10h
         
           ;mensaje
           mov ax,datos
           mov ds,ax
             
           lea dx,mensaje5
           mov ah,9h
           int 21h   
         
           mov ax,4c00h   
           int 21h
         
           
RET

MORADOPROC ENDP

codigo ends
end inicio

ciclo

.model small
.stack 64
.data  ;en data se declaran variables y cadenas a usar en el programa
mensaje db 0ah, 0dh,"Letrero cinco veces","$" ;declaramos una cadena
.code
inicio:
     mov cx,10 ;numero de veces a repetir el ciclo
veces:
     mov ax,@data
     mov ds,ax
     mov dx,offset mensaje ;lee la cadena desde nuestro segmento de datos
     mov ah,09h
   int 21h
loop veces ;se repite desde nuestra etiqueta ciclo

   mov ah,04ch ;Al terminar finaliza el programa
   int 21h
   end inicio

registro CF

;desbordamiento del registro CF con suma
ORG 100h

;mov al,254
;mov bl,1
;add al,bl

; desbordamiento del registro CF con multiplicacion
mov al,254
mov bl,2
mul al
ret

;desbordamiento del registro CF con division
;mov al,254
;mov bl,2
;div bl
;ret

Loop Potencia

org 100h



.model small

.stack 64

.data



mensaje db 10,13 ,"Dame un numero",10,13,"$"

mensaje2 db 10,13 ,"Dame un la potencia",10,13,"$"

n1 db 0

n2 db 0

n3 db 0

.code



inicio:     ;funcion inicio



 mov ax,@data ;Movemos el segmento data a ax

 mov ds,ax ; Movemos lo que esta en ax a ds

 mov dx,offset mensaje ;Imprimimos el primer mensaje parte 1

 mov ah, 09h ;Imprimimos el primer mensaje parte 2

 int 21h ;Imprimimos el primer mensaje parte 3



 mov ah,01     ;pausa y espera a que el usuario presione una tecla

 int 21h        ;interrupción para capturar

 sub al,30h   ;lo que el usuario presiono se guarda en al y se le resta 30h para convertirlo a un numero

 mov n1,al ;Movemos lo que esta en al a la variable n1

 mov n3,al  ;Movemos lo que esta en al a la variable n3



 mov ah, 09h ;imprimimos el mensaje 2 parte 1

 mov dx,offset mensaje2  ;imprimimos el mensaje 2 parte 2

 int 21h  ;imprimimos el mensaje 2 parte 3

 mov ah,01     ;pausa y espera a que el usuario presione una tecla

 int 21h           ;interrupcion para capturar

 sub al,30h     ;lo que el usuario presiono se guarda en al y se le resta 30h para convertirlo a un numero

 mov n2,al     ;Guardamos lo que el usuario preciono el n2





 mov cl,al ; movemos lo que esta en al a cl para decirle al ciclo cuantas vueltas va a dar

 sub cl,1 ;le restamos 1 para que no de una vuelta de mas





call ciclo ;llamada a ciclo



ciclo:  ;Funcion

 call ciclo1 ;llamada el procediemto 1



ciclo1 proc near : ;procedimiento ciclo

  mov al,n1 ;potencia parte 1

  mov bh,n3 ;potencia parte 2

  mul bh ;potencia parte 3



  mov n1,al



  loop ciclo1 ;loop a la funcion ciclo





  mov ax,4c00h ;fin parte 1

  int 21h; fin parte 2



fin: ;funcion fin

 mov ax,4c00h      ;funcion que termina el programa

 int 21h

end inicio

loop seleccionar mensaje

pila segment stack 'stack'

    db 100h dup (?)

pila ends

datos segment             ;texto e instrucciones.

 av db 13,10,' Presione 1 o 2 ',13,10,'$'

    msj db 13,10,' Lenguaje ensamblador ',13,10,'$'

    m db 13,10,' Lenguaje de Interfaz ',13,10,'$'

datos ends

codigo segment ;segmento de codigo

    assume cs:codigo, ss:pila, ds:datos

    inicio:

  

        mov ax, datos

        mov ds, ax

      

        lea dx,av

        mov ah,9h

        int 21h

      

        mov ah,08   ;pausa y captura datos 08 espera que el usuario presione una tecla

        int 21h

      

        cmp al,49      ;verifica si presiono 1

        je pOpcion

        cmp al,50      ;verifica si presiono 2

        je sOpcion    

      

         jmp fin           ;finaliza en caso de no recibir respuesta de enter o 2

    fin:  

       mov ax,4c00h

       int 21h

                        

    pOpcion:

        CALL PO

      

    sOpcion:

        CALL SO

      

    PO PROC NEAR

        mov ah, 9h

        lea dx, msj

        mov cx, 12

  print_LOOP:

          int 21h

          loop print_LOOP

          mov ax,4c00h

          int 21h

          RET

    PO ENDP

  SO PROC NEAR

        mov ah, 9h

       lea dx, m

       mov cx, 12

  pLOOP:

       int 21h

       loop pLOOP   

       mov ax,4c00h

       int 21h                             

       RET

   SO ENDP

codigo ends

end inicio

lOOPZ

; uso del LOOPZ, REPETICION BASADA EN
;COMPARACION SI ES IGUAL A 0

; INTERRUPCION PARA LEER DEL TECLADO ES LA INT16H

; CUANDO USAMOS LA INT16H , EL PARAMETROA USAR ES AH = 0
; Y EL CARACTER LEIDO QUEDARA EN AL= CARACTER LEIDO


.model small
.stack 64

.data         
;mensaje1 db "instrucciones de repeticion

.code 


inicio:

   
    mov al,'>' ; caracter inicial
    mov cx,10 ;numero de veces a repetir el ciclo
leer_car:
   
     mov ah,0EH ;FUNCION PARA IMPRIMIR EL CARACTER AL
     int 10h    ;llama al BIOS
   
     mov ah,08     ;pausa y espera a que el usuario precione una tecla
     int 21h ;interrupcion para capturar

     
     cmp al,'S'; el caracter leeido la int 16h lo guarda en al
   
loopz leer_car ;toma en cuenta la comparacion del cmp si se cumple continua

 
    ; coloco el fin de la linea para que baje una linea y lo baje
    mov ah,0EH ; FUNCION DEL BIOS PARA IMPRIMIR CARACTER
    mov al,10
    int 10h
 
    MOV AL,13
    INT 10H
 
 
 
  mov ah,04ch ;Al terminar finaliza el programa.
  int 21h
 end inicio

mensaje con loop

.model small
.stack 64

.data
mensaje db "Ingresa 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
    sub al, 30h
   
    mov cl, al
   
    ciclo:
        mov ah, 09
        lea dx, repetir
        int 21h
    loop ciclo

    mov ax,4c00h
    int 21h
inicio endp
end

colores

BIOS EQU 10H
DOS EQU 21H
FIN EQU 4C00H

.DATA
    TITULO DB 'Princess Moon '
    COLORES DB 5BH
    DB 5FH
    DB 5BH
    DB 5FH
    DB 5BH
    DB 5BH
    DB 0F0H
    DB 00H
    DB 09CH
    DB 09FH
    DB 09CH
    DB 09FH
    DB 09CH
    DB 00H
    ;DB 0CH
   
.CODE
    INICIO PROC NEAR:
    MOV AX, @DATA
    MOV DS, AX
    ;Esta parte de aqui no es necesaria
    INT BIOS
   
    MOV CX, 15
       
        BUCLE:
            ;Ponemos esto para no agarrar basura
            MOV DX,SI
            ADD DX,35 ;columna
            MOV DH, 12 ;renglon
            CALL COLOCA
            MOV AL, [SI+OFFSET TITULO]
            MOV BL, [SI+OFFSET COLORES]
            CALL COLOR
            INC SI
        LOOPNZ BUCLE
       
        MOV AH, 0
        INT DOS
        CALL COLOCA
        MOV AX, FIN
        INT DOS
   
    COLOR PROC
    MOV AH, 9
    INT BIOS
    RET
        
    COLOCA PROC
    MOV AH,2
    INT BIOS
    RET

END INICIO