prepare to add an info view

This commit is contained in:
tildearrow 2025-04-22 19:43:43 -05:00
parent 9efc469146
commit 216518d65b

View file

@ -47,18 +47,25 @@ startPlayer:
; draw some text ; draw some text
lda #$20 lda #$20
sta PPUADDR sta PPUADDR
lda #$42 lda #$40
sta PPUADDR sta PPUADDR
ldx #$00 lda #<screenText
- lda helloWorld.w,x sta $00
beq + lda #>screenText
sta $01
ldy #0
clc
- lda ($00),y
beq ++
sta PPUDATA sta PPUDATA
inx inc $00
bne - bne -
inc $01
bcc -
; set palette ; set palette
+ bit PPUSTATUS ++ bit PPUSTATUS
lda #$3f lda #$3f
sta PPUADDR sta PPUADDR
lda #$00 lda #$00
@ -137,8 +144,18 @@ fcsCmdTableHigh=fcsCmdTableExample
.include "../stream.s" .include "../stream.s"
; data ; data
helloWorld: screenText:
.db "Furnace Test Player" .db " Furnace Test Player "
.db " "
.db " channel "
.db " "
.db " PC tick "
.db " note pitch "
.db " vib vibPos "
.db " arp porta "
.db " vol volS "
.db " pan "
.db " "
.db 0 .db 0
ppuPalette: ppuPalette: