github/AmigaExamples
1
0
Fork 0
mirror of https://frontier.innolan.net/github/AmigaExamples.git synced 2025-11-23 22:23:04 +00:00
Code Releases Activity

Single pass main loop

Browse Source
This commit is contained in:
alpine9000
2016-03-31 16:19:37 +11:00
parent 4b7246dda3
commit 3b9ebf4ffa
1 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
025.scroll_text/scroll_text.s
View File

@ -38,40 +38,41 @@ Entry:
lea text,a3
MainLoop:
jsr WaitVerticalBlank
jsr InstallPalette
;; jsr InstallPalette
cmp.l #8,shiftcounter
bne .shift
.drawtext:
cmp.b #0,(a3)
bne .c1
bne .moreText
.wrapText:
lea text,a3
.c1:
.moreText:
move.b (a3)+,charbuffer
move.l #BITPLANE_WIDTH-16,d0 ; xpos
move.l #16,d1 ; ypos
move.l onscreen,a0
lea charbuffer,a1
jsr DrawText8
;; kills a0,d2,d3,d5,d5
;; a0 - bitplane
;; d0 - color#
;; d1 - height
;; d2 - ypos
move.l #8-1,d0
.loop:
move.l #0,shiftcounter
.shift:
move.l onscreen,a0
move.l #FONT_HEIGHT,d1
move.l #16,d2
jsr BlitScroll
jsr WaitVerticalBlank
dbra d0,.loop
add.l #1,shiftcounter
;; jsr GreyPalette
bra MainLoop
charbuffer:
dc.b 0
dc.b 0
shiftcounter:
dc.l 8
text:
dc.b "ABCDEFEGHIJLMNOPQRSTUVWXYZabcdefghijlklmnopqrstuvwxyz"
endText: