Starting work on audio example

projects/examples/blank.usm

@@ -11,6 +11,7 @@
 |0140 ;Keys { key 1 }
 |0150 ;Mouse { x 2 y 2 state 1 chord 1 }
 |0160 ;File { pad 8 name 2 length 2 load 2 save 2 }
+|0170 ;Audio { ch1asdr 2 ch2asdr 2 ch3asdr 2 ch4asdr 2 ch1pitch 1 ch1vol 1 ch2pitch 1 ch2vol 1 ch3pitch 1 ch3vol 1 ch4pitch 1 ch4vol 1 }
 |01F0 ;System { pad 8 r 2 g 2 b 2 }
 
 ( vectors )

projects/examples/dev.audio.usm

@@ -0,0 +1,191 @@
+( a blank file )
+
+%RTN { JMP2r }
+%8+ { #0008 ADD2 } %8- { #0008 SUB2 }
+%MOD { DUP2 DIV MUL SUB }
+
+( variables )
+
+;pointer { x 2 y 2 }
+;color { byte 1 }
+
+( devices )
+
+|0100 ;Console { pad 8 char 1 byte 1 short 2 string 2 }
+|0110 ;Screen { width 2 height 2 pad 4 x 2 y 2 color 1 }
+|0120 ;Sprite { pad 8 x 2 y 2 addr 2 color 1 }
+|0130 ;Controller { p1 1 }
+|0140 ;Keys { key 1 }
+|0150 ;Mouse { x 2 y 2 state 1 chord 1 }
+|0160 ;File { pad 8 name 2 length 2 load 2 save 2 }
+|01F0 ;System { pad 8 r 2 g 2 b 2 }
+
+( vectors )
+
+|0200 ^RESET JMP
+|0204 ,ERROR JMP2
+|0208 ,FRAME JMP2
+
+@RESET
+
+	( theme ) #f0fd =System.r #f0f3 =System.g #f0f2 =System.b
+
+	,draw-timeline JSR2
+
+BRK
+
+@FRAME
+
+	,draw-cursor JSR2
+
+BRK
+
+@ERROR
+
+BRK
+
+@draw-bars ( -- )
+	
+
+	#0040 =Sprite.y
+	,font_hex =Sprite.addr
+	#0000 #0100 
+	$loop 
+		OVR2 SWP POP #02 DIV #0f AND #00 NEQ ^$skip JNZ
+			OVR2 #0060 ADD2 =Sprite.x
+			#01 =Sprite.color
+			~Sprite.addr 8+ =Sprite.addr
+			OVR2 #0060 ADD2 #0051 #00c1 #01 ,line-vertical-dotted JSR2
+		$skip
+		OVR2 #0060 ADD2 #0050 #00c0 #01 ,line-vertical-dotted JSR2
+		SWP2 #0008 ADD2 SWP2
+		OVR2 OVR2 LTH2 ^$loop JNZ
+	POP2
+	POP2
+
+RTN
+
+@draw-octave ( x y -- )
+
+	=Sprite.y
+	=Sprite.x
+	,octave_icn =Sprite.addr
+
+	~Sprite.y ~Sprite.y #0038 ADD2
+	$loop
+		OVR2 =Sprite.y
+		#01 =Sprite.color
+		~Sprite.addr 8+ =Sprite.addr
+		~Sprite.x 8+ =Sprite.x
+		#01 =Sprite.color
+		~Sprite.addr 8+ =Sprite.addr
+		~Sprite.x 8- =Sprite.x
+		SWP2 #0008 ADD2 SWP2
+		OVR2 OVR2 LTH2 ^$loop JNZ
+	POP2
+	POP2
+
+
+RTN
+
+@draw-octaves ( -- )
+	
+	#0040 #0050 ,draw-octave JSR2
+	#0040 #0088 ,draw-octave JSR2
+
+	#0028 =Sprite.x
+	#0080 =Sprite.y
+	,font_hex #0060 ADD2 =Sprite.addr
+	#01 =Sprite.color 
+	#0030 =Sprite.x
+	,font_hex #0018 ADD2 =Sprite.addr
+	#01 =Sprite.color 
+
+	#0028 =Sprite.x
+	#00b8 =Sprite.y
+	,font_hex #0060 ADD2 =Sprite.addr
+	#01 =Sprite.color 
+	#0030 =Sprite.x
+	,font_hex #0010 ADD2 =Sprite.addr
+	#01 =Sprite.color 
+
+RTN
+
+@draw-timeline ( -- )
+
+	,draw-bars JSR2
+	,draw-octaves JSR2
+
+RTN
+
+@line-vertical-dotted ( x y0 y1 color -- )
+	
+	=color STH2 SWP2 =Screen.x STH2r OVR2 =Screen.y
+	$draw-ver
+		( draw ) ~color =Screen.color
+		( incr ) SWP2 #0002 ADD2 DUP2 =Screen.y SWP2
+		OVR2 OVR2 LTH2 ^$draw-ver JNZ
+	POP2 POP2
+
+RTN
+
+@draw-cursor ( -- )
+
+	( clear last cursor )
+	,clear_icn =Sprite.addr 
+	~pointer.x =Sprite.x 
+	~pointer.y =Sprite.y 
+	#10 =Sprite.color
+
+	( record pointer positions )
+	~Mouse.x =pointer.x ~Mouse.y =pointer.y
+
+	( draw new cursor )
+	,cursor_icn =Sprite.addr 
+	~pointer.x =Sprite.x 
+	~pointer.y =Sprite.y 
+	#11 ~Mouse.state #00 NEQ ADD =Sprite.color
+
+RTN
+
+@clear_icn   [ 0000 0000 0000 0000 ]
+@cursor_icn  [ 80c0 e0f0 f8e0 1000 ]
+
+@piano-white [ 
+	ffc0 8080 80c0 ff00
+	fc02 0202 0202 fc00
+]
+
+@piano-black [ 
+	ffff fefe feff ff00 
+	f008 0808 0808 f000
+]
+
+@octave_icn [
+	ff00 0000 fefe fffe 
+	ff01 0101 0102 fc00 
+	fffe fc00 fefe fffe 
+	ff01 0101 0102 fc00 
+	fffe fc00 fefe fffe 
+	ff01 0101 0102 fc00 
+	fffe fc00 0000 ff00 
+	ff01 0101 0102 fc00 
+	ff00 0000 fefe fffe 
+	ff01 0101 0102 fc00 
+	fffe fc00 fefe fffe 
+	ff01 0101 0102 fc00 
+	fffe fc00 0000 ff00 
+	ff01 0101 0102 fc00 
+]
+
+@font_hex ( 0-F ) 
+[
+	007c 8282 8282 827c 0030 1010 1010 1010
+	007c 8202 7c80 80fe 007c 8202 1c02 827c
+	000c 1424 4484 fe04 00fe 8080 7c02 827c
+	007c 8280 fc82 827c 007c 8202 1e02 0202
+	007c 8282 7c82 827c 007c 8282 7e02 827c
+	007c 8202 7e82 827e 00fc 8282 fc82 82fc 
+	007c 8280 8080 827c 00fc 8282 8282 82fc 
+	007c 8280 f080 827c 007c 8280 f080 8080
+]

projects/examples/dev.mouse.usm

@@ -42,7 +42,7 @@ BRK
 
 BRK 
 
-@draw-cursor
+@draw-cursor ( -- )
 
 	( clear last cursor )
 	,clear_icn =Sprite.addr 

src/emulator.c

@@ -51,19 +51,20 @@ Uint8 font[][8] = {
 
 #define SAMPLE_FREQUENCY 48000
 
-static Uint32 note_periods[12] = { /* middle C (C4) is note 60 */
+static Uint32 note_periods[12] = {
-	(Uint32) 0xfa7e * SAMPLE_FREQUENCY, /* C-1 */
+	/* middle C (C4) is note 60 */
-	(Uint32) 0xec6f * SAMPLE_FREQUENCY,
+	(Uint32)0xfa7e * SAMPLE_FREQUENCY, /* C-1 */
-	(Uint32) 0xdf2a * SAMPLE_FREQUENCY, /* D-1 */
+	(Uint32)0xec6f * SAMPLE_FREQUENCY,
-	(Uint32) 0xd2a4 * SAMPLE_FREQUENCY,
+	(Uint32)0xdf2a * SAMPLE_FREQUENCY, /* D-1 */
-	(Uint32) 0xc6d1 * SAMPLE_FREQUENCY, /* E-1 */
+	(Uint32)0xd2a4 * SAMPLE_FREQUENCY,
-	(Uint32) 0xbba8 * SAMPLE_FREQUENCY, /* F-1 */
+	(Uint32)0xc6d1 * SAMPLE_FREQUENCY, /* E-1 */
-	(Uint32) 0xb120 * SAMPLE_FREQUENCY,
+	(Uint32)0xbba8 * SAMPLE_FREQUENCY, /* F-1 */
-	(Uint32) 0xa72f * SAMPLE_FREQUENCY, /* G-1 */
+	(Uint32)0xb120 * SAMPLE_FREQUENCY,
-	(Uint32) 0x9dcd * SAMPLE_FREQUENCY,
+	(Uint32)0xa72f * SAMPLE_FREQUENCY, /* G-1 */
-	(Uint32) 0x94f2 * SAMPLE_FREQUENCY, /* A-1 */
+	(Uint32)0x9dcd * SAMPLE_FREQUENCY,
-	(Uint32) 0x8c95 * SAMPLE_FREQUENCY,
+	(Uint32)0x94f2 * SAMPLE_FREQUENCY, /* A-1 */
-	(Uint32) 0x84b2 * SAMPLE_FREQUENCY  /* B-1 */
+	(Uint32)0x8c95 * SAMPLE_FREQUENCY,
+	(Uint32)0x84b2 * SAMPLE_FREQUENCY /* B-1 */
 };
 
 static struct audio_channel {
@@ -237,25 +238,26 @@ togglezoom(Uxn *u)
 }
 
 void
-audio_callback(void* userdata, Uint8* stream, int len) {
+audio_callback(void *userdata, Uint8 *stream, int len)
-	Sint16 *samples = (Sint16 *) stream;
+{
+	Sint16 *samples = (Sint16 *)stream;
 	int i, j;
 	len >>= 1; /* use len for number of samples, not bytes */
-	for (j = 0; j < len; ++j) samples[j] = 0;
+	for(j = 0; j < len; ++j) samples[j] = 0;
-	for (i = 0; i < 4; ++i) {
+	for(i = 0; i < 4; ++i) {
 		struct audio_channel *c = &channels[i];
-		if (!c->volume) continue;
+		if(!c->volume) continue;
-		if (c->period < (1 << 20)) continue;
+		if(c->period < (1 << 20)) continue;
-		for (j = 0; j < len; ++j) {
+		for(j = 0; j < len; ++j) {
 			c->count += 1 << 20;
-			while (c->count > c->period) {
+			while(c->count > c->period) {
 				c->value = !c->value;
 				c->count -= c->period;
 			}
 			samples[j] += (c->value * 2 - 1) * c->volume;
 		}
 	}
-	(void) userdata;
+	(void)userdata;
 }
 
 void
@@ -462,7 +464,7 @@ Uint8
 audio_poke(Uxn *u, Uint16 ptr, Uint8 b0, Uint8 b1)
 {
 	Uint8 *m = u->ram.dat;
-	if (b0 & 1) {
+	if(b0 & 1) {
 		Uint16 channel_addr = ptr + (b0 & 0x6);
 		struct audio_channel *c = &channels[(b0 & 0x6) >> 1];
 		SDL_LockAudioDevice(audio_id);