From be858bccde46deee1f8efadfa91ea31856c73f8a Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 11 Apr 2020 20:42:19 +0200
Subject: [PATCH] Add TST8K1.

---
 src/imsrc/tst8k1.1 | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 src/imsrc/tst8k1.1

diff --git a/src/imsrc/tst8k1.1 b/src/imsrc/tst8k1.1
new file mode 100644
index 00000000..be6ad01c
--- /dev/null
+++ b/src/imsrc/tst8k1.1
@@ -0,0 +1,41 @@
+TITLE TST8K1 (PDS1 VERSION)
+
+MAXADR=37777
+PDS4=0
+MOUSE=0
+.LSTOF
+.INSRT DSK:IMLAC;IMDEFS >
+.LSTON
+.ADDR.=1
+
+; This program tests the DMS IMLAC 8K Display Addressing Mode.  If
+; this mode is working, a small dot will appear near the center of
+; the screen.  If the mode is not working, no dot will appear.  For
+; this test to work the machine should also have suppressed grid
+; hardware (or replace the DGD by a DJMS DWAIT routine).  This will
+; be neccessary if the machine is an Alpha machine, in which case the
+; dot will appear in the lower left as well.
+
+LOC 100
+
+START:	LAW DLIST	; display list address
+	DLA		; load dpc
+	DON		; start display
+	DSN		; display off?
+	JMP .-1		; no
+	JMP START	; yes, loop
+
+DLIST:	DHVS 1		; startup
+MODE:	DADR		; turn on 8k addressing
+	DGD		; part of set point
+	DLXA 1000	; set point to center
+	DLYA 1000	; of screen
+        DJMP HI		; jump to high core
+	DHLT		; halt
+
+LOC .+10000
+
+HI:	DDSP		; display dot
+	DHLT		; halt
+
+END START