autotests/input/highlight.asm-m68k

0001 map_collision_rom:
0002         dc.b 0,0,7,7
0003
0004 hud_tile:
0005         dc.w $6268,$6269,$6268,$6269
0006
0007 MAP_DATA1 macro
0008
0009         dc.w $4200+\2+(\1*$400),$4200+\2+2+(\1*$400)
0010         move.w  \2,Sprite+0+(8*\1)
0011
0012 endm
0013
0014         move.w  MarioArmy+0+6*\2,d0
0015         move.w  #$050B+2*\2,d1
0016
0017         cmp.w   #15,MarioAnim
0018         if_mi
0019                 addi.w  #$0800,d2
0020         endi
0021
0022         if_eq
0023
0024                 andi.w  #$01,d5
0025                 cmp.w   #$1,d5
0026                 if_ne
0027                         move.w  #$200,d0
0028                 endi
0029         endi
0030
0031         Draw_Sprite 0,Selecty,#$0501,SelectTile,Selectx
0032
0033         move.w  #$0030,d6
0034
0035         cmp.w #0,SelectChoix
0036
0037     ;Mario3 Menu
0038     Draw_Sprite 4,#$80+28,#$0505,d4,#$80+8*9
0039
0040         move.w  #1,d1
0041
0042         lea EnemyArmyDgt,a0
0043         lea EnemyArmy,a1
0044         move.w  #9,d0
0045         move.w  d4,d2
0046         subi.w  #$80,d2
0047         lsr.w   #4,d2
0048
0049         move.w d3,d7
0050         subi.w  #$C0,d7
0051         asr.w   #4,d7
0052         asl.w   #4,d7
0053
0054         move.l  a1,a2
0055         move.w  #0,(a2)+
0056         move.w  #$0,(a0)  ;remove de l'écran
0057
0058         move.l  a1,a2
0059         move.w  Selectx,(a2)+
0060         move.w  #$1,(a3) ;est a l'écran
0061         add.w   #$6,a3
0062
0063         org     $000000
0064         dc.l    $0,Main
0065         dc.l    INT,INT,INT,INT,INT,INT,INT
0066         dc.b    ' 00000000-00'                     ; Product code, version nu
0067 mber. 12 bytes long
0068         dc.w    $FDDB                              ; Checksum. 2 bytes long
0069         dc.b    'J               '                 ; I/O support. 16 bytes
0070         dc.l    $00000000,$00020000
0071         do
0072                 move.l  (a2)+,VDP_DATA
0073         while_dbra d0
0074
0075 if_ne   macro
0076         bne     L1\@!
0077 endm
0078
0079 _A      = 12
0080
0081     VDP_Port_VRAMW #$A000+(2*\2)+($40*\3)
0082
0083     lea     \1,a2
0084     move.w #3,d7
0085
0086 VDP_DATA        equ     $C00000
0087 VDP_CTRL        equ     $C00004