****ESTE
PROGRAMA PRESENTA TUS INICIALES EN UN CUADRO CON ASTERISCOS*******
TITLE DIGITOS
.MODEL SMALL
.DATA
CAD1 DB
0DH,0AH, 'ESCRIBA SUS INICIALES (MAYUSCULAS)> $'
CAD2 DB
0DH,0AH,'***********$'
CAD3 DB
0DH,0AH,'* *$'
CAD4 DB 0DH,0AH,'*
$'
CAD5 DB ' *$'
I1 DB ?
I2 DB ?
I3 DB ?
.CODE
MAIN PROC
MOV AX,@DATA
MOV DS,AX
LEA DX,CAD1
MOV AH,9
INT 21H
MOV AH,1
INT 21H
MOV I1,AL
MOV AH,1
INT 21H
MOV I2,AL
MOV AH,1
INT 21H
MOV I3,AL
MOV AH,2
MOV DL,0DH
INT 21H
MOV DL,0AH
INT 21H
LEA DX,CAD2
MOV AH,9
INT 21H
MOV CX,4
CICLO1:
LEA DX,CAD3
MOV AH,9
INT 21H
LOOP CICLO1
LEA DX,CAD4
MOV AH,9
INT 21H
MOV AH,2
MOV DL,I1
INT 21H
MOV AH,2
MOV DL,I2
INT 21H
MOV AH,2
MOV DL,I3
INT 21H
LEA DX,CAD5
MOV AH,9
INT 21H
MOV CX,4
CICLO2:
LEA DX,CAD3
MOV AH,9
INT 21H
LOOP CICLO2
LEA DX,CAD2
MOV AH,9
INT 21H
MOV AH,4CH
INT 21H
MAIN ENDP
END MAIN