Toying with lights.

MRC; HACK MAC is a test program for the Panda Display. GAMES; BREATH 1 is the "breathing" KI lights code, ported to ITS.
2026-05-04 07:09:12 +00:00 · 2018-09-20 20:25:47 +02:00
parent 01533d458c
commit 95b056c737
2 changed files with 98 additions and 0 deletions
--- a/src/mrc/hack.mac
+++ b/src/mrc/hack.mac
@@ -0,0 +1,44 @@
+	TITLE HACK
+	SEARCH MONSYM
+
+HACK:	SKIPA 4,[^D4]
+HACK0:	 SOJL 4,TRAILL
+	SETZB 1,3
+HACK1:	TLNE 1,777777
+	 JRST HACK0
+	MOVE 2,1
+	CIRC 2,-^D18
+	SKIPN 4
+	 SKIPA 1,3
+	  IOR 1,3
+	LITES%
+	 HALT
+	HRRZ 2,1
+	MOVEI 1,30
+	DISMS%
+	MOVE 1,2
+	AOJA 1,HACK1
+
+TRAILL: SETZ 1,
+TRALL0: LITES%
+	 HALT
+	MOVE 2,1
+	MOVEI 1,30
+	DISMS%
+	JUMPL 2,TRAILR
+	LSHC 1,^D37
+	AOJA 1,TRALL0
+
+TRAILR: MOVSI 1,400000
+TRALR0: LITES%
+	 HALT
+	MOVE 2,1
+	MOVEI 1,30
+	DISMS%
+	MOVE 1,2
+	TRNE 1,1
+	 JRST HACK
+	ASH 1,-1
+	JRST TRALR0
+
+	END HACK