Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; ===========================================================================
- Obj02_Data: ; цифра и надпись Эггман
- dc.b 0 ; система координат, 1 байт - , 1 бит -
- dc.w $7A0 ; номер тайла в VRAM
- dc.l Map_Obj02 ; маппинги
- dc.w $0098, $150 ; X-координата, Y-координата
- dc.b 2 ; номер кадра
- dc.b $3C ; задержка до удаления
- dc.b 2 ; номер роутины
- ; иконка Эггмана
- dc.b 0
- dc.w $7A0
- dc.l Map_Obj02
- dc.w $0098, $150
- dc.b 0
- dc.b $3C
- dc.b 8
- ; ===========================================================================
- Obj02_Main: ; XREF: Obj02_Index
- ; загрузка арта
- move #$2700,sr
- lea ($C00000).l,a6 ; режим записи VRAM
- vram $F400 ; адрес, куда записываем изображение
- lea (Art_Obj02).l,a1 ; загрузить арт
- move.w #$F,d1 ; количество тайлов
- jsr LoadTiles ; загрузить тайлы
- lea (Obj02_Data).l,a2
- ; загрузка циферки
- move.b (a2)+,1(a0) ; на экране
- move.w (a2)+,2(a0) ; номер тайла в VRAM циферки
- move.l (a2)+,4(a0) ; маппинги
- move.w (a2)+,8(a0) ; X-координата
- move.w (a2)+,$A(a0) ; Y-координата
- move.b (a2)+,$1A(a0) ; номер кадра циферки
- move.b (a2)+,$29(a0) ; задержка до удаления
- move.b (a2)+,$24(a0) ; => Obj02_FindAddressBoss
- ; загрузка иконки
- jsr SingleObjLoad
- move.b #2,0(a1)
- move.b (a2)+,1(a1) ; на экране
- move.w (a2)+,2(a1) ; номер тайла в VRAM циферки
- move.l (a2)+,4(a1) ; маппинги
- move.w (a2)+,8(a1) ; X-координата
- move.w (a2)+,$A(a1) ; Y-координата
- move.b (a2)+,$1A(a1) ; номер кадра иконки
- move.b (a2)+,$29(a1) ; задержка до удаления
- move.b (a2)+,$24(a1) ; => Obj02_Icon
- rts
- ; ===========================================================================
Add Comment
Please, Sign In to add comment