github
/
AmigaExamples
mirror of https://frontier.innolan.net/github/AmigaExamples.git
1
0
Fork 0
Code Releases Activity

A few incorrect dbra counters

This commit is contained in:
alpine9000 2016-03-25 19:49:36 +11:00
parent 634bddd77f
commit b2a2214d9d
9 changed files with 4 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
001.simple_image/bin/image.adf
View File

Binary file not shown.

2
001.simple_image/image.s
View File

@ -35,7 +35,7 @@ level3InterruptHandler:
.resetBitplanePointers:
lea bitplanes(pc),a1
lea BPL1PTH(a5),a2
moveq #SCREEN_BIT_DEPTH,d0
moveq #SCREEN_BIT_DEPTH-1,d0
.bitplaneloop:
move.l a1,(a2)
lea SCREEN_WIDTH_BYTES(a1),a1 ; bit plane data is interleaved

BIN
003.music/bin/music.adf
View File

Binary file not shown.

2
003.music/music.s
View File

@ -47,7 +47,7 @@ level3InterruptHandler:
.resetBitplanePointers:
lea bitplanes(pc),a1
lea BPL1PTH(a5),a2
moveq #SCREEN_BIT_DEPTH,d0
moveq #SCREEN_BIT_DEPTH-1,d0
.bitplaneloop:
move.l a1,(a2)
lea SCREEN_WIDTH_BYTES(a1),a1 ; bit plane data is interleaved

23
006.simple_blit/blit.s
View File

@ -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

9
007.masked_blit/masked_blit.s
View File

@ -29,15 +29,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)

9
008.shift_blit/shift_blit.s
View File

@ -30,15 +30,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)

BIN
023.slideshow/bin/slideshow.adf
View File

Binary file not shown.

4
023.slideshow/slideshow.s
View File

@ -38,7 +38,7 @@ Entry:
move.w #(INTF_SETCLR|INTF_VERTB|INTF_INTEN),INTENA(a6)
lea bitplanes2,a0
move.l #IMAGESIZE/4,d0
move.l #(IMAGESIZE/4)-1,d0
.clear:
move.l #0,(a0)+
dbra d0,.clear
@ -51,7 +51,7 @@ Entry:
jsr Init ; enable the playfield
move.l #50*10,d0
move.l #(50*10)-1,d0
.loop:
jsr WaitVerticalBlank
dbra d0,.loop