include 'emu8086.inc'
org 100h

mov AX,5
jmp etiqueta1
  printn 'nada de esto se va a imprimir'
  printn 'porque el jmp hace que el programa salta'
  printn 'a lo que esta despues te etiqueta1'
  mov ax,10
etiqueta1:
  printn 'AX sigue valiendo 5 porque nunca se cumplio el segundo mov'
ret

include 'emu8086.inc'
org 100h

mov cx,5 

 repetir:    
 printn 'debo hacer la tarea'  
 loop repetir   

ret

include 'emu8086.inc'
ejercicio5 macro esqsup,esqinf, col
    mov ax,0600h
    mov cx, esqsup
    mov dx, esqinf
    mov bh, col
    int 10h   
    endm                                                       

org 100h
 
 ejercicio5 1100h, 184fh, 020h
 ejercicio5 0000h, 074fh, 040h
 ejercicio5 0800h, 104fh, 0e0h

ret

include 'emu8086.inc'
org 100h     
 ; utilizaremos un loop para imprimir 5 veces nuestro procedimiento
 mov cx,5  ;movemos el valor 5 a cx para que el loop se repita 5 veces 
 repetir: 
 call programita ; llamamos a nuestro procedimiento
  loop repetir         
ret             
programita proc; creamos un procedimiento llamado programita 
    mov ax,2 ; movemos a ax el valor de 2
    call pthis ;  
    db 13,10,'mensaje',0 ; imprimimos la cadena 'mensaje' 
    ret 
    programita endp ; terminamos el procedimiento con endp

DEFINE_PTHIS
DEFINE_PRINT_STRING
DEFINE_SCAN_NUM
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS    
END 

;imprimir una lista de n valores mediante procedimientos
include 'emu8086.inc'
org 100h  
; DEFINIMOS VARIABLES 
mov bx,0
print 'ejercicio 2'
printn ''
print 'ingrese el tamaño de la lista: '
call scan_num ;el se guarda en cx
printn ''        

suma:  
 call ejercicio2 
 printn '' 
 loop suma       
ret

 ejercicio2 proc 
    mov ax,lista[bx]
	print '['
    call print_num
    print ']'
    add bx,2     
    ret  
    ejercicio2 endp  
 
DEFINE_PTHIS
DEFINE_PRINT_STRING
DEFINE_SCAN_NUM
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS
lista dw 8,1,2,5,4
END 

include 'emu8086.inc'
org 100h  
mov bx,0
print 'ejercicio 3'
printn ''
call ejercicio3
ret
 ejercicio3 proc 
 mov cx,5;definir tamaño de la lista
    
    recorrer:
        mov ax,lista[bx]
        ;call print_num
        ;printn ''
        cmp ax,mayor
        jg cambiar 
        jmp continuar
            cambiar:
               mov mayor,ax
            continuar:
            
            add bx,2 
    loop recorrer

    mov ax,mayor
    print 'el numero mayor de la lista es: '
    call print_num

    ret  
    ejercicio3 endp  
lista dw 3,1,2,5,4 
mayor dw 0 
DEFINE_PTHIS
DEFINE_PRINT_STRING
DEFINE_SCAN_NUM
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS

END 

include 'emu8086.inc'
org 100h  
mov bx,0  

print 'ejercicio 4'
printn ''
print 'ingrese un numero a buscar en el vector '
call scan_num
printn ''
 call ejercicio4
 fin:
  
ret  
 ejercicio4 proc  
  mov acomparar,cx 
  mov cx,5
  recorrer:    
  mov ax,lista[bx]
  call print_num 
  print ' '
  add bx,2
  cmp ax,acomparar
  je esIgual
  
 loop recorrer
  printn ''
  printn ' el numero no esta en la lista'
  jmp fin
    ejercicio4 endp   
    
  esIgual proc
    lea si,mensaje1
    printn ''
    call print_string
    ret    
    jmp fin
    esIgual endp
 
   
lista dw 3,1,2,5,4 
acomparar dw 0 
DEFINE_PTHIS
DEFINE_PRINT_STRING
DEFINE_SCAN_NUM
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS
mensaje1 db 13,10,' el valor buscado esta en el vector '
 
END 

include emu8086.inc  ; declaramos la libreria
org 100h           

PRINT 'oh mae ya mo shindeiru'; podemos utilizar print para imprimir una cadena
gotoxy 10,5 ; nos vamos a la direccion 10 en x, 5 en y
putc 65 ; imprimimos el caracter 65 en ascii que es el caracter A
gotoxy 10,6
putc 'B' ; imprimimos B

include 'emu8086.inc'
org 100h   
  print 'ejercicio 1'
  ;recoger primer numero 
  printn ''
  lea si, msg1 
  call print_string
  call scan_num
  mov ax,cx
  ; imprime las siguientes palabras
  ;call pthis
  ;db 13,10,'el numero que ingresaste es: ',0
  ;call print_num
  mov bx,ax
  
  ;recoger el segundo numero 
  lea si,msg2
  printn ''
  call print_string
   
  push ax
  lea si, msg1
  call scan_num
  mov ax,cx
  
  ;call pthis
  ;db 13,10,'el numero que ingresaste es: ',0
  ;call print_num
  mov bx,ax
  pop ax
  add ax,bx 
  ; imprime la suma de los dos numeros guardada en ax  
  call pthis
  db 13,10,'la suma total es : ',0
  call print_num
          
ret             
msg1 db 'ingresa el primer numero: ',0
msg2 db 'ingresa el segundo numero: ',0
DEFINE_SCAN_NUM
DEFINE_PRINT_STRING
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS
DEFINE_PTHIS
  
END 

; si queremos modificar la direccion de pantalla es B800 contiene 2 bytes
; B800; 2 bytes (Caracter,Color)
org 100h
 mov ax,0b800h; direccionando a memoria de pantalla 0b800h 
 mov es,ax; ponemos al segmento extra para poder acceder 
 mov es:[0],65; imprimimos el caracter A su valor en codigo ascii es 65 en la memoria de pantalla
ret

org 100h      
 mov bx,0
 mov cx,3 ; repetiremos 3 veces a-> 
                              ; <-a 
                              
 mov ax,0b800h; memoria de pantalla  
 
   
   ciclo:  ; este es el ciclo global que imprimira ambas lineas 
   
   push cx   
   mov bx,contadord
   mov cx,80; son 80 caracteres por linea que debemos imprimir lo guardamos en cx para repetir 80 veces
   imprimirder:  ; ciclo que imprime a la derecha  
   mov es,ax; movemos al segmento extra
   mov es:[bx],65; imprimimos a en el indice 0 
   ;mov es:[bx+320],65    
   ;mov es:[bx+640],65
   add bx,2         
   loop imprimirder 
   
   add contadord,320
   pop cx
   push bx
   push cx  
   mov bx,contadori
   mov cx,80   
   
   imprimirizq: ; ciclo que imprime a la izquiera
   mov es:[bx],65
   sub bx,2    
   loop imprimirizq
   
   add contadori,320    
   pop cx
   pop bx
   loop ciclo     
     
ret     
contadord dw 0h ;iniciamos la primera linea en la direccion 0h para que empiece a imprimir desde ahi
contadori dw 318 ;iniciamos en la segunda fila 320-2 si tomamos en cuenta que es una direccion lineal 
resta dw 2h ; utilizaremos la variable para el decremento         

org 100h      
 mov ax,0b800h
 mov es,ax
 ;mov bx,0
 mov cx,3
 
inccolumna:  
 push cx
 push bx    
 mov bx,posicionx
 mov cx,25; repetir 2 veces columna 
  
     abajo:  
      mov es:[bx],65
      ;mov es:[bx+1],24h
      add bx,160   
       loop abajo     
 pop bx
 pop cx 
  push cx
  push bx
  mov cx, 25
  mov bx,posiciony
   arriba: 
    mov es:[bx+2],65
    sub bx,160     
    loop arriba  
  pop bx
  pop cx
   
 add posicionx,4 
 add posiciony,4 
 loop inccolumna      
ret            
 x dw 0       
 posicionx dw 0h 
 posiciony dw 3840
 

org 100h      
 mov ax,0b800h
 mov es,ax
 ;mov bx,0
 mov cx,3   
 push ax
 mov ax, posiciony  ;inicializar resto
 mov resto,ax
 pop ax
inccolumnadoble:  
 push cx       
 mov bx,posicionx
 mov cx,25; repetir 2 veces columna 
   
     abajo:
      ;mov ax,posiciony 
      ; imprimir caracter hacia abajo
      mov es:[bx],65
      ;mov es:[bx+1],24h
      add bx,160 
       ; imprimir caracter hacia arriba
       push bx  
       mov bx,resto
       mov es:[bx+2],65
       
       sub resto,160  
       pop bx 
       loop abajo       
 pop cx           
 add posicionx,4 ; incrementar posicionx en 4 para siguiente columna
 push ax            ; copiar la direcion de posicionx y aumentar 3840 + 4
 mov ax,posicionx
 mov resto,ax
 pop ax  
 add resto,3840  
 loop inccolumnadoble      
ret            
 x dw 0       
 posicionx dw 0h 
 posiciony dw 3840
 resto dw 0

org 100h;iniciamos en la direccion 100h de la memoria
mov bx,0 ; utilizaremos un contador en bx para movernos dentro de la lista, este inicia en cero 
mov cx,5; en cx se declara el numero de repeticiones del loop nuestra lista tendra un tamaño de 5 asi que con 5 repeticiones  basta
 repetir:  ;   aqui empezara el loop, tenemos nuestro loop con la etiqueta repetir:
; aqui debemos poner todas las acciones que queremos que se repitan
  mov al,lista[bx];  copiamos el contenido almacenado en lista[posicion] en al
  add suma, al ; sumamos a la variable suma el valor contenido en al, es como suma=suma+al
  add bx,1;  movemos nuestra posicion de la lista para la siguiente repeticion
 loop repetir ; al llegar aqui saltara a la etiqueta repetir:
ret ; abajo de ret declararemos todos nuestras variables
 
lista db 4,3,5,78,1   ; declaramos nuestra lista en data byte con los valores 4,3,5,78,1
suma db 0; inicializamos una variable suma para almacenar el total de la suma de la lista

org 100h
 mov bx,0
 mov cx,n
 
 repeticion:
   mov ax,lista[bx]
   cmp ax,mayor
   jg cambiar
   jmp continuar
   cambiar:
     mov mayor,ax   
   
   continuar:
   add suma,ax
   add bx,2      
   
 loop repeticion
ret
n dw 5  
lista dw 4,3,5,7,1
suma dw 0   
mayor dw 0

iwconfig