Files originally from the archive file IMLAC; IML DEVICE.

src/imsrc/tst8k4.1

@@ -0,0 +1,56 @@
+TITLE TST8K4 (PDS4 VERSION)
+
+MAXADR=37777
+PDS4=1
+MOUSE=0
+.LSTOF
+.INSRT DSK:IMLAC;IMDEFS >
+.LSTON
+.ADDR.=1
+
+; this file contains 8k addressing mod tests:
+; it is started at location 100.  Bit 15 dataswitch toggles DADR
+; instruction to DOPR+0 or DOPR+1.
+; a) if 8k addressing DOES NOT____ ___ work, a small square will be drawn
+;    in the lower left corner of the screen, even with DSB 15 up.
+; b) if 8k addressing DOES____ work, a small square will be drawn in the
+;    upper right corner of the screen.
+
+LOC 100
+
+START:	LDA
+	AND [1]
+	SBR
+	DAC MODE
+	LAW DLIST
+	DLA
+	DON
+	DSN
+	JMP .-1
+	JMP START
+
+DLIST:	DSTS 1
+MODE:	DADR
+	DJMP HILIST
+
+LOLIST:	DGD
+	DLXA 100
+	DLYA 100
+	DLV B,100,0
+	DLV B,0,100
+	DLV B,-100,0
+	DLV B,0,-100
+	DHLT
+
+LOC LOLIST+10000
+
+HILIST:	DGD
+	DLXA 3100
+	DLYA 3100
+	DLV B,100,0
+	DLV B,0,100
+	DLV B,-100,0
+	DLV B,0,-100
+	DHLT
+
+END START