;================================================================================
; Heart Beep Logic
;================================================================================
BeepLogic:
	LDA.l HeartBeep : BEQ +
	    STA $04CA
	    LDA.b #$2B : STA $012E
RTL
	+
    LDA.b #$FF : STA $04CA
RTL
;================================================================================