home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src1.dms / in.adf / demosas.lzh / demosource.LZH / demo.s < prev    next >
Encoding:
Text File  |  1991-05-17  |  1.0 KB  |  93 lines
  1. * Demo
  2.  
  3. MUSIC equ 0
  4. FLOPPY equ 0
  5.  
  6.     INCDIR dh0:mc/demoincludes/
  7.  
  8.     section main,code_c
  9.  
  10.     IFNE MUSIC
  11.     bsr InitPlayer
  12.     cmp.w #0,d0
  13.     beq ok
  14.     rts
  15. ok
  16.     bsr Relocate_modules
  17.     ENDC
  18.  
  19.     IFNE FLOPPY
  20.     move.l #$bfd100,a0
  21.     move.w #$8000,(a0)
  22.     ENDC
  23.  
  24.     include "custom.header"
  25.     include "forbid.include"
  26.     even
  27.     move.l #string,a0
  28.     move.l a0,string_adr
  29.  
  30.     bsr Demo_Screen    
  31.     bsr InterOn
  32.  
  33.     
  34. loop
  35.     btst #6,$bfe001
  36.     beq.s quit1
  37.  
  38.     bra loop
  39.  
  40. quit1    
  41.  
  42.     IFNE MUSIC
  43.     bsr StopPlayer
  44.     bsr RemPlayer
  45.     ENDC
  46.  
  47.     bra quit
  48.  
  49.     include "permit.include"
  50.  
  51.     * Level Three *
  52.  
  53. newlevel3
  54.     movem.l d0-d7/a0-a6,-(sp)
  55.     
  56.     and.w #$10,INTREQR+CUSTOM
  57.     beq.s out
  58.     move.w #$10,INTREQ+CUSTOM
  59.  
  60.     cmp.w #0,intflag
  61.     beq  out 
  62.     
  63.     lea CUSTOM,a6
  64.     bsr Demo_Control
  65.     
  66. out    movem.l (sp)+,d0-d7/a0-a6
  67.     even
  68.     dc.w $4ef9
  69. oldlevel3
  70.     dc.l 0
  71.     even
  72. oldcpr
  73.     dc.l 0
  74.     even
  75. GFXNAME dc.b "graphics.library",0,0,0,0
  76.     even
  77.     include "democontrol.include"
  78.     even
  79.     include "screen.include"
  80.     include "text.include"
  81.     include "scroll.include"
  82.     
  83.  
  84.  
  85.     IFNE MUSIC
  86.     include "medplayer.include"
  87.     ENDC
  88.  
  89.     even
  90. gfxbase    dc.l 0
  91.     even
  92.     include "demodata.include
  93.