Edades con macros y procedimientos

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

INCLUDE assemblyMethods.lib
pila segment
 db 64 dub(?)
pila ends 
datos segment
 msg1 db 'Presione una tecla para iniciar$' 
 msg2 db 'Ingrese su nombre: $' 
 msg3 db 'Ingrese su edad: $' 
 msg4 db 'Ingrese solo numeros$' 
 msg5 db 'Gracias por usar el software$'
 array db ' $' 
 age db ' $' 
 enter db 13,10,'$'
datos ends
codigo segment
assume ss:pila,ds:datos,cs:codigo
inicio: mov ax,datos
 mov ds,ax 
 
 printText msg1 
 notVisibleInput
 clr 
 call cuadro 
 cursor 0,8,26
 printText msg2 
 defineSize 7,0
nombre: 
 visibleInput 
 addValues
 loop nombre 
 next enter
 next enter
 cursor 0,10,26
 printText msg3
 defineSize 2,0
edad: 
 notVisibleInput 
 
 cmp al,48 
 je mostrar 
 cmp al,49 
 je mostrar 
 cmp al,50 
 je mostrar 
 cmp al,51 
 je mostrar 
 cmp al,52 
 je mostrar 
 cmp al,53 
 je mostrar
 cmp al,54 
 je mostrar 
 cmp al,55 
 je mostrar 
 cmp al,56 
 je mostrar
 cmp al,57 
 je mostrar 
 
 cmp al,48 
 jne denegado
 cmp al,49 
 jne denegado 
 cmp al,50 
 jne denegado
 cmp al,51 
 jne denegado
 cmp al,52 
 jne denegado
 cmp al,53 
 jne denegado
 cmp al,54 
 jne denegado
 cmp al,55 
 jne denegado
 cmp al,56 
 jne denegado
 cmp al,57 
 jne denegado 
 
 mostrar: 
 addValues
 mov dl,al 
 mov ah,02
 int 21h 
 loop edad 
 
 jmp fin
 
 denegado: 
 next enter
 cursor 0,12,26
 printText msg4 
 next enter
 next enter 
 add cx,1 
 cursor 0,10,43
 loop edad
 
 ;loop edad 
 
fin: 
 call limpiar 
 cursor 0,0,0
 printText msg5
 next enter
 mov ah,02
 lea si,array ;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
 
cuadro proc 
 mov ax,0600h
 mov bh,37h
 mov cx,0513h
 mov dh,20
 mov dl,60
 int 10h
 ret
cuadro endp 
limpiar proc
 mov ax,0600h
 mov bh,37h
 mov cx,0000h
 mov dh,25
 mov dl,80
 int 10h
 ret
limpiar endp
 
codigo ends
end inicio