هذي برامج بالاسمبلي وإن شاء الله تعجبكم إن شاء الله ((على فكرة جميعها يمكن تنفيذها))
ss1 segment stack
db 100 dup (?)
ss1 ends
;
data segment
;
msg1 db 0ah,0dh,"Enter a character :$"
msg2 db 0ah,0dh,"The next character after "
c1 db ?
db " is : "
c2 db ?,"$"
data ends
code segment
;
assume cs:code,ds:data
main proc far
push ax
mov ax,data
mov ds,ax
mov ah,9
lea dx,msg1
int 21h
mov ah,1
int 21h
mov c1,al
inc al
mov c2,al
mov ah,9
lea dx,msg2
int 21h
;------------------------------------------------------
; return to dos |
;------------------------------------------------------
mov ah,4ch
int 21h
main endp
code ends
end main
****************************************
****************************************
ss1 segment stack
db 100 dup (?)
ss1 ends
;
data segment
;
msg1 db 0ah,0dh,"Enter a string :$"
msg2 db 0ah,0dh,"your string is : $"
buffer db 100 dup (' ')
data ends
code segment
;
assume cs:code,ds:data
main proc far
push ax
mov ax,data
mov ds,ax
mov ah,9
lea dx,msg1
int 21h
mov ah,3fh
mov bx,1
lea dx,buffer
mov cx,10
int 21h
mov ah,9
lea dx,msg2
int 21h
mov ah,40h
mov bx,1
lea dx,buffer
mov cx,10
int 21h
;------------------------------------------------
; return to dos |
;------------------------------------------------
mov ah,4ch
int 21h
main endp
code ends
end main
*************************************
***************************************
ss1 segment stack
db 100 dup (?)
ss1 ends
;
data segment
;
msg1 db 0ah,0dh,"The cost of this is 30 $ extra $$$$$$$$$$$$$$$$"
data ends
code segment
;
assume cs:code,ds:data
main proc far
mov ax,data
mov ds,ax
mov ah,40h
mov bx,1
lea dx,msg1
mov cx,45
int 21h
;---------------------------------------------------------
; return to dos |
;---------------------------------------------------------
mov ah,4ch
int 21h
main endp
code ends
end main