PRINT STAR WITH ROW & COLUMN.asm

.DATA
MSG1 DB "PRINT START WITH ROW COLUMN$"
MSG2 DB 10,13,"ENTER ROW: $"
MSG3 DB 10,13,"ENTER COLUMN:$"
R DB ?
C DB ?
.CODE
MAIN PROC
    MOV AX,DATA
    MOV DS,AX
    INT 21H

    ;PRINT MSG1
    MOV AH,9
    MOV DX,OFFSET MSG1
    INT 21H

    ;PRINT MSG2
    MOV AH,9
    MOV DX,OFFSET MSG2
    INT 21H

    ;INPUT TO R
    MOV AH,1
    INT 21H
    SUB AL,30H
    MOV R,AL

    ;PRINT MSG3
    MOV AH,9
    MOV DX,OFFSET MSG3
    INT 21H

    ;INPPUT TO C
    MOV AH,1
    INT 21H
    SUB AL,30H
    MOV C,AL

    MOV DL,10 ;NEW LINE
    MOV AH,2
    INT 21H

    MOV DL,13 ;CARRIAGE RETURN
    MOV AH,2
    INT 21H

    MOV CL,R

    TOP:
    MOV R,CL
    MOV CL,C

    TOP1:
    MOV DL,42 ;PRINT STAR
    MOV AH,2
    INT 21H
    LOOP TOP1

    MOV DL,10 ;NEW LINE
    MOV AH,2
    INT 21H

    MOV DL,13 ;CARRIAGE RETURN
    MOV AH,2
    INT 21H

    MOV DL,R
    MOV CL,DL
    LOOP TOP

    MOV AH,4CH
    INT 21H

ENDP
END MAIN