home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / Asm-Course2.lha / Teil12.TXT < prev    next >
Encoding:
Text File  |  1993-09-01  |  9.2 KB  |  406 lines
  1.           A S S E M B L E R - K U R S       (c)  Jeff Kandle 1990
  2.  
  3.                                 12.Teil...
  4.  
  5. So, direkt im Anschluss kommt die zweite versprochene Abspielroutine,
  6. diesaml die, die 2.3 Sounds abspielt.
  7. Tips am ende...
  8.  
  9. ;+++++++++++++++++++++++++++++++
  10. ;+++ Soundtracker 2.3 Player +++
  11. ;+++++++++++++++++++++++++++++++
  12.  
  13. mt_init:lea     mt_data(pc),a0
  14.         add.l   #$01d8,a0
  15.         move.l  #$0080,d0
  16.         moveq   #$00,d1
  17. mt_init1:
  18.         move.l  d1,d2
  19.         subq.w  #1,d0
  20. mt_init2:
  21.         move.b  (a0)+,d1
  22.         cmp.b   d2,d1
  23.         bgt.s   mt_init1
  24.         dbf     d0,mt_init2
  25.         addq.b  #1,d2
  26.  
  27. mt_init3:
  28.         lea     mt_data(pc),a0
  29.         lea     mt_sample1(pc),a1
  30.         asl.l   #$08,d2
  31.         asl.l   #$02,d2
  32.         add.l   #$0258,d2
  33.         add.l   a0,d2
  34.         moveq   #$0e,d0
  35. mt_init4:
  36.         move.l  d2,(a1)+
  37.         moveq   #$00,d1
  38.         move.w  42(a0),d1
  39.         asl.l   #1,d1
  40.         add.l   d1,d2
  41.         add.l   #$1e,a0
  42.         dbf     d0,mt_init4
  43.  
  44.         lea     mt_sample1(pc),a0
  45.         moveq   #$00,d0
  46. mt_clear:
  47.         move.l  (a0,d0),a1
  48.         clr.l   (a1)
  49.         addq.l  #4,d0
  50.         cmp.l   #$3c,d0
  51.         bne.s   mt_clear
  52.  
  53.         clr.w   $dff0a8
  54.         clr.w   $dff0b8
  55.         clr.w   $dff0c8
  56.         clr.w   $dff0d8
  57.         clr.l   mt_partnrplay
  58.         clr.l   mt_partnote
  59.         clr.l   mt_partpoint
  60.  
  61.         move.b  mt_data+$1d6,mt_maxpart+1
  62.         rts
  63.  
  64. mt_end: clr.w   $dff0a8
  65.         clr.w   $dff0b8
  66.         clr.w   $dff0c8
  67.         clr.w   $dff0d8
  68.         move.w  #$000f,$dff096
  69.         rts
  70.  
  71. mt_music:
  72.         addq.l  #1,mt_counter
  73. mt_cool:cmp.l   #6,mt_counter
  74.         bne.s   mt_notsix
  75.         clr.l   mt_counter
  76.         bra     mt_rout2
  77.  
  78. mt_notsix:
  79.         lea     mt_aud1temp(pc),a6
  80.         tst.b   3(a6)
  81.         beq.s   mt_arp1
  82.         lea     $dff0a0,a5
  83.         bsr.s   mt_arprout
  84. mt_arp1:lea     mt_aud2temp(pc),a6
  85.         tst.b   3(a6)
  86.         beq.s   mt_arp2
  87.         lea     $dff0b0,a5
  88.         bsr.s   mt_arprout
  89. mt_arp2:lea     mt_aud3temp(pc),a6
  90.         tst.b   3(a6)
  91.         beq.s   mt_arp3
  92.         lea     $dff0c0,a5
  93.         bsr.s   mt_arprout
  94. mt_arp3:lea     mt_aud4temp(pc),a6
  95.         tst.b   3(a6)
  96.         beq.s   mt_arp4
  97.         lea     $dff0d0,a5
  98.         bra.s   mt_arprout
  99. mt_arp4:rts
  100.  
  101. mt_arprout:
  102.         move.b  2(a6),d0
  103.         and.b   #$0f,d0
  104.         tst.b   d0
  105.         beq.s   mt_arpegrt
  106.         cmp.b   #1,d0
  107.         beq.s   mt_portup
  108.         cmp.b   #2,d0
  109.         beq.s   mt_portdwn
  110.         rts
  111.  
  112. mt_portup:
  113.         moveq   #$00,d0
  114.         move.b  3(a6),d0
  115.         sub.w   d0,22(a6)
  116.         cmp.w   #$71,22(a6)
  117.         bpl.s   mt_ok1
  118.         move.w  #$71,22(a6)
  119. mt_ok1: move.w  22(a6),6(a5)
  120.         rts
  121.  
  122. mt_portdwn:
  123.         moveq   #$00,d0
  124.         move.b  3(a6),d0
  125.         add.w   d0,22(a6)
  126.         cmp.w   #$358,22(a6)
  127.         bmi.s   mt_ok2
  128.         move.w  #$358,22(a6)
  129. mt_ok2: move.w  22(a6),6(a5)
  130.         rts
  131.  
  132. mt_arpegrt:
  133.         cmp.l   #1,mt_counter
  134.         beq.s   mt_loop2
  135.         cmp.l   #2,mt_counter
  136.         beq.s   mt_loop3
  137.         cmp.l   #3,mt_counter
  138.         beq.s   mt_loop4
  139.         cmp.l   #4,mt_counter
  140.         beq.s   mt_loop2
  141.         cmp.l   #5,mt_counter
  142.         beq.s   mt_loop3
  143.         rts
  144.  
  145. mt_loop2:
  146.         moveq   #$00,d0
  147.         move.b  3(a6),d0
  148.         lsr.b   #4,d0
  149.         bra.s   mt_cont
  150. mt_loop3:
  151.         moveq   #$00,d0
  152.         move.b  3(a6),d0
  153.         and.b   #$0f,d0
  154.         bra.s   mt_cont
  155. mt_loop4:
  156.         move.w  16(a6),d2
  157.         bra.s   mt_endpart
  158. mt_cont:
  159.         asl.w   #1,d0
  160.         moveq   #$00,d1
  161.         move.w  16(a6),d1
  162.         lea     mt_arpeggio(pc),a0
  163. mt_loop5:
  164.         move.w  (a0,d0),d2
  165.         cmp.w   (a0),d1
  166.         beq.s   mt_endpart
  167.         addq.l  #2,a0
  168.         bra.s   mt_loop5
  169. mt_endpart:
  170.         move.w  d2,6(a5)
  171.         rts
  172.  
  173. mt_rout2:
  174.         lea     mt_data(pc),a0
  175.         move.l  a0,a3
  176.         add.l   #$0c,a3
  177.         move.l  a0,a2
  178.         add.l   #$1d8,a2
  179.         add.l   #$258,a0
  180.         move.l  mt_partnrplay,d0
  181.         moveq   #$00,d1
  182.         move.b  (a2,d0),d1
  183.         asl.l   #$08,d1
  184.         asl.l   #$02,d1
  185.         add.l   mt_partnote,d1
  186.         move.l  d1,mt_partpoint
  187.         clr.w   mt_dmacon
  188.  
  189.         lea     $dff0a0,a5
  190.         lea     mt_aud1temp(pc),a6
  191.         bsr     mt_playit
  192.         lea     $dff0b0,a5
  193.         lea     mt_aud2temp(pc),a6
  194.         bsr     mt_playit
  195.         lea     $dff0c0,a5
  196.         lea     mt_aud3temp(pc),a6
  197.         bsr     mt_playit
  198.         lea     $dff0d0,a5
  199.         lea     mt_aud4temp(pc),a6
  200.         bsr     mt_playit
  201.         move.w  #$01f4,d0
  202. mt_rls: dbf     d0,mt_rls
  203.  
  204.         move.w  #$8000,d0
  205.         or.w    mt_dmacon,d0
  206.         move.w  d0,$dff096
  207.  
  208.         lea     mt_aud4temp(pc),a6
  209.         cmp.w   #1,14(a6)
  210.         bne.s   mt_voice3
  211.         move.l  10(a6),$dff0d0
  212.         move.w  #1,$dff0d4
  213. mt_voice3:
  214.         lea     mt_aud3temp(pc),a6
  215.         cmp.w   #1,14(a6)
  216.         bne.s   mt_voice2
  217.         move.l  10(a6),$dff0c0
  218.         move.w  #1,$dff0c4
  219. mt_voice2:
  220.         lea     mt_aud2temp(pc),a6
  221.         cmp.w   #1,14(a6)
  222.         bne.s   mt_voice1
  223.         move.l  10(a6),$dff0b0
  224.         move.w  #1,$dff0b4
  225. mt_voice1:
  226.         lea     mt_aud1temp(pc),a6
  227.         cmp.w   #1,14(a6)
  228.         bne.s   mt_voice0
  229.         move.l  10(a6),$dff0a0
  230.         move.w  #1,$dff0a4
  231. mt_voice0:
  232.         move.l  mt_partnote,d0
  233.         add.l   #$10,d0
  234.         move.l  d0,mt_partnote
  235.         cmp.l   #$400,d0
  236.         bne.s   mt_stop
  237. mt_higher:
  238.         clr.l   mt_partnote
  239.         addq.l  #1,mt_partnrplay
  240.         moveq   #$00,d0
  241.         move.w  mt_maxpart,d0
  242.         move.l  mt_partnrplay,d1
  243.         cmp.l   d0,d1
  244.         bne.s   mt_stop
  245.         clr.l   mt_partnrplay
  246.  
  247. mt_stop:tst.w   mt_status
  248.         beq.s   mt_stop2
  249.         clr.w   mt_status
  250.         bra.s   mt_higher
  251. mt_stop2:
  252.         rts
  253.  
  254. mt_playit:
  255.         move.l  (a0,d1),(a6)
  256.         addq.l  #4,d1
  257.         moveq   #$00,d2
  258.         move.b  2(a6),d2
  259.         and.b   #$f0,d2
  260.         lsr.b   #4,d2
  261.         tst.b   d2
  262.         beq.s   mt_nosamplechange
  263.  
  264.         moveq   #$00,d3
  265.         lea     mt_samples(pc),a1
  266.         move.l  d2,d4
  267.         asl.l   #2,d2
  268.         mulu    #$1e,d4
  269.         move.l  (a1,d2),4(a6)
  270.         move.w  (a3,d4),8(a6)
  271.         move.w  2(a3,d4),18(a6)
  272.         move.w  4(a3,d4),d3
  273.         tst.w   d3
  274.         beq.s   mt_displace
  275.         move.l  4(a6),d2
  276.         add.l   d3,d2
  277.         move.l  d2,4(a6)
  278.         move.l  d2,10(a6)
  279.         move.w  6(a3,d4),8(a6)
  280.         move.w  6(a3,d4),14(a6)
  281.         move.w  18(a6),8(a5)
  282.         bra.s   mt_nosamplechange
  283.  
  284. mt_displace:
  285.         move.l  4(a6),d2
  286.         add.l   d3,d2
  287.         move.l  d2,10(a6)
  288.         move.w  6(a3,d4),14(a6)
  289.         move.w  18(a6),8(a5)
  290. mt_nosamplechange:
  291.         tst.w   (a6)
  292.         beq.s   mt_retrout
  293.         move.w  (a6),16(a6)
  294.         move.w  20(a6),$dff096
  295.         move.l  4(a6),(a5)
  296.         move.w  8(a6),4(a5)
  297.         move.w  (a6),6(a5)
  298.         move.w  20(a6),d0
  299.         or.w    d0,mt_dmacon
  300.  
  301. mt_retrout:
  302.         tst.w   (a6)
  303.         beq.s   mt_nonewper
  304.         move.w  (a6),22(a6)
  305.  
  306. mt_nonewper:
  307.         move.b  2(a6),d0
  308.         and.b   #$0f,d0
  309.         cmp.b   #11,d0
  310.         beq.s   mt_posjmp
  311.         cmp.b   #12,d0
  312.         beq.s   mt_setvol
  313.         cmp.b   #13,d0
  314.         beq.s   mt_break
  315.         cmp.b   #14,d0
  316.         beq.s   mt_setfil
  317.         cmp.b   #15,d0
  318.         beq.s   mt_setspeed
  319.         rts
  320.  
  321. mt_posjmp:
  322.         not.w   mt_status
  323.         moveq   #$00,d0
  324.         move.b  3(a6),d0
  325.         subq.b  #$01,d0
  326.         move.l  d0,mt_partnrplay
  327.         rts
  328.  
  329. mt_setvol:
  330.         move.b  3(a6),8(a5)
  331.         rts
  332.  
  333. mt_break:
  334.         not.w   mt_status
  335.         rts
  336.  
  337. mt_setfil:
  338.         moveq   #$00,d0
  339.         move.b  3(a6),d0
  340.         and.b   #$01,d0
  341.         rol.b   #$01,d0
  342.         and.b   #$fd,$bfe001
  343.         or.b    d0,$bfe001
  344.         rts
  345.  
  346. mt_setspeed:
  347.         move.b  3(a6),d0
  348.         and.b   #$0f,d0
  349.         beq.s   mt_back
  350.         clr.l   mt_counter
  351.         move.b  d0,mt_cool+5
  352. mt_back:rts
  353.  
  354. mt_aud1temp:
  355.         blk.w   10,0
  356.         dc.w    $0001
  357.         blk.w   2,0
  358. mt_aud2temp:
  359.         blk.w   10,0
  360.         dc.w    $0002
  361.         blk.w   2,0
  362. mt_aud3temp:
  363.         blk.w   10,0
  364.         dc.w    $0004
  365.         blk.w   2,0
  366. mt_aud4temp:
  367.         blk.w   10,0
  368.         dc.w    $0008
  369.         blk.w   2,0
  370. mt_partnote:    dc.l    0
  371. mt_partnrplay:  dc.l    0
  372. mt_counter:     dc.l    0
  373. mt_partpoint:   dc.l    0
  374. mt_samples:dc.l 0
  375. mt_sample1:blk.l 15,0
  376. mt_maxpart:dc.w $0000
  377. mt_dmacon:dc.w  $0000
  378. mt_status:dc.w  $0000
  379.  
  380. mt_arpeggio:
  381. dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c
  382. dc.w $023a,$021a,$01fc,$01e0,$01c5,$01ac,$0194,$017d
  383. dc.w $0168,$0153,$0140,$012e,$011d,$010d,$00fe,$00f0
  384. dc.w $00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097
  385. dc.w $008f,$0087,$007f,$0078,$0071,$0000,$0000,$0000
  386.  
  387. >extern "name des Moduls",mt_data
  388.  
  389. mt_data:blk.b   laenge des moduls,0
  390.  
  391.  
  392. Einbauen muesst ihr die so wie die erste...das duerfte kein Problem sein,
  393. oder ?
  394.  
  395. Tip...Baut die Soundroutine nur ganz am Anfang eines Intros ein...dann
  396. ueberpueft ihr ob sie laeuft...Dann setzt ihr im oberen teil des Sources,
  397. vor die 3 MT_... aufrufe Semikolons, dann wird es vom Seka als
  398. Kommentarezeile gesehen und nicht assembliert, die Komplette
  399. Abspielroutine, ladet ihr immer nur mal kurz ein, wenn ihr einen Effekt
  400. lauffaehig habt..das erspart euch viel zeit...
  401.  
  402. Ich will kein Kapitel mehr dranhaengen, deshalb ist schon schluss fuer
  403. jetzt, werde aber sofort den naechsten Teil schreiben. Versprochen !!
  404.  
  405.                 Jeff Kandle
  406.