emu: fixed stupid FSC bug

emu/apr.c

@@ -2011,8 +2011,8 @@ defpulse_(fst0a)
 	apr->fsf1 = 0;	// 6-19
 	if(!AR0_EQ_SC0)
 		SET_OVERFLOW;	// 6-17
-	apr->n.ar |= apr->n.ar&0400777777777 | ((word)apr->sc&0377)<<27;	 // 6-4, 6-9
+	apr->n.ar = apr->n.ar&0400777777777 | ((word)apr->sc&0377)<<27;	 // 6-4, 6-9
-	pulse(apr, &et10, 0);	// 5-5
+	pulse(apr, &et10, 1);	// 5-5
 }
 
 defpulse(fst0)

emu/cmd.c

@@ -592,8 +592,9 @@ sblk:
 	}
 	goto format;
 end:
-	w = readwits(fp);
+	/* use the first JRST, not the second */
-	if(left(w) != 0324000)
+//	w = readwits(fp);
+	if(left(w) != 0324000 && left(w) != 0254000)
 		goto format;
 	getapr()->pc = right(w);
 	return;

emu/dis340.c

@@ -1013,7 +1013,8 @@ makedis(int argc, char *argv[])
 	dis->dev.type = dis_ident;
 
 	/* dunno about the frequency here */
-	t = (Task){ nil, discycle, dis, 50, 0 };
+//	t = (Task){ nil, discycle, dis, 50, 0 };
+	t = (Task){ nil, discycle, dis, 20, 0 };
 	addtask(t);
 
 	/* There's a race somewhere here */

emu/init.ini

@@ -43,6 +43,8 @@ mount ptr ../code/ptp.out
 #mount dx1 ../test/out.dt6
 #mount dx1 ../test/test.dt6
 mount dx1 ../files/sys6.dtr
-mount dx2 ../test/spcwar.dtr
+#mount dx2 ../test/stuff.dtr
+#mount dx2 ../test/spcwar.dtr
+mount dx2 ../test/foo.dtr
 
 #load -b ../maint/pdp6.part1