home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / programming / other / cantstop_src / driver0.s < prev    next >
Encoding:
Text File  |  1998-05-09  |  1.1 KB  |  87 lines
  1.  
  2.     ;
  3.     ;  Simple driver for Logo-effect
  4.     ;
  5.     ;  (OK, it's really quick and dirty, but it's just enough to
  6.     ;  get the effect running! ;)
  7.     ;
  8.  
  9.  
  10.     Lea    GfxName,a1
  11.     Moveq    #0,d0
  12.     Move.l    4.w,a6
  13.     Jsr    -552(a6)        ; _LVOOpenLibrary
  14.     Move.l    d0,GfxBase
  15.  
  16.     Jsr    -132(a6)        ; _LVOForbid
  17.  
  18.  
  19.  
  20.  
  21.  
  22.     ; ************************
  23.     ; **                    **
  24.     ; **  START DEMO STUFF  **
  25.     ; **                    **
  26.     ; ************************
  27.  
  28.  
  29.     ; -- PRECALC ROUTINES HERE... --
  30.  
  31.     Jsr    LINE_INIT
  32.     Jsr    BUMP_INIT
  33.     Jsr    SCENE_INIT
  34.  
  35.  
  36.     ; -- SHOW THE EFFECT --
  37.  
  38.     Move.w    #$8380,$DFF096        ; Setup DMA
  39.     Move.w    #$0020,$DFF096        ; Kill Sprites
  40.  
  41.     Jsr    LINE_SHOW
  42.     Jsr    BUMP_SHOW
  43.     Jsr    SCENE_SHOW
  44.  
  45.  
  46.     ; -- CLEANUP ROUTINES (END OF DEMO) --
  47.  
  48.  
  49.  
  50.  
  51.     ; **********************
  52.     ; **                  **
  53.     ; **  END DEMO STUFF  **
  54.     ; **                  **
  55.     ; **********************
  56.  
  57.  
  58.  
  59.  
  60.     Move.l    4.w,a6
  61.     Jsr    -138(a6)        ; _LVOPermit
  62.  
  63.  
  64.     Move.l    GfxBase,a6
  65.     Move.l    38(a6),$DFF080
  66.     Move.w    #-1,$DFF088
  67.  
  68.     Move.l    a6,a1
  69.     Move.l    4.w,a6
  70.     Jsr    -414(a6)        ; _LVOCloseLibrary
  71.  
  72.     Move.w    #$8020,$DFF096        ; Sprites back on!
  73.  
  74.     Rts
  75.  
  76.  
  77.  
  78.  
  79.     ; -- DATAS & STUFF --
  80.  
  81. GfxBase        dc.l    0
  82. GfxName        dc.b    'graphics.library',0
  83.         cnop    0,4        ; Longword align
  84.  
  85.  
  86.     include    'TheLot.s'
  87.