40 lines
636 B
ArmAsm
40 lines
636 B
ArmAsm
include "../include/registers.i"
|
|
include "hardware/dmabits.i"
|
|
include "hardware/intbits.i"
|
|
|
|
include "constants.i"
|
|
|
|
entry:
|
|
lea CUSTOM,a6
|
|
bsr init
|
|
|
|
.mainLoop:
|
|
bsr waitVerticalBlank
|
|
bra .mainLoop
|
|
|
|
include "init.s"
|
|
include "utils.s"
|
|
|
|
|
|
copper:
|
|
;; 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.w $180,$000
|
|
|
|
include "out/image-sham-copper.s"
|
|
|
|
dc.l $fffffffe
|
|
|
|
bitplanes:
|
|
incbin "out/image-sham.bin" |