dos33fsprogs/games/sb/play_purple.s

PURPLE = $D000
PURPLE_LENGTH = 28

play_purple:
	; only avail if language card

	lda	SOUND_STATUS
	and	#SOUND_IN_LC
	beq	done_play_purple

	; switch in language card
	; read/write RAM $d000 bank 1

	 bit     $C083
	 bit     $C083


	; call the btc player

	lda	#<PURPLE
	sta	BTC_L
	lda	#>PURPLE
	sta	BTC_H

	ldx	#PURPLE_LENGTH			; 28 pages long???
	jsr	play_audio

        ; read ROM/no-write

	bit     $c082

done_play_purple:
	rts
sb: forgot a file 2023-05-31 01:15:43 -04:00			`PURPLE = $D000`
			`PURPLE_LENGTH = 28`

			`play_purple:`
			`; only avail if language card`

			`lda SOUND_STATUS`
			`and #SOUND_IN_LC`
			`beq done_play_purple`

			`; switch in language card`
			`; read/write RAM $d000 bank 1`

			`bit $C083`
			`bit $C083`


			`; call the btc player`

			`lda #<PURPLE`
			`sta BTC_L`
			`lda #>PURPLE`
			`sta BTC_H`

			`ldx #PURPLE_LENGTH ; 28 pages long???`
			`jsr play_audio`

sb: fix up scroll intro 2023-05-31 17:06:35 -04:00			`; read ROM/no-write`
sb: forgot a file 2023-05-31 01:15:43 -04:00
sb: fix up scroll intro 2023-05-31 17:06:35 -04:00			`bit $c082`
sb: forgot a file 2023-05-31 01:15:43 -04:00
			`done_play_purple:`
			`rts`