home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 1 / Supremacy-1.iso / DEMOS / U-V / ULTCHPDK.ZIP / SOURCES.ZIP / ASM68000.ZIP / CZI_MUS.S < prev    next >
Text File  |  1987-04-22  |  10KB  |  397 lines
  1. ********************
  2. *AYOROS FROM IMPACT*
  3. ********************
  4.  
  5. ********************************************************************************
  6. *MUSIC BY COUNT ZERO, PLAYER BY COUNT ZERO, EXECUTEUR BY AYOROS
  7. *        NUMBER OF MUSIC COMPOSED BY COUNT ZERO, PRESENT ON THIS DISK
  8. *        COUNT7.CZI
  9. *        COUNT8.CZI
  10. *        COUNT9.CZI
  11. *        COUNT10.CZI
  12. *          COUNT11.CZI
  13. *          COUNT12.CZI    *MOVEQ #1,#2,#3 AWESOME MUSIC
  14. *          COUNT13.CZI     *MOVEQ #1,#2,#3 AWESOME MUSIC
  15. *          COUNT14.CZI    *AWESOME MUSIC
  16. *          COUNT15.CZI
  17. *          COUNT16.CZI
  18. ********************************************************************************   
  19.     
  20.         SECTION    TEXT
  21.         
  22.         OPT    O+
  23.     
  24.         CLR.L    -(SP)
  25.         MOVE.W    #$20,-(SP)    *superviseur
  26.         TRAP    #1
  27.         ADDQ.L    #6,SP
  28.     
  29.         MOVE.L    D0,-(SP)
  30.         
  31.         MOVE.W    #1,-(SP)    *ecran moyenne resolution
  32.         MOVE.L    #$78000,-(SP)   *adresse ecran $78000 pour 520 ST
  33.         MOVE.L    #$78000,-(SP)   *adresse ecran $F8000 pour 1040 ST
  34.         MOVE.W    #5,-(SP)
  35.         TRAP    #14
  36.         ADDQ.L    #6,SP
  37.  
  38.         DC.W    $A00A        *cache souris
  39.         
  40.         PEA    TEXT(PC)
  41.         MOVE.W    #9,-(SP)    *affiche txt
  42.         TRAP    #1
  43.         ADDQ.L    #6,SP
  44.  
  45.         LEA    VU_METRE(PC),A2
  46.         MOVE.L    A2,$4D6.W    *affiche vumetre
  47.         
  48.  
  49.         LEA    STOP_MOUSE(PC),A4
  50.         ADDQ.L    #3,A4
  51.         MOVE.B    $484.W,(A4)     *stop clavier bip et souris
  52.         MOVE.B    #2,$484.W
  53.         
  54.         LEA    DATA(PC),A0    *adresse des data_packe
  55.         LEA    MUSIC(PC),A1    *adresse music pour depack
  56.         BSR    depack        *depack music
  57.         
  58.         MOVEQ    #1,D0        *appel musique
  59.         BSR    MUSIC
  60.  
  61.         LEA    MUSIC(PC),A0
  62.         ADDQ.L    #6,A0
  63.         MOVE.L    A0,$4D2.W        *exec musique
  64.         
  65. TOUCHE_ESPACE    
  66.         CMP.B    #$39,$FFFFFC02.W    *attend appuie sur espace
  67.         BNE.S    TOUCHE_ESPACE
  68.         
  69.         CLR.L    $4D2.W            *stop musique
  70.         CLR.L    $4D6.W            *stop vumetre
  71.         
  72.         MOVE.L    #$08080000,$FFFF8800.W    *stop son
  73.         MOVE.L    #$09090000,$FFFF8800.W
  74.         MOVE.L    #$0A0A0000,$FFFF8800.W
  75.  
  76. STOP_MOUSE    MOVE.B    #$12,$484.W        *remet souris
  77.         DC.W    $A009
  78.     
  79.         CLR.L    -(SP)            *stop programme
  80.         TRAP    #1
  81.  
  82. VU_METRE
  83.               LEA     $78000+0+160*160,A0
  84.               MOVEA.L A0,A1 
  85.               MOVEA.L A0,A2 
  86.               MOVE.W  #3,D0 
  87. VU_0        CLR.W   (A0)
  88.               CLR.W   160(A0) 
  89.               CLR.W   320(A0) 
  90.               CLR.W   480(A0) 
  91.               CLR.W   640(A0) 
  92.               CLR.W   800(A0) 
  93.               CLR.W   32(A0)
  94.               CLR.W   192(A0) 
  95.               CLR.W   352(A0) 
  96.               CLR.W   512(A0) 
  97.               CLR.W   672(A0) 
  98.              CLR.W   832(A0) 
  99.               CLR.W   64(A0)
  100.               CLR.W   224(A0) 
  101.               CLR.W   384(A0) 
  102.               CLR.W   544(A0) 
  103.               CLR.W   704(A0) 
  104.              CLR.W   864(A0) 
  105.               CLR.W   96(A0)
  106.               CLR.W   256(A0) 
  107.               CLR.W   416(A0) 
  108.               CLR.W   576(A0) 
  109.               CLR.W   736(A0) 
  110.               CLR.W   896(A0)
  111.               ADDQ.W  #8,A0 
  112.               DBF     D0,VU_0
  113.               MOVE.B  #8,$FFFF8800.W
  114.               MOVE.B  $FFFF8800.W,D0
  115.               ANDI.W  #$F,D0
  116. VU_1        SUBQ.W  #1,(A1) 
  117.               SUBQ.W  #1,160(A1)
  118.               SUBQ.W  #1,320(A1)
  119.               SUBQ.W  #1,480(A1)
  120.               SUBQ.W  #1,640(A1)
  121.               SUBQ.W  #1,800(A1)
  122.               ADDQ.W  #8,A1 
  123.               DBF     D0,VU_1
  124.               ADDA.L  #$5A0,A2
  125.               MOVEA.L A2,A1 
  126.               MOVEA.L A2,A0 
  127.               MOVE.W  #3,D0 
  128. VU_2:        CLR.W   (A0)
  129.               CLR.W   160(A0) 
  130.               CLR.W   320(A0) 
  131.              CLR.W   480(A0) 
  132.               CLR.W   640(A0) 
  133.              CLR.W   800(A0) 
  134.               CLR.W   32(A0)
  135.               CLR.W   192(A0) 
  136.               CLR.W   352(A0) 
  137.               CLR.W   512(A0) 
  138.               CLR.W   672(A0) 
  139.               CLR.W   832(A0) 
  140.               CLR.W   64(A0)
  141.               CLR.W   224(A0) 
  142.               CLR.W   384(A0) 
  143.               CLR.W   544(A0) 
  144.               CLR.W   704(A0) 
  145.               CLR.W   864(A0) 
  146.               CLR.W   96(A0)
  147.               CLR.W   256(A0) 
  148.               CLR.W   416(A0) 
  149.               CLR.W   576(A0) 
  150.               CLR.W   736(A0) 
  151.               CLR.W   896(A0) 
  152.               ADDQ.W  #8,A0 
  153.               DBF     D0,VU_2
  154.               MOVE.B  #9,$FFFF8800.W
  155.               MOVE.B  $FFFF8800.W,D0
  156.               ANDI.W  #$F,D0
  157. VU_3:        SUBQ.W  #1,(A1) 
  158.               SUBQ.W  #1,160(A1)
  159.               SUBQ.W  #1,320(A1)
  160.               SUBQ.W  #1,480(A1)
  161.               SUBQ.W  #1,640(A1)
  162.               SUBQ.W  #1,800(A1)
  163.               ADDQ.W  #8,A1 
  164.               DBF     D0,VU_3
  165.               ADDA.L  #$5A0,A2
  166.               MOVEA.L A2,A1 
  167.               MOVEA.L A2,A0 
  168.               MOVE.W  #3,D0 
  169. VU_4:        CLR.W   (A0)
  170.               CLR.W   160(A0) 
  171.               CLR.W   320(A0) 
  172.               CLR.W   480(A0) 
  173.               CLR.W   640(A0) 
  174.               CLR.W   800(A0) 
  175.               CLR.W   32(A0)
  176.               CLR.W   192(A0) 
  177.               CLR.W   352(A0) 
  178.               CLR.W   512(A0) 
  179.               CLR.W   672(A0) 
  180.               CLR.W   832(A0) 
  181.               CLR.W   64(A0)
  182.               CLR.W   224(A0) 
  183.               CLR.W   384(A0) 
  184.               CLR.W   544(A0) 
  185.               CLR.W   704(A0) 
  186.               CLR.W   864(A0) 
  187.               CLR.W   96(A0)
  188.               CLR.W   256(A0) 
  189.               CLR.W   416(A0) 
  190.               CLR.W   576(A0) 
  191.               CLR.W   736(A0) 
  192.               CLR.W   896(A0) 
  193.               ADDQ.W  #8,A0 
  194.               DBF     D0,VU_4
  195.               MOVE.B     #$A,$FFFF8800.W 
  196.               MOVE.B     $FFFF8800.W,D0
  197.               ANDI.W  #$F,D0
  198. VU_5:        SUBQ.W  #1,(A1) 
  199.         SUBQ.W  #1,160(A1)
  200.               SUBQ.W  #1,320(A1)
  201.               SUBQ.W  #1,480(A1)
  202.               SUBQ.W  #1,640(A1)
  203.               SUBQ.W  #1,800(A1)
  204.               ADDQ.W  #8,A1 
  205.               DBF     D0,VU_5
  206.          RTS
  207. ***************************************************************************
  208.  
  209. PIC_ALGO:    equ    1
  210.  
  211. depack:    movem.l    d0-a6,-(a7)
  212.      cmp.l    #"ATOM",(a0)+
  213.     bne    no_crunched
  214.     move.l    a1,a5
  215.     add.l    (a0)+,a5
  216.     ifne    PIC_ALGO
  217.     pea    (a5)
  218.     endc
  219.     move.l    (a0)+,d0    
  220.     lea    0(a0,d0.l),a6
  221.     move.b    -(a6),d7
  222.     bra    make_jnk
  223. tablus:    lea    tablus_table(pc),a4
  224.     moveq    #1,d6
  225.     bsr.s    get_bit2
  226.     bra.s    tablus2
  227. decrunch:    moveq    #6,d6
  228. take_lenght:    add.b    d7,d7
  229.     beq.s    .empty1
  230. .cont_copy:    dbcc    d6,take_lenght
  231.     bcs.s    .next_cod
  232.     moveq    #6,d5
  233.     sub    d6,d5
  234.     bra.s    .do_copy
  235. .next_cod:    moveq    #3,d6
  236.     bsr.s    get_bit2
  237.     beq.s    .next_cod1
  238.     addq    #6,d5
  239.     bra.s    .do_copy
  240. .next_cod1:    moveq    #7,d6
  241.     bsr.s    get_bit2
  242.     beq.s    .next_cod2
  243.     add    #15+6,d5
  244.     bra.s    .do_copy
  245. .empty1:    move.b    -(a6),d7
  246.     addx.b    d7,d7
  247.     bra.s    .cont_copy
  248. .next_cod2:    moveq    #13,d6
  249.     bsr.s    get_bit2
  250.     add    #255+15+6,d5
  251. .do_copy:    move    d5,-(a7)
  252.     bne.s    bigger
  253.     lea    decrun_table2(pc),a4
  254.     moveq    #2,d6
  255.     bsr.s    get_bit2
  256.     cmp    #5,d5
  257.     blt.s    contus
  258.     addq    #2,a7
  259.     subq    #6,d5
  260.     bgt.s    tablus
  261.     move.l    a5,a4
  262.     blt.s    .first4
  263.     addq    #4,a4
  264. .first4:    moveq    #1,d6
  265.     bsr.s    get_bit2
  266. tablus2:    move.b    0(a4,d5.w),-(a5)    
  267.     bra.s    make_jnk
  268. get_bit2:    clr    d5
  269. .get_bits:    add.b    d7,d7
  270.     beq.s    .empty
  271. .cont:    addx    d5,d5
  272.     dbf    d6,.get_bits
  273.     tst    d5
  274.     rts
  275. .empty:    move.b    -(a6),d7
  276.     addx.b    d7,d7
  277.     bra.s    .cont
  278. bigger:    lea    decrun_table(pc),a4
  279. cont:    moveq    #2,d6
  280.     bsr.s    get_bit2
  281. contus:    move    d5,d4
  282.     move.b    14(a4,d4.w),d6
  283.     ext    d6
  284.     bsr.s    get_bit2
  285.     add    d4,d4
  286.     beq.s    .first
  287.     add    -2(a4,d4.w),d5
  288. .first:    lea    1(a5,d5.w),a4
  289.     move    (a7)+,d5
  290.     move.b    -(a4),-(a5)
  291. .copy_same:    move.b    -(a4),-(a5)
  292.     dbf    d5,.copy_same
  293. make_jnk:    moveq    #11,d6
  294.     moveq    #11,d5
  295. take_jnk:    add.b    d7,d7
  296.     beq.s    empty
  297. cont_jnk:    dbcc    d6,take_jnk
  298.     bcs.s    next_cod
  299.     sub    d6,d5
  300.     bra.s    copy_jnk1
  301. next_cod:    moveq    #7,d6
  302.     bsr.s    get_bit2
  303.     beq.s    .next_cod1
  304.     addq    #8,d5
  305.     addq    #3,d5
  306.     bra.s    copy_jnk1
  307. .next_cod1:    moveq    #2,d6
  308.     bsr.s    get_bit2
  309.     swap    d5
  310.     moveq    #15,d6
  311.     bsr.s    get_bit2
  312.     addq.l    #8,d5
  313.     addq.l    #3,d5    
  314. copy_jnk1:    subq    #1,d5
  315.     bmi.s    .end_word
  316.     moveq    #1,d6
  317.     swap    d6
  318. .copy_jnk:    move.b    -(a6),-(a5)
  319.     dbf    d5,.copy_jnk
  320.     sub.l    d6,d5
  321.     bpl.s    .copy_jnk
  322. .end_word:    cmp.l    a6,a0
  323. .decrunch:    bne    decrunch
  324.     cmp.b    #$80,d7
  325.     bne.s    .decrunch
  326.     ifne    PIC_ALGO
  327.     move.l    (a7)+,a0
  328.     bsr.s    decod_picture
  329.     endc
  330. no_crunched:    movem.l    (a7)+,d0-a6
  331.      rts
  332. empty:    move.b    -(a6),d7
  333.     addx.b    d7,d7
  334.     bra.s    cont_jnk
  335. decrun_table:    dc.w    32,32+64,32+64+256,32+64+256+512,32+64+256+512+1024
  336.     dc.w    32+64+256+512+1024+2048,32+64+256+512+1024+2048+4096
  337.     dc.b    4,5,7,8,9,10,11,12
  338. decrun_table2:    dc.w    32,32+64,32+64+128,32+64+128+256
  339.     dc.w    32+64+128+256+512,32+64+128+256+512*2
  340.     dc.w    32+64+128+256+512*3
  341.     dc.b    4,5,6,7,8,8
  342. tablus_table:    dc.b    $60,$20,$10,$8
  343.     ifne    PIC_ALGO
  344. decod_picture:    move    -(a0),d7
  345.     clr    (a0)
  346. .next_picture:    dbf    d7,.decod_algo
  347.     rts
  348. .decod_algo:    move.l    -(a0),d0
  349.     clr.l    (a0)
  350.     lea    0(a5,d0.l),a1
  351.     lea    $7d00(a1),a2
  352. .next_planes:    moveq    #3,d6
  353. .next_word:    move    (a1)+,d0
  354.     moveq    #3,d5
  355. .next_bits:    add    d0,d0
  356.     addx    d1,d1
  357.     add    d0,d0
  358.     addx    d2,d2
  359.     add    d0,d0
  360.     addx    d3,d3
  361.     add    d0,d0
  362.     addx    d4,d4
  363.     dbf    d5,.next_bits
  364.     dbf    d6,.next_word
  365.     movem    d1-d4,-8(a1)
  366.     cmp.l    a1,a2
  367.     bne.s    .next_planes
  368.     bra.s    .next_picture
  369.     endc
  370. *******************************************************************************************
  371.  
  372.     SECTION    DATA
  373. TEXT    
  374.  DC.B    $1B,'E'
  375.          ********************************************************************************
  376.  DC.B    "              HERE IS....IMPACT SOUNDSHIP MUSIC 3 FOR YOUR PLEASURE             ",$A,$D,$A,$D,$A,$D
  377.  DC.B    "         MUSIC COMPOSED BY  COUNT ZERO, RIPPED AND EXEC_MUSIC BY AYOROS ",$A,$D,$A,$D
  378.  DC.B    "                       MUSIC NAME : ........ THEME (C) 1991                 ",$A,$D,$A,$D,$A,$D
  379.  DC.B    "THIS DISK WAS IMPROVED BY AYOROS, AND MOTIVATE BY ARAKIS ( WHO SWAPP THE DISK! )",$A,$D
  380.  DC.B    "                             TO CONTACT US WRITE TO                             ",$D,$A
  381.  DC.B    "      IMPACT OR ARAKIS  8 RUE BRUYERE DES BADAUDS  1428 LILLOIS  BELGIUM        ",$D,$A
  382.  DC.B   "                           NO ILLEGAL SWAPPING PLEASE                           ",$A,$D
  383.  DC.B    "                                 GREETINGS GO TO                                ",$D,$A
  384.  DC.B    "              FACTORY ( RADIAL, MAXX STYLE, HIGHLANDER, HOOKER... )    ",$A,$D
  385.  DC.B   "ARAKIS (FRODON), FUN VISION (NIC), ELITE (ALL MEMBERS), MYSTIC (LTK MR SPIRIT) ",$D,$A
  386.  DC.B    "   THE PENDRAGONS (SILVER), NEXT (LEM), FARAMIR, PHENIX, TSB, FUZION (DRAGON)   ",$D,$A
  387.  DC.B    "    THE SYNDICATE (ALL MEMBERS), THE REPLICANTS (CAMEO), NIGHTHAWK, SWEETECH    ",$D,$A    
  388.  DC.B    "ZUUL, FM, HOTLINE (RUTHLESS), DELTA FORCE, THE UNION, AUTOMATION, POMPEY PIRATES",$D,$A
  389.  DC.B    "FIREHAWK, THE OVERLANDERS (DAUGUE DE MAUVE), THALION CREW, THE LOST BOYS (SAMMY)",$D,$A
  390.  DC.B    "    DNT (AXIOM), EQUINOX, MAD VISION (ALEXIS), BAD BOYS, OMEGA, SYNC, AND HMD.  ",$A,$D  
  391.  DC.B    0    
  392.  
  393.     EVEN
  394. DATA    INCBIN    A:\COUNT.CZI\COUNT14.CZI
  395.     EVEN
  396. MUSIC        
  397.