Batalha-Naval/Rascunho/TITLE.ASM at master · h-ssiqueira/Batalha-Naval · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
TITLE TITULO
.MODEL SMALL
.STACK 100H
.DATA
CURSOR	DB 01111111b, 11111111b
		DB 11111111b, 11111111b
		DB 01111100b, 11111111b
		DB 00111111b, 11111111b
		DB 00011111b, 11111111b
		DB 00001111b, 11111111b
		DB 00000111b, 11111111b
		DB 00000011b, 11111111b
		DB 00000011b, 11111111b
		DB 00000111b, 11111111b
		DB 00000111b, 11111111b
		DB 00001111b, 11111111b
		DB 00011111b, 11111111b
		DB 00011111b, 11111111b
		DB 00011111b, 11111111b
		DB 00011111b, 11111111b

		DB 10000000b, 00000000b
		DB 00000000b, 00000000b
		DB 10000000b, 00000000b
		DB 11000000b, 00000000b
		DB 11100000b, 00000000b
		DB 11110000b, 00000000b
		DB 11111000b, 00000000b
		DB 11111100b, 11111111b
		DB 11111100b, 00000000b
		DB 11111000b, 00000000b
		DB 11111000b, 00000000b
		DB 11110000b, 00000000b
		DB 11100000b, 00000000b
		DB 11100000b, 00000000b
		DB 11100000b, 00000000b
		DB 11100000b, 00000000b
.CODE
PROC MAIN
MOV AX,@DATA
MOV DS,AX
MOV ES,AX

MOV AH,0
MOV AL,13h ; Modo VGA 320X200 coloração 16b
INT 10h

MOV AX,9               ; Forma do cursor
MOV BX,0
MOV CX,0
MOV BP,SEG CURSOR          ;ES:DX Ponteiro de 16 bits para o cursor
MOV DX,OFFSET CURSOR
INT 33h

MOV AX,1 ; usar cursor
INT 33h

MOV AH,1
INT 21h

XOR AL,AL

MOV CX,0
MOV DX,0

INICIO:

IN AL,60h
CMP AL,10h
JE QUITTER

MOV AX,3 ; Pegar coordenadas do cursor
MOV BH,0
INT 10h

MOV AH,2
INT 21h
MOV AH,2
MOV DL,DH
INT 21h

JMP INICIO

QUITTER:

MOV AH,4Ch
INT 21h
ENDP MAIN
END MAIN