برنامه هایی به زبان ماشین

[Admin]

برنامه اي كه تعداد كاراكتر a را شمارش كند و با ايجاد يك پيغام مناسب بروي مانيتور نمايش دهد.

stk segment
        dw 32 dup(?)
stk ends

dts segment

	max db 81
	len db ?
	str db 80 dup(?)
	
dts ends

procs segment    	
	assume cs:procs,ds:dts

	prnt proc far
	mov ax,bx	
	mov bl,10	
	div bl		
	add al,30h 	
	add ah,30h 	
	mov bl,ah
              mov ah,02h
	mov dl,al	;
	int 21h	
	mov dl,bl	;
	int 21h		
	ret
	prnt endp
procs ends

cds segment
        assume cs:cds,ds:dts,ss:stk

main proc far
mov ax, seg dts
mov ds,ax
mov es,ax
mov ah,0Ah
mov dx,offset max
int 21h
              mov bx,offset str       
	add bl,len	        
	mov byte ptr[bx],'$' 
inc len
mov cl,len
mov ch,0

mov di,offset str
mov al,'a'
cld
mov bl,0

li : repne scasb
jcxz exit
inc bl
jmp li

exit :
    mov al,bl
    mov ah,0

   	call prnt
          	
mov ah,4ch
int 21h
ret
main endp
cds ends
end main

[Admin]

برنامه ای با استفاده از ماكرو كاراكتر های A و B را نمایش می دهد.

mputchar macro char
push ax
push dx
mov ah,02
mov dl,char
int 21h
pop dx
pop ax
endm
mexit macro
      mov ah,4ch
      int 21h
endm
stk segment
    dw 32 dup(?)
stk ends
cds segment
	assume ss:stk,cs:cds
main proc far
mputchar 'A'
mputchar 'B'
mexit
ret 
main endp
cds ends
	end main

[Admin]

برنامه اي كه با تابع 2c ساعت سيستم را خوانده و در يك رشته نمايش ميدهد .

stk segment
dw 32 dup(?)
stk ends
dts segment
time db 'hh:mm$'
dts ends
cds segment
assume cs:cds,ds:dts,ss:stk
tabdil proc near
xor ah,ah
mov bl,10
xor bh,bh
div bl
or al,30h
mov byte ptr[di],al
or ah,30h
mov byte ptr[di+1],ah
ret
tabdil endp

main proc far
mov ax,seg dts
mov ds,ax
mov es,ax
mov ah,2ch
int 21h
mov al,ch
mov di,offset time
call tabdil
mov al,cl
add di,3
call tabdil
mov ah,09h
mov dx,offset time
int 21h
mov ah,4ch
int 21h
ret
main endp
cds ends
end main

[Admin]

برانامه اي كه تعداد كاراكتر هاي a , A را در متن دريافتي شمارش كرده و مجموع آنرا چاپ ميكند .

stk segment
dw 32 dup(?)
stk ends

dts segment 
max db 81 
len db ?
str db 80 dup(?),'$'
txt db 0dh,0ah,'number of a`s and A`s are =  ','$'
dts ends

procs segment
	assume cs:procs,ds:dts
	itoa proc far
	mov di,offset txt
	add di,001eh
	mov ax,bx
	xor bx,bx
	mov bl,10
	div bl
	or al,30h
	mov byte ptr[di],al
	or ah,30h
	mov byte ptr[di+1],ah
	ret
	itoa endp
	procs ends
	
cds segment
	assume cs:cds,ds:dts,ss:stk
main proc far
mov ax,seg dts
mov ds,ax
mov es,ax
mov ah,0Ah
mov dx,offset max
int 21h
mov di,offset str
xor bx,bx
mov cl,len
mov ch,0
mov al,'a'
li1 :
repne scasb
jnz arezoo
inc bx
jmp li1
arezoo :
 mov di,offset str
mov cl,len
mov ch,0
mov al,'A'
li2 : 
repne scasb
jnz finish
inc bx
jmp li2
finish :
call itoa
mov ah,09
mov dx,offset txt
int 21h
mov ah,4ch
int 21h
ret 
main endp
cds ends
end main

[Admin]

اینم یه برنامه ی جدید نوشته شده توسط خودم ...!!

برنامه ای كه ماشین زیر را شبیه سازی می كنه ...!

aSb <--- S

یعنی فقط رشته های مانند رشته ی زیر رو قبول می کنه و رشته های دیگه رو قبول نکرده و پیغام نادرست رو به کاربر می ده.

ab یا aabb یا aaaabbbb و ...

به هز تعداد که کاربر بخواد.

stk segment
	dw 128 dup(?)
stk ends
dts segment
max db 251
len db ?
str db 252 dup(?)
alert1 db 'enter string to compare (only a and b char)','$'
falert db 'false','$'
falert2 db 'True','$'
dts ends
cds segment
	assume cs:cds,ss:stk,ds:dts
main proc far
mov ax,seg dts
mov ds,ax
mov es,ax
mov dx,offset alert1
mov ah,09h
int 21h
mov dx,offset max
mov ah,0ah
int 21h
;--------------------------------------------------------------
mov di,offset str
mov cl,len
xor ch,ch
cld
mov al,'a'
mov bl,0
sho1: repne scasb
inc bl
jcxz data1
jmp sho1
;--------------------------------------------------------------
data1:
mov al,'b'
mov dl,bl
mov di,offset str
mov cl,len
xor ch,ch
mov bl,0
;--------------------------------------------------------------
sho2:repne scasb
inc bl
jcxz data2
jmp sho2
;--------------------------------------------------------------

data2:
mov cl,dl
xor ch,ch
cmp cl,bl
je data3

data3:
mov cl,bl
mov di,offset str
nextp: cmp byte ptr [di],'a'

jne finish1

inc di
loop nextp
mov cl,bl
nextpp: cmp byte ptr [di],'b'

jne finish1
inc di
loop nextpp
jmp finish2

finish1: mov ah,09h
mov dx,offset falert
int 21h
jmp endf

finish2: mov ah,09h
mov dx,offset falert2
int 21h

endf: mov ah,4ch
int 21h
ret
main endp
cds ends
	end main