Sysex Encoding for Alesis Quadraverb

Hi,
saw your message in the chat… good that you put a post.
It looks like it is the same as DSI packing/unpacking.
Atom built some routine for that.
Otherwise you can also do as Carl did for the P08 panel.

Here is what I’m doing…

Load method:

-- Called when a modulator value changes
-- @modulator   http://ctrlr.org/api/class_ctrlr_modulator.html
-- @modValue    new numeric value of the modulator
--
LoadProgram = function(modulator, modValue)

	-- No action if the panel is in bootstrap or program states
	if not isPanelReady() then
		return
	end

	f = utils.openFileWindow ("Load Pro2 packed program dump", File(""), "*.syx", true)
	if f:existsAsFile() then
		Pro2PackedProgramData = MemoryBlock()
		f:loadFileAsData(Pro2PackedProgramData)
		FileSize = Pro2PackedProgramData:getSize()

		if FileSize == 1178 then
			--console("Loading DSI Pro 2 sysex program dump file...")
			bLoadingProgram = true

			-- Adapt LCD
			txtCurrentValue:getComponent():setPropertyString ("uiLabelText", "LOADING...")
			iBank = Pro2PackedProgramData:getByte(04)+1
			if iBank<4 then
				txtBank:getComponent():setPropertyString ("uiLabelText", "U"..iBank)
			else
				txtBank:getComponent():setPropertyString ("uiLabelText", "F"..iBank)
			end
			modBank:setValue(iBank, true)
			LastBank = txtBank:getComponent():getProperty("uiLabelText")

			LastProgram = Pro2PackedProgramData:getByte(05)+1
			txtProgram:getComponent():setPropertyString ("uiLabelText", "P"..LastProgram)
			modProgram:setValue(LastProgram+1, true)

			txtSavedValue:getComponent():setPropertyString ("uiLabelText", LastBank.." P"..LastProgram)

			LoadedProgramData = utils.unpackDsiData(Pro2PackedProgramData:getRange(6,1171))
			FileSize = LoadedProgramData:getSize()
			--console("..Unpacked size is "..FileSize)

			if FileSize == 1024 then
				LoadProgramData(LoadedProgramData)
			end

 			-- Starting a timer to reset bLoadingProgram to false after that all modulators have processed their OnChange function
			timer:setCallback (1, timerCallback)
			timer:startTimer(1, 200)

		else
			utils.warnWindow ("Load Pro2 packed program dump", "Invalid file")
		end
	end

end

isPanelReady() is simply

--
-- Check if the panel is not busy to load or receiving a program
--
isPanelReady = function()

	if panel:getBootstrapState() == false and panel:getProgramState() == false then
		return (true)
	else
		return (false)
	end

end

LoadProgramData is like:

--
-- Set all modulators according to program parameters
-- @LoadedProgramData   MemoryBlock
--
LoadProgramData = function(LoadedProgramData)

	-- No action if the panel is in bootstrap or program states
	if not isPanelReady() then
		return
	end

	-- *** Main ***
	txtProgramName:getComponent():setPropertyString ("uiLabelText", LoadedProgramData:getRange(378,20):toString()) 

	-- *** Oscillators and Filters ***

	-- Oscillator 1
	modOsc1Sync:setValue(LoadedProgramData:getByte(52), true)
	modOsc1Pitch:setValue(LoadedProgramData:getByte(0), true)
	modOsc1FineTune:setValue(LoadedProgramData:getByte(4), true)

...

end

Packing will use the same philosophy but with the method utils.packDsiData

Good luck!

Here is an example of Carl’s method to send data

function sendProgramDataDump(bank_number, patch_number)

	-- This variable stops index issues during panel bootup
	if panel:getRestoreState() == true or panel:getProgramState() == true then
		return
	end

	console("creating midi message...")

	MsgPrefix = "f0 01 23 02" -- This prefix send a Program data dump. This method is destructive : destination patch will be overwritten
	MsgSuffix = "f7"
	
	-- specify bank and patch number destination
	PatchBankHex = string.format("%.2x", bank_number)
	PatchNumberHex = string.format("%.2x", patch_number)
		
	PatchData = table.concat(PatchDataValuesTable, " ", 5, 443)
	
	MsgComplete = MsgPrefix.." "..PatchBankHex.." "..PatchNumberHex.." "..PatchData.." "..MsgSuffix

	panel:sendMidiMessageNow(CtrlrMidiMessage(MsgComplete))
	console ("Program Data Dump sent to Prophet08")
end

Use the same philosophy but use utils.packDsiData function for the PatchData…
Be patient, it will come after a few weeks…

Yes.
Have a look at my Ctrlr step by step guide

I would have used the provided utils.unpackDsiData and utils.packDsiData as they are doing all the job and you don’t need to code anything (except isolating the bit range to pack/unpack) but this is the beauty of programming, everybody can choose his own way 🙂

Thx about your feedback on the Step by step guide.
The version 2.x I will make will be even better with more examples, Lua code, etc…