From 9f220e40989e5ace3f8c609952c670d997625896 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Mon, 21 Sep 2020 19:04:30 -0400
Subject: [PATCH] KA10: Added UNIT_SEQ to card punch and punch to support
 APPEND open.

---
 PDP10/kx10_cp.c | 2 +-
 PDP10/kx10_pt.c | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/PDP10/kx10_cp.c b/PDP10/kx10_cp.c
index 488847a9..a49a2d65 100644
--- a/PDP10/kx10_cp.c
+++ b/PDP10/kx10_cp.c
@@ -34,7 +34,7 @@
 #include "sim_defs.h"
 #if (NUM_DEVS_CP > 0)
 
-#define UNIT_CDP        UNIT_ATTABLE | UNIT_DISABLE | MODE_026 
+#define UNIT_CDP        UNIT_ATTABLE | UNIT_DISABLE | UNIT_SEQ | MODE_026 
 
 #define CP_DEVNUM        0110
 
diff --git a/PDP10/kx10_pt.c b/PDP10/kx10_pt.c
index b62abe23..6a326e3c 100644
--- a/PDP10/kx10_pt.c
+++ b/PDP10/kx10_pt.c
@@ -73,7 +73,7 @@ const char    *ptr_description (DEVICE *dptr);
 DIB ptp_dib = { PP_DEVNUM, 1, &ptp_devio, NULL };
 
 UNIT ptp_unit = {
-    UDATA (&ptp_svc, UNIT_ATTABLE+UNIT_TEXT, 0), 10000
+    UDATA (&ptp_svc, UNIT_ATTABLE+UNIT_TEXT+UNIT_SEQ, 0), 10000
     };
 
 REG ptp_reg[] = {