From 0f09f0882ed87bea9ff3e745c73f5d4743854fbb Mon Sep 17 00:00:00 2001
From: Richard <richard@1bpm.net>
Date: Fri, 28 Feb 2025 02:08:19 +0000
Subject: added bug6

---
 BUG6/bussing.udo | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'BUG6/bussing.udo')

diff --git a/BUG6/bussing.udo b/BUG6/bussing.udo
index 78755ce..56ea46a 100644
--- a/BUG6/bussing.udo
+++ b/BUG6/bussing.udo
@@ -36,6 +36,7 @@ endop
 
 
 
+
 /*
 	Read from a stereo bus, and then clear the bus
 	
@@ -57,6 +58,22 @@ opcode bus_read, aa, S
 endop
 
 
+/*
+	Set to a stereo bus
+
+	bus_set Sbus, aL, aR
+
+	Sbus	bus name
+	aL	left channel
+	aR	right channel
+*/
+opcode bus_set, 0, Saa
+	Sbus, aL, aR xin
+	SbusL, SbusR bus_name Sbus
+	chnset aL, SbusL
+	chnset aR, SbusR
+endop
+
 
 
 #end
-- 
cgit v1.2.3