- 饭 SoundFX  모 --
------ : Ticklish Jim -----
-------- ZX 몠: Panda ------|

(C)1997-99, .㣫 (Ticklish Jim/BIS/
Rush)

       
          
             

    ⠪,  㧯...  諨 
६,      த   ⢮
易⥫묨   ﬨ   
SPECCY    ६ .  直, 
 ᢮  易⥫쭮 砥  
. ⢥,  AY'. - 
        ন   LPT   COVOX,
SOUNDRIVE,   GENERAL  SOUND...    -
몠 ,  - 㦥,    
⮬  -  ᥩ ணࠬ  몠쭮
ᮯ஢    AY 뢠  襩
  㤨.  祬, 몠 몮,
    뢠 筮. 
    ઠ    
  ,  ਬ,   ⮫쪮
-  ⨢ ( , ᫨
     ⪫).      
-⠪     ...
砥,           ⢠
設,      ⢮
蠣.               ᯮ
ॢ  横      DIZZY,  
᪢       ⢥   ஡
㪨...   .  饬, 㤠
    -  . , ।  
  ணࠬ,   㪮
䥪  뢮  ࠫ쭮  몮,
 ⠪ ਬ஢ 쭮 .
    ,    -
 ᠭ ᢮ ᮡ⢥ 誨. 
   ⥭      ⨭    ᫥
⠭樨,   ⮣, 㢥७,  -
訫/   ஡ 魥 ,
 -⠪...
      ६  ࠡ  "CSC: Deja Vu" 
।      ⠫      
몠쭮  ᮯ஢  .   
ॠ樨  㡫  ⢨ AY-모 
CSC-1  (,   㦥   設
  128  .  祬 몠 ࠥ  
,   ⠪         ६  .)  뫮
᭮  襭     .
१  ஥  ६  ⠫  ᭮,  
   모      筮.   Panda
७쪮  ﯠ    ⮪ 䥪⮢
...    ⮯ਫ.   
   ᮢ      䥪.  
⪨  稢 㤠祩 - 訯,
ਯ      祣.    ࠡ 
ᯥ樠쭮     ᠭ    媠쭮
몮  祣    .  㤨
祬: Panda  ,   ⮫쪮, 
       ⮣  祫.
    ,    䥪 
⫮    ।  ६.    
,  -      '97 ࠡ
  ன  ४⨫.   ⮬ 뫨
   ᮡ⢥        .
-     ।  ᥭ  1997    
뢠   ⮯,   
Dismaster'    Squizer' (  
  SMASH'楢).      ६  
砫  뢠  த ࠡ 
CSC  (  ⮬     ணࠬ
,       ),
⮬       ६   ᯮ짮
砥      ਫ    Dismaster'
  ᯥ樠쭮 player'  모 
ᯥ䥪⮢. ਫ, 堫... 諮
  ...  Dis',  ⭮,  ᥬ
  (,  祬,  ⮦ , ⠪  
㤮㦨    쬮  Squizer',
 Dis'),    Mighty Hacker' 
    㬠  ⪫.   ,
    뫮      ,    
諮  ᠬ    
஡.
       ਢ   ਬ   让
ணࠬ,                ᭠
뢠騬,               ,
ﬨ.  㬠,  ࠧ   
祬  ᮡ  㤠  ⠢. , 
   -  ணࠬ ⠭  ,
  㪮  䥪 뢮  
'B',      몠   媠쭠.  ,
筮,   ᫥ ࠭祭, 
⮣   ਤ   ⢮   ⮩
砭   ᯥ䥪      ᬨ   
,  ஥   .
        -᢮,  ⠪  
ᬮ   ᠬ.   ,  ன  
짮,    ࠧࠫ    ࠡ⮩
AY'  ᫥:  ZX-  #5'95  
   "ZX-SPECTRUM    TR-DOS  
짮⥫   ணࠬ⮢" .祭
 ..

       ᠬ   砫  室  㧭
⢮    (  ᯥ樠, ⮬
᪠,       ନ  
㯮ॡ ࠢ쭮, , 
 )  ᯥ䥪.  ⮣ 筮 
       ᫥饩      ਬ⨢
ணࠬ    ᨪ:

 10 RANDOMIZE USR 49152:  LET A=65533:
    LET B=0: REM 㪮 䥪  ᠭ
     ProTracker'  㦥   
      ந뢠⥫  
    49152
 20 RANDOMIZE USR 49158: LET B=B+1:
    OUT  A,9:  PRINT AT 0,0;"஬
     B=";IN A;" "';" ⥪饩
    =";B;" ": REM  ⮩ ப -
     ଠ   ஬   
      ;    砭 砭
      0   ࠭  設 
    ;  ᫮    
    LEN,  ⮩    㤥  .
 30 PAUSE  0: IF INKEY$  <> "q" AND
    INKEY$ <> "Q" THEN GOTO  20:   REM
       ப   室  
    蠣 ᯮ ᯥ䥪.

᫨   (᫮ )  室
 楤ࠬ  ᥬ. 㦠 䠩
FX   (      㧨,   ᫨  
    뫠  饭 ᫥ ࠡ
ᨪ-ணࠬ)     㦭  䥪⮬  
᫥⥫쭮   믮塞   ணࠬ
MAKE     PACKER.  ࢠ  室  
ᮧ       ᨢ    
ॣ஢  㧯,     - 
让   ⨬樨     ᨢ
(⨬ , ..  먣
     ).
    ᫥  ⮣  ࠭塞  ⮢  
    ,      㪠뢠
६  SOUND  (40000),    LEN*4
(㯠,   ,     ᪠  ,
  LEN*3).
                     室
।⢥       樨.   
⠭      뢠, 㬠,
   '      .    ।
樠樥   ந뢠⥫  室
      訥  . 
⮣    ॡ  TO_PLAYER 
, ࠢ _㧪_모+1351
(  ந뢠⥫  PT2.1).  
97 .
    -        㤨:   "祬
  㡨 ࠡ 楫 
  ந뢠⥫, ᫨ ⠬  ⠪ ?!"
  ⢥  ⢥    ।
஡             
ந뢠⥫ - 蠥  ࠢ.
    ,  ⨬ ࠧࠫ.  
᫮        ணࠬ,    ⢥饩   
ந뢠  ᯥ䥪.    ᤥ ⠪,
⮡    뤠    AY  ⨨
  FIRE   ⮭ (, ⮡
  ࠡ  ணࠬ    
६  UP, DOWN, LEFT, RIGHT  ⮬
   ⮭).   筮,       
ਤ  楤 롮 㦭
㪠    ..    ..    砥
⮣    ॡ, ⮬ ⠥, 
   SFX,   
  ⨨  ।      
뢠    ,   ஧
᫥  .    ⢥, 
   SFX        ᫥  
樨,   ..  ࠧ    뢠.  
饬,    ᬮ    ਨ,    ..
ᮡ⢥  ᠭ ࠡ  ணࠬ
諮  .

(C)1998, T.J. 

MUS             ORG 49152
;               .INCBIN MUSIC
                ORG 40000
;               .INCBIN fx2 
                ;PACK LENGT=136 bytes

EFFECT          ORG 49152
;               .INCBIN FX
                ;PT-module WITH SFX

FXBUF           EQU 32768

                ORG 25000
                JR BEGIN  
                ;PLAY MUSIC & SFX

                CALL MAKE
                ;MAKE SOUND FX
;WORK WITH FILE AS LOADED AT
;"EFFECT"-ADRESS
                JP PACKER
                ;PACK SOUND FX

BEGIN           DI
                LD HL,TO_PLAYER
                LD DE,MUS+1351
                LD BC,97
                LDIR
;᫨   ந뢠⥫ 
                LD A,#25
                LD I,A
                IM 2
                LD A,195
                LD HL,IMMER
                LD (23670),A
                LD (23671),HL
;稫 뢠 2 த
                CALL MUS
;樠஢ ந뢠⥫
                EI
                HALT
M1              XOR A
                IN A,(31)
                CP 15
                JR Z,EXIT
;᫨  4  ⮭,
; ३  楤 -
;襭 ࠡ ணࠬ
                CP 16
                JR NZ,M1
;᫨    ,
; ३  砫 横
                LD A,1
                LD (SND_PR),A
;ࠫ  SFX
K1              CALL NASTR
; ࠬ   SFX
;( ᨢ    SFX)
                LD A,#3A
                LD (K1),A
;஢  맮 楤 
;ࠬ஢  ⮩ 楫,
;⮡ SFX ࠫ  , ० 祬
;ਤ  । ᫥饣  SFX
;(筮,    믮 ஢ 
;魥,, ,   砥
;  ࠥ ஫, ⮬  -
;ࠨ ॢ饭 CALL NASTR 
;LD A,(NASTR))  諨  -
;砫 横.
                JR M1

;楤 ⠭ ࠡ
;-ணࠬ.
;।  襭  ⠭
;뢠 1 த, ⪫-
;砥 ந뢠⥫  모,
;    SFX   
;᭮ ணࠬ.

EXIT            DI
                LD A,#3F
                LD I,A
                IM 1
                CALL MUS        ;MUSIC OFF
                LD BC,65533
                LD A,9
                OUT (C),A
                XOR A
                LD B,#BF  ;CHANNEL 'B' OFF
                OUT (C),A
                EI
                RET

;楤 ࠡ⪨ 뢠. ,
; 祣  ॡ

IMMER           DI
                PUSH HL
                PUSH DE
                PUSH BC
                PUSH AF
                EX AF,AF'
                PUSH AF
                EXX
                PUSH HL
                PUSH DE
                PUSH BC
                EXX
                PUSH IX
                PUSH IY
                CALL MUS+6
;맮 ந뢠⥫ SFX
                CALL PLR
                POP IY
                POP IX
                EXX
                POP BC
                POP DE
                POP HL
                EXX
                POP AF
                EX AF,AF'
                POP AF
                POP BC
                POP DE
                POP HL
                EI
                RET

SOUND           DEFW 40000
SND_PR          DEFB 0
LEN             DEFB 8  ;LENGT OF SFX (/4)

;PLAYER FOR SOUND FXS
;WORK ONLY WITH CHANNEL 'B'!!!

;ந뢠⥫  SFX.

PLR             LD A,(SND_PR)
                OR A
                RET Z
;, ᫨   SND_PR 室
;0, ..  SFX 
;࠭
ADR_SND         LD HL,40000
; HL  砫 SFX
;(⠭ / NASTR)
                LD DE,#BFFF
                LD A,80
;   SFX (⠪ ⠭ /
;NASTR)
X3              EX AF,AF'
; ᫥ 뢮   ॣ
;ᮯ 2,3,6,7  9,
;祬   3  9 ᯠ뢠
;  
                LD C,253
                LD B,E
                LD A,2  
                ;SELECT CHANNEL 'B'
                OUT (C),A
                LD A,(HL)
                LD B,D
                OUT (C),A
                INC HL
                LD A,6
                LD B,E
                OUT (C),A
                LD A,(HL)
                LD B,D
                OUT (C),A
                INC HL
                LD A,7
                LD B,E
                OUT (C),A
                IN A,(C) 
                ;OLD CONSEQUENCE
                OR (HL)  
                ;ADD NEW & OLD
;  ப 㦭 뫨  ⮣,
;⮡  SFX  訫
;⠫ , ᯮ㥬
; 뢮 ᭮ 
                LD B,D
                OUT (C),A
                INC HL
                LD A,3       ;SEL. CH. 'B'
                LD B,E
                OUT (C),A
                LD A,(HL)
                RRA
                RRA
                RRA
                RRA
                AND #0F
;祭  R3 ࠭﫮  襬 
;㡠
                LD B,D
                OUT (C),A
                LD A,9      
                ;VOLUME OF CH 'B'
                LD B,E
                OUT (C),A
                LD A,(HL)
                AND #0F 
;WITHOUT 4th BIT! ()
;祭  R9 ࠭﫮
; 襬 㡠
                LD B,D
                OUT (C),A
                INC HL
                EX AF,AF'
                DEC A
                LD (SND_PR),A
;    SFX  ஧
;, ६  㤥
;.
                JR NZ,HLP     
                ;ONLY FOR INTERRUPTS
;४㥬 祭    SFX
; ᫥饩 ,
; 㤥   ᫥饬 
;뢠
                LD A,#CD
                LD (K1),A
; 砭 砭 SFX 室
;⠭ 맮 楤 롮 -
;ࠬ஢  ᫥饣 SFX (CALL NASTR)
                RET
NASTR           LD A,(LEN)
                LD HL,(SOUND)
HLP             LD (X3-1),A
                LD (ADR_SND+1),HL
                RET
;  TABL ᮤন ᯨ᮪ ॣ஢
;AY,  ᯮ  ணࠬ.
;..    䥪⮢     ⢥
;⮫쪮  ,   室  
;ॣ 2,3 (⮣   㡮  ⮭
;ᮮ⢥⢥), 6 (㬠), 7 (ᬥ⥫)
; 9 (஬  ).
;  ᯮ짮 ॣ 11,12  13
;(   ⨯ 饩)
; 楫  ,   ,
;⮬  ⠢ 㤠 । 
;ணࠬ  ᢮   (, 
;뢠 ࠪ⨪,   ᮧ  .
;ᯥ䥪⮢    饩  
;),   ⮨ 뢠,  
;  ਬ ࠡ 
;㪮.
; ⠡ ᯮ ⮫쪮 
;楤ࠬ MAKE  PACK.

TABL            DEFB 2,6,7,3,9
                DEFB 255

;ணࠬ ᮧ ᨢ .

MAKE            CALL EFFECT
;樠஢ ந뢠⥫
                LD IX,FXBUF
; IX ᨬ  
                LD A,(LEN)
                LD B,A    
;  - ⢮ 
M11             PUSH BC
                PUSH IX
                CALL EFFECT+6
;நࠫ 
                POP IX
                LD HL,TABL
M3              LD BC,65533
                LD A,(HL)
                CP 255
                JR Z,M2
                OUT (C),A
                IN A,(C)
;⠫   㦭 ॣ
                LD (IX+0),A
;᫨  
                INC HL
                INC IX
                JR M3
M2              POP BC
                DJNZ M11    ;塞
                CALL EFFECT
;⪫稫 ந뢠⥫
                RET

;ணࠬ 㯠 ᨢ 

PACKER          LD IX,FXBUF  
; IX  
                LD HL,(SOUND) 
; HL ,   㤥 -
; 㯠 
                LD A,(LEN)
                LD B,A 
;  - ⢮ 
L1              LD A,(IX+0)
                LD (HL),A      ;R2
                INC HL
                LD A,(IX+1)
                LD (HL),A      ;R6
                INC HL
                LD A,(IX+2)
                LD (HL),A      ;R7
                INC HL
                LD A,(IX+3)
                AND #0F
                RLA
                RLA
                RLA
                RLA
                LD C,A
                LD A,(IX+4)
                AND #0F
                OR C
                LD (HL),A      ;R3+R9
                INC HL
; 5      稫 4.
;  ⮢  ࠢ LEN*4.
;᫨   ᯮ짮  ,   
;ਤ  ⪠  
;ᮢ饭  R3    R9 (..  9 ॣ
;室 㤥 뢠  4  ,
;  㤥 ' R3  R13 - 
; 
;ᯮ ⮫쪮 訥 4 .)
                LD DE,5
                ADD IX,DE
                DJNZ L1 ;塞 横
                RET

;CHANGES FOR ProTracker2.1 PLAYER
;ADRES=LOAD_ADR+1351 
;(for PT2.1 by Golden Disk)
;     =LOAD_ADR+1857 
;(for PT2.4 by GD & Fantom Family)
;LENGT=97 bytes
;CHANNEL 'B' NOT USED!!!
 IT'S ONLY FOR SOUND FXS!!!

;   ந뢠⥫

TO_PLAYER       LD B,D
                OUT (C),A       ;R13
                LD B,E
                OUTD
                DEC A
                LD B,D
                OUT (C),A       ;R12
                LD B,E
                OUTD
                DEC A
                LD B,D
                OUT (C),A       ;R11
                LD B,E
                OUTD
                DEC A
                LD B,D
                OUT (C),A       ;R10
                ; (VOLUME 'C')
                LD B,E
                OUTD
                DEC A           ;R9
                ; (VOLUME 'B')!!!
                DEC HL
;।騥  ப ࠭,
;    
;樨   뤠  
; .
                DEC A
                LD B,D
                OUT (C),A       ;R8
                ; (VOLUME 'A')
                LD B,E
                OUTD
                DEC A
                LD B,D
                OUT (C),A       ;R7 
                ; (MIXER!!!)
                LD B,E
;      ⠪,  ⮡
; ᮡ⢥ ࠬ 
;   諨      ⥫
;(塞  1  4, ..
;ࠧ蠥 뤠 ⮭  㬠 
; )
                LD A,(HL)
                AND #2D         ;!!!
                ; (FOR 'B')
                LD (HL),A
                OUTD
                LD A,6
                LD B,D
                OUT (C),A       ;R6
                LD B,E
                OUTD
                DEC A
                LD B,D
                OUT (C),A       ;R5
                LD B,E
                OUTD
                DEC A
                LD B,D
                OUT (C),A       ;R4
                LD B,E
                OUTD
;४㥬  ⠪,
;⮡    1.
;  室    ⮣,
;⮡  뤠 , ।-
;७  ᯮ塞  樥,
;  ॣ ⮣  -
; ⮭  .
                SUB 3
                DEC HL          ;R3 
                ; (FOR 'B'!!!)
                DEC HL          ;R2
                LD B,D
                OUT (C),A       ;R1
                LD B,E
                OUTD
                DEC A
                LD B,D
                OUT (C),A       ;R0
                LD B,E
                OUTD
                DEFS 11
;᫥ 窠 室  
;   97 .

   ᨨ । PT3.31
 by Golden Disk  
  LOAD_ADR+1825:

                AND 45
                ;⪫砥  "B"
                OUT (C),A
                INC L
                LD B,D
                OUT (C),L
                LD B,E
                OUTI
                INC L
                DEFS 3

    㬠,   ࠧ  㤥  ᫮.
  ⬥,   ᯮᮡ ᮢ饭
모    ⮢     
⥩訬, .. ᯮ ࠤ樮
   楤ઠ 뤠 㪠
    .       ᫮      -
।⢥  ᮧ  㪠.  筥,
ᮧ-    ࠧ    -    ⮬ 
।,    ⭮⥫쭮  ᫮ ⮬
  .  , ⮫쪮  ,
    ᯮ.    ,       -
祫  ணࠬ,      祭
ࠤ,     襣... ,
  -    soft ,   
砫.    ᭮,     ,
    ᮡ⢥  
   䥪⮢ (ਬ, ⠪ ᤥ
ॡ    BITMUNCHERS    ᢮  誥
KLIDEMINER),          
⠭묨  (  MARIO  BROS  
OMEGA  HACKERS).    ,   ࠧ
㯠    -  
楫 㧭.
      砥,  ⥫  ᪠,
..        ⠪      
, 饭  ⥬.  ,
   ,  ᥬ  䨣.
      ਠ  ᢮ ६ ⨣
    ,     .
 ,   ᥩ, 
  ,  - ⠥  ਬ
 ࠪ⨪e.

 