Code:
.model small
.stack 100h
.data
row db 12
col db 40
.code
gintama:
mov ax, @data
mov ds, ax
mov ax, 0003h
int 10h
call gotoxy
mov al, '*'
mov bl, 05h
mov cx, 1
int 10h
mov ah,1
int 21h
cmp al, 077H
je Up
cmp al,073H
je Down1
cmp al,061H
je left
cmp al,064H
je Right
cmp al, 01BH
je EXIT1
left:
mov ax, 0003h
int 10h
dec col
cmp col, 0
je MCOL
jmp gintama
call gotoxy
mov al, '*'
mov bl, 01h
mov cx, 1
int 10h
MCOL:
mov col, 80
jmp gintama
Right:
mov ax, 0003h
int 10h
inc col
cmp col, 0
je MCOL1
jmp gintama
call gotoxy
mov al, '*'
mov bl, 01h
mov cx, 1
int 10h
MCOL1:
mov col, 80
jmp gintama
DOWN1:
jmp DOWN
EXIT1:
jmp exit
Up:
mov ax, 0003h
int 10h
dec row
cmp row,0
je MROW
jmp gintama
call gotoxy
mov al, '*'
mov bl, 01h
mov cx, 1
int 10h
MROW:
mov row,24
jmp gintama
Down:
mov ax, 0003h
int 10h
inc row
cmp row,24
je MROW1
jmp gintama
call gotoxy
mov al, '*'
mov bl, 01h
mov cx, 1
int 10h
MROW1:
mov row,0
jmp gintama
EXIT:
mov ah, 4ch
int 21h
gotoxy proc
mov ah, 2
mov bh, 0
mov dh, row
mov dl, col
int 10h
mov ah, 9
mov bh, 0
ret
gotoxy endp
end