开方.asm

来自「基本的开方的小程序」· 汇编 代码 · 共 91 行

data segment

     ;da1 dw 1234h,5678h,3456h,0a53h
     da1 dw 4,64,81

     count equ ($-da1)/2

     pfg db count dup (0)

    

data ends

stack1 segment para stack

       dw 20h dup (0)

stack1 ends

coseg segment

      assume cs:coseg,ds:data

start: mov ax,data

       mov ds,ax

       mov cx,count

       mov si,offset da1

       mov di,offset pfg

lop:  mov ax,[si]

      push cx

      call sqr_proc

      mov [di],cl

      add cl,30h
      mov dl,cl
      mov ah,6h
      int 21h	
      
mov dl,' '
mov ah,2
int 21h



      pop cx

      add si,2

      inc di

      loop lop

      
      

      mov ah,4ch

      int 21h

sqr_proc proc
 	
              mov cl,0

              mov dx,1

        sqr:  sub ax,dx

      jb exit

      inc cl

      add dx,2

      jmp sqr

exit: ret

sqr_proc endp

coseg ends

      end start