Advertisement
Nightseeker

Sonic 2 Nick Arcade code fragment

Mar 17th, 2020
1,365
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     addsym
  2.     nolist
  3.     include "equ.lib"
  4.     include "macro.lib"
  5.     list
  6.  
  7.     xref    colichgpat
  8.     xref    ringpat,itempat,butapat,kanipat,hachipat,togepat
  9.     xref    fishpat,fish2pat,mogurapat,shimapat2,jyamapat
  10.     xref    musipat,sjumppat,kamerepat,arumapat,kagebpat,ballpat
  11.     xref    firepat,fblockpat,signalpat,bobinpat,yoganpat,yogan2pat
  12.     xref    usapat,yadopat,boxpat,bryukapat,daipat,break2pat,yogancpat
  13.     xref    batpat,z5daipat,dai2pat,switch2pat,z4daipat
  14.     xref    elevpat,pedalpat,steppat,funpat,sisoopat,hassyapat
  15.     xref    brobopat,unipat,yaripat,udaipat,dai3pat,kazaripat,kassyapat
  16.     xref    awapat,mizupat,boupat,benpat,fetamapat,mawarupat,hagurumapat
  17.     xref    patapat,yukafpat,nokopat,dai4pat,doorpat,yukaepat,fire6pat
  18.     xref    elepat,yukaipat,scolipat,imopat,savepat,bigringpat,btenpat
  19.     xref    actionsub,actwkchk,frameout,playpat,dualmodesub
  20.     xref    flicpat,usagipat,pengpat,azarpat,fbutapat,niwapat,risupat
  21.  
  22.     xref    kaitenpat,prodaipat,buranko0dpat
  23.     xref    frntlitpat,gempat,wfallpat,pltfrmpat
  24.     xref    takipat,banepat,dai00pat
  25.  
  26.     xref    redzpat,bfishpat,seahorsepat,horsepat
  27.     xref    stegopat,wasppat,gatorpat,bbatpat,octpat,wfish2pat,snailpat
  28.  
  29.     xdef    edit
  30.  
  31. ;------------------------------------------------------------------------------
  32. edit:
  33.     moveq   #0,d0
  34.     move.b  editmode,d0
  35.     move.w  edit_move_tbl(pc,d0.w),d1
  36.     jmp edit_move_tbl(pc,d1.w)
  37. edit_move_tbl:
  38.     dc.w    editinit-edit_move_tbl
  39.     dc.w    editmove-edit_move_tbl
  40. editinit:
  41.     addq.b  #word,editmode
  42.     move.w  scralim_up,editstack
  43.     move.w  scralim_n_down,editstack2
  44.     move.w  #$0000,scralim_up
  45.     move.w  #$0720,scralim_n_down
  46.     andi.w  #$07ff,playerwk+yposi
  47.     andi.w  #$07ff,scra_v_posit
  48.     andi.w  #$03ff,scrb_v_posit
  49.     move.b  #0,patno(a0)
  50.     move.b  #0,mstno(a0)
  51.     cmpi.b  #spgamemd,gmmode
  52.     bne.b   .jump0
  53. *   move.b  #7-1,stageno
  54. *   move.w  #$000,rotspd
  55. *   move.w  #$000,rotdir
  56.     moveq   #7-1,d0
  57.     bra.b   .jump1
  58. .jump0:
  59.     moveq   #0,d0
  60.     move.b  stageno,d0
  61. .jump1:
  62.     lea edittbl,a2
  63.     add.w   d0,d0
  64.     adda.w  (a2,d0.w),a2
  65.     move.w  (a2)+,d6
  66.     cmp.b   editno,d6
  67.     bhi.b   .jump
  68.     move.b  #0,editno
  69. .jump:
  70.     bsr.w   editpatchg
  71.     move.b  #12,edittimer
  72.     move.b  #1,edittimer+1
  73. editmove:
  74.     moveq   #7-1,d0
  75.     cmpi.b  #spgamemd,gmmode
  76.     beq.b   .jump
  77.     moveq   #0,d0
  78.     move.b  stageno,d0
  79. .jump:
  80.     lea edittbl,a2
  81.     add.w   d0,d0
  82.     adda.w  (a2,d0.w),a2
  83.     move.w  (a2)+,d6
  84.     bsr.w   editwalk
  85. *   bsr.w   dirsprset
  86.     jmp actionsub
  87. editwalk:
  88.     moveq   #0,d4
  89.     move.w  #1,d1
  90.     move.b  swdata1+1,d4
  91.     andi.w  #$0f,d4
  92.     bne.b   .jump0
  93.     move.b  swdata1,d0
  94.     andi.w  #$0f,d0
  95.     bne.b   .jump
  96.     move.b  #12,edittimer
  97.     move.b  #$0f,edittimer+1
  98.     bra.w   .lend
  99. .jump:
  100.     subq.b  #1,edittimer
  101.     bne.b   .jump1
  102.     move.b  #1,edittimer
  103.     addq.b  #1,edittimer+1
  104. *   cmpi.b  #255,edittimer+1
  105.     bne.b   .jump0
  106.     move.b  #255,edittimer+1
  107. .jump0:
  108.     move.b  swdata1,d4
  109. .jump1:
  110.     moveq   #0,d1
  111.     move.b  edittimer+1,d1
  112.     addq.w  #1,d1
  113.     swap    d1
  114.     asr.l   #4,d1
  115.     move.l  yposi(a0),d2
  116.     move.l  xposi(a0),d3
  117.     btst.l  #0,d4           *swdata+0
  118.     beq.b   .jump2
  119.     sub.l   d1,d2           *yposi
  120.     bcc.b   .jump2
  121.     moveq   #0,d2
  122. .jump2:
  123.     btst.l  #1,d4           *swdata+0
  124.     beq.b   .jump3
  125.     add.l   d1,d2           *yposi
  126.     cmpi.l  #$7ff0000,d2
  127.     bcs.b   .jump3
  128.     move.l  #$7ff0000,d2
  129. .jump3:
  130.     btst.l  #2,d4           *swdata+0
  131.     beq.b   .jump4
  132.     sub.l   d1,d3           *xposi
  133.     bcc.b   .jump4
  134.     moveq   #0,d3
  135. .jump4:
  136.     btst.l  #3,d4           *swdata+0
  137.     beq.b   .jump5
  138.     add.l   d1,d3           *xposi
  139. .jump5:
  140.     move.l  d2,yposi(a0)
  141.     move.l  d3,xposi(a0)
  142. .lend:
  143.     btst.b  #6,swdata1+0
  144.     beq.b   .jump7
  145.     btst.b  #5,swdata1+1        * c button check
  146.     beq.b   .jump77
  147.     subq.b  #1,editno
  148.     bcc.b   .jump6
  149.     add.b   d6,editno
  150.     bra.b   .jump6
  151. .jump77:
  152.     btst.b  #6,swdata1+1
  153.     beq.b   .jump7
  154.     addq.b  #1,editno
  155.     cmp.b   editno,d6
  156.     bhi.b   .jump6
  157.     move.b  #0,editno
  158. .jump6:
  159.     bra.w   editpatchg
  160. .jump7:
  161.     btst.b  #5,swdata1+1        * c button check
  162.     beq.b   .jump8
  163.     jsr actwkchk
  164.     bne.b   .worknai        ;z=0:ok z=1:no
  165.     move.w  xposi(a0),xposi(a1)
  166.     move.w  yposi(a0),yposi(a1)
  167.     move.b  patbase(a0),actno(a1)
  168.     move.b  actflg(a0),actflg(a1)
  169.     move.b  actflg(a0),cddat(a1)
  170.     andi.b  #$7f,cddat(a1)
  171.     moveq   #0,d0
  172.     move.b  editno,d0
  173.     lsl.w   #3,d0
  174.     move.b  4(a2,d0.w),userflag(a1)
  175.     rts
  176. .worknai:
  177. .jump8:
  178.     btst.b  #4,swdata1+1        * b button check
  179.     beq.b   .jump9
  180.     moveq   #0,d0
  181.     move.w  d0,editmode
  182.     move.l  #playpat,playerwk+patbase
  183.     move.w  #$0780,playerwk+sproffset
  184.     tst.w   dualmode        ; dual mode check
  185.     beq.b   .end
  186.     move.w  #$0780/2,playerwk+sproffset
  187. .end:
  188.     move.b  d0,playerwk+mstno
  189.     move.w  d0,xposi+2(a0)
  190.     move.w  d0,yposi+2(a0)
  191.     move.w  editstack,scralim_up
  192.     move.w  editstack2,scralim_n_down
  193.     cmpi.b  #spgamemd,gmmode
  194.     bne.b   .jump9
  195. *   clr.w   rotdir
  196. *   move.w  #$040,rotspd
  197. *   move.l  #playpat,playerwk+patbase
  198. *   move.w  #$0780,playerwk+sproffset
  199.     move.b  #02,playerwk+mstno
  200.     bset.b  #cd_ball,playerwk+cddat
  201.     bset.b  #cd_jump,playerwk+cddat
  202. .jump9:
  203.     rts
  204. editpatchg:
  205.     moveq   #0,d0
  206.     move.b  editno,d0
  207.     lsl.w   #3,d0
  208.     move.l  0(a2,d0.w),patbase(a0)
  209.     move.w  6(a2,d0.w),sproffset(a0)
  210.     move.b  5(a2,d0.w),patno(a0)
  211. *   move.b  4(a2,d0.w),userflag(a0)
  212.     bsr.w   dualmodesub
  213.     rts
  214.  
  215. dcblw   macro   \1,\2,\3,\4,\5
  216.     dc.l    (\1)*$1000000+(\2)
  217.     dc.w    (\4)+(\5)*$100
  218.     dc.w    (\3)
  219.     endm
  220.  
  221. edittbl:
  222.     dc.w    edit1tbl-edittbl
  223.     dc.w    edit2tbl-edittbl
  224.     dc.w    edit3tbl-edittbl
  225.     dc.w    edit4tbl-edittbl
  226.     dc.w    edit5tbl-edittbl
  227.     dc.w    edit6tbl-edittbl
  228.     dc.w    edit7tbl-edittbl
  229. edit1tbl:
  230.     dc.w    14
  231.     dcblw   ring_act,ringpat,$26bc,0,$00        ;1:
  232.     dcblw   item_act,itempat,$0680,0,$00        ;2:
  233.     dcblw   kani_act,kanipat,$0400,0,$00        ;3:
  234.     dcblw   hachi_act,hachipat,$0444,0,$00      ;4:
  235.     dcblw   fish_act,fishpat,$0470,0,$00        ;5:
  236.     dcblw   toge_act,togepat,$04a0,0,$00        ;6:
  237.     dcblw   shima_act,shimapat2,$4000,0,$00     ;7:
  238.     dcblw   jyama_act,jyamapat,$66c0,0,$00      ;8:
  239.     dcblw   musi_act,musipat,$04e0,0,$00        ;9:
  240.     dcblw   sjump_act,sjumppat,$04a8,0,$00      ;10:
  241.     dcblw   kamere_act,kamerepat,$249b,0,$00    ;11:
  242.     dcblw   kageb_act,kagebpat,$434c,0,$00      ;12:
  243.     dcblw   save_act,savepat,$26bc,0,$01        ;13:
  244.     dcblw   colichg_act,colichgpat,$26bc,0,$00  ;14:
  245.  
  246. edit2tbl:
  247. edit3tbl:
  248. ;zone0d
  249.     dc.w    07
  250.     dcblw   ring_act,ringpat,$26bc,0,$00        ;01:
  251.     dcblw   item_act,itempat,$0680,0,$00        ;02:
  252.     dcblw   sjump_act,sjumppat,$04a8,0,$00      ;03:
  253.     dcblw   colichg_act,colichgpat,$07bc,0,$00  ;04:
  254.     dcblw   kaiten_act,kaitenpat,$e000,0,$00    ;05:
  255.     dcblw   prodai_act,prodaipat,$e418,0,$00    ;06:
  256.     dcblw   buranko_act,buranko0dpat,$2418,0,$08    ;07:
  257.  
  258. edit4tbl:
  259. ;zone00
  260.     dc.w    18
  261.     dcblw   ring_act,ringpat,$26bc,0,$00        ;1:
  262.     dcblw   item_act,itempat,$0680,0,$00        ;2:
  263.     dcblw   save_act,savepat,$047c,0,$01        ;3:
  264.  
  265.     dcblw   colichg_act,colichgpat,$26bc,0,$00  ;6:
  266.     dcblw   taki_act,takipat,$23ae,0,$00        ;7:
  267.     dcblw   taki_act,takipat,$23ae,3,$02        ;7:
  268.     dcblw   shima_act,dai00pat,$4000,0,$01      ;8:
  269.     dcblw   shima_act,dai00pat,$4000,1,$0a      ;8:
  270.     dcblw   toge_act,togepat,$2434,0,$00        ;10:
  271.     dcblw   sisoo_act,sisoopat,$03ce,0,$00      ;9:
  272.  
  273.     dcblw   sjump_act,banepat,$045c,0,$80       ;3: banev
  274.     dcblw   sjump_act,banepat,$0470,3,$90       ;3: baneh
  275.     dcblw   sjump_act,banepat,$045c,6,$a0       ;3: banevr
  276.     dcblw   sjump_act,banepat,$043c,7,$30       ;3: bane45
  277.     dcblw   sjump_act,banepat,$043c,10,$40      ;3: bane45r
  278.  
  279.     dcblw   wasp_act,wasppat,$03e6,0,$00        ;25   ""    ""
  280.     dcblw   snail_act,snailpat,$0402,0,$00      ;25   ""    ""
  281.     dcblw   wfish2_act,wfish2pat,$041c,0,$00    ;21   ""    ""
  282.  
  283.  
  284.  
  285.     dcblw   redz_act,redzpat,$0500,0,$00        ;20: will change
  286.     dcblw   bfish_act,bfishpat,$2530,0,$00      ;21   ""    ""
  287.     dcblw   seahorse_act,horsepat,$2570,0,$00   ;22   ""    ""
  288.     dcblw   skyhorse_act,horsepat,$2570,0,$00   ;23   ""    ""
  289.     dcblw   stego_act,stegopat,$23c4,0,$00      ;24   ""    ""
  290.     dcblw   wasp_act,wasppat,$032c,0,$00        ;25   ""    ""
  291.     dcblw   gator_act,gatorpat,$2300,0,$00      ;26   ""    ""
  292.     dcblw   bbat_act,bbatpat,$2350,0,$00        ;27   ""    ""
  293.     dcblw   oct_act,octpat,$238a,0,$00      ;28   ""    ""
  294.  
  295. edit5tbl:
  296. edit6tbl:
  297. edit7tbl:
  298. ;zone08
  299.     dc.w    15
  300.     dcblw   ring_act,ringpat,$26bc,0,$00        ;1:
  301.     dcblw   item_act,itempat,$0680,0,$00        ;2:
  302.  
  303.     dcblw   bgspr_act,frntlitpat,$e485,3,$21    ;3:
  304.     dcblw   wfall_act,wfallpat,$e415,4,$04      ;4:
  305.     dcblw   break_act,pltfrmpat,$4475,0,$00     ;5:
  306.     dcblw   colichg_act,colichgpat,$26bc,0,$00  ;6:
  307.  
  308.     dcblw   redz_act,redzpat,$0500,0,$00        ;20: will change
  309.     dcblw   bfish_act,bfishpat,$2530,0,$00      ;21   ""    ""
  310.     dcblw   seahorse_act,horsepat,$2570,0,$00   ;22   ""    ""
  311.     dcblw   skyhorse_act,horsepat,$2570,0,$00   ;23   ""    ""
  312.     dcblw   stego_act,stegopat,$23c4,0,$00      ;24   ""    ""
  313.     dcblw   wasp_act,wasppat,$032c,0,$00        ;25   ""    ""
  314.     dcblw   gator_act,gatorpat,$2300,0,$00      ;26   ""    ""
  315.     dcblw   bbat_act,bbatpat,$2350,0,$00        ;27   ""    ""
  316.     dcblw   oct_act,octpat,$238a,0,$00      ;28   ""    ""
  317.  
  318. ;------------------------------------------------------------------------------
  319.     align
  320. ;------------------------------------------------------------------------------
  321.     end
  322.  
  323.  
  324. edit2tbl:
  325.     dc.w    25
  326.     dcblw   ring_act,ringpat,$26bc,0,$00        ;1:
  327.     dcblw   item_act,itempat,$0680,0,$00        ;2:
  328.     dcblw   sjump_act,sjumppat,$0523,0,$00      ;3:
  329.     dcblw   fish2_act,fish2pat,$2486,0,$08      ;4:
  330.     dcblw   mogura_act,mogurapat,$84a6,2,$00    ;5:
  331.     dcblw   yari_act,yaripat,$03cc,0,$00        ;6:
  332.     dcblw   yari_act,yaripat,$03cc,3,$02        ;7:
  333.     dcblw   box_act,boxpat,$43de,0,$00      ;8:
  334.     dcblw   switch2_act,switch2pat,$0513,0,$00  ;9:
  335.     dcblw   toge_act,togepat,$051b,0,$00        ;10:
  336.     dcblw   dai_act,udaipat,$43bc,0,$04     ;11:
  337.     dcblw   dai3_act,dai3pat,$43e6,0,$01        ;12:
  338.     dcblw   dai3_act,dai3pat,$43e6,1,$13        ;13:
  339.     dcblw   dai3_act,dai3pat,$43e6,0,$05        ;14:
  340.     dcblw   kazari_act,kazaripat,$443e,0,$00    ;15:
  341.     dcblw   dai3_act,dai3pat,$43e6,2,$27        ;16:
  342.     dcblw   dai3_act,dai3pat,$43e6,3,$30        ;17:
  343.     dcblw   kassya_act,kassyapat,$03f6,0,$7f    ;18:
  344.     dcblw   uni_act,unipat,$0467,0,$00      ;19:
  345.     dcblw   awa_act,awapat,$8348,19,$84     ;20:
  346.     dcblw   mizu_act,mizupat,$c259,2,$02        ;21:
  347.     dcblw   mizu_act,mizupat,$c259,9,$09        ;22:
  348.     dcblw   bou_act,boupat,$43de,0,$00      ;23:
  349.     dcblw   ben_act,benpat,$4328,0,$02      ;24:
  350.     dcblw   save_act,savepat,$26bc,0,$01        ;25:
  351.  
  352. *   dcblw   dai4_act,dai4pat,$41f0,4,$80        ;25:
  353. edit3tbl:
  354.     dc.w    18
  355.     dcblw   ring_act,ringpat,$26bc,0,$00        ;1:
  356.     dcblw   item_act,itempat,$0680,0,$00        ;2:
  357.     dcblw   hachi_act,hachipat,$0444,0,$00      ;3:
  358.     dcblw   toge_act,togepat,$051b,0,$00        ;4:
  359.     dcblw   sjump_act,sjumppat,$0523,0,$00      ;5:
  360.     dcblw   mfire_act,firepat,$0345,0,$00       ;6:
  361.     dcblw   fblock_act,fblockpat,$4000,0,$00    ;7:
  362.     dcblw   myogan_act,yoganpat,$63a8,0,$00     ;8:
  363.     dcblw   yogan2_act,yogan2pat,$63a8,0,$00    ;9:
  364.     dcblw   box_act,boxpat,$42b8,0,$00      ;10:
  365.     dcblw   yado_act,yadopat,$247b,0,$00        ;11:
  366.     dcblw   bryuka_act,bryukapat,$42b8,0,$00    ;12:
  367.     dcblw   dai_act,daipat,$02b8,0,$00      ;13:
  368.     dcblw   break2_act,break2pat,$62b8,0,$00    ;14:
  369.     dcblw   yoganc_act,yogancpat,$8680,0,$00    ;15:
  370.     dcblw   bat_act,batpat,$04b8,0,$00      ;16:
  371.     dcblw   imo_act,imopat,$24ff,0,$00      ;17:
  372.     dcblw   save_act,savepat,$26bc,0,$01        ;18:
  373. edit4tbl:
  374.     dc.w    15
  375.     dcblw   ring_act,ringpat,$26bc,0,$00        ;1:
  376.     dcblw   item_act,itempat,$0680,0,$00        ;2:
  377.     dcblw   elev_act,elevpat,$4000,0,$00        ;3:
  378.     dcblw   break2_act,break2pat,$44e0,2,$00    ;4:
  379.     dcblw   shima_act,z4daipat,$4000,0,$00      ;5:
  380.     dcblw   pedal_act,pedalpat,$4000,0,$00      ;6:
  381.     dcblw   step_act,steppat,$4000,0,$00        ;7:
  382.     dcblw   fun_act,funpat,$43a0,0,$00      ;8:
  383.     dcblw   sisoo_act,sisoopat,$0374,0,$00      ;9:
  384.     dcblw   sjump_act,sjumppat,$0523,0,$00      ;10:
  385.     dcblw   mfire_act,firepat,$0480,0,$00       ;11:
  386.     dcblw   bgspr_act,hassyapat,$44d8,0,$00     ;12:
  387.     dcblw   brobo_act,brobopat,$0400,0,$00      ;13:
  388.     dcblw   uni_act,unipat,$2429,0,$00      ;14:
  389.     dcblw   save_act,savepat,$26bc,0,$01        ;15:
  390. edit5tbl:
  391.     dc.w    15
  392.     dcblw   ring_act,ringpat,$26bc,0,$00        ;1:
  393.     dcblw   item_act,itempat,$0680,0,$00        ;2:
  394.     dcblw   toge_act,togepat,$051b,0,$00        ;3:
  395.     dcblw   sjump_act,sjumppat,$0523,0,$00      ;4:
  396.     dcblw   aruma_act,arumapat,$04b8,0,$00      ;5:
  397.     dcblw   signal_act,signalpat,$0000,0,$00    ;6:
  398.     dcblw   bobin_act,bobinpat,$0380,0,$00      ;7:
  399.     dcblw   kani_act,kanipat,$0400,0,$00        ;8:
  400.     dcblw   hachi_act,hachipat,$0444,0,$00      ;9:
  401.     dcblw   yado_act,yadopat,$247b,0,$00        ;10:
  402.     dcblw   shima_act,z5daipat,$4000,0,$00      ;11:
  403.     dcblw   dai2_act,dai2pat,$4000,0,$00        ;12:
  404.     dcblw   switch2_act,switch2pat,$0513,0,$00  ;13:
  405.     dcblw   imo_act,imopat,$24ff,0,$00      ;14:
  406.     dcblw   save_act,savepat,$26bc,0,$01        ;15:
  407. edit6tbl:
  408.     dc.w    29
  409.     dcblw   ring_act,ringpat,$26bc,0,$00        ;1:
  410.     dcblw   item_act,itempat,$0680,0,$00        ;2:
  411.     dcblw   brobo_act,brobopat,$0400,0,$00      ;3:
  412.     dcblw   uni_act,unipat,$0429,0,$00      ;4:
  413.     dcblw   imo_act,imopat,$22b0,0,$00      ;5:
  414.     dcblw   buranko_act,fetamapat,$4391,2,$07   ;6:
  415.     dcblw   haguruma_act,hagurumapat,$c344,00,$e0   ;7:
  416.     dcblw   dai_act,daipat,$22c0,2,$28      ;8:
  417.     dcblw   switch2_act,switch2pat,$0513,0,$00  ;9:
  418.     dcblw   pata_act,patapat,$4492,0,$03        ;10:
  419.     dcblw   pata_act,yukafpat,$04df,0,$83       ;11:
  420.     dcblw   noko_act,nokopat,$43b5,0,$02        ;12:
  421.     dcblw   break2_act,break2pat,$43f5,0,$00    ;13:
  422.     dcblw   dai_act,daipat,$4460,3,$39      ;14:
  423.     dcblw   dai4_act,dai4pat,$22c0,0,$00        ;15:
  424.     dcblw   door_act,doorpat,$42e8,0,$00        ;16:
  425.     dcblw   dai4_act,dai4pat,$22c0,1,$13        ;17:
  426.     dcblw   noko_act,nokopat,$43b5,0,$01        ;18:
  427.     dcblw   dai4_act,dai4pat,$22c0,1,$24        ;19:
  428.     dcblw   noko_act,nokopat,$43b5,2,$04        ;20:
  429.     dcblw   dai4_act,dai4pat,$22c0,1,$34        ;21:
  430.     dcblw   yukae_act,yukaepat,$44c3,0,$00      ;22:
  431.     dcblw   fire6_act,fire6pat,$83d9,0,$64      ;23:
  432.     dcblw   fire6_act,fire6pat,$83d9,11,$64     ;24:
  433.     dcblw   ele_act,elepat,$047e,0,$04      ;25:
  434.     dcblw   yukai_act,yukaipat,$42f0,0,$00      ;26:
  435.     dcblw   scoli_act,scolipat,$8680,0,$11      ;27:
  436.     dcblw   buta_act,butapat,$2302,0,$04        ;28:
  437.     dcblw   save_act,savepat,$26bc,0,$01        ;29:
  438.  
  439. *   dcblw   ring_act,playpat,$0780,50,$00       ;28:
  440. *   dcblw   usa_act,usapat,$0448,0,$00      ;5:
  441. *   dcblw   mawaru_act,mawarupat,$4348,16,$00   ;7:
  442.  
  443. edit7tbl:
  444.     dc.w    02  *13
  445.     dcblw   ring_act,ringpat,$26bc,0,$00        ;1:
  446.     dcblw   ring_act,ringpat,$26bc,8,$00        ;2:
  447. *   dcblw   bobin_act,bobinpat,$0380,0,$00      ;2:
  448. *   dcblw   usagi_act,flicpat,$05a0,0,$0a       ;3
  449. *   dcblw   usagi_act,flicpat,$05a0,0,$0b       ;4
  450. *   dcblw   usagi_act,flicpat,$05a0,0,$0c       ;5
  451. *   dcblw   usagi_act,usagipat,$0553,0,$0d      ;6
  452. *   dcblw   usagi_act,usagipat,$0553,0,$0e      ;7
  453. *   dcblw   usagi_act,pengpat,$0573,0,$0f       ;8
  454. *   dcblw   usagi_act,pengpat,$0573,0,$10       ;9
  455. *   dcblw   usagi_act,azarpat,$0585,0,$11       ;10
  456. *   dcblw   usagi_act,fbutapat,$0593,0,$12      ;11
  457. *   dcblw   usagi_act,niwapat,$0565,0,$13       ;12
  458. *   dcblw   usagi_act,risupat,$05b3,0,$14       ;13
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement