home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src1.dms / in.adf / demosas.lzh / demosource.LZH / screen.include < prev    next >
Encoding:
Text File  |  1991-05-17  |  1005 b   |  61 lines
  1. ;screen.include
  2.  
  3.     
  4. Demo_Screen
  5.     ;Playfield 1 - odd bitplanes
  6.     move.l #SCREEN1,d0
  7.     move.w d0,pl1l
  8.     swap d0
  9.     move.w d0,pl1h
  10.     
  11.     ;move.l #SCREEN3+4,d0        ; !! 2 word offset !!
  12.     ;move.w d0,pl3l
  13.     ;swap d0
  14.     ;move.w d0,pl3h
  15.     ;move.l #SCREEN5+4,d0        ; !! 2 word offset !!
  16.     ;move.w d0,pl5l
  17.     ;swap d0
  18.     ;move.w d0,pl5h
  19.     ;Playfield 2 - even bitplanes
  20.     ;move.l #SCREEN2+4,d0        ; !! 2 word offset !!
  21.     ;move.w d0,pl2l
  22.     ;swap d0
  23.     ;move.w d0,pl2h
  24.     ;move.l #SCREEN4+1924,d0        ; !! 2 word offset !!
  25.     ;move.w d0,pl4l
  26.     ;swap d0
  27.     ;move.w d0,pl4h
  28.     ;move.l #SCREEN6+1924,d0        ; !! 2 word offset plus 40 lines 'up top'!!
  29.     ;move.w d0,pl6l
  30.     ;swap d0
  31.     ;move.w d0,pl6h
  32.  
  33.     ;Patch in copper list
  34.     lea CUSTOM,a6
  35.     move.l gfxbase,a5
  36.     add.l #$32,a5
  37.     move.w #$80,DMACON(a6)
  38.     move.l #democopper,(a5)
  39.     move.w #$80a0,DMACON(a6)
  40.     rts
  41.     
  42.  
  43.  
  44. Screen_On
  45.     move.w #$1f,DMACON(a6)
  46.     move.w #$87e0,DMACON(a6)
  47.     rts
  48. InterOn
  49.     move.w #1,intflag
  50.     rts
  51. InterOff
  52.     move.w #0,intflag
  53.     rts
  54. intflag    
  55.     dc.w 0    ;0 interrupts ignored
  56.  
  57.     
  58.     even
  59.     include "democopper.include"
  60.     even 
  61.