Athusatic 2016-12-28 08:12 采纳率: 50%
浏览 1055
已结题

紧急求各位大神帮帮弄下汇编语言的

DATAS SEGMENT
BUFFER DB 20 DUP(0)
BUFFER1 DB 20 DUP(0)
MSG1 DB "Please input you want choose number: $"
MSG2 DB "1: eg:A to a exchange : Uppercase to lowercase $"
MSG3 DB "2: eg:a to A exchange : Lowercase to Uppercase $"
MSG4 DB "3: eg:1111 to f : Binary to Hexadecimal $"
MSG5 DB "4: eg:f to 1111 : Hexadecimal to Binary $"
MSG6 DB "5: eg:f to 15 : Hexadecimal to Decimal $"
MSG7 DB "PLEASE INPUT SOME ALPHABET:$"
MSG8 DB "PLEASE INPUT SOME BINARY NUMBER:$"
MSG9 DB "PLEASE INPUT SOME HEX NUMBER:$"
DATAS ENDS

STACKS SEGMENT
STACKS ENDS


CODES      SEGMENT
           ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:     MOV AX,DATAS
           MOV DS,AX
P:  CALL  MENU           ;子程序调用
    CMP AL,'1'      
    JZ A                  ;      若 AL=1,则转到A 
    CMP AL,'2'
    JZ B                  ;     若AL=2,则转到B
    CMP AL,'3'
    JZ CA
    CMP AL,'4'
    JNZ LO
    JMP D

LO: CMP AL,'5'
    JNZ EXIT1
    JMP asd
EXIT1:JMP EXIT
A:  CALL CLEAR                 ;子程序调用
    MOV AH,02                    ;设置光标位置
    MOV DH,3             
    MOV DL,2             
    INT 10H                       ;中断指令
    MOV SI,OFFSET MSG7           ;取MSG7的地址指针送入SI
    MOV DX,SI
    MOV AH,09                     ;;显示一个字符串
    INT 21H
    LEA SI,BUFFER                 ;取BUFFER的有效地址给SI
S:  MOV AH,01                      ;;输入一个字符
    INT 21H
    MOV [SI],AL
    INC SI
    CMP AL,0DH                     ;;回车
    JNZ S                          ; ;若不输入回车,则继续执行S
    CALL CRLF
    MOV AH,02                      ; ;设置光标位置
    MOV DH,5
    MOV DL,28
    INT 10H
    LEA SI,BUFFER
Q:  MOV AL,[SI]
    CMP AL,'a' 
    JNB E                            ;  ;若AL的内容低于‘A’则转到E
    ADD AL,20H                ;  ;AL加上20H,大写字母转换为小写字母
    E: MOV DL,AL
    MOV AH,02                   ;   ;显示一个字符
    INT 21H           
    INC SI
    MOV AL,[SI]
    CMP AL,0DH
    JNZ Q                     ;   ;若不输入回车的话,则继续执行Q
    MOV AH,01
    INT 21H
    CMP AL,0DH
    JZ P                          ; ;若输入回车,则返回P
    JMP EXIT





B:  CALL CLEAR                   ;调用子程序
    MOV AH,02
    MOV DH,3
    MOV DL,2
    INT 10H
    MOV SI,OFFSET MSG7
    MOV DX,SI
    MOV AH,09                      ; ;显示一个字符串
    INT 21H
    LEA SI,BUFFER
M:  MOV AH,01
    INT 21H
    MOV [SI],AL
    INC SI
    CMP AL,0DH
    JNZ M                         ;  ;若不输入回车,则继续执行M
    CALL CRLF
    MOV AH,02                     ;  ;设置光标位置
    MOV DH,5
    MOV DL,28
    INT 10H
    LEA SI,BUFFER
I:  MOV AL,[SI]
    CMP AL,5AH
    JNGE X                         ; ;若AL的内容低于‘Z’,则转到X
    SUB AL,20H                    ;  ;小写字母转换为大写字母
X:  MOV DL,AL
    MOV AH,02
    INT 21H
    INC SI
    MOV AL,[SI]
    CMP AL,0DH
    JNZ I
    MOV AH,01                      ;   ;输入一个字符
    INT 21H
    CMP AL,0DH
    JNZ EXIT0                       ; ;若不输入回车,则转到EXIT0出
    JMP P

EXIT0:JMP EXIT
CA: CALL CLEAR
MOV AH,02 ;;设置光标位置
MOV DH,3
MOV DL,2
INT 10H
MOV SI,OFFSET MSG8
MOV DX,SI
MOV AH,09
INT 21H
LEA SI,BUFFER
NAA: MOV AH,01
INT 21H
MOV [SI],AL
INC SI
CMP AL,0DH
JNZ NAA
CALL CRLF
LEA DI,BUFFER
MOV AH,02
MOV DH,5
MOV DL,28
INT 10H
Y: MOV AL,[DI]
SUB AL,30H ;;将ASCII码转换为二进制
MOV BL,8D
MUL BL
ADD AL,30H
MOV DL,0
ADD DL,AL
INC DI
MOV AL,[DI]
SUB AL,30H
MOV BL, 4D
MUL BL
ADD DL,AL
INC DI
MOV AL,[DI]
SUB AL,30H
MOV BL,2D
MUL BL
ADD DL,AL
INC DI
MOV AL,[DI]
SUB AL,30H
MOV BL,1D
MUL BL
ADD DL,AL
CMP DL,'9'
JNG T
ADD DL,'A'-':'
T: MOV AH,02
INT 21H
INC DI
MOV AL,[DI]
CMP AL,0DH
JNZ Y
MOV AH,01
INT 21H
CMP AL,0DH
JNZ EXIT
JMP P
D: CALL CLEAR
MOV AH,02
MOV DH,3
MOV DL,2
INT 10H
MOV SI,OFFSET MSG9
MOV DX,SI
MOV AH,09
INT 21H
LEA SI,BUFFER

asd: CALL CLEAR
MOV AH,02
MOV DH,3
MOV DL,2
INT 10H
MOV SI,OFFSET MSG9
MOV DX,SI
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    MOV AH,09
    INT 21H
    LEA SI,BUFFER

FF: MOV AH,01
INT 21H
MOV [SI],AL
INC SI
CMP AL,0DH
JNZ FF
CALL CRLF
LEA SI,BUFFER
MOV DI,OFFSET BUFFER1
RE: MOV AL,[SI]
CMP AL,'9'
JNG Z
SUB AL,'A'-':'
Z: SUB AL,30H
MOV CX,4
ADD DI,4
YU: CBW
MOV BL,2D
DIV BL
MOV [DI],AH
PUSH AX
ADD AH,30H ; ; 二进制转化为ASCII码
POP AX
DEC DI
LOOP YU
ADD DI,4
INC SI
MOV AL,[SI]
CMP AL,0DH
JNZ RE
INC DI
MOV AL,'$'
MOV [DI],AL
CALL CRLF
MOV SI,OFFSET BUFFER1+1
MOV AL,[SI]
RT: ADD AL,30H
MOV DL,AL
MOV AH,02
INT 21H
INC SI
MOV AL,[SI]
CMP AL,'$'
JNZ RT
MOV AH,01
INT 21H
CMP AL,0DH
JNZ EXIT
JMP P
EXIT: MOV AH,4CH
INT 21H ;返回DOS系统

MENU PROC NEAR
CALL CLEAR ;调用子程序
MOV AH,02 ;设置光标位置
MOV DH,5 ;第5行
MOV DL,25 ;第25列
INT 10H
LEA SI,MSG2
MOV DX,SI
MOV AH,09 ;显示MSG2的内容
INT 21H ;输出MSG2字符串
MOV AH,02 ;至光标位置
MOV DH,7 ;第7行
MOV DL,25 ;第25列
INT 10H
LEA SI,MSG3 ;取MSG3的有效地址
MOV DX,SI
MOV AH,09
INT 21H ;输出MSG3字符串
MOV AH,02
MOV DH,9 ;第9行
MOV DL,25 ;第25列
INT 10H
LEA SI,MSG4 ;取MSG4的有效地址
MOV DX,SI
MOV AH,09
INT 21H ;输出MSG4字符串
MOV AH,02
MOV DH,11 ;第11行
MOV DL,25 ;第25列
INT 10H
LEA SI,MSG5
MOV DX,SI
MOV AH,09
INT 21H ;输出MSG5字符串
MOV AH,02 ;至光标位置
MOV DH,13 ;第15列
MOV DL,25 ;第17列
INT 10H
LEA SI,MSG6
MOV DX,SI
MOV AH,09
INT 21H ;输出MSG6字符串
MOV AH,02 ;至光标位置
MOV DH,19 ;第19列
MOV DL,25 ;第25列
INT 10H
LEA SI,MSG1
MOV DX,SI
MOV AH,09
INT 21H ;输出MSG1字符串
MOV AH,01 ;键盘输入
INT 21H
RET ;返回
MENU ENDP
CLEAR PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
PUSH SI
PUSH DI
MOV AH,07 ;屏幕初始化或下卷
MOV AL,25 ;下卷行数
MOV BH,70H ;卷入行属性
MOV CH,0 ;左上角行号
MOV CL,0 ;左上角列号
MOV DH,24 ;右下角行号
MOV DL,79 ;右下角列号
INT 10H
POP DI
POP SI
POP DX
POP CX
POP BX
POP AX
RET
CLEAR ENDP

CRLF PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
PUSH SI
PUSH DI
MOV DL,0DH ;输出回车
MOV AH,02
INT 21H
MOV DL,0AH ;输出换行
MOV AH,02
INT 21H
POP DI
POP SI
POP DX
POP CX
POP BX
POP AX
RET
CRLF ENDP
CODES ENDS ;代码段结束
END START ;程序结束

  • 写回答

1条回答 默认 最新

  • Charlie818 2016-12-28 11:53
    关注

    你就说帮忙弄下汇编代码,究竟是帮忙弄什么? 没有说清楚要干嘛啊

    评论

报告相同问题?

悬赏问题

  • ¥15 matlab数字图像处理频率域滤波
  • ¥15 在abaqus做了二维正交切削模型,给刀具添加了超声振动条件后输出切削力为什么比普通切削增大这么多
  • ¥15 ELGamal和paillier计算效率谁快?
  • ¥15 file converter 转换格式失败 报错 Error marking filters as finished,如何解决?
  • ¥15 ubuntu系统下挂载磁盘上执行./提示权限不够
  • ¥15 Arcgis相交分析无法绘制一个或多个图形
  • ¥15 关于#r语言#的问题:差异分析前数据准备,报错Error in data[, sampleName1] : subscript out of bounds请问怎么解决呀以下是全部代码:
  • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
  • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
  • ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误