From 4860c0a8b0601d6c99ae7b4ec5f5acf58713c8cb Mon Sep 17 00:00:00 2001
From: Warren Toomey <wkt@tuhs.org>
Date: Sun, 13 Mar 2016 14:36:33 +1000
Subject: [PATCH] I've commented out some of the code in s7.s to try and
 disable the Graphics-2 I/O operations.

---
 src/sys/s7.s | 74 +++++++++++++++++++++++++++-------------------------
 1 file changed, 38 insertions(+), 36 deletions(-)

diff --git a/src/sys/s7.s b/src/sys/s7.s
index 245e608..a3f9cc1 100644
--- a/src/sys/s7.s
+++ b/src/sys/s7.s
@@ -5,26 +5,26 @@ pibreak:			" priority interrupt break processing "chain"
    dac .ac			" save interrupt AC
 	"** CROSSED OUT....
 
-   dpsf
-   jmp 1f
+   " dpsf		" Warren commented this code out to try and
+   " jmp 1f		" disable the Graphics-2 I/O
 
-   dpcf
-   dprs
-   dac dpstat
-   sma ral
-   jmp 2f
-   dprc
-   dac dpchar
-   -1
-   dac dpread
-   lac dpstat
-   ral
-2:
-   sma
-   jmp piret
-   -1
-   dac dpwrite
-   jmp piret	"** END OF CROSSOUT
+   " dpcf
+   " dprs
+   " dac dpstat
+   " sma ral
+   " jmp 2f
+   " dprc
+   " dac dpchar
+   " -1
+   " dac dpread
+   " lac dpstat
+   " ral
+" 2:
+   " sma
+   " jmp piret
+   " -1
+   " dac dpwrite
+   " jmp piret	"** END OF CROSSOUT
 
 1: clsf			" clock overflow (line frequency ticks)?
    jmp 1f		"  no
@@ -88,24 +88,26 @@ cnop:			" fetched as constant in iread
    dac .dspb
    jmp piret
 dsprestart:
-   lac d1
-   dac .dspb			" set .dsbp = 1
-   lac dspbufp			" load display buf pointer
-   beg				" start display processor
-   -10
-   dac .dsptm			" set .dsptm = -10 (10 ticks)
-   jmp piret
+			" Warren commented this out to try and
+			" disable the Graphics-2 I/O
+   " lac d1
+   " dac .dspb			" set .dsbp = 1
+   " lac dspbufp			" load display buf pointer
+   " beg				" start display processor
+   " -10
+   " dac .dsptm			" set .dsptm = -10 (10 ticks)
+   " jmp piret
 
-1: sna ral			" dataphone flag set (bit 7)??
-   jmp .+3			"  no
-   raef				" XXX: fix comment
-   jmp piret			" return
-   sma				" light pen flags (bit 2)
-   jmp 1f			"  no
-   lda				" G-2: load display address
-   dac .lpba			" save
-   rlpd				" G-2: resume after light pen stop
-   jmp piret
+" 1: sna ral			" dataphone flag set (bit 7)??
+   " jmp .+3			"  no
+   " raef				" XXX: fix comment
+   " jmp piret			" return
+   " sma				" light pen flags (bit 2)
+   " jmp 1f			"  no
+   " lda				" G-2: load display address
+   " dac .lpba			" save
+   " rlpd				" G-2: resume after light pen stop
+   " jmp piret
 
 1: ksf				" (TTY) keyboard flag set?
    jmp 1f			"  no