Commodore Amiga A2000 - Page 118

;
MOVE.L #$20000,COP1LC(a0)
;
; Fill bit-plane with $FFFFFFFF.
;
MOVE.L #$21000,a1 ; Point A1 at bit-plane
MOVE.W #l999,d0 ; 2000-1(for dbf) long words = 8000 bytes
FLOOP
MOVE.L #$FFFFFFFF,(al)+ ; Move a long word of $FFFFFFFF
DBF d0,FLOOP ; Decrement, repeat until false.
;
; Start DMA.
;
MOVE.W d0,COPJMP1(a0) ; Force load into Copper
; program counter
MOVE.W #$83A0,DMACON(a0) ; Bit-plane, Copper, and sprite DMA
RTS ; ..return to rest of program
;
; This is a Copper list for one bit-plane, and 8 sprites.
; The bit-plane lives at $21000.
; Sprite 0 lives at $25000; all others live at $30000 (the dummy sprite).
;
COPPERL:
DC.W BPL1PTH,$0002 ; Bit plane 1 pointer = $21000
DC.W BPL1PTL,$1000
DC.W SPR0PTH,$0002 ; Sprite 0 pointer = $25000
DC.W SPR0PTL,$5000
DC.W SPR1PTH,$0003 ; Sprite 1 pointer = $30000
DC.W SPR1PTL,$0000
DC.W SPR2PTH,$0003 ; Sprite 2 pointer = $30000
DC.W SPR2PTL,$0000
DC.W SPR3PTH,$0003 ; Sprite 3 pointer = $30000
DC.W SPR3PTL,$0000
DC.W SPR4PTH,$0003 ; Sprite 4 pointerÑ$30000
DC.W SPR4PTL,$0000
DC.W SPR5PTH,$0003 ; Sprite 5 pointer = $30000
DC.W SPR5PTL,$0000
DC.W SPR6PTH,$0003 ; Sprite 6 pointer - S30000
DC.W SPR6PTL,$0000
DC.W SPR7PTH,$0003 ; Sprite 7 pointer = $30000
DC.W SPR7PTL,$0000
DC.W $FFFF,$FFFE ; End of Copper list
;
; Sprite data for spaceship sprite. It appears on the screen at V-65 and
; H-128.
;
SPRITE:
DC.W $6D60,$7200 ; VSTART, HSTART, VSTOP
DC.W $0990,$07E0 ; First pair of descriptor words
DC.W $13C8,$0FF0
DC.W $23C4,$1FF8
DC.W $13C8,$0FF0
DC.W $0990,$07E0
DC.W $0000,$0000 ; End of sprite data
- Sprite Hardware 109 -