home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / LINEOUT / DELTA.ZIP / DELTASRC.ZIP / DELTA.SRC / GAMMA_P.S < prev    next >
Text File  |  2003-01-04  |  3KB  |  128 lines
  1. ;===========================================================================
  2. ; example part for inclusion in demo.s
  3. ;
  4. ; earx/lineout  2002
  5. ;
  6. ;---------------------------------------------------------------------------
  7.  
  8. ; This table must be first in the part!
  9.     DC.L    Gamma.init
  10.     DC.L    Gamma.start
  11.     DC.L    Gamma.stop
  12.  
  13.  
  14. Gamma.screenTable:
  15.     DC.L    0                ; dummy (required)
  16.     DC.L    Starfish.table            ; 01
  17.     DC.L    Bumpmap.table            ; 02
  18.     DC.L    Conch.table            ; 03
  19.     DC.L    Bubbles.table            ; 04
  20.     DC.L    Fern.table            ; 05
  21.     DC.L    ZWater.table            ; 06
  22.     DC.L    MCubes.table            ; 07
  23.     DC.L    Sparkle.table            ; 08
  24.     DC.L    MiniBlobs.table            ; 09
  25.     DC.L    Worm.table            ; 0A
  26.     DC.L    Twirl.table            ; 0B
  27.     DC.L    Spikes.table            ; 0C
  28.     DC.L    Julia.table            ; 0D
  29.     DC.L    CSpikes.table            ; 0E
  30.     DC.L    Galaxy.table            ; 0F
  31.     DC.L    0                ; terminator (required)
  32.  
  33.  
  34. ; Initializes this part and returns references and statistics.
  35. ; OUTPUT:
  36. ; d0.l: =0: success, <0: error
  37. ; a0: screentable
  38. ; a1: sub fx count table (filled)
  39. Gamma.init:
  40.     lea    Gamma.screenTable,a0
  41.     bsr.l    initScreens
  42.     tst.l    d0
  43.     bmi.s    .error
  44.     move.w    d0,Gamma.screenCount
  45.  
  46.     lea    Gamma.screenTable,a0
  47.     lea    Gamma.countTable,a1
  48.     bsr.l    countSubFx
  49.  
  50.     lea    Gamma.screenTable,a0
  51.     lea    Gamma.countTable,a1
  52.  
  53.     clr.l    d0
  54. .error:    rts
  55.  
  56. ; Initializes this part for action. Starts the music, if any.
  57. ; OUTPUT:
  58. ; d0.l: >=0: #screens, <0: error
  59. Gamma.start:
  60.     lea    Gamma.modName,a0
  61.     bsr.l    playMod
  62.     tst.w    d0
  63.     bmi.s    .end
  64.  
  65. ;    move.w    #5,EarxPlay.position            ; conch, test, todo: remove
  66. ;    move.w    #$10,EarxPlay.position
  67. ;    move.w    #$16,EarxPlay.position            ; metaballs
  68. ;    move.w    #$19,EarxPlay.position            ; sparkle test
  69. ;    move.w    #$1E,EarxPlay.position            ; miniblobs test
  70. ;    move.w    #$23,EarxPlay.position            ; worm test
  71. ;    move.w    #$29,EarxPlay.position            ; cart wobbler test
  72. ;    move.w    #$2F,EarxPlay.position            ; circ wobbler test
  73. ;    move.w    #$33,EarxPlay.position            ; greets, test, todo: remove
  74.  
  75.     move.w    Gamma.screenCount,d0
  76.  
  77. .end:    rts
  78.  
  79. ; Stops all music or other part specific background processes.
  80. Gamma.stop:
  81.     bsr.l    EarxPlay.stop
  82.     rts
  83.  
  84. ; screens..
  85.     INCLUDE    STARFISH.SO
  86.     TEXT
  87.     INCLUDE    BUMPMAP2.SO
  88.     TEXT
  89.     INCLUDE    CONCH.SO
  90.     TEXT
  91.     INCLUDE    BUBBLES4.SO
  92.     TEXT
  93.     INCLUDE    FERN2.SO
  94.     TEXT
  95.     INCLUDE    ZWATER2.SO
  96.     TEXT
  97.     INCLUDE    DSPMARCH.SO
  98.     TEXT
  99.     INCLUDE    SPARKLE2.SO
  100.     TEXT
  101.     INCLUDE    MINIBLBS.SO
  102.     TEXT
  103.     INCLUDE    WORM.SO
  104.     TEXT
  105.     INCLUDE    TWIRL.SO
  106.     TEXT
  107.     INCLUDE    SPIKES2.SO
  108.     TEXT
  109.     INCLUDE    JULIA.SO
  110.     TEXT
  111.     INCLUDE    SPIKES3.SO
  112.     TEXT
  113.     INCLUDE    GALAXY2.SO
  114.     TEXT
  115.  
  116.     DATA
  117.  
  118. Gamma.modName:
  119.     DC.B    "C.MOD",0
  120.     EVEN
  121.  
  122.     BSS
  123.  
  124. Gamma.screenCount:
  125.     DS.W    1                    ; #screens in part
  126. Gamma.countTable:
  127.     DS.B    128                    ; #events per screen
  128.