ايران ويج

نسخه‌ی کامل: چاپ ستاره بدون استفاده از Loop
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام:
کد:
A DB ? ;SEGMENT 'DATA'




MOV BL,1
MOV BH,BL
MOV A,0
MOV CL,1


L1:
CMP CL,25
JG K1


CMP BL,0
JE L2

MOV AH,02H
MOV DL,'*'
INT 21H

MOV AH,02H
MOV DL,20H
INT 21H

DEC BL

JMP L1

L2:

INC BH
MOV BL,BH

INC A

MOV AH,2H ;CURSOR MOVE
MOV DH,A ;ROW
MOV DL,0 ;COLUMN
MOV BH,0 ;PAGE NUMBER
INT 10H

MOV BH,BL

INC CL

jmp L1

K1: