Wednesday, January 2, 2013

Menghitung Akar Kuadrat dalam Bahasa Assembly

Ini adalah kode untuk mencari akar kuadrat dalam bahasa assembly. wow its magic! silahkan simak kode berikut ini :

.MODEL SMALL
.CODE
ORG 100h
   jmp start
   a dw 36
   Start :
   MOV CX,a
        MOV AX,-1
        CWD
        XOR BX,BX
Loopsqrt:
    INC AX
    INC DX
    INC DX
    ADD BX,DX
    CMP BX,CX
    JBE Loopsqrt
   


    mov bx,10 ;bx=10
            xor cx,cx ;cx=0
    looping:
            xor dx,dx
            div bx ;dx=ax/bx
            push dx ;push untuk menyimpan data ke dalam steck
            inc cx
            cmp ax,0
            jne looping
    cetak:
            pop dx ;pop untuk mengambil data dari stack
            add dl,'0' ;ubah angka menjadi code ascii
            mov ah,02h
            int 21h
            loop cetak
    end start

No comments: