github/AmigaExamples
1
0
Fork 0
mirror of https://frontier.innolan.net/github/AmigaExamples.git synced 2026-09-13 07:13:36 +00:00
Code Releases Activity

Fixed anim_blit to it moves full width of screen

Browse Source
This commit is contained in:
alpine9000
2016-03-04 18:29:17 +11:00
parent 19b6bcb279
commit 966c52f321
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
009.anim_blit/anim_blit.s
+4 -4
View File
@@ -8,17 +8,17 @@ entry:
lea CUSTOM,a6
bsr init
moveq #32,d0 ; starting x position for the blitter object
moveq #32,d1 ; starting y position for the blitter object
moveq #0,d0 ; starting x position for the blitter object
moveq #0,d1 ; starting y position for the blitter object
lea bitplanes(pc),a0
lea emoji,a1
lea emojiMask,a2
.mainLoop:
bsr.s waitvbl
bsr.s blitObject64 ; blit 64 pixel object (x=d0,y=d1,background=a0,object=a1,mask=a2)
addq #1,d0 ; move the blitter object one pixel to the left
addq #1,d1 ; move the blitter object one pixel down
cmp.l #SCREEN_WIDTH-BLIT_BOB_WIDTH64,d0 ; check if we need to wrap the x
bsr.s blitObject64 ; blit 64 pixel object (x=d0,y=d1,background=a0,object=a1,mask=a2)
cmp.l #SCREEN_WIDTH-BLIT_BOB_WIDTH64+16,d0 ; check if we need to wrap the x
bne.s .skip
moveq #0,d0 ; wrap x back to zero
.skip:
009.anim_blit/bin/anim_blit.adf
BIN
View File
Binary file not shown.