Fix "ITS Revived!" messages messing up CROCK.

src/sysen1/crock.1010

@@ -64,6 +64,13 @@ ifn 20x,{
 
 ifn tnx,	oldmod:	0
 
+ifn its,{
+zz==.
+loc 42
+	tsint
+loc zz
+}
+
 pdl:	-40,,pdl
 	block 40
 
@@ -127,6 +134,8 @@ ifn tnx,[
 	MOVE T,[HPOSH,,HPOSH+1]
 	BLT T,EPOS
 
+ifn its, .suset [.smask,,[%pidwn]]	; Request interrupt when ITS revived.
+
 	; Start a new clock picture here
 LOOP:
 ifn its,[		; Get ITS time into H,M,S
@@ -239,6 +248,25 @@ ifn t%vt52, hrroi 2,[asciz "Y7 K"]
 	haltf
 	jrst crock
 ]
+
+ifn its,{
+tsint:	0
+	0
+	push p,a
+	.dietim a,
+	jumpl a,restart		; -1 means ITS revived.
+	pop p,a
+	.dismis tsint+1
+
+restart:
+	movei a,60.		; Short sleep to let DDT print ITS Revived!
+	.sleep a,
+	move a,[^P]   	; Clear screen.
+	.iot ttyc,a
+	move a,["C]
+	.iot ttyc,a
+	jrst crock		; Redraw.
+}
 
 ; Super hairy hand drawer.
 ; Inputs are: