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