Figura

Esta es una vista previa del archivo. Inicie sesión para ver el archivo original

pila segment
 db 64 dup(?)
pila ends 
datos segment
 msg1 db 'Escriba su nombre: $',13,10
 msg2 db 'Felicidades$',13,10
 msg3 db 'Disfruta de tus vacaciones ;)$',13,10
 nombre db ' $'
 d1 db '.....____________________ , ,__$',13,10
 d2 db '....../ ,---___________----_____|] - - $',13,10 
 d3 db '......######## /$',13,10
 d4 db '...../_==o;;;;;;;;_______.:/$',13,10 
 d5 db '.....), ---,(_(__) /$',13,10
 d6 db '....// (..) ),----$',13,10
 d7 db '...//___//$',13,10
 d8 db '..//___//$',13,10
 d9 db './/___//$',13,10 
datos ends
codigo segment
assume ss:pila, ds:datos, cs:codigo
inicio: mov ax,datos
 mov ds,ax
 
 mov cx,7
 mov si,0
 
 mov ah,09
 lea dx,msg1 ;pedimos el nombre
 int 21h
 
word: 
 mov ah,01 ;ingresamos el nombre y la mostramos
 int 21h 
 
 mov nombre[si],al ;pasamos el valor a palabra
 inc si
 loop word 
 
 ================================================================= ;limpiamos pantalla
 
 mov ah,06h ;funcion para hacer scroll
 mov al,00h ;cantidad de filas a enrollar
 mov bh,07h ;atributos de color para el fondo y texto
 mov cx,00h ;fila inicial en ch, columna inicial en cl
 mov dx,184fh ;fila final en dh, columna final en dl
 int 10h ;ejecuta las interrupciones de video
 
 ================================================================= ;colocamos el cuadro
 
 mov ax,0600h
 mov bh,1dh
 mov cx,0513h
 mov dh,20
 mov dl,60
 int 10h
 
 ================================================================= ;aparecemos figura
 
dibujo: mov ah,07 ;vamos pulsando los numeros
 int 21h
 
 cmp al,49
 je uno 
 cmp al,50
 je dos 
 cmp al,51
 je tres
 cmp al,52
 je cuatro
 cmp al,53
 je cinco
 cmp al,54
 je seis
 cmp al,55
 je siete
 cmp al,56
 je ocho
 cmp al,57
 je nueve 
 
uno: mov ah,02 ;opcion para posicionar cursor
 mov bh,0 ;pagina 0
 mov dh,8 ;fila
 mov dl,21 ;columna
 int 10h
 
 mov ah,09
 lea dx,d1
 int 21h
 jmp dibujo
 
dos: mov ah,02
 mov bh,0
 mov dh,9
 mov dl,21
 int 10h
 
 mov ah,09
 lea dx,d2
 int 21h
 jmp dibujo
 
tres: mov ah,02
 mov bh,0
 mov dh,10
 mov dl,21
 int 10h
 
 mov ah,09
 lea dx,d3
 int 21h
 jmp dibujo
 
cuatro: mov ah,02
 mov bh,0
 mov dh,11
 mov dl,21
 int 10h
 
 mov ah,09
 lea dx,d4
 int 21h
 jmp dibujo
 
cinco: mov ah,02
 mov bh,0
 mov dh,12
 mov dl,21
 int 10h
 
 mov ah,09
 lea dx,d5
 int 21h
 jmp dibujo
 
seis: mov ah,02
 mov bh,0
 mov dh,13
 mov dl,21
 int 10h
 
 mov ah,09
 lea dx,d6
 int 21h
 jmp dibujo
 
siete: mov ah,02
 mov bh,0
 mov dh,14
 mov dl,21
 int 10h
 
 mov ah,09
 lea dx,d7
 int 21h
 jmp dibujo
 
ocho: mov ah,02
 mov bh,0
 mov dh,15
 mov dl,21
 int 10h
 
 mov ah,09
 lea dx,d8
 int 21h
 jmp dibujo
 
nueve: mov ah,02
 mov bh,0
 mov dh,16
 mov dl,21
 int 10h
 
 mov ah,09
 lea dx,d9
 int 21h
 
 	================================================================= 
 	
 	mov ah,02
 mov bh,0
 mov dh,0
 mov dl,21
 int 10h
 	
 	mov ah,09
 	lea dx,msg2 ;Felicidades
 	int 21h
 	
 	=================================================================
 	 
 mov ah,02
 mov bh,0
 mov dh,1
 mov dl,21
 int 10h
 mov ah,02
 lea si,nombre ;Jonatan
 mov dl,[si]
 int 21h
 inc si
 mov dl,[si]
 int 21h
 inc si
 mov dl,[si]
 int 21h
 inc si
 mov dl,[si]
 int 21h
 inc si
 mov dl,[si]
 int 21h
 inc si
 mov dl,[si]
 int 21h
 inc si
 mov dl,[si]
 int 21h
 
 =================================================================
 
 mov ah,02
 mov bh,0
 mov dh,2
 mov dl,21
 int 10h
 
 mov ah,09
 lea dx,msg3 ;Disfruta tus vacaciones ;)
 int 21h 	
 	
 	================================================================= 
 	
 	mov ah,4ch ;finaliza el proceso de ejecucion
 	int 21h
 	 
codigo ends
end inicio