iigs-game-engine/src/Actions.s

MoveLeft
                     clc
                     adc       StartX               ; Increment the virtual X-position
                     jsr       SetBG0XPos

                     lda       StartX
                     lsr
                     jsr       SetBG1XPos

                     jsr       DoFrame
                     rts

MoveRight
                     pha
                     lda       StartX
                     sec
                     sbc       1,s
                     bpl       *+5
                     lda       #0
                     jsr       SetBG0XPos

                     lda       StartX
                     lsr
                     jsr       SetBG1XPos

                     jsr       DoFrame
                     pla
                     rts

MoveUp
                     clc
                     adc       StartY               ; Increment the virtual Y-position
                     jsr       SetBG0YPos

                     lda       StartY
                     lsr
                     jsr       SetBG1YPos

                     jsr       DoFrame
                     rts

MoveDown
                     pha
                     lda       StartY
                     sec
                     sbc       1,s
                     bpl       *+5
                     lda       #0
                     jsr       SetBG0YPos

                     lda       StartY
                     lsr
                     jsr       SetBG1YPos

                     jsr       DoFrame
                     pla
                     rts

; Very simple, scroll as fast as possible
oldOneSecondCounter  ds        2
frameCount           ds        2
lastTick             ds        2
Demo
                     lda       OneSecondCounter
                     sta       oldOneSecondCounter
                     stz       frameCount

:loop
                     PushLong  #0
                     _GetTick
                     pla
                     plx

                     cmp       lastTick             ; Throttle to 60 fps
                     beq       :loop
                     sta       lastTick

                     and       #$003C               ; An 4-step animation that fires every 16 ticks
                     lsr
                     sta       BG1OffsetIndex       ; Set the value

                     lda       #1
                     jsr       MoveLeft
                     jsr       DoFrame

                     inc       frameCount

                     ldal      KBD_STROBE_REG
                     bit       #$0080
                     beq       :nokey
                     and       #$007F
                     cmp       #'s'
                     bne       :nokey

                     rts

:nokey
                     lda       OneSecondCounter
                     cmp       oldOneSecondCounter
                     beq       :loop

                     sta       oldOneSecondCounter
                     lda       ScreenWidth
                     cmp       #150
                     bcs       :loop

                     lda       #FPSStr
                     ldx       #0                   ; top-left corner
                     ldy       #$7777
                     jsr       DrawString

                     lda       frameCount
                     ldx       #4*4
                     jsr       DrawWord

                     stz       frameCount
                     bra       :loop

FPSStr               str       'FPS'
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`MoveLeft`
			`clc`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`adc StartX ; Increment the virtual X-position`
			`jsr SetBG0XPos`
Sorted out BG1 edge artifacts 2021-07-16 22:05:29 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`lda StartX`
Sorted out BG1 edge artifacts 2021-07-16 22:05:29 +00:00			`lsr`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`jsr SetBG1XPos`
Sorted out BG1 edge artifacts 2021-07-16 22:05:29 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`jsr DoFrame`
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`rts`

			`MoveRight`
			`pha`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`lda StartX`
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`sec`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`sbc 1,s`
			`bpl *+5`
			`lda #0`
			`jsr SetBG0XPos`
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`lda StartX`
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00			`lsr`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`jsr SetBG1XPos`
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`jsr DoFrame`
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`pla`
			`rts`

Add proper handling of wraparound in vertical positioning 2021-07-18 02:00:46 +00:00			`MoveUp`
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`clc`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`adc StartY ; Increment the virtual Y-position`
			`jsr SetBG0YPos`
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`lda StartY`
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00			`lsr`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`jsr SetBG1YPos`
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`jsr DoFrame`
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`rts`

Add proper handling of wraparound in vertical positioning 2021-07-18 02:00:46 +00:00			`MoveDown`
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`pha`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`lda StartY`
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`sec`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`sbc 1,s`
			`bpl *+5`
			`lda #0`
			`jsr SetBG0YPos`
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`lda StartY`
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00			`lsr`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`jsr SetBG1YPos`
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`jsr DoFrame`
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`pla`
			`rts`

			`; Very simple, scroll as fast as possible`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`oldOneSecondCounter ds 2`
			`frameCount ds 2`
			`lastTick ds 2`
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`Demo`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`lda OneSecondCounter`
			`sta oldOneSecondCounter`
			`stz frameCount`
Get the PEI Slammer working for exposing shadowed writes 2021-07-20 03:42:51 +00:00
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`:loop`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`PushLong #0`
			`_GetTick`
			`pla`
			`plx`
Get the PEI Slammer working for exposing shadowed writes 2021-07-20 03:42:51 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`cmp lastTick ; Throttle to 60 fps`
			`beq :loop`
			`sta lastTick`
Add a simple benchmark 2021-07-12 05:16:18 +00:00
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`and #$003C ; An 4-step animation that fires every 16 ticks`
			`lsr`
			`sta BG1OffsetIndex ; Set the value`

			`lda #1`
			`jsr MoveLeft`
			`jsr DoFrame`

			`inc frameCount`

			`ldal KBD_STROBE_REG`
			`bit #$0080`
			`beq :nokey`
			`and #$007F`
			`cmp #'s'`
			`bne :nokey`
Get the PEI Slammer working for exposing shadowed writes 2021-07-20 03:42:51 +00:00
Add a simple benchmark 2021-07-12 05:16:18 +00:00			`rts`

			`:nokey`
Add horizontal BG1 offset support; frame lock demo to 60 fps 2021-07-20 05:02:20 +00:00			`lda OneSecondCounter`
			`cmp oldOneSecondCounter`
			`beq :loop`

			`sta oldOneSecondCounter`
			`lda ScreenWidth`
			`cmp #150`
			`bcs :loop`

			`lda #FPSStr`
			`ldx #0 ; top-left corner`
			`ldy #$7777`
			`jsr DrawString`

			`lda frameCount`
			`ldx #4*4`
			`jsr DrawWord`

			`stz frameCount`
			`bra :loop`

			`FPSStr str 'FPS'`









Add a simple benchmark 2021-07-12 05:16:18 +00:00




Resolve horizontal scrolling issue with PEA code 2021-07-16 02:00:35 +00:00

Sorted out BG1 edge artifacts 2021-07-16 22:05:29 +00:00
First implementation of BG0/BG1 mixed exception handling 2021-07-17 04:09:08 +00:00




Add proper handling of wraparound in vertical positioning 2021-07-18 02:00:46 +00:00
Tweak file loading functions 2021-07-18 13:59:19 +00:00
Get the PEI Slammer working for exposing shadowed writes 2021-07-20 03:42:51 +00:00