home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / LINEOUT / DELTA.ZIP / DELTASRC.ZIP / DELTA.SRC / BLACK.SO < prev    next >
Text File  |  2003-01-02  |  2KB  |  85 lines
  1. ; Intense darkness effect.
  2. ; A 'screen' for delta.
  3.  
  4. ;======= OBJECT EQUATES ====================================================
  5.  
  6. ;======= OBJECT TABLE ======================================================
  7.  
  8. ; Must be first in object!!
  9. Darkness.table:
  10.     DC.L    Darkness.mainLoop
  11.     DC.L    Darkness.init
  12.     DC.L    rts
  13.     DC.L    rts
  14.     DC.L    rts
  15.     DC.L    rts
  16.     DC.L    rts
  17.     DC.L    rts
  18.     DC.L    rts
  19.     DC.L    rts
  20.     DC.L    rts
  21.     DC.L    rts
  22.     DC.L    0
  23.  
  24. ;======= INIT SUBROUTINE ===================================================
  25.  
  26. ; OUTPUT:
  27. ; d0.l: 0   = All clear, neg = Error! Not initialized!
  28. Darkness.init:
  29. ; Insert pre-running initialising stuff here! Loading, precalculating, etc.
  30. .success:
  31.     moveq    #0,d0
  32.     rts
  33. .error:    moveq    #-1,d0
  34.     rts
  35.  
  36. ;======= REALTIME INIT SUBROUTINE ==========================================
  37.  
  38. Darkness.realtimeInit:
  39.     move.w    monitormode,d0
  40.     cmpi.w    #vga60,d0
  41.     beq.s    .vga60
  42.     cmpi.w    #vga100,d0
  43.     beq.s    .vga100
  44.     cmpi.w    #rgb50,d0
  45.     beq.s    .rgb50
  46.     rts
  47. .vga60:    move.l    #vga60_16bit_160_200,Darkness.resRout
  48.     rts
  49. .vga100:move.l    #vga100_16bit_160_100,Darkness.resRout
  50.     rts
  51. .rgb50:    move.l    #rgb50_16bit_320_100,Darkness.resRout
  52.     rts
  53.  
  54. ;======= MAINLOOP SUBROUTINE ===============================================
  55.  
  56. Darkness.mainLoop:
  57.     move.l    frmcnt,d0
  58.     sub.l    lastframecount,d0
  59.     bne.s    .end_init
  60.     bsr.w    Darkness.realtimeInit
  61. .end_init:
  62.  
  63.     movea.l    scr,a0
  64.     bsr.l    CLEAR_320100TSCR
  65.  
  66.     lea    scr,a0
  67.     move.l    (a0)+,d0
  68.     move.l    (a0)+,d1
  69.     move.l    (a0),-4(a0)
  70.     move.l    d0,(a0)
  71.     move.l    d1,-8(a0)
  72.  
  73.     movea.l    Darkness.resRout,a0
  74.     suba.l    a1,a1
  75.     movea.l    d0,a2
  76. .again:    bsr.l    Screen.requestUpdate
  77.     tst.l    d0
  78.     bmi.s    .again
  79.     clr.l    Darkness.resRout
  80.     rts
  81.  
  82. Darkness.resRout:
  83.     DC.L    0
  84.  
  85.