-
Notifications
You must be signed in to change notification settings - Fork 0
/
t4a12g3.as
230 lines (206 loc) · 6.53 KB
/
t4a12g3.as
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
;=============================================
;I- Criacao da rotina que faz o espaco de jogo
;=============================================
IO_WRITE EQU FFFEh
IO_READ EQU FFFCh
INT_MASK_ADDR EQU FFFAh
INT_MASK EQU 0100000000001111b
AcabaString EQU '@'
;=============================================
;I.I- Definição de Strings
;=============================================
ORIG 8000h
Baixo_F WORD 0
Cima_F WORD 0
Esquerda_F WORD 0
Direita_F WORD 0
InitialMessage STR 'PRIMA IE PARA INICIAR@'
;=============================================
;II-Tabela referente a cada interrupcao
;=============================================
ORIG FE00h
INT0 WORD Baixo
INT1 WORD Cima
INT2 WORD Esquerda
INT3 WORD Direita
ORIG FE0Eh
INT14 WORD Restart
;==============================================
;III- Criar a Janela, as linhas e a Nave
;==============================================
ORIG 0000h
MOV R6, FDFFh
MOV SP, R6
MOV R7,INT_MASK
MOV M[INT_MASK_ADDR],R7
MOV R3,FFFFh
MOV M[IO_READ],R3 ;inicializacao janela de texto
ENI
CALL StartScreen
GameStart: CMP R7,5
BR.Z EscreverJanela
BR GameStart
EscreverJanela: MOV R1,0
MOV R2,0 ;registo que vai alterando R1 pq vai ser usado o seu bit mais e menos significativo
MOV R3,'#' ;caractere que vai ser escrito na janela de texto
linha1: MVBL R1,R2 ;vai atualizando o cursor para passar a proxima posicao da linha
MOV M[IO_READ],R1 ;aponta posicao na linha
MOV M[IO_WRITE],R3 ;escreve # na posicao
ADD R2,1
CMP R2,0050h ;verifica se ja terminou a primeira linha
BR.Z proximo
CMP R2,1750h ;verifica se ja terminou a segunda linha
BR.Z Nave ;
BR linha1
proximo: MOV R2,1700h ;atualiza o valor de R2 para a proxima coluna
MOV R1,R2
BR linha1
Nave: MOV R1,0303h ;Coordenadas da nave, quarta linha terceira coluna
MOV R2,'\'
MOV R3,')'
MOV R4,'>'
MOV R5,'/'
CALL CriaNave
MOV R6,' '
MOV R7,0
BR Ciclo
StartScreen: MOV R2, 0A1Fh
MOV R3, InitialMessage
ContinuaAEscrever: MOV M[IO_READ],R2
MOV R4,M[R3]
CMP R4, AcabaString
BR.Z AcabaMsg
MOV M[IO_WRITE],R4
INC R2
INC R3
BR ContinuaAEscrever
AcabaMsg: RET
========================================================
; IV-Ciclo De Jogo
;=======================================================
Ciclo: CMP M[Baixo_F],R0
CALL.Z Baixo_Rotina
CMP M[Cima_F],R0
CALL.Z Cima_Rotina
CMP M[Esquerda_F],R0
CALL.Z Esquerda_Rotina
CMP M[Direita_F],R0
CALL.Z Direita_Rotina
CMP R7,5
JMP Ciclo
;======================================================
; V-Rotinas referentes a cada interrupcao
;=======================================================
;=========================
;Restarta o jogo
;=========================
Restart: MOV R7,5
RTI
;=========================
;Mexe a Nave para baixo
;=========================
Baixo: INC M[Baixo_F]
RTI
Baixo_Rotina:DEC M[Baixo_F]
MVBH R7,R1
ADD R7,0300h
SUB R7, 1700h
JMP.Z FicaNoSitio ;Verificar que nao vai sair da janela
CALL DestroiNave
ADD R1,0100h
CALL CriaNave
FicaNoSitio: MOV R7,0
RET
;=========================
; Mexe a Nave para cima
;=========================
Cima: INC M[Cima_F]
RTI
Cima_Rotina: DEC M[Cima_F]
MVBH R7,R1
SUB R7, 0100h
JMP.Z FicaNoSitio ;Verificar que nao vai sair da janela
CALL DestroiNave
SUB R1,0100h
CALL CriaNave
RET
;===========================
;Mexe a Nave para a esquerda
;===========================
Esquerda: INC M[Esquerda_F]
RTI
Esquerda_Rotina:DEC M[Esquerda_F]
MVBL R7,R1
SUB R7, 0001h
JMP.Z FicaNoSitio ;Verificar que nao vai sair da janela
CALL DestroiNave
SUB R1,0001h
CALL CriaNave
RET
;=========================
;Mexe a Nave para a direita
;=========================
Direita: INC M[Direita_F]
RTI
Direita_Rotina:DEC M[Direita_F]
MVBL R7,R1
ADD R7,0002h
SUB R7, 0050h
JMP.Z FicaNoSitio ;Verificar que nao vai sair da janela
CALL DestroiNave
ADD R1,0001h
CALL CriaNave
RET
;=========================
;Destroi a Nave atual
;=========================
DestroiNave: MOV M[IO_READ],R1 ;Destroi a nave
MOV M[IO_WRITE],R6
ADD R1, 0100h
MOV M[IO_READ],R1
MOV M[IO_WRITE],R6
ADD R1, 0001h
MOV M[IO_READ],R1
MOV M[IO_WRITE],R6
ADD R1,00FFh
MOV M[IO_READ],R1
MOV M[IO_WRITE],R6
SUB R1, 0200h
RET
;===========================
;Cria a Nave na nova posição
;===========================
CriaNave: MOV M[IO_READ],R1 ;Criar a nave
MOV M[IO_WRITE],R2
ADD R1, 0100h
MOV M[IO_READ],R1
MOV M[IO_WRITE],R3
ADD R1, 0001h
MOV M[IO_READ],R1
MOV M[IO_WRITE],R4
ADD R1, 00FFh
MOV M[IO_READ],R1
MOV M[IO_WRITE],R5
SUB R1, 0200h
MOV R7,0
RET
;====================================
; Tira as peças e repõe-as mais tarde
;====================================
Componentes_Nave: PUSH R2
MOV R2,'\'
PUSH R3
MOV R3,')'
PUSH R4
MOV R4,'>'
PUSH R5
MOV R5,'/' ;ISTO NÃO RESULTA AINDA, É NORMAL QUE NÃO SE PERCEBA
PUSH R6
MOV R6,' '
RET
Recoloca: POP R6
POP R5
POP R4
POP R3
POP R2
RET