چاپ اعداد 1 تا 10

j0j0

عضو جدید
برنا مه ای بنویسید اعداد از 1 تا 10 را چاپ کندبا استفاده از حلقه های تکرار
 

HH2BN1990

کاربر فعال

کد:
.Model Small
.Stack
.Data
	i db 49
	S1 db "10$"
.Code
	Main Proc Far
		Mov AX,@Data
		Mov DS,AX
		
		Mov i,49 
		For1: 
			CMP i,57 
				jnbe EndFor1
			
			Mov AH,02H 
			Mov DL, i
			Int 21H
			
			Mov AH,02H 
			Mov DL, ' '
			Int 21H
			
			Add i,1 
			jmp For1 
		EndFor1:
		
		Mov AH,09H
		Lea DX,S1
		Int 21H
		
		Mov AH,08H
		Int 21H
		
		Mov AH,4CH
		Int 21H
	Main EndP
End Main
 
  • Like
واکنش ها: j0j0

Similar threads

بالا