home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src1.dms / in.adf / demosas.lzh / demosource.LZH / democopper.include < prev    next >
Encoding:
Text File  |  1991-05-17  |  2.2 KB  |  106 lines
  1. democopper
  2.  
  3.     ; The demo's copperlist.
  4.     ;
  5.     ; The copper list is where the screen pointers are set up, 
  6.     ; and more excitingly, the colours are all defined. The 
  7.     ; copperlist is automatically executed at the start of each 
  8.     ; display cycle - this makes it an ideal way to call the 
  9.     ; actual code of the demo every frame as well. This is
  10.     ; achieved by using an interrupt triggered by the last lines of
  11.     ; the copperlist.
  12.     
  13.  
  14.     
  15.     ; Set the Bitplane pointers
  16.  
  17.     dc.w BPL1PTH
  18. pl1h    dc.w 0
  19.     dc.w BPL1PTL
  20. pl1l    dc.w 0
  21.  
  22.  
  23.     ; Set screen (no. bitplanes, physical location etc)
  24.  
  25.     dc.w BPLCON0,$1000    ;BitPlane  1
  26.     dc.w BPLCON1,$0        ;No scrolling bitplane
  27.     dc.w BPLCON2,$64    ;priority (meaningless with 1 BP)
  28.     dc.w BPL1MOD,$4        ; !! This is a 44 byte screen !!
  29.     dc.w BPL2MOD,$0        ;This isn't.
  30.     dc.w DIWSTRT,$2c81    ;Set up as per hardware manual for normal
  31.     dc.w DIWSTOP,$f4c1    ;NTSC-o-vision display. Pal? Hmm..
  32.     dc.w DDFSTRT,$30    ;fudged slightly to provide a more even
  33.     dc.w DDFSTOP,$c8    ;display for the text.
  34.  
  35.     ;colours at top of screen
  36.     dc.w COLOR0,$00
  37.     dc.w COLOR1,$fff
  38.     
  39.     dc.w $2c01,$ff00
  40.     dc.w COLOR0,$002
  41.     dc.w $2d01,$ff00
  42.     dc.w COLOR0,$004
  43.     dc.w $2e01,$ff00
  44.     dc.w COLOR0,$006
  45.     dc.w $2f01,$ff00
  46.     dc.w COLOR0,$008
  47.     ;middle of screen
  48.  
  49.  
  50.  
  51.     ;end part of screen
  52.     dc.w $da01,$ff00
  53.     dc.w COLOR0,$006
  54.     dc.w $db01,$ff00
  55.     dc.w COLOR0,$004
  56.     dc.w $dc01,$ff00
  57.     dc.w COLOR0,$002
  58.     dc.w $dd01,$ff00
  59.     dc.w COLOR0,$000
  60.     ;colours for scrolly text
  61.  
  62.     dc.w $e001,$ff00
  63.     dc.w COLOR1,$0ee
  64.     dc.w $e101,$ff00
  65.     dc.w COLOR1,$0cc
  66.     dc.w $e201,$ff00
  67.     dc.w COLOR1,$0aa
  68.     dc.w $e301,$ff00
  69.     dc.w COLOR1,$088
  70.     dc.w $e401,$ff00
  71.     dc.w COLOR1,$066
  72.     dc.w COLOR0,$400
  73.     dc.w $e501,$ff00
  74.     dc.w COLOR1,$044
  75.     dc.w COLOR0,$600
  76.     dc.w $e601,$ff00
  77.     dc.w COLOR1,$022
  78.     dc.w COLOR0,$800
  79.     dc.w $e701,$ff00
  80.     dc.w COLOR1,$022
  81.     dc.w COLOR0,$f00
  82.     dc.w $e801,$ff00
  83.     dc.w COLOR1,$032
  84.     dc.w COLOR0,$800
  85.     dc.w $e901,$ff00
  86.     dc.w COLOR1,$054
  87.     dc.w COLOR0,$600
  88.     dc.w $ea01,$ff00
  89.     dc.w COLOR1,$074
  90.     dc.w COLOR0,$400
  91.     dc.w $eb01,$ff00
  92.     dc.w COLOR1,$086
  93.     dc.w COLOR0,$200
  94.     dc.w $ec01,$ff00
  95.     dc.w COLOR1,$0a8
  96.     dc.w COLOR0,$000
  97.     dc.w $ed01,$ff00
  98.     dc.w COLOR1,$0ca
  99.     dc.w $ee01,$ff00
  100.     dc.w COLOR1,$0dc
  101.     dc.w $ef01,$ff00
  102.     dc.w COLOR1,$0fe
  103.  
  104.     dc.w $ff01,$ff00
  105.     dc.w $9c,$8010        * Interrupt *
  106.     dc.l COPPER_HALT