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
miércoles, 25 de abril de 2018
sábado, 14 de abril de 2018
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
.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
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
.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
Suscribirse a:
Entradas (Atom)
Macro Potencia de un numero
name "potencia" include "emu8086.inc" include "macroos.txt" .model small data segment base dw ? ...
-
Un registro de segmento se utiliza para alinear en un limite de párrafo o dicho de otra forma codifica la dirección de inicio de cada segmen...
-
Registros Apuntadores Estos registros son usados como índices por algunas instrucciones. También pueden ser usados como operandos (excepto...
-
El registro FLAGS es el registro de estado en los microprocesadores Intel x86 que contiene el estado actual del procesador. Este registro es...