sum db 2 dup(?);此处输入数据段代码
string db 25 dup(?);存放字符
tital db 'This program is made by wq. ',0dh,0ah
db 'PLease input the string: ','$'
overs db 'Amout of the nember is : ','$'
DATAS ENDS
ACKS SEGMENT
;此处输入堆栈段代码
STACKS ENDS CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
mov ax,offset tital
mov dx,ax
mov ah,09h
int 21h
mov cl,25
mov si,0
mov ax,offset string
mov dx,ax
again: ;输入字符
mov ah,01h
int 21h
cmp al,0dh
jz then
mov string[si],al
inc si
dec cl
jnz again
then:
mov ax,offset string
mov dx,ax
mov si,0
mov bl,0
mov cx,6
exchang:
cmp cx,0
jz over
cmp string[si],30h
jnb next
inc si
dec cx
jmp exchang
next:
cmp string[si],39h
jle calculator
inc si
dec cx
jmp exchang
calculator:
inc si
inc bl
dec cx
jmp exchang
over:
lea ax,overs
mov dx,ax
mov ah,09h
int 21h
mov ax,offset sum
mov dx,ax
mov sum[0],bl
add sum[0],30h
mov sum[1],'$'
mov ax,offset sum
mov dx,ax
mov ah,09h
int 21h
MOV AH,4CH
INT 21H
CODES ENDS
END START
这里是本程序的完善版: http://www.51hei.com/mcu/2466.html
-电子元器件采购网（www.ruidan.com）是本土元器件目录分销商，采用“小批量、现货、样品”销售模式，致力于满足客户多型号、高质量、快速交付的采购需求。 自建高效智能仓储，拥有自营库存超过50,000种，提供一站式正品现货采购、个性化解决方案、选型替代等多元化服务。
