كمك براي اصلاح قطعه كد هاي زير

[soonami]

سلام دوستان ممك ن است تكه قطه ك هاي زير بگيد اشكالش كجاست

قطعه بر نامه اي بنوسيسيد كه محتواي يك آرايه 10 بايتي بررسي كندا گر عدد 0 بيش از 3 بار تكرار شده بود مقدار ثبات dh را مساوي 1 قرار دهد

گفتم يه ثبات ميگيرم مقدارش رو 0 ميزارم بعد با آدرس خانه هاي حافظه مقايسه نيكنم اگر 0 بود يكي بهش اضافه كنه
بعد اون ثبات با 3 مقايسه كردم گفتم اگر بزرگتر مساوي بود مقدار يDH 1 كنه



mov cx,11
mov si,offset array
mov bl,0
dec si
l:inc si
cmp [si],0
je l2
jpm exit
l2: inc bl
cmp bl,3
jae l3
loop l
l3 mov dh,1
exit: HKOROJ

[Delphi Coder]

خودتون باید خط به خط ذهنی اجرا کنید و بیبینید اشکالش کجاست. این برنامه به اولین عنصر غیر صفر که برخورد کنه میپره به exit. این یک اشکال. اگر باز هم اجرای ذهنی برنامه براتون مشکل هست برنامتون رو اسمبل و لینک کنید و از debug برای اجرای خط به خط برنامه اجرایی استفاده کنید.

[soonami]

چرا به اولين صفر برسه مي پره مگه نگفتم بهش بره L2

[Delphi Coder]

یک بار دیگه پست منو بخونید لطفا

[soonami]

ميتونم به جاي exit به يه ليبل ديگه بگم بپره بعد اون جا inc si وبگم دوباره حلقه رو بررسي كنه ؟؟؟؟؟؟ l4: inc si loop l ???????????????? اين طوري درست ميشه ؟

[Delphi Coder]

inc si که داخل حلقه هست

[Delphi Coder]

این یه مدلشه

mov cx,10
lea si,myarray
xor bl,bl ; bl=0
cld
lp:
lodsb
or al,al
jnz cnt
inc bl
cnt:
loop lp
cmp bl,3
jb exit
mov dh,1
exit:
HKOROJ

[soonami]

ببخشيد دستور C L D و LOAD SB چي هست ؟؟؟؟؟؟؟؟ و براي معادل

[soonami]

من كد شما رو يكم تغيير دادم ميشه بگيد درسته يا نه ؟؟؟

mov cx,10
mov bl,0
mov si, offset array
l: cmp [si],0
jnz l2
inc bl



l2: inc si
loop l
cmp bl,3
jb exit
mov dg,1
exit: khoroj

[soonami]

ميشه جواب بديد

[Delphi Coder]

درسته اما کدی که من نوشتم سریعتره نسبت به کد شما.
میتونید یه برنامه اسمبلی بنویسید و به سادگی با دیباگر تست کنید ببینید درست هست یا نه.