From ef92edf3faea32123ae2b56d5137088283b827ab Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 20 Sep 2018 20:39:03 +0200
Subject: [PATCH] Port Panda Display HACK to ITS.

---
 src/mrc/{hack.mac => hack.2} | 36 +++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 17 deletions(-)
 rename src/mrc/{hack.mac => hack.2} (57%)

diff --git a/src/mrc/hack.mac b/src/mrc/hack.2
similarity index 57%
rename from src/mrc/hack.mac
rename to src/mrc/hack.2
index 5e529c94..a2b2a2dc 100644
--- a/src/mrc/hack.mac
+++ b/src/mrc/hack.2
@@ -1,44 +1,46 @@
 	TITLE HACK
-	SEARCH MONSYM
 
-HACK:	SKIPA 4,[^D4]
+SLEEP==1
+PI==4
+
+START:	SETO 1,
+	.IOTLSR 1,
+
+HACK:	SKIPA 4,[4.]
 HACK0:	 SOJL 4,TRAILL
 	SETZB 1,3
 HACK1:	TLNE 1,777777
 	 JRST HACK0
 	MOVE 2,1
-	CIRC 2,-^D18
+	CIRC 2,-18.
 	SKIPN 4
 	 SKIPA 1,3
 	  IOR 1,3
-	LITES%
-	 HALT
+	DATAO PI,1
 	HRRZ 2,1
-	MOVEI 1,30
-	DISMS%
+	MOVEI 1,SLEEP
+	.SLEEP 1,
 	MOVE 1,2
 	AOJA 1,HACK1
 
 TRAILL: SETZ 1,
-TRALL0: LITES%
-	 HALT
+TRALL0: DATAO PI,1
 	MOVE 2,1
-	MOVEI 1,30
-	DISMS%
+	MOVEI 1,SLEEP
+	.SLEEP 1,
 	JUMPL 2,TRAILR
-	LSHC 1,^D37
+	LSHC 1,37.
 	AOJA 1,TRALL0
 
 TRAILR: MOVSI 1,400000
-TRALR0: LITES%
-	 HALT
+TRALR0: DATAO PI,1
 	MOVE 2,1
-	MOVEI 1,30
-	DISMS%
+	MOVEI 1,SLEEP
+	.SLEEP 1,
 	MOVE 1,2
 	TRNE 1,1
 	 JRST HACK
 	ASH 1,-1
 	JRST TRALR0
 
-	END HACK
+	END START