home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 42 / af042b.adf / Extensions.lha / _music.s < prev    next >
Text File  |  1992-02-21  |  89KB  |  4,370 lines
  1. ;---------------------------------------------------------------------
  2. ;    **   **   **  ***   ***   ****     **    ***  **  ****
  3. ;   ****  *** *** ** ** **     ** **   ****  **    ** **  **
  4. ;  **  ** ** * ** ** **  ***   *****  **  **  ***  ** **
  5. ;  ****** **   ** ** **    **  **  ** ******    ** ** **
  6. ;  **  ** **   ** ** ** *  **  **  ** **  ** *  ** ** **  **
  7. ;  **  ** **   **  ***   ***   *****  **  **  ***  **  ****
  8. ;---------------------------------------------------------------------
  9. ; Music extension source code, Last change 10/02/1992
  10. ; By Francois Lionet
  11. ; StarTrecker adaptation by Gary Simon & F.L.
  12. ; AMOS and AMOS Compiler (c) Europress Software 1991
  13. ; To be used with AMOS1.3 and over
  14. ;--------------------------------------------------------------------- 
  15. ; This file is public domain
  16. ;---------------------------------------------------------------------
  17. *
  18. Version        MACRO
  19.         dc.b    "1.54"
  20.         ENDM
  21. *
  22. ;
  23. ; This listing explains how to create an extension for both AMOS and the
  24. ; AMOS compiler. Two possibilities for you:
  25. ;   - You have already made an extension for AMOS 1.2 versions, you'll 
  26. ;     have to re-write your code to have them work with AMOS 1.3 and the
  27. ;     compiler. Do not panic, as it is not a big deal.
  28. ;   - This is the first extension you write. Please ignore the text 
  29. ;     referencing to the old extension system.
  30. ;
  31. ; >>> What's an extension?
  32. ;
  33. ; An extension to AMOS is a machine language program that adds new 
  34. ; instructions to the already huge AMOS instruction set. This system is
  35. ; designed to be as powerfull as AMOS itself: the extension includes its 
  36. ; own token list, its own routines. It can even access some main AMOS
  37. ; routines via special macros. It has a total access to the internal AMOS 
  38. ; data zone, and to the graphic library functions.
  39. ;
  40. ; To produce your own extension, I suggest you copy and rename this
  41. ; file, and remove the used code. This way you will not forgive one line.
  42. ; Also keep in mind that you can perfectly call AMOS from within MONAM2,
  43. ; and set some ILLEGAL instructions where you want to debug. To flip back to
  44. ; MONAM2 display, just press AMIGA-A.
  45. ;
  46. ; I have designed the extension system so that one only file works with 
  47. ; both AMOS interpretor and compiler. 
  48. ;     - The extension is more a compiler library than a one chunk program:
  49. ;    it is done so that the compiler can pick one routine here and there
  50. ;    to cope with the program it is compiling.
  51. ;    - AMOS 1.3 extension loader works a little like the compiler, exept
  52. ;    that all instructions are loaded and relocated.
  53. ;
  54. ; This code was assembled with GENIM2 on a A3000 25 Mhz machine, but a
  55. ; A500 can do it very well!
  56. ; The assembled program must be ONE CHUNK only, you must not link the 
  57. ; the symbol table with it. Also be sure that you program is totally 
  58. ; relocatable (see later) : if not it will add a relocation chunk to 
  59. ; the output code, and your extension will simply crash AMOS on loading
  60. ; (and the compiler too!).
  61.  
  62. **********************************************************************
  63. ;
  64. ; Here we go now!
  65. ;
  66. ; Here comes the number of the extension in the list of extensions in
  67. ; Config1_3.AMOS program (minus one).
  68. ; This number is used later to reference the extension in internal AMOS 
  69. ; tables...
  70. ;
  71. ExtNb        equ    1-1
  72.  
  73. ; You must include all this files, they can be found in the folder where
  74. ; you found this program. Do not remove the RsSet instruction!
  75.          Include    "_Equ.s"
  76.         RsSet    DataLong
  77.         Include "_Pointe.s"
  78.         Include "_CEqu.s"
  79.         Include    "_WEqu.s"
  80.         Include    "_LEqu.s"
  81.  
  82. ; A usefull macro to find the address of data in the extension's own 
  83. ; datazone (see later)...
  84. DLea        MACRO
  85.         move.l    ExtAdr+ExtNb*16(a5),\2
  86.         add.w    #\1-MB,\2
  87.         ENDM
  88.  
  89. ; Another macro to load the base address of the datazone...
  90. DLoad        MACRO
  91.         move.l    ExtAdr+ExtNb*16(a5),\1
  92.         ENDM
  93.  
  94. ; Now some equates used by the music extension itself. Ignore this in your
  95. ; code!
  96.  
  97. Translate    equ -30
  98.  
  99. *************** Enveloppes definitions
  100.         RsReset
  101. EnvNb:        rs.w    1
  102. EnvDVol:    rs.w    1
  103. EnvVol:        rs.l    1
  104. EnvDelta:    rs.l     1
  105. EnvAd:        rs.l    1
  106. EnvDeb:        rs.l    1
  107. EnvLong:    equ     __Rs
  108.  
  109. *************** Wave definition
  110. LWave:        equ     256+128+64+32+16+8+4+2
  111.     LNoise:        equ     LWave
  112.         RsReset
  113. WaveNext:    rs.l    1
  114. WaveNb:        rs.w    1
  115. WaveEnv:    rs.w    16*2
  116. WaveDeb:    rs.b    LWave
  117. WaveLong:    equ     __Rs
  118.  
  119. *************** Music voice data
  120.         RsReset
  121. VoiAdr        rs.l    1
  122. VoiDeb        rs.l    1
  123. VoiInst        rs.l    1
  124. VoiDPat        rs.l    1
  125. VoiPat        rs.l    1
  126. VoiCpt        rs.w    1
  127. VoiRep        rs.w    1
  128. VoiNote        rs.w    1
  129. VoiDVol        rs.w    1
  130. VoiVol        rs.w    1
  131. VoiEffect    rs.l    1
  132. VoiValue    rs.w    1
  133. VoiPToTo    rs.w    1
  134. VoiPTone    rs.b    1
  135. VoiVib        rs.b    1
  136. VoiLong        equ     __Rs
  137.  
  138. *************** MUBASE table
  139.         RsReset
  140. * Voix 0
  141. MuVoix0        equ    __Rs
  142. VoiAdr0        rs.l    1
  143. VoiDeb0        rs.l    1
  144. VoiInst0    rs.l    1
  145. VoiDPat0    rs.l    1
  146. VoiPat0        rs.l    1
  147. VoiCpt0        rs.w    1
  148. VoiRep0        rs.w    1
  149. VoiNote0    rs.w    1
  150. VoiDVol0    rs.w    1
  151. VoiVol0        rs.w    1
  152. VoiEffect0    rs.l    1
  153. VoiValue0    rs.w    1
  154. VoiPToTo0    rs.w    1
  155. VoiPTone0    rs.b    1
  156. VoiVib0        rs.b    1
  157. * Voix 1
  158. MuVoix1        equ    __Rs
  159. VoiAdr1        rs.l    1
  160. VoiDeb1        rs.l    1
  161. VoiInst1    rs.l    1
  162. VoiDPat1    rs.l    1
  163. VoiPat1        rs.l    1
  164. VoiCpt1        rs.w    1
  165. VoiRep1        rs.w    1
  166. VoiNote1    rs.w    1
  167. VoiDVol1    rs.w    1
  168. VoiVol1        rs.w    1
  169. VoiEffect1    rs.l    1
  170. VoiValue1    rs.w    1
  171. VoiPToTo1    rs.w    1
  172. VoiPTone1    rs.b    1
  173. VoiVib1        rs.b    1
  174. * Voix 2
  175. MuVoix2        equ    __Rs
  176. VoiAdr2        rs.l    1
  177. VoiDeb2        rs.l    1
  178. VoiInst2    rs.l    1
  179. VoiDPat2    rs.l    1
  180. VoiPat2        rs.l    1
  181. VoiCpt2        rs.w    1
  182. VoiRep2        rs.w    1
  183. VoiNote2    rs.w    1
  184. VoiDVol2    rs.w    1
  185. VoiVol2        rs.w    1
  186. VoiEffect2    rs.l    1
  187. VoiValue2    rs.w    1
  188. VoiPToTo2    rs.w    1
  189. VoiPTone2    rs.b    1
  190. VoiVib2        rs.b    1
  191. * Voix 3
  192. MuVoix3        equ    __Rs
  193. VoiAdr3        rs.l    1
  194. VoiDeb3        rs.l    1
  195. VoiInst3    rs.l    1
  196. VoiDPat3    rs.l    1
  197. VoiPat3        rs.l    1
  198. VoiCpt3        rs.w    1
  199. VoiRep3        rs.w    1
  200. VoiNote3    rs.w    1
  201. VoiDVol3    rs.w    1
  202. VoiVol3        rs.w    1
  203. VoiEffect3    rs.l    1
  204. VoiValue3    rs.w    1
  205. VoiPToTo3    rs.w    1
  206. VoiPTone3    rs.b    1
  207. VoiVib3        rs.b    1
  208.  
  209. * Other data
  210. MuCpt        rs.w    1
  211. MuTempo        rs.w    1
  212. MuStart        rs.w    1
  213. MuStop        rs.w    1
  214. * Total length
  215. MuLong        equ     __Rs
  216.  
  217. IntEnaR        equ    $1c
  218. IntReqR        equ    $1e
  219. is_data        equ    $0e
  220. is_code        equ    $12
  221. ln_pri        equ    $09
  222. ln_type        equ    $08
  223.  
  224. ; All the above did not produce any byte of code. Here is the real beginning
  225. ; of the program. It MUST begin by a small table of pointers so that both
  226. ; AMOS and the compiler know where to get their data...
  227. ; Please remark that everything is relocatable...
  228.  
  229. ******************************************************************
  230. *    AMOS MUSIC EXTENSION
  231. ;
  232. ; First, a pointer to the token list
  233. Start    dc.l    C_Tk-C_Off
  234. ;
  235. ; Then, a pointer to the first library function
  236.     dc.l    C_Lib-C_Tk
  237. ;
  238. ; Then to the title
  239.     dc.l    C_Title-C_Lib
  240. ;
  241. ; From title to the end of the program
  242.     dc.l    C_End-C_Title
  243. ;
  244. ; An important flag. Imagine a program does not call your extension, the 
  245. ; compiler will NOT copy any routine from it in the object program. For 
  246. ; certain extensions, like MUSIC, COMPACT, it is perfect.
  247. ; But for the REQUEST extension, even if it is not called, the first routine 
  248. ; MUST be called, otherwise AMOS requester will not work!
  249. ; So, a value of 0 indicates to copy if needed only,
  250. ; A value of -1 forces the copy of the first library routine...
  251.     dc.w    0    
  252.  
  253. ******************************************************************
  254. *    Offset to library
  255. ;
  256. ; This list contains all informations for the compiler 
  257. ; and AMOS to locate your routines, in a relocatable way.
  258. ; You can produce such tables using the MAKE_LABEL.AMOS utility, found 
  259. ; on this very disc.
  260. ; All labels MUST be in order. The size of each routine MUST BE EVEN,
  261. ; as the size is divided by two. So be carefull to put an EVEN instruction
  262. ; after some text...
  263. ; You easily understand that the size of each routine can reach 128K, 
  264. ; which is largely enough. You can have up to 2000 routines in the list.
  265. ; The main AMOS.Lib library has 1100 labels...
  266.  
  267. C_Off   dc.w (L1-L0)/2,(L2-L1)/2,(L3-L2)/2,(L4-L3)/2
  268.         dc.w (L5-L4)/2,(L6-L5)/2,(L7-L6)/2,(L8-L7)/2
  269.         dc.w (L9-L8)/2,(L10-L9)/2,(L11-L10)/2,(L12-L11)/2
  270.         dc.w (L13-L12)/2,(L14-L13)/2,(L15-L14)/2,(L16-L15)/2
  271.         dc.w (L17-L16)/2,(L18-L17)/2,(L19-L18)/2,(L20-L19)/2
  272.         dc.w (L21-L20)/2,(L22-L21)/2,(L23-L22)/2,(L24-L23)/2
  273.         dc.w (L25-L24)/2,(L26-L25)/2,(L27-L26)/2,(L28-L27)/2
  274.         dc.w (L29-L28)/2,(L30-L29)/2,(L31-L30)/2,(L32-L31)/2
  275.         dc.w (L33-L32)/2,(L34-L33)/2,(L35-L34)/2,(L36-L35)/2
  276.         dc.w (L37-L36)/2,(L38-L37)/2,(L39-L38)/2,(L40-L39)/2
  277.         dc.w (L41-L40)/2,(L42-L41)/2,(L43-L42)/2,(L44-L43)/2
  278.         dc.w (L45-L44)/2,(L46-L45)/2,(L47-L46)/2,(L48-L47)/2
  279.         dc.w (L49-L48)/2,(L50-L49)/2,(L51-L50)/2,(L52-L51)/2
  280.         dc.w (L53-L52)/2,(L54-L53)/2,(L55-L54)/2,(L56-L55)/2
  281.         dc.w (L57-L56)/2,(L58-L57)/2,(L59-L58)/2,(L60-L59)/2
  282.         dc.w (L61-L60)/2,(L62-L61)/2,(L63-L62)/2,(L64-L63)/2
  283.         dc.w (L65-L64)/2,(L66-L65)/2,(L67-L66)/2,(L68-L67)/2
  284.         dc.w (L69-L68)/2,(L70-L69)/2,(L71-L70)/2,(L72-L71)/2
  285.         dc.w (L73-L72)/2,(L74-L73)/2,(L75-L74)/2,(L76-L75)/2
  286.         dc.w (L77-L76)/2,(L78-L77)/2,(L79-L78)/2,(L80-L79)/2
  287.         dc.w (L81-L80)/2,(L82-L81)/2,(L83-L82)/2,(L84-L83)/2
  288.         dc.w (L85-L84)/2,(L86-L85)/2,(L87-L86)/2,(L88-L87)/2
  289.     dc.w (L89-L88)/2,(L90-L89)/2,(L91-L90)/2,(L92-L91)/2
  290.         dc.w (L93-L92)/2,(L94-L93)/2,(L95-L94)/2,(L96-L95)/2
  291.         dc.w (L97-L96)/2,(L98-L97)/2,(L99-L98)/2,(L100-L99)/2
  292.         dc.w (L101-L100)/2,(L102-L101)/2
  293. ; Do not forget the LAST label!!!
  294.  
  295. ******************************************************************
  296. *    TOKEN TABLE
  297. ;
  298. ;
  299. ;    
  300. ; This table is the crucial point of the extension! It tells
  301. ; everything the tokenisation process needs to know. You have to 
  302. ; be carefull when writing it!
  303. ;
  304. ; The format is simple:
  305. ;    dc.w    Number of instruction,Number of function
  306. ;    dc.b    "instruction nam","e"+$80,"Param list",-1[or -2]
  307. ;
  308. ;    (1) Number of instruction / function
  309. ;        You must state the one that is needed for this token.
  310. ;               I suggest you keep the same method of referencing the
  311. ;        routines than mine: L_name, this label being defined
  312. ;        in the main program. (If you come from a 1.23 extension,
  313. ;        changing your program is easy: just add L_ before the 
  314. ;        name of each routine.
  315. ;        A -1 means take no routine is called (example a 
  316. ;        instruction only will have a -1 in the function space...)
  317. ;
  318. ;    (2) Instruction name
  319. ;        It must be finished by the letter plus $80. Be carefull
  320. ;        ARGASM assembler produces bad code if you do "a"+$80, 
  321. ;        he wants $80+"a"!!!
  322. ;        - You can SET A MARK in the token table with a "!" before
  323. ;        the name. See later
  324. ;        -Using a $80 ALONE as a name definition, will force AMOS
  325. ;        to point to the previous "!" mark...
  326. ;    
  327. ;    (3) Param list
  328. ;        This list tells AMOS everything about the instruction.
  329. ;
  330. ;    - First character:
  331. ;        The first character defines the TYPE on instruction:
  332. ;            I--> instruction
  333. ;            0--> function that returns a integer
  334. ;            1--> function that returns a float
  335. ;            2--> function that returns a string
  336. ;            V--> reserved variable. In that case, you must
  337. ;                state the type int-float-string
  338. ;    - If your instruction does not need parameters, then you stop
  339. ;    - Your instruction needs parameters, now comes the param list
  340. ;            Type,TypetType,Type...
  341. ;        Type of the parameter (0 1 2)
  342. ;        Comma or "t" for TO
  343. ;
  344. ;    (4) End of instruction
  345. ;            "-1" states the end of the instruction
  346. ;            "-2" tells AMOS that another parameter list
  347. ;                 can be accepted. if so, MUST follow the
  348. ;                 complete instruction definition as explained
  349. ;                 but with another param list.
  350. ;    If so, you can use the "!" and $80 facility not to rewrite the
  351. ;    full name of the instruction...See SAM LOOP ON instruction for an
  352. ;    example...
  353. ;
  354. ;    Remember that AMOS token list comes first, so names like:
  355. ;    PRINTHELLO will never work: AMOS will tokenise PRINT first!
  356. ;    Extension token list are explored in order of number...
  357.  
  358. ; The next two lines needs to be unchanged...
  359. C_Tk:    dc.w     1,0
  360.     dc.b     $80,-1
  361.  
  362. ; Now the real tokens...
  363.     dc.w    -1,L_FMB
  364.     dc.b    "mubas","e"+$80,"0",-1
  365.     dc.w    -1,L_FVu
  366.     dc.b    "vumete","r"+$80,"00",-1
  367.     dc.w    L_IVoice,-1
  368.     dc.b    "voic","e"+$80,"I0",-1
  369.     dc.w    L_IMusOff,-1
  370.     dc.b    "music of","f"+$80,"I",-1
  371.     dc.w    L_IMuStop,-1
  372.     dc.b    "music sto","p"+$80,"I",-1
  373.     dc.w    L_ITempo,-1
  374.     dc.b    "temp","o"+$80,"I0",-1
  375.     dc.w    L_IMusic,-1
  376.     dc.b    "musi","c"+$80,"I0",-1
  377.  
  378.     dc.w    L_INoTo,-1
  379.     dc.b    "noise t","o"+$80,"I0",-1
  380.     dc.w    L_Boom,-1
  381.     dc.b     "boo","m"+$80,"I",-1
  382.     dc.w    L_Shoot,-1
  383.     dc.b    "shoo","t"+$80,"I",-1
  384.     dc.w    L_ISBank,-1
  385.     dc.b    "sam ban","k"+$80,"I0",-1
  386.     dc.w    L_ISLOn0,-1
  387.     dc.b    "!sam loop o","n"+$80,"I",-2
  388.     dc.w    L_ISLOn1,-1
  389.     dc.b    $80,"I",-1
  390.     dc.w    L_ISLOf0,-1
  391.     dc.b    "sam loop of","f"+$80,"I",-2
  392.     dc.w    L_ISLOf1,-1
  393.     dc.b    $80,"I0",-1
  394.     dc.w    L_ISamTo,-1
  395.     dc.b    "sampl","e"+$80,"I0t0",-1
  396.     dc.w     L_ISam1,-1
  397.     dc.b     "!sam pla","y"+$80,"I0",-2
  398.     dc.w    L_ISam2,-1
  399.     dc.b    $80,"I0,0",-2
  400.     dc.w     L_ISam3,-1
  401.     dc.b    $80,"I0,0,0",-1 
  402.     dc.w     L_ISamR,-1
  403.     dc.b     "sam ra","w"+$80,"I0,0,0,0",-1    
  404.     dc.w    L_Bell0,-1
  405.     dc.b     "!bel","l"+$80,"I",-2
  406.     dc.w     L_Bell1,-1
  407.     dc.b    $80,"I0",-1
  408.     dc.w    L_IPlOf0,-1
  409.     dc.b    "!play of","f"+$80,"I",-2
  410.     dc.w    L_IPlOf1,-1
  411.     dc.b    $80,"I0",-1
  412.     dc.w     L_IPlay2,-1
  413.     dc.b    "!pla","y"+$80,"I0,0",-2
  414.     dc.w    L_IPlay3,-1
  415.     dc.b    $80,"I0,0,0",-1
  416.     dc.w     L_ISWave,-1
  417.     dc.b     "set wav","e"+$80,"I0,2",-1
  418.     dc.w    L_IDWave1,-1
  419.     dc.b    "del wav","e"+$80,"I0",-1
  420.     dc.w    L_ISEnv,-1
  421.     dc.b    "set enve","l"+$80,"I0,0t0,0",-1
  422.     dc.w    L_IMVol,-1
  423.     dc.b    "mvolum","e"+$80,"I0",-1
  424.     dc.w     L_IVol1,-1
  425.     dc.b    "!volum","e"+$80,"I0",-2
  426.     dc.w     L_IVol2,-1
  427.     dc.b    $80,"I0,0",-1
  428.     dc.w    L_IWave,-1
  429.     dc.b     "wav","e"+$80,"I0t0",-1
  430.     dc.w    L_LedOn,-1
  431.     dc.b    "led o","n"+$80,"I",-1
  432.     dc.w    L_LedOf,-1
  433.     dc.b    "led of","f"+$80,"I",-1
  434.     dc.w    L_ISay1,-1
  435.     dc.b    "!sa","y"+$80,"I2",-2
  436.     dc.w    L_ISay2,-1
  437.     dc.b    $80,"I2,0",-1
  438.     dc.w    L_ITalk,-1
  439.     dc.b    "set tal","k"+$80,"I0,0,0,0",-1
  440.     dc.w    L_SLoad,-1
  441.     dc.b    "sloa","d"+$80,"I0t0,0",-1
  442.     dc.w    -1,L_Samswapped
  443.     dc.b    "sam swappe","d"+$80,"00",-1
  444.     dc.w    L_SamSwap,-1
  445.     dc.b    "sam swa","p"+$80,"I0t0,0",-1
  446.     dc.w     L_SamStop0,-1
  447.     dc.b    "!sam sto","p"+$80,"I",-2
  448.     dc.w    L_SamStop1,-1
  449.     dc.b    $80,"I0",-1
  450.  
  451.     dc.w    L_TrackStop,-1
  452.     dc.b    "track sto","p"+$80,"I",-1
  453.     dc.w    L_TrackLoopon,-1
  454.     dc.b    "track loop o","n"+$80,"I",-1
  455.     dc.w    L_TrackLoopof,-1
  456.     dc.b    "track loop o","f"+$80,"I",-1
  457.     dc.w    L_TrackPlay0,-1
  458.     dc.b    "!track pla","y"+$80,"I",-2
  459.     dc.w    L_TrackPlay1,-1
  460.     dc.b    $80,"I0",-2
  461.     dc.w    L_TrackPlay2,-1
  462.     dc.b    $80,"I0,0",-1
  463.     dc.w    L_TrackLoad,-1
  464.     dc.b    "track loa","d"+$80,"I2,0",-1
  465.  
  466.     
  467.     dc.w     0
  468.  
  469. ;
  470. ; Now come the big part, the library. Every routine is delimited by the
  471. ; two labels: L(N) and L(N+1).
  472. ; AMOS loads the whole extension, but the compiler works differently:
  473. ; The compiler picks each routine in the library and copy it into the
  474. ; program, INDIVIDUALLY. It means that you MUST NEVER perform a JMP, a
  475. ; BSR or get an address from one library routine to another: the distance
  476. ; between them may change!!! Use the special macros instead...
  477. ;
  478. ; Importants points to follow: 
  479. ;
  480. ;    - Your code must be (pc), TOTALLY relocatable, check carefully your
  481. ;      code!
  482. ;    - You cannot directly call other library routines from one routine
  483. ;    by doing a BSR, but I have defined special macros (in S_CEQU file) 
  484. ;    to allow you to easily do so. Here is the list of available macros:
  485. ;
  486. ;    RBsr    L_Routine    does a simple BSR to the routine
  487. ;    RBra    L_Routine    as a normal BRA
  488. ;    RBeq    L_Routine    as a normal Beq
  489. ;    RBne    L_Routine    ...
  490. ;    RBcc    L_Routine
  491. ;    RBcs    L_Routine
  492. ;    RBlt    L_Routine
  493. ;    RBge    L_Routine
  494. ;    RBls    L_Routine
  495. ;    RBhi    L_Routine
  496. ;    RBle    L_Routine
  497. ;    RBpl    L_Routine
  498. ;    RBmi    L_Routine
  499. ;
  500. ; I remind you that you can only use this to call an library routine
  501. ; from ANOTHER routine. You cannot do a call WITHIN a routine, or call
  502. ; the number of the routine your caling from...
  503. ; The compiler (and AMOS1.3 extension loading part) will manage to find
  504. ; the good addresses in your program from the offset table.
  505. ;
  506. ; You can also call some main AMOS.Lib routines, to do so, use the 
  507. ; following macros:
  508. ;
  509. ;    RJsr    L_Routine    
  510. ;    RJmp    L_Routine    
  511. ; 
  512. ; As you do not have access any more to the small table with jumps to the
  513. ; routines within AMOS, here is the concordance of the routines (the numbers
  514. ; are just refecrences to the old AMOS 1.23 calling table, and is not of
  515. ; any use in AMOS1.3):
  516. ;
  517. ;    04- Normal error    RJmp    L_Error
  518. ;    08- Specific error    RJmp     L_Error
  519. ;    0C- D3->A0 Bank address    RJsr    L_BankAd
  520. ;    10- Performs update    RJsr    L_Tests
  521. ;    14- Wait routine    RJsr    L_WaitRout
  522. ;    18- Get screen address    RJsr    L_GetEc
  523. ;    1C- Address or bank?    RJsr    L_AdOuBank
  524. ;    20- Erases bank #D3    RJsr    L_EffBank
  525. ;    24- Ask for string     RJsr    L_Demande
  526. ;
  527. ; Explanation:
  528. ;    04- Normal error, please look to the last routine in the library.
  529. ;    08- D3.l (number of bank-1) -> A0 Bank address
  530. ;    10- Performs update
  531. ;     14- Wait routine (see play)
  532. ;    18- Get screen address D0.l= screen number, return A0= adress
  533. ;    1C- Address or memory bank? (D3.l)
  534. ;    20- Erases bank #D3.l
  535. ;    24- D3.l is the length to ask for. Return A0/A1 point to free space.
  536. ;        Poke your string there, add the length of it to A0, EVEN the 
  537. ;        adress to the highest multiple of two, and move it into
  538. ;        HICHAINE(a5) location...
  539. ;
  540. ; Some extra routines:
  541. ;    RJsr    L_RamChip    Ask for CLEAR, CHIP ram, size D0, 
  542. ;                returns address in D0, nothing changed
  543. ;    RJsr    L_RamChip2    CHIP, not cleared
  544. ;    RJsr    L_RamFast    CLEAR, fast mem
  545. ;    RJsr    L_RamFast2    Fast mem, not cleared
  546. ;    RJsr    L_RamFree    Free memory A1/D0
  547. ;
  548. ; You will see in the S_LEQU all the labels in the AMOS.Lib file, you
  549. ; can if you want have fun calling some of them. But such code will
  550. ; only work with the compiler: the AMOS1.3 loader will NOT recognise
  551. ; such calls!
  552. ;
  553. ;    HOW DOES IT WORK?
  554. ;
  555. ; Having a look at the S_CEQU file, you see that I use special codes
  556. ; to show the compiler that it has to copy the asked routine and relocate
  557. ; the branch. Some remarks:
  558. ;    - The size of a Rbsr is 4 bytes, like the normal branch, it does
  559. ; not change the program (you can make some jumps over it)
  560. ;    - Although I have coded the signal, and put a lot a security, 
  561. ; a mischance may lead to the compiler thinking there is a RBsr where
  562. ; there is nothing than normal data. The result may be disastrous! So if
  563. ; you have BIG parts of datas in which you do not make any special calls,
  564. ; you can put before it the macro: RDATA. It tells the compiler that 
  565. ; the following code, up to the end of the library routine (up to the next
  566. ; L(N) label) is normal data: the compiler will not check for RBranches...
  567. ; Up to now, I have not been forced to do so, but if something goes wrong,
  568. ; try that!
  569. ;
  570. ;
  571. ;    THE NEW GRAPHIC VECTORS (if you come from AMOS1.23)
  572. ;
  573. ; AMOS1.23 graphic functions used 3 vectors in locations $100,$104 and $108
  574. ; to point to the routines. All the graphic macros
  575. ; (like Eccall, Wicall, Sycall) loaded these adresses...
  576. ; This was VERY bad, it was really a  shame to do so on the Amiga. So the
  577. ; compiler had to produce good code, repectfull to the system. That's why
  578. ; I had to put the vector in the AMOS internal datazone, pointed to by 
  579. ; A5.
  580. ; Coming from AMOS1.23, nothing have change for you, as long you assemble 
  581. ; you program with the new S_EQU file, which takes care of that. 
  582. ; The only difference is that register A5 MUST BE LOADED WITH THE 
  583. ; DATAZONE ADDRESS before using one of the macro! So check your code!
  584.  
  585. iii        equ    0
  586.  
  587. C_Lib
  588. ******************************************************************
  589. *        COLD START
  590. *
  591. ; The first routine of the library will perform all initialisations in the
  592. ; booting of AMOS.
  593. ;
  594. ; I have put here all the music datazone, and all the interrupt routines.
  595. ; I suggest you put all you C-Code here too if you have some...
  596.  
  597. ; ALL the following code, from L0 to L1 will be copied into the compiled 
  598. ; program (if any music is used in the program) at once. All RBSR, RBRA etc
  599. ; will be detected and relocated. AMOS1.3 extension loader does the same.
  600.  
  601. L0    movem.l    a3-a6,-(sp)
  602.  
  603. ;
  604. ; Here I store the address of the extension data zone in the special area
  605.     lea    MB(pc),a3
  606.     move.l    a3,ExtAdr+ExtNb*16(a5)
  607. ;
  608. ; Here, I store the address of the routine called by DEFAULT, or RUN
  609.     lea    MusDef(pc),a0
  610.     move.l    a0,ExtAdr+ExtNb*16+4(a5)
  611. ;
  612. ; Here, the address of the END routine,
  613.     lea    MusEnd(pc),a0
  614.     move.l    a0,ExtAdr+ExtNb*16+8(a5)
  615. ;
  616. ; And now the Bank check routine..
  617.     lea    BkCheck(pc),a0
  618.     move.l    a0,ExtAdr+ExtNb*16+12(a5)
  619.  
  620. ; mt: allocate memory for am wave forms
  621.     move.l    #488,d0
  622.     Sycall    SyChip
  623.     move.l    d0,mt_amwave-MB(a3)
  624.     move.l    d0,a0
  625.     lea    96(a0),a2
  626.     move.l    a2,mt_noise-MB(a3)
  627.     lea    32(a2),a2
  628.     move.l    a2,mt_ams-MB(a3)
  629.     moveq    #121,d0
  630.     lea    mt_amwaveforms-MB(a3),a1
  631. .lp    move.l    (a1)+,(a0)+
  632.     dbf    d0,.lp
  633.  
  634. ; You are not obliged to store something in the above areas, you can leave
  635. ; them to zero if no routine is to be called...
  636. ;
  637. ; In AMOS data zone, stands 8 long words allowing you to simply
  638. ; put a patch in the VBL interrupt. The first on is at VBLRout.
  639. ; At each VBL, AMOS explores this list, and call all address <> 0
  640. ; It stops at the FIRST zero. The music patch is the first routine
  641. ; called.
  642.     lea    MusInt(pc),a0        * Interrupt routine
  643.     move.l    a0,VBLRout(a5)
  644. ; 50/60 herz?
  645.     move.l    #3546895,MusClock-MB(a3)
  646.     move.w    #100,TempoBase-MB(a3)
  647.     EcCall    NTSC            * Is system NTSC?
  648.     tst.w    d1
  649.     beq.s    ItsPAL
  650.     move.w    #120,TempoBase-MB(a3)
  651.     move.l    #3579545,MusClock-MB(a3)
  652. ItsPAL    
  653. ; Install sample interrupts
  654.     lea    Sami_handler(pc),a0
  655.     move.l    a0,Sami_handad-MB(a3)
  656.  
  657. ; As you can see, you MUST preserve A3-A6, and return in D0 the 
  658. ; Number of the extension if everything went allright. If an error has
  659. ; occured (no more memory, no file found etc...), return -1 in D0 and
  660. ; AMOS will refuse to start.
  661.     movem.l    (sp)+,a3-a6
  662.     moveq    #ExtNb,d0        * NO ERRORS
  663.     rts
  664.  
  665. ******* SCREEN RESET
  666. ; This routine is called each time a DEFAULT occurs...
  667. ;
  668. ; The next instruction loads the internal datazone address. I could have
  669. ; of course done a load MB(pc),a3 as the datazone is in the same
  670. ; library chunk. 
  671.  
  672. MusDef    DLoad    a3    
  673. * Reset TRACKER music
  674.     RBsr    L_TrackStop
  675.     clr.b    sorploop-MB(a3)
  676. * Reset Sam_interrupts
  677.     move.w    #$000F,Circuits+DmaCon
  678.     Rbsr    L_Sami_install
  679. * Init narrator
  680.     Rbsr    L_NarInit
  681. * Init musique
  682.     Rbsr    L_RazWave        * Reset waves
  683.     move.l    Buffer(a5),a0        * Draw square wave
  684.     move.l    a0,a1
  685.     moveq    #127,d0
  686. MuDf1    move.b    #-127,128(a0)
  687.     move.b    #127,(a0)+
  688.     dbra    d0,MuDf1
  689.     moveq    #0,d1            * 0-> Noise
  690.     Rbsr    L_NeWave
  691.     moveq    #1,d1            * 1-> Square wave
  692.     Rbsr    L_NeWave
  693.     move.w    #LNoise/2-1,d2        * Draw first noise
  694.     move.w    BSeed-MB(a3),d1
  695.     move.l    WaveBase-MB(a3),a0
  696.     lea    WaveDeb(a0),a0
  697. MuDf2    add.w    Circuits+6,d1
  698.     mulu    #$3171,d1
  699.     lsr.l    #8,d1
  700.     move.w    d1,(a0)+
  701.     dbra    d2,MuDf2
  702.     move.w    d1,BSeed-MB(a3)
  703.     moveq    #56,d0            * Default settings
  704.     moveq    #%1111,d1
  705.     Rbsr    L_Vol
  706.     Rbsr    L_MVol
  707.     move.w    #5,SamBank-MB(a3)    * Sample bank=5    
  708.     moveq    #-1,d0            * Sam loop off
  709.     moveq    #-1,d1
  710.     Rbsr    L_SL0
  711.     Rbra    L_MuInit
  712.  
  713. ******* QUIT
  714. ; This routine is called when you quit AMOS or when the compiled program
  715. ; ends. If you have opend devices, reserved memory you MUST close and
  716. ; restore everything to normal.
  717.  
  718. MusEnd:    DLoad    a3
  719. * No more VBL
  720.     clr.l    VBLRout(a5)
  721. * No more Sami
  722.     RBsr    L_Sami_remove
  723. * End narrator (if there)
  724.     move.l    $4.w,a6
  725.     tst.l    TranBase-MB(a3)
  726.     beq.s    NarEnd
  727.     lea    WriteRep-MB(a3),a1
  728.     jsr    RemPort(a6)
  729.     lea    TalkIO-MB(a3),a1
  730.     jsr    CloseDev(a6)
  731.     move.l    TranBase-MB(a3),a1
  732.     jsr    CloseLib(a6)
  733. * End music
  734. NarEnd    Rbsr    L_MOff
  735.     moveq    #%1111,d0
  736.     Rbsr    L_EnvOff
  737.     Rbsr    L_RazWave
  738.     lea    Circuits,a0
  739.     move.w    #$000F,DmaCon(a0)
  740.     clr.w    $a8(a0)
  741.     clr.w    $b8(a0)
  742.     clr.w    $c8(a0)
  743.     clr.w    $d8(a0)
  744. * mt: remove data zone
  745.     move.l    #488,d0
  746.     move.l    mt_amwave-MB(a3),a1
  747.     Sycall    SyFree
  748. * Finished!
  749.     rts
  750.  
  751. ******* LOOK FOR MUSIC BANK
  752. ; This routine is called after any bank has been loaded, reserved or erased.
  753. ; Here, if a music is being played and if the music bank is erased, I MUST
  754. ; stop the music, otherwise it might crash the computer. That's why I
  755. ; do a checksum on the first bytes of the bank to see if they have changed...
  756. BkCheck    RBsr    L_TrackCheck        * Check Tracker.
  757. * Check normal music.
  758.     DLoad    a3
  759.     move.l    MusBank-MB(a3),d0    * Address of OLD music bank
  760.     move.l    2*8(a0),d1        * Address of ACTUAL music bank
  761.     beq.s    BkNo            * 8 bytes per bank (here bank 3)
  762.     move.l    d1,a1            * Looks for "Musi"
  763.     move.l    (a1),d2        
  764.     cmp.l    BkMus-MB(a3),d2
  765.     bne.s    BkNo
  766.     lea    8(a1),a1
  767.     moveq    #0,d1            * Performs a check sum
  768.     add.l    (a1),d1
  769.     add.l    4(a1),d1
  770.     add.l    8(a1),d1
  771.     add.l    12(a1),d1
  772.     cmp.l    d0,a1
  773.     bne.s    BkNew
  774.     cmp.l    MusCheck-MB(a3),d1
  775.     bne.s    BkNew
  776. * Same bank! Do nothing!
  777.     rts
  778. * No more bank!
  779. BkNo    tst.l    d0
  780.     beq.s    BkNo1
  781.     Rbsr    L_MuInit
  782.     clr.l    MusBank-MB(a3)
  783. BkNo1    rts
  784. * A NEW bank
  785. BkNew    move.l    a1,MusBank-MB(a3)
  786.     move.l    d1,MusCheck-MB(a3)
  787.     Rbsr    L_MuInit
  788.     move.l    MusBank-MB(a3),a0
  789.     move.l    a0,a1
  790.     add.l    (a0),a1
  791.     move.l    a1,BankInst-MB(a3)
  792.     move.l    a0,a1
  793.     add.l    4(a0),a1
  794.     move.l    a1,BankSong-MB(a3)
  795.     add.l    8(a0),a0
  796.     move.l    a0,BankPat-MB(a3)
  797.     rts
  798.  
  799. ***********************************************************
  800. *
  801. *    INTERRUPT ROUTINES
  802. *
  803. ***********************************************************    
  804.  
  805. ******* Sami interrupt handlers
  806. Sami_handler
  807.     add.w    Sami_reg(a1),a0
  808.     move.l    Sami_pos(a1),d0
  809.     cmp.l    Sami_long(a1),d0
  810.     bcc.s    .whatnow
  811. * Poursuit la lecture du sample
  812. .samloop
  813.     move.l    d0,d1
  814.     add.l    #Sami_lplay,d1
  815.     cmp.l    Sami_long(a1),d1
  816.     bls.s    .skip
  817.     move.l    Sami_long(a1),d1
  818. .skip    move.l    d1,Sami_pos(a1)
  819.     sub.l    d0,d1
  820.     lsr.l    #1,d1
  821.     add.l    Sami_adr(a1),d0
  822.     move.l    d0,(a0)                * AUDxLOC
  823.     move.w    d1,4(a0)            * AUDxLEN
  824.     move.w    Sami_dvol(a1),d0
  825.     bmi.s    .skip1
  826.     move.w    d0,8(a0)            * AUDxVOL
  827. .skip1    move.w    Sami_bit(a1),Circuits+IntReq
  828.     rts
  829. * Sample termine. Que faire?
  830. .whatnow
  831.     move.l    d0,d1
  832.     move.l    Sami_radr(a1),d0        * Double buffer?
  833.     bne.s    .swap
  834.     move.l    Sami_rpos(a1),d0        * Boucler?
  835.     bpl.s    .samloop
  836.     bset    #7,Sami_pos(a1)            * Attend?
  837.     tst.l    d1
  838.     bpl.s    .skip1
  839. * Fin du sample-> met du blanc!
  840.     move.w    #0,$a(a0)
  841.     move.w    Sami_dma(a1),d0
  842.     moveq    #0,d1
  843.     bset    d0,d1
  844.     move.w    d1,Circuits+DmaCon
  845.     tst.w    Sami_dvol(a1)
  846.     bmi.s    .skip2
  847.     lea    MB(pc),a0            * Restart music
  848.     bset    d0,MuReStart+1-MB(a0)
  849. .skip2    move.w    Sami_bit(a1),Circuits+IntEna    * No more interrupts
  850.     move.w    Sami_bit(a1),Circuits+IntReq
  851.     rts
  852. * Change de buffer
  853. .swap    clr.l    Sami_radr(a1)
  854.     move.l    d0,Sami_adr(a1)
  855.     move.l    Sami_rlong(a1),Sami_long(a1)
  856.     moveq    #0,d0
  857.     bra    .samloop
  858.  
  859. ******* VBL Entry
  860. MusInt    lea    MB(pc),a3    
  861.     move.w    EnvOn-MB(a3),d0
  862.     beq    Music
  863.     lea    EnvBase-MB(a3),a0
  864.     lea    $a0(a6),a2
  865.     moveq    #0,d1
  866.     moveq    #3,d2
  867.     moveq    #0,d5
  868. MuInt1    btst    d1,d0
  869.     beq.s    MuIntN
  870.     move.l    EnvDelta(a0),d3
  871.     add.l    EnvVol(a0),d3
  872.     move.l    d3,EnvVol(a0)
  873.     swap    d3
  874.     move.w    d3,8(a2)
  875. MuInt2    subq.w    #1,EnvNb(a0)
  876.     bne.s    MuIntN
  877.     Rbsr    L_MuIntE
  878. MuIntN    lea    EnvLong(a0),a0
  879.     lea    $10(a2),a2
  880.     addq.w    #1,d1
  881.     dbra    d2,MuInt1
  882.     move.w    d0,EnvOn-MB(a3)
  883.     move.w    d5,DmaCon(a6)
  884.     lsl.w    #7,d5
  885.     move.w    d5,IntEna(a6)
  886. ******* Make noise?
  887.     tst.w    Noise-MB(a3)
  888.     beq.s    Music
  889.     move.w    PNoise-MB(a3),d0
  890.     moveq    #7,d2
  891.     move.w    BSeed-MB(a3),d1
  892.     move.l    WaveBase-MB(a3),a0
  893. INoi1    add.w    6(a6),d1
  894.     mulu    #$3171,d1
  895.     lsr.l    #8,d1
  896.     move.w    d1,WaveDeb(a0,d0.w)
  897.     subq.w    #2,d0
  898.     bpl.s    INoi2
  899.     move.w    #LNoise-2,d0
  900. INoi2    dbra    d2,INoi1
  901.     move.w    d0,PNoise-MB(a3)
  902.     move.w    d1,BSeed-MB(a3)
  903.  
  904. *******    Music routine
  905. Music:    move.l    MuBase-MB(a3),d0
  906.     beq    Tracker
  907.     movem.l    a4-a6,-(sp)
  908.     move.l    d0,a5
  909.     bsr    MuEvery
  910. * Here is a smart counter, which gives progressive results
  911. * from zero to 100(PAL), 120(NTSC)...
  912.     move.w    MuCpt(a5),d0
  913.     add.w    MuTempo(a5),d0
  914.     move.w    d0,MuCpt(a5)
  915.     move.w    TempoBase-MB(a3),d1
  916.     cmp.w    d1,d0
  917.     bcs    MuEff
  918.     sub.w    d1,MuCpt(a5)
  919. * Lets go for one step of music!
  920.     moveq    #0,d5
  921.     moveq    #0,d7
  922.     move.l    a5,a4
  923.  
  924.     tst.b    VoiCpt+1(a4)
  925.     beq.s    Mus0
  926.     addq.w    #1,d5
  927.     subq.b    #1,VoiCpt+1(a4)
  928.     bne.s    Mus0
  929.     moveq    #0,d6
  930.     move.l    MuChip0-MB(a3),a6
  931.     bsr    MuStep
  932. Mus0    
  933.     lea    MuVoix1(a5),a4
  934.     tst.b    VoiCpt+1(a4)
  935.     beq.s    Mus1
  936.     addq.w    #1,d5
  937.     subq.b    #1,VoiCpt+1(a4)
  938.     bne.s    Mus1
  939.     moveq    #1,d6
  940.     move.l    MuChip1-MB(a3),a6
  941.     bsr    MuStep
  942. Mus1
  943.     lea    MuVoix2(a5),a4
  944.     tst.b    VoiCpt+1(a4)
  945.     beq.s    Mus2
  946.     addq.w    #1,d5
  947.     subq.b    #1,VoiCpt+1(a4)
  948.     bne.s    Mus2
  949.     moveq    #2,d6
  950.     move.l    MuChip2-MB(a3),a6
  951.     bsr    MuStep
  952. Mus2    
  953.     lea    MuVoix3(a5),a4
  954.     tst.b    VoiCpt+1(a4)
  955.     beq.s    Mus3
  956.     addq.w    #1,d5
  957.     subq.b    #1,VoiCpt+1(a4)
  958.     bne.s    Mus3
  959.     moveq    #3,d6
  960.     move.l    MuChip3-MB(a3),a6
  961.     bsr    MuStep
  962. Mus3    
  963.     and.w    MuDMAsk-MB(a3),d7
  964.     move.w    d7,$DFF096
  965.     tst.w    d5
  966.     beq.s    MuFin
  967.     bne.s    MuEnd
  968. MuEff    bsr    DoEffects
  969. MuEnd    movem.l    (sp)+,a4-a6
  970. MuEnd1    rts
  971. * Finished?
  972. MuFin    subq.w    #1,MuNumber-MB(a3)
  973.     beq    MuFini
  974. * Restarts previous music
  975.     move.w    MuNumber-MB(a3),d0
  976.     subq.w    #1,d0
  977.     mulu    #MuLong,d0
  978.     lea    MuBuffer-MB(a3),a0
  979.     add.w    d0,a0
  980.     move.l    a0,MuBase-MB(a3)
  981.     move.w    MuDMAsk-MB(a3),MuReStart-MB(a3)
  982.     clr.w    MuStart(a0)
  983.     clr.w    MuStop(a0)
  984.     bra.s    MuEnd
  985. * Really finished!
  986. MuFini    clr.l    MuBase-MB(a3)
  987.     Rbsr    L_MOff
  988.     bra.s    MuEnd
  989.  
  990. ******* One step of music for one voice
  991. MuStep    lea    MuJumps(pc),a1
  992.     move.l    VoiAdr(a4),a2
  993. MuSt0    move.w    (a2)+,d0
  994.     bpl.s    DoNote
  995.     move.w    d0,d1
  996.     and.w    #$7F00,d0
  997.     lsr.w    #6,d0
  998.     jmp    0(a1,d0.w)
  999.  
  1000. ******* Play a note
  1001. DoNote    btst    #14,d0
  1002.     bne.s    OldNote
  1003. * Play normal note
  1004.     and.w    #$0FFF,d0
  1005.     move.l    BankInst-MB(a3),d1
  1006.     move.l    VoiInst(a4),a0
  1007.     add.l    (a0),d1
  1008.     move.l    d1,(a6)
  1009.     move.w    8(a0),$04(a6)
  1010.     bset    d6,d7
  1011.     bclr    d6,MuStop+1(a5)
  1012.     bset    d6,MuStart+1(a5)
  1013.     move.b    VoiVol+1(a4),0(a3,d6.w)
  1014.     tst.b    VoiPTone(a4)
  1015.     bne.s    MuSt1
  1016. * No portamento
  1017.     move.w    d0,VoiNote(a4)
  1018.     move.w    d0,$06(a6)
  1019.     bra.s    MuSt0
  1020. * Start portamento
  1021. MuSt1    clr.b    VoiPTone(a4)
  1022.     move.w    d0,VoiPToTo(a4)
  1023.     lea    MuPTone(pc),a0
  1024.     move.l    a0,VoiEffect(a4)
  1025.     bra.s    MuSt0
  1026. * Play note compatible with first version
  1027. OldNote    move.w    d0,VoiCpt(a4)
  1028.     move.w    (a2)+,d0
  1029.     beq.s    ONoteE
  1030.     and.w    #$0FFF,d0
  1031.     move.w    d0,VoiNote(a4)
  1032.     move.w    d0,$06(a6)
  1033.     move.l    BankInst-MB(a3),d0
  1034.     move.l    VoiInst(a4),a0
  1035.     add.l    (a0),d0
  1036.     move.l    d0,(a6)
  1037.     move.w    8(a0),$04(a6)
  1038.     bset    d6,d7
  1039.     bclr    d6,MuStop+1(a5)
  1040.     bset    d6,MuStart+1(a5)
  1041.     move.b    VoiVol+1(a4),0(a3,d6.w)
  1042. ONoteE    move.l    a2,VoiAdr(a4)
  1043.     rts
  1044.  
  1045. ******* Jump table to labels
  1046. MuJumps    bra    EtEnd            * 00-> Fin pattern
  1047.     bra    MuSt0            * 01-> Old Slide up
  1048.     bra    MuSt0            * 02-> Old Slide down
  1049.     bra    EtSVol            * 03-> Set volume
  1050.     bra    EtStop            * 04-> Stop effet
  1051.     bra    EtRep            * 05-> Repeat
  1052.     bra    EtLOn            * 06-> Led On
  1053.     bra    EtLOff            * 07-> Led Off
  1054.     bra    EtTemp            * 08-> Set Tempo
  1055.     bra    EtInst            * 09-> Set Instrument
  1056.     bra    EtArp            * 10-> Arpeggiato
  1057.     bra    EtPort            * 11-> Portamento
  1058.     bra    EtVib            * 12-> Vibrato
  1059.     bra    EtVSl            * 13-> Volume slide
  1060.     bra    EtSlU            * 14-> Slide up
  1061.     bra    EtSlD            * 15-> Slide down
  1062.      bra    EtDel            * 16-> Delay
  1063.     bra    EtJmp            * 17-> Position jump
  1064.     bra    MuSt0            * 18-> Free space
  1065.     bra    MuSt0            * 19-> Free space
  1066.     bra    MuSt0            * 20-> Free space
  1067.     bra    MuSt0            * 21-> Free space
  1068.     bra    MuSt0            * 22-> Free space
  1069.     bra    MuSt0            * 23-> Free space
  1070.     bra    MuSt0            * 24-> Free space
  1071.     bra    MuSt0            * 25-> Free space
  1072.     bra    MuSt0            * 26-> Free space
  1073.     bra    MuSt0            * 27-> Free space
  1074.     bra    MuSt0            * 28-> Free space
  1075.     bra    MuSt0            * 29-> Free space
  1076.     bra    MuSt0            * 30-> Free space
  1077.     bra    MuSt0            * 31-> Free space
  1078.  
  1079. ******* End of a pattern
  1080. EtEnd    clr.w    VoiCpt(a4)
  1081.     clr.w    VoiRep(a4)
  1082.     clr.l    VoiDeb(a4)
  1083.     lea    NoEffect(pc),a0
  1084.     move.l    a0,VoiEffect(a4)
  1085.     move.l    VoiPat(a4),a0
  1086. RePat    moveq    #0,d0
  1087.     move.w    (a0)+,d0
  1088.     bmi.s    EtEnd1
  1089.     move.l    a0,VoiPat(a4)
  1090.     move.l    BankPat-MB(a3),a0
  1091.     cmp.w    (a0),d0
  1092.     bhi.s    EtEndX
  1093.     lsl.w    #2,d0
  1094.     add.w    d6,d0
  1095.     lsl.w    #1,d0
  1096.     move.w    2(a0,d0.w),d0
  1097.     beq.s    EtEndX
  1098.     lea    0(a0,d0.l),a2
  1099.     bra    MuSt0
  1100. EtEndX    rts
  1101. EtEnd1    cmp.w    #-1,d0
  1102.     beq.s    EtEndX
  1103.      move.l    VoiDPat(a4),a0
  1104.     bra.s    RePat
  1105. ******* Change instrument
  1106. EtInst    and.w    #$00FF,d1
  1107.     move.l    BankInst-MB(a3),a0
  1108.     lsl.w    #5,d1
  1109.     lea    2(a0,d1.w),a0
  1110.     move.l    a0,VoiInst(a4)
  1111.     move.w    12(a0),d0
  1112.     cmp.w    #64,d0
  1113.     bcs.s    EtInst1
  1114.     moveq    #63,d0
  1115. EtInst1    move.w    d0,VoiDVol(a4)
  1116.     mulu    MuVolume-MB(a3),d0
  1117.     lsr.w    #6,d0
  1118.     move.w    d0,VoiVol(a4)
  1119.     bra    MuSt0
  1120. ******* Set Volume
  1121. EtSVol    and.w    #$00FF,d1
  1122.     cmp.w    #64,d1
  1123.     bcs.s    EtSVol1
  1124.     moveq    #63,d1
  1125. EtSVol1    move.w    d1,VoiDVol(a4)
  1126.     mulu    MuVolume-MB(a3),d1
  1127.     lsr.w    #6,d1
  1128.     move.w    d1,VoiVol(a4)
  1129.     bra    MuSt0
  1130. ******* Set Tempo
  1131. EtTemp    and.w    #$00FF,d1
  1132.     move.w    d1,MuTempo(a5)
  1133.     bra    MuSt0
  1134. ******* Led On
  1135. EtLOn    bclr    #1,$bfe001
  1136.     bra    MuSt0
  1137. ******* Led Off
  1138. EtLOff    bset    #1,$bfe001
  1139.     bra    MuSt0
  1140. ******* Repeat
  1141. EtRep    and.w    #$00FF,d1
  1142.     bne.s    EtRep1
  1143.     move.l    a2,VoiDeb(a4)
  1144.     bra    MuSt0
  1145. EtRep1    tst.w    VoiRep(a4)
  1146.     bne.s    EtRep2
  1147.     move.w    d1,VoiRep(a4)
  1148.     bra    MuSt0
  1149. EtRep2    subq.w    #1,VoiRep(a4)
  1150.     beq    MuSt0
  1151.     move.l    VoiDeb(a4),d0
  1152.     beq    MuSt0
  1153.     move.l    d0,a2
  1154.     bra    MuSt0
  1155. ******* Arpeggio
  1156. EtArp    move.b    d1,VoiValue+1(a4)
  1157.     lea    MuArp(pc),a0
  1158.     move.l    a0,VoiEffect(a4)
  1159.     bra    MuSt0
  1160. ******* Portamento
  1161. EtPort    move.b    #1,VoiPTone(a4)
  1162.     lea    MuPTone(pc),a0
  1163.     bra.s    EtSetE
  1164. ******* Vibrato
  1165. EtVib    lea    MuVib(pc),a0
  1166.     bra.s    EtSetE
  1167. ******* Volume slide
  1168. EtVSl    and.w    #$00FF,d1
  1169.     move.w    d1,d0
  1170.     lsr.w    #4,d0
  1171.     tst.w    d0
  1172.     bne.s    VsEnd
  1173.     and.w    #$000F,d1
  1174.     neg.w    d1
  1175.     move.w    d1,d0
  1176. VsEnd    move.w    d0,VoiValue(a4)
  1177.     lea    MuVSl(pc),a0
  1178.     move.l    a0,VoiEffect(a4)
  1179.     bra    MuSt0
  1180. ******* Slide up
  1181. EtSlU    and.w    #$00FF,d1
  1182.     neg.w    d1
  1183.     lea    MuSlide(pc),a0
  1184.     bra.s    EtSte
  1185. ******* Slide Down
  1186. EtSlD    lea    MuSlide(pc),a0
  1187. EtSetE    and.w    #$00FF,d1
  1188. EtSte    move.w    d1,VoiValue(a4)
  1189.     move.l    a0,VoiEffect(a4)
  1190.     bra    MuSt0
  1191. ******* Stop effect
  1192. EtStop    lea    NoEffect(pc),a0
  1193.     move.l    a0,VoiEffect(a4)
  1194.     bra    MuSt0
  1195. ******* Jump to pattern
  1196. EtJmp    and.w    #$00FF,d1
  1197.     lsl.w    #1,d1
  1198.     move.l    VoiDPat(a4),a0
  1199.     add.w    d1,a0
  1200.     move.l    a0,VoiPat(a4)
  1201.     bra    EtEnd
  1202. ******* Delay
  1203. EtDel    move.w    d1,VoiCpt(a4)
  1204.     move.l    a2,VoiAdr(a4)
  1205.     rts
  1206.  
  1207. ******* Effect routines
  1208.  
  1209. * Performs all effects
  1210. DoEffects
  1211.     move.l    a5,a4
  1212.     move.l    MuChip0-MB(a3),a6
  1213.     move.l    VoiEffect(a4),a0
  1214.     jsr    (a0)
  1215.     move.w    VoiVol(a4),$08(a6)
  1216.     lea    MuVoix1(a5),a4
  1217.     move.l    MuChip1-MB(a3),a6
  1218.     move.l    VoiEffect(a4),a0
  1219.     jsr    (a0)
  1220.     move.w    VoiVol(a4),$08(a6)
  1221.     lea    MuVoix2(a5),a4
  1222.     move.l    MuChip2-MB(a3),a6
  1223.     move.l    VoiEffect(a4),a0
  1224.     jsr    (a0)
  1225.     move.w    VoiVol(a4),$08(a6)
  1226.     lea    MuVoix3(a5),a4
  1227.     move.l    MuChip3-MB(a3),a6
  1228.     move.l    VoiEffect(a4),a0
  1229.     jsr    (a0)
  1230.     move.w    VoiVol(a4),$08(a6)
  1231.     rts
  1232.  
  1233. * TONE SLIDE
  1234. MuSlide    move.w    VoiValue(a4),d0
  1235.     beq.s    NoMoreE
  1236.     add.w    VoiNote(a4),d0
  1237.     cmp.w    #$71,d0
  1238.     bcc.s    MuSl1
  1239.     moveq    #$71,d0
  1240.     bsr    NoMoreE
  1241. MuSl1    cmp.w    #$358,d0
  1242.     bls.s    MuSl2
  1243.     move.w    #$358,d0
  1244.     bsr    NoMoreE
  1245. MuSl2    move.w    d0,VoiNote(a4)
  1246.     move.w    d0,$06(a6)
  1247.     rts
  1248. NoMoreE    lea    NoEffect(pc),a0
  1249.     move.l    a0,VoiEffect(a4)
  1250.     rts
  1251. NoEffect
  1252.     move.w    VoiNote(a4),$06(a6)
  1253.     rts
  1254.  
  1255. * ARPEGGIO
  1256. MuArp    moveq    #0,d0
  1257.     move.b    VoiValue+1(a4),d0
  1258.     move.b    VoiValue(a4),d1
  1259.     cmp.b    #3,d1
  1260.     bcs.s    MuArp0
  1261.     moveq    #2,d1
  1262. MuArp0    subq.b    #1,d1
  1263.     move.b    d1,VoiValue(a4)
  1264.     beq.s    MuArp2
  1265.     bpl.s    MuArp1
  1266.     lsr.b    #4,d0
  1267.     bra.s    MuArp3
  1268. MuArp1    and.b    #$0f,d0
  1269.     bra.s    MuArp3
  1270. MuArp2    move.w    VoiNote(a4),d2
  1271.     bra.s    MuArp4
  1272. MuArp3    add.w    d0,d0
  1273.     moveq    #0,d1
  1274.     move.w    VoiNote(a4),d1
  1275.     lea    Periods(pc),a0
  1276.     moveq    #$24,d3
  1277. MuArpL    move.w    (a0,d0.w),d2
  1278.     cmp.w    (a0),d1
  1279.     bge.s    MuArp4
  1280.     addq.l    #2,a0
  1281.     dbra    d3,MuArpL
  1282.     rts
  1283. MuArp4    move.w    d2,$06(a6)
  1284.     rts
  1285.  
  1286. * PORTAMENTO
  1287. MuPTone    move.w    VoiValue(a4),d0
  1288.     move.w    VoiNote(a4),d1
  1289.     cmp.w    VoiPToTo(a4),d1
  1290.     beq.s    MuPTo3
  1291.     bcs.s    MuPTo1
  1292.     sub.w    d0,d1
  1293.     cmp.w    VoiPToTo(a4),d1
  1294.     bhi.s    MuPto4
  1295.     bra.s    MuPTo2
  1296. MuPTo1    add.w    d0,d1
  1297.     cmp.w    VoiPToTo(a4),d1
  1298.     bcs.s    MuPTo4
  1299. MuPTo2    move.w    VoiPToTo(a4),d1
  1300. MuPTo3    bsr    NoMoreE
  1301. MuPTo4    move.w    d1,VoiNote(a4)
  1302.     move.w    d1,$06(a6)
  1303.     rts
  1304.  
  1305. * VIBRATO
  1306. MuVib    move.b    VoiVib(a4),d0
  1307.     lea    Sinus(pc),a0
  1308.     lsr.w    #2,d0
  1309.     and.w    #$1f,d0
  1310.     moveq    #0,d2
  1311.     move.b    0(a0,d0.w),d2
  1312.     move.b    VoiValue+1(a4),d0
  1313.     and.w    #$0F,d0
  1314.     mulu    d0,d2
  1315.     lsr.w    #$06,d2
  1316.     move.w    VoiNote(a4),d0
  1317.     tst.b    VoiVib(a4)
  1318.     bmi.s    MuVib1
  1319.     add.w    d2,d0
  1320.     bra.s    MuVib2
  1321. MuVib1    sub.w    d2,d0
  1322. MuVib2    move.w    d0,$06(a6)
  1323.     move.b    VoiValue+1(a4),d0
  1324.     lsr.w    #2,d0
  1325.     and.w    #$3C,d0
  1326.     add.b    d0,VoiVib(a4)
  1327.     rts
  1328.  
  1329. * VOLUME SLIDE
  1330. MuVSl    move.w    VoiDVol(a4),d0
  1331.     add.w    VoiValue(a4),d0
  1332.     bpl.s    MuVSl1
  1333.     clr.w    d0
  1334. MuVSl1    cmp.w    #$40,d0
  1335.     bcs.s    MuVSl2
  1336.     moveq    #$3F,d0
  1337. MuVSl2    move.w    d0,VoiDVol(a4)
  1338.     mulu    MuVolume-MB(a3),d0
  1339.     lsr.w    #6,d0
  1340.     move.w    d0,VoiVol(a4)
  1341.     rts
  1342.  
  1343. *******    Routine called every VBL
  1344. MuEvery    
  1345.  
  1346. * Second step of sample?
  1347.     move.w    MuStop(a5),d0
  1348.     beq    MuEvX
  1349.     move.l    BankInst-MB(a3),d1
  1350.     btst    #0,d0                * Voix 0
  1351.     beq.s    MuEv0
  1352.     move.l    MuChip0-MB(a3),a6
  1353.     move.l    VoiInst0(a5),a0
  1354.     move.l    d1,d2
  1355.     add.l    4(a0),d2
  1356.     move.l    d2,(a6)
  1357.     move.w    10(a0),$04(a6)
  1358. MuEv0    btst    #1,d0                * Voix 1
  1359.     beq.s    MuEv1
  1360.     move.l    MuChip1-MB(a3),a6
  1361.     move.l    VoiInst1(a5),a0
  1362.     move.l    d1,d2
  1363.     add.l    4(a0),d2
  1364.     move.l    d2,(a6)
  1365.     move.w    10(a0),$04(a6)
  1366. MuEv1    btst    #2,d0                * Voix 2
  1367.     beq.s    MuEv2
  1368.     move.l    MuChip2-MB(a3),a6
  1369.     move.l    VoiInst2(a5),a0
  1370.     move.l    d1,d2
  1371.     add.l    4(a0),d2
  1372.     move.l    d2,(a6)
  1373.     move.w    10(a0),$04(a6)
  1374. MuEv2    btst    #3,d0                * Voix 3
  1375.     beq.s    MuEv3
  1376.     move.l    MuChip3-MB(a3),a6
  1377.     move.l    VoiInst3(a5),a0
  1378.     move.l    d1,d2
  1379.     add.l    4(a0),d2
  1380.     move.l    d2,(a6)
  1381.     move.w    10(a0),$04(a6)
  1382. MuEv3    
  1383.  
  1384. * Start a voice
  1385. MuEvX    move.w    MuStart(a5),d1
  1386.     move.w    d1,MuStop(a5)
  1387.     clr.w    MuStart(a5)
  1388.     or.w    d1,d0
  1389.     and.w    MuDMAsk-MB(a3),d0
  1390.     bset    #15,d0
  1391.     move.w    d0,$DFF096
  1392.  
  1393. * Restart voices?
  1394.     move.w    MuReStart-MB(a3),d0
  1395.     beq    MuRsX
  1396.     moveq    #0,d3
  1397.     btst    #0,d0                * Voix 0
  1398.     beq.s    MuRs0
  1399.     lea    $DFF0A0,a6
  1400.     move.l    a6,MuChip0-MB(a3)
  1401.     move.w    #2,$04(a6)
  1402.     tst.l    VoiInst0(a5)
  1403.     beq.s    MuRs0
  1404.     bset    #0,d3
  1405. MuRs0    btst    #1,d0                * Voix 1
  1406.     beq.s    MuRs1
  1407.     lea    $DFF0B0,a6
  1408.     move.l    a6,MuChip1-MB(a3)
  1409.     move.w    #2,$04(a6)
  1410.     tst.l    VoiInst1(a5)
  1411.     beq.s    MuRs1
  1412.     bset    #1,d3
  1413. MuRs1    btst    #2,d0                * Voix 2
  1414.     beq.s    MuRs2
  1415.     lea    $DFF0C0,a6
  1416.     move.l    a6,MuChip2-MB(a3)
  1417.     move.w    #2,$04(a6)
  1418.     tst.l    VoiInst2(a5)
  1419.     beq.s    MuRs2
  1420.     bset    #2,d3
  1421. MuRs2    btst    #3,d0                * Voix 3
  1422.     beq.s    MuRs3
  1423.     lea    $DFF0D0,a6
  1424.     move.l    a6,MuChip3-MB(a3)
  1425.     move.w    #2,$04(a6)
  1426.     tst.l    VoiInst3(a5)
  1427.     beq.s    MuRs3
  1428.     bset    #3,d3
  1429. MuRs3    clr.w    MuReStart-MB(a3)
  1430.     or.w    d0,MuDMAsk-MB(a3)
  1431.     or.w    d3,MuStop(a5)
  1432. MuRsX    
  1433.     rts
  1434.  
  1435.  
  1436. ***********************************************************
  1437. *
  1438. *    TRACKER INTERRUPT ROUTINES
  1439. *
  1440. ***********************************************************    
  1441. Tracker
  1442.     lea    MB(pc),a3
  1443.     tst.b    mt_on-MB(a3)
  1444.     beq.s    mt_i
  1445.     movem.l    a4-a6,-(sp)
  1446.     bsr.s    mt_music
  1447.     lea    MB(pc),a3
  1448.     tst.b    sorpend-MB(a3)
  1449.     beq.s    .nof
  1450.     clr.w    $dff0a8
  1451.     clr.w    $dff0b8
  1452.     clr.w    $dff0c8
  1453.     clr.w    $dff0d8
  1454.     move.w    #$f,$dff096
  1455.     clr.b    mt_on-MB(a3)
  1456. .nof    movem.l    (sp)+,a4-a6
  1457. mt_i    rts
  1458.  
  1459. mt_music:
  1460.     lea    (a3),a6
  1461.  
  1462.     move.l    mt_data-MB(a6),a0
  1463.     addq.b    #1,mt_counter-MB(a6)
  1464.     move.b    mt_counter-MB(a6),d0
  1465.     cmp.b    mt_speed-MB(a6),d0
  1466.     blt    mt_nonew
  1467.     clr.b    mt_counter-MB(a6)
  1468.  
  1469.     move.l    mt_data-MB(a6),a0
  1470.     lea    $c(a0),a3
  1471.     lea    $3b8(a0),a2
  1472.     lea    $43c(a0),a0
  1473.  
  1474.     moveq    #0,d0
  1475.     moveq    #0,d1
  1476.     move.b    mt_songpos-MB(a6),d0
  1477.     move.b    (a2,d0.w),d1
  1478.     lsl.w    #8,d1
  1479.     lsl.w    #2,d1
  1480.     add.w    mt_pattpos-MB(a6),d1
  1481.     clr.w    mt_dmacon-MB(a6)
  1482.  
  1483.     lea    $dff0a0,a5
  1484.     lea    mt_voice1-MB(a6),a4
  1485.     moveq    #0,d6
  1486.     bsr    mt_playvoice
  1487.     addq.l    #4,d1
  1488.     lea    $dff0b0,a5
  1489.     lea    mt_voice2-MB(a6),a4
  1490.     moveq    #1,d6
  1491.     bsr    mt_playvoice
  1492.     addq.l    #4,d1
  1493.     lea    $dff0c0,a5
  1494.     lea    mt_voice3-MB(a6),a4
  1495.     moveq    #2,d6
  1496.     bsr    mt_playvoice
  1497.     addq.l    #4,d1
  1498.     lea    $dff0d0,a5
  1499.     lea    mt_voice4-MB(a6),a4
  1500.     moveq    #3,d6
  1501.     bsr    mt_playvoice
  1502.  
  1503.     bsr    mt_wait
  1504.     move.w    mt_dmacon-MB(a6),d0
  1505.     or.w    #$8000,d0
  1506.     move.w    d0,$dff096
  1507.     bsr    mt_wait
  1508. mt_nodma:
  1509.     lea    mt_voice1-MB(a6),a4
  1510.     move.l    $a(a4),$a0+$dff000
  1511.     move.w    $e(a4),$a4+$dff000
  1512.     tst.w    30(a4)
  1513.     bne.s    mt_nov1
  1514.     move.w    $12(a4),$a8+$dff000
  1515. mt_nov1:lea    mt_voice2-MB(a6),a4
  1516.     move.l    $a(a4),$b0+$dff000
  1517.     move.w    $e(a4),$b4+$dff000
  1518.     tst.w    30(a4)
  1519.     bne.s    mt_nov2
  1520.     move.w    $12(a4),$b8+$dff000
  1521. mt_nov2:lea    mt_voice3-MB(a6),a4
  1522.     move.l    $a(a4),$c0+$dff000
  1523.     move.w    $e(a4),$c4+$dff000
  1524.     tst.w    30(a4)
  1525.     bne.s    mt_nov3
  1526.     move.w    $12(a4),$c8+$dff000
  1527. mt_nov3:lea    mt_voice4-MB(a6),a4
  1528.     move.l    $a(a4),$d0+$dff000
  1529.     tst.w    30(a4)
  1530.     bne.s    mt_nov4
  1531.     move.w    $e(a4),$d4+$dff000
  1532.     move.w    $12(a4),$d8+$dff000
  1533.  
  1534. mt_nov4:add.w    #$10,mt_pattpos-MB(a6)
  1535.     cmp.w    #$400,mt_pattpos-MB(a6)
  1536.     bne.s    mt_exit
  1537. mt_next:clr.w    mt_pattpos-MB(a6)
  1538.     clr.b    mt_break-MB(a6)
  1539.     move.l    mt_data-MB(a6),a0
  1540.     tst.b    sorp-MB(a6)
  1541.     beq    song
  1542.     cmp.b    #1,sorploop-MB(a6)
  1543.     beq    rep
  1544.     move.b    #1,sorpend-MB(a6)
  1545. rep    rts
  1546.  
  1547. song    clr.w    mt_pattpos-MB(a6)
  1548.     addq.b    #1,mt_songpos-MB(a6)
  1549.     and.b    #$7f,mt_songpos-MB(a6)
  1550.     move.b    $3b6(a0),d0
  1551.     cmp.b    mt_songpos-MB(a6),d0
  1552.     bne.s    mt_exit
  1553.     tst.b    sorploop-MB(a6)
  1554.     bne    srep
  1555.     move.b    #1,sorpend-MB(a6)
  1556.     rts
  1557.  
  1558. srep    move.b    omt_songpos-MB(a6),mt_songpos-MB(a6)
  1559. mt_exit:tst.b    mt_break-MB(a6)
  1560.     bne.s    mt_next
  1561.     bra    mt_amhandler
  1562.  
  1563. mt_wait:moveq    #4,d3        
  1564. mt_wai2:move.b    $dff006,d2    
  1565. mt_wai3:cmp.b    $dff006,d2    
  1566.     beq.s    mt_wai3
  1567.     dbf    d3,mt_wai2    
  1568.     moveq    #8,d2
  1569. mt_wai4:dbf    d2,mt_wai4
  1570.  
  1571. mt_nonew:
  1572.     lea    mt_voice1-MB(a6),a4
  1573.     lea    $dff0a0,a5
  1574.     bsr    mt_com
  1575.     lea    mt_voice2-MB(a6),a4
  1576.     lea    $dff0b0,a5
  1577.     bsr    mt_com
  1578.     lea    mt_voice3-MB(a6),a4
  1579.     lea    $dff0c0,a5
  1580.     bsr    mt_com
  1581.     lea    mt_voice4-MB(a6),a4
  1582.     lea    $dff0d0,a5
  1583.     bsr    mt_com
  1584.     bra.s    mt_exit
  1585.  
  1586.  
  1587. mt_playvoice:
  1588.     move.l    (a0,d1.l),(a4)
  1589.     moveq    #0,d2
  1590.     move.b    2(a4),d2
  1591.     lsr.b    #4,d2
  1592.     move.b    (a4),d0
  1593.     and.b    #$f0,d0
  1594.     or.b    d0,d2
  1595.     beq    mt_oldinstr
  1596.  
  1597.     lea    mt_samplestarts-4-MB(a6),a1
  1598.     move.w    d2,34(a4)
  1599.     move.w    d2,d0
  1600.     mulu    #120,d0
  1601.     add.l    mt_data2-MB(a6),d0
  1602.     move.l    a0,-(sp)
  1603.     move.l    d0,a0
  1604.     clr.w    30(a4)
  1605.     cmp.w    #"AM",(a0)
  1606.     bne.s    mt_noa9
  1607.     move.w    6(a0),d0
  1608.     lsr.w    #2,d0
  1609.     st    30(a4)
  1610. mt_noa9:move.l    (sp)+,a0
  1611.  
  1612.     asl.w    #2,d2
  1613.     move.l    (a1,d2.l),4(a4)
  1614.     lsr.w    #2,d2
  1615.     mulu    #30,d2
  1616.     move.w    (a3,d2.w),8(a4)
  1617.     tst.w    30(a4)
  1618.     beq.s    mt_noa8
  1619.     move.w    d0,$12(a4)
  1620.     bra.s    mt_noa7
  1621. mt_noa8:move.w    2(a3,d2.w),$12(a4)
  1622. mt_noa7:moveq    #0,d3
  1623.     move.w    4(a3,d2.w),d3
  1624.     tst.w    d3
  1625.     beq.s    mt_noloop
  1626.     move.l    4(a4),d0
  1627.     asl.w    #1,d3
  1628.     add.l    d3,d0
  1629.     move.l    d0,$a(a4)
  1630.     move.w    4(a3,d2.w),d0
  1631.     add.w    6(a3,d2.w),d0
  1632.     move.w    d0,8(a4)
  1633.     bra.s    mt_hejaSverige
  1634. mt_noloop:
  1635.     move.l    4(a4),d0
  1636.     add.l    d3,d0
  1637.     move.l    d0,$a(a4)
  1638. mt_hejaSverige:
  1639.     move.w    6(a3,d2.w),$e(a4)
  1640.  
  1641. mt_oldinstr:
  1642.     move.w    (a4),d0
  1643.     and.w    #$fff,d0
  1644.     beq    mt_com2
  1645.     tst.w    30(a4)
  1646.     bne.s    mt_rambo
  1647.     tst.w    8(a4)
  1648.     beq    mt_stopsound
  1649.     tst.b    $12(a4)
  1650.     bne    mt_stopsound
  1651.     move.b    2(a4),d0
  1652.     and.b    #$f,d0
  1653.     cmp.b    #5,d0
  1654.     beq    mt_setport
  1655.     cmp.b    #3,d0
  1656.     beq    mt_setport
  1657.  
  1658. mt_rambo:
  1659.     move.w    (a4),$10(a4)
  1660.     and.w    #$fff,$10(a4)
  1661.     move.w    $1a(a4),$dff096
  1662.     clr.b    $19(a4)
  1663.  
  1664.     tst.w    30(a4)
  1665.     beq.s    mt_noaminst
  1666.     move.l    a0,-(sp)
  1667.     move.w    34(a4),d0
  1668.     mulu    #120,d0
  1669.     add.l    mt_data2-MB(a6),d0
  1670.     move.l    d0,a0
  1671.     moveq    #0,d0
  1672.     move.w    26(a0),d0
  1673.     lsl.w    #5,d0
  1674.     
  1675.     move.l    a0,-(sp)
  1676.     move.l    mt_amwave-MB(a6),a0
  1677.     add.l    a0,d0    
  1678.     move.l    (sp)+,a0
  1679.  
  1680.     move.l    d0,(a5)
  1681.     move.w    #16,4(a5)
  1682.     move.l    d0,$a(a4)
  1683.     move.w    #16,$e(a4)
  1684.     move.w    6(a0),32(a4)
  1685.     move.l    #1,36(a4)
  1686.     move.w    34(a0),d0
  1687.     move.w    d1,-(sp)
  1688.     move.w    $10(a4),d1
  1689.     lsl.w    d0,d1
  1690.     move.w    d1,$10(a4)
  1691.     move.w    d1,6(a5)
  1692.     move.w    (sp)+,d1
  1693.     move.l    (sp)+,a0
  1694.     bra.s    mt_juck
  1695.  
  1696. mt_noaminst:
  1697.     move.l    4(a4),(a5)
  1698.     move.w    8(a4),4(a5)
  1699.     move.w    $10(a4),6(a5)
  1700.  
  1701. mt_juck:
  1702.     move.b    $13(a4),MuVu-MB(a6,d6.w)    * Vu-metres...
  1703.     move.w    $1a(a4),d0
  1704.     or.w    d0,mt_dmacon-MB(a6)
  1705.     bra    mt_com2
  1706.  
  1707. mt_stopsound:
  1708.     move.w    $1a(a4),$dff096
  1709.     bra    mt_com2
  1710.  
  1711. mt_setport:
  1712.     move.w    (a4),d2
  1713.     and.w    #$fff,d2
  1714.     move.w    d2,$16(a4)
  1715.     move.w    $10(a4),d0
  1716.     clr.b    $14(a4)
  1717.     cmp.w    d0,d2
  1718.     beq.s    mt_clrport
  1719.     bge    mt_com2
  1720.     move.b    #1,$14(a4)
  1721.     bra    mt_com2
  1722. mt_clrport:
  1723.     clr.w    $16(a4)
  1724.     rts
  1725.  
  1726. mt_port:move.b    3(a4),d0
  1727.     beq.s    mt_port2
  1728.     move.b    d0,$15(a4)
  1729.     clr.b    3(a4)
  1730. mt_port2:
  1731.     tst.w    $16(a4)
  1732.     beq.s    mt_rts
  1733.     moveq    #0,d0
  1734.     move.b    $15(a4),d0
  1735.     tst.b    $14(a4)
  1736.     bne.s    mt_sub
  1737.     add.w    d0,$10(a4)
  1738.     move.w    $16(a4),d0
  1739.     cmp.w    $10(a4),d0
  1740.     bgt.s    mt_portok
  1741.     move.w    $16(a4),$10(a4)
  1742.     clr.w    $16(a4)
  1743. mt_portok:
  1744.     move.w    $10(a4),6(a5)
  1745. mt_rts:    rts
  1746.  
  1747. mt_sub:    sub.w    d0,$10(a4)
  1748.     move.w    $16(a4),d0
  1749.     cmp.w    $10(a4),d0
  1750.     blt.s    mt_portok
  1751.     move.w    $16(a4),$10(a4)
  1752.     clr.w    $16(a4)
  1753.     move.w    $10(a4),6(a5)
  1754.     rts
  1755.  
  1756.  
  1757. mt_vib:    move.b    $3(a4),d0
  1758.     beq.s    mt_vib2
  1759.     move.b    d0,$18(a4)
  1760.  
  1761. mt_vib2:move.b    $19(a4),d0
  1762.     lsr.w    #2,d0
  1763.     and.w    #$1f,d0
  1764.     moveq    #0,d2
  1765.  
  1766.     move.l    a0,-(sp)
  1767.     lea    mt_sin-MB(a6),a0
  1768.     move.b    (a0,d0.w),d2
  1769.     move.l    (sp)+,a0
  1770.  
  1771.     move.b    $18(a4),d0
  1772.     and.w    #$f,d0
  1773.     mulu    d0,d2
  1774.     lsr.w    #7,d2
  1775.     move.w    $10(a4),d0
  1776.     tst.b    $19(a4)
  1777.     bmi.s    mt_vibsub
  1778.     add.w    d2,d0
  1779.     bra.s    mt_vib3
  1780. mt_vibsub:
  1781.     sub.w    d2,d0
  1782. mt_vib3:move.w    d0,6(a5)
  1783.     move.b    $18(a4),d0
  1784.     lsr.w    #2,d0
  1785.     and.w    #$3c,d0
  1786.     add.b    d0,$19(a4)
  1787.     rts
  1788.  
  1789.  
  1790. mt_arp:    moveq    #0,d0
  1791.     move.b    mt_counter-MB(a6),d0
  1792.  
  1793.     move.l    a0,-(sp)
  1794.     lea    mt_arplist-MB(a6),a0
  1795.     move.b    (a0,d0.w),d0
  1796.     move.l    (sp)+,a0
  1797.     tst.b    d0
  1798.  
  1799.     beq.s    mt_arp0
  1800.     cmp.b    #2,d0
  1801.     beq.s    mt_arp2
  1802. mt_arp1:moveq    #0,d0
  1803.     move.b    3(a4),d0
  1804.     lsr.b    #4,d0
  1805.     bra.s    mt_arpdo
  1806. mt_arp2:moveq    #0,d0
  1807.     move.b    3(a4),d0
  1808.     and.b    #$f,d0
  1809. mt_arpdo:
  1810.     asl.w    #1,d0
  1811.     move.w    $10(a4),d1
  1812.     and.w    #$fff,d1
  1813.     lea    mt_periods-MB(a6),a0
  1814.     moveq    #$24,d2
  1815. mt_arp3:cmp.w    (a0)+,d1
  1816.     bge.s    mt_arpfound
  1817.     dbf    d2,mt_arp3
  1818. mt_arp0:move.w    $10(a4),6(a5)
  1819.     rts
  1820. mt_arpfound:
  1821.     move.w    -2(a0,d0.w),6(a5)
  1822.     rts
  1823.  
  1824. mt_normper:
  1825.     move.w    $10(a4),6(a5)
  1826.     rts
  1827.  
  1828. mt_com:    move.w    2(a4),d0
  1829.     and.w    #$fff,d0
  1830.     beq.s    mt_normper
  1831.     move.b    2(a4),d0
  1832.     and.b    #$f,d0
  1833.     tst.b    d0
  1834.     beq.s    mt_arp
  1835.     cmp.b    #1,d0
  1836.     beq.s    mt_portup
  1837.     cmp.b    #2,d0
  1838.     beq.s    mt_portdown
  1839.     cmp.b    #3,d0
  1840.     beq    mt_port
  1841.     cmp.b    #4,d0
  1842.     beq    mt_vib
  1843.     cmp.b    #5,d0
  1844.     beq.s    mt_volport
  1845.     cmp.b    #6,d0
  1846.     beq.s    mt_volvib
  1847.     move.w    $10(a4),6(a5)
  1848.     cmp.b    #$a,d0
  1849.     beq.s    mt_volslide
  1850.     rts
  1851.  
  1852. mt_portup:
  1853.     moveq    #0,d0
  1854.     move.b    3(a4),d0
  1855.     sub.w    d0,$10(a4)
  1856.     move.w    $10(a4),d0
  1857.     cmp.w    #$71,d0
  1858.     bpl.s    mt_portup2
  1859.     move.w    #$71,$10(a4)
  1860. mt_portup2:
  1861.     move.w    $10(a4),6(a5)
  1862.     rts
  1863.  
  1864. mt_portdown:
  1865.     moveq    #0,d0
  1866.     move.b    3(a4),d0
  1867.     add.w    d0,$10(a4)
  1868.     move.w    $10(a4),d0
  1869.     cmp.w    #$358,d0
  1870.     bmi.s    mt_portdown2
  1871.     move.w    #$358,$10(a4)
  1872. mt_portdown2:
  1873.     move.w    $10(a4),6(a5)
  1874.     rts
  1875.  
  1876. mt_volvib:
  1877.      bsr    mt_vib2
  1878.      bra.s    mt_volslide
  1879. mt_volport:
  1880.      bsr    mt_port2
  1881.  
  1882. mt_volslide:
  1883.     moveq    #0,d0
  1884.     move.b    3(a4),d0
  1885.     lsr.b    #4,d0
  1886.     beq.s    mt_vol3
  1887.     add.b    d0,$13(a4)
  1888.     cmp.b    #$40,$13(a4)
  1889.     bmi.s    mt_vol2
  1890.     move.b    #$40,$13(a4)
  1891. mt_vol2:moveq    #0,d0
  1892.     move.b    $13(a4),d0
  1893.     move.w    d0,8(a5)
  1894.     rts
  1895.  
  1896. mt_vol3:move.b    3(a4),d0
  1897.     and.b    #$f,d0
  1898.     sub.b    d0,$13(a4)
  1899.     bpl.s    mt_vol4
  1900.     clr.b    $13(a4)
  1901. mt_vol4:moveq    #0,d0
  1902.     move.b    $13(a4),d0
  1903.     move.w    d0,8(a5)
  1904.     rts
  1905.  
  1906. mt_com2:move.b    $2(a4),d0
  1907.     and.b    #$f,d0
  1908.     cmp.b    #$e,d0
  1909.     beq.s    mt_filter
  1910.     cmp.b    #$d,d0
  1911.     beq.s    mt_pattbreak
  1912.     cmp.b    #$b,d0
  1913.     beq.s    mt_songjmp
  1914.     cmp.b    #$c,d0
  1915.     beq.s    mt_setvol
  1916.     cmp.b    #$f,d0
  1917.     beq.s    mt_setspeed
  1918.     rts
  1919.  
  1920. mt_filter:
  1921.     move.b    3(a4),d0
  1922.     and.b    #1,d0
  1923.     asl.b    #1,d0
  1924.     and.b    #$fd,$bfe001
  1925.     or.b    d0,$bfe001
  1926.     rts
  1927.  
  1928. mt_pattbreak:
  1929.     move.b    #1,mt_break-Mb(a6)
  1930.     rts
  1931.  
  1932. mt_songjmp:
  1933.     move.b    #1,mt_break-MB(a6)
  1934.     move.b    3(a4),d0
  1935.     subq.b    #1,d0
  1936.     move.b    d0,mt_songpos-MB(a6)
  1937.     rts
  1938.  
  1939. mt_setvol:
  1940.     cmp.b    #$40,3(a4)
  1941.     bls.s    mt_sv2
  1942.     move.b    #$40,3(a4)
  1943. mt_sv2:    moveq    #0,d0
  1944.     move.b    3(a4),d0
  1945.     move.b    d0,$13(a4)
  1946.  
  1947.     sub.b    #$20,d0
  1948.     bpl    mt_sv22
  1949.     moveq    #0,d0
  1950. mt_sv22
  1951.     move.w    d0,8(a5)
  1952.     rts
  1953.  
  1954. mt_setspeed:
  1955.     moveq    #0,d0
  1956.     move.b    3(a4),d0
  1957.     cmp.b    #$1f,d0
  1958.     bls.s    mt_sp2
  1959.     moveq    #$1f,d0
  1960. mt_sp2:    tst.w    d0
  1961.     bne.s    mt_sp3
  1962.     moveq    #1,d0
  1963. mt_sp3:    move.b    d0,mt_speed-MB(a6)
  1964.     rts
  1965.  
  1966. mt_amhandler:
  1967.     moveq    #3,d7
  1968.  
  1969.     move.l    a4,-(sp)
  1970.     lea    mt_voice1-MB(a6),a4
  1971.     lea    $dff0a0,a5        aud0lch
  1972. mt_amloop:
  1973.     tst.w    30(a4)
  1974.     beq    mt_anrp
  1975.     move.w    34(a4),d0
  1976.     mulu    #120,d0
  1977.     add.l    mt_data2-MB(a6),d0
  1978.     move.l    d0,a0
  1979.     tst.w    38(a4)
  1980.     beq    mt_anrp
  1981.     cmp.w    #1,38(a4)
  1982.     bne.s    mt_anat
  1983.     move.w    32(a4),d0
  1984.     cmp.w    8(a0),d0
  1985.     beq.s    mt_aaeq
  1986.     cmp.w    8(a0),d0
  1987.     blt.s    mt_aaad
  1988.     move.w    10(a0),d0
  1989.     sub.w    d0,32(a4)
  1990.     move.w    32(a4),d0
  1991.     cmp.w    8(a0),d0
  1992.     bgt    mt_anxt
  1993.     move.w    8(a0),32(a4)
  1994. mt_aaeq:move.w    #2,38(a4)
  1995.     bra    mt_anxt
  1996. mt_aaad:move.w    10(a0),d0
  1997.     add.w    d0,32(a4)
  1998.     move.w    32(a4),d0
  1999.     cmp.w    8(a0),d0
  2000.     blt    mt_anxt
  2001.     move.w    8(a0),32(a4)
  2002.     bra.s    mt_aaeq
  2003. mt_anat:cmp.w    #2,38(a4)
  2004.     bne.s    mt_ana2
  2005.     move.w    32(a4),d0
  2006.     cmp.w    12(a0),d0
  2007.     beq.s    mt_a2eq
  2008.     cmp.w    12(a0),d0
  2009.     blt.s    mt_a2ad
  2010.     move.w    14(a0),d0
  2011.     sub.w    d0,32(a4)
  2012.     move.w    32(a4),d0
  2013.     cmp.w    12(a0),d0
  2014.     bgt    mt_anxt
  2015.     move.w    12(a0),32(a4)
  2016. mt_a2eq:move.w    #3,38(a4)
  2017.     bra    mt_anxt
  2018. mt_a2ad:move.w    14(a0),d0
  2019.     add.w    d0,32(a4)
  2020.     move.w    32(a4),d0
  2021.     cmp.w    12(a0),d0
  2022.     blt    mt_anxt
  2023.     move.w    12(a0),32(a4)
  2024.     bra.s    mt_a2eq
  2025. mt_ana2:cmp.w    #3,38(a4)
  2026.     bne.s    mt_andc
  2027.     move.w    32(a4),d0
  2028.     cmp.w    16(a0),d0
  2029.     beq.s    mt_adeq
  2030.     cmp.w    16(a0),d0
  2031.     blt.s    mt_adad
  2032.     move.w    18(a0),d0
  2033.     sub.w    d0,32(a4)
  2034.     move.w    32(a4),d0
  2035.     cmp.w    16(a0),d0
  2036.     bgt.s    mt_anxt
  2037.     move.w    16(a0),32(a4)
  2038. mt_adeq:move.w    #4,38(a4)
  2039.     move.w    20(a0),40(a4)
  2040.     bra.s    mt_anxt
  2041. mt_adad:move.w    18(a0),d0
  2042.     add.w    d0,32(a4)
  2043.     move.w    32(a4),d0
  2044.     cmp.w    16(a0),d0
  2045.     blt.s    mt_anxt
  2046.     move.w    16(a0),32(a4)
  2047.     bra.s    mt_adeq
  2048. mt_andc:cmp.w    #4,38(a4)
  2049.     bne.s    mt_anst
  2050.     subq.w    #1,40(a4)
  2051.     bpl.s    mt_anxt
  2052.     move.w    #5,38(a4)
  2053.     bra.s    mt_anxt
  2054. mt_anst:move.w    24(a0),d0
  2055.     sub.w    d0,32(a4)
  2056.     bpl.s    mt_anxt
  2057.     clr.l    30(a4)
  2058.     clr.w    38(a4)
  2059.     move.w    26(a4),$dff096        dmaconw
  2060. mt_anxt:move.w    32(a4),d0
  2061.     lsr.w    #2,d0
  2062.     move.w    d0,8(a5)
  2063.     move.w    28(a0),d0
  2064.     add.w    d0,16(a4)
  2065.     move.w    30(a0),d1
  2066.     beq.s    mt_nvib
  2067.     move.w    36(a4),d2
  2068.     moveq    #0,d3
  2069.     cmp.w    #360,d2
  2070.     blt.s    mt_vibq
  2071.     sub.w    #360,d2
  2072.     moveq    #1,d3
  2073. mt_vibq:move.l    mt_ams-MB(a6),a2
  2074.     muls    (a2,d2.w),d1
  2075.     asr.w    #7,d1
  2076.     tst.w    d3
  2077.     beq.s    mt_nvib
  2078.     neg.w    d1
  2079. mt_nvib:add.w    16(a4),d1
  2080.     move.w    d1,6(a5)
  2081.     move.w    32(a0),d0
  2082.     add.w    d0,d0
  2083.     add.w    d0,36(a4)
  2084.     cmp.w    #720,36(a4)
  2085.     blt.s    mt_anrp
  2086.     sub.w    #720,36(a4)
  2087. mt_anrp:lea    $10(a5),a5
  2088.     lea    42(a4),a4
  2089.     dbra    d7,mt_amloop
  2090.     move.l    mt_noise-MB(a6),a0
  2091.     move.w    #$7327,d0
  2092.     moveq    #31,d1
  2093. mt_nlop:move.b    d0,(a0)+
  2094.     add.b    $dff007,d0
  2095.     eor.w    #124,d0
  2096.     rol.w    #3,d0
  2097.     dbra    d1,mt_nlop
  2098.     move.l    (sp)+,a4
  2099.     rts
  2100.  
  2101. ; Now follows a big chunk of data. Better disable the RBsr system...
  2102.  
  2103.     RDATA
  2104.  
  2105. *********************************************************************
  2106. *        MUSIC extension data zone
  2107. MB:    
  2108. MuVu        dc.l    0        * Vu Meters
  2109. MuBase        dc.l    0        * Curretn music address
  2110. MusAdr        dc.l    0        * Branch table address
  2111. MusClock    dc.l     3546895        * Clock speed
  2112. WaveBase    dc.l    0        * Wave tree
  2113. Waves        dc.w     0,0,0,0
  2114. EnvOn:        dc.w     0        * ADSR running?
  2115. EnvBase:    ds.b    EnvLong*4    * ADSR table
  2116. SamBank:    dc.w     0        * Sample bank
  2117. BSeed:        dc.w     0        * Random seed
  2118. Noise:        dc.w    0        * Noise on?
  2119. PNoise:        dc.w    0        * Pointer to noise buffer
  2120. TempoBase:    dc.w    0        * 100 (PAL) - 120 (NTSC)
  2121. *         Musique
  2122. MusBank        dc.l     0        * Music bank
  2123. MusCheck    dc.l    0        * Check sum
  2124. BankInst    dc.l    0        * Instruments
  2125. BankSong    dc.l    0        * Songs
  2126. BankPat        dc.l     0        * Patterns
  2127. MuNumber    dc.w    0        * Music priority
  2128. MuVolume    dc.w    0        * Music volume
  2129. MuDMAsk        dc.w    0        * Voice mask
  2130. MuReStart    dc.w    0        * Restart the voice
  2131. MuChip0        dc.l    0        * Circuits 0
  2132. MuChip1        dc.l     0        *       1
  2133. MuChip2        dc.l     0        *          2
  2134. MuChip3        dc.l     0        *          3
  2135. FoEnd        dc.w    $8000        * Fake empty pattern
  2136. MuBuffer    ds.b    MuLong*3    * Music tables
  2137.  
  2138. *************** Tables for effects
  2139. Sinus    
  2140.  dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  2141.  dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  2142.  
  2143. Periods    
  2144.  dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  2145.  dc.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  2146.  dc.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  2147.  dc.w $007f,$0078,$0071,$0000,$0000
  2148.  
  2149. *************** Default enveloppes
  2150. EnvDef:        dc.w 1,64,4,55,5,50,25,0,0,0
  2151. EnvShoot    dc.w 1,64,10,0,0,0
  2152. EnvBoom        dc.w 1,64,10,50,50,0,0,0
  2153. EnvBell        dc.w 1,64,4,40,25,0,0,0
  2154.  
  2155. *************** Bank headers
  2156. BkMus:        dc.b "Music   "
  2157.  
  2158. *************** Frequency / notes
  2159. TFreq:    dc.w 000,256/2
  2160.     dc.w 000,256/2
  2161.     dc.w 256,128/2
  2162.     dc.w 384,64/2
  2163.     dc.w 448,32/2
  2164.     dc.w 480,16/2
  2165.     dc.w 496,8/2
  2166.     dc.w 504,4/2
  2167.     dc.w 504,4/2
  2168. TNotes:    dc.w 00,00,00,33,35,37,39,41,44,46,49,52
  2169.     dc.w 55,58,62,65,69,73,78,82,87,92,98,104
  2170.     dc.w 110,117,123,131,139,147,156,165,175,185,196,208
  2171.     dc.w 220,233,247,262,277,294,311,330,349,370,392,415
  2172.     dc.w 440,466,494,523,554,587,622,659,698,740,784,830
  2173.     dc.w 880,932,988,1046,1109,1175,1245,1319,1397,1480,1568,1661
  2174.     dc.w 1760,1865,1986,2093,2217,2349,2489,2637,2794,2960,3136,3322
  2175.     dc.w 3520,3729,3952,4186,4435,4699,4978,5274,5588,5920,6272,6645
  2176.     dc.w 7040,7459,7902,8372
  2177.  
  2178. *************** SAMPLE PLAYER INTERRUPT STRUCTURES
  2179. Sami_lplay    equ    1024*4
  2180. Sami_bit    equ    22
  2181. Sami_dma    equ    24
  2182. Sami_reg    equ    26
  2183. Sami_adr    equ    28
  2184. Sami_long    equ    32
  2185. Sami_pos    equ    36
  2186. Sami_rpos    equ    40
  2187. Sami_radr    equ    44
  2188. Sami_rlong    equ    48
  2189. Sami_dvol    equ    52
  2190. Sami_old    equ    54
  2191. Sami_intl    equ    58
  2192.  
  2193. Sami_int    ds.b    22                * Channel 0
  2194.         dc.w    %0000000010000000    bit
  2195.         dc.w    0            dma
  2196.         dc.w    $a0            reg
  2197.         dc.l    0            adr
  2198.         dc.l    0            long
  2199.         dc.l    0            pos
  2200.         dc.l    0            rpos
  2201.         dc.l    0            radr
  2202.         dc.l    0            rlong
  2203.         dc.w    0            dvol
  2204.         dc.l    0            old            
  2205.  
  2206.         ds.b    22                * Channel 1
  2207.         dc.w    %0000000100000000    bit
  2208.         dc.w    1            dma
  2209.         dc.w    $b0            reg
  2210.         dc.l    0            adr
  2211.         dc.l    0            long
  2212.         dc.l    0            pos
  2213.         dc.l    0            rpos
  2214.         dc.l    0            radr
  2215.         dc.l    0            rlong
  2216.         dc.w    0            dvol
  2217.         dc.l    0            old            
  2218.  
  2219.         ds.b    22                * Channel 2
  2220.         dc.w    %0000001000000000    bit
  2221.         dc.w    2            dma
  2222.         dc.w    $c0            reg
  2223.         dc.l    0            adr
  2224.         dc.l    0            long
  2225.         dc.l    0            pos
  2226.         dc.l    0            rpos
  2227.         dc.l    0            radr
  2228.         dc.l    0            rlong
  2229.         dc.w    0            dvol
  2230.         dc.l    0            old            
  2231.  
  2232.         ds.b    22                * Channel 3
  2233.         dc.w    %0000010000000000    bit
  2234.         dc.w    3            dma
  2235.         dc.w    $d0            reg
  2236.         dc.l    0            adr
  2237.         dc.l    0            long
  2238.         dc.l    0            pos
  2239.         dc.l    0            rpos
  2240.         dc.l    0            radr
  2241.         dc.l    0            rlong
  2242.         dc.w    0            dvol
  2243.         dc.l    0            old            
  2244.  
  2245. Sami_OldEna    dc.w    0
  2246. Sami_empty    dc.l    0
  2247. Sami_bits    dc.w    0
  2248. Sami_handad    dc.l    0
  2249. Sami_flag    dc.w    0
  2250. SamLoops    dc.w    0
  2251. *************** NARRATOR
  2252. Amaps:        dc.b    3,5,10,12
  2253. TranBase    dc.l    0
  2254. TalkIO:        ds.l    20
  2255. WriteRep:    ds.l    8
  2256. TranName    dc.b    "translator.library",0
  2257. NarDevice    dc.b    "narrator.device",0
  2258.  
  2259. *************** Welcome message
  2260. MusWel:        dc.b     27,"Y8Music player V 1.3",0
  2261.         even
  2262.  
  2263. *********************************************************************
  2264. *    mt TRACKER data zone
  2265.  
  2266. Track_Bank    dc.w    6        Bank number 6= tracker
  2267. sorpend        dc.b    0        turn music off if 1        
  2268. sorploop    dc.b    0        0=once:1=loop 
  2269. sorp        dc.b    0        0=song:1=patt
  2270. omt_songpos    dc.b    0
  2271.  
  2272. mt_amwave    dc.l    0        address of wave forms
  2273. mt_noise    dc.l    0        address of wave forms
  2274. mt_ams        dc.l    0        address of wave forms
  2275.     even
  2276. mt_mulu:
  2277.     dc.w    0,$1e,$3c,$5a,$78,$96,$b4,$d2,$f0,$10e,$12c,$14a
  2278.     dc.w    $168,$186,$1a4,$1c2,$1e0,$1fe,$21c,$23a,$258,$276
  2279.     dc.w    $294,$2b2,$2d0,$2ee,$30c,$32a,$348,$366,$384,$3a2
  2280.  
  2281. mt_sin:    dc.b    0,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4
  2282.     dc.b    $fa,$fd
  2283.     dc.b    $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61
  2284.     dc.b    $4a,$31,$18
  2285.  
  2286. mt_arplist:
  2287.     dc.b    0,1,2,0,1,2,0,1,2,0,1,2,0
  2288.     dc.b    1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1
  2289.  
  2290. mt_amwaveforms:
  2291.     dc.b    0,25,49,71,90,106,117,125
  2292.     dc.b    127,125,117,106,90,71,49,25
  2293.     dc.b    0,-25,-49,-71,-90,-106,-117
  2294.     dc.b    -125,-127,-125,-117,-106
  2295.     dc.b    -90,-71,-49,-25
  2296.     dc.b    -128,-120,-112,-104,-96,-88,-80,-72,-64,-56,-48
  2297.     dc.b    -40,-32,-24,-16,-8,0,8,16,24,32,40,48,56,64,72,80
  2298.     dc.b    88,96,104,112,120
  2299.     dc.b    -128
  2300.     dc.b    -128
  2301.     dc.b    -128
  2302.     dc.b    -128
  2303.     dc.b    -128
  2304.     dc.b    -128
  2305.     dc.b    -128
  2306.     dc.b    -128
  2307.     dc.b    -128
  2308.     dc.b    -128
  2309.     dc.b    -128
  2310.     dc.b    -128
  2311.     dc.b    -128
  2312.     dc.b    -128
  2313.     dc.b    -128
  2314.     dc.b    -128
  2315.     
  2316.     
  2317.     dc.b    127
  2318.     dc.b    127
  2319.     dc.b    127
  2320.     dc.b    127
  2321.     dc.b    127
  2322.     dc.b    127
  2323.     dc.b    127
  2324.     dc.b    127
  2325.     dc.b    127
  2326.     dc.b    127
  2327.     dc.b    127
  2328.     dc.b    127
  2329.     dc.b    127
  2330.     dc.b    127
  2331.     dc.b    127
  2332.     dc.b    127
  2333.     
  2334. mt_noisewave:
  2335.     dc.b    0
  2336.     dc.b    0
  2337.     dc.b    0
  2338.     dc.b    0
  2339.     dc.b    0
  2340.     dc.b    0
  2341.     dc.b    0
  2342.     dc.b    0
  2343.     dc.b    0
  2344.     dc.b    0
  2345.     dc.b    0
  2346.     dc.b    0
  2347.     dc.b    0
  2348.     dc.b    0
  2349.     dc.b    0
  2350.     dc.b    0
  2351.     dc.b    0
  2352.     dc.b    0
  2353.     dc.b    0
  2354.     dc.b    0
  2355.     dc.b    0
  2356.     dc.b    0
  2357.     dc.b    0
  2358.     dc.b    0
  2359.     dc.b    0
  2360.     dc.b    0
  2361.     dc.b    0
  2362.     dc.b    0
  2363.     dc.b    0
  2364.     dc.b    0
  2365.     dc.b    0
  2366.     dc.b    0
  2367.  
  2368. mt_amsinus:
  2369.     dc.w    0,2,4,6,8,$b,$d,$f,$11,$14,$16,$18,$1a,$1c,$1e,$21
  2370.     dc.w    $23,$25,$27,$29,$2b,$2d,$2f,$32,$34,$36,$38,$3a,$3c,$3e
  2371.     dc.w    $3f,$41,$43,$45,$47,$49,$4b,$4d,$4e,$50,$52,$53,$55,$57
  2372.     dc.w    $58,$5a,$5c,$5d,$5f,$60,$62,$63,$64,$66,$67,$68,$6a,$6b
  2373.     dc.w    $6c,$6d,$6e,$6f,$71,$72,$73,$74,$74,$75,$76,$77,$78,$79
  2374.     dc.w    $79,$7a,$7b,$7b,$7c,$7c,$7d,$7d,$7e,$7e,$7e,$7f,$7f,$7f
  2375.     dc.w    $7f,$7f,$7f,$7f,$80,$7f,$7f,$7f,$7f,$7f,$7f,$7f,$7e,$7e
  2376.     dc.w    $7e,$7d,$7d,$7c,$7c,$7b,$7b,$7a,$79,$79,$78,$77,$76,$75
  2377.     dc.w    $74,$73,$72,$71,$6f,$6e,$6d,$6c,$6b,$6a,$68,$67,$66,$64
  2378.     dc.w    $63,$62,$60,$5f,$5d,$5c,$5a,$58,$57,$55,$53,$52,$50,$4e
  2379.     dc.w    $4d,$4b,$49,$47,$45,$43,$41,$40,$3e,$3c,$3a,$38,$36,$34
  2380.     dc.w    $32,$2f,$2d,$2b,$29,$27,$25,$23,$21,$1e,$1c,$1a,$18,$16
  2381.     dc.w    $14,$11,$f,$d,$b,$8,$6,$4,$2,0
  2382.     
  2383. mt_periods:
  2384.     dc.w    $358,$328,$2fa,$2d0,$2a6,$280,$25c,$23a,$21a,$1fc,$1e0
  2385.     dc.w    $1c5,$1ac,$194,$17d,$168,$153,$140,$12e,$11d,$10d,$fe
  2386.     dc.w    $f0,$e2,$d6,$ca,$be,$b4,$aa,$a0,$97,$8f,$87
  2387.     dc.w    $7f,$78,$71,0
  2388.     
  2389.  
  2390.  
  2391. mt_speed:    dc.b    6
  2392. mt_counter:    dc.b    0
  2393. mt_pattpos:    dc.w    0
  2394. mt_songpos:    dc.b    0
  2395. mt_break:    dc.b    0
  2396. mt_dmacon:    dc.w    0
  2397. mt_samplestarts:
  2398.         dc.l    0
  2399.         dc.l    0
  2400.         dc.l    0
  2401.         dc.l    0
  2402.         dc.l    0
  2403.         dc.l    0
  2404.         dc.l    0
  2405.         dc.l    0
  2406.         dc.l    0
  2407.         dc.l    0
  2408.         dc.l    0
  2409.         dc.l    0
  2410.         dc.l    0
  2411.         dc.l    0
  2412.         dc.l    0
  2413.         dc.l    0
  2414.         dc.l    0
  2415.         dc.l    0
  2416.         dc.l    0
  2417.         dc.l    0
  2418.         dc.l    0
  2419.         dc.l    0
  2420.         dc.l    0
  2421.         dc.l    0
  2422.         dc.l    0
  2423.         dc.l    0
  2424.         dc.l    0
  2425.         dc.l    0
  2426.         dc.l    0
  2427.         dc.l    0
  2428.         dc.l    0
  2429.  
  2430.  
  2431.  
  2432. mt_voice1:
  2433.         dc.w    0
  2434.         dc.w    0
  2435.         dc.w    0
  2436.         dc.w    0
  2437.         dc.w    0
  2438.         dc.w    0
  2439.         dc.w    0
  2440.         dc.w    0
  2441.         dc.w    0
  2442.         dc.w    0
  2443.         dc.w    0
  2444.         dc.w    0
  2445.         dc.w    0
  2446.         dc.w    1
  2447.         dc.w    0
  2448.         dc.w    0
  2449.         dc.w    0
  2450.         dc.w    0
  2451.         dc.w    0
  2452.         dc.w    0
  2453.         dc.w    0
  2454. mt_voice2:
  2455.         dc.w    0
  2456.         dc.w    0
  2457.         dc.w    0
  2458.         dc.w    0
  2459.         dc.w    0
  2460.         dc.w    0
  2461.         dc.w    0
  2462.         dc.w    0
  2463.         dc.w    0
  2464.         dc.w    0
  2465.         dc.w    0
  2466.         dc.w    0
  2467.         dc.w    0
  2468.         dc.w    2
  2469.         dc.w    0
  2470.         dc.w    0
  2471.         dc.w    0
  2472.         dc.w    0
  2473.         dc.w    0
  2474.         dc.w    0
  2475.         dc.w    0
  2476. mt_voice3:
  2477.         dc.w    0
  2478.         dc.w    0
  2479.         dc.w    0
  2480.         dc.w    0
  2481.         dc.w    0
  2482.         dc.w    0
  2483.         dc.w    0
  2484.         dc.w    0
  2485.         dc.w    0
  2486.         dc.w    0
  2487.         dc.w    0
  2488.         dc.w    0
  2489.         dc.w    0
  2490.         dc.w    4
  2491.         dc.w    0
  2492.         dc.w    0
  2493.         dc.w    0
  2494.         dc.w    0
  2495.         dc.w    0
  2496.         dc.w    0
  2497.         dc.w    0
  2498. mt_voice4:    
  2499.         dc.w    0
  2500.         dc.w    0
  2501.         dc.w    0
  2502.         dc.w    0
  2503.         dc.w    0
  2504.         dc.w    0
  2505.         dc.w    0
  2506.         dc.w    0
  2507.         dc.w    0
  2508.         dc.w    0
  2509.         dc.w    0
  2510.         dc.w    0
  2511.         dc.w    0
  2512.         dc.w    8
  2513.         dc.w    0
  2514.         dc.w    0
  2515.         dc.w    0
  2516.         dc.w    0
  2517.         dc.w    0
  2518.         dc.w    0
  2519.         dc.w    0
  2520.  
  2521.  
  2522. mt_on        dc.b    0
  2523.         even
  2524.  
  2525. colour        dc.w    0
  2526.  
  2527. mt_data dc.l    0
  2528. mt_data2 dc.l    0
  2529.  
  2530.  
  2531. **********************************************************************
  2532. ; Please leave 1 or two labels free for future extension. You never
  2533. ; know!
  2534. L1
  2535.  
  2536. ; Now follow all the music routines. Some are just routines called by others,
  2537. ; some are instructions. 
  2538. ; See how a adress the internal music datazone, by using a base register
  2539. ; (usually A3) and adding the offset of the data in the datazone...
  2540.  
  2541. ; >>> How to get the parameters for the instruction?
  2542. ;
  2543. ; When an instruction or function is called, you get the parameters
  2544. ; pushed in A3. Remember that you unpile them in REVERSE order than
  2545. ; the instruction syntax.
  2546. ; As you have a entry point for each set of parameters, you know
  2547. ; how many are pushed...
  2548. ;    - INTEGER:    move.l    (a3)+,d0
  2549. ;    - STRING:    move.l    (a3)+,a0
  2550. ;            move.w    (a0)+,d0
  2551. ;        A0---> start of the string.
  2552. ;        D0---> length of the string
  2553. ;    - FLOAT:    move.l    (a3)+,d0
  2554. ;        fast floatting point format.
  2555. ;
  2556. ; IMPORTANT POINT: you MUST unpile the EXACT number of parameters,
  2557. ; to restore A3 to its original level. If you do not, you will not
  2558. ; have a immediate error, and AMOS will certainely crash on next
  2559. ; UNTIL / WEND / ENDIF / NEXT etc... 
  2560. ;
  2561. ; So, your instruction must:
  2562. ;    - Unpile the EXACT number of parameters from A3, and exit with
  2563. ;    A3 at the original level it was before collecting your parameters)
  2564. ;    - Preserve A4, A5 and A6
  2565. ; You can use D0-D7/A0-A2 freely...
  2566. ;
  2567. ; You can jump to the error routine without thinking about A3 if an error
  2568. ; occurs in your routine (via a RBra of course). BUT A4, A5 and A6 registers
  2569. ; MUST be preserved!
  2570. ;
  2571. ; You end must end by a RTS.
  2572. ;
  2573. ; >>> Functions, how to return the parameter?
  2574. ;
  2575. ; To send a function`s parameter back to AMOS, you load it in D3,
  2576. ; and put its type in D2:
  2577. ;    moveq    #0,d2    for an integer
  2578. ;    moveq    #1,d2    for a float
  2579. ;    moveq    #2,d2    for a string
  2580. ;
  2581.  
  2582. ******* Stop sound routine
  2583. L_MOff        equ    2
  2584. L2    lea    Circuits,a0
  2585.     move.w    #%0000011110000000,IntEna(a0)     * No more interrupts
  2586.     move.w    MuDMAsk-MB(a3),d0
  2587.     beq.s    MOf3
  2588.     move.w    d0,DmaCon(a0)
  2589.     moveq    #3,d1
  2590. MOf1    btst    d1,d0
  2591.     beq.s    MOf2
  2592.     move.w    #2,$a4(a0)
  2593.     clr.w    $a8(a0)
  2594. MOf2    lea    $10(a0),a0
  2595.     dbra    d1,MOf1
  2596. MOf3    rts
  2597.  
  2598. ***********************************************************
  2599. *    NARRATOR!
  2600.  
  2601. ******* Open narrator
  2602. L_OpNar        equ    3
  2603. L3    DLoad    a0
  2604.     move.l    TranBase-MB(a0),d0
  2605.     bne.s    OpNarOk
  2606.     movem.l    a3-a6,-(sp)
  2607.  
  2608.     move.l    a0,a3
  2609.     sub.l    a1,a1            * Narrator.device
  2610.     move.l    $4,a6
  2611.     jsr    FindTask(a6)
  2612.     lea    WriteRep-MB(a3),a1
  2613.     move.l    d0,$10(a1)
  2614.     jsr    AddPort(a6)
  2615.     lea    TalkIo-MB(a3),a1
  2616.     moveq    #0,d0
  2617.     moveq    #0,d1
  2618.     lea    NarDevice-MB(a3),a0
  2619.     jsr    OpenDev(a6)
  2620.     tst.l    d0
  2621.     bne    OpNarE
  2622.     Rbsr    L_NarInit
  2623.     lea    TranName-MB(a3),a1    * Translator.library
  2624.     moveq    #0,d0
  2625.     jsr    OpenLib(a6)
  2626.     move.l    d0,TranBase-MB(a3)
  2627.     beq    OpNarE
  2628. * Restore Sami interrupts
  2629.     move.l    DosBase(a5),a6
  2630.     moveq    #50,d1
  2631.     jsr    -198(a6)
  2632.     clr.w    Sami_Flag-MB(a3)
  2633.     RBsr    L_Sami_Install
  2634. * Ok!
  2635.     movem.l    (sp)+,a3-a6
  2636. OpNarOk    rts
  2637. OpNarE    movem.l    (sp)+,a3-a6
  2638. NoNar    moveq    #7,d0
  2639.     Rbra    L_Custom
  2640.  
  2641. ******* Init narrator (if here)!
  2642. L_NarInit    equ    4
  2643. L4    lea    TalkIO-MB(a3),a1
  2644.     lea    WriteRep-MB(a3),a0
  2645.     move.l    a0,14(a1)
  2646.     move.w    #150,48(a1)
  2647.     move.w    #110,50(a1)
  2648.     clr.w    52(a1)
  2649.     clr.w    54(a1)
  2650.     lea    Amaps-MB(a3),a0
  2651.     move.l    a0,56(a1)
  2652.     move.w    #4,60(a1)
  2653.     move.w    #63,62(a1)
  2654.     move.w    #22200,64(a1)
  2655.     rts
  2656.  
  2657. ******* SAY a$[,multi]
  2658. L_ISay2:    equ    5
  2659. L5    Rbsr    L_OpNar
  2660.     move.l    (a3)+,d7
  2661.     RBra    L_ISay
  2662. L_ISay1:    equ    6
  2663. L6    Rbsr    L_OpNar
  2664.     moveq    #0,d7    
  2665.     Rbra    L_ISay
  2666. L_ISay:        equ    7
  2667. L7    moveq    #%0000,d0
  2668.     Rbsr    L_StopDma
  2669.     Rbsr    L_VOnOf
  2670.     DLoad    a0
  2671.     clr.w    EnvOn-MB(a0)
  2672.     clr.w    Noise-MB(a0)
  2673.     move.l    (a3)+,a0
  2674.     moveq    #0,d0
  2675.     move.w    (a0)+,d0
  2676. * Phoneme?
  2677.     cmp.b    #"~",(a0)
  2678.     bne.s    ISayN
  2679.     addq.l    #1,a0
  2680.     move.l    Buffer(a5),a1
  2681.     move.w    d0,d1
  2682.     cmp.w    #1024,d1
  2683.     bcc    ISayN
  2684.     subq.w    #2,d1
  2685.     bmi.s    ISayN
  2686. ISayP    move.b    (a0)+,(a1)+
  2687.     dbra    d1,ISayP
  2688.     move.b    #"Q",(a1)+
  2689.     move.b    #"#",(a1)+
  2690.     move.b    #"U",(a1)+
  2691.     clr.b    (a1)+
  2692.     clr.b    (a1)+
  2693.     addq.w    #4,d0
  2694.     movem.l    a3/a6,-(sp)
  2695.     DLoad    a3
  2696.     bra.s    ISayNn
  2697. * Call TRANSLATOR
  2698. ISayN    move.l    Buffer(a5),a1
  2699.     move.l    a1,a2
  2700.     move.l    #1024,d1
  2701.     move.l    d1,d2
  2702.     lsr.w    #2,d2
  2703.     subq.w    #2,d2
  2704. ISayN1    clr.l    (a2)+
  2705.     dbra    d2,ISayN1
  2706.     movem.l    a3/a6,-(sp)
  2707.     DLoad    a3
  2708.     move.l    TranBase-MB(a3),a6
  2709.     jsr    Translate(a6)
  2710.     tst.w    d0
  2711.     bne.s    SayX
  2712.     move.l    #1024,d0
  2713. ISayNn
  2714.     Rbsr    L_Sami_remove
  2715.     lea    TalkIO-MB(a3),a1
  2716.     move.w    #3,28(a1)
  2717.     move.l    d0,36(a1)
  2718.     move.l    Buffer(a5),40(a1)
  2719.     move.l    ExecBase,a6
  2720. ;    tst.w    d7
  2721. ;    bne.s    ISayA
  2722.     jsr    DoIO(a6)
  2723. ;    bra.s    SayX
  2724. ;ISayA    jsr    SendIO(a6)
  2725. SayX    RBsr    L_Sami_install
  2726.     movem.l    (sp)+,a3/a6
  2727.     moveq    #%1111,d0
  2728.     Rbsr    L_VOnOf
  2729.     rts
  2730. ******* SET TALK sex,mode,pitch,rate
  2731. L_ITalk        equ    8
  2732. L8    Rbsr    L_OpNar
  2733.     move.l    #EntNul,d0
  2734.     Dlea    TalkIO,a1
  2735.     move.l    (a3)+,d1
  2736.     cmp.l    d0,d1
  2737.     beq.s    IRd1
  2738.     cmp.w    #40,d1
  2739.     Rbcs    L_IFonc
  2740.     cmp.w    #400,d1
  2741.     Rbhi    L_IFonc
  2742.     move.w    d1,48(a1)
  2743. IRd1    move.l    (a3)+,d1
  2744.     cmp.l    d0,d1
  2745.     beq.s    IRd2
  2746.     cmp.w    #65,d1
  2747.     Rbcs    L_IFonc
  2748.     cmp.w    #320,d1
  2749.     Rbhi    L_IFonc
  2750.     move.w    d1,50(a1)
  2751. IRd2    move.l    (a3)+,d1
  2752.     cmp.l    d0,d1
  2753.     beq.s    IRd3
  2754.     and.w    #$0001,d1
  2755.     move.w    d1,52(a1)
  2756. IRd3    move.l    (a3)+,d1
  2757.     cmp.l    d0,d1
  2758.     beq.s    IRd4
  2759.     and.w    #$0001,d1
  2760.     move.w    d1,54(a1)
  2761. IRd4    rts
  2762.  
  2763. L9
  2764. L10
  2765.  
  2766. ***********************************************************
  2767. *    MUSIC INSTRUCTION
  2768.  
  2769. *******    BELL
  2770. L_Bell0        equ    11
  2771. L11    moveq    #0,d3
  2772.     moveq    #70,d2
  2773.     moveq    #%1111,d1
  2774.     moveq    #1,d5
  2775.     Dlea    EnvBell,a0
  2776.     move.l    a0,d6
  2777.     Rbra    L_GoBel
  2778. L_Bell1        equ    12
  2779. L12    moveq    #0,d3
  2780.     move.l    (a3)+,d2
  2781.     moveq    #%1111,d1
  2782.     moveq    #1,d5
  2783.     Dlea    EnvBell,a0
  2784.     move.l    a0,d6
  2785.     Rbra    L_GoBel
  2786. ******* BOOM
  2787. L_Boom        equ    13
  2788. L13    moveq    #0,d3
  2789.     moveq    #36,d2
  2790.     moveq    #0,d5
  2791.     Dlea    EnvBoom,a0
  2792.     move.l    a0,d6
  2793.     Rbra    L_Shout
  2794. ******* SHOOT
  2795. L_Shoot        equ    14
  2796. L14    moveq    #0,d3
  2797.     moveq    #60,d2
  2798.     moveq    #0,d5
  2799.     Dlea    EnvShoot,a0
  2800.     move.l    a0,d6
  2801.     Rbra    L_Shout
  2802. * Gives a stereo effect
  2803. L_Shout:    equ    15
  2804. L15    moveq    #%0000,d0
  2805.     Rbsr    L_StopDma
  2806.     Rbsr    L_VOnOf
  2807.     moveq    #%1000,d1
  2808. Shot    movem.l    d0-d7,-(sp)
  2809.     Rbsr    L_GoShot
  2810.     movem.l    (sp)+,d0-d7
  2811.     addq.w    #1,d2
  2812.     lsr.w    #1,d1
  2813.     bcc.s    Shot
  2814.     rts
  2815.  
  2816. *******    VOLUME n
  2817. L_IVol1        equ    16
  2818. L16    move.l    (a3)+,d0
  2819.     moveq    #%1111,d1
  2820.     Rbsr    L_Vol
  2821.     Rbsr    L_MVol
  2822.     rts
  2823. ******* VOLUME voice,n
  2824. L_IVol2        equ    17
  2825. L17    move.l    (a3)+,d0
  2826.     move.l    (a3)+,d1
  2827.     Rbra    L_Vol
  2828. * Set voices volume level
  2829. L_Vol        equ    18
  2830. L18    cmp.l    #64,d0
  2831.     Rbcc    L_IFonc
  2832.     moveq    #0,d2
  2833.     Dlea    EnvBase,a0
  2834.     Dlea    Sami_int,a1
  2835. Vol1    btst    d2,d1
  2836.     beq.s    Vol2
  2837.     move.w    d0,EnvDVol(a0)
  2838.     tst.w    Sami_dvol(a1)
  2839.     bmi.s    Vol2
  2840.     move.w    d0,Sami_dvol(a1)
  2841. Vol2    lea    EnvLong(a0),a0
  2842.     lea    Sami_intl(a1),a1
  2843.     addq.w    #1,d2
  2844.     cmp.w    #4,d2
  2845.     bcs.s    Vol1
  2846.     rts
  2847.  
  2848. L19
  2849.  
  2850. *******    PLAY note,length
  2851. L_IPlay2    equ    20
  2852. L20    move.l    (a3)+,d3
  2853.     Rbmi    L_IFonc
  2854.     move.l    (a3)+,d2
  2855.     moveq    #%1111,d1
  2856.     moveq    #-1,d5
  2857.     moveq    #0,d6
  2858.     Rbra    L_GoBel
  2859. ******* Play voice,note,length
  2860. L_IPlay3    equ    21
  2861. L21    move.l    (a3)+,d3
  2862.     Rbmi    L_IFonc
  2863.     move.l    (a3)+,d2
  2864.     move.l    (a3)+,d1
  2865.     moveq    #-1,d5
  2866.     moveq    #0,d6
  2867.     Rbra    L_GoBel
  2868. L_GoBel        equ    22
  2869. L22    cmp.l    #96,d2            * <96?
  2870.     Rbhi    L_IFonc
  2871.     move.w    d1,d0            * Stop voices
  2872.     eor.w    #$000F,d0
  2873.     Rbsr    L_StopDma
  2874.     Rbsr    L_VOnOf
  2875.     Rbra    L_GoShot
  2876. L_GoShot    equ    23
  2877. L23    move.l    a3,-(sp)
  2878.     lea    Circuits,a2
  2879.     Dload    a3
  2880.     move.w    EnvOn-MB(a3),d7
  2881.     clr.w    EnvOn-MB(a3)
  2882.     move.w    #$8000,Sami_Bits-MB(a3)
  2883. * Explores all 4 voices
  2884.     moveq    #0,d0
  2885.     move.w    d1,d4
  2886.     moveq    #3,d1
  2887. IPl1    btst    d1,d4
  2888.     beq.s    IPl2
  2889.     Rbsr    L_VPlay
  2890. IPl2    dbra    d1,IPl1
  2891. ******* Start!
  2892. IPlX    Rbsr    L_DmaWait
  2893.     bset    #15,d0
  2894.     move.w    d0,DmaCon(a2)
  2895.     move.w    Sami_bits-MB(a3),IntEna(a2)
  2896.     move.w    d7,EnvOn-MB(a3)
  2897.     move.l    (sp)+,a3
  2898. * Wait?
  2899.     tst.l    d3
  2900.     beq.s    IPlX1
  2901.     Rjsr    L_WaitRout
  2902. IPlX1    rts
  2903.  
  2904. ******* Play voice D1: WAVE orSAMPLE
  2905. L_VPlay        equ    24
  2906. L24    movem.l    d0-d6/a0-a2,-(sp)
  2907.  
  2908.     moveq    #0,d3
  2909.     bset    d1,d3
  2910.     move.w    d3,DmaCon(a2)        * Stop voice
  2911.     lsl.w    #7,d3
  2912.     move.w    d3,IntEna(a2)        * Stop interrupts
  2913.     bclr    d1,Noise-MB(a3)        * No more random
  2914.     
  2915.     tst.w    d2
  2916.     beq    VSil
  2917.     addq.w    #3,d2
  2918.     move.w    d5,d0            * Forced wave? (bell)
  2919.     bpl.s    VPl0
  2920.     move.w    d1,d0            * Wave or Sample?
  2921.     lsl.w    #1,d0
  2922.     lea    Waves-MB(a3),a0
  2923.     move.w    0(a0,d0.w),d0
  2924.     bmi    VPl2
  2925.  
  2926. * Play WAVE!
  2927. VPl0    beq    VPl4
  2928.     lea    $a0(a2),a2
  2929.     move.w    d1,d3
  2930.     lsl.w    #4,d3
  2931.     add.w    d3,a2            * a2-> I/O
  2932.     movem.l    d1-d3/a2,-(sp)
  2933.     move.w    d0,d1
  2934.     Rbsr    L_WaveAd
  2935.     Rbeq    L_WNDef
  2936.     move.l    a2,a1
  2937.     movem.l    (sp)+,d1-d3/a2
  2938.     pea    WaveEnv(a1)
  2939.     lea    WaveDeb(a1),a1
  2940.     subq.w    #1,d2
  2941.     move.w    d2,d3
  2942.     ext.l    d3
  2943.     divu    #12,d3
  2944.     lsl.w    #2,d3
  2945.     lea    TFreq-MB(a3),a0
  2946.     add.w    d3,a0
  2947.     add.w    (a0)+,a1
  2948.     move.l    a1,(a2)            * AudAd
  2949.     move.w    (a0)+,d3
  2950.     move.w    d3,4(a2)        * AudLen
  2951.     lsl.w    #1,d3
  2952.     lea    TNotes-MB(a3),a1
  2953.     lsl.w    #1,d2
  2954.     mulu    0(a1,d2.w),d3
  2955.     move.l    MusClock-MB(a3),d2
  2956.     divu    d3,d2
  2957.     cmp.w    #124,d2
  2958.     bcc.s    VPl1
  2959.     moveq    #124,d2
  2960. VPl1:    move.w    d2,6(a2)        * AudPer
  2961. * Start enveloppe 
  2962.     move.l    (sp)+,d5
  2963.     tst.l    d6            * Fixed enveloppe? (bell / shoot)
  2964.     bne.s    VPl1a
  2965.     move.l    d5,d6
  2966. VPl1a    lea    EnvBase-MB(a3),a0    
  2967.     move.w    d1,d0
  2968.     mulu    #EnvLong,d0
  2969.     add.w    d0,a0
  2970.     move.l    d6,EnvAd(a0)
  2971.     move.l    d6,EnvDeb(a0)
  2972.     clr.w    EnvVol(a0)
  2973.     Rbsr    L_MuIntE
  2974.     movem.l    (sp)+,a0-a2/d0-d6
  2975.     bset    d1,d0
  2976.     bset    d1,d7
  2977.     rts
  2978. ******* Silence!
  2979. VSil    moveq    #0,d0
  2980.     bset    d1,d0
  2981.     move.w    d0,DmaCon(a2)
  2982.     movem.l    (sp)+,a0-a2/d0-d6
  2983.     bclr    d1,d7
  2984.     rts
  2985. ******* Play SAMPLE
  2986. VPl2    move.l    a2,-(sp)
  2987.     move.w    d2,-(sp)
  2988.     neg.w    d0
  2989.     Rbsr    L_GetSam
  2990.     move.w    (sp)+,d0
  2991.     move.l    (sp)+,a2
  2992.     moveq    #0,d6
  2993. VPl3    lea    TNotes-MB(a3),a0
  2994.     lsl.w    #1,d0
  2995.     mulu    -2(a0,d0.w),d3
  2996.     divu    #440,d3
  2997.     and.l    #$0000FFFF,d3
  2998.     Rbra    L_SPl0
  2999. ******* Play NOISE
  3000. VPl4    bset    d1,Noise-MB(a3)
  3001.     move.w    d2,d0
  3002.     move.l    WaveBase-MB(a3),a1
  3003.     lea    WaveEnv(a1),a0
  3004.     lea    WaveDeb(a1),a1
  3005.     move.l    #LNoise,d2
  3006.     move.l    #2000,d3
  3007.     tst.l    d6
  3008.     bne.s    VPl3
  3009.     move.l    a0,d6
  3010.     bset    #0,d6
  3011.     bra.s    VPl3
  3012.  
  3013. ******* PLAY OFF (voice)
  3014. L_IPlOf0    equ    25
  3015. L25    moveq    #%1111,d0
  3016.     Rbra    L_PlOf
  3017. L_IPlOf1    equ    26
  3018. L26    move.l    (a3)+,d0
  3019.     Rbra    L_Plof
  3020. L_PlOf        equ    27
  3021. L27    move.l    a3,-(sp)
  3022.     Dload    a3
  3023.     Rbsr    L_EnvOff
  3024.     move.l    (sp)+,a3
  3025.     rts
  3026.  
  3027. ******* Attente DMA
  3028. L_DmaWait    equ    28
  3029. L28    movem.l    d2-d3,-(sp)
  3030.  
  3031. ; A modifier!!! Demander les caracteristiques du DMA!!!
  3032. ;    move.w    #$200,d0
  3033. ;.loop    nop
  3034. ;    dbra    d0,.loop
  3035.  
  3036. .wait    moveq    #4,d3        
  3037. .wai2    move.b    $dff006,d2    
  3038. .wai3    cmp.b    $dff006,d2    
  3039.     beq.s    .wai3
  3040.     dbf    d3,.wai2    
  3041.     moveq    #8,d2
  3042. .wai4    dbf    d2,.wai4
  3043.  
  3044.     movem.l    (sp)+,d2-d3
  3045.     rts
  3046.  
  3047. ***********************************************************
  3048. *    SAMPLE INSTRUCTIONS
  3049.  
  3050. *******    SAM BANK n
  3051. L_ISBank    equ    29
  3052. L29    move.l    (a3)+,d0
  3053.     Rbls    L_IFonc
  3054.     cmp.l    #16,d0
  3055.     Rbhi    L_IFonc
  3056.     Dlea    SamBank,a0
  3057.     move.w    d0,(a0)
  3058.     rts
  3059. ******* SAMLOOP ON
  3060. L_ISLOn1    equ    30
  3061. L30    moveq    #0,d0
  3062.     move.l    (a3)+,d1
  3063.     Rbra    L_Sl0
  3064.  
  3065. ******* STOP DMA / INTERUPTS
  3066. *    D0= value
  3067. L_StopDma    equ    31
  3068. L31    move.w    d0,-(sp)
  3069.     eor.w    #%1111,d0
  3070.     move.w    d0,Circuits+DmaCon
  3071.     lsl.w    #7,d0
  3072.     move.w    d0,Circuits+IntEna
  3073.     move.w    (sp)+,d0
  3074.     RBra    L_DmaWait
  3075.  
  3076. L_ISLOn0    equ    32
  3077. L32    moveq    #0,d0
  3078.     moveq    #%1111,d1
  3079.     Rbra    L_Sl0
  3080.  
  3081. ******* SAMLOOP OFF
  3082. L_ISLOf1    equ    33
  3083. L33    moveq    #-1,d0
  3084.     move.l    (a3)+,d1
  3085.     Rbra    L_Sl0
  3086. L_ISLOf0    equ    34
  3087. L34    moveq    #-1,d0
  3088.     moveq    #%1111,d1
  3089.     Rbra    L_SL0
  3090. L_SL0        equ    35
  3091. L35    moveq    #0,d2
  3092.     Dlea    Sami_int,a0
  3093.     Dlea    SamLoops+1,a1
  3094. Sl1    btst    d2,d1
  3095.     beq.s    Sl2
  3096.     bclr    d2,(a1)
  3097.     move.l    d0,Sami_rpos(a0)
  3098.     bne.s    Sl2
  3099.     bset    d2,(a1)
  3100. Sl2    lea    Sami_intl(a0),a0
  3101.     addq.w    #1,d2
  3102.     cmp.w    #4,d2
  3103.     bcs.s    Sl1
  3104.     rts
  3105.  
  3106. ******* NOISE TO voice
  3107. L_INoTo        equ    36
  3108. L36    move.l    (a3)+,d1
  3109.     moveq    #0,d0
  3110.     Rbra    L_ISmt
  3111. ******* SAMPLE n TO voice
  3112. L_ISamTo    equ    37
  3113. L37    move.l    4(a3),d0
  3114.     Rbsr    L_GetSam
  3115.     move.l    (a3)+,d1
  3116.     move.l    (a3)+,d0
  3117.     neg.w    d0
  3118.     Rbra    L_Ismt
  3119. * Poke D1-> waves
  3120. L_ISmt        equ    38
  3121. L38    Dlea    Waves,a0
  3122.     moveq    #0,d2
  3123. ISmt1    btst    d2,d1
  3124.     beq.s    ISmt2
  3125.     move.w    d0,(a0)
  3126. ISmt2    addq.l    #2,a0
  3127.     addq.w    #1,d2
  3128.     cmp.w    #4,d2
  3129.     bcs.s    ISmt1
  3130.     rts
  3131.  
  3132. ******* SAM PLAY number
  3133. L_ISam1        equ    39
  3134. L39    move.l    (a3)+,d0
  3135.     Rbsr    L_GetSam
  3136.     moveq    #%1111,d1
  3137.     Rbra    L_GoSam
  3138. ******* SAM PLAY voix,number
  3139. L_ISam2        equ    40
  3140. L40    move.l    (a3)+,d0
  3141.     Rbsr    L_GetSam
  3142.     move.l    (a3)+,d1
  3143.     Rbra    L_GoSam
  3144. ******* SAM PLAY voix,number,frequence
  3145. L_ISam3        equ    41
  3146. L41    move.l    4(a3),d0
  3147.     Rbsr    L_GetSam
  3148.     move.l    (a3)+,d3
  3149.     cmp.l    #500,d3
  3150.     Rble    L_IFonc
  3151.     addq.l    #4,a3
  3152.     move.l    (a3)+,d1    
  3153.     Rbra    L_GoSam
  3154. ******* SAM RAW voice,ad,length,freq
  3155. L_ISamR        equ    42
  3156. L42    move.l    (a3)+,d3
  3157.     cmp.l    #500,d3
  3158.     Rble    L_IFonc
  3159.     move.l    (a3)+,d2
  3160.     cmp.l    #256,d2
  3161.     Rble    L_IFonc
  3162.     move.l    (a3)+,a1
  3163.     move.l    (a3)+,d1
  3164.     Rbra    L_GoSam
  3165. L_GoSam:    equ    43
  3166. L43    move.l    a3,-(sp)
  3167.     Dload    a3
  3168.  
  3169.     move.w    d1,d0
  3170.     eor.w    #$000F,d0
  3171.     Rbsr    L_StopDma
  3172.     Rbsr    L_VOnOf    
  3173.  
  3174.     lea    Circuits,a2
  3175.     move.w    EnvOn-MB(a3),d7
  3176.     clr.w    EnvOn-MB(a3)
  3177.     move.w    #$8000,Sami_bits-MB(a3)
  3178. * Do all voices
  3179.     moveq    #0,d0
  3180.     move.w    d1,d4
  3181.     moveq    #3,d1
  3182. ISp2b    btst    d1,d4
  3183.     beq.s    ISp2c
  3184.     Rbsr    L_SPlay
  3185. ISp2c    dbra    d1,ISp2b
  3186. * Start!
  3187. ISpX    
  3188.     Rbsr    L_DmaWait
  3189.     bset    #15,d0
  3190.     move.w    d0,DmaCon(a2)
  3191.     move.w    Sami_bits-MB(a3),IntEna(a2)
  3192.     move.w    d7,EnvOn-MB(a3)
  3193.     move.l    (sp)+,a3
  3194.     rts
  3195.     
  3196. ******* Find a sample -> A0
  3197. L_GetSam    equ    44
  3198. L44    move.l    d0,-(sp)
  3199.     Dload    a0
  3200.     move.w    SamBank-MB(a0),d3
  3201.     ext.l    d3
  3202.     Rbeq    L_IFonc
  3203.     Rjsr    L_BkAd
  3204.     move.l    -8(a0),d0
  3205.     cmp.l    #"Samp",d0
  3206.     Rbne    L_BNSam
  3207. * Get sample characteristics1
  3208.     move.l    (sp)+,d0
  3209.     Rbls    L_IFonc
  3210.     cmp.w    (a0),d0
  3211.     Rbhi    L_SNDef
  3212.     lsl.w    #2,d0
  3213.     move.l    2-4(a0,d0.w),d0
  3214.     Rbeq    L_SNDef
  3215.     add.l    d0,a0
  3216.     moveq    #0,d3
  3217.     move.w    8(a0),d3
  3218.     move.l    10(a0),d2
  3219.     lea    14(a0),a1
  3220.     rts
  3221.  
  3222. *********************************************************************
  3223. *    SLOAD fichier,adresse,longueur
  3224. L_Sload        equ    45
  3225. L45    move.l    (a3)+,d4
  3226.     RBmi    L_IFonc
  3227.     RJsr    L_AdOuBank
  3228.     move.l    (a3)+,d0
  3229.     cmp.l    #10,d0
  3230.     Rbcc    L_IFonc
  3231.     subq.l    #1,d0
  3232.     Rbmi    L_IFonc
  3233.     mulu    #TFiche,d0
  3234.     lea    Fichiers(a5),a2
  3235.     add.w    d0,a2
  3236.     move.l    Fha(a2),d1
  3237.     btst    #2,FhT(a2)
  3238.     Rbne    L_IFonc
  3239. * Load the data
  3240.     move.l    d3,d2
  3241.     move.l    d4,d3
  3242.     move.l    a6,-(sp)
  3243.     move.l    DosBase(a5),a6
  3244.     jsr    -42(a6)            DosRead
  3245.     move.l    (sp)+,a6
  3246.     tst.l    d0
  3247.     RBmi    L_IDError
  3248.     rts
  3249.  
  3250. ******* SAMPLAY routine
  3251. *    A1= Sample
  3252. *    D3= Freq
  3253. *    D2= Long
  3254. *    D1= Voice
  3255. L_SPlay:    equ    46
  3256. L46    movem.l    d0-d6/a0-a2,-(sp)
  3257.     bclr    d1,Noise-MB(a3)
  3258.     moveq    #0,d6
  3259.     Rbra    L_SPl0
  3260.  
  3261. L_SPl0        equ    47
  3262. L47
  3263.     movem.l    a4,-(sp)
  3264.  
  3265.     moveq    #0,d0
  3266.     bset    d1,d0            * Stop voice
  3267.     move.w    d0,DmaCon(a2)
  3268.  
  3269.     lea    Sami_int-MB(a3),a4
  3270.     move.w    #Sami_intl,d0
  3271.     mulu    d1,d0
  3272.     add.w    d0,a4            * a4-> Sami interrupts
  3273.     move.w    Sami_bit(a4),IntEna(a2)    * No more interrupts
  3274.  
  3275.     lea    EnvBase-MB(a3),a0    * Enveloppe
  3276.     move.w    d1,d0
  3277.     mulu    #EnvLong,d0
  3278.     add.w    d0,a0
  3279.  
  3280.     lea    $a0(a2),a2
  3281.     move.w    d1,d4
  3282.     lsl.w    #4,d4
  3283.     add.w    d4,a2            * a2-> I/O
  3284.  
  3285.     move.w    #1,$4(a2)
  3286.     move.l    a1,Sami_adr(a4)            * Adresse
  3287.     move.l    d2,Sami_long(a4)        * Longueur
  3288.     clr.l    Sami_pos(a4)            * Position
  3289.     clr.l    Sami_rpos(a4)            * Sam loop on?
  3290.     btst    d1,SamLoops+1-MB(a3)
  3291.     bne.s    .skipa
  3292.     subq.l    #1,Sami_rpos(a4)
  3293. .skipa    clr.l    Sami_radr(a4)            * Pas de double buffer
  3294.     
  3295.     move.l    d6,d5
  3296.     move.l    MusClock-MB(a3),d6
  3297.     bsr    Div32
  3298.     cmp.l    #124,d0
  3299.     bcc.s    .skip0
  3300.     moveq    #124,d0
  3301. .skip0    move.w    d0,6(a2)            * AudPer
  3302.  
  3303.     bclr    d1,d7
  3304.     move.w    EnvDVol(a0),Sami_dvol(a4)    * Volume, sauf si 
  3305.     tst.l    d5                  une enveloppe est
  3306.     beq.s    .skip1                  definie
  3307.     clr.l    Sami_rpos(a4)
  3308.     bclr    #0,d5
  3309.     bne.s    .skipb
  3310.     subq.l    #1,Sami_rpos(a4)
  3311. .skipb    bset    d1,d7
  3312.     move.w    #-1,Sami_dvol(a4)
  3313.     move.l    d5,EnvAd(a0)
  3314.     move.l    d5,EnvDeb(a0)
  3315.     clr.w    EnvVol(a0)
  3316.     Rbsr    L_MuIntE
  3317.  
  3318. .skip1    move.w    Sami_bit(a4),d0
  3319.     or.w    d0,Sami_bits-MB(a3)
  3320.  
  3321. * Va demarrer le son...
  3322.     lea    Circuits,a0
  3323.     move.l    a4,a1
  3324.     move.l    Sami_Handad-MB(a3),a2
  3325.     jsr    (a2)
  3326. * Fini!
  3327.     move.l    (sp)+,a4
  3328.     movem.l    (sp)+,d0-d6/a0-a2
  3329.     bset    d1,d0
  3330.     rts
  3331.  
  3332. * Division 32 bits
  3333. * D6/D3 -> D0
  3334. Div32    movem.l    d1/d3/d4/d5/d6,-(sp)
  3335.     moveq     #31,d5
  3336.         moveq     #-1,d4
  3337.         clr.l     d1
  3338. dv2:    lsl.l     #1,d6
  3339.         roxl.l     #1,d1
  3340.         cmp.l     d3,d1
  3341.         bcs.s     dv1
  3342.         sub.l     d3,d1
  3343.         lsr     #1,d4
  3344. dv1:    roxl.l     #1,d0
  3345.         dbra     d5,dv2
  3346.     movem.l    (sp)+,d1/d3/d4/d5/d6
  3347.     rts
  3348.  
  3349. ***********************************************************
  3350. *    WAVE INSTRUCTION SET
  3351.  
  3352. *******    WAVE n TO n
  3353. L_IWave:    equ    48
  3354. L48    move.l    4(a3),d1
  3355.     Rbmi    L_IFonc
  3356.     Rbsr    L_WaveAd
  3357.     Rbeq    L_WNDef
  3358.     move.l    (a3)+,d1
  3359.     move.l    (a3)+,d0
  3360.     Rbra    L_ISmt
  3361. *******    SET WAVE n,a$
  3362. L_ISWave:    equ    49
  3363. L49    move.l    (a3)+,a1
  3364.     move.w    (a1)+,d1
  3365.     cmp.w    #256,d1
  3366.     Rbcs    L_STSho
  3367.     move.l    (a3)+,d1
  3368.     Rbls    L_IFonc
  3369.     move.l    a3,-(sp)
  3370.     Dload    a3
  3371.     Rbsr    L_NeWave
  3372.     Rbne    L_IOOMem
  3373.     move.l    (sp)+,a3
  3374.     rts
  3375. *******    DEL WAVE 
  3376. L_IDWave1    equ    50
  3377. L50    move.l    (a3)+,d1
  3378.     Rbmi    L_IFonc
  3379.     Rbeq    L_W0Res
  3380.     cmp.l    #1,d1
  3381.     Rbeq    L_W0Res
  3382.     move.l    a3,-(sp)
  3383.     DLoad    a3
  3384.     moveq    #%1111,d0
  3385.     Rbsr    L_EnvOff
  3386.     Rbsr    L_WaveAd
  3387.     Rbeq    L_WNDef
  3388.     Rbsr    L_WaveDel
  3389.     Rbsr    L_NoWave
  3390.     move.l    (sp)+,a3
  3391.     rts
  3392. *******    SET ENVEL n,n TO n,v
  3393. L_ISEnv        equ    51
  3394. L51    move.l    (a3)+,d4
  3395.     cmp.l    #64,d4
  3396.     Rbcc    L_IFonc
  3397.     move.l    (a3)+,d3
  3398.     move.l    (a3)+,d5
  3399.     Rbmi    L_IFonc
  3400.     cmp.l    #7,d5
  3401.     Rbcc    L_IFonc
  3402.     move.l    (a3)+,d1
  3403.     Rbmi    L_IFonc
  3404.     tst.w    d5
  3405.     bne.s    ISe1
  3406.     tst.w    d3
  3407.     Rbls    L_IFonc
  3408. ISe1    move.l    a3,-(sp)
  3409.     Dload    a3
  3410.     Rbsr    L_WaveAd
  3411.     Rbeq    L_WNDef
  3412.     lsl.w    #2,d5
  3413.     lea    WaveEnv(a2,d5.w),a2
  3414.     move.w    d3,(a2)+
  3415.     move.w    d4,(a2)+
  3416.     clr.w    (a2)
  3417.     move.l    (sp)+,a3
  3418.     rts
  3419. ******* RAZ WAVES
  3420. L_RazWave    equ    52
  3421. L52    movem.l    a2/d0-d2,-(sp)
  3422.     moveq    #%1111,d0
  3423.     Rbsr    L_EnvOff        * Stop all voices
  3424.     lea    WaveBase-MB(a3),a2    * Erase all instruments
  3425.     move.l    a2,d2
  3426. RzW1    move.l    d2,a2
  3427.     move.l    (a2),d0
  3428.     beq.s    RzW2
  3429.     move.l    d0,a2
  3430.     Rbsr    L_WaveDel
  3431.     bra.s    RzW1
  3432. RzW2    Rbsr    L_NoWave
  3433.     movem.l    (sp)+,a2/d0-d2
  3434.     rts
  3435. * Plus de Waves speciales
  3436. L_NoWave    equ    53
  3437. L53    Dlea    Waves,a0        * Default waves
  3438.     move.w    #1,(a0)+
  3439.     move.w    #1,(a0)+
  3440.     move.w    #1,(a0)+
  3441.     move.w    #1,(a0)+
  3442.     rts
  3443.  
  3444. ******* NEW WAVES
  3445. *    A1= Array address
  3446. *    D1= # to create
  3447. L_NeWave:    equ    54
  3448. L54    movem.l    d1-d7/a1-a2,-(sp)
  3449. NeW0    Rbsr    L_WaveAd
  3450.     beq.s    NeW1
  3451.     moveq    #%1111,d0
  3452.     Rbsr    L_EnvOff
  3453.     Rbsr    L_WaveDel
  3454.     bra.s    NeW0
  3455. NeW1    move.l    #WaveLong,d0
  3456.     RJsr    L_RamChip
  3457.     beq.s    NeWE
  3458.     move.l    d0,(a2)
  3459.     move.l    d0,a2
  3460.     move.w    d1,WaveNb(a2)
  3461. * Copy default ADSR
  3462.     move.l    a1,-(sp)
  3463.     lea    EnvDef-MB(a3),a0
  3464.     lea    WaveEnv(a2),a1
  3465. NeW3    move.l    (a0)+,(a1)+
  3466.     bne.s    NeW3
  3467.     move.l    (sp)+,a1
  3468. * Full wave: 256 bytes
  3469.     lea    WaveDeb(a2),a2
  3470.     move.l    a2,a0
  3471.     moveq    #256/4-1,d0
  3472. NeW2    move.l    (a1)+,(a0)+
  3473.     dbra    d0,NeW2
  3474. * 1/2
  3475.     move.l    a2,a1
  3476.     move.l    a0,a2
  3477.     moveq    #127,d0
  3478.     bsr    NewRout
  3479. * 1/4
  3480.     move.l    a2,a1
  3481.     move.l    a0,a2
  3482.     moveq    #63,d0
  3483.     bsr    NewRout
  3484. * 1/8
  3485.     move.l    a2,a1    
  3486.     move.l    a0,a2
  3487.     moveq    #31,d0
  3488.     bsr    NewRout
  3489. * 1/16
  3490.     move.l    a2,a1
  3491.     move.l    a0,a2
  3492.     moveq    #15,d0
  3493.     bsr    NewRout
  3494. * 1/32
  3495.     move.l    a2,a1
  3496.     move.l    a0,a2
  3497.     moveq    #7,d0
  3498.     bsr    NewRout
  3499. * 1/64
  3500.     move.l    a2,a1
  3501.     move.l    a0,a2
  3502.     moveq    #3,d0
  3503.     bsr    NewRout
  3504. ******* No error
  3505.     moveq    #0,d0
  3506. NeWx    movem.l    (sp)+,d1-d7/a1-a2
  3507.     rts
  3508. ******* Out of mem
  3509. NeWE    moveq    #-1,d0
  3510.     bra.s    NeWx
  3511. ******* Divide a sample by 2
  3512. NewRout    move.b    (a1)+,d1
  3513.     ext.w    d1
  3514.     move.b    (a1)+,d2
  3515.     ext.w    d2
  3516.     add.w    d2,d1
  3517.     asr.w    #1,d1
  3518.     move.b    d1,(a0)+
  3519.     dbra    d0,NewRout
  3520.     rts
  3521.  
  3522. ******* Get a wave address
  3523. L_WaveAd:    equ    55
  3524. L55    moveq    #0,d2
  3525.     Dlea    WaveBase,a2
  3526.     move.l    (a2),d0
  3527.     beq.s    WAd2
  3528. WAd1    move.l    a2,d2
  3529.     move.l    d0,a2
  3530.     cmp.w    WaveNb(a2),d1
  3531.     beq.s    WAd3
  3532.     move.l    (a2),d0
  3533.     bne.s    WAd1
  3534. WAd2    moveq    #0,d0
  3535.     rts
  3536. WAd3    moveq    #-1,d0
  3537.     rts
  3538.  
  3539. ******* Deletion of a WAVE (A2)-D2
  3540. L_WaveDel    equ    56
  3541. L56    movem.l    a0-a2/d0-d2,-(sp)
  3542.     move.w    WaveNb(a2),d1
  3543.     move.l    d2,a0
  3544.     move.l    (a2),(a0)
  3545.     move.l    #WaveLong,d0
  3546.     move.l    a2,a1
  3547.     Rjsr    L_RamFree
  3548.     movem.l    (sp)+,a0-a2/d0-d2
  3549.     rts
  3550.  
  3551. ***********************************************************
  3552. *    STOP SAMPLES INTERRUPTS
  3553. L_Sami_stop    equ    57
  3554. L57    move.w    #%0000011110000000,d0
  3555.     move.w    d0,Circuits+IntEna
  3556.     move.w    d0,Circuits+IntReq
  3557.     rts
  3558.  
  3559. ***********************************************************
  3560. *    ENVELOPPES 
  3561.  
  3562. ***********************************************************
  3563. *    STOP ENVELOPPE D0
  3564. L_EnvOff    equ    58
  3565. L58    movem.l    d0-d3/a0,-(sp)
  3566.     move.w    EnvOn-MB(a3),d1
  3567.     clr.w    EnvOn-MB(a3)
  3568.     moveq    #0,d3
  3569.     lea    Circuits,a0
  3570.     moveq    #0,d2
  3571. EOf1    btst    d2,d0
  3572.     beq.s    EOf2
  3573.     bclr    d2,d1
  3574.     beq.s    EOf2
  3575.     bset    d2,d3
  3576.     move.w    #2,$a4(a0)
  3577.     clr.w    $a8(a0)
  3578. EOf2    lea    $10(a0),a0
  3579.     addq.w    #1,d2
  3580.     cmp.w    #4,d2
  3581.     bcs.s    EOf1
  3582.     move.w    d1,EnvOn-MB(a3)
  3583.     move.w    d3,MuReStart-MB(a3)
  3584.     movem.l    (sp)+,d0-d3/a0
  3585.     rts
  3586.     
  3587. ******* Next enveloppe
  3588. L_MuIntE    equ    59
  3589. L59    move.l    EnvAd(a0),a1
  3590. MuIe0    move.w    (a1)+,d3
  3591.     beq.s    MuIntS
  3592.     bmi.s    MuIe1
  3593.     move.w    d3,EnvNb(a0)
  3594.     move.w    EnvDVol(a0),d4
  3595.     mulu    (a1)+,d4
  3596.     lsr.w    #6,d4
  3597.     sub.w    EnvVol(a0),d4
  3598.     ext.l    d4
  3599.     lsl.w    #8,d4
  3600.     divs    d3,d4
  3601.     ext.l    d4
  3602.     lsl.l    #8,d4
  3603.     move.l    d4,EnvDelta(a0)
  3604.     clr.w    EnvVol+2(a0)
  3605.     move.l    a1,EnvAd(a0)
  3606.     rts
  3607. * Loop
  3608. MuIe1    move.l    EnvDeb(a0),a1
  3609.     bra.s    MuIe0
  3610. * End of a voice
  3611. MuIntS    bset    d1,d5
  3612.     bclr    d1,d0
  3613.     bclr    d1,Noise-MB(a3)
  3614. * Restarts the music
  3615.     bset    d1,MuReStart+1-MB(a3)
  3616.     rts
  3617.  
  3618. ******************************************************************
  3619. *    MUSIC
  3620.  
  3621. ******* Music initialisation
  3622. L_MuInit:    equ    60
  3623. L60    clr.l    MuBase-MB(a3)
  3624.     clr.w    MuNumber-MB(a3)
  3625.     move.l    #$DFF0A0,MuChip0-MB(a3)
  3626.     move.l    #$DFF0B0,MuChip1-MB(a3)
  3627.     move.l    #$DFF0C0,MuChip2-MB(a3)
  3628.     move.l    #$DFF0D0,MuChip3-MB(a3)
  3629.     move.w    #$000F,MuDMAsk-MB(a3)
  3630.     clr.w    MuReStart-MB(a3)
  3631.     Rbra    L_MOff
  3632.  
  3633. ******* MUSIC OFF-> Stops all musics
  3634. L_IMuSOff    equ    61
  3635. L61    movem.l    a0-a3/d0-d1,-(sp)
  3636.     Dload    a3
  3637.     clr.l    MuBase-MB(a3)
  3638.     clr.w    MuNumber-MB(a3)
  3639.     Rbsr    L_MOff
  3640.     movem.l    (sp)+,a0-a3/d0-d1
  3641.     rts
  3642.  
  3643. ******* MUSIC STOP-> Stops current music
  3644. L_IMuStop    equ    62
  3645. L62    movem.l    a0-a3/d0-d1,-(sp)
  3646.     Dload    a3
  3647.     move.l    MuBase-MB(a3),d0
  3648.     beq.s    IStp
  3649.     clr.w    MuBase-MB(a3)
  3650.     move.l    d0,a0
  3651.     clr.w    VoiCpt0(a0)
  3652.     clr.w    VoiCpt1(a0)
  3653.     clr.w    VoiCpt2(a0)
  3654.     clr.w    VoiCpt3(a0)
  3655.     move.l    d0,MuBase-MB(a3)
  3656. IStp    movem.l    (sp)+,a0-a3/d0-d1
  3657.     rts
  3658.  
  3659. ******* MUSIC VOLUME
  3660. L_IMVol        equ    63
  3661. L63    move.l    (a3)+,d0
  3662.     cmp.l    #64,d0
  3663.     Rbcs    L_MVol
  3664.     Rbcc    L_IFonc
  3665. * Set volume
  3666. L_MVol        equ    64
  3667. L64    and.w    #63,d0
  3668.     Dload    a0
  3669.     move.w    d0,MuVolume-MB(a0)
  3670.     move.l    MuBase-MB(a0),d4
  3671.     beq.s    MVol3
  3672.     clr.l    MuBase-MB(a0)
  3673.     lea    MuBuffer-MB(a0),a1
  3674.     move.w    MuNumber-MB(a0),d1
  3675. MVol0    move.l    a1,a2
  3676.     moveq    #3,d2
  3677. MVol1    move.w    VoiDVol(a2),d3
  3678.     mulu    d0,d3
  3679.     lsr.w    #6,d3
  3680.     move.w    d3,VoiVol(a2)
  3681.     lea    VoiLong(a2),a2
  3682.     dbra    d2,MVol1
  3683. MVol2    lea    MuLong(a1),a1
  3684.     subq.w    #1,d1
  3685.     bne.s    MVol0
  3686.     move.l    d4,MuBase-MB(a0)
  3687. MVol3    rts
  3688.  
  3689. ******* VOICE ON/OFF Voices
  3690. L_IVoice    equ    65
  3691. L65    move.l    (a3)+,d0
  3692.     and.w    #$000F,d0
  3693.     move.l    a3,-(sp)
  3694.     Dload    a3
  3695.     Rbsr    L_VOnOf
  3696.     movem.l    (sp)+,a3
  3697.     rts
  3698.  
  3699. ******* Start / Stop voices D0
  3700. L_VOnOf        equ    66
  3701. L66    movem.l    d0-d5/a0-a3,-(sp)
  3702.     move.w    d0,d4
  3703.     Dload    a3
  3704.     move.l    MuBase-MB(a3),d1
  3705.     beq.s    VooX
  3706.     clr.l    MuBase-MB(a3)
  3707.     move.l    d1,a1
  3708.     move.l    d1,a2
  3709.     move.w    MuDMAsk-MB(a3),d1
  3710.     move.w    d0,MuDMAsk-MB(a3)
  3711.     move.l    WaveBase-MB(a3),a0
  3712.     lea    WaveDeb(a0),a0
  3713.     move.l    a0,d3
  3714.     lea    MuChip0-MB(a3),a0
  3715.     moveq    #0,d2
  3716.     moveq    #0,d4
  3717. * Exploration loop
  3718. Voo1    btst    d2,d0
  3719.     bne.s    Voo2
  3720. * Stop a voice!
  3721.     btst    d2,d1            * Already stopped?
  3722.     beq.s    VooN
  3723.     bset    d2,d4
  3724.     move.l    d3,(a0)
  3725.     bclr    d2,MuStart+1(a2)
  3726.     bclr    d2,MuStop+1(a2)
  3727.     bra.s    VooN
  3728. * Re start a voice
  3729. Voo2    btst    d2,d1            * Already on?
  3730.     bne.s    VooN
  3731.     bset    d2,MuReStart+1-MB(a3)
  3732. * Next
  3733. VooN    addq.l    #4,a0
  3734.     lea    VoiLong(a1),a1
  3735.     addq.w    #1,d2
  3736.     cmp.w    #4,d2
  3737.     bcs.s    Voo1
  3738. * Stop them!
  3739.     move.l    a2,MuBase-MB(a3)
  3740.     move.w    d4,Circuits+DmaCon
  3741. VooX    movem.l    (sp)+,d0-d5/a0-a3
  3742.     rts
  3743.  
  3744. ******* MUSIC n
  3745. L_IMusic    equ    67
  3746. L67    move.l    (a3)+,d3
  3747.     Rbls    L_IFonc
  3748. * Points to the SONG
  3749.     move.l    a3,-(sp)
  3750.     Dload    a3
  3751.     tst.l    MusBank-MB(a3)
  3752.     Rbeq    L_MnRes
  3753.     move.l    BankSong-MB(a3),a1
  3754.     cmp.w    (a1),d3
  3755.     Rbhi    L_MNDef
  3756.     lsl.w    #2,d3
  3757.     add.l    2-4(a1,d3.w),a1
  3758. * Still room?
  3759.     cmp.w    #3,MuNumber-MB(a3)
  3760.     bcc    IMusX
  3761.     clr.l    MuBase-MB(a3)
  3762. * Buffer address
  3763.     move.w    MuNumber-MB(a3),d0
  3764.     move.w    d0,d1
  3765.     addq.w    #1,MuNumber-MB(a3)
  3766.     mulu    #MuLong,d0
  3767.     lea    MuBuffer-MB(a3),a2
  3768.     add.w    d0,a2
  3769. * Init datas
  3770.     moveq    #(VoiLong*4)/2-1,d0
  3771.     move.l    a2,a0
  3772. IMus1    clr.w    (a0)+
  3773.     dbra    d0,IMus1
  3774.     clr.w    MuStop(a2)
  3775.     clr.w    MuStart(a2)
  3776. * Init parameters
  3777.     move.l    a2,d2
  3778.     move.w    TempoBase-MB(a3),MuCpt(a2)
  3779.     move.w    #17,MuTempo(a2)            *XXX
  3780.     moveq    #0,d0
  3781. IMus2    move.w    #1,VoiCpt(a2)
  3782.     lea    FoEnd-MB(a3),a0
  3783.     move.l    a0,VoiAdr(a2)
  3784.     move.l    a1,a0
  3785.     add.w    0(a0,d0.w),a0
  3786.     move.l    a0,VoiPat(a2)
  3787.     move.l    a0,VoiDPat(a2)
  3788.     lea    NoEffect2(pc),a0
  3789.     move.l    a0,VoiEffect(a2)
  3790.     lea    VoiLong(a2),a2
  3791.     addq.w    #2,d0
  3792.     cmp.w    #8,d0
  3793.     bne.s    IMus2
  3794. * No more samples
  3795.     move.w    #%0000011110000000,Circuits+IntEna
  3796. * Starts music
  3797.     move.l    d2,MuBase-MB(a3)
  3798. IMusX    move.l    (sp)+,a3
  3799.     rts
  3800. NoEffect2
  3801.     move.w    VoiNote(a4),$06(a6)
  3802.     rts
  3803.  
  3804. ******* Tempo T
  3805. L_ITempo    equ    68
  3806. L68    move.l    (a3)+,d0
  3807.     cmp.l    #100,d0
  3808.     Rbhi    L_IFonc
  3809.     Dload    a0
  3810.     move.l    MuBase-MB(a0),d1
  3811.     beq.s    ITemp
  3812.     move.l    d1,a0
  3813.     move.w    d0,MuTempo(a0)
  3814. ITemp    rts
  3815.  
  3816. ***********************************************************
  3817. *    =VU METRE(v)
  3818. L_FVu        equ    69
  3819. L69    move.l    (a3)+,d0
  3820.     cmp.l    #4,d0
  3821.     Rbcc    L_IFonc
  3822.     Dload    a0
  3823.     moveq    #0,d3
  3824.     move.b    0(a0,d0.w),d3
  3825.     clr.b    0(a0,d0.w)
  3826.     moveq    #0,d2
  3827.     rts
  3828.  
  3829. ***********************************************************
  3830. *    =MU BASE
  3831. L_FMB        equ    70
  3832. L70    Dload    a0
  3833.     move.l    a0,d3
  3834.     moveq    #0,d2
  3835.     rts
  3836.  
  3837. ***********************************************************
  3838. *    LED INSTRUCTION
  3839. L_LedOn        equ    71
  3840. L71    bclr    #1,$BFE001
  3841.     rts
  3842. L_LedOf        equ    72
  3843. L72    bset    #1,$BFE001
  3844.     rts
  3845.  
  3846. ***********************************************************
  3847. *    INSTALL THE SAMPLE HANDLER
  3848. L_Sami_install    equ    73
  3849. L73    tst.w    Sami_flag-MB(a3)
  3850.     bne.s    .skip
  3851.     movem.l    d0-d2/a0-a2/a6,-(sp)
  3852.     move.l    $4.w,a6
  3853. ; Save state of interrupts
  3854.     move.w    Circuits+IntEnaR,d0
  3855.     and.w    #%0000011110000000,d0
  3856.     move.w    d0,Sami_OldEna-MB(a3)
  3857.     Rbsr    L_Sami_stop
  3858. ; Install 4 voices
  3859.     lea    Sami_int-MB(a3),a1
  3860.     moveq    #7,d0
  3861. .loop    bsr.s    Sami_start
  3862.     lea    Sami_intl(a1),a1
  3863.     addq.w    #1,d0
  3864.     cmp.w    #11,d0
  3865.     bne.s    .loop
  3866.     subq.w    #1,Sami_flag-MB(a3)
  3867.     movem.l    (sp)+,d0-d2/a0-a2/a6
  3868. .skip    rts
  3869. Sami_start
  3870.     move.l    a1,is_data(a1)
  3871.     move.l    Sami_handad-MB(a3),is_code(a1)
  3872.     move.b    #2,ln_type(a1)
  3873.     move.b    #0,ln_pri(a1)
  3874.     move.l    $4.w,a6    
  3875.     movem.l    d0/a1,-(sp)
  3876.     jsr    -162(a6)        SetIntVector
  3877.     move.l    d0,d1
  3878.     movem.l    (sp)+,d0/a1
  3879.     move.l    d1,Sami_old(a1)
  3880.     rts
  3881.  
  3882. ***********************************************************
  3883. *    REMOVE THE SAMPLE HANDLER
  3884. L_Sami_remove    equ    74
  3885. L74    tst.w    Sami_flag-MB(a3)
  3886.     beq.s    .skip
  3887.     movem.l    a0-a2/a6/d0-d2,-(sp)
  3888.     Rbsr    L_Sami_Stop
  3889.     move.l    $4.w,a6
  3890.     moveq    #7,d2
  3891.     lea    Sami_Int-MB(a3),a2
  3892. .loop    move.l    Sami_old(a2),a1
  3893.     move.l    d2,d0
  3894.     jsr    -162(a6)        SetIntVector
  3895.     lea    Sami_intl(a2),a2
  3896.     addq.w    #1,d2    
  3897.     cmp.w    #11,d2
  3898.     bne.s    .loop
  3899.     lea    Circuits,a0
  3900.     move.w    #$000F,DmaCon(a0)
  3901.     move.w    Sami_oldena-MB(a3),IntEna(a0)
  3902.     clr.w    Sami_flag-MB(a3)
  3903.     movem.l    (sp)+,a0-a2/a6/d0-d2
  3904. .skip    rts
  3905.  
  3906. ***********************************************************
  3907. *    Normal error messages
  3908. ; This routines performs jump to the normal AMOS error messages:
  3909. ; Load in D0 the number of the error, and do a RJmp to L_Error.
  3910. L_IOOMem    equ    75
  3911. L75    
  3912.     moveq    #24,d0
  3913.     Rjmp    L_Error
  3914. L_IFonc        equ    76
  3915. L76    moveq    #23,d0
  3916.     Rjmp    L_Error
  3917.  
  3918. ***********************************************************
  3919. *     Customized error messages
  3920. ; This list of routines just load in D0 the number of the error message in
  3921. ; the extension error-list, and call the error handling routine.
  3922.  
  3923. L_WNDef        equ    77
  3924. L77    moveq    #0,d0    
  3925.     Rbra    L_Custom
  3926. L_SNDef        equ    78
  3927. L78    moveq    #1,d0
  3928.     Rbra    L_Custom
  3929. L_BNSam        equ    79
  3930. L79    moveq    #2,d0
  3931.     Rbra    L_Custom
  3932. L_STSho        equ    80
  3933. L80    moveq    #3,d0
  3934.     Rbra    L_Custom
  3935. L_W0Res        equ    81
  3936. L81    moveq    #4,d0
  3937.     Rbra    L_Custom
  3938. L_MnRes        equ    82
  3939. L82    moveq    #5,d0
  3940.     Rbra    L_Custom
  3941. L_MNDef        equ    83
  3942. L83    moveq    #6,d0
  3943.     Rbra    L_Custom
  3944.  
  3945.  
  3946. ********************************************************************
  3947. *    =SAM SWAPPED(V)
  3948. L_Samswapped    equ    84
  3949. L84    move.l    (a3)+,d0
  3950.     moveq    #0,d2
  3951.     moveq    #0,d3
  3952.     cmp.l    #3,d0
  3953.     Rbhi    L_IFonc
  3954.     move.w    Circuits+IntEnaR,d1
  3955.     lsr.w    #7,d1
  3956.     btst    d0,d1
  3957.     beq.s    .stop
  3958.     Dlea    Sami_int,a0
  3959.     mulu    #Sami_intl,d0
  3960.     tst.l    Sami_radr(a0,d0.l)
  3961.     bne.s    .skip
  3962.     move.l    Sami_pos(a0,d0.l),d1
  3963.     cmp.l    #Sami_lplay,d1
  3964.     beq.s    .skip
  3965.     moveq    #-1,d3
  3966. .skip    rts
  3967. .stop    moveq    #1,d3
  3968.     rts
  3969. *********************************************************************
  3970. *    SAM SWAP
  3971. L_SamSwap    equ    85
  3972. L85    move.l    (a3)+,d4
  3973.     Rbmi    L_IFonc
  3974.     Rjsr    L_AdOuBank
  3975.     move.l    (a3)+,d2
  3976.     moveq    #0,d1
  3977.     Dlea    Sami_int,a0
  3978. .loop    btst    d1,d2
  3979.     beq.s    .skip
  3980.     move.l    d3,Sami_radr(a0)
  3981.     move.l    d4,Sami_rlong(a0)
  3982. .skip    lea    Sami_intl(a0),a0
  3983.     addq.w    #1,d1
  3984.     cmp.w    #4,d1
  3985.     bne.s    .loop
  3986.     rts
  3987. *********************************************************************
  3988. *    SAM STOP
  3989. L_SamStop0    equ    86
  3990. L86    move.l    #$f,-(a3)
  3991.     RBra    L_SamStop1
  3992. L_SamStop1    equ    87
  3993. L87    move.l    (a3)+,d1
  3994.     and.l    #$F,d1
  3995.     move.w    d1,Circuits+DmaCon
  3996.     lsl.w    #7,d1    
  3997.     move.w    d1,Circuits+IntEna
  3998.     rts
  3999.  
  4000. *********************************************************************
  4001. *    TRACKER instructions
  4002.  
  4003. *******    TRACK LOAD "nom",banque
  4004. L_Trackload    equ    88
  4005. L88
  4006.     move.l    (a3)+,d3
  4007.     subq.l    #1,d3
  4008.     cmp.l    #16,d3
  4009.     Rbcc    L_IFonc
  4010.     Dload    a0
  4011.     cmp.w    Track_Bank-MB(a0),d3
  4012.     bne.s    .kkk
  4013.     tst.b    mt_on-MB(a0)
  4014.     beq.s    .kkk
  4015.     RBsr    L_TrackStop
  4016. .kkk    move.w    d3,Track_Bank-MB(a0)    * Numero de la banque
  4017.     RJsr    L_EffBank
  4018.     lsl.w    #3,d3
  4019.     move.l    ABanks(a5),a0
  4020.     add.w    d3,a0
  4021.     move.l    a0,-(sp)
  4022. * Get name to load
  4023.     move.l    (a3)+,a0
  4024.     move.w    (a0)+,d0
  4025.     subq.w    #1,d0    
  4026.     cmp.w    #128,d0
  4027.     Rbcc    L_IFonc
  4028.     move.l    Buffer(a5),a1
  4029.     lea    128(a1),a2
  4030.     move.l    a1,d1
  4031. .loop    move.b    (a0),(a1)+
  4032.     move.b    (a0)+,(a2)+
  4033.     dbra    d0,.loop
  4034.     clr.b    (a1)
  4035.     move.b    #".",(a2)+
  4036.     move.b    #"N",(a2)+
  4037.     move.b    #"T",(a2)+
  4038.     clr.b    (a2)
  4039.     move.l    #1005,d2
  4040.     move.l    a6,-(sp)
  4041.     move.l    DosBase(a5),a6
  4042.     jsr    -30(a6)            DosOpen, fichier sons
  4043.     move.l    (sp)+,a6
  4044.     move.l    d0,d7
  4045.     Rbeq    L_IDError
  4046.     move.l    d7,d1            Trouve la taille
  4047.     bsr    .taille
  4048.     move.l    d0,d6
  4049. * Fichier des instruments
  4050.     moveq    #0,d5
  4051.     moveq    #0,d4
  4052.     move.l    Buffer(a5),d1
  4053.     add.l    #128,d1
  4054.     move.l    #1005,d2
  4055.     move.l    a6,-(sp)
  4056.     move.l    DosBase(a5),a6
  4057.     jsr    -30(a6)            DosOpen,
  4058.     move.l    (sp)+,a6
  4059.     move.l    d0,d5
  4060.     beq.s    .noins
  4061.     move.l    d5,d1            Trouve la taille
  4062.     bsr    .taille
  4063.     move.l    d0,d4
  4064. .noins
  4065. * Reserve la banque
  4066.     move.l    (sp)+,a1
  4067.     move.l    d6,d0
  4068.     add.l    d4,d0
  4069.     add.l    #16,d0
  4070.     move.l    d0,d1
  4071.     Rjsr    L_RamChip
  4072.     beq    .mem
  4073.     move.l    d0,(a1)+
  4074.     bset    #31,d1
  4075.     bset    #30,d1
  4076.     move.l    d1,(a1)+
  4077.     move.l    d0,a1
  4078.     move.l    #"Trac",(a1)+
  4079.     move.l    #"ker ",(a1)+
  4080. * Charge les instruments
  4081.     move.l    d5,d1
  4082.     beq.s    .noins2
  4083.     move.l    a1,d2
  4084.     move.l    d4,d3
  4085.     movem.l    a6/a1,-(sp)
  4086.     move.l    DosBase(a5),a6
  4087.     jsr    -42(a6)            Read
  4088.     movem.l    (sp)+,a6/a1
  4089.     move.l    d0,d2
  4090.     move.l    d5,d1
  4091.     bsr    .clo
  4092.     cmp.l    d2,d3
  4093.     Rbne    L_IFonc
  4094.     move.l    #$03011992,(a1)
  4095.     addq.l    #1,d4
  4096.     and.w    #$FFFE,d4
  4097.     move.l    d4,4(a1)
  4098.     add.l    d4,a1
  4099. .noins2
  4100. * Charge la musique
  4101.     move.l    d7,d1
  4102.     move.l    a1,d2
  4103.     move.l    d6,d3
  4104.     move.l    a6,-(sp)
  4105.     move.l    DosBase(a5),a6
  4106.     jsr    -42(a6)            Read
  4107.     move.l    (sp)+,a6
  4108.     move.l    d0,d2
  4109.     move.l    d7,d1
  4110.     bsr    .clo
  4111.     cmp.l    d2,d3
  4112.     Rbne    L_IFonc
  4113.     rts
  4114. * Ferme le fichier
  4115. .clo    movem.l    a6/a0/a1,-(sp)
  4116.     move.l    DosBase(a5),a6
  4117.     jsr    -36(a6)            Close
  4118.     movem.l    (sp)+,a6/a0/a1
  4119.     rts
  4120. * Out of memory
  4121. .mem    move.l    d5,d1
  4122.     beq.s    .xx
  4123.     bsr.s    .clo
  4124. .xx    move.l    d7,d1
  4125.     bsr.s    .clo
  4126.     RBra    L_IOOMem
  4127. * Routine, trouve la taille d'un fichier
  4128. .taille    move.l    a6,-(sp)
  4129.     move.l    d1,-(sp)
  4130.     moveq    #0,d2
  4131.     moveq    #1,d3
  4132.     move.l    DosBase(a5),a6
  4133.     jsr    -66(a6)            DosSeek
  4134.     move.l    (sp)+,d1
  4135.     move.l    d0,d2
  4136.     moveq    #-1,d3
  4137.     move.l    DosBase(a5),a6
  4138.     jsr    -66(a6)            DosSeek
  4139.     move.l    (sp)+,a6
  4140.     rts
  4141.  
  4142. ******* TRACK CHECK, arrete la musique si pas banque...
  4143. L_TrackCheck    equ    89
  4144. L89    movem.l    a0-a1,-(sp)
  4145.     DLoad    a1
  4146.     tst.b    mt_on-MB(a1)
  4147.     beq.s    .skip
  4148.     move.l    mt_data-MB(a1),a0
  4149.     cmp.l    #"ker ",-(a0)
  4150.     bne.s    .stop
  4151.     cmp.l    #"Trac",-(a0)
  4152.     beq.s    .skip
  4153. .stop    RBsr    L_TrackStop
  4154. .skip    movem.l    (sp)+,a0-a1
  4155.     rts
  4156.  
  4157. ******* TRACK STOP
  4158. L_TrackStop    equ    90
  4159. L90
  4160.     move.l    a3,-(sp)
  4161.     Dload    a3
  4162.     clr.b    mt_on-MB(a3)
  4163.     clr.w    $dff0a8
  4164.     clr.w    $dff0b8
  4165.     clr.w    $dff0c8
  4166.     clr.w    $dff0d8
  4167.     move.w    #$f,$dff096
  4168.     move.l    (sp)+,a3
  4169.     rts
  4170.  
  4171. ******* TRACK LOOP ON/OFF
  4172. L_TrackLoopon    equ    91
  4173. L91    DLea    sorploop,a0
  4174.     move.b    #1,(a0)
  4175.     rts
  4176. L_TrackLoopof    equ    92
  4177. L92    DLea    sorploop,a0
  4178.     clr.b    (a0)
  4179.     rts
  4180.  
  4181. ******* TRACK PLAY [Bank],[Pattern]
  4182.  
  4183. L_TrackPlay0    equ    93
  4184. L93
  4185.     move.l    #Entnul,-(a3)
  4186.     Rbra    94
  4187.  
  4188. L_TrackPlay1    equ    94
  4189. L94    
  4190.     clr.l    -(a3)
  4191.     Rbra    95
  4192.  
  4193. L_TrackPlay2    equ    95
  4194. L95    
  4195.     move.l    (a3)+,d7
  4196.     cmp.l    #Entnul,(a3)
  4197.     bne.s    .skip
  4198.     Dload    a0
  4199.     moveq    #0,d0
  4200.     move.w    Track_Bank-MB(a0),d0
  4201.     addq.w    #1,d0
  4202.     move.l    d0,(a3)
  4203. .skip    
  4204.     Rjsr    L_Adoubank
  4205.     move.l    d3,a2
  4206.     cmp.l    #"Trac",-8(a2)    
  4207.     bne    .nobank
  4208.     cmp.l    #"ker ",-4(a2)
  4209.     bne    .nobank
  4210.     
  4211.     Rbsr    L_SamStop0
  4212.     Rbsr    L_TrackStop
  4213.     
  4214.     move.l    a3,-(sp)
  4215.     Dload    a3
  4216.  
  4217.     moveq    #0,d1
  4218.     and.b    #$7f,d7
  4219.     move.b    d7,mt_songpos-MB(a3)
  4220.     move.b    d7,omt_songpos-MB(a3)
  4221.     beq.s    .skp
  4222.     moveq    #1,d1
  4223. .skp    move.b    d1,sorp-MB(a3)
  4224.     clr.b    sorpend-MB(a3)
  4225.     clr.w    mt_pattpos-MB(a3)        * Position dans pattern
  4226.  
  4227.     move.l    a2,a1
  4228.     clr.l    mt_data2-MB(a3)
  4229.     cmp.l    #$03011992,(a2)        Des instruments?
  4230.     bne.s    .skd
  4231.     move.l    4(a2),d0        Prend l'adresse
  4232.     lea    0(a2,d0.l),a1
  4233.     lea    24(a2),a2
  4234.     move.l    a2,mt_data2-MB(a3)
  4235. .skd
  4236.     move.l    a1,mt_data-MB(a3)
  4237.     lea    (a1),a0
  4238.     lea    $3b8(a0),a1
  4239.     moveq    #$7f,d0
  4240.     moveq    #0,d2
  4241.     moveq    #0,d1
  4242. .mt_lop2:
  4243.     move.b    (a1)+,d1
  4244.     cmp.b    d2,d1
  4245.     ble.s    .mt_lop
  4246.     move.l    d1,d2
  4247. .mt_lop:    
  4248.     dbf    d0,.mt_lop2
  4249.     addq.b    #1,d2
  4250.     asl.l    #8,d2
  4251.     asl.l    #2,d2
  4252.     lea    4(a1,d2.l),a2
  4253.     lea    mt_samplestarts-MB(a3),a1
  4254.     add.w    #42,a0
  4255.     moveq    #$1e,d0
  4256. .mt_lop3:
  4257.     clr.l    (a2)
  4258.     move.l    a2,(a1)+
  4259.     moveq    #0,d1
  4260.     move.w    (a0),d1
  4261.     clr.b    2(a0)
  4262.     asl.l    #1,d1
  4263.     add.l    d1,a2
  4264.     add.l    #30,a0
  4265.     dbf    d0,.mt_lop3
  4266.     or.b    #2,$bfe001
  4267.     moveq    #0,d0
  4268.     lea    $dff000,a0
  4269.     move.w    d0,$a8(a0)
  4270.     move.w    d0,$b8(a0)
  4271.     move.w    d0,$c8(a0)
  4272.     move.w    d0,$d8(a0)
  4273.  
  4274.     move.w    TempoBase-MB(a3),d0
  4275.     divu    #16,d0
  4276.     move.b    d0,mt_speed-MB(a3)
  4277.     clr.b    mt_counter-MB(a3)
  4278.     move.b    #1,mt_on-MB(a3)
  4279.     move.l    (sp)+,a3    
  4280.     rts
  4281. * Pas un module tracker
  4282. .nobank    moveq    #8,d0
  4283.     Rbra    L_Custom
  4284.  
  4285. ******* Erreur disque
  4286. L_IDError    equ    96
  4287. L96    move.w    #DEBase+15,d0
  4288.     Rjmp    L_Error
  4289.  
  4290. L97
  4291. L98
  4292. L99
  4293.  
  4294.  
  4295. *********************************************************************
  4296. *    ERROR MESSAGES...
  4297. ;
  4298. ; You know that the compiler have a -E1 option (with errors) and a 
  4299. ; a -E0 (without errors). To achieve that, the compiler copies one of
  4300. ; the two next routines, depending on the -E flag. If errors are to be
  4301. ; copied along with the program, then the next next routine is used. If not,
  4302. ; then the next one is copied.
  4303. ; The compiler assumes that the two last routines in the library handles
  4304. ; the errors: the previous last is WITH errors, the last is WITHOUT. So,
  4305. ; remember:
  4306. ;
  4307. ; THESE ROUTINES MUST BE THE LAST ONES IN THE LIBRARY
  4308. ;
  4309. ; The AMOS interpretor always needs errors. So make all your custom errors
  4310. ; calls point to the L_Custom routine, and everything will work fine...
  4311. ;
  4312. ******* "With messages" routine.
  4313. ; The following routine is the one your program must call to output
  4314. ; a extension error message. It will be used under interpretor and under
  4315. ; compiled program with -E1
  4316.  
  4317. L_Custom    equ    100
  4318. L100    lea    ErrMess(pc),a0
  4319.     moveq    #0,d1            * Can be trapped
  4320.     moveq    #ExtNb,d2        * Number of extension
  4321.     moveq    #0,d3            * IMPORTANT!!!
  4322.     RJmp    L_ErrorExt        * Jump to routine...
  4323. * Messages...
  4324. ErrMess    dc.b    "Wave not defined",0            *0
  4325.     dc.b     "Sample not defined",0            *1
  4326.     dc.b     "Sample bank not found",0        *2
  4327.     dc.b    "256 characters for a wave",0        *3
  4328.     dc.b    "Wave 0 and 1 are reserved",0        *4
  4329.     dc.b    "Music bank not found",0        *5
  4330.     dc.b     "Music not defined",0            *6
  4331.     dc.b    "Can't open narrator",0            *7
  4332.     dc.b    "Not a tracker module",0        *8
  4333. * IMPORTANT! Always EVEN!
  4334.     even
  4335.  
  4336. ******* "No errors" routine
  4337. ; If you compile with -E0, the compiler will replace the previous
  4338. ; routine by this one. This one just sets D3 to -1, and does not
  4339. ; load messages in A0. Anyway, values in D1 and D2 must be valid.
  4340. ;    
  4341. ; THIS ROUTINE MUST BE THE LAST ONE IN THE LIBRARY!
  4342. ;
  4343.  
  4344. L101    moveq    #0,d1
  4345.     moveq    #ExtNb,d2
  4346.     moveq    #-1,d3
  4347.     RJmp    L_ErrorExt
  4348.  
  4349. ; Do not forget the last label to delimit the last library routine!
  4350. L102
  4351.  
  4352. *********************************************************************
  4353. ; Now the title of the extension. If you come from V1.23 note that
  4354. ; the cursor is no more located on the screen, instead a CDOWN (31)
  4355. ; control code is used...
  4356.  
  4357. ******* TITLE MESSAGE
  4358. C_Title    dc.b    31,"Music extension V "
  4359.     Version
  4360.     dc.b    0,"$VER: "
  4361.     Version
  4362.     dc.b    0
  4363.     Even
  4364.  
  4365. ******* END OF THE EXTENSION
  4366. C_End    dc.w    0
  4367.     even
  4368.  
  4369.  
  4370.