لو عندكم برامج محلوله بلغة الأسمبلي لا تبخلون فيها

السلام عليكم ورحمة الله وبركاته


مساء الخير لكل الموجودين :silly:


نبي هالموضوع لاهنتوا يعني لو مريتوا وكان عندكم برامج محلوله بلغة الأسمبلي تحطونها هنا

عشان الإستفاده للكل

بس قبل لا تحطون حل البرنامج حطو وش سالفته ( يعني وش يبي بالضبط :09: ) يعني وش يسوي بعدين حطوا الحل

لأنها تفيد الطلاب والطالبات اللي يدرسون هالماده

انا عن نفسي عندي كذا برنامج

متى ما خلصت منهم راح انزلهم

عشان يصير تبادل خبرات بين الأعضاء

وبعدين مهما كانت صعوبة البرنامج او مهما كانت سهولته سواء كان للمبتدئين او للمحترفين

ما يمنع هالشي من وضعه

لأن اللي راح يمر على هالموضوع شرائح كثيره مختلفه ثقافتهم

تحياتي لكم

هذا اول برنامج يطلب من اليزور يدخل رقم هكس مكون من أربع أرقام أو أقل

ويطبعه باينري بالسطر اللي بعده لما يطبع غلط يطلب منه يدخل رقم هكس مره ثانيه

ويقبل الأبر كيس ولا يقبل اللور كيس



[FONT='Tahoma','sans-serif']

كود:

---

[FONT='Tahoma','sans-serif'].CODE
main proc
 mov ax,@data
 mov ds,ax
;read a character
 mov ah,1
 int 21h
 mov cl,4
;check for hex input, [/FONT]

---

كود:

---

[FONT='Tahoma','sans-serif']

while: CMP al,0DH
 JE  End_while
 CMP al,"0"                                    ;read value in al >=0?
 JNGE  NONHEX                        ;No, not a HEX
 CMP  al,"9"                                ;read value in al <=9 ?
 JLE NUM
;No,CHECK IF HEX LETTER
 CMP AL,"A"
 JNGE NONHEX
 CMP AL,"F"
 JNLE NONHEX
 jmp hexlett
;if value entered is within the range of (0..FFFF), start INSERTing to NUM
NUM: AND [/FONT]

[FONT='Tahoma','sans-serif']Al,0F
 JMP  INSERT                            ;mask off code,keep decimal value,ex.(32h ? 02)
HEXLETT:SUB AL,37H
 
INSERT: MOV bl,al
 SHL Bx,cl                        ;add only the actual value and not the code
nondigit:Int 21h
 Jmp while
                                        ; display Sum stored in BX as binary output
End_while:
 Mov ah,2 ;start binary output
 Mov cx,16 ;repeat 16times to display 16bits stored in SUM
next: ROL bx,1  ;shift to get [/FONT]
[FONT='Tahoma','sans-serif']one bit only from the byte
        JC Print_1 ;check bit if 1 then print 1
        Mov  dl,'0'  ;otherwise, print 0
        jmp  display   
Print_1:Mov dl,'1'
display:int  21
          loop next                          ;decrement cl and repeat if cl is not zero
 
  mov ah,4Ch
  int 21h
 main endp
    end main

[/FONT]

---

وهذاا واحد ثاني رحه بالكومنت ووظيفته

[FONT='Tahoma','sans-serif']

كود:

---

[FONT='Tahoma','sans-serif'];This program prompts to enter stream character ended with CR. Calculate cumulative sum Print Sum in Hex.
.MODEL SMALL
.STACK 100H
.DATA
MSG    DB 0Dh,0Ah,'Enter a [/FONT]
[FONT='Tahoma','sans-serif']hex # (0...FFFF): $'
MSG1    DB 0Dh,0Ah,'The Cumulative Sum in Hex is:$ '
SUM    DW 0 [/FONT]
[FONT='Tahoma','sans-serif'][/FONT]
[FONT='Tahoma','sans-serif'].CODE
main proc
 mov ax,@data
 mov ds,ax
;display a message
        mov cl,4      ;initialise # if shifts 
top: mov ah,9
      LEA dx,MSG
        int 21h 
        XOR BX,BX              ; initilalise number
        XOR Dx,DX              ; initialise sum of numbers
;read a character
            mov ah,1
While_:  int 21h
;check for end of string input, if not,add to [/FONT]
[FONT='Tahoma','sans-serif']sum
        CMP    al,0DH
        JE      End_while
        cmp    al,'9'
        JG      alpha
        sub    al,30h
        jmp    insert
alpha:  sub    al,37h
insert: mov  dl,al
        add SUM, DX            ; to add a read value to sum
        shl      bx,cl
        OR      bl,al
        [/FONT]
[FONT='Tahoma','sans-serif']Jmp    while_          ;loop back to read next character
; display Sum stored in BX as hex output
End_while:
getsum:
        mov    BX,SUM 
        mov    AH,9
        lea    DX,MSG1
        INT    21H
        MOV    AH,2
        mov    dl,Bh
noc:  mov    ch,4            ;repeat 4 times to display 4 hex digits in SUM
        Mov    [/FONT]
[FONT='Tahoma','sans-serif']cl,4                ; number of shifts
next: Mov    dl,bh                    ;start printing from the left,print digit in high byte
      SHR    dl,cl                        ;shift to get the first one digit only from the hi byte
      CMP    dl,09h                  ;check SUM stored as hex letter(A..F)/or hex#(0..9)
        Jg letter
          ADD [/FONT]
[FONT='Tahoma','sans-serif']dl,30h                ;convert to ascii character of decimal code
          Jmp display
letter:    Add dl,37h            ;convert to ascii character of letter code
display: int    21h            ;print it
    ROL bx,cl                  ;get next stored digit from the left
    dec ch                          ;decrement ch and repeat if ch is not zero
    jnz next
    mov [/FONT]
[FONT='Tahoma','sans-serif']ah,4Ch
    int 21h
    main endp
    end main [/FONT]
[FONT='Tahoma','sans-serif'][/FONT]

---

كود:

---

[FONT='Tahoma','sans-serif']

[/FONT]

---

[/FONT]

[/FONT]