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

[رووبيي]

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


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


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

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

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

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

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

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

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

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

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

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

تحياتي لكم

[رووبيي]

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

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

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



[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]