From 377c9b8793b39eb7ff5a10f9cb013d34384dcc43 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Tue, 23 Jun 2020 21:00:35 -0400
Subject: [PATCH] B5500: Set output only devices to default to append mode.

---
 B5500/b5500_urec.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/B5500/b5500_urec.c b/B5500/b5500_urec.c
index e69e0e1d..d136efea 100644
--- a/B5500/b5500_urec.c
+++ b/B5500/b5500_urec.c
@@ -905,6 +905,7 @@ lpr_attach(UNIT * uptr, CONST char *file)
     t_stat              r;
     int                 u = (uptr - lpr_unit);
 
+    sim_switches |= SWMASK ('A');   /* Position to EOF */
     if ((r = attach_unit(uptr, file)) != SCPE_OK)
         return r;
     if ((sim_switches & SIM_SW_REST) == 0) {