From 88024b7223d58dd3132e72672d3dd1f6a9b28aca Mon Sep 17 00:00:00 2001
From: Peter Gerwinski <peter.gerwinski@hs-bochum.de>
Date: Tue, 18 Apr 2023 14:13:46 +0200
Subject: [PATCH] Beispiel-Programm: Redcode, 18.4.2023

---
 20230418/catcan.red | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 20230418/catcan.red

diff --git a/20230418/catcan.red b/20230418/catcan.red
new file mode 100644
index 0000000..74cbb3d
--- /dev/null
+++ b/20230418/catcan.red
@@ -0,0 +1,23 @@
+;name Cat Can
+;author A. Kirchner, F. Uy
+;assert 1
+;
+; Your basic two sweep methodical bomber.
+; Fires SPL 0 and JMP -1 at every eight
+; addresses, then erases the core with
+; DAT bombs.
+
+start     mov       trap2,   < bomb
+          mov       trap1,   < bomb
+          sub     # 6,         bomb
+          jmn       start,     bomb ; trap loop
+set       mov     # -12,       bomb
+kill      mov       bomb,    @ bomb
+          djn       kill,      bomb ; kill loop
+reset     jmp       set,       0
+          jmp       set,       0
+          dat     # 0,       # 0    ; buffer
+bomb      dat     # 0,       # -1024
+trap1     spl       0,         2
+trap2     jmp       -1,        1
+          end       start
-- 
GitLab