96 lines
1.8 KiB
ArmAsm
96 lines
1.8 KiB
ArmAsm
include "includes.i"
|
|
|
|
xref InstallColorPalette
|
|
;; xref PokeBitplanePointers ;; We don't need the ASM version of this for this example
|
|
xref copperList
|
|
xref copperListAlternate
|
|
xref bitplanes
|
|
|
|
Entry:
|
|
lea CUSTOM,a6
|
|
jsr Init
|
|
|
|
.mainLoop:
|
|
jsr WaitVerticalBlank
|
|
|
|
if INTERLACE==1
|
|
btst #VPOSRLOFBIT,VPOSR(a6)
|
|
beq.s .lof
|
|
lea copperListAlternate(pc),a0
|
|
move.l a0,COP1LC(a6)
|
|
bra .done
|
|
.lof:
|
|
lea copperList(pc),a0
|
|
move.l a0,COP1LC(a6)
|
|
.done
|
|
endif; INTERLACE==1
|
|
bra .mainLoop
|
|
|
|
;===========================================================
|
|
; We don't need the ASM version of this for this example
|
|
if 0
|
|
PokeBitplanePointers:
|
|
; d0 = frame offset in bytes;
|
|
; a0 = BPLP copper list address
|
|
movem.l d0-a6,-(sp)
|
|
lea bitplanes,a1
|
|
add.l d0,a1 ; Offset for odd/even frames
|
|
moveq #SCREEN_BIT_DEPTH-1,d0
|
|
.bitplaneloop:
|
|
move.l a1,d1
|
|
move.w d1,2(a0)
|
|
swap d1
|
|
move.w d1,6(a0)
|
|
lea SCREEN_WIDTH_BYTES(a1),a1
|
|
addq #8,a0
|
|
dbra d0,.bitplaneloop
|
|
movem.l (sp)+,d0-a6
|
|
rts
|
|
endif
|
|
;===========================================================
|
|
|
|
InstallColorPalette:
|
|
include "out/image-palette.s"
|
|
rts
|
|
|
|
if INTERLACE==1
|
|
copperListAlternate:
|
|
;; bitplane pointers must be first else poking addresses will be incorrect
|
|
dc.w BPL1PTL,0
|
|
dc.w BPL1PTH,0
|
|
dc.w BPL2PTL,0
|
|
dc.w BPL2PTH,0
|
|
dc.w BPL3PTL,0
|
|
dc.w BPL3PTH,0
|
|
dc.w BPL4PTL,0
|
|
dc.w BPL4PTH,0
|
|
dc.w BPL5PTL,0
|
|
dc.w BPL5PTH,0
|
|
dc.w BPL6PTL,0
|
|
dc.w BPL6PTH,0
|
|
dc.l $fffffffe
|
|
endif; INTERLACE==1
|
|
|
|
copperList:
|
|
;; bitplane pointers must be first else poking addresses will be incorrect
|
|
dc.w BPL1PTL,0
|
|
dc.w BPL1PTH,0
|
|
dc.w BPL2PTL,0
|
|
dc.w BPL2PTH,0
|
|
dc.w BPL3PTL,0
|
|
dc.w BPL3PTH,0
|
|
dc.w BPL4PTL,0
|
|
dc.w BPL4PTH,0
|
|
dc.w BPL5PTL,0
|
|
dc.w BPL5PTH,0
|
|
dc.w BPL6PTL,0
|
|
dc.w BPL6PTH,0
|
|
|
|
dc.l $fffffffe
|
|
|
|
bitplanes:
|
|
if HAM_MODE==1
|
|
incbin "out/image-ham.bin"
|
|
else
|
|
incbin "out/image.bin"
|
|
endif |