iigs-game-engine/demos/zelda/App.Main.s

608 lines
17 KiB
ArmAsm
Raw Normal View History

; Test driver to exercise graphics routines.
REL
DSK MAINSEG
use Locator.Macs
use Load.Macs
use Mem.Macs
use Misc.Macs
use Tool222.Macs.s
use Util.Macs
use EDS.GSOS.Macs
use GTE.Macs
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
StartX equ 4
StartY equ 6
2022-07-22 03:56:32 +00:00
tmp0 equ 8
TSet EXT
; Typical init
phk
plb
stz StartX
stz StartY
2022-07-06 17:50:52 +00:00
sta MyUserId ; GS/OS passes the memory manager user ID for the application into the program
_MTStartUp ; GTE requires the miscellaneous toolset to be running
jsr GTEStartUp ; Load and install the GTE User Tool
; Load a tileset
pea #^TSet
pea #TSet
_GTELoadTileSet
pea $0000
pea #^MyPalette
pea #MyPalette
_GTESetPalette
pea #256
pea #176
_GTESetScreenMode
; Set up our level data
jsr BG0SetUp
; Initialize the sprite's global position (this is tracked outside of the tile engine)
2022-02-21 16:29:57 +00:00
lda #64
sta PlayerX
sta PlayerY
stz MapScreenX
stz MapScreenY
2022-02-21 16:29:57 +00:00
; Add a sprite to the engine and save its sprite
HERO_DOWN_ID equ {SPRITE_16X16+1}
HERO_DOWN_VBUFF equ VBUFF_SPRITE_START+0*VBUFF_SPRITE_STEP
HERO_SIDE_ID equ {SPRITE_16X16+5}
HERO_SIDE_VBUFF equ VBUFF_SPRITE_START+1*VBUFF_SPRITE_STEP
HERO_UP_ID equ {SPRITE_16X16+9}
HERO_UP_VBUFF equ VBUFF_SPRITE_START+2*VBUFF_SPRITE_STEP
HERO_SLOT equ 0
OKTOROK_ID equ {SPRITE_16X16+79}
OKTOROK_VBUFF equ VBUFF_SPRITE_START+3*VBUFF_SPRITE_STEP
OKTOROK_SLOT_1 equ 1
OKTOROK_SLOT_2 equ 2
OKTOROK_SLOT_3 equ 3
OKTOROK_SLOT_4 equ 4
; Create the sprite stamps for this scene
pea HERO_DOWN_ID ; sprint id
pea HERO_DOWN_VBUFF ; vbuff address
_GTECreateSpriteStamp
pea HERO_SIDE_ID ; sprint id
pea HERO_SIDE_VBUFF ; vbuff address
_GTECreateSpriteStamp
pea HERO_UP_ID ; sprint id
pea HERO_UP_VBUFF ; vbuff address
_GTECreateSpriteStamp
pea OKTOROK_ID ; sprint id
pea OKTOROK_VBUFF ; vbuff address
_GTECreateSpriteStamp
pea HERO_DOWN_ID
lda PlayerX
pha
lda PlayerY
pha
2022-07-06 17:50:52 +00:00
pea HERO_SLOT
_GTEAddSprite
2022-07-06 17:50:52 +00:00
pea HERO_SLOT
pea $0000 ; with these flags (h/v flip)
pea HERO_DOWN_VBUFF ; and use this stamp
_GTEUpdateSprite
2022-07-22 03:56:32 +00:00
; Add 4 octoroks
ldx #0
:oktorok_loop
phx ; save the index
txa ; calculate the SLOT ID
lsr
inc
tay
; _GTEUpdateSprite parameters
phy
pea $0000 ; with these flags (h/v flip)
pea OKTOROK_VBUFF ; and use this stamp
; _GTEAddSprite parameters
pea OKTOROK_ID
2022-07-22 03:56:32 +00:00
lda OktorokX,x
pha
2022-07-22 03:56:32 +00:00
lda OktorokY,x
pha
2022-07-22 03:56:32 +00:00
phy
_GTEAddSprite
_GTEUpdateSprite
2022-07-06 17:50:52 +00:00
2022-07-22 03:56:32 +00:00
plx
dex
dex
bpl :oktorok_loop
; Draw the initial screen
2022-07-22 03:56:32 +00:00
pea $0000
_GTERender
2022-02-19 02:43:55 +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.
EvtLoop
2022-07-22 03:56:32 +00:00
lda #2
jsr _SetBorderColor
pha
_GTEReadControl
pla
; Check the buttons first
pha
bit #$0100
beq :no_sword
:no_sword
; Enable/disable v-sync
lda 1,s
2022-07-06 17:50:52 +00:00
bit #PAD_KEY_DOWN
beq :no_key_down
and #$007F
cmp #'v'
bne :not_v
lda #$0001
eor vsync
sta vsync
:not_v
:no_key_down
pla
and #$007F ; Ignore the buttons for now
cmp #'q'
bne :not_q
brl Exit
:not_q
2022-02-21 16:29:57 +00:00
cmp #'d'
bne :not_d
inc PlayerX
lda PlayerX
cmp #128-8
bcc *+5
jsr TransitionRight
pea HERO_SLOT
pea $0000 ; no flags
pea HERO_SIDE_VBUFF ; and use this stamp
_GTEUpdateSprite
2022-07-22 03:56:32 +00:00
bra :do_render
:not_d
2022-07-22 03:56:32 +00:00
cmp #'a'
bne :not_a
dec PlayerX
bpl *+5
jsr TransitionLeft
pea HERO_SLOT
pea SPRITE_HFLIP
pea HERO_SIDE_VBUFF
_GTEUpdateSprite
2022-07-22 03:56:32 +00:00
bra :do_render
:not_a
2022-07-22 03:56:32 +00:00
cmp #'s'
bne :not_s
inc PlayerY
pea HERO_SLOT
pea $0000
pea HERO_DOWN_VBUFF
_GTEUpdateSprite
2022-07-22 03:56:32 +00:00
bra :do_render
:not_s
2022-07-22 03:56:32 +00:00
cmp #'w'
bne :not_w
dec PlayerY
pea HERO_SLOT
pea $0000
pea HERO_UP_VBUFF
_GTEUpdateSprite
2022-07-22 03:56:32 +00:00
bra :do_render
:not_w
:do_render
2022-07-22 03:56:32 +00:00
lda #3
jsr _SetBorderColor
pea HERO_SLOT
lda PlayerX
pha
lda PlayerY
pha
_GTEMoveSprite
; Based on the frame count, move an oktorok
2022-07-22 03:56:32 +00:00
jsr _GetVBLTicks
pha
2022-07-22 03:56:32 +00:00
; pha ; save the vbl value for a second
; and #$0003 ; pick which oktorok to move
lda #4
jsr _SetBorderColor
2022-07-22 03:56:32 +00:00
plx
phx
lda #0
jsr MoveEnemy
plx
phx
lda #1
; jsr MoveEnemy
2022-07-22 03:56:32 +00:00
plx
phx
lda #2
; jsr MoveEnemy
2022-07-22 03:56:32 +00:00
plx
lda #3
; jsr MoveEnemy
; Let's see what it looks like!
2022-07-22 03:56:32 +00:00
; lda vsync
; beq :no_vsync
;:vsyncloop jsr _GetVBL ; 8-bit value
; cmp #12
; bcc :vsyncloop
; cmp #16
; bcs :vsyncloop ; Wait until we're within the top 4 scanlines
lda #0
jsr _SetBorderColor
ldx #8
jsr _WaitForScanline
lda #1
jsr _SetBorderColor
:no_vsync
2022-07-22 03:56:32 +00:00
pea $0000
_GTERenderDirty
; brk $03
2022-07-22 03:56:32 +00:00
; lda vsync
; beq :no_vsync2
; lda #0
; jsr _SetBorderColor
:no_vsync2
brl EvtLoop
; Exit code
Exit
_GTEShutDown
_QuitGS qtRec
bcs Fatal
Fatal brk $00
TransitionRight
lda MapScreenX ; Only two screens
cmp #1
bcs :done
lda StartX ; Scroll 128 bytes to the right
clc
adc #128
sta TransitionX
2022-07-22 03:56:32 +00:00
jsr HideEnemies
:loop lda StartX
cmp TransitionX
bcs :out
clc
adc #4
sta StartX
pha
pei StartY
_GTESetBG0Origin
lda PlayerX
sec
sbc #4
bmi :nosprite
sta PlayerX
pea HERO_SLOT
lda PlayerX
pha
lda PlayerY
pha
_GTEMoveSprite
:nosprite
2022-07-22 03:56:32 +00:00
pea $0000
_GTERender ; Do full renders since the playfield is scrolling
bra :loop
:out
2022-07-22 03:56:32 +00:00
jsr ShowEnemies
inc MapScreenX ; Move the index to the next screen
:done
rts
TransitionLeft
lda MapScreenX
cmp #0
beq :done
2022-07-22 03:56:32 +00:00
jsr HideEnemies
lda StartX ; Scroll 128 bytes to the left
sec
sbc #128
sta TransitionX
:loop lda StartX
cmp TransitionX
beq :out
sec
sbc #4
sta StartX
pha
pei StartY
_GTESetBG0Origin
lda PlayerX
clc
adc #4
cmp #128-8+1
bcs :nosprite
sta PlayerX
pea HERO_SLOT
lda PlayerX
pha
lda PlayerY
pha
_GTEMoveSprite
:nosprite
2022-07-22 03:56:32 +00:00
pea $0000
_GTERender
bra :loop
:out
2022-07-22 03:56:32 +00:00
jsr ShowEnemies
dec MapScreenX ; Move the index to the next screen
:done
rts
2022-07-22 03:56:32 +00:00
; Move an oktorok. A = 0 - 3, X = animation frame
MoveEnemy
phx
tay
iny ; Oktoroks are in slots 1 - 4
asl
tax ; Update this oktorok
pla ; Pop the VBL value
and #$007C
lsr
phy ; push the SLOT ID
tay
lda OktorokX,x
clc
adc OktorokDelta,y
pha ; Push the X position
lda OktorokY,x
pha
_GTEMoveSprite
rts
; Set the hidden flag on the enemy sprites during the screen transition
HideEnemies
ldx #6
:loop
phx
txa
lsr
inc
pha
pea SPRITE_HIDE
pea OKTOROK_VBUFF
_GTEUpdateSprite
plx
dex
dex
bpl :loop
rts
ShowEnemies
ldx #6
:loop
phx
txa
lsr
inc
pha
pea $0000
pea OKTOROK_VBUFF
_GTEUpdateSprite
plx
dex
dex
bpl :loop
rts
ToolPath str '1/Tool160'
MyUserId ds 2
; Color palette
MyPalette dw $0FDA,$08C1,$0C41,$0F93,$0777,$0FDA,$00A0,$0000,$0D20,$0FFF,$023E,$01CE,$02E3,$0870,$0F93,$0FD7
MapScreenX ds 2
MapScreenY ds 2
PlayerID ds 2
PlayerX ds 2
PlayerY ds 2
OktorokX dw 32,32,96,96
2022-07-22 03:56:32 +00:00
OktorokY dw 64,96,56,72
OktorokDelta dw 0,1,2,3,4,5,6,7,6,5,4,3,2,1,0,-1,-2,-3,-4,-5,-6,-7,-8,-7,-6,-5,-4,-3,-2,-1,0,0,0
TransitionX ds 2
TransitionY ds 2
oldOneSecondCounter ds 2
frameCount ds 2
qtRec adrl $0000
da $00
vsync dw $8000
_GetVBLTicks
PushLong #0
_GetTick
pla
plx
rts
; Load the GTE User Tool and install it
GTEStartUp
pea $0000
_LoaderStatus
pla
pea $0000
pea $0000
pea $0000
pea $0000
pea $0000 ; result space
lda MyUserId
pha
pea #^ToolPath
pea #ToolPath
pea $0001 ; do not load into special memory
_InitialLoad
bcc :ok1
brk $01
:ok1
ply
pla ; Address of the loaded tool
plx
ply
ply
pea $8000 ; User toolset
pea $00A0 ; Set the tool set number
phx
pha ; Address of function pointer table
_SetTSPtr
bcc :ok2
brk $02
:ok2
clc ; Give GTE a page of direct page memory
tdc
adc #$0100
pha
pea #0 ; Fast Mode
lda MyUserId ; Pass the userId for memory allocation
pha
_GTEStartUp
bcc :ok3
brk $03
:ok3
rts
BORDER_REG equ $E0C034 ; 0-3 = border, 4-7 Text color
VBL_VERT_REG equ $E0C02E
VBL_HORZ_REG equ $E0C02F
2022-07-22 03:56:32 +00:00
VBL_STATE_REG equ $E0C019
_WaitForVBL
sep #$20
:wait1 ldal VBL_STATE_REG ; If we are already in VBL, then wait
bmi :wait1
:wait2 ldal VBL_STATE_REG
bpl :wait2 ; spin until transition into VBL
rep #$20
rts
_WaitForScanline
jsr _GetVBL
and #$FFFE
sta tmp0
cpx tmp0
bne _WaitForScanline
rts
_GetVBL
sep #$20
ldal VBL_HORZ_REG
asl
ldal VBL_VERT_REG
rol ; put V5 into carry bit, if needed. See TN #39 for details.
rep #$20
and #$00FF
rts
_SetBorderColor sep #$20 ; ACC = $X_Y, REG = $W_Z
eorl BORDER_REG ; ACC = $(X^Y)_(Y^Z)
and #$0F ; ACC = $0_(Y^Z)
eorl BORDER_REG ; ACC = $W_(Y^Z^Z) = $W_Y
stal BORDER_REG
rep #$20
rts
PUT gen/App.TileMapBG0.s