From df0633d8a81ec6ec6d297c718bc4863be8f85983 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rcornwell@github.com>
Date: Sun, 31 May 2020 20:57:21 -0400
Subject: [PATCH] I7000: Set output only devices to default to append mode.

---
 I7000/i7000_cdp.c | 1 +
 I7000/i7000_lpr.c | 1 +
 I7000/i7090_cdp.c | 1 +
 I7000/i7090_lpr.c | 1 +
 4 files changed, 4 insertions(+)

diff --git a/I7000/i7000_cdp.c b/I7000/i7000_cdp.c
index b664360..004b194 100644
--- a/I7000/i7000_cdp.c
+++ b/I7000/i7000_cdp.c
@@ -281,6 +281,7 @@ cdp_attach(UNIT * uptr, CONST char *file)
 {
     t_stat        r;
 
+    sim_switches |= SWMASK ('A');   /* Position to EOF */
     if ((r = sim_card_attach(uptr, file)) != SCPE_OK)
         return r;
     if (uptr->up7 == 0) {
diff --git a/I7000/i7000_lpr.c b/I7000/i7000_lpr.c
index 6e052a6..b471dd5 100644
--- a/I7000/i7000_lpr.c
+++ b/I7000/i7000_lpr.c
@@ -475,6 +475,7 @@ lpr_attach(UNIT * uptr, CONST char *file)
 {
     t_stat              r;
 
+    sim_switches |= SWMASK ('A');   /* Position to EOF */
     if ((r = attach_unit(uptr, file)) != SCPE_OK)
         return r;
     uptr->u5 = 0;
diff --git a/I7000/i7090_cdp.c b/I7000/i7090_cdp.c
index c0cae9f..00205e1 100644
--- a/I7000/i7090_cdp.c
+++ b/I7000/i7090_cdp.c
@@ -255,6 +255,7 @@ cdp_attach(UNIT * uptr, CONST char *file)
 {
     t_stat              r;
 
+    sim_switches |= SWMASK ('A');   /* Position to EOF */
     if ((r = sim_card_attach(uptr, file)) != SCPE_OK)
         return r;
     if (uptr->up7 == 0) {
diff --git a/I7000/i7090_lpr.c b/I7000/i7090_lpr.c
index 73769fc..3295535 100644
--- a/I7000/i7090_lpr.c
+++ b/I7000/i7090_lpr.c
@@ -660,6 +660,7 @@ lpr_attach(UNIT * uptr, CONST char *file)
 {
     t_stat              r;
 
+    sim_switches |= SWMASK ('A');   /* Position to EOF */
     if ((r = attach_unit(uptr, file)) != SCPE_OK)
         return r;
     uptr->u5 = 0;