Games/Doom/doomsound.library.s

   1 ;------------------------------------------------------------------------
   2 ; Sound Library for DOOM - by Joseph Fenton
   3 ;
   4 ; Functions:
   5 ;       Sfx_SetVol - pass in the new sound effects volume in d0.
   6 ;       Sfx_Start - pass in new sound effect to play. a0 = wave,
   7 ;               d0 = cnum, d1 = pitch, d2 = vol, d3 = sep, d4 =
   8 ;               length.
   9 ;       Sfx_Update - pass in new settings for a sfx. a0 = data,
  10 ;               d0 = cnum, d1 = pitch, d2 = vol, d3 = sep.
  11 ;       Sfx_Stop - stop a playing sound effect. d0 = cnum.
  12 ;       Sfx_Done - check if sound effect playing. d0 = cnum; returns
  13 ;               d0 = 0 if not playing/current index if playing.
  14 ;       Mus_SetVol - pass in the new music volume in d0.
  15 ;       Mus_Register - pass in pointer to MUS data to register in
  16 ;               a0. Returns handle in d0.
  17 ;       Mus_Unregister - pass in handle to music to unregister in d0.
  18 ;       Mus_Play - pass in handle to music to start playing in d0,
  19 ;               pass the looping flag in d1.
  20 ;       Mus_Stop - pass in handle to music to stop playing in d0.
  21 ;       Mus_Pause - pass in handle to music to pause in d0.
  22 ;       Mus_Resume - pass in handle to music to resume in d0.
  23 ;       Mus_Done - return d0 = 0 if music not playing
  24 ;
  25 ;------------------------------------------------------------------------
  26
  27
  28 _custom         equ     $DFF000
  29
  30 ;------------------------------------------------------------------------
  31
  32                 include devpac:system.gs        ; all includes/LVOs
  33
  34 ;               include "exec/exec.i"
  35 ;               include "exec/funcdef.i"
  36 ;               include "exec/exec_lib.i"
  37 ;               include "dos/dos.i"
  38 ;               include "dos/dos_lib.i"
  39 ;               include "graphics/gfxbase.i"
  40 ;               include "devices/audio.i"
  41 ;               include "hardware/custom.i"
  42 ;               include "hardware/intbits.i"
  43 ;               include "hardware/dmabits.i"
  44 ;
  45 ;CALLSYS                macro
  46 ;               jsr     (_LVO\1,a6)
  47 ;               endm
  48 ;
  49 ;CALLDOS                macro
  50 ;               movea.l (_DOSBase,pc),a6
  51 ;               jsr     (_LVO\1,a6)
  52 ;               endm
  53
  54                 output  libs:doomsound.library
  55
  56 ;------------------------------------------------------------------------
  57
  58 VERSION         equ 37                  ;Version #
  59 REVISION        equ 0                   ;revision of the version
  60
  61 _VER            equ (VERSION/10)
  62 VERHIGH         equ _VER|$30
  63 VERLOW          equ (VERSION-(_VER*10))|$30
  64 _REV            equ (REVISION/10)
  65 REVHIGH         equ _REV|$30
  66 REVLOW          equ (REVISION-(_REV*10))|$30
  67
  68 OUTPUT_VER      MACRO
  69                 ifge VERHIGH-$31
  70                 dc.b VERHIGH
  71                 endc
  72                 dc.b VERLOW
  73                 dc.b '.'
  74                 ifge REVHIGH-$31
  75                 dc.b REVHIGH
  76                 endc
  77                 dc.b REVLOW
  78                 ENDM
  79
  80 OUTPUT_DATE     MACRO
  81                 dc.b ' (29.3.98)'
  82                 ENDM
  83
  84
  85 ;--------------------------------------------------------------------
  86 ; in case of idiots
  87
  88                 moveq   #0,d0
  89                 rts
  90
  91 ;--------------------------------------------------------------------
  92 ; standard library header
  93
  94
  95 InitDescript    dc.w    $4AFC           ;this is the magic cookie
  96                 dc.l    InitDescript
  97                 dc.l    EndCode         ;end of code to checksum
  98                 dc.b    RTF_AUTOINIT
  99                 dc.b    VERSION         ;version #
 100                 dc.b    NT_LIBRARY      ;node type (library)
 101                 dc.b    0               ;node priority
 102                 dc.l    Name            ;pointer to the library name
 103                 dc.l    IDString        ;pointer to ID string
 104                 dc.l    Init            ;pointer to initialization data
 105
 106
 107 Name            dc.b    'doomsound.library',0
 108                 even
 109
 110 IDString        dc.b    'doomsound.library '
 111                 OUTPUT_VER
 112                 OUTPUT_DATE
 113                 dc.b    ' ©1998 by Joe Fenton.',0
 114                 even
 115
 116
 117                 CNOP    0,4
 118
 119 Init            dc.l    LIB_SIZE
 120                 dc.l    FuncTable
 121                 dc.l    DataTable
 122                 dc.l    InitRoutine
 123
 124
 125 FuncTable       dc.l    OpenLib         ; -6
 126                 dc.l    CloseLib        ; -12
 127                 dc.l    Expunge         ; -18
 128                 dc.l    Reserved        ; -24
 129
 130                 dc.l    Sfx_SetVol      ; -30
 131                 dc.l    Sfx_Start       ; -36
 132                 dc.l    Sfx_Update      ; -42
 133                 dc.l    Sfx_Stop        ; -48
 134                 dc.l    Sfx_Done        ; -54
 135
 136                 dc.l    Mus_SetVol      ; -60
 137                 dc.l    Mus_Register    ; -66
 138                 dc.l    Mus_Unregister  ; -72
 139                 dc.l    Mus_Play        ; -78
 140                 dc.l    Mus_Stop        ; -84
 141                 dc.l    Mus_Pause       ; -90
 142                 dc.l    Mus_Resume      ; -96
 143                 dc.l    Mus_Done        ; -102
 144
 145                 dc.l    -1
 146
 147
 148 DataTable       INITBYTE LN_TYPE,NT_LIBRARY
 149                 INITLONG LN_NAME,Name
 150                 INITBYTE LIB_FLAGS,LIBF_SUMUSED+LIBF_CHANGED
 151                 INITWORD LIB_VERSION,VERSION
 152                 INITWORD LIB_REVISION,REVISION
 153                 INITLONG LIB_IDSTRING,IDString
 154                 dc.l    0
 155
 156
 157 ;--------------------------------------
 158 ; A0 = library segment list
 159 ; A6 = ExecBase
 160 ; D0 = library pointer
 161 ;
 162 ; D0 -> library base or NULL
 163
 164                 CNOP    0,16
 165
 166 InitRoutine     move.l  a6,_ExecBase
 167                 move.l  a5,-(a7)                ;save a5
 168                 movea.l d0,a5                   ;library base pointer
 169                 move.l  a0,SegList              ;save library seglist
 170
 171                 bsr     InitServer              ;setup sound server
 172                 bne.b   .err
 173
 174                 move.l  a5,d0                   ;success ...
 175                 movea.l (a7)+,a5
 176                 rts
 177
 178 .err            moveq   #0,d0                   ;error
 179                 movea.l (a7)+,a5
 180                 rts
 181
 182
 183 ;--------------------------------------
 184
 185                 CNOP    0,16
 186
 187 OpenLib         addq.w  #1,LIB_OPENCNT(a6)
 188                 move.l  a6,d0
 189                 rts
 190
 191
 192 ;--------------------------------------
 193 ; this library is auto-expunging
 194
 195                 CNOP    0,16
 196
 197 CloseLib        subq.w  #1,LIB_OPENCNT(a6)
 198                 beq.b   Expunge
 199 ;still open
 200                 moveq   #0,d0                   ;no seglist
 201                 rts
 202
 203
 204 ;--------------------------------------
 205 ; A6 = library base
 206 ;
 207 ; D0 -> seglist or NULL
 208
 209                 CNOP    0,16
 210
 211 Expunge         tst.w   LIB_OPENCNT(a6)         ;library still open?
 212                 bne     .LibStillOpen           ;yes
 213
 214                 bsr     ExitServer              ;cleanup sound server
 215
 216                 IFND    TESTING
 217                 move.l  SegList,d0              ;get the seglist
 218                 movem.l d0/a5-a6,-(a7)          ;delayed save
 219                 movea.l a6,a5                   ;library base => A5
 220                 movea.l a5,a1                   ;library node
 221                 movea.l _ExecBase,a6
 222                 CALLSYS Remove                  ;unlink msmmu.library
 223
 224                 movea.l a5,a1                   ;calculate lib size
 225                 moveq   #0,d0                   ;and free memory
 226                 move.w  LIB_NEGSIZE(a5),d0      ;backward extent
 227                 suba.w  d0,a1                   ;low memory extent
 228                 add.w   LIB_POSSIZE(a5),d0      ;forward extent
 229                 CALLSYS FreeMem                 ;give it back
 230                 movem.l (a7)+,d0/a5-a6          ;seglist=>D0
 231                 ENDC
 232                 rts
 233
 234
 235 .LibStillOpen   moveq   #0,d0                   ;no seglist
 236                 rts
 237
 238
 239 ;--------------------------------------
 240
 241                 CNOP    0,4
 242
 243 Reserved        moveq.l #0,d0
 244                 rts
 245
 246
 247 EndCode:
 248
 249 ;--------------------------------------------------------------------
 250
 251                 dc.b    'This sound library uses the Amiga audio.device and',0
 252                 dc.b    '11KHz samples; it supports full stereo panning on',0
 253                 dc.b    'sound effects and music.  Up to 16 sound effects and',0
 254                 dc.b    '16 channels of music can be palying at any time.',0
 255
 256 ;--------------------------------------------------------------------
 257
 258                 CNOP    0,16
 259
 260 InitServer      movem.l d1-d7/a0-a6,-(a7)
 261                 movea.l _ExecBase,a6
 262
 263                 moveq   #0,d0
 264                 lea     DOSName,a1
 265                 CALLSYS OpenLibrary
 266                 move.l  d0,_DOSBase
 267                 beq     .err                    ; couldn't open dos.library
 268
 269                 moveq   #39,d0
 270                 lea     GfxName,a1
 271                 CALLSYS OpenLibrary
 272                 tst.l   d0
 273                 beq.b   .2                      ; leave at default (NTSC)
 274                 move.l  d0,a1
 275                 btst    #REALLY_PALn,gb_DisplayFlags(a1)
 276                 beq.b   .1                      ; crystal is NTSC
 277                 move.w  #322,period             ; PAL sample rate
 278 .1              CALLSYS CloseLibrary
 279
 280 .2              move.l  #128*256,d0
 281                 move.l  #MEMF_CLEAR+MEMF_FAST+MEMF_PUBLIC,d1
 282                 CALLSYS AllocVec
 283                 move.l  d0,LookupMem
 284                 beq     .err0                   ; no memory for vol_lookup
 285                 move.l  d0,vol_lookup
 286                 movea.l d0,a0
 287
 288                 moveq   #0,d2
 289                 moveq   #0,d1
 290 .3              move.b  d1,d3
 291                 ext.w   d3
 292                 muls.w  d2,d3
 293                 divs.w  #127,d3                 ; i*j/127
 294                 move.b  d3,(a0)+
 295                 addq.b  #1,d1
 296                 bne.b   .3
 297                 addq.b  #1,d2
 298                 cmpi.b  #128,d2
 299                 bne.b   .3
 300
 301                 CALLSYS CreateMsgPort
 302                 move.l  d0,AudioPort
 303                 beq     .err1                   ; couldn't create port
 304                 movea.l d0,a0
 305                 move.l  #ioa_SIZEOF,d0
 306                 CALLSYS CreateIORequest
 307                 move.l  d0,AudioIO
 308                 beq     .err2                   ; couldn't create io
 309
 310                 movea.l d0,a1
 311                 moveq   #0,d0
 312                 moveq   #0,d1
 313                 lea     AudioName,a0
 314                 CALLSYS OpenDevice
 315                 tst.l   d0
 316                 bne     .err3                   ; couldn't open audio.device
 317
 318                 movea.l AudioIO,a1
 319                 move.w  #ADCMD_ALLOCATE,IO_COMMAND(a1)
 320                 move.b  #ADIOF_NOWAIT+IOF_QUICK,IO_FLAGS(a1)
 321                 move.l  #AudioAlloc,ioa_Data(a1)
 322                 move.l  #1,ioa_Length(a1)
 323                 movea.l IO_DEVICE(a1),a6
 324                 jsr     DEV_BEGINIO(a6)
 325                 movea.l _ExecBase,a6
 326                 tst.l   d0
 327                 bne     .err4                   ; couldn't allocate channels
 328
 329                 movea.l AudioIO,a1
 330                 move.w  #ADCMD_LOCK,IO_COMMAND(a1)
 331                 CALLSYS SendIO
 332
 333                 lea     _custom,a0
 334                 move.w  #$0780,intena(a0)       ; kill int enable
 335                 move.w  #$0780,intreq(a0)       ; kill request
 336                 move.w  #$00FF,adkcon(a0)       ; kill modulation
 337                 move.w  #$000F,dmacon(a0)       ; disable dma
 338
 339                 move.l  #ClearBuf,aud0(a0)
 340                 move.w  #40,aud0+ac_len(a0)
 341                 move.w  period,aud0+ac_per(a0)
 342                 move.w  #0,aud0+ac_vol(a0)
 343
 344                 move.l  #ClearBuf,aud1(a0)
 345                 move.w  #40,aud1+ac_len(a0)
 346                 move.w  period,aud1+ac_per(a0)
 347                 move.w  #0,aud1+ac_vol(a0)
 348
 349                 move.l  #ClearBuf,aud2(a0)
 350                 move.w  #40,aud2+ac_len(a0)
 351                 move.w  period,aud2+ac_per(a0)
 352                 move.w  #0,aud2+ac_vol(a0)
 353
 354                 move.l  #ClearBuf,aud3(a0)
 355                 move.w  #40,aud3+ac_len(a0)
 356                 move.w  period,aud3+ac_per(a0)
 357                 move.w  #0,aud3+ac_vol(a0)
 358
 359                 moveq   #INTB_AUD0,d0
 360                 lea     AInt0,a1
 361                 CALLSYS SetIntVector
 362                 move.l  d0,OldAInt0
 363
 364                 move.l  #QuietInst,Channel0
 365                 move.l  #QuietInst,Channel1
 366                 move.l  #QuietInst,Channel2
 367                 move.l  #QuietInst,Channel3
 368                 move.l  #QuietInst,Channel4
 369                 move.l  #QuietInst,Channel5
 370                 move.l  #QuietInst,Channel6
 371                 move.l  #QuietInst,Channel7
 372                 move.l  #QuietInst,Channel8
 373                 move.l  #QuietInst,Channel9
 374                 move.l  #QuietInst,Channel10
 375                 move.l  #QuietInst,Channel11
 376                 move.l  #QuietInst,Channel12
 377                 move.l  #QuietInst,Channel13
 378                 move.l  #QuietInst,Channel14
 379                 move.l  #QuietInst,Channel15
 380
 381                 clr.b   mus_playing
 382                 clr.b   mus_looping
 383
 384                 clr.l   MusDelay                ; MusDelay = 0
 385                 clr.l   VoiceAvail              ; all voices available
 386
 387                 CALLSYS Disable
 388                 lea     _custom,a0
 389                 move.w  #$8080,intena(a0)       ; int enable
 390                 move.w  #$800F,dmacon(a0)       ; enable dma
 391                 bsr     AudioINT0               ; start audio
 392                 CALLSYS Enable
 393
 394                 movem.l (a7)+,d1-d7/a0-a6
 395                 moveq   #0,d0           ; okay
 396                 rts
 397
 398 .err4           movea.l AudioIO,a1
 399                 CALLSYS CloseDevice
 400
 401 .err3           movea.l AudioIO,a0
 402                 CALLSYS DeleteIORequest
 403
 404 .err2           movea.l AudioPort,a0
 405                 CALLSYS DeleteMsgPort
 406
 407 .err1           movea.l LookupMem,a1
 408                 CALLSYS FreeVec
 409
 410 .err0           movea.l _DOSBase,a1
 411                 CALLSYS CloseLibrary
 412
 413 .err            movem.l (a7)+,d1-d7/a0-a6
 414                 moveq   #-1,d0          ; error
 415                 rts
 416
 417 ;--------------------------------------
 418
 419                 CNOP    0,16
 420
 421 ExitServer      movem.l d1-d7/a0-a6,-(a7)
 422
 423                 lea     _custom,a0
 424                 move.w  #$0780,intena(a0)       ; kill int enable
 425                 move.w  #$0780,intreq(a0)       ; kill request
 426                 move.w  #$000F,dmacon(a0)       ; dma off
 427
 428                 moveq   #INTB_AUD0,d0
 429                 movea.l OldAInt0,a1
 430                 movea.l _ExecBase,a6
 431                 CALLSYS SetIntVector
 432
 433                 movea.l AudioIO,a1
 434                 move.w  #ADCMD_FREE,IO_COMMAND(a1)
 435                 move.b  #IOF_QUICK,IO_FLAGS(a1)
 436                 movea.l IO_DEVICE(a1),a6
 437                 jsr     DEV_BEGINIO(a6)
 438
 439                 movea.l _ExecBase,a6
 440
 441                 movea.l AudioIO,a1
 442                 CALLSYS CloseDevice
 443
 444                 movea.l AudioIO,a0
 445                 CALLSYS DeleteIORequest
 446
 447                 movea.l AudioPort,a0
 448                 CALLSYS DeleteMsgPort
 449
 450                 movea.l LookupMem,a1
 451                 CALLSYS FreeVec
 452
 453                 movea.l _DOSBase,a1
 454                 CALLSYS CloseLibrary
 455
 456                 movem.l (a7)+,d1-d7/a0-a6
 457                 moveq   #0,d0
 458                 rts
 459
 460 ;--------------------------------------
 461
 462                 CNOP    0,16
 463
 464 Sfx_SetVol      move.w  d0,sfx_volume
 465                 rts
 466
 467 ;--------------------------------------
 468
 469                 CNOP    0,16
 470
 471 Sfx_Start       movem.l d0-d4/a0-a2,-(a7)
 472                 lea     sfxVoiceTbl,a1
 473                 movea.l (a1,d0.w*4),a1
 474                 lea     8(a0),a0
 475                 subq.l  #8,d4
 476                 move.l  a0,vc_Wave(a1)
 477                 clr.l   vc_Index(a1)
 478                 swap    d1
 479                 clr.w   d1
 480                 divu.l  #11025,d1
 481                 move.l  d1,vc_Step(a1)
 482                 clr.l   vc_Loop(a1)
 483                 lsl.l   #8,d4
 484                 move.l  d4,vc_Length(a1)
 485
 486                 addq.w  #1,d3           ; sep += 1
 487                 move.w  d2,d4
 488                 muls.w  d3,d4
 489                 muls.w  d3,d4
 490                 clr.w   d4
 491                 swap    d4
 492                 neg.w   d4
 493                 add.w   d2,d4           ; ltvol = vol - vol * (sep+1)^2 / 256^2
 494                 lsl.l   #8,d4
 495                 move.l  d4,vc_LtVol(a1)
 496
 497                 subi.l  #257,d3         ; sep -= 257
 498                 move.w  d2,d4
 499                 muls.w  d3,d4
 500                 muls.w  d3,d4
 501                 clr.w   d4
 502                 swap    d4
 503                 neg.w   d4
 504                 add.w   d2,d4           ; rtvol = vol - vol * (sep-257)^2 / 256^2
 505                 lsl.l   #8,d4
 506                 move.l  d4,vc_RtVol(a1)
 507
 508                 move.b  #$81,vc_Flags(a1)
 509                 movem.l (a7)+,d0-d4/a0-a2
 510                 rts
 511
 512 ;--------------------------------------
 513
 514                 CNOP    0,16
 515
 516 Sfx_Update      movem.l d0-d4/a0-a2,-(a7)
 517                 lea     sfxVoiceTbl,a1
 518                 movea.l (a1,d0.w*4),a1
 519                 swap    d1
 520                 clr.w   d1
 521                 divu.l  #11025,d1
 522                 move.l  d1,vc_Step(a1)
 523
 524                 addq.w  #1,d3           ; sep += 1
 525                 move.w  d2,d4
 526                 muls.w  d3,d4
 527                 muls.w  d3,d4
 528                 clr.w   d4
 529                 swap    d4
 530                 neg.w   d4
 531                 add.w   d2,d4           ; ltvol = vol - vol * (sep+1)^2 / 256^2
 532                 lsl.l   #8,d4
 533                 move.l  d4,vc_LtVol(a1)
 534
 535                 subi.l  #257,d3         ; sep -= 257
 536                 move.w  d2,d4
 537                 muls.w  d3,d4
 538                 muls.w  d3,d4
 539                 clr.w   d4
 540                 swap    d4
 541                 neg.w   d4
 542                 add.w   d2,d4           ; rtvol = vol - vol * (sep-257)^2 / 256^2
 543                 lsl.l   #8,d4
 544                 move.l  d4,vc_RtVol(a1)
 545
 546                 movem.l (a7)+,d0-d4/a0-a2
 547                 rts
 548
 549 ;--------------------------------------
 550
 551                 CNOP    0,16
 552
 553 Sfx_Stop        move.l  a0,-(a7)
 554                 lea     sfxVoiceTbl,a0
 555                 movea.l (a0,d0.w*4),a0
 556                 bclr    #0,vc_Flags(a0)
 557                 movea.l (a7)+,a0
 558                 rts
 559
 560 ;--------------------------------------
 561
 562                 CNOP    0,16
 563
 564 Sfx_Done        move.l  a0,-(a7)
 565                 lea     sfxVoiceTbl,a0
 566                 movea.l (a0,d0.w*4),a0
 567                 moveq   #0,d0
 568                 btst    #0,vc_Flags(a0)
 569                 beq.b   .1              ; not playing
 570                 move.l  vc_Index(a0),d0
 571                 addq.l  #1,d0           ; for safety
 572 .1              movea.l (a7)+,a0
 573                 rts
 574
 575 ;--------------------------------------
 576
 577                 CNOP    0,16
 578
 579 Mus_SetVol      move.w  d0,mus_volume
 580                 rts
 581
 582 ;--------------------------------------
 583
 584                 CNOP    0,16
 585
 586 Mus_Register    movem.l d1-d7/a0-a6,-(sp)
 587                 bsr     Mus_Unregister
 588
 589                 move.l  a0,MUSMemPtr
 590
 591                 cmpi.l  #$4D55531A,(a0)         ; "MUS",26
 592                 bne     .err0                   ; not a mus file
 593
 594                 move.l  MUSMemPtr,MusPtr
 595
 596                 bsr     TestMUSFile
 597                 beq     .err0
 598
 599                 move.l  InstrFile,d1
 600                 move.l  #MODE_OLDFILE,d2
 601                 CALLDOS Open
 602                 move.l  d0,InstrHandle
 603                 beq     .err0
 604
 605                 move.l  #MEMF_CLEAR,d0          ; any memory
 606                 move.l  #65536,d1               ; puddle size
 607                 move.l  #32768,d2               ; threshold size
 608                 bsr     CreatePool
 609                 move.l  a0,InstrPool
 610                 beq     .err1
 611
 612                 movea.l a0,a2
 613                 movea.l MusPtr,a3
 614
 615                 move.w  #255,d0
 616                 lea     Instruments,a0
 617 .setinstr       move.l  #QuietInst,(a0)+
 618                 dbra    d0,.setinstr
 619
 620                 move.w  $C(a3),d4               ; instrCnt
 621                 ror.w   #8,d4
 622                 subq.w  #1,d4                   ; for dbra
 623
 624                 lea     $10(a3),a3              ; instruments[]
 625
 626 .instrloop      moveq   #14,d0
 627                 movea.l a2,a0
 628                 bsr     AllocPooled
 629
 630                 moveq   #0,d2
 631                 move.b  (a3)+,d2                ; instrument #
 632                 moveq   #0,d1
 633                 move.b  (a3)+,d1                ; offset to next instr. #
 634                 adda.l  d1,a3                   ; skip it (whatever it is?)
 635
 636                 lea     Instruments,a0
 637                 move.l  d0,(a0,d2.w*4)
 638                 beq     .err2
 639
 640                 movea.l d0,a4                   ; instrument record
 641
 642                 bftst   (validInstr){d2:1}
 643                 beq     .next                   ; no instrument
 644
 645                 move.l  InstrHandle,d1
 646                 lsl.l   #2,d2
 647                 moveq   #OFFSET_BEGINNING,d3
 648                 CALLDOS Seek
 649
 650                 move.l  InstrHandle,d1
 651                 move.l  a4,d2
 652                 moveq   #4,d3
 653                 CALLSYS Read                    ; get instrument offset
 654                 addq.l  #1,d0
 655                 beq     .err2                   ; can't read file
 656
 657                 move.l  InstrHandle,d1
 658                 move.l  (a4),d2
 659                 moveq   #OFFSET_BEGINNING,d3
 660                 CALLSYS Seek
 661
 662                 move.l  InstrHandle,d1
 663                 move.l  a4,d2
 664                 moveq   #14,d3
 665                 CALLSYS Read                    ; get instrument header
 666                 addq.l  #1,d0
 667                 beq     .err2                   ; can't read file
 668
 669                 move.l  in_Length(a4),d0
 670                 swap    d0
 671                 movea.l a2,a0
 672                 bsr     AllocPooled
 673                 move.l  d0,in_Wave(a4)          ; wave data buffer
 674                 beq     .err2
 675
 676                 move.l  InstrHandle,d1
 677                 move.l  d0,d2
 678                 move.l  in_Length(a4),d3
 679                 swap    d3
 680                 CALLDOS Read                    ; get instrument samples
 681                 addq.l  #1,d0
 682                 beq     .err2                   ; can't read file
 683
 684                 move.b  #1,in_Flags(a4)
 685 .next           dbra    d4,.instrloop
 686
 687                 move.l  InstrHandle,d1
 688                 CALLDOS Close
 689                 clr.l   InstrHandle
 690
 691                 moveq   #1,d0                   ; return handle=1
 692                 movem.l (sp)+,d1-d7/a0-a6
 693                 rts
 694
 695 .err2           movea.l InstrPool,a0
 696                 bsr     DeletePool
 697                 clr.l   InstrPool
 698
 699 .err1           move.l  InstrHandle,d1
 700                 CALLDOS Close
 701                 clr.l   InstrHandle
 702
 703 .err0           moveq   #0,d0                   ; return handle=0
 704                 movem.l (sp)+,d1-d7/a0-a6
 705                 rts
 706
 707 ;--------------------------------------
 708
 709                 CNOP    0,16
 710
 711 Mus_Unregister  movem.l d0-d7/a0-a6,-(a7)
 712                 bsr     Mus_Stop
 713
 714                 clr.l   MUSMemPtr
 715                 clr.l   MUSMemSize
 716
 717                 tst.l   InstrPool
 718                 beq.b   .1
 719                 movea.l InstrPool,a0
 720                 bsr     DeletePool
 721                 clr.l   InstrPool
 722
 723 .1              movem.l (a7)+,d0-d7/a0-a6
 724                 rts
 725
 726 ;--------------------------------------
 727
 728                 CNOP    0,16
 729
 730 Mus_Play        move.b  d1,mus_looping
 731                 move.b  #2,mus_playing          ; 2 = play from start
 732                 rts
 733
 734 ;--------------------------------------
 735
 736                 CNOP    0,16
 737
 738 Mus_Stop        tst.b   mus_playing
 739                 beq.b   .2
 740                 st      mus_playing             ; -1 = stop playing
 741 .1              tst.b   mus_playing
 742                 bne.b   .1
 743
 744 .2              move.l  #QuietInst,Channel0
 745                 move.l  #QuietInst,Channel1
 746                 move.l  #QuietInst,Channel2
 747                 move.l  #QuietInst,Channel3
 748                 move.l  #QuietInst,Channel4
 749                 move.l  #QuietInst,Channel5
 750                 move.l  #QuietInst,Channel6
 751                 move.l  #QuietInst,Channel7
 752                 move.l  #QuietInst,Channel8
 753                 move.l  #QuietInst,Channel9
 754                 move.l  #QuietInst,Channel10
 755                 move.l  #QuietInst,Channel11
 756                 move.l  #QuietInst,Channel12
 757                 move.l  #QuietInst,Channel13
 758                 move.l  #QuietInst,Channel14
 759                 move.l  #QuietInst,Channel15
 760
 761                 clr.b   Voice0+vc_Flags         ; disable voices
 762                 clr.b   Voice1+vc_Flags
 763                 clr.b   Voice2+vc_Flags
 764                 clr.b   Voice3+vc_Flags
 765                 clr.b   Voice4+vc_Flags
 766                 clr.b   Voice5+vc_Flags
 767                 clr.b   Voice6+vc_Flags
 768                 clr.b   Voice7+vc_Flags
 769                 clr.b   Voice8+vc_Flags
 770                 clr.b   Voice9+vc_Flags
 771                 clr.b   Voice10+vc_Flags
 772                 clr.b   Voice11+vc_Flags
 773                 clr.b   Voice12+vc_Flags
 774                 clr.b   Voice13+vc_Flags
 775                 clr.b   Voice14+vc_Flags
 776                 clr.b   Voice15+vc_Flags
 777
 778                 clr.b   mus_looping
 779                 clr.l   MusDelay                ; MusDelay = 0
 780                 clr.l   VoiceAvail              ; all voices available
 781                 rts
 782
 783 ;--------------------------------------
 784
 785                 CNOP    0,16
 786
 787 Mus_Pause       clr.b   mus_playing             ; 0 = not playing
 788                 rts
 789
 790 ;--------------------------------------
 791
 792                 CNOP    0,16
 793
 794 Mus_Resume      move.b  #1,mus_playing          ; 1 = play
 795                 rts
 796
 797 ;--------------------------------------
 798
 799                 CNOP    0,16
 800
 801 Mus_Done        moveq   #0,d0
 802                 move.b  mus_playing,d0
 803                 rts
 804
 805 ;------------------------------------------------------------------------
 806
 807                 CNOP    0,16
 808
 809 TestMUSFile     movea.l MusPtr,a0
 810                 move.l  MUSMemSize,d3           ; d3 = total file size
 811                 moveq   #0,d0
 812                 move.w  4(a0),d0
 813                 beq     .fail
 814                 ror.w   #8,d0                   ; score length
 815                 moveq   #0,d1
 816                 move.w  6(a0),d1
 817                 ror.w   #8,d1                   ; score start
 818                 cmpi.w  #18,d1                  ; start < 18? (1 instr.)
 819                 blt     .fail
 820                 add.l   d1,d0                   ; d0 = total size
 821
 822                 move.l  d0,d3
 823                 move.l  d3,MUSMemSize
 824
 825                 move.w  12(a0),d2
 826                 beq.b   .fail
 827                 ror.w   #8,d2                   ; d2 = instr. count
 828                 subq.w  #1,d2
 829                 lea     16(a0),a1               ; a1 = * instr. list
 830 .loop           addq.l  #1,a1                   ; skip instr. value
 831                 moveq   #0,d0
 832                 move.b  (a1)+,d0                ; d0 = offset to next instr.
 833                 adda.l  d0,a1                   ; skip info (?)
 834                 dbra    d2,.loop                ; next
 835                 move.l  a1,d0                   ; d0 = * data following list
 836                 sub.l   a0,d0                   ; - file start
 837                 cmp.l   d0,d1                   ; = start?
 838                 bne.b   .fail
 839                 move.b  -1(a0,d3.l),d0          ; get last byte
 840                 lsr.b   #4,d0
 841                 cmpi.b  #6,d0                   ; last byte = $6x? (end)
 842                 bne.b   .fail
 843                 moveq   #1,d0                   ; file okay
 844                 rts
 845
 846 .fail           moveq   #0,d0                   ; yikes!
 847                 rts
 848
 849 ;------------------------------------------------------------------------
 850
 851                 cnop    0,16
 852
 853 AudioINT0       movem.l d2-d7/a2-a6,-(a7)
 854                 move.l  chip_offset,d0
 855                 add.l   d0,chip_buffer          ; switch buffers
 856                 neg.l   d0
 857                 move.l  d0,chip_offset
 858
 859                 lea     _custom,a0
 860                 move.w  #$0780,intreq(a0)       ; clear int requests
 861
 862                 tst.b   mus_playing
 863                 bgt.b   .domus
 864                 beq.b   .musoff
 865                 addq.b  #1,mus_playing          ; now off
 866
 867 .musoff         move.l  #ClearBuf,aud3(a0)
 868                 move.w  #40,aud3+ac_len(a0)
 869                 move.w  period,aud3+ac_per(a0)
 870                 move.w  #0,aud3+ac_vol(a0)
 871
 872                 move.l  #ClearBuf,aud2(a0)
 873                 move.w  #40,aud2+ac_len(a0)
 874                 move.w  period,aud2+ac_per(a0)
 875                 move.w  #0,aud2+ac_vol(a0)
 876
 877                 bra     .dosfx
 878
 879 .domus          cmpi.b  #2,mus_playing
 880                 bne.b   .musnxt
 881                 subq.b  #1,mus_playing
 882
 883                 movea.l MusPtr,a1
 884                 moveq   #0,d1
 885                 move.w  6(a1),d1                ; score start
 886                 ror.w   #8,d1
 887                 adda.l  d1,a1                   ; a1 = start
 888                 move.l  a1,MusIndex             ; store index
 889
 890 .musnxt         subq.l  #1,MusDelay
 891                 bpl.b   .fillmus
 892
 893                 bsr     NextEvent
 894
 895 .fillmus        lea     Voice0,a0               ; music voices
 896                 movea.l chip_buffer,a2
 897                 bsr     FillBuffer
 898
 899                 lea     _custom,a0
 900
 901                 move.l  chip_buffer,d0
 902                 move.l  d0,aud3(a0)             ; left mus
 903                 move.w  #40,aud3+ac_len(a0)     ; 80 samples
 904                 move.w  period,aud3+ac_per(a0)
 905                 move.w  mus_volume,aud3+ac_vol(a0)
 906
 907                 addi.l  #128,d0
 908                 move.l  d0,aud2(a0)             ; right mus
 909                 move.w  #40,aud2+ac_len(a0)     ; 80 samples
 910                 move.w  period,aud2+ac_per(a0)
 911                 move.w  mus_volume,aud2+ac_vol(a0)
 912
 913 .dosfx          lea     Voice16,a0              ; sound effect voices
 914                 movea.l chip_buffer,a2
 915                 lea     256(a2),a2
 916                 bsr     FillBuffer
 917
 918                 lea     _custom,a0
 919
 920                 move.l  chip_buffer,d0
 921                 addi.l  #256,d0
 922                 move.l  d0,aud0(a0)             ; left sfx
 923                 move.w  #40,aud0+ac_len(a0)     ; 80 samples
 924                 move.w  period,aud0+ac_per(a0)
 925                 move.w  sfx_volume,aud0+ac_vol(a0)
 926
 927                 addi.l  #128,d0
 928                 move.l  d0,aud1(a0)             ; right sfx
 929                 move.w  #40,aud1+ac_len(a0)     ; 80 samples
 930                 move.w  period,aud1+ac_per(a0)
 931                 move.w  sfx_volume,aud1+ac_vol(a0)
 932
 933 .exit           movem.l (a7)+,d2-d7/a2-a6
 934                 moveq   #0,d0
 935                 rts
 936
 937 ;------------------------------------------------------------------------
 938
 939                 CNOP    0,16
 940
 941 FillBuffer      movea.l a2,a4
 942                 lea     tempAudio,a1
 943                 moveq   #4,d0
 944 .lcloop         clr.l   (a1)+
 945                 clr.l   (a1)+
 946                 clr.l   (a1)+
 947                 clr.l   (a1)+
 948                 dbra    d0,.lcloop
 949
 950                 lea     tempAudio+128,a1
 951                 moveq   #4,d0
 952 .rcloop         clr.l   (a1)+
 953                 clr.l   (a1)+
 954                 clr.l   (a1)+
 955                 clr.l   (a1)+
 956                 dbra    d0,.rcloop
 957                 bra.b   .1stvoice
 958
 959 .next           move.l  vc_Next(a0),d0          ; next voice
 960                 bne.b   .chkvoice
 961
 962                 lea     128(a4),a2
 963                 lea     tempAudio,a1
 964                 moveq   #4,d0
 965 .lmloop         move.l  (a1)+,(a4)+
 966                 move.l  (a1)+,(a4)+
 967                 move.l  (a1)+,(a4)+
 968                 move.l  (a1)+,(a4)+
 969                 dbra    d0,.lmloop
 970
 971                 lea     tempAudio+128,a1
 972                 moveq   #4,d0
 973 .rmloop         move.l  (a1)+,(a2)+
 974                 move.l  (a1)+,(a2)+
 975                 move.l  (a1)+,(a2)+
 976                 move.l  (a1)+,(a2)+
 977                 dbra    d0,.rmloop
 978                 rts
 979
 980 .chkvoice       movea.l d0,a0
 981 .1stvoice       btst    #0,vc_Flags(a0)
 982                 beq.b   .next                   ; not enabled
 983
 984 ;------------------
 985 ; do voice
 986                 btst    #7,vc_Flags(a0)
 987                 bne     .5                      ; sfx
 988
 989                 btst    #1,vc_Flags(a0)
 990                 beq.b   .1                      ; not releasing
 991
 992                 tst.l   vc_LtVol(a0)
 993                 beq.b   .0
 994                 subi.l  #256,vc_LtVol(a0)
 995
 996 .0              tst.l   vc_RtVol(a0)
 997                 beq.b   .1
 998                 subi.l  #256,vc_RtVol(a0)
 999
1000 .1              move.l  vc_LtVol(a0),d6
1001                 move.l  vc_RtVol(a0),d7
1002                 tst.l   d6
1003                 bne.b   .2                      ; not off yet
1004                 tst.l   d7
1005                 bne.b   .2                      ; not off yet
1006
1007                 clr.b   vc_Flags(a0)            ; voice off
1008                 bra     .next
1009
1010 .2              lea     tempAudio,a1            ; left buffer
1011                 movea.l vol_lookup,a5
1012
1013                 movem.l vc_Index(a0),d1-d4      ; index,step,loop,length
1014
1015                 movea.l vc_Channel(a0),a3
1016                 move.l  ch_Pitch(a3),d0
1017                 muls.l  d0,d5:d2
1018                 move.w  d5,d2
1019                 swap    d2
1020                 add.l   vc_Step(a0),d2          ; final sample rate
1021
1022                 movea.l vc_Wave(a0),a3          ; sample data
1023
1024                 moveq   #79,d5                  ; 80 samples
1025 .floop          move.l  d1,d0
1026                 swap    d0
1027                 move.b  (a3,d0.w),d6            ; sample
1028                 move.b  d6,d7
1029                 move.b  (a5,d6.l),d6            ; convert
1030                 move.b  (a5,d7.l),d7            ; convert
1031                 asr.b   #2,d6
1032                 asr.b   #2,d7
1033                 add.b   d6,(a1)+                ; left sample
1034                 add.b   d7,127(a1)              ; right sample
1035
1036                 add.l   d2,d1
1037                 cmp.l   d4,d1
1038                 blo.b   .3
1039                 sub.l   d4,d1
1040                 add.l   d3,d1
1041                 tst.l   d3
1042                 beq.b   .4                      ; no looping
1043 .3              dbra    d5,.floop
1044                 bra.b   .done                   ; done with voice
1045
1046 ; ran out of data
1047 .4              clr.b   vc_Flags(a0)            ; voice off
1048
1049 .done           move.l  d1,vc_Index(a0)
1050                 bra     .next
1051
1052 ; do sfx voice
1053
1054 .5              move.l  vc_LtVol(a0),d6
1055                 move.l  vc_RtVol(a0),d7
1056
1057                 lea     tempAudio,a1            ; left buffer
1058                 movea.l vol_lookup,a5
1059
1060                 movem.l vc_Index(a0),d1-d4      ; index,step,loop,length
1061
1062                 move.l  vc_Step(a0),d2          ; sample rate
1063                 lsr.l   #8,d2
1064
1065                 movea.l vc_Wave(a0),a3          ; sample data
1066
1067                 moveq   #79,d5                  ; 80 samples
1068 .sfloop         move.l  d1,d0
1069                 lsr.l   #8,d0
1070                 move.b  (a3,d0.l),d6            ; sample
1071                 move.b  d6,d7
1072                 move.b  (a5,d6.l),d6            ; convert
1073                 move.b  (a5,d7.l),d7            ; convert
1074                 asr.b   #2,d6
1075                 asr.b   #2,d7
1076                 add.b   d6,(a1)+                ; left sample
1077                 add.b   d7,127(a1)              ; right sample
1078
1079                 add.l   d2,d1
1080                 cmp.l   d4,d1
1081                 bhs.b   .4                      ; ran out of data
1082                 dbra    d5,.sfloop
1083                 bra     .done                   ; done with voice
1084
1085 ;------------------------------------------------------------------------
1086
1087                 CNOP    0,16
1088
1089 NextEvent       movea.l MusIndex,a1
1090
1091 .0              move.b  (a1)+,d0                ; get next event
1092                 move.b  d0,d1
1093                 lsr.b   #3,d1
1094                 andi.w  #$E,d1                  ; d1 = event type * 2
1095                 lea     EventTable,a0
1096                 move.w  (a0,d1.w),d1
1097                 jsr     (a0,d1.w)               ; do event
1098                 tst.b   d0
1099                 bpl.b   .0                      ; more events
1100
1101                 moveq   #0,d1                   ; time = 0
1102 .1              move.b  (a1)+,d0                ; get byte
1103                 bpl.b   .2
1104
1105                 andi.w  #$7F,d0                 ; kill sign bit
1106                 or.b    d0,d1                   ; time = time + 7 bits
1107                 lsl.l   #7,d1                   ; * 128
1108                 bra.b   .1                      ; get next 7 bits
1109
1110 .2              or.b    d0,d1                   ; time = time + last 7 bits
1111                 subq.l  #1,d1                   ; delay = time - 1
1112                 bmi.b   .0                      ; (no delay)
1113
1114                 move.l  d1,MusDelay             ; store delay
1115                 move.l  a1,MusIndex             ; store index
1116                 rts
1117
1118 ;------------------------------------------------------------------------
1119
1120 Release         moveq   #15,d1
1121                 and.b   d0,d1                   ; d1 = channel
1122
1123                 lea     Channels,a0
1124                 movea.l (a0,d1.w*4),a0          ; channel record
1125                 movea.l ch_Map(a0),a0           ; channel map
1126
1127                 move.b  (a1)+,d1                ; note #
1128                 moveq   #0,d2
1129                 move.b  (a0,d1.w),d2            ; voice #
1130                 beq.b   .exit                   ; no mapping
1131
1132                 clr.b   (a0,d1.w)               ; clear mapping
1133                 move.l  VoiceAvail,d3
1134                 bclr    d2,d3                   ; voice free for use
1135                 move.l  d3,VoiceAvail
1136
1137                 lea     Voices,a0
1138                 movea.l (a0,d2.w*4),a0          ; voice
1139                 bset    #1,vc_Flags(a0)         ; do release
1140
1141 .exit           rts
1142
1143 ;------------------------------------------------------------------------
1144
1145 PlayNote        moveq   #15,d1
1146                 and.b   d0,d1                   ; d1 = channel
1147
1148                 lea     Channels,a0
1149                 movea.l (a0,d1.w*4),a2          ; channel record
1150                 movea.l ch_Map(a2),a0           ; channel map
1151
1152                 moveq   #-1,d2                  ; no volume change
1153                 move.b  (a1)+,d1                ; note #
1154                 bclr    #7,d1
1155                 beq.b   .getvc                  ; no volume
1156
1157                 moveq   #0,d2
1158                 move.b  (a1)+,d2                ; volume
1159
1160 .getvc          moveq   #0,d3
1161                 move.l  VoiceAvail,d4
1162 .vloop          bset    d3,d4
1163                 beq.b   .foundfree
1164                 addq.b  #1,d3
1165                 cmpi.b  #16,d3
1166                 bne.b   .vloop
1167 ; no free voices
1168                 rts
1169
1170
1171 .foundfree      move.b  d3,(a0,d1.w)            ; voice mapping
1172                 move.l  d4,VoiceAvail
1173
1174                 lea     Voices,a0
1175                 movea.l (a0,d3.w*4),a3          ; voice
1176
1177                 tst.b   d2
1178                 bmi.b   .skip
1179
1180 ; new channel volume
1181
1182                 move.b  d2,ch_Vol(a2)
1183                 moveq   #0,d3
1184                 move.b  ch_Pan(a2),d3
1185                 addq.w  #1,d3           ; sep += 1
1186                 move.w  d2,d4
1187                 muls.w  d3,d4
1188                 muls.w  d3,d4
1189                 clr.w   d4
1190                 swap    d4
1191                 neg.w   d4
1192                 add.w   d2,d4           ; ltvol = vol - vol * (sep+1)^2 / 256^2
1193                 lsl.l   #8,d4
1194                 move.l  d4,ch_LtVol(a2)
1195
1196                 subi.l  #257,d3         ; sep -= 257
1197                 move.w  d2,d4
1198                 muls.w  d3,d4
1199                 muls.w  d3,d4
1200                 clr.w   d4
1201                 swap    d4
1202                 neg.w   d4
1203                 add.w   d2,d4           ; rtvol = vol - vol * (sep-257)^2 / 256^2
1204                 lsl.l   #8,d4
1205                 move.l  d4,ch_RtVol(a2)
1206
1207 .skip           move.l  ch_LtVol(a2),vc_LtVol(a3)
1208                 move.l  ch_RtVol(a2),vc_RtVol(a3)
1209
1210                 moveq   #15,d2
1211                 and.b   d0,d2
1212                 cmpi.b  #15,d2
1213                 beq.b   .percussion
1214
1215                 move.l  ch_Instr(a2),a4         ; instrument record
1216
1217                 lea     NoteTable,a0
1218                 moveq   #72,d2                  ; one octave above middle c
1219                 sub.b   in_Base(a4),d2
1220                 add.b   d1,d2
1221                 move.l  (a0,d2.w*4),vc_Step(a3) ; step value for note
1222
1223                 clr.l   vc_Index(a3)
1224
1225                 move.l  a2,vc_Channel(a3)       ; back link (for pitch wheel)
1226
1227                 move.l  in_Wave(a4),vc_Wave(a3)
1228                 move.l  in_Loop(a4),vc_Loop(a3)
1229                 move.l  in_Length(a4),vc_Length(a3)
1230                 move.b  in_Flags(a4),vc_Flags(a3)
1231 .exit           rts
1232
1233 ; for the percussion channel, the note played sets the percussion instrument
1234
1235 .percussion     move.l  #65536,vc_Step(a3)      ; sample rate always 1.0
1236
1237                 clr.l   vc_Index(a3)
1238
1239                 move.l  a2,vc_Channel(a3)       ; back link
1240
1241                 addi.b  #100,d1                 ; percussion instruments
1242
1243                 lea     Instruments,a0
1244                 move.l  (a0,d1.w*4),a0          ; instrument record
1245                 move.l  in_Wave(a0),vc_Wave(a3)
1246                 move.l  in_Loop(a0),vc_Loop(a3)
1247                 move.l  in_Length(a0),vc_Length(a3)
1248                 move.b  in_Flags(a0),vc_Flags(a3)
1249                 rts
1250
1251 ;------------------------------------------------------------------------
1252
1253 Pitch           moveq   #15,d1
1254                 and.b   d0,d1                   ; d1 = channel
1255
1256                 lea     Channels,a0
1257                 movea.l (a0,d1.w*4),a2          ; channel record
1258
1259                 moveq   #0,d1
1260                 move.b  (a1)+,d1                ; pitch wheel setting
1261                 lea     PitchTable,a0
1262                 move.l  (a0,d1.w*4),ch_Pitch(a2)
1263                 rts
1264
1265 ;------------------------------------------------------------------------
1266
1267 Tempo           addq.l  #1,a1                   ; skip value
1268                 rts
1269
1270 ;------------------------------------------------------------------------
1271
1272 ChangeCtrl      moveq   #15,d1
1273                 and.b   d0,d1                   ; d1 = channel
1274
1275                 lea     Channels,a0
1276                 movea.l (a0,d1.w*4),a2          ; channel
1277
1278                 move.b  (a1)+,d1                ; get controller
1279
1280                 moveq   #0,d2
1281                 move.b  (a1)+,d2                ; value
1282
1283                 tst.b   d1
1284                 bne.b   .1
1285
1286 ; set channel instrument
1287
1288                 lea     Instruments,a0
1289                 move.l  (a0,d2.w*4),ch_Instr(a2)
1290                 bne.b   .0
1291                 move.l  #QuietInst,ch_Instr(a2)
1292 .0              rts
1293
1294 .1              cmpi.b  #3,d1                   ; volume?
1295                 bne.b   .2
1296
1297 ; set channel volume
1298
1299                 move.b  d2,ch_Vol(a2)
1300                 moveq   #0,d3
1301                 move.b  ch_Pan(a2),d3
1302                 addq.w  #1,d3           ; sep += 1
1303                 move.w  d2,d4
1304                 muls.w  d3,d4
1305                 muls.w  d3,d4
1306                 clr.w   d4
1307                 swap    d4
1308                 neg.w   d4
1309                 add.w   d2,d4           ; ltvol = vol - vol * (sep+1)^2 / 256^2
1310                 lsl.l   #8,d4
1311                 move.l  d4,ch_LtVol(a2)
1312
1313                 subi.w  #257,d3         ; sep -= 257
1314                 move.w  d2,d4
1315                 muls.w  d3,d4
1316                 muls.w  d3,d4
1317                 clr.w   d4
1318                 swap    d4
1319                 neg.w   d4
1320                 add.w   d2,d4           ; rtvol = vol - vol * (sep-257)^2 / 256^2
1321                 lsl.l   #8,d4
1322                 move.l  d4,ch_RtVol(a2)
1323                 rts
1324
1325 .2              cmpi.b  #4,d1                   ; pan?
1326                 bne.b   .exit
1327
1328 ; set channel pan
1329
1330                 add.b   d2,d2           ; pan -> sep
1331                 move.b  d2,ch_Pan(a2)
1332                 move.b  ch_Vol(a2),d2
1333                 moveq   #0,d3
1334                 move.b  ch_Pan(a2),d3
1335                 addq.w  #1,d3           ; sep += 1
1336                 move.w  d2,d4
1337                 muls.w  d3,d4
1338                 muls.w  d3,d4
1339                 clr.w   d4
1340                 swap    d4
1341                 neg.w   d4
1342                 add.w   d2,d4           ; ltvol = vol - vol * (sep+1)^2 / 256^2
1343                 lsl.l   #8,d4
1344                 move.l  d4,ch_LtVol(a2)
1345
1346                 subi.w  #257,d3         ; sep -= 257
1347                 move.w  d2,d4
1348                 muls.w  d3,d4
1349                 muls.w  d3,d4
1350                 clr.w   d4
1351                 swap    d4
1352                 neg.w   d4
1353                 add.w   d2,d4           ; rtvol = vol - vol * (sep-257)^2 / 256^2
1354                 lsl.l   #8,d4
1355                 move.l  d4,ch_RtVol(a2)
1356 .exit           rts
1357
1358 ;------------------------------------------------------------------------
1359
1360 NoEvent         rts
1361
1362 ;------------------------------------------------------------------------
1363
1364 EndScore        tst.b   mus_looping             ; loop?
1365                 bne     .loop
1366
1367                 move.l  #QuietInst,Channel0
1368                 move.l  #QuietInst,Channel1
1369                 move.l  #QuietInst,Channel2
1370                 move.l  #QuietInst,Channel3
1371                 move.l  #QuietInst,Channel4
1372                 move.l  #QuietInst,Channel5
1373                 move.l  #QuietInst,Channel6
1374                 move.l  #QuietInst,Channel7
1375                 move.l  #QuietInst,Channel8
1376                 move.l  #QuietInst,Channel9
1377                 move.l  #QuietInst,Channel10
1378                 move.l  #QuietInst,Channel11
1379                 move.l  #QuietInst,Channel12
1380                 move.l  #QuietInst,Channel13
1381                 move.l  #QuietInst,Channel14
1382                 move.l  #QuietInst,Channel15
1383
1384                 clr.b   Voice0+vc_Flags         ; disable voices
1385                 clr.b   Voice1+vc_Flags
1386                 clr.b   Voice2+vc_Flags
1387                 clr.b   Voice3+vc_Flags
1388                 clr.b   Voice4+vc_Flags
1389                 clr.b   Voice5+vc_Flags
1390                 clr.b   Voice6+vc_Flags
1391                 clr.b   Voice7+vc_Flags
1392                 clr.b   Voice8+vc_Flags
1393                 clr.b   Voice9+vc_Flags
1394                 clr.b   Voice10+vc_Flags
1395                 clr.b   Voice11+vc_Flags
1396                 clr.b   Voice12+vc_Flags
1397                 clr.b   Voice13+vc_Flags
1398                 clr.b   Voice14+vc_Flags
1399                 clr.b   Voice15+vc_Flags
1400
1401                 clr.l   MusDelay                ; MusDelay = 0
1402                 clr.l   VoiceAvail              ; all voices available
1403                 clr.b   mus_playing
1404                 addq.l  #4,a7                   ; pop NextEvent
1405                 rts
1406
1407 .loop           movea.l MusPtr,a1
1408                 moveq   #0,d1
1409                 move.w  6(a1),d1                ; score start
1410                 ror.w   #8,d1
1411                 adda.l  d1,a1                   ; a1 = start
1412                 rts
1413
1414 ;------------------------------------------------------------------------
1415                 cnop    0,4
1416
1417 EventTable      dc.w    Release-EventTable
1418                 dc.w    PlayNote-EventTable
1419                 dc.w    Pitch-EventTable
1420                 dc.w    Tempo-EventTable
1421                 dc.w    ChangeCtrl-EventTable
1422                 dc.w    NoEvent-EventTable
1423                 dc.w    EndScore-EventTable
1424                 dc.w    NoEvent-EventTable
1425
1426 ;------------------------------------------------------------------------
1427 ;--------------------------------------------------------------------
1428
1429                 cnop    0,4
1430
1431 CreatePool      movea.l _ExecBase,a1
1432                 cmpi.w  #39,LIB_VERSION(a1)
1433                 blt.b   .nopools                ; change to bra for debugging
1434
1435                 move.l  a6,-(sp)
1436                 movea.l a1,a6
1437                 CALLSYS CreatePool
1438                 movea.l (sp)+,a6
1439                 rts
1440
1441 .nopools        movem.l d2-d7/a2-a6,-(sp)
1442                 move.l  d0,d4                   ; memory attributes
1443                 move.l  d1,d3                   ; amount to allocate when low
1444                 move.l  d2,d5                   ; size of when not to use pool
1445
1446                 exg.l   d0,d1                   ; swap flags and size
1447                 movea.l a1,a6
1448                 CALLSYS AllocMem                ; get first block
1449                 movea.l d0,a0
1450                 tst.l   d0
1451                 beq.b   .exit                   ; no memory!
1452
1453                 movem.l d3-d5,(a0)              ; puddleSize, Flags,Threshold
1454                 clr.l   12(a0)                  ; no next block
1455                 lea     24(a0),a1               ; first free location here
1456                 move.l  a1,16(a0)
1457                 subi.l  #24,d3                  ; for header info
1458                 move.l  d3,20(a0)               ; amount free in this block
1459
1460 .exit           movem.l (sp)+,d2-d7/a2-a6
1461                 rts
1462
1463                 cnop    0,4
1464
1465 DeletePool      movea.l _ExecBase,a1
1466                 cmpi.w  #39,LIB_VERSION(a1)
1467                 blt.b   .nopools                ; change to bra for debugging
1468
1469                 move.l  a6,-(sp)
1470                 movea.l a1,a6
1471                 CALLSYS DeletePool
1472                 movea.l (sp)+,a6
1473                 rts
1474
1475 .nopools        movem.l d2-d7/a2-a6,-(sp)
1476                 move.l  a0,d2                   ; first block
1477                 beq.b   .exit                   ; safety check
1478
1479                 movea.l a1,a6
1480
1481 .loop           movea.l d2,a1                   ; pointer to block
1482                 move.l  (a1),d0                 ; size of block
1483                 move.l  12(a1),d2               ; next block
1484                 CALLSYS FreeMem
1485                 tst.l   d2
1486                 bne.b   .loop
1487
1488 .exit           movem.l (sp)+,d2-d7/a2-a6
1489                 rts
1490
1491                 cnop    0,4
1492
1493 AllocPooled     movea.l _ExecBase,a1
1494                 cmpi.w  #39,LIB_VERSION(a1)
1495                 blt.b   .nopools                ; change to bra for debugging
1496
1497                 move.l  a6,-(sp)
1498                 movea.l a1,a6
1499                 CALLSYS AllocPooled
1500                 movea.l (sp)+,a6
1501                 rts
1502
1503 .nopools        movem.l d2-d7/a2-a6,-(sp)
1504                 move.l  a0,d2
1505                 beq.b   .exit                   ; safety check
1506
1507                 addq.l  #3,d0
1508                 andi.b  #$FC,d0                 ; long align size
1509
1510                 movea.l a1,a6
1511
1512                 cmp.l   8(a0),d0                ; check threshold
1513                 blt.b   .chkpuddles             ; allocate from puddles
1514
1515                 addi.l  #24,d0                  ; for header
1516                 move.l  d0,d3                   ; save size
1517                 move.l  4(a0),d1                ; mem attrs
1518                 CALLSYS AllocMem
1519                 movea.l d0,a0
1520                 tst.l   d0
1521                 beq.b   .exit                   ; no memory
1522
1523                 move.l  d3,(a0)                 ; size of block
1524                 clr.l   20(a0)                  ; no free space in here
1525
1526                 movea.l d2,a1                   ; pool header
1527                 move.l  12(a1),d1
1528                 move.l  a0,12(a1)               ; splice in block
1529                 move.l  d1,12(a0)               ; relink next block
1530                 lea     24(a0),a0               ; skip over header
1531
1532 .exit           move.l  a0,d0
1533                 movem.l (sp)+,d2-d7/a2-a6
1534                 rts
1535
1536                 cnop    0,4
1537
1538 .chkpuddles     cmp.l   20(a0),d0               ; check free space
1539                 blt.b   .gotspace
1540
1541                 movea.l 12(a0),a0               ; next block
1542                 move.l  a0,d1
1543                 bne.b   .chkpuddles
1544
1545 ; not enough free space in existing puddles, create another
1546
1547                 move.l  d0,d6                   ; save size
1548
1549                 movea.l d2,a0                   ; pool header
1550                 movem.l (a0),d3-d5
1551                 movem.l (a0),d0-d1
1552                 CALLSYS AllocMem                ; get block
1553                 movea.l d0,a0
1554                 tst.l   d0
1555                 beq.b   .out                    ; no memory!
1556
1557                 movea.l d2,a1                   ; pool header
1558                 movem.l d3-d5,(a0)              ; puddleSize, Flags,Threshold
1559                 move.l  12(a1),12(a0)           ; next block
1560                 move.l  a0,12(a1)               ; splice in block
1561                 lea     24(a0),a1               ; first free location here
1562                 move.l  a1,16(a0)
1563                 subi.l  #24,d3                  ; for header info
1564                 move.l  d3,20(a0)               ; amount free in this block
1565
1566                 move.l  d6,d0                   ; restore size
1567
1568 .gotspace       sub.l   d0,20(a0)               ; sub from amount free
1569                 bmi.b   .err                    ; threshold >= puddlesize!
1570
1571                 move.l  16(a0),a1               ; free space
1572                 add.l   d0,16(a0)               ; next free space
1573
1574                 movea.l a1,a0
1575                 bra.b   .out
1576
1577 .err            add.l   d0,20(a0)               ; restore free space
1578                 moveq   #0,d0
1579                 suba.l  a0,a0                   ; no memory
1580
1581 .out            move.l  a0,d0
1582                 movem.l (sp)+,d2-d7/a2-a6
1583                 rts
1584
1585 ;------------------------------------------------------------------------
1586 ;------------------------------------------------------------------------
1587
1588                 cnop    0,4
1589
1590 MUSMemPtr       dc.l    0
1591 MUSMemSize      dc.l    0
1592
1593 SegList         dc.l    0
1594 _ExecBase       dc.l    0
1595 _DOSBase        dc.l    0
1596 LookupMem       dc.l    0
1597 vol_lookup      dc.l    0
1598
1599 ;------------------------------------------------------------------------
1600
1601 period          dc.w    325     ; NTSC 11025 KHz
1602 sfx_volume      dc.w    64
1603 mus_volume      dc.w    64
1604 mus_playing     dc.b    0
1605 mus_looping     dc.b    0
1606
1607 ;------------------------------------------------------------------------
1608
1609                 cnop    0,4
1610
1611 AudioPort       dc.l    0
1612 AudioIO         dc.l    0
1613
1614 AInt0           dc.l    0,0
1615                 dc.b    NT_INTERRUPT,0          ; LN_TYPE, LN_PRI
1616                 dc.l    AIntName                ; LN_NAME
1617                 dc.l    0                       ; IS_DATA
1618                 dc.l    AudioINT0               ; IS_CODE
1619
1620 MusPtr          dc.l    0
1621 MusIndex        dc.l    0
1622 MusDelay        dc.l    0
1623 OldAInt0        dc.l    0
1624
1625 AudioAlloc      dc.b    $0F                     ; Amiga channels to allocate
1626
1627 GfxName         dc.b    'graphics.library',0
1628 DOSName         dc.b    'dos.library',0
1629 AudioName       dc.b    'audio.device',0
1630 AIntName        dc.b    'DOOM Sound Server',0
1631
1632 ;--------------------------------------
1633
1634                 CNOP    0,4
1635
1636 ; bit set if voice is in use (0-15=music voices,16-31=sfx voices)
1637
1638 VoiceAvail      dc.l    0
1639
1640 chip_buffer     dc.l    chipBuffer
1641 chip_offset     dc.l    512
1642
1643 ;--------------------------------------------------------------------
1644
1645                 CNOP    0,4
1646
1647 NoteTable       dc.l    65536/64,69433/64,73562/64,77936/64,82570/64,87480/64,92682/64,98193/64,104032/64,110218/64,116772/64,123715/64
1648                 dc.l    65536/32,69433/32,73562/32,77936/32,82570/32,87480/32,92682/32,98193/32,104032/32,110218/32,116772/32,123715/32
1649                 dc.l    65536/16,69433/16,73562/16,77936/16,82570/16,87480/16,92682/16,98193/16,104032/16,110218/16,116772/16,123715/16
1650                 dc.l    65536/8,69433/8,73562/8,77936/8,82570/8,87480/8,92682/8,98193/8,104032/8,110218/8,116772/8,123715/8
1651                 dc.l    65536/4,69433/4,73562/4,77936/4,82570/4,87480/4,92682/4,98193/4,104032/4,110218/4,116772/4,123715/4
1652                 dc.l    65536/2,69433/2,73562/2,77936/2,82570/2,87480/2,92682/2,98193/2,104032/2,110218/2,116772/2,123715/2
1653                 dc.l    65536,69433,73562,77936,82570,87480,92682,98193,104032,110218,116772,123715
1654                 dc.l    65536*2,69433*2,73562*2,77936*2,82570*2,87480*2,92682*2,98193*2,104032*2,110218*2,116772*2,123715*2
1655                 dc.l    65536*4,69433*4,73562*4,77936*4,82570*4,87480*4,92682*4,98193*4,104032*4,110218*4,116772*4,123715*4
1656                 dc.l    65536*8,69433*8,73562*8,77936*8,82570*8,87480*8,92682*8,98193*8,104032*8,110218*8,116772*8,123715*8
1657                 dc.l    65536*16,69433*16,73562*16,77936*16,82570*16,87480*16,92682*16,98193*16
1658
1659 ;------------------------------------------------------------------------
1660
1661 PitchTable:
1662
1663 pitch_ix        SET     128
1664
1665                 REPT    128
1666                 dc.l    -3678*pitch_ix/64
1667 pitch_ix        SET     pitch_ix-1
1668                 ENDR
1669
1670                 REPT    128
1671                 dc.l    3897*pitch_ix/64
1672 pitch_ix        SET     pitch_ix+1
1673                 ENDR
1674
1675 ;------------------------------------------------------------------------
1676
1677                 STRUCTURE MusChannel,0
1678                 APTR    ch_Instr
1679                 APTR    ch_Map
1680                 ULONG   ch_Pitch
1681                 APTR    ch_LtVol
1682                 APTR    ch_RtVol
1683                 BYTE    ch_Vol
1684                 BYTE    ch_Pan
1685
1686
1687                 CNOP    0,4
1688
1689 Channels        dc.l    Channel0,Channel1,Channel2,Channel3
1690                 dc.l    Channel4,Channel5,Channel6,Channel7
1691                 dc.l    Channel8,Channel9,Channel10,Channel11
1692                 dc.l    Channel12,Channel13,Channel14,Channel15
1693
1694
1695                 CNOP    0,4
1696
1697 Channel0        dc.l    0               ; instrument
1698                 dc.l    Channel0Map     ; note to voice map
1699                 dc.l    0               ; pitch wheel setting
1700                 dc.l    0               ; left volume table
1701                 dc.l    0               ; right volume table
1702                 dc.b    0               ; volume
1703                 dc.b    0               ; pan setting
1704
1705                 CNOP    0,4
1706
1707 Channel1        dc.l    0               ; instrument
1708                 dc.l    Channel1Map     ; note to voice map
1709                 dc.l    0               ; pitch wheel setting
1710                 dc.l    0               ; left volume table
1711                 dc.l    0               ; right volume table
1712                 dc.b    0               ; volume
1713                 dc.b    0               ; pan setting
1714
1715                 CNOP    0,4
1716
1717 Channel2        dc.l    0               ; instrument
1718                 dc.l    Channel2Map     ; note to voice map
1719                 dc.l    0               ; pitch wheel setting
1720                 dc.l    0               ; left volume table
1721                 dc.l    0               ; right volume table
1722                 dc.b    0               ; volume
1723                 dc.b    0               ; pan setting
1724
1725                 CNOP    0,4
1726
1727 Channel3        dc.l    0               ; instrument
1728                 dc.l    Channel3Map     ; note to voice map
1729                 dc.l    0               ; pitch wheel setting
1730                 dc.l    0               ; left volume table
1731                 dc.l    0               ; right volume table
1732                 dc.b    0               ; volume
1733                 dc.b    0               ; pan setting
1734
1735                 CNOP    0,4
1736
1737 Channel4        dc.l    0               ; instrument
1738                 dc.l    Channel4Map     ; note to voice map
1739                 dc.l    0               ; pitch wheel setting
1740                 dc.l    0               ; left volume table
1741                 dc.l    0               ; right volume table
1742                 dc.b    0               ; volume
1743                 dc.b    0               ; pan setting
1744
1745                 CNOP    0,4
1746
1747 Channel5        dc.l    0               ; instrument
1748                 dc.l    Channel5Map     ; note to voice map
1749                 dc.l    0               ; pitch wheel setting
1750                 dc.l    0               ; left volume table
1751                 dc.l    0               ; right volume table
1752                 dc.b    0               ; volume
1753                 dc.b    0               ; pan setting
1754
1755                 CNOP    0,4
1756
1757 Channel6        dc.l    0               ; instrument
1758                 dc.l    Channel6Map     ; note to voice map
1759                 dc.l    0               ; pitch wheel setting
1760                 dc.l    0               ; left volume table
1761                 dc.l    0               ; right volume table
1762                 dc.b    0               ; volume
1763                 dc.b    0               ; pan setting
1764
1765                 CNOP    0,4
1766
1767 Channel7        dc.l    0               ; instrument
1768                 dc.l    Channel7Map     ; note to voice map
1769                 dc.l    0               ; pitch wheel setting
1770                 dc.l    0               ; left volume table
1771                 dc.l    0               ; right volume table
1772                 dc.b    0               ; volume
1773                 dc.b    0               ; pan setting
1774
1775                 CNOP    0,4
1776
1777 Channel8        dc.l    0               ; instrument
1778                 dc.l    Channel8Map     ; note to voice map
1779                 dc.l    0               ; pitch wheel setting
1780                 dc.l    0               ; left volume table
1781                 dc.l    0               ; right volume table
1782                 dc.b    0               ; volume
1783                 dc.b    0               ; pan setting
1784
1785                 CNOP    0,4
1786
1787 Channel9        dc.l    0               ; instrument
1788                 dc.l    Channel9Map     ; note to voice map
1789                 dc.l    0               ; pitch wheel setting
1790                 dc.l    0               ; left volume table
1791                 dc.l    0               ; right volume table
1792                 dc.b    0               ; volume
1793                 dc.b    0               ; pan setting
1794
1795                 CNOP    0,4
1796
1797 Channel10       dc.l    0               ; instrument
1798                 dc.l    Channel10Map    ; note to voice map
1799                 dc.l    0               ; pitch wheel setting
1800                 dc.l    0               ; left volume table
1801                 dc.l    0               ; right volume table
1802                 dc.b    0               ; volume
1803                 dc.b    0               ; pan setting
1804
1805                 CNOP    0,4
1806
1807 Channel11       dc.l    0               ; instrument
1808                 dc.l    Channel11Map    ; note to voice map
1809                 dc.l    0               ; pitch wheel setting
1810                 dc.l    0               ; left volume table
1811                 dc.l    0               ; right volume table
1812                 dc.b    0               ; volume
1813                 dc.b    0               ; pan setting
1814
1815                 CNOP    0,4
1816
1817 Channel12       dc.l    0               ; instrument
1818                 dc.l    Channel12Map    ; note to voice map
1819                 dc.l    0               ; pitch wheel setting
1820                 dc.l    0               ; left volume table
1821                 dc.l    0               ; right volume table
1822                 dc.b    0               ; volume
1823                 dc.b    0               ; pan setting
1824
1825                 CNOP    0,4
1826
1827 Channel13       dc.l    0               ; instrument
1828                 dc.l    Channel13Map    ; note to voice map
1829                 dc.l    0               ; pitch wheel setting
1830                 dc.l    0               ; left volume table
1831                 dc.l    0               ; right volume table
1832                 dc.b    0               ; volume
1833                 dc.b    0               ; pan setting
1834
1835                 CNOP    0,4
1836
1837 Channel14       dc.l    0               ; instrument
1838                 dc.l    Channel14Map    ; note to voice map
1839                 dc.l    0               ; pitch wheel setting
1840                 dc.l    0               ; left volume table
1841                 dc.l    0               ; right volume table
1842                 dc.b    0               ; volume
1843                 dc.b    0               ; pan setting
1844
1845                 CNOP    0,4
1846
1847 Channel15       dc.l    0               ; instrument
1848                 dc.l    Channel15Map    ; note to voice map
1849                 dc.l    0               ; pitch wheel setting
1850                 dc.l    0               ; left volume table
1851                 dc.l    0               ; right volume table
1852                 dc.b    0               ; volume
1853                 dc.b    0               ; pan setting
1854
1855
1856                 CNOP    0,4
1857
1858 Channel0Map     dcb.b   128,0
1859 Channel1Map     dcb.b   128,0
1860 Channel2Map     dcb.b   128,0
1861 Channel3Map     dcb.b   128,0
1862 Channel4Map     dcb.b   128,0
1863 Channel5Map     dcb.b   128,0
1864 Channel6Map     dcb.b   128,0
1865 Channel7Map     dcb.b   128,0
1866 Channel8Map     dcb.b   128,0
1867 Channel9Map     dcb.b   128,0
1868 Channel10Map    dcb.b   128,0
1869 Channel11Map    dcb.b   128,0
1870 Channel12Map    dcb.b   128,0
1871 Channel13Map    dcb.b   128,0
1872 Channel14Map    dcb.b   128,0
1873 Channel15Map    dcb.b   128,0
1874
1875 ;--------------------------------------
1876
1877                 STRUCTURE AudioVoice,0
1878                 APTR    vc_Next
1879                 APTR    vc_Channel
1880                 APTR    vc_Wave
1881                 ULONG   vc_Index
1882                 ULONG   vc_Step
1883                 ULONG   vc_Loop
1884                 ULONG   vc_Length
1885                 APTR    vc_LtVol
1886                 APTR    vc_RtVol
1887                 BYTE    vc_Flags        ; b7 = SFX, b1 = RLS, b0 = EN
1888
1889                 CNOP    0,4
1890
1891 Voices          dc.l    Voice0,Voice1,Voice2,Voice3
1892                 dc.l    Voice4,Voice5,Voice6,Voice7
1893                 dc.l    Voice8,Voice9,Voice10,Voice11
1894                 dc.l    Voice12,Voice13,Voice14,Voice15
1895
1896 sfxVoiceTbl     dc.l    Voice16,Voice17,Voice18,Voice19
1897                 dc.l    Voice20,Voice21,Voice22,Voice23
1898                 dc.l    Voice24,Voice25,Voice26,Voice27
1899                 dc.l    Voice28,Voice29,Voice30,Voice31
1900
1901 ; Music Voices
1902
1903                 CNOP    0,4
1904
1905 Voice0          dc.l    Voice1
1906                 dc.l    0               ; channel back-link
1907                 dc.l    0               ; instrument wave data
1908                 dc.l    0               ; sample index
1909                 dc.l    0               ; sample rate
1910                 dc.l    0               ; instrument loop point
1911                 dc.l    0               ; instrument data length
1912                 dc.l    0               ; left volume table
1913                 dc.l    0               ; right volume table
1914                 dc.b    0               ; voice flags
1915
1916                 CNOP    0,4
1917
1918 Voice1          dc.l    Voice2
1919                 dc.l    0               ; channel back-link
1920                 dc.l    0               ; instrument wave data
1921                 dc.l    0               ; sample index
1922                 dc.l    0               ; sample rate
1923                 dc.l    0               ; instrument loop point
1924                 dc.l    0               ; instrument data length
1925                 dc.l    0               ; left volume table
1926                 dc.l    0               ; right volume table
1927                 dc.b    0               ; voice flags
1928
1929                 CNOP    0,4
1930
1931 Voice2          dc.l    Voice3
1932                 dc.l    0               ; channel back-link
1933                 dc.l    0               ; instrument wave data
1934                 dc.l    0               ; sample index
1935                 dc.l    0               ; sample rate
1936                 dc.l    0               ; instrument loop point
1937                 dc.l    0               ; instrument data length
1938                 dc.l    0               ; left volume table
1939                 dc.l    0               ; right volume table
1940                 dc.b    0               ; voice flags
1941
1942                 CNOP    0,4
1943
1944 Voice3          dc.l    Voice4
1945                 dc.l    0               ; channel back-link
1946                 dc.l    0               ; instrument wave data
1947                 dc.l    0               ; sample index
1948                 dc.l    0               ; sample rate
1949                 dc.l    0               ; instrument loop point
1950                 dc.l    0               ; instrument data length
1951                 dc.l    0               ; left volume table
1952                 dc.l    0               ; right volume table
1953                 dc.b    0               ; voice flags
1954
1955                 CNOP    0,4
1956
1957 Voice4          dc.l    Voice5
1958                 dc.l    0               ; channel back-link
1959                 dc.l    0               ; instrument wave data
1960                 dc.l    0               ; sample index
1961                 dc.l    0               ; sample rate
1962                 dc.l    0               ; instrument loop point
1963                 dc.l    0               ; instrument data length
1964                 dc.l    0               ; left volume table
1965                 dc.l    0               ; right volume table
1966                 dc.b    0               ; voice flags
1967
1968                 CNOP    0,4
1969
1970 Voice5          dc.l    Voice6
1971                 dc.l    0               ; channel back-link
1972                 dc.l    0               ; instrument wave data
1973                 dc.l    0               ; sample index
1974                 dc.l    0               ; sample rate
1975                 dc.l    0               ; instrument loop point
1976                 dc.l    0               ; instrument data length
1977                 dc.l    0               ; left volume table
1978                 dc.l    0               ; right volume table
1979                 dc.b    0               ; voice flags
1980
1981                 CNOP    0,4
1982
1983 Voice6          dc.l    Voice7
1984                 dc.l    0               ; channel back-link
1985                 dc.l    0               ; instrument wave data
1986                 dc.l    0               ; sample index
1987                 dc.l    0               ; sample rate
1988                 dc.l    0               ; instrument loop point
1989                 dc.l    0               ; instrument data length
1990                 dc.l    0               ; left volume table
1991                 dc.l    0               ; right volume table
1992                 dc.b    0               ; voice flags
1993
1994                 CNOP    0,4
1995
1996 Voice7          dc.l    Voice8
1997                 dc.l    0               ; channel back-link
1998                 dc.l    0               ; instrument wave data
1999                 dc.l    0               ; sample index
2000                 dc.l    0               ; sample rate
2001                 dc.l    0               ; instrument loop point
2002                 dc.l    0               ; instrument data length
2003                 dc.l    0               ; left volume table
2004                 dc.l    0               ; right volume table
2005                 dc.b    0               ; voice flags
2006
2007                 CNOP    0,4
2008
2009 Voice8          dc.l    Voice9
2010                 dc.l    0               ; channel back-link
2011                 dc.l    0               ; instrument wave data
2012                 dc.l    0               ; sample index
2013                 dc.l    0               ; sample rate
2014                 dc.l    0               ; instrument loop point
2015                 dc.l    0               ; instrument data length
2016                 dc.l    0               ; left volume table
2017                 dc.l    0               ; right volume table
2018                 dc.b    0               ; voice flags
2019
2020                 CNOP    0,4
2021
2022 Voice9          dc.l    Voice10
2023                 dc.l    0               ; channel back-link
2024                 dc.l    0               ; instrument wave data
2025                 dc.l    0               ; sample index
2026                 dc.l    0               ; sample rate
2027                 dc.l    0               ; instrument loop point
2028                 dc.l    0               ; instrument data length
2029                 dc.l    0               ; left volume table
2030                 dc.l    0               ; right volume table
2031                 dc.b    0               ; voice flags
2032
2033                 CNOP    0,4
2034
2035 Voice10         dc.l    Voice11
2036                 dc.l    0               ; channel back-link
2037                 dc.l    0               ; instrument wave data
2038                 dc.l    0               ; sample index
2039                 dc.l    0               ; sample rate
2040                 dc.l    0               ; instrument loop point
2041                 dc.l    0               ; instrument data length
2042                 dc.l    0               ; left volume table
2043                 dc.l    0               ; right volume table
2044                 dc.b    0               ; voice flags
2045
2046                 CNOP    0,4
2047
2048 Voice11         dc.l    Voice12
2049                 dc.l    0               ; channel back-link
2050                 dc.l    0               ; instrument wave data
2051                 dc.l    0               ; sample index
2052                 dc.l    0               ; sample rate
2053                 dc.l    0               ; instrument loop point
2054                 dc.l    0               ; instrument data length
2055                 dc.l    0               ; left volume table
2056                 dc.l    0               ; right volume table
2057                 dc.b    0               ; voice flags
2058
2059                 CNOP    0,4
2060
2061 Voice12         dc.l    Voice13
2062                 dc.l    0               ; channel back-link
2063                 dc.l    0               ; instrument wave data
2064                 dc.l    0               ; sample index
2065                 dc.l    0               ; sample rate
2066                 dc.l    0               ; instrument loop point
2067                 dc.l    0               ; instrument data length
2068                 dc.l    0               ; left volume table
2069                 dc.l    0               ; right volume table
2070                 dc.b    0               ; voice flags
2071
2072                 CNOP    0,4
2073
2074 Voice13         dc.l    Voice14
2075                 dc.l    0               ; channel back-link
2076                 dc.l    0               ; instrument wave data
2077                 dc.l    0               ; sample index
2078                 dc.l    0               ; sample rate
2079                 dc.l    0               ; instrument loop point
2080                 dc.l    0               ; instrument data length
2081                 dc.l    0               ; left volume table
2082                 dc.l    0               ; right volume table
2083                 dc.b    0               ; voice flags
2084
2085                 CNOP    0,4
2086
2087 Voice14         dc.l    Voice15
2088                 dc.l    0               ; channel back-link
2089                 dc.l    0               ; instrument wave data
2090                 dc.l    0               ; sample index
2091                 dc.l    0               ; sample rate
2092                 dc.l    0               ; instrument loop point
2093                 dc.l    0               ; instrument data length
2094                 dc.l    0               ; left volume table
2095                 dc.l    0               ; right volume table
2096                 dc.b    0               ; voice flags
2097
2098                 CNOP    0,4
2099
2100 Voice15         dc.l    0
2101                 dc.l    0               ; channel back-link
2102                 dc.l    0               ; instrument wave data
2103                 dc.l    0               ; sample index
2104                 dc.l    0               ; sample rate
2105                 dc.l    0               ; instrument loop point
2106                 dc.l    0               ; instrument data length
2107                 dc.l    0               ; left volume table
2108                 dc.l    0               ; right volume table
2109                 dc.b    0               ; voice flags
2110
2111 ; Sound Effect Voices
2112
2113                 CNOP    0,4
2114
2115 Voice16         dc.l    Voice17
2116                 dc.l    0               ; channel back-link
2117                 dc.l    0               ; instrument wave data
2118                 dc.l    0               ; sample index
2119                 dc.l    0               ; sample rate
2120                 dc.l    0               ; instrument loop point
2121                 dc.l    0               ; instrument data length
2122                 dc.l    0               ; left volume table
2123                 dc.l    0               ; right volume table
2124                 dc.b    0               ; voice flags
2125
2126                 CNOP    0,4
2127
2128 Voice17         dc.l    Voice18
2129                 dc.l    0               ; channel back-link
2130                 dc.l    0               ; instrument wave data
2131                 dc.l    0               ; sample index
2132                 dc.l    0               ; sample rate
2133                 dc.l    0               ; instrument loop point
2134                 dc.l    0               ; instrument data length
2135                 dc.l    0               ; left volume table
2136                 dc.l    0               ; right volume table
2137                 dc.b    0               ; voice flags
2138
2139                 CNOP    0,4
2140
2141 Voice18         dc.l    Voice19
2142                 dc.l    0               ; channel back-link
2143                 dc.l    0               ; instrument wave data
2144                 dc.l    0               ; sample index
2145                 dc.l    0               ; sample rate
2146                 dc.l    0               ; instrument loop point
2147                 dc.l    0               ; instrument data length
2148                 dc.l    0               ; left volume table
2149                 dc.l    0               ; right volume table
2150                 dc.b    0               ; voice flags
2151
2152                 CNOP    0,4
2153
2154 Voice19         dc.l    Voice20
2155                 dc.l    0               ; channel back-link
2156                 dc.l    0               ; instrument wave data
2157                 dc.l    0               ; sample index
2158                 dc.l    0               ; sample rate
2159                 dc.l    0               ; instrument loop point
2160                 dc.l    0               ; instrument data length
2161                 dc.l    0               ; left volume table
2162                 dc.l    0               ; right volume table
2163                 dc.b    0               ; voice flags
2164
2165                 CNOP    0,4
2166
2167 Voice20         dc.l    Voice21
2168                 dc.l    0               ; channel back-link
2169                 dc.l    0               ; instrument wave data
2170                 dc.l    0               ; sample index
2171                 dc.l    0               ; sample rate
2172                 dc.l    0               ; instrument loop point
2173                 dc.l    0               ; instrument data length
2174                 dc.l    0               ; left volume table
2175                 dc.l    0               ; right volume table
2176                 dc.b    0               ; voice flags
2177
2178                 CNOP    0,4
2179
2180 Voice21         dc.l    Voice22
2181                 dc.l    0               ; channel back-link
2182                 dc.l    0               ; instrument wave data
2183                 dc.l    0               ; sample index
2184                 dc.l    0               ; sample rate
2185                 dc.l    0               ; instrument loop point
2186                 dc.l    0               ; instrument data length
2187                 dc.l    0               ; left volume table
2188                 dc.l    0               ; right volume table
2189                 dc.b    0               ; voice flags
2190
2191                 CNOP    0,4
2192
2193 Voice22         dc.l    Voice23
2194                 dc.l    0               ; channel back-link
2195                 dc.l    0               ; instrument wave data
2196                 dc.l    0               ; sample index
2197                 dc.l    0               ; sample rate
2198                 dc.l    0               ; instrument loop point
2199                 dc.l    0               ; instrument data length
2200                 dc.l    0               ; left volume table
2201                 dc.l    0               ; right volume table
2202                 dc.b    0               ; voice flags
2203
2204                 CNOP    0,4
2205
2206 Voice23         dc.l    Voice24
2207                 dc.l    0               ; channel back-link
2208                 dc.l    0               ; instrument wave data
2209                 dc.l    0               ; sample index
2210                 dc.l    0               ; sample rate
2211                 dc.l    0               ; instrument loop point
2212                 dc.l    0               ; instrument data length
2213                 dc.l    0               ; left volume table
2214                 dc.l    0               ; right volume table
2215                 dc.b    0               ; voice flags
2216
2217                 CNOP    0,4
2218
2219 Voice24         dc.l    Voice25
2220                 dc.l    0               ; channel back-link
2221                 dc.l    0               ; instrument wave data
2222                 dc.l    0               ; sample index
2223                 dc.l    0               ; sample rate
2224                 dc.l    0               ; instrument loop point
2225                 dc.l    0               ; instrument data length
2226                 dc.l    0               ; left volume table
2227                 dc.l    0               ; right volume table
2228                 dc.b    0               ; voice flags
2229
2230                 CNOP    0,4
2231
2232 Voice25         dc.l    Voice26
2233                 dc.l    0               ; channel back-link
2234                 dc.l    0               ; instrument wave data
2235                 dc.l    0               ; sample index
2236                 dc.l    0               ; sample rate
2237                 dc.l    0               ; instrument loop point
2238                 dc.l    0               ; instrument data length
2239                 dc.l    0               ; left volume table
2240                 dc.l    0               ; right volume table
2241                 dc.b    0               ; voice flags
2242
2243                 CNOP    0,4
2244
2245 Voice26         dc.l    Voice27
2246                 dc.l    0               ; channel back-link
2247                 dc.l    0               ; instrument wave data
2248                 dc.l    0               ; sample index
2249                 dc.l    0               ; sample rate
2250                 dc.l    0               ; instrument loop point
2251                 dc.l    0               ; instrument data length
2252                 dc.l    0               ; left volume table
2253                 dc.l    0               ; right volume table
2254                 dc.b    0               ; voice flags
2255
2256                 CNOP    0,4
2257
2258 Voice27         dc.l    Voice28
2259                 dc.l    0               ; channel back-link
2260                 dc.l    0               ; instrument wave data
2261                 dc.l    0               ; sample index
2262                 dc.l    0               ; sample rate
2263                 dc.l    0               ; instrument loop point
2264                 dc.l    0               ; instrument data length
2265                 dc.l    0               ; left volume table
2266                 dc.l    0               ; right volume table
2267                 dc.b    0               ; voice flags
2268
2269                 CNOP    0,4
2270
2271 Voice28         dc.l    Voice29
2272                 dc.l    0               ; channel back-link
2273                 dc.l    0               ; instrument wave data
2274                 dc.l    0               ; sample index
2275                 dc.l    0               ; sample rate
2276                 dc.l    0               ; instrument loop point
2277                 dc.l    0               ; instrument data length
2278                 dc.l    0               ; left volume table
2279                 dc.l    0               ; right volume table
2280                 dc.b    0               ; voice flags
2281
2282                 CNOP    0,4
2283
2284 Voice29         dc.l    Voice30
2285                 dc.l    0               ; channel back-link
2286                 dc.l    0               ; instrument wave data
2287                 dc.l    0               ; sample index
2288                 dc.l    0               ; sample rate
2289                 dc.l    0               ; instrument loop point
2290                 dc.l    0               ; instrument data length
2291                 dc.l    0               ; left volume table
2292                 dc.l    0               ; right volume table
2293                 dc.b    0               ; voice flags
2294
2295                 CNOP    0,4
2296
2297 Voice30         dc.l    Voice31
2298                 dc.l    0               ; channel back-link
2299                 dc.l    0               ; instrument wave data
2300                 dc.l    0               ; sample index
2301                 dc.l    0               ; sample rate
2302                 dc.l    0               ; instrument loop point
2303                 dc.l    0               ; instrument data length
2304                 dc.l    0               ; left volume table
2305                 dc.l    0               ; right volume table
2306                 dc.b    0               ; voice flags
2307
2308                 CNOP    0,4
2309
2310 Voice31         dc.l    0
2311                 dc.l    0               ; channel back-link
2312                 dc.l    0               ; instrument wave data
2313                 dc.l    0               ; sample index
2314                 dc.l    0               ; sample rate
2315                 dc.l    0               ; instrument loop point
2316                 dc.l    0               ; instrument data length
2317                 dc.l    0               ; left volume table
2318                 dc.l    0               ; right volume table
2319                 dc.b    0               ; voice flags
2320
2321 ;--------------------------------------
2322
2323                 STRUCTURE InstrumentRec,0
2324                 APTR    in_Wave
2325                 ULONG   in_Loop
2326                 ULONG   in_Length
2327                 BYTE    in_Flags
2328                 BYTE    in_Base
2329
2330
2331                 CNOP    0,4
2332
2333 Instruments     dcb.l   256,0
2334
2335                 CNOP    0,4
2336
2337 QuietInst       dc.l    0
2338                 dc.l    0
2339                 dc.l    0
2340                 dc.b    0
2341                 dc.b    0
2342
2343
2344                 CNOP    0,4
2345
2346 InstrHandle     dc.l    0
2347 InstrFile       dc.l    InstrName
2348 InstrPool       dc.l    0
2349
2350 InstrName       dc.b    'MIDI_Instruments',0
2351
2352                 CNOP    0,4
2353
2354 validInstr      dc.b    %11111111       ; (00-07) Piano
2355                 dc.b    %11111111       ; (08-0F) Chrom Perc
2356                 dc.b    %11111111       ; (10-17) Organ
2357                 dc.b    %11111111       ; (18-1F) Guitar
2358                 dc.b    %11111111       ; (20-27) Bass
2359                 dc.b    %11111111       ; (28-2F) Strings
2360                 dc.b    %11111111       ; (30-37) Ensemble
2361                 dc.b    %11111111       ; (38-3F) Brass
2362                 dc.b    %11111111       ; (40-47) Reed
2363                 dc.b    %11111111       ; (48-4F) Pipe
2364                 dc.b    %11111111       ; (50-57) Synth Lead
2365                 dc.b    %11111111       ; (58-5F) Synth Pad
2366                 dc.b    %11111111       ; (60-67) Synth Effects
2367                 dc.b    %11111111       ; (68-6F) Ethnic
2368                 dc.b    %11111111       ; (70-77) Percussive
2369                 dc.b    %11111111       ; (78-7F) SFX
2370                 dc.b    %00000001       ; (80-87) invalid,Drum
2371                 dc.b    %11111111       ; (88-8F) Drums/Clap/Hi-Hat
2372                 dc.b    %11111111       ; (90-97) Hi-Hats/Toms/Cymb1
2373                 dc.b    %11111111       ; (98-9F) Cymbals/Bells/Slap
2374                 dc.b    %11111111       ; (A0-A7) Bongos/Congas/Timb
2375                 dc.b    %11111111       ; (A8-AF) Agogo/Whistles/Gui
2376                 dc.b    %11111100       ; (B0-B7) Claves/Block/Trian
2377                 dc.b    %00000000       ; (B8-BF) invalid
2378                 dc.b    %00000000       ; (C0-C7)
2379                 dc.b    %00000000       ; (C8-CF)
2380                 dc.b    %00000000       ; (D0-D7)
2381                 dc.b    %00000000       ; (D8-DF)
2382                 dc.b    %00000000       ; (E0-E7)
2383                 dc.b    %00000000       ; (E8-EF)
2384                 dc.b    %00000000       ; (F0-F7)
2385                 dc.b    %00000000       ; (F8-FF)
2386
2387 ;--------------------------------------------------------------------
2388                 section PlayMusChip,data_c
2389
2390 chipBuffer      dcb.b   1024,0
2391
2392 ClearBuf        dcb.b   160,0
2393
2394 ;------------------------------------------------------------------------
2395                 section PlayMusBSS,bss
2396
2397 tempAudio       ds.b    256
2398
2399 ;------------------------------------------------------------------------
2400
2401                 end