From 5190890e4a1bbb961458a9a27aaf1c4846cd94c6 Mon Sep 17 00:00:00 2001
From: aap <aap@papnet.eu>
Date: Sun, 14 Apr 2024 17:34:19 +0200
Subject: [PATCH] committing older changes to emu

---
 emu/apr.c    | 11 +++++++----
 emu/dis340.c |  3 ++-
 emu/dt.c     |  4 ++--
 emu/pt.c     |  5 +----
 4 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/emu/apr.c b/emu/apr.c
index 85924b3..735f1ea 100644
--- a/emu/apr.c
+++ b/emu/apr.c
@@ -89,6 +89,9 @@ pulse(Apr *apr, Pulse *p, int t)
 {
 	TPulse *tp, **pp;
 
+	// IDEA execute pulse directly if t == 0
+	// currently this would break stuff, but maybe it can be fixed
+
 	assert(apr->pfree);
 	tp = apr->pfree;
 	apr->pfree = tp->next;
@@ -1454,7 +1457,7 @@ defpulse(lct0)
 
 defpulse(cht9)
 {
-	apr->sc = apr->fe;		// 6-15
+	apr->sc |= apr->fe;		// 6-15
 	apr->chf5 = 1;			// 6-19
 	apr->chf7 = 1;			// 6-19
 	pulse(apr, &at0, 0);		// 5-3
@@ -1472,7 +1475,7 @@ defpulse(cht8b)
 {
 	apr->chf2 = 0;			// 6-19
 	apr->chf6 = 0;			// 6-19
-	apr->fe = apr->c.mb>>30 & 077;	// 6-14, 6-15
+	apr->fe |= apr->c.mb>>30 & 077;	// 6-14, 6-15
 	SC_COM;				// 6-15
 	if(apr->inst == CAO)
 		pulse(apr, &st7, 0);	// 5-6
@@ -2143,7 +2146,7 @@ defpulse(fdt1)
 defpulse_(fdt0b)
 {
 	apr->fdf2 = 0;		// 6-22
-	apr->sc = apr->fe;	// 6-15
+	apr->sc |= apr->fe;	// 6-15
 	apr->nrf2 = 1;		// 6-27
 	pulse(apr, &fdt1, 100);	// 6-22
 }
@@ -2152,7 +2155,7 @@ defpulse_(fdt0a)
 {
 	apr->fdf1 = 0;		// 6-22
 	apr->fdf2 = 1;		// 6-22
-	apr->sc = 0741;		// 6-14
+	apr->sc |= 0741;	// 6-14
 	pulse(apr, apr->c.ar & F0 ? &dst0 : &dst10, 0);	// 6-25
 }
 
diff --git a/emu/dis340.c b/emu/dis340.c
index ada2f8e..c6f436d 100644
--- a/emu/dis340.c
+++ b/emu/dis340.c
@@ -1030,7 +1030,8 @@ makedis(int argc, char *argv[])
 	// 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 };
+	// for now i increased the delay in MACDMP slightly
+	t = (Task){ nil, discycle, dis, 20, 0 };
 	addtask(t);
 
 	lock(&initlock);
diff --git a/emu/dt.c b/emu/dt.c
index 981a79e..cae8bbc 100644
--- a/emu/dt.c
+++ b/emu/dt.c
@@ -609,7 +609,7 @@ debug("ILL op %d %d %d\n", nunits, dt->ut_btm_switch, UT_WRTM);
 
 			if(UT_WRTM)		// 3-14
 				setstat(dt, RW_ACTIVE);
-			else if(!UT_DN)		// TODO: is this right?
+			else if(!UT_DN)
 				setstat(dt, RW_RQ);
 		}else
 			/* Don't move during delay.
@@ -795,7 +795,7 @@ dbg("SEL/%o GO/%o REV/%o TIME/%o FCN/%o\n", dt->ut_units_select,
 				// now wait
 dbg("starting delay %d\n", dt->delay);
 			}else
-				if(!UT_DN &&		// TODO: is this right?
+				if(!UT_DN &&
 				   !UT_WRTM)		// 3-14
 					setstat(dt, RW_RQ);
 		}
diff --git a/emu/pt.c b/emu/pt.c
index fb8cc47..c5cf395 100644
--- a/emu/pt.c
+++ b/emu/pt.c
@@ -186,7 +186,6 @@ wake_ptr(void *dev)
 
 	if(bus->devcode == PTR){
 		if(IOB_STATUS){
-//printf("PTR STATUS\n");
 			if(ptr->motor_on) bus->c12 |= F27;
 			if(ptr->b) bus->c12 |= F30;
 			if(ptr->busy) bus->c12 |= F31;
@@ -194,7 +193,6 @@ wake_ptr(void *dev)
 			bus->c12 |= ptr->pia & 7;
 		}
 		if(IOB_DATAI){
-//printf("PTR DATAI\n");
 			bus->c12 |= ptr->ptr;
 			ptr->flag = 0;
 			// actually when DATAI is negated again
@@ -203,7 +201,6 @@ wake_ptr(void *dev)
 		if(IOB_CONO_CLEAR)
 			ptr_ic_clr(ptr);
 		if(IOB_CONO_SET){
-//printf("PTR CONO %012lo\n", bus->c12);
 			/* TODO: schematics don't have this, but code uses it */
 			if(bus->c12 & F27) ptr_setmotor(ptr, 1);
 			if(bus->c12 & F30) ptr->b = 1;
@@ -310,7 +307,7 @@ makeptp(int argc, char *argv[])
 	ptp->fd = -1;
 
 	// 63.3 chars per second, value around 60000?
-	t = (Task){ nil, ptpcycle, ptp, 1000, 0 };
+	t = (Task){ nil, ptpcycle, ptp, 60000, 0 };
 	addtask(t);
 	return &ptp->dev;
 }