RE:nesito program en pcspim q imprima caracter A a
CONT EQU WORD PTR SS:[BP]
.MODEL small
.STACK 100h
.DATA
CAD1 DB 'CADENA : ', '$'
CAD2 DB 10 DUP (' '), '$'
CAD3 DB 13, 10, '$'
CAD4 DB 'VOCALES: ', '$'
.CODE
MOV AX, @DATA
MOV DS, AX
MOV AH, 06H
MOV BH, 07H
MOV AL, 00H
MOV CH, 00H
MOV CL, 00H
MOV DH, 18H
MOV DL, 4FH
INT 10H
MOV AH, 02H
MOV BH, 00H
MOV DH, 0
MOV DL, 0
INT 10H
MOV AH, 9
MOV DX, OFFSET CAD1
INT 21H
MOV CONT, 0
MOV BX, 0
CICLO1:
MOV AH, 1
INT 21H
MOV CAD2 [BX], AL
CMP AL, 13
JE FIN2
CMP AL, 8
JE BORRAR
INC BX
JMP CICLO1
BORRAR:
MOV DL, ' '
MOV AH, 2
INT 21H
MOV DL, 8
MOV AH, 2
INT 21H
DEC BX
JMP CICLO1
FIN2:
MOV CONT, BX
MOV AL, 13
MOV CAD2 [BX], AL
INC BX
MOV AL, 10
MOV CAD2 [BX], AL
INC BX
MOV AL, '$'
MOV CAD2 [BX], AL
MOV AH, 9
MOV DX, OFFSET CAD3
INT 21H
MOV AH, 9
MOV DX, OFFSET CAD4
INT 21H
INC CONT
MOV CX, CONT
MOV BX, 0
CICLO2:
MOV DL, CAD2[BX-1]
CMP DL, 'A'
JE ESCRIBE
CMP DL, 'E'
JE ESCRIBE
CMP DL, 'I'
JE ESCRIBE
CMP DL, 'O'
JE ESCRIBE
CMP DL, 'U'
JE ESCRIBE
CMP DL, 'a'
JE ESCRIBE
CMP DL, 'e'
JE ESCRIBE
CMP DL, 'i'
JE ESCRIBE
CMP DL, 'o'
JE ESCRIBE
CMP DL, 'u'
JE ESCRIBE
JMP SIGUE
ESCRIBE:
MOV AH, 2
INT 21H
SIGUE:
INC BX
LOOP CICLO2
MOV AH, 4CH
INT 21H
END
te puede servir lo modificas para todo lo que tipend