DATA SEGMENT
STRING DB ‘The CPU is the brains of the computer’
COUNT EQU $-STRING
SUM DW ?
DATA ENDS
STACK1 SEGMENT PARA STACK
DW 20H DUP(0)
STACK1 ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
MOV DS,AX
XOR AX,AX
MOV CX,COUNT
MOV SI,0
AGAIN: MOV BL,STRING[SI]
CMP BL,’A’
JB NEXT
CMP BL,’Z’
JA NEXT
INC AX
NEXT: INC SI
LOOP AGAIN
MOV SUM,AX
MOV AH,4CH
INT 21H
CODE ENDS
END START