El programa en lenguaje ensamblador cuenta el número de entradas A

; Este programa está compilado y se ejecuta correctamente

Segmento de código

Asuma CS:Code,DS:Code

N equ 16

Prompt_Chr db 'Ingrese una cadena: $'

Inicio: push cs

pop ds

lea dx,Prompt_Chr; dirección de información de cadena de entrada

mov ah,9 ;Mostrar información de cadena

int 21h

mov cx,N ;Ingrese hasta N caracteres

xor bl,bl; Borrar contador

Entrada: mov ah,1; Introduce un carácter

int 21h

cmp al,13;

jz Disp ;Sí, finaliza la entrada y muestra el número de caracteres de entrada 'A'

cmp al,'A' ;'A'?

jnz $+4 ;No, ingresa el siguiente carácter

inc bl ;Sí, cuenta

entrada del bucle

Disp: mov ah,2

mov dl,13

int 21h

mov dl,10

int 21h

mov al,bl

xor ah,ah

mov bl,10

div bl

o ax,3030h ;convertir a ASCII

mov dx,ax

mov ah,2

cmp dl,'0'

jz $+4

int 21h

xchg dh,dl

int 21h

Exit_Proc: mov ah,4ch ;Finalizar programa

int 21h

Código FINALIZA

FIN Inicio ;La compilación termina aquí