	include	macro.inc
	include	mdc5.inc

	org	$6059
	adr	disk_eject_check,disk_insert_check

	org	$72ce
disk_eject_check:
	jsr	bios_pad_input_get
	lda	mdc5_sidechange_status
	lsr	a
	bcc	next_phase_skip
disk_insert_check:
	inc	$27
next_phase_skip:
	rts
	fill	$72e2

;filename PROTECT
;$da20 に転送してから $0220 辺りにコピーされる
	org	$da20
	jmp	$6000
