data segment msg db 'input N:$' data ends code segment assume cs:code,ds:data main proc near start: mov ax,data mov ds,ax mov dx,offset msg mov ah,09h int 21h call decibin;接收N的子程序 mov cx,bx mov bx,0 loop1: add bx,cx;1+2+…N的和存入BX loop loop1 call crlf call bini;显示BX中的内容 mov ah,4ch int 21h ret main endp ;------------------------------ decibin proc near;接收N子程序 mov bx,0 newchar: mov ah,1 int 21h sub al,30h jl exit cmp al,9d jg exit cbw xchg ax,bx mov cx,10d mul cx xchg ax,bx add bx,ax jmp newchar exit: ret decibin endp ;------------------------------------ bini proc near;转化为十进制输出子程序 mov cx,10000d call bin mov cx,1000d call bin mov cx,100d call bin mov cx,10d call bin mov cx,1d call bin ret bini endp bin proc near mov ax,bx mov dx,0 div cx mov bx,dx mov dl,al add dl,30h mov ah,02h int 21h ret bin endp ;-------------------------------- crlf proc near;回车换行子程序 mov dl,0dh mov ah,02h int 21h mov dl,0ah mov ah,02h int 21h ret crlf endp code ends end start
21,497
社区成员
41,618
社区内容
加载中
试试用AI创作助手写篇文章吧