build: add the SIBO SDK

2026-07-06 18:01:36 +01:00
parent d76326729c
commit 64e484448c
757 changed files with 97167 additions and 0 deletions
@@ -0,0 +1,118 @@
+/*
+T_MUSFRC.C - Test the musical sound driver from the Frc
+
+Written by John, April 1992
+*/
+
+#include <plib.h>
+
+/* all are 1 sec duration by default */
+LOCAL_D UBYTE notes[] = {
+/* Basic note numbers */
+    0x30,
+    0x31,
+    0x32,
+    0x33,
+    0x34,
+    0x35,
+    0x36,
+    0x37,
+    0x38,
+    0x39,
+    0x3a,
+    0x29,
+    0x3b,
+    0x3c,
+    0x3d,
+    0x0e,
+    0x3e,
+    0x2c,
+    0x3f,
+    0x04,
+    0x05,
+    0x25,
+    0x2f,
+    0x06,
+    0x07
+    };
+
+LOCAL_D WORD volume=0;   /* volume to use */
+LOCAL_D WORD length=100;   /* length of notes */
+
+LOCAL_C VOID panic(
+    INT num,
+    INT errno)
+    {
+    TEXT b[100];
+
+    p_errs(&b[p_atob(&b[0],"panic num %d - ",&num)],errno);
+    t_panic(&b[0]);
+    }
+
+GLDEF_C main(VOID)
+    {
+    INT ret,i;
+    VOID *pcb;
+    UBYTE bb[100],*p;
+
+    p_loadldd("SNDFRC.LDD");
+    if (ret=p_open(&pcb,"MUS:",-1))
+        panic(2,ret);
+    p_puts("Musical notes tester - ? for help");
+    FOREVER
+        {
+        p_print("Next>");
+        p_gets(p=(&bb[0]));
+        p=p_skipwh(p);
+        if (!*p)
+            continue;
+        switch (p_toupper(*p++))
+            {
+        case '?':
+            p_puts("Q - Quit");
+            p_puts("V<vol> - Volume 0-3");
+            p_puts("L<len> - Length 0-256");
+            p_puts("P - Play scale");
+            break;
+        case 'Q':   /* Quit */
+            p_close(pcb);
+            if (ret=p_devdel("MUS",E_LDD))
+                panic(7,ret);
+            return(0);
+        case 'V':   /* Volume */
+            if (p_stoi(&p,&volume)<0)
+                volume=0;
+            if (volume<0 || volume>3)
+                volume=0;
+            break;
+        case 'L':   /* Length */
+            if (p_stoi(&p,&length)<0)
+                length=100;
+            if (length<0 || length>256)
+                length=100;
+            break;
+        case 'P':   /* play that lot */
+            for (i=0;i<sizeof(notes);i++)
+                {
+                bb[i<<1]=notes[i]|(volume<<6);
+                bb[(i<<1)+1]=length;
+                }
+            p_write(pcb,&bb[0],sizeof(notes));
+            break;
+        case '0':
+        case '1':
+        case '2':
+        case '3':
+        case '4':
+        case '5':
+        case '6':
+        case '7':
+        case '8':
+        case '9':
+            bb[0]=notes[((*(p-1))-'0')<<1]|(volume<<6);
+            bb[1]=length;
+            p_write(pcb,&bb[0],1);
+            break;
+            }
+        }
+    }