github/AmigaExamples
1
0
Fork 0
mirror of https://frontier.innolan.net/github/AmigaExamples.git synced 2026-09-12 03:01:47 +00:00
Code Releases Activity

One tile per frame

Browse Source
This commit is contained in:
alpine9000
2016-04-05 19:55:09 +10:00
parent 6bd68c712f
commit 8fbe7ddb79
2 changed files with 12 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
026.tile_hscroll/blit.s
+8 -11
View File
@@ -102,27 +102,24 @@ BlitScroll:
BlitTile:
;; a0 - dest bitplane pointer
;; a1 - source bitplane pointer
;; d2 - y destination in pixels
;; d2 - y tile index
WaitBlitter
movem.l d2,-(sp)
move.w #0,BLTCON1(a6) ;
move.w #BC0F_SRCA|BC0F_DEST|$f0,BLTCON0(a6)
move.w #BITPLANE_WIDTH_BYTES-2,BLTAMOD(a6)
move.w #BITPLANE_WIDTH_BYTES-2,BLTDMOD(a6) ;
mulu.w #BITPLANE_WIDTH_BYTES*SCREEN_BIT_DEPTH*16,d2
add.l d2,a0
add.l d2,a1
move.l a1,BLTAPTH(a6) ; source
move.l a0,BLTDPTH(a6) ; dest
move.w #$ffff,BLTAFWM(a6)
move.w #$ffff,BLTALWM(a6)
move.w #((SCREEN_HEIGHT/2)*SCREEN_BIT_DEPTH)<<6|(1),BLTSIZE(a6) ;rectangle size, starts blit
WaitBlitter
add.l #BITPLANE_WIDTH_BYTES*(SCREEN_HEIGHT/2)*SCREEN_BIT_DEPTH,a0
add.l #BITPLANE_WIDTH_BYTES*(SCREEN_HEIGHT/2)*SCREEN_BIT_DEPTH,a1
move.l a1,BLTAPTH(a6) ; source
move.l a0,BLTDPTH(a6) ; dest
move.w #((SCREEN_HEIGHT/2)*SCREEN_BIT_DEPTH)<<6|(1),BLTSIZE(a6) ;rectangle size, starts blit
move.w #(16*SCREEN_BIT_DEPTH)<<6|(1),BLTSIZE(a6) ;rectangle size, starts blit
movem.l (sp)+,d2
rts
026.tile_hscroll/tile_hscroll.s
+4 -2
View File
@@ -36,8 +36,6 @@ MainLoop:
jsr HoriScrollPlayfield ; returns bitplane pointer offset in d0
jsr SwitchBuffers ; takes bitplane pointer offset in d0
add.l #1,d1
;; cmp.l #15,d2
;; bne .s1
.backfill:
move.l onscreen,a1
add.l d0,a1
@@ -51,6 +49,10 @@ MainLoop:
move.l a1,a0
add.l #BITPLANE_WIDTH_BYTES-2,a0
jsr BlitTile
cmp.l #15,d2
bne .s1
move.l #0,d2
bra .s2
.s1: