1
0
mirror of https://frontier.innolan.net/github/AmigaExamples.git synced 2025-11-22 22:19:37 +00:00

Support non copper list palettes

This commit is contained in:
alpine9000
2016-03-03 17:16:30 +11:00
parent 0be40aec53
commit 3f0d6a2568
9 changed files with 104 additions and 9 deletions

View File

@ -1,6 +1,6 @@
MODULE=blit.s
FLOPPY=bin/blit.adf
IMAGEDATA=out/image-copper-list.s out/image.bin
IMAGEDATA=out/image-palette.s out/image.bin
IMAGEFILE=../assets/mission-beach.png
TC_IMAGEDATA=out/tc.bin out/tc-mask.bin
TC_IMAGEFILE=../assets/tc.png
@ -14,7 +14,7 @@ $(SHARED_PALETTE): $(IMAGEFILE) $(TC_IMAGEFILE)
$(IMAGECON) --input $(IMAGEFILE),$(TC_IMAGEFILE) --output $(SHARED_PALETTE_BASE) --colors 32 --quantize --output-palette
$(IMAGEDATA): $(IMAGECON) $(IMAGEFILE) $(SHARED_PALETTE)
$(IMAGECON) --input $(IMAGEFILE) --output out/image --output-bitplanes --output-copperlist --use-palette $(SHARED_PALETTE)
$(IMAGECON) --input $(IMAGEFILE) --output out/image --output-bitplanes --output-palette-asm --use-palette $(SHARED_PALETTE)
$(TC_IMAGEDATA): $(IMAGECON) $(TC_IMAGEFILE) $(SHARED_PALETTE)
$(IMAGECON) --input $(TC_IMAGEFILE) --output out/tc --output-bitplanes --output-mask --output-copperlist --use-palette $(SHARED_PALETTE)
$(IMAGECON) --input $(TC_IMAGEFILE) --output out/tc --output-bitplanes --output-mask --use-palette $(SHARED_PALETTE)

View File

@ -3,6 +3,7 @@ perform a basic blit
We make some changes to [001.simple_image](../001.simple_image):
1. The bitplane pointers are now reset using the copper.
2. The palette is now installed once and removed from the copper list.
2. Interrupt processing is disabled.
3. A6 is now used as the global base register for CUSTOM.

Binary file not shown.

View File

@ -20,6 +20,8 @@ entry:
move #$7ff,DMACON(a6) ; disable all dma
move #$7fff,INTENA(a6) ; disable all interrupts
include "out/image-palette.s"
if 0
;; reset color registers to white to prevent startup flicker
move.l #32,d0
lea COLOR00(a6),a0
@ -27,6 +29,7 @@ entry:
move.w #$FFF,(a0)
addq #2,a0
dbra d0,.loop
endif
;; set up playfield
move.w #(RASTER_Y_START<<8)|RASTER_X_START,DIWSTRT(a6)
@ -132,8 +135,7 @@ copper:
dc.w BPL4PTH,0
dc.w BPL5PTL,0
dc.w BPL5PTH,0
include "out/image-copper-list.s"
dc.l $fffffffe
bitplanes: