$.$model small

$.$data

row db $0$ ;Create a label and initialize

column db $0$ ;Create a label and initialize

char db $?$ ;Create a label

$.$code

main proc

mov ax$,$ @data

mov ds$,$ ax

call read

mov char,al

mov cx$,5$

for$\_$i:

mov bx$,5$

for$\_$k:

call cursor

call display

inc row

dec bx

jnz for$\_$k

inc column

sub row,$4$

call cursor

loop for$\_$i

mov ah$,0$

int $21$h ;$0-$Program terminate

QUIT: RET

endp

display proc ;write

mov dl$,$char

mov ah$,2$

int $21$h ;$2-$Character input with echo

ret

display endp

read proc

mov ah$,1$

int $21$h ;$1-$Character input with echo

ret

read endp

cursor proc

mov ah$,02$h

mov bh$,00$h

mov dl$,$column

mov dh$,$row

int $10$h

ret

cursor endp

end main