mirror of
https://frontier.innolan.net/github/AmigaExamples.git
synced 2025-11-22 17:16:19 +00:00
A few incorrect dbra counters
This commit is contained in:
@ -21,15 +21,6 @@ entry:
|
||||
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
|
||||
.loop:
|
||||
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)
|
||||
@ -69,20 +60,6 @@ entry:
|
||||
bsr.s waitRaster
|
||||
bra.s .mainLoop
|
||||
|
||||
if 0
|
||||
resetBitplanePointers:
|
||||
movem.l d0-a6,-(sp)
|
||||
lea bitplanes,a1
|
||||
lea BPL1PTH(a6),a2
|
||||
moveq #SCREEN_BIT_DEPTH,d0
|
||||
.bitplaneloop:
|
||||
move.l a1,(a2)
|
||||
lea SCREEN_WIDTH_BYTES(a1),a1 ; bit plane data is interleaved
|
||||
addq #4,a2
|
||||
dbra d0,.bitplaneloop
|
||||
movem.l (sp)+,d0-a6
|
||||
rts
|
||||
endif
|
||||
|
||||
waitRaster: ;wait for rasterline d0.w. Modifies d0-d2/a0.
|
||||
move.l #$1ff00,d2
|
||||
|
||||
Reference in New Issue
Block a user