/
PmggameX.asm
executable file
·131 lines (105 loc) · 2.13 KB
/
PmggameX.asm
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
; Player missile del Port "Nuevo Rally X"
; José I. Vila Muñoz
INI_PMG
clc
lda #>PLAYMISS
adc #2
sta YLOC0+1
sta YLOC1+1
tax
inx
stx YLOC2+1
stx YLOC3+1
tax
dex
stx LINRADAR+1
lda #$F1 ;Pos. Vertical inicial punto en radar
sta LINRADAR
ldy #0
lda #1 ;Punto Autito en Radar player0
sta (LINRADAR),Y
lda #$33
sta YLOC2 ;Posicion V. cabina
lda #$31
sta YLOC0 ;CHASSIS P0
lda #$B1
sta YLOC1 ;RUEDAS P1
ldy #$3
INSERT2
lda CABINA,Y ;Cabina P2
sta (YLOC2),Y
dey
bpl INSERT2
;CREA RADAR
lda #$E3
sta YLOC3 ;Posicion H. radar
ldy #15
lda #112
INSERT4
sta (YLOC3),Y ;Radar P3
dey
bpl INSERT4
lda #3
sta SIZEP3
COLOR_AUTOS
ldx #3
C1_PM
lda COLORAUTO,X
sta COLORPM,X
dex
bpl C1_PM
rts
;***** LIMPIA AREA DE P/M
CLR_PMG
lda #(>PLAYMISS+1)
sta YLOC0+1
lda #0
sta GRACTL ;Desactiva P/M
sta SIZEM
sta SIZEP0
sta SIZEP1
sta SIZEP2
sta SIZEP3
sta HPOSP0
sta HPOSP1
sta HPOSP2
sta HPOSP3
sta HPOSM0
sta HPOSM1
sta HPOSM2
sta HPOSM3
CLR2_PMG
sta YLOC0
tay
PMX ldx #7
C_CLRPMG
sta (YLOC0),Y
iny
bne C_CLRPMG
dex
beq J_CLRPMG
inc YLOC0+1 ;otra pagina
jmp C_CLRPMG
J_CLRPMG
rts
CABINA .BYTE 48,120,120,48
CHANORTE .BYTE 24,24,24,36,102,36,60,36
RUENORTE .BYTE 0,102,102,0,0,195,195,219
CHAESTE .BYTE 0,16,248,71,71,248,16,0
RUEESTE .BYTE 224,230,6,128,128,6,230,224
CHASUR .BYTE 36,60,36,102,36,24,24,24
RUESUR .BYTE 219,195,195,0,0,102,102,0
CHAOESTE .BYTE 0,8,31,226,226,31,8,0
RUEOESTE .BYTE 7,103,96,1,1,96,103,7
DIAG1A .BYTE 3,3,126,196,76,120,240,0
DIAG1B .BYTE 12,236,128,3,131,128,8,120
DIAG2A .BYTE 0,240,120,76,196,126,3,3
DIAG2B .BYTE 120,8,128,131,3,128,236,12
DIAG3A .BYTE 0,15,30,50,35,126,192,192
DIAG3B .BYTE 30,16,1,193,192,1,55,48
DIAG4A .BYTE 192,192,126,35,50,30,15,0
DIAG4B .BYTE 48,55,1,192,193,1,16,30
FUELP1 .BYTE 244,132,228,132,131
FUELP2 .BYTE 189,161,185,161,189
FUELM12 .BYTE 0,0,0,0,56
COLORAUTO .BYTE $74,$00,$0E,$00