From a679ba38190bfed6ae150a12e819ad7527c495d1 Mon Sep 17 00:00:00 2001
From: sik
Date: Sun, 5 Mar 2017 20:57:11 -0300
Subject: Upgrade!

---
 src-68k/esf.68k | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

(limited to 'src-68k/esf.68k')

diff --git a/src-68k/esf.68k b/src-68k/esf.68k
index fdaa55e..fc8dacc 100644
--- a/src-68k/esf.68k
+++ b/src-68k/esf.68k
@@ -44,6 +44,15 @@ ESF_FMFREQ_9    equ ESF_FMFREQ_A
 ESF_FMFREQ_10   equ ESF_FMFREQ_AS
 ESF_FMFREQ_11   equ ESF_FMFREQ_B
 
+;****************************************************************************
+; Panning values
+;****************************************************************************
+
+ESF_PAN_OFF:    equ $00     ; Mute
+ESF_PAN_L:      equ $80     ; Left speaker only
+ESF_PAN_R:      equ $40     ; Right speaker only
+ESF_PAN_LR:     equ $C0     ; Both speakers
+
 ;****************************************************************************
 ; ESF_NoteOn
 ; Start playing a note.
@@ -165,6 +174,40 @@ ESF_Lock macro
     dc.b    $E0+(\1)
     endm
 
+;****************************************************************************
+; ESF_SetPan
+; Set the panning of a FM channel.
+;----------------------------------------------------------------------------
+; Format:
+;   ESF_SetPan channel, panning
+;----------------------------------------------------------------------------
+; param channel ... channel to modify
+; param panning ... panning (see ESF_PAN_*)
+;****************************************************************************
+
+ESF_SetPan macro
+    dc.b    $F0+(\1)
+    dc.b    (\2)
+    endm
+
+;****************************************************************************
+; ESF_SetFMReg
+; Set a FM register directly.
+;----------------------------------------------------------------------------
+; Format:
+;   ESF_SetFMReg bank, register, value
+;----------------------------------------------------------------------------
+; param bank ....... YM2612 bank (0 or 1)
+; param register ... register to modify
+; param value ...... value to write
+;****************************************************************************
+
+ESF_SetFMReg macro
+    dc.b    $F8+(\1)
+    dc.b    (\2)
+    dc.b    (\3)
+    endm
+
 ;****************************************************************************
 ; ESF_Delay
 ; Stop event.
-- 
cgit v1.2.3