RS-232 Messaging

Name="DyNet to RS-232 example"

// DESCRIPTION
// This task listens to Area 32 dummy messages to trigger various commands towards a projector/beamer.
// Each preset represents a different command (See comments for details).

//MEMORY MAP:
// ~10 till ~16 DyNet receive buffer

Startup1()
{
  Name="Start Task"
}

Task1()
{
  Name="Projector control"
  Start(0x1c,0x20,x,x,x,0x00,0xff)  //Start on Area 32 message
  COPY @0,~10,7                     //Copy the incoming message to ram locations starting at Tilde mem 10

  LDA ~13     //Load opcode byte from DyNet command into accumulator
  CMP #0x0A   //If opcode=0x0A (call preset 5) branch to P5A32
  BRZ P5A32
  CMP #0x0B   //If opcode=0x0B (call preset 6) branch to P6A32
  BRZ P6A32
  CMP #0x0C   //If opcode=0x0C (call preset 7) branch to P7A32
  BRZ P7A32
  CMP #0x0D   //If opcode=0x0D (call preset 8) branch to P8A32
  BRZ P8A32
  Null

P5A32:
              //Source = computer 1
  Send2(0xBE,0xEF,0x03,0x06,0x00,0xFE,0xD2,0x01,0x00,0x00,0x20,0x00,0x00)
              //Send serial command
  Null

P6A32:
              //Source = Computer 2
  Send2(0xBE,0xEF,0x03,0x06,0x00,0x3E,0xD0,0x01,0x00,0x00,0x20,0x04,0x00)
              //Send serial command
  Null

P7A32:
              //Source = Component
  Send2(0xBE,0xEF,0x03,0x06,0x00,0xAE,0xD1,0x01,0x00,0x00,0x20,0x05,0x00)
              //Send serial command
  Null

P8A32:
              //Source = HDMI
  Send2(0xBE,0xEF,0x03,0x06,0x00,0x9E,0xD3,0x01,0x00,0x00,0x20,0x02,0x00)
              //Send serial command
  Null
}

Name=" RS-232 to DyNet example"

M1: DyNet(0x1c,0x02,0xFF,0x80,0xff,0x64,0xff)

Send_Level:
#asm  0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
      21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
      41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60,
      61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80,
      81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100,
      101; //x Don't care

Level1:
#asm  255, 254, 252, 249, 247, 244, 242, 239, 237, 234, 232, 229, 227, 224, 221,
      219, 216, 214, 211, 209, 206, 204, 201, 199, 196, 194, 191, 188, 186, 183,
      181, 178, 176, 173, 171, 168, 166, 163, 161, 158, 155, 153, 150, 148, 145,
      143, 140, 138, 135, 133, 130, 127, 125, 122, 120, 117, 115, 112, 110, 107,
      105, 102, 100, 97, 94, 92, 89, 87, 84, 82, 79, 77, 74, 72, 69, 67, 64, 61,
      59, 56, 54, 51, 49, 46, 44, 41, 39, 36, 34, 31, 28, 26, 23, 21, 18, 16, 13,
      11, 8, 6, 3, 0;

Startup1()
{
	Name="Start Task"
	LDX #0
}

Task1()
{
	Name="RS-232 to DyNet"
	Startx(x,0x25)	//Listen to a Value between "0%-100%" from AV receiver - Send Corresponding 0-100% ChannelLevel

	Copy @0,~0,2		//Copy incoming 2 Bytes from AV
	LDX #0			    //Initialise the X register

	Loop1:
		LDA Send_Level,x  //Load value from Array in reference to the X register value
		CMP ~0            //Compare this Value with the Value received from the AV (a Number between 0-100
		BRZ Send_it       //If matching assemble and send the channelLevel message
		INCX              //If not a Match, increment the x register Value
		CMPX #103         //make sure X register is less than 103
		BRZ END           //If 103 or greater, Send a No Match message
		BRA Loop1         //Else Branch back to Loop1

	Send_it:
		Copy M1,~10,7     //Copy default ChannelLevel message
		LDA Level1,x      //Load the Accumulator with the value in "Level1" Array that corresponds with the x register value
		STA ~12           //store this Value in Data1 (level byte)
		TX ~10,2,7        //transmit the corresponding ChannelLevel message
		Null
	END:
		Dynet(0x6c,"NoMtch")  //Incase X register Value is greater or equal to 103
}