home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / AGGRESSN / MOTION.ZIP / MOTION / FADER2.S < prev    next >
Text File  |  1999-01-02  |  15KB  |  665 lines
  1. ;      /| __    _    /  __      
  2. ;     / |/ _ __| \  <  <    _   
  3. ;    /__|\ // _| / / \  \ |/ \  |
  4. ;   <   | \ \ /|< <_  >  >|\_/|\|
  5. ;    \  |    \ | \ \ / _/ |   | | 
  6. ;     \        |    /
  7. ;
  8. ; realtime DSP fader
  9. ; delta anim player
  10. ; -> anim fader (inputs deltapacked anim to fade to screen)
  11.  
  12.     TEXT
  13.  
  14. fader.run    = 1
  15.  
  16.     IFNE    fader.run
  17.  
  18. memory    = 500*1024
  19.  
  20. Overdose_Beyond_Braindamage
  21.     include freeintx.s
  22.     even
  23.  
  24. DEMO:
  25.     move.w    activepoint,d0
  26.     move.l    (activelist,pc,d0.w*4),a0
  27.     jsr    (a0)
  28.     rts
  29.  
  30. viimeinen
  31.     st     Space_Pressed
  32.     rts
  33.  
  34. activepoint    dc.w    0    
  35. activelist    
  36.     dc.l    fade.dsp_load
  37.     dc.l    fadeinit
  38. ;    DC.L    fade_play    ;plain anim player
  39.     dc.l    fade_anim    ;fades anim frames
  40.     dc.l    dummy
  41.     dc.l    viimeinen
  42.     ENDC
  43.  
  44. ;-----------------------------------------------------
  45. ; FADER-DSP
  46. ;-----------------------------------------------------
  47. fadeinit:
  48.  
  49.     move.l    address.freemem,d0
  50.     add.l    #fade.ruutu+256,d0
  51.     clr.b    d0
  52.     move.l    d0,adr_screen1
  53.  
  54.     move.l    d0,a0
  55.     lea    fade.kuva,a1
  56.     move.w    #(384*100/20)-1,d0
  57. .tayta
  58.     rept    20
  59.     move.w    (a1)+,(a0)+
  60.     endr
  61.     dbf    d0,.tayta
  62.  
  63.     move.l    #fadetv,pointertv
  64.     jsr    middlesetscreen
  65.     move.w    #$2300,sr
  66.  
  67.     lea    fade.delta,a0
  68.     move.l    a0,fp_delta
  69.     lea    fade.data,a0
  70.     move.l    a0,fp_data
  71.  
  72.     lea    fade.vdelta,a0
  73.     move.l    a0,fp_vdelta
  74.     lea    fade.vdata,a0
  75.     move.l    a0,fp_vdata
  76.  
  77.     addq.w    #1,activepoint
  78. dummy    rts
  79. ;------------------------------------
  80. fade_anim
  81.     moveq    #0,d0
  82.     moveq    #0,d1
  83.     move.w    .test,d0
  84.     sub.w    #4*10,d0
  85.     bpl.s    .fadeold
  86.     bsr    fade.gennew
  87.     move.w    #255,d0
  88. .fadeold
  89.     move.w    d0,.test
  90.     move.w    #255,d1
  91.     sub.w    d0,d1
  92.     move.w    d0,fade_control+2    
  93.     move.w    d1,fade_control+4    
  94.  
  95.     bsr    fade_jako
  96.  
  97.     rts
  98.  
  99. .test    dc.w    0
  100. fp_vdelta    dc.l    0
  101. fp_vdata    dc.l    0
  102. fp_xxdelta    dc.l    0
  103. fp_xxdata    dc.l    0
  104. ;------------
  105. fade.gennew
  106.     movec    cacr,d0
  107.     bclr    #8,d0
  108.     movec    d0,cacr    
  109.  
  110.     move.l    fp_vdelta,a0
  111.     move.l    a0,fp_xxdelta
  112.     move.l    adr_screen1,a1
  113.     move.l    address.freemem,a2
  114.     add.l    #fade.buffer,a2
  115.     
  116.     move.w    #(24*180)-1,d7
  117.     moveq    #0,d0
  118. .delta
  119.     move.w    (a0)+,d0
  120.     rept    16
  121.     bpl.s    *+4
  122.     move.w    (a1),(a2)+        ;copy screen > buffer
  123.     addq.l    #2,a1
  124.     lsl.w    #1,d0
  125.     endr
  126.     dbf    d7,.delta
  127.  
  128.     movec    cacr,d0
  129.     bset    #8,d0
  130.     movec    d0,cacr    
  131.  
  132.     move.l    address.freemem,d0
  133.     add.l    #fade.buffer,d0
  134.     move.l    d0,fade_control+6
  135.  
  136.     move.l    a2,d1
  137.     sub.l    d0,d1
  138.     lsr.l    #1,d1            ;wordimaara (pixelit)
  139.     move.w    d1,fade_control
  140.     move.l    fp_vdata,fade_control+10
  141.  
  142.  
  143.     move.l    a0,fp_vdelta
  144.     move.l    a0,d0
  145.     cmp.l    #fade.deltavika,d0
  146.     blt.s    .out
  147.     addq.w    #1,activepoint
  148. .out
  149.     rts
  150.  
  151. ;-----------------------
  152. fade_jako
  153. ; splittaa fade.buffer paloihin ja tulosta ruutuun fader_contrlilla
  154.  
  155. ;    rept    4
  156.     move.w    #1080,fade_control+14
  157.     move.w    fadekuolotaulu,d0
  158.     move.w    fadekuolotaulu(pc,d0.w*2),a0    ;pixelisize!!!!
  159.     add.w    #1,fadekuolotaulu
  160.     move.w    a0,fade_control    
  161.     bsr    fade_write
  162.     bsr    fade_read
  163.  
  164. ;    endr
  165.     
  166.     move.w    fade_control,d0
  167.     move.l    fade_control+10,a0
  168.     lea    (a0,d0.w*2),a0
  169.     move.l    a0,fp_data
  170.  
  171.     rts
  172.  
  173. fade_control
  174.     dc.w    0        ;monta pixelia
  175.     dc.w    0        ;%osuus (0-255) ekalle
  176.     dc.w    0        ;tokalle
  177.     dc.l    0
  178.     dc.l    0
  179.     dc.w    0        ;monta deltacontrolwordia
  180. fadekuolotaulu
  181.     dc.w    1
  182.     dc.w    1,2,3,4,5
  183.     dc.w    6,7,8,9,10
  184.     dc.w    11,12,13,14,15
  185.     dc.w    16,17,18,19,20
  186.  
  187. ;---------------------------------------------
  188. fade_write
  189.     movec    cacr,d0
  190.     bclr    #8,d0
  191.     movec    d0,cacr    
  192.  
  193.     lea    $ffffa202.w,a1    
  194.     lea    $ffffa206.w,a0
  195.     lea    fade_control,a2
  196.  
  197. .test    btst    #0,(a1)        
  198.     beq.s    .test    
  199.     move.l    -2(a0),d0
  200.     cmp.l    #$feed,d0
  201.     bne.l    reset
  202.  
  203. .lp    btst    #1,(a1)        
  204.     beq.s    .lp        
  205.     moveq    #0,d0
  206.     move.w    (a2)+,d0
  207.     move.l    d0,-2(a0)        ;pikselimaara
  208.  
  209.     lea    fadertable,a3
  210.     move.w    (a2)+,d1    
  211. .lp2    btst    #1,(a1)        
  212.     beq.s    .lp2        
  213.     move.l    (a3,d1.w*4),-2(a0)
  214.  
  215.     move.w    (a2)+,d1
  216. .lp3    btst    #1,(a1)        
  217.     beq.s    .lp3        
  218.     move.l    (a3,d1.w*4),-2(a0)
  219.  
  220.  
  221. .lp4    btst    #1,(a1)        
  222.     beq.s    .lp4        
  223.  
  224.     move.l    (a2)+,a3
  225.     move.l    (a2)+,a4
  226. ;    lsr.w    #4,d0
  227.     subq.w    #1,d0
  228. .hikka
  229.     rept    1
  230.     move.w    (a3)+,(a0)
  231.     move.w    (a4)+,(a0)
  232.     endr
  233.     dbf    d0,.hikka
  234.  
  235.     movec    cacr,d0
  236.     bset    #8,d0
  237.     movec    d0,cacr    
  238.  
  239.     rts
  240. ;----------
  241. fadertable
  242. x    set    0
  243.     rept    64
  244.     dc.l    x*$20000
  245.     dc.l    x*$20000
  246.     dc.l    x*$20000
  247.     dc.l    x*$20000
  248. x    set    x+1
  249.     endr
  250. ;-------------------------------------------
  251. fade_read
  252.     lea    $ffffa202.w,a1    
  253.     lea    $ffffa206.w,a0        ;read words..
  254.     move.l    adr_screen1,a2
  255.     move.l    fp_xxdelta,a3
  256.  
  257.     movec    cacr,d0
  258.     bclr    #8,d0
  259.     movec    d0,cacr    
  260.  
  261. .lp2    btst    #0,(a1)        
  262.     beq.s    .lp2
  263.  
  264.     move.w    fade_control+14,d7
  265.     subq.w    #1,d7
  266.     moveq    #0,d0
  267. .delta
  268.     move.w    (a3)+,d0
  269.     rept    16
  270.     bpl.s    *+4
  271.     move.w    (a0),(a2)    
  272.     addq.l    #2,a2
  273.     lsl.w    #1,d0
  274.     endr
  275.     dbf    d7,.delta
  276.  
  277.     movec    cacr,d0
  278.     bset    #8,d0
  279.     movec    d0,cacr    
  280.  
  281.     move.l    a3,fp_xxdelta
  282.     rts
  283. fp_xdelta    dc.l    0
  284. ;------------------------------------------------------------------------
  285. ;  DSP ROUTINES..
  286. ;------------------------------------------------------------------------
  287. fade.DSP_LOAD:
  288.  
  289.     MOVE.W    #1,-(SP)
  290.     move.l    #(fade.dsp_ende-fade.dsp_code)/3,-(sp)
  291.     move.l    #fade.dsp_code+9,-(sp)        ;devpac56:n headereita
  292.     MOVE.W    #$6e,-(SP)
  293.     TRAP    #14
  294.     LEA    12(SP),SP
  295.     tst.l    d0
  296.     bmi.l    reset            ;dsp melted beyond braindamage..
  297.     tst.l    d1
  298.     bmi.l    reset            ;dsp melted beyond braindamage..
  299.  
  300.     lea    $ffffa202.w,a1    
  301.     lea    $ffffa204.w,a0
  302.  
  303.     move.l    #$babe,d0        ;testaa varmuuden vuoksi dsp rutiini..
  304. .lp2    btst    #0,(a1)        
  305.     beq.s    .lp2        
  306.     move.l    (a0),d1
  307.     cmp.l    d0,d1
  308.     bne.l    reset
  309.  
  310.     addq.w    #1,activepoint
  311.     rts
  312.  
  313. fade.dsp_code
  314.     incbin    dsp\fade.p56
  315. fade.dsp_ende
  316.     even
  317. ;------------------------------
  318. fadeTV:
  319. .HHT    SET     $fe        ; Horizontal Hold Timer
  320. .HBB    SET     $c0        ; Horizontal Border Begin
  321. .HBE    SET     $30        ; Horizontal Border End
  322. .HDB    SET     $18        ; Horizontal Display Begin
  323. .HDE    SET     $b8        ; Horizontal Display End
  324. .HSS    SET     $d8        ; Horizontal Synchro Start
  325.  
  326. .VFT    SET     $271        ; (31250/Hz!1) ; V FREQUENCY
  327. .VBB    SET     $265        ; V BORDER BLANK
  328. .VBE    SET     $49        ; ($265-$02f)/2 = 283 LINES
  329. .VDB    SET     $49        ; V DISPLAY SIZE (256 lines..)
  330. .VDE    SET     $249        ; ($237-$057)/2 = 240 LINES
  331. .VSS    SET     $26b        ; V SYNCHRO START (<FREQUENCY!)
  332. .VCLK    SET    $182        ; Video Clock
  333. .VCO    SET    $000        ; Video Control
  334. .WIDE    set    384        ;screen wide (words)
  335. .modulo    set    0        ;screen modulo
  336. .VMODE    set    $100        ;screen mode (true)
  337. ; Video Control TV Bits                3 2 1 0
  338. ;    Horizontal Resolution-------------------+-+ + +
  339. ;        00: LORES (320 Pixels)            | |
  340. ;        01: HIRES (640 Pixels)            | |
  341. ;        10: SUPER HIRES (1280 Pixels)        | |
  342. ;            (shires seems to work with        | |
  343. ;             16 colors only (???))        | |
  344. ;    Interlace-----------------------------------' |
  345. ;        To enable interlacing, set VFT          |
  346. ;        bit 0 to logic 0.              |
  347. ;    Vertical Resolution---------------------------'
  348. ;        0: 200 lines
  349. ;        1: 100 lines
  350.  
  351.     dc.w    .HHT&$1ff,.HBB&$1ff,.HBE&$1ff,.HDB&$1ff,.HDE&$1ff,.HSS&$1ff
  352.     dc.w    .VFT&$3ff,.VBB&$3ff,.VBE&$3ff,.VDB&$3ff,.VDE&$3ff,.VSS&$3ff
  353.     dc.w    .VCLK&$1ff,.VCO&$00f
  354.     dc.l    .wide,.modulo,.vmode
  355.  
  356. ;-------------------------------
  357. fade_play
  358.     sub.w    #1,fp_frame
  359.     bgt    .out
  360.     move.w    #3,fp_frame
  361.  
  362.     movec    cacr,d0
  363.     bclr    #8,d0
  364.     movec    d0,cacr    
  365.  
  366.     move.l    fp_delta,a0
  367.     move.l    fp_data,a1
  368.     move.l    adr_screen1,a2
  369.     move.w    #(384*100/16)-1,d7
  370.     moveq    #0,d0
  371. .delta
  372.     move.w    (a0)+,d0
  373.  
  374.     rept    16
  375.     bpl.s    *+4
  376.     move.w    (a1)+,(a2)    
  377.  
  378.     addq.l    #2,a2
  379.     lsl.w    #1,d0
  380.     endr
  381.  
  382.     dbf    d7,.delta
  383.  
  384.     movec    cacr,d0
  385.     bset    #8,d0
  386.     movec    d0,cacr    
  387.  
  388.     move.l    a0,fp_delta
  389.     move.l    a1,fp_data
  390.     move.l    a0,d0
  391.     cmp.l    #fade.data,d0
  392.     blt.s    .out
  393.     addq.w    #1,activepoint
  394. .out
  395.     rts
  396.  
  397. fp_delta    dc.l    0
  398. fp_data        dc.l    0
  399. fp_frame    dc.w    0
  400. ;---------------------------------------------------
  401. fade.kuva
  402.     incbin    alkuanim\frame000.ftc
  403.     even
  404. fade.vdelta
  405.     incbin    alkuanim\light000.dlb
  406.     incbin    alkuanim\light001.dlb
  407.     incbin    alkuanim\light002.dlb
  408.     incbin    alkuanim\light003.dlb
  409.     incbin    alkuanim\light004.dlb
  410.     incbin    alkuanim\light005.dlb
  411.  
  412. fade.delta
  413.     IFEQ    1
  414.  
  415.     incbin    alkuanim\frame000.dlb    
  416.     incbin    alkuanim\frame001.dlb    
  417.     incbin    alkuanim\frame002.dlb    
  418.     incbin    alkuanim\frame003.dlb    
  419.     incbin    alkuanim\frame004.dlb    
  420.     incbin    alkuanim\frame005.dlb    
  421.     incbin    alkuanim\frame006.dlb    
  422.     incbin    alkuanim\frame007.dlb    
  423.     incbin    alkuanim\frame008.dlb    
  424.     incbin    alkuanim\frame009.dlb    
  425.     incbin    alkuanim\frame010.dlb    
  426.     incbin    alkuanim\frame011.dlb    
  427.     incbin    alkuanim\frame012.dlb    
  428.     incbin    alkuanim\frame013.dlb    
  429.     incbin    alkuanim\frame014.dlb    
  430.     incbin    alkuanim\frame015.dlb    
  431.     incbin    alkuanim\frame016.dlb    
  432.     incbin    alkuanim\frame017.dlb    
  433.     incbin    alkuanim\frame018.dlb    
  434.     incbin    alkuanim\frame019.dlb    
  435.     incbin    alkuanim\frame020.dlb    
  436.     incbin    alkuanim\frame021.dlb    
  437.     incbin    alkuanim\frame022.dlb    
  438.     incbin    alkuanim\frame023.dlb    
  439.     incbin    alkuanim\frame024.dlb    
  440.     incbin    alkuanim\frame025.dlb    
  441.     incbin    alkuanim\frame026.dlb    
  442.     incbin    alkuanim\frame027.dlb    
  443.     incbin    alkuanim\frame028.dlb    
  444.     incbin    alkuanim\frame029.dlb    
  445.     incbin    alkuanim\frame030.dlb    
  446.     incbin    alkuanim\frame031.dlb    
  447.     incbin    alkuanim\frame032.dlb    
  448.     incbin    alkuanim\frame033.dlb    
  449.     incbin    alkuanim\frame034.dlb    
  450.     incbin    alkuanim\frame035.dlb    
  451.     incbin    alkuanim\frame036.dlb    
  452.     incbin    alkuanim\frame037.dlb    
  453.     incbin    alkuanim\frame038.dlb    
  454.     incbin    alkuanim\frame039.dlb    
  455.     incbin    alkuanim\frame040.dlb    
  456.     incbin    alkuanim\frame041.dlb    
  457.     incbin    alkuanim\frame042.dlb    
  458.     incbin    alkuanim\frame043.dlb    
  459.     incbin    alkuanim\frame044.dlb    
  460.     incbin    alkuanim\frame045.dlb    
  461.     incbin    alkuanim\frame046.dlb    
  462.     incbin    alkuanim\frame047.dlb    
  463.     incbin    alkuanim\frame048.dlb    
  464.     incbin    alkuanim\frame049.dlb    
  465.     incbin    alkuanim\frame050.dlb    
  466.     incbin    alkuanim\frame051.dlb    
  467.     incbin    alkuanim\frame052.dlb    
  468.     incbin    alkuanim\frame053.dlb    
  469.     incbin    alkuanim\frame054.dlb    
  470.     incbin    alkuanim\frame055.dlb    
  471.     incbin    alkuanim\frame056.dlb    
  472.     incbin    alkuanim\frame057.dlb    
  473.     incbin    alkuanim\frame058.dlb    
  474.     incbin    alkuanim\frame059.dlb    
  475.     incbin    alkuanim\frame060.dlb
  476.     incbin    alkuanim\frame061.dlb    
  477.     incbin    alkuanim\frame062.dlb    
  478.     incbin    alkuanim\frame063.dlb    
  479.     incbin    alkuanim\frame064.dlb    
  480.     incbin    alkuanim\frame065.dlb    
  481.     incbin    alkuanim\frame066.dlb    
  482.     incbin    alkuanim\frame067.dlb    
  483.     incbin    alkuanim\frame068.dlb    
  484.     incbin    alkuanim\frame069.dlb    
  485.     incbin    alkuanim\frame070.dlb    
  486.     incbin    alkuanim\frame071.dlb    
  487.     incbin    alkuanim\frame072.dlb    
  488.     incbin    alkuanim\frame073.dlb    
  489.     incbin    alkuanim\frame074.dlb    
  490.     incbin    alkuanim\frame075.dlb    
  491.     incbin    alkuanim\frame076.dlb    
  492.     incbin    alkuanim\frame077.dlb    
  493.     incbin    alkuanim\frame078.dlb    
  494.     incbin    alkuanim\frame079.dlb    
  495.     incbin    alkuanim\frame080.dlb    
  496.     incbin    alkuanim\frame081.dlb    
  497.     incbin    alkuanim\frame082.dlb    
  498.     incbin    alkuanim\frame083.dlb    
  499.     incbin    alkuanim\frame084.dlb    
  500.     incbin    alkuanim\frame085.dlb    
  501.     incbin    alkuanim\frame086.dlb    
  502.     incbin    alkuanim\frame087.dlb    
  503.     incbin    alkuanim\frame088.dlb    
  504.     incbin    alkuanim\frame089.dlb    
  505.     incbin    alkuanim\frame090.dlb    
  506.     incbin    alkuanim\frame091.dlb    
  507.     incbin    alkuanim\frame092.dlb    
  508.     incbin    alkuanim\frame093.dlb    
  509.     incbin    alkuanim\frame094.dlb    
  510.     incbin    alkuanim\frame095.dlb    
  511.     incbin    alkuanim\frame096.dlb    
  512.     incbin    alkuanim\frame097.dlb    
  513.     incbin    alkuanim\frame098.dlb    
  514.     incbin    alkuanim\frame099.dlb    
  515.     incbin    alkuanim\frame100.dlb    
  516.     incbin    alkuanim\frame101.dlb    
  517.     incbin    alkuanim\frame102.dlb    
  518.     incbin    alkuanim\frame103.dlb    
  519.     incbin    alkuanim\frame104.dlb    
  520.     incbin    alkuanim\frame105.dlb    
  521.     incbin    alkuanim\frame106.dlb    
  522.     incbin    alkuanim\frame107.dlb    
  523.     incbin    alkuanim\frame108.dlb    
  524.     incbin    alkuanim\frame109.dlb    
  525.     incbin    alkuanim\frame110.dlb    
  526.     incbin    alkuanim\frame111.dlb    
  527.     ENDC
  528.  
  529. fade.deltavika
  530.     incbin    alkuanim\frame112.dlb
  531.     even
  532.  
  533. fade.vdata
  534.     incbin    alkuanim\light000.dld
  535.     incbin    alkuanim\light001.dld
  536.     incbin    alkuanim\light002.dld
  537.     incbin    alkuanim\light003.dld
  538.     incbin    alkuanim\light004.dld
  539.     incbin    alkuanim\light005.dld
  540.  
  541. fade.data
  542.     IFEQ    1
  543.     incbin    alkuanim\frame000.dld    
  544.     incbin    alkuanim\frame001.dld    
  545.     incbin    alkuanim\frame002.dld    
  546.     incbin    alkuanim\frame003.dld    
  547.     incbin    alkuanim\frame004.dld    
  548.     incbin    alkuanim\frame005.dld    
  549.     incbin    alkuanim\frame006.dld    
  550.     incbin    alkuanim\frame007.dld    
  551.     incbin    alkuanim\frame008.dld    
  552.     incbin    alkuanim\frame009.dld    
  553.     incbin    alkuanim\frame010.dld    
  554.     incbin    alkuanim\frame011.dld    
  555.     incbin    alkuanim\frame012.dld    
  556.     incbin    alkuanim\frame013.dld    
  557.     incbin    alkuanim\frame014.dld    
  558.     incbin    alkuanim\frame015.dld    
  559.     incbin    alkuanim\frame016.dld    
  560.     incbin    alkuanim\frame017.dld    
  561.     incbin    alkuanim\frame018.dld    
  562.     incbin    alkuanim\frame019.dld    
  563.     incbin    alkuanim\frame020.dld    
  564.     incbin    alkuanim\frame021.dld    
  565.     incbin    alkuanim\frame022.dld    
  566.     incbin    alkuanim\frame023.dld    
  567.     incbin    alkuanim\frame024.dld    
  568.     incbin    alkuanim\frame025.dld    
  569.     incbin    alkuanim\frame026.dld    
  570.     incbin    alkuanim\frame027.dld    
  571.     incbin    alkuanim\frame028.dld    
  572.     incbin    alkuanim\frame029.dld    
  573.     incbin    alkuanim\frame030.dld    
  574.     incbin    alkuanim\frame031.dld    
  575.     incbin    alkuanim\frame032.dld    
  576.     incbin    alkuanim\frame033.dld    
  577.     incbin    alkuanim\frame034.dld    
  578.     incbin    alkuanim\frame035.dld    
  579.     incbin    alkuanim\frame036.dld    
  580.     incbin    alkuanim\frame037.dld    
  581.     incbin    alkuanim\frame038.dld    
  582.     incbin    alkuanim\frame039.dld    
  583.     incbin    alkuanim\frame040.dld    
  584.     incbin    alkuanim\frame041.dld    
  585.     incbin    alkuanim\frame042.dld    
  586.     incbin    alkuanim\frame043.dld    
  587.     incbin    alkuanim\frame044.dld    
  588.     incbin    alkuanim\frame045.dld    
  589.     incbin    alkuanim\frame046.dld    
  590.     incbin    alkuanim\frame047.dld    
  591.     incbin    alkuanim\frame048.dld    
  592.     incbin    alkuanim\frame049.dld    
  593.     incbin    alkuanim\frame050.dld    
  594.     incbin    alkuanim\frame051.dld    
  595.     incbin    alkuanim\frame052.dld    
  596.     incbin    alkuanim\frame053.dld    
  597.     incbin    alkuanim\frame054.dld    
  598.     incbin    alkuanim\frame055.dld    
  599.     incbin    alkuanim\frame056.dld    
  600.     incbin    alkuanim\frame057.dld    
  601.     incbin    alkuanim\frame058.dld    
  602.     incbin    alkuanim\frame059.dld    
  603.     incbin    alkuanim\frame060.dld
  604.     incbin    alkuanim\frame061.dld    
  605.     incbin    alkuanim\frame062.dld    
  606.     incbin    alkuanim\frame063.dld    
  607.     incbin    alkuanim\frame064.dld    
  608.     incbin    alkuanim\frame065.dld    
  609.     incbin    alkuanim\frame066.dld    
  610.     incbin    alkuanim\frame067.dld    
  611.     incbin    alkuanim\frame068.dld    
  612.     incbin    alkuanim\frame069.dld    
  613.     incbin    alkuanim\frame070.dld    
  614.     incbin    alkuanim\frame071.dld    
  615.     incbin    alkuanim\frame072.dld    
  616.     incbin    alkuanim\frame073.dld    
  617.     incbin    alkuanim\frame074.dld    
  618.     incbin    alkuanim\frame075.dld    
  619.     incbin    alkuanim\frame076.dld    
  620.     incbin    alkuanim\frame077.dld    
  621.     incbin    alkuanim\frame078.dld    
  622.     incbin    alkuanim\frame079.dld    
  623.     incbin    alkuanim\frame080.dld    
  624.     incbin    alkuanim\frame081.dld    
  625.     incbin    alkuanim\frame082.dld    
  626.     incbin    alkuanim\frame083.dld    
  627.     incbin    alkuanim\frame084.dld    
  628.     incbin    alkuanim\frame085.dld    
  629.     incbin    alkuanim\frame086.dld    
  630.     incbin    alkuanim\frame087.dld    
  631.     incbin    alkuanim\frame088.dld    
  632.     incbin    alkuanim\frame089.dld    
  633.     incbin    alkuanim\frame090.dld    
  634.     incbin    alkuanim\frame091.dld    
  635.     incbin    alkuanim\frame092.dld    
  636.     incbin    alkuanim\frame093.dld    
  637.     incbin    alkuanim\frame094.dld    
  638.     incbin    alkuanim\frame095.dld    
  639.     incbin    alkuanim\frame096.dld    
  640.     incbin    alkuanim\frame097.dld    
  641.     incbin    alkuanim\frame098.dld    
  642.     incbin    alkuanim\frame099.dld    
  643.     incbin    alkuanim\frame100.dld    
  644.     incbin    alkuanim\frame101.dld    
  645.     incbin    alkuanim\frame102.dld    
  646.     incbin    alkuanim\frame103.dld    
  647.     incbin    alkuanim\frame104.dld    
  648.     incbin    alkuanim\frame105.dld    
  649.     incbin    alkuanim\frame106.dld    
  650.     incbin    alkuanim\frame107.dld    
  651.     incbin    alkuanim\frame108.dld    
  652.     incbin    alkuanim\frame109.dld    
  653.     incbin    alkuanim\frame110.dld    
  654.     incbin    alkuanim\frame111.dld    
  655.     ENDC
  656.  
  657.     incbin    alkuanim\frame112.dld    
  658.  
  659.     even
  660.         RSRESET
  661. fade.ruutu:    RS.W    (384*256)+256
  662. fade.buffer    rs.w    65536
  663. ***********************************************************
  664.  
  665.