Guest User

Untitled

a guest
Apr 27th, 2018
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. mt_FunkIt
  2.     TST.B   mt_counter
  3.     BNE mt_Return2
  4.     MOVE.B  n_cmdlo(A6),D0
  5.     AND.B   #$0F,D0
  6.     LSL.B   #4,D0
  7.     AND.B   #$0F,n_glissfunk(A6)
  8.     OR.B    D0,n_glissfunk(A6)
  9.     TST.B   D0
  10.     BEQ mt_Return2
  11. mt_UpdateFunk
  12.     MOVEM.L A0/D1,-(SP)
  13.     MOVEQ   #0,D0
  14.     MOVE.B  n_glissfunk(A6),D0
  15.     LSR.B   #4,D0
  16.     BEQ.S   mt_funkend
  17.     LEA mt_FunkTable(PC),A0
  18.     MOVE.B  (A0,D0.W),D0
  19.     ADD.B   D0,n_funkoffset(A6)
  20.     BTST    #7,n_funkoffset(A6)
  21.     BEQ.S   mt_funkend
  22.     CLR.B   n_funkoffset(A6)
  23.  
  24.     MOVE.L  n_loopstart(A6),D0
  25.     MOVEQ   #0,D1
  26.     MOVE.W  n_replen(A6),D1
  27.     ADD.L   D1,D0
  28.     ADD.L   D1,D0
  29.     MOVE.L  n_wavestart(A6),A0
  30.     ADDQ.L  #1,A0
  31.     CMP.L   D0,A0
  32.     BLO.S   mt_funkok
  33.     MOVE.L  n_loopstart(A6),A0
  34. mt_funkok
  35.     MOVE.L  A0,n_wavestart(A6)
  36.     MOVEQ   #-1,D0
  37.     SUB.B   (A0),D0
  38.     MOVE.B  D0,(A0)
  39. mt_funkend
  40.     MOVEM.L (SP)+,A0/D1
  41.     RTS
  42.  
  43.  
  44. mt_FunkTable dc.b 0,5,6,7,8,10,11,13,16,19,22,26,32,43,64,128
Add Comment
Please, Sign In to add comment