;Skip Debug mode
org $809490
	PLP
	RTS

org $90F576 ;This code is adjusted for charge beam sound; overlaps with beamchanges
	PHP
	REP #$30
	LDA $0DC0
	BMI BRANCH_ALPHA
	BEQ BRANCH_BETA
	LDA $8B
	BIT $09B2
	BEQ BRANCH_GAMMA
	LDA #$0041
	JSL $80902B  ;  $102B IN ROM
BRANCH_GAMMA
	STZ $0DC0
BRANCH_BETA
	LDA $0B40
	BEQ BRANCH_DELTA
	LDA $0B3E
	BIT #$0400
	BNE BRANCH_DELTA
	STZ $0B40
	LDA #$0025
	JSL $809125  ;  $1125 IN ROM
BRANCH_DELTA
	LDA $0A11
	AND #$00FF
	CMP #$0003
	BEQ BRANCH_EPSILON
	CMP #$0014
	BNE BRANCH_ZETA
BRANCH_EPSILON
	LDA $0A1F
	AND #$00FF
	CMP #$0003
	BEQ BRANCH_ZETA
	CMP #$0014
	BEQ BRANCH_ZETA
	LDA #$0032
	JSL $809021  ;  $1021 IN ROM
	LDA $0CD0
	CMP #$0080
	BMI BRANCH_ZETA
	LDA $8B
	BIT $09B2
	BEQ BRANCH_ZETA
BRANCH_ALPHA
	LDA #$0001
	STA $0DC0
BRANCH_ZETA
	LDA #$000E
	JSL $808233  ;  $233 IN ROM
	BCC BRANCH_LAMBDA
	LDA $0A5A
	CMP #$E114
	BNE BRANCH_LAMBDA
	LDA #$0023
	STA $0998
BRANCH_LAMBDA
	PLP
	RTS


;ButtonMessup Hook + code
org $809465
	JSR ButtonMessup

org $
ButtonMessup:
	LDA $4218
	PHA
	LDA $0998
	CMP #$0008
	BMI ClearMessup
	BEQ Messup
	CMP #$000C
	BEQ Messup
	CMP #$0012
	BNE SkipMessup
Messup:
	LDA MessupButtons

ClearMessup
	STZ MessupButtons
SkipMessup
	PLA
	RTS