@@ -52,7 +52,7 @@ fi

 mkdir -p bin

 CC="${CC:-cc}"

-CFLAGS="${CFLAGS:--std=c99 -Wall -Wno-unknown-pragmas}"

+CFLAGS="${CFLAGS:--std=c89 -Wall -Wno-unknown-pragmas}"

 case "$(uname -s 2>/dev/null)" in

 MSYS_NT*|MINGW*) # MSYS2 on Windows

 	FILE_LDFLAGS="-liberty"

@@ -109,4 +109,3 @@ if [ $norun = 1 ]; then exit; fi

 ./bin/uxnasm projects/examples/devices/audio-tests.tal bin/audio-tests.rom

 ./bin/uxnemu -2x bin/audio-tests.rom

-

@@ -1,6 +1,7 @@

 #include "../uxn.h"

 #include "audio.h"

 #include <stdbool.h>

+#include <string.h>

 /*

 Copyright (c) 2021-2023 Devine Lu Linvega, Andrew Alderwick

@@ -2601,12 +2602,13 @@ next_sample(Sample *sample) {

     return next;

 }

-int

+void

 audio_handler(void *ctx, Uint8 *out_stream, int len) {

     Sint16 *stream = (Sint16 *)out_stream;

     memset(stream, 0x00, len);

-    for (int n = 0; n < N_CHANNELS; n++) {

+    int n;

+    for (n = 0; n < N_CHANNELS; n++) {

         Uint8 device = (3 + n) << 4;

         Uxn *u = (Uxn *)ctx;

         Uint8 *addr = &u->dev[device];

@@ -2643,163 +2645,12 @@ audio_handler(void *ctx, Uint8 *out_stream, int len) {

             stream[x++] += next * channel[n].vol_r;

         }

     }

-    for (int i = 0; i < len; i++) {

+    int i;

+    for (i = 0; i < len; i++) {

         stream[i] <<= 4;

     }

-

-    return 1;

 }

-// #define NOTE_PERIOD (SAMPLE_FREQUENCY * 0x4000 / 11025)

-// #define ADSR_STEP (SAMPLE_FREQUENCY / 0xf)

-

-// typedef struct {

-// 	Uint8 *addr;

-// 	Uint32 count, advance, period, age, a, d, s, r;

-// 	Uint16 i, len;

-// 	Sint8 volume[2];

-// 	Uint8 pitch, repeat;

-// } UxnAudio;

-

-// /* clang-format off */

-

-// static Uint32 advances[12] = {

-// 	0x80000, 0x879c8, 0x8facd, 0x9837f, 0xa1451, 0xaadc1,

-// 	0xb504f, 0xbfc88, 0xcb2ff, 0xd7450, 0xe411f, 0xf1a1c

-// };

-

-// static double detunes[256] = {

-// 1.0000000000000000, 1.0002256593050698, 1.0004513695322617,

-// 1.0006771306930664, 1.0009029427989777, 1.0011288058614922,

-// 1.0013547198921082, 1.0015806849023274, 1.0018067009036538,

-// 1.002032767907594 , 1.0022588859256572, 1.0024850549693551,

-// 1.0027112750502025, 1.0029375461797159, 1.0031638683694153,

-// 1.0033902416308227, 1.0036166659754628, 1.0038431414148634,

-// 1.004069667960554 , 1.0042962456240678, 1.0045228744169397,

-// 1.0047495543507072, 1.004976285436911 , 1.0052030676870944,

-// 1.0054299011128027, 1.0056567857255843, 1.0058837215369900,

-// 1.006110708558573 , 1.0063377468018897, 1.0065648362784985,

-// 1.0067919769999607, 1.0070191689778405, 1.007246412223704 ,

-// 1.0074737067491204, 1.0077010525656616, 1.0079284496849015,

-// 1.0081558981184175, 1.008383397877789 , 1.008610948974598 ,

-// 1.0088385514204294, 1.0090662052268706, 1.0092939104055114,

-// 1.0095216669679448, 1.0097494749257656, 1.009977334290572 ,

-// 1.0102052450739643, 1.0104332072875455, 1.0106612209429215,

-// 1.0108892860517005, 1.0111174026254934, 1.0113455706759138,

-// 1.011573790214578 , 1.0118020612531047, 1.0120303838031153,

-// 1.0122587578762337, 1.012487183484087 , 1.012715660638304 ,

-// 1.0129441893505169, 1.0131727696323602, 1.0134014014954713,

-// 1.0136300849514894, 1.0138588200120575, 1.0140876066888203,

-// 1.0143164449934257, 1.0145453349375237, 1.0147742765327674,

-// 1.0150032697908125, 1.015232314723317 , 1.015461411341942 ,

-// 1.0156905596583505, 1.0159197596842091, 1.0161490114311862,

-// 1.016378314910953 , 1.0166076701351838, 1.0168370771155553,

-// 1.0170665358637463, 1.0172960463914391, 1.017525608710318 ,

-// 1.0177552228320703, 1.0179848887683858, 1.0182146065309567,

-// 1.0184443761314785, 1.0186741975816487, 1.0189040708931674,

-// 1.019133996077738 , 1.0193639731470658, 1.0195940021128593,

-// 1.0198240829868295, 1.0200542157806898, 1.0202844005061564,

-// 1.0205146371749483, 1.0207449257987866, 1.0209752663893958,

-// 1.0212056589585028, 1.0214361035178368, 1.0216666000791297,

-// 1.0218971486541166, 1.0221277492545349, 1.0223584018921241,

-// 1.0225891065786274, 1.02281986332579  , 1.0230506721453596,

-// 1.023281533049087 , 1.0235124460487257, 1.0237434111560313,

-// 1.0239744283827625, 1.0242054977406807, 1.0244366192415495,

-// 1.0246677928971357, 1.0248990187192082, 1.025130296719539 ,

-// 1.0253616269099028, 1.0255930093020766, 1.0258244439078401,

-// 1.026055930738976 , 1.0262874698072693, 1.0265190611245079,

-// 1.0267507047024822, 1.0269824005529853, 1.027214148687813 ,

-// 1.0274459491187637, 1.0276778018576387, 1.0279097069162415,

-// 1.0281416643063788, 1.0283736740398595, 1.0286057361284953,

-// 1.028837850584101 , 1.0290700174184932, 1.029302236643492 ,

-// 1.0295345082709197, 1.0297668323126017, 1.029999208780365 ,

-// 1.030231637686041 , 1.030464119041462 , 1.0306966528584645,

-// 1.0309292391488862, 1.0311618779245688, 1.0313945691973556,

-// 1.0316273129790936, 1.0318601092816313, 1.0320929581168212,

-// 1.0323258594965172, 1.0325588134325767, 1.0327918199368598,

-// 1.0330248790212284, 1.033257990697548 , 1.0334911549776868,

-// 1.033724371873515 , 1.0339576413969056, 1.0341909635597348,

-// 1.0344243383738811, 1.034657765851226 , 1.034891246003653 ,

-// 1.0351247788430489, 1.0353583643813031, 1.0355920026303078,

-// 1.0358256936019572, 1.0360594373081489, 1.0362932337607829,

-// 1.0365270829717617, 1.0367609849529913, 1.0369949397163791,

-// 1.0372289472738365, 1.0374630076372766, 1.0376971208186156,

-// 1.0379312868297725, 1.0381655056826686, 1.0383997773892284,

-// 1.0386341019613787, 1.0388684794110492, 1.039102909750172 ,

-// 1.0393373929906822, 1.0395719291445176, 1.0398065182236185,

-// 1.0400411602399278, 1.0402758552053915, 1.0405106031319582,

-// 1.0407454040315787, 1.040980257916207 , 1.0412151647977996,

-// 1.041450124688316 , 1.0416851375997183, 1.0419202035439705,

-// 1.0421553225330404, 1.042390494578898 , 1.042625719693516 ,

-// 1.0428609978888699, 1.043096329176938 , 1.043331713569701 ,

-// 1.0435671510791424, 1.0438026417172486, 1.0440381854960086,

-// 1.0442737824274138, 1.044509432523459 , 1.044745135796141 ,

-// 1.04498089225746  , 1.045216701919418 , 1.0454525647940205,

-// 1.0456884808932754, 1.0459244502291931, 1.0461604728137874,

-// 1.046396548659074 , 1.046632677777072 , 1.0468688601798024,

-// 1.0471050958792898, 1.047341384887561 , 1.0475777272166455,

-// 1.047814122878576 , 1.048050571885387 , 1.0482870742491166,

-// 1.0485236299818055, 1.0487602390954964, 1.0489969016022356,

-// 1.0492336175140715, 1.0494703868430555, 1.0497072096012419,

-// 1.0499440858006872, 1.0501810154534512, 1.050417998571596 ,

-// 1.0506550351671864, 1.0508921252522903, 1.0511292688389782,

-// 1.051366465939323 , 1.0516037165654004, 1.0518410207292894,

-// 1.052078378443071 , 1.0523157897188296, 1.0525532545686513,

-// 1.0527907730046264, 1.0530283450388465, 1.0532659706834067,

-// 1.053503649950405 , 1.053741382851941 , 1.0539791694001188,

-// 1.0542170096070436, 1.0544549034848243, 1.0546928510455722,

-// 1.0549308523014012, 1.0551689072644284, 1.0554070159467728,

-// 1.0556451783605572, 1.0558833945179062, 1.056121664430948 ,

-// 1.0563599881118126, 1.0565983655726334, 1.0568367968255465,

-// 1.0570752818826903, 1.0573138207562065, 1.057552413458239 ,

-// 1.0577910600009348, 1.0580297603964437, 1.058268514656918 ,

-// 1.0585073227945128, 1.0587461848213857, 1.058985100749698 ,

-// 1.0592240705916123,

-// };

-

-// static UxnAudio uxn_audio[POLYPHONY];

-

-// /* clang-format on */

-

-// static Sint32

-// envelope(UxnAudio *c, Uint32 age)

-// {

-// 	if(!c->r) return 0x0888;

-// 	if(age < c->a) return 0x0888 * age / c->a;

-// 	if(age < c->d) return 0x0444 * (2 * c->d - c->a - age) / (c->d - c->a);

-// 	if(age < c->s) return 0x0444;

-// 	if(age < c->r) return 0x0444 * (c->r - age) / (c->r - c->s);

-// 	c->advance = 0;

-// 	return 0x0000;

-// }

-

-// int

-// audio_render(int instance, Sint16 *sample, Sint16 *end)

-// {

-//     /*

-// 	UxnAudio *c = &uxn_audio[instance];

-// 	Sint32 s;

-// 	if(!c->advance || !c->period) return 0;

-// 	while(sample < end) {

-// 		c->count += c->advance;

-// 		c->i += c->count / c->period;

-// 		c->count %= c->period;

-// 		if(c->i >= c->len) {

-// 			if(!c->repeat) {

-// 				c->advance = 0;

-// 				break;

-// 			}

-// 			c->i %= c->len;

-// 		}

-// 		s = (Sint8)(c->addr[c->i] + 0x80) * envelope(c, c->age++);

-// 		*sample++ += s * c->volume[0] / 0x180;

-// 		*sample++ += s * c->volume[1] / 0x180;

-// 	}

-// 	if(!c->advance) audio_finished_handler(instance);

-// 	return 1;

-// 	*/

-// }

-

 void

 audio_start(int idx, Uint8 *d, Uxn *u)

 {

@@ -2807,22 +2658,16 @@ audio_start(int idx, Uint8 *d, Uxn *u)

     Uint8 off = d[0xf] == 0xff;

     if (!off) {

-        // Sample.

         Uint16 addr = PEEK2(d + 0xa);

         Uint8 *data = &u->ram[addr];

         Uint16 len = PEEK2(d + 0x8);

         Uint8 volume = d[0xd];

         bool loop = !!(d[0xf] & 0x80);

-

-        // Pitch.

         Uint8 pitch = d[0xf] & 0x7f;

-

-        // ADSR.

         Uint8 attack = d[0x4];

         Uint8 decay = d[0x5];

         Uint8 sustain = d[0x6];

         Uint8 release = d[0x7];

-

         note_on(&channel[idx], duration, data, len, volume, attack, decay, sustain, release, pitch, loop);

     } else {

         note_off(&channel[idx], duration);

@@ -24,4 +24,4 @@ Uint16 audio_get_position(int instance);

 int audio_render(int instance, Sint16 *sample, Sint16 *end);

 void audio_start(int instance, Uint8 *d, Uxn *u);

 void audio_finished_handler(int instance);

-int audio_handler(void *ctx, Uint8 *out_stream, int len);

+void audio_handler(void *ctx, Uint8 *out_stream, int len);

@@ -70,20 +70,7 @@ clamp(int v, int min, int max)

 static Uint8

 audio_dei(int instance, Uint8 *d, Uint8 port)

 {

-	    /*

-	// Uint8 *addr;

-	// Uint16 vu;

-	// if(!audio_id) return d[port];

-	// switch(port) {

-	// case 0x4: return audio_get_vu(instance);

-	// case 0x2:

-	// 	addr = d + 2;

-	// 	vu = audio_get_position(instance);

-	// 	POKE2(addr, vu);

-	// default: return d[port];

-	// }

-    */

-    // TODO: get envelope

+    /* TODO: get envelope */

     switch(port) {

         case 0x0:

         case 0x2:

@@ -386,11 +373,6 @@ handle_events(Uxn *u)

 			emu_restart(u, event.drop.file, 0);

 			SDL_free(event.drop.file);

 		}

-		/* Audio */

-		else if(event.type >= audio0_event && event.type < audio0_event + POLYPHONY) {

-			// Uint8 *addr = &u->dev[0x30 + 0x10 * (event.type - audio0_event)];

-			// uxn_eval(u, PEEK2(addr));

-		}

 		/* Mouse */

 		else if(event.type == SDL_MOUSEMOTION)

 			mouse_pos(u, &u->dev[0x90], clamp(event.motion.x - PAD, 0, uxn_screen.width - 1), clamp(event.motion.y - PAD, 0, uxn_screen.height - 1));

@@ -543,9 +525,9 @@ main(int argc, char **argv)

 {

     Uint8 dev[0x100] = {0};

 	Uxn u = {0};

-	u.dev = &dev;

 	Uxn u_audio = {0};

-	u_audio.dev = &dev;

+	u.dev = (Uint8 *)&dev;

+	u_audio.dev = (Uint8 *)&dev;

 	int i = 1;

 	if(i == argc)

 		return system_error("usage", "uxnemu [-v] | uxnemu [-f | -2x | -3x | --] file.rom [args...]");