Apple-2gs-SW/iigs-game-engine
1
0
Fork 0
mirror of https://github.com/lscharen/iigs-game-engine.git synced 2024-11-18 15:07:24 +00:00
Code Issues Projects Releases Wiki Activity
0cc28f9e6e
iigs-game-engine/demos/sprites/App.Main.s

605 lines
18 KiB
ArmAsm
Raw Normal View History

Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
; Test driver to exercise graphics routines.
REL
DSK MAINSEG
use Locator.Macs.s
use Misc.Macs.s
use EDS.GSOS.MACS.s
use Tool222.Macs.s
use Util.Macs.s
use CORE.MACS.s
use ../../src/GTE.s
use ../../src/Defs.s
mx %00
; Feature flags
NO_INTERRUPTS equ 0 ; turn off for crossrunner debugging
NO_MUSIC equ 1 ; turn music + tool loading off
; Keycodes
LEFT_ARROW equ $08
RIGHT_ARROW equ $15
UP_ARROW equ $0B
DOWN_ARROW equ $0A
; Typical init
phk
plb
jsl EngineStartUp
Remove BG1 code to simplify the test harness
2021-10-13 22:45:25 +00:00
lda #^MyPalette ; Fill Palette #0 with our colors
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
ldx #MyPalette
ldy #0
jsl SetPalette
Sync up with current WIP
2021-11-15 18:23:38 +00:00
ldx #5 ; Mode 0 is full-screen, mode 5 is 256x160
Checkpoint on dynamic tile blitters
2021-11-18 21:36:36 +00:00
ldx #320
ldy #144
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
jsl SetScreenMode
; Set up our level data
jsr BG0SetUp
Checkpoint on dynamic tile blitters
2021-11-18 21:36:36 +00:00
jsr TileAnimInit
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
jsr SetLimits
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
jsr InitOverlay ; Initialize the status bar
stz frameCount
ldal OneSecondCounter
sta oldOneSecondCounter
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
jsr UdtOverlay
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
Sync up with current WIP
2021-11-15 18:23:38 +00:00
; Allocate a buffer for loading files
jsl AllocBank ; Alloc 64KB for Load/Unpack
sta BankLoad ; Store "Bank Pointer"
; Load in the 256 color background into BG1 buffer
DoLoadBG1
lda BankLoad
ldx #BG1DataFile
jsr LoadFile
ldx BankLoad
lda #0
ldy BG1DataBank
jsl CopyPicToBG1
; Copy the palettes into place
stz tmp0
:ploop
lda tmp0
tay
asl
asl
asl
asl
asl
clc
adc #$7E00
tax
lda BankLoad
jsl SetPalette
inc tmp0
lda tmp0
cmp #16
bcc :ploop
; Bind the SCBs
lda BankLoad
ora #$8000 ; set high bit to bind to BG1 Y-position
ldx #$7D00
jsl SetSCBArray
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
; Initialize the sprite's global position (this is tracked outside of the tile engine)
lda #16
sta PlayerGlobalX
lda MaxGlobalY
sec
lda #40 ; 32 for tiles, 8 for sprite
sta PlayerGlobalY
stz PlayerXVel
stz PlayerYVel
; Add a sprite to the engine and save it's sprite ID
jsr UpdatePlayerLocal
Initial shell of generalize sprite size support; just for marking the dirty tiles
2021-11-11 23:06:38 +00:00
lda #$1800+145 ; 16x16 sprite, tile ID = 64
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
ldx PlayerX
ldy PlayerY
jsl AddSprite
bcc :sprite_ok
brl Exit ; If we could not allocate a sprite, exit
:sprite_ok
Sync up with current WIP
2021-11-15 18:23:38 +00:00
; sta PlayerID
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
; Draw the initial screen
Pull the sprite plane banks into the test build
2021-10-21 13:46:26 +00:00
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
lda #DIRTY_BIT_BG0_REFRESH ; Redraw all of the tiles on the next Render
tsb DirtyBits
jsl Render
Fix several incorrect uses of internal API; work toward functional demo
2021-10-22 05:56:12 +00:00
WIP: manual sprite rendering showing on screen
2021-10-29 02:41:01 +00:00
; Set up a very specific test. First, we draw a sprite into the sprite plane, and then
; leave it alone. We are just testing the ability to merge sprite plane data into
; the play field tiles.
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
EvtLoop
Add single-step and free-run controls to test harness
2021-10-29 16:12:58 +00:00
jsl ReadControl
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
; Check the buttons first
pha
bit #$0100
beq :no_jump
lda PlayerStanding
beq :no_jump
lda #$FFF8
sta PlayerYVel
:no_jump
Add VSYNC toggle
2021-11-12 17:27:43 +00:00
; Enable/disable v-sync
lda 1,s
bit #$0400
beq :no_key_down
and #$007F
cmp #'v'
bne :not_v
lda #$0001
eor vsync
sta vsync
:not_v
:no_key_down
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
pla
Add single-step and free-run controls to test harness
2021-10-29 16:12:58 +00:00
and #$007F ; Ignore the buttons for now
cmp #'q'
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
bne :not_q
Add single-step and free-run controls to test harness
2021-10-29 16:12:58 +00:00
brl Exit
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
:not_q
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
cmp #'d'
bne :not_d
lda StartX
cmp MaxBG0X
bcs :do_render
inc
jsl SetBG0XPos
bra :do_render
:not_d
cmp #'a'
bne :not_a
lda StartX
beq :do_render
dec
jsl SetBG0XPos
bra :do_render
:not_a
cmp #'s'
bne :not_s
lda StartY
cmp MaxBG0Y
bcs :do_render
inc
jsl SetBG0YPos
bra :do_render
:not_s
cmp #'w'
bne :not_w
lda StartY
beq :do_render
dec
jsl SetBG0YPos
bra :do_render
:not_w
; Do j,l to move the character left/right
cmp #'j'
bne :not_j
lda PlayerXVel
bpl :pos_xvel
cmp #$FFFA
bcc :not_j
:pos_xvel dec
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
dec
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
sta PlayerXVel
bra :do_render
:not_j
cmp #'l'
bne :not_l
lda PlayerXVel
bmi :neg_xvel
cmp #6
bcs :not_l
:neg_xvel inc
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
inc
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
sta PlayerXVel
bra :do_render
:not_l
Add VSYNC toggle
2021-11-12 17:27:43 +00:00
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
; Update the camera position
:do_render
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
jsr UpdatePlayerPos ; Moves in global cordinates
jsr UpdateCameraPos ; Moves the screen
jsr UpdatePlayerLocal ; Gets local sprite coordinates
Reference sprite updates that do not leave trails
2021-10-29 05:17:23 +00:00
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
lda PlayerID
ldx PlayerX
ldy PlayerY
jsl UpdateSprite ; Move the sprite to this local position
WIP: manual sprite rendering showing on screen
2021-10-29 02:41:01 +00:00
Checkpoint on dynamic tile blitters
2021-11-18 21:36:36 +00:00
; Update the timers
jsl DoTimers
WIP: manual sprite rendering showing on screen
2021-10-29 02:41:01 +00:00
; Let's see what it looks like!
Checkpoint on dynamic tile blitters
2021-11-18 21:36:36 +00:00
Add VSYNC toggle
2021-11-12 17:27:43 +00:00
lda vsync
beq :no_vsync
:vsyncloop jsl GetVerticalCounter ; 8-bit value
cmp ScreenY0
bcc :vsyncloop
sec
sbc ScreenY0
cmp #8
bcs :vsyncloop
lda #1
jsl SetBorderColor
:no_vsync
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
jsl Render
Add VSYNC toggle
2021-11-12 17:27:43 +00:00
lda vsync
beq :no_vsync2
lda #0
jsl SetBorderColor
:no_vsync2
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
; Update the performance counters
inc frameCount
ldal OneSecondCounter
cmp oldOneSecondCounter
beq :noudt
sta oldOneSecondCounter
jsr UdtOverlay
stz frameCount
:noudt
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
brl EvtLoop
; Exit code
Exit
jsl EngineShutDown
_QuitGS qtRec
bcs Fatal
Fatal brk $00
Checkpoint on dynamic tile blitters
2021-11-18 21:36:36 +00:00
BG1DataFile strl '1/sunset.c1'
Sync up with current WIP
2021-11-15 18:23:38 +00:00
; Color palette
; MyPalette dw $068F,$0EDA,$0000,$0E51,$0BF1,$00A0,$0EEE,$0456,$0FA4,$0F59,$0E30,$01CE,$02E3,$0870,$0F93,$0FD7
; B&W Palette
MyPalette dw $0000,$0EDA,$0000,$0E51,$0BF1,$00A0,$0EEE,$0456,$0FA4,$0F59,$0E30,$01CE,$02E3,$0870,$0F93,$0FFF
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
PlayerGlobalX ds 2
PlayerGlobalY ds 2
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
WIP: manual sprite rendering showing on screen
2021-10-29 02:41:01 +00:00
PlayerID ds 2
PlayerX ds 2
First pass at validating erasing the sprite on update
2021-10-29 03:19:18 +00:00
PlayerXOld ds 2
WIP: manual sprite rendering showing on screen
2021-10-29 02:41:01 +00:00
PlayerY ds 2
Make the test sprite movement a bit more interesting This results in trails being left on-screen and crashed after a period of time. The emulator shows writes going to the bank 01 I/O space ($01/$Cxxx) and there are occational garbage words written to the screen.
2021-10-29 05:52:54 +00:00
PlayerYOld ds 2
First pass at validating erasing the sprite on update
2021-10-29 03:19:18 +00:00
PlayerLastPos ds 2
Make the test sprite movement a bit more interesting This results in trails being left on-screen and crashed after a period of time. The emulator shows writes going to the bank 01 I/O space ($01/$Cxxx) and there are occational garbage words written to the screen.
2021-10-29 05:52:54 +00:00
PlayerXVel ds 2
PlayerYVel ds 2
Add single-step and free-run controls to test harness
2021-10-29 16:12:58 +00:00
KeyState ds 2
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
PlayerStanding ds 2
MaxGlobalX ds 2
MaxGlobalY ds 2
MaxBG0X ds 2
MaxBG0Y ds 2
Make the test sprite movement a bit more interesting This results in trails being left on-screen and crashed after a period of time. The emulator shows writes going to the bank 01 I/O space ($01/$Cxxx) and there are occational garbage words written to the screen.
2021-10-29 05:52:54 +00:00
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
oldOneSecondCounter ds 2
frameCount ds 2
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
PLAYER_X_MIN equ 0
PLAYER_X_MAX equ 160-4
PLAYER_Y_MIN equ 0
PLAYER_Y_MAX equ 200-8
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
Switch to the 256x128 tileset image
2021-11-03 03:01:31 +00:00
EMPTY_TILE equ 33 ; the tile that makes up the background
Make the test sprite movement a bit more interesting This results in trails being left on-screen and crashed after a period of time. The emulator shows writes going to the bank 01 I/O space ($01/$Cxxx) and there are occational garbage words written to the screen.
2021-10-29 05:52:54 +00:00
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
AdjustLocalX
clc
adc StartXMod164
cmp #164
bcc *+5
sbc #164
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
rts
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
AdjustLocalY
Make the test sprite movement a bit more interesting This results in trails being left on-screen and crashed after a period of time. The emulator shows writes going to the bank 01 I/O space ($01/$Cxxx) and there are occational garbage words written to the screen.
2021-10-29 05:52:54 +00:00
clc
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
adc StartYMod208
cmp #208
bcc *+5
sbc #208
Make the test sprite movement a bit more interesting This results in trails being left on-screen and crashed after a period of time. The emulator shows writes going to the bank 01 I/O space ($01/$Cxxx) and there are occational garbage words written to the screen.
2021-10-29 05:52:54 +00:00
rts
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
SetLimits
lda TileMapWidth
asl
asl
sta MaxGlobalX
sec
sbc ScreenWidth
sta MaxBG0X
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
lda TileMapHeight
asl
asl
asl
sta MaxGlobalY
sec
sbc ScreenHeight
sta MaxBG0Y
rts
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
; Set the scroll position based on the global cooridinate of the player
; Try to center the player on the screen
UpdateCameraPos
lda ScreenWidth
lsr
sta tmp0
lda PlayerGlobalX
sec
sbc tmp0
bpl :x_pos
lda #0
:x_pos cmp MaxBG0X
bcc :x_ok
lda MaxBG0X
:x_ok jsl SetBG0XPos
lda ScreenHeight
lsr
sta tmp0
lda PlayerGlobalY
sec
sbc tmp0
bpl :y_pos
lda #0
:y_pos cmp MaxBG0Y
bcc :y_ok
lda MaxBG0Y
:y_ok jsl SetBG0YPos
Sync up with current WIP
2021-11-15 18:23:38 +00:00
lda StartY
lsr
jsl SetBG1YPos
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
rts
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
; Convert the global coordinates to adjusted local coordinated (compensating for wrap-around)
UpdatePlayerLocal
lda PlayerGlobalX
sec
sbc StartX
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
; jsr AdjustLocalX
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
sta PlayerX
lda PlayerGlobalY
sec
sbc StartY
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
; jsr AdjustLocalY
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
sta PlayerY
rts
; Simple updates with gravity and collisions. It's important that eveything in this
; subroutine be done against
UpdatePlayerPos
stz PlayerStanding
lda PlayerYVel
bmi :no_ground_check
; Check if the player is standing on the ground at their current local position
ldx PlayerX
lda PlayerY
clc
Initial shell of generalize sprite size support; just for marking the dirty tiles
2021-11-11 23:06:38 +00:00
adc #16
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
tay
jsr GetTileAt
Sync up with current WIP
2021-11-15 18:23:38 +00:00
and #$1FF
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
cmp #EMPTY_TILE
beq :no_ground_check
lda PlayerGlobalY
and #$fff8
sta PlayerGlobalY
stz PlayerYVel
lda #1
sta PlayerStanding
:no_ground_check
lda PlayerGlobalY
clc
adc PlayerYVel
bpl *+5
lda #0
cmp MaxGlobalY
bcc *+5
lda MaxGlobalY
sta PlayerGlobalY
lda PlayerGlobalX
clc
adc PlayerXVel
bpl *+5
lda #0
cmp MaxGlobalX
bcc *+5
lda MaxGlobalX
sta PlayerGlobalX
lda PlayerXVel
beq :no_dxv
bpl :pos_dxv
inc
bra :no_dxv
:pos_dxv
dec
:no_dxv
sta PlayerXVel
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
lda PlayerStanding
bne :too_fast
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
lda PlayerYVel
inc
bmi :is_neg
cmp #4
bcs :too_fast
:is_neg
sta PlayerYVel
:too_fast
rts
; X = coordinate
; Y = coordinate
GetTileAt
txa
bmi :out
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
clc
adc StartXMod164
cmp #164
bcc *+5
sbc #164
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
lsr
lsr
tax
tya
bmi :out
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
clc
adc StartYMod208
cmp #208
bcc *+5
sbc #208
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
lsr
lsr
lsr
tay
Fully integration simple (8x8) sprites into the render pipeline
2021-11-02 04:36:53 +00:00
jsl GetTileStoreOffset
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
tax
ldal TileStore+TS_TILE_ID,x
rts
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
Switch to use Add/Update sprite and rely on Render to place sprites in frame
2021-10-31 20:44:03 +00:00
:out
lda #EMPTY_TILE
rts
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
; Position the screen with the botom-left corner of the tilemap visible
MovePlayerToOrigin
lda #0 ; Set the player's position
jsl SetBG0XPos
lda TileMapHeight
asl
asl
asl
sec
sbc ScreenHeight
jsl SetBG0YPos
rts
Sync up with current WIP
2021-11-15 18:23:38 +00:00
openRec dw 2 ; pCount
ds 2 ; refNum
adrl BG1DataFile ; pathname
eofRec dw 2 ; pCount
ds 2 ; refNum
ds 4 ; eof
readRec dw 4 ; pCount
ds 2 ; refNum
ds 4 ; dataBuffer
ds 4 ; requestCount
ds 4 ; transferCount
closeRec dw 1 ; pCount
ds 2 ; refNum
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
qtRec adrl $0000
da $00
Add VSYNC toggle
2021-11-12 17:27:43 +00:00
vsync dw $0000
Sync up with current WIP
2021-11-15 18:23:38 +00:00
LoadFile
stx openRec+4 ; X=File, A=Bank (high word) assumed zero for low
stz readRec+4
sta readRec+6
:openFile _OpenGS openRec
bcs :openReadErr
lda openRec+2
sta eofRec+2
sta readRec+2
_GetEOFGS eofRec
lda eofRec+4
sta readRec+8
lda eofRec+6
sta readRec+10
_ReadGS readRec
bcs :openReadErr
:closeFile _CloseGS closeRec
clc
lda eofRec+4 ; File Size
rts
:openReadErr jsr :closeFile
nop
nop
PushWord #0
PushLong #msgLine1
PushLong #msgLine2
PushLong #msgLine3
PushLong #msgLine4
_TLTextMountVolume
pla
cmp #1
bne :loadFileErr
brl :openFile
:loadFileErr sec
rts
msgLine1 str 'Unable to load File'
msgLine2 str 'Press a key :'
msgLine3 str ' -> Return to Try Again'
msgLine4 str ' -> Esc to Quit'
Small improvements to sprite prototype to fix dirty tiles getting out of sync
2021-10-31 00:24:23 +00:00
PUT ../shell/Overlay.s
Sample project to focus on sprite development
2021-10-13 20:13:52 +00:00
PUT gen/App.TileMapBG0.s
PUT gen/App.TileSetAnim.s
ANGLEBNK ENT
Reference in New Issue Copy Permalink