Guest User

Untitled

a guest
Jul 18th, 2018
113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; ===========================================================================
  2. Obj02_Data: ; цифра и надпись Эггман
  3.         dc.b 0      ; система координат, 1 байт - , 1 бит -
  4.         dc.w $7A0   ; номер тайла в VRAM
  5.         dc.l Map_Obj02  ; маппинги
  6.         dc.w $0098, $150 ; X-координата, Y-координата
  7.         dc.b 2      ; номер кадра
  8.         dc.b $3C    ; задержка до удаления
  9.         dc.b 2      ; номер роутины
  10.         ; иконка Эггмана
  11.         dc.b 0
  12.         dc.w $7A0
  13.         dc.l Map_Obj02
  14.         dc.w $0098, $150
  15.         dc.b 0
  16.         dc.b $3C
  17.         dc.b 8
  18. ; ===========================================================================
  19.  
  20. Obj02_Main:             ; XREF: Obj02_Index
  21.         ; загрузка арта
  22.         move    #$2700,sr
  23.             lea ($C00000).l,a6  ; режим записи VRAM
  24.             vram    $F400       ; адрес, куда записываем изображение
  25.         lea (Art_Obj02).l,a1 ; загрузить арт
  26.         move.w  #$F,d1      ; количество тайлов
  27.         jsr LoadTiles   ; загрузить тайлы
  28.  
  29.         lea (Obj02_Data).l,a2
  30.         ; загрузка циферки
  31.         move.b  (a2)+,1(a0) ; на экране
  32.         move.w  (a2)+,2(a0) ; номер тайла в VRAM циферки
  33.         move.l  (a2)+,4(a0) ; маппинги
  34.         move.w  (a2)+,8(a0) ; X-координата
  35.         move.w  (a2)+,$A(a0)    ; Y-координата
  36.         move.b  (a2)+,$1A(a0)   ; номер кадра циферки
  37.         move.b  (a2)+,$29(a0)   ; задержка до удаления
  38.         move.b  (a2)+,$24(a0)   ; => Obj02_FindAddressBoss
  39.  
  40.         ; загрузка иконки
  41.         jsr SingleObjLoad
  42.         move.b  #2,0(a1)
  43.         move.b  (a2)+,1(a1) ; на экране
  44.         move.w  (a2)+,2(a1) ; номер тайла в VRAM циферки
  45.         move.l  (a2)+,4(a1) ; маппинги
  46.         move.w  (a2)+,8(a1) ; X-координата
  47.         move.w  (a2)+,$A(a1)    ; Y-координата
  48.         move.b  (a2)+,$1A(a1)   ; номер кадра иконки
  49.         move.b  (a2)+,$29(a1)   ; задержка до удаления
  50.         move.b  (a2)+,$24(a1)   ; => Obj02_Icon
  51.         rts
  52. ; ===========================================================================
Add Comment
Please, Sign In to add comment