new emulator; will replace the other one eventually

Author: aap

newemu/Makefile

@@ -0,0 +1,11 @@
+INC=
+LIBS=-lpthread -lm -lSDL2
+#CFLAGS=-Wall -Wextra -g -O3
+#CFLAGS=-g -O3 -mcpu=cortex-a53 -mtune=cortex-a53
+CFLAGS=-g -Wall -Wno-parentheses
+
+pdp6: main.c panel6.c pdp6.c tty.c pt.c dis340.c dc.c ut.c ge.c audio.c common.c
+	cc $(CFLAGS) -o $@ $^ $(INC) $(LIBS)
+
+run: pdp6
+	./pdp6

newemu/args.h

@@ -0,0 +1,27 @@
+#ifndef USED
+#define USED(x) ((void)x)
+#endif
+#define SET(x) ((x)=0)
+
+extern char *argv0;
+
+#define	ARGBEGIN	for((void)(argv0||(argv0=*argv)),argv++,argc--;\
+			    argv[0] && argv[0][0]=='-' && argv[0][1];\
+			    argc--, argv++) {\
+				char *_args, *_argt;\
+				char _argc;\
+				_args = &argv[0][1];\
+				if(_args[0]=='-' && _args[1]==0){\
+					argc--; argv++; break;\
+				}\
+				_argc = 0;\
+				while(*_args && (_argc = *_args++))\
+				switch(_argc)
+#define	ARGEND		SET(_argt);USED(_argt);USED(_argc);USED(_args);}USED(argv);USED(argc);
+#define	ARGF()		(_argt=_args, _args=(char*)"",\
+				(*_argt? _argt: argv[1]? (argc--, *++argv): 0))
+#define	EARGF(x)	(_argt=_args, _args=(char*)"",\
+				(*_argt? _argt: argv[1]? (argc--, *++argv): ((x), abort(), (char*)0)))
+
+#define	ARGC()		_argc
+

newemu/audio.c

@@ -0,0 +1,66 @@
+#include "common.h"
+#include "pdp6.h"
+
+#include <SDL2/SDL.h>
+
+static SDL_AudioDeviceID dev;
+static int nsamples;
+static u64 nexttime;
+
+#define SAMPLE_TIME (1000000000/48000)
+
+void
+initmusic(void)
+{
+	SDL_AudioSpec spec;
+
+	SDL_Init(SDL_INIT_AUDIO);
+
+	memset(&spec, 0, sizeof(spec));
+	spec.freq = 48000;
+	spec.format = AUDIO_U8;
+	spec.channels = 1;
+	spec.samples = 1024;	// whatever this is
+	spec.callback = nil;
+	dev = SDL_OpenAudioDevice(nil, 0, &spec, nil, 0);
+}
+
+void
+stopmusic(void)
+{
+	if(dev == 0)
+		return;
+
+	SDL_PauseAudioDevice(dev, 1);
+	SDL_ClearQueuedAudio(dev);
+	nsamples = 0;
+	nexttime = 0;
+}
+
+void
+svc_music(PDP6 *pdp)
+{
+	u8 s;
+
+	if(dev == 0 || nexttime >= simtime)
+		return;
+
+	if(nexttime == 0)
+		nexttime = simtime + SAMPLE_TIME;
+	else
+		nexttime += SAMPLE_TIME;
+
+	// queue up a few samples
+	if(nsamples < 10) {
+		nsamples++;
+		// then start playing
+		if(nsamples == 10)
+			SDL_PauseAudioDevice(dev, 0);
+	}
+
+	s = 0;
+	for(int i = 0; i < 6; i++)
+		if(pdp->mi & (1<<i))
+			s += 40;
+	SDL_QueueAudio(dev, &s, 1);
+}