| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付赛孚耐:软件保护加密专家
身份认证令牌USB KEY   
共有 491 人关注过本帖
标题:求助~分类计数问题~
收藏  订阅  推荐  打印 
lmango
Rank: 1
等级:新手上路
帖子:10
积分:214
注册:2007-12-6
求助~分类计数问题~

;从键盘输入一系列字符(以回车结束),并按字母,数字及其他字符分类计数,最后显示这三类的计数结果~
DATAS SEGMENT
    ARY DB ?
    X   DB 0DH
    OTH DB 0
    NU  DB 0
    LET DB 0
DATAS ENDS

STACKS SEGMENT
   
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX
    MOV BX,0
    MOV SI,BX
   
IMPORT:   
    MOV AH,1
    INT 21H
    MOV ARY[SI],AL
    CMP AL,X
   
    JE  TRIM
   
    MOV DL,20H
    MOV AH,2
    INT 21H   
   
    ADD SI,2
    JMP IMPORT

TRIM:

    CMP ARY[SI],30H
    JB  OTHER
    CMP ARY[SI],3AH
    JB  NUM
    CMP ARY[SI],41H
    JB  OTHER
    CMP ARY[SI],5BH
    JB  LETTER
    CMP ARY[SI],61H
    JB  OTHER
    CMP ARY[SI],7BH
    JB  LETTER
    JMP OTHER

A:  
    CMP SI,0   
    JLE  B
    SUB SI,2
    JMP TRIM

OTHER:  INC OTH
        JMP A
        
NUM:    INC NU
        JMP A

LETTER: INC LET   
        JMP A

B:
    MOV DL,0AH
    MOV AH,2
    INT 21H
   
    MOV AL,OTH
    MOV DL,AL
    MOV AH,2
    INT 21H
   
    MOV AL,NU
    MOV DL,AL
    MOV AH,2
    INT 21H
   
    MOV AL,LET
    MOV DL,AL
    MOV AH,2
    INT 21H
                    
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START

;请问各位我的程序哪里出乱子啦?谢谢大家~
搜索更多相关主题的帖子: 计数  分类  
2007-12-9 00:46
lmango
Rank: 1
等级:新手上路
帖子:10
积分:214
注册:2007-12-6

最后输出方面有问题,显示计数结果不是数字,而是一些ASCII码...帮帮忙~THX~
2007-12-9 00:53
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.061084 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved