****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