dos33fsprogs/pt3_lib/pt3_test.s

;=================
; VMW PT3_LIB test
;=================
; template for using the pt3_lib

; zero page definitions
.include	"zp.inc"

; some firmware locations
.include	"hardware.inc"

; Location the files load at.
; If you change this, you need to update the Makefile

PT3_LOC = song

; the below will make for more compact code, at the expense
; of using $80 - $ff zero page addresses by the decoder.

; PT3_USE_ZERO_PAGE = 1


	;=============================
	; Setup
	;=============================
pt3_setup:
	jsr     HOME
	jsr     TEXT

	;===============
	; init variables
	;===============

	lda	#0
	sta	DONE_PLAYING
	sta	LOOP		; change to 1 to loop forever

	;=======================
	; Detect mockingboard
	;========================

	jsr	print_mockingboard_detect	; print message

	jsr	mockingboard_detect		; call detection routine

	bcs	mockingboard_found

	jsr	print_mocking_notfound

	; possibly can't detect on IIc so just try with slot#4 anyway
	; even if not detected

	jmp	setup_interrupt

mockingboard_found:

	; print found message


	; modify message to print slot value

	lda	MB_ADDR_H
	sec
	sbc	#$10
	sta	found_message+11

	jsr	print_mocking_found

	;==================================================
	; patch the playing code with the proper slot value
	;==================================================

	jsr	mockingboard_patch

setup_interrupt:

	;=======================
	; Set up 50Hz interrupt
	;========================

	jsr	mockingboard_init
	jsr	mockingboard_setup_interrupt

	;============================
	; Init the Mockingboard
	;============================

	jsr	reset_ay_both
	jsr	clear_ay_both

	;==================
	; init song
	;==================

	jsr	pt3_init_song

	;============================
	; Enable 6502 interrupts
	;============================
start_interrupts:
	cli		; clear interrupt mask


	;============================
	; Loop forever
	;============================
forever_loop:
	jmp	forever_loop


;========================================
;========================================

; Helper routines below

;========================================
;========================================

	;==================================
	; Print mockingboard detect message
	;==================================
	; note: on IIc must do this before enabling interrupt
	;	as we disable ROM (COUT won't work?)

print_mockingboard_detect:

	; print detection message
	ldy	#0
print_mocking_message:
	lda	mocking_message,Y		; load loading message
	beq	done_mocking_message
	ora	#$80
	jsr	COUT
	iny
	jmp	print_mocking_message
done_mocking_message:
	jsr	CROUT1

	rts

print_mocking_notfound:

	ldy	#0
print_not_message:
	lda	not_message,Y		; load loading message
	beq	print_not_message_done
	ora	#$80
	jsr	COUT
	iny
	jmp	print_not_message
print_not_message_done:
	rts

print_mocking_found:
	ldy	#0
print_found_message:
	lda	found_message,Y		; load loading message
	beq	done_found_message
	ora	#$80
	jsr	COUT
	iny
	jmp	print_found_message
done_found_message:

	rts

;=========
; strings
;=========
mocking_message:	.asciiz "LOOKING FOR MOCKINGBOARD: "
not_message:		.byte "NOT "
found_message:		.asciiz "FOUND SLOT#4"


;=========
; vars
;=========

;=========
;routines
;=========

.include	"pt3_lib_core.s"
.include	"pt3_lib_init.s"
.include	"pt3_lib_mockingboard_setup.s"
.include	"interrupt_handler.s"
; if you're self patching, detect has to be after interrupt_handler.s
.include	"pt3_lib_mockingboard_detect.s"

;=============
; include song
;=============
.align	256		; must be on page boundary
			; this can be fixed but some changes would have
			; to be made throughout the player code
song:
.incbin "../pt3_player/music/EA.PT3"
;.incbin "../ootw/ootw_audio/ootw_outro.pt3"
pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00			`;=================`
			`; VMW PT3_LIB test`
			`;=================`
			`; template for using the pt3_lib`

			`; zero page definitions`
			`.include "zp.inc"`

pt3_lib: clean up zero-page usage make it more clear how much space you need for player 2019-06-10 18:08:17 +00:00			`; some firmware locations`
			`.include "hardware.inc"`

pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00			`; Location the files load at.`
			`; If you change this, you need to update the Makefile`

			`PT3_LOC = song`

pt3: make the lib tester a bit simpler 2019-09-11 20:56:48 +00:00			`; the below will make for more compact code, at the expense`
pt3_lib: update to version 0.2 includes more documentation and Mockingboard slot detection 2019-12-29 03:35:14 +00:00			`; of using $80 - $ff zero page addresses by the decoder.`
pt3: make the lib tester a bit simpler 2019-09-11 20:56:48 +00:00
			`; PT3_USE_ZERO_PAGE = 1`

pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00
			`;=============================`
			`; Setup`
			`;=============================`
			`pt3_setup:`
			`jsr HOME`
			`jsr TEXT`

			`;===============`
			`; init variables`
			`;===============`

			`lda #0`
			`sta DONE_PLAYING`
pt3_lib: update to version 0.2 includes more documentation and Mockingboard slot detection 2019-12-29 03:35:14 +00:00			`sta LOOP ; change to 1 to loop forever`
pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00
			`;=======================`
			`; Detect mockingboard`
			`;========================`

pt3_lib: update to version 0.2 includes more documentation and Mockingboard slot detection 2019-12-29 03:35:14 +00:00			`jsr print_mockingboard_detect ; print message`
pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00
pt3_lib: update the detection code 2019-12-28 23:04:19 +00:00			`jsr mockingboard_detect ; call detection routine`
pt3_lib: update to version 0.2 includes more documentation and Mockingboard slot detection 2019-12-29 03:35:14 +00:00
pt3_lib: update the detection code 2019-12-28 23:04:19 +00:00			`bcs mockingboard_found`
pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00
pt3_lib: move most things to lib files now 2019-09-12 04:21:08 +00:00			`jsr print_mocking_notfound`
pt3_lib: update to version 0.2 includes more documentation and Mockingboard slot detection 2019-12-29 03:35:14 +00:00
			`; possibly can't detect on IIc so just try with slot#4 anyway`
			`; even if not detected`

pt3_lib: move most things to lib files now 2019-09-12 04:21:08 +00:00			`jmp setup_interrupt`
pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00
			`mockingboard_found:`
pt3_lib: move most things to lib files now 2019-09-12 04:21:08 +00:00
pt3_lib: update to version 0.2 includes more documentation and Mockingboard slot detection 2019-12-29 03:35:14 +00:00			`; print found message`


			`; modify message to print slot value`

pt3_lib: update the detection code 2019-12-28 23:04:19 +00:00			`lda MB_ADDR_H`
			`sec`
			`sbc #$10`
			`sta found_message+11`

pt3_lib: move most things to lib files now 2019-09-12 04:21:08 +00:00			`jsr print_mocking_found`

pt3_lib: update to version 0.2 includes more documentation and Mockingboard slot detection 2019-12-29 03:35:14 +00:00			`;==================================================`
			`; patch the playing code with the proper slot value`
			`;==================================================`

			`jsr mockingboard_patch`

pt3_player: update to auto-detect mockingboard slot 2019-12-29 04:20:17 +00:00			`setup_interrupt:`

pt3_lib: move most things to lib files now 2019-09-12 04:21:08 +00:00			`;=======================`
			`; Set up 50Hz interrupt`
			`;========================`

ootw: update to newer pt3_lib 2019-09-12 04:51:17 +00:00			`jsr mockingboard_init`
pt3_lib: update the detection code 2019-12-28 23:04:19 +00:00			`jsr mockingboard_setup_interrupt`
pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00
			`;============================`
			`; Init the Mockingboard`
			`;============================`

			`jsr reset_ay_both`
			`jsr clear_ay_both`

			`;==================`
			`; init song`
			`;==================`

			`jsr pt3_init_song`

			`;============================`
			`; Enable 6502 interrupts`
			`;============================`
			`start_interrupts:`
			`cli ; clear interrupt mask`


			`;============================`
			`; Loop forever`
			`;============================`
pt3: create combined version for pt3_lib and pt3_player keeping separate versions was a pain 2019-09-11 20:08:36 +00:00			`forever_loop:`
pt3: make the lib tester a bit simpler 2019-09-11 20:56:48 +00:00			`jmp forever_loop`
pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00

pt3: make the lib tester a bit simpler 2019-09-11 20:56:48 +00:00			`;========================================`
pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00			`;========================================`

			`; Helper routines below`

			`;========================================`
			`;========================================`

pt3_lib: start splitting up detection code 2019-12-28 21:45:43 +00:00			`;==================================`
			`; Print mockingboard detect message`
			`;==================================`
			`; note: on IIc must do this before enabling interrupt`
			`; as we disable ROM (COUT won't work?)`

			`print_mockingboard_detect:`

			`; print detection message`
			`ldy #0`
			`print_mocking_message:`
			`lda mocking_message,Y ; load loading message`
			`beq done_mocking_message`
			`ora #$80`
			`jsr COUT`
			`iny`
			`jmp print_mocking_message`
			`done_mocking_message:`
			`jsr CROUT1`

			`rts`

			`print_mocking_notfound:`

			`ldy #0`
			`print_not_message:`
			`lda not_message,Y ; load loading message`
			`beq print_not_message_done`
			`ora #$80`
			`jsr COUT`
			`iny`
			`jmp print_not_message`
			`print_not_message_done:`
			`rts`

			`print_mocking_found:`
			`ldy #0`
			`print_found_message:`
			`lda found_message,Y ; load loading message`
			`beq done_found_message`
			`ora #$80`
			`jsr COUT`
			`iny`
			`jmp print_found_message`
			`done_found_message:`

			`rts`

			`;=========`
			`; strings`
			`;=========`
pt3_lib: update the detection code 2019-12-28 23:04:19 +00:00			`mocking_message: .asciiz "LOOKING FOR MOCKINGBOARD: "`
pt3_lib: start splitting up detection code 2019-12-28 21:45:43 +00:00			`not_message: .byte "NOT "`
pt3_lib: update the detection code 2019-12-28 23:04:19 +00:00			`found_message: .asciiz "FOUND SLOT#4"`
pt3_lib: start splitting up detection code 2019-12-28 21:45:43 +00:00


pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00			`;=========`
			`; vars`
			`;=========`

			`;=========`
			`;routines`
			`;=========`
pt3_lib: move most things to lib files now 2019-09-12 04:21:08 +00:00
pt3: create combined version for pt3_lib and pt3_player keeping separate versions was a pain 2019-09-11 20:08:36 +00:00			`.include "pt3_lib_core.s"`
			`.include "pt3_lib_init.s"`
pt3_lib: update the detection code 2019-12-28 23:04:19 +00:00			`.include "pt3_lib_mockingboard_setup.s"`
pt3_lib: move most things to lib files now 2019-09-12 04:21:08 +00:00			`.include "interrupt_handler.s"`
pt3_lib: update to version 0.2 includes more documentation and Mockingboard slot detection 2019-12-29 03:35:14 +00:00			`; if you're self patching, detect has to be after interrupt_handler.s`
			`.include "pt3_lib_mockingboard_detect.s"`
pt3_lib: update the detection code 2019-12-28 23:04:19 +00:00
pt3_lib: add directory with just the pt3 player This will be less optimized than pt3_player but possibly easier for other programs to use. 2019-06-07 19:18:51 +00:00			`;=============`
			`; include song`
			`;=============`
			`.align 256 ; must be on page boundary`
			`; this can be fixed but some changes would have`
			`; to be made throughout the player code`
			`song:`
			`.incbin "../pt3_player/music/EA.PT3"`
pt3: big mess finding bug in pt3_lib was playing OOTW ending wrong was an accidentally commented out "lda #0" blurgh some other code cleanups while at it, mostly making it match the pt3_player code a bit more also stop using TEMP from interrupt as other code might use it 2019-08-21 19:07:20 +00:00			`;.incbin "../ootw/ootw_audio/ootw_outro.pt3"`