88 lines
1.8 KiB
Plaintext
88 lines
1.8 KiB
Plaintext
map_collision_rom:
|
|
dc.b 0,0,7,7
|
|
|
|
hud_tile:
|
|
dc.w $6268,$6269,$6268,$6269
|
|
|
|
MAP_DATA1 macro
|
|
|
|
dc.w $4200+\2+(\1*$400),$4200+\2+2+(\1*$400)
|
|
move.w \2,Sprite+0+(8*\1)
|
|
|
|
endm
|
|
|
|
move.w MarioArmy+0+6*\2,d0
|
|
move.w #$050B+2*\2,d1
|
|
|
|
cmp.w #15,MarioAnim
|
|
if_mi
|
|
addi.w #$0800,d2
|
|
endi
|
|
|
|
if_eq
|
|
|
|
andi.w #$01,d5
|
|
cmp.w #$1,d5
|
|
if_ne
|
|
move.w #$200,d0
|
|
endi
|
|
endi
|
|
|
|
Draw_Sprite 0,Selecty,#$0501,SelectTile,Selectx
|
|
|
|
move.w #$0030,d6
|
|
|
|
cmp.w #0,SelectChoix
|
|
|
|
;Mario3 Menu
|
|
Draw_Sprite 4,#$80+28,#$0505,d4,#$80+8*9
|
|
|
|
move.w #1,d1
|
|
|
|
lea EnemyArmyDgt,a0
|
|
lea EnemyArmy,a1
|
|
move.w #9,d0
|
|
move.w d4,d2
|
|
subi.w #$80,d2
|
|
lsr.w #4,d2
|
|
|
|
move.w d3,d7
|
|
subi.w #$C0,d7
|
|
asr.w #4,d7
|
|
asl.w #4,d7
|
|
|
|
move.l a1,a2
|
|
move.w #0,(a2)+
|
|
move.w #$0,(a0) ;remove de l'écran
|
|
|
|
move.l a1,a2
|
|
move.w Selectx,(a2)+
|
|
move.w #$1,(a3) ;est a l'écran
|
|
add.w #$6,a3
|
|
|
|
org $000000
|
|
dc.l $0,Main
|
|
dc.l INT,INT,INT,INT,INT,INT,INT
|
|
dc.b ' 00000000-00' ; Product code, version nu
|
|
mber. 12 bytes long
|
|
dc.w $FDDB ; Checksum. 2 bytes long
|
|
dc.b 'J ' ; I/O support. 16 bytes
|
|
dc.l $00000000,$00020000
|
|
do
|
|
move.l (a2)+,VDP_DATA
|
|
while_dbra d0
|
|
|
|
if_ne macro
|
|
bne L1\@!
|
|
endm
|
|
|
|
_A = 12
|
|
|
|
VDP_Port_VRAMW #$A000+(2*\2)+($40*\3)
|
|
|
|
lea \1,a2
|
|
move.w #3,d7
|
|
|
|
VDP_DATA equ $C00000
|
|
VDP_CTRL equ $C00004
|