From 087d7120fed09d5816406828396dd081f7bc2db8 Mon Sep 17 00:00:00 2001
From: Gabriel Valky <gabriel@valky.eu>
Date: Thu, 5 Aug 2021 23:04:05 +0200
Subject: [PATCH] Gabuino flappy bird, melody player, init_array fix

---
 .../examples/{gabo.cpp => demo.cpp}           |   2 +-
 .../117_gabuino/examples/flappybird.cpp       |  48 +++++
 .../117_gabuino/examples/map.cpp              |  10 -
 .../117_gabuino/examples/melody.cpp           |  98 ++++++++++
 .../117_gabuino/examples/return.cpp           |   6 -
 .../apps_featured/117_gabuino/source/memory.h |   2 +-
 .../117_gabuino/web/v1/compiler.js            |  40 +++-
 .../117_gabuino/web/v1/dsym_gabuino.js        | 166 ++++++++--------
 .../117_gabuino/web/v1/dsym_os.js             |  96 ++++-----
 .../117_gabuino/web/v1/examples.js            | 155 ++++++++++++++-
 .../117_gabuino/web/v1/index.html             | 182 +++++++++++++++++-
 11 files changed, 634 insertions(+), 171 deletions(-)
 rename system/apps_featured/117_gabuino/examples/{gabo.cpp => demo.cpp} (98%)
 create mode 100644 system/apps_featured/117_gabuino/examples/flappybird.cpp
 delete mode 100644 system/apps_featured/117_gabuino/examples/map.cpp
 create mode 100644 system/apps_featured/117_gabuino/examples/melody.cpp
 delete mode 100644 system/apps_featured/117_gabuino/examples/return.cpp

diff --git a/system/apps_featured/117_gabuino/examples/gabo.cpp b/system/apps_featured/117_gabuino/examples/demo.cpp
similarity index 98%
rename from system/apps_featured/117_gabuino/examples/gabo.cpp
rename to system/apps_featured/117_gabuino/examples/demo.cpp
index 905961bc..f60ca492 100644
--- a/system/apps_featured/117_gabuino/examples/gabo.cpp
+++ b/system/apps_featured/117_gabuino/examples/demo.cpp
@@ -19,7 +19,7 @@ int main(void)
         y = y1;
 
         if ((c++ % 1000) == 0)
-            DBG::Print("%d lines, ", c/1000);
+            DBG::Print("<b>%d</b> lines, ", c);
     }
     
     return 0;
diff --git a/system/apps_featured/117_gabuino/examples/flappybird.cpp b/system/apps_featured/117_gabuino/examples/flappybird.cpp
new file mode 100644
index 00000000..d188b67b
--- /dev/null
+++ b/system/apps_featured/117_gabuino/examples/flappybird.cpp
@@ -0,0 +1,48 @@
+// Play flappy bird in browser, press F1 on LA104 to jump
+// Based on Tiny flappy bird by Daniel Bark:
+//   https://github.com/danba340/tiny-flappy-bird
+
+#include <library.h>
+
+int main(void)
+{
+    BIOS::DBG::Print(R"(<canvas id="c" width="400" height="400" style="background:gray"></canvas>)");
+
+    BIOS::DBG::Print(R"(<script>
+    context = document.getElementById("c").getContext("2d");
+    bird = new Image();
+    bird.src = "https://raw.githubusercontent.com/danba340/tiny-flappy-bird/master/bird.png";
+    birdX = birdDY = score = bestScore = 0;
+    interval = birdSize = pipeWidth = topPipeBottomY = 24;
+    birdY = pipeGap = 200;
+    canvasSize = pipeX = 400;
+    c.onclick = () => (birdDY = 9);
+    setInterval(() => {
+      context.fillStyle = "skyblue";
+      context.fillRect(0,0,canvasSize,canvasSize); // Draw sky
+      birdY -= birdDY -= 0.5; // Gravity
+      context.drawImage(bird, birdX, birdY, birdSize * (524/374), birdSize); // Draw bird
+      context.fillStyle = "green";
+      pipeX -= 8; // Move pipe
+      pipeX < -pipeWidth && // Pipe off screen?
+        ((pipeX = canvasSize), (topPipeBottomY = pipeGap * Math.random())); // Reset pipe and randomize gap.
+      context.fillRect(pipeX, 0, pipeWidth, topPipeBottomY); // Draw top pipe
+      context.fillRect(pipeX, topPipeBottomY + pipeGap, pipeWidth, canvasSize); // Draw bottom pipe
+      context.fillStyle = "black";
+      context.fillText(score++, 9, 25); // Increase and draw score
+      bestScore = bestScore < score ? score : bestScore; // New best score?
+      context.fillText('Best: '+bestScore, 9, 50); // Draw best score
+      (((birdY < topPipeBottomY || birdY > topPipeBottomY + pipeGap) && pipeX < birdSize * (524/374))// Bird hit pipe?
+       || birdY > canvasSize) && // Bird falls off screen
+      ((birdDY = 0), (birdY = 200), (pipeX = canvasSize), (score = 0)); // Bird died
+    }, interval)
+  </script>)");
+
+    BIOS::KEY::EKey key;
+    while ((key = BIOS::KEY::GetKey()) != BIOS::KEY::EKey::Escape)
+    {
+        if (key == BIOS::KEY::EKey::Enter)
+            BIOS::DBG::Print(R"(<script>birdDY=9</script>)");
+    }
+    return 0;
+}
diff --git a/system/apps_featured/117_gabuino/examples/map.cpp b/system/apps_featured/117_gabuino/examples/map.cpp
deleted file mode 100644
index 873bd5b7..00000000
--- a/system/apps_featured/117_gabuino/examples/map.cpp
+++ /dev/null
@@ -1,10 +0,0 @@
-#include <library.h>
-
-int main(void)
-{
-    BIOS::DBG::Print("<div style='position:relative;'>");
-    BIOS::DBG::Print("<div style='position:absolute; left:0px; top:80px; width:400px; height:200px;'><img src='https://www.world-maps.org/images/wor32k6.jpg'></div>");
-    BIOS::DBG::Print("<div style='position:absolute; left:60px; top:120px; width:8px; height:8px; background:#ff0000;'>On top</div>");
-    BIOS::DBG::Print("</div>");
-    return 0;
-}
diff --git a/system/apps_featured/117_gabuino/examples/melody.cpp b/system/apps_featured/117_gabuino/examples/melody.cpp
new file mode 100644
index 00000000..240aed2c
--- /dev/null
+++ b/system/apps_featured/117_gabuino/examples/melody.cpp
@@ -0,0 +1,98 @@
+// plays Axel F on internal piezo speaker of LA104
+#include <library.h>
+#include <math.h>
+
+void WriteTim8(int reg, uint16_t val)
+{
+  *((uint16_t*)(0x40013400 + reg)) = val;
+}
+
+void SoundOn()
+{
+  WriteTim8(0x20, 0x3000);
+  WriteTim8(0x00, 0x0081);
+  WriteTim8(0x40, 150); // volume
+}
+
+void SoundOff()
+{
+  WriteTim8(0x20, 0x0000);
+  WriteTim8(0x00, 0x0080);
+}
+
+void Sound(int f)
+{
+    WriteTim8(0x24, 0);
+    WriteTim8(0x28, 15-1);
+    int div = 72e6/15/f;
+    WriteTim8(0x2c, div-1);
+    //BIOS::DBG::Print("f=%d, div=%d, ", f, div);
+    SoundOn();
+}
+
+int C=0, Cis=1, D=2, Dis=3, E=4, F=5, Fis=6, G=7, Gis=8, A=9, Ais=10, B=11, None=12;
+const int BPM = 120;
+
+const int Beat = 60000 / BPM;
+int Whole = Beat*4;
+int Half = Whole/2;
+int Quarter = Whole/4;
+int Eigth = Whole/8;
+int Sixteenth = Whole/16;
+int Thirtysecond = Whole/32;
+int WholeDot = Whole*1.5;
+int HalfDot = Half*1.5;
+int QuarterDot = Quarter*1.5;
+int EigthDot = Eigth*1.5;
+int SixteenthDot = Sixteenth*1.5;
+int ThirtysecondDot = Thirtysecond*1.5;
+
+int Frequency(int note, int octave)
+{
+  const int table[] = {4186, 4434, 4698, 4978, 5274, 5587, 5915, 6271, 6644, 7040, 7458, 7902};
+  return table[note] >> (4-octave);
+}
+
+void Play(int note, int octave, int length)
+{
+  if (note != None) 
+    Sound(Frequency(note, octave));
+
+  //BIOS::DBG::Print("len=%d, ", length);
+  BIOS::SYS::DelayMs(length);
+  SoundOff();
+  BIOS::SYS::DelayMs(10);
+}
+
+int main()
+{
+    // generated from http://x.valky.eu/klavirgen
+    Play(G, 2, Quarter);
+    Play(Ais, 2, EigthDot);
+    Play(G, 2, Sixteenth);
+    Play(None, 0, Sixteenth);
+    Play(G, 2, Sixteenth);
+    Play(C, 3, Eigth);
+    Play(G, 2, Eigth);
+    Play(F, 2, Eigth);
+    Play(G, 2, Quarter);
+    Play(D, 3, EigthDot);
+    Play(G, 2, Sixteenth);
+    Play(None, 0, Sixteenth);
+    Play(G, 2, Sixteenth);
+    Play(Dis, 3, Eigth);
+    Play(D, 3, Eigth);
+    Play(Ais, 2, Eigth);
+    Play(G, 2, Eigth);
+    Play(D, 3, Eigth);
+    Play(G, 3, Eigth);
+    Play(G, 2, Sixteenth);
+    Play(F, 2, Sixteenth);
+    Play(None, 0, Sixteenth);
+    Play(F, 2, Sixteenth);
+    Play(D, 2, Eigth);
+    Play(A, 2, Eigth);
+    Play(G, 2, Half);
+
+    return 0;
+}
diff --git a/system/apps_featured/117_gabuino/examples/return.cpp b/system/apps_featured/117_gabuino/examples/return.cpp
deleted file mode 100644
index 2e9fe8ac..00000000
--- a/system/apps_featured/117_gabuino/examples/return.cpp
+++ /dev/null
@@ -1,6 +0,0 @@
-#include <library.h>
-
-int main(void)
-{
-    return 724;
-}
diff --git a/system/apps_featured/117_gabuino/source/memory.h b/system/apps_featured/117_gabuino/source/memory.h
index 189fd678..f6b05229 100644
--- a/system/apps_featured/117_gabuino/source/memory.h
+++ b/system/apps_featured/117_gabuino/source/memory.h
@@ -65,7 +65,7 @@ namespace MEMORY
 
   int Exec(uint32_t ptr)
   {
-    _ASSERT(ptr == 0x20005001);
+    _ASSERT((ptr & 1) && (ptr >= 0x20005001));
     userRetVal = 0x66667777;
 
     typedef int(*TFunc)();
diff --git a/system/apps_featured/117_gabuino/web/v1/compiler.js b/system/apps_featured/117_gabuino/web/v1/compiler.js
index 4f1eccb1..192974e6 100644
--- a/system/apps_featured/117_gabuino/web/v1/compiler.js
+++ b/system/apps_featured/117_gabuino/web/v1/compiler.js
@@ -37,6 +37,19 @@ function writeDword(ofs, val)
   globalBlob[ofs-globalOffset+0] = val >> 0;
 }
 
+function readDword(ofs)
+{
+  var t = 0;
+  t = globalBlob[ofs-globalOffset+3]; 
+  t <<= 8;
+  t |= globalBlob[ofs-globalOffset+2];
+  t <<= 8;
+  t |= globalBlob[ofs-globalOffset+1];
+  t <<= 8;
+  t |= globalBlob[ofs-globalOffset+0];
+  return t;
+}
+
 function clearBss(blob, ofs, len)
 {
   for (var i=0; i<len; i++)
@@ -67,9 +80,18 @@ function flash()
 }
 
 function run()
-{
-  BIOS.exec(globalOffset|1)//.then( () => resolve() )
-  // we do not know if the program keeps running or has ended with return code
+{   
+  console.log("globalInit");
+  var prepare = Promise.resolve();
+  if (globalInit.length > 0)
+  {
+    prepare = globalInit.reduce((p, x) => p.then(_ => BIOS.exec(x|1)), Promise.resolve())
+//    for (var i=0; i<globalInit.length; i++)
+//      BIOS.exec(globalInit[i]|1); // we should chain these!
+  }
+  
+  prepare.then( () => BIOS.exec(globalOffset|1) )//.then( () => resolve() )
+    // we do not know if the program keeps running or has ended with return code
   return Promise.resolve();
 }
 
@@ -80,6 +102,7 @@ function stop()
 
 var globalOffset;
 var globalBlob;
+var globalInit;
 var globalResolve = [];
 function processElf(elf)
 {
@@ -96,6 +119,8 @@ function processElf(elf)
       throw "too big blob";
   // TODO: BSS!!!!
     var appblob = new Uint8Array(end-begin);
+    globalBlob = appblob;
+    var init = [];
     for (var i=0; i<elfinfo.sections.length; i++)
     {
       var section = elfinfo.sections[i];
@@ -103,6 +128,14 @@ function processElf(elf)
         section.data.copyTo(appblob, section.addr - begin);
       else
         clearBss(appblob, section.addr - begin, section.size);
+
+      if (section.name == ".init_array")
+      {
+        globalOffset = begin;
+        globalBlob = appblob;
+        for (var i=0; i<section.size; i+=4)
+          init.push(readDword(section.addr + i));
+      }
     }
     for (var i=0; i<elfinfo.relocations.length; i++)
     {
@@ -115,6 +148,7 @@ function processElf(elf)
     console.log(appblob);
     globalOffset = begin;
     globalBlob = appblob;
+    globalInit = init;
     resolve(elfinfo)
 //    continueResolve(resolve);
   });
diff --git a/system/apps_featured/117_gabuino/web/v1/dsym_gabuino.js b/system/apps_featured/117_gabuino/web/v1/dsym_gabuino.js
index a917df93..c7bc7832 100644
--- a/system/apps_featured/117_gabuino/web/v1/dsym_gabuino.js
+++ b/system/apps_featured/117_gabuino/web/v1/dsym_gabuino.js
@@ -1,108 +1,108 @@
 dsym['gabuino'] = [
 {addr:0x20004780,len:1680,type:'range',name:'ram'},
-{addr:0x08040100,len:12360,type:'range',name:'rom'},
+{addr:0x08040100,len:12380,type:'range',name:'rom'},
 {addr:0x08040540,len:20,type:'code',name:'_HandleAssertion'},
 {addr:0x08040530,len:16,type:'code',name:'_PrepareRun()'},
-{addr:0x08040e34,len:4,type:'code',name:'_yield()'},
-{addr:0x08040d7c,len:156,type:'code',name:'EventLoop()'},
+{addr:0x08040e38,len:4,type:'code',name:'_yield()'},
+{addr:0x08040d80,len:156,type:'code',name:'EventLoop()'},
 {addr:0x08040358,len:380,type:'code',name:'RPC::GetRpcAdress(char*)'},
 {addr:0x080404d4,len:4,type:'code',name:'RPC::GetProcAddress(char*)'},
 {addr:0x080405b4,len:120,type:'code',name:'MEMORY::Screenshot()'},
-//{addr:0x20004780,len:4,type:'data',name:'MEMORY::userRetVal'},
+{addr:0x20004780,len:4,type:'data',name:'MEMORY::userRetVal'},
 {addr:0x0804062c,len:68,type:'code',name:'MEMORY::HandleWrite(unsigned char*, int)'},
 {addr:0x08040210,len:12,type:'code',name:'MEMORY::ReturnValue()'},
 {addr:0x0804022e,len:58,type:'code',name:'MEMORY::GetProcAddress2(char*)'},
 {addr:0x080401f0,len:12,type:'code',name:'MEMORY::Done()'},
-{addr:0x08040670,len:84,type:'code',name:'MEMORY::Exec(unsigned long)'},
+{addr:0x08040670,len:88,type:'code',name:'MEMORY::Exec(unsigned long)'},
 {addr:0x08040598,len:28,type:'code',name:'MEMORY::Read(unsigned long, int)'},
 {addr:0x0804021c,len:16,type:'code',name:'MEMORY::Stop()'},
 {addr:0x080401fc,len:8,type:'code',name:'MEMORY::Zero(unsigned long, unsigned long)'},
-{addr:0x08040e38,len:92,type:'code',name:'MEMORY::Frame()'},
+{addr:0x08040e3c,len:92,type:'code',name:'MEMORY::Frame()'},
 {addr:0x080401dc,len:20,type:'code',name:'MEMORY::Write(unsigned long, unsigned long)'},
 {addr:0x08040314,len:68,type:'code',name:'MEMORY::_Frame()'},
-{addr:0x08040e18,len:28,type:'code',name:'MEMORY::GetKey2()'},
+{addr:0x08040e1c,len:28,type:'code',name:'MEMORY::GetKey2()'},
 {addr:0x08040204,len:12,type:'code',name:'MEMORY::Running()'},
-{addr:0x080406c4,len:292,type:'code',name:'MEMORY::DbgPrint2(char const*, ...)'},
+{addr:0x080406c8,len:292,type:'code',name:'MEMORY::DbgPrint2(char const*, ...)'},
 {addr:0x080402c4,len:80,type:'code',name:'TERMINAL::BulkTransfer(unsigned char*, int)'},
 {addr:0x08040298,len:44,type:'code',name:'TERMINAL::cdc_waitReady()'},
 {addr:0x08040554,len:68,type:'code',name:'TERMINAL::Print(char const*, ...)'},
 {addr:0x08040294,len:4,type:'code',name:'TERMINAL::Write(unsigned char*, int)'},
 {addr:0x080404d8,len:88,type:'code',name:'__yield'},
-{addr:0x08041ba8,len:82,type:'code',name:'_usbd_control_in'},
-{addr:0x08041e82,len:130,type:'code',name:'_usbd_control_out'},
-{addr:0x08041e2a,len:88,type:'code',name:'_usbd_control_setup'},
-{addr:0x080419a4,len:50,type:'code',name:'_usbd_reset'},
-{addr:0x08041d34,len:48,type:'code',name:'_usbd_standard_request'},
-{addr:0x08041c80,len:72,type:'code',name:'_usbd_standard_request_device'},
-{addr:0x08041cf8,len:60,type:'code',name:'_usbd_standard_request_endpoint'},
-{addr:0x08041cc8,len:48,type:'code',name:'_usbd_standard_request_interface'},
-{addr:0x08041048,len:68,type:'code',name:'aggregate_register_callback'},
-{addr:0x08041018,len:48,type:'code',name:'aggregate_register_config_callback'},
-{addr:0x080411e4,len:12,type:'code',name:'cdc_set_receive_callback'},
-{addr:0x08041140,len:28,type:'code',name:'cdc_setup'},
-{addr:0x0804120c,len:44,type:'code',name:'cdc_transmit'},
-{addr:0x08041238,len:16,type:'code',name:'cdc_transmitReady'},
-{addr:0x080411f2,len:26,type:'code',name:'cdc_waitSync'},
-{addr:0x080411f0,len:2,type:'code',name:'cdc_yield'},
-{addr:0x08040f74,len:56,type:'code',name:'cdcacm_control_request'},
-{addr:0x0804232c,len:16,type:'code',name:'desig_get_flash_size'},
-{addr:0x0804233c,len:28,type:'code',name:'desig_get_unique_id'},
-{addr:0x08042358,len:112,type:'code',name:'desig_get_unique_id_as_string'},
+{addr:0x08041bac,len:82,type:'code',name:'_usbd_control_in'},
+{addr:0x08041e86,len:130,type:'code',name:'_usbd_control_out'},
+{addr:0x08041e2e,len:88,type:'code',name:'_usbd_control_setup'},
+{addr:0x080419a8,len:50,type:'code',name:'_usbd_reset'},
+{addr:0x08041d38,len:48,type:'code',name:'_usbd_standard_request'},
+{addr:0x08041c84,len:72,type:'code',name:'_usbd_standard_request_device'},
+{addr:0x08041cfc,len:60,type:'code',name:'_usbd_standard_request_endpoint'},
+{addr:0x08041ccc,len:48,type:'code',name:'_usbd_standard_request_interface'},
+{addr:0x0804104c,len:68,type:'code',name:'aggregate_register_callback'},
+{addr:0x0804101c,len:48,type:'code',name:'aggregate_register_config_callback'},
+{addr:0x080411e8,len:12,type:'code',name:'cdc_set_receive_callback'},
+{addr:0x08041144,len:28,type:'code',name:'cdc_setup'},
+{addr:0x08041210,len:44,type:'code',name:'cdc_transmit'},
+{addr:0x0804123c,len:16,type:'code',name:'cdc_transmitReady'},
+{addr:0x080411f6,len:26,type:'code',name:'cdc_waitSync'},
+{addr:0x080411f4,len:2,type:'code',name:'cdc_yield'},
+{addr:0x08040f78,len:56,type:'code',name:'cdcacm_control_request'},
+{addr:0x08042330,len:16,type:'code',name:'desig_get_flash_size'},
+{addr:0x08042340,len:28,type:'code',name:'desig_get_unique_id'},
+{addr:0x0804235c,len:112,type:'code',name:'desig_get_unique_id_as_string'},
 {addr:0x200047a4,len:2,type:'data',name:'device_address'},
 {addr:0x08040100,len:220,type:'code',name:'main'},
-{addr:0x080423c8,len:102,type:'code',name:'memcmp'},
-{addr:0x08042430,len:236,type:'code',name:'memcpy'},
-{addr:0x0804251c,len:164,type:'code',name:'memset'},
-{addr:0x080422cc,len:30,type:'code',name:'rcc_periph_clock_disable'},
-{addr:0x08042280,len:28,type:'code',name:'rcc_periph_clock_enable'},
-{addr:0x0804230e,len:4,type:'code',name:'rcc_periph_reset_hold'},
-{addr:0x080422ea,len:36,type:'code',name:'rcc_periph_reset_pulse'},
-{addr:0x08042312,len:4,type:'code',name:'rcc_periph_reset_release'},
-{addr:0x08042276,len:10,type:'code',name:'rcc_peripheral_clear_reset'},
-{addr:0x08042264,len:10,type:'code',name:'rcc_peripheral_disable_clock'},
-{addr:0x0804225c,len:8,type:'code',name:'rcc_peripheral_enable_clock'},
-{addr:0x0804226e,len:8,type:'code',name:'rcc_peripheral_reset'},
-{addr:0x08042316,len:22,type:'code',name:'rcc_set_mco'},
-{addr:0x08041fb8,len:38,type:'code',name:'st_usbfs_copy_from_pm'},
-{addr:0x08041f04,len:24,type:'code',name:'st_usbfs_copy_to_pm'},
-{addr:0x080413d0,len:68,type:'code',name:'st_usbfs_endpoints_reset'},
-{addr:0x08041538,len:92,type:'code',name:'st_usbfs_ep_nak_set'},
-{addr:0x08041fde,len:198,type:'code',name:'st_usbfs_ep_read_packet'},
-{addr:0x080420f4,len:360,type:'code',name:'st_usbfs_ep_setup'},
-{addr:0x08041500,len:56,type:'code',name:'st_usbfs_ep_stall_get'},
-{addr:0x08041414,len:236,type:'code',name:'st_usbfs_ep_stall_set'},
-{addr:0x08041f1c,len:156,type:'code',name:'st_usbfs_ep_write_packet'},
-{addr:0x080419d6,len:254,type:'code',name:'st_usbfs_poll'},
-{addr:0x080413be,len:18,type:'code',name:'st_usbfs_set_address'},
-{addr:0x080420a4,len:80,type:'code',name:'st_usbfs_set_ep_rx_bufsize'},
-{addr:0x08042f6c,len:52,type:'code',name:'st_usbfs_v1_usb_driver'},
-{addr:0x080425c0,len:62,type:'code',name:'strcat'},
-{addr:0x08042600,len:204,type:'code',name:'strchr'},
-{addr:0x080426cc,len:442,type:'code',name:'strcmp'},
-{addr:0x08042888,len:186,type:'code',name:'strcpy'},
-{addr:0x08042944,len:92,type:'code',name:'strlen'},
-{addr:0x080429a0,len:104,type:'code',name:'strncpy'},
-{addr:0x08041010,len:8,type:'code',name:'target_usb_init'},
-{addr:0x080410f0,len:36,type:'code',name:'usb_set_serial_number'},
-{addr:0x0804115c,len:136,type:'code',name:'usb_setup'},
-{addr:0x0804198a,len:12,type:'code',name:'usbd_disconnect'},
-{addr:0x08041c4c,len:8,type:'code',name:'usbd_ep_nak_set'},
-{addr:0x08041b3c,len:14,type:'code',name:'usbd_ep_read_packet'},
-{addr:0x08041996,len:14,type:'code',name:'usbd_ep_setup'},
-{addr:0x08041c1a,len:8,type:'code',name:'usbd_ep_stall_get'},
-{addr:0x08041b4a,len:8,type:'code',name:'usbd_ep_stall_set'},
-{addr:0x08041ad4,len:14,type:'code',name:'usbd_ep_write_packet'},
-{addr:0x08041900,len:92,type:'code',name:'usbd_init'},
-{addr:0x08041982,len:8,type:'code',name:'usbd_poll'},
-{addr:0x080418d4,len:44,type:'code',name:'usbd_register_control_callback'},
-{addr:0x0804196c,len:22,type:'code',name:'usbd_register_extra_string'},
-{addr:0x0804195c,len:4,type:'code',name:'usbd_register_reset_callback'},
-{addr:0x08041964,len:4,type:'code',name:'usbd_register_resume_callback'},
-{addr:0x08041c7a,len:6,type:'code',name:'usbd_register_set_altsetting_callback'},
-{addr:0x08041c54,len:38,type:'code',name:'usbd_register_set_config_callback'},
-{addr:0x08041968,len:4,type:'code',name:'usbd_register_sof_callback'},
-{addr:0x08041960,len:4,type:'code',name:'usbd_register_suspend_callback'},
-{addr:0x08042eb7,len:24,type:'code',name:'webusb_platform_capability_descriptor'},
-{addr:0x08042e9f,len:24,type:'code',name:'webusb_platform_capability_descriptor_no_landing_page'},
-{addr:0x08041114,len:44,type:'code',name:'webusb_setup'},
+{addr:0x080423cc,len:102,type:'code',name:'memcmp'},
+{addr:0x08042434,len:236,type:'code',name:'memcpy'},
+{addr:0x08042520,len:164,type:'code',name:'memset'},
+{addr:0x080422d0,len:30,type:'code',name:'rcc_periph_clock_disable'},
+{addr:0x08042284,len:28,type:'code',name:'rcc_periph_clock_enable'},
+{addr:0x08042312,len:4,type:'code',name:'rcc_periph_reset_hold'},
+{addr:0x080422ee,len:36,type:'code',name:'rcc_periph_reset_pulse'},
+{addr:0x08042316,len:4,type:'code',name:'rcc_periph_reset_release'},
+{addr:0x0804227a,len:10,type:'code',name:'rcc_peripheral_clear_reset'},
+{addr:0x08042268,len:10,type:'code',name:'rcc_peripheral_disable_clock'},
+{addr:0x08042260,len:8,type:'code',name:'rcc_peripheral_enable_clock'},
+{addr:0x08042272,len:8,type:'code',name:'rcc_peripheral_reset'},
+{addr:0x0804231a,len:22,type:'code',name:'rcc_set_mco'},
+{addr:0x08041fbc,len:38,type:'code',name:'st_usbfs_copy_from_pm'},
+{addr:0x08041f08,len:24,type:'code',name:'st_usbfs_copy_to_pm'},
+{addr:0x080413d4,len:68,type:'code',name:'st_usbfs_endpoints_reset'},
+{addr:0x0804153c,len:92,type:'code',name:'st_usbfs_ep_nak_set'},
+{addr:0x08041fe2,len:198,type:'code',name:'st_usbfs_ep_read_packet'},
+{addr:0x080420f8,len:360,type:'code',name:'st_usbfs_ep_setup'},
+{addr:0x08041504,len:56,type:'code',name:'st_usbfs_ep_stall_get'},
+{addr:0x08041418,len:236,type:'code',name:'st_usbfs_ep_stall_set'},
+{addr:0x08041f20,len:156,type:'code',name:'st_usbfs_ep_write_packet'},
+{addr:0x080419da,len:254,type:'code',name:'st_usbfs_poll'},
+{addr:0x080413c2,len:18,type:'code',name:'st_usbfs_set_address'},
+{addr:0x080420a8,len:80,type:'code',name:'st_usbfs_set_ep_rx_bufsize'},
+{addr:0x08042f80,len:52,type:'code',name:'st_usbfs_v1_usb_driver'},
+{addr:0x080425c4,len:62,type:'code',name:'strcat'},
+{addr:0x08042604,len:204,type:'code',name:'strchr'},
+{addr:0x080426d0,len:442,type:'code',name:'strcmp'},
+{addr:0x0804288c,len:186,type:'code',name:'strcpy'},
+{addr:0x08042948,len:92,type:'code',name:'strlen'},
+{addr:0x080429a4,len:104,type:'code',name:'strncpy'},
+{addr:0x08041014,len:8,type:'code',name:'target_usb_init'},
+{addr:0x080410f4,len:36,type:'code',name:'usb_set_serial_number'},
+{addr:0x08041160,len:136,type:'code',name:'usb_setup'},
+{addr:0x0804198e,len:12,type:'code',name:'usbd_disconnect'},
+{addr:0x08041c50,len:8,type:'code',name:'usbd_ep_nak_set'},
+{addr:0x08041b40,len:14,type:'code',name:'usbd_ep_read_packet'},
+{addr:0x0804199a,len:14,type:'code',name:'usbd_ep_setup'},
+{addr:0x08041c1e,len:8,type:'code',name:'usbd_ep_stall_get'},
+{addr:0x08041b4e,len:8,type:'code',name:'usbd_ep_stall_set'},
+{addr:0x08041ad8,len:14,type:'code',name:'usbd_ep_write_packet'},
+{addr:0x08041904,len:92,type:'code',name:'usbd_init'},
+{addr:0x08041986,len:8,type:'code',name:'usbd_poll'},
+{addr:0x080418d8,len:44,type:'code',name:'usbd_register_control_callback'},
+{addr:0x08041970,len:22,type:'code',name:'usbd_register_extra_string'},
+{addr:0x08041960,len:4,type:'code',name:'usbd_register_reset_callback'},
+{addr:0x08041968,len:4,type:'code',name:'usbd_register_resume_callback'},
+{addr:0x08041c7e,len:6,type:'code',name:'usbd_register_set_altsetting_callback'},
+{addr:0x08041c58,len:38,type:'code',name:'usbd_register_set_config_callback'},
+{addr:0x0804196c,len:4,type:'code',name:'usbd_register_sof_callback'},
+{addr:0x08041964,len:4,type:'code',name:'usbd_register_suspend_callback'},
+{addr:0x08042ecb,len:24,type:'code',name:'webusb_platform_capability_descriptor'},
+{addr:0x08042eb3,len:24,type:'code',name:'webusb_platform_capability_descriptor_no_landing_page'},
+{addr:0x08041118,len:44,type:'code',name:'webusb_setup'},
 ]
diff --git a/system/apps_featured/117_gabuino/web/v1/dsym_os.js b/system/apps_featured/117_gabuino/web/v1/dsym_os.js
index 4af9cde5..ff4688cd 100644
--- a/system/apps_featured/117_gabuino/web/v1/dsym_os.js
+++ b/system/apps_featured/117_gabuino/web/v1/dsym_os.js
@@ -1,6 +1,6 @@
 dsym['os_la104'] = [
 {addr:0x20000000,len:10212,type:'range',name:'ram'},
-{addr:0x08008000,len:45084,type:'range',name:'rom'},
+{addr:0x08008000,len:45088,type:'range',name:'rom'},
 {addr:0x20000174,len:16,type:'data',name:'AHBPrescTable'},
 {addr:0x08010654,len:32,type:'code',name:'Bot_Abort'},
 {addr:0x08008198,len:16,type:'code',name:'BusFaultException'},
@@ -18,7 +18,7 @@ dsym['os_la104'] = [
 {addr:0x080083e2,len:2,type:'code',name:'Default_Handler'},
 {addr:0x08008508,len:16,type:'code',name:'Delay_mS'},
 {addr:0x0800ff5c,len:40,type:'code',name:'Disk_Init'},
-{addr:0x08012ee4,len:36,type:'code',name:'Disk_Inquiry_Str'},
+{addr:0x08012ee8,len:36,type:'code',name:'Disk_Inquiry_Str'},
 {addr:0x0800ff94,len:8,type:'code',name:'Disk_SecRd'},
 {addr:0x0800ff84,len:16,type:'code',name:'Disk_SecWr'},
 {addr:0x080083e0,len:2,type:'code',name:'Dummy_Handler'},
@@ -151,9 +151,9 @@ dsym['os_la104'] = [
 {addr:0x0800c51e,len:158,type:'code',name:'I2S_Init'},
 {addr:0x0800c5d4,len:14,type:'code',name:'I2S_StructInit'},
 {addr:0x0800d96c,len:92,type:'code',name:'In0_Process'},
-{addr:0x08012f68,len:32,type:'code',name:'MASS_ConfigDescriptor'},
+{addr:0x08012f6c,len:32,type:'code',name:'MASS_ConfigDescriptor'},
 {addr:0x080108e6,len:54,type:'code',name:'MASS_Data_Setup'},
-{addr:0x08012f88,len:18,type:'code',name:'MASS_DeviceDescriptor'},
+{addr:0x08012f8c,len:18,type:'code',name:'MASS_DeviceDescriptor'},
 {addr:0x0801083c,len:12,type:'code',name:'MASS_GetConfigDescriptor'},
 {addr:0x08010830,len:12,type:'code',name:'MASS_GetDeviceDescriptor'},
 {addr:0x08010848,len:32,type:'code',name:'MASS_GetStringDescriptor'},
@@ -163,11 +163,11 @@ dsym['os_la104'] = [
 {addr:0x0801072c,len:232,type:'code',name:'MASS_Reset'},
 {addr:0x080106e0,len:2,type:'code',name:'MASS_Status_In'},
 {addr:0x080108e4,len:2,type:'code',name:'MASS_Status_Out'},
-{addr:0x08012f08,len:16,type:'code',name:'MASS_StringInterface'},
-{addr:0x08012f64,len:4,type:'code',name:'MASS_StringLangID'},
-{addr:0x08012f18,len:38,type:'code',name:'MASS_StringProduct'},
+{addr:0x08012f0c,len:16,type:'code',name:'MASS_StringInterface'},
+{addr:0x08012f68,len:4,type:'code',name:'MASS_StringLangID'},
+{addr:0x08012f1c,len:38,type:'code',name:'MASS_StringProduct'},
 {addr:0x20000242,len:26,type:'data',name:'MASS_StringSerial'},
-{addr:0x08012f3e,len:38,type:'code',name:'MASS_StringVendor'},
+{addr:0x08012f42,len:38,type:'code',name:'MASS_StringVendor'},
 {addr:0x08010708,len:36,type:'code',name:'MASS_init'},
 {addr:0x08010814,len:28,type:'code',name:'Mass_Storage_ClearFeature'},
 {addr:0x08010410,len:76,type:'code',name:'Mass_Storage_In'},
@@ -533,7 +533,7 @@ dsym['os_la104'] = [
 {addr:0x080085c6,len:66,type:'code',name:'BIOS::LCD::Rectangle(CRect const&, unsigned short)'},
 {addr:0x080086fc,len:20,type:'code',name:'BIOS::LCD::RoundRect(CRect const&, unsigned short)'},
 {addr:0x08008674,len:136,type:'code',name:'BIOS::LCD::RoundRect(int, int, int, int, unsigned short)'},
-{addr:0x08010f24,len:164,type:'code',name:'BIOS::SYS::GetAttribute(BIOS::SYS::EAttribute)'},
+{addr:0x08010f24,len:168,type:'code',name:'BIOS::SYS::GetAttribute(BIOS::SYS::EAttribute)'},
 {addr:0x0800abe0,len:1224,type:'code',name:'BIOS::SYS::GetProcAddress(char*)'},
 {addr:0x08008532,len:30,type:'code',name:'BIOS::SYS::Beep(int)'},
 {addr:0x08008518,len:4,type:'code',name:'BIOS::SYS::Init()'},
@@ -574,41 +574,41 @@ dsym['os_la104'] = [
 {addr:0x0800f2ac,len:96,type:'code',name:'UART::uart_deinit()'},
 {addr:0x0800f17c,len:156,type:'code',name:'UART::uart_configure(int, int, char, int)'},
 {addr:0x0800f218,len:148,type:'code',name:'UART::uart_init()'},
-{addr:0x08012fbc,len:16,type:'code',name:'vtable for CSerialize'},
+{addr:0x08012fc0,len:16,type:'code',name:'vtable for CSerialize'},
 {addr:0x08000100,len:24,type:'code',name:'__Bios'},
 {addr:0x080083e4,len:84,type:'code',name:'__Init_Data'},
-{addr:0x080111dc,len:352,type:'code',name:'__addsf3'},
-{addr:0x08011464,len:16,type:'code',name:'__aeabi_cfcmpeq'},
-{addr:0x08011464,len:16,type:'code',name:'__aeabi_cfcmple'},
-{addr:0x0801145c,len:24,type:'code',name:'__aeabi_cfrcmple'},
-{addr:0x08011130,len:158,type:'code',name:'__aeabi_d2f'},
-{addr:0x080114d8,len:76,type:'code',name:'__aeabi_f2iz'},
-{addr:0x080111dc,len:352,type:'code',name:'__aeabi_fadd'},
-{addr:0x08011474,len:18,type:'code',name:'__aeabi_fcmpeq'},
-{addr:0x080114b0,len:18,type:'code',name:'__aeabi_fcmpge'},
-{addr:0x080114c4,len:18,type:'code',name:'__aeabi_fcmpgt'},
-{addr:0x0801149c,len:18,type:'code',name:'__aeabi_fcmple'},
-{addr:0x08011488,len:18,type:'code',name:'__aeabi_fcmplt'},
-{addr:0x080111d0,len:364,type:'code',name:'__aeabi_frsub'},
-{addr:0x080111d8,len:356,type:'code',name:'__aeabi_fsub'},
-{addr:0x08011344,len:28,type:'code',name:'__aeabi_i2f'},
-{addr:0x08011370,len:124,type:'code',name:'__aeabi_l2f'},
-{addr:0x0801133c,len:36,type:'code',name:'__aeabi_ui2f'},
-{addr:0x08011360,len:140,type:'code',name:'__aeabi_ul2f'},
-{addr:0x080113fc,len:94,type:'code',name:'__cmpsf2'},
-{addr:0x080113fc,len:94,type:'code',name:'__eqsf2'},
-{addr:0x080114d8,len:76,type:'code',name:'__fixsfsi'},
-{addr:0x08011370,len:124,type:'code',name:'__floatdisf'},
-{addr:0x08011344,len:28,type:'code',name:'__floatsisf'},
-{addr:0x08011360,len:140,type:'code',name:'__floatundisf'},
-{addr:0x0801133c,len:36,type:'code',name:'__floatunsisf'},
-{addr:0x080113ec,len:110,type:'code',name:'__gesf2'},
-{addr:0x080113ec,len:110,type:'code',name:'__gtsf2'},
-{addr:0x080113f4,len:102,type:'code',name:'__lesf2'},
-{addr:0x080113f4,len:102,type:'code',name:'__ltsf2'},
-{addr:0x080113fc,len:94,type:'code',name:'__nesf2'},
-{addr:0x080111d8,len:356,type:'code',name:'__subsf3'},
-{addr:0x08011130,len:158,type:'code',name:'__truncdfsf2'},
+{addr:0x080111e0,len:352,type:'code',name:'__addsf3'},
+{addr:0x08011468,len:16,type:'code',name:'__aeabi_cfcmpeq'},
+{addr:0x08011468,len:16,type:'code',name:'__aeabi_cfcmple'},
+{addr:0x08011460,len:24,type:'code',name:'__aeabi_cfrcmple'},
+{addr:0x08011134,len:158,type:'code',name:'__aeabi_d2f'},
+{addr:0x080114dc,len:76,type:'code',name:'__aeabi_f2iz'},
+{addr:0x080111e0,len:352,type:'code',name:'__aeabi_fadd'},
+{addr:0x08011478,len:18,type:'code',name:'__aeabi_fcmpeq'},
+{addr:0x080114b4,len:18,type:'code',name:'__aeabi_fcmpge'},
+{addr:0x080114c8,len:18,type:'code',name:'__aeabi_fcmpgt'},
+{addr:0x080114a0,len:18,type:'code',name:'__aeabi_fcmple'},
+{addr:0x0801148c,len:18,type:'code',name:'__aeabi_fcmplt'},
+{addr:0x080111d4,len:364,type:'code',name:'__aeabi_frsub'},
+{addr:0x080111dc,len:356,type:'code',name:'__aeabi_fsub'},
+{addr:0x08011348,len:28,type:'code',name:'__aeabi_i2f'},
+{addr:0x08011374,len:124,type:'code',name:'__aeabi_l2f'},
+{addr:0x08011340,len:36,type:'code',name:'__aeabi_ui2f'},
+{addr:0x08011364,len:140,type:'code',name:'__aeabi_ul2f'},
+{addr:0x08011400,len:94,type:'code',name:'__cmpsf2'},
+{addr:0x08011400,len:94,type:'code',name:'__eqsf2'},
+{addr:0x080114dc,len:76,type:'code',name:'__fixsfsi'},
+{addr:0x08011374,len:124,type:'code',name:'__floatdisf'},
+{addr:0x08011348,len:28,type:'code',name:'__floatsisf'},
+{addr:0x08011364,len:140,type:'code',name:'__floatundisf'},
+{addr:0x08011340,len:36,type:'code',name:'__floatunsisf'},
+{addr:0x080113f0,len:110,type:'code',name:'__gesf2'},
+{addr:0x080113f0,len:110,type:'code',name:'__gtsf2'},
+{addr:0x080113f8,len:102,type:'code',name:'__lesf2'},
+{addr:0x080113f8,len:102,type:'code',name:'__ltsf2'},
+{addr:0x08011400,len:94,type:'code',name:'__nesf2'},
+{addr:0x080111dc,len:356,type:'code',name:'__subsf3'},
+{addr:0x08011134,len:158,type:'code',name:'__truncdfsf2'},
 {addr:0x08008d82,len:22,type:'code',name:'clust2sect'},
 {addr:0x08010b38,len:392,type:'code',name:'commonUSB_Istr'},
 {addr:0x08010cc0,len:36,type:'code',name:'common_Initialize'},
@@ -671,16 +671,16 @@ dsym['os_la104'] = [
 {addr:0x08010934,len:28,type:'code',name:'mass_Leave_LowPowerMode'},
 {addr:0x20000278,len:28,type:'data',name:'masspEpInt_IN'},
 {addr:0x2000025c,len:28,type:'data',name:'masspEpInt_OUT'},
-{addr:0x08011524,len:236,type:'code',name:'memcpy'},
-{addr:0x08011610,len:164,type:'code',name:'memset'},
+{addr:0x08011528,len:236,type:'code',name:'memcpy'},
+{addr:0x08011614,len:164,type:'code',name:'memset'},
 {addr:0x20000134,len:4,type:'data',name:'pLeaveLowPowerMode'},
 {addr:0x080081c8,len:96,type:'code',name:'print_callers'},
 {addr:0x08008228,len:148,type:'code',name:'print_hardfault'},
 {addr:0x20000130,len:4,type:'data',name:'ptrFont'},
 {addr:0x0800924e,len:290,type:'code',name:'put_fat'},
-{addr:0x080116b4,len:442,type:'code',name:'strcmp'},
-{addr:0x08011870,len:186,type:'code',name:'strcpy'},
-{addr:0x0801192c,len:92,type:'code',name:'strlen'},
-{addr:0x08011988,len:124,type:'code',name:'strncmp'},
+{addr:0x080116b8,len:442,type:'code',name:'strcmp'},
+{addr:0x08011874,len:186,type:'code',name:'strcpy'},
+{addr:0x08011930,len:92,type:'code',name:'strlen'},
+{addr:0x0801198c,len:124,type:'code',name:'strncmp'},
 {addr:0x0800bd8c,len:26,type:'code',name:'xBeep'},
 ]
diff --git a/system/apps_featured/117_gabuino/web/v1/examples.js b/system/apps_featured/117_gabuino/web/v1/examples.js
index 7c5f6c6b..43f9744b 100644
--- a/system/apps_featured/117_gabuino/web/v1/examples.js
+++ b/system/apps_featured/117_gabuino/web/v1/examples.js
@@ -218,7 +218,7 @@ examples =
     '    \n' +
     '    return 0;\n' +
     '}',
-  'gabo.cpp': '#include <library.h>\n' +
+  'demo.cpp': '#include <library.h>\n' +
     '\n' +
     'using namespace BIOS;\n' +
     '\n' +
@@ -239,7 +239,7 @@ examples =
     '        y = y1;\n' +
     '\n' +
     '        if ((c++ % 1000) == 0)\n' +
-    '            DBG::Print("%d lines, ", c/1000);\n' +
+    '            DBG::Print("<b>%d</b> lines, ", c);\n' +
     '    }\n' +
     '    \n' +
     '    return 0;\n' +
@@ -404,6 +404,54 @@ examples =
     '}\n' +
     '\n' +
     '\n',
+  'flappybird.cpp': '// Play flappy bird in browser, press F1 on LA104 to jump\n' +
+    '// Based on Tiny flappy bird by Daniel Bark:\n' +
+    '//   https://github.com/danba340/tiny-flappy-bird\n' +
+    '\n' +
+    '#include <library.h>\n' +
+    '\n' +
+    'int main(void)\n' +
+    '{\n' +
+    '    BIOS::DBG::Print(R"(<canvas id="c" width="400" height="400" style="background:gray"></canvas>)");\n' +
+    '\n' +
+    '    BIOS::DBG::Print(R"(<script>\n' +
+    '    context = document.getElementById("c").getContext("2d");\n' +
+    '    bird = new Image();\n' +
+    '    bird.src = "https://raw.githubusercontent.com/danba340/tiny-flappy-bird/master/bird.png";\n' +
+    '    birdX = birdDY = score = bestScore = 0;\n' +
+    '    interval = birdSize = pipeWidth = topPipeBottomY = 24;\n' +
+    '    birdY = pipeGap = 200;\n' +
+    '    canvasSize = pipeX = 400;\n' +
+    '    c.onclick = () => (birdDY = 9);\n' +
+    '    setInterval(() => {\n' +
+    '      context.fillStyle = "skyblue";\n' +
+    '      context.fillRect(0,0,canvasSize,canvasSize); // Draw sky\n' +
+    '      birdY -= birdDY -= 0.5; // Gravity\n' +
+    '      context.drawImage(bird, birdX, birdY, birdSize * (524/374), birdSize); // Draw bird\n' +
+    '      context.fillStyle = "green";\n' +
+    '      pipeX -= 8; // Move pipe\n' +
+    '      pipeX < -pipeWidth && // Pipe off screen?\n' +
+    '        ((pipeX = canvasSize), (topPipeBottomY = pipeGap * Math.random())); // Reset pipe and randomize gap.\n' +
+    '      context.fillRect(pipeX, 0, pipeWidth, topPipeBottomY); // Draw top pipe\n' +
+    '      context.fillRect(pipeX, topPipeBottomY + pipeGap, pipeWidth, canvasSize); // Draw bottom pipe\n' +
+    '      context.fillStyle = "black";\n' +
+    '      context.fillText(score++, 9, 25); // Increase and draw score\n' +
+    '      bestScore = bestScore < score ? score : bestScore; // New best score?\n' +
+    "      context.fillText('Best: '+bestScore, 9, 50); // Draw best score\n" +
+    '      (((birdY < topPipeBottomY || birdY > topPipeBottomY + pipeGap) && pipeX < birdSize * (524/374))// Bird hit pipe?\n' +
+    '       || birdY > canvasSize) && // Bird falls off screen\n' +
+    '      ((birdDY = 0), (birdY = 200), (pipeX = canvasSize), (score = 0)); // Bird died\n' +
+    '    }, interval)\n' +
+    '  </script>)");\n' +
+    '\n' +
+    '    BIOS::KEY::EKey key;\n' +
+    '    while ((key = BIOS::KEY::GetKey()) != BIOS::KEY::EKey::Escape)\n' +
+    '    {\n' +
+    '        if (key == BIOS::KEY::EKey::Enter)\n' +
+    '            BIOS::DBG::Print(R"(<script>birdDY=9</script>)");\n' +
+    '    }\n' +
+    '    return 0;\n' +
+    '}\n',
   'gps.cpp': '#include <library.h>\n' +
     '\n' +
     'using namespace BIOS;\n' +
@@ -599,15 +647,102 @@ examples =
     '    \n' +
     '    return 0;\n' +
     '}',
-  'map.cpp': '#include <library.h>\n' +
+  'melody.cpp': '// plays Axel F on internal piezo speaker of LA104\n' +
+    '#include <library.h>\n' +
+    '#include <math.h>\n' +
     '\n' +
-    'int main(void)\n' +
+    'void WriteTim8(int reg, uint16_t val)\n' +
+    '{\n' +
+    '  *((uint16_t*)(0x40013400 + reg)) = val;\n' +
+    '}\n' +
+    '\n' +
+    'void SoundOn()\n' +
+    '{\n' +
+    '  WriteTim8(0x20, 0x3000);\n' +
+    '  WriteTim8(0x00, 0x0081);\n' +
+    '  WriteTim8(0x40, 150); // volume\n' +
+    '}\n' +
+    '\n' +
+    'void SoundOff()\n' +
+    '{\n' +
+    '  WriteTim8(0x20, 0x0000);\n' +
+    '  WriteTim8(0x00, 0x0080);\n' +
+    '}\n' +
+    '\n' +
+    'void Sound(int f)\n' +
+    '{\n' +
+    '    WriteTim8(0x24, 0);\n' +
+    '    WriteTim8(0x28, 15-1);\n' +
+    '    int div = 72e6/15/f;\n' +
+    '    WriteTim8(0x2c, div-1);\n' +
+    '    //BIOS::DBG::Print("f=%d, div=%d, ", f, div);\n' +
+    '    SoundOn();\n' +
+    '}\n' +
+    '\n' +
+    'int C=0, Cis=1, D=2, Dis=3, E=4, F=5, Fis=6, G=7, Gis=8, A=9, Ais=10, B=11, None=12;\n' +
+    'const int BPM = 120;\n' +
+    '\n' +
+    'const int Beat = 60000 / BPM;\n' +
+    'int Whole = Beat*4;\n' +
+    'int Half = Whole/2;\n' +
+    'int Quarter = Whole/4;\n' +
+    'int Eigth = Whole/8;\n' +
+    'int Sixteenth = Whole/16;\n' +
+    'int Thirtysecond = Whole/32;\n' +
+    'int WholeDot = Whole*1.5;\n' +
+    'int HalfDot = Half*1.5;\n' +
+    'int QuarterDot = Quarter*1.5;\n' +
+    'int EigthDot = Eigth*1.5;\n' +
+    'int SixteenthDot = Sixteenth*1.5;\n' +
+    'int ThirtysecondDot = Thirtysecond*1.5;\n' +
+    '\n' +
+    'int Frequency(int note, int octave)\n' +
+    '{\n' +
+    '  const int table[] = {4186, 4434, 4698, 4978, 5274, 5587, 5915, 6271, 6644, 7040, 7458, 7902};\n' +
+    '  return table[note] >> (4-octave);\n' +
+    '}\n' +
+    '\n' +
+    'void Play(int note, int octave, int length)\n' +
+    '{\n' +
+    '  if (note != None) \n' +
+    '    Sound(Frequency(note, octave));\n' +
+    '\n' +
+    '  //BIOS::DBG::Print("len=%d, ", length);\n' +
+    '  BIOS::SYS::DelayMs(length);\n' +
+    '  SoundOff();\n' +
+    '  BIOS::SYS::DelayMs(10);\n' +
+    '}\n' +
+    '\n' +
+    'int main()\n' +
     '{\n' +
-    `    BIOS::DBG::Print("<div style='position:relative;'>");\n` +
-    `    BIOS::DBG::Print("<div style='position:absolute; left:0px; top:80px; width:400px; height:200px;'><img src='https://www.world-maps.org/images/wor32k6.jpg'></div>");\n` +
-    `    BIOS::DBG::Print("<div style='position:absolute; left:60px; top:120px; width:8px; height:8px; background:#ff0000;'>On top</div>");\n` +
-    '    BIOS::DBG::Print("</div>");\n' +
+    '    // generated from http://x.valky.eu/klavirgen\n' +
+    '    Play(G, 2, Quarter);\n' +
+    '    Play(Ais, 2, EigthDot);\n' +
+    '    Play(G, 2, Sixteenth);\n' +
+    '    Play(None, 0, Sixteenth);\n' +
+    '    Play(G, 2, Sixteenth);\n' +
+    '    Play(C, 3, Eigth);\n' +
+    '    Play(G, 2, Eigth);\n' +
+    '    Play(F, 2, Eigth);\n' +
+    '    Play(G, 2, Quarter);\n' +
+    '    Play(D, 3, EigthDot);\n' +
+    '    Play(G, 2, Sixteenth);\n' +
+    '    Play(None, 0, Sixteenth);\n' +
+    '    Play(G, 2, Sixteenth);\n' +
+    '    Play(Dis, 3, Eigth);\n' +
+    '    Play(D, 3, Eigth);\n' +
+    '    Play(Ais, 2, Eigth);\n' +
+    '    Play(G, 2, Eigth);\n' +
+    '    Play(D, 3, Eigth);\n' +
+    '    Play(G, 3, Eigth);\n' +
+    '    Play(G, 2, Sixteenth);\n' +
+    '    Play(F, 2, Sixteenth);\n' +
+    '    Play(None, 0, Sixteenth);\n' +
+    '    Play(F, 2, Sixteenth);\n' +
+    '    Play(D, 2, Eigth);\n' +
+    '    Play(A, 2, Eigth);\n' +
+    '    Play(G, 2, Half);\n' +
+    '\n' +
     '    return 0;\n' +
-    '}\n',
-  'return.cpp': '#include <library.h>\n\nint main(void)\n{\n    return 724;\n}\n'
+    '}\n'
 }
diff --git a/system/apps_featured/117_gabuino/web/v1/index.html b/system/apps_featured/117_gabuino/web/v1/index.html
index 2e8ada3d..1c5a155a 100644
--- a/system/apps_featured/117_gabuino/web/v1/index.html
+++ b/system/apps_featured/117_gabuino/web/v1/index.html
@@ -277,22 +277,186 @@ <h4 class="card-title mb-4 mt-1">Testing</h4>
 
 using namespace BIOS;
 
-__attribute__((__section__(".entry")))
+typedef int fix16_t;
+void drawline_aa(fix16_t fx1, fix16_t fy1, fix16_t fx2, fix16_t fy2, int color);
+
 int main(void)
 {
-    BIOS::KEY::EKey key;
-    while ((key = KEY::GetKey()) != BIOS::KEY::EKey::Escape)
+    int x = 100, y = 100, c = 0;
+    KEY::EKey key;
+    while ((key = KEY::GetKey()) != KEY::EKey::Escape)
     {
-      EVERY(5000)
-      {
-         BIOS::DBG::Print("Ahoj!");
-      }
-      SYS::DelayMs(50);
+        int x1 = rand() % LCD::Width;
+        int y1 = 16+(rand() % (LCD::Height-32));
+        int c = rand() & 0xffff;
+        drawline_aa(x*256, y*256, x1*256, y1*256, c);
+        x = x1;
+        y = y1;
+
+        if ((c++ % 1000) == 0)
+            DBG::Print("<b>%d</b> lines, ", c);
     }
     
     return 0;
 }
-</xmp>
 
+
+
+
+// https://github.com/PetteriAimonen/QuadPawn/blob/master/Runtime/drawing.c
+
+/* Antialiased line drawing */
+
+// Alpha-blend two colors together. Alpha is 0 to 255.
+// The ratios have been biased a bit to make the result look
+// better on a cheap TFT.
+int blend(int fg, int bg, int alpha)
+{
+    int fg_per_2 = (fg & 0xF7DE) >> 1;
+    int fg_per_4 = (fg & 0xE79C) >> 2;
+    int fg_per_8 = (fg & 0xC718) >> 3;
+    
+    int bg_per_2 = (bg & 0xF7DE) >> 1;
+    int bg_per_4 = (bg & 0xE79C) >> 2;
+    int bg_per_8 = (bg & 0xC718) >> 3;
+    
+    if (alpha > 224)
+        return fg; // 100% blend
+    else if (alpha > 192)
+        return (fg - fg_per_8 + bg_per_8); // 88% blend
+    else if (alpha > 128)
+        return (fg - fg_per_4 + bg_per_4); // 75% blend
+    else if (alpha > 64)
+        return (fg_per_2 + bg_per_2); // 50% blend
+    else if (alpha > 32)
+        return (fg_per_4 + bg - bg_per_4); // 25% blend
+    else
+        return bg; // 0% blend
+}
+
+
+// Draws antialiased lines
+// Xiaolin Wu's algorithm, using x/256 fixed point values
+void drawline_aa(fix16_t x1, fix16_t y1, fix16_t x2, fix16_t y2, int color)
+{
+    bool reverse_xy = false;
+    
+    auto swap = [](int *x, int *y) {
+        int temp = *x;
+        *x = *y;
+        *y = temp;
+    };
+    
+    // plot the pixel at (x, y) with brightness c
+    auto plot = [&](int x, int y, int c) {
+        if (reverse_xy)
+            swap(&x, &y);
+        
+        uint16_t oldcolor = BIOS::LCD::GetPixel(x >> 8, y >> 8);
+        BIOS::LCD::PutPixel(x >> 8, y >> 8, blend(color, oldcolor, c));
+    };
+    
+    // Integer part of x
+    auto ipart = [](int x) -> int {
+        return x & (~0xFF);
+    };
+    
+    auto round = [&](int x) -> int {
+        return ipart(x + 128);
+    };
+    
+    // Fractional part of x
+    auto fpart = [](int x) -> int {
+        return x & 0xFF;
+    };
+    
+    // Remaining fractional part of x
+    auto rfpart = [&](int x) -> int {
+        return 256 - fpart(x);
+    };
+
+    int dx = x2 - x1;
+    int dy = y2 - y1;
+    if (abs(dx) < abs(dy))
+    {
+        swap(&x1, &y1);
+        swap(&x2, &y2);
+        swap(&dx, &dy);
+        reverse_xy = true;
+    }
+    
+    if (x2 < x1)
+    {
+        swap(&x1, &x2);
+        swap(&y1, &y2);
+    }
+    
+    int gradient = dy * 256 / dx;
+    
+    // handle first endpoint
+    int xend = round(x1);
+    int yend = y1 + gradient * (xend - x1) / 256;
+    int xgap = rfpart(x1 + 128);
+    int xpxl1 = xend;  // this will be used in the main loop
+    int ypxl1 = ipart(yend);
+    plot(xpxl1, ypxl1, rfpart(yend) * xgap / 256);
+    plot(xpxl1, ypxl1 + 256, fpart(yend) * xgap / 256);
+    int intery = yend + gradient; // first y-intersection for the main loop
+    
+    // handle second endpoint
+    xend = round(x2);
+    yend = y2 + gradient * (xend - x2) / 256;
+    xgap = fpart(x2 + 128);
+    int xpxl2 = xend;  // this will be used in the main loop
+    int ypxl2 = ipart(yend);
+    plot(xpxl2, ypxl2, rfpart(yend) * xgap / 256);
+    plot(xpxl2, ypxl2 + 256, fpart(yend) * xgap / 256);
+    
+    // main loop
+    for (int x = xpxl1 + 1; x <= xpxl2 - 1; x += 256)
+    {
+        plot(x, ipart(intery), rfpart(intery));
+        plot(x, ipart(intery) + 256, fpart(intery));
+        intery = intery + gradient;
+    }
+}
+
+/* Non-antialiased line drawing */
+
+void drawline(int x1, int y1, int x2, int y2, int color, int dots)
+{
+    // Algorithm from here: http://en.wikipedia.org/wiki/Bresenham%27s_line_algorithm#Simplification
+    int dx = abs(x2 - x1);
+    int dy = abs(y2 - y1);
+    
+    int sx = (x1 < x2) ? 1 : -1;
+    int sy = (y1 < y2) ? 1 : -1;
+    
+    int err = dx - dy;
+    int count = 0;
+    for(;; count++)
+    {
+        if (!dots || (count >> (dots - 1)) & 1)
+        {
+            //__Point_SCR(x1, y1);
+            //__LCD_SetPixl(color);
+        }
+        
+        if (x1 == x2 && y1 == y2) break;
+        
+        int e2 = 2 * err;
+        if (e2 > -dy)
+        {
+            err -= dy;
+            x1 += sx;
+        }
+        else if (e2 < dx)
+        {
+            err += dx;
+            y1 += sy;
+        }
+    }
+}
+</xmp>
 </body>
 </html>    
\ No newline at end of file