From 15c5a641726fee983dcd52844c87a7f77393f0f0 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 2 Dec 2018 15:33:38 +0100
Subject: [PATCH] Automatically STUFF the TV-11.

If called with jname TVFIX, stuff the TV-11 and then frob TT11P.
---
 src/sysen2/{stuff.92 => stuff.93} | 29 +++++++++++++++++++++++++++--
 1 file changed, 27 insertions(+), 2 deletions(-)
 rename src/sysen2/{stuff.92 => stuff.93} (96%)

diff --git a/src/sysen2/stuff.92 b/src/sysen2/stuff.93
similarity index 96%
rename from src/sysen2/stuff.92
rename to src/sysen2/stuff.93
index ea67bcf6..edf99135 100755
--- a/src/sysen2/stuff.92
+++ b/src/sysen2/stuff.93
@@ -230,6 +230,9 @@ IFN .-11FTAB-11NTLN,.ERR
 
 
 START:	MOVE P,[-100,,PLD]
+	.SUSET [.RXJNAME,,A]
+	CAMN A,[SIXBIT /TVFIX/]
+	 JRST TVFIX
 	.OPEN TTO,STTO
 	 .LOSE 1000
 	.OPEN TTI,STTI
@@ -249,7 +252,7 @@ UPCASE:	ILDB C,B		;IF WE HAVE JCL, CONVERT IT TO UPPER CASE
 	 SUBI C,40
 	DPB C,B
 	SOJG D,UPCASE
-	MOVSI B,-11NTLN		;IF WE HAVE JCL, COMPARE AGAINST ASCII/TV^M/, ETC.
+STUFF:	MOVSI B,-11NTLN		;IF WE HAVE JCL, COMPARE AGAINST ASCII/TV^M/, ETC.
 	CAME A,11NTAB(B)
 	 AOBJN B,.-1
 	JUMPGE B,BADJCL		;NOT NAME OF AN 11 => LOSE.
@@ -607,7 +610,7 @@ NOSTAR:	MOVEI B,[ASCIZ /File loaded;  no start address.
 LOSE:	 PUSHJ P,TYPE
 OK:	SKIPE DEBUG
 	 .VALUE
-	.LOGOUT
+DIE:	.LOGOUT
 	.BREAK 16,160000
 
 11MPV:	SKIPA B,[[ASCIZ /File needs more core than this PDP11 has.
@@ -674,6 +677,27 @@ ST11W2:	AOS CU11AD
 	AOS CU11AD
 	POPJ P,
 
+
+TVFIX:	MOVE E,[SQUOZE 0,TT11P]
+	.EVAL E,
+	 .LOSE
+	MOVEM E,TT11P
+	HRL E,E
+	HRRI E,A
+	.GETLOC E,
+	CAMN A,[-1]		;IS TV-11 UP ALREADY?
+	 JRST DIE
+	MOVE A,[JRST FIXOK]	;COME BACK HERE LATER
+	MOVEM A,OK
+	MOVE A,[ASCII /TVī/]
+	JRST STUFF
+
+FIXOK:	MOVE E,TT11P
+	HRLI E,[1]		;START TALKING TO TV-11.
+	.SETLOC E,
+	JRST DIE
+
+
 CU11AD:	0	;WHERE THE STUFER WANTS WORDS PUT
 	;STORE BYTE IN A IN 11 AT ST11AD
 STBYTE:	MOVEI D,0
@@ -685,6 +709,7 @@ DPBT:	241000,,11LO(C)
 	041000,,11LO(C)
 	341000,,11LO(C)
 	141000,,11LO(C)
+TT11P:	0
 	CONSTANTS
 PATCH:	BLOCK 200
 	LOC <.+1777>&<-2000>