mirror of
https://github.com/oliverschmidt/Play-BTc.git
synced 2024-06-19 22:29:32 +00:00
Made player interface more explicit.
This commit is contained in:
parent
ae8077df9c
commit
7abb5d60cb
17
play-btc.s
17
play-btc.s
|
@ -9,13 +9,8 @@
|
||||||
|
|
||||||
jsr $FC58
|
jsr $FC58
|
||||||
|
|
||||||
lda #<__DATA_LOAD__
|
lda #>__DATA_LOAD__
|
||||||
ldx #>__DATA_LOAD__
|
|
||||||
sta $FE
|
|
||||||
stx $FE+1
|
|
||||||
|
|
||||||
ldx #>__DATA_SIZE__
|
ldx #>__DATA_SIZE__
|
||||||
ldy #$00
|
|
||||||
jsr PLAY
|
jsr PLAY
|
||||||
|
|
||||||
lda $C010
|
lda $C010
|
||||||
|
@ -33,8 +28,16 @@ QUIT: .byte $04 ; param_count
|
||||||
.byte $00 ; reserved
|
.byte $00 ; reserved
|
||||||
.word $0000 ; reserved
|
.word $0000 ; reserved
|
||||||
|
|
||||||
|
; player core
|
||||||
|
; parameters:
|
||||||
|
; A - first page to play
|
||||||
|
; X - pages to play
|
||||||
|
; uses:
|
||||||
|
; $FE,$FF
|
||||||
|
PLAY: ldy #$00
|
||||||
|
sty $FE
|
||||||
|
sta $FE+1
|
||||||
|
|
||||||
PLAY:
|
|
||||||
; loop here as long as bits are [F]alse (aka 0)
|
; loop here as long as bits are [F]alse (aka 0)
|
||||||
F_NX: nop ; 2 2
|
F_NX: nop ; 2 2
|
||||||
nop ; 2 2
|
nop ; 2 2
|
||||||
|
|
Loading…
Reference in New Issue
Block a user