some fix for 340 but still buggy

Author: aap

emu/chargen.inc

@@ -442,7 +442,7 @@ static int char_ex[] = {
 
 static int char_dq[] = {
 	U, U, U, U|R|I, U|I, U|I,
-	R, R|I, D|I, D|I, D|R, D|R, D, D,
+	R, R|I, D|I, D|I, D|R, D|R, D|R, D,
 	0
 };
 

emu/dis340.c

@@ -1026,7 +1026,11 @@ makedis(int argc, char *argv[])
 
 	/* dunno about the frequency here */
 //	t = (Task){ nil, discycle, dis, 50, 0 };
-	t = (Task){ nil, discycle, dis, 20, 0 };
+//	t = (Task){ nil, discycle, dis, 20, 0 };
+	// MACDMP starts breaking if we go too high
+	// other programs start breaking if we go too low
+	// TODO: gahhhhhhh
+	t = (Task){ nil, discycle, dis, 13, 0 };
 	addtask(t);
 
 	lock(&initlock);

emu/init.ini

@@ -7,6 +7,8 @@ mkdev dc dc136
 mkdev dt0 dt551
 mkdev dx1 dx555
 mkdev dx2 dx555
+mkdev dx3 dx555
+mkdev dx4 dx555
 mkdev dis dis340
 mkdev joy joy420
 mkdev ojoy joy724
@@ -24,6 +26,8 @@ mkdev netcons netcons localhost 10007
 connectdev dc dt0
 connectdev dt0 dx1 1
 connectdev dt0 dx2 2
+connectdev dt0 dx3 3
+connectdev dt0 dx4 4
 connectio tty apr
 connectio ptr apr
 connectio ptp apr
@@ -40,18 +44,21 @@ connectmem mem0 0 apr 0
 #connectmem cmem3 0 apr 3
 
 mount tty /tmp/6tty
-mount ptr ../code/ptp.out
+#mount ptr ../code/ptr.in
+mount ptr ../macdmp.moby
 #mount ptr ../code/sysgen.rim
 #mount ptr ../test/test.pt
 #mount ptr ../lars_sysgen/sysgen.pt
 #mount ptp ../code/ptp.out
-#mount dx1 ../test/out.dt6
-#mount dx1 ../test/test.dt6
-mount dx1 ../files/sys6.dtr
-##mount dx1 ../system.dtr
+mount dx1 ../tapes/system.dtr
+mount dx2 ../tapes/syseng.dtr
+#mount dx3 ../tapes/misc.dtr
+#mount dx1 ../system.dtr
 #mount dx2 ../test/stuff.dtr
 #mount dx2 ../test/spcwar.dtr
-#mount dx2 ../test/foo.dtr
-mount dx2 ../test/aap.dtr
+mount dx2 ../tapes/foo.dtr
+#mount dx3 ../test/aap.dtr
 
 #load -b ../maint/pdp6.part1
+#load -b ../maint/pdp6.part2
+#load -b @.spcwar