编写一个简单的汇编语言程序~求高手帮忙

kuaidi.ping-jia.net  作者:佚名   更新日期:2024-07-07
一个简单的编写汇编语言程序的问题

键入字符就是DOS功能调用:
MOV AH,0AH ;键盘输入字符串 (10号/0A调用)
INT 21H ;从键盘上往指定缓冲区中输入字符串并送显示器显示

; 本程序通过编译,运行正确
Code Segment
Assume CS:Code,DS:Code
CR equ 000DH
LF equ 000AH
KB_Back equ 0008H
KB_ESC equ 001BH
; -----------------------------------------
; 功能:输出一个字符
; 入口:dl=要显示的字符
enter_Chr proc Near
push ax
mov ah,02h
int 21h
pop ax
ret
enter_Chr endp
; -----------------------------------------
; 功能:显示指定地址(Str_Addr)的字符串
; 入口:
; Str_Addr=字符串地址(要求在数据段)
; 用法: Output Str_Addr
; 用法举例:Output PromptStr
Output MACRO Str_Addr
lea dx,Str_Addr
mov ah,9
int 21h
EndM
; -----------------------------------------
; 功能:取光标位置
; 入口:无
; 出口:DH=行号,DL=列号
GetCursor Proc Near
PUSH AX
PUSH BX
PUSH CX
XOR BX,BX
MOV AH,3
INT 10H
MOV Cursor_Row,DH
MOV Cursor_Col,DL
POP CX
POP BX
POP AX
RET
Cursor_Row DB ?
Cursor_Col DB ?
GetCursor EndP
; -----------------------------------------
; 功能:置光标位置
; 入口:Cursor_Row=行坐标; Cursor_Col: 列坐标)
SetCursor Proc Near
PUSH CX
PUSH BX
PUSH AX
MOV DH,Cursor_Row
MOV DL,Cursor_Col
XOR BX,BX
MOV AH,2
INT 10H
POP AX
POP BX
POP CX
RET
SetCursor EndP
; -----------------------------------------
; 功能:输出回车换行
enter_CTLF proc Near
push ax
push dx
mov ah,02h
mov dl,0dh
int 21h
mov dl,0ah
int 21h
pop dx
pop ax
ret
enter_CTLF endp
; -----------------------------------------
; 功能:键盘输入一个N位的十进制数字,
; 用逻辑和移位指令将其转换成二进制数并保存在指定的内存单元。
; 入口:N=数字位数;di=保存输入的数字首地址
; 出口:转换后的二进制数保存在di所指的单元
Input_Digit Proc Near
push dx
push cx
push bx
push di
lea di,@@Save_Tmp
push di
cld
mov cx,N
push cx
@@Input: call GetCursor ;取光标位置
mov ah,1 ;从键盘接受一个字符
int 21h
cmp al,KB_ESC
jnz $+12
mov Mark_Bit,al
pop cx
pop di
pop di
pop bx
pop cx
pop dx
ret
cmp al,CR ;若键入的是回车,已经键入的数字不足N位
jz @@ASC_Dec ;转去处理已经键入的数字
cmp al,KB_Back
jz @@KBBack ;若是回空键,重新输入
cmp al,'0'
jb @@KB_Back ;若低于数字'0',重新输入
cmp al,'9'
ja @@KB_Back ;若低于数字'9',重新输入
jmp @@Save_Dig
@@KBBack: dec Cursor_Col
inc cx
dec di
@@KB_Back: call SetCursor ;置光标位置
jmp @@Input
@@Save_Dig: and al,0fh ;转换成二进制数
stosb ;保存
loop @@Input ;接受下一个数字
@@ASC_Dec: mov ax,cx
pop cx
pop si
sub cx,ax ;实际输入的数字位数
xor dx,dx
xor ax,ax
jcxz @@Save_Ret ;若直接回车,没有输入任何数字,按输入'0'处理
dec cx ;实际输入的数字位数减1,准备把输入的这一串数字转换成二进制数
mov bx,10
@@Mul_Ten: lodsb
cbw
add ax,dx
mul bx
mov dx,ax
loop @@Mul_Ten
lodsb
cbw
add ax,dx
@@Save_Ret: pop di
stosw
pop bx
pop cx
pop dx
mov Mark_Bit,0
ret
@@Save_Tmp db 16 dup(?)
Input_Digit EndP
; -----------------------------------------
; 功能:将AL中的低4位二进制数转换成十六进制显示的ASCII码
; 入口:AL
; 出口:AL=转换后的ASCII码
AL_ASCII Proc Near
cmp al,10 ;AL<10?
jb @@To_ASCII ;AL<10,按数字处理
add al,7 ;AL>=10,按大写字母处理
@@To_ASCII: add al,'0' ;转换成相应的数字或大写字母
ret
AL_ASCII EndP
; -----------------------------------------
; 功能:将AL中的字节数转换成十六进制显示的ASCII码
; 入口:AL
; 出口:AX=转换后的ASCII码
Byte_ASCII Proc Near
push cx
mov cx,4
xor ah,ah ;将AH置0
shl ax,cl ;将AX左移4位
shr al,cl ;将AL右移4位
xchg ah,al
call AL_ASCII ;调用子程序,将AL中的值转换成相应的ASCII码
xchg ah,al
call AL_ASCII
xchg ah,al
pop cx
ret
Byte_ASCII EndP
; -----------------------------------------
N equ 5 ;数字位数
Number dw ? ;16位二进制数
PromptStr DB 'Please input a decimal(0---65535, ESC to exit): $'
Hex_String db 'The heximal: '
Hex_Str db ' H$'
Mark_Bit db ? ;标志字节
Disp_Ok db 'OK$'
Start: push cs
pop ds
push cs
pop es ;使数据段、附加段与代码段同段
Input_Dec: Output PromptStr ;提示输入十进制数
lea di,Number ;分数存放地址
call Input_Digit ;从键盘输入一个十进制数
cmp Mark_Bit,KB_ESC
je Exit_Proc
call enter_CTLF ;输出一个回车、换行
call enter_CTLF ;输出一个回车、换行
lea di,Hex_Str
mov ax,Number ;读出这个数
push ax
xchg ah,al ;先转换高位字节
call Byte_ASCII ;把8位二进制数转换成十六进制显示的ASCII码
stosw ;保存至字符串变量
pop ax
call Byte_ASCII ;把8位二进制数转换成十六进制显示的ASCII码
stosw
Output Hex_String ;显示十六进制数
call enter_CTLF ;输出一个回车、换行
call enter_CTLF ;输出一个回车、换行
jmp Input_Dec
Exit_Proc: call SetCursor ;置光标位置
Output Disp_Ok
mov ah,4ch ;结束程序
int 21h
Code ENDS
END Start ;编译到此结束

输入部分,你自己写吧

64位的长整数转化成10进制数并用ASCII码表示出来

这个题目,此前已有多人提过。若用32位汇编语言,尚能做出;若是用8086汇编,我怎么也想不出个算法来。

水平有限,实在抱歉!

我留意到,有个人会做:ASMx86

答案在:
寻一能读懂汇编的技术人员,读.exe文件,制作一个修改工具!
http://tieba.baidu.com/f?kz=583911055
答案在2楼。

本人备有两种解决此题的80X86汇编源程序。

xiang bu  chu



靠,我刚上只有20分,2天一共30分,提个问题,悬赏给了30分,没有分了,还有问题,怎么办

  • 编写一个汇编程序,要求将用键盘输入的小写字母转换成大写字母并显示出来...
    答:1、打开软件Visual C++6.0,新建一个C源程序,书写C语言程序。2、首先定义两个字符型变量,代码:char c1,c2;从键盘中输入一个大写字母,代码:c1=getchar();。3、大写字母与小写字母的ASCII值相差32。代码:c2=c1+32;。将大写字母转化成小写字母。4、输出小写字母。使用putchar()函数,可以输出...
  • 求一个用汇编语言编写单片机简易交通灯程序。求高手帮下忙谢谢了...
    答:JNB P3.1,DIS_E ;;;查询是否第二个按键按下 AJMP DIS_R ;;;没有键按下则返回 DIS_S:LCALL D5MS ;;;按键去抖
  • 汇编语言编写一个简单的程序(我学的是汇编语言与接口技术)
    答:;请从键盘任意输入一个0-59内的数,每隔一秒自加一,当加到59后跳到0从新开始自加 DATAS SEGMENT ;此处输入数据段代码 MESS0 DB 'Error char!','$' ;异常信息 MESS1 DB 'Input overflow!','$'MESS2 DB 'Must be 0~59!','$'SEPRA DB 0DH,0AH,'$' ;分隔符 TIME DB 0 MADD...
  • 求一个汇编语言程序,简单的,要解释
    答:ENDS ;代码段结束 END START ;程序结束 表明程序从START 开始 ;程序运行结果屏幕显示SUCCESS 以上是我辛辛苦苦一个字一个字打上去的,解释得也够详细了吧,不给分就不厚道了
  • 菜鸟求助高手 汇编语言编程序 1+2+3+...+100=?
    答:程序如下:code segment assume cs:code,ds:code start:mov ax,data mov ds,ax xor ax,ax ;给ax赋初值 mov cx,100 lop:add ax,cx; 最终的结果就在AX中 loop lop ;循环 mov ah,4ch int 21h code ends end start
  • 汇编高手进!!!满意有加分!
    答:1、编写汇编语言源程序结构框架。定义程序代码段及数据段,并初始化数据段寄存器。;程序模板 DSEG SEGMENT ;数据段:在此处添加程序所需的数据 DSEG ENDS CSEG SEGMENT assume cs:CSEG, ds:DSEG MAIN PROC FAR ;主程序入口 mov ax, dseg mov ds, ax ;此处添加主程序代码 ;按任意键退出 mov ...
  • 用汇编语言编写一个简单程序
    答:程序如下:DATA SEGMENT X DW 10 ;16位变量 Y DW 20 Z DW 30 W DW 40 U DW ?,?DATA ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA START:MOV AX,DATA MOV DS,AX MOV AX,Y IMUL Z ;计算Y*Z,内容放在DX,AX中 MOV CX,AX MOV BX,DX SUB CX,100 ;计算Y*Z-100 SBB BX,...
  • 编写完整汇编语言程序,在屏幕中间输出红底黑字的字符串:"Hello,I'm...
    答:of STRING mov bp,STRING mov AX, 1301h ; function number int 10h call pause mov ax,4c00h int 21h;exit ;data STRING DB "HELLO,I'm 1123",0 ;const L equ $-STRING row equ 13-1 column equ (80-L)/2-1 ;func pause:mov ah,07 int 21h ret ;汇编过程及调试结果 ...
  • 求人用汇编语言编程
    答:这个程序不难的 说明一点:10个数据的和应该是04b5h,但是因为sum是字节变量,所以只能存储b5h。如果希望能够完整保存相加的和,则应该把sum定义成字类型。程序如下:assume cs:code,ds:data data segment num db 12h,45h,0f3h,6ah,20h,0feh,90h,0c8h,57h,34h sum dw ?data...
  • 求高手帮忙写一个汇编语言的简易交通灯程序
    答:用汇编语言编写的程序如下,在12MHz的条件下,已经通过了仿真调试。;--- ORG 0000H MOV P0, #01111011B ;P0.7=P0.2=0, 东西 南北 都是红灯.CALL DL3S LOOP:MOV P0, #11011011B ;P0.5=P0.2=0, 南北绿 东西红.CALL DL15S MOV P0, #10111011B ;P0.6=P...