From 4f21a274794f4640a3bef5079f5a3c5908457f8b Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 7 May 2020 14:59:33 +0200
Subject: [PATCH] Fix ARDS short vector bugs in SSV 22.

---
 src/imsrc/{ssv22.1 => ssv22.2} | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)
 rename src/imsrc/{ssv22.1 => ssv22.2} (99%)

diff --git a/src/imsrc/ssv22.1 b/src/imsrc/ssv22.2
similarity index 99%
rename from src/imsrc/ssv22.1
rename to src/imsrc/ssv22.2
index 0e1a5098..4eb3cf46 100644
--- a/src/imsrc/ssv22.1
+++ b/src/imsrc/ssv22.2
@@ -7,6 +7,7 @@ TITLE SCROLL SAVER
 ; from Purdue University, by taking the ML file IMLAC; SSV 52 dated
 ; 1973-01-07 and editing it to match.
 
+; 22.2 (05/07/2020) fixes for ARDS short vectors.
 ; 22 (06/07/74) minor fixes to PXMIT and SPXMIT.
 
 %VERSIO==22.
@@ -976,9 +977,10 @@ LNGVCT:	0
 ; short vectors -- no one uses them ever
 
 SHTVCT:	0
-	LAC [40000]
+	LAC [20000]		; visible, solid line
 	DAC LONG1
 	JMS GRFIN
+	AND [77]		; ignore all but 6 bits
 	RAR 1
 	DAC XPOS
 	CLA
@@ -987,6 +989,7 @@ SHTVCT:	0
 	LAC [40000]
 SHTY:	DAC LONG2
 	JMS GRFIN
+	AND [77]
 	RAR 1
 	DAC YPOS
 	LSN