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